|
|
1.1 ! root 1: PasswordLookup : PROGRAM = ! 2: ! 3: BEGIN ! 4: ! 5: -- This is a translation of the passwd structure in <pwd.h> ! 6: ! 7: Passwd : TYPE = RECORD [ ! 8: pw_name, pw_passwd : STRING, ! 9: pw_uid, pw_gid, pw_quota : LONG CARDINAL, ! 10: pw_comment, pw_gecos, pw_dir, pw_shell : STRING ! 11: ]; ! 12: ! 13: -- Remote entry points. ! 14: ! 15: LookupUser : PROCEDURE [user : STRING] RETURNS [passwd : Passwd] ! 16: = 0; ! 17: ! 18: LookupUid : PROCEDURE [uid : CARDINAL] RETURNS [passwd : Passwd] ! 19: = 1; ! 20: END.
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.