workbench/utilities/Installer/main.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Installer V43.3
   6     Lang: english
   7 */
   8
   9 #define DEBUG 1
  10 #include "Installer.h"
  11 #include "main.h"
  12 #include "cleanup.h"
  13 #include "locale.h"
  14 #include "gui.h"
  15 #include "parse.h"
  16 #include "variables.h"
  17 #include "execute.h"
  18
  19 #include "version.h"
  20
  21
  22 #ifdef DEBUG
  23 char test_script[] = "SYS:Tests/Installer/test.script";
  24 #endif /* DEBUG */
  25
  26 char *filename = NULL;
  27 BPTR inputfile;
  28 char buffer[MAXARGSIZE];
  29 int error = 0, grace_exit = 0;
  30
  31 InstallerPrefs preferences;
  32 ScriptArg script;
  33
  34 IPTR args[TOTAL_ARGS] = { 0, 0, 0, 0, 0, 0, 0, 0, 0 };
  35 UBYTE **tooltypes;
  36
  37 /*
  38  * MAIN
  39  */
  40 int main(int argc, char *argv[])
  41 {
  42     struct RDArgs *rda = NULL;
  43     char *ttemp, *tstring;
  44
  45     ScriptArg *currentarg, *dummy;
  46     int nextarg, endoffile, count;
  47
  48     Locale_Initialize();
  49
  50     if (argc != 0)
  51     { /* Invoked from Shell */
  52         preferences.fromcli = TRUE;
  53         /* evaluate args with RDArgs(); */
  54         rda = ReadArgs(ARG_TEMPLATE, args, NULL);
  55         if (rda == NULL)
  56         {
  57             PrintFault(IoErr(), INSTALLER_NAME);
  58             exit(-1);
  59         }
  60
  61         /* open script file */
  62         if (args[ARG_SCRIPT])
  63         {
  64             filename = (STRPTR)args[ARG_SCRIPT];
  65         }
  66         else
  67         {
  68             fprintf(stderr, "No SCRIPT specified!\n");
  69 #ifdef DEBUG
  70             fprintf(stderr, "Using %s instead...\n", test_script);
  71             filename = test_script;
  72 #else
  73             FreeArgs(rda);
  74             exit(-1);
  75 #endif /* DEBUG */
  76         }
  77     }
  78     else
  79     { /* Invoked from Workbench */
  80         preferences.fromcli = FALSE;
  81         tooltypes = ArgArrayInit(argc, (UBYTE **)argv);
  82
  83         /* open script file */
  84         ttemp = ArgString(tooltypes, "SCRIPT", NULL);
  85         if (ttemp == NULL)
  86         {
  87 #ifdef DEBUG
  88             fprintf(stderr, "No SCRIPT ToolType in Icon!\n");
  89             ttemp = test_script;
  90 #else
  91             ArgArrayDone();
  92             exit(-1);
  93 #endif /* DEBUG */
  94         }
  95         filename = ttemp;
  96     }
  97
  98     inputfile = Open(filename, MODE_OLDFILE);
  99     if (inputfile == BNULL)
 100     {
 101 #ifdef DEBUG
 102         fprintf(stderr, "Error opening script <%s>\n",filename);
 103         PrintFault(IoErr(), INSTALLER_NAME);
 104 #endif /* DEBUG */
 105         exit(-1);
 106     }
 107
 108     preferences.welcome = FALSE;
 109     preferences.transcriptstream = BNULL;
 110     preferences.pretend = 0;
 111
 112     if (argc)
 113     {
 114         preferences.debug = TRUE;
 115         if (args[ARG_NOLOG])
 116         {
 117             preferences.novicelog = FALSE;
 118         }
 119         else
 120         {
 121             preferences.novicelog = TRUE;
 122         }
 123         preferences.transcriptfile = StrDup((args[ARG_LOGFILE]) ? (char *)args[ARG_LOGFILE] : "install_log_file");
 124         preferences.nopretend = (int)args[ARG_NOPRETEND];
 125         if (args[ARG_MINUSER])
 126         {
 127             preferences.minusrlevel = _NOVICE;
 128             if (strcasecmp("average", (char *)args[ARG_MINUSER]) == 0)
 129             {
 130                 preferences.minusrlevel = _AVERAGE;
 131             }
 132             else if (strcasecmp("expert", (char *)args[ARG_MINUSER]) == 0)
 133             {
 134                 preferences.minusrlevel = _EXPERT;
 135             }
 136             else
 137             {
 138                 preferences.minusrlevel = _NOVICE;
 139             }
 140         }
 141         else
 142         {
 143             preferences.minusrlevel = _NOVICE;
 144         }
 145         if (args[ARG_DEFUSER])
 146         {
 147             preferences.defusrlevel = preferences.minusrlevel;
 148             if (strcasecmp("average", (char *)args[ARG_DEFUSER]) == 0)
 149             {
 150                 preferences.defusrlevel = _AVERAGE;
 151             }
 152             else if (strcasecmp("expert", (char *)args[ARG_DEFUSER]) == 0)
 153             {
 154                 preferences.defusrlevel = _EXPERT;
 155             }
 156             else
 157             {
 158                 preferences.defusrlevel = _NOVICE;
 159             }
 160         }
 161         else
 162         {
 163             preferences.defusrlevel = _NOVICE;
 164         }
 165         if (preferences.defusrlevel < preferences.minusrlevel)
 166         {
 167             preferences.defusrlevel = preferences.minusrlevel;
 168         }
 169     }
 170     else
 171     {
 172         preferences.debug = TRUE;
 173
 174         /* Create a log file in Novice mode? (TRUE) */
 175         if (strcmp("TRUE", ArgString(tooltypes, "LOG", "TRUE")) == 0)
 176         {
 177             preferences.novicelog = TRUE;
 178         }
 179         else
 180         {
 181             preferences.novicelog = FALSE;
 182         }
 183
 184         /* Write to which LOGFILE? */
 185         preferences.transcriptfile = StrDup(ArgString(tooltypes, "LOGFILE", "install_log_file"));
 186         /* Is PRETEND possible? */
 187         preferences.nopretend = (strcmp("TRUE", ArgString(tooltypes, "PRETEND", "TRUE")) != 0);
 188         ttemp = ArgString(tooltypes, "MINUSER", "NOVICE");
 189         tstring = NULL;
 190         preferences.minusrlevel = _NOVICE;
 191         if (strcasecmp("average", ttemp) == 0)
 192         {
 193             preferences.minusrlevel = _AVERAGE;
 194             tstring = StrDup("AVERAGE");
 195         }
 196         else if (strcasecmp("expert", ttemp) == 0)
 197         {
 198             preferences.minusrlevel = _EXPERT;
 199             tstring = StrDup("EXPERT");
 200         }
 201         if (tstring == NULL)
 202         {
 203             tstring = StrDup("NOVICE");
 204         }
 205
 206         ttemp = ArgString(tooltypes, "DEFUSER", tstring);
 207         preferences.defusrlevel = preferences.minusrlevel;
 208         if (strcasecmp("average", ttemp) == 0)
 209         {
 210             preferences.defusrlevel = _AVERAGE;
 211         }
 212         else if (strcasecmp("expert", ttemp) == 0)
 213         {
 214             preferences.defusrlevel = _EXPERT;
 215         }
 216         if (preferences.defusrlevel < preferences.minusrlevel)
 217         {
 218             preferences.defusrlevel = preferences.minusrlevel;
 219         }
 220         FreeVec(tstring);
 221         if (preferences.defusrlevel < preferences.minusrlevel)
 222         {
 223             preferences.defusrlevel = preferences.minusrlevel;
 224         }
 225     }
 226
 227     preferences.copyfail = COPY_FAIL;
 228     preferences.copyflags = 0;
 229
 230     preferences.onerror.cmd = NULL;
 231     preferences.onerror.next = NULL;
 232     preferences.onerror.parent = NULL;
 233     preferences.onerrorparent = NULL;
 234     for ( count = 0 ; count < NUMERRORS ; count++ )
 235     {
 236         dummy = &(preferences.trap[count]);
 237         dummy->cmd = NULL;
 238         dummy->next = NULL;
 239         dummy->parent = NULL;
 240         preferences.trapparent[count] = NULL;
 241     }
 242
 243     /* Init GUI -- i.e open empty window */
 244     init_gui();
 245
 246     line = 1;
 247
 248     endoffile = FALSE;
 249     script.arg = NULL;
 250     script.cmd = NULL;
 251     script.next = NULL;
 252     script.parent = NULL;
 253     script.intval = 0;
 254     script.ignore = 0;
 255     currentarg = script.cmd;
 256     /* parse script file */
 257     do
 258     {
 259         /* Allocate space for script cmd and save first one to scriptroot */
 260         if (script.cmd == NULL)
 261         {
 262             script.cmd = (ScriptArg *)AllocVec(sizeof(ScriptArg), MEMF_PUBLIC);
 263             if (script.cmd == NULL)
 264             {
 265                 end_alloc();
 266             }
 267             currentarg = script.cmd;
 268             currentarg->parent = &script;
 269         }
 270         else
 271         {
 272             currentarg->next = (ScriptArg *)AllocVec(sizeof(ScriptArg), MEMF_PUBLIC);
 273             if (currentarg->next == NULL)
 274             {
 275                 end_alloc();
 276             }
 277             currentarg->next->parent = currentarg->parent;
 278             currentarg = currentarg->next;
 279         }
 280         /* Set initial values */
 281         currentarg->arg = NULL;
 282         currentarg->cmd = NULL;
 283         currentarg->next = NULL;
 284         currentarg->intval = 0;
 285         currentarg->ignore = 0;
 286
 287         nextarg = FALSE;
 288         do
 289         {
 290             count = Read(inputfile, &buffer[0], 1);
 291             if (count == 0)
 292             {
 293                 endoffile = TRUE;
 294             }
 295
 296             if (!isspace(buffer[0]) && (endoffile == FALSE))
 297             {
 298                 /* This is text, is it valid ? */
 299                 switch(buffer[0])
 300                 {
 301                     case SEMICOLON: /* A comment, ok - Go on with next line */
 302                         do
 303                         {
 304                             count = Read(inputfile, &buffer[0], 1);
 305                         } while (buffer[0] != LINEFEED && count != 0);
 306                         line++;
 307                         if (count == 0)
 308                         {
 309                             endoffile = TRUE;
 310                         }
 311                         break;
 312
 313                     case LBRACK: /* A command (...) , parse the content of braces */
 314                         currentarg->cmd = (ScriptArg *)AllocVec(sizeof(ScriptArg), MEMF_PUBLIC);
 315                         if (currentarg->cmd == NULL)
 316                         {
 317                             end_alloc();
 318                         }
 319                         dummy = currentarg->cmd;
 320                         dummy->parent = currentarg;
 321                         dummy->arg = NULL;
 322                         dummy->ignore = 0;
 323                         dummy->intval = 0;
 324                         dummy->cmd = NULL;
 325                         dummy->next = NULL;
 326                         parse_file(currentarg->cmd);
 327                         nextarg = TRUE;
 328                         break;
 329
 330                     default: /* Plain text or closing bracket is not allowed */
 331                         Close(inputfile);
 332                         show_parseerror("Too many closing brackets!", line);
 333                         cleanup();
 334                         exit(-1);
 335                         break;
 336                 }
 337             }
 338             else
 339             {
 340                 if (buffer[0] == LINEFEED)
 341                 {
 342                     line++;
 343                 }
 344             }
 345         } while (nextarg != TRUE && !endoffile);
 346     } while (!endoffile);
 347
 348     /* Okay, we (again) have allocated one ScriptArg too much, so get rid of it */
 349     currentarg = script.cmd;
 350     if (currentarg->next != NULL)
 351     {
 352         while (currentarg->next->next != NULL)
 353         {
 354             currentarg = currentarg->next;
 355         }
 356         FreeVec(currentarg->next);
 357         currentarg->next = NULL;
 358     }
 359
 360     Close(inputfile);
 361
 362     if (preferences.transcriptfile != NULL)
 363     {
 364         /* open transcript file */
 365         preferences.transcriptstream = Open(preferences.transcriptfile, MODE_NEWFILE);
 366         if (preferences.transcriptstream == BNULL)
 367         {
 368             PrintFault(IoErr(), INSTALLER_NAME);
 369             cleanup();
 370             exit(-1);
 371         }
 372     }
 373
 374     /* Set variables which are not constant */
 375     set_preset_variables(argc);
 376
 377     /* NOTE: Now everything from commandline(ReadArgs)/ToolTypes(Workbench)
 378            will become invalid!
 379     */
 380     if (argc != 0)
 381     { /* Finally free ReadArgs struct (set_preset_variables() needed them) */
 382         FreeArgs(rda);
 383     }
 384     else
 385     { /* Or free tooltypes array if started from WB */
 386         ArgArrayDone();
 387     }
 388
 389     /* If the script does not contain a (welcome) section, call the default one */
 390     if (preferences.welcome == FALSE)
 391     {
 392         request_userlevel(NULL);
 393     }
 394
 395
 396     /* Don't bother NOVICE */
 397     if (get_var_int("@user-level") == _NOVICE)
 398     {
 399         preferences.copyflags &= ~COPY_ASKUSER;
 400     }
 401     else
 402     {
 403         preferences.copyflags |= COPY_ASKUSER;
 404     }
 405
 406     /* execute parsed script */
 407     execute_script(script.cmd, 0);
 408
 409 #ifdef DEBUG
 410     dump_varlist();
 411 #endif /* DEBUG */
 412
 413     final_report();
 414     cleanup();
 415
 416 return error;
 417 }
 418