Return to file.c CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / B / src / bed

Annotation of 43BSD/contrib/B/src/bed/file.c, revision 1.1

1.1     ! root        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: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.