GitLab

at 2025-03-28T13:39:34-07:00

Rename unix-passwd to os-unix-info

Also update comments in unix.lisp about os-unix-info to match what it
really is.

   (dir "" :type string)

   (shell "" :type string))

-;; See <pwd.h>

-;;

-;; While each OS may contain additional fields, we only need the ones

-;; that are used the user-info structure.

-;;

-;; NOTE: This may NOT be the actual OS-defined passwd structure.  It

-;; is the structure returned by os_getpwuid (in unix-getpwuid).

-

+;; The C structure that is returned by os_getpwuid containing the info

+;; that we use to fill the user-info object.

 (def-alien-type nil

-    (struct unix-passwd

+    (struct os-unix-info

 	    (pw-name (* char))          ; user's login name

 	    (pw-passwd (* char))        ; no longer used

 	    (pw-uid uid-t)              ; user id

 /*

  * This MUST match the definition in code/unix.lisp.

  */

-struct unix_passwd 

+struct os_user_info

 {

     char* pw_name;

     char* pw_passwd;

     char* pw_shell;

 };

-struct unix_passwd*

+struct os_user_info*

 os_getpwuid(uid_t uid)

 {

     char initial[1024];

     size_t size;

     struct passwd pwd;

     struct passwd *ppwd;

-    struct unix_passwd *result = NULL;

+    struct os_user_info *result = NULL;

     buffer = initial;

     obuffer = NULL;

 	   * that.

 	   */

 	  if (ppwd != NULL) {

-	      result = (struct unix_passwd*) malloc(sizeof(pwd));

+	      result = (struct os_user_info*) malloc(sizeof(*result));

 	      result->pw_name = strdup(pwd.pw_name);

 	      result->pw_passwd = strdup(pwd.pw_passwd);

 	      result->pw_uid = pwd.pw_uid;

  * os_getpwuid().

  */

 void

-os_free_getpwuid(struct passwd* pwd)

+os_free_getpwuid(struct os_user_info* pwd)

 {

     free(pwd->pw_name);

     free(pwd->pw_passwd);

Raymond Toy pushed to branch issue-393-os-common-getpwuid at cmucl / cmucl

Commits:

2 changed files:

Changes: