lang/m2/test/getenv.mod

   1 MODULE PrEnv;
   2 FROM InOut IMPORT WriteString, WriteLn, ReadString, Done;
   3 FROM Arguments IMPORT GetEnv, Argv, Argc;
   4 VAR  Buf: ARRAY[1..256] OF CHAR;
   5      i: INTEGER;
   6 BEGIN
   7         FOR i := 0 TO INTEGER(Argc) - 1 DO
   8                 IF Argv(i, Buf) > SIZE(Buf) THEN
   9                         WriteString("Argument too long");
  10                         WriteLn;
  11                         HALT;
  12                 END;
  13                 WriteString(Buf);
  14                 WriteString(" ");
  15         END;
  16         WriteLn;
  17         LOOP
  18                 WriteString("Environment name: ");
  19                 ReadString(Buf);
  20                 IF NOT Done THEN EXIT; END;
  21                 IF GetEnv(Buf, Buf) = 0 THEN
  22                         WriteString("No environment variable");
  23                 ELSE
  24                         WriteString(Buf);
  25                 END;
  26                 WriteLn;
  27         END;
  28         WriteLn;
  29 END PrEnv.