Frozen Fish 1: Amiga/FrozenFish-Apr94.iso/bbs/alib/d0xx/d023/microemacs.lha/Ver30/gnusymbol.c

C/C++ Source or Header | 1986-05-10 | 17.2 KB | 550 lines

/*
 * Name:    MicroEMACS
 *        Symbol table stuff for GNU emacs compatability
 * Version:    29
 * Last edit:    19-Apr-86
 * By:        {sun, amdahl, cbosgd}!rtech!gonzo!daveb
 *
 * Symbol tables, and keymap setup.
 * The terminal specific parts of building the
 * keymap has been moved to a better place.
 *
 * This version matches the standard GNU Emacs 17.49 bindings.
 * With this file, MicroEMACS is a proper subset of GNU.
 *
 * If a GNU feature was misnamed, it was moved.
 * If a GNU feature was "nearly" right, it was noted for later work.
 * If a MicroEMACS feature was incompatible, it was dropped.
 *
 * Compatibility NOW for the future!
 */
#include    "def.h"

#define    DIRLIST    0            /* Disarmed!            */

# define    DEL    0x7f
# define    ESC    0x1b

/* # define DAVEB    *//* Dave Brower specials, not GNU compatibility */

/*
 * Defined by "main.c".
 */
extern    int    ctrlg();        /* Abort out of things        */
extern    int    quit();            /* Rude Quit            */
extern    int    ctlxlp();        /* Begin macro            */
extern    int    ctlxrp();        /* End macro            */
extern    int    ctlxe();        /* Execute macro        */
extern  int    showversion();        /* Show version numbers, etc.    */

/*
 * defined by "gnucmds.c"
 */
extern    int    savebuffs();        /* GNU style save-some-buffers    */
extern    int    savequit();        /* GNU save-buffers-kill-emacs    */
extern    int    suspend();        /* GNU style suspend        */
extern    int    notmodified();        /* GNU make buffer undirty    */
extern    int    scrollother();        /* GNU scroll other window    */

/*
 * Defined by "search.c".
 */
extern    int    forwsearch();        /* Search forward        */
extern    int    backsearch();        /* Search backwards        */
extern  int    searchagain();        /* Repeat last search command    */
extern  int    forwisearch();        /* Incremental search forward    */
extern  int    backisearch();        /* Incremental search backwards    */
extern  int    queryrepl();        /* Query replace        */

/*
 * Defined by "basic.c".
 */
extern    int    gotobol();        /* Move to start of line    */
extern    int    backchar();        /* Move backward by characters    */
extern    int    gotoeol();        /* Move to end of line        */
extern    int    forwchar();        /* Move forward by characters    */
extern    int    gotobob();        /* Move to start of buffer    */
extern    int    gotoeob();        /* Move to end of buffer    */
extern    int    forwline();        /* Move forward by lines    */
extern    int    backline();        /* Move backward by lines    */
extern    int    forwpage();        /* Move forward by pages    */
extern    int    backpage();        /* Move backward by pages    */
extern    int    setmark();        /* Set mark            */
extern    int    swapmark();        /* Swap "." and mark        */
extern    int    gotoline();        /* Go to a specified line.    */

/*
 * Defined by "buffer.c".
 */
extern    int    listbuffers();        /* Display list of buffers    */
extern    int    usebuffer();        /* Switch a window to a buffer    */
extern    int    killbuffer();        /* Make a buffer go away.    */

#if    DIRLIST
/*
 * Defined by "dirlist.c".
 */
extern    int    dirlist();        /* Directory list.        */
#endif

/*
 * Defined by "file.c".
 */
extern    int    fileread();        /* Get a file, read only    */
extern    int    filevisit();        /* Get a file, read write    */
extern    int    filewrite();        /* Write a file            */
extern    int    filesave();        /* Save current file        */
extern    int    filename();        /* Adjust file name        */

/*
 * Defined by "random.c".
 */
