home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / editors / elvis1_5.arj / VI.C < prev    next >
C/C++ Source or Header  |  1992-04-09  |  22KB  |  816 lines
  1. /* vi.c */
  2.  
  3. /* Author:
  4.  *    Steve Kirkendall
  5.  *    Beaverton, OR 97005
  6.  *    kirkenda@cs.pdx.edu
  7.  */
  8.  
  9.  
  10. #include "config.h"
  11. #include "ctype.h"
  12. #include "vi.h"
  13.  
  14.  
  15.  
  16. /* This array describes what each key does */
  17. #define NO_FUNC        (MARK (*)())0
  18.  
  19. #define NO_ARGS        0
  20. #define CURSOR        1
  21. #define CURSOR_CNT_KEY    2
  22. #define CURSOR_MOVED    3
  23. #define CURSOR_EOL    4
  24. #define ZERO        5
  25. #define DIGIT        6
  26. #define CURSOR_TEXT    7
  27. #define KEYWORD        8
  28. #define ARGSMASK    0x0f
  29. #define    C_C_K_REP1    (CURSOR_CNT_KEY | 0x10)
  30. #define C_C_K_CUT    (CURSOR_CNT_KEY | 0x20)
  31. #define C_C_K_MARK    (CURSOR_CNT_KEY | 0x30)
  32. #define C_C_K_CHAR    (CURSOR_CNT_KEY | 0x40)
  33. #ifndef NO_SHOWMODE
  34. static int keymodes[] = {0, WHEN_REP1, WHEN_CUT, WHEN_MARK, WHEN_CHAR};
  35. # define KEYMODE(args) (keymodes[(args) >> 4])
  36. #else
  37. # define KEYMODE(args) 0
  38. #endif
  39.  
  40. static struct keystru
  41. {
  42.     MARK    (*func)();    /* the function to run */
  43.     uchar    args;        /* description of the args needed */
  44. #ifndef NO_VISIBLE
  45.     short    flags;
  46. #else
  47.     uchar    flags;        /* other stuff */
  48. #endif
  49. }
  50.     vikeys[] =
  51. {
  52. /* NUL not defined    */    {NO_FUNC,    NO_ARGS,    NO_FLAGS},
  53. #ifndef NO_EXTENSIONS
  54. /* ^A  find cursor word */    {m_wsrch,    KEYWORD,    MVMT|NREL|VIZ},
  55. #else
  56. /* ^A  not defined    */    {NO_FUNC,    NO_ARGS,    NO_FLAGS},
  57. #endif
  58. /* ^B  page backward    */    {m_scroll,    CURSOR,        FRNT|VIZ},
  59. /* ^C  not defined    */    {NO_FUNC,    NO_ARGS,    NO_FLAGS},
  60. /* ^D  scroll dn 1/2page*/    {m_scroll,    CURSOR,        NCOL|VIZ},
  61. /* ^E  scroll up    */    {m_scroll,    CURSOR,        NCOL|VIZ},
  62. /* ^F  page forward    */    {m_scroll,    CURSOR,        FRNT|VIZ},
  63. /* ^G  show file status    */    {v_status,    NO_ARGS,     NO_FLAGS},
  64. /* ^H  move left, like h*/    {m_left,    CURSOR,        MVMT|VIZ},
  65. /* ^I  not defined    */    {NO_FUNC,    NO_ARGS,    NO_FLAGS},
  66. /* ^J  move down    */    {m_updnto,    CURSOR,        MVMT|LNMD|VIZ|INCL},
  67. /* ^K  not defined    */    {NO_FUNC,    NO_ARGS,    NO_FLAGS},
  68. /* ^L  redraw screen    */    {v_redraw,    NO_ARGS,    NO_FLAGS|VIZ},
  69. /* ^M  mv front next ln */    {m_updnto,    CURSOR,        MVMT|FRNT|LNMD|VIZ|INCL},
  70. /* ^N  move down    */    {m_updnto,    CURSOR,        MVMT|LNMD|VIZ|INCL|NCOL},
  71. /* ^O  not defined    */    {NO_FUNC,    NO_ARGS,    NO_FLAGS},
  72. /* ^P  move up        */    {m_updnto,    CURSOR,        MVMT|LNMD|VIZ|INCL|NCOL},
  73. /* ^Q  not defined    */    {NO_FUNC,    NO_ARGS,    NO_FLAGS},
  74. /* ^R  redraw screen    */    {v_redraw,    NO_ARGS,    NO_FLAGS|VIZ},
  75. /* ^S  not defined    */    {NO_FUNC,    NO_ARGS,    NO_FLAGS},
  76. /* ^T  not defined    */    {NO_FUNC,    NO_ARGS,    NO_FLAGS},
  77. /* ^U  scroll up 1/2page*/    {m_scroll,    CURSOR,        NCOL|VIZ},
  78. /* ^V  not defined    */    {NO_FUNC,    NO_ARGS,    NO_FLAGS},
  79. /* ^W  not defined    */    {NO_FUNC,    NO_ARGS,    NO_FLAGS},
  80. /* ^X  move to phys col    */    {m_tocol,    CURSOR,        MVMT|NREL|VIZ},
  81. /* ^Y  scroll down    */    {m_scroll,    CURSOR,        NCOL|VIZ},
  82. #ifdef SIGTSTP
  83. /* ^Z  suspend elvis    */    {v_suspend,    NO_ARGS,    NO_FLAGS},
  84. #else
  85. /* ^Z  not defined    */    {NO_FUNC,    NO_ARGS,    NO_FLAGS},
  86. #endif
  87. /* ESC not defined    */    {NO_FUNC,    NO_ARGS,    NO_FLAGS},
  88. /* ^\  not defined    */    {NO_FUNC,    NO_ARGS,    NO_FLAGS},
  89. /* ^]  keyword is tag    */    {v_tag,        KEYWORD,    NO_FLAGS},
  90. /* ^^  previous file    */    {v_switch,    CURSOR,        NO_FLAGS},
  91. /* ^_  not defined    */    {NO_FUNC,    NO_ARGS,    NO_FLAGS},
  92. /* SPC move right,like l*/    {m_right,    CURSOR,        MVMT|INCL|VIZ},
  93. /*  !  run thru filter    */    {v_filter,    CURSOR_MOVED,    FRNT|LNMD|INCL|VIZ},
  94. /*  "  select cut buffer*/    {v_selcut,    C_C_K_CUT,    PTMV|VIZ},
  95. #ifndef NO_EXTENSIONS
  96. /*  #  increment number    */    {v_increment,    KEYWORD,    SDOT},
  97. #else
  98. /*  #  not defined    */    {NO_FUNC,    NO_ARGS,    NO_FLAGS},
  99. #endif
  100. /*  $  move to rear    */    {m_rear,    CURSOR,        MVMT|INCL|VIZ},
  101. /*  %  move to match    */    {m_match,    CURSOR,        MVMT|INCL|VIZ},
  102. /*  &  repeat subst    */    {v_again,    CURSOR_MOVED,    SDOT|NCOL|LNMD|INCL},
  103. /*  '  move to a mark    */    {m_tomark,    C_C_K_MARK,    MVMT|FRNT|NREL|LNMD|INCL|VIZ},
  104. #ifndef NO_SENTENCE
  105. /*  (  mv back sentence    */    {m_sentence,    CURSOR,        MVMT|VIZ},
  106. /*  )  mv fwd sentence    */    {m_sentence,    CURSOR,        MVMT|VIZ},
  107. #else
  108. /*  (  not defined    */    {NO_FUNC,    NO_ARGS,    NO_FLAGS},
  109. /*  )  not defined    */    {NO_FUNC,    NO_ARGS,    NO_FLAGS},
  110. #endif
  111. #ifndef NO_ERRLIST
  112. /*  *  errlist        */    {v_errlist,    CURSOR,        FRNT|NREL},
  113. #else
  114. /*  *  not defined    */    {NO_FUNC,    NO_ARGS,    NO_FLAGS},
  115. #endif
  116. /*  +  mv front next ln */    {m_updnto,    CURSOR,        MVMT|FRNT|LNMD|VIZ|INCL},
  117. #ifndef NO_CHARSEARCH
  118. /*  ,  reverse [fFtT] cmd*/    {m__ch,        CURSOR,        MVMT|INCL|VIZ},
  119. #else
  120. /*  ,  not defined    */    {NO_FUNC,    NO_ARGS,    NO_FLAGS},
  121. #endif
  122. /*  -  mv front prev ln    */    {m_updnto,    CURSOR,        MVMT|FRNT|LNMD|VIZ|INCL},
  123. /*  .  special...    */    {NO_FUNC,    NO_ARGS,    NO_FLAGS},
  124. /*  /  forward search    */    {m_fsrch,    CURSOR_TEXT,    MVMT|NREL|VIZ},
  125. /*  0  part of count?    */    {NO_FUNC,    ZERO,        MVMT|PTMV|VIZ},
  126. /*  1  part of count    */    {NO_FUNC,    DIGIT,        PTMV|VIZ},
  127. /*  2  part of count    */    {NO_FUNC,    DIGIT,        PTMV|VIZ},
  128. /*  3  part of count    */    {NO_FUNC,    DIGIT,        PTMV|VIZ},
  129. /*  4  part of count    */    {NO_FUNC,    DIGIT,        PTMV|VIZ},
  130. /*  5  part of count    */    {NO_FUNC,    DIGIT,        PTMV|VIZ},
  131. /*  6  part of count    */    {NO_FUNC,    DIGIT,        PTMV|VIZ},
  132. /*  7  part of count    */    {NO_FUNC,    DIGIT,        PTMV|VIZ},
  133. /*  8  part of count    */    {NO_FUNC,    DIGIT,        PTMV|VIZ},
  134. /*  9  part of count    */    {NO_FUNC,    DIGIT,        PTMV|VIZ},
  135. /*  :  run single EX cmd*/    {v_1ex,        CURSOR_TEXT,    NO_FLAGS},
  136. #ifndef NO_CHARSEARCH
  137. /*  ;  repeat [fFtT] cmd*/    {m__ch,        CURSOR,        MVMT|INCL|VIZ},
  138. #else
  139. /*  ;  not defined    */    {NO_FUNC,    NO_ARGS,    NO_FLAGS|VIZ},
  140. #endif
  141. /*  <  shift text left    */    {v_lshift,    CURSOR_MOVED,    SDOT|FRNT|LNMD|INCL|VIZ},
  142. /*  =  preset filter    */    {v_reformat,    CURSOR_MOVED,    SDOT|FRNT|LNMD|INCL|VIZ},
  143. /*  >  shift text right    */    {v_rshift,    CURSOR_MOVED,    SDOT|FRNT|LNMD|INCL|VIZ},
  144. /*  ?  backward search    */    {m_bsrch,    CURSOR_TEXT,    MVMT|NREL|VIZ},
  145. #ifndef NO_AT
  146. /*  @  execute a cutbuf */    {v_at,        C_C_K_CUT,    NO_FLAGS},
  147. #else
  148. /*  @  not defined    */    {NO_FUNC,    NO_ARGS,    NO_FLAGS},
  149. #endif
  150. /*  A  append at EOL    */    {v_insert,    CURSOR,        SDOT},
  151. /*  B  move back Word    */    {m_bword,    CURSOR,        MVMT|VIZ},
  152. /*  C  change to EOL    */    {v_change,    CURSOR_EOL,    SDOT},
  153. /*  D  delete to EOL    */    {v_delete,    CURSOR_EOL,    SDOT},
  154. /*  E  move end of Word    */    {m_eword,    CURSOR,        MVMT|INCL|VIZ},
  155. #ifndef NO_CHARSEARCH
  156. /*  F  move bk to char    */    {m_Fch,        C_C_K_CHAR,    MVMT|INCL|VIZ},
  157. #else
  158. /*  F  not defined    */    {NO_FUNC,    NO_ARGS,    NO_FLAGS},
  159. #endif
  160. /*  G  move to line #    */    {m_updnto,    CURSOR,        MVMT|NREL|LNMD|FRNT|INCL|VIZ},
  161. /*  H  move to row    */    {m_row,        CURSOR,        MVMT|LNMD|FRNT|VIZ|INCL},
  162. /*  I  insert at front    */    {v_insert,    CURSOR,        SDOT},
  163. /*  J  join lines    */    {v_join,    CURSOR,        SDOT},
  164. #ifndef NO_EXTENSIONS
  165. /*  K  look up keyword    */    {v_keyword,    KEYWORD,    NO_FLAGS},
  166. #else
  167. /*  K  not defined    */    {NO_FUNC,    NO_ARGS,    NO_FLAGS},
  168. #endif
  169. /*  L  move to last row    */    {m_row,        CURSOR,        MVMT|LNMD|FRNT|VIZ|INCL},
  170. /*  M  move to mid row    */    {m_row,        CURSOR,        MVMT|LNMD|FRNT|VIZ|INCL},
  171. /*  N  reverse prev srch*/    {m_Nsrch,    CURSOR,        MVMT|NREL|VIZ},
  172. /*  O  insert above line*/    {v_insert,    CURSOR,        SDOT},
  173. /*  P  paste before    */    {v_paste,    CURSOR,        SDOT},
  174. /*  Q  quit to EX mode    */    {v_quit,    NO_ARGS,    NO_FLAGS},
  175. /*  R  overtype        */    {v_overtype,    CURSOR,        SDOT},
  176. /*  S  change line    */    {v_change,    CURSOR_MOVED,    SDOT},
  177. #ifndef NO_CHARSEARCH
  178. /*  T  move bk to char    */    {m_Tch,        C_C_K_CHAR,    MVMT|INCL|VIZ},
  179. #else
  180. /*  T  not defined    */    {NO_FUNC,    NO_ARGS,    NO_FLAGS},
  181. #endif
  182. /*  U  undo whole line    */    {v_undoline,    CURSOR,        FRNT},
  183. #ifndef NO_VISIBLE
  184. /*  V  start visible    */    {v_start,    CURSOR,        INCL|LNMD|VIZ},
  185. #else
  186. /*  V  not defined    */    {NO_FUNC,    NO_ARGS,    NO_FLAGS},
  187. #endif
  188. /*  W  move forward Word*/    {m_fword,    CURSOR,        MVMT|INCL|VIZ},
  189. /*  X  delete to left    */    {v_xchar,    CURSOR,        SDOT},
  190. /*  Y  yank text    */    {v_yank,    CURSOR_MOVED,    NCOL},
  191. /*  Z  save file & exit    */    {v_xit,        CURSOR_CNT_KEY,    NO_FLAGS},
  192. /*  [  move back section*/    {m_paragraph,    CURSOR,        MVMT|LNMD|NREL|VIZ},
  193. #ifndef NO_POPUP
  194. /*  \  pop-up menu    */    {v_popup,    CURSOR_MOVED,    VIZ},
  195. #else
  196. /*  \  not defined    */    {NO_FUNC,    NO_ARGS,    NO_FLAGS},
  197. #endif
  198. /*  ]  move fwd section */    {m_paragraph,    CURSOR,        MVMT|LNMD|NREL|VIZ},
  199. /*  ^  move to front    */    {m_front,    CURSOR,        MVMT|VIZ},
  200. /*  _  current line    */    {m_updnto,    CURSOR,        MVMT|LNMD|FRNT|INCL},
  201. /*  `  move to mark    */    {m_tomark,    C_C_K_MARK,    MVMT|NREL|VIZ},
  202. /*  a  append at cursor    */    {v_insert,    CURSOR,        SDOT},
  203. /*  b  move back word    */    {m_bword,    CURSOR,        MVMT|VIZ},
  204. /*  c  change text    */    {v_change,    CURSOR_MOVED,    SDOT|VIZ},
  205. /*  d  delete op    */    {v_delete,    CURSOR_MOVED,    SDOT|VIZ},
  206. /*  e  move end word    */    {m_eword,    CURSOR,        MVMT|INCL|VIZ},
  207. #ifndef NO_CHARSEARCH
  208. /*  f  move fwd for char*/    {m_fch,        C_C_K_CHAR,    MVMT|INCL|VIZ},
  209. #else
  210. /*  f  not defined    */    {NO_FUNC,    NO_ARGS,    NO_FLAGS},
  211. #endif
  212. /*  g  not defined    */    {NO_FUNC,    NO_ARGS,    NO_FLAGS},
  213. /*  h  move left    */    {m_left,    CURSOR,        MVMT|VIZ},
  214. /*  i  insert at cursor    */    {v_insert,    CURSOR,        SDOT},
  215. /*  j  move down    */    {m_updnto,    CURSOR,        MVMT|NCOL|LNMD|VIZ|INCL},
  216. /*  k  move up        */    {m_updnto,    CURSOR,        MVMT|NCOL|LNMD|VIZ|INCL},
  217. /*  l  move right    */    {m_right,    CURSOR,        MVMT|INCL|VIZ},
  218. /*  m  define a mark    */    {v_mark,    C_C_K_MARK,    NO_FLAGS},
  219. /*  n  repeat prev srch    */    {m_nsrch,    CURSOR,     MVMT|NREL|VIZ},
  220. /*  o  insert below line*/    {v_insert,    CURSOR,        SDOT},
  221. /*  p  paste after    */    {v_paste,    CURSOR,        SDOT},
  222. /*  q  not defined    */    {NO_FUNC,    NO_ARGS,    NO_FLAGS},
  223. /*  r  replace chars    */    {v_replace,    C_C_K_REP1,    SDOT},
  224. /*  s  subst N chars    */    {v_subst,    CURSOR,        SDOT},
  225. #ifndef NO_CHARSEARCH
  226. /*  t  move fwd to char    */    {m_tch,        C_C_K_CHAR,    MVMT|INCL|VIZ},
  227. #else
  228. /*  t  not defined    */    {NO_FUNC,    NO_ARGS,    NO_FLAGS},
  229. #endif
  230. /*  u  undo        */    {v_undo,    CURSOR,        NO_FLAGS},
  231. #ifndef NO_VISIBLE
  232. /*  v  start visible    */    {v_start,    CURSOR,        INCL|VIZ},
  233. #else
  234. /*  v  not defined    */    {NO_FUNC,    NO_ARGS,    NO_FLAGS},
  235. #endif
  236. /*  w  move fwd word    */    {m_fword,    CURSOR,        MVMT|INCL|VIZ},
  237. /*  x  delete character    */    {v_xchar,    CURSOR,        SDOT},
  238. /*  y  yank text    */    {v_yank,    CURSOR_MOVED,    NCOL|VIZ},
  239. /*  z  adjust scrn row    */    {m_z,         CURSOR_CNT_KEY,    NCOL|VIZ},
  240. /*  {  back paragraph    */    {m_paragraph,    CURSOR,        MVMT|LNMD|VIZ},
  241. /*  |  move to column    */    {m_tocol,    CURSOR,        MVMT|NREL|VIZ},
  242. /*  }  fwd paragraph    */    {m_paragraph,    CURSOR,        MVMT|LNMD|VIZ},
  243. /*  ~  upper/lowercase    */    {v_ulcase,    CURSOR,        SDOT},
  244. /* DEL not defined    */    {NO_FUNC,    NO_ARGS,    NO_FLAGS}
  245. };
  246.  
  247.  
  248.  
  249. void vi()
  250. {
  251.     REG int            key;    /* keystroke from user */
  252.     long            count;    /* numeric argument to some functions */
  253.     REG struct keystru    *keyptr;/* pointer to vikeys[] element */
  254.     MARK            tcurs;    /* temporary cursor */
  255.     int            prevkey;/* previous key, if d/c/y/</>/! */
  256.     MARK            range;    /* start of range for d/c/y/</>/! */
  257.     char            text[132];
  258.     int            dotkey;    /* last "key" of a change */
  259.     int            dotpkey;/* last "prevkey" of a change */
  260.     int            dotkey2;/* last extra "getkey()" of a change */
  261.     int            dotcnt;    /* last "count" of a change */
  262.     int            firstkey;
  263.     REG int            i;
  264.  
  265.     /* tell the redraw() function to start from scratch */
  266.     redraw(MARK_UNSET, FALSE);
  267.  
  268. #ifdef lint
  269.     /* lint says that "range" might be used before it is set.  This
  270.      * can't really happen due to the way "range" and "prevkey" are used,
  271.      * but lint doesn't know that.  This line is here ONLY to keep lint
  272.      * happy.
  273.      */
  274.     range = 0L;
  275. #endif
  276.  
  277.     /* safeguard against '.' with no previous command */
  278.     dotkey = dotpkey = dotkey2 = dotcnt = 0;
  279.  
  280.     /* go immediately into insert mode, if ":set inputmode" */
  281.     firstkey = 0;
  282. #ifndef NO_EXTENSIONS
  283.     if (*o_inputmode)
  284.     {
  285.         firstkey = 'i';
  286.     }
  287. #endif
  288.  
  289.     /* Repeatedly handle VI commands */
  290.     for (count = 0, prevkey = '\0'; mode == MODE_VI; )
  291.     {
  292.         /* if we've moved off the undoable line, then we can't undo it at all */
  293.         if (markline(cursor) != U_line)
  294.         {
  295.             U_line = 0L;
  296.         }
  297.  
  298.         /* report any changes from the previous command */
  299.         if (rptlines >= *o_report)
  300.         {
  301.             redraw(cursor, FALSE);
  302.             msg("%ld line%s %s", rptlines, (rptlines==1?"":"s"), rptlabel);
  303.         }
  304.         rptlines = 0L;
  305.  
  306.         /* get the next command key.  It must be ASCII */
  307.         if (firstkey)
  308.         {
  309.             key = firstkey;
  310.             firstkey = 0;
  311.         }
  312.         else
  313.         {
  314.             do
  315.             {
  316.                 key = getkey(WHEN_VICMD);
  317.             } while (key < 0 || key > 127);
  318.         }
  319.  
  320.         /* Convert a doubled-up operator such as "dd" into "d_" */
  321.         if (prevkey && key == prevkey)
  322.         {
  323.             key = '_';
  324.         }
  325.  
  326.         /* look up the structure describing this command */
  327.         keyptr = &vikeys[key];
  328.  
  329.         /* '&' and uppercase operators always act like doubled */
  330.         if (!prevkey && keyptr->args == CURSOR_MOVED
  331.             && (key == '&' || isupper(key)))
  332.         {
  333.             range = cursor;
  334.             prevkey = key;
  335.             key = '_';
  336.             keyptr = &vikeys[key];
  337.         }
  338.  
  339. #ifndef NO_VISIBLE
  340.         /* if we're in the middle of a v/V command, reject commands
  341.          * that aren't operators or movement commands
  342.          */
  343.         if (V_from && !(keyptr->flags & VIZ))
  344.         {
  345.             beep();
  346.             prevkey = 0;
  347.             count = 0;
  348.             continue;
  349.         }
  350. #endif
  351.  
  352.         /* if we're in the middle of a d/c/y/</>/! command, reject
  353.          * anything but movement.
  354.          */
  355.         if (prevkey && !(keyptr->flags & (MVMT|PTMV)))
  356.         {
  357.             beep();
  358.             prevkey = 0;
  359.             count = 0;
  360.             continue;
  361.         }
  362.  
  363.         /* set the "dot" variables, if we're supposed to */
  364.         if (((keyptr->flags & SDOT)
  365.             || (prevkey && vikeys[prevkey].flags & SDOT))
  366. #ifndef NO_VISIBLE
  367.             && !V_from
  368. #endif
  369.         )
  370.         {
  371.             dotkey = key;
  372.             dotpkey = prevkey;
  373.             dotkey2 = '\0';
  374.             dotcnt = count;
  375.  
  376.             /* remember the line before any changes are made */
  377.             if (U_line != markline(cursor))
  378.             {
  379.                 U_line = markline(cursor);
  380.                 strcpy(U_text, fetchline(U_line));
  381.             }
  382.         }
  383.  
  384.         /* if this is "." then set other vars from the "dot" vars */
  385.         if (key == '.')
  386.         {
  387.             key = dotkey;
  388.             keyptr = &vikeys[key];
  389.             prevkey = dotpkey;
  390.             if (prevkey)
  391.             {
  392.                 range = cursor;
  393.             }
  394.             if (count == 0)
  395.             {
  396.                 count = dotcnt;
  397.             }
  398.             doingdot = TRUE;
  399.  
  400.             /* remember the line before any changes are made */
  401.             if (U_line != markline(cursor))
  402.             {
  403.                 U_line = markline(cursor);
  404.                 strcpy(U_text, fetchline(U_line));
  405.             }
  406.         }
  407.         else
  408.         {
  409.             doingdot = FALSE;
  410.         }
  411.  
  412.         /* process the key as a command */
  413.         tcurs = cursor;
  414.         force_flags = NO_FLAGS;
  415.         switch (keyptr->args & ARGSMASK)
  416.         {
  417.           case ZERO:
  418.             if (count == 0)
  419.             {
  420.                 tcurs = cursor & ~(BLKSIZE - 1);
  421.                 break;
  422.             }
  423.             /* else fall through & treat like other digits... */
  424.  
  425.           case DIGIT:
  426.             count = count * 10 + key - '0';
  427.             break;
  428.  
  429.           case KEYWORD:
  430.             /* if not on a keyword, fail */
  431.             pfetch(markline(cursor));
  432.             key = markidx(cursor);
  433.             if (!isalnum(ptext[key]))
  434.             {
  435.                 tcurs = MARK_UNSET;
  436.                 break;
  437.             }
  438.  
  439.             /* find the start of the keyword */
  440.             while (key > 0 && isalnum(ptext[key - 1]))
  441.             {
  442.                 key--;
  443.             }
  444.             tcurs = (cursor & ~(BLKSIZE - 1)) + key;
  445.  
  446.             /* copy it into a buffer, and NUL-terminate it */
  447.             i = 0;
  448.             do
  449.             {
  450.                 text[i++] = ptext[key++];
  451.             } while (isalnum(ptext[key]));
  452.             text[i] = '\0';
  453.  
  454.             /* call the function */
  455.             tcurs = (*keyptr->func)(text, tcurs, count);
  456.             count = 0L;
  457.             break;
  458.  
  459.           case NO_ARGS:
  460.             if (keyptr->func)
  461.             {
  462.                 (*keyptr->func)();
  463.             }
  464.             else
  465.             {
  466.                 beep();
  467.             }
  468.             count = 0L;
  469.             break;
  470.     
  471.           case CURSOR:
  472.             tcurs = (*keyptr->func)(cursor, count, key, prevkey);
  473.             count = 0L;
  474.             break;
  475.  
  476.           case CURSOR_CNT_KEY:
  477.             if (doingdot)
  478.             {
  479.                 tcurs = (*keyptr->func)(cursor, count, dotkey2);
  480.             }
  481.             else
  482.             {
  483.                 /* get a key */
  484.                 i = getkey(KEYMODE(keyptr->args));
  485.                 if (i == '\033') /* ESC */
  486.                 {
  487.                     count = 0;
  488.                     tcurs = MARK_UNSET;
  489.                     break; /* exit from "case CURSOR_CNT_KEY" */
  490.                 }
  491.                 else if (i == ctrl('V'))
  492.                 {
  493.                     i = getkey(0);
  494.                 }
  495.  
  496.                 /* if part of an SDOT command, remember it */
  497.                  if (keyptr->flags & SDOT
  498.                  || (prevkey && vikeys[prevkey].flags & SDOT))
  499.                 {
  500.                     dotkey2 = i;
  501.                 }
  502.  
  503.                 /* do it */
  504.                 tcurs = (*keyptr->func)(cursor, count, i);
  505.             }
  506.             count = 0L;
  507.             break;
  508.     
  509.           case CURSOR_MOVED:
  510. #ifndef NO_VISIBLE
  511.             if (V_from)
  512.             {
  513.                 range = cursor;
  514.                 tcurs = V_from;
  515.                 count = 0L;
  516.                 prevkey = key;
  517.                 key = (V_linemd ? 'V' : 'v');
  518.                 keyptr = &vikeys[key];
  519.             }
  520.             else
  521. #endif
  522.             {
  523.                 prevkey = key;
  524.                 range = cursor;
  525.                 force_flags = LNMD|INCL;
  526.             }
  527.             break;
  528.  
  529.           case CURSOR_EOL:
  530.             prevkey = key;
  531.             /* a zero-length line needs special treatment */
  532.             pfetch(markline(cursor));
  533.             if (plen == 0)
  534.             {
  535.                 /* act on a zero-length section of text */
  536.                 range = tcurs = cursor;
  537.                 key = '0';
  538.             }
  539.             else
  540.             {
  541.                 /* act like CURSOR_MOVED with '$' movement */
  542.                 range = cursor;
  543.                 tcurs = m_rear(cursor, 1L);
  544.                 key = '$';
  545.             }
  546.             count = 0L;
  547.             keyptr = &vikeys[key];
  548.             break;
  549.  
  550.           case CURSOR_TEXT:
  551.               do
  552.               {    
  553.                 text[0] = key;
  554.                 if (vgets(key, text + 1, sizeof text - 1) >= 0)
  555.                 {
  556.                     /* reassure user that <CR> was hit */
  557.                     qaddch('\r');
  558.                     refresh();
  559.  
  560.                     /* call the function with the text */
  561.                     tcurs = (*keyptr->func)(cursor, text);
  562.                 }
  563.                 else
  564.                 {
  565.                     if (exwrote || mode == MODE_COLON)
  566.                     {
  567.                         redraw(MARK_UNSET, FALSE);
  568.                     }
  569.                     mode = MODE_VI;
  570.                 }
  571.             } while (mode == MODE_COLON);
  572.             count = 0L;
  573.             break;
  574.         }
  575.  
  576.         /* if that command took us out of vi mode, then exit the loop
  577.          * NOW, without tweaking the cursor or anything.  This is very
  578.          * important when mode == MODE_QUIT.
  579.          */
  580.         if (mode != MODE_VI)
  581.         {
  582.             break;
  583.         }
  584.  
  585.         /* now move the cursor, as appropriate */
  586.         if (keyptr->args == CURSOR_MOVED)
  587.         {
  588.             /* the < and > keys have FRNT,
  589.              * but it shouldn't be applied yet
  590.              */
  591.             tcurs = adjmove(cursor, tcurs, 0);
  592.         }
  593.         else
  594.         {
  595.             tcurs = adjmove(cursor, tcurs, (int)keyptr->flags | force_flags);
  596.         }
  597.  
  598.         /* was that the end of a d/c/y/</>/! command? */
  599.         if (prevkey && ((keyptr->flags & MVMT)
  600. #ifndef NO_VISIBLE
  601.                            || V_from
  602. #endif
  603.                 ) && count == 0L)
  604.         {
  605. #ifndef NO_VISIBLE
  606.             /* turn off the hilight */
  607.             V_from = 0L;
  608. #endif
  609.  
  610.             /* if the movement command failed, cancel operation */
  611.             if (tcurs == MARK_UNSET)
  612.             {
  613.                 prevkey = 0;
  614.                 count = 0;
  615.                 continue;
  616.             }
  617.  
  618.             /* make sure range=front and tcurs=rear.  Either way,
  619.              * leave cursor=range since that's where we started.
  620.              */
  621.             cursor = range;
  622.             if (tcurs < range)
  623.             {
  624.                 range = tcurs;
  625.                 tcurs = cursor;
  626.             }
  627.  
  628.             /* The 'w' and 'W' destinations should never take us
  629.              * to the front of a line.  Instead, they should take
  630.              * us only to the end of the preceding line.
  631.              */
  632.             if ((keyptr->flags & (MVMT|NREL|LNMD|FRNT|INCL)) == MVMT
  633.               && markline(range) < markline(tcurs)
  634.               && (markline(tcurs) > nlines || tcurs == m_front(tcurs, 0L)))
  635.             {
  636.                 tcurs = (tcurs & ~(BLKSIZE - 1)) - BLKSIZE;
  637.                 pfetch(markline(tcurs));
  638.                 tcurs += plen;
  639.             }
  640.  
  641.             /* adjust for line mode & inclusion of last char/line */
  642.             i = (keyptr->flags | vikeys[prevkey].flags);
  643.             switch ((i | force_flags) & (INCL|LNMD))
  644.             {
  645.               case INCL:
  646.                 tcurs++;
  647.                 break;
  648.  
  649.               case INCL|LNMD:
  650.                 tcurs += BLKSIZE;
  651.                 /* fall through... */
  652.  
  653.               case LNMD:
  654.                 range &= ~(BLKSIZE - 1);
  655.                 tcurs &= ~(BLKSIZE - 1);
  656.                 break;
  657.             }
  658.  
  659.             /* run the function */
  660.             tcurs = (*vikeys[prevkey].func)(range, tcurs);
  661.             if (mode == MODE_VI)
  662.             {
  663.                 (void)adjmove(cursor, cursor, 0);
  664.                 cursor = adjmove(cursor, tcurs, (int)vikeys[prevkey].flags);
  665.             }
  666.  
  667.             /* cleanup */
  668.             prevkey = 0;
  669.         }
  670.         else if (!prevkey)
  671.         {
  672.             if (tcurs != MARK_UNSET)
  673.                 cursor = tcurs;
  674.         }
  675.     }
  676. }
  677.  
  678. /* This function adjusts the MARK value that they return; here we make sure
  679.  * it isn't past the end of the line, and that the column hasn't been
  680.  * *accidentally* changed.
  681.  */
  682. MARK adjmove(old, new, flags)
  683.     MARK        old;    /* the cursor position before the command */
  684.     REG MARK    new;    /* the cursor position after the command */
  685.     int        flags;    /* various flags regarding cursor mvmt */
  686. {
  687.     static int    colno;    /* the column number that we want */
  688.     REG char    *text;    /* used to scan through the line's text */
  689.     REG int        i;
  690.  
  691. #ifdef DEBUG
  692.     watch();
  693. #endif
  694.  
  695.     /* if the command failed, bag it! */
  696.     if (new == MARK_UNSET)
  697.     {
  698.         beep();
  699.         return old;
  700.     }
  701.  
  702.     /* if this is a non-relative movement, set the '' mark */
  703.     if (flags & NREL)
  704.     {
  705.         mark[26] = old;
  706.     }
  707.  
  708.     /* make sure it isn't past the end of the file */
  709.     if (markline(new) < 1)
  710.     {
  711.         new = MARK_FIRST;
  712.     }
  713.     else if (markline(new) > nlines)
  714.     {
  715.         new = MARK_LAST;
  716.     }
  717.  
  718.     /* fetch the new line */
  719.     pfetch(markline(new));
  720.  
  721.     /* move to the front, if we're supposed to */
  722.     if (flags & FRNT)
  723.     {
  724.         new = m_front(new, 1L);
  725.     }
  726.  
  727.     /* change the column#, or change the mark to suit the column# */
  728.     if (!(flags & NCOL))
  729.     {
  730.         /* change the column# */
  731.         i = markidx(new);
  732.         if (i == BLKSIZE - 1)
  733.         {
  734.             new &= ~(BLKSIZE - 1);
  735.             if (plen > 0)
  736.             {
  737.                 new += plen - 1;
  738.             }
  739.             colno = BLKSIZE * 8; /* one heck of a big colno */
  740.         }
  741.         else if (plen > 0)
  742.         {
  743.             if (i >= plen)
  744.             {
  745.                 new = (new & ~(BLKSIZE - 1)) + plen - 1;
  746.             }
  747.             colno = idx2col(new, ptext, FALSE);
  748.         }
  749.         else
  750.         {
  751.             new &= ~(BLKSIZE - 1);
  752.             colno = 0;
  753.         }
  754.     }
  755.     else
  756.     {
  757.         /* adjust the mark to get as close as possible to column# */
  758.         for (i = 0, text = ptext; i <= colno && *text; text++)
  759.         {
  760.             if (*text == '\t' && !*o_list)
  761.             {
  762.                 i += *o_tabstop - (i % *o_tabstop);
  763.             }
  764.             else if (UCHAR(*text) < ' ' || *text == 127)
  765.             {
  766.                 i += 2;
  767.             }
  768. #ifndef NO_CHARATTR
  769.             else if (*o_charattr && text[0] == '\\' && text[1] == 'f' && text[2])
  770.             {
  771.                 text += 2; /* plus one more in "for()" stmt */
  772.             }
  773. #endif
  774.             else
  775.             {
  776.                 i++;
  777.             }
  778.         }
  779.         if (text > ptext)
  780.         {
  781.             text--;
  782.         }
  783.         new = (new & ~(BLKSIZE - 1)) + (int)(text - ptext);
  784.     }
  785.  
  786.     return new;
  787. }
  788.  
  789.  
  790. #ifdef DEBUG
  791. watch()
  792. {
  793.     static wasset;
  794.  
  795.     if (*origname)
  796.     {
  797.         wasset = TRUE;
  798.     }
  799.     else if (wasset)
  800.     {
  801.         mode = MODE_EX;
  802.         msg("origname was clobbered");
  803.         endwin();
  804.         abort();
  805.     }
  806.  
  807.     if (wasset && nlines == 0)
  808.     {
  809.         mode = MODE_EX;
  810.         msg("nlines=0");
  811.         endwin();
  812.         abort();
  813.     }
  814. }
  815. #endif
  816.