steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

renaming c_stream_error to io_error

cvs
Slava Pestov 2005-05-01 18:30:53 +00:00
parent 9e2525982e
commit c15c1e3dd8
4 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
native/io.c
View File

@ -24,7 +24,7 @@ void init_c_io(void)
userenv[OUT_ENV] = tag_object(alien(stdout)); userenv[OUT_ENV] = tag_object(alien(stdout));
} }
void c_stream_error(void) void io_error(void)
{ {
CELL error = tag_object(from_c_string(strerror(errno))); CELL error = tag_object(from_c_string(strerror(errno)));
general_error(ERROR_IO,error); general_error(ERROR_IO,error);
@ -39,7 +39,7 @@ void primitive_fopen(void)
path = unbox_c_string(); path = unbox_c_string();
file = fopen(path,mode); file = fopen(path,mode);
if(file == NULL) if(file == NULL)
c_stream_error(); io_error();
box_alien(file); box_alien(file);
} }
@ -58,7 +58,7 @@ void primitive_fgets(void)
if(feof(file)) if(feof(file))
dpush(F); dpush(F);
else else
c_stream_error(); io_error();
} }
else else
dpush(tag_object(from_c_string(line))); dpush(tag_object(from_c_string(line)));
@ -74,7 +74,7 @@ void primitive_fwrite(void)
if(fwrite(to_c_string_unchecked(text),1, if(fwrite(to_c_string_unchecked(text),1,
untag_fixnum_fast(text->length), untag_fixnum_fast(text->length),
file) == 0) file) == 0)
c_stream_error(); io_error();
} }
void primitive_fflush(void) void primitive_fflush(void)

2
native/io.h
View File

@ -1,6 +1,6 @@
int factor_errno(void); int factor_errno(void);
void init_c_io(void); void init_c_io(void);
void c_stream_error(void); void io_error(void);
void primitive_fopen(void); void primitive_fopen(void);
void primitive_fwrite(void); void primitive_fwrite(void);
void primitive_fflush(void); void primitive_fflush(void);

2
native/unix/file.c
View File

@ -59,7 +59,7 @@ void primitive_cwd(void)
char wd[MAXPATHLEN]; char wd[MAXPATHLEN];
maybe_garbage_collection(); maybe_garbage_collection();
if(getcwd(wd,MAXPATHLEN) < 0) if(getcwd(wd,MAXPATHLEN) < 0)
c_stream_error(); io_error();
box_c_string(wd); box_c_string(wd);
} }

2
native/unix/signal.c
View File

@ -81,5 +81,5 @@ void primitive_call_profiling(F_WORD *word)
} }
if(setitimer(ITIMER_PROF,&prof_timer,NULL) < 0) if(setitimer(ITIMER_PROF,&prof_timer,NULL) < 0)
c_stream_error(); io_error();
} }