c_src/file_nit.c

   1 /* This file is part of NIT ( http://www.nitlanguage.org ).
   2  *
   3  * Copyright 2004-2008 Jean Privat <jean@pryen.org>
   4  * Copyright 2008 Floréal Morandat <morandat@lirmm.fr>
   5  * Copyright 2008 Jean-Sébastien Gélinas <calestar@gmail.com>
   6  *
   7  * This file is free software, which comes along with NIT.  This software is
   8  * distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;
   9  * without  even  the implied warranty of  MERCHANTABILITY or  FITNESS FOR A
  10  * PARTICULAR PURPOSE.  You can modify it is you want,  provided this header
  11  * is kept unaltered, and a notification of the changes is added.
  12  * You  are  allowed  to  redistribute it and sell it, alone or is a part of
  13  * another product.
  14  */
  15
  16 #define _POSIX_C_SOURCE 1
  17 #include <stdlib.h>
  18 #include <stdio.h>
  19 #include <sys/stat.h>
  20 #include <unistd.h>
  21 #include <sys/types.h>
  22 #include <string.h>
  23
  24 int string_NativeString_NativeString_file_exists_0(char *f){
  25         FILE *hdl = fopen(f,"r");
  26         if(hdl != NULL){
  27                 fclose(hdl);
  28         }
  29         return hdl != NULL;
  30 }
  31
  32 void *to_nit_file_stat(struct stat* st){
  33         struct stat* stat_element;
  34         stat_element = malloc(sizeof(struct stat));
  35         return memcpy(stat_element, st, sizeof(struct stat));
  36 }
  37
  38 void *string_NativeString_NativeString_file_stat_0(char *f){
  39         struct stat buff;
  40         if(stat(f, &buff) != -1)
  41                 return to_nit_file_stat(&buff);
  42         return 0;
  43 }
  44
  45 void *file_NativeFile_NativeFile_file_stat_0(FILE *f){
  46         struct stat buff;
  47         if(fstat(fileno(f), &buff) != -1)
  48                 return to_nit_file_stat(&buff);
  49         return 0;
  50 }
  51
  52 extern int string_NativeString_NativeString_file_delete_0(char *f){
  53   return (remove(f) == 0);
  54 }