getenv.mod 601 B

1234567891011121314151617181920212223242526272829
  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.