#include "defs.h" #include "../filenames.h" /* * Open a file for input or output. * * fn = file name * create = 1 if output */ fileopen(fn, create) STRING fn; { if(openfd >= 0) fileclose(); if(create) openfd = creat(fn, 0666); else openfd = open(fn, 0); if(openfd == -1) { error("cannot open file"); return(junk(INT)); } else return(1); } /* * Close an open file. */ fileclose() { close(openfd); openfd = -1; } /* * Remember last file name. [see input, output] */ setname(fn) REG STRING fn; { if(fn[0] == 0) { if(filename[0] == 0) error("no file name"); } else movstr(fn, filename); }