git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@5929 626c5289-ae23-0410-ae9c-e8d60b6d4f22
28 lines
369 B
OpenEdge ABL
28 lines
369 B
OpenEdge ABL
%module file_test
|
|
|
|
%include file.i
|
|
|
|
|
|
%inline
|
|
%{
|
|
int nfile(FILE *file) {
|
|
printf("hello %p\n", (void*)file);
|
|
if (file) {
|
|
// fprintf(file,"hello\n");
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
int nfile(const char *filename) {
|
|
FILE *file = fopen(filename,"w");
|
|
nfile(file);
|
|
fclose(file);
|
|
return 0;
|
|
}
|
|
|
|
FILE* GetStdOut() {
|
|
return stdout;
|
|
}
|
|
|
|
%}
|
|
|