1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
/* This provides a test of STDIO and emulates a library that
has been built outside of the PerlIO system and therefore is
built using FILE* rather than PerlIO * (a common occurrence
for XS).
Use a separate file to make sure we are not contaminated by
PerlIO.
*/
#include <stdio.h>
/* Open a file for write */
FILE * xsfopen ( const char * path ) {
FILE * stream;
stream = fopen( path, "w");
return stream;
}
int xsfclose ( FILE * stream ) {
return fclose( stream );
}
int xsfprintf ( FILE * stream, const char * text ) {
return fprintf( stream, "%s", text );
}
|
