Web   ·   Wiki   ·   Activities   ·   Blog   ·   Lists   ·   Chat   ·   Meeting   ·   Bugs   ·   Git   ·   Translate   ·   Archive   ·   People   ·   Donate
summaryrefslogtreecommitdiffstats
path: root/pdf/goo/vms_unlink.c
diff options
context:
space:
mode:
Diffstat (limited to 'pdf/goo/vms_unlink.c')
-rw-r--r--pdf/goo/vms_unlink.c22
1 files changed, 0 insertions, 22 deletions
diff --git a/pdf/goo/vms_unlink.c b/pdf/goo/vms_unlink.c
deleted file mode 100644
index e2cf687..0000000
--- a/pdf/goo/vms_unlink.c
+++ /dev/null
@@ -1,22 +0,0 @@
-/*
- * vms_unlink.c
- *
- * A UNIX-style unlink() function for VMS.
- *
- * Thanks to Patrick Moreau (pmoreau@cena.dgac.fr).
- */
-
-#include <descrip.h>
-#include <string.h>
-#include <lib$routines.h>
-
-int unlink(char *filename) {
- static struct dsc$descriptor_s file_desc;
-
- file_desc.dsc$w_length = strlen(filename);
- file_desc.dsc$b_dtype = DSC$K_DTYPE_T;
- file_desc.dsc$b_class = DSC$K_CLASS_S;
- file_desc.dsc$a_pointer= filename;
-
- return (lib$delete_file(&file_desc));
-}