Usenet 1994 October

home *** CD-ROM | disk | FTP | other *** search

/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume44 / vim / part22 < prev next >

Wrap

Internet Message Format | 1994-08-18 | 69.0 KB

From: mool@oce.nl (Bram Moolenaar) Newsgroups: comp.sources.misc Subject: v44i041: vim - Vi IMproved editor, v3.0, Part22/26 Date: 18 Aug 1994 14:03:38 -0500 Organization: Sterling Software Sender: kent@sparky.sterling.com Approved: kent@sparky.sterling.com Message-ID: <330baa$e8a@sparky.sterling.com> X-Md4-Signature: 254dc41cb343615556e26666c40f9dd6 Submitted-by: mool@oce.nl (Bram Moolenaar) Posting-number: Volume 44, Issue 41 Archive-name: vim/part22 Environment: UNIX, AMIGA, MS-DOS, Windows NT Supersedes: vim: Volume 41, Issue 50-75 #! /bin/sh # This is a shell archive. Remove anything before this line, then feed it # into a shell via "sh file" or similar. To overwrite existing files, # type "sh file -c". # Contents: vim/.exrc vim/doc/index vim/src/cmdcmds.c vim/src/cmdtab.h # vim/src/digraph.c.UU vim/src/makefile.nt vim/src/tag.c # Wrapped by kent@sparky on Mon Aug 15 21:44:13 1994 PATH=/bin:/usr/bin:/usr/ucb:/usr/local/bin:/usr/lbin:$PATH ; export PATH echo If this archive is complete, you will see the following message: echo ' "shar: End of archive 22 (of 26)."' if test -f 'vim/.exrc' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'vim/.exrc'\" else echo shar: Extracting \"'vim/.exrc'\" $30 characters$ sed "s/^X//" >'vim/.exrc' <<'END_OF_FILE' Xset ai bs=2 shell=csh nojs ru END_OF_FILE if test 30 -ne `wc -c <'vim/.exrc'`; then echo shar: \"'vim/.exrc'\" unpacked with wrong size! fi # end of 'vim/.exrc' fi if test -f 'vim/doc/index' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'vim/doc/index'\" else echo shar: Extracting \"'vim/doc/index'\" $12449 characters$ sed "s/^X//" >'vim/doc/index' <<'END_OF_FILE' Xindex of vim commands for X 1. insert mode X 2. VI commands (normal mode) X 3. command line editing X 4. EX commands X X(for an overview of options see the end of reference.doc) X X1. INSERT MODE X============== X Xchar action X----------------------------------------------------------------------- X^@ insert previously inserted text and stop insert {vi: up to 128 X chars} X^A insert previously inserted text {not in Vi} X^B toggle 'revins' option. X^C quit insert mode, without checking for abbreviation. X^D delete one shiftwidth of indent in the current line {vi: X only after auto-indent} X when preceded with <0> or <^>, delete all indent, with <^> X restore it in the next line X^E insert the character which is below the cursor X^H <BS> delete character before the cursor {vi: does not cross lines, X does not delete autoindents} X^J <LF> begin new line X^K {char1} {char2} enter digraph (only when compiled with it) {vi: no digraphs} X^M <CR> begin new line X^N find next match for keyword in front of the cursor X^O execute a single command and return to insert mode X^P find previous match for keyword in front of the cursor X^R <0-9a-z"%:> insert contents of register <0-9a-z"%:> {not in vi} X^T insert one shiftwidth of indent in current line {vi: only in X autoindent} X^U delete all entered characters in the current line X^V insert next non-digit literally, insert three digit decimal X number as a single byte. X^W delete word before the cursor X^Y insert the character which is above the cursor X^[ <ESC> end insert mode X<DEL> same as ^H <BS> X<C_UP> cursor one line up X<C_DOWN> cursor one line down X<C_LEFT> cursor one character left X<C_RIGHT> cursor one character right X<SC_UP> one screenfull backward X<SC_DOWN> one screenfull forward X<SC_LEFT> cursor one word left X<SC_RIGHT> cursor one word right X{char1}<BS>{char2} enter digraph (only when compiled with it and 'digraph' X option set) {vi: no digraphs} X X X2. VI COMMANDS X============== X XCHAR means non-blank char XWORD means sequences of non-blank chars XN is number entered before the command X<move> is a cursor movement command XNmove is the text that is moved over with a cursor movement command XSECTION is a section that possibly starts with '}' instead of '{' X Xnote: 1 = cursor movement command; 2 = can be undone/redone X Xchar note vim normal mode (vi: what the unix vi does) X------------------------------------------------------------------------------ X^@ error X^A 2 add N to number at/after cursor {vi: no ^A} X^B 1 scroll N screens Backwards X^C interrupt current (search) command X^D scroll Down N lines (default: half a screen) X^E scroll N lines upwards (N lines Extra) X^F 1 scroll N screens Forward X^G display current file name and position X^H <BS> 1 cursor N chars to the left X^I <TAB> 1 go to N newer entry in jump list X^J <LF> 1 cursor N lines downward X^K error X^L redraw screen X^M <CR> 1 cursor to the first CHAR N lines lower X^N 1 cursor N lines downward X^O 1 go to N older entry in jump list X^P 1 cursor N lines upward X^Q error (used for xon/xoff) X^R 2 redo changes which were undone with 'u' (vi: retype X the screen) X^S error (used for xon/xoff) X^T jump to N older Tag in tag list X^U scroll N lines Upwards (default: half a screen) X^V start blockwise Visual (vi: no Visual) X^W window commands, followed by another character (vi: not) X^X 2 subtract N from number at/after cursor {vi: no ^X} X^Y scroll N lines downwards X^Z suspend program (or start new shell) X^[ <ESC> error X^\ error X^] :ta to ident under cursor X^^ edit Nth alternate file (equivalent to :e #N) X^_ error X X<SPACE> 1 cursor N chars to the right X!<move><filter> filter Nmove text through the "filter" command X!!<filter> filter N lines through the "filter" command X"<a-zA-Z0-9.> use buffer <a-zA-Z0-9.> for next delete, yank or put X (upper case to append)(<.> only works for put) X# 1 search backward for the Nth occurrence of the ident under X the cursor {not in vi} X$ 1 cursor to the end of line N from the cursor X% 1 find the next (curly/square) bracket on this line and go X to its match. With count: go to N percentage in the file. X& 2 repeat last :s X'<a-zA-Z> 1 cursor to the first CHAR on the line with mark <a-zA-Z> X'[ 1 cursor to the first CHAR on the line of the start of X last operated text or start of putted text X'] 1 cursor to the first CHAR on the line of the end of X last operated text or end of putted text X'' 1 cursor to the first CHAR of the line where the cursor was X before the latest jump. X( 1 cursor N sentences backward X) 1 cursor N sentences forward X* 1 search forward for the Nth occurrence of the ident under X the cursor {not in vi} X+ 1 cursor to the first CHAR N lines lower X, 1 repeat latest f, t, F or T in opposite direction N times X- 1 cursor to the first CHAR N lines higher X. 2 repeat last change with count replaced by N X/<pattern> 1 search forward for the Nth occurrence of <pattern> X0 1 cursor to the first char of the line X1 prepend to command to give a count X2 " X3 " X4 " X5 " X6 " X7 " X8 " X9 " X: Ex command (see below) X; 1 repeat latest f, t, F or T N times X<<move> 2 shift the Nmove lines one shiftwidth leftwards X<< 2 shift N lines one shiftwidth leftwards X=<move> 2 filter Nmove lines through "indent" (vi: when option X 'lisp' is set autoindent Nmove lines) X== 2 filter N lines through "indent" X><move> 2 shift Nmove lines one shiftwidth rightwards X>> 2 shift N lines one shiftwidth rightwards X?<pattern> 1 search backward for the Nth previous occurrence of X <pattern> X@<a-z> 2 execute the contents of named buffer <a-z> N times X@@ 2 repeat the previous @<a-z> N times XA 2 append text at the end of the line N times XB 1 cursor N WORDS backward X<"x>C 2 change from the cursor position to the end of the line, X and N-1 more lines [into buffer x]; synonym for c$ X<"x>D 2 delete the characters under the cursor until the end of X the line and N-1 more lines [into buffer x]; synonym for d$ XE 1 cursor forward to the end of WORD N XF<char> cursor to the Nth occurrence of <char> to the left XG 1 cursor to line N, default last line XH 1 cursor to line N from top of screen XI 2 insert text before the first CHAR on the line N times XJ 2 Join N lines; default is 2 XK lookup Keyword under the cursor with 'keywordprg' XL 1 cursor to line N from bottom of screen XM 1 cursor to middle line of screen XN 1 repeat the latest '/' or '?' N times in opposite X direction XO 2 begin a new line above the cursor and insert text, repeat X N times (vi: blank N screen lines) X<"x>P 2 put the text [from buffer x] before the cursor N times XV start Visual mode on lines (vi: go to Ex mode) XR 2 enter replace mode: overtype existing characters, repeat the X entered text N-1 times X<"x>S 2 delete N lines [into buffer x] and start insert; synonym X for ^cc or 0cc, depending on autoindent XT<char> 1 cursor till after Nth occurrence of <char> to the left XU 2 undo all latest changes on one line (vi: while not moved X off of it) X While in Visual mode: make uppercase XQ<move> 2 Join N lines and re-format them XW 1 cursor N WORDS forward X<"x>X 2 delete N characters before the cursor [into buffer x] X<"x>Y yank N lines [into buffer x]; synonym for yy XZZ store current file, if modified, and exit X[[ 1 cursor N sections backward X[] 1 cursor N SECTIONS backward X[{ 1 cursor N times back to unmatched '{' (vi: not) X[( 1 cursor N times back to unmatched '(' (vi: not) X[f edit file name under the cursor X[p 2 like "p", but adjust indent to current line X\ error X]] 1 cursor N sections forward X][ 1 cursor N SECTIONS forward X]} 1 cursor N times forward to unmatched '}' (vi: not) X]) 1 cursor N times forward to unmatched ')' (vi: not) X]f edit file name under the cursor X]p 2 like "P", but adjust indent to current line X^ 1 cursor to the first CHAR of the line X_ 1 cursor to the first CHAR N - 1 lines lower X`<a-zA-Z> 1 cursor to the mark <a-zA-Z> X`[ 1 cursor to the start of last operated text or start of X putted text X`] 1 cursor to the end of last operated text or end of X putted text X`` 1 cursor to the position before latest jump Xa 2 append text after the cursor N times Xb 1 cursor N words backward X<"x>c<move> 2 delete Nmove text [into buffer x] and start insert X<"x>cc 2 delete N lines [into buffer x] and start insert X<"x>d<move> 2 delete Nmove text [into buffer x] X<"x>dd 2 delete N lines [into buffer x] Xe 1 cursor forward to the end of word N Xf<char> 1 cursor to Nth occurrence of <char> to the right Xgs goto sleep for N seconds (default 1) (vi: not) Xgf edit file name under the cursor Xh 1 cursor N chars to the left Xi 2 insert text before the cursor N times Xj 1 cursor N lines downward Xk 1 cursor N lines upward Xl 1 cursor N chars to the right Xm<a-z> set mark <a-z> at cursor position Xn 1 repeat the latest '/' or '?' N times Xo 2 begin a new line below the cursor and insert text, repeat X N times (vi: blank N screen lines) X While Visual: cursor moves other end X<"x>p 2 put the text [from buffer x] after the cursor N times Xv start Visual mode with characters (vi: no Visual) Xr<char> 2 replace N chars by <char> X<"x>s 2 (substitute) delete N characters [into buffer x] and X start insert Xt<char> 1 cursor till before Nth occurrence of <char> to the right Xu 2 undo changes (vi: only one level) X With Visual: make lowercase (vi: no Visual) Xq<a-zA-Z> record typed characters into named buffer <a-zA-Z> X (upper case to append) Xq stops recording (vi: no recording) Xw 1 cursor N words forward X<"x>x 2 delete N characters under and after the cursor [into X buffer x] X<"x>y<move> yank Nmove text [into buffer x] X<"x>yy yank N lines [into buffer x] Xz<CR> redraw, cursor line to top of window, first non-blank Xz. redraw, cursor line to center of window, first non-blank Xz- redraw, cursor line at bottom of window, first non-blank Xzb redraw, cursor line at bottom of window Xzt redraw, cursor line at top of window Xzz redraw, cursor line at center of window X{ 1 cursor N paragraphs backward X| 1 cursor to column N X} 1 cursor N paragraphs forward X~ 2 option notildeop: switch case of N characters under X cursor and move the cursor N characters to the right X (vi: no count) X~<move> option tildeop: switch case of Nmove text (vi: no tildeop X option) X<DEL> when entering a number: remove the last digit X<HELP> show the file vim:vim.hlp page by page (vi: no help) X<C_UP> 1 move cursor N lines upwards X<C_DOWN> 1 move cursor N lines downwards X<C_LEFT> 1 move cursor N chars to the left X<C_RIGHT> 1 move cursor N chars to the right X<SC_UP> 1 scroll N screens Backwards (same as ^B) X<SC_DOWN> 1 scroll N screens Forwards (same as ^F) X<SC_LEFT> 1 cursor N words backward (same as b) X<SC_RIGHT> 1 cursor N words forward (same as w) X X X3. command line editing X======================= X XGet to the command line with the ':', '!', '/' or '?' commands. XNormal characters are inserted at the current cursor position. X(vi: can only alter last character in the line) X X^A do filename completion on the pattern in front of the cursor X and insert all matches X^B cursor to begin of command line X^D list filenames that match the pattern in front of the cursor X^E cursor to end of command line X^H delete the character in front of the cursor X^L do filename completion on the pattern in front of the cursor X and insert the longest common part X^N after an <ESC> with multiple matches: go to next match X otherwise: same as <C_DOWN> X^P after an <ESC> with multiple matches: go to previous match X otherwise: same as <C_UP> X^U remove all characters X^V insert next non-digit literally, insert three digit decimal X number as a single byte. {Vi: type the CTRL-V twice to get one} X^W delete the word in front of the cursor X'wildchar' option (default <TAB>) X do filename completion on the pattern in front of the cursor X<DEL> delete the character under the cursor X<C_UP> recall previous command line from history X<C_DOWN> recall next command line from history X<C_LEFT> cursor left X<C_RIGHT> cursor right X<SC_LEFT> cursor one word left X<SC_RIGHT> cursor one word right X<SC_UP> recall previous command line that matches pattern in front of X the cursor X<SC_DOWN> recall next command line that matches pattern in front of the X cursor X X X4. EX commands X============== X XFor an index of EX commands, type CTRL-D at the ex command prompt. XOr look in "src/cmdtab.tab". X END_OF_FILE if test 12449 -ne `wc -c <'vim/doc/index'`; then echo shar: \"'vim/doc/index'\" unpacked with wrong size! fi # end of 'vim/doc/index' fi if test -f 'vim/src/cmdcmds.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'vim/src/cmdcmds.c'\" else echo shar: Extracting \"'vim/src/cmdcmds.c'\" $11550 characters$ sed "s/^X//" >'vim/src/cmdcmds.c' <<'END_OF_FILE' X/* vi:ts=4:sw=4 X * X * VIM - Vi IMproved by Bram Moolenaar X * X * Read the file "credits.txt" for a list of people who contributed. X * Read the file "uganda.txt" for copying and usage conditions. X */ X X/* X * cmdcmds.c: functions for command line commands X */ X X#include "vim.h" X#include "globals.h" X#include "proto.h" X#include "param.h" X X#if defined(LATTICE) || defined(NT) X# define mktemp(a) tmpnam(a) X#endif X Xextern char *mktemp __ARGS((char *)); X X/* X * align text: X * type = -1 left aligned X * type = 0 centered X * type = 1 right aligned X */ X void Xdo_align(start, end, width, type) X linenr_t start; X linenr_t end; X int width; X int type; X{ X FPOS pos; X int len; X int indent = 0; X X pos = curwin->w_cursor; X if (type == -1) /* left align: width is used for new indent */ X { X if (width >= 0) X indent = width; X } X else X { X /* X * if 'textwidth' set, use it X * else if 'wrapmargin' set, use it X * if invalid value, use 80 X */ X if (width <= 0) X width = curbuf->b_p_tw; X if (width == 0 && curbuf->b_p_wm > 0) X width = Columns - curbuf->b_p_wm; X if (width <= 0) X width = 80; X } X X if (!u_save((linenr_t)(start - 1), (linenr_t)(end + 1))) X return; X for (curwin->w_cursor.lnum = start; curwin->w_cursor.lnum <= end; ++curwin->w_cursor.lnum) X { X set_indent(indent, TRUE); /* remove existing indent */ X if (type == -1) /* left align */ X continue; X len = strsize(ml_get(curwin->w_cursor.lnum)); /* get line lenght */ X if (len < width) X switch (type) X { X case 0: set_indent((width - len) / 2, FALSE); /* center */ X break; X case 1: set_indent(width - len, FALSE); /* right */ X break; X } X } X curwin->w_cursor = pos; X beginline(TRUE); X updateScreen(NOT_VALID); X} X X/* X * :move command - move lines line1-line2 to line n X * X * return FAIL for failure, OK otherwise X */ X int Xdo_move(line1, line2, n) X linenr_t line1; X linenr_t line2; X linenr_t n; X{ X char_u *q; X int has_mark; X X if (n >= line1 && n < line2 && line2 > line1) X { X EMSG("Move lines into themselves"); X return FAIL; X } X X /* X * adjust line marks (global marks done below) X * if the lines are moved down, the marks in the moved lines X * move down and the marks in the lines between the old and X * new position move up. X * If the lines are moved up it is just the other way round X */ X if (n >= line2) /* move down */ X { X mark_adjust(line1, line2, n - line2); X mark_adjust(line2 + 1, n, -(line2 - line1 + 1)); X } X else /* move up */ X { X mark_adjust(line1, line2, -(line1 - n - 1)); X mark_adjust(n + 1, line1 - 1, line2 - line1 + 1); X } X X if (n >= line1) X { X --n; X curwin->w_cursor.lnum = n - (line2 - line1) + 1; X } X else X curwin->w_cursor.lnum = n + 1; X while (line1 <= line2) X { X /* this undo is not efficient, but it works */ X u_save(line1 - 1, line1 + 1); X q = strsave(ml_get(line1)); X if (q != NULL) X { X /* X * marks from global command go with the line X */ X has_mark = ml_has_mark(line1); X ml_delete(line1); X u_save(n, n + 1); X ml_append(n, q, (colnr_t)0, FALSE); X free(q); X if (has_mark) X ml_setmarked(n + 1); X } X if (n < line1) X { X ++n; X ++line1; X } X else X --line2; X } X CHANGED; X return OK; X} X X/* X * :copy command - copy lines line1-line2 to line n X */ X void Xdo_copy(line1, line2, n) X linenr_t line1; X linenr_t line2; X linenr_t n; X{ X linenr_t lnum; X char_u *p; X X mark_adjust(n + 1, MAXLNUM, line2 - line1 + 1); X X /* X * there are three situations: X * 1. destination is above line1 X * 2. destination is between line1 and line2 X * 3. destination is below line2 X * X * n = destination (when starting) X * curwin->w_cursor.lnum = destination (while copying) X * line1 = start of source (while copying) X * line2 = end of source (while copying) X */ X u_save(n, n + 1); X curwin->w_cursor.lnum = n; X lnum = line2 - line1 + 1; X while (line1 <= line2) X { X /* need to use strsave() because the line will be unlocked X within ml_append */ X p = strsave(ml_get(line1)); X if (p != NULL) X { X ml_append(curwin->w_cursor.lnum, p, (colnr_t)0, FALSE); X free(p); X } X /* situation 2: skip already copied lines */ X if (line1 == n) X line1 = curwin->w_cursor.lnum; X ++line1; X if (curwin->w_cursor.lnum < line1) X ++line1; X if (curwin->w_cursor.lnum < line2) X ++line2; X ++curwin->w_cursor.lnum; X } X CHANGED; X msgmore((long)lnum); X} X X/* X * handle the :! command. X * We replace the extra bangs by the previously entered command and remember X * the command. X */ X void Xdobang(addr_count, line1, line2, forceit, arg) X int addr_count; X linenr_t line1, line2; X int forceit; X char_u *arg; X{ X static char_u *prevcmd = NULL; /* the previous command */ X char_u *t; X char_u *trailarg; X int len; X X /* X * Disallow shell commands from .exrc and .vimrc in current directory for X * security reasons. X */ X if (secure) X { X secure = 2; X emsg(e_curdir); X return; X } X len = STRLEN(arg) + 1; X X autowrite_all(); X /* X * try to find an embedded bang, like in :!<cmd> ! [args] X * (:!! is indicated by the 'forceit' variable) X */ X trailarg = arg; X skiptospace(&trailarg); X skipspace(&trailarg); X if (*trailarg == '!') X *trailarg++ = NUL; X else X trailarg = NULL; X X if (forceit || trailarg != NULL) /* use the previous command */ X { X if (prevcmd == NULL) X { X emsg(e_noprev); X return; X } X len += STRLEN(prevcmd) * (trailarg != NULL && forceit ? 2 : 1); X } X X if (len > CMDBUFFSIZE) X { X emsg(e_toolong); X return; X } X if ((t = alloc(len)) == NULL) X return; X *t = NUL; X if (forceit) X STRCPY(t, prevcmd); X STRCAT(t, arg); X if (trailarg != NULL) X { X STRCAT(t, prevcmd); X STRCAT(t, trailarg); X } X free(prevcmd); X prevcmd = t; X X if (bangredo) /* put cmd in redo buffer for ! command */ X { X AppendToRedobuff(prevcmd); X AppendToRedobuff((char_u *)"\n"); X bangredo = FALSE; X } X /* echo the command */ X msg_start(); X msg_outchar(':'); X if (addr_count) /* :range! */ X { X msg_outnum((long)line1); X msg_outchar(','); X msg_outnum((long)line2); X } X msg_outchar('!'); X msg_outtrans(prevcmd, -1); X msg_ceol(); X X if (addr_count == 0) /* :! */ X doshell(prevcmd); X else /* :range! */ X dofilter(line1, line2, prevcmd, TRUE, TRUE); X} X X/* X * call a shell to execute a command X */ X void Xdoshell(cmd) X char_u *cmd; X{ X BUF *buf; X X /* X * Disallow shell commands from .exrc and .vimrc in current directory for X * security reasons. X */ X if (secure) X { X secure = 2; X emsg(e_curdir); X msg_end(); X return; X } X stoptermcap(); X msg_outchar('\n'); /* may shift screen one line up */ X X /* warning message before calling the shell */ X if (p_warn) X for (buf = firstbuf; buf; buf = buf->b_next) X if (buf->b_changed) X { X msg_outstr((char_u *)"[No write since last change]\n"); X break; X } X X windgoto((int)Rows - 1, 0); X cursor_on(); X (void)call_shell(cmd, 0, TRUE); X X#ifdef AMIGA X wait_return(term_console ? -1 : TRUE); /* see below */ X#else X wait_return(TRUE); /* includes starttermcap() */ X#endif X X /* X * In an Amiga window redrawing is caused by asking the window size. X * If we got an interrupt this will not work. The chance that the window X * size is wrong is very small, but we need to redraw the screen. X * Don't do this if ':' hit in wait_return(). X * THIS IS UGLY but it save an extra redraw. X */ X#ifdef AMIGA X if (skip_redraw) /* ':' hit in wait_return() */ X must_redraw = CLEAR; X else if (term_console) X { X OUTSTR("\033[0 q"); /* get window size */ X if (got_int) X must_redraw = CLEAR; /* if got_int is TRUE we have to redraw */ X else X must_redraw = 0; /* no extra redraw needed */ X } X#endif /* AMIGA */ X} X X/* X * dofilter: filter lines through a command given by the user X * X * We use temp files and the call_shell() routine here. This would normally X * be done using pipes on a UNIX machine, but this is more portable to X * the machines we usually run on. The call_shell() routine needs to be able X * to deal with redirection somehow, and should handle things like looking X * at the PATH env. variable, and adding reasonable extensions to the X * command name given by the user. All reasonable versions of call_shell() X * do this. X * We use input redirection if do_in is TRUE. X * We use output redirection if do_out is TRUE. X */ X void Xdofilter(line1, line2, buff, do_in, do_out) X linenr_t line1, line2; X char_u *buff; X int do_in, do_out; X{ X#ifdef LATTICE X char_u itmp[L_tmpnam]; /* use tmpnam() */ X char_u otmp[L_tmpnam]; X#else X char_u itmp[TMPNAMELEN]; X char_u otmp[TMPNAMELEN]; X#endif X linenr_t linecount; X X /* X * Disallow shell commands from .exrc and .vimrc in current directory for X * security reasons. X */ X if (secure) X { X secure = 2; X emsg(e_curdir); X return; X } X if (*buff == NUL) /* no filter command */ X return; X linecount = line2 - line1 + 1; X curwin->w_cursor.lnum = line1; X curwin->w_cursor.col = 0; X /* cursupdate(); */ X X /* X * 1. Form temp file names X * 2. Write the lines to a temp file X * 3. Run the filter command on the temp file X * 4. Read the output of the command into the buffer X * 5. Delete the original lines to be filtered X * 6. Remove the temp files X */ X X#ifndef LATTICE X /* for lattice we use tmpnam(), which will make its own name */ X STRCPY(itmp, TMPNAME1); X STRCPY(otmp, TMPNAME2); X#endif X X if ((do_in && *mktemp((char *)itmp) == NUL) || (do_out && *mktemp((char *)otmp) == NUL)) X { X emsg(e_notmp); X return; X } X X/* X * ! command will be overwritten by next mesages X * This is a trade off between showing the command and not scrolling the X * text one line up (problem on slow terminals). X */ X must_redraw = CLEAR; /* screen has been shifted up one line */ X ++no_wait_return; /* don't call wait_return() while busy */ X if (do_in && buf_write(curbuf, itmp, NULL, line1, line2, FALSE, 0, FALSE) == FAIL) X { X msg_outchar('\n'); /* keep message from writeit() */ X --no_wait_return; X (void)emsg2(e_notcreate, itmp); /* will call wait_return */ X return; X } X if (!do_out) X outchar('\n'); X X#if defined(UNIX) && !defined(ARCHIE) X/* X * put braces around the command (for concatenated commands) X */ X sprintf((char *)IObuff, "(%s)", (char *)buff); X if (do_in) X { X STRCAT(IObuff, " < "); X STRCAT(IObuff, itmp); X } X if (do_out) X { X STRCAT(IObuff, " > "); X STRCAT(IObuff, otmp); X } X#else X/* X * for shells that don't understand braces around commands, at least allow X * the use of commands in a pipe. X */ X STRCPY(IObuff, buff); X if (do_in) X { X char_u *p; X /* X * If there is a pipe, we have to put the '<' in front of it X */ X p = STRCHR(IObuff, '|'); X if (p) X *p = NUL; X STRCAT(IObuff, " < "); X STRCAT(IObuff, itmp); X p = STRCHR(buff, '|'); X if (p) X STRCAT(IObuff, p); X } X if (do_out) X { X STRCAT(IObuff, " > "); X STRCAT(IObuff, otmp); X } X#endif X X windgoto((int)Rows - 1, 0); X cursor_on(); X /* errors are ignored, so you can see the error X messages from the command; use 'u' to fix the text */ X (void)call_shell(IObuff, 1, FALSE); X X if (do_out) X { X if (!u_save((linenr_t)(line2), (linenr_t)(line2 + 1))) X { X linecount = 0; X goto error; X } X if (readfile(otmp, NULL, line2, FALSE, (linenr_t)0, MAXLNUM) == FAIL) X { X outchar('\n'); X emsg2(e_notread, otmp); X linecount = 0; X goto error; X } X X if (do_in) X { X curwin->w_cursor.lnum = line1; X dellines(linecount, TRUE, TRUE); X } X --no_wait_return; X } X else X { Xerror: X --no_wait_return; X wait_return(FALSE); X } X updateScreen(CLEAR); /* do this before messages below */ X X if (linecount > p_report) X { X if (!do_in && do_out) X msgmore(linecount); X else X smsg((char_u *)"%ld lines filtered", (long)linecount); X } X remove((char *)itmp); X remove((char *)otmp); X} END_OF_FILE if test 11550 -ne `wc -c <'vim/src/cmdcmds.c'`; then echo shar: \"'vim/src/cmdcmds.c'\" unpacked with wrong size! fi # end of 'vim/src/cmdcmds.c' fi if test -f 'vim/src/cmdtab.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'vim/src/cmdtab.h'\" else echo shar: Extracting \"'vim/src/cmdtab.h'\" $11638 characters$ sed "s/^X//" >'vim/src/cmdtab.h' <<'END_OF_FILE' X/* vi:ts=4 X * X * VIM - Vi IMproved X * X * Code Contributions By: Bram Moolenaar mool@oce.nl X * Tim Thompson twitch!tjt X * Tony Andrews onecom!wldrdg!tony X * G. R. (Fred) Walter watmath!watcgl!grwalter X */ X X/* X * THIS FILE IS AUTOMATICALLY PRODUCED - DO NOT EDIT X */ X X#define RANGE 0x01 /* allow a linespecs */ X#define BANG 0x02 /* allow a ! after the command name */ X#define EXTRA 0x04 /* allow extra args after command name */ X#define XFILE 0x08 /* expand wildcards in extra part */ X#define NOSPC 0x10 /* no spaces allowed in the extra part */ X#define DFLALL 0x20 /* default file range is 1,$ */ X#define NODFL 0x40 /* do not default to the current file name */ X#define NEEDARG 0x80 /* argument required */ X#define TRLBAR 0x100 /* check for trailing vertical bar */ X#define REGSTR 0x200 /* allow "x for register designation */ X#define COUNT 0x400 /* allow count in argument, after command */ X#define NOTRLCOM 0x800 /* no trailing comment allowed */ X#define ZEROR 0x1000 /* zero line number allowed */ X#define USECTRLV 0x2000 /* do not remove CTRL-V from argument */ X#define NOTADR 0x4000 /* number before command is not an address */ X#define FILES (XFILE + EXTRA) /* multiple extra files allowed */ X#define WORD1 (EXTRA + NOSPC) /* one extra word allowed */ X#define FILE1 (FILES + NOSPC) /* 1 file allowed, defaults to current file */ X#define NAMEDF (FILE1 + NODFL) /* 1 file allowed, defaults to "" */ X#define NAMEDFS (FILES + NODFL) /* multiple files allowed, default is "" */ X X/* X * This array maps ex command names to command codes. The order in which X * command names are listed below is significant -- ambiguous abbreviations X * are always resolved to be the first possible match (e.g. "r" is taken X * to mean "read", not "rewind", because "read" comes before "rewind"). X * Not supported commands are included to avoid ambiguities. X */ Xstatic struct X{ X char_u *cmd_name; /* name of the command */ X short cmd_argt; /* command line arguments permitted/needed/used */ X} cmdnames[] = X{ X {(char_u *)"append", BANG+RANGE+TRLBAR}, /* not supported */ X#define CMD_append 0 X {(char_u *)"all", TRLBAR}, X#define CMD_all 1 X {(char_u *)"abbreviate", EXTRA+TRLBAR+NOTRLCOM+USECTRLV}, X#define CMD_abbreviate 2 X {(char_u *)"args", RANGE+NOTADR+BANG+NAMEDFS}, X#define CMD_args 3 X {(char_u *)"argument", BANG+RANGE+NOTADR+COUNT+EXTRA}, X#define CMD_argument 4 X {(char_u *)"buffer", RANGE+NOTADR+COUNT+TRLBAR}, X#define CMD_buffer 5 X {(char_u *)"ball", TRLBAR}, X#define CMD_ball 6 X {(char_u *)"buffers", TRLBAR}, X#define CMD_buffers 7 X {(char_u *)"bdelete", BANG+RANGE+NOTADR+COUNT+EXTRA+TRLBAR}, X#define CMD_bdelete 8 X {(char_u *)"bunload", BANG+RANGE+NOTADR+COUNT+EXTRA+TRLBAR}, X#define CMD_bunload 9 X {(char_u *)"bmodified", RANGE+NOTADR+COUNT+TRLBAR}, X#define CMD_bmodified 10 X {(char_u *)"bnext", RANGE+NOTADR+COUNT+TRLBAR}, X#define CMD_bnext 11 X {(char_u *)"bNext", RANGE+NOTADR+COUNT+TRLBAR}, X#define CMD_bNext 12 X {(char_u *)"bprevious", RANGE+NOTADR+COUNT+TRLBAR}, X#define CMD_bprevious 13 X {(char_u *)"brewind", RANGE+TRLBAR}, X#define CMD_brewind 14 X {(char_u *)"blast", RANGE+TRLBAR}, X#define CMD_blast 15 X {(char_u *)"change", BANG+RANGE+COUNT+TRLBAR}, /* not supported */ X#define CMD_change 16 X {(char_u *)"cabbrev", EXTRA+TRLBAR+NOTRLCOM+USECTRLV}, X#define CMD_cabbrev 17 X {(char_u *)"cc", TRLBAR+WORD1+BANG}, X#define CMD_cc 18 X {(char_u *)"cd", NAMEDF+TRLBAR}, X#define CMD_cd 19 X {(char_u *)"center", TRLBAR+RANGE+EXTRA}, X#define CMD_center 20 X {(char_u *)"cf", TRLBAR+FILE1+BANG}, X#define CMD_cf 21 X {(char_u *)"chdir", NAMEDF+TRLBAR}, X#define CMD_chdir 22 X {(char_u *)"cl", TRLBAR}, X#define CMD_cl 23 X {(char_u *)"close", BANG+TRLBAR}, X#define CMD_close 24 X {(char_u *)"cmap", BANG+EXTRA+TRLBAR+NOTRLCOM+USECTRLV}, X#define CMD_cmap 25 X {(char_u *)"cn", TRLBAR+WORD1+BANG}, X#define CMD_cn 26 X {(char_u *)"cnoremap", BANG+EXTRA+TRLBAR+NOTRLCOM+USECTRLV}, X#define CMD_cnoremap 27 X {(char_u *)"cnoreabbrev", EXTRA+TRLBAR+NOTRLCOM+USECTRLV}, X#define CMD_cnoreabbrev 28 X {(char_u *)"copy", RANGE+EXTRA+TRLBAR}, X#define CMD_copy 29 X {(char_u *)"cp", TRLBAR+WORD1+BANG}, X#define CMD_cp 30 X {(char_u *)"cq", TRLBAR+BANG}, X#define CMD_cq 31 X {(char_u *)"cunmap", BANG+EXTRA+TRLBAR+USECTRLV}, X#define CMD_cunmap 32 X {(char_u *)"cunabbrev", EXTRA+TRLBAR+USECTRLV}, X#define CMD_cunabbrev 33 X {(char_u *)"delete", RANGE+REGSTR+COUNT+TRLBAR}, X#define CMD_delete 34 X {(char_u *)"display", TRLBAR}, X#define CMD_display 35 X {(char_u *)"digraphs", EXTRA+TRLBAR}, X#define CMD_digraphs 36 X {(char_u *)"edit", BANG+FILE1}, X#define CMD_edit 37 X {(char_u *)"ex", BANG+FILE1}, X#define CMD_ex 38 X {(char_u *)"exit", BANG+FILE1+DFLALL+TRLBAR}, X#define CMD_exit 39 X {(char_u *)"file", FILE1+TRLBAR}, X#define CMD_file 40 X {(char_u *)"files", TRLBAR}, X#define CMD_files 41 X {(char_u *)"global", RANGE+BANG+EXTRA+DFLALL}, X#define CMD_global 42 X {(char_u *)"help", TRLBAR}, X#define CMD_help 43 X {(char_u *)"insert", BANG+RANGE+TRLBAR}, /* not supported */ X#define CMD_insert 44 X {(char_u *)"iabbrev", EXTRA+TRLBAR+NOTRLCOM+USECTRLV}, X#define CMD_iabbrev 45 X {(char_u *)"imap", BANG+EXTRA+TRLBAR+NOTRLCOM+USECTRLV}, X#define CMD_imap 46 X {(char_u *)"inoremap", BANG+EXTRA+TRLBAR+NOTRLCOM+USECTRLV}, X#define CMD_inoremap 47 X {(char_u *)"inoreabbrev", EXTRA+TRLBAR+NOTRLCOM+USECTRLV}, X#define CMD_inoreabbrev 48 X {(char_u *)"iunmap", BANG+EXTRA+TRLBAR+USECTRLV}, X#define CMD_iunmap 49 X {(char_u *)"iunabbrev", EXTRA+TRLBAR+USECTRLV}, X#define CMD_iunabbrev 50 X {(char_u *)"join", RANGE+COUNT+TRLBAR}, X#define CMD_join 51 X {(char_u *)"jumps", TRLBAR}, X#define CMD_jumps 52 X {(char_u *)"k", RANGE+WORD1+TRLBAR}, X#define CMD_k 53 X {(char_u *)"list", RANGE+COUNT+TRLBAR}, X#define CMD_list 54 X {(char_u *)"last", EXTRA+BANG}, X#define CMD_last 55 X {(char_u *)"left", TRLBAR+RANGE+EXTRA}, X#define CMD_left 56 X {(char_u *)"move", RANGE+EXTRA+TRLBAR}, X#define CMD_move 57 X {(char_u *)"mark", RANGE+WORD1+TRLBAR}, X#define CMD_mark 58 X {(char_u *)"marks", TRLBAR}, X#define CMD_marks 59 X {(char_u *)"map", BANG+EXTRA+TRLBAR+NOTRLCOM+USECTRLV}, X#define CMD_map 60 X {(char_u *)"make", NEEDARG+EXTRA+TRLBAR+XFILE}, X#define CMD_make 61 X {(char_u *)"mkexrc", BANG+FILE1+TRLBAR}, X#define CMD_mkexrc 62 X {(char_u *)"mkvimrc", BANG+FILE1+TRLBAR}, X#define CMD_mkvimrc 63 X {(char_u *)"mfstat", TRLBAR}, /* for debugging */ X#define CMD_mfstat 64 X {(char_u *)"mode", WORD1+TRLBAR}, X#define CMD_mode 65 X {(char_u *)"next", RANGE+NOTADR+BANG+NAMEDFS}, X#define CMD_next 66 X {(char_u *)"new", BANG+FILE1+RANGE+NOTADR}, X#define CMD_new 67 X {(char_u *)"number", RANGE+COUNT+TRLBAR}, X#define CMD_number 68 X {(char_u *)"#", RANGE+COUNT+TRLBAR}, X#define CMD_pound 69 X {(char_u *)"noremap", BANG+EXTRA+TRLBAR+NOTRLCOM+USECTRLV}, X#define CMD_noremap 70 X {(char_u *)"noreabbrev", EXTRA+TRLBAR+NOTRLCOM+USECTRLV}, X#define CMD_noreabbrev 71 X {(char_u *)"Next", EXTRA+RANGE+NOTADR+COUNT+BANG}, X#define CMD_Next 72 X {(char_u *)"only", BANG+TRLBAR}, X#define CMD_only 73 X {(char_u *)"print", RANGE+COUNT+TRLBAR}, X#define CMD_print 74 X {(char_u *)"pop", RANGE+NOTADR+COUNT+TRLBAR+ZEROR}, X#define CMD_pop 75 X {(char_u *)"put", RANGE+BANG+REGSTR+TRLBAR}, X#define CMD_put 76 X {(char_u *)"preserve", TRLBAR}, X#define CMD_preserve 77 X {(char_u *)"previous", EXTRA+RANGE+NOTADR+COUNT+BANG}, X#define CMD_previous 78 X {(char_u *)"pwd", TRLBAR}, X#define CMD_pwd 79 X {(char_u *)"quit", BANG+TRLBAR}, X#define CMD_quit 80 X {(char_u *)"qall", BANG+TRLBAR}, X#define CMD_qall 81 X {(char_u *)"read", RANGE+NAMEDF+TRLBAR+ZEROR}, X#define CMD_read 82 X {(char_u *)"rewind", EXTRA+BANG}, X#define CMD_rewind 83 X {(char_u *)"recover", FILE1+TRLBAR}, /* not supported */ X#define CMD_recover 84 X {(char_u *)"redo", TRLBAR}, X#define CMD_redo 85 X {(char_u *)"right", TRLBAR+RANGE+EXTRA}, X#define CMD_right 86 X {(char_u *)"resize", TRLBAR+WORD1}, X#define CMD_resize 87 X {(char_u *)"substitute", RANGE+EXTRA}, X#define CMD_substitute 88 X {(char_u *)"sargument", BANG+RANGE+NOTADR+COUNT+EXTRA}, X#define CMD_sargument 89 X {(char_u *)"sall", TRLBAR}, X#define CMD_sall 90 X {(char_u *)"sbuffer", RANGE+NOTADR+COUNT+TRLBAR}, X#define CMD_sbuffer 91 X {(char_u *)"sball", TRLBAR}, X#define CMD_sball 92 X {(char_u *)"sbmodified", RANGE+NOTADR+COUNT+TRLBAR}, X#define CMD_sbmodified 93 X {(char_u *)"sbnext", RANGE+NOTADR+COUNT+TRLBAR}, X#define CMD_sbnext 94 X {(char_u *)"sbNext", RANGE+NOTADR+COUNT+TRLBAR}, X#define CMD_sbNext 95 X {(char_u *)"sbprevious", RANGE+NOTADR+COUNT+TRLBAR}, X#define CMD_sbprevious 96 X {(char_u *)"sbrewind", TRLBAR}, X#define CMD_sbrewind 97 X {(char_u *)"sblast", TRLBAR}, X#define CMD_sblast 98 X {(char_u *)"suspend", TRLBAR+BANG}, X#define CMD_suspend 99 X {(char_u *)"set", EXTRA+TRLBAR}, X#define CMD_set 100 X {(char_u *)"setkeymap", NAMEDF+TRLBAR}, X#define CMD_setkeymap 101 X {(char_u *)"shell", TRLBAR}, X#define CMD_shell 102 X {(char_u *)"sleep", RANGE+COUNT+NOTADR+TRLBAR}, X#define CMD_sleep 103 X {(char_u *)"source", NAMEDF+NEEDARG+TRLBAR}, X#define CMD_source 104 X {(char_u *)"split", BANG+FILE1+RANGE+NOTADR}, X#define CMD_split 105 X {(char_u *)"snext", RANGE+NOTADR+BANG+NAMEDFS}, X#define CMD_snext 106 X {(char_u *)"sNext", EXTRA+RANGE+NOTADR+COUNT+BANG}, X#define CMD_sNext 107 X {(char_u *)"sprevious", EXTRA+RANGE+NOTADR+COUNT+BANG}, X#define CMD_sprevious 108 X {(char_u *)"srewind", EXTRA+BANG}, X#define CMD_srewind 109 X {(char_u *)"slast", EXTRA+BANG}, X#define CMD_slast 110 X {(char_u *)"stop", TRLBAR+BANG}, X#define CMD_stop 111 X {(char_u *)"sunhide", TRLBAR}, X#define CMD_sunhide 112 X {(char_u *)"swapname", TRLBAR}, X#define CMD_swapname 113 X {(char_u *)"t", RANGE+EXTRA+TRLBAR}, X#define CMD_t 114 X {(char_u *)"tag", RANGE+NOTADR+COUNT+BANG+WORD1+TRLBAR+ZEROR}, X#define CMD_tag 115 X {(char_u *)"tags", TRLBAR}, X#define CMD_tags 116 X {(char_u *)"unabbreviate", EXTRA+TRLBAR+USECTRLV}, X#define CMD_unabbreviate 117 X {(char_u *)"undo", TRLBAR}, X#define CMD_undo 118 X {(char_u *)"unhide", TRLBAR}, X#define CMD_unhide 119 X {(char_u *)"unmap", BANG+EXTRA+TRLBAR+USECTRLV}, X#define CMD_unmap 120 X {(char_u *)"vglobal", RANGE+EXTRA+DFLALL}, X#define CMD_vglobal 121 X {(char_u *)"version", TRLBAR}, X#define CMD_version 122 X {(char_u *)"visual", RANGE+BANG+FILE1}, X#define CMD_visual 123 X {(char_u *)"write", RANGE+BANG+FILE1+DFLALL+TRLBAR}, X#define CMD_write 124 X {(char_u *)"wnext", RANGE+NOTADR+BANG+FILE1+TRLBAR}, X#define CMD_wnext 125 X {(char_u *)"wNext", RANGE+NOTADR+BANG+FILE1+TRLBAR}, X#define CMD_wNext 126 X {(char_u *)"wprevious", RANGE+NOTADR+BANG+FILE1+TRLBAR}, X#define CMD_wprevious 127 X {(char_u *)"winsize", EXTRA+NEEDARG+TRLBAR}, X#define CMD_winsize 128 X {(char_u *)"wq", BANG+FILE1+DFLALL+TRLBAR}, X#define CMD_wq 129 X {(char_u *)"wall", BANG+TRLBAR}, X#define CMD_wall 130 X {(char_u *)"wqall", BANG+FILE1+DFLALL+TRLBAR}, X#define CMD_wqall 131 X {(char_u *)"xit", BANG+FILE1+DFLALL+TRLBAR}, X#define CMD_xit 132 X {(char_u *)"xall", BANG+TRLBAR}, X#define CMD_xall 133 X {(char_u *)"yank", RANGE+REGSTR+COUNT+TRLBAR}, X#define CMD_yank 134 X {(char_u *)"z", RANGE+COUNT+TRLBAR}, /* not supported */ X#define CMD_z 135 X {(char_u *)"@", RANGE+EXTRA+TRLBAR}, X#define CMD_at 136 X {(char_u *)"!", RANGE+NAMEDFS}, X#define CMD_bang 137 X {(char_u *)"<", RANGE+COUNT+TRLBAR}, X#define CMD_lshift 138 X {(char_u *)">", RANGE+COUNT+TRLBAR}, X#define CMD_rshift 139 X {(char_u *)"=", RANGE+TRLBAR}, X#define CMD_equal 140 X {(char_u *)"&", RANGE+EXTRA}, X#define CMD_and 141 X {(char_u *)"~", RANGE+EXTRA} X#define CMD_tilde 142 X#define CMD_SIZE 143 X X}; END_OF_FILE if test 11638 -ne `wc -c <'vim/src/cmdtab.h'`; then echo shar: \"'vim/src/cmdtab.h'\" unpacked with wrong size! fi # end of 'vim/src/cmdtab.h' fi if test -f 'vim/src/digraph.c.UU' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'vim/src/digraph.c.UU'\" else echo shar: Extracting \"'vim/src/digraph.c.UU'\" $11504 characters$ sed "s/^X//" >'vim/src/digraph.c.UU' <<'END_OF_FILE' Xbegin 644 vim/src/digraph.c XM+RH@=FDZ=',]-#IS=STT"B J"B J(%9)32 M(%9I($E-<')O=F5D"0EB>2!" XM<F%M($UO;VQE;F%A<@H@*@H@*B!296%D('1H92!F:6QE(")C<F5D:71S+G1X XM="(@9F]R(&$@;&ES="!O9B!P96]P;&4@=VAO(&-O;G1R:6)U=&5D+@H@*B!2 XM96%D('1H92!F:6QE(")U9V%N9&$N='AT(B!F;W(@8V]P>6EN9R!A;F0@=7-A XM9V4@8V]N9&ET:6]N<RX*("HO"@HC:69D968@1$E'4D%02%,*+RH*("H@9&EG XM<F%P:"YC.B!C;V1E(&9O<B!D:6=R87!H<PH@*B\*"B-I;F-L=61E(")V:6TN XM:"(*(VEN8VQU9&4@(F=L;V)A;',N:"(*(VEN8VQU9&4@(G!R;W1O+F@B"B-I XM;F-L=61E(")P87)A;2YH(@H*<W1A=&EC('9O:60@<')I;G1D:6=R87!H(%]? XM05)'4R@H8VAA<E]U("HI*3L*"F-H87)?=0DH*F1I9W)A<&AN97<I6S-=.PD) XM"2\J('!O:6YT97(@=&\@861D960@9&EG<F%P:',@*B\*:6YT"0ED:6=R87!H XM8V]U;G0@/2 P.PD)"2\J(&YU;6)E<B!O9B!A9&1E9"!D:6=R87!H<R J+PH* XM(VEF9&5F($U31$]3"F-H87)?=0ED:6=R87!H9&5F875L=%M=6S-=(#T@"0DO XM*B!S=&%N9&%R9"!-4T1/4R!D:6=R87!H<R J+PH)(" @>WLG0R<L("<L)RP@ XM,3(X?2P)+RH@@" J+PH)"7LG=2<L("<B)RP@,3(Y?2P)+RH@@2 J+PH)"7LG XM92<L("=<)R<L(#$S,'TL"2\J(((@*B\*"0E[)V$G+" G7B<L(#$S,7TL"2\J XM((,@*B\*"0E[)V$G+" G(B<L(#$S,GTL"2\J((0@*B\*"0E[)V$G+" G8"<L XM(#$S,WTL"2\J((4@*B\*"0E[)V$G+" G0"<L(#$S-'TL"2\J((8@*B\*"0E[ XM)V,G+" G+"<L(#$S-7TL"2\J('Y'("A305,@0R!C86XG="!H86YD;&4@=&AE XM(')E86P@8VAA<BD@*B\*"0E[)V4G+" G7B<L(#$S-GTL"2\J('Y(("A305,@ XM0R!C86XG="!H86YD;&4@=&AE(')E86P@8VAA<BD@*B\*"0E[)V4G+" G(B<L XM(#$S-WTL"2\J((D@*B\*"0E[)V4G+" G8"<L(#$S.'TL"2\J((H@*B\*"0E[ XM)VDG+" G(B<L(#$S.7TL"2\J((L@*B\*"0E[)VDG+" G7B<L(#$T,'TL"2\J XM((P@*B\*"0E[)VDG+" G8"<L(#$T,7TL"2\J((T@*B\*"0E[)T$G+" G(B<L XM(#$T,GTL"2\J((X@*B\*"0E[)T$G+" G0"<L(#$T,WTL"2\J((\@*B\*"0E[ XM)T4G+" G7"<G+" Q-#1]+ DO*B"0("HO"@D)>R=A)RP@)V4G+" Q-#5]+ DO XM*B"1("HO"@D)>R=!)RP@)T4G+" Q-#9]+ DO*B"2("HO"@D)>R=O)RP@)UXG XM+" Q-#=]+ DO*B"3("HO"@D)>R=O)RP@)R(G+" Q-#A]+ DO*B"4("HO"@D) XM>R=O)RP@)V G+" Q-#E]+ DO*B"5("HO"@D)>R=U)RP@)UXG+" Q-3!]+ DO XM*B"6("HO"@D)>R=U)RP@)V G+" Q-3%]+ DO*B"7("HO"@D)>R=Y)RP@)R(G XM+" Q-3)]+ DO*B"8("HO"@D)>R=/)RP@)R(G+" Q-3-]+ DO*B"9("HO"@D) XM>R=5)RP@)R(G+" Q-31]+ DO*B":("HO"@D@(" @>R=C)RP@)WPG+" Q-35] XM+ DO*B";("HO"@D@(" @>R<D)RP@)R0G+" Q-39]+ DO*B"<("HO"@D@(" @ XM>R=9)RP@)RTG+" Q-3=]+ DO*B!^72 H4T%3($,@8V%N)W0@:&%N9&QE('1H XM92!R96%L(&-H87(I("HO"@D@(" @>R=0)RP@)W0G+" Q-3A]+ DO*B">("HO XM"@D@(" @>R=F)RP@)V8G+" Q-3E]+ DO*B"?("HO"@D)>R=A)RP@)UPG)RP@ XM,38P?2P)+RH@H" J+PH)"7LG:2<L("=<)R<L(#$V,7TL"2\J(*$@*B\*"0E[ XM)V\G+" G7"<G+" Q-C)]+ DO*B"B("HO"@D)>R=U)RP@)UPG)RP@,38S?2P) XM+RH@>'@@*%-!4R!#(&-A;B=T(&AA;F1L92!T:&4@<F5A;"!C:&%R*2 J+PH) XM"7LG;B<L("=^)RP@,38T?2P)+RH@I" J+PH)"7LG3B<L("=^)RP@,38U?2P) XM+RH@I2 J+PH)"7LG82<L("=A)RP@,38V?2P)+RH@IB J+PH)"7LG;R<L("=O XM)RP@,38W?2P)+RH@IR J+PH)"7LG?B<L("<_)RP@,38X?2P)+RH@J" J+PH) XM"7LG+2<L("=A)RP@,38Y?2P)+RH@J2 J+PH)"7LG82<L("<M)RP@,3<P?2P) XM+RH@JB J+PH)"7LG,2<L("<R)RP@,3<Q?2P)+RH@JR J+PH)"7LG,2<L("<T XM)RP@,3<R?2P)+RH@K" J+PH)"7LG?B<L("<A)RP@,3<S?2P)+RH@K2 J+PH) XM"7LG/"<L("<\)RP@,3<T?2P)+RH@KB J+PH)"7LG/B<L("<^)RP@,3<U?2P) XM+RH@KR J+PH*"0E[)W,G+" G<R<L(#(R-7TL"2\J(.$@*B\*"0E[)VHG+" G XM=2<L(#(S,'TL"2\J(.8@*B\*"0E[)V\G+" G+R<L(#(S-WTL"2\J(.T@*B\* XM"0E[)RLG+" G+2<L(#(T,7TL"2\J(/$@*B\*"0E[)SXG+" G/2<L(#(T,GTL XM"2\J(/(@*B\*"0E[)SPG+" G/2<L(#(T,WTL"2\J(/,@*B\*"0E[)SHG+" G XM+2<L(#(T-GTL"2\J(/8@*B\*"0E[)WXG+" G?B<L(#(T-WTL"2\J(/<@*B\* XM"0E[)WXG+" G;R<L(#(T.'TL"2\J(/@@*B\*"0E[)S(G+" G,B<L(#(U,WTL XM"2\J(/T@*B\*"0E[3E5,+"!.54PL($Y53'T*"0E].PH*(V5L<V4)+RH@35-$ XM3U,@*B\*"F-H87)?=0ED:6=R87!H9&5F875L=%M=6S-=(#T@"0DO*B!S=&%N XM9&%R9"!)4T\@9&EG<F%P:',@*B\*"2 @('M[)WXG+" G(2<L(#$V,7TL"2\J XM(*$@*B\*"2 @("![)V,G+" G?"<L(#$V,GTL"2\J(*(@*B\*"2 @("![)R0G XM+" G)"<L(#$V,WTL"2\J(*,@*B\*"2 @("![)V\G+" G>"<L(#$V-'TL"2\J XM(*0@*B\*"2 @("![)UDG+" G+2<L(#$V-7TL"2\J(*4@*B\*"2 @("![)WPG XM+" G?"<L(#$V-GTL"2\J(*8@*B\*"2 @("![)W G+" G82<L(#$V-WTL"2\J XM(*<@*B\*"2 @("![)R(G+" G(B<L(#$V.'TL"2\J(*@@*B\*"2 @("![)V,G XM+" G3R<L(#$V.7TL"2\J(*D@*B\*"0E[)V$G+" G+2<L(#$W,'TL"2\J(*H@ XM*B\*"0E[)SPG+" G/"<L(#$W,7TL"2\J(*L@*B\*"0E[)RTG+" G+"<L(#$W XM,GTL"2\J(*P@*B\*"0E[)RTG+" G+2<L(#$W,WTL"2\J(*T@*B\*"0E[)W(G XM+" G3R<L(#$W-'TL"2\J(*X@*B\*"0E[)RTG+" G/2<L(#$W-7TL"2\J(*\@ XM*B\*"0E[)WXG+" G;R<L(#$W-GTL"2\J(+ @*B\*"0E[)RLG+" G+2<L(#$W XM-WTL"2\J(+$@*B\*"0E[)S(G+" G,B<L(#$W.'TL"2\J(+(@*B\*"0E[)S,G XM+" G,R<L(#$W.7TL"2\J(+,@*B\*"0E[)UPG)RP@)UPG)RP@,3@P?2P)+RH@ XMM" J+PH)"7LG:B<L("=U)RP@,3@Q?2P)+RH@M2 J+PH)"7LG<"<L("=P)RP@ XM,3@R?2P)+RH@MB J+PH)"7LG?B<L("<N)RP@,3@S?2P)+RH@MR J+PH)"7LG XM+"<L("<L)RP@,3@T?2P)+RH@N" J+PH)"7LG,2<L("<Q)RP@,3@U?2P)+RH@ XMN2 J+PH)"7LG;R<L("<M)RP@,3@V?2P)+RH@NB J+PH)"7LG/B<L("<^)RP@ XM,3@W?2P)+RH@NR J+PH)"7LG,2<L("<T)RP@,3@X?2P)+RH@O" J+PH)"7LG XM,2<L("<R)RP@,3@Y?2P)+RH@O2 J+PH)"7LG,R<L("<T)RP@,3DP?2P)+RH@ XMOB J+PH)"7LG?B<L("<_)RP@,3DQ?2P)+RH@OR J+PH)"7LG02<L("=@)RP@ XM,3DR?2P)+RH@P" J+PH)"7LG02<L("=<)R<L(#$Y,WTL"2\J(,$@*B\*"0E[ XM)T$G+" G7B<L(#$Y-'TL"2\J(,(@*B\*"0E[)T$G+" G?B<L(#$Y-7TL"2\J XM(,,@*B\*"0E[)T$G+" G(B<L(#$Y-GTL"2\J(,0@*B\*"0E[)T$G+" G0"<L XM(#$Y-WTL"2\J(,4@*B\*"0E[)T$G+" G12<L(#$Y.'TL"2\J(,8@*B\*"0E[ XM)T,G+" G+"<L(#$Y.7TL"2\J(,<@*B\*"0E[)T4G+" G8"<L(#(P,'TL"2\J XM(,@@*B\*"0E[)T4G+" G7"<G+" R,#%]+ DO*B#)("HO"@D)>R=%)RP@)UXG XM+" R,#)]+ DO*B#*("HO"@D)>R=%)RP@)R(G+" R,#-]+ DO*B#+("HO"@D) XM>R=))RP@)V G+" R,#1]+ DO*B#,("HO"@D)>R=))RP@)UPG)RP@,C U?2P) XM+RH@S2 J+PH)"7LG22<L("=>)RP@,C V?2P)+RH@SB J+PH)"7LG22<L("<B XM)RP@,C W?2P)+RH@SR J+PH)"7LG1"<L("<M)RP@,C X?2P)+RH@T" J+PH) XM"7LG3B<L("=^)RP@,C Y?2P)+RH@T2 J+PH)"7LG3R<L("=@)RP@,C$P?2P) XM+RH@TB J+PH)"7LG3R<L("=<)R<L(#(Q,7TL"2\J(-,@*B\*"0E[)T\G+" G XM7B<L(#(Q,GTL"2\J(-0@*B\*"0E[)T\G+" G?B<L(#(Q,WTL"2\J(-4@*B\* XM"0E[)T\G+" G(B<L(#(Q-'TL"2\J(-8@*B\*"0E[)R\G+" G7%PG+" R,35] XM+ DO*B#7("HO"@D)>R=/)RP@)R\G+" R,39]+ DO*B#8("HO"@D)>R=5)RP@ XM)V G+" R,3=]+ DO*B#9("HO"@D)>R=5)RP@)UPG)RP@,C$X?2P)+RH@VB J XM+PH)"7LG52<L("=>)RP@,C$Y?2P)+RH@VR J+PH)"7LG52<L("<B)RP@,C(P XM?2P)+RH@W" J+PH)"7LG62<L("=<)R<L(#(R,7TL"2\J(-T@*B\*"0E[)TDG XM+" G<"<L(#(R,GTL"2\J(-X@*B\*"0E[)W,G+" G<R<L(#(R,WTL"2\J(-\@ XM*B\*"0E[)V$G+" G8"<L(#(R-'TL"2\J(. @*B\*"0E[)V$G+" G7"<G+" R XM,C5]+ DO*B#A("HO"@D)>R=A)RP@)UXG+" R,C9]+ DO*B#B("HO"@D)>R=A XM)RP@)WXG+" R,C=]+ DO*B#C("HO"@D)>R=A)RP@)R(G+" R,CA]+ DO*B#D XM("HO"@D)>R=A)RP@)T G+" R,CE]+ DO*B#E("HO"@D)>R=A)RP@)V4G+" R XM,S!]+ DO*B#F("HO"@D)>R=C)RP@)RPG+" R,S%]+ DO*B#G("HO"@D)>R=E XM)RP@)V G+" R,S)]+ DO*B#H("HO"@D)>R=E)RP@)UPG)RP@,C,S?2P)+RH@ XMZ2 J+PH)"7LG92<L("=>)RP@,C,T?2P)+RH@ZB J+PH)"7LG92<L("<B)RP@ XM,C,U?2P)+RH@ZR J+PH)"7LG:2<L("=@)RP@,C,V?2P)+RH@[" J+PH)"7LG XM:2<L("=<)R<L(#(S-WTL"2\J(.T@*B\*"0E[)VDG+" G7B<L(#(S.'TL"2\J XM(.X@*B\*"0E[)VDG+" G(B<L(#(S.7TL"2\J(.\@*B\*"0E[)V0G+" G+2<L XM(#(T,'TL"2\J(/ @*B\*"0E[)VXG+" G?B<L(#(T,7TL"2\J(/$@*B\*"0E[ XM)V\G+" G8"<L(#(T,GTL"2\J(/(@*B\*"0E[)V\G+" G7"<G+" R-#-]+ DO XM*B#S("HO"@D)>R=O)RP@)UXG+" R-#1]+ DO*B#T("HO"@D)>R=O)RP@)WXG XM+" R-#5]+ DO*B#U("HO"@D)>R=O)RP@)R(G+" R-#9]+ DO*B#V("HO"@D) XM>R<Z)RP@)RTG+" R-#=]+ DO*B#W("HO"@D)>R=O)RP@)R\G+" R-#A]+ DO XM*B#X("HO"@D)>R=U)RP@)V G+" R-#E]+ DO*B#Y("HO"@D)>R=U)RP@)UPG XM)RP@,C4P?2P)+RH@^B J+PH)"7LG=2<L("=>)RP@,C4Q?2P)+RH@^R J+PH) XM"7LG=2<L("<B)RP@,C4R?2P)+RH@_" J+PH)"7LG>2<L("=<)R<L(#(U,WTL XM"2\J(/T@*B\*"0E[)VDG+" G<"<L(#(U-'TL"2\J(/X@*B\*"0E[)WDG+" G XM(B<L(#(U-7TL"2\J(/\@*B\*"0E[3E5,+"!.54PL($Y53'T*"0E].PHC96YD XM:68)+RH@35-$3U,@*B\*( HO*@H@*B!H86YD;&4@9&EG<F%P:',@869T97(@ XM='EP:6YG(&$@8VAA<F%C=&5R"B J+PH):6YT"F1O9&EG<F%P:"AC*0H):6YT XM"0EC.PI["@ES=&%T:6,@:6YT"6)A8VMS<&%C960["0DO*B!C:&%R86-T97(@ XM8F5F;W)E($)3("HO"@ES=&%T:6,@:6YT"6QA<W1C:&%R.PD)+RH@;&%S="!T XM>7!E9"!C:&%R86-T97(@*B\*"@EI9B H8R ]/2 M,2D)"0D)+RH@:6YI="!V XM86QU97,@*B\*"7L*"0EB86-K<W!A8V5D(#T@+3$["@E]"@EE;'-E(&EF("AP XM7V1G*0H)>PH)"6EF("AB86-K<W!A8V5D(#X](# I"@D)"6,@/2!G971D:6=R XM87!H*&)A8VMS<&%C960L(&,L($9!3%-%*3L*"0EB86-K<W!A8V5D(#T@+3$[ XM"@D):68@*&,@/3T@0E,@)B8@;&%S=&-H87(@/CT@,"D*"0D)8F%C:W-P86-E XM9" ](&QA<W1C:&%R.PH)?0H);&%S=&-H87(@/2!C.PH)<F5T=7)N(&,["GT* XM"B\J"B J(&QO;VMU<"!T:&4@<&%I<B!C:&%R,2P@8VAA<C(@:6X@=&AE(&1I XM9W)A<&@@=&%B;&5S"B J(&EF(&YO(&UA=&-H+"!R971U<FX@8VAA<C(*("HO XM"@EI;G0*9V5T9&EG<F%P:"AC:&%R,2P@8VAA<C(L(&UE=&$I"@EI;G0)8VAA XM<C$["@EI;G0)8VAA<C(["@EI;G0);65T83L*>PH):6YT"0EI.PH):6YT"0ER XM971V86P["@H)<F5T=F%L(#T@,#L*"69O<B H:2 ](# [(#L@*RMI*0D)"2\J XM('-E87)C:"!A9&1E9"!D:6=R87!H<R!F:7)S=" J+PH)>PH)"6EF("AI(#T] XM(&1I9W)A<&AC;W5N="D)+RH@96YD(&]F(&%D9&5D('1A8FQE+"!S96%R8V@@ XM9&5F875L=',@*B\*"0E["@D)"69O<B H:2 ](# [(&1I9W)A<&AD969A=6QT XM6VE=6S!=("$](# [("LK:2D*"0D)"6EF("AD:6=R87!H9&5F875L=%MI75LP XM72 ]/2!C:&%R,2 F)B!D:6=R87!H9&5F875L=%MI75LQ72 ]/2!C:&%R,BD* XM"0D)"7L*"0D)"0ER971V86P@/2!D:6=R87!H9&5F875L=%MI75LR73L*"0D) XM"0EB<F5A:SL*"0D)"7T*"0D)8G)E86L["@D)?0H)"6EF("AD:6=R87!H;F5W XM6VE=6S!=(#T](&-H87(Q("8F(&1I9W)A<&AN97=;:5U;,5T@/3T@8VAA<C(I XM"@D)>PH)"0ER971V86P@/2!D:6=R87!H;F5W6VE=6S)=.PH)"0EB<F5A:SL* XM"0E]"@E]"@H):68@*')E='9A;" ]/2 P*0D)"2\J(&1I9W)A<&@@9&5L971E XM9"!O<B!N;W0@9F]U;F0@*B\*"7L*"0EI9B H8VAA<C$@/3T@)R G("8F(&UE XM=&$I"0DO*B \<W!A8V4^(#QC:&%R/B M+3X@;65T82UC:&%R("HO"@D)"7)E XM='5R;B H8VAA<C(@?" P>#@P*3L*"0ER971U<FX@8VAA<C(["@E]"@ER971U XM<FX@<F5T=F%L.PI]"@HO*@H@*B!P=70@=&AE(&1I9W)A<&AS(&EN('1H92!A XM<F=U;65N="!S=')I;F<@:6X@=&AE(&1I9W)A<&@@=&%B;&4*("H@9F]R;6%T XM.B![8S%]>V,R?2!C:&%R('MC,7U[8S)](&-H87(@+BXN"B J+PH)=F]I9 IP XM=71D:6=R87!H*'-T<BD*"6-H87)?=2 J<W1R.PI["@EI;G0)"6-H87(Q+"!C XM:&%R,BP@;CL*"6-H87)?=0DH*FYE=W1A8BE;,UT["@EI;G0)"6D["@H)=VAI XM;&4@*"IS='(I"@E["@D)<VMI<'-P86-E*"9S='(I.PH)"6EF("@H8VAA<C$@ XM/2 J<W1R*RLI(#T](# @?'P@*&-H87(R(#T@*G-T<BLK*2 ]/2 P*0H)"0ER XM971U<FX["@D):68@*&-H87(Q(#T]($530R!\?"!C:&%R,B ]/2!%4T,I"@D) XM>PH)"0E%35-'*")%<V-A<&4@;F]T(&%L;&]W960@:6X@9&EG<F%P:"(I.PH) XM"0ER971U<FX["@D)?0H)"7-K:7!S<&%C92@F<W1R*3L*"0EI9B H(6ES9&EG XM:70H*G-T<BDI"@D)>PH)"0EE;7-G*&5?;G5M8F5R*3L*"0D)<F5T=7)N.PH) XM"7T*"0EN(#T@9V5T9&EG:71S*"9S='(I.PH)"6EF("AD:6=R87!H;F5W*0D) XM+RH@<V5A<F-H('1H92!T86)L92!F;W(@97AI<W1I;F<@96YT<GD@*B\*"0E[ XM"@D)"69O<B H:2 ](# [(&D@/"!D:6=R87!H8V]U;G0[("LK:2D*"0D)"6EF XM("AD:6=R87!H;F5W6VE=6S!=(#T](&-H87(Q("8F(&1I9W)A<&AN97=;:5U; XM,5T@/3T@8VAA<C(I"@D)"0E["@D)"0D)9&EG<F%P:&YE=UMI75LR72 ](&X[ XM"@D)"0D)8G)E86L["@D)"0E]"@D)"6EF("AI(#P@9&EG<F%P:&-O=6YT*0H) XM"0D)8V]N=&EN=64["@D)?0H)"6YE=W1A8B ]("AC:&%R7W4@*"HI6S-=*6%L XM;&]C*&1I9W)A<&AC;W5N=" J(#,@*R S*3L*"0EI9B H;F5W=&%B*0H)"7L* XM"0D);65M;6]V92@H8VAA<B J*6YE=W1A8BP@*&-H87(@*BED:6=R87!H;F5W XM+" H<VEZ95]T*2AD:6=R87!H8V]U;G0@*B S*2D["@D)"69R964H9&EG<F%P XM:&YE=RD["@D)"61I9W)A<&AN97<@/2!N97=T86(["@D)"61I9W)A<&AN97=; XM9&EG<F%P:&-O=6YT75LP72 ](&-H87(Q.PH)"0ED:6=R87!H;F5W6V1I9W)A XM<&AC;W5N=%U;,5T@/2!C:&%R,CL*"0D)9&EG<F%P:&YE=UMD:6=R87!H8V]U XM;G1=6S)=(#T@;CL*"0D)*RMD:6=R87!H8V]U;G0["@D)?0H)?0I]"@H)=F]I XM9 IL:7-T9&EG<F%P:',H*0I["@EI;G0)"6D["@H)<')I;G1D:6=R87!H*$Y5 XM3$PI.PH);7-G7W-T87)T*"D["@EM<V=?;W5T8VAA<B@G7&XG*3L*"69O<B H XM:2 ](# [(&1I9W)A<&AD969A=6QT6VE=6S!=("8F("%G;W1?:6YT.R K*VDI XM"@E["@D):68@*&=E=&1I9W)A<&@H9&EG<F%P:&1E9F%U;'1;:5U;,%TL(&1I XM9W)A<&AD969A=6QT6VE=6S%=+"!&04Q312D@/3T@9&EG<F%P:&1E9F%U;'1; XM:5U;,ETI"@D)"7!R:6YT9&EG<F%P:"AD:6=R87!H9&5F875L=%MI72D["@D) XM8G)E86MC:&5C:R@I.PH)?0H)9F]R("AI(#T@,#L@:2 \(&1I9W)A<&AC;W5N XM=" F)B A9V]T7VEN=#L@*RMI*0H)>PH)"7!R:6YT9&EG<F%P:"AD:6=R87!H XM;F5W6VE=*3L*"0EB<F5A:V-H96-K*"D["@E]"@EM<V=?;W5T8VAA<B@G7&XG XM*3L*"7=A:71?<F5T=7)N*%12544I.PD)+RH@8VQE87(@<V-R965N+"!B96-A XM=7-E('-O;64@9&EG<F%P:',@;6%Y(&)E('=R;VYG+ H)"0D)"0D)("H@:6X@ XM=VAI8V@@8V%S92!W92!M97-S960@=7 @3F5X=%-C<F5E;B J+PI]"@H)<W1A XM=&EC('9O:60*<')I;G1D:6=R87!H*' I"@EC:&%R7W4@*G ["GL*"6-H87)? XM=0D)8G5F6SE=.PH)<W1A=&EC(&EN= EL96X["@H):68@*' @/3T@3E5,3"D* XM"0EL96X@/2 P.PH)96QS92!I9B H<%LR72 A/2 P*0H)>PH)"6EF("AL96X@ XM/B!#;VQU;6YS("T@,3$I"@D)>PH)"0EM<V=?;W5T8VAA<B@G7&XG*3L*"0D) XM;&5N(#T@,#L*"0E]"@D):68@*&QE;BD*"0D);7-G7V]U='-T<B@H8VAA<E]U XM("HI(B @("(I.PH)"7-P<FEN=&8H*&-H87(@*BEB=68L("(E8R5C("5C("4S XM9"(L('!;,%TL('!;,5TL('!;,ETL('!;,ETI.PH)"6US9U]O=71S='(H8G5F XL*3L*"0EL96X@*ST@,3$["@E]"GT*"B-E;F1I9B O*B!$24=205!(4R J+PIF X Xend END_OF_FILE if test 11504 -ne `wc -c <'vim/src/digraph.c.UU'`; then echo shar: \"'vim/src/digraph.c.UU'\" unpacked with wrong size! else echo shar: Uudecoding \"'vim/src/digraph.c'\" $8324 characters$ cat vim/src/digraph.c.UU | uudecode if test 8324 -ne `wc -c <'vim/src/digraph.c'`; then echo shar: \"'vim/src/digraph.c'\" uudecoded with wrong size! else rm vim/src/digraph.c.UU fi fi # end of 'vim/src/digraph.c.UU' fi if test -f 'vim/src/makefile.nt' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'vim/src/makefile.nt'\" else echo shar: Extracting \"'vim/src/makefile.nt'\" $5138 characters$ sed "s/^X//" >'vim/src/makefile.nt' <<'END_OF_FILE' X!include <ntwin32.mak> X# X# Makefile for VIM on WINNT, using MS SDK X# X X#>>>>> choose options: X### -DDIGRAPHS digraph support (at the cost of 1.6 Kbyte code) X### -DCOMPATIBLE start in vi-compatible mode X### -DNOBACKUP default is no backup file X### -DDEBUG output a lot of debugging garbage X### -DTERMCAP include termcap file support X### -DNO_BUILTIN_TCAPS do not include builtin termcap entries X### (use only with -DTERMCAP) X### -DSOME_BUILTIN_TCAPS include most useful builtin termcap entries X### (use only without -DNO_BUILTIN_TCAPS) X### -DALL_BUILTIN_TCAPS include all builtin termcap entries X### (use only without -DNO_BUILTIN_TCAPS) X### -DVIMRC_FILE name of the .vimrc file in current dir X### -DEXRC_FILE name of the .exrc file in current dir X### -DSYSVIMRC_FILE name of the global .vimrc file X### -DSYSEXRC_FILE name of the global .exrc file X### -DDEFVIMRC_FILE name of the system-wide .vimrc file X### -DVIM_HLP name of the help file X### -DWEBB_COMPLETE include Webb's code for command line completion X### -DWEBB_KEYWORD_COMPL include Webb's code for keyword completion X### -DNOTITLE 'title' option off by default XDEFINES = -DDIGRAPHS -DWEBB_COMPLETE -DWEBB_KEYWORD_COMPL X X#>>>>> name of the compiler and linker, name of lib directory XCC = cl XLINK = cl /ML /Fe$@ /Zi XLIB = c:\mstools\lib X X#CFLAGS = -c -DMSDOS -DNT $(DEFINES) /Zi XCFLAGS = -c -DMSDOS -DNT $(DEFINES) /Ox X X X#>>>>> end of choices X########################################################################### X XINCL = vim.h globals.h param.h keymap.h macros.h ascii.h term.h msdos.h structs.h X XOBJ = obj/alloc.obj obj/winnt.obj obj/buffer.obj obj/charset.obj obj/cmdcmds.obj obj/cmdline.obj \ X obj/csearch.obj obj/digraph.obj obj/edit.obj obj/fileio.obj obj/getchar.obj obj/help.obj \ X obj/linefunc.obj obj/main.obj obj/mark.obj obj/memfile.obj obj/memline.obj obj/message.obj obj/misccmds.obj \ X obj/normal.obj obj/ops.obj obj/param.obj obj/quickfix.obj obj/regexp.obj \ X obj/regsub.obj obj/screen.obj obj/search.obj \ X obj/tag.obj obj/term.obj obj/undo.obj obj/window.obj $(TERMLIB) X X..\vim: $(OBJ) version.obj X $(link) $(linkdebug) $(conflags) -out:$*.exe $** $(conlibs) \ X user32.lib X del version.obj X Xctags: X command /c ctags *.c *.h X Xclean: X del $(OBJ) version.obj mkcmdtab.obj ..\vim mkcmdtab cmdtab.h X Xaddcr: addcr.c X $(CC) addcr.c X command /c addcr.bat X X########################################################################### X Xobj/alloc.obj: alloc.c $(INCL) X $(CC) $(CFLAGS) alloc.c /Foobj/alloc.obj X Xobj/winnt.obj: msdos.c $(INCL) msdos.h X $(CC) $(CFLAGS) winnt.c /Foobj/winnt.obj X Xobj/buffer.obj: buffer.c $(INCL) X $(CC) $(CFLAGS) buffer.c /Foobj/buffer.obj X Xobj/charset.obj: charset.c $(INCL) X $(CC) $(CFLAGS) charset.c /Foobj/charset.obj X Xobj/cmdcmds.obj: cmdcmds.c $(INCL) X $(CC) $(CFLAGS) cmdcmds.c /Foobj/cmdcmds.obj X Xobj/cmdline.obj: cmdline.c $(INCL) cmdtab.h X $(CC) $(CFLAGS) cmdline.c /Foobj/cmdline.obj X Xobj/csearch.obj: csearch.c $(INCL) X $(CC) $(CFLAGS) csearch.c /Foobj/csearch.obj X Xobj/digraph.obj: digraph.c $(INCL) X $(CC) $(CFLAGS) digraph.c /Foobj/digraph.obj X Xobj/edit.obj: edit.c $(INCL) X $(CC) $(CFLAGS) edit.c /Foobj/edit.obj X Xobj/fileio.obj: fileio.c $(INCL) X $(CC) $(CFLAGS) fileio.c /Foobj/fileio.obj X Xobj/getchar.obj: getchar.c $(INCL) X $(CC) $(CFLAGS) getchar.c /Foobj/getchar.obj X Xobj/help.obj: help.c $(INCL) X $(CC) $(CFLAGS) help.c /Foobj/help.obj X Xobj/linefunc.obj: linefunc.c $(INCL) X $(CC) $(CFLAGS) linefunc.c /Foobj/linefunc.obj X Xobj/main.obj: main.c $(INCL) X $(CC) $(CFLAGS) main.c /Foobj/main.obj X Xobj/mark.obj: mark.c $(INCL) X $(CC) $(CFLAGS) mark.c /Foobj/mark.obj X Xobj/memfile.obj: memfile.c $(INCL) X $(CC) $(CFLAGS) memfile.c /Foobj/memfile.obj X Xobj/memline.obj: memline.c $(INCL) X $(CC) $(CFLAGS) memline.c /Foobj/memline.obj X Xobj/message.obj: message.c $(INCL) X $(CC) $(CFLAGS) message.c /Foobj/message.obj X Xobj/misccmds.obj: misccmds.c $(INCL) X $(CC) $(CFLAGS) misccmds.c /Foobj/misccmds.obj X Xobj/normal.obj: normal.c $(INCL) ops.h X $(CC) $(CFLAGS) normal.c /Foobj/normal.obj X Xobj/ops.obj: ops.c $(INCL) ops.h X $(CC) $(CFLAGS) ops.c /Foobj/ops.obj X Xobj/param.obj: param.c $(INCL) X $(CC) $(CFLAGS) param.c /Foobj/param.obj X Xobj/quickfix.obj: quickfix.c $(INCL) X $(CC) $(CFLAGS) quickfix.c /Foobj/quickfix.obj X Xobj/regexp.obj: regexp.c $(INCL) X $(CC) $(CFLAGS) regexp.c /Foobj/regexp.obj X Xobj/regsub.obj: regsub.c $(INCL) X $(CC) $(CFLAGS) regsub.c /Foobj/regsub.obj X Xobj/screen.obj: screen.c $(INCL) X $(CC) $(CFLAGS) screen.c /Foobj/screen.obj X Xobj/search.obj: search.c $(INCL) X $(CC) $(CFLAGS) search.c /Foobj/search.obj X Xobj/tag.obj: tag.c $(INCL) X $(CC) $(CFLAGS) tag.c /Foobj/tag.obj X Xobj/term.obj: term.c $(INCL) X $(CC) $(CFLAGS) term.c /Foobj/term.obj X Xobj/undo.obj: undo.c $(INCL) X $(CC) $(CFLAGS) undo.c /Foobj/undo.obj X Xobj/window.obj: window.c $(INCL) X $(CC) $(CFLAGS) window.c /Foobj/window.obj X Xcmdtab.h: cmdtab.tab mkcmdtab.exe X mkcmdtab cmdtab.tab cmdtab.h X Xmkcmdtab.exe: obj/mkcmdtab.obj X $(link) $(linkdebug) $(conflags) -out:$*.exe $** $(conlibs) \ X user32.lib X Xobj/mkcmdtab.obj: mkcmdtab.c X $(CC) $(CFLAGS) mkcmdtab.c /Foobj/mkcmdtab.obj END_OF_FILE if test 5138 -ne `wc -c <'vim/src/makefile.nt'`; then echo shar: \"'vim/src/makefile.nt'\" unpacked with wrong size! fi # end of 'vim/src/makefile.nt' fi if test -f 'vim/src/tag.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'vim/src/tag.c'\" else echo shar: Extracting \"'vim/src/tag.c'\" $11552 characters$ sed "s/^X//" >'vim/src/tag.c' <<'END_OF_FILE' X/* vi:ts=4:sw=4 X * X * VIM - Vi IMproved by Bram Moolenaar X * X * Read the file "credits.txt" for a list of people who contributed. X * Read the file "uganda.txt" for copying and usage conditions. X */ X X/* X * Code to handle tags and the tag stack X */ X X#include "vim.h" X#include "globals.h" X#include "proto.h" X#include "param.h" X Xstatic int findtag __ARGS((char_u *)); Xstatic char_u *bottommsg = (char_u *)"at bottom of tag stack"; Xstatic char_u *topmsg = (char_u *)"at top of tag stack"; X X/* X * Jump to tag; handling of tag stack X * X * *tag != NUL (:tag): jump to new tag, add to tag stack X * type == 1 (:pop) || type == 2 (CTRL-T): jump to old position X * type == 0 (:tag): jump to old tag X */ X void Xdotag(tag, type, count) X char_u *tag; X int type; X int count; X{ X int i; X struct taggy *tagstack = curwin->w_tagstack; X int tagstackidx = curwin->w_tagstackidx; X int tagstacklen = curwin->w_tagstacklen; X X if (*tag != NUL) /* new pattern, add to the stack */ X { X /* X * if last used entry is not at the top, delete all tag stack entries X * above it. X */ X while (tagstackidx < tagstacklen) X free(tagstack[--tagstacklen].tagname); X X /* if tagstack is full: remove oldest entry */ X if (++tagstacklen > TAGSTACKSIZE) X { X tagstacklen = TAGSTACKSIZE; X free(tagstack[0].tagname); X for (i = 1; i < tagstacklen; ++i) X tagstack[i - 1] = tagstack[i]; X --tagstackidx; X } X /* X * put the tag name in the tag stack X * the position is added below X */ X tagstack[tagstackidx].tagname = strsave(tag); X } X else if (tagstacklen == 0) /* empty stack */ X { X EMSG("tag stack empty"); X goto end_dotag; X } X else if (type) /* go to older position */ X { X if ((tagstackidx -= count) < 0) X { X emsg(bottommsg); X if (tagstackidx + count == 0) X { X /* We did ^T (or <num>^T) from the bottom of the stack */ X tagstackidx = 0; X goto end_dotag; X } X /* We weren't at the bottom of the stack, so jump all the way to X * the bottom. X */ X tagstackidx = 0; X } X else if (tagstackidx >= tagstacklen) /* must have been count == 0 */ X { X emsg(topmsg); X goto end_dotag; X } X if (tagstack[tagstackidx].fmark.fnum != curbuf->b_fnum) /* jump to other file */ X { X if (buflist_getfile(tagstack[tagstackidx].fmark.fnum, tagstack[tagstackidx].fmark.mark.lnum, TRUE) == FAIL) X { X /* emsg(e_notopen); */ X goto end_dotag; X } X } X else X curwin->w_cursor.lnum = tagstack[tagstackidx].fmark.mark.lnum; X curwin->w_cursor.col = tagstack[tagstackidx].fmark.mark.col; X curwin->w_set_curswant = TRUE; X goto end_dotag; X } X else /* go to newer pattern */ X { X if ((tagstackidx += count - 1) >= tagstacklen) X { X tagstackidx = tagstacklen - 1; X emsg(topmsg); X } X else if (tagstackidx < 0) /* must have been count == 0 */ X { X emsg(bottommsg); X tagstackidx = 0; X goto end_dotag; X } X } X /* X * For :tag [arg], remember position before the jump X */ X if (type == 0) X { X tagstack[tagstackidx].fmark.mark = curwin->w_cursor; X tagstack[tagstackidx].fmark.fnum = curbuf->b_fnum; X } X if (findtag(tagstack[tagstackidx].tagname) > 0) X ++tagstackidx; X Xend_dotag: X curwin->w_tagstackidx = tagstackidx; X curwin->w_tagstacklen = tagstacklen; X} X X/* X * Print the tag stack X */ X void Xdotags() X{ X int i; X char_u *name; X struct taggy *tagstack = curwin->w_tagstack; X int tagstackidx = curwin->w_tagstackidx; X int tagstacklen = curwin->w_tagstacklen; X X gotocmdline(TRUE, NUL); X msg_outstr((char_u *)"\n # TO tag FROM line in file\n"); X for (i = 0; i < tagstacklen; ++i) X { X if (tagstack[i].tagname != NULL) X { X name = fm_getname(&(tagstack[i].fmark)); X if (name == NULL) /* file name not available */ X continue; X X sprintf((char *)IObuff, "%c%2d %-15s %4ld %s\n", X i == tagstackidx ? '>' : ' ', X i + 1, X tagstack[i].tagname, X tagstack[i].fmark.mark.lnum, X name); X msg_outstr(IObuff); X } X flushbuf(); /* show one line at a time */ X } X if (tagstackidx == tagstacklen) /* idx at top of stack */ X msg_outstr((char_u *)">\n"); X wait_return(FALSE); X} X X/* X * findtag(tag) - goto tag X * return 0 for failure, 1 for success X */ X static int Xfindtag(tag) X char_u *tag; X{ X FILE *tp; X char_u lbuf[LSIZE]; X char_u pbuf[LSIZE]; /* search pattern buffer */ X char_u *fname, *str; X int cmplen; X char_u *m = (char_u *)"No tags file"; X char_u *marg = NULL; X register char_u *p; X char_u *p2; X char_u *np; /* pointer into file name string */ X char_u sbuf[CMDBUFFSIZE + 1]; /* tag file name */ X int i; X int save_secure; X int save_p_ws; X X if (tag == NULL) /* out of memory condition */ X return 0; X X if ((cmplen = p_tl) == 0) X cmplen = 999; X X /* get stack of tag file names from tags option */ X for (np = p_tags; *np; ) X { X for (i = 0; i < CMDBUFFSIZE && *np; ++i) /* copy next file name into lbuf */ X { X if (*np == ' ') X { X ++np; X break; X } X sbuf[i] = *np++; X } X sbuf[i] = 0; X if ((tp = fopen((char *)sbuf, "r")) == NULL) X continue; X reg_ic = p_ic; /* for cstrncmp() */ X while (fgets((char *)lbuf, LSIZE, tp) != NULL) X { X m = (char_u *)"Format error in tags file %s"; /* default error message */ X marg = sbuf; X X /* find start of file name, after first white space */ X fname = lbuf; X skiptospace(&fname); /* skip tag */ X if (*fname == NUL) X goto erret; X *fname++ = '\0'; X X if (cstrncmp(lbuf, tag, cmplen) == 0) /* Tag found */ X { X fclose(tp); X skipspace(&fname); X X /* find start of search command, after second white space */ X str = fname; X skiptospace(&str); X if (*str == NUL) X goto erret; X *str++ = '\0'; X skipspace(&str); X X /* X * If the command is a string like "/^function fname" X * scan through the search string. If we see a magic X * char, we have to quote it. This lets us use "real" X * implementations of ctags. X */ X if (*str == '/' || *str == '?') X { X p = pbuf; X *p++ = *str++; /* copy the '/' or '?' */ X if (*str == '^') X *p++ = *str++; /* copy the '^' */ X X while (*str) X { X switch (*str) X { X case '\\': if (str[1] == '(') /* remove '\' before '(' */ X ++str; X else X *p++ = *str++; X break; X X case '\r': X case '\n': *str = pbuf[0]; /* copy '/' or '?' */ X str[1] = NUL; /* delete NL after CR */ X break; X X /* X * if string ends in search character: skip it X * else escape it with '\' X */ X case '/': X case '?': if (*str != pbuf[0]) /* not the search char */ X break; X /* last char */ X if (str[1] == '\n' || str[1] == '\r') X { X ++str; X continue; X } X case '[': X if (!p_magic) X break; X case '^': X case '*': X case '.': *p++ = '\\'; X break; X } X *p++ = *str++; X } X } X else /* not a search command, just copy it */ X for (p = pbuf; *str && *str != '\n'; ) X *p++ = *str++; X *p = NUL; X X /* X * expand filename (for environment variables) X */ X if ((p = ExpandOne((char_u *)fname, 1, -1)) != NULL) X fname = p; X /* X * if 'tagrelative' option set, may change file name X */ X if (p_tr && !isFullName(fname) && (p2 = gettail(sbuf)) != sbuf) X { X STRNCPY(p2, fname, CMDBUFFSIZE - (p2 - sbuf)); X fname = sbuf; X } X /* X * check if file for tag exists before abandoning current file X */ X if (getperm(fname) < 0) X { X m = (char_u *)"File \"%s\" does not exist"; X marg = fname; X goto erret; X } X X RedrawingDisabled = TRUE; X /* X * if it was a CTRL-W CTRL-] command split window now X */ X if (postponed_split) X win_split(0L, FALSE); X i = getfile(fname, NULL, TRUE, (linenr_t)0); X if (p) X free(p); X if (i <= 0) X { X curwin->w_set_curswant = TRUE; X postponed_split = FALSE; X X RedrawingDisabled = FALSE; X save_secure = secure; X secure = 1; X tag_busy = TRUE; /* don't set marks for this search */ X keep_old_search_pattern = TRUE; X X /* X * if the command is a search, try here X * X * Rather than starting at line one, just turn wrap-scan X * on temporarily, this ensures that tags on line 1 will X * be found, and makes sure our guess searches search the X * whole file when repeated -- webb. X */ X if (pbuf[0] == '/' || pbuf[0] == '?') X { X save_p_ws = p_ws; X p_ws = TRUE; /* Switch wrap-scan on temporarily */ X if (!dosearch(pbuf[0], pbuf + 1, FALSE, (long)1, FALSE, FALSE)) X { X register int notfound = FALSE; X X /* X * Failed to find pattern, take a guess: X */ X sprintf((char *)pbuf, "^%s(", lbuf); X if (!dosearch('/', pbuf, FALSE, (long)1, FALSE, FALSE)) X { X /* Guess again: */ X sprintf((char *)pbuf, "^[#a-zA-Z_].*%s(", lbuf); X if (!dosearch('/', pbuf, FALSE, (long)1, FALSE, FALSE)) X notfound = TRUE; X } X if (notfound) X EMSG("Can't find tag pattern"); X else X { X MSG("Couldn't find tag, just guessing!"); X sleep(1); X } X } X p_ws = save_p_ws; X } X else X { X curwin->w_cursor.lnum = 1; /* start command in line 1 */ X docmdline(pbuf); X } X X tag_busy = FALSE; X keep_old_search_pattern = FALSE; X if (secure == 2) /* done something that is not allowed */ X wait_return(TRUE); X secure = save_secure; X X /* print the file message after redraw */ X if (p_im && i == -1) X stuffReadbuff((char_u *)"\033\007i"); /* ESC CTRL-G i */ X else X stuffcharReadbuff('\007'); /* CTRL-G */ X return 1; X } X RedrawingDisabled = FALSE; X if (postponed_split) /* close the window */ X { X close_window(FALSE); X postponed_split = FALSE; X } X return 0; X } X } X m = NULL; X Xerret: X fclose(tp); X if (m) X emsg2(m, marg); X } X if (m == NULL) X EMSG("tag not found"); X else if (marg == NULL) X emsg(m); X return 0; X} X X#ifdef WEBB_COMPLETE X int XExpandTags(prog, num_file, file) X regexp *prog; X int *num_file; X char_u ***file; X{ X char_u **matches, **new_matches; X char_u tag_file[CMDBUFFSIZE + 1]; X char_u line[LSIZE]; X char_u *np; X char_u *p; X int limit = 100; X int index; X int i; X int lnum; X FILE *fp; X X matches = (char_u **) alloc((unsigned)(limit * sizeof(char_u *))); X if (matches == NULL) X return FAIL; X index = 0; X for (np = p_tags; *np; ) X { X for (i = 0; i < CMDBUFFSIZE && *np && *np != ' '; i++) X tag_file[i] = *np++; X tag_file[i] = NUL; X skipspace(&np); X if ((fp = fopen((char *)tag_file, "r")) == NULL) X continue; X lnum = 0; X while (!vim_fgets(line, LSIZE, fp, &lnum)) X { X if (regexec(prog, line, TRUE)) X { X p = line; X skiptospace(&p); X *p = NUL; X if (index == limit) X { X limit *= 2; X new_matches = (char_u **) alloc((unsigned)(limit * sizeof(char_u *))); X if (new_matches == NULL) X { X /* We'll miss some matches, oh well */ X *file = matches; X *num_file = index; X return OK; X } X for (i = 0; i < index; i++) X new_matches[i] = matches[i]; X free(matches); X matches = new_matches; X } X matches[index++] = strsave(line); X } X } X } X if (index > 0) X { X new_matches = *file = (char_u **) alloc((unsigned)(index * sizeof(char_u *))); X if (new_matches == NULL) X { X *file = matches; X *num_file = index; X return OK; X } X for (i = 0; i < index; i++) X new_matches[i] = matches[i]; X } X free(matches); X *num_file = index; X return OK; X} X#endif /* WEBB_COMPLETE */ END_OF_FILE if test 11552 -ne `wc -c <'vim/src/tag.c'`; then echo shar: \"'vim/src/tag.c'\" unpacked with wrong size! fi # end of 'vim/src/tag.c' fi echo shar: End of archive 22 $of 26$. cp /dev/null ark22isdone MISSING="" for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 ; do if test ! -f ark${I}isdone ; then MISSING="${MISSING} ${I}" fi done if test "${MISSING}" = "" ; then echo You have unpacked all 26 archives. rm -f ark[1-9]isdone ark[1-9][0-9]isdone else echo You still must unpack the following archives: echo " " ${MISSING} fi exit 0 exit 0 # Just in case...