home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 110 / EnigmaAmiga110CD.iso / indispensabili / utility / apdf / xpdf-0.80 / goo / vms_unlink.c < prev   
C/C++ Source or Header  |  1998-11-27  |  476b  |  23 lines
  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. }
  23.