extern    int    selfinsert();        /* Insert character        */
extern    int    showcpos();        /* Show the cursor position    */
extern    int    twiddle();        /* Twiddle characters        */
extern    int    quote();        /* Insert literal        */
extern    int    openline();        /* Open up a blank line        */
extern    int    newline();        /* Insert CR-LF            */
extern    int    deblank();        /* Delete blank lines        */
extern    int    indent();        /* Insert CR-LF, then indent    */
extern    int    forwdel();        /* Forward delete        */
extern    int    backdel();        /* Backward delete        */
extern    int    killline();        /* Kill forward            */
extern    int    yank();            /* Yank back from killbuffer.    */

/*
 * Defined by "region.c".
 */
extern    int    killregion();        /* Kill region.            */
extern    int    copyregion();        /* Copy region to kill buffer.    */
extern    int    lowerregion();        /* Lower case region.        */
extern    int    upperregion();        /* Upper case region.        */

/*
 * Defined by "spawn.c".
 */
extern    int    spawncli();        /* Run CLI in a subjob.        */

/*
 * Defined by "window.c".
 */
extern    int    reposition();        /* Reposition window        */
extern    int    refresh();        /* Refresh the screen        */
extern    int    nextwind();        /* Move to the next window    */
extern  int    prevwind();        /* Move to the previous window    */
extern    int    mvdnwind();        /* Move window down        */
extern    int    mvupwind();        /* Move window up        */
extern    int    onlywind();        /* Make current window only one    */
extern    int    splitwind();        /* Split current window        */
extern    int    enlargewind();        /* Enlarge display window.    */
extern    int    shrinkwind();        /* Shrink window.        */

/*
 * Defined by "word.c".
 */
extern    int    backword();        /* Backup by words        */
extern    int    forwword();        /* Advance by words        */
extern    int    upperword();        /* Upper case word.        */
extern    int    lowerword();        /* Lower case word.        */
extern    int    capword();        /* Initial capitalize word.    */
extern    int    delfword();        /* Delete forward word.        */
extern    int    delbword();        /* Delete backward word.    */

/*
 * Defined by "extend.c".
 */
extern    int    extend();        /* Extended commands.        */
extern    int    help();            /* Help key.            */
extern    int    bindtokey();        /* Modify key bindings.        */
extern    int    wallchart();        /* Make wall chart.        */

typedef    struct    {
    short    k_key;            /* Key to bind.            */
    int    (*k_funcp)();        /* Function.            */
    char    *k_name;        /* Function name string.    */
}    KEY;

/*
 * Default key binding table. This contains
 * the function names, the symbol table name, and (possibly)
 * a key binding for the builtin functions. There are no
 * bindings for C-U or C-X. These are done with special
 * code, but should be done normally.
 */

/* GNU standard bindings that are missing are commented out with the
 * following notations:
 *
 *    /*B    Braindamaged in current implementation.
 *    /*D    Design restructuring is needed.
 *    /*E    Easy, a few hours.
 *    /*H    Hard, (days) but possible if desirable.
 *    /*I    Impossible (weeks), much too hard to do right.
 *    /*M    Moderate difficulty, a day or so.
 *    /*T    On the to do list.
 *    /*U    Undecided.
 *    /*X    Means unnecessary to do.
 *    /*W    Current version is wrong.
 *
 *   Well, braindamaged is a bit too strong, but doing all the argument
 *   processing in the main loop, and not having meta- ancd ctrl-x
 *   be bindable commands seems kinda funny to me (daveb).
 */

