1*46439007SCharles.ForsythEnv: module { 2*46439007SCharles.Forsyth getenv: fn(var: string): string; # returns nil if var not set 3*46439007SCharles.Forsyth setenv: fn(var: string, val: string): int; # returns -1 on failure 4*46439007SCharles.Forsyth getall: fn(): list of (string, string); 5*46439007SCharles.Forsyth 6*46439007SCharles.Forsyth clone: fn(): int; # forks a copy of the environment, returns -1 on failure 7*46439007SCharles.Forsyth new: fn(): int; # sets up new empty environment, returns -1 on failure 8*46439007SCharles.Forsyth 9*46439007SCharles.Forsyth PATH: con "/dis/lib/env.dis"; 10*46439007SCharles.Forsyth}; 11