/* 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 */
           1    FILE * xsfopen ( const char * path ) {
           1      FILE * stream;
           1      stream = fopen( path, "w");
           1      return stream;
		}
		
           1    int xsfclose ( FILE * stream ) {
           1      return fclose( stream );
		}
		
		
           1    int xsfprintf ( FILE * stream, const char * text ) {
           1      return fprintf( stream, text );
		}