Subversion Repositories planix.SVN

Rev

Rev 107 | Rev 109 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

/*
 * Copyright (c) 1980 Regents of the University of California.
 * All rights reserved.  The Berkeley software License Agreement
 * specifies the terms and conditions for redistribution.
 *
 *      @(#)ex.h        7.7.1.1 (Berkeley) 8/12/86
 */

#ifdef V6
#include <retrofit.h>
#endif

/*
 * Ex version 3 (see exact version in ex_cmds.c, search for /Version/)
 *
 * Mark Horton, UC Berkeley
 * Bill Joy, UC Berkeley
 * November 1979
 *
 * Changes by Gunnar Ritter, Freiburg i. Br., Germany
 * May 2000
 *
 * This file contains most of the declarations common to a large number
 * of routines.  The file ex_vis.h contains declarations
 * which are used only inside the screen editor.
 * The file ex_tune.h contains parameters which can be diddled per installation.
 *
 * The declarations relating to the argument list, regular expressions,
 * the temporary file data structure used by the editor
 * and the data describing terminals are each fairly substantial and
 * are kept in the files ex_{argv,re,temp,tty}.h which
 * we #include separately.
 *
 * If you are going to dig into ex, you should look at the outline of the
 * distribution of the code into files at the beginning of ex.c and ex_v.c.
 * Code which is similar to that of ed is lightly or undocumented in spots
 * (e.g. the regular expression code).  Newer code (e.g. open and visual)
 * is much more carefully documented, and still rough in spots.
 *
 * Please forward bug reports to
 *
 *      Mark Horton
 *      Computer Science Division, EECS
 *      EVANS HALL
 *      U.C. Berkeley 94704
 *      (415) 642-4948
 *      (415) 642-1024 (dept. office)
 *
 * or to csvax.mark@berkeley on the ARPA-net.  I would particularly like to hear
 * of additional terminal descriptions you add to the termcap data base.
 */

#include <sys/param.h>
#include <ctype.h>
#include <errno.h>
#include <signal.h>
#include <setjmp.h>
#include <sys/stat.h>

#ifndef var
#define var     extern
#endif
/*
 *      The following little dance copes with the new USG tty handling.
 *      This stuff has the advantage of considerable flexibility, and
 *      the disadvantage of being incompatible with anything else.
 *      The presence of the symbol USG3TTY will indicate the new code:
 *      in this case, we define CBREAK (because we can simulate it exactly),
 *      but we won't actually use it, so we set it to a value that will
 *      probably blow the compilation if we goof up.
 */
#ifdef USG3TTY
#include <termios.h>
#define CBREAK xxxxx
#else
#include <sgtty.h>
#endif

extern  int errno;

#ifdef  NCURSES
/*
 * Some of the symbols collide.
 */
#define LINES           LI_NES
#define cleanup         clean_up
#define filter          fil_ter
#define getch           get_ch
#define longname        long_name
#define ttytype         tty_type
#define winch           win_ch
#endif

#ifndef VMUNIX
typedef short   line;
#else
typedef int     line;
#endif
typedef short   bool;

#include "ex_tune.h"
#include "ex_vars.h"
/*
 * Options in the editor are referred to usually by "value(name)" where
 * name is all uppercase, i.e. "value(PROMPT)".  This is actually a macro
 * which expands to a fixed field in a static structure and so generates
 * very little code.  The offsets for the option names in the structure
 * are generated automagically from the structure initializing them in
 * ex_data.c... see the shell script "makeoptions".
 */
struct  option {
        char    *oname;
        char    *oabbrev;
        short   otype;          /* Types -- see below */
        short   odefault;       /* Default value */
        short   ovalue;         /* Current value */
        char    *osvalue;
};

#define ONOFF   0
#define NUMERIC 1
#define STRING  2               /* SHELL or DIRECTORY */
#define OTERM   3

#define value(a)        options[a].ovalue
#define svalue(a)       options[a].osvalue

