util/ceg/defaults/pseudo/C_open.c

   1 #define CODE_EXPANDER
   2 #include <back.h>
   3 #include <assert.h>
   4 #include <system.h>
   5
   6 extern int B_busy;
   7
   8 int C_open( filename)
   9 char *filename;
  10 {
  11         assert( !B_busy);
  12
  13         if ( !open_back( filename)) {
  14                 fprint( STDERR, "Couldn't open %s\n", filename);
  15                 return( 0);
  16         }
  17         B_busy = 1;
  18         return( 1);
  19 }