workbench/utilities/Installer/procedure.c

   1 /*
   2     Copyright © 1995-2003, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 /* procedure.c -- Here are all functions related to user-defined procedures */
   7
   8 #include "Installer.h"
   9 #include "execute.h"
  10 #include "cleanup.h"
  11 #include "procedure.h"
  12
  13 /* External variables */
  14 extern struct CommandList internal_commands[];
  15
  16
  17 int numusrprocs = 0, numactiveusrprocs = 0;
  18 struct ProcedureList *usrprocs = NULL, **activeusrprocs = NULL;
  19
  20
  21 /*
  22  * Activate previously parsed user function
  23  */
  24 void link_function(char *name, long int incarnation)
  25 {
  26 int i = 0, j = 0, inc = -1;
  27
  28     for ( ; i < numactiveusrprocs && strcmp(name, activeusrprocs[i]->procname) != 0 ; i++ );
  29
  30     while (j < numusrprocs && inc != incarnation)
  31     {
  32         if (strcmp(name, usrprocs[j].procname) == 0)
  33         {
  34             inc++;
  35         }
  36         j++;
  37     }
  38     j--;
  39
  40     if (i == numactiveusrprocs)
  41     {
  42         numactiveusrprocs++;
  43         activeusrprocs = ReAllocVec(activeusrprocs, sizeof(struct ProcedureList *) * numactiveusrprocs, MEMF_PUBLIC);
  44         if (activeusrprocs == NULL)
  45         {
  46             end_alloc();
  47         }
  48     }
  49     activeusrprocs[i] = &((usrprocs[j]));
  50 }
  51
  52
  53 /*
  54  * Return user's function
  55  */
  56 struct ProcedureList *find_proc(char *name)
  57 {
  58 int i;
  59
  60     /* Check if procedure is in list */
  61     for ( i = 0 ; i < numactiveusrprocs && strcmp(name, activeusrprocs[i]->procname) != 0 ; i++ );
  62     if (i == numactiveusrprocs)
  63     {
  64         /* Not in list */
  65         fprintf(stderr, "<%s> - Procedure not found!\n", name);
  66         return NULL;
  67     }
  68
  69 return activeusrprocs[i];
  70 }
  71
  72
  73 /*
  74  * Remember user functions at parse time
  75  */
  76 long int set_procedure(char **args, int num, ScriptArg *cmd)
  77 {
  78 int i;
  79 char *name;
  80 long int incarnation = 0;
  81
  82     name = args[0];
  83     /* Check if name is in preset list */
  84     for ( i = 0 ; i < _MAXCOMMAND && strcmp(name, internal_commands[i].cmdsymbol) != 0 ; i++ );
  85     if (i < _MAXCOMMAND)
  86     {
  87         fprintf(stderr, "Procedure name <%s> already defined for internal function!\n", name);
  88         cleanup();
  89         exit(-1);
  90     }
  91
  92     /* Check if name is in list */
  93     for ( i = 0 ; i < numusrprocs ; i++)
  94     {
  95         if (strcmp(name, usrprocs[i].procname) == 0)
  96         {
  97             incarnation++;
  98         }
  99     }
 100
 101     /* Enlarge list for one additional element */
 102     numusrprocs++;
 103     usrprocs = ReAllocVec(usrprocs, sizeof(struct ProcedureList) * numusrprocs, MEMF_PUBLIC);
 104     if (usrprocs == NULL)
 105     {
 106         end_alloc();
 107     }
 108     usrprocs[i].procbody = cmd;
 109     usrprocs[i].procname = name;
 110     usrprocs[i].arglist = &(args[1]);
 111     usrprocs[i].argnum = num-1;
 112
 113 return incarnation;
 114 }
 115
 116
 117 /*
 118  * Free the memory of the user function list
 119  */
 120 void free_proclist()
 121 {
 122 int i;
 123
 124     for ( i = 0 ; i < numusrprocs ; i++)
 125     {
 126         FreeVec(usrprocs[i].procname);
 127     }
 128     FreeVec(usrprocs);
 129 }
 130