extern   struct option options[NOPTS + 1];


/*
 * The editor does not normally use the standard i/o library.  Because
 * we expect the editor to be a heavily used program and because it
 * does a substantial amount of input/output processing it is appropriate
 * for it to call low level read/write primitives directly.  In fact,
 * when debugging the editor we use the standard i/o library.  In any
 * case the editor needs a printf which prints through "putchar" ala the
 * old version 6 printf.  Thus we normally steal a copy of the "printf.c"
 * and "strout" code from the standard i/o library and mung it for our
 * purposes to avoid dragging in the stdio library headers, etc if we
 * are not debugging.  Such a modified printf exists in "printf.c" here.
 */
#ifdef TRACE
#       include <stdio.h>
        var     FILE    *trace;
        var     bool    trubble;
        var     bool    techoin;
        var     char    tracbuf[BUFSIZ];
#       undef   putchar
#       undef   getchar
#else
#ifndef BUFSIZ  /* GR */
# ifdef VMUNIX
#   ifdef BIGMEM
#       define  BUFSIZ  4096
#   else
#       define  BUFSIZ  1024
#   endif
# else
#  ifdef u370
#       define  BUFSIZ  4096
#  else
#       define  BUFSIZ  512
#  endif
# endif
#endif
#       define  NULL    0
#       define  EOF     -1
#endif

#ifndef MAXBSIZE        /* GR */
#define MAXBSIZE        BUFSIZ
#endif

/*
 * Character constants and bits
 *
 * The editor uses the QUOTE bit as a flag to pass on with characters
 * e.g. to the putchar routine.  The editor never uses a simple char variable.
 * Only arrays of and pointers to characters are used and parameters and
 * registers are never declared character.
 */
#ifndef BIT8
#define QUOTE   0200
#define TRIM    0177
#else
#define QUOTE   0x200
#define TRIM    0x1FF
short *ss_strcpy();
short *sc_strcpy();
char *cs_strcpy();
unsigned int s_strlen();
short *sc_strcat();
#endif
#undef CTRL
#define CTRL(c) (c & 037)
#define NL      CTRL('j')
#define CR      CTRL('m')
#define DELETE  0177            /* See also ATTN, QUIT in ex_tune.h */
#define ESCAPE  033

#ifdef  ISO
#define niso(c) ((c) & QUOTE && ((unsigned char)(c)) < (QUOTE + ' '))
#endif

var     const char *versionstring;

/*
 * Miscellaneous random variables used in more than one place
 */
