workbench/c/shellcommands/Ask.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Ask CLI command
   6     Lang: English
   7 */
   8
   9 /******************************************************************************
  10
  11     NAME
  12
  13         Ask <prompt>
  14
  15     SYNOPSIS
  16
  17         PROMPT/A
  18
  19     LOCATION
  20
  21         C:
  22
  23     FUNCTION
  24
  25         Prompts the user for an input. Possible inputs are y for yes
  26         and n or Return for no. Selecting y sets the return code to 5.
  27
  28     INPUTS
  29
  30         PROMPT -- the string is displayed in the window
  31
  32     RESULT
  33
  34     NOTES
  35
  36     EXAMPLE
  37
  38     BUGS
  39
  40     SEE ALSO
  41
  42         RequestChoice
  43
  44     INTERNALS
  45
  46     HISTORY
  47
  48 ******************************************************************************/
  49
  50 #include <stdio.h>
  51 #include <string.h>
  52 #include <proto/exec.h>
  53 #include <proto/dos.h>
  54 #include <dos/dos.h>
  55 #include <proto/utility.h>
  56
  57 #include <aros/shcommands.h>
  58
  59 static int stripwhites(char * buffer);
  60 static char * skipwhites(char * buffer);
  61
  62 AROS_SH1(Ask, 41.3,
  63 AROS_SHA(STRPTR, ,PROMPT,/A,NULL))
  64 {
  65     AROS_SHCOMMAND_INIT
  66
  67     char buffer[100];
  68     int ready = 0;
  69     int error = RETURN_OK;
  70
  71     struct UtilityBase *UtilityBase =
  72         (struct UtilityBase *)OpenLibrary("utility.library", 37);
  73
  74
  75     if (!UtilityBase)
  76     {
  77         return RETURN_FAIL;
  78     }
  79
  80     while (ready == 0)
  81     {
  82         VPrintf("%s ", (IPTR *)&SHArg(PROMPT));
  83         Flush(Output());
  84
  85         if (FGets(Input(), buffer, 100) == (STRPTR)buffer)
  86         {
  87             char *tmpbuf;
  88             int   tmplen;
  89
  90             tmpbuf = skipwhites(buffer);
  91             tmplen = stripwhites(tmpbuf);
  92
  93             if (tmplen == 0)
  94             {
  95                 ready = 1;
  96             }
  97             else if (tmplen == 1)
  98             {
  99                 if (Strnicmp(tmpbuf, "y", 1) == 0)
 100                 {
 101                     error = RETURN_WARN;
 102                     ready = 1;
 103                 }
 104                 else if (Strnicmp(tmpbuf, "n", 1) == 0)
 105                 {
 106                     ready = 1;
 107                 }
 108             }
 109             else if (tmplen == 2)
 110             {
 111                 if (Strnicmp(tmpbuf, "no", 2) == 0)
 112                 {
 113                     ready = 1;
 114                 }
 115             }
 116             else if (tmplen == 3)
 117             {
 118                 if (Strnicmp(tmpbuf, "yes", 3) == 0)
 119                 {
 120                     error = RETURN_WARN;
 121                     ready = 1;
 122                 }
 123             }
 124         }
 125         else
 126         {
 127             ready = 1;
 128         }
 129     }
 130
 131     CloseLibrary((struct Library *)UtilityBase);
 132
 133     return error;
 134
 135     AROS_SHCOMMAND_EXIT
 136 }
 137
 138 static int stripwhites(char * buffer)
 139 {
 140     int len;
 141     len = strlen(buffer);
 142
 143     while ((len != 0) &&
 144            (buffer[len - 1] == ' ' ||
 145             buffer[len - 1] == '\t' ||
 146             buffer[len - 1] == '\n'))
 147     {
 148         len--;
 149     }
 150
 151     return len;
 152 }
 153
 154
 155 static char *skipwhites(char *buffer)
 156 {
 157     while (buffer[0] == ' ' || buffer[0] == '\t')
 158     {
 159         buffer++;
 160     }
 161
 162     return buffer;
 163 }