Language/OS - Multiplatform Resource Library/LANGUAGE OS.iso/b/b.lha/B/src/bed/main.c

C/C++ Source or Header | 1988-11-24 | 4.9 KB | 240 lines

/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1984. */
static char rcsid[] = "$Header: main.c,v 2.5 85/08/22 16:05:00 timo Exp $";

/*
 * B editor -- Main program (init/exit processing), error handling.
 */

/*
 * The B editor is a structured editor for a programming language
 * for beginners and non-professional computer users.
 * [L.G.L.T. Meertens: Draft Proposal for the B programming language,
 * Mathematical Centre, Amsterdam, 1982, ISBN 90 6169 238 2.]
 * Note that `B' is only a provisional name for the language.
 * The editor uses a subset of the run-time system for the B
 * interpreter, so that they may be linked together in a later stage.
 * Also the sharing strategy of the B run-time routines makes a very
 * elegant and powerful UNDO-mechanism possible.
 */

#include "b.h" /* Contains definitions like string, etc. */
#include "feat.h"
#include "bobj.h"


#ifdef SAVEPOS
#define SAVEPOSFILE ".Bed_pos" /* Last focus position database */
#define MAXSAVE 50 /* Maximum number of entries kept in SAVEPOSFILE */
#endif SAVEPOS


/* Command line flags */

bool dflag; /* -d: debugging output wanted */

bool slowterminal;
    /* -s: the terminal is so slow that long messages are annoying */

bool hushbaby; /* -h: no bells are to be heard */

#ifdef COMMENTED_OUT /* Lower levels don't respond to this */
bool nostandout; /* -n: inhibit use of standout */
#endif COMMENTED_OUT


/*
 * Main program -- call module initializations, do some work,
 * call module shut-off code, exit.
 */

Visible Procedure
main(argc, argv)
    int argc;
    string *argv;
{
    bool initdone = No;
    bool status = Yes;
    int lineno = 0;
    string arg0 = argv[0];
    string cp;
    string filename;
    extern string malloc();

    cp = rindex(arg0, '/');
    if (cp)
        arg0 = cp+1;

    /* Process UNIX command line options */
    for (; argc > 1 && argv[1][0] == '-'; --argc, ++argv) {
        switch (argv[1][1]) {

#ifndef NDEBUG
        case 'd':
            dflag = Yes;
            break;
#endif NDEBUG

        case 'h':
            hushbaby = Yes;
            break;

#ifdef COMMENTED_OUT /* Lower levels don't respond to this */
        case 'n':
            nostandout = Yes;
            break;
#endif COMMENTED_OUT

        case 's':
            slowterminal = Yes;
            break;

        default:
            fprintf(stderr,
                "*** Usage: %s [-h] [-s] %s\n",
                arg0,
#ifdef FILEARGS
                "[ [+lineno] file ] ...");
#else !FILEARGS
                "");
#endif !FILEARGS
            exit(1);

        }
    }

    /* Setbuf must be called before any output is produced! */
    setbuf(stdout, malloc((unsigned)BUFSIZ));

#ifdef FILEARGS
    for (; status && argc > 1; --argc, ++argv) {
        if (argv[1][0] == '+') { /* +lineno option */
            lineno = atoi(argv[1] + 1);
        }
        else {
            filename = argv[1];
            if (!initdone) {
                initall();
                initdone = Yes;
            }
            status = demo(filename, lineno);
            lineno = 0;
        }
    }
#endif FILEARGS
    if (!initdone) {
#ifdef BTOP
        initall();
        mainloop();
#else BTOP
#ifndef FILEARGS
        Deliberate error. You should define at least one of BTOP and FILEARGS;
#endif !FILEARGS
        fprintf(stderr, "*** No file edited\n");
        exit(0);
#endif BTOP
    }
    endall();
    objstats();
    if (status)
        objcheck();
    else
        objdump();
    return !status;
}


/*
 * Module initializations -- for each module xxxx that needs dynamic
 * initialization, call a routine named initxxxx.
 * The order is determined by the inter-module dependencies.
 * Also note that all terminal- and screen-related initializations are called
 * indirectly by initterm().
 */

Hidden Procedure
initall()
{
#ifndef NDEBUG
    if (dflag)
        fprintf(stderr, "*** initall();\n\r");
#endif NDEBUG
    initfile();
    initkeys();
    initgram();
#ifdef USERSUGG
    initsugg();
#endif USERSUGG
    initunix();
    initterm();
}


/*
 * Module shut-off code -- for each module xxxx that needs dynamic
 * shut-off code (what is the inverse of `initialization'?),
 * call a routine named endxxxx.
 * Endall is also called (from module "unix") when a signal or interrupt
 * causes termination.
 */

Visible Procedure
endall()
{
    if (dflag)
        fprintf(stderr, "*** endall();\n\r");
    endterm();
    enddemo();
    endunix();
    enderro();
#ifdef USERSUGG
    endsugg();
#endif USERSUGG
}



/*
 * System error -- abort the editor with a short error message.
 * Should only be called for catastrophic, unrecoverable errors
 * or those that `cannot happen'.
 */

/* VARARGS 1 */
Visible Procedure
syserr(fmt, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10)
    string fmt;
{
#ifdef BTOP
    termchild();
#endif BTOP
    endall();
    fprintf(stderr, "*** System error: ");
    fprintf(stderr, fmt, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10);
    fprintf(stderr, "\n");
#ifndef NDEBUG
    fprintf(stderr, "*** Core dump for B guru: ");
    fflush(stderr);
    abort();
#else
    fflush(stderr);
    _exit(1);
#endif
    /* NOTREACHED */
}


/*
 * Assertion error.
 * Call syserr with information about where something was wrong.
 * (Sorry, WHAT was wrong must be dug out of the core dump.)
 */

Visible Procedure
asserr(file, line)
    string file;
    int line;
{
    syserr("Assertion failed: file %s, line %d", file, line);
    /* NOTREACHED */
}