home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Source Code 1992 March
/
Source_Code_CD-ROM_Walnut_Creek_March_1992.iso
/
usenet
/
altsrcs
/
3
/
3491
< prev
next >
Wrap
Internet Message Format
|
1991-06-19
|
56KB
From: pgf@cayman.COM (Paul Fox)
Newsgroups: alt.sources
Subject: Vile 01/17 - vi feel-alike (multi-window)
Message-ID: <4520@cayman.COM>
Date: 7 Jun 91 22:09:05 GMT
#!/bin/sh
# This is Vile, a shell archive (shar 3.47)
# made 06/07/1991 22:01 UTC by pgf@cayman.com
# Source directory /tmp_mnt/home/carl/pgf/vile
#
# existing files WILL be overwritten
#
# This is part 1 of a multipart archive
# do not concatenate these parts, unpack them in order with /bin/sh
#
# This shar contains:
# length mode name
# ------ ---------- ------------------------------------------
# 3835 -r--r--r-- README
# 6488 -r--r--r-- ansi.c
# 4175 -r--r--r-- at386.c
# 20335 -r--r--r-- basic.c
# 21479 -r--r--r-- bind.c
# 20200 -r--r--r-- buffer.c
# 6009 -r--r--r-- buglist
# 17753 -r--r--r-- cmdtbl
# 6989 -r--r--r-- crypt.c
# 2171 -r--r--r-- csrch.c
# 3333 -r--r--r-- dg10.c
# 40087 -r--r--r-- display.c
# 4340 -r--r--r-- dolock.c
# 14722 -r--r--r-- ebind.h
# 9852 -r--r--r-- edef.h
# 27465 -r--r--r-- efunc.h
# 956 -r--r--r-- epath.h
# 30449 -r--r--r-- estruct.h
# 18430 -r--r--r-- eval.c
# 5247 -r--r--r-- evar.h
# 32572 -r--r--r-- exec.c
# 28527 -r--r--r-- file.c
# 7384 -r--r--r-- fileio.c
# 3373 -r--r--r-- finderr.c
# 2834 -r--r--r-- globals.c
# 3750 -r--r--r-- hp110.c
# 9245 -r--r--r-- hp150.c
# 10074 -r--r--r-- ibmpc.c
# 10225 -r--r--r-- input.c
# 18075 -r--r--r-- isearch.c
# 20714 -r--r--r-- line.c
# 3557 -r--r--r-- lock.c
# 23507 -r--r--r-- main.c
# 1438 -r--r--r-- make.ini
# 9302 -r--r--r-- makefile
# 7809 -r--r--r-- mktbls.c
# 5332 -rw-rw-r-- nebind.h
# 19211 -rw-rw-r-- nefunc.h
# 17247 -rw-rw-r-- nename.h
# 5376 -r--r--r-- news.c
# 19928 -r--r--r-- news.cps
# 2848 -r--r--r-- npopen.c
# 4253 -r--r--r-- oneliner.c
# 4699 -r--r--r-- opers.c
# 34147 -r--r--r-- random.c
# 7014 -r--r--r-- readme.news
# 9127 -r--r--r-- region.c
# 35047 -r--r--r-- search.c
# 7910 -r--r--r-- shorten/COPYING
# 178 -r--r--r-- shorten/defines.c
# 857 -r--r--r-- shorten/dups.c
# 674 -r--r--r-- shorten/header.h
# 1637 -r--r--r-- shorten/names.c
# 220 -r--r--r-- shorten/reserved
# 0 -r--r--r-- shorten/special
# 20300 -r--r--r-- spawn.c
# 19931 -r--r--r-- st520.c
# 57909 -r--r--r-- tags
# 7806 -r--r--r-- tags.c
# 6065 -r--r--r-- tcap.c
# 16097 -r--r--r-- termio.c
# 5308 -r--r--r-- tipc.c
# 11158 -r--r--r-- undo.c
# 24385 -r--r--r-- vile.hlp
# 6798 -r--r--r-- vmalloc.c
# 9271 -r--r--r-- vmsvt.c
# 3386 -r--r--r-- vt52.c
# 20419 -r--r--r-- window.c
# 10449 -r--r--r-- word.c
# 6094 -r--r--r-- wordmov.c
# 652 -r--r--r-- z100bios.asm
# 7806 -r--r--r-- z309.c
#
if test -r _shar_seq_.tmp; then
echo 'Must unpack archives in sequence!'
echo Please unpack part `cat _shar_seq_.tmp` next
exit 1
fi
# ============= README ==============
echo 'x - extracting README (Text)'
sed 's/^X//' << 'SHAR_EOF' > 'README' &&
X
X
X
VILE -- VI Like Emacs: a vi workalike put together from Micro-Emacs by Paul Fox
-------------------------------------------------------------------------------
X
X This editor grew out of a frustration that although lots of
X eager programmers have tackled rewrites of Emacs, with new and
X better features (not to mention free source), I've not seen
X anything similar done with the Second True Editor. (The
X First, of course, being /bin/ed)
X
X So I took a copy of MicroEmacs 3.9 (which I've since
X discovered was out of date, unfortunately) and bashed and
X badgered it into a vi "feel-alike". It retains the multiple
X buffer/multiple window features of uemacs, but the
X "finger-feel", if you will, is very much that of vi. It is
X definitely not a clone, in that some substantial stuff is
X missing, and the screen doesn't look quite the same. But what
X matters most is that one's "muscle memory" does the right thing
X to the text in front of you, and that is what vile tries to do
X for vi users. THIS IS NOT A "CLONE"!
X
X This is the first really public version of vile. It is
X version three. Users of previous versions will hopefully find
X the additions of ":" command line ranges and the ! filter
X operator helpful.
X
X The collective developers of Micro-Emacs should be
X complimented that the changes were as easy as they were. The
X code was pretty clean and well designed before I started on
X it. I'm not sure that the same can be said anymore...
X
X The benefits over standard vi include:
X - multiple files open at once
X - multiple windows on the screen
X - a larger set of operator commands
X - the possibility of porting to your favorite micro.
X (mind you, I haven't even tried this on a small
X UNIX machine, let alone DOS etc...)
X - more uniform undo/yank register treatment
X - using tags doesn't lose your last search pattern
X - "next error" cursor positioning after compilation
X Of course, it _may_ lack some of vi's reliability. :-)
X
X ( Although I can't imagine the emacs folks wanting to buy much
X of this stuff back (insert mode, anyone? :-), they might
X want to look at:
X - full global undo
X - tags support
X - better (maybe?) UNIX terminal handling
X - better UNIX shell escapes
X - terminal scroll support
X - multiple yank registers (formerly called kill buffers)
X - multiple marks (actually kind of messy)
X - improved aesthetics of window splitting and deleting
X - "next error" cursor positioning
X - list mode )
X
X Take a look at vile.hlp for more information about features
X and differences.
X
X In general, I suspect that the quality of the code is roughly
X on a par with MicroEmacs. I've been using vile regularly under
X both SunOS and 386 UNIX for about a year, with no major problems
X (that havn't been fixed). Another dedicated user has been
X running it on various flavors of 386 UNIX (Bell, Open DeskTop,
X Xenix) and Ultrix, also with no problems.
X
X I have not tried this on a small system, or even _any_
X non-UNIX system. I'm sure work will be required to make
X it work on DOS again, for instance -- especially for spawning
X sub-shells, etc.
X
X I ifdef'ed out the language features (user-defined procs,
X etc.) a long time ago -- I don't know if they still work,
X though I didn't actively try to break them.
X
X If anyone is interested in doing major work on this thing, let me
X know -- I have some ideas on how to make a full ex mode work, for
X instance, and on how to add the ":map" command. Also, take a look
X at the buglist...
X
X Hope you enjoy --
X
X Paul G. Fox June 3, 1991
X pgf@cayman.com
X
p.s. The code distributed with vile in the "shortnames" subdirectory
X is covered by GNU Public License. The vile code itself in the
X upper level directory is _not_ covered by the GNU public license.
X
p.p.s By the way, I'm _not_ the same Paul Fox who wrote Crisp, the Brief
X work-alike.
SHAR_EOF
chmod 0444 README ||
echo 'restore of README failed'
Wc_c="`wc -c < 'README'`"
test 3835 -eq "$Wc_c" ||
echo 'README: original size 3835, current size' "$Wc_c"
# ============= ansi.c ==============
echo 'x - extracting ansi.c (Text)'
sed 's/^X//' << 'SHAR_EOF' > 'ansi.c' &&
/*
X * The routines in this file provide support for ANSI style terminals
X * over a serial line. The serial I/O services are provided by routines in
X * "termio.c". It compiles into nothing if not an ANSI device.
X */
X
#define termdef 1 /* don't define "term" external */
X
#include <stdio.h>
#include "estruct.h"
#include "edef.h"
X
#if ANSI
X
#if AMIGA
#define NROW 23 /* Screen size. */
#define NCOL 77 /* Edit if you want to. */
#else
#define NROW 24 /* Screen size. */
#define NCOL 80 /* Edit if you want to. */
#endif
#define NPAUSE 100 /* # times thru update to pause */
#define MARGIN 8 /* size of minimim margin and */
#define SCRSIZ 64 /* scroll size for extended lines */
#define BEL 0x07 /* BEL character. */
#define ESC 0x1B /* ESC character. */
X
extern int ttopen(); /* Forward references. */
extern int ttgetc();
extern int ttputc();
extern int ttflush();
extern int ttclose();
extern int ansimove();
extern int ansieeol();
extern int ansieeop();
extern int ansibeep();
extern int ansiopen();
extern int ansirev();
extern int ansiclose();
extern int ansikopen();
extern int ansikclose();
extern int ansicres();
#if SCROLLCODE
extern int ansiscroll();
#endif
X
#if COLOR
extern int ansifcol();
extern int ansibcol();
X
int cfcolor = -1; /* current forground color */
int cbcolor = -1; /* current background color */
X
#if AMIGA
/* apperently the AMIGA does not follow the ANSI standards as
X regards to colors....maybe because of the default pallette
X settings?
*/
X
int coltran[8] = {2, 3, 5, 7, 0, 4, 6, 1}; /* color translation table */
#endif
#endif
X
/*
X * Standard terminal interface dispatch table. Most of the fields point into
X * "termio" code.
X */
TERM term = {
X NROW-1,
X NROW-1,
X NCOL,
X NCOL,
X MARGIN,
X SCRSIZ,
X NPAUSE,
X ansiopen,
X ansiclose,
X ansikopen,
X ansikclose,
X ttgetc,
X ttputc,
X ttflush,
X ansimove,
X ansieeol,
X ansieeop,
X ansibeep,
X ansirev,
X ansicres
#if COLOR
X , ansifcol,
X ansibcol
#endif
#if SCROLLCODE
X , ansiscroll
#endif
};
X
csi()
{
X ttputc(ESC);
X ttputc('[');
}
X
#if COLOR
ansifcol(color) /* set the current output color */
X
int color; /* color to set */
X
{
X if (color == cfcolor)
X return;
X csi();
#if AMIGA
X ansiparm(coltran[color]+30);
#else
X ansiparm(color+30);
#endif
X ttputc('m');
X cfcolor = color;
}
X
ansibcol(color) /* set the current background color */
X
int color; /* color to set */
X
{
X if (color == cbcolor)
X return;
X csi();
#if AMIGA
X ansiparm(coltran[color]+40);
#else
X ansiparm(color+40);
#endif
X ttputc('m');
X cbcolor = color;
}
#endif
X
ansimove(row, col)
{
X csi();
X if (row) ansiparm(row+1);
X ttputc(';');
X if (col) ansiparm(col+1);
X ttputc('H');
}
X
ansieeol()
{
X csi();
X ttputc('K');
}
X
ansieeop()
{
#if COLOR
X ansifcol(gfcolor);
X ansibcol(gbcolor);
#endif
X csi();
X ttputc('J');
}
X
X
ansirev(state) /* change reverse video state */
X
int state; /* TRUE = reverse, FALSE = normal */
X
{
#if COLOR
X int ftmp, btmp; /* temporaries for colors */
#else
X static int revstate = -1;
X if (state == revstate)
X return;
X revstate = state;
#endif
X
X csi();
X if (state) ttputc('7');
X ttputc('m');
#if COLOR
X if (state == FALSE) {
X ftmp = cfcolor;
X btmp = cbcolor;
X cfcolor = -1;
X cbcolor = -1;
X ansifcol(ftmp);
X ansibcol(btmp);
X }
#endif
}
X
ansicres() /* change screen resolution */
{
X return(TRUE);
}
X
spal(dummy) /* change pallette settings */
{
X /* none for now */
}
X
ansibeep()
{
X ttputc(BEL);
X ttflush();
}
X
#if SCROLLCODE
X
/* if your ansi terminal can scroll regions, like the vt100, then define
X SCROLL_REG. If not, you can use delete/insert line code, which
X is prettier but slower if you do it a line at a time instead of
X all at once.
*/
X
#define SCROLL_REG 1
X
/* move howmany lines starting at from to to */
ansiscroll(from,to,howmany)
{
X int i;
X if (to == from) return;
#if SCROLL_REG
X if (to < from) {
X ansiscrollregion(to, from + howmany - 1);
X ansimove(from + howmany - 1,0);
X for (i = from - to; i > 0; i--)
X ttputc('\n');
X } else { /* from < to */
X ansiscrollregion(from, to + howmany - 1);
X ansimove(from);
X for (i = to - from; i > 0; i--) {
X ttputc(ESC);
X ttputc('M');
X }
X }
X ansiscrollregion(0, term.t_mrow);
X
#else /* use insert and delete line */
#if PRETTIER_SCROLL
X if (abs(from-to) > 1) {
X ansiscroll(from, (from<to) ? to-1:to+1, howmany);
X if (from < to)
X from = to-1;
X else
X from = to+1;
X }
#endif
X if (to < from) {
X ansimove(to,0);
X csi();
X if (from - to > 1) ansiparm(from - to);
X ttputc('M'); /* delete */
X ansimove(to+howmany,0);
X csi();
X if (from - to > 1) ansiparm(from - to);
X ttputc('L'); /* insert */
X } else {
X ansimove(from+howmany,0);
X csi();
X if (to - from > 1) ansiparm(to - from);
X ttputc('M'); /* delete */
X ansimove(from,0);
X csi();
X if (to - from > 1) ansiparm(to - from);
X ttputc('L'); /* insert */
X }
#endif
}
X
#if SCROLL_REG
ansiscrollregion(top,bot)
{
X csi();
X if (top) ansiparm(top + 1);
X ttputc(';');
X if (bot != term.t_nrow) ansiparm(bot + 1);
X ttputc('r');
}
#endif
X
#endif
X
ansiparm(n)
register int n;
{
X register int q,r;
X
X q = n/10;
X if (q != 0) {
X r = q/10;
X if (r != 0) {
X ttputc((r%10)+'0');
X }
X ttputc((q%10) + '0');
X }
X ttputc((n%10) + '0');
}
X
ansiopen()
{
#if V7 | USG | BSD
#if 0
X register char *cp;
X char *getenv();
X
X if ((cp = getenv("TERM")) == NULL) {
X puts("Shell variable TERM not defined!");
X exit(1);
X }
X if (strcmp(cp, "vt100") != 0 && strcmp(cp, "ansi") != 0) {
X puts("Terminal type not 'vt100' or 'ansi'!");
X exit(1);
X }
#endif
#endif
X strcpy(sres, "NORMAL");
X revexist = TRUE;
X ttopen();
}
X
ansiclose()
{
#if COLOR
X ansifcol(7);
X ansibcol(0);
#endif
X ttclose();
}
X
ansikopen() /* open the keyboard (a noop here) */
{
}
X
ansikclose() /* close the keyboard (a noop here) */
{
}
X
#if FLABEL
fnclabel(f, n) /* label a function key */
int f,n; /* default flag, numeric argument [unused] */
{
X /* on machines with no function keys...don't bother */
X return(TRUE);
}
#endif
#else
ansihello()
{
}
#endif
SHAR_EOF
chmod 0444 ansi.c ||
echo 'restore of ansi.c failed'
Wc_c="`wc -c < 'ansi.c'`"
test 6488 -eq "$Wc_c" ||
echo 'ansi.c: original size 6488, current size' "$Wc_c"
# ============= at386.c ==============
echo 'x - extracting at386.c (Text)'
sed 's/^X//' << 'SHAR_EOF' > 'at386.c' &&
/* AT386: hacked tcap.c for the 386 console, when you don't
X have libtermcap. grrr.
*/
X
#define termdef 1 /* don't define "term" external */
X
#include <stdio.h>
#include "estruct.h"
#include "edef.h"
X
#if AT386
X
#define NROW 25 /* Screen size. */
#define NCOL 80 /* Edit if you want to. */
#define MARGIN 8
#define SCRSIZ 64
#define NPAUSE 10 /* # times thru update to pause */
#define BEL 0x07
#define ESC 0x1B
X
extern int ttopen();
extern int ttgetc();
extern int ttputc();
extern int tgetnum();
extern int ttflush();
extern int ttclose();
extern int at386kopen();
extern int at386kclose();
extern int at386move();
extern int at386eeol();
extern int at386eeop();
extern int at386beep();
extern int at386rev();
extern int at386cres();
extern int at386open();
extern int tput();
extern char *tgoto();
#if COLOR
extern int at386fcol();
extern int at386bcol();
#endif
#if SCROLLCODE
extern int at386scroll_delins();
#endif
X
#define TCAPSLEN 315
char at386buf[TCAPSLEN];
char *UP, PC, *CM, *CE, *CL, *SO, *SE;
X
#if SCROLLCODE
char *DL, *AL, *SF, *SR;
#endif
X
TERM term = {
X NROW-1,
X NROW-1,
X NCOL,
X NCOL,
X MARGIN,
X SCRSIZ,
X NPAUSE,
X at386open,
X ttclose,
X at386kopen,
X at386kclose,
X ttgetc,
X ttputc,
X ttflush,
X at386move,
X at386eeol,
X at386eeop,
X at386beep,
X at386rev,
X at386cres
#if COLOR
X , at386fcol,
X at386bcol
#endif
#if SCROLLCODE
X , NULL /* set dynamically at open time */
#endif
};
X
at386open()
{
X char *getenv();
X char *t, *p, *tgetstr();
X char tcbuf[1024];
X char *tv_stype;
X char err_str[72];
X
X CL = "\033[2J\033[H";
X CE = "\033[K";
X UP = "\033[A";
X SE = "\033[m";
X SO = "\033[7m";
X revexist = TRUE;
X
X
#if SCROLLCODE
X DL = "\033[1M";
X AL = "\033[1L";
X term.t_scroll = at386scroll_delins;
#endif
X ttopen();
}
X
at386kopen()
{
X strcpy(sres, "NORMAL");
}
X
at386kclose()
{
}
X
csi()
{
X ttputc(ESC);
X ttputc('[');
}
X
ansiparm(n)
register int n;
{
X register int q,r;
X
X q = n/10;
X if (q != 0) {
X r = q/10;
X if (r != 0) {
X ttputc((r%10)+'0');
X }
X ttputc((q%10) + '0');
X }
X ttputc((n%10) + '0');
}
X
at386move(row, col)
register int row, col;
{
X csi();
X if (row) ansiparm(row+1);
X ttputc(';');
X if (col) ansiparm(col+1);
X ttputc('H');
}
X
at386eeol()
{
X fputs(CE,stdout);
}
X
at386eeop()
{
X fputs(CL,stdout);
}
X
at386rev(state) /* change reverse video status */
int state; /* FALSE = normal video, TRUE = reverse video */
{
X static int revstate = -1;
X if (state == revstate)
X return;
X revstate = state;
X if (state) {
X if (SO != NULL)
X fputs(SO,stdout);
X } else {
X if (SE != NULL)
X fputs(SE,stdout);
X }
}
X
at386cres() /* change screen resolution */
{
X return(TRUE);
}
X
#if SCROLLCODE
X
/*
PRETTIER_SCROLL is prettier but slower -- it scrolls
X a line at a time instead of all at once.
*/
X
/* move howmany lines starting at from to to */
at386scroll_delins(from,to,howmany)
{
X int i;
X if (to == from) return;
#if PRETTIER_SCROLL
X if (abs(from-to) > 1) {
X at386scroll_delins(from, (from<to) ? to-1:to+1, howmany);
X if (from < to)
X from = to-1;
X else
X from = to+1;
X }
#endif
X if (to < from) {
X at386move(to,0);
X for (i = from - to; i > 0; i--)
X fputs(DL,stdout);
X at386move(to+howmany,0);
X for (i = from - to; i > 0; i--)
X fputs(AL,stdout);
X } else {
X at386move(from+howmany,0);
X for (i = to - from; i > 0; i--)
X fputs(DL,stdout);
X at386move(from,0);
X for (i = to - from; i > 0; i--)
X fputs(AL,stdout);
X }
}
X
#endif
X
spal(dummy) /* change palette string */
{
X /* Does nothing here */
}
X
X
#if COLOR
at386fcol() /* no colors here, ignore this */
{
}
X
at386bcol() /* no colors here, ignore this */
{
}
#endif
X
at386beep()
{
X ttputc(BEL);
}
X
X
#if FLABEL
fnclabel(f, n) /* label a function key */
int f,n; /* default flag, numeric argument [unused] */
{
X /* on machines with no function keys...don't bother */
X return(TRUE);
}
#endif
#else
X
hello()
{
}
X
#endif
SHAR_EOF
chmod 0444 at386.c ||
echo 'restore of at386.c failed'
Wc_c="`wc -c < 'at386.c'`"
test 4175 -eq "$Wc_c" ||
echo 'at386.c: original size 4175, current size' "$Wc_c"
# ============= basic.c ==============
echo 'x - extracting basic.c (Text)'
sed 's/^X//' << 'SHAR_EOF' > 'basic.c' &&
/*
X * The routines in this file move the cursor around on the screen. They
X * compute a new value for the cursor, then adjust ".". The display code
X * always updates the cursor location, so only moves between lines, or
X * functions that adjust the top line in the window and invalidate the
X * framing, are hard.
X */
#include <stdio.h>
#include "estruct.h"
#include "edef.h"
X
/*
X * Move the cursor to the
X * beginning of the current line.
X * Trivial.
X */
gotobol(f, n)
{
X curwp->w_doto = 0;
X return (TRUE);
}
X
/*
X * Move the cursor backwards by "n" characters. If "n" is less than zero call
X * "forwchar" to actually do the move. Otherwise compute the new cursor
X * location. Error if you try and move out of the buffer. Set the flag if the
X * line pointer for dot changes.
X */
backchar(f, n)
register int n;
{
X register LINE *lp;
X
X if (f == FALSE) n = 1;
X if (n < 0)
X return (forwchar(f, -n));
X while (n--) {
X if (curwp->w_doto == 0) {
X if ((lp=lback(curwp->w_dotp)) == curbp->b_linep)
X return (FALSE);
X curwp->w_dotp = lp;
X curwp->w_doto = llength(lp);
X curwp->w_flag |= WFMOVE;
X } else
X curwp->w_doto--;
X }
X return (TRUE);
}
X
/*
X * Move the cursor to the end of the current line. Trivial. No errors.
X */
gotoeol(f, n)
{
X if (f == TRUE) {
X if (n > 0)
X --n;
X else if (n < 0)
X ++n;
X forwline(f,n);
X }
X curwp->w_doto = llength(curwp->w_dotp);
X curgoal = HUGE;
X return (TRUE);
}
X
/*
X * Move the cursor forwards by "n" characters. If "n" is less than zero call
X * "backchar" to actually do the move. Otherwise compute the new cursor
X * location, and move ".". Error if you try and move off the end of the
X * buffer. Set the flag if the line pointer for dot changes.
X */
forwchar(f, n)
register int n;
{
X if (f == FALSE) n = 1;
X if (n < 0)
X return (backchar(f, -n));
X while (n--) {
X if (curwp->w_doto == llength(curwp->w_dotp)) {
X if (curwp->w_dotp == curbp->b_linep ||
X lforw(curwp->w_dotp) == curbp->b_linep)
X return (FALSE);
X curwp->w_dotp = lforw(curwp->w_dotp);
X curwp->w_doto = 0;
X curwp->w_flag |= WFMOVE;
X } else
X curwp->w_doto++;
X }
X return (TRUE);
}
X
gotoline(f, n) /* move to a particular line.
X argument (n) must be a positive integer for
X this to actually do anything */
{
X register int status; /* status return */
X
X /* get an argument if one doesnt exist */
X if (f == FALSE) {
X return(gotoeob(f,n));
X }
X
X if (n < 1) /* if a bogus argument...then leave */
X return(FALSE);
X
X /* first, we go to the start of the buffer */
X curwp->w_dotp = lforw(curbp->b_linep);
X curwp->w_doto = 0;
X status = forwline(f, n-1);
X if (status == TRUE)
X firstnonwhite(f,n);
X return(status);
}
X
/*
X * Goto the beginning of the buffer. Massive adjustment of dot. This is
X * considered to be hard motion; it really isn't if the original value of dot
X * is the same as the new value of dot.
X */
gotobob(f, n)
{
X curwp->w_dotp = lforw(curbp->b_linep);
X curwp->w_doto = 0;
X curwp->w_flag |= WFMOVE;
X return (TRUE);
}
X
/*
X * Move to the end of the buffer. Dot is always put at the end of the file
X * (ZJ). The standard screen code does most of the hard parts of update.
X */
gotoeob(f, n)
{
X curwp->w_dotp = lback(curbp->b_linep);
X firstnonwhite(FALSE,1);
X curwp->w_flag |= WFMOVE;
X return (TRUE);
}
X
gotobos(f,n)
{
X int s = TRUE;
X if (f == FALSE || n <= 0) n = 1;
X curwp->w_dotp = curwp->w_linep;
X while (--n) {
X if ((s = forwline(FALSE,1)) != TRUE)
X break;
X }
X firstnonwhite(f,n);
X return (s);
}
X
gotomos(f,n)
{
X return gotobos(TRUE,curwp->w_ntrows/2);
}
X
gotoeos(f,n)
{
X return gotobos(TRUE,curwp->w_ntrows-(f==TRUE? n-1:0));
}
X
/*
X * Move forward by full lines. If the number of lines to move is less than
X * zero, call the backward line function to actually do it. The last command
X * controls how the goal column is set. No errors are
X * possible.
X */
forwline(f, n)
{
X register LINE *dlp;
X
X if (f == FALSE) n = 1;
X if (n < 0)
X return (backline(f, -n));
X
X /* if we are on the last line as we start....fail the command */
X if (curwp->w_dotp == curbp->b_linep)
X return(FALSE);
X
X /* if the last command was not a line move,
X reset the goal column */
X if (curgoal < 0)
X curgoal = getccol(FALSE);
X
X /* and move the point down */
X dlp = curwp->w_dotp;
X while (n-- && dlp!=curbp->b_linep)
X dlp = lforw(dlp);
X
X /* resetting the current position */
X curwp->w_dotp = (dlp == curbp->b_linep) ? lback(dlp) : dlp;
X curwp->w_doto = getgoal(dlp);
X curwp->w_flag |= WFMOVE;
X return (TRUE);
}
X
firstnonwhite(f,n)
{
X int c;
X curwp->w_doto = 0;
X while ( curwp->w_doto != llength(curwp->w_dotp) &&
X isspace(lgetc(curwp->w_dotp, curwp->w_doto)) )
X curwp->w_doto++;
X return (TRUE);
}
X
lastnonwhite(f,n)
{
X int c;
X curwp->w_doto = llength(curwp->w_dotp)-1;
X while ( curwp->w_doto != 0 &&
X ((c = lgetc(curwp->w_dotp, curwp->w_doto)) == ' ' || c == '\t'))
X curwp->w_doto--;
X return (TRUE);
X
}
X
/* like forwline, but got to first non-white char position */
forwbline(f,n)
{
X int s;
X
X if (f == FALSE) n = 1;
X if ((s = forwline(f,n)) != TRUE)
X return (s);
X firstnonwhite(f,n);
X return(TRUE);
}
X
/* like backline, but got to first non-white char position */
backbline(f,n)
{
X int s;
X
X if (f == FALSE) n = 1;
X if ((s = backline(f,n)) != TRUE)
X return (s);
X firstnonwhite(f,n);
X return(TRUE);
}
X
/*
X * This function is like "forwline", but goes backwards. The scheme is exactly
X * the same. Check for arguments that are less than zero and call your
X * alternate. Figure out the new line and call "movedot" to perform the
X * motion. No errors are possible.
X */
backline(f, n)
{
X register LINE *dlp;
X
X if (f == FALSE) n = 1;
X if (n < 0)
X return (forwline(f, -n));
X
X
X /* if we are on the last line as we start....fail the command */
X if (lback(curwp->w_dotp) == curbp->b_linep)
X return(FALSE);
X
X /* if the last command was not note a line move,
X reset the goal column */
X if (curgoal < 0)
X curgoal = getccol(FALSE);
X
X /* and move the point up */
X dlp = curwp->w_dotp;
X while (n-- && lback(dlp)!=curbp->b_linep)
X dlp = lback(dlp);
X
X /* reseting the current position */
X curwp->w_dotp = dlp;
X curwp->w_doto = getgoal(dlp);
X curwp->w_flag |= WFMOVE;
X return (TRUE);
}
X
#if WORDPRO
X
gotobop(f,n)
{
X return(backlinebeg(f,n,"\n.","ILPQb"));
}
gotoeop(f,n)
{
X return(forwlinebeg(f,n,"\n.","ILPQb"));
}
gotobosec(f,n)
{
#if STUTTER_SEC_CMD
X int this1key;
X if (!clexec) {
X this1key = last1key;
X kbd_seq();
X if (this1key != last1key) {
X TTbeep();
X return(FALSE);
X }
X }
#endif
X return(backlinebeg(f,n,"{\f.","SHN"));
}
gotoeosec(f,n)
{
#if STUTTER_SEC_CMD
X int this1key;
X if (!clexec) {
X this1key = last1key;
X kbd_seq();
X if (this1key != last1key) {
X TTbeep();
X return(FALSE);
X }
X }
#endif
X return(forwlinebeg(f,n,"{\f.","SHN"));
}
X
backlinebeg(f, n, s1, s2)
char *s1, *s2;
{
X register int suc; /* success of last backchar */
X LINE *odotp;
X
X if (f == FALSE) n = 1;
X if (n < 0) /* the other way...*/
X return(gotoeop(f, -n));
X
X odotp = curwp->w_dotp;
X while (n-- > 0) { /* for each one asked for */
X
X /* first scan back until we are in a word */
X suc = backchar(FALSE, 1);
X while (!inword() && suc)
X suc = backchar(FALSE, 1);
X
X while (lback(curwp->w_dotp) != curbp->b_linep) {
X if (issecbeg(s1,s2) == TRUE)
X break;
X curwp->w_dotp = lback(curwp->w_dotp);
X }
X }
X /* if doing an operation and we moved */
X if (doingopcmd && odotp != curwp->w_dotp) {
X curwp->w_dotp = lforw(curwp->w_dotp);
X curwp->w_doto = 0;
X } else {
X firstnonwhite(f,n);
X }
X curwp->w_flag |= WFMOVE; /* force screen update */
X return(TRUE);
}
X
forwlinebeg(f, n, s1, s2)
char *s1, *s2;
{
X register int suc; /* success of last backchar */
X LINE *odotp;
X
X if (f == FALSE) n = 1;
X if (n < 0) /* the other way...*/
X return(gotobop(f, -n));
X
X odotp = curwp->w_dotp;
X while (n-- > 0) { /* for each one asked for */
X
X /* first scan forward until we are in a word */
X suc = forwchar(FALSE, 1);
X while (!inword() && suc)
X suc = forwchar(FALSE, 1);
X curwp->w_doto = 0; /* and go to the B-O-Line */
X if (suc) /* of next line if not at EOF */
X curwp->w_dotp = lforw(curwp->w_dotp);
X
X while (curwp->w_dotp != curbp->b_linep) {
X if (issecbeg(s1,s2) == TRUE)
X break;
X curwp->w_dotp = lforw(curwp->w_dotp);
X }
X }
X /* if doing an operation and we moved */
X if (doingopcmd && odotp != curwp->w_dotp) {
X curwp->w_dotp = lback(curwp->w_dotp);
X curwp->w_doto = llength(curwp->w_dotp)-1;
X } else {
X firstnonwhite(f,n);
X }
X curwp->w_flag |= WFMOVE; /* force screen update */
X return(TRUE);
}
X
/* a new "section" of some sort starts at the beginning of the line,
X with either a character from s1 or a "." followed by a character
X from s2 */
issecbeg(s1,s2)
char *s1,*s2;
{
X register char *cp1, *cp2;
X register int l, c1, c2;
X
X l = llength(curwp->w_dotp);
X for(cp1 = s1; *cp1 != 0; cp1++) {
X if ( l == 0) {
X if (*cp1 == '\n')
X return TRUE;
X else
X continue;
X }
X c1 = lgetc(curwp->w_dotp, 0);
X if (c1 == '.' && *cp1 == '.' && s2) {
X for(cp2 = s2; *cp2 != 0; cp2++) {
X if ( l <= 1) {
X if (*cp2 == '\n')
X return TRUE;
X else
X continue;
X }
X c2 = lgetc(curwp->w_dotp, 1);
X if ( *cp2 == c2 )
X return TRUE;
X }
X
X } else if ( *cp1 == c1 ) {
X return TRUE;
X }
X }
X return FALSE;
}
#endif
X
/*
X * This routine, given a pointer to a LINE, and the current cursor goal
X * column, return the best choice for the offset. The offset is returned.
X * Used by "C-N" and "C-P".
X */
getgoal(dlp)
register LINE *dlp;
{
X register int c;
X register int col;
X register int newcol;
X register int dbo;
X
X col = 0;
X dbo = 0;
X while (dbo != llength(dlp)) {
X c = lgetc(dlp, dbo);
X newcol = col;
X if (((curwp->w_bufp->b_mode&MDLIST) == 0) && c == '\t')
X newcol |= TABMASK;
X else if (!isprint(c))
X ++newcol;
X ++newcol;
X if (newcol > curgoal)
X break;
X col = newcol;
X ++dbo;
X }
X return (dbo);
}
X
/*
X * Scroll forward by a specified number of lines, or by a full page if no
X * argument. The "2" in the arithmetic on the window size is
X * the overlap; this value is the default overlap value in ITS EMACS. Because
X * this zaps the top line in the display window, we have to do a hard update.
X */
forwpage(f, n)
register int n;
{
X register LINE *lp;
X
X if (f == FALSE) {
X n = curwp->w_ntrows - 2; /* Default scroll. */
X if (n <= 0) /* Forget the overlap */
X n = 1; /* if tiny window. */
X } else if (n < 0)
X return (backpage(f, -n));
#if CVMVAS
X else /* Convert from pages */
X n *= curwp->w_ntrows; /* to lines. */
#endif
X lp = curwp->w_linep;
X while (n-- && lp!=curbp->b_linep)
X lp = lforw(lp);
X curwp->w_linep = lp;
X curwp->w_dotp = lp;
X curwp->w_doto = 0;
X curwp->w_flag |= WFHARD;
X return (TRUE);
}
X
/*
X * This command is like "forwpage", but it goes backwards. The "2", like
X * above, is the overlap between the two windows. The value is from the ITS
X * EMACS manual. We do a hard update for exactly the same
X * reason.
X */
backpage(f, n)
register int n;
{
X register LINE *lp;
X
X if (f == FALSE) {
X n = curwp->w_ntrows - 2; /* Default scroll. */
X if (n <= 0) /* Don't blow up if the */
X n = 1; /* window is tiny. */
X } else if (n < 0)
X return (forwpage(f, -n));
#if CVMVAS
X else /* Convert from pages */
X n *= curwp->w_ntrows; /* to lines. */
#endif
X lp = curwp->w_linep;
X while (n-- && lback(lp)!=curbp->b_linep)
X lp = lback(lp);
X curwp->w_linep = lp;
X curwp->w_dotp = lp;
X curwp->w_doto = 0;
X curwp->w_flag |= WFHARD;
X return (TRUE);
}
X
/*
X * Scroll forward by a specified number of lines, or by a full page if no
X * argument. The "2" in the arithmetic on the window size is
X * the overlap; this value is the default overlap value in ITS EMACS. Because
X * this zaps the top line in the display window, we have to do a hard update.
X */
forwhpage(f, n)
register int n;
{
X register LINE *llp, *dlp;
X
X if (f == FALSE) {
X n = curwp->w_ntrows / 2; /* Default scroll. */
X if (n <= 0) /* Forget the overlap */
X n = 1; /* if tiny window. */
X } else if (n < 0)
X return (backhpage(f, -n));
#if CVMVAS
X else /* Convert from pages */
X n *= curwp->w_ntrows/2; /* to lines. */
#endif
X llp = curwp->w_linep;
X dlp = curwp->w_dotp;
X while (n-- && lforw(dlp) != curbp->b_linep) {
X llp = lforw(llp);
X dlp = lforw(dlp);
X }
X curwp->w_linep = llp;
X curwp->w_dotp = dlp;
X firstnonwhite(f,n);
X curwp->w_flag |= WFHARD|WFKILLS;
X return (TRUE);
}
X
/*
X * This command is like "forwpage", but it goes backwards. The "2", like
X * above, is the overlap between the two windows. The value is from the ITS
X * EMACS manual. We do a hard update for exactly the same
X * reason.
X */
backhpage(f, n)
register int n;
{
X register LINE *llp, *dlp;
X
X if (f == FALSE) {
X n = curwp->w_ntrows / 2; /* Default scroll. */
X if (n <= 0) /* Don't blow up if the */
X n = 1; /* window is tiny. */
X } else if (n < 0)
X return (forwhpage(f, -n));
#if CVMVAS
X else /* Convert from pages */
X n *= curwp->w_ntrows/2; /* to lines. */
#endif
X llp = curwp->w_linep;
X dlp = curwp->w_dotp;
X while (n-- && lback(dlp)!=curbp->b_linep) {
X llp = lback(llp);
X dlp = lback(dlp);
X }
X curwp->w_linep = llp;
X curwp->w_dotp = dlp;
X firstnonwhite(f,n);
X curwp->w_flag |= WFHARD|WFINS;
X return (TRUE);
}
X
X
X
/*
X * Set the named mark in the current window to the value of "." in the window.
X * No errors are possible.
X */
setnmmark(f,n)
{
X char *s;
X int c,i;
X
X if (clexec || isnamedcmd) {
X int stat;
X static char cbuf[2];
X if ((stat=mlreply("Set mark: ", cbuf, 2)) != TRUE)
X return stat;
X c = cbuf[0];
X } else {
X c = kbd_key();
X }
X if (c < 'a' || c > 'z') {
X TTbeep();
X mlwrite("[Invalid mark name]");
X return FALSE;
X }
X
X if (curbp->b_nmmarks == NULL) {
X curbp->b_nmmarks =
X (struct MARK *)malloc(26*sizeof(struct MARK));
X if (curbp->b_nmmarks == NULL) {
X mlwrite("[OUT OF MEMORY]");
X return FALSE;
X }
X for (i = 0; i < 26; i++) {
X curbp->b_nmmarks[i].markp = NULL;
X curbp->b_nmmarks[i].marko = 0;
X }
X }
X
X curbp->b_nmmarks[c-'a'].markp = curwp->w_dotp;
X curbp->b_nmmarks[c-'a'].marko = curwp->w_doto;
X s = "[Mark X set]";
X s[6] = c;
X mlwrite(s);
X return TRUE;
}
X
golinenmmark(f,n)
{
X int status;
X status = goexactnmmark(f,n);
X if (status != TRUE)
X return(status);
X firstnonwhite(f,n);
X return(TRUE);
}
X
goexactnmmark(f,n)
{
X int c;
X int this1key;
X int useldmark;
X
X this1key = last1key;
X c = kbd_seq();
X useldmark = (last1key == this1key); /* '' or `` */
X c = kcod2key(c);
X
X if (useldmark)
X c = '\'';
X
X return gonmmark(c);
}
X
gonmmark(c)
{
X register LINE **markpp;
X register int *markop;
X LINE *tmarkp;
X int tmarko;
X int found;
X
X if (!islower(c) && c != '\'') {
X TTbeep();
X mlwrite("[Invalid mark name]");
X return FALSE;
X }
X
X markpp = NULL;
X
X if (c == '\'') { /* use the 'last dot' mark */
X markpp = &(curwp->w_ldmkp);
X markop = &(curwp->w_ldmko);
X } else if (curbp->b_nmmarks != NULL) {
X markpp = &(curbp->b_nmmarks[c-'a'].markp);
X markop = &(curbp->b_nmmarks[c-'a'].marko);
X }
X
X found = FALSE;
X if (markpp != NULL && *markpp != NULL) {
X register LINE *lp;
X for (lp = lforw(curbp->b_linep);
X lp != curbp->b_linep; lp = lforw(lp)) {
X if (*markpp == lp) {
X found = TRUE;
X break;
X }
X }
X }
X if (!found) {
X TTbeep();
X mlwrite("[Mark not set]");
X return (FALSE);
X }
X
X /* save current dot */
X tmarkp = curwp->w_dotp;
X tmarko = curwp->w_doto;
X
X /* move to the selected mark */
X curwp->w_dotp = *markpp;
X curwp->w_doto = *markop;
X
X /* reset last-dot-mark to old dot */
X curwp->w_ldmkp = tmarkp;
X curwp->w_ldmko = tmarko;
X
X curwp->w_flag |= WFMOVE;
X return (TRUE);
}
X
/*
X * Set the mark in the current window to the value of "." in the window. No
X * errors are possible.
X */
setmark()
{
X curwp->w_mkp = curwp->w_dotp;
X curwp->w_mko = curwp->w_doto;
X return (TRUE);
}
X
gomark(f,n)
{
X curwp->w_dotp = curwp->w_mkp;
X curwp->w_doto = curwp->w_mko;
X curwp->w_flag |= WFMOVE;
X return (TRUE);
}
X
/* this odd routine puts us at the internal mark, plus an offset of lines */
/* n == 1 leaves us at mark, n == 2 one line down, etc. */
/* this is for the use of stuttered commands, and line oriented regions */
godotplus(f,n)
{
X int s;
X if (!f || n == 1)
X return (TRUE);
X if (n < 1)
X return (FALSE);
X s = forwline(TRUE,n-1);
X if (s && curwp->w_dotp == curbp->b_linep)
X s = backline(FALSE,1);
X return s;
}
X
atmark()
{
X return ((curwp->w_dotp == curwp->w_mkp) &&
X (curwp->w_doto == curwp->w_mko));
}
X
/*
X * Swap the values of "." and "mark" in the current window. This is pretty
X * easy, bacause all of the hard work gets done by the standard routine
X * that moves the mark about. The only possible error is "no mark".
X */
swapmark()
{
X register LINE *odotp;
X register int odoto;
X
X if (curwp->w_mkp == NULL) {
X mlwrite("No mark in this window");
X return (FALSE);
X }
X odotp = curwp->w_dotp;
X odoto = curwp->w_doto;
X curwp->w_dotp = curwp->w_mkp;
X curwp->w_doto = curwp->w_mko;
X curwp->w_mkp = odotp;
X curwp->w_mko = odoto;
X curwp->w_flag |= WFMOVE;
X return (TRUE);
}
X
X
X
#if NeWS
/* SETCURSOR
X *
X * Mouse support function. Put the cursor to the requested location.
X * The cursor will be put just after the last character of the line if
X * requested past the line. The coordinates are expected in the command
X * stream.
X * In the case of multiple windows, the window indicated by the mouse
X * is located and made the current window.
X */
setcursor()
{
int row, col, pasteol ;
register LINE *dlp;
WINDOW *wp0 ; /* current window on entry */
X
X row = tgetc() ;
X col = tgetc() ;
X
/* find the window we are pointing to */
X wp0 = curwp ;
X while ( row < curwp->w_toprow ||
X row > curwp->w_ntrows + curwp->w_toprow ) {
X nextwind(FALSE,0) ;
X if ( curwp == wp0 ) break ; /* full circle */
X }
X
/* move to the right row */
X row -= curwp->w_toprow ;
X dlp = curwp->w_linep ; /* get pointer to 1st line */
X while ( row-- && (dlp != curbp->b_linep) ) dlp = lforw(dlp) ;
X curwp->w_dotp = dlp ; /* set dot line pointer */
X
X /* now move the dot over until near the requested column */
X curgoal = col ; /* a global for this ?? */
X curwp->w_doto = getgoal(dlp) ;
X curwp->w_flag |= WFMOVE;
X return (TRUE);
}
#endif
SHAR_EOF
chmod 0444 basic.c ||
echo 'restore of basic.c failed'
Wc_c="`wc -c < 'basic.c'`"
test 20335 -eq "$Wc_c" ||
echo 'basic.c: original size 20335, current size' "$Wc_c"
# ============= bind.c ==============
echo 'x - extracting bind.c (Text)'
sed 's/^X//' << 'SHAR_EOF' > 'bind.c' &&
/* This file is for functions having to do with key bindings,
X descriptions, help commands and startup file.
X
X written 11-feb-86 by Daniel Lawrence
X */
X
#include <stdio.h>
#include "estruct.h"
#include "edef.h"
#include "epath.h"
X
/* dummy prefix binding functions */
extern CMDFUNC f_cntl_af, f_cntl_xf, f_unarg, f_esc;
X
/* give me some help!!!! bring up a buffer and read the help file into it */
help(f, n)
{
X register WINDOW *wp; /* scaning pointer to windows */
X register BUFFER *bp; /* buffer pointer to help */
X char *fname; /* ptr to file returned by flook() */
X
X /* first check if we are already here */
X bp = bfind("[Help]", OK_CREAT, BFSCRTCH);
X if (bp == NULL)
X return FALSE;
X
X if (bp->b_active == FALSE) { /* never been used */
X fname = flook(pathname[1], FL_ANYWHERE);
X if (fname == NULL) {
X mlwrite("[Sorry, can't find the help information]");
X zotbuf(bp);
X return(FALSE);
X }
X /* and read the stuff in */
X if (readin(fname, 0, bp, TRUE) == FALSE ||
X popupbuff(bp) == FALSE) {
X zotbuf(bp);
X return(FALSE);
X }
X strcpy(bp->b_bname,"[Help]");
X sprintf(bp->b_fname, " %s %s",prognam,version);
X bp->b_mode |= MDVIEW;
X bp->b_mode &= ~MDEXACT;
X bp->b_flag |= BFSCRTCH;
X }
X return swbuffer(bp);
}
X
#if REBIND
X
deskey(f, n) /* describe the command for a certain key */
{
X register int c; /* key to describe */
X register char *ptr; /* string pointer to scan output strings */
X char outseq[NSTRING]; /* output buffer for command sequence */
X char *kcod2prc();
X
X /* prompt the user to type us a key to describe */
X mlwrite(": describe-key ");
X
X /* get the command sequence to describe
X change it to something we can print as well */
X
X /* check to see if we are executing a command line */
X if (clexec) {
X char tok[NSTRING];
X macarg(tok); /* get the next token */
X c = prc2kcod(tok);
X } else {
X c = kbd_seq();
X }
X kcod2prc(c, &outseq[0]);
X
X /* and dump it out */
X ostring(outseq);
X ostring(" ");
X
X /* find the right ->function */
X if ((ptr = fnc2engl(kcod2fnc(c))) == NULL)
X ptr = "Not Bound";
X
X /* output the command sequence */
X ostring(ptr);
}
X
/* bindkey: add a new key to the key binding table */
X
bindkey(f, n)
int f, n; /* command arguments [IGNORED] */
{
X register int c; /* command key to bind */
X register CMDFUNC *kcmd; /* ptr to the requested function to bind to */
X register KBIND *kbp; /* pointer into a binding table */
X register int found; /* matched command flag */
X char outseq[80]; /* output buffer for keystroke sequence */
X char *fnp;
X char *kbd_engl();
X char *kcod2prc();
X
X /* prompt the user to type in a key to bind */
X mlwrite(": bind-to-key ");
X
X /* get the function name to bind it to */
#if NeWS
X newsimmediateon() ;
#endif
X fnp = kbd_engl();
#if NeWS
X newsimmediateoff() ;
#endif
X
X if (fnp == NULL || (kcmd = engl2fnc(fnp)) == NULL) {
X mlwrite("[No such function]");
X return(FALSE);
X }
X ostring(" ");
X TTflush();
X
X /* get the command sequence to bind */
X if (clexec) {
X char tok[NSTRING];
X macarg(tok); /* get the next token */
X c = prc2kcod(tok);
X } else {
X /* perhaps we only want a single key, not a sequence */
X /* (see more comments below) */
X if ((kcmd == &f_cntl_af) || (kcmd == &f_cntl_xf) ||
X (kcmd == &f_unarg) || (kcmd == &f_esc))
X c = kbd_key();
X else
X c = kbd_seq();
X }
X
X /* change it to something we can print as well */
X kcod2prc(c, &outseq[0]);
X
X /* and dump it out */
X ostring(outseq);
X
X /* if the function is a prefix key, i.e. we're changing the definition
X of a prefix key, then they typed a dummy function name, which
X has been translated into a dummy function pointer */
X if (kcmd == &f_cntl_af || kcmd == &f_cntl_xf ||
X kcmd == &f_unarg || kcmd == &f_esc) {
X register CMDFUNC **cfp;
X /* search for an existing binding for the prefix key */
X cfp = asciitbl;
X found = FALSE;
X for (cfp = asciitbl; cfp < &asciitbl[128]; cfp++) {
X if (*cfp == kcmd) {
X unbindchar(cfp - asciitbl);
X break;
X }
X }
X
X /* reset the appropriate global prefix variable */
X if (kcmd == &f_cntl_af)
X cntl_a = c;
X if (kcmd == &f_cntl_xf)
X cntl_x = c;
X if (kcmd == &f_unarg)
X reptc = c;
X if (kcmd == &f_esc)
X abortc = c;
X }
X
X if ((c & (CTLA|SPEC|CTLX)) == 0) {
X asciitbl[c] = kcmd;
X } else {
X for(kbp = kbindtbl; kbp->k_cmd && kbp->k_code != c; kbp++)
X ;
X if (kbp->k_cmd) { /* found it, change it in place */
X kbp->k_cmd = kcmd;
X } else {
X if (kbp >= &kbindtbl[NBINDS-1]) {
X mlwrite("Prefixed binding table full");
X return(FALSE);
X }
X kbp->k_code = c; /* add keycode */
X kbp->k_cmd = kcmd; /* and func pointer */
X ++kbp; /* and make sure the next is null */
X kbp->k_code = 0;
X kbp->k_cmd = NULL;
X }
X }
X
X return TRUE;
}
X
/* unbindkey: delete a key from the key binding table */
X
unbindkey(f, n)
int f, n; /* command arguments [IGNORED] */
{
X register int c; /* command key to unbind */
X char outseq[80]; /* output buffer for keystroke sequence */
X char *kcod2prc();
X
X /* prompt the user to type in a key to unbind */
X mlwrite(": unbind-key ");
X
X /* get the command sequence to unbind */
X if (clexec) {
X char tok[NSTRING];
X macarg(tok); /* get the next token */
X c = prc2kcod(tok);
X } else {
X c = kbd_seq();
X }
X
X /* change it to something we can print as well */
X kcod2prc(c, &outseq[0]);
X
X /* and dump it out */
X ostring(outseq);
X
X /* if it isn't bound, bitch */
X if (unbindchar(c) == FALSE) {
X mlwrite("[Key not bound]");
X return(FALSE);
X }
X return(TRUE);
}
X
unbindchar(c)
int c; /* command key to unbind */
{
X register KBIND *kbp; /* pointer into the command table */
X register KBIND *skbp; /* saved pointer into the command table */
X register int found; /* matched command flag */
X
X if ((c & (CTLA|SPEC|CTLX)) == 0) {
X asciitbl[c] = NULL;
X } else {
X /* search the table to see if the key exists */
X for (kbp = kbindtbl; kbp->k_cmd && kbp->k_code != c; kbp++)
X ;
X
X /* if it isn't bound, bitch */
X if (kbp->k_cmd == NULL)
X return(FALSE);
X
X /* save the pointer and scan to the end of the table */
X skbp = kbp;
X while (kbp->k_cmd != NULL)
X ++kbp;
X --kbp; /* backup to the last legit entry */
X
X /* copy the last entry to the current one */
X skbp->k_code = kbp->k_code;
X skbp->k_cmd = kbp->k_cmd;
X
X /* null out the last one */
X kbp->k_code = 0;
X kbp->k_cmd = NULL;
X }
X return TRUE;
}
X
/* describe bindings bring up a fake buffer and list the key bindings
X into it with view mode */
desbind(f, n)
{
X return mkblist(NULL);
}
X
#if APROP
apro(f, n) /* Apropos (List functions that match a substring) */
{
X static char mstring[NSTRING] = 0; /* string to match cmd names to */
X register int s;
X
X
X s = mlreply("Apropos string: ", mstring, NSTRING - 1);
X if (s != TRUE)
X return(s);
X
X return mkblist(mstring);
}
#endif
X
mkblist(mstring)
char *mstring;
{
X register BUFFER *bp;
X register int s;
X
X /* create the buffer list buffer */
X bp = bfind("[Binding List]", OK_CREAT, BFSCRTCH);
X if (bp == NULL)
X return FALSE;
X
X if ((s=bclear(bp)) != TRUE) /* clear old text (?) */
X return (s);
X s = buildlist(mstring,bp);
X if (s != TRUE || popupbuff(bp) == FALSE) {
X mlwrite("[Sorry, can't list. ]");
X zotbuf(bp);
X return (s);
X }
X strcpy(bp->b_fname, "");
X bp->b_mode |= MDVIEW;
X bp->b_flag |= BFSCRTCH;
X bp->b_flag &= ~BFCHG; /* Don't complain! */
X bp->b_active = TRUE;
X
X return TRUE;
}
X
X
/* build a binding list (limited or full) */
buildlist(mstring, bp)
char *mstring; /* match string if partial list, NULL to list all */
register BUFFER *bp; /* buffer to put binding list into */
{
#if ST520 & LATTICE
#define register
#endif
X register WINDOW *wp; /* scanning pointer to windows */
X register KBIND *kbp; /* pointer into a key binding table */
X register CMDFUNC **cfp; /* pointer into the ascii table */
X register NTAB *nptr,*nptr2; /* pointer into the name table */
X char *strp; /* pointer int string to send */
X int cpos; /* current position to use in outseq */
X char outseq[81]; /* output buffer for keystroke sequence */
X int i,pass;
X char *kcod2prc();
X
X
X /* let us know this is in progress */
X mlwrite("[Building binding list]");
X
X /* build the contents of this window, inserting it line by line */
X for (pass = 0; pass < 2; pass++) {
X for (nptr = nametbl; nptr->n_name != NULL; ++nptr) {
X
X /* if we've already described this one, move on */
X if (nptr->n_cmd->c_flags & LISTED)
X continue;
X
X /* try to avoid alphabetizing by the real short names */
X if (pass == 0 && strlen(nptr->n_name) <= 2)
X continue;
X
X /* add in the command name */
X strcpy(outseq,"\"");
X strcat(outseq, nptr->n_name);
X strcat(outseq,"\"");
X cpos = strlen(outseq);
X while (cpos < 32)
X outseq[cpos++] = ' ';
X outseq[cpos] = 0;
X
#if APROP
X /* if we are executing an apropos command
X and current string doesn't include the search string */
X if (mstring && (strinc(outseq, mstring) == FALSE))
X continue;
#endif
X /* look in the simple ascii binding table first */
X for(cfp = asciitbl, i = 0; cfp < &asciitbl[128]; cfp++, i++) {
X if (*cfp == nptr->n_cmd) {
X cpos = kcod2prc(i, &outseq[strlen(outseq)]) -
X outseq;
X while(cpos & 7)
X outseq[cpos++] = ' ';
X outseq[cpos] = '\0';
X }
X }
X /* then look in the multi-key table */
X for(kbp = kbindtbl; kbp->k_cmd; kbp++) {
X if (kbp->k_cmd == nptr->n_cmd) {
X cpos =
X kcod2prc(kbp->k_code, &outseq[strlen(outseq)]) -
X outseq;
X while(cpos & 7)
X outseq[cpos++] = ' ';
X outseq[cpos] = '\0';
X }
X }
X /* dump the line */
X addline(bp,outseq,-1);
X
X cpos = 0;
X
X /* then look for synonyms */
X for (nptr2 = nametbl; nptr2->n_name != NULL; ++nptr2) {
X /* if it's the one we're on, skip */
X if (nptr2 == nptr)
X continue;
X /* if it's already been listed, skip */
X if (nptr2->n_cmd->c_flags & LISTED)
X continue;
X /* if it's not a synonym, skip */
X if (nptr2->n_cmd != nptr->n_cmd)
X continue;
X while (cpos < 8)
X outseq[cpos++] = ' ';
X outseq[cpos] = '\0';
X strcat(outseq,"\"");
X strcat(outseq,nptr2->n_name);
X strcat(outseq,"\"");
X addline(bp,outseq,-1);
X cpos = 0; /* and clear the line */
X
X }
X
X nptr->n_cmd->c_flags |= LISTED; /* mark it as already listed */
X }
X }
X
X for (nptr = nametbl; nptr->n_name != NULL; ++nptr)
X nptr->n_cmd->c_flags &= ~LISTED; /* mark it as unlisted */
X
X mlwrite(""); /* clear the mode line */
X return(TRUE);
}
X
#if APROP
strinc(source, sub) /* does source include sub? */
char *source; /* string to search in */
char *sub; /* substring to look for */
{
X char *sp; /* ptr into source */
X char *nxtsp; /* next ptr into source */
X char *tp; /* ptr into substring */
X
X /* for each character in the source string */
X sp = source;
X while (*sp) {
X tp = sub;
X nxtsp = sp;
X
X /* is the substring here? */
X while (*tp) {
X if (*nxtsp++ != *tp)
X break;
X else
X tp++;
X }
X
X /* yes, return a success */
X if (*tp == 0)
X return(TRUE);
X
X /* no, onward */
X sp++;
X }
X return(FALSE);
}
#endif
X
#endif /* REBIND */
X
X
/* execute the startup file */
X
startup(sfname)
char *sfname; /* name of startup file */
{
X char *fname; /* resulting file name to execute */
X
X /* look up the startup file */
X fname = flook(sfname, FL_HERE_HOME);
X
X /* if it isn't around, don't sweat it */
X if (fname == NULL) {
X mlwrite("[Can't find startup file %s]",sfname);
X return(TRUE);
X }
X
X /* otherwise, execute the sucker */
X return(dofile(fname));
}
X
/* Look up the existence of a file along the normal or PATH
X environment variable. Look first in the HOME directory if
X asked and possible
*/
X
char *
flook(fname, hflag)
char *fname; /* base file name to search for */
int hflag; /* Look in the HOME environment variable first? */
{
X register char *home; /* path to home directory */
X register char *path; /* environmental PATH variable */
X register char *sp; /* pointer into path spec */
X register int i; /* index */
X static char fspec[NSTRING]; /* full path spec to search */
X char *getenv();
X
X /* tak care of special cases */
X if (!fname || !fname[0] || isspace(fname[0]))
X return NULL;
X else if (fname[0] == '!')
X return fname;
X
X /* always try the current directory first */
X if (ffropen(fname) == FIOSUC) {
X ffclose();
X return(fname);
X }
X
X if (hflag == FL_HERE)
X return NULL;
X
#if ENVFUNC
X
X if (hflag) {
X home = getenv("HOME");
X if (home != NULL) {
X /* build home dir file spec */
X strcpy(fspec, home);
X strcat(fspec, "/");
X strcat(fspec, fname);
X
X /* and try it out */
X if (ffropen(fspec) == FIOSUC) {
X ffclose();
X return(fspec);
X }
X }
X }
X
X if (hflag == FL_HERE_HOME)
X return NULL;
X
#if PATHLOOK
X /* get the PATH variable */
X path = getenv("PATH");
X if (path != NULL)
X while (*path) {
X
X /* build next possible file spec */
X sp = fspec;
X while (*path && (*path != PATHCHR))
X *sp++ = *path++;
X *sp++ = '/';
X *sp = 0;
X strcat(fspec, fname);
X
X /* and try it out */
X if (ffropen(fspec) == FIOSUC) {
X ffclose();
X return(fspec);
X }
X
X if (*path == PATHCHR)
X ++path;
X }
#endif
#endif
X
X /* look it up via the old table method */
X for (i=2; i < NPNAMES; i++) {
X strcpy(fspec, pathname[i]);
X strcat(fspec, fname);
X
X /* and try it out */
X if (ffropen(fspec) == FIOSUC) {
X ffclose();
X return(fspec);
X }
X }
X
X
X return NULL; /* no such luck */
}
X
/* translate a 10-bit keycode to its printable name (like "M-j") */
char *
kcod2prc(c, seq)
int c; /* sequence to translate */
char *seq; /* destination string for sequence */
{
X char *ptr; /* pointer into current position in sequence */
X
X ptr = seq;
X
X /* apply cntl_a sequence if needed */
X if (c & CTLA) {
X *ptr++ = '^';
X *ptr++ = 'A';
X *ptr++ = '-';
X }
X
X /* apply ^X sequence if needed */
X if (c & CTLX) {
X *ptr++ = '^';
X *ptr++ = 'X';
X *ptr++ = '-';
X }
X
X /* apply SPEC sequence if needed */
X if (c & SPEC) {
X *ptr++ = 'F';
X *ptr++ = 'N';
X *ptr++ = '-';
X }
X
X c = kcod2key(c);
X
X /* apply control sequence if needed */
X if (iscntrl(c)) {
X *ptr++ = '^';
X c = toalpha(c);
X }
X
X /* and output the final sequence */
X
X if (c == ' ') {
X *ptr++ = '<';
X *ptr++ = 's';
X *ptr++ = 'p';
X *ptr++ = '>';
X } else if (c == '\t') {
X *ptr++ = '<';
X *ptr++ = 't';
X *ptr++ = 'a';
X *ptr++ = 'b';
X *ptr++ = '>';
X } else {
X *ptr++ = c;
X }
X *ptr = 0; /* terminate the string */
X return ptr;
}
X
X
/* kcod2fnc: translate a 10-bit keycode to a function pointer */
/* (look a key binding up in the binding table) */
CMDFUNC *
kcod2fnc(c)
int c; /* key to find what is bound to it */
{
X register KBIND *kbp;
X
X if ((c & (CTLA|SPEC|CTLX)) == 0) {
X return asciitbl[c];
X } else {
X for (kbp = kbindtbl; kbp->k_cmd && kbp->k_code != c; kbp++)
X ;
X return kbp->k_cmd;
X }
}
X
X
/* fnc2engl: translate a function pointer to the english name for
X that function
*/
X
char *
fnc2engl(cfp)
CMDFUNC *cfp; /* ptr to the requested function to bind to */
{
X register NTAB *nptr; /* pointer into the name table */
X
X /* skim through the table, looking for a match */
X for (nptr = nametbl; nptr->n_cmd; nptr++) {
SHAR_EOF
true || echo 'restore of bind.c failed'
echo 'End of Vile part 1'
echo 'File bind.c is continued in part 2'
echo 2 > _shar_seq_.tmp
exit 0
--
paul fox, pgf@cayman.com, (617)494-1999
Cayman Systems, 26 Landsdowne St., Cambridge, MA 02139
