Return to homedir.c CVS log

Up to [Research Unix] / researchv9 / cmd / emacs

Annotation of researchv9/cmd/emacs/homedir.c, revision 1.1

1.1     ! root        1: #include <stdio.h>
        !             2: #include "stdefs.h"
        !             3: #include <pwd.h>
        !             4: 
        !             5: /* @(#)homedir.c       1.1     11/25/80 07:41:35
        !             6:  * Get home directory of designated user.
        !             7:  * If this program is compiled with the option "-DMAIN", then it will
        !             8:  * produce a main program that prints the result on standard output.
        !             9:  * otherwise it will produce a C-callable subroutine that returns a pointer
        !            10:  * to a static area containing the result.
        !            11:  * In either case, the user name is the argument to the procedure.
        !            12:  * J. Leth, IH 6E-318, x6133.
        !            13:  */
        !            14: 
        !            15: /* Functions: */
        !            16: extern struct passwd * getpwnam();
        !            17: 
        !            18: #ifndef MAIN
        !            19: char *
        !            20: homedir(user)
        !            21:        char *user;     /* user login name */
        !            22: {
        !            23: 
        !            24: #else
        !            25: main(argc, argv)
        !            26:        int argc;
        !            27:        char *argv[];
        !            28: {
        !            29:        char *user;
        !            30: #endif
        !            31: 
        !            32:        struct passwd *pwentry;
        !            33: 
        !            34: #ifdef MAIN
        !            35:        if (argc != 2) {
        !            36:                usage("Usage:\thomedir user\n\
        !            37:        Prints home directory (login dir.) of the designated user.\n");
        !            38:        }
        !            39:        user = argv[1];
        !            40: #endif
        !            41: 
        !            42:        if((pwentry = getpwnam(user)) == NULL) {
        !            43:                errexit("homedir: user '%s' unknown.\n", user);
        !            44:        }
        !            45: 
        !            46: #ifdef MAIN
        !            47:        puts(pwentry->pw_dir);
        !            48: #else
        !            49:        return(pwentry->pw_dir);
        !            50: #endif
        !            51: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.