ack/util/ceg/defaults/pseudo/C_open.c
1989-01-27 16:41:04 +00:00

20 lines
290 B
C

#define CODE_EXPANDER
#include <back.h>
#include <assert.h>
#include <system.h>
extern int B_busy;
int C_open( filename)
char *filename;
{
assert( !B_busy);
if ( !open_back( filename)) {
fprint( STDERR, "Couldn't open %s\n", filename);
return( 0);
}
else
return( 1);
}