KEY    key[] = {
    KCTRL|'@',    setmark,    "set-mark-command",
    KCTRL|'A',    gotobol,    "beginning-of-line",
    KCTRL|'B',    backchar,    "backward-char",
/*DHX    KCTRL|'C',    ???,        "mode-specific-command-prefix",    */
    KCTRL|'D',    forwdel,    "delete-char",
    KCTRL|'E',    gotoeol,    "end-of-line",
    KCTRL|'F',    forwchar,    "forward-char",
    KCTRL|'G',    ctrlg,        "keyboard-quit",
    KCTRL|'H',    help,        "help-command",
/*DHX    KCTRL|'I',    ???,        "indent-for-tab-command",    */
    KCTRL|'J',    indent,        "newline-and-indent",
    KCTRL|'K',    killline,    "kill-line",
    KCTRL|'L',    refresh,    "recenter",
            /*W actually doesn't recenter...        */

    KCTRL|'M',    newline,    "newline",
    KCTRL|'N',    forwline,    "next-line",
    KCTRL|'O',    openline,    "open-line",
    KCTRL|'P',    backline,    "previous-line",
    KCTRL|'Q',    quote,        "quoted-insert",
    KCTRL|'R',    backisearch,    "isearch-backward",
    KCTRL|'S',    forwisearch,    "isearch-forward",
    KCTRL|'T',    twiddle,    "transpose-characters",
/*BMT    KCTRL|'U',    ???,        "universal-argument,"        */
    KCTRL|'V',    forwpage,    "scroll-up",
    KCTRL|'W',    killregion,    "kill-region",
/*BMT    KCTRL|'X',    ???,        "Control-X-prefix",        */
    KCTRL|'Y',    yank,        "yank",
            /*WET doesn't set point! */

    KCTRL|'Z',    suspend,    "suspend-emacs",

/*BMT    KMETA,        ???,        "ESC-prefix",            */
/*DX    KCTRL|']',    ???,        "abort-recursive-edit",        */
/*DIX    KCTRL|'_',    ???,        "undo",                */

    DEL,        backdel,    "delete-backward-char",

/*DIX    KCTLX|KCTRL|'A',???,        "add-mode-abbrev",        */
    KCTLX|KCTRL|'B',listbuffers,    "list-buffers",
    KCTLX|KCTRL|'C',savequit,    "save-buffers-kill-emacs",

#if    DIRLIST
    KCTLX|KCTRL|'D',dirlist,    "list-directory",
#endif

/*DIX    KCTLX|KCTRL|'E',???,        "eval-last-sexp",        */
    KCTLX|KCTRL|'F',filevisit,    "find-file",
/*DIX    KCTLX|KCTRL|'H',???,        "inverse-add-mode=abbrev",    */
/*MT    KCTLX|KCTRL|'I',???,        "indent-rigidly",        */
    KCTLX|KCTRL|'L',lowerregion,    "downcase-region",
/*ET    KCTLX|KCTRL|'N', ???,        "set-goal-column"        */
    KCTLX|KCTRL|'O',deblank,    "delete-blank-lines",
/*MU    KCTLX|KCTRL|'P',???,        "mark-page"             */
     KCTLX|KCTRL|'R',fileread,    "file-file-read-only",
                /*WU incorrect behaviour...        */
    KCTLX|KCTRL|'S',filesave,    "file-buffer",

/*EU    KCTLX|KCTRL|'T',???,        "transpose-lines",        */
    KCTLX|KCTRL|'U',upperregion,    "upcase-region",
/*EU    KCTLX|KCTRL|'V',findalternate,    "find-alternate-file",        */
    KCTLX|KCTRL|'W',filewrite,    "write-file",
    KCTLX|KCTRL|'X',swapmark,    "exchange-point-and-mark",
    KCTLX|KCTRL|'Z',spawncli,    "suspend-emacs",

/*MT    KCTLX|ESC    ???,        "repeat-complex-command",    */
/*U    KCTLX|'$'    ???,        "set-selective-display",    */
    KCTLX|'(',    ctlxlp,        "start-kbd-macro",
    KCTLX|')',    ctlxrp,        "end-kbd-macro",
/*DIX    KCTLX|'+',    ???,        "add-global-abbrev",        */
/*DIX    KCTLX|'-',    ???,        "inverse-add-global-abbrev",    */
/*MX    KCTLX|'.',    ???,        "set-fill-prefix",        */
/*HX    KCTLX|'/',    ???,        "point-to-register",        */
/*MT    KCTLX|'0',    ???,        "delete-window",        */
    KCTLX|'1',    onlywind,    "delete-other-windows",
    KCTLX|'2',    splitwind,    "split-window-vertically",
/*MX    KCTLX|'4',    ???,        "ctl-x-4-prefix",        */
/*DHX    KCTLX|'5',    ???,        "split-window-horizontally",    */
/*EX    KCTLX|';',    ???,        "set-comment-column",        */
/*HU    KCTLX|'<',    ???,        "scroll-left",            */
    KCTLX|'=',    showcpos,    "what-cursor-position",
/*HU    KCTLX|'>',    ???,        "scroll-right",            */
/*MU    KCTLX|'[',    ???,        "backward-page",        */
/*MU    KCTLX|']',    ???,        "forward-page",            */
    KCTLX|'^',    enlargewind,    "enlarge-window",
/*HX    KCTLX|'`',    ???,        "next-error",            */
/*MU    KCTLX|'A',    ???,        "append-to-buffer",        */
    KCTLX|'B',    usebuffer,    "switch-to-buffer",
/*MX    KCTLX|'D',    ???,        "dired",            */
    KCTLX|'E',    ctlxe,        "call-last-kbd-macro",
/*EU    KCTLX|'F',    ctlxe,        "set-fill-column",        */
/*HX    KCTLX|'G',    ???,        "insert-register",        */
/*EU    KCTLX|'H',    ???,        "mark-whole-buffer",        */
/*MU    KCTLX|'I',    ???,        "insert-file",            */
/*HX    KCTLX|'J',    ???,        "register-to-point",        */
    KCTLX|'K',    killbuffer,    "kill-buffer",
/*MU    KCTLX|'L',    ???,        "count-lines-page",        */
/*HU    KCTLX|'N',    ???,        "narrow-to-region",        */
    KCTLX|'O',    nextwind,    "other-window",
/*HU    KCTLX|'P',    ???,        "narrow-to-page",        */
/*MX    KCTLX|'Q',    ???,        "kbd-macro-qry",        */
/*HX    KCTLX|'R',    ???,        "copy-rectangle-to-register",    */
    KCTLX|'S',    savebuffs,    "save-some-buffers",
/*HX    KCTLX|'U',    ???,        "advertised-undo",        */
/*HX    KCTLX|'W',    ???,        "widen",            */
/*HX    KCTLX|'{',    ???,        "shrink-window-horizontally",    */
/*HX    KCTLX|'}',    ???,        "enlarge-window-horizontally",    */
/*MT    KCTLX|DEL,    ???,        "backward-kill-sentence,"    */

/*MU    KMETA|KCTRL|'@',???,        "mark-sexp",            */
/*MU    KMETA|KCTRL|'A',???,        "beginning-of-defun",        */
/*MU    KMETA|KCTRL|'B',???,        "backwards-sexp",        */
/*MX    KMETA|KCTRL|'C',???,        "exit-recursive-edit",        */
/*MU    KMETA|KCTRL|'D',???,        "down-list",            */
/*MU    KMETA|KCTRL|'E',???,        "end-of-defun",            */
/*MU    KMETA|KCTRL|'F',???,        "forward-sexp",            */
/*MU    KMETA|KCTRL|'H',???,        "mark-defun",            */
/*MU    KMETA|KCTRL|'J',???,        "indent-new-comment-line",    */
/*MU    KMETA|KCTRL|'K',???,        "kill-sexp",            */
/*MU    KMETA|KCTRL|'N',???,        "foward-list",            */
/*EU    KMETA|KCTRL|'O',???,        "split-line",            */
/*MU    KMETA|KCTRL|'P',???,        "backward-list",        */
/*HX    KMETA|KCTRL|'S',???,        "isearch-forward-regexp",    */
/*MU    KMETA|KCTRL|'T',???,        "transpose-sexps",        */
/*MU    KMETA|KCTRL|'U',???,        "backward-up-list",        */
    KMETA|KCTRL|'V',scrollother,    "scroll-other-window",
/*ET    KMETA|KCTRL|'W',???,        "append-next-kill",        */

/*IX    KMETA|ESC,    ???        "eval-expression",        */
/*IX    KMETA|CTRL|'\',    ???        "indent-region",        */
/*MU    KMETA|' ',    ???        "just-one-space",        */
/*HT    KMETA|'!',    ???,        "shell-command", */
/*HU    KMETA|'$',    ???,        "spell-word", */
    KMETA|'%',    queryrepl,    "query-replace",
/*IX    KMETA|'\'',    ???,        "abbrev-prefix-mark",        */
/*TU    KMETA|'(',    ???,        "insert-parenthesis", */
/*HU    KMETA|')',    ???,        "move-past-close-and-reindent", */
/*HX    KMETA|',',    ???,        "tags-loop-continue",        */
/*DT    KMETA|'-',    ???,        "negative-argument",        */
    KMETA|'>',    gotoeob,    "end-of-buffer",
/*MU    KMETA|'=',    ???,        "count-lines-region",        */
    KMETA|'<',    gotobob,    "beginning-of-buffer",
/*TT    KMETA|'@',    ???,        "mark-word",            */
/*MU    KMETA|'[',    ???,        "backward-paragraph",        */
/*TT    KMETA|'\\',    ???,        "delete-horizontal-space",    */
/*MU    KMETA|']',    ???,        "forward-paragraph",        */
/*TT    KMETA|'^',    ???,        "delete-indentation",        */
/*MU    KMETA|'A',    ???,        "backward-sentence",        */
    KMETA|'B',    backword,    "backward-word",
    KMETA|'C',    capword,    "capitalize-word",
    KMETA|'D',    delfword,    "kill-word",
/*MU    KMETA|'E',    ???,        "forward-sentence",        */
    KMETA|'F',    forwword,    "forward-word",
/*HT    KMETA|'G',    ???,        "fill-region",            */
/*MU    KMETA|'H',    ???,        "mark-paragraph",        */
/*DMX    KMETA|'I',    ???,        "tab-to-tab-stop",        */
/*MU    KMETA|'J',    ???,        "indent-new-comment-line",    */
    KMETA|'L',    lowerword,    "downcase-word",
/*EU    KMETA|'M',    ???,        "back-to-indentation",        */
/*HT    KMETA|'Q',    ???,        "fill-paragraph",        */
    KMETA|'R',    reposition,    "move-to-window-line",
/*ET    KMETA|'T',    ???,        "transpose-words",        */
    KMETA|'U',    upperword,    "upcase-word",
    KMETA|'V',    backpage,    "scroll-down",
    KMETA|'W',    copyregion,    "copy-region-as-kill",
    KMETA|'X',    extend,        "execute-extended-command",
/*HDX    KMETA|'Y',    ???,        "yank-pop",            */
/*MU    KMETA|'Z',    ???,        "zap-to-char",            */
/*HT    KMETA|'|',    ???,        "shell-command-on-region",    */
    KMETA|'~',    notmodified,    "not-modified",
    KMETA|DEL,    delbword,    "backward-kill-word",

    /*
    ** These are unbound functions, callable by name.
    ** They are GNU compatible (to various degrees).
    */


/*    -1,        ???,        "append-next-kill",    */
/*    -1,        ???,        "apropos",        */
    -1,        wallchart,    "describe-bindings",
/*MT    -1,        ???,        "digit-argument",    */
    -1,        showversion,    "emacs-version",
    -1,        bindtokey,    "global-set-key",
    -1,        gotoline,    "goto-line",
    -1,        quit,        "kill-emacs",
    -1,        backsearch,    "search-backward",
    -1,        forwsearch,    "search-forward",
    -1,        selfinsert,    "self-insert-command",
    -1,        filename,    "set-visited-file-name",

    /* These are duplicate names for GNU compatible functions,
    ** or incompatible commands I've left lying around for now.
    ** The old command names get used as args to keydup() in the
    ** various tty/xxx/ttykbd.c modules for function keys.
    */

    -1,        backchar,    "back-char",
    -1,        backline,    "back-line",
    -1,        backpage,    "back-page",
    -1,        prevwind,    "back-window",
    -1,        mvdnwind,    "down-window",
    -1,        enlargewind,    "enlarge-window",
    -1,        ctlxe,        "execute-macro",
    -1,        forwchar,    "forw-char",
    -1,        forwline,    "forw-line",
    -1,        forwpage,    "forw-page",
    -1,        nextwind,    "forw-window",
    -1,        help,        "help",
    -1,        selfinsert,    "ins-self",
    -1,        killregion,    "kill-region",
    -1,        searchagain,    "search-again",
    -1,        setmark,    "set-mark",
    -1,        shrinkwind,    "shrink-window",
    -1,        mvupwind,    "up-window",
            /*MT incorrect behaviour */

};

