1234567891011121314151617181920212223242526272829 |
- MODULE PrEnv;
- FROM InOut IMPORT WriteString, WriteLn, ReadString, Done;
- FROM Arguments IMPORT GetEnv, Argv, Argc;
- VAR Buf: ARRAY[1..256] OF CHAR;
- i: INTEGER;
- BEGIN
- FOR i := 0 TO INTEGER(Argc) - 1 DO
- IF Argv(i, Buf) > SIZE(Buf) THEN
- WriteString("Argument too long");
- WriteLn;
- HALT;
- END;
- WriteString(Buf);
- WriteString(" ");
- END;
- WriteLn;
- LOOP
- WriteString("Environment name: ");
- ReadString(Buf);
- IF NOT Done THEN EXIT; END;
- IF GetEnv(Buf, Buf) = 0 THEN
- WriteString("No environment variable");
- ELSE
- WriteString(Buf);
- END;
- WriteLn;
- END;
- WriteLn;
- END PrEnv.
|