home *** CD-ROM | disk | FTP | other *** search
/ vim.ftp.fu-berlin.de / 2015-02-03.vim.ftp.fu-berlin.de.tar / vim.ftp.fu-berlin.de / patches / 7.3 / 7.3.1039 < prev    next >
Encoding:
Internet Message Format  |  2013-05-28  |  9.9 KB
  1. To: vim_dev@googlegroups.com
  2. Subject: Patch 7.3.1039
  3. Fcc: outbox
  4. From: Bram Moolenaar <Bram@moolenaar.net>
  5. Mime-Version: 1.0
  6. Content-Type: text/plain; charset=UTF-8
  7. Content-Transfer-Encoding: 8bit
  8. ------------
  9.  
  10. Patch 7.3.1039
  11. Problem:    New regexp engine does not support \%23c, \%<23c and the like. 
  12. Solution:   Implement them. (partly by Yasuhiro Matsumoto)
  13. Files:        src/regexp.h, src/regexp_nfa.c, src/testdir/test64.in,
  14.         src/testdir/test64.ok
  15.  
  16.  
  17. *** ../vim-7.3.1038/src/regexp.h    2013-05-28 22:03:13.000000000 +0200
  18. --- src/regexp.h    2013-05-29 20:35:35.000000000 +0200
  19. ***************
  20. *** 72,77 ****
  21. --- 72,78 ----
  22.       int            id;
  23.       int            lastlist;
  24.       int            negated;
  25. +     int            val;
  26.   };
  27.   
  28.   /*
  29. *** ../vim-7.3.1038/src/regexp_nfa.c    2013-05-29 18:45:07.000000000 +0200
  30. --- src/regexp_nfa.c    2013-05-29 20:59:34.000000000 +0200
  31. ***************
  32. *** 117,122 ****
  33. --- 117,134 ----
  34.       NFA_NLOWER,        /*    Match non-lowercase char */
  35.       NFA_UPPER,        /*    Match uppercase char */
  36.       NFA_NUPPER,        /*    Match non-uppercase char */
  37. + 
  38. +     NFA_CURSOR,        /*    Match cursor pos */
  39. +     NFA_LNUM,        /*    Match line number */
  40. +     NFA_LNUM_GT,    /*    Match > line number */
  41. +     NFA_LNUM_LT,    /*    Match < line number */
  42. +     NFA_COL,        /*    Match cursor column */
  43. +     NFA_COL_GT,        /*    Match > cursor column */
  44. +     NFA_COL_LT,        /*    Match < cursor column */
  45. +     NFA_VCOL,        /*    Match cursor virtual column */
  46. +     NFA_VCOL_GT,    /*    Match > cursor virtual column */
  47. +     NFA_VCOL_LT,    /*    Match < cursor virtual column */
  48. + 
  49.       NFA_FIRST_NL = NFA_ANY + ADD_NL,
  50.       NFA_LAST_NL = NFA_NUPPER + ADD_NL,
  51.   
  52. ***************
  53. *** 205,214 ****
  54.   static nfa_state_T *post2nfa __ARGS((int *postfix, int *end, int nfa_calc_size));
  55.   static int check_char_class __ARGS((int class, int c));
  56.   static void st_error __ARGS((int *postfix, int *end, int *p));
  57.   static void nfa_save_listids __ARGS((nfa_state_T *start, int *list));
  58.   static void nfa_restore_listids __ARGS((nfa_state_T *start, int *list));
  59. ! static void nfa_set_null_listids __ARGS((nfa_state_T *start));
  60. ! static void nfa_set_neg_listids __ARGS((nfa_state_T *start));
  61.   static long nfa_regtry __ARGS((nfa_state_T *start, colnr_T col));
  62.   static long nfa_regexec_both __ARGS((char_u *line, colnr_T col));
  63.   static regprog_T *nfa_regcomp __ARGS((char_u *expr, int re_flags));
  64. --- 217,227 ----
  65.   static nfa_state_T *post2nfa __ARGS((int *postfix, int *end, int nfa_calc_size));
  66.   static int check_char_class __ARGS((int class, int c));
  67.   static void st_error __ARGS((int *postfix, int *end, int *p));
  68. + static void nfa_set_neg_listids __ARGS((nfa_state_T *start));
  69. + static void nfa_set_null_listids __ARGS((nfa_state_T *start));
  70.   static void nfa_save_listids __ARGS((nfa_state_T *start, int *list));
  71.   static void nfa_restore_listids __ARGS((nfa_state_T *start, int *list));
  72. ! static int nfa_re_num_cmp __ARGS((long_u val, int op, long_u pos));
  73.   static long nfa_regtry __ARGS((nfa_state_T *start, colnr_T col));
  74.   static long nfa_regexec_both __ARGS((char_u *line, colnr_T col));
  75.   static regprog_T *nfa_regcomp __ARGS((char_u *expr, int re_flags));
  76. ***************
  77. *** 831,838 ****
  78.               break;
  79.   
  80.           case '#':
  81. !             /* TODO: not supported yet */
  82. !             return FAIL;
  83.               break;
  84.   
  85.           case 'V':
  86. --- 844,850 ----
  87.               break;
  88.   
  89.           case '#':
  90. !             EMIT(NFA_CURSOR);
  91.               break;
  92.   
  93.           case 'V':
  94. ***************
  95. *** 844,866 ****
  96.               /* TODO: \%[abc] not supported yet */
  97.               return FAIL;
  98.   
  99. -         case '0':
  100. -         case '1':
  101. -         case '2':
  102. -         case '3':
  103. -         case '4':
  104. -         case '5':
  105. -         case '6':
  106. -         case '7':
  107. -         case '8':
  108. -         case '9':
  109. -         case '<':
  110. -         case '>':
  111. -         case '\'':
  112. -             /* TODO: not supported yet */
  113. -             return FAIL;
  114. - 
  115.           default:
  116.               syntax_error = TRUE;
  117.               EMSGN(_("E867: (NFA) Unknown operator '\\%%%c'"),
  118.                                    no_Magic(c));
  119. --- 856,891 ----
  120.               /* TODO: \%[abc] not supported yet */
  121.               return FAIL;
  122.   
  123.           default:
  124. +             {
  125. +             long_u    n = 0;
  126. +             int    cmp = c;
  127. + 
  128. +             if (c == '<' || c == '>')
  129. +                 c = getchr();
  130. +             while (VIM_ISDIGIT(c))
  131. +             {
  132. +                 n = n * 10 + (c - '0');
  133. +                 c = getchr();
  134. +             }
  135. +             if (c == 'l' || c == 'c' || c == 'v')
  136. +             {
  137. +                 EMIT(n);
  138. +                 if (c == 'l')
  139. +                 EMIT(cmp == '<' ? NFA_LNUM_LT :
  140. +                     cmp == '>' ? NFA_LNUM_GT : NFA_LNUM);
  141. +                 else if (c == 'c')
  142. +                 EMIT(cmp == '<' ? NFA_COL_LT :
  143. +                     cmp == '>' ? NFA_COL_GT : NFA_COL);
  144. +                 else
  145. +                 EMIT(cmp == '<' ? NFA_VCOL_LT :
  146. +                     cmp == '>' ? NFA_VCOL_GT : NFA_VCOL);
  147. +                 break;
  148. +             }
  149. +             else if (c == '\'')
  150. +                 /* TODO: \%'m not supported yet */
  151. +                 return FAIL;
  152. +             }
  153.               syntax_error = TRUE;
  154.               EMSGN(_("E867: (NFA) Unknown operator '\\%%%c'"),
  155.                                    no_Magic(c));
  156. ***************
  157. *** 1679,1684 ****
  158. --- 1704,1711 ----
  159.   
  160.       case NFA_PREV_ATOM_NO_WIDTH:
  161.                   STRCPY(code, "NFA_PREV_ATOM_NO_WIDTH"); break;
  162. +     case NFA_PREV_ATOM_NO_WIDTH_NEG:
  163. +                 STRCPY(code, "NFA_PREV_ATOM_NO_WIDTH_NEG"); break;
  164.       case NFA_NOPEN:            STRCPY(code, "NFA_MOPEN_INVISIBLE"); break;
  165.       case NFA_NCLOSE:        STRCPY(code, "NFA_MCLOSE_INVISIBLE"); break;
  166.       case NFA_START_INVISIBLE:   STRCPY(code, "NFA_START_INVISIBLE"); break;
  167. ***************
  168. *** 2444,2449 ****
  169. --- 2471,2498 ----
  170.           PUSH(frag(s, list1(&s1->out)));
  171.           break;
  172.   
  173. +     case NFA_LNUM:
  174. +     case NFA_LNUM_GT:
  175. +     case NFA_LNUM_LT:
  176. +     case NFA_VCOL:
  177. +     case NFA_VCOL_GT:
  178. +     case NFA_VCOL_LT:
  179. +     case NFA_COL:
  180. +     case NFA_COL_GT:
  181. +     case NFA_COL_LT:
  182. +         if (nfa_calc_size == TRUE)
  183. +         {
  184. +         nstate += 1;
  185. +         break;
  186. +         }
  187. +         e1 = POP();
  188. +         s = new_state(*p, NULL, NULL);
  189. +         if (s == NULL)
  190. +         goto theend;
  191. +         s->val = e1.start->c;
  192. +         PUSH(frag(s, list1(&s->out)));
  193. +         break;
  194. + 
  195.       case NFA_ZSTART:
  196.       case NFA_ZEND:
  197.       default:
  198. ***************
  199. *** 3076,3081 ****
  200. --- 3125,3141 ----
  201.       }
  202.   }
  203.   
  204. +     static int
  205. + nfa_re_num_cmp(val, op, pos)
  206. +     long_u    val;
  207. +     int        op;
  208. +     long_u    pos;
  209. + {
  210. +     if (op == 1) return pos > val;
  211. +     if (op == 2) return pos < val;
  212. +     return val == pos;
  213. + }
  214. + 
  215.   static int nfa_regmatch __ARGS((nfa_state_T *start, regsub_T *submatch, regsub_T *m));
  216.   
  217.   /*
  218. ***************
  219. *** 3791,3796 ****
  220. --- 3851,3895 ----
  221.           /* TODO: should not happen? */
  222.           break;
  223.   
  224. +         case NFA_LNUM:
  225. +         case NFA_LNUM_GT:
  226. +         case NFA_LNUM_LT:
  227. +         result = (REG_MULTI &&
  228. +             nfa_re_num_cmp(t->state->val, t->state->c - NFA_LNUM,
  229. +                 (long_u)(reglnum + reg_firstlnum)));
  230. +         if (result)
  231. +             addstate_here(thislist, t->state->out, &t->sub, &listidx);
  232. +         break;
  233. + 
  234. +         case NFA_COL:
  235. +         case NFA_COL_GT:
  236. +         case NFA_COL_LT:
  237. +         result = nfa_re_num_cmp(t->state->val, t->state->c - NFA_COL,
  238. +             (long_u)(reginput - regline) + 1);
  239. +         if (result)
  240. +             addstate_here(thislist, t->state->out, &t->sub, &listidx);
  241. +         break;
  242. + 
  243. +         case NFA_VCOL:
  244. +         case NFA_VCOL_GT:
  245. +         case NFA_VCOL_LT:
  246. +         result = nfa_re_num_cmp(t->state->val, t->state->c - NFA_VCOL,
  247. +             (long_u)win_linetabsize(
  248. +                 reg_win == NULL ? curwin : reg_win,
  249. +                 regline, (colnr_T)(reginput - regline)) + 1);
  250. +         if (result)
  251. +             addstate_here(thislist, t->state->out, &t->sub, &listidx);
  252. +         break;
  253. + 
  254. +         case NFA_CURSOR:
  255. +         result = (reg_win != NULL
  256. +             && (reglnum + reg_firstlnum == reg_win->w_cursor.lnum)
  257. +             && ((colnr_T)(reginput - regline)
  258. +                            == reg_win->w_cursor.col));
  259. +         if (result)
  260. +             addstate_here(thislist, t->state->out, &t->sub, &listidx);
  261. +         break;
  262. + 
  263.           default:    /* regular character */
  264.             {
  265.           int c = t->state->c;
  266. *** ../vim-7.3.1038/src/testdir/test64.in    2013-05-29 18:45:07.000000000 +0200
  267. --- src/testdir/test64.in    2013-05-29 21:02:52.000000000 +0200
  268. ***************
  269. *** 413,425 ****
  270.   :.yank
  271.   y$Gop:"
  272.   :"
  273. - :"
  274.   :" Check a pattern with a look beind crossing a line boundary
  275.   /^Behind:
  276.   /\(<\_[xy]\+\)\@3<=start
  277.   :.yank
  278.   Gop:"
  279.   :"
  280.   :/\%#=1^Results/,$wq! test.out
  281.   ENDTEST
  282.   
  283. --- 413,452 ----
  284.   :.yank
  285.   y$Gop:"
  286.   :"
  287.   :" Check a pattern with a look beind crossing a line boundary
  288.   /^Behind:
  289.   /\(<\_[xy]\+\)\@3<=start
  290.   :.yank
  291.   Gop:"
  292.   :"
  293. + :" Check patterns matching cursor position.
  294. + :func! Postest()
  295. +  new
  296. +  call setline(1, ['ffooooo', 'boboooo', 'zoooooo', 'koooooo', 'moooooo', "\t\t\tfoo", 'abababababababfoo', 'bababababababafoo', '********_'])
  297. +  call setpos('.', [0, 1, 0, 0])
  298. +  s/\%>3c.//g
  299. +  call setpos('.', [0, 2, 4, 0])
  300. +  s/\%#.*$//g
  301. +  call setpos('.', [0, 3, 0, 0])
  302. +  s/\%<3c./_/g
  303. +  %s/\%4l\%>5c./_/g
  304. +  %s/\%6l\%>25v./_/g
  305. +  %s/\%>6l\%3c./!/g
  306. +  %s/\%>7l\%12c./?/g
  307. +  %s/\%>7l\%<9l\%>5v\%<8v./#/g
  308. +  1,$yank
  309. +  quit!
  310. + endfunc
  311. + Go-0-:set re=0
  312. + :call Postest()
  313. + :put
  314. + o-1-:set re=1
  315. + :call Postest()
  316. + :put
  317. + o-2-:set re=2
  318. + :call Postest()
  319. + :put
  320. + :"
  321.   :/\%#=1^Results/,$wq! test.out
  322.   ENDTEST
  323.   
  324. *** ../vim-7.3.1038/src/testdir/test64.ok    2013-05-29 18:45:07.000000000 +0200
  325. --- src/testdir/test64.ok    2013-05-29 21:02:49.000000000 +0200
  326. ***************
  327. *** 740,742 ****
  328. --- 740,772 ----
  329.   ghi
  330.   
  331.   xxxstart3
  332. + -0-
  333. + ffo
  334. + bob
  335. + __ooooo
  336. + koooo__
  337. + moooooo
  338. +             f__
  339. + ab!babababababfoo
  340. + ba!ab##abab?bafoo
  341. + **!*****_
  342. + -1-
  343. + ffo
  344. + bob
  345. + __ooooo
  346. + koooo__
  347. + moooooo
  348. +             f__
  349. + ab!babababababfoo
  350. + ba!ab##abab?bafoo
  351. + **!*****_
  352. + -2-
  353. + ffo
  354. + bob
  355. + __ooooo
  356. + koooo__
  357. + moooooo
  358. +             f__
  359. + ab!babababababfoo
  360. + ba!ab##abab?bafoo
  361. + **!*****_
  362. *** ../vim-7.3.1038/src/version.c    2013-05-29 19:17:55.000000000 +0200
  363. --- src/version.c    2013-05-29 21:11:47.000000000 +0200
  364. ***************
  365. *** 730,731 ****
  366. --- 730,733 ----
  367.   {   /* Add new patch number below this line */
  368. + /**/
  369. +     1039,
  370.   /**/
  371.  
  372. -- 
  373. hundred-and-one symptoms of being an internet addict:
  374. 16. You step out of your room and realize that your parents have moved and
  375.     you don't have a clue when it happened.
  376.  
  377.  /// Bram Moolenaar -- Bram@Moolenaar.net -- http://www.Moolenaar.net   \\\
  378. ///        sponsor Vim, vote for features -- http://www.Vim.org/sponsor/ \\\
  379. \\\  an exciting new programming language -- http://www.Zimbu.org        ///
  380.  \\\            help me help AIDS victims -- http://ICCF-Holland.org    ///
  381.