#define    NKEY    (sizeof(key) / sizeof(key[0]))

/*
 * Symbol table lookup.
 * Return a pointer to the SYMBOL node, or NULL if
 * the symbol is not found.
 */
SYMBOL    *
symlookup(cp)
register char    *cp;
{
    register SYMBOL    *sp;

    sp = symbol[symhash(cp)];
    while (sp != NULL) {
        if (strcmp(cp, sp->s_name) == 0)
            return (sp);
        sp = sp->s_symp;
    }
    return (NULL);
}

/*
 * Take a string, and compute the symbol table
 * bucket number. This is done by adding all of the characters
 * together, and taking the sum mod NSHASH. The string probably
 * should not contain any GR characters; if it does the "*cp"
 * may get a nagative number on some machines, and the "%"
 * will return a negative number!
 */
symhash(cp)
register char    *cp;
{
    register int    c;
    register int    n;

    n = 0;
    while ((c = *cp++) != 0)
        n += c;
    return (n % NSHASH);
}

/*
 * Build initial keymap. The funny keys
 * (commands, odd control characters) are mapped using
 * a big table and calls to "keyadd". The printing characters
 * are done with some do-it-yourself handwaving. The terminal
 * specific keymap initialization code is called at the
 * very end to finish up. All errors are fatal.
 */
