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 */
14FILE * xsfopen ( const char * path ) {
15  FILE * stream;
16  stream = fopen( path, "w");
17  return stream;
18}
19
20int xsfclose ( FILE * stream ) {
21  return fclose( stream );
22}
23
24
25int xsfprintf ( FILE * stream, const char * text ) {
26  return fprintf( stream, text );
27}
28
29