ack/mach/vax4/ce/do_open.c

#include <system.h>

File *_out_file;

open_back( filename)
char *filename;
{
	if ( filename == (char *) '\0')
		return( 0);
	else
		return( sys_open( filename, OP_WRITE, &_out_file));
}
Initial revision 1988-09-15 09:49:22 +00:00			`#include <system.h>`

changes to hide names and some fixes 1989-01-17 10:27:55 +00:00			`File *_out_file;`
Initial revision 1988-09-15 09:49:22 +00:00
Many changes: - added floating point - improved assembler part, now uses short encodings when possible - reduced generated relocation - and name table 1988-10-20 14:21:37 +00:00			`open_back( filename)`
Initial revision 1988-09-15 09:49:22 +00:00			`char *filename;`
			`{`
			`if ( filename == (char *) '\0')`
			`return( 0);`
			`else`
changes to hide names and some fixes 1989-01-17 10:27:55 +00:00			`return( sys_open( filename, OP_WRITE, &_out_file));`
Initial revision 1988-09-15 09:49:22 +00:00			`}`