12533Sdlw /* 2*12151Sdlw char id_unlink[] = "@(#)unlink_.c 1.2"; 32533Sdlw * 42533Sdlw * unlink (remove) a file 52533Sdlw * 62533Sdlw * calling sequence: 72533Sdlw * integer unlink 82533Sdlw * ierror = unlink(filename) 92533Sdlw * where: 102533Sdlw * ierror will be a returned status (0 == OK) 112533Sdlw * filename is the file to be unlinked 122533Sdlw */ 132533Sdlw 142533Sdlw #include "../libI77/f_errno.h" 15*12151Sdlw #include <sys/param.h> 16*12151Sdlw #ifndef MAXPATHLEN 17*12151Sdlw #define MAXPATHLEN 128 18*12151Sdlw #endif 192533Sdlw 202533Sdlw long 212533Sdlw unlink_(fname, namlen) 222533Sdlw char *fname; 232533Sdlw long namlen; 242533Sdlw { 25*12151Sdlw char buf[MAXPATHLEN]; 262533Sdlw 272533Sdlw if (namlen >= sizeof buf) 282533Sdlw return((long)(errno=F_ERARG)); 292533Sdlw g_char(fname, namlen, buf); 302533Sdlw if (unlink(buf) != 0) 312533Sdlw return((long)errno); 322533Sdlw return(0L); 332533Sdlw } 34