1: /* Bed -- file names collected together for easy reference and change. */
   2: /* $Header: file.c,v 1.1 85/08/22 15:44:30 timo Exp $ */
   3: 
   4: #include "b.h"
   5: #include "file.h"
   6: 
   7: /* These are only defaults -- may be changed from environment */
   8: 
   9: #ifdef unix
  10: Visible string tmpdir= "/tmp";
  11: Visible string homedir= ".";
  12: Visible string libdir= "/usr/new/lib/B";
  13: 
  14: Visible string helpfile= "/usr/new/lib/B/Bed_help";
  15: Visible string posfile= ".Bed_pos"; /* With $HOME prepended */
  16: Visible string buffile= ".Bed_buf"; /* With $HOME prepended */
  17: Visible string keyfile= ".Bed_"; /* Some dir prepended, term.type appended */
  18: Visible string deftype= "def"; /* Default terminal type affix for keyfile */
  19: #endif unix
  20: 
  21: #ifdef IBMPC
  22: Visible string tmpdir= "\\";
  23: Visible string homedir= "."; /* Can't get home... */
  24: Visible string libdir= "\\LIB";
  25: 
  26: Visible string helpfile= "\\LIB\\BED.HLP";
  27: Visible string posfile= "BED.POS";
  28: Visible string buffile= "BED.BUF";
  29: Visible string keyfile= "BED."; /* Some dir prepended, deftype appended */
  30: Visible string deftype= "KEY"; /* Default terminal type affix for keyfile */
  31: #endif IBMPC
  32: 
  33: 
  34: Hidden string setdefault(envname, def)
  35:     string envname;
  36:     string def; /* 'default' is a C reserved word! */
  37: {
  38:     string envval= getenv(envname);
  39:     if (envval != NULL && envval[0] != '\0')
  40:         return envval;
  41:     return def;
  42: }
  43: 
  44: 
  45: Visible initfile()
  46: {
  47:     static char copysavefile[200];
  48:     static char saveposfile[200];
  49: 
  50:     homedir= setdefault("HOME", homedir);
  51:     tmpdir= setdefault("TEMPDIR", tmpdir);
  52:     libdir= setdefault("BED_LIB", libdir);
  53: 
  54:     sprintf(copysavefile, "%.150s/%.40s", homedir, buffile);
  55:     sprintf(saveposfile, "%.150s/%.40s", homedir, posfile);
  56: 
  57:     helpfile= setdefault("BED_HELP", helpfile);
  58:     posfile= setdefault("BED_POS", saveposfile);
  59:     buffile= setdefault("BED_BUF", copysavefile);
  60: }

Defined functions

initfile defined in line 45; used 1 times
setdefault defined in line 34; used 6 times

Defined variables

buffile defined in line 28; used 2 times
deftype defined in line 30; never used
helpfile defined in line 26; used 2 times
  • in line 57(2)
homedir defined in line 23; used 4 times
keyfile defined in line 29; never used
libdir defined in line 24; used 2 times
  • in line 52(2)
posfile defined in line 27; used 2 times
tmpdir defined in line 22; used 2 times
  • in line 51(2)
Last modified: 1985-08-27
Generated: 2016-12-26
Generated by src2html V0.67
page hit count: 850
Valid CSS Valid XHTML 1.0 Strict