workbench/c/RequestChoice.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: RequestChoice CLI command
   6     Lang: English
   7 */
   8
   9 /*****************************************************************************
  10
  11     NAME
  12
  13         RequestChoice
  14
  15     SYNOPSIS
  16
  17         TITLE/A,BODY/A,GADGETS/A/M,PUBSCREEN/K
  18
  19     LOCATION
  20
  21         Workbench:c
  22
  23     FUNCTION
  24
  25         Allows AmigaDOS scripts to have access to the EasyRequest() function
  26         for input.
  27
  28     INPUTS
  29
  30         TITLE       - The text to display in the title bar of the requester.
  31
  32         BODY        - The text to display in the body of the requester.
  33
  34         GADGETS     - The text for each of the buttons.
  35
  36         PUBSCREEN   - The name of the public screen to open the requester
  37                       upon.
  38
  39     RESULT
  40
  41         Standard DOS return codes.
  42
  43     NOTES
  44
  45         To place a newline into the body of the requester use *n or *N.
  46
  47         To place a quotation mark in the body of the requester use *".
  48
  49         The CLI template gives the GADGETS option as ALWAYS given; this
  50         is different from the original program. This way, we do not have
  51         to check to see if the gadgets have been given.
  52
  53     EXAMPLE
  54
  55         RequestChoice "This is a title" "This is*Na body" Okay|Cancel
  56
  57             This is self-explanitory, except for the "*N". This is the
  58             equivalent of using a '\n' in C to get a newline in the body
  59             of the requester. This requester will open on the Workbench
  60             screen.
  61
  62         RequestChoice Title="This is a title" Body="This is*Na body"
  63                       Gadgets=Okay|Cancel PubScreen=DOPUS.1
  64
  65             This will do exactly the same as before except that it will
  66             open on the Directory Opus public screen.
  67
  68     BUGS
  69
  70     SEE ALSO
  71
  72         intuition.library/EasyRequest(), intuition.library/EasyRequestArgs()
  73
  74     INTERNALS
  75
  76     HISTORY
  77
  78         08-Sep-1997     srittau     Use dynamic buffer for gadget-labels
  79                                     Small changes/fixes
  80
  81         27-Jul-1997     laguest     Initial inclusion into the AROS tree
  82
  83 ******************************************************************************/
  84
  85 #include <proto/dos.h>
  86 #include <proto/exec.h>
  87 #include <proto/intuition.h>   /* This causes a spilled register error */
  88
  89 #include <dos/dos.h>
  90 #include <dos/rdargs.h>
  91 #include <exec/libraries.h>
  92 #include <exec/memory.h>
  93 #include <exec/types.h>
  94 #include <intuition/intuition.h>
  95 #include <intuition/screens.h>
  96
  97 #include <string.h>
  98
  99 #define ARG_TEMPLATE    "TITLE/A,BODY/A,GADGETS/A/M,PUBSCREEN/K"
 100 #define ARG_TITLE       0
 101 #define ARG_BODY        1
 102 #define ARG_GADGETS     2
 103 #define ARG_PUBSCREEN   3
 104 #define TOTAL_ARGS      4
 105
 106 /* To define whether a command line switch was set or not.
 107  */
 108 #define NOT_SET         0
 109
 110 static const char version[] = "$VER: RequestChoice 41.1 (08.09.1997)\n";
 111
 112 static char ERROR_HEADER[] = "RequestChoice";
 113
 114 int Do_RequestChoice(STRPTR, STRPTR, STRPTR *, STRPTR);
 115
 116 int __nocommandline;
 117
 118 int main(void)
 119 {
 120     struct RDArgs * rda;
 121     IPTR          * args[TOTAL_ARGS] = { NULL, NULL, NULL, NULL };
 122     int             Return_Value;
 123
 124     Return_Value = RETURN_OK;
 125
 126     rda = ReadArgs(ARG_TEMPLATE, (IPTR *)args, NULL);
 127     if (rda)
 128     {
 129         Return_Value = Do_RequestChoice((STRPTR)args[ARG_TITLE],
 130                                         (STRPTR)args[ARG_BODY],
 131                                         (STRPTR *)args[ARG_GADGETS],
 132                                         (STRPTR)args[ARG_PUBSCREEN]);
 133         FreeArgs(rda);
 134     }
 135     else
 136     {
 137         PrintFault(IoErr(), ERROR_HEADER);
 138         Return_Value = RETURN_FAIL;
 139     }
 140
 141     return (Return_Value);
 142 } /* main */
 143
 144
 145 STRPTR ComposeGadgetText(STRPTR *);
 146
 147 int Do_RequestChoice(STRPTR   Title,
 148                      STRPTR   Body,
 149                      STRPTR * Gadgets,
 150                      STRPTR   PubScreen)
 151 {
 152     struct Screen     * Scr;
 153     struct EasyStruct   ChoiceES;
 154     STRPTR              GadgetText;
 155     LONG                Result;
 156     IPTR                args[1];
 157     int                 Return_Value;
 158
 159     Return_Value     = RETURN_OK;
 160     Result           = 0L;
 161
 162     GadgetText = ComposeGadgetText(Gadgets);
 163     if (!GadgetText)
 164         return RETURN_FAIL;
 165
 166     /* Make sure we can open the requester on the specified screen.
 167      *
 168      * If the PubScreen argument is not specified it will contain
 169      * NULL, and hence open on the Workbench screen.
 170      */
 171     Scr = (struct Screen *)LockPubScreen((UBYTE *)PubScreen);
 172     if (Scr != NULL)
 173     {
 174         ChoiceES.es_StructSize   = sizeof(struct EasyStruct);
 175         ChoiceES.es_Flags        = 0L;
 176         ChoiceES.es_Title        = Title;
 177         ChoiceES.es_TextFormat   = Body;
 178         ChoiceES.es_GadgetFormat = GadgetText;
 179
 180         /* Open the requester.
 181          */
 182         Result = EasyRequestArgs(Scr->FirstWindow, &ChoiceES, NULL, NULL);
 183         if (Result != -1)
 184         {
 185             args[0] = (IPTR)Result;
 186
 187             VPrintf("%ld\n", args);
 188         }
 189         else
 190         {
 191             Return_Value = RETURN_FAIL;
 192             SetIoErr(ERROR_NO_FREE_STORE);
 193             PrintFault(IoErr(), ERROR_HEADER);
 194         }
 195         UnlockPubScreen(NULL, Scr);
 196     }
 197     else
 198     {
 199         Return_Value = RETURN_FAIL;
 200         SetIoErr(ERROR_NO_FREE_STORE);
 201         PrintFault(IoErr(), ERROR_HEADER);
 202     }
 203
 204     FreeVec(GadgetText);
 205
 206     return (Return_Value);
 207
 208 } /* Do_RequestChoice */
 209
 210
 211 STRPTR ComposeGadgetText(STRPTR * Gadgets)
 212 {
 213     STRPTR GadgetText, BufferPos;
 214     int    GadgetLength = 0;
 215     int    CurrentGadget;
 216
 217     for (CurrentGadget = 0; Gadgets[CurrentGadget]; CurrentGadget++)
 218     {
 219         GadgetLength += strlen(Gadgets[CurrentGadget]) + 1;
 220     }
 221
 222     GadgetText = AllocVec(GadgetLength, MEMF_ANY);
 223     if (!GadgetText)
 224     {
 225         SetIoErr(ERROR_NO_FREE_STORE);
 226         PrintFault(IoErr(), ERROR_HEADER);
 227         return NULL;
 228     }
 229
 230     BufferPos = GadgetText;
 231     for (CurrentGadget = 0; Gadgets[CurrentGadget]; CurrentGadget++)
 232     {
 233         int LabelLength = strlen(Gadgets[CurrentGadget]);
 234         CopyMem(Gadgets[CurrentGadget], BufferPos, LabelLength);
 235         if (Gadgets[CurrentGadget + 1])
 236         {
 237             BufferPos[LabelLength] = '|';
 238             BufferPos += LabelLength + 1;
 239         }
 240         else
 241             BufferPos[LabelLength] = '\0';
 242     }
 243
 244     return GadgetText;
 245
 246 } /* ComposeGadgetText */