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