2 /* This provides a test of STDIO and emulates a library that
3 has been built outside of the PerlIO system and therefore is
4 built using FILE* rather than PerlIO * (a common occurrence
7 Use a separate file to make sure we are not contaminated by
13 /* Open a file for write */
14 FILE * xsfopen ( const char * path ) {
16 stream = fopen( path, "w");
20 int xsfclose ( FILE * stream ) {
21 return fclose( stream );
25 int xsfprintf ( FILE * stream, const char * text ) {
26 return fprintf( stream, text );