var     bool    aiflag;         /* Append/change/insert with autoindent */
var     bool    anymarks;       /* We have used '[a-z] */
var     int     chng;           /* Warn "No write" */
var     char    *Command;
var     short   defwind;        /* -w# change default window size */
var     int     dirtcnt;        /* When >= MAXDIRT, should sync temporary */
/*#if defined (TIOCLGET) || defined (__linux__)*/
var     bool    dosusp;         /* Do SIGTSTP in visual when ^Z typed */
/*#endif*/
var     bool    edited;         /* Current file is [Edited] */
var     line    *endcore;       /* Last available core location */
extern   bool   endline;        /* Last cmd mode command ended with \n */
#ifndef VMUNIX
var     short   erfile;         /* Error message file unit */
#endif
var     line    *fendcore;      /* First address in line pointer space */
var     char    file[FNSIZE];   /* Working file name */
var     char    genbuf[MAXBSIZE]; /* Working buffer when manipulating linebuf */
var     bool    hush;           /* Command line option - was given, hush up! */
#ifndef BIT8
var     char    *globp;         /* (Untyped) input string to command mode */
#else
var     short   *globp;         /* (Untyped) input string to command mode */
#endif
var     bool    holdcm;         /* Don't cursor address */
var     bool    inappend;       /* in ex command append mode */
var     bool    inglobal;       /* Inside g//... or v//... */
#ifndef BIT8
var     char    *initev;        /* Initial : escape for visual */
#else
var     short   *initev;        /* Initial : escape for visual */
#endif
var     bool    inopen;         /* Inside open or visual */
var     char    *input;         /* Current position in cmd line input buffer */
var     bool    intty;          /* Input is a tty */
var     short   io;             /* General i/o unit (auto-closed on error!) */
extern   short  lastc;          /* Last character ret'd from cmd input */
var     bool    laste;          /* Last command was an "e" (or "rec") */
var     char    lastmac;        /* Last macro called for ** */
var     char    lasttag[TAGSIZE];       /* Last argument to a tag command */
var     char    *linebp;        /* Used in substituting in \n */
var     char    linebuf[LBSIZE];        /* The primary line buffer */
var     bool    listf;          /* Command should run in list mode */
var     char    *loc1;          /* Where re began to match (in linebuf) */
var     char    *loc2;          /* First char after re match (") */
var     line    names['z'-'a'+2];       /* Mark registers a-z,' */
var     int     notecnt;        /* Count for notify (to visual from cmd) */
var     bool    numberf;        /* Command should run in number mode */
var     char    obuf[BUFSIZ];   /* Buffer for tty output */
var     short   oprompt;        /* Saved during source */
extern  short   o_speed;        /* Output speed (from gtty) */
var     int     otchng;         /* Backup tchng to find changes in macros */
var     short   peekc;          /* Peek ahead character (cmd mode input) */
var     char    *pkill[2];      /* Trim for put with ragged (LISP) delete */
var     bool    pfast;          /* Have stty -nl'ed to go faster */
var     int     pid;            /* Process id of child */
var     int     ppid;           /* Process id of parent (e.g. main ex proc) */
var     jmp_buf resetlab;       /* For error throws to top level (cmd mode) */
var     int     rpid;           /* Pid returned from wait() */
var     bool    ruptible;       /* Interruptible is normal state */
var     bool    seenprompt;     /* 1 if have gotten user input */
var     bool    shudclob;       /* Have a prompt to clobber (e.g. on ^D) */
var     int     status;         /* Status returned from wait() */
var     int     tchng;          /* If nonzero, then [Modified] */
extern  short   tfile;          /* Temporary file unit */
var     bool    vcatch;         /* Want to catch an error (open/visual) */
var     jmp_buf vreslab;        /* For error throws to a visual catch */
var     bool    writing;        /* 1 if in middle of a file write */
var     int     xchng;          /* Suppresses multiple "No writes" in !cmd */
var     int     bsize;          /* Block size for disk i/o */

/*
 * Macros
 */
#define CP(a, b)        (ignore(strcpy(a, b)))
                        /*
                         * FIXUNDO: do we want to mung undo vars?
                         * Usually yes unless in a macro or global.
                         */
#define FIXUNDO         (inopen >= 0 && (inopen || !inglobal))
#define ckaw()          {if (chng && value(AUTOWRITE)) wop(0);}
#define copy(a,b,c)     Copy((char *) a, (char *) b, c)
#define eq(a, b)        ((a) && (b) && strcmp(a, b) == 0)
#define getexit(a)      copy(a, resetlab, sizeof (jmp_buf))
#define lastchar()      lastc
#define outchar(c)      (*Outchar)(c)
#define pastwh()        (ignore(skipwh()))
#define pline(no)       (*Pline)(no)
#define reset()         longjmp(resetlab,1)
#define resexit(a)      copy(resetlab, a, sizeof (jmp_buf))
#define setexit()       setjmp(resetlab)
#define setlastchar(c)  lastc = c
#define ungetchar(c)    peekc = c

#define CATCH           vcatch = 1; if (setjmp(vreslab) == 0) {
#define ONERR           } else { vcatch = 0;
#define ENDCATCH        } vcatch = 0;

/*
 * Environment like memory
 */
