rfivet
/
uemacs
mirror of https://github.com/rfivet/uemacs.git
1
0
Fork 0
Code Releases Activity

Lots of ANSI'fication and cleanups 

Still tons of warnings with "-Wall", but now it's actually getting closer.

It even compiles again.
This commit is contained in:
Linus Torvalds 2005-09-30 22:52:45 -07:00
parent 92803fe8d5
commit d5dc3160cf
26 changed files with 1151 additions and 1139 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
basic.c
View File

@ -12,6 +12,7 @@
#include <stdio.h> #include <stdio.h>
#include "estruct.h" #include "estruct.h"
#include "edef.h" #include "edef.h"
#include "efunc.h"
/* /*
* Move the cursor to the * Move the cursor to the

3
bind.c
View File

@ -10,6 +10,7 @@
#include <stdio.h> #include <stdio.h>
#include "estruct.h" #include "estruct.h"
#include "edef.h" #include "edef.h"
#include "efunc.h"
#include "epath.h" #include "epath.h"
int help(int f, int n) int help(int f, int n)
@ -443,7 +444,7 @@ unsigned int getckey(int mflag)
* *
* char *sfname; name of startup file (null if default) * char *sfname; name of startup file (null if default)
*/ */
startup(char *sfname) int startup(char *sfname)
{ {
char *fname; /* resulting file name to execute */ char *fname; /* resulting file name to execute */

1
buffer.c
View File

@ -12,6 +12,7 @@
#include <stdio.h> #include <stdio.h>
#include "estruct.h" #include "estruct.h"
#include "edef.h" #include "edef.h"
#include "efunc.h"
/* /*
* Attach a buffer to a window. The * Attach a buffer to a window. The

28
crypt.c
View File

@ -8,16 +8,19 @@
#include <stdio.h> #include <stdio.h>
#include "estruct.h" #include "estruct.h"
#include "edef.h" #include "edef.h"
#include "efunc.h"
#if CRYPT #if CRYPT
static int mod95(); static int mod95();
setkey(f, n) /*
/* reset encryption key of current buffer */ * reset encryption key of current buffer
int f; /* default flag */ *
int n; /* numeric argument */ * int f; default flag
* int n; numeric argument
*/
int setkey(int f, int n)
{ {
register int status; /* return status */ register int status; /* return status */
int odisinp; /* original vlaue of disinp */ int odisinp; /* original vlaue of disinp */
@ -134,11 +137,13 @@ int n; /* numeric argument */
* protection and security of the keys themselves are the * protection and security of the keys themselves are the
* responsiblity of the user. * responsiblity of the user.
* *
*
* char *bptr; buffer of characters to be encrypted
* unsigned len; number of characters in the buffer
*
**********/ **********/
crypt(bptr, len) void crypt(char *bptr, unsigned len)
register char *bptr; /* buffer of characters to be encrypted */
register unsigned len; /* number of characters in the buffer */
{ {
register int cc; /* current character being considered */ register int cc; /* current character being considered */
@ -194,10 +199,7 @@ register unsigned len; /* number of characters in the buffer */
return; return;
} }
static int mod95(val) static int mod95(int val)
register int val;
{ {
/* The mathematical MOD does not match the computer MOD */ /* The mathematical MOD does not match the computer MOD */
@ -215,7 +217,7 @@ register int val;
return (val); return (val);
} }
#else #else
nocrypt() static void nocrypt(void)
{ {
} }
#endif #endif

1
display.c
View File

@ -13,6 +13,7 @@
#include <stdarg.h> #include <stdarg.h>
#include "estruct.h" #include "estruct.h"
#include "edef.h" #include "edef.h"
#include "efunc.h"
typedef struct VIDEO { typedef struct VIDEO {
int v_flag; /* Flags */ int v_flag; /* Flags */

226
edef.h
View File

@ -318,229 +318,3 @@ extern char outline[]; /* global string to hold debug line text */
#ifndef termdef #ifndef termdef
extern TERM term; /* Terminal information. */ extern TERM term; /* Terminal information. */
#endif #endif
/* word.c */
extern int wrapword(int f, int n);
extern int backword(int f, int n);
extern int forwword(int f, int n);
extern int upperword(int f, int n);
extern int lowerword(int f, int n);
extern int capword(int f, int n);
extern int delfword(int f, int n);
extern int delbword(int f, int n);
extern int inword(void);
extern int fillpara(int f, int n);
extern int justpara(int f, int n);
extern int killpara(int f, int n);
extern int wordcount(int f, int n);
/* line.c */
extern int lfree(LINE *lp);
extern int lchange(int flag);
extern int insspace(int f, int n);
extern int linstr(char *instr);
extern int linsert(int n, int c);
extern int lowrite(int c);
extern int lover(char *ostr);
extern int lnewline(void);
extern int ldelete(long n, int kflag);
extern char *getctext(void);
extern int putctext(char *iline);
extern int ldelnewline(void);
extern int kdelete(void);
extern int kinsert(int c);
extern int yank(int f, int n);
/* window.c */
extern int reposition(int f, int n);
extern int refresh(int f, int n);
extern int nextwind(int f, int n);
extern int prevwind(int f, int n);
extern int mvdnwind(int f, int n);
extern int mvupwind(int f, int n);
extern int onlywind(int f, int n);
extern int delwind(int f, int n);
extern int splitwind(int f, int n);
extern int enlargewind(int f, int n);
extern int shrinkwind(int f, int n);
extern int resize(int f, int n);
extern int scrnextup(int f, int n);
extern int scrnextdw(int f, int n);
extern int savewnd(int f, int n);
extern int restwnd(int f, int n);
extern int newsize(int f, int n);
extern int newwidth(int f, int n);
extern int getwpos(void);
extern int cknewwindow(void);
/* basic.c */
extern int gotobol(int f, int n);
extern int backchar(int f, int n);
extern int gotoeol(int f, int n);
extern int forwchar(int f, int n);
extern int gotoline(int f, int n);
extern int gotobob(int f, int n);
extern int gotoeob(int f, int n);
extern int forwline(int f, int n);
extern int backline(int f, int n);
extern int gotobop(int f, int n);
extern int gotoeop(int f, int n);
extern int getgoal(LINE *dlp);
extern int forwpage(int f, int n);
extern int backpage(int f, int n);
extern int setmark(int f, int n);
extern int swapmark(int f, int n);
/* random.c */
extern int tabsize; /* Tab size (0: use real tabs) */;
extern int setfillcol(int f, int n);
extern int showcpos(int f, int n);
extern int getcline(void);
extern int getccol(int bflg);
extern int setccol(int pos);
extern int twiddle(int f, int n);
extern int quote(int f, int n);
extern int tab(int f, int n);
extern int detab(int f, int n);
extern int entab(int f, int n);
extern int trim(int f, int n);
extern int openline(int f, int n);
extern int newline(int f, int n);
extern int cinsert(void);
extern int insbrace(int n, int c);
extern int insbrace(int n, int c);
extern int inspound(void);
extern int deblank(int f, int n);
extern int indent(int f, int n);
extern int forwdel(int f, int n);
extern int backdel(int f, int n);
extern int killtext(int f, int n);
extern int setmode(int f, int n);
extern int delmode(int f, int n);
extern int setgmode(int f, int n);
extern int delgmode(int f, int n);
extern int adjustmode(int kind, int global);
extern int clrmes(int f, int n);
extern int writemsg(int f, int n);
extern int getfence(int f, int n);
extern int fmatch(int ch);
extern int istring(int f, int n);
extern int ovstring(int f, int n);
/* main.c */
extern int edinit(char *bname);
extern int execute(int c, int f, int n);
extern int quickexit(int f, int n);
extern int quit(int f, int n);
extern int ctlxlp(int f, int n);
extern int ctlxrp(int f, int n);
extern int ctlxe(int f, int n);
extern int ctrlg(int f, int n);
extern int rdonly(void);
extern int resterr(void);
extern int nullproc(int f, int n);
extern int meta(int f, int n);
extern int cex(int f, int n);
extern int unarg(int f, int n);
extern int cexit(int status);
/* display.c */
extern void vtinit(void);
extern void vtfree(void);
extern void vttidy(void);
extern void vtmove(int row, int col);
extern void vtputc(int c);
extern void vteeol(void);
extern int upscreen(int f, int n);
extern int update(int force);
extern int reframe(WINDOW *wp);
extern void updone(WINDOW *wp);
extern void updall(WINDOW *wp);
extern void updpos(void);
extern void upddex(void);
extern void updgar(void);
extern int updupd(int force);
extern int scrolls(int inserts);
extern void scrscroll(int from, int to, int count);
extern int texttest(int vrow, int prow);
extern int endofline(char *s, int n);
extern void updext(void);
extern int updateline(int row, struct VIDEO *vp1, struct VIDEO *vp2);
extern void modeline(WINDOW *wp);
extern void upmode(void);
extern void movecursor(int row, int col);
extern void mlerase(void);
extern void mlwrite(const char *fmt, ...);
extern void mlforce(char *s);
extern void mlputs(char *s);
extern void mlputi(int i, int r);
extern void mlputli(long l, int r);
extern void mlputf(int s);
extern void putline(int row, int col, char *buf);
extern void getscreensize(int *widthp, int *heightp);
extern void sizesignal(int signr);
extern int newscreensize(int h, int w);
/* region.c */
extern int killregion(int f, int n);
extern int copyregion(int f, int n);
extern int lowerregion(int f, int n);
extern int upperregion(int f, int n);
extern int getregion(REGION *rp);
/* posix.c */
extern void ttopen(void);
extern void ttclose(void);
extern int ttputc(int c);
extern void ttflush(void);
extern int ttgetc(void);
extern int typahead(void);
/* input.c */
extern int mlyesno(char *prompt);
extern int mlreply(char *prompt, char *buf, int nbuf);
extern int mlreplyt(char *prompt, char *buf, int nbuf, int eolchar);
extern int ectoc(int c);
extern int ctoec(int c);
extern fn_t getname(void);
extern int tgetc(void);
extern int get1key(void);
extern int getcmd(void);
extern int getstring(char *prompt, char *buf, int nbuf, int eolchar);
extern void outstring(char *s);
extern void ostring(char *s);
/* bind.c */
extern int help(int f, int n);
extern int deskey(int f, int n);
extern int bindtokey(int f, int n);
extern int unbindkey(int f, int n);
extern int unbindchar(int c);
extern int desbind(int f, int n);
extern int apro(int f, int n);
extern int buildlist(int type, char *mstring);
extern int strinc(char *source, char *sub);
extern unsigned int getckey(int mflag);
extern startup(char *sfname);
extern char *flook(char *fname, int hflag);
extern void cmdstr(int c, char *seq);
extern fn_t getbind(int c);
extern char *getfname(fn_t);
extern fn_t fncmatch(char *);
extern unsigned int stock(char *keyname);
extern char *transbind(char *skey);
/* buffer.c */
extern int usebuffer(int f, int n);
extern int nextbuffer(int f, int n);
extern int swbuffer(BUFFER *bp);
extern int killbuffer(int f, int n);
extern int zotbuf(BUFFER *bp);
extern int namebuffer(int f, int n);
extern int listbuffers(int f, int n);
extern int makelist(int iflag);
extern void ltoa(char *buf, int width, long num);
extern int addline(char *text);
extern int anycb(void);
extern int bclear(BUFFER *bp);
extern int unmark(int f, int n);

790
efunc.h
View File

@ -12,420 +12,386 @@
/* External function declarations */ /* External function declarations */
extern int ctrlg(); /* Abort out of things */ /* word.c */
extern int quit(); /* Quit */ extern int wrapword(int f, int n);
extern int ctlxlp(); /* Begin macro */ extern int backword(int f, int n);
extern int ctlxrp(); /* End macro */ extern int forwword(int f, int n);
extern int ctlxe(); /* Execute macro */ extern int upperword(int f, int n);
extern int fileread(); /* Get a file, read only */ extern int lowerword(int f, int n);
extern int filefind(); /* Get a file, read write */ extern int capword(int f, int n);
extern int filewrite(); /* Write a file */ extern int delfword(int f, int n);
extern int filesave(); /* Save current file */ extern int delbword(int f, int n);
extern int filename(); /* Adjust file name */ extern int inword(void);
extern int getccol(); /* Get current column */ extern int fillpara(int f, int n);
extern int gotobol(); /* Move to start of line */ extern int justpara(int f, int n);
extern int forwchar(); /* Move forward by characters */ extern int killpara(int f, int n);
extern int gotoeol(); /* Move to end of line */ extern int wordcount(int f, int n);
extern int backchar(); /* Move backward by characters */
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 gotobob(); /* Move to start of buffer */
extern int gotoeob(); /* Move to end of buffer */
extern int setfillcol(); /* Set fill column. */
extern int setmark(); /* Set mark */
extern int swapmark(); /* Swap "." and mark */
extern int forwsearch(); /* Search forward */
extern int backsearch(); /* Search backwards */
extern int sreplace(); /* search and replace */
extern int qreplace(); /* search and replace w/query */
extern int showcpos(); /* Show the cursor position */
extern int nextwind(); /* Move to the next window */
extern int prevwind(); /* Move to the previous window */
extern int onlywind(); /* Make current window only one */
extern int splitwind(); /* Split current window */
extern int mvdnwind(); /* Move window down */
extern int mvupwind(); /* Move window up */
extern int enlargewind(); /* Enlarge display window. */
extern int shrinkwind(); /* Shrink window. */
extern int listbuffers(); /* Display list of buffers */
extern int usebuffer(); /* Switch a window to a buffer */
extern int killbuffer(); /* Make a buffer go away. */
extern int reposition(); /* Reposition window */
extern int refresh(); /* Refresh the screen */
extern int twiddle(); /* Twiddle characters */
extern int tab(); /* Insert tab */
extern int newline(); /* Insert CR-LF */
extern int indent(); /* Insert CR-LF, then indent */
extern int openline(); /* Open up a blank line */
extern int deblank(); /* Delete blank lines */
extern int quote(); /* Insert literal */
extern int backword(); /* Backup by words */
extern int forwword(); /* Advance by words */
extern int forwdel(); /* Forward delete */
extern int backdel(); /* Backward delete */
extern int killtext(); /* Kill forward */
extern int yank(); /* Yank back from killbuffer. */
extern int upperword(); /* Upper case word. */
extern int lowerword(); /* Lower case word. */
extern int upperregion(); /* Upper case region. */
extern int lowerregion(); /* Lower case region. */
extern int capword(); /* Initial capitalize word. */
extern int delfword(); /* Delete forward word. */
extern int delbword(); /* Delete backward word. */
extern int killregion(); /* Kill region. */
extern int copyregion(); /* Copy region to kill buffer. */
extern int spawncli(); /* Run CLI in a subjob. */
extern int spawn(); /* Run a command in a subjob. */
#if BSD | __hpux | SVR4
extern int bktoshell(); /* suspend emacs to parent shell */
extern int rtfrmshell(); /* return from a suspended state */
#endif
extern int quickexit(); /* low keystroke style exit. */
extern int setmode(); /* set an editor mode */
extern int delmode(); /* delete a mode */
extern int gotoline(); /* go to a numbered line */
extern int namebuffer(); /* rename the current buffer */
#if WORDPRO
extern int gotobop(); /* go to beginning/paragraph */
extern int gotoeop(); /* go to end/paragraph */
extern int fillpara(); /* fill current paragraph */
#if PKCODE
extern int justpara(); /* justify current paragraph */
#endif
#endif
extern int help(); /* get the help file here */
extern int deskey(); /* describe a key's binding */
extern int viewfile(); /* find a file in view mode */
extern int insfile(); /* insert a file */
extern int scrnextup(); /* scroll next window back */
extern int scrnextdw(); /* scroll next window down */
extern int bindtokey(); /* bind a function to a key */
extern int unbindkey(); /* unbind a key's function */
extern int namedcmd(); /* execute named command */
extern int desbind(); /* describe bindings */
extern int execcmd(); /* execute a command line */
extern int execbuf(); /* exec commands from a buffer */
extern int execfile(); /* exec commands from a file */
extern int nextbuffer(); /* switch to the next buffer */
#if WORDPRO
extern int killpara(); /* kill the current paragraph */
#endif
extern int setgmode(); /* set a global mode */
extern int delgmode(); /* delete a global mode */
extern int insspace(); /* insert a space forword */
extern int forwhunt(); /* hunt forward for next match */
extern int backhunt(); /* hunt backwards for next match */
extern int pipecmd(); /* pipe command into buffer */
extern int filter(); /* filter buffer through dos */
extern int delwind(); /* delete the current window */
extern int cbuf1(); /* execute numbered comd buffer */
extern int cbuf2();
extern int cbuf3();
extern int cbuf4();
extern int cbuf5();
extern int cbuf6();
extern int cbuf7();
extern int cbuf8();
extern int cbuf9();
extern int cbuf10();
extern int cbuf11();
extern int cbuf12();
extern int cbuf13();
extern int cbuf14();
extern int cbuf15();
extern int cbuf16();
extern int cbuf17();
extern int cbuf18();
extern int cbuf19();
extern int cbuf20();
extern int cbuf21();
extern int cbuf22();
extern int cbuf23();
extern int cbuf24();
extern int cbuf25();
extern int cbuf26();
extern int cbuf27();
extern int cbuf28();
extern int cbuf29();
extern int cbuf30();
extern int cbuf31();
extern int cbuf32();
extern int cbuf33();
extern int cbuf34();
extern int cbuf35();
extern int cbuf36();
extern int cbuf37();
extern int cbuf38();
extern int cbuf39();
extern int cbuf40();
extern int storemac(); /* store text for macro */
extern int resize(); /* resize current window */
extern int clrmes(); /* clear the message line */
extern int meta(); /* meta prefix dummy function */
extern int cex(); /* ^X prefix dummy function */
extern int unarg(); /* ^U repeat arg dummy function */
extern int istring(); /* insert string in text */
extern int unmark(); /* unmark current buffer */
#if ISRCH
extern int fisearch(); /* forward incremental search */
extern int risearch(); /* reverse incremental search */
#endif
#if WORDPRO
extern int wordcount(); /* count words in region */
#endif
extern int savewnd(); /* save current window */
extern int restwnd(); /* restore current window */
extern int upscreen(); /* force screen update */
extern int writemsg(); /* write text on message line */
#if FNLABEL
extern int fnclabel(); /* set function key label */
#endif
#if APROP
extern int apro(); /* apropos fuction */
#endif
#if CRYPT
extern int setkey(); /* set encryption key */
#endif
extern int wrapword(); /* wordwrap function */
#if CFENCE
extern int getfence(); /* move cursor to a matching fence */
#endif
extern int newsize(); /* change the current screen size */
extern int setvar(); /* set a variables value */
extern int newwidth(); /* change the current screen width */
#if AEDIT
extern int trim(); /* trim whitespace from end of line */
extern int detab(); /* detab rest of line */
extern int entab(); /* entab rest of line */
#endif
#if PROC
extern int storeproc(); /* store names procedure */
extern int execproc(); /* execute procedure */
#endif
extern int nullproc(); /* does nothing... */
extern int ovstring(); /* overwrite a string */
extern int execprg(); /* execute a program */
extern int cknewwindow(); /* line.c */
extern int lfree(LINE *lp);
extern int lchange(int flag);
extern int insspace(int f, int n);
extern int linstr(char *instr);
extern int linsert(int n, int c);
extern int lowrite(int c);
extern int lover(char *ostr);
extern int lnewline(void);
extern int ldelete(long n, int kflag);
extern char *getctext(void);
extern int putctext(char *iline);
extern int ldelnewline(void);
extern int kdelete(void);
extern int kinsert(int c);
extern int yank(int f, int n);
/* Name to function binding table /* window.c */
extern int reposition(int f, int n);
extern int refresh(int f, int n);
extern int nextwind(int f, int n);
extern int prevwind(int f, int n);
extern int mvdnwind(int f, int n);
extern int mvupwind(int f, int n);
extern int onlywind(int f, int n);
extern int delwind(int f, int n);
extern int splitwind(int f, int n);
extern int enlargewind(int f, int n);
extern int shrinkwind(int f, int n);
extern int resize(int f, int n);
extern int scrnextup(int f, int n);
extern int scrnextdw(int f, int n);
extern int savewnd(int f, int n);
extern int restwnd(int f, int n);
extern int newsize(int f, int n);
extern int newwidth(int f, int n);
extern int getwpos(void);
extern void cknewwindow(void);
This table gives the names of all the bindable functions /* basic.c */
end their C function address. These are used for the bind-to-key extern int gotobol(int f, int n);
function. extern int backchar(int f, int n);
*/ extern int gotoeol(int f, int n);
extern int forwchar(int f, int n);
extern int gotoline(int f, int n);
extern int gotobob(int f, int n);
extern int gotoeob(int f, int n);
extern int forwline(int f, int n);
extern int backline(int f, int n);
extern int gotobop(int f, int n);
extern int gotoeop(int f, int n);
extern int getgoal(LINE *dlp);
extern int forwpage(int f, int n);
extern int backpage(int f, int n);
extern int setmark(int f, int n);
extern int swapmark(int f, int n);
NBIND names[] = { /* random.c */
{"abort-command", ctrlg}, extern int tabsize; /* Tab size (0: use real tabs) */;
{"add-mode", setmode}, extern int setfillcol(int f, int n);
{"add-global-mode", setgmode}, extern int showcpos(int f, int n);
#if APROP extern int getcline(void);
{"apropos", apro}, extern int getccol(int bflg);
#endif extern int setccol(int pos);
{"backward-character", backchar}, extern int twiddle(int f, int n);
{"begin-macro", ctlxlp}, extern int quote(int f, int n);
{"beginning-of-file", gotobob}, extern int tab(int f, int n);
{"beginning-of-line", gotobol}, extern int detab(int f, int n);
{"bind-to-key", bindtokey}, extern int entab(int f, int n);
{"buffer-position", showcpos}, extern int trim(int f, int n);
{"case-region-lower", lowerregion}, extern int openline(int f, int n);
{"case-region-upper", upperregion}, extern int newline(int f, int n);
{"case-word-capitalize", capword}, extern int cinsert(void);
{"case-word-lower", lowerword}, extern int insbrace(int n, int c);
{"case-word-upper", upperword}, extern int inspound(void);
{"change-file-name", filename}, extern int deblank(int f, int n);
{"change-screen-size", newsize}, extern int indent(int f, int n);
{"change-screen-width", newwidth}, extern int forwdel(int f, int n);
{"clear-and-redraw", refresh}, extern int backdel(int f, int n);
{"clear-message-line", clrmes}, extern int killtext(int f, int n);
{"copy-region", copyregion}, extern int setmode(int f, int n);
#if WORDPRO extern int delmode(int f, int n);
{"count-words", wordcount}, extern int setgmode(int f, int n);
#endif extern int delgmode(int f, int n);
{"ctlx-prefix", cex}, extern int adjustmode(int kind, int global);
{"delete-blank-lines", deblank}, extern int clrmes(int f, int n);
{"delete-buffer", killbuffer}, extern int writemsg(int f, int n);
{"delete-mode", delmode}, extern int getfence(int f, int n);
{"delete-global-mode", delgmode}, extern int fmatch(int ch);
{"delete-next-character", forwdel}, extern int istring(int f, int n);
{"delete-next-word", delfword}, extern int ovstring(int f, int n);
{"delete-other-windows", onlywind},
{"delete-previous-character", backdel},
{"delete-previous-word", delbword},
{"delete-window", delwind},
{"describe-bindings", desbind},
{"describe-key", deskey},
#if AEDIT
{"detab-line", detab},
#endif
{"end-macro", ctlxrp},
{"end-of-file", gotoeob},
{"end-of-line", gotoeol},
#if AEDIT
{"entab-line", entab},
#endif
{"exchange-point-and-mark", swapmark},
{"execute-buffer", execbuf},
{"execute-command-line", execcmd},
{"execute-file", execfile},
{"execute-macro", ctlxe},
{"execute-macro-1", cbuf1},
{"execute-macro-2", cbuf2},
{"execute-macro-3", cbuf3},
{"execute-macro-4", cbuf4},
{"execute-macro-5", cbuf5},
{"execute-macro-6", cbuf6},
{"execute-macro-7", cbuf7},
{"execute-macro-8", cbuf8},
{"execute-macro-9", cbuf9},
{"execute-macro-10", cbuf10},
{"execute-macro-11", cbuf11},
{"execute-macro-12", cbuf12},
{"execute-macro-13", cbuf13},
{"execute-macro-14", cbuf14},
{"execute-macro-15", cbuf15},
{"execute-macro-16", cbuf16},
{"execute-macro-17", cbuf17},
{"execute-macro-18", cbuf18},
{"execute-macro-19", cbuf19},
{"execute-macro-20", cbuf20},
{"execute-macro-21", cbuf21},
{"execute-macro-22", cbuf22},
{"execute-macro-23", cbuf23},
{"execute-macro-24", cbuf24},
{"execute-macro-25", cbuf25},
{"execute-macro-26", cbuf26},
{"execute-macro-27", cbuf27},
{"execute-macro-28", cbuf28},
{"execute-macro-29", cbuf29},
{"execute-macro-30", cbuf30},
{"execute-macro-31", cbuf31},
{"execute-macro-32", cbuf32},
{"execute-macro-33", cbuf33},
{"execute-macro-34", cbuf34},
{"execute-macro-35", cbuf35},
{"execute-macro-36", cbuf36},
{"execute-macro-37", cbuf37},
{"execute-macro-38", cbuf38},
{"execute-macro-39", cbuf39},
{"execute-macro-40", cbuf40},
{"execute-named-command", namedcmd},
#if PROC
{"execute-procedure", execproc},
#endif
{"execute-program", execprg},
{"exit-emacs", quit},
#if WORDPRO
{"fill-paragraph", fillpara},
#endif
{"filter-buffer", filter},
{"find-file", filefind},
{"forward-character", forwchar},
{"goto-line", gotoline},
#if CFENCE
{"goto-matching-fence", getfence},
#endif
{"grow-window", enlargewind},
{"handle-tab", tab},
{"hunt-forward", forwhunt},
{"hunt-backward", backhunt},
{"help", help},
{"i-shell", spawncli},
#if ISRCH
{"incremental-search", fisearch},
#endif
{"insert-file", insfile},
{"insert-space", insspace},
{"insert-string", istring},
#if WORDPRO
#if PKCODE
{"justify-paragraph", justpara},
#endif
{"kill-paragraph", killpara},
#endif
{"kill-region", killregion},
{"kill-to-end-of-line", killtext},
#if FNLABEL
{"label-function-key", fnclabel},
#endif
{"list-buffers", listbuffers},
{"meta-prefix", meta},
{"move-window-down", mvdnwind},
{"move-window-up", mvupwind},
{"name-buffer", namebuffer},
{"newline", newline},
{"newline-and-indent", indent},
{"next-buffer", nextbuffer},
{"next-line", forwline},
{"next-page", forwpage},
#if WORDPRO
{"next-paragraph", gotoeop},
#endif
{"next-window", nextwind},
{"next-word", forwword},
{"nop", nullproc},
{"open-line", openline},
{"overwrite-string", ovstring},
{"pipe-command", pipecmd},
{"previous-line", backline},
{"previous-page", backpage},
#if WORDPRO
{"previous-paragraph", gotobop},
#endif
{"previous-window", prevwind},
{"previous-word", backword},
{"query-replace-string", qreplace},
{"quick-exit", quickexit},
{"quote-character", quote},
{"read-file", fileread},
{"redraw-display", reposition},
{"resize-window", resize},
{"restore-window", restwnd},
{"replace-string", sreplace},
#if ISRCH
{"reverse-incremental-search", risearch},
#endif
#if PROC
{"run", execproc},
#endif
{"save-file", filesave},
{"save-window", savewnd},
{"scroll-next-up", scrnextup},
{"scroll-next-down", scrnextdw},
{"search-forward", forwsearch},
{"search-reverse", backsearch},
{"select-buffer", usebuffer},
{"set", setvar},
#if CRYPT
{"set-encryption-key", setkey},
#endif
{"set-fill-column", setfillcol},
{"set-mark", setmark},
{"shell-command", spawn},
{"shrink-window", shrinkwind},
{"split-current-window", splitwind},
{"store-macro", storemac},
#if PROC
{"store-procedure", storeproc},
#endif
#if BSD | __hpux | SVR4
{"suspend-emacs", bktoshell},
#endif
{"transpose-characters", twiddle},
#if AEDIT
{"trim-line", trim},
#endif
{"unbind-key", unbindkey},
{"universal-argument", unarg},
{"unmark-buffer", unmark},
{"update-screen", upscreen},
{"view-file", viewfile},
{"wrap-word", wrapword},
{"write-file", filewrite},
{"write-message", writemsg},
{"yank", yank},
{"", NULL} /* main.c */
}; extern int edinit(char *bname);
extern int execute(int c, int f, int n);
extern int quickexit(int f, int n);
extern int quit(int f, int n);
extern int ctlxlp(int f, int n);
extern int ctlxrp(int f, int n);
extern int ctlxe(int f, int n);
extern int ctrlg(int f, int n);
extern int rdonly(void);
extern int resterr(void);
extern int nullproc(int f, int n);
extern int meta(int f, int n);
extern int cex(int f, int n);
extern int unarg(int f, int n);
extern int cexit(int status);
/* display.c */
extern void vtinit(void);
extern void vtfree(void);
extern void vttidy(void);
extern void vtmove(int row, int col);
extern void vtputc(int c);
extern void vteeol(void);
extern int upscreen(int f, int n);
extern int update(int force);
extern int reframe(WINDOW *wp);
extern void updone(WINDOW *wp);
extern void updall(WINDOW *wp);
extern void updpos(void);
extern void upddex(void);
extern void updgar(void);
extern int updupd(int force);
extern int scrolls(int inserts);
extern void scrscroll(int from, int to, int count);
extern int texttest(int vrow, int prow);
extern int endofline(char *s, int n);
extern void updext(void);
extern int updateline(int row, struct VIDEO *vp1, struct VIDEO *vp2);
extern void modeline(WINDOW *wp);
extern void upmode(void);
extern void movecursor(int row, int col);
extern void mlerase(void);
extern void mlwrite(const char *fmt, ...);
extern void mlforce(char *s);
extern void mlputs(char *s);
extern void mlputi(int i, int r);
extern void mlputli(long l, int r);
extern void mlputf(int s);
extern void putline(int row, int col, char *buf);
extern void getscreensize(int *widthp, int *heightp);
extern void sizesignal(int signr);
extern int newscreensize(int h, int w);
/* region.c */
extern int killregion(int f, int n);
extern int copyregion(int f, int n);
extern int lowerregion(int f, int n);
extern int upperregion(int f, int n);
extern int getregion(REGION *rp);
/* posix.c */
extern void ttopen(void);
extern void ttclose(void);
extern int ttputc(int c);
extern void ttflush(void);
extern int ttgetc(void);
extern int typahead(void);
/* input.c */
extern int mlyesno(char *prompt);
extern int mlreply(char *prompt, char *buf, int nbuf);
extern int mlreplyt(char *prompt, char *buf, int nbuf, int eolchar);
extern int ectoc(int c);
extern int ctoec(int c);
extern fn_t getname(void);
extern int tgetc(void);
extern int get1key(void);
extern int getcmd(void);
extern int getstring(char *prompt, char *buf, int nbuf, int eolchar);
extern void outstring(char *s);
extern void ostring(char *s);
/* bind.c */
extern int help(int f, int n);
extern int deskey(int f, int n);
extern int bindtokey(int f, int n);
extern int unbindkey(int f, int n);
extern int unbindchar(int c);
extern int desbind(int f, int n);
extern int apro(int f, int n);
extern int buildlist(int type, char *mstring);
extern int strinc(char *source, char *sub);
extern unsigned int getckey(int mflag);
extern int startup(char *sfname);
extern char *flook(char *fname, int hflag);
extern void cmdstr(int c, char *seq);
extern fn_t getbind(int c);
extern char *getfname(fn_t);
extern fn_t fncmatch(char *);
extern unsigned int stock(char *keyname);
extern char *transbind(char *skey);
/* buffer.c */
extern int usebuffer(int f, int n);
extern int nextbuffer(int f, int n);
extern int swbuffer(BUFFER *bp);
extern int killbuffer(int f, int n);
extern int zotbuf(BUFFER *bp);
extern int namebuffer(int f, int n);
extern int listbuffers(int f, int n);
extern int makelist(int iflag);
extern void ltoa(char *buf, int width, long num);
extern int addline(char *text);
extern int anycb(void);
extern int bclear(BUFFER *bp);
extern int unmark(int f, int n);
/* file.c */
extern int fileread(int f, int n);
extern int insfile(int f, int n);
extern int filefind(int f, int n);
extern int viewfile(int f, int n);
extern int resetkey(void);
extern int getfile(char *fname, int lockfl);
extern int readin(char *fname, int lockfl);
extern void makename(char *bname, char *fname);
extern void unqname(char *name);
extern int filewrite(int f, int n);
extern int filesave(int f, int n);
extern int writeout(char *fn);
extern int filename(int f, int n);
extern int ifile(char *fname);
/* fileio.c */
extern int ffropen(char *fn);
extern int ffwopen(char *fn);
extern int ffclose(void);
extern int ffputline(char *buf, int nbuf);
extern int ffgetline(void);
extern int fexist(char *fname);
/* exec.c */
extern int namedcmd(int f, int n);
extern int execcmd(int f, int n);
extern int docmd(char *cline);
extern char *token(char *src, char *tok, int size);
extern int macarg(char *tok);
extern int nextarg(char *prompt, char *buffer, int size, int terminator);
extern int storemac(int f, int n);
extern int storeproc(int f, int n);
extern int execproc(int f, int n);
extern int execbuf(int f, int n);
extern int dobuf(BUFFER *bp);
extern int freewhile(WHBLOCK *wp);
extern int execfile(int f, int n);
extern int dofile(char *fname);
extern int cbuf(int f, int n, int bufnum);
extern int cbuf1(int f, int n);
extern int cbuf2(int f, int n);
extern int cbuf3(int f, int n);
extern int cbuf4(int f, int n);
extern int cbuf5(int f, int n);
extern int cbuf6(int f, int n);
extern int cbuf7(int f, int n);
extern int cbuf8(int f, int n);
extern int cbuf9(int f, int n);
extern int cbuf10(int f, int n);
extern int cbuf11(int f, int n);
extern int cbuf12(int f, int n);
extern int cbuf13(int f, int n);
extern int cbuf14(int f, int n);
extern int cbuf15(int f, int n);
extern int cbuf16(int f, int n);
extern int cbuf17(int f, int n);
extern int cbuf18(int f, int n);
extern int cbuf19(int f, int n);
extern int cbuf20(int f, int n);
extern int cbuf21(int f, int n);
extern int cbuf22(int f, int n);
extern int cbuf23(int f, int n);
extern int cbuf24(int f, int n);
extern int cbuf25(int f, int n);
extern int cbuf26(int f, int n);
extern int cbuf27(int f, int n);
extern int cbuf28(int f, int n);
extern int cbuf29(int f, int n);
extern int cbuf30(int f, int n);
extern int cbuf31(int f, int n);
extern int cbuf32(int f, int n);
extern int cbuf33(int f, int n);
extern int cbuf34(int f, int n);
extern int cbuf35(int f, int n);
extern int cbuf36(int f, int n);
extern int cbuf37(int f, int n);
extern int cbuf38(int f, int n);
extern int cbuf39(int f, int n);
extern int cbuf40(int f, int n);
/* spawn.c */
extern int spawncli(int f, int n);
extern void bktoshell(void);
extern void rtfrmshell(void);
extern int spawn(int f, int n);
extern int execprg(int f, int n);
extern int pipecmd(int f, int n);
extern int filter(int f, int n);
extern int sys(char *cmd);
extern int shellprog(char *cmd);
extern int execprog(char *cmd);
/* search.c */
extern int forwsearch(int f, int n);
extern int forwhunt(int f, int n);
extern int backsearch(int f, int n);
extern int backhunt(int f, int n);
extern int mcscanner(MC *mcpatrn, int direct, int beg_or_end);
extern int scanner(unsigned char *patrn, int direct, int beg_or_end);
extern int eq(unsigned char bc, unsigned char pc);
extern void savematch(void);
extern void rvstrcpy(char *rvstr, char *str);
extern int sreplace(int f, int n);
extern int qreplace(int f, int n);
extern int delins(int dlength, char *instr, int use_meta);
extern int expandp(char *srcstr, char *deststr, int maxlength);
extern int boundry(LINE *curline, int curoff, int dir);
extern void mcclear(void);
extern void rmcclear(void);
/* isearch.c */
extern int risearch(int f, int n);
extern int fisearch(int f, int n);
extern int isearch(int f, int n);
extern int checknext(char chr, char *patrn, int dir);
extern int scanmore(char *patrn, int dir);
extern int match_pat(char *patrn);
extern int promptpattern(char *prompt);
extern int echochar(int c, int col);
extern int get_char(void);
extern int uneat(void);
extern int reeat(int c);
/* eval.c */
extern void varinit(void);
extern char *gtfun(char *fname);
extern char *gtusr(char *vname);
extern char *gtenv(char *vname);
extern char *getkill(void);
extern int setvar(int f, int n);
extern void findvar(char *var, VDESC *vd, int size);
extern int svar(VDESC *var, char *value);
extern char *itoa(int i);
extern int gettyp(char *token);
extern char *getval(char *token);
extern int stol(char *val);
extern char *ltos(int val);
extern char *mkupper(char *str);
extern char *mklower(char *str);
extern int abs(int x);
extern int ernd(void);
extern int sindex(char *source, char *pattern);
extern char *xlat(char *source, char *lookup, char *trans);
/* crypt.c */
extern int setkey(int f, int n);
extern void crypt(char *bptr, unsigned len);
/* lock.c */
extern int lockchk(char *fname);
extern int lockrel(void);
extern int lock(char *fname);
extern int unlock(char *fname);
extern void lckerror(char *errstr);
/* names.c */
extern NBIND names[];

2
estruct.h
View File

@ -608,7 +608,7 @@ typedef struct {
typedef struct { typedef struct {
char *n_name; /* name of function key */ char *n_name; /* name of function key */
int (*n_func) (); /* function name is bound to */ int (*n_func)(int, int);/* function name is bound to */
} NBIND; } NBIND;
/* The editor holds deleted text chunks in the KILL buffer. The /* The editor holds deleted text chunks in the KILL buffer. The

195
eval.c
View File

@ -9,9 +9,10 @@
#include <stdio.h> #include <stdio.h>
#include "estruct.h" #include "estruct.h"
#include "edef.h" #include "edef.h"
#include "efunc.h"
#include "evar.h" #include "evar.h"
varinit() void varinit(void)
{ /* initialize the user variable list */ { /* initialize the user variable list */
register int i; register int i;
@ -19,10 +20,12 @@ varinit()
uv[i].u_name[0] = 0; uv[i].u_name[0] = 0;
} }
char *gtfun(fname) /*
/* evaluate a function */ * evaluate a function
char *fname; /* name of function to evaluate */ *
* char *fname; name of function to evaluate
*/
char *gtfun(char *fname)
{ {
register int fnum; /* index to function to eval */ register int fnum; /* index to function to eval */
register int status; /* return status */ register int status; /* return status */
@ -164,10 +167,12 @@ char *fname; /* name of function to evaluate */
exit(-11); /* never should get here */ exit(-11); /* never should get here */
} }
char *gtusr(vname) /*
/* look up a user var's value */ * look up a user var's value
char *vname; /* name of user variable to fetch */ *
* char *vname; name of user variable to fetch
*/
char *gtusr(char *vname)
{ {
register int vnum; /* ordinal number of user var */ register int vnum; /* ordinal number of user var */
@ -184,10 +189,13 @@ char *vname; /* name of user variable to fetch */
return (errorm); return (errorm);
} }
char *gtenv(vname)
char *vname; /* name of environment variable to retrieve */
/*
* gtenv()
*
* char *vname; name of environment variable to retrieve
*/
char *gtenv(char *vname)
{ {
register int vnum; /* ordinal number of var refrenced */ register int vnum; /* ordinal number of var refrenced */
char *getkill(); char *getkill();
@ -313,8 +321,11 @@ char *vname; /* name of environment variable to retrieve */
exit(-12); /* again, we should never get here */ exit(-12); /* again, we should never get here */
} }
char *getkill() /*
{ /* return some of the contents of the kill buffer */ * return some of the contents of the kill buffer
*/
char *getkill(void)
{
register int size; /* max number of chars to return */ register int size; /* max number of chars to return */
static char value[NSTRING]; /* temp buffer for value */ static char value[NSTRING]; /* temp buffer for value */
@ -334,11 +345,13 @@ char *getkill()
return (value); return (value);
} }
int setvar(f, n) /*
/* set a variable */ * set a variable
int f; /* default flag */ *
int n; /* numeric arg (can overide prompted value) */ * int f; default flag
* int n; numeric arg (can overide prompted value)
*/
int setvar(int f, int n)
{ {
register int status; /* status return */ register int status; /* status return */
#if DEBUGM #if DEBUGM
@ -432,12 +445,14 @@ int n; /* numeric arg (can overide prompted value) */
return (status); return (status);
} }
findvar(var, vd, size) /*
/* find a variables type and name */ * find a variables type and name
char *var; /* name of var to get */ *
VDESC *vd; /* structure to hold type and ptr */ * char *var; name of var to get
int size; /* size of var array */ * VDESC *vd; structure to hold type and ptr
* int size; size of var array
*/
void findvar(char *var, VDESC *vd, int size)
{ {
register int vnum; /* subscript in varable arrays */ register int vnum; /* subscript in varable arrays */
register int vtype; /* type to return */ register int vtype; /* type to return */
@ -487,11 +502,13 @@ int size; /* size of var array */
return; return;
} }
int svar(var, value) /*
/* set a variable */ * set a variable
VDESC *var; /* variable to set */ *
char *value; /* value to set to */ * VDESC *var; variable to set
* char *value; value to set to
*/
int svar(VDESC *var, char *value)
{ {
register int vnum; /* ordinal number of var refrenced */ register int vnum; /* ordinal number of var refrenced */
register int vtype; /* type of variable to set */ register int vtype; /* type of variable to set */
@ -660,13 +677,14 @@ char *value; /* value to set to */
return (status); return (status);
} }
/* itoa: integer to ascii string.......... This is too /*
inconsistant to use the system's */ * itoa:
* integer to ascii string.......... This is too
char *itoa(i) * inconsistant to use the system's
*
int i; /* integer to translate to a string */ * int i; integer to translate to a string
*/
char *itoa(int i)
{ {
register int digit; /* current digit being used */ register int digit; /* current digit being used */
register char *sp; /* pointer into result */ register char *sp; /* pointer into result */
@ -697,10 +715,12 @@ int i; /* integer to translate to a string */
return (sp); return (sp);
} }
int gettyp(token) /*
/* find the type of a passed token */ * find the type of a passed token
char *token; /* token to analyze */ *
* char *token; token to analyze
*/
int gettyp(char *token)
{ {
register char c; /* first char in token */ register char c; /* first char in token */
@ -739,10 +759,12 @@ char *token; /* token to analyze */
} }
} }
char *getval(token) /*
/* find the value of a token */ * find the value of a token
char *token; /* token to evaluate */ *
* char *token; token to evaluate
*/
char *getval(char *token)
{ {
register int status; /* error return */ register int status; /* error return */
register BUFFER *bp; /* temp buffer pointer */ register BUFFER *bp; /* temp buffer pointer */
@ -823,10 +845,12 @@ char *token; /* token to evaluate */
} }
} }
int stol(val) /*
/* convert a string to a numeric logical */ * convert a string to a numeric logical
char *val; /* value to check for stol */ *
* char *val; value to check for stol
*/
int stol(char *val)
{ {
/* check for logical values */ /* check for logical values */
if (val[0] == 'F') if (val[0] == 'F')
@ -838,10 +862,12 @@ char *val; /* value to check for stol */
return ((atoi(val) != 0)); return ((atoi(val) != 0));
} }
char *ltos(val) /*
/* numeric logical to string logical */ * numeric logical to string logical
int val; /* value to translate */ *
* int val; value to translate
*/
char *ltos(int val)
{ {
if (val) if (val)
return (truem); return (truem);
@ -849,10 +875,12 @@ int val; /* value to translate */
return (falsem); return (falsem);
} }
char *mkupper(str) /*
/* make a string upper case */ * make a string upper case
char *str; /* string to upper case */ *
* char *str; string to upper case
*/
char *mkupper(char *str)
{ {
char *sp; char *sp;
@ -865,10 +893,12 @@ char *str; /* string to upper case */
return (str); return (str);
} }
char *mklower(str) /*
/* make a string lower case */ * make a string lower case
char *str; /* string to lower case */ *
* char *str; string to lower case
*/
char *mklower(char *str)
{ {
char *sp; char *sp;
@ -881,25 +911,30 @@ char *str; /* string to lower case */
return (str); return (str);
} }
int abs(x) /*
/* take the absolute value of an integer */ * take the absolute value of an integer
int x; */
int abs(int x)
{ {
return (x < 0 ? -x : x); return (x < 0 ? -x : x);
} }
int ernd() /*
{ /* returns a random integer */ * returns a random integer
*/
int ernd(void)
{
seed = abs(seed * 1721 + 10007); seed = abs(seed * 1721 + 10007);
return (seed); return (seed);
} }
int sindex(source, pattern) /*
/* find pattern within source */ * find pattern within source
char *source; /* source string to search */ *
char *pattern; /* string to look for */ * char *source; source string to search
* char *pattern; string to look for
*/
int sindex(char *source, char *pattern)
{ {
char *sp; /* ptr to current position to scan */ char *sp; /* ptr to current position to scan */
char *csp; /* ptr to source string during comparison */ char *csp; /* ptr to source string during comparison */
@ -928,14 +963,14 @@ char *pattern; /* string to look for */
return (0); return (0);
} }
/* Filter a string through a translation table */ /*
* Filter a string through a translation table
char *xlat(source, lookup, trans) *
* char *source; string to filter
char *source; /* string to filter */ * char *lookup; characters to translate
char *lookup; /* characters to translate */ * char *trans; resulting translated characters
char *trans; /* resulting translated characters */ */
char *xlat(char *source, char *lookup, char *trans)
{ {
register char *sp; /* pointer into source table */ register char *sp; /* pointer into source table */
register char *lp; /* pointer into lookup table */ register char *lp; /* pointer into lookup table */

343
exec.c
View File

@ -10,13 +10,15 @@
#include <stdio.h> #include <stdio.h>
#include "estruct.h" #include "estruct.h"
#include "edef.h" #include "edef.h"
#include "efunc.h"
/* namedcmd: execute a named command even if it is not bound */ /*
* namedcmd:
namedcmd(f, n) * execute a named command even if it is not bound
*
int f, n; /* command arguments [passed through to command executed] */ * int f, n; command arguments [passed through to command executed]
*/
int namedcmd(int f, int n)
{ {
register int (*kfunc) (); /* ptr to the requexted function to bind to */ register int (*kfunc) (); /* ptr to the requexted function to bind to */
int (*getname()) (); int (*getname()) ();
@ -35,13 +37,14 @@ int f, n; /* command arguments [passed through to command executed] */
return ((*kfunc) (f, n)); return ((*kfunc) (f, n));
} }
/* execcmd: Execute a command line command to be typed in /*
by the user */ * execcmd:
* Execute a command line command to be typed in
execcmd(f, n) * by the user
*
int f, n; /* default Flag and Numeric argument */ * int f, n; default Flag and Numeric argument
*/
int execcmd(int f, int n)
{ {
register int status; /* status return */ register int status; /* status return */
char cmdstr[NSTRING]; /* string holding command to execute */ char cmdstr[NSTRING]; /* string holding command to execute */
@ -54,21 +57,20 @@ int f, n; /* default Flag and Numeric argument */
return (docmd(cmdstr)); return (docmd(cmdstr));
} }
/* docmd: take a passed string as a command line and translate /*
it to be executed as a command. This function will be * docmd:
used by execute-command-line and by all source and * take a passed string as a command line and translate
startup files. Lastflag/thisflag is also updated. * it to be executed as a command. This function will be
* used by execute-command-line and by all source and
format of the command line is: * startup files. Lastflag/thisflag is also updated.
*
{# arg} <command-name> {<argument string(s)>} * format of the command line is:
*
*/ * {# arg} <command-name> {<argument string(s)>}
*
docmd(cline) * char *cline; command line to execute
*/
char *cline; /* command line to execute */ int docmd(char *cline)
{ {
register int f; /* default argument flag */ register int f; /* default argument flag */
register int n; /* numeric repeat value */ register int n; /* numeric repeat value */
@ -127,15 +129,15 @@ char *cline; /* command line to execute */
return (status); return (status);
} }
/* token: chop a token off a string /*
return a pointer past the token * token:
*/ * chop a token off a string
* return a pointer past the token
char *token(src, tok, size) *
* char *src, *tok; source string, destination token string
char *src, *tok; /* source string, destination token string */ * int size; maximum size of token
int size; /* maximum size of token */ */
char *token(char *src, char *tok, int size)
{ {
register int quotef; /* is the current string quoted? */ register int quotef; /* is the current string quoted? */
register char c; /* temporary character */ register char c; /* temporary character */
@ -202,10 +204,12 @@ int size; /* maximum size of token */
return (src); return (src);
} }
macarg(tok) /*
/* get a macro line argument */ * get a macro line argument
char *tok; /* buffer to place argument */ *
* char *tok; buffer to place argument
*/
int macarg(char *tok)
{ {
int savcle; /* buffer to store original clexec */ int savcle; /* buffer to store original clexec */
int status; int status;
@ -217,15 +221,16 @@ char *tok; /* buffer to place argument */
return (status); return (status);
} }
/* nextarg: get the next argument */ /*
* nextarg:
nextarg(prompt, buffer, size, terminator) * get the next argument
*
char *prompt; /* prompt to use if we must be interactive */ * char *prompt; prompt to use if we must be interactive
char *buffer; /* buffer to put token into */ * char *buffer; buffer to put token into
int size; /* size of the buffer */ * int size; size of the buffer
int terminator; /* terminating char to be used on interactive fetch */ * int terminator; terminating char to be used on interactive fetch
*/
int nextarg(char *prompt, char *buffer, int size, int terminator)
{ {
/* if we are interactive, go get it! */ /* if we are interactive, go get it! */
if (clexec == FALSE) if (clexec == FALSE)
@ -239,14 +244,15 @@ int terminator; /* terminating char to be used on interactive fetch */
return (TRUE); return (TRUE);
} }
/* storemac: Set up a macro buffer and flag to store all /*
executed command lines there */ * storemac:
* Set up a macro buffer and flag to store all
storemac(f, n) * executed command lines there
*
int f; /* default flag */ * int f; default flag
int n; /* macro number to use */ * int n; macro number to use
*/
int storemac(int f, int n)
{ {
register struct BUFFER *bp; /* pointer to macro buffer */ register struct BUFFER *bp; /* pointer to macro buffer */
char bname[NBUFN]; /* name of buffer to use */ char bname[NBUFN]; /* name of buffer to use */
@ -284,14 +290,15 @@ int n; /* macro number to use */
} }
#if PROC #if PROC
/* storeproc: Set up a procedure buffer and flag to store all /*
executed command lines there */ * storeproc:
* Set up a procedure buffer and flag to store all
storeproc(f, n) * executed command lines there
*
int f; /* default flag */ * int f; default flag
int n; /* macro number to use */ * int n; macro number to use
*/
int storeproc(int f, int n)
{ {
register struct BUFFER *bp; /* pointer to macro buffer */ register struct BUFFER *bp; /* pointer to macro buffer */
register int status; /* return status */ register int status; /* return status */
@ -325,12 +332,13 @@ int n; /* macro number to use */
return (TRUE); return (TRUE);
} }
/* execproc: Execute a procedure */ /*
* execproc:
execproc(f, n) * Execute a procedure
*
int f, n; /* default flag and numeric arg */ * int f, n; default flag and numeric arg
*/
int execproc(int f, int n)
{ {
register BUFFER *bp; /* ptr to buffer to execute */ register BUFFER *bp; /* ptr to buffer to execute */
register int status; /* status return */ register int status; /* status return */
@ -359,12 +367,13 @@ int f, n; /* default flag and numeric arg */
} }
#endif #endif
/* execbuf: Execute the contents of a buffer of commands */ /*
* execbuf:
execbuf(f, n) * Execute the contents of a buffer of commands
*
int f, n; /* default flag and numeric arg */ * int f, n; default flag and numeric arg
*/
int execbuf(int f, int n)
{ {
register BUFFER *bp; /* ptr to buffer to execute */ register BUFFER *bp; /* ptr to buffer to execute */
register int status; /* status return */ register int status; /* status return */
@ -387,30 +396,30 @@ int f, n; /* default flag and numeric arg */
return (TRUE); return (TRUE);
} }
/* dobuf: execute the contents of the buffer pointed to /*
by the passed BP * dobuf:
* execute the contents of the buffer pointed to
Directives start with a "!" and include: * by the passed BP
*
!endm End a macro * Directives start with a "!" and include:
!if (cond) conditional execution *
!else * !endm End a macro
!endif * !if (cond) conditional execution
!return Return (terminating current macro) * !else
!goto <label> Jump to a label in the current macro * !endif
!force Force macro to continue...even if command fails * !return Return (terminating current macro)
!while (cond) Execute a loop if the condition is true * !goto <label> Jump to a label in the current macro
!endwhile * !force Force macro to continue...even if command fails
* !while (cond) Execute a loop if the condition is true
Line Labels begin with a "*" as the first nonblank char, like: * !endwhile
*
*LBL01 * Line Labels begin with a "*" as the first nonblank char, like:
*/ *
* *LBL01
dobuf(bp) *
* BUFFER *bp; buffer to execute
BUFFER *bp; /* buffer to execute */ */
int dobuf(BUFFER *bp)
{ {
register int status; /* status return */ register int status; /* status return */
register LINE *lp; /* pointer to line to execute */ register LINE *lp; /* pointer to line to execute */
@ -822,10 +831,12 @@ BUFFER *bp; /* buffer to execute */
return (TRUE); return (TRUE);
} }
freewhile(wp) /*
/* free a list of while block pointers */ * free a list of while block pointers
WHBLOCK *wp; /* head of structure to free */ *
* WHBLOCK *wp; head of structure to free
*/
int freewhile(WHBLOCK *wp)
{ {
if (wp == NULL) if (wp == NULL)
return; return;
@ -834,10 +845,12 @@ WHBLOCK *wp; /* head of structure to free */
free(wp); free(wp);
} }
execfile(f, n) /*
/* execute a series of commands in a file */ * execute a series of commands in a file
int f, n; /* default flag and numeric arg to pass on to file */ *
* int f, n; default flag and numeric arg to pass on to file
*/
int execfile(int f, int n)
{ {
register int status; /* return status of name query */ register int status; /* return status of name query */
char fname[NSTRING]; /* name of file to execute */ char fname[NSTRING]; /* name of file to execute */
@ -864,13 +877,14 @@ int f, n; /* default flag and numeric arg to pass on to file */
return (TRUE); return (TRUE);
} }
/* dofile: yank a file into a buffer and execute it /*
if there are no errors, delete the buffer on exit */ * dofile:
* yank a file into a buffer and execute it
dofile(fname) * if there are no errors, delete the buffer on exit
*
char *fname; /* file name to execute */ * char *fname; file name to execute
*/
int dofile(char *fname)
{ {
register BUFFER *bp; /* buffer to place file to exeute */ register BUFFER *bp; /* buffer to place file to exeute */
register BUFFER *cb; /* temp to hold current buf while we read */ register BUFFER *cb; /* temp to hold current buf while we read */
@ -902,13 +916,14 @@ char *fname; /* file name to execute */
return (TRUE); return (TRUE);
} }
/* cbuf: Execute the contents of a numbered buffer */ /*
* cbuf:
cbuf(f, n, bufnum) * Execute the contents of a numbered buffer
*
int f, n; /* default flag and numeric arg */ * int f, n; default flag and numeric arg
int bufnum; /* number of buffer to execute */ * int bufnum; number of buffer to execute
*/
int cbuf(int f, int n, int bufnum)
{ {
register BUFFER *bp; /* ptr to buffer to execute */ register BUFFER *bp; /* ptr to buffer to execute */
register int status; /* status return */ register int status; /* status return */
@ -931,202 +946,202 @@ int bufnum; /* number of buffer to execute */
return (TRUE); return (TRUE);
} }
cbuf1(f, n) int cbuf1(int f, int n)
{ {
return cbuf(f, n, 1); return cbuf(f, n, 1);
} }
cbuf2(f, n) int cbuf2(int f, int n)
{ {
return cbuf(f, n, 2); return cbuf(f, n, 2);
} }
cbuf3(f, n) int cbuf3(int f, int n)
{ {
return cbuf(f, n, 3); return cbuf(f, n, 3);
} }
cbuf4(f, n) int cbuf4(int f, int n)
{ {
return cbuf(f, n, 4); return cbuf(f, n, 4);
} }
cbuf5(f, n) int cbuf5(int f, int n)
{ {
return cbuf(f, n, 5); return cbuf(f, n, 5);
} }
cbuf6(f, n) int cbuf6(int f, int n)
{ {
return cbuf(f, n, 6); return cbuf(f, n, 6);
} }
cbuf7(f, n) int cbuf7(int f, int n)
{ {
return cbuf(f, n, 7); return cbuf(f, n, 7);
} }
cbuf8(f, n) int cbuf8(int f, int n)
{ {
return cbuf(f, n, 8); return cbuf(f, n, 8);
} }
cbuf9(f, n) int cbuf9(int f, int n)
{ {
return cbuf(f, n, 9); return cbuf(f, n, 9);
} }
cbuf10(f, n) int cbuf10(int f, int n)
{ {
return cbuf(f, n, 10); return cbuf(f, n, 10);
} }
cbuf11(f, n) int cbuf11(int f, int n)
{ {
return cbuf(f, n, 11); return cbuf(f, n, 11);
} }
cbuf12(f, n) int cbuf12(int f, int n)
{ {
return cbuf(f, n, 12); return cbuf(f, n, 12);
} }
cbuf13(f, n) int cbuf13(int f, int n)
{ {
return cbuf(f, n, 13); return cbuf(f, n, 13);
} }
cbuf14(f, n) int cbuf14(int f, int n)
{ {
return cbuf(f, n, 14); return cbuf(f, n, 14);
} }
cbuf15(f, n) int cbuf15(int f, int n)
{ {
return cbuf(f, n, 15); return cbuf(f, n, 15);
} }
cbuf16(f, n) int cbuf16(int f, int n)
{ {
return cbuf(f, n, 16); return cbuf(f, n, 16);
} }
cbuf17(f, n) int cbuf17(int f, int n)
{ {
return cbuf(f, n, 17); return cbuf(f, n, 17);
} }
cbuf18(f, n) int cbuf18(int f, int n)
{ {
return cbuf(f, n, 18); return cbuf(f, n, 18);
} }
cbuf19(f, n) int cbuf19(int f, int n)
{ {
return cbuf(f, n, 19); return cbuf(f, n, 19);
} }
cbuf20(f, n) int cbuf20(int f, int n)
{ {
return cbuf(f, n, 20); return cbuf(f, n, 20);
} }
cbuf21(f, n) int cbuf21(int f, int n)
{ {
return cbuf(f, n, 21); return cbuf(f, n, 21);
} }
cbuf22(f, n) int cbuf22(int f, int n)
{ {
return cbuf(f, n, 22); return cbuf(f, n, 22);
} }
cbuf23(f, n) int cbuf23(int f, int n)
{ {
return cbuf(f, n, 23); return cbuf(f, n, 23);
} }
cbuf24(f, n) int cbuf24(int f, int n)
{ {
return cbuf(f, n, 24); return cbuf(f, n, 24);
} }
cbuf25(f, n) int cbuf25(int f, int n)
{ {
return cbuf(f, n, 25); return cbuf(f, n, 25);
} }
cbuf26(f, n) int cbuf26(int f, int n)
{ {
return cbuf(f, n, 26); return cbuf(f, n, 26);
} }
cbuf27(f, n) int cbuf27(int f, int n)
{ {
return cbuf(f, n, 27); return cbuf(f, n, 27);
} }
cbuf28(f, n) int cbuf28(int f, int n)
{ {
return cbuf(f, n, 28); return cbuf(f, n, 28);
} }
cbuf29(f, n) int cbuf29(int f, int n)
{ {
return cbuf(f, n, 29); return cbuf(f, n, 29);
} }
cbuf30(f, n) int cbuf30(int f, int n)
{ {
return cbuf(f, n, 30); return cbuf(f, n, 30);
} }
cbuf31(f, n) int cbuf31(int f, int n)
{ {
return cbuf(f, n, 31); return cbuf(f, n, 31);
} }
cbuf32(f, n) int cbuf32(int f, int n)
{ {
return cbuf(f, n, 32); return cbuf(f, n, 32);
} }
cbuf33(f, n) int cbuf33(int f, int n)
{ {
return cbuf(f, n, 33); return cbuf(f, n, 33);
} }
cbuf34(f, n) int cbuf34(int f, int n)
{ {
return cbuf(f, n, 34); return cbuf(f, n, 34);
} }
cbuf35(f, n) int cbuf35(int f, int n)
{ {
return cbuf(f, n, 35); return cbuf(f, n, 35);
} }
cbuf36(f, n) int cbuf36(int f, int n)
{ {
return cbuf(f, n, 36); return cbuf(f, n, 36);
} }
cbuf37(f, n) int cbuf37(int f, int n)
{ {
return cbuf(f, n, 37); return cbuf(f, n, 37);
} }
cbuf38(f, n) int cbuf38(int f, int n)
{ {
return cbuf(f, n, 38); return cbuf(f, n, 38);
} }
cbuf39(f, n) int cbuf39(int f, int n)
{ {
return cbuf(f, n, 39); return cbuf(f, n, 39);
} }
cbuf40(f, n) int cbuf40(int f, int n)
{ {
return cbuf(f, n, 40); return cbuf(f, n, 40);
} }

74
file.c
View File

@ -8,8 +8,10 @@
*/ */
#include <stdio.h> #include <stdio.h>
#include <unistd.h>
#include "estruct.h" #include "estruct.h"
#include "edef.h" #include "edef.h"
#include "efunc.h"
/* /*
* Read a file into the current * Read a file into the current
@ -18,7 +20,7 @@
* "read a file into the current buffer" code. * "read a file into the current buffer" code.
* Bound to "C-X C-R". * Bound to "C-X C-R".
*/ */
fileread(f, n) int fileread(int f, int n)
{ {
register int s; register int s;
char fname[NFILEN]; char fname[NFILEN];
@ -37,7 +39,7 @@ fileread(f, n)
* "insert a file into the current buffer" code. * "insert a file into the current buffer" code.
* Bound to "C-X C-I". * Bound to "C-X C-I".
*/ */
insfile(f, n) int insfile(int f, int n)
{ {
register int s; register int s;
char fname[NFILEN]; char fname[NFILEN];
@ -62,7 +64,7 @@ insfile(f, n)
* text, and switch to the new buffer. * text, and switch to the new buffer.
* Bound to C-X C-F. * Bound to C-X C-F.
*/ */
filefind(f, n) int filefind(int f, int n)
{ {
char fname[NFILEN]; /* file user wishes to find */ char fname[NFILEN]; /* file user wishes to find */
register int s; /* status return */ register int s; /* status return */
@ -74,7 +76,7 @@ filefind(f, n)
return (getfile(fname, TRUE)); return (getfile(fname, TRUE));
} }
viewfile(f, n) int viewfile(int f, int n)
{ /* visit a file in VIEW mode */ { /* visit a file in VIEW mode */
char fname[NFILEN]; /* file user wishes to find */ char fname[NFILEN]; /* file user wishes to find */
register int s; /* status return */ register int s; /* status return */
@ -99,7 +101,7 @@ viewfile(f, n)
} }
#if CRYPT #if CRYPT
resetkey() int resetkey(void)
{ /* reset the encryption key if needed */ { /* reset the encryption key if needed */
register int s; /* return status */ register int s; /* return status */
@ -131,11 +133,13 @@ resetkey()
} }
#endif #endif
getfile(fname, lockfl) /*
* getfile()
char fname[]; /* file name to find */ *
int lockfl; /* check the file for locks? */ * char fname[]; file name to find
* int lockfl; check the file for locks?
*/
int getfile(char *fname, int lockfl)
{ {
register BUFFER *bp; register BUFFER *bp;
register LINE *lp; register LINE *lp;
@ -191,19 +195,17 @@ int lockfl; /* check the file for locks? */
} }
/* /*
Read file "fname" into the current buffer, blowing away any text * Read file "fname" into the current buffer, blowing away any text
found there. Called by both the read and find commands. Return * found there. Called by both the read and find commands. Return
the final status of the read. Also called by the mainline, to * the final status of the read. Also called by the mainline, to
read in a file specified on the command line as an argument. * read in a file specified on the command line as an argument.
The command bound to M-FNR is called after the buffer is set up * The command bound to M-FNR is called after the buffer is set up
and before it is read. * and before it is read.
*/ *
* char fname[]; name of file to read
readin(fname, lockfl) * int lockfl; check for file locks?
*/
char fname[]; /* name of file to read */ int readin(char *fname, int lockfl)
int lockfl; /* check for file locks? */
{ {
register LINE *lp1; register LINE *lp1;
register LINE *lp2; register LINE *lp2;
@ -323,9 +325,7 @@ int lockfl; /* check for file locks? */
* I suppose that this information could be put in * I suppose that this information could be put in
* a better place than a line of code. * a better place than a line of code.
*/ */
makename(bname, fname) void makename(char *bname, char *fname)
char bname[];
char fname[];
{ {
register char *cp1; register char *cp1;
register char *cp2; register char *cp2;
@ -358,10 +358,12 @@ char fname[];
*cp2 = 0; *cp2 = 0;
} }
unqname(name) /*
/* make sure a buffer name is unique */ * make sure a buffer name is unique
char *name; /* name to check on */ *
* char *name; name to check on
*/
void unqname(char *name)
{ {
register char *sp; register char *sp;
@ -389,7 +391,7 @@ char *name; /* name to check on */
* is more compatable with Gosling EMACS than * is more compatable with Gosling EMACS than
* with ITS EMACS. Bound to "C-X C-W". * with ITS EMACS. Bound to "C-X C-W".
*/ */
filewrite(f, n) int filewrite(int f, int n)
{ {
register WINDOW *wp; register WINDOW *wp;
register int s; register int s;
@ -420,7 +422,7 @@ filewrite(f, n)
* name for the buffer. Bound to "C-X C-S". May * name for the buffer. Bound to "C-X C-S". May
* get called by "C-Z". * get called by "C-Z".
*/ */
filesave(f, n) int filesave(int f, int n)
{ {
register WINDOW *wp; register WINDOW *wp;
register int s; register int s;
@ -462,8 +464,7 @@ filesave(f, n)
* a macro for this. Most of the grief is error * a macro for this. Most of the grief is error
* checking of some sort. * checking of some sort.
*/ */
writeout(fn) int writeout(char *fn)
char *fn;
{ {
register int s; register int s;
register LINE *lp; register LINE *lp;
@ -515,7 +516,7 @@ char *fn;
* as needing an update. You can type a blank line at the * as needing an update. You can type a blank line at the
* prompt if you wish. * prompt if you wish.
*/ */
filename(f, n) int filename(int f, int n)
{ {
register WINDOW *wp; register WINDOW *wp;
register int s; register int s;
@ -544,8 +545,7 @@ filename(f, n)
* buffer, Called by insert file command. Return the final * buffer, Called by insert file command. Return the final
* status of the read. * status of the read.
*/ */
ifile(fname) int ifile(char *fname)
char fname[];
{ {
register LINE *lp0; register LINE *lp0;
register LINE *lp1; register LINE *lp1;

24
fileio.c
View File

@ -9,6 +9,7 @@
#include <stdio.h> #include <stdio.h>
#include "estruct.h" #include "estruct.h"
#include "edef.h" #include "edef.h"
#include "efunc.h"
#if PKCODE #if PKCODE
extern int nullflag; extern int nullflag;
@ -20,8 +21,7 @@ int eofflag; /* end-of-file flag */
/* /*
* Open a file for reading. * Open a file for reading.
*/ */
ffropen(fn) int ffropen(char *fn)
char *fn;
{ {
if ((ffp = fopen(fn, "r")) == NULL) if ((ffp = fopen(fn, "r")) == NULL)
return (FIOFNF); return (FIOFNF);
@ -33,8 +33,7 @@ char *fn;
* Open a file for writing. Return TRUE if all is well, and FALSE on error * Open a file for writing. Return TRUE if all is well, and FALSE on error
* (cannot create). * (cannot create).
*/ */
ffwopen(fn) int ffwopen(char *fn)
char *fn;
{ {
#if VMS #if VMS
register int fd; register int fd;
@ -53,7 +52,7 @@ char *fn;
/* /*
* Close a file. Should look at the status in all systems. * Close a file. Should look at the status in all systems.
*/ */
ffclose() int ffclose(void)
{ {
/* free this since we do not need it anymore */ /* free this since we do not need it anymore */
if (fline) { if (fline) {
@ -83,8 +82,7 @@ ffclose()
* and the "nbuf" is its length, less the free newline. Return the status. * and the "nbuf" is its length, less the free newline. Return the status.
* Check only at the newline. * Check only at the newline.
*/ */
ffputline(buf, nbuf) int ffputline(char *buf, int nbuf)
char buf[];
{ {
register int i; register int i;
#if CRYPT #if CRYPT
@ -120,7 +118,7 @@ char buf[];
* at the end of the file that don't have a newline present. Check for I/O * at the end of the file that don't have a newline present. Check for I/O
* errors too. Return status. * errors too. Return status.
*/ */
ffgetline() int ffgetline(void)
{ {
register int c; /* current character read */ register int c; /* current character read */
register int i; /* current index into fline */ register int i; /* current index into fline */
@ -206,10 +204,12 @@ ffgetline()
return (FIOSUC); return (FIOSUC);
} }
int fexist(fname) /*
/* does <fname> exist on disk? */ * does <fname> exist on disk?
char *fname; /* file to check for existance */ *
* char *fname; file to check for existance
*/
int fexist(char *fname)
{ {
FILE *fp; FILE *fp;

1
input.c
View File

@ -9,6 +9,7 @@
#include <stdio.h> #include <stdio.h>
#include "estruct.h" #include "estruct.h"
#include "edef.h" #include "edef.h"
#include "efunc.h"
#if PKCODE #if PKCODE
#if MSDOS && TURBO #if MSDOS && TURBO

70
isearch.c
View File

@ -25,12 +25,10 @@
#include <stdio.h> #include <stdio.h>
#include "estruct.h" #include "estruct.h"
#include "edef.h" #include "edef.h"
#include "efunc.h"
#if ISRCH #if ISRCH
extern int scanner(); /* Handy search routine */
extern int eq(); /* Compare chars, match case */
/* A couple of "own" variables for re-eat */ /* A couple of "own" variables for re-eat */
int (*saved_get_char) (); /* Get character routine */ int (*saved_get_char) (); /* Get character routine */
@ -47,8 +45,7 @@ int cmd_reexecute = -1; /* > 0 if re-executing command */
* Subroutine to do incremental reverse search. It actually uses the * Subroutine to do incremental reverse search. It actually uses the
* same code as the normal incremental search, as both can go both ways. * same code as the normal incremental search, as both can go both ways.
*/ */
int risearch(int f, int n)
int risearch(f, n)
{ {
LINE *curline; /* Current line on entry */ LINE *curline; /* Current line on entry */
int curoff; /* Current offset on entry */ int curoff; /* Current offset on entry */
@ -78,9 +75,10 @@ int risearch(f, n)
#endif #endif
} }
/* Again, but for the forward direction */ /*
* Again, but for the forward direction
int fisearch(f, n) */
int fisearch(int f, int n)
{ {
LINE *curline; /* Current line on entry */ LINE *curline; /* Current line on entry */
int curoff; /* Current offset on entry */ int curoff; /* Current offset on entry */
@ -134,7 +132,7 @@ int fisearch(f, n)
* exists (or until the search is aborted). * exists (or until the search is aborted).
*/ */
isearch(f, n) int isearch(int f, int n)
{ {
int status; /* Search status */ int status; /* Search status */
int col; /* prompt column */ int col; /* prompt column */
@ -269,12 +267,12 @@ isearch(f, n)
* *
* If the compare fails, we return FALSE and assume the caller will call * If the compare fails, we return FALSE and assume the caller will call
* scanmore or something. * scanmore or something.
*
* char chr; Next char to look for
* char *patrn; The entire search string (incl chr)
* int dir; Search direction
*/ */
int checknext(char chr, char *patrn, int dir) /* Check next character in search string */
int checknext(chr, patrn, dir) /* Check next character in search string */
char chr; /* Next char to look for */
char *patrn; /* The entire search string (incl chr) */
int dir; /* Search direction */
{ {
register LINE *curline; /* current line during scan */ register LINE *curline; /* current line during scan */
register int curoff; /* position within current line */ register int curoff; /* position within current line */
@ -314,11 +312,11 @@ int dir; /* Search direction */
* we do find a match, "point" will be at the end of the matched string for * we do find a match, "point" will be at the end of the matched string for
* forward searches and at the beginning of the matched string for reverse * forward searches and at the beginning of the matched string for reverse
* searches. * searches.
*
* char *patrn; string to scan for
* int dir; direction to search
*/ */
int scanmore(char *patrn, int dir) /* search forward or back for a pattern */
int scanmore(patrn, dir) /* search forward or back for a pattern */
char *patrn; /* string to scan for */
int dir; /* direction to search */
{ {
int sts; /* search status */ int sts; /* search status */
@ -344,10 +342,10 @@ int dir; /* direction to search */
* This isn't used for forward searches, because forward searches leave "." * This isn't used for forward searches, because forward searches leave "."
* at the end of the search string (instead of in front), so all that needs to * at the end of the search string (instead of in front), so all that needs to
* be done is match the last char input. * be done is match the last char input.
*
* char *patrn; String to match to buffer
*/ */
int match_pat(char *patrn) /* See if the pattern string matches string at "." */
int match_pat(patrn) /* See if the pattern string matches string at "." */
char *patrn; /* String to match to buffer */
{ {
register int i; /* Generic loop index/offset */ register int i; /* Generic loop index/offset */
register int buffchar; /* character at current position */ register int buffchar; /* character at current position */
@ -376,10 +374,10 @@ char *patrn; /* String to match to buffer */
return (TRUE); /* Everything matched? Let's celebrate */ return (TRUE); /* Everything matched? Let's celebrate */
} }
/* Routine to prompt for I-Search string. */ /*
* Routine to prompt for I-Search string.
int promptpattern(prompt) */
char *prompt; int promptpattern(char *prompt)
{ {
char tpat[NPAT + 20]; char tpat[NPAT + 20];
@ -395,11 +393,13 @@ char *prompt;
return (strlen(tpat)); return (strlen(tpat));
} }
/* routine to echo i-search characters */ /*
* routine to echo i-search characters
int echochar(c, col) *
int c; /* character to be echoed */ * int c; character to be echoed
int col; /* column to be echoed in */ * int col; column to be echoed in
*/
int echochar(int c, int col)
{ {
movecursor(term.t_nrow, col); /* Position the cursor */ movecursor(term.t_nrow, col); /* Position the cursor */
if ((c < ' ') || (c == 0x7F)) { /* Control character? */ if ((c < ' ') || (c == 0x7F)) { /* Control character? */
@ -444,8 +444,7 @@ int col; /* column to be echoed in */
* Otherwise, we must be re-executing the command string, so just return the * Otherwise, we must be re-executing the command string, so just return the
* next character. * next character.
*/ */
int get_char(void)
int get_char()
{ {
int c; /* A place to get a character */ int c; /* A place to get a character */
@ -476,7 +475,7 @@ int get_char()
/* Come here on the next term.t_getchar call: */ /* Come here on the next term.t_getchar call: */
int uneat() int uneat(void)
{ {
int c; int c;
@ -486,8 +485,7 @@ int uneat()
return (c); /* and return the last char */ return (c); /* and return the last char */
} }
int reeat(c) int reeat(int c)
int c;
{ {
if (eaten_char != -1) /* If we've already been here */ if (eaten_char != -1) /* If we've already been here */
return /*(NULL) */ ; /* Don't do it again */ return /*(NULL) */ ; /* Don't do it again */
@ -496,7 +494,7 @@ int c;
term.t_getchar = uneat; /* Replace it with ours */ term.t_getchar = uneat; /* Replace it with ours */
} }
#else #else
isearch() int isearch(int f, int n)
{ {
} }
#endif #endif

1
line.c
View File

@ -16,6 +16,7 @@
#include <stdio.h> #include <stdio.h>
#include "estruct.h" #include "estruct.h"
#include "edef.h" #include "edef.h"
#include "efunc.h"
KILL *ykbuf; /* ptr to current kill buffer chunk being yanked */ KILL *ykbuf; /* ptr to current kill buffer chunk being yanked */
int ykboff; /* offset into that chunk */ int ykboff; /* offset into that chunk */

70
lock.c
View File

@ -8,6 +8,7 @@
#include <stdio.h> #include <stdio.h>
#include "estruct.h" #include "estruct.h"
#include "edef.h" #include "edef.h"
#include "efunc.h"
#if FILOCK #if FILOCK
#if BSD | SVR4 #if BSD | SVR4
@ -19,12 +20,13 @@ extern int errno; /* current error */
char *lname[NLOCKS]; /* names of all locked files */ char *lname[NLOCKS]; /* names of all locked files */
int numlocks; /* # of current locks active */ int numlocks; /* # of current locks active */
/* lockchk: check a file for locking and add it to the list */ /*
* lockchk:
lockchk(fname) * check a file for locking and add it to the list
*
char *fname; /* file to check for a lock */ * char *fname; file to check for a lock
*/
int lockchk(char *fname)
{ {
register int i; /* loop indexes */ register int i; /* loop indexes */
register int status; /* return status */ register int status; /* return status */
@ -63,9 +65,11 @@ char *fname; /* file to check for a lock */
return (TRUE); return (TRUE);
} }
/* lockrel: release all the file locks so others may edit */ /*
* lockrel:
lockrel() * release all the file locks so others may edit
*/
int lockrel(void)
{ {
register int i; /* loop index */ register int i; /* loop index */
register int status; /* status of locks */ register int status; /* status of locks */
@ -82,16 +86,16 @@ lockrel()
return (status); return (status);
} }
/* lock: Check and lock a file from access by others /*
returns TRUE = files was not locked and now is * lock:
FALSE = file was locked and overridden * Check and lock a file from access by others
ABORT = file was locked, abort command * returns TRUE = files was not locked and now is
*/ * FALSE = file was locked and overridden
* ABORT = file was locked, abort command
lock(fname) *
* char *fname; file name to lock
char *fname; /* file name to lock */ */
int lock(char *fname)
{ {
register char *locker; /* lock error message */ register char *locker; /* lock error message */
register int status; /* return status */ register int status; /* return status */
@ -120,14 +124,14 @@ char *fname; /* file name to lock */
return (ABORT); return (ABORT);
} }
/* unlock: Unlock a file /*
this only warns the user if it fails * unlock:
*/ * Unlock a file
* this only warns the user if it fails
unlock(fname) *
* char *fname; file to unlock
char *fname; /* file to unlock */ */
int unlock(char *fname)
{ {
register char *locker; /* undolock return string */ register char *locker; /* undolock return string */
char *undolock(); char *undolock();
@ -142,10 +146,12 @@ char *fname; /* file to unlock */
return (FALSE); return (FALSE);
} }
lckerror(errstr) /*
/* report a lock error */ * report a lock error
char *errstr; /* lock error string to print out */ *
* char *errstr; lock error string to print out
*/
void lckerror(char *errstr)
{ {
char obuf[NSTRING]; /* output buffer for error message */ char obuf[NSTRING]; /* output buffer for error message */
@ -159,7 +165,7 @@ char *errstr; /* lock error string to print out */
} }
#endif #endif
#else #else
lckhello() static void lckhello(void )
{ /* dummy function */ { /* dummy function */
} }
#endif #endif

11
main.c
View File

@ -57,8 +57,8 @@
#define maindef #define maindef
#include "estruct.h" /* global structures and defines */ #include "estruct.h" /* global structures and defines */
#include "efunc.h" /* function declarations and name table */
#include "edef.h" /* global definitions */ #include "edef.h" /* global definitions */
#include "efunc.h" /* function declarations and name table */
#include "ebind.h" /* default key bindings */ #include "ebind.h" /* default key bindings */
/* for MSDOS, increase the default stack space */ /* for MSDOS, increase the default stack space */
@ -117,10 +117,6 @@ int main(int argc, char **argv)
#endif #endif
extern *pathname[]; /* startup file path/name array */ extern *pathname[]; /* startup file path/name array */
int newc; int newc;
#if PKCODE
int (*getbind()) ();
int (*execfunc) (); /* ptr to function to execute */
#endif
#if PKCODE & VMS #if PKCODE & VMS
(void) umask(-1); /* use old protection (this is at wrong place) */ (void) umask(-1); /* use old protection (this is at wrong place) */
@ -311,6 +307,8 @@ int main(int argc, char **argv)
newc = getcmd(); newc = getcmd();
update(FALSE); update(FALSE);
do { do {
fn_t execfunc;
if (c == newc && (execfunc = getbind(c)) != NULL if (c == newc && (execfunc = getbind(c)) != NULL
&& execfunc != newline && execfunc != tab) && execfunc != newline && execfunc != tab)
newc = getcmd(); newc = getcmd();
@ -468,8 +466,7 @@ int edinit(char *bname)
int execute(int c, int f, int n) int execute(int c, int f, int n)
{ {
register int status; register int status;
int (*execfunc) (); /* ptr to function to execute */ fn_t execfunc;
int (*getbind()) ();
/* if the keystroke is a bound function...do it */ /* if the keystroke is a bound function...do it */
execfunc = getbind(c); execfunc = getbind(c);

4
makefile
View File

@ -3,12 +3,12 @@
SRC=ansi.c basic.c bind.c buffer.c crypt.c display.c eval.c exec.c \ SRC=ansi.c basic.c bind.c buffer.c crypt.c display.c eval.c exec.c \
file.c fileio.c ibmpc.c input.c isearch.c line.c lock.c main.c \ file.c fileio.c ibmpc.c input.c isearch.c line.c lock.c main.c \
pklock.c posix.c random.c region.c search.c spawn.c tcap.c \ pklock.c posix.c random.c region.c search.c spawn.c tcap.c \
termio.c vmsvt.c vt52.c window.c word.c termio.c vmsvt.c vt52.c window.c word.c names.c
OBJ=ansi.o basic.o bind.o buffer.o crypt.o display.o eval.o exec.o \ OBJ=ansi.o basic.o bind.o buffer.o crypt.o display.o eval.o exec.o \
file.o fileio.o ibmpc.o input.o isearch.o line.o lock.o main.o \ file.o fileio.o ibmpc.o input.o isearch.o line.o lock.o main.o \
pklock.o posix.o random.o region.o search.o spawn.o tcap.o \ pklock.o posix.o random.o region.o search.o spawn.o tcap.o \
termio.o vmsvt.o vt52.o window.o word.o termio.o vmsvt.o vt52.o window.o word.o names.o
HDR=ebind.h edef.h efunc.h epath.h estruct.h evar.h HDR=ebind.h edef.h efunc.h epath.h estruct.h evar.h

224
names.c Normal file
View File

@ -0,0 +1,224 @@
/* Name to function binding table
This table gives the names of all the bindable functions
end their C function address. These are used for the bind-to-key
function.
*/
#include "estruct.h"
#include "edef.h"
#include "efunc.h"
NBIND names[] = {
{"abort-command", ctrlg},
{"add-mode", setmode},
{"add-global-mode", setgmode},
#if APROP
{"apropos", apro},
#endif
{"backward-character", backchar},
{"begin-macro", ctlxlp},
{"beginning-of-file", gotobob},
{"beginning-of-line", gotobol},
{"bind-to-key", bindtokey},
{"buffer-position", showcpos},
{"case-region-lower", lowerregion},
{"case-region-upper", upperregion},
{"case-word-capitalize", capword},
{"case-word-lower", lowerword},
{"case-word-upper", upperword},
{"change-file-name", filename},
{"change-screen-size", newsize},
{"change-screen-width", newwidth},
{"clear-and-redraw", refresh},
{"clear-message-line", clrmes},
{"copy-region", copyregion},
#if WORDPRO
{"count-words", wordcount},
#endif
{"ctlx-prefix", cex},
{"delete-blank-lines", deblank},
{"delete-buffer", killbuffer},
{"delete-mode", delmode},
{"delete-global-mode", delgmode},
{"delete-next-character", forwdel},
{"delete-next-word", delfword},
{"delete-other-windows", onlywind},
{"delete-previous-character", backdel},
{"delete-previous-word", delbword},
{"delete-window", delwind},
{"describe-bindings", desbind},
{"describe-key", deskey},
#if AEDIT
{"detab-line", detab},
#endif
{"end-macro", ctlxrp},
{"end-of-file", gotoeob},
{"end-of-line", gotoeol},
#if AEDIT
{"entab-line", entab},
#endif
{"exchange-point-and-mark", swapmark},
{"execute-buffer", execbuf},
{"execute-command-line", execcmd},
{"execute-file", execfile},
{"execute-macro", ctlxe},
{"execute-macro-1", cbuf1},
{"execute-macro-2", cbuf2},
{"execute-macro-3", cbuf3},
{"execute-macro-4", cbuf4},
{"execute-macro-5", cbuf5},
{"execute-macro-6", cbuf6},
{"execute-macro-7", cbuf7},
{"execute-macro-8", cbuf8},
{"execute-macro-9", cbuf9},
{"execute-macro-10", cbuf10},
{"execute-macro-11", cbuf11},
{"execute-macro-12", cbuf12},
{"execute-macro-13", cbuf13},
{"execute-macro-14", cbuf14},
{"execute-macro-15", cbuf15},
{"execute-macro-16", cbuf16},
{"execute-macro-17", cbuf17},
{"execute-macro-18", cbuf18},
{"execute-macro-19", cbuf19},
{"execute-macro-20", cbuf20},
{"execute-macro-21", cbuf21},
{"execute-macro-22", cbuf22},
{"execute-macro-23", cbuf23},
{"execute-macro-24", cbuf24},
{"execute-macro-25", cbuf25},
{"execute-macro-26", cbuf26},
{"execute-macro-27", cbuf27},
{"execute-macro-28", cbuf28},
{"execute-macro-29", cbuf29},
{"execute-macro-30", cbuf30},
{"execute-macro-31", cbuf31},
{"execute-macro-32", cbuf32},
{"execute-macro-33", cbuf33},
{"execute-macro-34", cbuf34},
{"execute-macro-35", cbuf35},
{"execute-macro-36", cbuf36},
{"execute-macro-37", cbuf37},
{"execute-macro-38", cbuf38},
{"execute-macro-39", cbuf39},
{"execute-macro-40", cbuf40},
{"execute-named-command", namedcmd},
#if PROC
{"execute-procedure", execproc},
#endif
{"execute-program", execprg},
{"exit-emacs", quit},
#if WORDPRO
{"fill-paragraph", fillpara},
#endif
{"filter-buffer", filter},
{"find-file", filefind},
{"forward-character", forwchar},
{"goto-line", gotoline},
#if CFENCE
{"goto-matching-fence", getfence},
#endif
{"grow-window", enlargewind},
{"handle-tab", tab},
{"hunt-forward", forwhunt},
{"hunt-backward", backhunt},
{"help", help},
{"i-shell", spawncli},
#if ISRCH
{"incremental-search", fisearch},
#endif
{"insert-file", insfile},
{"insert-space", insspace},
{"insert-string", istring},
#if WORDPRO
#if PKCODE
{"justify-paragraph", justpara},
#endif
{"kill-paragraph", killpara},
#endif
{"kill-region", killregion},
{"kill-to-end-of-line", killtext},
#if FNLABEL
{"label-function-key", fnclabel},
#endif
{"list-buffers", listbuffers},
{"meta-prefix", meta},
{"move-window-down", mvdnwind},
{"move-window-up", mvupwind},
{"name-buffer", namebuffer},
{"newline", newline},
{"newline-and-indent", indent},
{"next-buffer", nextbuffer},
{"next-line", forwline},
{"next-page", forwpage},
#if WORDPRO
{"next-paragraph", gotoeop},
#endif
{"next-window", nextwind},
{"next-word", forwword},
{"nop", nullproc},
{"open-line", openline},
{"overwrite-string", ovstring},
{"pipe-command", pipecmd},
{"previous-line", backline},
{"previous-page", backpage},
#if WORDPRO
{"previous-paragraph", gotobop},
#endif
{"previous-window", prevwind},
{"previous-word", backword},
{"query-replace-string", qreplace},
{"quick-exit", quickexit},
{"quote-character", quote},
{"read-file", fileread},
{"redraw-display", reposition},
{"resize-window", resize},
{"restore-window", restwnd},
{"replace-string", sreplace},
#if ISRCH
{"reverse-incremental-search", risearch},
#endif
#if PROC
{"run", execproc},
#endif
{"save-file", filesave},
{"save-window", savewnd},
{"scroll-next-up", scrnextup},
{"scroll-next-down", scrnextdw},
{"search-forward", forwsearch},
{"search-reverse", backsearch},
{"select-buffer", usebuffer},
{"set", setvar},
#if CRYPT
{"set-encryption-key", setkey},
#endif
{"set-fill-column", setfillcol},
{"set-mark", setmark},
{"shell-command", spawn},
{"shrink-window", shrinkwind},
{"split-current-window", splitwind},
{"store-macro", storemac},
#if PROC
{"store-procedure", storeproc},
#endif
#if BSD | __hpux | SVR4
{"suspend-emacs", bktoshell},
#endif
{"transpose-characters", twiddle},
#if AEDIT
{"trim-line", trim},
#endif
{"unbind-key", unbindkey},
{"universal-argument", unarg},
{"unmark-buffer", unmark},
{"update-screen", upscreen},
{"view-file", viewfile},
{"wrap-word", wrapword},
{"write-file", filewrite},
{"write-message", writemsg},
{"yank", yank},
{"", NULL}
};

1
random.c
View File

@ -9,6 +9,7 @@
#include <stdio.h> #include <stdio.h>
#include "estruct.h" #include "estruct.h"
#include "edef.h" #include "edef.h"
#include "efunc.h"
int tabsize; /* Tab size (0: use real tabs) */ int tabsize; /* Tab size (0: use real tabs) */

1
region.c
View File

@ -12,6 +12,7 @@
#include <stdio.h> #include <stdio.h>
#include "estruct.h" #include "estruct.h"
#include "edef.h" #include "edef.h"
#include "efunc.h"
/* /*
* Kill the region. Ask "getregion" * Kill the region. Ask "getregion"

166
search.c
View File

@ -60,28 +60,28 @@
#include <stdio.h> #include <stdio.h>
#include "estruct.h" #include "estruct.h"
#include "edef.h" #include "edef.h"
#include "efunc.h"
static int readpattern(); static int amatch(MC *mcptr, int direct, LINE **pcwline, int *pcwoff);
static int replaces(); static int readpattern(char *prompt, char *apat, int srch);
static int nextch(); static int replaces(int kind, int f, int n);
#if MAGIC static int nextch(LINE **pcurline, int *pcuroff, int dir);
static int cclmake(); static int mcstr(void);
static int mcstr(); static int rmcstr(void);
static int rmcstr(); static int mceq(int bc, MC *mt);
static int mceq(); static int cclmake(char **ppatptr, MC *mcptr);
static void setbit(); static int biteq(int bc, BITMAP cclmap);
static int amatch(); static BITMAP clearbits(void);
static int biteq(); static void setbit(int bc, BITMAP cclmap);
static BITMAP clearbits();
#endif
/* /*
* forwsearch -- Search forward. Get a search string from the user, and * forwsearch -- Search forward. Get a search string from the user, and
* search for the string. If found, reset the "." to be just after * search for the string. If found, reset the "." to be just after
* the match string, and (perhaps) repaint the display. * the match string, and (perhaps) repaint the display.
*
* int f, n; default flag / numeric argument
*/ */
forwsearch(f, n) int forwsearch(int f, int n)
int f, n; /* default flag / numeric argument */
{ {
register int status = TRUE; register int status = TRUE;
@ -124,10 +124,10 @@ int f, n; /* default flag / numeric argument */
* forwhunt -- Search forward for a previously acquired search string. * forwhunt -- Search forward for a previously acquired search string.
* If found, reset the "." to be just after the match string, * If found, reset the "." to be just after the match string,
* and (perhaps) repaint the display. * and (perhaps) repaint the display.
*
* int f, n; default flag / numeric argument
*/ */
int forwhunt(int f, int n)
forwhunt(f, n)
int f, n; /* default flag / numeric argument */
{ {
register int status = TRUE; register int status = TRUE;
@ -178,9 +178,10 @@ int f, n; /* default flag / numeric argument */
* search, starting at "." and proceeding toward the front of the buffer. * search, starting at "." and proceeding toward the front of the buffer.
* If found "." is left pointing at the first character of the pattern * If found "." is left pointing at the first character of the pattern
* (the last character that was matched). * (the last character that was matched).
*
* int f, n; default flag / numeric argument
*/ */
backsearch(f, n) int backsearch(int f, int n)
int f, n; /* default flag / numeric argument */
{ {
register int status = TRUE; register int status = TRUE;
@ -225,9 +226,10 @@ int f, n; /* default flag / numeric argument */
* starting at "." and proceeding toward the front of the buffer. * starting at "." and proceeding toward the front of the buffer.
* If found "." is left pointing at the first character of the pattern * If found "." is left pointing at the first character of the pattern
* (the last character that was matched). * (the last character that was matched).
*
* int f, n; default flag / numeric argument
*/ */
backhunt(f, n) int backhunt(int f, int n)
int f, n; /* default flag / numeric argument */
{ {
register int status = TRUE; register int status = TRUE;
@ -278,11 +280,12 @@ int f, n; /* default flag / numeric argument */
* mcscanner -- Search for a meta-pattern in either direction. If found, * mcscanner -- Search for a meta-pattern in either direction. If found,
* reset the "." to be at the start or just after the match string, * reset the "." to be at the start or just after the match string,
* and (perhaps) repaint the display. * and (perhaps) repaint the display.
*
* MC *mcpatrn; pointer into pattern
* int direct; which way to go.
* int beg_or_end; put point at beginning or end of pattern.
*/ */
int mcscanner(mcpatrn, direct, beg_or_end) int mcscanner(MC *mcpatrn, int direct, int beg_or_end)
MC *mcpatrn; /* pointer into pattern */
int direct; /* which way to go. */
int beg_or_end; /* put point at beginning or end of pattern. */
{ {
LINE *curline; /* current line during scan */ LINE *curline; /* current line during scan */
int curoff; /* position within current line */ int curoff; /* position within current line */
@ -345,12 +348,13 @@ int beg_or_end; /* put point at beginning or end of pattern. */
* amatch -- Search for a meta-pattern in either direction. Based on the * amatch -- Search for a meta-pattern in either direction. Based on the
* recursive routine amatch() (for "anchored match") in * recursive routine amatch() (for "anchored match") in
* Kernighan & Plauger's "Software Tools". * Kernighan & Plauger's "Software Tools".
*
* MC *mcptr; string to scan for
* int direct; which way to go.
* LINE **pcwline; current line during scan
* int *pcwoff; position within current line
*/ */
static int amatch(mcptr, direct, pcwline, pcwoff) static int amatch(MC *mcptr, int direct, LINE **pcwline, int *pcwoff)
register MC *mcptr; /* string to scan for */
int direct; /* which way to go. */
LINE **pcwline; /* current line during scan */
int *pcwoff; /* position within current line */
{ {
register int c; /* character at current position */ register int c; /* character at current position */
LINE *curline; /* current line during scan */ LINE *curline; /* current line during scan */
@ -483,11 +487,12 @@ int *pcwoff; /* position within current line */
* scanner -- Search for a pattern in either direction. If found, * scanner -- Search for a pattern in either direction. If found,
* reset the "." to be at the start or just after the match string, * reset the "." to be at the start or just after the match string,
* and (perhaps) repaint the display. * and (perhaps) repaint the display.
*
* unsigned char *patrn; string to scan for
* int direct; which way to go.
* int beg_or_end; put point at beginning or end of pattern.
*/ */
int scanner(patrn, direct, beg_or_end) int scanner(unsigned char *patrn, int direct, int beg_or_end)
unsigned char *patrn; /* string to scan for */
int direct; /* which way to go. */
int beg_or_end; /* put point at beginning or end of pattern. */
{ {
register int c; /* character at current position */ register int c; /* character at current position */
register unsigned char *patptr; /* pointer into pattern */ register unsigned char *patptr; /* pointer into pattern */
@ -562,14 +567,7 @@ int beg_or_end; /* put point at beginning or end of pattern. */
* eq -- Compare two characters. The "bc" comes from the buffer, "pc" * eq -- Compare two characters. The "bc" comes from the buffer, "pc"
* from the pattern. If we are not in EXACT mode, fold out the case. * from the pattern. If we are not in EXACT mode, fold out the case.
*/ */
int eq(bc, pc) int eq(unsigned char bc, unsigned char pc)
#if PKCODE
register char bc;
register char pc;
#else
register int bc;
register int pc;
#endif
{ {
if ((curwp->w_bufp->b_mode & MDEXACT) == 0) { if ((curwp->w_bufp->b_mode & MDEXACT) == 0) {
if (islower(bc)) if (islower(bc))
@ -593,10 +591,7 @@ register int pc;
* <META> to delimit the end-of-pattern to allow <NL>s in the search * <META> to delimit the end-of-pattern to allow <NL>s in the search
* string. * string.
*/ */
static int readpattern(prompt, apat, srch) static int readpattern(char *prompt, char *apat, int srch)
char *prompt;
char apat[];
int srch;
{ {
int status; int status;
char tpat[NPAT + 20]; char tpat[NPAT + 20];
@ -640,7 +635,7 @@ int srch;
/* /*
* savematch -- We found the pattern? Let's save it away. * savematch -- We found the pattern? Let's save it away.
*/ */
savematch() void savematch(void)
{ {
register char *ptr; /* pointer to last match string */ register char *ptr; /* pointer to last match string */
register int j; register int j;
@ -669,8 +664,7 @@ savematch()
/* /*
* rvstrcpy -- Reverse string copy. * rvstrcpy -- Reverse string copy.
*/ */
rvstrcpy(rvstr, str) void rvstrcpy(char *rvstr, char *str)
register char *rvstr, *str;
{ {
register int i; register int i;
@ -684,20 +678,22 @@ register char *rvstr, *str;
/* /*
* sreplace -- Search and replace. * sreplace -- Search and replace.
*
* int f; default flag
* int n; # of repetitions wanted
*/ */
sreplace(f, n) int sreplace(int f, int n)
int f; /* default flag */
int n; /* # of repetitions wanted */
{ {
return (replaces(FALSE, f, n)); return (replaces(FALSE, f, n));
} }
/* /*
* qreplace -- search and replace with query. * qreplace -- search and replace with query.
*
* int f; default flag
* int n; # of repetitions wanted
*/ */
qreplace(f, n) int qreplace(int f, int n)
int f; /* default flag */
int n; /* # of repetitions wanted */
{ {
return (replaces(TRUE, f, n)); return (replaces(TRUE, f, n));
} }
@ -705,11 +701,12 @@ int n; /* # of repetitions wanted */
/* /*
* replaces -- Search for a string and replace it with another * replaces -- Search for a string and replace it with another
* string. Query might be enabled (according to kind). * string. Query might be enabled (according to kind).
*
* int kind; Query enabled flag
* int f; default flag
* int n; # of repetitions wanted
*/ */
static int replaces(kind, f, n) static int replaces(int kind, int f, int n)
int kind; /* Query enabled flag */
int f; /* default flag */
int n; /* # of repetitions wanted */
{ {
register int status; /* success flag on pattern inputs */ register int status; /* success flag on pattern inputs */
register int rlength; /* length of replacement string */ register int rlength; /* length of replacement string */
@ -925,10 +922,7 @@ int n; /* # of repetitions wanted */
* then either insert the string directly, or make use of * then either insert the string directly, or make use of
* replacement meta-array. * replacement meta-array.
*/ */
delins(dlength, instr, use_meta) int delins(int dlength, char *instr, int use_meta)
int dlength;
char *instr;
int use_meta;
{ {
int status; int status;
#if MAGIC #if MAGIC
@ -961,11 +955,12 @@ int use_meta;
/* /*
* expandp -- Expand control key sequences for output. * expandp -- Expand control key sequences for output.
*
* char *srcstr; string to expand
* char *deststr; destination of expanded string
* int maxlength; maximum chars in destination
*/ */
expandp(srcstr, deststr, maxlength) int expandp(char *srcstr, char *deststr, int maxlength)
char *srcstr; /* string to expand */
char *deststr; /* destination of expanded string */
int maxlength; /* maximum chars in destination */
{ {
unsigned char c; /* current char to translate */ unsigned char c; /* current char to translate */
@ -1016,9 +1011,7 @@ int maxlength; /* maximum chars in destination */
* in future, a' la VMS EDT. At the moment, just return TRUE or * in future, a' la VMS EDT. At the moment, just return TRUE or
* FALSE depending on if a boundry is hit (ouch). * FALSE depending on if a boundry is hit (ouch).
*/ */
int boundry(curline, curoff, dir) int boundry(LINE *curline, int curoff, int dir)
LINE *curline;
int curoff, dir;
{ {
register int border; register int border;
@ -1040,10 +1033,7 @@ int curoff, dir;
* the current character and move, reverse searches move and * the current character and move, reverse searches move and
* look at the character. * look at the character.
*/ */
static int nextch(pcurline, pcuroff, dir) static int nextch(LINE **pcurline, int *pcuroff, int dir)
LINE **pcurline;
int *pcuroff;
int dir;
{ {
register LINE *curline; register LINE *curline;
register int curoff; register int curoff;
@ -1089,7 +1079,7 @@ int dir;
* within the 64K limit. C compilers actually do very little * within the 64K limit. C compilers actually do very little
* in the way of optimizing - they expect you to do that. * in the way of optimizing - they expect you to do that.
*/ */
static int mcstr() static int mcstr(void)
{ {
MC *mcptr, *rtpcm; MC *mcptr, *rtpcm;
char *patptr; char *patptr;
@ -1204,7 +1194,7 @@ static int mcstr()
* the array is never actually created - we will just use the * the array is never actually created - we will just use the
* character array rpat[] as the replacement string. * character array rpat[] as the replacement string.
*/ */
static int rmcstr() static int rmcstr(void)
{ {
RMC *rmcptr; RMC *rmcptr;
char *patptr; char *patptr;
@ -1293,7 +1283,7 @@ static int rmcstr()
/* /*
* mcclear -- Free up any CCL bitmaps, and MCNIL the MC search arrays. * mcclear -- Free up any CCL bitmaps, and MCNIL the MC search arrays.
*/ */
mcclear() void mcclear(void)
{ {
register MC *mcptr; register MC *mcptr;
@ -1311,7 +1301,7 @@ mcclear()
/* /*
* rmcclear -- Free up any strings, and MCNIL the RMC array. * rmcclear -- Free up any strings, and MCNIL the RMC array.
*/ */
rmcclear() void rmcclear(void)
{ {
register RMC *rmcptr; register RMC *rmcptr;
@ -1331,9 +1321,7 @@ rmcclear()
* Software Tools, this is the function omatch(), but i felt there * Software Tools, this is the function omatch(), but i felt there
* were too many functions with the 'match' name already. * were too many functions with the 'match' name already.
*/ */
static int mceq(bc, mt) static int mceq(int bc, MC *mt)
int bc;
MC *mt;
{ {
register int result; register int result;
@ -1382,9 +1370,7 @@ MC *mt;
* ppatptr is left pointing to the end-of-character-class character, * ppatptr is left pointing to the end-of-character-class character,
* so that a loop may automatically increment with safety. * so that a loop may automatically increment with safety.
*/ */
static int cclmake(ppatptr, mcptr) static int cclmake(char **ppatptr, MC *mcptr)
char **ppatptr;
MC *mcptr;
{ {
BITMAP clearbits(); BITMAP clearbits();
BITMAP bmap; BITMAP bmap;
@ -1463,9 +1449,7 @@ MC *mcptr;
/* /*
* biteq -- is the character in the bitmap? * biteq -- is the character in the bitmap?
*/ */
static int biteq(bc, cclmap) static int biteq(int bc, BITMAP cclmap)
int bc;
BITMAP cclmap;
{ {
#if PKCODE #if PKCODE
bc = bc & 0xFF; bc = bc & 0xFF;
@ -1479,7 +1463,7 @@ BITMAP cclmap;
/* /*
* clearbits -- Allocate and zero out a CCL bitmap. * clearbits -- Allocate and zero out a CCL bitmap.
*/ */
static BITMAP clearbits() static BITMAP clearbits(void)
{ {
BITMAP cclstart, cclmap; BITMAP cclstart, cclmap;
register int j; register int j;
@ -1494,9 +1478,7 @@ static BITMAP clearbits()
/* /*
* setbit -- Set a bit (ON only) in the bitmap. * setbit -- Set a bit (ON only) in the bitmap.
*/ */
static void setbit(bc, cclmap) static void setbit(int bc, BITMAP cclmap)
int bc;
BITMAP cclmap;
{ {
#if PKCODE #if PKCODE
bc = bc & 0xFF; bc = bc & 0xFF;

46
spawn.c
View File

@ -7,6 +7,7 @@
#include <stdio.h> #include <stdio.h>
#include "estruct.h" #include "estruct.h"
#include "edef.h" #include "edef.h"
#include "efunc.h"
#if VMS #if VMS
#define EFN 0 /* Event flag. */ #define EFN 0 /* Event flag. */
@ -39,7 +40,7 @@ extern void sizesignal();
* repaint. Bound to "^X C". The message at the start in VMS puts out a newline. * repaint. Bound to "^X C". The message at the start in VMS puts out a newline.
* Under some (unknown) condition, you don't get one free when DCL starts up. * Under some (unknown) condition, you don't get one free when DCL starts up.
*/ */
spawncli(f, n) int spawncli(int f, int n)
{ {
#if V7 | USG | BSD #if V7 | USG | BSD
register char *cp; register char *cp;
@ -103,7 +104,7 @@ spawncli(f, n)
#if BSD | __hpux | SVR4 #if BSD | __hpux | SVR4
bktoshell() void bktoshell(void)
{ /* suspend MicroEMACS and wait to wake up */ { /* suspend MicroEMACS and wait to wake up */
int pid; int pid;
@ -115,7 +116,7 @@ bktoshell()
kill(0, SIGTSTP); kill(0, SIGTSTP);
} }
rtfrmshell() void rtfrmshell(void)
{ {
TTopen(); TTopen();
curwp->w_flag = WFHARD; curwp->w_flag = WFHARD;
@ -128,7 +129,7 @@ rtfrmshell()
* character to be typed, then mark the screen as garbage so a full repaint is * character to be typed, then mark the screen as garbage so a full repaint is
* done. Bound to "C-X !". * done. Bound to "C-X !".
*/ */
spawn(f, n) int spawn(int f, int n)
{ {
register int s; register int s;
char line[NLINE]; char line[NLINE];
@ -194,7 +195,7 @@ spawn(f, n)
* done. Bound to "C-X $". * done. Bound to "C-X $".
*/ */
execprg(f, n) int execprg(int f, int n)
{ {
register int s; register int s;
char line[NLINE]; char line[NLINE];
@ -252,7 +253,7 @@ execprg(f, n)
* Pipe a one line command into a window * Pipe a one line command into a window
* Bound to ^X @ * Bound to ^X @
*/ */
pipecmd(f, n) int pipecmd(int f, int n)
{ {
register int s; /* return status from CLI */ register int s; /* return status from CLI */
register WINDOW *wp; /* pointer to new window */ register WINDOW *wp; /* pointer to new window */
@ -376,7 +377,7 @@ pipecmd(f, n)
* filter a buffer through an external DOS program * filter a buffer through an external DOS program
* Bound to ^X # * Bound to ^X #
*/ */
filter(f, n) int filter(int f, int n)
{ {
register int s; /* return status from CLI */ register int s; /* return status from CLI */
register BUFFER *bp; /* pointer to buffer to zot */ register BUFFER *bp; /* pointer to buffer to zot */
@ -462,8 +463,7 @@ filter(f, n)
* LIB$SPAWN works. You have to do wierd stuff with the terminal on the way in * LIB$SPAWN works. You have to do wierd stuff with the terminal on the way in
* and the way out, because DCL does not want the channel to be in raw mode. * and the way out, because DCL does not want the channel to be in raw mode.
*/ */
sys(cmd) int sys(char *cmd)
register char *cmd;
{ {
struct dsc$descriptor cdsc; struct dsc$descriptor cdsc;
struct dsc$descriptor *cdscp; struct dsc$descriptor *cdscp;
@ -498,12 +498,12 @@ register char *cmd;
#if MSDOS & (TURBO | MSC) #if MSDOS & (TURBO | MSC)
/* SHELLPROG: Execute a command in a subshell */ /*
* SHELLPROG: Execute a command in a subshell
shellprog(cmd) *
* char *cmd; Incoming command line to execute
char *cmd; /* Incoming command line to execute */ */
int shellprog(char *cmd)
{ {
char *shell; /* Name of system command processor */ char *shell; /* Name of system command processor */
char *p; /* Temporary pointer */ char *p; /* Temporary pointer */
@ -543,14 +543,14 @@ char *cmd; /* Incoming command line to execute */
return (execprog(shell)); return (execprog(shell));
} }
/* EXECPROG: A function to execute a named program /*
with arguments * EXECPROG:
*/ * A function to execute a named program
* with arguments
execprog(cmd) *
* char *cmd; Incoming command line to execute
char *cmd; /* Incoming command line to execute */ */
int execprog(char *cmd)
{ {
char *sp; /* temporary string pointer */ char *sp; /* temporary string pointer */
char f1[38]; /* FCB1 area (not initialized */ char f1[38]; /* FCB1 area (not initialized */

1
tcap.c
View File

@ -17,6 +17,7 @@
#include "estruct.h" #include "estruct.h"
#include "edef.h" #include "edef.h"
#include "efunc.h"
#if TERMCAP #if TERMCAP

5
window.c
View File

@ -8,6 +8,7 @@
#include <stdio.h> #include <stdio.h>
#include "estruct.h" #include "estruct.h"
#include "edef.h" #include "edef.h"
#include "efunc.h"
/* /*
* Reposition dot in the current window to line "n". If the argument is * Reposition dot in the current window to line "n". If the argument is
@ -532,6 +533,7 @@ int scrnextup(int f, int n)
nextwind(FALSE, 1); nextwind(FALSE, 1);
backpage(f, n); backpage(f, n);
prevwind(FALSE, 1); prevwind(FALSE, 1);
return (TRUE);
} }
int scrnextdw(int f, int n) int scrnextdw(int f, int n)
@ -539,6 +541,7 @@ int scrnextdw(int f, int n)
nextwind(FALSE, 1); nextwind(FALSE, 1);
forwpage(f, n); forwpage(f, n);
prevwind(FALSE, 1); prevwind(FALSE, 1);
return (TRUE);
} }
int savewnd(int f, int n) int savewnd(int f, int n)
@ -708,7 +711,7 @@ int getwpos(void)
return (sline); return (sline);
} }
int cknewwindow(void) void cknewwindow(void)
{ {
execute(META | SPEC | 'X', FALSE, 1); execute(META | SPEC | 'X', FALSE, 1);
} }

1
word.c
View File

@ -10,6 +10,7 @@
#include <stdio.h> #include <stdio.h>
#include "estruct.h" #include "estruct.h"
#include "edef.h" #include "edef.h"
#include "efunc.h"
/* Word wrap on n-spaces. Back-over whatever precedes the point on the current /* Word wrap on n-spaces. Back-over whatever precedes the point on the current
* line and stop on the first word-break or the beginning of the line. If we * line and stop on the first word-break or the beginning of the line. If we