7cfd507cee
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@6271 626c5289-ae23-0410-ae9c-e8d60b6d4f22
24 lines
279 B
OpenEdge ABL
24 lines
279 B
OpenEdge ABL
%module file_test
|
|
|
|
%include file.i
|
|
|
|
|
|
%inline
|
|
%{
|
|
int nfile(FILE *file) {
|
|
return 0;
|
|
}
|
|
|
|
int nfile_name(const char *filename) {
|
|
FILE *file = fopen(filename,"w");
|
|
nfile(file);
|
|
fclose(file);
|
|
return 0;
|
|
}
|
|
|
|
FILE* GetStdOut() {
|
|
return stdout;
|
|
}
|
|
|
|
%}
|
|
|