home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / modu1096.zip / GPMsym / pcproces.def < prev    next >
Text File  |  1996-08-29  |  2KB  |  46 lines
  1. (****************************************************************)
  2. (*                                                              *)
  3. (*         Gardens Point Modula-2 Library Definition            *)
  4. (*                                                              *)
  5. (*                                                              *)
  6. (*     (c) Copyright 1996 Faculty of Information Technology     *)
  7. (*              Queensland University of Technology             *)
  8. (*                                                              *)
  9. (*     Permission is granted to use, copy and change this       *)
  10. (*     program as long as the copyright message is left intact  *)
  11. (*                                                              *)
  12. (****************************************************************)
  13.  
  14. FOREIGN DEFINITION MODULE PcProcesses;
  15.  
  16.   IMPORT IMPLEMENTATION FROM "pcprocesses.o";
  17.  
  18.   FROM Types IMPORT SHORTINT;
  19.   FROM SYSTEM IMPORT ADDRESS;
  20.   IMPORT BuildArgs;
  21.  
  22.   PROCEDURE Spawns(comPath : ARRAY OF CHAR;
  23.            argStrn : ARRAY OF CHAR) : SHORTINT; 
  24.   (* Spawns another process, and waits for return result *)
  25.   (* comPath is an absolute pathname, with extension.    *)
  26.   (* argStrn is the additional arguments of the command  *)
  27.   (* Arg-0 of command is comPath, others from argStrn.   *)
  28.   (* Result is exit code of the spawned process         *)
  29.  
  30.   PROCEDURE Spawnv(comPath : ARRAY OF CHAR;
  31.            argvBlk : BuildArgs.ArgPtr) : SHORTINT; 
  32.   (* Spawns another process, and waits for return result *)
  33.   (* Discards zero-th argument and concatenates the rest *)
  34.   (* to form a standard command string for Spawns.     *)
  35.   (* Arg-0 of command is comPath, others from argbBlk.   *)
  36.   (* Result is exit code of the spawned process         *)
  37.  
  38.   PROCEDURE System(command : ARRAY OF CHAR) : SHORTINT; 
  39.   (* Spawns another copy of the command processor as     *)
  40.   (* specified by the environment variable COMSPEC, this *)
  41.   (* executes the command. Returns non-zero on failure   *)
  42.  
  43.   PROCEDURE PSP() : ADDRESS;
  44.  
  45. END PcProcesses.
  46.