Return to main.c CVS log

Up to [Research Unix] / researchv9 / jtools / src / pi

Annotation of researchv9/jtools/src/pi/main.c, revision 1.1.1.1

1.1       root        1: #include "master.pri"
                      2: #include "rt.h"
                      3: #include "format.pri"
                      4: #include <CC/stdio.h>
                      5: #include <signal.h>
                      6: SRCFILE("main.c")
                      7: 
                      8: void ErrExit(char *e)
                      9: {
                     10:        fprintf(stderr, "%s\n", e);
                     11:        exit(1);
                     12: }
                     13: 
                     14: char *getenv(char*), *Getwd();
                     15: char *CD;
                     16: char *DEVKMEM = "/dev/kmem";
                     17: char *PADSTERM;
                     18: char *TAPTO;
                     19: char *UNIX = "/vmunix";
                     20: char *PATH;
                     21: 
                     22: void PadsRemInit();
                     23: char *PadsTermInit(char*);
                     24: 
                     25: void LoadTerm(char **av)
                     26: {
                     27:        if (av[0] && !strcmp(av[0],"-R")) {
                     28:                PadsRemInit();
                     29:                return;
                     30:        }
                     31:        if (av[0] && !strcmp(av[0],"-r") && av[1])
                     32:                ErrExit(PadsTermInit(av[1]));
                     33:        if( PadsInit(PADSTERM) )
                     34:                ErrExit("cannot load terminal");
                     35: }
                     36: 
                     37: void mainbatch(char **av)
                     38: {
                     39:        char *core = "core", *aout = "a.out";
                     40:        if( *av ) core = *av++;
                     41:        if( *av ) aout = *av++;
                     42:        new BatchMaster(core, aout);
                     43:        exit(0);
                     44: }
                     45: 
                     46: void mainpi(char **av)
                     47: {
                     48:        if(av[0] && !strcmp(av[0],"-t") ) {
                     49:                mainbatch(av+1);
                     50:                av += 2;
                     51:        }
                     52:        LoadTerm(av);
                     53:        extern char *TapTo;
                     54:        TapTo = TAPTO;
                     55:        NewHelp();
                     56:        NewWd();
                     57:        new HostMaster();
                     58:        PadsServe();
                     59: }
                     60: 
                     61: void mainrtpi(char **av)
                     62: {
                     63:        LoadTerm(av);
                     64:        extern char *TapTo;
                     65:        TapTo = TAPTO;
                     66:        NewHelp();
                     67:        NewWd();
                     68:        new RtConnections;
                     69:        PadsServe();
                     70: }
                     71: 
                     72: void main(int, char **av)
                     73: {
                     74:        char *e;
                     75:        if( e = getenv("PADSTERM") ) PADSTERM = e;
                     76:        if( e = getenv("UNIX") ) UNIX = e;
                     77:        if( e = getenv("DEVKMEM") ) DEVKMEM = e;
                     78:        if( e = getenv("PATH") ) PATH = e;
                     79:        CD = sf( "builtin cd %s;", Getwd() );
                     80:        ::signal(SIGCHLD, SIG_IGN);
                     81: 
                     82:        char *base = basename(*av++);
                     83:        if( !strcmp(base,"rtpi") )
                     84:                mainrtpi(av);
                     85:        else
                     86:                mainpi(av);
                     87: }

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