| ... |
... |
@@ -2409,43 +2409,15 @@ |
|
2409
|
2409
|
(password "" :type string)
|
|
2410
|
2410
|
(uid 0 :type unix-uid)
|
|
2411
|
2411
|
(gid 0 :type unix-gid)
|
|
2412
|
|
- #+solaris (age "" :type string)
|
|
2413
|
|
- #+solaris (comment "" :type string)
|
|
2414
|
|
- #+freebsd (change -1 :type fixnum)
|
|
2415
|
2412
|
(gecos "" :type string)
|
|
2416
|
2413
|
(dir "" :type string)
|
|
2417
|
2414
|
(shell "" :type string))
|
|
2418
|
2415
|
|
|
2419
|
|
-;; see <pwd.h>
|
|
2420
|
|
-#+solaris
|
|
2421
|
|
-(def-alien-type nil
|
|
2422
|
|
- (struct passwd
|
|
2423
|
|
- (pw-name (* char)) ; user's login name
|
|
2424
|
|
- (pw-passwd (* char)) ; no longer used
|
|
2425
|
|
- (pw-uid uid-t) ; user id
|
|
2426
|
|
- (pw-gid gid-t) ; group id
|
|
2427
|
|
- (pw-age (* char)) ; password age (not used)
|
|
2428
|
|
- (pw-comment (* char)) ; not used
|
|
2429
|
|
- (pw-gecos (* char)) ; typically user's full name
|
|
2430
|
|
- (pw-dir (* char)) ; user's home directory
|
|
2431
|
|
- (pw-shell (* char)))) ; user's login shell
|
|
|
2416
|
+;; See <pwd.h>
|
|
|
2417
|
+;;
|
|
|
2418
|
+;; While each OS may contain additional fields, we only need the ones
|
|
|
2419
|
+;; that are used the user-info structure.
|
|
2432
|
2420
|
|
|
2433
|
|
-#+bsd
|
|
2434
|
|
-(def-alien-type nil
|
|
2435
|
|
- (struct passwd
|
|
2436
|
|
- (pw-name (* char)) ; user's login name
|
|
2437
|
|
- (pw-passwd (* char)) ; no longer used
|
|
2438
|
|
- (pw-uid uid-t) ; user id
|
|
2439
|
|
- (pw-gid gid-t) ; group id
|
|
2440
|
|
- (pw-change int) ; password change time
|
|
2441
|
|
- (pw-class (* char)) ; user access class
|
|
2442
|
|
- (pw-gecos (* char)) ; typically user's full name
|
|
2443
|
|
- (pw-dir (* char)) ; user's home directory
|
|
2444
|
|
- (pw-shell (* char)) ; user's login shell
|
|
2445
|
|
- (pw-expire int) ; account expiration
|
|
2446
|
|
- #+(or freebsd darwin)
|
|
2447
|
|
- (pw-fields int))) ; internal
|
|
2448
|
|
-#+linux
|
|
2449
|
2421
|
(def-alien-type nil
|
|
2450
|
2422
|
(struct passwd
|
|
2451
|
2423
|
(pw-name (* char)) ; user's login name
|