work/bootstrap/gec17.c
EIF_POINTER eif_file_binary_reopen(EIF_FILENAME name, int how, FILE* old) {
	FILE *fp;
	errno = 0;
#ifdef EIF_WINDOWS
		fp = (FILE *)rt_file_freopen(name, rt_file_open_mode(how,'b'), old);
#else
		fp = (FILE *)rt_file_freopen(name, rt_file_open_mode(how,'\0'), old);
#endif
	if (fp == (FILE *)0) {
		esys(); /* Open failed, raise exception */
	}
	return (EIF_POINTER)fp;
}
/*
 * Reopen file `name' with the corresponding type `how' and substitute that
 * to the old stream described by `old'. This is useful to redirect 'stdout'
 * to another place, for instance.
 */
Reopen file `name' with the corresponding type `how' and substitute that
to the old stream described by `old'. This is useful to redirect 'stdout'
to another place, for instance.
Reopen file ` name ' with the corresponding type ` how ' and substitute that to the old stream described by ` old ' . This is useful to redirect ' stdout ' to another place for instance .
EIF_POINTER eif_file_binary_reopen(EIF_FILENAME name, int how, FILE* old) {
	FILE *fp;
	errno = 0;
#ifdef EIF_WINDOWS
		fp = (FILE *)rt_file_freopen(name, rt_file_open_mode(how,'b'), old);
#else
		fp = (FILE *)rt_file_freopen(name, rt_file_open_mode(how,'\0'), old);
#endif
	if (fp == (FILE *)0) {
		esys(); 
	}
	return (EIF_POINTER)fp;
}
EIF_POINTER eif_file_binary_reopen ( EIF_FILENAME name , int how , FILE * old ) { FILE * fp ; errno = 0 ; #ifdef EIF_WINDOWS fp = ( FILE * ) rt_file_freopen ( name , rt_file_open_mode ( how , ' ' ) , old ) ; #else fp = ( FILE * ) rt_file_freopen ( name , rt_file_open_mode ( how , ' \0 ' ) , old ) ; #endif if ( fp == ( FILE * ) 0 ) { esys ( ) ; } return ( EIF_POINTER ) fp ; }
Reopen file `name' with the corresponding type `how' and substitute that
 to the old stream described by `old'.
Reopen file ` name ' with the corresponding type ` how ' and substitute that to the old stream described by ` old ' .
/* Open failed, raise exception */