usr/src/usr.bin/f77/libU77/chmod_.c

/*-
 * Copyright (c) 1980 The Regents of the University of California.
 * All rights reserved.
 *
 * This module is believed to contain source code proprietary to AT&T.
 * Use and redistribution is subject to the Berkeley Software License
 * Agreement and your Software Agreement with AT&T (Western Electric).
 */

#ifndef lint
static char sccsid[] = "@(#)chmod_.c    5.2 (Berkeley) 4/12/91";
#endif /* not lint */

/*
 * chmod - change file mode bits
 *
 * synopsis:
 *      integer function chmod (fname, mode)
 *      character*(*) fname, mode
 */

#include "../libI77/f_errno.h"
#include <sys/param.h>
#ifndef MAXPATHLEN
#define MAXPATHLEN      128
#endif

long chmod_(name, mode, namlen, modlen)
char    *name, *mode;
long    namlen, modlen;
{
        char    nambuf[MAXPATHLEN];
        char    modbuf[32];
        int     retcode;

        if (namlen >= sizeof nambuf || modlen >= sizeof modbuf)
                return((long)(errno=F_ERARG));
        g_char(name, namlen, nambuf);
        g_char(mode, modlen, modbuf);
        if (nambuf[0] == '\0')
                return((long)(errno=ENOENT));
        if (modbuf[0] == '\0')
                return((long)(errno=F_ERARG));
        if (fork())
        {
                if (wait(&retcode) == -1)
                        return((long)errno);
                return((long)retcode);
        }
        else
                execl("/bin/chmod", "chmod", modbuf, nambuf, (char *)0);
}