char id_chmod[] = "@(#)chmod_.c 1.2";
* chmod - change file mode bits
* integer function chmod (fname, mode)
* character*(*) fname, mode
#include "../libI77/f_errno.h"
long chmod_(name
, mode
, namlen
, modlen
)
if (namlen
>= sizeof nambuf
|| modlen
>= sizeof modbuf
)
return((long)(errno
=F_ERARG
));
g_char(name
, namlen
, nambuf
);
g_char(mode
, modlen
, modbuf
);
return((long)(errno
=ENOENT
));
return((long)(errno
=F_ERARG
));
if (wait(&retcode
) == -1)
execl("/bin/chmod", "chmod", modbuf
, nambuf
, (char *)0);