Raymond Toy pushed to branch issue-393-os-common-getpwuid at cmucl / cmucl Commits: 9b97ce25 by Raymond Toy at 2025-03-28T14:10:23-07:00 Put back struct passwd definitions We put back the OS definitions into the contrib files since we've deleted that from code/unix.lisp. This allows these files to be compiled once again. - - - - - 2 changed files: - src/contrib/unix/unix-glibc2.lisp - src/contrib/unix/unix.lisp Changes: ===================================== src/contrib/unix/unix-glibc2.lisp ===================================== @@ -219,6 +219,16 @@ (gr-gid gid-t) ; numerical group ID (gr-mem (* (* char))))) ; vector of pointers to member names +(def-alien-type nil + (struct passwd + (pw-name (* char)) ; user's login name + (pw-passwd (* char)) ; no longer used + (pw-uid uid-t) ; user id + (pw-gid gid-t) ; group id + (pw-gecos (* char)) ; typically user's full name + (pw-dir (* char)) ; user's home directory + (pw-shell (* char)))) ; user's login shell + ;;; From stdio.h ;;; From sys/types.h ===================================== src/contrib/unix/unix.lisp ===================================== @@ -629,6 +629,35 @@ ;;;; User and group database access, POSIX Standard 9.2.2 +;; see <pwd.h> +#+solaris +(def-alien-type nil + (struct passwd + (pw-name (* char)) ; user's login name + (pw-passwd (* char)) ; no longer used + (pw-uid uid-t) ; user id + (pw-gid gid-t) ; group id + (pw-age (* char)) ; password age (not used) + (pw-comment (* char)) ; not used + (pw-gecos (* char)) ; typically user's full name + (pw-dir (* char)) ; user's home directory + (pw-shell (* char)))) ; user's login shell + +#+bsd +(def-alien-type nil + (struct passwd + (pw-name (* char)) ; user's login name + (pw-passwd (* char)) ; no longer used + (pw-uid uid-t) ; user id + (pw-gid gid-t) ; group id + (pw-change int) ; password change time + (pw-class (* char)) ; user access class + (pw-gecos (* char)) ; typically user's full name + (pw-dir (* char)) ; user's home directory + (pw-shell (* char)) ; user's login shell + (pw-expire int) ; account expiration + #+(or freebsd darwin) + (pw-fields int))) ; internal #+solaris (defun unix-getpwnam (login) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/9b97ce25a0a30d620136c75d... -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/9b97ce25a0a30d620136c75d... You're receiving this email because of your account on gitlab.common-lisp.net.