date and time created 81/02/19 10:55:13 by dlw

SCCS-vsn: usr.bin/f77/libU77/unlink_.c 1.1

diff --git a/usr/src/usr.bin/f77/libU77/unlink_.c b/usr/src/usr.bin/f77/libU77/unlink_.c
new file mode 100644 (file)
index 0000000..2cba1fd
--- /dev/null
+++ b/usr/src/usr.bin/f77/libU77/unlink_.c
@@ -0,0 +1,29 @@
+/*
+char id_unlink[] = "@(#)unlink_.c      1.1";
+ *
+ * unlink (remove) a file
+ *
+ * calling sequence:
+ *     integer unlink
+ *     ierror = unlink(filename)
+ * where:
+ *     ierror will be a returned status (0 == OK)
+ *     filename is the file to be unlinked
+ */
+
+#include "../libI77/f_errno.h"
+
+long
+unlink_(fname, namlen)
+char *fname;
+long namlen;
+{
+       char buf[128];
+
+       if (namlen >= sizeof buf)
+               return((long)(errno=F_ERARG));
+       g_char(fname, namlen, buf);
+       if (unlink(buf) != 0)
+               return((long)errno);
+       return(0L);
+}