pdf/goo/vms_unlink.c

   1 /*
   2  * vms_unlink.c
   3  *
   4  * A UNIX-style unlink() function for VMS.
   5  *
   6  * Thanks to Patrick Moreau (pmoreau@cena.dgac.fr).
   7  */
   8
   9 #include <descrip.h>
  10 #include <string.h>
  11 #include <lib$routines.h>
  12
  13 int unlink(char *filename) {
  14   static struct dsc$descriptor_s file_desc;
  15
  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;
  20
  21   return (lib$delete_file(&file_desc));
  22 }