blob: feb805a98da8659a5075a9cff46bc3ce2bb4014f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
IMPLEMENTATION MODULE testcse50 ;
FROM SYSTEM IMPORT ADR ;
FROM libc IMPORT getenv ;
FROM ASCII IMPORT nul ;
FROM StrLib IMPORT StrCopy ;
PROCEDURE GetEnvironment (Env: ARRAY OF CHAR; VAR a: ARRAY OF CHAR) : BOOLEAN ;
VAR
High,
i : CARDINAL ;
Addr: POINTER TO CHAR ;
BEGIN
i := 0 ;
High := HIGH(a) ;
Addr := getenv(ADR(Env)) ;
WHILE (i<High) AND (Addr#NIL) AND (Addr^#nul) DO
a[i] := Addr^ ;
INC(Addr) ;
INC(i)
END ;
IF i<High
THEN
a[i] := nul
END ;
RETURN( Addr#NIL )
END GetEnvironment ;
VAR
a: ARRAY [0..10] OF CHAR ;
BEGIN
IF GetEnvironment('foobar', a)
THEN
END
END testcse50.
|
