ref: 0a5f81a44230cbd562b6d71a0a5be018e24a5ba6
dir: /sys/src/ape/cmd/pax/port.c/
/* $Source: /u/mark/src/pax/RCS/port.c,v $ * * $Revision: 1.2 $ * * port.c - These are routines not available in all environments. * * DESCRIPTION * * The routines contained in this file are provided for portability to * other versions of UNIX or other operating systems (e.g. MSDOS). * Not all systems have the same functions or the same semantics, * these routines attempt to bridge the gap as much as possible. * * AUTHOR * * Mark H. Colburn, NAPS International ([email protected]) * John Gilmore (gnu@hoptoad) * * Sponsored by The USENIX Association for public distribution. * * Copyright (c) 1989 Mark H. Colburn. * All rights reserved. * * Redistribution and use in source and binary forms are permitted * provided that the above copyright notice is duplicated in all such * forms and that any documentation, advertising materials, and other * materials related to such distribution and use acknowledge that the * software was developed * by Mark H. Colburn and sponsored by The * USENIX Association. * * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. * * $Log: port.c,v $ * Revision 1.2 89/02/12 10:05:35 mark * 1.2 release fixes * * Revision 1.1 88/12/23 18:02:29 mark * Initial revision * */ #ifndef lint static char *ident = "$Id: port.c,v 1.2 89/02/12 10:05:35 mark Exp $"; static char *copyright = "Copyright (c) 1989 Mark H. Colburn.\nAll rights reserved.\n"; #endif /* ! lint */ /* Headers */ #include "pax.h" /* * Some computers are not so crass as to align themselves into the BSD or USG * camps. If a system supplies all of the routines we fake here, add it to * the list in the #if !defined()'s below and it'll all be skipped. */ #if !defined(mc300) && !defined(mc500) && !defined(mc700) && !defined(BSD) && !defined(_POSIX_SOURCE) /* mkdir - make a directory * * DESCRIPTION * * Mkdir will make a directory of the name "dpath" with a mode of * "dmode". This is consistent with the BSD mkdir() function and the * P1003.1 definitions of MKDIR. * * PARAMETERS * * dpath - name of directory to create * dmode - mode of the directory * * RETURNS * * Returns 0 if the directory was successfully created, otherwise a * non-zero return value will be passed back to the calling function * and the value of errno should reflect the error. */ #ifdef __STDC__ int mkdir(char *dpath, int dmode) #else int mkdir(dpath, dmode) char *dpath; int dmode; #endif { int cpid, status; Stat statbuf; extern int errno; if (STAT(dpath, &statbuf) == 0) { errno = EEXIST; /* Stat worked, so it already exists */ return (-1); } /* If stat fails for a reason other than non-existence, return error */ if (errno != ENOENT) return (-1); switch (cpid = fork()) { case -1: /* Error in fork() */ return (-1); /* Errno is set already */ case 0: /* Child process */ status = umask(0); /* Get current umask */ status = umask(status | (0777 & ~dmode)); /* Set for mkdir */ execl("/bin/mkdir", "mkdir", dpath, (char *) 0); _exit(-1); /* Can't exec /bin/mkdir */ default: /* Parent process */ while (cpid != wait(&status)) { /* Wait for child to finish */ } } if (TERM_SIGNAL(status) != 0 || TERM_VALUE(status) != 0) { errno = EIO; /* We don't know why, but */ return (-1); /* /bin/mkdir failed */ } return (0); } /* rmdir - remove a directory * * DESCRIPTION * * Rmdir will remove the directory specified by "dpath". It is * consistent with the BSD and POSIX rmdir functions. * * PARAMETERS * * dpath - name of directory to remove * * RETURNS * * Returns 0 if the directory was successfully deleted, otherwise a * non-zero return value will be passed back to the calling function * and the value of errno should reflect the error. */ #ifdef __STDC__ int rmdir(char *dpath) #else int rmdir(dpath) char *dpath; #endif { int cpid, status; Stat statbuf; extern int errno; /* check to see if it exists */ if (STAT(dpath, &statbuf) == -1) { return (-1); } switch (cpid = fork()) { case -1: /* Error in fork() */ return (-1); /* Errno is set already */ case 0: /* Child process */ execl("/bin/rmdir", "rmdir", dpath, (char *) 0); _exit(-1); /* Can't exec /bin/rmdir */ default: /* Parent process */ while (cpid != wait(&status)) { /* Wait for child to finish */ } } if (TERM_SIGNAL(status) != 0 || TERM_VALUE(status) != 0) { errno = EIO; /* We don't know why, but */ return (-1); /* /bin/rmdir failed */ } return (0); } #endif /* MASSCOMP, BSD */