swig/SWIG/Examples/guile/port/port.c
Matthias Köppe b992240b6f [Guile] New example.
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@872 626c5289-ae23-0410-ae9c-e8d60b6d4f22
2000-09-21 21:03:32 +00:00

18 lines
298 B
C

#include <stdio.h>
#include <errno.h>
void print_int(FILE *f, int i)
{
if (fprintf(f, "%d\n", i)<0)
perror("print_int");
}
int read_int(FILE *f)
{
int i;
if (fscanf(f, "%d", &i)!=1) {
fprintf(stderr, "read_int: error reading from file\n");
perror("read_int");
}
return i;
}