os2/os2.c

   1 /* $RCSfile: os2.c,v $$Revision: 4.0.1.1 $$Date: 91/06/07 11:23:06 $
   2  *
   3  *    (C) Copyright 1989, 1990 Diomidis Spinellis.
   4  *
   5  *    You may distribute under the terms of either the GNU General Public
   6  *    License or the Artistic License, as specified in the README file.
   7  *
   8  * $Log:        os2.c,v $
   9  * Revision 4.0.1.1  91/06/07  11:23:06  lwall
  10  * patch4: new copyright notice
  11  *
  12  * Revision 4.0  91/03/20  01:36:21  lwall
  13  * 4.0 baseline.
  14  *
  15  * Revision 3.0.1.2  90/11/10  01:42:38  lwall
  16  * patch38: more msdos/os2 upgrades
  17  *
  18  * Revision 3.0.1.1  90/10/15  17:49:55  lwall
  19  * patch29: Initial revision
  20  *
  21  * Revision 3.0.1.1  90/03/27  16:10:41  lwall
  22  * patch16: MSDOS support
  23  *
  24  * Revision 1.1  90/03/18  20:32:01  dds
  25  * Initial revision
  26  *
  27  */
  28
  29 #define INCL_DOS
  30 #define INCL_NOPM
  31 #include <os2.h>
  32
  33 /*
  34  * Various Unix compatibility functions for OS/2
  35  */
  36
  37 #include <stdio.h>
  38 #include <errno.h>
  39 #include <process.h>
  40
  41 #include "EXTERN.h"
  42 #include "perl.h"
  43
  44
  45 /* dummies */
  46
  47 int ioctl(int handle, unsigned int function, char *data)
  48 { return -1; }
  49
  50 int userinit()
  51 { return -1; }
  52
  53 int syscall()
  54 { return -1; }
  55
  56
  57 /* extendd chdir() */
  58
  59 int chdir(char *path)
  60 {
  61   if ( path[0] != 0 && path[1] == ':' )
  62     DosSelectDisk(toupper(path[0]) - '@');
  63
  64   DosChDir(path, 0L);
  65 }
  66
  67
  68 /* priorities */
  69
  70 int setpriority(int class, int pid, int val)
  71 {
  72   int flag = 0;
  73
  74   if ( pid < 0 )
  75   {
  76     flag++;
  77     pid = -pid;
  78   }
  79
  80   return DosSetPrty(flag ? PRTYS_PROCESSTREE : PRTYS_PROCESS, class, val, pid);
  81 }
  82
  83 int getpriority(int which /* ignored */, int pid)
  84 {
  85   USHORT val;
  86
  87   if ( DosGetPrty(PRTYS_PROCESS, &val, pid) )
  88     return -1;
  89   else
  90     return val;
  91 }
  92
  93
  94 /* get parent process id */
  95
  96 int getppid(void)
  97 {
  98   PIDINFO pi;
  99
 100   DosGetPID(&pi);
 101   return pi.pidParent;
 102 }
 103
 104
 105 /* kill */
 106
 107 int kill(int pid, int sig)
 108 {
 109   int flag = 0;
 110
 111   if ( pid < 0 )
 112   {
 113     flag++;
 114     pid = -pid;
 115   }
 116
 117   switch ( sig & 3 )
 118   {
 119
 120   case 0:
 121     DosKillProcess(flag ? DKP_PROCESSTREE : DKP_PROCESS, pid);
 122     break;
 123
 124   case 1: /* FLAG A */
 125     DosFlagProcess(pid, flag ? FLGP_SUBTREE : FLGP_PID, PFLG_A, 0);
 126     break;
 127
 128   case 2: /* FLAG B */
 129     DosFlagProcess(pid, flag ? FLGP_SUBTREE : FLGP_PID, PFLG_B, 0);
 130     break;
 131
 132   case 3: /* FLAG C */
 133     DosFlagProcess(pid, flag ? FLGP_SUBTREE : FLGP_PID, PFLG_C, 0);
 134     break;
 135
 136   }
 137 }
 138
 139
 140 /* Sleep function. */
 141 void
 142 sleep(unsigned len)
 143 {
 144    DosSleep(len * 1000L);
 145 }
 146
 147 /* Just pretend that everyone is a superuser */
 148
 149 int setuid()
 150 { return 0; }
 151
 152 int setgid()
 153 { return 0; }
 154
 155 int getuid(void)
 156 { return 0; }
 157
 158 int geteuid(void)
 159 { return 0; }
 160
 161 int getgid(void)
 162 { return 0; }
 163
 164 int getegid(void)
 165 { return 0; }
 166
 167 /*
 168  * The following code is based on the do_exec and do_aexec functions
 169  * in file doio.c
 170  */
 171 int
 172 do_aspawn(really,arglast)
 173 STR *really;
 174 int *arglast;
 175 {
 176     register STR **st = stack->ary_array;
 177     register int sp = arglast[1];
 178     register int items = arglast[2] - sp;
 179     register char **a;
 180     char **argv;
 181     char *tmps;
 182     int status;
 183
 184     if (items) {
 185         New(1101,argv, items+1, char*);
 186         a = argv;
 187         for (st += ++sp; items > 0; items--,st++) {
 188             if (*st)
 189                 *a++ = str_get(*st);
 190             else
 191                 *a++ = "";
 192         }
 193         *a = Nullch;
 194         if (really && *(tmps = str_get(really)))
 195             status = spawnvp(P_WAIT,tmps,argv);
 196         else
 197             status = spawnvp(P_WAIT,argv[0],argv);
 198         Safefree(argv);
 199     }
 200     return status;
 201 }
 202
 203 char *getenv(char *name);
 204
 205 int
 206 do_spawn(cmd)
 207 char *cmd;
 208 {
 209     register char **a;
 210     register char *s;
 211     char **argv;
 212     char flags[10];
 213     int status;
 214     char *shell, *cmd2;
 215
 216     /* save an extra exec if possible */
 217     if ((shell = getenv("COMSPEC")) == 0)
 218         shell = "C:\\OS2\\CMD.EXE";
 219
 220     /* see if there are shell metacharacters in it */
 221     if (strchr(cmd, '>') || strchr(cmd, '<') || strchr(cmd, '|')
 222         || strchr(cmd, '&') || strchr(cmd, '^'))
 223           doshell:
 224             return spawnl(P_WAIT,shell,shell,"/C",cmd,(char*)0);
 225
 226     New(1102,argv, strlen(cmd) / 2 + 2, char*);
 227
 228     New(1103,cmd2, strlen(cmd) + 1, char);
 229     strcpy(cmd2, cmd);
 230     a = argv;
 231     for (s = cmd2; *s;) {
 232         while (*s && isspace(*s)) s++;
 233         if (*s)
 234             *(a++) = s;
 235         while (*s && !isspace(*s)) s++;
 236         if (*s)
 237             *s++ = '\0';
 238     }
 239     *a = Nullch;
 240     if (argv[0])
 241         if ((status = spawnvp(P_WAIT,argv[0],argv)) == -1) {
 242             Safefree(argv);
 243             Safefree(cmd2);
 244             goto doshell;
 245         }
 246     Safefree(cmd2);
 247     Safefree(argv);
 248     return status;
 249 }
 250
 251 usage(char *myname)
 252 {
 253 #ifdef MSDOS
 254   printf("\nUsage: %s [-acdnpsSvw] [-0[octal]] [-Dnumber] [-i[extension]] [-Idirectory]"
 255 #else
 256   printf("\nUsage: %s [-acdnpPsSuUvw] [-Dnumber] [-i[extension]] [-Idirectory]"
 257 #endif
 258          "\n            [-e \"command\"] [-x[directory]] [filename] [arguments]\n", myname);
 259
 260   printf("\n  -a  autosplit mode with -n or -p"
 261          "\n  -c  syntaxcheck only"
 262          "\n  -d  run scripts under debugger"
 263          "\n  -n  assume 'while (<>) { ...script... }' loop arround your script"
 264          "\n  -p  assume loop like -n but print line also like sed"
 265 #ifndef MSDOS
 266          "\n  -P  run script through C preprocessor befor compilation"
 267 #endif
 268          "\n  -s  enable some switch parsing for switches after script name"
 269          "\n  -S  look for the script using PATH environment variable");
 270 #ifndef MSDOS
 271   printf("\n  -u  dump core after compiling the script"
 272          "\n  -U  allow unsafe operations");
 273 #endif
 274   printf("\n  -v  print version number and patchlevel of perl"
 275          "\n  -w  turn warnings on for compilation of your script\n"
 276          "\n  -0[octal]       specify record separator (0, if no argument)"
 277          "\n  -Dnumber        set debugging flags (argument is a bit mask)"
 278          "\n  -i[extension]   edit <> files in place (make backup if extension supplied)"
 279          "\n  -Idirectory     specify include directory in conjunction with -P"
 280          "\n  -e command      one line of script, multiple -e options are allowed"
 281          "\n                  [filename] can be ommitted, when -e is used"
 282          "\n  -x[directory]   strip off text before #!perl line and perhaps cd to directory\n");
 283 }