home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 549b.lha / M2P_v1.0_sources / source.lzh / Env.def < prev    next >
Encoding:
Modula Definition  |  1991-08-10  |  2.9 KB  |  54 lines
  1. (*======================================================================*)
  2. (*              Amiga Support Routines, Reading ENV: variables          *)
  3. (*======================================================================*)
  4. (*  Version:    1.00            Author:  Dennis Brueni                  *)
  5. (*  Date:       08-04-91        Changes: Original                       *)
  6. (*======================================================================*)
  7. (*  This module contains functions to aid in dealing with environment   *)
  8. (*  variables.                                                          *)
  9. (*======================================================================*)
  10.  
  11. DEFINITION MODULE Env;
  12.  
  13. (*----------------------------------------------------------------------*)
  14. (*  GETENV      Returns the string value of an environment variable     *)
  15. (*                                                                      *)
  16. (*  PARAMETERS  name:   The name of the environment variable            *)
  17. (*              value:  The value of e.v. 'name', empty on error        *)
  18. (*----------------------------------------------------------------------*)
  19.  
  20. PROCEDURE GetEnv(name: ARRAY OF CHAR; VAR value: ARRAY OF CHAR);
  21.  
  22. (*----------------------------------------------------------------------*)
  23. (*  SETENV      Sets the value of an environment variable               *)
  24. (*                                                                      *)
  25. (*  PARAMETERS  name:   The name of the environment variable            *)
  26. (*              value:  The value to set e.v. 'name' to.                *)
  27. (*----------------------------------------------------------------------*)
  28.  
  29. PROCEDURE SetEnv(name: ARRAY OF CHAR; value: ARRAY OF CHAR);
  30.  
  31. (*----------------------------------------------------------------------*)
  32. (*  PUTENV      Sets the value a environment variable                   *)
  33. (*                                                                      *)
  34. (*  PARAMETER   str:   Is in form "variable=value", calls setenv()      *)
  35. (*----------------------------------------------------------------------*)
  36.  
  37. PROCEDURE PutEnv(str: ARRAY OF CHAR);
  38.  
  39. (*----------------------------------------------------------------------*)
  40. (*  PARSEENV    Gets the next parsed entry in an environment variable   *)
  41. (*                                                                      *)
  42. (*  PARAMETERS  str:   String from getenv (the value of an e.v.)        *)
  43. (*              next:  The next entry in str, empty on error            *)
  44. (*                                                                      *)
  45. (*  RETURNS     TRUE if next if valid, FALSE otherwise                  *)
  46. (*                                                                      *)
  47. (*  SIDE EFFECT This is destructive to str.                             *)
  48. (*----------------------------------------------------------------------*)
  49.  
  50. PROCEDURE ParseEnv(VAR str: ARRAY OF CHAR; VAR next: ARRAY OF CHAR):BOOLEAN;
  51.  
  52.  
  53. END Env.
  54.