новые иконки в OpenBoard
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
OpenBoard/thirdparty/xpdf/xpdf-3.02/goo/vms_unlink.c

23 lines
476 B

/*
* 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));
}