|
|
1.1 ! root 1: /* ! 2: * Copyright (c) 1980 Regents of the University of California. ! 3: * All rights reserved. The Berkeley software License Agreement ! 4: * specifies the terms and conditions for redistribution. ! 5: * ! 6: * @(#)unlink_.c 5.1 6/7/85 ! 7: */ ! 8: ! 9: /* ! 10: * unlink (remove) a file ! 11: * ! 12: * calling sequence: ! 13: * integer unlink ! 14: * ierror = unlink(filename) ! 15: * where: ! 16: * ierror will be a returned status (0 == OK) ! 17: * filename is the file to be unlinked ! 18: */ ! 19: ! 20: #include "../libI77/f_errno.h" ! 21: #include <sys/param.h> ! 22: #ifndef MAXPATHLEN ! 23: #define MAXPATHLEN 128 ! 24: #endif ! 25: ! 26: long ! 27: unlink_(fname, namlen) ! 28: char *fname; ! 29: long namlen; ! 30: { ! 31: char buf[MAXPATHLEN]; ! 32: ! 33: if (namlen >= sizeof buf) ! 34: return((long)(errno=F_ERARG)); ! 35: g_char(fname, namlen, buf); ! 36: if (unlink(buf) != 0) ! 37: return((long)errno); ! 38: return(0L); ! 39: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.