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