4 * A UNIX-style unlink() function for VMS.
6 * Thanks to Patrick Moreau (pmoreau@cena.dgac.fr).
11 #include <lib$routines.h>
13 int unlink(char *filename) {
14 static struct dsc$descriptor_s file_desc;
16 file_desc.dsc$w_length = strlen(filename);
17 file_desc.dsc$b_dtype = DSC$K_DTYPE_T;
18 file_desc.dsc$b_class = DSC$K_CLASS_S;
19 file_desc.dsc$a_pointer= filename;
21 return (lib$delete_file(&file_desc));