Commit | Line | Data |
ea035a69 |
1 | |
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 |
5 | for XS). |
6 | |
7 | Use a separate file to make sure we are not contaminated by |
8 | PerlIO. |
9 | */ |
10 | |
11 | #include <stdio.h> |
12 | |
13 | /* Open a file for write */ |
14 | FILE * xsfopen ( const char * path ) { |
15 | FILE * stream; |
16 | stream = fopen( path, "w"); |
17 | return stream; |
18 | } |
19 | |
20 | int xsfclose ( FILE * stream ) { |
21 | return fclose( stream ); |
22 | } |
23 | |
24 | |
25 | int xsfprintf ( FILE * stream, const char * text ) { |
26 | return fprintf( stream, text ); |
27 | } |
28 | |