1: /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */ 2: 3: /* 4: $Header: b0fil.c,v 1.4 85/08/22 16:48:05 timo Exp $ 5: */ 6: 7: /* Built-in file names. Some can be overridden by environment variables. */ 8: /* Only recompilation of this file is necessary when a name is changed. */ 9: 10: #include "b.h" 11: #include "b0fil.h" 12: 13: #ifdef IBMPC 14: Visible char *bpermfile= "PERM.BIF"; 15: Visible char *tempfile= "TEMP.BIF"; 16: Visible char *messfile= "\\MESSAGES.BIF"; 17: #else 18: Visible char *bpermfile= ".b_perm"; 19: Visible char *tempfile= ".@b_temp"; 20: Visible char *messfile= "/usr/local/lib/B/Messages"; 21: #endif 22: 23: #ifndef INTEGRATION 24: #ifndef BED 25: #define BED "/usr/local/lib/B/bed +" /* Trailing + if '+lineno' arg. */ 26: #endif 27: Visible char *editorfile= BED; 28: #endif 29: 30: Hidden char *setdefault(envname, deflt) char *envname, *deflt; { 31: char *p= getenv(envname); 32: if (p != NULL && p[0] != '\0') return p; 33: return deflt; 34: } 35: 36: Visible Procedure set_file_names() { 37: messfile= setdefault("B_MESSAGES", messfile); 38: #ifndef INTEGRATION 39: editorfile= setdefault("B_EDITOR", setdefault("BEDITOR", editorfile)); 40: /* BEDITOR used to be the name; officially it's now B_EDITOR */ 41: #endif 42: }