1 /* This file is part of NIT ( http://www.nitlanguage.org ).
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>
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
20 #include <sys/types.h>
27 int string_NativeString_NativeString_file_exists_0(char *f
){
28 FILE *hdl
= fopen(f
,"r");
35 void *to_nit_file_stat(struct stat
* st
){
36 struct stat
* stat_element
;
37 stat_element
= malloc(sizeof(struct stat
));
38 return memcpy(stat_element
, st
, sizeof(struct stat
));
41 void *string_NativeString_NativeString_file_stat_0(char *f
){
43 if(stat(f
, &buff
) != -1)
44 return to_nit_file_stat(&buff
);
48 void *file_NativeFile_NativeFile_file_stat_0(FILE *f
){
50 if(fstat(fileno(f
), &buff
) != -1)
51 return to_nit_file_stat(&buff
);
55 extern int string_NativeString_NativeString_file_delete_0(char *f
){
56 return (remove(f
) == 0);
59 int file_stdin_poll_in_(void) {
60 struct pollfd fd
= {0, POLLIN
, 0};
61 int res
= poll(&fd
, 1, 0);
63 perror("Error poll stdin");