var     char    altfile[FNSIZE];        /* Alternate file name */
extern   char   direct[ONMSZ];          /* Temp file goes here */
extern   char   shell[ONMSZ];           /* Copied to be settable */
extern   char   ttytype[ONMSZ];         /* A long and pretty name */
var     char    uxb[UXBSIZE + 2];       /* Last !command for !! */

/*
 * The editor data structure for accessing the current file consists
 * of an incore array of pointers into the temporary file tfile.
 * Each pointer is 15 bits (the low bit is used by global) and is
 * padded with zeroes to make an index into the temp file where the
 * actual text of the line is stored.
 *
 * To effect undo, copies of affected lines are saved after the last
 * line considered to be in the buffer, between dol and unddol.
 * During an open or visual, which uses the command mode undo between
 * dol and unddol, a copy of the entire, pre-command buffer state
 * is saved between unddol and truedol.
 */
var     line    *addr1;                 /* First addressed line in a command */
var     line    *addr2;                 /* Second addressed line */
var     line    *dol;                   /* Last line in buffer */
var     line    *dot;                   /* Current line */
var     line    *one;                   /* First line */
var     line    *truedol;               /* End of all lines, including saves */
var     line    *unddol;                /* End of undo saved lines */
var     line    *zero;                  /* Points to empty slot before one */

/*
 * Undo information
 *
 * For most commands we save lines changed by salting them away between
 * dol and unddol before they are changed (i.e. we save the descriptors
 * into the temp file tfile which is never garbage collected).  The
 * lines put here go back after unddel, and to complete the undo
 * we delete the lines [undap1,undap2).
 *
 * Undoing a move is much easier and we treat this as a special case.
 * Similarly undoing a "put" is a special case for although there
 * are lines saved between dol and unddol we don't stick these back
 * into the buffer.
 */
var     short   undkind;

var     line    *unddel;        /* Saved deleted lines go after here */
var     line    *undap1;        /* Beginning of new lines */
var     line    *undap2;        /* New lines end before undap2 */
var     line    *undadot;       /* If we saved all lines, dot reverts here */

#define UNDCHANGE       0
#define UNDMOVE         1
#define UNDALL          2
#define UNDNONE         3
#define UNDPUT          4


/*
 * Function type definitions
 */
#define NOSTR   (char *) 0
#define NOLINE  (line *) 0

extern  int     (*Outchar)();
extern  int     (*Pline)();
extern  int     (*Putchar)();
void    (*oldhup)();
int     (*setlist())();
int     (*setnorm())();
int     (*setnorm())();
int     (*setnumb())();
line    *address();
char    *cgoto();
char    *genindent();
char    *getblock();
char    *getenv();
line    *getmark();
char    *longname();
char    *mesg();
char    *place();
char    *plural();
line    *scanfor();
line    *setin();
char    *strcat();
char    *strcpy();
char    *strend();
char    *tailpath();
char    *tgetstr();
char    *tgoto();
char    *ttyname();
line    *vback();
char    *vfindcol();
char    *vgetline();
char    *vinit();
char    *vpastwh();
char    *vskipwh();
int     put();
int     putreg();
int     YANKreg();
int     delete();
int     execl();
int     filter();
int     getfile();
int     getsub();
int     gettty();
int     join();
int     listchar();
off_t   lseek();
int     normchar();
int     normline();
int     numbline();
var     void    (*oldquit)();
void    onhup();
void    onintr();
void    onsusp();
int     putch();
int     shift();
int     termchar();
int     vfilter();
#ifdef CBREAK
void    vintr();
#endif
int     vputch();
int     vshftop();
int     yank();

int tgets(char *, int cnt, int fd);


/*
 * C doesn't have a (void) cast, so we have to fake it for lint's sake.
 */
#ifdef lint
#       define  ignore(a)       Ignore((char *) (a))
#       define  ignorf(a)       Ignorf((int (*) ()) (a))
#else
#       define  ignore(a)       a
#       define  ignorf(a)       a
#endif