home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / xc212os2.zip / DEF / progenv.def < prev    next >
Text File  |  1994-12-22  |  923b  |  30 lines
  1. (* Copyright (c) 1994 xTech Ltd, Russia. All Rights Reserved. *)
  2. (* Program Environment *)
  3. DEFINITION MODULE ProgEnv; (* Ned 12-Feb-94. *)
  4.  
  5. PROCEDURE ArgNumber(): CARDINAL;
  6. (* Returns number of argument (0 if no arguments). *)
  7.  
  8. PROCEDURE GetArg(n: CARDINAL; VAR arg: ARRAY OF CHAR);
  9. (* Copies n-th argument to "arg", or empty string
  10.   if n>=ArgNumber().
  11. *)
  12.  
  13. PROCEDURE ArgLength(n: CARDINAL): CARDINAL;
  14. (* Returns lenght of n-th argument (0 if n>=ArgNumber()). *)
  15.  
  16. PROCEDURE ProgramName(VAR name: ARRAY OF CHAR);
  17. (* Copies a program name to "name". *)
  18.  
  19. PROCEDURE ProgramNameLength(): CARDINAL;
  20. (* Returns length of program name. *)
  21.  
  22. PROCEDURE String(name: ARRAY OF CHAR;
  23.               VAR str: ARRAY OF CHAR);
  24. (* Copies a value of environment variable "name" to "str". *)
  25.  
  26. PROCEDURE StringLength(name: ARRAY OF CHAR): CARDINAL;
  27. (* Returns length of environment variable "name". *)
  28.  
  29. END ProgEnv.
  30.