#define set_local_visible B_stlocvis
#define symbol_definition B_symdef
#define switchseg B_switchseg
-
-extern File *codefile;
+#define not_implemented B_not_implemented
extern char *extnd_name(), *extnd_dnam(), *extnd_dlb(), *extnd_ilb(),
*extnd_hol(), *extnd_ext(), *extnd_pro(), *extnd_start(),
#define SEGHOL -1 /* Does not exist */
#define ABSOLUTE 1
+
+#define fprint fprintf
+#define sprint sprintf
+#define print printf
+#undef STDOUT
+#define STDOUT stdout
+#undef STDERR
+#define STDERR stderr
+#undef STDIN
+#define STDIN stdin
+#undef File
+#define File FILE
+#define sys_close fclose
+#include <stdio.h>
+
+extern File *codefile;
if ( filename == (char *) 0)
codefile= STDOUT;
else
+#ifndef sys_close
return( sys_open( filename, OP_WRITE, &codefile));
+#else
+ return (codefile = fopen(filename, "w")) != NULL;
+#endif
return 1;
}