keymapinit()
{
    register SYMBOL    *sp;
    register KEY    *kp;
    register int    i;
    register int    hash;

    for (i=0; i<NKEYS; ++i)
        binding[i] = NULL;
    for (kp = &key[0]; kp < &key[NKEY]; ++kp)
        keyadd(kp->k_key, kp->k_funcp, kp->k_name);

    /* Multiple bindings of standard commands */

#ifdef DAVEB
        keydup(KCTRL|'Z', "scroll-down");
#endif
    keydup(KCTLX|KCTRL|'G',    "keyboard-quit");
    keydup(KMETA|KCTRL|'G',    "keyboard-quit");
    keydup(KMETA|' ', "set-mark-command");

    /*
     * Self insert should be in hash table already, bound to -1.
     * Bind all printing chars without an explicit binding already.
     */
    if ((sp=symlookup("self-insert-command")) == NULL)
        abort();
    binding[ KCTRL|'I' ] = sp;
    for ( i = ' ' ; i < DEL ; ++i ) {
        if (binding[i] != NULL)
            continue;
        binding[i] = sp;
        ++sp->s_nkey;
    }

    ttykeymapinit();
}

/*
 * Create a new builtin function "name"
 * with function "funcp". If the "new" is a real
 * key, bind it as a side effect. All errors
 * are fatal.
 */
keyadd(new, funcp, name)
int    (*funcp)();
char    *name;
{
    register SYMBOL    *sp;
    register int    hash;

    if ((sp=(SYMBOL *)malloc(sizeof(SYMBOL))) == NULL)
        abort();
    hash = symhash(name);
    sp->s_symp = symbol[hash];
    symbol[hash] = sp;
    sp->s_nkey = 0;
    sp->s_name = name;
    sp->s_funcp = funcp;
    if (new >= 0) {                /* Bind this key.    */
        if (binding[new] != NULL)
            abort();
        binding[new] = sp;
        ++sp->s_nkey;
    }
}

/*
 * Bind key "new" to the existing routine "name".
 * If the routine doesn't exist, just give a warning.
 * It's no error to rebind a key.
 */
keydup(new, name)
register int    new;
char        *name;
{
    register SYMBOL    *sp;

    if ( (sp=symlookup(name))==NULL )
        return;

    if( new >= 0 )
        binding[new] = sp;

    ++sp->s_nkey;
}