annotate src/regex.c @ 853:2b6fa2618f76

[xemacs-hg @ 2002-05-28 08:44:22 by ben] merge my stderr-proc ws make-docfile.c: Fix places where we forget to check for EOF. code-init.el: Don't use CRLF conversion by default on process output. CMD.EXE and friends work both ways but Cygwin programs don't like the CRs. code-process.el, multicast.el, process.el: Removed. Improvements to call-process-internal: -- allows a buffer to be specified for input and stderr output -- use it on all systems -- implement C-g as documented -- clean up and comment call-process-region uses new call-process facilities; no temp file. remove duplicate funs in process.el. comment exactly how coding systems work and fix various problems. open-multicast-group now does similar coding-system frobbing to open-network-stream. dumped-lisp.el, faces.el, msw-faces.el: Fix some hidden errors due to code not being defined at the right time. xemacs.mak: Add -DSTRICT. ================================================================ ALLOW SEPARATION OF STDOUT AND STDERR IN PROCESSES ================================================================ Standard output and standard error can be processed separately in a process. Each can have its own buffer, its own mark in that buffer, and its filter function. You can specify a separate buffer for stderr in `start-process' to get things started, or use the new primitives: set-process-stderr-buffer process-stderr-buffer process-stderr-mark set-process-stderr-filter process-stderr-filter Also, process-send-region takes a 4th optional arg, a buffer. Currently always uses a pipe() under Unix to read the error output. (#### Would a PTY be better?) sysdep.h, sysproc.h, unexfreebsd.c, unexsunos4.c, nt.c, emacs.c, callproc.c, symsinit.h, sysdep.c, Makefile.in.in, process-unix.c: Delete callproc.c. Move child_setup() to process-unix.c. wait_for_termination() now only needed on a few really old systems. console-msw.h, event-Xt.c, event-msw.c, event-stream.c, event-tty.c, event-unixoid.c, events.h, process-nt.c, process-unix.c, process.c, process.h, procimpl.h: Rewrite the process methods to handle a separate channel for error input. Create Lstreams for reading in the error channel. Many process methods need change. In general the changes are fairly clear as they involve duplicating what's used for reading the normal stdout and changing for stderr -- although tedious, as such changes are required throughout the entire process code. Rewrote the code that reads process output to do two loops, one for stdout and one for stderr. gpmevent.c, tooltalk.c: set_process_filter takes an argument for stderr. ================================================================ NEW ERROR-TRAPPING MECHANISM ================================================================ Totally rewrite error trapping code to be unified and support more features. Basic function is call_trapping_problems(), which lets you specify, by means of flags, what sorts of problems you want trapped. these can include -- quit -- errors -- throws past the function -- creation of "display objects" (e.g. buffers) -- deletion of already-existing "display objects" (e.g. buffers) -- modification of already-existing buffers -- entering the debugger -- gc -- errors->warnings (ala suspended errors) etc. All other error funs rewritten in terms of this one. Various older mechanisms removed or rewritten. window.c, insdel.c, console.c, buffer.c, device.c, frame.c: When creating a display object, added call to note_object_created(), for use with trapping_problems mechanism. When deleting, call check_allowed_operation() and note_object deleted(). The trapping-problems code records the objects created since the call-trapping-problems began. Those objects can be deleted, but none others (i.e. previously existing ones). bytecode.c, cmdloop.c: internal_catch takes another arg. eval.c: Add long comments describing the "five lists" used to maintain state (backtrace, gcpro, specbind, etc.) in the Lisp engine. backtrace.h, eval.c: Implement trapping-problems mechanism, eliminate old mechanisms or redo in terms of new one. frame.c, gutter.c: Flush out the concept of "critical display section", defined by the in_display() var. Use an internal_bind() to get it reset, rather than just doing it at end, because there may be a non-local exit. event-msw.c, event-stream.c, console-msw.h, device.c, dialog-msw.c, frame.c, frame.h, intl.c, toolbar.c, menubar-msw.c, redisplay.c, alloc.c, menubar-x.c: Make use of new trapping-errors stuff and rewrite code based on old mechanisms. glyphs-widget.c, redisplay.h: Protect calling Lisp in redisplay. insdel.c: Protect hooks against deleting existing buffers. frame-msw.c: Use EQ, not EQUAL in hash tables whose keys are just numbers. Otherwise we run into stickiness in redisplay because internal_equal() can QUIT. ================================================================ SIGNAL, C-G CHANGES ================================================================ Here we change the way that C-g interacts with event reading. The idea is that a C-g occurring while we're reading a user event should be read as C-g, but elsewhere should be a QUIT. The former code did all sorts of bizarreness -- requiring that no QUIT occurs anywhere in event-reading code (impossible to enforce given the stuff called or Lisp code invoked), and having some weird system involving enqueue/dequeue of a C-g and interaction with Vquit_flag -- and it didn't work. Now, we simply enclose all code where we want C-g read as an event with {begin/end}_dont_check_for_quit(). This completely turns off the mechanism that checks (and may remove or alter) C-g in the read-ahead queues, so we just get the C-g normal. Signal.c documents this very carefully. cmdloop.c: Correct use of dont_check_for_quit to new scheme, remove old out-of-date comments. event-stream.c: Fix C-g handling to actually work. device-x.c: Disable quit checking when err out. signal.c: Cleanup. Add large descriptive comment. process-unix.c, process-nt.c, sysdep.c: Use QUIT instead of REALLY_QUIT. It's not necessary to use REALLY_QUIT and just confuses the issue. lisp.h: Comment quit handlers. ================================================================ CONS CHANGES ================================================================ free_cons() now takes a Lisp_Object not the result of XCONS(). car and cdr have been renamed so that they don't get used directly; go through XCAR(), XCDR() instead. alloc.c, dired.c, editfns.c, emodules.c, fns.c, glyphs-msw.c, glyphs-x.c, glyphs.c, keymap.c, minibuf.c, search.c, eval.c, lread.c, lisp.h: Correct free_cons calling convention: now takes Lisp_Object, not Lisp_Cons chartab.c: Eliminate direct use of ->car, ->cdr, should be black box. callint.c: Rewrote using EXTERNAL_LIST_LOOP to avoid use of Lisp_Cons. ================================================================ USE INTERNAL-BIND-* ================================================================ eval.c: Cleanups of these funs. alloc.c, fileio.c, undo.c, specifier.c, text.c, profile.c, lread.c, redisplay.c, menubar-x.c, macros.c: Rewrote to use internal_bind_int() and internal_bind_lisp_object() in place of whatever varied and cumbersome mechanisms were formerly there. ================================================================ SPECBIND SANITY ================================================================ backtrace.h: - Improved comments backtrace.h, bytecode.c, eval.c: Add new mechanism check_specbind_stack_sanity() for sanity checking code each time the catchlist or specbind stack change. Removed older prototype of same mechanism. ================================================================ MISC ================================================================ lisp.h, insdel.c, window.c, device.c, console.c, buffer.c: Fleshed out authorship. device-msw.c: Correct bad Unicode-ization. print.c: Be more careful when not initialized or in fatal error handling. search.c: Eliminate running_asynch_code, an FSF holdover. alloc.c: Added comments about gc-cons-threshold. dialog-x.c: Use begin_gc_forbidden() around code to build up a widget value tree, like in menubar-x.c. gui.c: Use Qunbound not Qnil as the default for gethash. lisp-disunion.h, lisp-union.h: Added warnings on use of VOID_TO_LISP(). lisp.h: Use ERROR_CHECK_STRUCTURES to turn on ERROR_CHECK_TRAPPING_PROBLEMS and ERROR_CHECK_TYPECHECK lisp.h: Add assert_with_message. lisp.h: Add macros for gcproing entire arrays. (You could do this before but it required manual twiddling the gcpro structure.) lisp.h: Add prototypes for new functions defined elsewhere.
author ben
date Tue, 28 May 2002 08:45:36 +0000
parents 6728e641994e
children 804517e16990
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1 /* Extended regular expression matching and search library,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2 version 0.12, extended for XEmacs.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3 (Implements POSIX draft P10003.2/D11.2, except for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4 internationalization features.)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6 Copyright (C) 1993, 1994, 1995 Free Software Foundation, Inc.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
7 Copyright (C) 1995 Sun Microsystems, Inc.
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
8 Copyright (C) 1995, 2001, 2002 Ben Wing.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
9
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
10 This program is free software; you can redistribute it and/or modify
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
11 it under the terms of the GNU General Public License as published by
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
12 the Free Software Foundation; either version 2, or (at your option)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
13 any later version.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
14
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
15 This program is distributed in the hope that it will be useful,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
16 but WITHOUT ANY WARRANTY; without even the implied warranty of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
17 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
18 GNU General Public License for more details.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
19
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
20 You should have received a copy of the GNU General Public License
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
21 along with this program; see the file COPYING. If not, write to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
22 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
23 Boston, MA 02111-1307, USA. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
24
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
25 /* Synched up with: FSF 19.29. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
26
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
27 #ifdef HAVE_CONFIG_H
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
28 #include <config.h>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
29 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
30
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
31 #ifndef REGISTER /* Rigidly enforced as of 20.3 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
32 #define REGISTER
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
33 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
34
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
35 #ifndef _GNU_SOURCE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
36 #define _GNU_SOURCE 1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
37 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
38
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
39 /* We assume non-Mule if emacs isn't defined. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
40 #ifndef emacs
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
41 #undef MULE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
42 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
43
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
44 /* We need this for `regex.h', and perhaps for the Emacs include files. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
45 #include <sys/types.h>
648
e44bbdb4e51f [xemacs-hg @ 2001-08-13 21:45:57 by ben]
ben
parents: 647
diff changeset
46 #include <stddef.h> /* needed for ptrdiff_t under Solaris */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
47
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
48 /* This is for other GNU distributions with internationalized messages. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
49 #if defined (I18N3) && (defined (HAVE_LIBINTL_H) || defined (_LIBC))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
50 # include <libintl.h>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
51 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
52 # define gettext(msgid) (msgid)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
53 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
54
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
55 /* XEmacs addition */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
56 #ifdef REL_ALLOC
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
57 #define REGEX_REL_ALLOC /* may be undefined below */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
58 #endif
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
59
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
60 /* XEmacs: define this to add in a speedup for patterns anchored at
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
61 the beginning of a line. Keep the ifdefs so that it's easier to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
62 tell where/why this code has diverged from v19. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
63 #define REGEX_BEGLINE_CHECK
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
64
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
65 /* XEmacs: the current mmap-based ralloc handles small blocks very
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
66 poorly, so we disable it here. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
67
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
68 #if defined (HAVE_MMAP) || defined (DOUG_LEA_MALLOC)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
69 # undef REGEX_REL_ALLOC
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
70 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
71
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
72 /* The `emacs' switch turns on certain matching commands
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
73 that make sense only in Emacs. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
74 #ifdef emacs
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
75
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
76 #include "lisp.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
77 #include "buffer.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
78 #include "syntax.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
79
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
80 #if (defined (DEBUG_XEMACS) && !defined (DEBUG))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
81 #define DEBUG
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
82 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
83
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
84 #ifdef MULE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
85
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
86 Lisp_Object Vthe_lisp_rangetab;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
87
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
88 void
814
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
89 vars_of_regex (void)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
90 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
91 Vthe_lisp_rangetab = Fmake_range_table ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
92 staticpro (&Vthe_lisp_rangetab);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
93 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
94
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
95 #else /* not MULE */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
96
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
97 void
814
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
98 vars_of_regex (void)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
99 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
100 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
101
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
102 #endif /* MULE */
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
103
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
104 #define RE_TRANSLATE_1(ch) TRT_TABLE_OF (translate, (Emchar) ch)
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
105 #define TRANSLATE_P(tr) (!NILP (tr))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
106
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
107 /* Converts the pointer to the char to BEG-based offset from the start. */
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
108 #define PTR_TO_OFFSET(d) (MATCHING_IN_FIRST_STRING \
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
109 ? (d) - string1 : (d) - (string2 - size1))
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
110
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
111 /* Convert an offset from the start of the logical text string formed by
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
112 concatenating the two strings together into a character position in the
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
113 Lisp buffer or string that the text represents. Knows that
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
114 when handling buffer text, the "string" we're passed in is always
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
115 BEGV - ZV. */
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
116
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
117 static Charxpos
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
118 offset_to_charxpos (Lisp_Object lispobj, int off)
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
119 {
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
120 if (STRINGP (lispobj))
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
121 return string_index_byte_to_char (lispobj, off);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
122 else if (BUFFERP (lispobj))
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
123 return bytebpos_to_charbpos (XBUFFER (lispobj),
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
124 off + BYTE_BUF_BEGV (XBUFFER (lispobj)));
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
125 else
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
126 return 0;
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
127 }
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
128
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
129 #else /* not emacs */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
130
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
131 /* If we are not linking with Emacs proper,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
132 we can't use the relocating allocator
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
133 even if config.h says that we can. */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
134 #undef REGEX_REL_ALLOC
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
135
544
ffd4d00ff0b6 [xemacs-hg @ 2001-05-17 13:55:46 by stephent]
stephent
parents: 523
diff changeset
136 /* defined in lisp.h */
ffd4d00ff0b6 [xemacs-hg @ 2001-05-17 13:55:46 by stephent]
stephent
parents: 523
diff changeset
137 #ifdef REGEX_MALLOC
ffd4d00ff0b6 [xemacs-hg @ 2001-05-17 13:55:46 by stephent]
stephent
parents: 523
diff changeset
138 #ifndef DECLARE_NOTHING
ffd4d00ff0b6 [xemacs-hg @ 2001-05-17 13:55:46 by stephent]
stephent
parents: 523
diff changeset
139 #define DECLARE_NOTHING struct nosuchstruct
ffd4d00ff0b6 [xemacs-hg @ 2001-05-17 13:55:46 by stephent]
stephent
parents: 523
diff changeset
140 #endif
ffd4d00ff0b6 [xemacs-hg @ 2001-05-17 13:55:46 by stephent]
stephent
parents: 523
diff changeset
141 #endif
ffd4d00ff0b6 [xemacs-hg @ 2001-05-17 13:55:46 by stephent]
stephent
parents: 523
diff changeset
142
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
143 #include <stdlib.h>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
144
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
145 #define charptr_emchar(str) ((Emchar) (str)[0])
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
146 #define charptr_emchar_fmt(str, fmt, object) ((Emchar) (str)[0])
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
147 #define charptr_emchar_ascii_fmt(str, fmt, object) ((Emchar) (str)[0])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
148
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
149 #if (LONGBITS > INTBITS)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
150 # define EMACS_INT long
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
151 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
152 # define EMACS_INT int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
153 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
154
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
155 typedef int Emchar;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
156
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
157 #define INC_CHARPTR(p) ((p)++)
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
158 #define INC_CHARPTR_FMT(p, fmt) ((p)++)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
159 #define DEC_CHARPTR(p) ((p)--)
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
160 #define DEC_CHARPTR_FMT(p, fmt) ((p)--)
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
161 #define charptr_emchar_len(ptr) 1
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
162 #define charptr_emchar_len_fmt(ptr, fmt) 1
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
163
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
164 #include <string.h>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
165
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
166 /* Define the syntax stuff for \<, \>, etc. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
167
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
168 /* This must be nonzero for the wordchar and notwordchar pattern
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
169 commands in re_match_2. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
170 #ifndef Sword
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
171 #define Sword 1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
172 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
173
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
174 #ifdef SYNTAX_TABLE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
175
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
176 extern char *re_syntax_table;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
177
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
178 #else /* not SYNTAX_TABLE */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
179
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
180 /* How many characters in the character set. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
181 #define CHAR_SET_SIZE 256
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
182
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
183 static char re_syntax_table[CHAR_SET_SIZE];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
184
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
185 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
186 init_syntax_once (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
187 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
188 static int done = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
189
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
190 if (!done)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
191 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
192 const char *word_syntax_chars =
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
193 "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789_";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
194
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
195 memset (re_syntax_table, 0, sizeof (re_syntax_table));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
196
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
197 while (*word_syntax_chars)
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
198 re_syntax_table[(unsigned int) (*word_syntax_chars++)] = Sword;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
199
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
200 done = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
201 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
202 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
203
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
204 #endif /* SYNTAX_TABLE */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
205
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
206 #define SYNTAX(ignored, c) re_syntax_table[c]
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
207 #undef SYNTAX_FROM_CACHE
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
208 #define SYNTAX_FROM_CACHE SYNTAX
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
209
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
210 #define RE_TRANSLATE_1(c) translate[(unsigned char) (c)]
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
211 #define TRANSLATE_P(tr) tr
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
212
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
213 #endif /* emacs */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
214
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
215 /* Under XEmacs, this is needed because we don't define it elsewhere. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
216 #ifdef SWITCH_ENUM_BUG
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
217 #define SWITCH_ENUM_CAST(x) ((int)(x))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
218 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
219 #define SWITCH_ENUM_CAST(x) (x)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
220 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
221
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
222
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
223 /* Get the interface, including the syntax bits. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
224 #include "regex.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
225
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
226 /* isalpha etc. are used for the character classes. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
227 #include <ctype.h>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
228
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
229 /* Jim Meyering writes:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
230
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
231 "... Some ctype macros are valid only for character codes that
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
232 isascii says are ASCII (SGI's IRIX-4.0.5 is one such system --when
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
233 using /bin/cc or gcc but without giving an ansi option). So, all
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
234 ctype uses should be through macros like ISPRINT... If
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
235 STDC_HEADERS is defined, then autoconf has verified that the ctype
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
236 macros don't need to be guarded with references to isascii. ...
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
237 Defining isascii to 1 should let any compiler worth its salt
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
238 eliminate the && through constant folding." */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
239
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
240 #if defined (STDC_HEADERS) || (!defined (isascii) && !defined (HAVE_ISASCII))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
241 #define ISASCII_1(c) 1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
242 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
243 #define ISASCII_1(c) isascii(c)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
244 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
245
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
246 #ifdef MULE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
247 /* The IS*() macros can be passed any character, including an extended
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
248 one. We need to make sure there are no crashes, which would occur
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
249 otherwise due to out-of-bounds array references. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
250 #define ISASCII(c) (((EMACS_UINT) (c)) < 0x100 && ISASCII_1 (c))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
251 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
252 #define ISASCII(c) ISASCII_1 (c)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
253 #endif /* MULE */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
254
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
255 #ifdef isblank
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
256 #define ISBLANK(c) (ISASCII (c) && isblank (c))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
257 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
258 #define ISBLANK(c) ((c) == ' ' || (c) == '\t')
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
259 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
260 #ifdef isgraph
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
261 #define ISGRAPH(c) (ISASCII (c) && isgraph (c))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
262 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
263 #define ISGRAPH(c) (ISASCII (c) && isprint (c) && !isspace (c))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
264 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
265
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
266 #define ISPRINT(c) (ISASCII (c) && isprint (c))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
267 #define ISDIGIT(c) (ISASCII (c) && isdigit (c))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
268 #define ISALNUM(c) (ISASCII (c) && isalnum (c))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
269 #define ISALPHA(c) (ISASCII (c) && isalpha (c))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
270 #define ISCNTRL(c) (ISASCII (c) && iscntrl (c))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
271 #define ISLOWER(c) (ISASCII (c) && islower (c))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
272 #define ISPUNCT(c) (ISASCII (c) && ispunct (c))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
273 #define ISSPACE(c) (ISASCII (c) && isspace (c))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
274 #define ISUPPER(c) (ISASCII (c) && isupper (c))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
275 #define ISXDIGIT(c) (ISASCII (c) && isxdigit (c))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
276
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
277 #ifndef NULL
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
278 #define NULL (void *)0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
279 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
280
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
281 /* We remove any previous definition of `SIGN_EXTEND_CHAR',
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
282 since ours (we hope) works properly with all combinations of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
283 machines, compilers, `char' and `unsigned char' argument types.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
284 (Per Bothner suggested the basic approach.) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
285 #undef SIGN_EXTEND_CHAR
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
286 #if __STDC__
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
287 #define SIGN_EXTEND_CHAR(c) ((signed char) (c))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
288 #else /* not __STDC__ */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
289 /* As in Harbison and Steele. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
290 #define SIGN_EXTEND_CHAR(c) ((((unsigned char) (c)) ^ 128) - 128)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
291 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
292
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
293 /* Should we use malloc or alloca? If REGEX_MALLOC is not defined, we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
294 use `alloca' instead of `malloc'. This is because using malloc in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
295 re_search* or re_match* could cause memory leaks when C-g is used in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
296 Emacs; also, malloc is slower and causes storage fragmentation. On
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
297 the other hand, malloc is more portable, and easier to debug.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
298
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
299 Because we sometimes use alloca, some routines have to be macros,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
300 not functions -- `alloca'-allocated space disappears at the end of the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
301 function it is called in. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
302
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
303 #ifdef REGEX_MALLOC
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
304
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
305 #define REGEX_ALLOCATE malloc
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
306 #define REGEX_REALLOCATE(source, osize, nsize) realloc (source, nsize)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
307 #define REGEX_FREE free
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
308
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
309 #else /* not REGEX_MALLOC */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
310
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
311 /* Emacs already defines alloca, sometimes. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
312 #ifndef alloca
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
313
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
314 /* Make alloca work the best possible way. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
315 #ifdef __GNUC__
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
316 #define alloca __builtin_alloca
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
317 #elif defined (__DECC) /* XEmacs: added next 3 lines, similar to config.h.in */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
318 #include <alloca.h>
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
319 #pragma intrinsic(alloca)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
320 #else /* not __GNUC__ */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
321 #if HAVE_ALLOCA_H
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
322 #include <alloca.h>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
323 #else /* not __GNUC__ or HAVE_ALLOCA_H */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
324 #ifndef _AIX /* Already did AIX, up at the top. */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
325 void *alloca ();
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
326 #endif /* not _AIX */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
327 #endif /* HAVE_ALLOCA_H */
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
328 #endif /* __GNUC__ */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
329
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
330 #endif /* not alloca */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
331
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
332 #define REGEX_ALLOCATE alloca
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
333
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
334 /* Assumes a `char *destination' variable. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
335 #define REGEX_REALLOCATE(source, osize, nsize) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
336 (destination = (char *) alloca (nsize), \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
337 memmove (destination, source, osize), \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
338 destination)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
339
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
340 /* No need to do anything to free, after alloca. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
341 #define REGEX_FREE(arg) ((void)0) /* Do nothing! But inhibit gcc warning. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
342
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
343 #endif /* REGEX_MALLOC */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
344
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
345 /* Define how to allocate the failure stack. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
346
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
347 #ifdef REGEX_REL_ALLOC
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
348 #define REGEX_ALLOCATE_STACK(size) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
349 r_alloc ((char **) &failure_stack_ptr, (size))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
350 #define REGEX_REALLOCATE_STACK(source, osize, nsize) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
351 r_re_alloc ((char **) &failure_stack_ptr, (nsize))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
352 #define REGEX_FREE_STACK(ptr) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
353 r_alloc_free ((void **) &failure_stack_ptr)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
354
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
355 #else /* not REGEX_REL_ALLOC */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
356
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
357 #ifdef REGEX_MALLOC
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
358
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
359 #define REGEX_ALLOCATE_STACK malloc
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
360 #define REGEX_REALLOCATE_STACK(source, osize, nsize) realloc (source, nsize)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
361 #define REGEX_FREE_STACK free
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
362
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
363 #else /* not REGEX_MALLOC */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
364
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
365 #define REGEX_ALLOCATE_STACK alloca
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
366
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
367 #define REGEX_REALLOCATE_STACK(source, osize, nsize) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
368 REGEX_REALLOCATE (source, osize, nsize)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
369 /* No need to explicitly free anything. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
370 #define REGEX_FREE_STACK(arg)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
371
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
372 #endif /* REGEX_MALLOC */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
373 #endif /* REGEX_REL_ALLOC */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
374
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
375
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
376 /* True if `size1' is non-NULL and PTR is pointing anywhere inside
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
377 `string1' or just past its end. This works if PTR is NULL, which is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
378 a good thing. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
379 #define FIRST_STRING_P(ptr) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
380 (size1 && string1 <= (ptr) && (ptr) <= string1 + size1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
381
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
382 /* (Re)Allocate N items of type T using malloc, or fail. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
383 #define TALLOC(n, t) ((t *) malloc ((n) * sizeof (t)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
384 #define RETALLOC(addr, n, t) ((addr) = (t *) realloc (addr, (n) * sizeof (t)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
385 #define REGEX_TALLOC(n, t) ((t *) REGEX_ALLOCATE ((n) * sizeof (t)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
386
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
387 #define BYTEWIDTH 8 /* In bits. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
388
434
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
389 #define STREQ(s1, s2) (strcmp (s1, s2) == 0)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
390
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
391 #undef MAX
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
392 #undef MIN
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
393 #define MAX(a, b) ((a) > (b) ? (a) : (b))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
394 #define MIN(a, b) ((a) < (b) ? (a) : (b))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
395
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
396 /* Type of source-pattern and string chars. */
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
397 typedef const unsigned char re_char;
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
398
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
399 typedef char re_bool;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
400 #define false 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
401 #define true 1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
402
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
403
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
404 /* These are the command codes that appear in compiled regular
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
405 expressions. Some opcodes are followed by argument bytes. A
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
406 command code can specify any interpretation whatsoever for its
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
407 arguments. Zero bytes may appear in the compiled regular expression. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
408
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
409 typedef enum
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
410 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
411 no_op = 0,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
412
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
413 /* Succeed right away--no more backtracking. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
414 succeed,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
415
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
416 /* Followed by one byte giving n, then by n literal bytes. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
417 exactn,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
418
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
419 /* Matches any (more or less) character. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
420 anychar,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
421
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
422 /* Matches any one char belonging to specified set. First
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
423 following byte is number of bitmap bytes. Then come bytes
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
424 for a bitmap saying which chars are in. Bits in each byte
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
425 are ordered low-bit-first. A character is in the set if its
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
426 bit is 1. A character too large to have a bit in the map is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
427 automatically not in the set. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
428 charset,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
429
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
430 /* Same parameters as charset, but match any character that is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
431 not one of those specified. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
432 charset_not,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
433
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
434 /* Start remembering the text that is matched, for storing in a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
435 register. Followed by one byte with the register number, in
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
436 the range 1 to the pattern buffer's re_ngroups
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
437 field. Then followed by one byte with the number of groups
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
438 inner to this one. (This last has to be part of the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
439 start_memory only because we need it in the on_failure_jump
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
440 of re_match_2.) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
441 start_memory,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
442
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
443 /* Stop remembering the text that is matched and store it in a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
444 memory register. Followed by one byte with the register
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
445 number, in the range 1 to `re_ngroups' in the
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
446 pattern buffer, and one byte with the number of inner groups,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
447 just like `start_memory'. (We need the number of inner
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
448 groups here because we don't have any easy way of finding the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
449 corresponding start_memory when we're at a stop_memory.) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
450 stop_memory,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
451
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
452 /* Match a duplicate of something remembered. Followed by one
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
453 byte containing the register number. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
454 duplicate,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
455
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
456 /* Fail unless at beginning of line. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
457 begline,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
458
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
459 /* Fail unless at end of line. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
460 endline,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
461
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
462 /* Succeeds if at beginning of buffer (if emacs) or at beginning
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
463 of string to be matched (if not). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
464 begbuf,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
465
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
466 /* Analogously, for end of buffer/string. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
467 endbuf,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
468
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
469 /* Followed by two byte relative address to which to jump. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
470 jump,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
471
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
472 /* Same as jump, but marks the end of an alternative. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
473 jump_past_alt,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
474
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
475 /* Followed by two-byte relative address of place to resume at
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
476 in case of failure. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
477 on_failure_jump,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
478
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
479 /* Like on_failure_jump, but pushes a placeholder instead of the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
480 current string position when executed. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
481 on_failure_keep_string_jump,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
482
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
483 /* Throw away latest failure point and then jump to following
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
484 two-byte relative address. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
485 pop_failure_jump,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
486
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
487 /* Change to pop_failure_jump if know won't have to backtrack to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
488 match; otherwise change to jump. This is used to jump
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
489 back to the beginning of a repeat. If what follows this jump
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
490 clearly won't match what the repeat does, such that we can be
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
491 sure that there is no use backtracking out of repetitions
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
492 already matched, then we change it to a pop_failure_jump.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
493 Followed by two-byte address. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
494 maybe_pop_jump,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
495
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
496 /* Jump to following two-byte address, and push a dummy failure
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
497 point. This failure point will be thrown away if an attempt
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
498 is made to use it for a failure. A `+' construct makes this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
499 before the first repeat. Also used as an intermediary kind
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
500 of jump when compiling an alternative. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
501 dummy_failure_jump,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
502
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
503 /* Push a dummy failure point and continue. Used at the end of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
504 alternatives. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
505 push_dummy_failure,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
506
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
507 /* Followed by two-byte relative address and two-byte number n.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
508 After matching N times, jump to the address upon failure. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
509 succeed_n,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
510
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
511 /* Followed by two-byte relative address, and two-byte number n.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
512 Jump to the address N times, then fail. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
513 jump_n,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
514
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
515 /* Set the following two-byte relative address to the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
516 subsequent two-byte number. The address *includes* the two
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
517 bytes of number. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
518 set_number_at,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
519
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
520 wordchar, /* Matches any word-constituent character. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
521 notwordchar, /* Matches any char that is not a word-constituent. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
522
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
523 wordbeg, /* Succeeds if at word beginning. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
524 wordend, /* Succeeds if at word end. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
525
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
526 wordbound, /* Succeeds if at a word boundary. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
527 notwordbound /* Succeeds if not at a word boundary. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
528
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
529 #ifdef emacs
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
530 ,before_dot, /* Succeeds if before point. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
531 at_dot, /* Succeeds if at point. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
532 after_dot, /* Succeeds if after point. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
533
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
534 /* Matches any character whose syntax is specified. Followed by
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
535 a byte which contains a syntax code, e.g., Sword. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
536 syntaxspec,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
537
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
538 /* Matches any character whose syntax is not that specified. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
539 notsyntaxspec
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
540
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
541 #endif /* emacs */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
542
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
543 #ifdef MULE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
544 /* need extra stuff to be able to properly work with XEmacs/Mule
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
545 characters (which may take up more than one byte) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
546
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
547 ,charset_mule, /* Matches any character belonging to specified set.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
548 The set is stored in "unified range-table
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
549 format"; see rangetab.c. Unlike the `charset'
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
550 opcode, this can handle arbitrary characters. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
551
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
552 charset_mule_not /* Same parameters as charset_mule, but match any
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
553 character that is not one of those specified. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
554
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
555 /* 97/2/17 jhod: The following two were merged back in from the Mule
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
556 2.3 code to enable some language specific processing */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
557 ,categoryspec, /* Matches entries in the character category tables */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
558 notcategoryspec /* The opposite of the above */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
559 #endif /* MULE */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
560
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
561 } re_opcode_t;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
562
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
563 /* Common operations on the compiled pattern. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
564
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
565 /* Store NUMBER in two contiguous bytes starting at DESTINATION. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
566
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
567 #define STORE_NUMBER(destination, number) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
568 do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
569 (destination)[0] = (number) & 0377; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
570 (destination)[1] = (number) >> 8; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
571 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
572
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
573 /* Same as STORE_NUMBER, except increment DESTINATION to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
574 the byte after where the number is stored. Therefore, DESTINATION
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
575 must be an lvalue. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
576
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
577 #define STORE_NUMBER_AND_INCR(destination, number) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
578 do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
579 STORE_NUMBER (destination, number); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
580 (destination) += 2; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
581 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
582
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
583 /* Put into DESTINATION a number stored in two contiguous bytes starting
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
584 at SOURCE. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
585
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
586 #define EXTRACT_NUMBER(destination, source) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
587 do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
588 (destination) = *(source) & 0377; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
589 (destination) += SIGN_EXTEND_CHAR (*((source) + 1)) << 8; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
590 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
591
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
592 #ifdef DEBUG
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
593 static void
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
594 extract_number (int *dest, re_char *source)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
595 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
596 int temp = SIGN_EXTEND_CHAR (*(source + 1));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
597 *dest = *source & 0377;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
598 *dest += temp << 8;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
599 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
600
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
601 #ifndef EXTRACT_MACROS /* To debug the macros. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
602 #undef EXTRACT_NUMBER
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
603 #define EXTRACT_NUMBER(dest, src) extract_number (&dest, src)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
604 #endif /* not EXTRACT_MACROS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
605
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
606 #endif /* DEBUG */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
607
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
608 /* Same as EXTRACT_NUMBER, except increment SOURCE to after the number.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
609 SOURCE must be an lvalue. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
610
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
611 #define EXTRACT_NUMBER_AND_INCR(destination, source) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
612 do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
613 EXTRACT_NUMBER (destination, source); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
614 (source) += 2; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
615 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
616
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
617 #ifdef DEBUG
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
618 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
619 extract_number_and_incr (int *destination, unsigned char **source)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
620 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
621 extract_number (destination, *source);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
622 *source += 2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
623 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
624
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
625 #ifndef EXTRACT_MACROS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
626 #undef EXTRACT_NUMBER_AND_INCR
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
627 #define EXTRACT_NUMBER_AND_INCR(dest, src) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
628 extract_number_and_incr (&dest, &src)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
629 #endif /* not EXTRACT_MACROS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
630
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
631 #endif /* DEBUG */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
632
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
633 /* If DEBUG is defined, Regex prints many voluminous messages about what
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
634 it is doing (if the variable `debug' is nonzero). If linked with the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
635 main program in `iregex.c', you can enter patterns and strings
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
636 interactively. And if linked with the main program in `main.c' and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
637 the other test files, you can run the already-written tests. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
638
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
639 #if defined (DEBUG)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
640
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
641 /* We use standard I/O for debugging. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
642 #include <stdio.h>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
643
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
644 #ifndef emacs
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
645 /* XEmacs provides its own version of assert() */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
646 /* It is useful to test things that ``must'' be true when debugging. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
647 #include <assert.h>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
648 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
649
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
650 static int debug = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
651
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
652 #define DEBUG_STATEMENT(e) e
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
653 #define DEBUG_PRINT1(x) if (debug) printf (x)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
654 #define DEBUG_PRINT2(x1, x2) if (debug) printf (x1, x2)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
655 #define DEBUG_PRINT3(x1, x2, x3) if (debug) printf (x1, x2, x3)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
656 #define DEBUG_PRINT4(x1, x2, x3, x4) if (debug) printf (x1, x2, x3, x4)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
657 #define DEBUG_PRINT_COMPILED_PATTERN(p, s, e) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
658 if (debug) print_partial_compiled_pattern (s, e)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
659 #define DEBUG_PRINT_DOUBLE_STRING(w, s1, sz1, s2, sz2) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
660 if (debug) print_double_string (w, s1, sz1, s2, sz2)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
661
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
662
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
663 /* Print the fastmap in human-readable form. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
664
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
665 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
666 print_fastmap (char *fastmap)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
667 {
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
668 int was_a_range = 0;
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
669 int i = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
670
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
671 while (i < (1 << BYTEWIDTH))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
672 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
673 if (fastmap[i++])
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
674 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
675 was_a_range = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
676 putchar (i - 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
677 while (i < (1 << BYTEWIDTH) && fastmap[i])
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
678 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
679 was_a_range = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
680 i++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
681 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
682 if (was_a_range)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
683 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
684 putchar ('-');
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
685 putchar (i - 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
686 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
687 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
688 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
689 putchar ('\n');
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
690 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
691
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
692
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
693 /* Print a compiled pattern string in human-readable form, starting at
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
694 the START pointer into it and ending just before the pointer END. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
695
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
696 static void
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
697 print_partial_compiled_pattern (re_char *start, re_char *end)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
698 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
699 int mcnt, mcnt2;
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
700 unsigned char *p = (unsigned char *) start;
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
701 re_char *pend = end;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
702
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
703 if (start == NULL)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
704 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
705 puts ("(null)");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
706 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
707 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
708
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
709 /* Loop over pattern commands. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
710 while (p < pend)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
711 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
712 printf ("%ld:\t", (long)(p - start));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
713
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
714 switch ((re_opcode_t) *p++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
715 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
716 case no_op:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
717 printf ("/no_op");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
718 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
719
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
720 case exactn:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
721 mcnt = *p++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
722 printf ("/exactn/%d", mcnt);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
723 do
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
724 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
725 putchar ('/');
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
726 putchar (*p++);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
727 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
728 while (--mcnt);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
729 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
730
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
731 case start_memory:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
732 mcnt = *p++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
733 printf ("/start_memory/%d/%d", mcnt, *p++);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
734 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
735
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
736 case stop_memory:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
737 mcnt = *p++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
738 printf ("/stop_memory/%d/%d", mcnt, *p++);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
739 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
740
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
741 case duplicate:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
742 printf ("/duplicate/%d", *p++);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
743 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
744
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
745 case anychar:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
746 printf ("/anychar");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
747 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
748
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
749 case charset:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
750 case charset_not:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
751 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
752 REGISTER int c, last = -100;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
753 REGISTER int in_range = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
754
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
755 printf ("/charset [%s",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
756 (re_opcode_t) *(p - 1) == charset_not ? "^" : "");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
757
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
758 assert (p + *p < pend);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
759
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
760 for (c = 0; c < 256; c++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
761 if (((unsigned char) (c / 8) < *p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
762 && (p[1 + (c/8)] & (1 << (c % 8))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
763 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
764 /* Are we starting a range? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
765 if (last + 1 == c && ! in_range)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
766 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
767 putchar ('-');
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
768 in_range = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
769 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
770 /* Have we broken a range? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
771 else if (last + 1 != c && in_range)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
772 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
773 putchar (last);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
774 in_range = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
775 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
776
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
777 if (! in_range)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
778 putchar (c);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
779
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
780 last = c;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
781 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
782
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
783 if (in_range)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
784 putchar (last);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
785
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
786 putchar (']');
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
787
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
788 p += 1 + *p;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
789 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
790 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
791
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
792 #ifdef MULE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
793 case charset_mule:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
794 case charset_mule_not:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
795 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
796 int nentries, i;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
797
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
798 printf ("/charset_mule [%s",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
799 (re_opcode_t) *(p - 1) == charset_mule_not ? "^" : "");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
800 nentries = unified_range_table_nentries (p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
801 for (i = 0; i < nentries; i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
802 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
803 EMACS_INT first, last;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
804 Lisp_Object dummy_val;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
805
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
806 unified_range_table_get_range (p, i, &first, &last,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
807 &dummy_val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
808 if (first < 0x100)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
809 putchar (first);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
810 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
811 printf ("(0x%lx)", (long)first);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
812 if (first != last)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
813 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
814 putchar ('-');
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
815 if (last < 0x100)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
816 putchar (last);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
817 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
818 printf ("(0x%lx)", (long)last);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
819 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
820 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
821 putchar (']');
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
822 p += unified_range_table_bytes_used (p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
823 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
824 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
825 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
826
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
827 case begline:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
828 printf ("/begline");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
829 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
830
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
831 case endline:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
832 printf ("/endline");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
833 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
834
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
835 case on_failure_jump:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
836 extract_number_and_incr (&mcnt, &p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
837 printf ("/on_failure_jump to %ld", (long)(p + mcnt - start));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
838 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
839
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
840 case on_failure_keep_string_jump:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
841 extract_number_and_incr (&mcnt, &p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
842 printf ("/on_failure_keep_string_jump to %ld", (long)(p + mcnt - start));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
843 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
844
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
845 case dummy_failure_jump:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
846 extract_number_and_incr (&mcnt, &p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
847 printf ("/dummy_failure_jump to %ld", (long)(p + mcnt - start));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
848 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
849
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
850 case push_dummy_failure:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
851 printf ("/push_dummy_failure");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
852 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
853
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
854 case maybe_pop_jump:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
855 extract_number_and_incr (&mcnt, &p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
856 printf ("/maybe_pop_jump to %ld", (long)(p + mcnt - start));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
857 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
858
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
859 case pop_failure_jump:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
860 extract_number_and_incr (&mcnt, &p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
861 printf ("/pop_failure_jump to %ld", (long)(p + mcnt - start));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
862 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
863
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
864 case jump_past_alt:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
865 extract_number_and_incr (&mcnt, &p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
866 printf ("/jump_past_alt to %ld", (long)(p + mcnt - start));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
867 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
868
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
869 case jump:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
870 extract_number_and_incr (&mcnt, &p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
871 printf ("/jump to %ld", (long)(p + mcnt - start));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
872 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
873
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
874 case succeed_n:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
875 extract_number_and_incr (&mcnt, &p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
876 extract_number_and_incr (&mcnt2, &p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
877 printf ("/succeed_n to %ld, %d times", (long)(p + mcnt - start), mcnt2);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
878 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
879
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
880 case jump_n:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
881 extract_number_and_incr (&mcnt, &p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
882 extract_number_and_incr (&mcnt2, &p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
883 printf ("/jump_n to %ld, %d times", (long)(p + mcnt - start), mcnt2);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
884 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
885
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
886 case set_number_at:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
887 extract_number_and_incr (&mcnt, &p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
888 extract_number_and_incr (&mcnt2, &p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
889 printf ("/set_number_at location %ld to %d", (long)(p + mcnt - start), mcnt2);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
890 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
891
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
892 case wordbound:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
893 printf ("/wordbound");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
894 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
895
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
896 case notwordbound:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
897 printf ("/notwordbound");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
898 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
899
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
900 case wordbeg:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
901 printf ("/wordbeg");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
902 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
903
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
904 case wordend:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
905 printf ("/wordend");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
906
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
907 #ifdef emacs
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
908 case before_dot:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
909 printf ("/before_dot");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
910 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
911
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
912 case at_dot:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
913 printf ("/at_dot");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
914 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
915
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
916 case after_dot:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
917 printf ("/after_dot");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
918 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
919
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
920 case syntaxspec:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
921 printf ("/syntaxspec");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
922 mcnt = *p++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
923 printf ("/%d", mcnt);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
924 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
925
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
926 case notsyntaxspec:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
927 printf ("/notsyntaxspec");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
928 mcnt = *p++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
929 printf ("/%d", mcnt);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
930 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
931
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
932 #ifdef MULE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
933 /* 97/2/17 jhod Mule category patch */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
934 case categoryspec:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
935 printf ("/categoryspec");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
936 mcnt = *p++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
937 printf ("/%d", mcnt);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
938 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
939
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
940 case notcategoryspec:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
941 printf ("/notcategoryspec");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
942 mcnt = *p++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
943 printf ("/%d", mcnt);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
944 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
945 /* end of category patch */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
946 #endif /* MULE */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
947 #endif /* emacs */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
948
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
949 case wordchar:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
950 printf ("/wordchar");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
951 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
952
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
953 case notwordchar:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
954 printf ("/notwordchar");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
955 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
956
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
957 case begbuf:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
958 printf ("/begbuf");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
959 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
960
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
961 case endbuf:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
962 printf ("/endbuf");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
963 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
964
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
965 default:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
966 printf ("?%d", *(p-1));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
967 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
968
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
969 putchar ('\n');
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
970 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
971
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
972 printf ("%ld:\tend of pattern.\n", (long)(p - start));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
973 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
974
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
975
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
976 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
977 print_compiled_pattern (struct re_pattern_buffer *bufp)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
978 {
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
979 re_char *buffer = bufp->buffer;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
980
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
981 print_partial_compiled_pattern (buffer, buffer + bufp->used);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
982 printf ("%ld bytes used/%ld bytes allocated.\n", bufp->used,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
983 bufp->allocated);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
984
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
985 if (bufp->fastmap_accurate && bufp->fastmap)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
986 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
987 printf ("fastmap: ");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
988 print_fastmap (bufp->fastmap);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
989 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
990
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
991 printf ("re_nsub: %ld\t", (long)bufp->re_nsub);
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
992 printf ("re_ngroups: %ld\t", (long)bufp->re_ngroups);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
993 printf ("regs_alloc: %d\t", bufp->regs_allocated);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
994 printf ("can_be_null: %d\t", bufp->can_be_null);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
995 printf ("newline_anchor: %d\n", bufp->newline_anchor);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
996 printf ("no_sub: %d\t", bufp->no_sub);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
997 printf ("not_bol: %d\t", bufp->not_bol);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
998 printf ("not_eol: %d\t", bufp->not_eol);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
999 printf ("syntax: %d\n", bufp->syntax);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1000 /* Perhaps we should print the translate table? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1001 /* and maybe the category table? */
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
1002
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
1003 if (bufp->external_to_internal_register)
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
1004 {
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
1005 int i;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
1006
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
1007 printf ("external_to_internal_register:\n");
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
1008 for (i = 0; i <= bufp->re_nsub; i++)
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
1009 {
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
1010 if (i > 0)
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
1011 printf (", ");
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
1012 printf ("%d -> %d", i, bufp->external_to_internal_register[i]);
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
1013 }
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
1014 printf ("\n");
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
1015 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1016 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1017
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1018
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1019 static void
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1020 print_double_string (re_char *where, re_char *string1, int size1,
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1021 re_char *string2, int size2)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1022 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1023 if (where == NULL)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1024 printf ("(null)");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1025 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1026 {
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
1027 int this_char;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1028
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1029 if (FIRST_STRING_P (where))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1030 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1031 for (this_char = where - string1; this_char < size1; this_char++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1032 putchar (string1[this_char]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1033
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1034 where = string2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1035 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1036
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1037 for (this_char = where - string2; this_char < size2; this_char++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1038 putchar (string2[this_char]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1039 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1040 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1041
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1042 #else /* not DEBUG */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1043
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1044 #ifndef emacs
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1045 #undef assert
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1046 #define assert(e) ((void) (1))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1047 #endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1048
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1049 #define DEBUG_STATEMENT(e)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1050 #define DEBUG_PRINT1(x)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1051 #define DEBUG_PRINT2(x1, x2)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1052 #define DEBUG_PRINT3(x1, x2, x3)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1053 #define DEBUG_PRINT4(x1, x2, x3, x4)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1054 #define DEBUG_PRINT_COMPILED_PATTERN(p, s, e)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1055 #define DEBUG_PRINT_DOUBLE_STRING(w, s1, sz1, s2, sz2)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1056
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1057 #endif /* DEBUG */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1058
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1059 /* Set by `re_set_syntax' to the current regexp syntax to recognize. Can
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1060 also be assigned to arbitrarily: each pattern buffer stores its own
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1061 syntax, so it can be changed between regex compilations. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1062 /* This has no initializer because initialized variables in Emacs
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1063 become read-only after dumping. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1064 reg_syntax_t re_syntax_options;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1065
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1066
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1067 /* Specify the precise syntax of regexps for compilation. This provides
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1068 for compatibility for various utilities which historically have
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1069 different, incompatible syntaxes.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1070
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1071 The argument SYNTAX is a bit mask comprised of the various bits
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1072 defined in regex.h. We return the old syntax. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1073
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1074 reg_syntax_t
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1075 re_set_syntax (reg_syntax_t syntax)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1076 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1077 reg_syntax_t ret = re_syntax_options;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1078
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1079 re_syntax_options = syntax;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1080 return ret;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1081 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1082
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1083 /* This table gives an error message for each of the error codes listed
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1084 in regex.h. Obviously the order here has to be same as there.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1085 POSIX doesn't require that we do anything for REG_NOERROR,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1086 but why not be nice? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1087
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1088 static const char *re_error_msgid[] =
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1089 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1090 "Success", /* REG_NOERROR */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1091 "No match", /* REG_NOMATCH */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1092 "Invalid regular expression", /* REG_BADPAT */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1093 "Invalid collation character", /* REG_ECOLLATE */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1094 "Invalid character class name", /* REG_ECTYPE */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1095 "Trailing backslash", /* REG_EESCAPE */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1096 "Invalid back reference", /* REG_ESUBREG */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1097 "Unmatched [ or [^", /* REG_EBRACK */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1098 "Unmatched ( or \\(", /* REG_EPAREN */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1099 "Unmatched \\{", /* REG_EBRACE */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1100 "Invalid content of \\{\\}", /* REG_BADBR */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1101 "Invalid range end", /* REG_ERANGE */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1102 "Memory exhausted", /* REG_ESPACE */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1103 "Invalid preceding regular expression", /* REG_BADRPT */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1104 "Premature end of regular expression", /* REG_EEND */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1105 "Regular expression too big", /* REG_ESIZE */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1106 "Unmatched ) or \\)", /* REG_ERPAREN */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1107 #ifdef emacs
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1108 "Invalid syntax designator", /* REG_ESYNTAX */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1109 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1110 #ifdef MULE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1111 "Ranges may not span charsets", /* REG_ERANGESPAN */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1112 "Invalid category designator", /* REG_ECATEGORY */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1113 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1114 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1115
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1116 /* Avoiding alloca during matching, to placate r_alloc. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1117
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1118 /* Define MATCH_MAY_ALLOCATE unless we need to make sure that the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1119 searching and matching functions should not call alloca. On some
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1120 systems, alloca is implemented in terms of malloc, and if we're
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1121 using the relocating allocator routines, then malloc could cause a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1122 relocation, which might (if the strings being searched are in the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1123 ralloc heap) shift the data out from underneath the regexp
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1124 routines. [To clarify: The purpose of rel-alloc is to allow data to
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1125 be moved in memory from one place to another so that all data
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1126 blocks can be consolidated together and excess memory released back
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1127 to the operating system. This requires that all the blocks that
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1128 are managed by rel-alloc go at the very end of the program's heap,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1129 after all regularly malloc()ed data. malloc(), however, is used to
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1130 owning the end of the heap, so that when more memory is needed, it
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1131 just expands the heap using sbrk(). This is reconciled by using a
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1132 malloc() (such as malloc.c, gmalloc.c, or recent versions of
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1133 malloc() in libc) where the sbrk() call can be replaced with a
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1134 user-specified call -- in this case, to rel-alloc's r_alloc_sbrk()
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1135 routine. This routine calls the real sbrk(), but then shifts all
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1136 the rel-alloc-managed blocks forward to the end of the heap again,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1137 so that malloc() gets the memory it needs in the location it needs
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1138 it at. The regex routines may well have pointers to buffer data as
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1139 their arguments, and buffers are managed by rel-alloc if rel-alloc
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1140 has been enabled, so calling malloc() may potentially screw things
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1141 up badly if it runs out of space and asks for more from the OS.]
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1142
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1143 [[Here's another reason to avoid allocation: Emacs processes input
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1144 from X in a signal handler; processing X input may call malloc; if
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1145 input arrives while a matching routine is calling malloc, then
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1146 we're scrod. But Emacs can't just block input while calling
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1147 matching routines; then we don't notice interrupts when they come
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1148 in. So, Emacs blocks input around all regexp calls except the
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1149 matching calls, which it leaves unprotected, in the faith that they
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1150 will not malloc.]] This previous paragraph is irrelevant.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1151
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
1152 XEmacs: We *do not* do anything so stupid as process input from within a
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
1153 signal handler. However, the regexp routines may get called reentrantly
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
1154 as a result of QUIT processing (e.g. under Windows: re_match -> QUIT ->
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
1155 quit_p -> drain events -> process WM_INITMENU -> call filter ->
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
1156 re_match; see stack trace in signal.c), so we cannot have any global
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
1157 variables (unless we do lots of trickiness including some
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1158 unwind-protects, which isn't worth it at this point). The first
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1159 paragraph appears utterly garbled to me -- shouldn't *ANY* use of
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
1160 rel-alloc to different potentially cause buffer data to be relocated? I
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
1161 must be missing something, though -- perhaps the writer above is
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
1162 assuming that the failure stack(s) will always be allocated after the
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
1163 buffer data, and thus reallocating them with rel-alloc won't move buffer
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
1164 data. --ben */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1165
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1166 /* Normally, this is fine. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1167 #define MATCH_MAY_ALLOCATE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1168
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1169 /* When using GNU C, we are not REALLY using the C alloca, no matter
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1170 what config.h may say. So don't take precautions for it. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1171 #ifdef __GNUC__
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1172 #undef C_ALLOCA
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1173 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1174
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1175 /* The match routines may not allocate if (1) they would do it with malloc
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1176 and (2) it's not safe for them to use malloc.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1177 Note that if REL_ALLOC is defined, matching would not use malloc for the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1178 failure stack, but we would still use it for the register vectors;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1179 so REL_ALLOC should not affect this. */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1180
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1181 /* XEmacs change emacs -> REL_ALLOC */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1182 #if (defined (C_ALLOCA) || defined (REGEX_MALLOC)) && defined (REL_ALLOC)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1183 #undef MATCH_MAY_ALLOCATE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1184 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1185
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1186 /* #### need better check */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1187
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1188 #if !defined (MATCH_MAY_ALLOCATE) && defined (emacs) && defined (HAVE_MS_WINDOWS)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1189 #error regex must be handle reentrancy; MATCH_MAY_ALLOCATE must be defined
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1190 #endif
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1191
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1192
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1193 /* Failure stack declarations and macros; both re_compile_fastmap and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1194 re_match_2 use a failure stack. These have to be macros because of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1195 REGEX_ALLOCATE_STACK. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1196
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1197
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1198 /* Number of failure points for which to initially allocate space
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1199 when matching. If this number is exceeded, we allocate more
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1200 space, so it is not a hard limit. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1201 #ifndef INIT_FAILURE_ALLOC
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1202 #define INIT_FAILURE_ALLOC 5
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1203 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1204
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1205 /* Roughly the maximum number of failure points on the stack. Would be
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1206 exactly that if always used MAX_FAILURE_SPACE each time we failed.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1207 This is a variable only so users of regex can assign to it; we never
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1208 change it ourselves. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1209 #if defined (MATCH_MAY_ALLOCATE)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1210 /* 4400 was enough to cause a crash on Alpha OSF/1,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1211 whose default stack limit is 2mb. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1212 int re_max_failures = 20000;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1213 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1214 int re_max_failures = 2000;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1215 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1216
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1217 union fail_stack_elt
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1218 {
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1219 re_char *pointer;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1220 int integer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1221 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1222
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1223 typedef union fail_stack_elt fail_stack_elt_t;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1224
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1225 typedef struct
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1226 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1227 fail_stack_elt_t *stack;
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 648
diff changeset
1228 Elemcount size;
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 648
diff changeset
1229 Elemcount avail; /* Offset of next open position. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1230 } fail_stack_type;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1231
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1232 #define FAIL_STACK_EMPTY() (fail_stack.avail == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1233 #define FAIL_STACK_PTR_EMPTY() (fail_stack_ptr->avail == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1234 #define FAIL_STACK_FULL() (fail_stack.avail == fail_stack.size)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1235
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1236
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1237 /* Define macros to initialize and free the failure stack.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1238 Do `return -2' if the alloc fails. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1239
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1240 #ifdef MATCH_MAY_ALLOCATE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1241 #define INIT_FAIL_STACK() \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1242 do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1243 fail_stack.stack = (fail_stack_elt_t *) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1244 REGEX_ALLOCATE_STACK (INIT_FAILURE_ALLOC * sizeof (fail_stack_elt_t)); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1245 \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1246 if (fail_stack.stack == NULL) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1247 return -2; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1248 \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1249 fail_stack.size = INIT_FAILURE_ALLOC; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1250 fail_stack.avail = 0; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1251 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1252
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1253 #define RESET_FAIL_STACK() REGEX_FREE_STACK (fail_stack.stack)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1254 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1255 #define INIT_FAIL_STACK() \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1256 do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1257 fail_stack.avail = 0; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1258 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1259
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1260 #define RESET_FAIL_STACK()
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1261 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1262
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1263
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1264 /* Double the size of FAIL_STACK, up to approximately `re_max_failures' items.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1265
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1266 Return 1 if succeeds, and 0 if either ran out of memory
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1267 allocating space for it or it was already too large.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1268
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1269 REGEX_REALLOCATE_STACK requires `destination' be declared. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1270
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1271 #define DOUBLE_FAIL_STACK(fail_stack) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1272 ((fail_stack).size > re_max_failures * MAX_FAILURE_ITEMS \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1273 ? 0 \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1274 : ((fail_stack).stack = (fail_stack_elt_t *) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1275 REGEX_REALLOCATE_STACK ((fail_stack).stack, \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1276 (fail_stack).size * sizeof (fail_stack_elt_t), \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1277 ((fail_stack).size << 1) * sizeof (fail_stack_elt_t)), \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1278 \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1279 (fail_stack).stack == NULL \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1280 ? 0 \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1281 : ((fail_stack).size <<= 1, \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1282 1)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1283
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1284
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1285 /* Push pointer POINTER on FAIL_STACK.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1286 Return 1 if was able to do so and 0 if ran out of memory allocating
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1287 space to do so. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1288 #define PUSH_PATTERN_OP(POINTER, FAIL_STACK) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1289 ((FAIL_STACK_FULL () \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1290 && !DOUBLE_FAIL_STACK (FAIL_STACK)) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1291 ? 0 \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1292 : ((FAIL_STACK).stack[(FAIL_STACK).avail++].pointer = POINTER, \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1293 1))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1294
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1295 /* Push a pointer value onto the failure stack.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1296 Assumes the variable `fail_stack'. Probably should only
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1297 be called from within `PUSH_FAILURE_POINT'. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1298 #define PUSH_FAILURE_POINTER(item) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1299 fail_stack.stack[fail_stack.avail++].pointer = (unsigned char *) (item)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1300
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1301 /* This pushes an integer-valued item onto the failure stack.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1302 Assumes the variable `fail_stack'. Probably should only
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1303 be called from within `PUSH_FAILURE_POINT'. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1304 #define PUSH_FAILURE_INT(item) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1305 fail_stack.stack[fail_stack.avail++].integer = (item)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1306
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1307 /* Push a fail_stack_elt_t value onto the failure stack.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1308 Assumes the variable `fail_stack'. Probably should only
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1309 be called from within `PUSH_FAILURE_POINT'. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1310 #define PUSH_FAILURE_ELT(item) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1311 fail_stack.stack[fail_stack.avail++] = (item)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1312
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1313 /* These three POP... operations complement the three PUSH... operations.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1314 All assume that `fail_stack' is nonempty. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1315 #define POP_FAILURE_POINTER() fail_stack.stack[--fail_stack.avail].pointer
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1316 #define POP_FAILURE_INT() fail_stack.stack[--fail_stack.avail].integer
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1317 #define POP_FAILURE_ELT() fail_stack.stack[--fail_stack.avail]
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1318
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1319 /* Used to omit pushing failure point id's when we're not debugging. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1320 #ifdef DEBUG
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1321 #define DEBUG_PUSH PUSH_FAILURE_INT
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1322 #define DEBUG_POP(item_addr) *(item_addr) = POP_FAILURE_INT ()
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1323 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1324 #define DEBUG_PUSH(item)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1325 #define DEBUG_POP(item_addr)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1326 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1327
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1328
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1329 /* Push the information about the state we will need
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1330 if we ever fail back to it.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1331
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1332 Requires variables fail_stack, regstart, regend, reg_info, and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1333 num_regs be declared. DOUBLE_FAIL_STACK requires `destination' be
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1334 declared.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1335
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1336 Does `return FAILURE_CODE' if runs out of memory. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1337
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1338 #if !defined (REGEX_MALLOC) && !defined (REGEX_REL_ALLOC)
456
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1339 #define DECLARE_DESTINATION char *destination
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1340 #else
456
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1341 #define DECLARE_DESTINATION DECLARE_NOTHING
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1342 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1343
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1344 #define PUSH_FAILURE_POINT(pattern_place, string_place, failure_code) \
456
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1345 do { \
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1346 DECLARE_DESTINATION; \
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1347 /* Must be int, so when we don't save any registers, the arithmetic \
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1348 of 0 + -1 isn't done as unsigned. */ \
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1349 int this_reg; \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1350 \
456
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1351 DEBUG_STATEMENT (failure_id++); \
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1352 DEBUG_STATEMENT (nfailure_points_pushed++); \
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
1353 DEBUG_PRINT2 ("\nPUSH_FAILURE_POINT #%d:\n", failure_id); \
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
1354 DEBUG_PRINT2 (" Before push, next avail: %ld\n", \
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
1355 (long) (fail_stack).avail); \
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
1356 DEBUG_PRINT2 (" size: %ld\n", \
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
1357 (long) (fail_stack).size); \
456
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1358 \
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1359 DEBUG_PRINT2 (" slots needed: %d\n", NUM_FAILURE_ITEMS); \
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1360 DEBUG_PRINT2 (" available: %ld\n", \
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1361 (long) REMAINING_AVAIL_SLOTS); \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1362 \
456
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1363 /* Ensure we have enough space allocated for what we will push. */ \
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1364 while (REMAINING_AVAIL_SLOTS < NUM_FAILURE_ITEMS) \
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1365 { \
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1366 if (!DOUBLE_FAIL_STACK (fail_stack)) \
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1367 return failure_code; \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1368 \
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
1369 DEBUG_PRINT2 ("\n Doubled stack; size now: %ld\n", \
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
1370 (long) (fail_stack).size); \
456
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1371 DEBUG_PRINT2 (" slots available: %ld\n", \
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1372 (long) REMAINING_AVAIL_SLOTS); \
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1373 } \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1374 \
456
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1375 /* Push the info, starting with the registers. */ \
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1376 DEBUG_PRINT1 ("\n"); \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1377 \
456
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1378 for (this_reg = lowest_active_reg; this_reg <= highest_active_reg; \
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1379 this_reg++) \
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1380 { \
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1381 DEBUG_PRINT2 (" Pushing reg: %d\n", this_reg); \
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1382 DEBUG_STATEMENT (num_regs_pushed++); \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1383 \
456
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1384 DEBUG_PRINT2 (" start: 0x%lx\n", (long) regstart[this_reg]); \
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1385 PUSH_FAILURE_POINTER (regstart[this_reg]); \
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1386 \
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1387 DEBUG_PRINT2 (" end: 0x%lx\n", (long) regend[this_reg]); \
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1388 PUSH_FAILURE_POINTER (regend[this_reg]); \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1389 \
456
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1390 DEBUG_PRINT2 (" info: 0x%lx\n ", \
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1391 * (long *) (&reg_info[this_reg])); \
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1392 DEBUG_PRINT2 (" match_null=%d", \
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1393 REG_MATCH_NULL_STRING_P (reg_info[this_reg])); \
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1394 DEBUG_PRINT2 (" active=%d", IS_ACTIVE (reg_info[this_reg])); \
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1395 DEBUG_PRINT2 (" matched_something=%d", \
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1396 MATCHED_SOMETHING (reg_info[this_reg])); \
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1397 DEBUG_PRINT2 (" ever_matched_something=%d", \
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1398 EVER_MATCHED_SOMETHING (reg_info[this_reg])); \
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1399 DEBUG_PRINT1 ("\n"); \
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1400 PUSH_FAILURE_ELT (reg_info[this_reg].word); \
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1401 } \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1402 \
456
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1403 DEBUG_PRINT2 (" Pushing low active reg: %d\n", lowest_active_reg); \
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1404 PUSH_FAILURE_INT (lowest_active_reg); \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1405 \
456
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1406 DEBUG_PRINT2 (" Pushing high active reg: %d\n", highest_active_reg); \
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1407 PUSH_FAILURE_INT (highest_active_reg); \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1408 \
456
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1409 DEBUG_PRINT2 (" Pushing pattern 0x%lx: \n", (long) pattern_place); \
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1410 DEBUG_PRINT_COMPILED_PATTERN (bufp, pattern_place, pend); \
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1411 PUSH_FAILURE_POINTER (pattern_place); \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1412 \
456
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1413 DEBUG_PRINT2 (" Pushing string 0x%lx: `", (long) string_place); \
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1414 DEBUG_PRINT_DOUBLE_STRING (string_place, string1, size1, string2, \
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1415 size2); \
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1416 DEBUG_PRINT1 ("'\n"); \
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1417 PUSH_FAILURE_POINTER (string_place); \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1418 \
456
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1419 DEBUG_PRINT2 (" Pushing failure id: %u\n", failure_id); \
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1420 DEBUG_PUSH (failure_id); \
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1421 } while (0)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1422
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1423 /* This is the number of items that are pushed and popped on the stack
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1424 for each register. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1425 #define NUM_REG_ITEMS 3
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1426
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1427 /* Individual items aside from the registers. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1428 #ifdef DEBUG
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1429 #define NUM_NONREG_ITEMS 5 /* Includes failure point id. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1430 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1431 #define NUM_NONREG_ITEMS 4
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1432 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1433
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1434 /* We push at most this many items on the stack. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1435 /* We used to use (num_regs - 1), which is the number of registers
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1436 this regexp will save; but that was changed to 5
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1437 to avoid stack overflow for a regexp with lots of parens. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1438 #define MAX_FAILURE_ITEMS (5 * NUM_REG_ITEMS + NUM_NONREG_ITEMS)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1439
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1440 /* We actually push this many items. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1441 #define NUM_FAILURE_ITEMS \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1442 ((highest_active_reg - lowest_active_reg + 1) * NUM_REG_ITEMS \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1443 + NUM_NONREG_ITEMS)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1444
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1445 /* How many items can still be added to the stack without overflowing it. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1446 #define REMAINING_AVAIL_SLOTS ((fail_stack).size - (fail_stack).avail)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1447
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1448
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1449 /* Pops what PUSH_FAIL_STACK pushes.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1450
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1451 We restore into the parameters, all of which should be lvalues:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1452 STR -- the saved data position.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1453 PAT -- the saved pattern position.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1454 LOW_REG, HIGH_REG -- the highest and lowest active registers.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1455 REGSTART, REGEND -- arrays of string positions.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1456 REG_INFO -- array of information about each subexpression.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1457
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1458 Also assumes the variables `fail_stack' and (if debugging), `bufp',
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1459 `pend', `string1', `size1', `string2', and `size2'. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1460
456
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1461 #define POP_FAILURE_POINT(str, pat, low_reg, high_reg, \
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1462 regstart, regend, reg_info) \
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1463 do { \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1464 DEBUG_STATEMENT (fail_stack_elt_t ffailure_id;) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1465 int this_reg; \
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1466 const unsigned char *string_temp; \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1467 \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1468 assert (!FAIL_STACK_EMPTY ()); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1469 \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1470 /* Remove failure points and point to how many regs pushed. */ \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1471 DEBUG_PRINT1 ("POP_FAILURE_POINT:\n"); \
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
1472 DEBUG_PRINT2 (" Before pop, next avail: %ld\n", \
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
1473 (long) fail_stack.avail); \
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
1474 DEBUG_PRINT2 (" size: %ld\n", \
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
1475 (long) fail_stack.size); \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1476 \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1477 assert (fail_stack.avail >= NUM_NONREG_ITEMS); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1478 \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1479 DEBUG_POP (&ffailure_id.integer); \
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
1480 DEBUG_PRINT2 (" Popping failure id: %d\n", \
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
1481 * (int *) &ffailure_id); \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1482 \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1483 /* If the saved string location is NULL, it came from an \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1484 on_failure_keep_string_jump opcode, and we want to throw away the \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1485 saved NULL, thus retaining our current position in the string. */ \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1486 string_temp = POP_FAILURE_POINTER (); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1487 if (string_temp != NULL) \
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1488 str = string_temp; \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1489 \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1490 DEBUG_PRINT2 (" Popping string 0x%lx: `", (long) str); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1491 DEBUG_PRINT_DOUBLE_STRING (str, string1, size1, string2, size2); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1492 DEBUG_PRINT1 ("'\n"); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1493 \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1494 pat = (unsigned char *) POP_FAILURE_POINTER (); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1495 DEBUG_PRINT2 (" Popping pattern 0x%lx: ", (long) pat); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1496 DEBUG_PRINT_COMPILED_PATTERN (bufp, pat, pend); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1497 \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1498 /* Restore register info. */ \
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
1499 high_reg = POP_FAILURE_INT (); \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1500 DEBUG_PRINT2 (" Popping high active reg: %d\n", high_reg); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1501 \
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
1502 low_reg = POP_FAILURE_INT (); \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1503 DEBUG_PRINT2 (" Popping low active reg: %d\n", low_reg); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1504 \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1505 for (this_reg = high_reg; this_reg >= low_reg; this_reg--) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1506 { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1507 DEBUG_PRINT2 (" Popping reg: %d\n", this_reg); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1508 \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1509 reg_info[this_reg].word = POP_FAILURE_ELT (); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1510 DEBUG_PRINT2 (" info: 0x%lx\n", \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1511 * (long *) &reg_info[this_reg]); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1512 \
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1513 regend[this_reg] = POP_FAILURE_POINTER (); \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1514 DEBUG_PRINT2 (" end: 0x%lx\n", (long) regend[this_reg]); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1515 \
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1516 regstart[this_reg] = POP_FAILURE_POINTER (); \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1517 DEBUG_PRINT2 (" start: 0x%lx\n", (long) regstart[this_reg]); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1518 } \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1519 \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1520 set_regs_matched_done = 0; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1521 DEBUG_STATEMENT (nfailure_points_popped++); \
456
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
1522 } while (0) /* POP_FAILURE_POINT */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1523
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1524
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1525
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1526 /* Structure for per-register (a.k.a. per-group) information.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1527 Other register information, such as the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1528 starting and ending positions (which are addresses), and the list of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1529 inner groups (which is a bits list) are maintained in separate
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1530 variables.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1531
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1532 We are making a (strictly speaking) nonportable assumption here: that
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1533 the compiler will pack our bit fields into something that fits into
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1534 the type of `word', i.e., is something that fits into one item on the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1535 failure stack. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1536
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1537 typedef union
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1538 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1539 fail_stack_elt_t word;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1540 struct
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1541 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1542 /* This field is one if this group can match the empty string,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1543 zero if not. If not yet determined, `MATCH_NULL_UNSET_VALUE'. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1544 #define MATCH_NULL_UNSET_VALUE 3
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
1545 unsigned int match_null_string_p : 2;
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
1546 unsigned int is_active : 1;
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
1547 unsigned int matched_something : 1;
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
1548 unsigned int ever_matched_something : 1;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1549 } bits;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1550 } register_info_type;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1551
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1552 #define REG_MATCH_NULL_STRING_P(R) ((R).bits.match_null_string_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1553 #define IS_ACTIVE(R) ((R).bits.is_active)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1554 #define MATCHED_SOMETHING(R) ((R).bits.matched_something)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1555 #define EVER_MATCHED_SOMETHING(R) ((R).bits.ever_matched_something)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1556
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1557
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1558 /* Call this when have matched a real character; it sets `matched' flags
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1559 for the subexpressions which we are currently inside. Also records
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1560 that those subexprs have matched. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1561 #define SET_REGS_MATCHED() \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1562 do \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1563 { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1564 if (!set_regs_matched_done) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1565 { \
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
1566 int r; \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1567 set_regs_matched_done = 1; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1568 for (r = lowest_active_reg; r <= highest_active_reg; r++) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1569 { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1570 MATCHED_SOMETHING (reg_info[r]) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1571 = EVER_MATCHED_SOMETHING (reg_info[r]) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1572 = 1; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1573 } \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1574 } \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1575 } \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1576 while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1577
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1578 /* Registers are set to a sentinel when they haven't yet matched. */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1579 static unsigned char reg_unset_dummy;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1580 #define REG_UNSET_VALUE (&reg_unset_dummy)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1581 #define REG_UNSET(e) ((e) == REG_UNSET_VALUE)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1582
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1583 /* Subroutine declarations and macros for regex_compile. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1584
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1585 /* Fetch the next character in the uncompiled pattern---translating it
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
1586 if necessary. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1587 #define PATFETCH(c) \
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1588 do { \
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1589 PATFETCH_RAW (c); \
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
1590 c = RE_TRANSLATE (c); \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1591 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1592
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1593 /* Fetch the next character in the uncompiled pattern, with no
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1594 translation. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1595 #define PATFETCH_RAW(c) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1596 do {if (p == pend) return REG_EEND; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1597 assert (p < pend); \
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1598 c = charptr_emchar (p); \
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1599 INC_CHARPTR (p); \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1600 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1601
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1602 /* Go backwards one character in the pattern. */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1603 #define PATUNFETCH DEC_CHARPTR (p)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1604
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1605 /* If `translate' is non-null, return translate[D], else just D. We
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1606 cast the subscript to translate because some data is declared as
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1607 `char *', to avoid warnings when a string constant is passed. But
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1608 when we use a character as a subscript we must make it unsigned. */
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
1609 #define RE_TRANSLATE(d) \
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
1610 (TRANSLATE_P (translate) ? RE_TRANSLATE_1 (d) : (d))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1611
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1612 /* Macros for outputting the compiled pattern into `buffer'. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1613
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1614 /* If the buffer isn't allocated when it comes in, use this. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1615 #define INIT_BUF_SIZE 32
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1616
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1617 /* Make sure we have at least N more bytes of space in buffer. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1618 #define GET_BUFFER_SPACE(n) \
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
1619 while (buf_end - bufp->buffer + (n) > (ptrdiff_t) bufp->allocated) \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1620 EXTEND_BUFFER ()
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1621
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1622 /* Make sure we have one more byte of buffer space and then add C to it. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1623 #define BUF_PUSH(c) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1624 do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1625 GET_BUFFER_SPACE (1); \
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1626 *buf_end++ = (unsigned char) (c); \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1627 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1628
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1629
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1630 /* Ensure we have two more bytes of buffer space and then append C1 and C2. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1631 #define BUF_PUSH_2(c1, c2) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1632 do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1633 GET_BUFFER_SPACE (2); \
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1634 *buf_end++ = (unsigned char) (c1); \
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1635 *buf_end++ = (unsigned char) (c2); \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1636 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1637
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1638
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1639 /* As with BUF_PUSH_2, except for three bytes. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1640 #define BUF_PUSH_3(c1, c2, c3) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1641 do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1642 GET_BUFFER_SPACE (3); \
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1643 *buf_end++ = (unsigned char) (c1); \
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1644 *buf_end++ = (unsigned char) (c2); \
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1645 *buf_end++ = (unsigned char) (c3); \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1646 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1647
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1648
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1649 /* Store a jump with opcode OP at LOC to location TO. We store a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1650 relative address offset by the three bytes the jump itself occupies. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1651 #define STORE_JUMP(op, loc, to) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1652 store_op1 (op, loc, (to) - (loc) - 3)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1653
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1654 /* Likewise, for a two-argument jump. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1655 #define STORE_JUMP2(op, loc, to, arg) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1656 store_op2 (op, loc, (to) - (loc) - 3, arg)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1657
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1658 /* Like `STORE_JUMP', but for inserting. Assume `buf_end' is the
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1659 buffer end. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1660 #define INSERT_JUMP(op, loc, to) \
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1661 insert_op1 (op, loc, (to) - (loc) - 3, buf_end)
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1662
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1663 /* Like `STORE_JUMP2', but for inserting. Assume `buf_end' is the
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1664 buffer end. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1665 #define INSERT_JUMP2(op, loc, to, arg) \
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1666 insert_op2 (op, loc, (to) - (loc) - 3, arg, buf_end)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1667
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1668
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1669 /* This is not an arbitrary limit: the arguments which represent offsets
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1670 into the pattern are two bytes long. So if 2^16 bytes turns out to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1671 be too small, many things would have to change. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1672 #define MAX_BUF_SIZE (1L << 16)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1673
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1674
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1675 /* Extend the buffer by twice its current size via realloc and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1676 reset the pointers that pointed into the old block to point to the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1677 correct places in the new one. If extending the buffer results in it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1678 being larger than MAX_BUF_SIZE, then flag memory exhausted. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1679 #define EXTEND_BUFFER() \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1680 do { \
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
1681 re_char *old_buffer = bufp->buffer; \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1682 if (bufp->allocated == MAX_BUF_SIZE) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1683 return REG_ESIZE; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1684 bufp->allocated <<= 1; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1685 if (bufp->allocated > MAX_BUF_SIZE) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1686 bufp->allocated = MAX_BUF_SIZE; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1687 bufp->buffer = (unsigned char *) realloc (bufp->buffer, bufp->allocated);\
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1688 if (bufp->buffer == NULL) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1689 return REG_ESPACE; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1690 /* If the buffer moved, move all the pointers into it. */ \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1691 if (old_buffer != bufp->buffer) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1692 { \
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1693 buf_end = (buf_end - old_buffer) + bufp->buffer; \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1694 begalt = (begalt - old_buffer) + bufp->buffer; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1695 if (fixup_alt_jump) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1696 fixup_alt_jump = (fixup_alt_jump - old_buffer) + bufp->buffer;\
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1697 if (laststart) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1698 laststart = (laststart - old_buffer) + bufp->buffer; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1699 if (pending_exact) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1700 pending_exact = (pending_exact - old_buffer) + bufp->buffer; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1701 } \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1702 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1703
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1704
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1705 /* Since we have one byte reserved for the register number argument to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1706 {start,stop}_memory, the maximum number of groups we can report
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1707 things about is what fits in that byte. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1708 #define MAX_REGNUM 255
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1709
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1710 /* But patterns can have more than `MAX_REGNUM' registers. We just
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
1711 ignore the excess.
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
1712 #### not true! groups past this will fail in lots of ways, if we
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
1713 ever have to backtrack.
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
1714 */
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
1715 typedef int regnum_t;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1716
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
1717 #define INIT_REG_TRANSLATE_SIZE 5
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1718
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1719 /* Macros for the compile stack. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1720
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1721 /* Since offsets can go either forwards or backwards, this type needs to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1722 be able to hold values from -(MAX_BUF_SIZE - 1) to MAX_BUF_SIZE - 1. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1723 typedef int pattern_offset_t;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1724
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1725 typedef struct
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1726 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1727 pattern_offset_t begalt_offset;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1728 pattern_offset_t fixup_alt_jump;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1729 pattern_offset_t inner_group_offset;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1730 pattern_offset_t laststart_offset;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1731 regnum_t regnum;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1732 } compile_stack_elt_t;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1733
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1734
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1735 typedef struct
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1736 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1737 compile_stack_elt_t *stack;
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
1738 int size;
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
1739 int avail; /* Offset of next open position. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1740 } compile_stack_type;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1741
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1742
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1743 #define INIT_COMPILE_STACK_SIZE 32
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1744
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1745 #define COMPILE_STACK_EMPTY (compile_stack.avail == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1746 #define COMPILE_STACK_FULL (compile_stack.avail == compile_stack.size)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1747
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1748 /* The next available element. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1749 #define COMPILE_STACK_TOP (compile_stack.stack[compile_stack.avail])
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1750
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1751
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1752 /* Set the bit for character C in a bit vector. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1753 #define SET_LIST_BIT(c) \
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1754 (buf_end[((unsigned char) (c)) / BYTEWIDTH] \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1755 |= 1 << (((unsigned char) c) % BYTEWIDTH))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1756
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1757 #ifdef MULE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1758
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1759 /* Set the "bit" for character C in a range table. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1760 #define SET_RANGETAB_BIT(c) put_range_table (rtab, c, c, Qt)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1761
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1762 /* Set the "bit" for character c in the appropriate table. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1763 #define SET_EITHER_BIT(c) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1764 do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1765 if (has_extended_chars) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1766 SET_RANGETAB_BIT (c); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1767 else \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1768 SET_LIST_BIT (c); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1769 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1770
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1771 #else /* not MULE */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1772
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1773 #define SET_EITHER_BIT(c) SET_LIST_BIT (c)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1774
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1775 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1776
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1777
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1778 /* Get the next unsigned number in the uncompiled pattern. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1779 #define GET_UNSIGNED_NUMBER(num) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1780 { if (p != pend) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1781 { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1782 PATFETCH (c); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1783 while (ISDIGIT (c)) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1784 { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1785 if (num < 0) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1786 num = 0; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1787 num = num * 10 + c - '0'; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1788 if (p == pend) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1789 break; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1790 PATFETCH (c); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1791 } \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1792 } \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1793 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1794
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1795 #define CHAR_CLASS_MAX_LENGTH 6 /* Namely, `xdigit'. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1796
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1797 #define IS_CHAR_CLASS(string) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1798 (STREQ (string, "alpha") || STREQ (string, "upper") \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1799 || STREQ (string, "lower") || STREQ (string, "digit") \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1800 || STREQ (string, "alnum") || STREQ (string, "xdigit") \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1801 || STREQ (string, "space") || STREQ (string, "print") \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1802 || STREQ (string, "punct") || STREQ (string, "graph") \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1803 || STREQ (string, "cntrl") || STREQ (string, "blank"))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1804
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1805 static void store_op1 (re_opcode_t op, unsigned char *loc, int arg);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1806 static void store_op2 (re_opcode_t op, unsigned char *loc, int arg1, int arg2);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1807 static void insert_op1 (re_opcode_t op, unsigned char *loc, int arg,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1808 unsigned char *end);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1809 static void insert_op2 (re_opcode_t op, unsigned char *loc, int arg1, int arg2,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1810 unsigned char *end);
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
1811 static re_bool at_begline_loc_p (re_char *pattern, re_char *p,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1812 reg_syntax_t syntax);
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
1813 static re_bool at_endline_loc_p (re_char *p, re_char *pend, int syntax);
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
1814 static re_bool group_in_compile_stack (compile_stack_type compile_stack,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1815 regnum_t regnum);
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1816 static reg_errcode_t compile_range (re_char **p_ptr, re_char *pend,
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1817 RE_TRANSLATE_TYPE translate,
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1818 reg_syntax_t syntax,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1819 unsigned char *b);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1820 #ifdef MULE
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1821 static reg_errcode_t compile_extended_range (re_char **p_ptr,
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1822 re_char *pend,
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1823 RE_TRANSLATE_TYPE translate,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1824 reg_syntax_t syntax,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1825 Lisp_Object rtab);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1826 #endif /* MULE */
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
1827 static re_bool group_match_null_string_p (unsigned char **p,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1828 unsigned char *end,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1829 register_info_type *reg_info);
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
1830 static re_bool alt_match_null_string_p (unsigned char *p, unsigned char *end,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1831 register_info_type *reg_info);
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
1832 static re_bool common_op_match_null_string_p (unsigned char **p,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1833 unsigned char *end,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1834 register_info_type *reg_info);
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
1835 static int bcmp_translate (re_char *s1, re_char *s2,
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
1836 REGISTER int len, RE_TRANSLATE_TYPE translate
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
1837 #ifdef emacs
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
1838 , Internal_Format fmt, Lisp_Object lispobj
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
1839 #endif
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
1840 );
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1841 static int re_match_2_internal (struct re_pattern_buffer *bufp,
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1842 re_char *string1, int size1,
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1843 re_char *string2, int size2, int pos,
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
1844 struct re_registers *regs, int stop
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
1845 RE_LISP_CONTEXT_ARGS_DECL);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1846
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1847 #ifndef MATCH_MAY_ALLOCATE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1848
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1849 /* If we cannot allocate large objects within re_match_2_internal,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1850 we make the fail stack and register vectors global.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1851 The fail stack, we grow to the maximum size when a regexp
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1852 is compiled.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1853 The register vectors, we adjust in size each time we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1854 compile a regexp, according to the number of registers it needs. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1855
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1856 static fail_stack_type fail_stack;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1857
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1858 /* Size with which the following vectors are currently allocated.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1859 That is so we can make them bigger as needed,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1860 but never make them smaller. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1861 static int regs_allocated_size;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1862
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1863 static re_char ** regstart, ** regend;
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1864 static re_char ** old_regstart, ** old_regend;
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1865 static re_char **best_regstart, **best_regend;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1866 static register_info_type *reg_info;
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1867 static re_char **reg_dummy;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1868 static register_info_type *reg_info_dummy;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1869
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1870 /* Make the register vectors big enough for NUM_REGS registers,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1871 but don't make them smaller. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1872
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1873 static
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1874 regex_grow_registers (int num_regs)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1875 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1876 if (num_regs > regs_allocated_size)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1877 {
551
e9a3f8b4de53 [xemacs-hg @ 2001-05-21 05:26:06 by martinb]
martinb
parents: 544
diff changeset
1878 RETALLOC (regstart, num_regs, re_char *);
e9a3f8b4de53 [xemacs-hg @ 2001-05-21 05:26:06 by martinb]
martinb
parents: 544
diff changeset
1879 RETALLOC (regend, num_regs, re_char *);
e9a3f8b4de53 [xemacs-hg @ 2001-05-21 05:26:06 by martinb]
martinb
parents: 544
diff changeset
1880 RETALLOC (old_regstart, num_regs, re_char *);
e9a3f8b4de53 [xemacs-hg @ 2001-05-21 05:26:06 by martinb]
martinb
parents: 544
diff changeset
1881 RETALLOC (old_regend, num_regs, re_char *);
e9a3f8b4de53 [xemacs-hg @ 2001-05-21 05:26:06 by martinb]
martinb
parents: 544
diff changeset
1882 RETALLOC (best_regstart, num_regs, re_char *);
e9a3f8b4de53 [xemacs-hg @ 2001-05-21 05:26:06 by martinb]
martinb
parents: 544
diff changeset
1883 RETALLOC (best_regend, num_regs, re_char *);
e9a3f8b4de53 [xemacs-hg @ 2001-05-21 05:26:06 by martinb]
martinb
parents: 544
diff changeset
1884 RETALLOC (reg_info, num_regs, register_info_type);
e9a3f8b4de53 [xemacs-hg @ 2001-05-21 05:26:06 by martinb]
martinb
parents: 544
diff changeset
1885 RETALLOC (reg_dummy, num_regs, re_char *);
e9a3f8b4de53 [xemacs-hg @ 2001-05-21 05:26:06 by martinb]
martinb
parents: 544
diff changeset
1886 RETALLOC (reg_info_dummy, num_regs, register_info_type);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1887
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1888 regs_allocated_size = num_regs;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1889 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1890 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1891
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1892 #endif /* not MATCH_MAY_ALLOCATE */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1893
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1894 /* `regex_compile' compiles PATTERN (of length SIZE) according to SYNTAX.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1895 Returns one of error codes defined in `regex.h', or zero for success.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1896
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1897 Assumes the `allocated' (and perhaps `buffer') and `translate'
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1898 fields are set in BUFP on entry.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1899
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1900 If it succeeds, results are put in BUFP (if it returns an error, the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1901 contents of BUFP are undefined):
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1902 `buffer' is the compiled pattern;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1903 `syntax' is set to SYNTAX;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1904 `used' is set to the length of the compiled pattern;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1905 `fastmap_accurate' is zero;
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
1906 `re_ngroups' is the number of groups/subexpressions (including shy
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
1907 groups) in PATTERN;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
1908 `re_nsub' is the number of non-shy groups in PATTERN;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1909 `not_bol' and `not_eol' are zero;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1910
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1911 The `fastmap' and `newline_anchor' fields are neither
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1912 examined nor set. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1913
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1914 /* Return, freeing storage we allocated. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1915 #define FREE_STACK_RETURN(value) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1916 return (free (compile_stack.stack), value)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1917
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1918 static reg_errcode_t
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1919 regex_compile (re_char *pattern, int size, reg_syntax_t syntax,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1920 struct re_pattern_buffer *bufp)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1921 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1922 /* We fetch characters from PATTERN here. We declare these as int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1923 (or possibly long) so that chars above 127 can be used as
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1924 array indices. The macros that fetch a character from the pattern
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1925 make sure to coerce to unsigned char before assigning, so we won't
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1926 get bitten by negative numbers here. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1927 /* XEmacs change: used to be unsigned char. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1928 REGISTER EMACS_INT c, c1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1929
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1930 /* A random temporary spot in PATTERN. */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1931 re_char *p1;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1932
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1933 /* Points to the end of the buffer, where we should append. */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1934 REGISTER unsigned char *buf_end;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1935
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1936 /* Keeps track of unclosed groups. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1937 compile_stack_type compile_stack;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1938
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1939 /* Points to the current (ending) position in the pattern. */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1940 re_char *p = pattern;
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1941 re_char *pend = pattern + size;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1942
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1943 /* How to translate the characters in the pattern. */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1944 RE_TRANSLATE_TYPE translate = bufp->translate;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1945
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1946 /* Address of the count-byte of the most recently inserted `exactn'
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1947 command. This makes it possible to tell if a new exact-match
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1948 character can be added to that command or if the character requires
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1949 a new `exactn' command. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1950 unsigned char *pending_exact = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1951
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1952 /* Address of start of the most recently finished expression.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1953 This tells, e.g., postfix * where to find the start of its
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1954 operand. Reset at the beginning of groups and alternatives. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1955 unsigned char *laststart = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1956
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1957 /* Address of beginning of regexp, or inside of last group. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1958 unsigned char *begalt;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1959
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1960 /* Place in the uncompiled pattern (i.e., the {) to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1961 which to go back if the interval is invalid. */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1962 re_char *beg_interval;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1963
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1964 /* Address of the place where a forward jump should go to the end of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1965 the containing expression. Each alternative of an `or' -- except the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1966 last -- ends with a forward jump of this sort. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1967 unsigned char *fixup_alt_jump = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1968
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1969 /* Counts open-groups as they are encountered. Remembered for the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1970 matching close-group on the compile stack, so the same register
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1971 number is put in the stop_memory as the start_memory. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1972 regnum_t regnum = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1973
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1974 #ifdef DEBUG
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1975 DEBUG_PRINT1 ("\nCompiling pattern: ");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1976 if (debug)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1977 {
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
1978 int debug_count;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1979
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1980 for (debug_count = 0; debug_count < size; debug_count++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1981 putchar (pattern[debug_count]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1982 putchar ('\n');
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1983 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1984 #endif /* DEBUG */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1985
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1986 /* Initialize the compile stack. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1987 compile_stack.stack = TALLOC (INIT_COMPILE_STACK_SIZE, compile_stack_elt_t);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1988 if (compile_stack.stack == NULL)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1989 return REG_ESPACE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1990
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1991 compile_stack.size = INIT_COMPILE_STACK_SIZE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1992 compile_stack.avail = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1993
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1994 /* Initialize the pattern buffer. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1995 bufp->syntax = syntax;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1996 bufp->fastmap_accurate = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1997 bufp->not_bol = bufp->not_eol = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1998
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1999 /* Set `used' to zero, so that if we return an error, the pattern
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2000 printer (for debugging) will think there's no pattern. We reset it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2001 at the end. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2002 bufp->used = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2003
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2004 /* Always count groups, whether or not bufp->no_sub is set. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2005 bufp->re_nsub = 0;
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2006 bufp->re_ngroups = 0;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2007
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2008 bufp->warned_about_incompatible_back_references = 0;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2009
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2010 if (bufp->external_to_internal_register == 0)
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2011 {
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2012 bufp->external_to_internal_register_size = INIT_REG_TRANSLATE_SIZE;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2013 RETALLOC (bufp->external_to_internal_register,
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2014 bufp->external_to_internal_register_size,
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2015 int);
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2016 }
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2017
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2018 {
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2019 int i;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2020
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2021 bufp->external_to_internal_register[0] = 0;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2022 for (i = 1; i < bufp->external_to_internal_register_size; i++)
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2023 bufp->external_to_internal_register[i] = (int) 0xDEADBEEF;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2024 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2025
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2026 #if !defined (emacs) && !defined (SYNTAX_TABLE)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2027 /* Initialize the syntax table. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2028 init_syntax_once ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2029 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2030
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2031 if (bufp->allocated == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2032 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2033 if (bufp->buffer)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2034 { /* If zero allocated, but buffer is non-null, try to realloc
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2035 enough space. This loses if buffer's address is bogus, but
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2036 that is the user's responsibility. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2037 RETALLOC (bufp->buffer, INIT_BUF_SIZE, unsigned char);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2038 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2039 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2040 { /* Caller did not allocate a buffer. Do it for them. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2041 bufp->buffer = TALLOC (INIT_BUF_SIZE, unsigned char);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2042 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2043 if (!bufp->buffer) FREE_STACK_RETURN (REG_ESPACE);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2044
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2045 bufp->allocated = INIT_BUF_SIZE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2046 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2047
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2048 begalt = buf_end = bufp->buffer;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2049
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2050 /* Loop through the uncompiled pattern until we're at the end. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2051 while (p != pend)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2052 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2053 PATFETCH (c);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2054
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2055 switch (c)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2056 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2057 case '^':
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2058 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2059 if ( /* If at start of pattern, it's an operator. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2060 p == pattern + 1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2061 /* If context independent, it's an operator. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2062 || syntax & RE_CONTEXT_INDEP_ANCHORS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2063 /* Otherwise, depends on what's come before. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2064 || at_begline_loc_p (pattern, p, syntax))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2065 BUF_PUSH (begline);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2066 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2067 goto normal_char;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2068 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2069 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2070
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2071
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2072 case '$':
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2073 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2074 if ( /* If at end of pattern, it's an operator. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2075 p == pend
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2076 /* If context independent, it's an operator. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2077 || syntax & RE_CONTEXT_INDEP_ANCHORS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2078 /* Otherwise, depends on what's next. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2079 || at_endline_loc_p (p, pend, syntax))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2080 BUF_PUSH (endline);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2081 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2082 goto normal_char;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2083 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2084 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2085
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2086
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2087 case '+':
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2088 case '?':
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2089 if ((syntax & RE_BK_PLUS_QM)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2090 || (syntax & RE_LIMITED_OPS))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2091 goto normal_char;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2092 handle_plus:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2093 case '*':
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2094 /* If there is no previous pattern... */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2095 if (!laststart)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2096 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2097 if (syntax & RE_CONTEXT_INVALID_OPS)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2098 FREE_STACK_RETURN (REG_BADRPT);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2099 else if (!(syntax & RE_CONTEXT_INDEP_OPS))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2100 goto normal_char;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2101 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2102
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2103 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2104 /* true means zero/many matches are allowed. */
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
2105 re_bool zero_times_ok = c != '+';
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
2106 re_bool many_times_ok = c != '?';
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2107
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2108 /* true means match shortest string possible. */
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
2109 re_bool minimal = false;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2110
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2111 /* If there is a sequence of repetition chars, collapse it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2112 down to just one (the right one). We can't combine
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2113 interval operators with these because of, e.g., `a{2}*',
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2114 which should only match an even number of `a's. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2115 while (p != pend)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2116 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2117 PATFETCH (c);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2118
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2119 if (c == '*' || (!(syntax & RE_BK_PLUS_QM)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2120 && (c == '+' || c == '?')))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2121 ;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2122
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2123 else if (syntax & RE_BK_PLUS_QM && c == '\\')
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2124 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2125 if (p == pend) FREE_STACK_RETURN (REG_EESCAPE);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2126
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2127 PATFETCH (c1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2128 if (!(c1 == '+' || c1 == '?'))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2129 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2130 PATUNFETCH;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2131 PATUNFETCH;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2132 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2133 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2134
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2135 c = c1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2136 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2137 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2138 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2139 PATUNFETCH;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2140 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2141 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2142
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2143 /* If we get here, we found another repeat character. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2144 if (!(syntax & RE_NO_MINIMAL_MATCHING))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2145 {
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 434
diff changeset
2146 /* "*?" and "+?" and "??" are okay (and mean match
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 434
diff changeset
2147 minimally), but other sequences (such as "*??" and
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 434
diff changeset
2148 "+++") are rejected (reserved for future use). */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2149 if (minimal || c != '?')
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2150 FREE_STACK_RETURN (REG_BADRPT);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2151 minimal = true;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2152 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2153 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2154 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2155 zero_times_ok |= c != '+';
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2156 many_times_ok |= c != '?';
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2157 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2158 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2159
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2160 /* Star, etc. applied to an empty pattern is equivalent
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2161 to an empty pattern. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2162 if (!laststart)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2163 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2164
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2165 /* Now we know whether zero matches is allowed
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2166 and whether two or more matches is allowed
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2167 and whether we want minimal or maximal matching. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2168 if (minimal)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2169 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2170 if (!many_times_ok)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2171 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2172 /* "a??" becomes:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2173 0: /on_failure_jump to 6
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2174 3: /jump to 9
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2175 6: /exactn/1/A
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2176 9: end of pattern.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2177 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2178 GET_BUFFER_SPACE (6);
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2179 INSERT_JUMP (jump, laststart, buf_end + 3);
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2180 buf_end += 3;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2181 INSERT_JUMP (on_failure_jump, laststart, laststart + 6);
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2182 buf_end += 3;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2183 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2184 else if (zero_times_ok)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2185 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2186 /* "a*?" becomes:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2187 0: /jump to 6
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2188 3: /exactn/1/A
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2189 6: /on_failure_jump to 3
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2190 9: end of pattern.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2191 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2192 GET_BUFFER_SPACE (6);
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2193 INSERT_JUMP (jump, laststart, buf_end + 3);
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2194 buf_end += 3;
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2195 STORE_JUMP (on_failure_jump, buf_end, laststart + 3);
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2196 buf_end += 3;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2197 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2198 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2199 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2200 /* "a+?" becomes:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2201 0: /exactn/1/A
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2202 3: /on_failure_jump to 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2203 6: end of pattern.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2204 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2205 GET_BUFFER_SPACE (3);
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2206 STORE_JUMP (on_failure_jump, buf_end, laststart);
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2207 buf_end += 3;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2208 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2209 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2210 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2211 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2212 /* Are we optimizing this jump? */
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
2213 re_bool keep_string_p = false;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2214
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2215 if (many_times_ok)
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2216 { /* More than one repetition is allowed, so put in
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2217 at the end a backward relative jump from
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2218 `buf_end' to before the next jump we're going
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2219 to put in below (which jumps from laststart to
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2220 after this jump).
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2221
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2222 But if we are at the `*' in the exact sequence `.*\n',
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2223 insert an unconditional jump backwards to the .,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2224 instead of the beginning of the loop. This way we only
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2225 push a failure point once, instead of every time
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2226 through the loop. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2227 assert (p - 1 > pattern);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2228
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2229 /* Allocate the space for the jump. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2230 GET_BUFFER_SPACE (3);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2231
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2232 /* We know we are not at the first character of the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2233 pattern, because laststart was nonzero. And we've
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2234 already incremented `p', by the way, to be the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2235 character after the `*'. Do we have to do something
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2236 analogous here for null bytes, because of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2237 RE_DOT_NOT_NULL? */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2238 if (*(p - 2) == '.'
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2239 && zero_times_ok
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2240 && p < pend && *p == '\n'
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2241 && !(syntax & RE_DOT_NEWLINE))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2242 { /* We have .*\n. */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2243 STORE_JUMP (jump, buf_end, laststart);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2244 keep_string_p = true;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2245 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2246 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2247 /* Anything else. */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2248 STORE_JUMP (maybe_pop_jump, buf_end, laststart - 3);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2249
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2250 /* We've added more stuff to the buffer. */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2251 buf_end += 3;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2252 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2253
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2254 /* On failure, jump from laststart to buf_end + 3,
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2255 which will be the end of the buffer after this jump
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2256 is inserted. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2257 GET_BUFFER_SPACE (3);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2258 INSERT_JUMP (keep_string_p ? on_failure_keep_string_jump
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2259 : on_failure_jump,
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2260 laststart, buf_end + 3);
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2261 buf_end += 3;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2262
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2263 if (!zero_times_ok)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2264 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2265 /* At least one repetition is required, so insert a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2266 `dummy_failure_jump' before the initial
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2267 `on_failure_jump' instruction of the loop. This
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2268 effects a skip over that instruction the first time
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2269 we hit that loop. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2270 GET_BUFFER_SPACE (3);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2271 INSERT_JUMP (dummy_failure_jump, laststart, laststart + 6);
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2272 buf_end += 3;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2273 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2274 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2275 pending_exact = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2276 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2277 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2278
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2279
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2280 case '.':
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2281 laststart = buf_end;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2282 BUF_PUSH (anychar);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2283 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2284
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2285
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2286 case '[':
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2287 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2288 /* XEmacs change: this whole section */
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
2289 re_bool had_char_class = false;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2290 #ifdef MULE
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
2291 re_bool has_extended_chars = false;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2292 REGISTER Lisp_Object rtab = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2293 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2294
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2295 if (p == pend) FREE_STACK_RETURN (REG_EBRACK);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2296
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2297 /* Ensure that we have enough space to push a charset: the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2298 opcode, the length count, and the bitset; 34 bytes in all. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2299 GET_BUFFER_SPACE (34);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2300
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2301 laststart = buf_end;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2302
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2303 /* We test `*p == '^' twice, instead of using an if
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2304 statement, so we only need one BUF_PUSH. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2305 BUF_PUSH (*p == '^' ? charset_not : charset);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2306 if (*p == '^')
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2307 p++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2308
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2309 /* Remember the first position in the bracket expression. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2310 p1 = p;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2311
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2312 /* Push the number of bytes in the bitmap. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2313 BUF_PUSH ((1 << BYTEWIDTH) / BYTEWIDTH);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2314
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2315 /* Clear the whole map. */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2316 memset (buf_end, 0, (1 << BYTEWIDTH) / BYTEWIDTH);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2317
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2318 /* charset_not matches newline according to a syntax bit. */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2319 if ((re_opcode_t) buf_end[-2] == charset_not
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2320 && (syntax & RE_HAT_LISTS_NOT_NEWLINE))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2321 SET_LIST_BIT ('\n');
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2322
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2323 #ifdef MULE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2324 start_over_with_extended:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2325 if (has_extended_chars)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2326 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2327 /* There are extended chars here, which means we need to start
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2328 over and shift to unified range-table format. */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2329 if (buf_end[-2] == charset)
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2330 buf_end[-2] = charset_mule;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2331 else
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2332 buf_end[-2] = charset_mule_not;
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2333 buf_end--;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2334 p = p1; /* go back to the beginning of the charset, after
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2335 a possible ^. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2336 rtab = Vthe_lisp_rangetab;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2337 Fclear_range_table (rtab);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2338
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2339 /* charset_not matches newline according to a syntax bit. */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2340 if ((re_opcode_t) buf_end[-1] == charset_mule_not
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2341 && (syntax & RE_HAT_LISTS_NOT_NEWLINE))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2342 SET_EITHER_BIT ('\n');
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2343 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2344 #endif /* MULE */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2345
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2346 /* Read in characters and ranges, setting map bits. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2347 for (;;)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2348 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2349 if (p == pend) FREE_STACK_RETURN (REG_EBRACK);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2350
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2351 PATFETCH (c);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2352
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2353 #ifdef MULE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2354 if (c >= 0x80 && !has_extended_chars)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2355 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2356 has_extended_chars = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2357 /* Frumble-bumble, we've found some extended chars.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2358 Need to start over, process everything using
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2359 the general extended-char mechanism, and need
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2360 to use charset_mule and charset_mule_not instead
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2361 of charset and charset_not. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2362 goto start_over_with_extended;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2363 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2364 #endif /* MULE */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2365 /* \ might escape characters inside [...] and [^...]. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2366 if ((syntax & RE_BACKSLASH_ESCAPE_IN_LISTS) && c == '\\')
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2367 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2368 if (p == pend) FREE_STACK_RETURN (REG_EESCAPE);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2369
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2370 PATFETCH (c1);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2371 #ifdef MULE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2372 if (c1 >= 0x80 && !has_extended_chars)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2373 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2374 has_extended_chars = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2375 goto start_over_with_extended;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2376 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2377 #endif /* MULE */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2378 SET_EITHER_BIT (c1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2379 continue;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2380 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2381
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2382 /* Could be the end of the bracket expression. If it's
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2383 not (i.e., when the bracket expression is `[]' so
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2384 far), the ']' character bit gets set way below. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2385 if (c == ']' && p != p1 + 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2386 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2387
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2388 /* Look ahead to see if it's a range when the last thing
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2389 was a character class. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2390 if (had_char_class && c == '-' && *p != ']')
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2391 FREE_STACK_RETURN (REG_ERANGE);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2392
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2393 /* Look ahead to see if it's a range when the last thing
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2394 was a character: if this is a hyphen not at the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2395 beginning or the end of a list, then it's the range
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2396 operator. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2397 if (c == '-'
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2398 && !(p - 2 >= pattern && p[-2] == '[')
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2399 && !(p - 3 >= pattern && p[-3] == '[' && p[-2] == '^')
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2400 && *p != ']')
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2401 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2402 reg_errcode_t ret;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2403
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2404 #ifdef MULE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2405 if (* (unsigned char *) p >= 0x80 && !has_extended_chars)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2406 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2407 has_extended_chars = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2408 goto start_over_with_extended;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2409 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2410 if (has_extended_chars)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2411 ret = compile_extended_range (&p, pend, translate,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2412 syntax, rtab);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2413 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2414 #endif /* MULE */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2415 ret = compile_range (&p, pend, translate, syntax, buf_end);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2416 if (ret != REG_NOERROR) FREE_STACK_RETURN (ret);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2417 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2418
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2419 else if (p[0] == '-' && p[1] != ']')
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2420 { /* This handles ranges made up of characters only. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2421 reg_errcode_t ret;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2422
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2423 /* Move past the `-'. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2424 PATFETCH (c1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2425
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2426 #ifdef MULE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2427 if (* (unsigned char *) p >= 0x80 && !has_extended_chars)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2428 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2429 has_extended_chars = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2430 goto start_over_with_extended;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2431 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2432 if (has_extended_chars)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2433 ret = compile_extended_range (&p, pend, translate,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2434 syntax, rtab);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2435 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2436 #endif /* MULE */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2437 ret = compile_range (&p, pend, translate, syntax, buf_end);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2438 if (ret != REG_NOERROR) FREE_STACK_RETURN (ret);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2439 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2440
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2441 /* See if we're at the beginning of a possible character
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2442 class. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2443
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2444 else if (syntax & RE_CHAR_CLASSES && c == '[' && *p == ':')
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2445 { /* Leave room for the null. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2446 char str[CHAR_CLASS_MAX_LENGTH + 1];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2447
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2448 PATFETCH (c);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2449 c1 = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2450
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2451 /* If pattern is `[[:'. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2452 if (p == pend) FREE_STACK_RETURN (REG_EBRACK);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2453
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2454 for (;;)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2455 {
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2456 /* #### This code is unused.
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2457 Correctness is not checked after TRT
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2458 table change. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2459 PATFETCH (c);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2460 if (c == ':' || c == ']' || p == pend
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2461 || c1 == CHAR_CLASS_MAX_LENGTH)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2462 break;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2463 str[c1++] = (char) c;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2464 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2465 str[c1] = '\0';
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2466
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2467 /* If isn't a word bracketed by `[:' and `:]':
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2468 undo the ending character, the letters, and leave
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2469 the leading `:' and `[' (but set bits for them). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2470 if (c == ':' && *p == ']')
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2471 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2472 int ch;
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
2473 re_bool is_alnum = STREQ (str, "alnum");
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
2474 re_bool is_alpha = STREQ (str, "alpha");
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
2475 re_bool is_blank = STREQ (str, "blank");
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
2476 re_bool is_cntrl = STREQ (str, "cntrl");
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
2477 re_bool is_digit = STREQ (str, "digit");
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
2478 re_bool is_graph = STREQ (str, "graph");
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
2479 re_bool is_lower = STREQ (str, "lower");
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
2480 re_bool is_print = STREQ (str, "print");
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
2481 re_bool is_punct = STREQ (str, "punct");
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
2482 re_bool is_space = STREQ (str, "space");
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
2483 re_bool is_upper = STREQ (str, "upper");
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
2484 re_bool is_xdigit = STREQ (str, "xdigit");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2485
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2486 if (!IS_CHAR_CLASS (str))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2487 FREE_STACK_RETURN (REG_ECTYPE);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2488
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2489 /* Throw away the ] at the end of the character
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2490 class. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2491 PATFETCH (c);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2492
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2493 if (p == pend) FREE_STACK_RETURN (REG_EBRACK);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2494
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2495 for (ch = 0; ch < 1 << BYTEWIDTH; ch++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2496 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2497 /* This was split into 3 if's to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2498 avoid an arbitrary limit in some compiler. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2499 if ( (is_alnum && ISALNUM (ch))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2500 || (is_alpha && ISALPHA (ch))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2501 || (is_blank && ISBLANK (ch))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2502 || (is_cntrl && ISCNTRL (ch)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2503 SET_EITHER_BIT (ch);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2504 if ( (is_digit && ISDIGIT (ch))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2505 || (is_graph && ISGRAPH (ch))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2506 || (is_lower && ISLOWER (ch))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2507 || (is_print && ISPRINT (ch)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2508 SET_EITHER_BIT (ch);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2509 if ( (is_punct && ISPUNCT (ch))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2510 || (is_space && ISSPACE (ch))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2511 || (is_upper && ISUPPER (ch))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2512 || (is_xdigit && ISXDIGIT (ch)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2513 SET_EITHER_BIT (ch);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2514 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2515 had_char_class = true;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2516 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2517 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2518 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2519 c1++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2520 while (c1--)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2521 PATUNFETCH;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2522 SET_EITHER_BIT ('[');
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2523 SET_EITHER_BIT (':');
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2524 had_char_class = false;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2525 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2526 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2527 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2528 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2529 had_char_class = false;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2530 SET_EITHER_BIT (c);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2531 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2532 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2533
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2534 #ifdef MULE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2535 if (has_extended_chars)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2536 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2537 /* We have a range table, not a bit vector. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2538 int bytes_needed =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2539 unified_range_table_bytes_needed (rtab);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2540 GET_BUFFER_SPACE (bytes_needed);
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2541 unified_range_table_copy_data (rtab, buf_end);
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2542 buf_end += unified_range_table_bytes_used (buf_end);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2543 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2544 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2545 #endif /* MULE */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2546 /* Discard any (non)matching list bytes that are all 0 at the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2547 end of the map. Decrease the map-length byte too. */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2548 while ((int) buf_end[-1] > 0 && buf_end[buf_end[-1] - 1] == 0)
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2549 buf_end[-1]--;
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2550 buf_end += buf_end[-1];
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2551 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2552 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2553
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2554
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2555 case '(':
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2556 if (syntax & RE_NO_BK_PARENS)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2557 goto handle_open;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2558 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2559 goto normal_char;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2560
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2561
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2562 case ')':
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2563 if (syntax & RE_NO_BK_PARENS)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2564 goto handle_close;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2565 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2566 goto normal_char;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2567
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2568
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2569 case '\n':
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2570 if (syntax & RE_NEWLINE_ALT)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2571 goto handle_alt;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2572 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2573 goto normal_char;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2574
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2575
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2576 case '|':
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2577 if (syntax & RE_NO_BK_VBAR)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2578 goto handle_alt;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2579 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2580 goto normal_char;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2581
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2582
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2583 case '{':
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2584 if (syntax & RE_INTERVALS && syntax & RE_NO_BK_BRACES)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2585 goto handle_interval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2586 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2587 goto normal_char;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2588
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2589
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2590 case '\\':
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2591 if (p == pend) FREE_STACK_RETURN (REG_EESCAPE);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2592
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2593 /* Do not translate the character after the \, so that we can
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2594 distinguish, e.g., \B from \b, even if we normally would
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2595 translate, e.g., B to b. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2596 PATFETCH_RAW (c);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2597
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2598 switch (c)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2599 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2600 case '(':
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2601 if (syntax & RE_NO_BK_PARENS)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2602 goto normal_backslash;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2603
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2604 handle_open:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2605 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2606 regnum_t r;
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2607 int shy = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2608
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2609 if (!(syntax & RE_NO_SHY_GROUPS)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2610 && p != pend
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2611 && *p == '?')
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2612 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2613 p++;
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2614 PATFETCH (c);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2615 switch (c)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2616 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2617 case ':': /* shy groups */
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2618 shy = 1;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2619 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2620
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2621 /* All others are reserved for future constructs. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2622 default:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2623 FREE_STACK_RETURN (REG_BADPAT);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2624 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2625 }
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2626
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2627 r = ++regnum;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2628 bufp->re_ngroups++;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2629 if (!shy)
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2630 {
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2631 bufp->re_nsub++;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2632 while (bufp->external_to_internal_register_size <=
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2633 bufp->re_nsub)
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2634 {
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2635 int i;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2636 int old_size =
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2637 bufp->external_to_internal_register_size;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2638 bufp->external_to_internal_register_size += 5;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2639 RETALLOC (bufp->external_to_internal_register,
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2640 bufp->external_to_internal_register_size,
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2641 int);
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2642 /* debugging */
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2643 for (i = old_size;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2644 i < bufp->external_to_internal_register_size; i++)
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2645 bufp->external_to_internal_register[i] =
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2646 (int) 0xDEADBEEF;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2647 }
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2648
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2649 bufp->external_to_internal_register[bufp->re_nsub] =
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2650 bufp->re_ngroups;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2651 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2652
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2653 if (COMPILE_STACK_FULL)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2654 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2655 RETALLOC (compile_stack.stack, compile_stack.size << 1,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2656 compile_stack_elt_t);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2657 if (compile_stack.stack == NULL) return REG_ESPACE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2658
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2659 compile_stack.size <<= 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2660 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2661
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2662 /* These are the values to restore when we hit end of this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2663 group. They are all relative offsets, so that if the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2664 whole pattern moves because of realloc, they will still
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2665 be valid. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2666 COMPILE_STACK_TOP.begalt_offset = begalt - bufp->buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2667 COMPILE_STACK_TOP.fixup_alt_jump
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2668 = fixup_alt_jump ? fixup_alt_jump - bufp->buffer + 1 : 0;
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2669 COMPILE_STACK_TOP.laststart_offset = buf_end - bufp->buffer;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2670 COMPILE_STACK_TOP.regnum = r;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2671
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2672 /* We will eventually replace the 0 with the number of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2673 groups inner to this one. But do not push a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2674 start_memory for groups beyond the last one we can
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2675 represent in the compiled pattern.
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2676 #### bad bad bad. this will fail in lots of ways, if we
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2677 ever have to backtrack for these groups.
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
2678 */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2679 if (r <= MAX_REGNUM)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2680 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2681 COMPILE_STACK_TOP.inner_group_offset
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2682 = buf_end - bufp->buffer + 2;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2683 BUF_PUSH_3 (start_memory, r, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2684 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2685
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2686 compile_stack.avail++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2687
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2688 fixup_alt_jump = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2689 laststart = 0;
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2690 begalt = buf_end;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2691 /* If we've reached MAX_REGNUM groups, then this open
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2692 won't actually generate any code, so we'll have to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2693 clear pending_exact explicitly. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2694 pending_exact = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2695 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2696 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2697
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2698
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2699 case ')':
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2700 if (syntax & RE_NO_BK_PARENS) goto normal_backslash;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2701
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2702 if (COMPILE_STACK_EMPTY) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2703 if (syntax & RE_UNMATCHED_RIGHT_PAREN_ORD)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2704 goto normal_backslash;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2705 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2706 FREE_STACK_RETURN (REG_ERPAREN);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2707 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2708
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2709 handle_close:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2710 if (fixup_alt_jump)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2711 { /* Push a dummy failure point at the end of the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2712 alternative for a possible future
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2713 `pop_failure_jump' to pop. See comments at
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2714 `push_dummy_failure' in `re_match_2'. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2715 BUF_PUSH (push_dummy_failure);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2716
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2717 /* We allocated space for this jump when we assigned
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2718 to `fixup_alt_jump', in the `handle_alt' case below. */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2719 STORE_JUMP (jump_past_alt, fixup_alt_jump, buf_end - 1);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2720 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2721
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2722 /* See similar code for backslashed left paren above. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2723 if (COMPILE_STACK_EMPTY) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2724 if (syntax & RE_UNMATCHED_RIGHT_PAREN_ORD)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2725 goto normal_char;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2726 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2727 FREE_STACK_RETURN (REG_ERPAREN);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2728 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2729
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2730 /* Since we just checked for an empty stack above, this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2731 ``can't happen''. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2732 assert (compile_stack.avail != 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2733 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2734 /* We don't just want to restore into `regnum', because
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2735 later groups should continue to be numbered higher,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2736 as in `(ab)c(de)' -- the second group is #2. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2737 regnum_t this_group_regnum;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2738
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2739 compile_stack.avail--;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2740 begalt = bufp->buffer + COMPILE_STACK_TOP.begalt_offset;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2741 fixup_alt_jump
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2742 = COMPILE_STACK_TOP.fixup_alt_jump
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2743 ? bufp->buffer + COMPILE_STACK_TOP.fixup_alt_jump - 1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2744 : 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2745 laststart = bufp->buffer + COMPILE_STACK_TOP.laststart_offset;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2746 this_group_regnum = COMPILE_STACK_TOP.regnum;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2747 /* If we've reached MAX_REGNUM groups, then this open
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2748 won't actually generate any code, so we'll have to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2749 clear pending_exact explicitly. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2750 pending_exact = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2751
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2752 /* We're at the end of the group, so now we know how many
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2753 groups were inside this one. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2754 if (this_group_regnum <= MAX_REGNUM)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2755 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2756 unsigned char *inner_group_loc
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2757 = bufp->buffer + COMPILE_STACK_TOP.inner_group_offset;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2758
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2759 *inner_group_loc = regnum - this_group_regnum;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2760 BUF_PUSH_3 (stop_memory, this_group_regnum,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2761 regnum - this_group_regnum);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2762 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2763 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2764 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2765
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2766
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2767 case '|': /* `\|'. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2768 if (syntax & RE_LIMITED_OPS || syntax & RE_NO_BK_VBAR)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2769 goto normal_backslash;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2770 handle_alt:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2771 if (syntax & RE_LIMITED_OPS)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2772 goto normal_char;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2773
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2774 /* Insert before the previous alternative a jump which
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2775 jumps to this alternative if the former fails. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2776 GET_BUFFER_SPACE (3);
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2777 INSERT_JUMP (on_failure_jump, begalt, buf_end + 6);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2778 pending_exact = 0;
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2779 buf_end += 3;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2780
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2781 /* The alternative before this one has a jump after it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2782 which gets executed if it gets matched. Adjust that
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2783 jump so it will jump to this alternative's analogous
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2784 jump (put in below, which in turn will jump to the next
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2785 (if any) alternative's such jump, etc.). The last such
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2786 jump jumps to the correct final destination. A picture:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2787 _____ _____
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2788 | | | |
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2789 | v | v
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2790 a | b | c
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2791
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2792 If we are at `b', then fixup_alt_jump right now points to a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2793 three-byte space after `a'. We'll put in the jump, set
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2794 fixup_alt_jump to right after `b', and leave behind three
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2795 bytes which we'll fill in when we get to after `c'. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2796
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2797 if (fixup_alt_jump)
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2798 STORE_JUMP (jump_past_alt, fixup_alt_jump, buf_end);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2799
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2800 /* Mark and leave space for a jump after this alternative,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2801 to be filled in later either by next alternative or
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2802 when know we're at the end of a series of alternatives. */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2803 fixup_alt_jump = buf_end;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2804 GET_BUFFER_SPACE (3);
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2805 buf_end += 3;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2806
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2807 laststart = 0;
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2808 begalt = buf_end;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2809 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2810
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2811
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2812 case '{':
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2813 /* If \{ is a literal. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2814 if (!(syntax & RE_INTERVALS)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2815 /* If we're at `\{' and it's not the open-interval
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2816 operator. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2817 || ((syntax & RE_INTERVALS) && (syntax & RE_NO_BK_BRACES))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2818 || (p - 2 == pattern && p == pend))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2819 goto normal_backslash;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2820
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2821 handle_interval:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2822 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2823 /* If got here, then the syntax allows intervals. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2824
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2825 /* At least (most) this many matches must be made. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2826 int lower_bound = -1, upper_bound = -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2827
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2828 beg_interval = p - 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2829
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2830 if (p == pend)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2831 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2832 if (syntax & RE_NO_BK_BRACES)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2833 goto unfetch_interval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2834 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2835 FREE_STACK_RETURN (REG_EBRACE);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2836 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2837
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2838 GET_UNSIGNED_NUMBER (lower_bound);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2839
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2840 if (c == ',')
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2841 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2842 GET_UNSIGNED_NUMBER (upper_bound);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2843 if (upper_bound < 0) upper_bound = RE_DUP_MAX;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2844 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2845 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2846 /* Interval such as `{1}' => match exactly once. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2847 upper_bound = lower_bound;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2848
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2849 if (lower_bound < 0 || upper_bound > RE_DUP_MAX
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2850 || lower_bound > upper_bound)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2851 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2852 if (syntax & RE_NO_BK_BRACES)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2853 goto unfetch_interval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2854 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2855 FREE_STACK_RETURN (REG_BADBR);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2856 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2857
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2858 if (!(syntax & RE_NO_BK_BRACES))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2859 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2860 if (c != '\\') FREE_STACK_RETURN (REG_EBRACE);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2861
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2862 PATFETCH (c);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2863 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2864
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2865 if (c != '}')
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2866 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2867 if (syntax & RE_NO_BK_BRACES)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2868 goto unfetch_interval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2869 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2870 FREE_STACK_RETURN (REG_BADBR);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2871 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2872
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2873 /* We just parsed a valid interval. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2874
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2875 /* If it's invalid to have no preceding re. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2876 if (!laststart)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2877 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2878 if (syntax & RE_CONTEXT_INVALID_OPS)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2879 FREE_STACK_RETURN (REG_BADRPT);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2880 else if (syntax & RE_CONTEXT_INDEP_OPS)
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2881 laststart = buf_end;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2882 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2883 goto unfetch_interval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2884 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2885
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2886 /* If the upper bound is zero, don't want to succeed at
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2887 all; jump from `laststart' to `b + 3', which will be
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2888 the end of the buffer after we insert the jump. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2889 if (upper_bound == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2890 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2891 GET_BUFFER_SPACE (3);
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2892 INSERT_JUMP (jump, laststart, buf_end + 3);
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2893 buf_end += 3;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2894 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2895
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2896 /* Otherwise, we have a nontrivial interval. When
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2897 we're all done, the pattern will look like:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2898 set_number_at <jump count> <upper bound>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2899 set_number_at <succeed_n count> <lower bound>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2900 succeed_n <after jump addr> <succeed_n count>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2901 <body of loop>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2902 jump_n <succeed_n addr> <jump count>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2903 (The upper bound and `jump_n' are omitted if
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2904 `upper_bound' is 1, though.) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2905 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2906 { /* If the upper bound is > 1, we need to insert
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2907 more at the end of the loop. */
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
2908 int nbytes = 10 + (upper_bound > 1) * 10;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2909
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2910 GET_BUFFER_SPACE (nbytes);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2911
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2912 /* Initialize lower bound of the `succeed_n', even
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2913 though it will be set during matching by its
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2914 attendant `set_number_at' (inserted next),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2915 because `re_compile_fastmap' needs to know.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2916 Jump to the `jump_n' we might insert below. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2917 INSERT_JUMP2 (succeed_n, laststart,
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2918 buf_end + 5 + (upper_bound > 1) * 5,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2919 lower_bound);
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2920 buf_end += 5;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2921
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2922 /* Code to initialize the lower bound. Insert
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2923 before the `succeed_n'. The `5' is the last two
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2924 bytes of this `set_number_at', plus 3 bytes of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2925 the following `succeed_n'. */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2926 insert_op2 (set_number_at, laststart, 5, lower_bound, buf_end);
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2927 buf_end += 5;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2928
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2929 if (upper_bound > 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2930 { /* More than one repetition is allowed, so
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2931 append a backward jump to the `succeed_n'
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2932 that starts this interval.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2933
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2934 When we've reached this during matching,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2935 we'll have matched the interval once, so
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2936 jump back only `upper_bound - 1' times. */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2937 STORE_JUMP2 (jump_n, buf_end, laststart + 5,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2938 upper_bound - 1);
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2939 buf_end += 5;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2940
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2941 /* The location we want to set is the second
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2942 parameter of the `jump_n'; that is `b-2' as
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2943 an absolute address. `laststart' will be
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2944 the `set_number_at' we're about to insert;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2945 `laststart+3' the number to set, the source
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2946 for the relative address. But we are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2947 inserting into the middle of the pattern --
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2948 so everything is getting moved up by 5.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2949 Conclusion: (b - 2) - (laststart + 3) + 5,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2950 i.e., b - laststart.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2951
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2952 We insert this at the beginning of the loop
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2953 so that if we fail during matching, we'll
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2954 reinitialize the bounds. */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2955 insert_op2 (set_number_at, laststart,
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2956 buf_end - laststart,
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2957 upper_bound - 1, buf_end);
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2958 buf_end += 5;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2959 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2960 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2961 pending_exact = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2962 beg_interval = NULL;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2963 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2964 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2965
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2966 unfetch_interval:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2967 /* If an invalid interval, match the characters as literals. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2968 assert (beg_interval);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2969 p = beg_interval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2970 beg_interval = NULL;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2971
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2972 /* normal_char and normal_backslash need `c'. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2973 PATFETCH (c);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2974
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2975 if (!(syntax & RE_NO_BK_BRACES))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2976 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2977 if (p > pattern && p[-1] == '\\')
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2978 goto normal_backslash;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2979 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2980 goto normal_char;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2981
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2982 #ifdef emacs
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2983 /* There is no way to specify the before_dot and after_dot
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2984 operators. rms says this is ok. --karl */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2985 case '=':
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2986 BUF_PUSH (at_dot);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2987 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2988
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2989 case 's':
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2990 laststart = buf_end;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2991 PATFETCH (c);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2992 /* XEmacs addition */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2993 if (c >= 0x80 || syntax_spec_code[c] == 0377)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2994 FREE_STACK_RETURN (REG_ESYNTAX);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2995 BUF_PUSH_2 (syntaxspec, syntax_spec_code[c]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2996 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2997
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2998 case 'S':
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
2999 laststart = buf_end;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3000 PATFETCH (c);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3001 /* XEmacs addition */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3002 if (c >= 0x80 || syntax_spec_code[c] == 0377)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3003 FREE_STACK_RETURN (REG_ESYNTAX);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3004 BUF_PUSH_2 (notsyntaxspec, syntax_spec_code[c]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3005 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3006
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3007 #ifdef MULE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3008 /* 97.2.17 jhod merged in to XEmacs from mule-2.3 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3009 case 'c':
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3010 laststart = buf_end;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3011 PATFETCH_RAW (c);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3012 if (c < 32 || c > 127)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3013 FREE_STACK_RETURN (REG_ECATEGORY);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3014 BUF_PUSH_2 (categoryspec, c);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3015 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3016
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3017 case 'C':
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3018 laststart = buf_end;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3019 PATFETCH_RAW (c);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3020 if (c < 32 || c > 127)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3021 FREE_STACK_RETURN (REG_ECATEGORY);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3022 BUF_PUSH_2 (notcategoryspec, c);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3023 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3024 /* end of category patch */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3025 #endif /* MULE */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3026 #endif /* emacs */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3027
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3028
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3029 case 'w':
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3030 laststart = buf_end;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3031 BUF_PUSH (wordchar);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3032 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3033
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3034
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3035 case 'W':
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3036 laststart = buf_end;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3037 BUF_PUSH (notwordchar);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3038 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3039
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3040
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3041 case '<':
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3042 BUF_PUSH (wordbeg);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3043 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3044
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3045 case '>':
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3046 BUF_PUSH (wordend);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3047 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3048
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3049 case 'b':
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3050 BUF_PUSH (wordbound);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3051 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3052
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3053 case 'B':
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3054 BUF_PUSH (notwordbound);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3055 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3056
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3057 case '`':
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3058 BUF_PUSH (begbuf);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3059 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3060
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3061 case '\'':
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3062 BUF_PUSH (endbuf);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3063 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3064
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3065 case '1': case '2': case '3': case '4': case '5':
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3066 case '6': case '7': case '8': case '9':
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3067 {
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
3068 regnum_t reg, regint;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
3069 int may_need_to_unfetch = 0;
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3070 if (syntax & RE_NO_BK_REFS)
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3071 goto normal_char;
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3072
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
3073 /* This only goes up to 99. It could be extended to work
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
3074 up to 255 (the maximum number of registers that can be
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
3075 handled by the current regexp engine, because it stores
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
3076 its register numbers in the compiled pattern as one byte,
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
3077 ugh). Doing that's a bit trickier, because you might
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
3078 have the case where \25 a back-ref but \255 is not, ... */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3079 reg = c - '0';
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
3080 if (p < pend)
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
3081 {
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
3082 PATFETCH (c);
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
3083 if (c >= '0' && c <= '9')
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
3084 {
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
3085 regnum_t new_reg = reg * 10 + c - '0';
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
3086 if (new_reg <= bufp->re_nsub)
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
3087 {
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
3088 reg = new_reg;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
3089 may_need_to_unfetch = 1;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
3090 }
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
3091 else
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
3092 PATUNFETCH;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
3093 }
523
cd662ad69f40 [xemacs-hg @ 2001-05-09 13:43:49 by ben]
ben
parents: 502
diff changeset
3094 else
cd662ad69f40 [xemacs-hg @ 2001-05-09 13:43:49 by ben]
ben
parents: 502
diff changeset
3095 PATUNFETCH;
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
3096 }
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
3097
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
3098 if (reg > bufp->re_nsub)
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3099 FREE_STACK_RETURN (REG_ESUBREG);
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3100
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
3101 regint = bufp->external_to_internal_register[reg];
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3102 /* Can't back reference to a subexpression if inside of it. */
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
3103 if (group_in_compile_stack (compile_stack, regint))
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
3104 {
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
3105 if (may_need_to_unfetch)
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
3106 PATUNFETCH;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
3107 goto normal_char;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
3108 }
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
3109
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
3110 #ifdef emacs
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
3111 if (reg > 9 &&
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
3112 bufp->warned_about_incompatible_back_references == 0)
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
3113 {
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
3114 bufp->warned_about_incompatible_back_references = 1;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
3115 warn_when_safe (intern ("regex"), Qinfo,
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
3116 "Back reference \\%d now has new "
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
3117 "semantics in %s", reg, pattern);
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
3118 }
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
3119 #endif
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3120
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3121 laststart = buf_end;
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
3122 BUF_PUSH_2 (duplicate, regint);
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3123 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3124 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3125
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3126
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3127 case '+':
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3128 case '?':
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3129 if (syntax & RE_BK_PLUS_QM)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3130 goto handle_plus;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3131 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3132 goto normal_backslash;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3133
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3134 default:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3135 normal_backslash:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3136 /* You might think it would be useful for \ to mean
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3137 not to translate; but if we don't translate it,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3138 it will never match anything. */
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3139 c = RE_TRANSLATE (c);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3140 goto normal_char;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3141 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3142 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3143
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3144
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3145 default:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3146 /* Expects the character in `c'. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3147 /* `p' points to the location after where `c' came from. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3148 normal_char:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3149 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3150 /* XEmacs: modifications here for Mule. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3151 /* `q' points to the beginning of the next char. */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3152 re_char *q = p;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3153
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3154 /* If no exactn currently being built. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3155 if (!pending_exact
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3156
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3157 /* If last exactn not at current position. */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3158 || pending_exact + *pending_exact + 1 != buf_end
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3159
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3160 /* We have only one byte following the exactn for the count. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3161 || ((unsigned int) (*pending_exact + (q - p)) >=
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3162 ((unsigned int) (1 << BYTEWIDTH) - 1))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3163
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3164 /* If followed by a repetition operator. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3165 || *q == '*' || *q == '^'
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3166 || ((syntax & RE_BK_PLUS_QM)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3167 ? *q == '\\' && (q[1] == '+' || q[1] == '?')
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3168 : (*q == '+' || *q == '?'))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3169 || ((syntax & RE_INTERVALS)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3170 && ((syntax & RE_NO_BK_BRACES)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3171 ? *q == '{'
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3172 : (q[0] == '\\' && q[1] == '{'))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3173 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3174 /* Start building a new exactn. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3175
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3176 laststart = buf_end;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3177
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3178 BUF_PUSH_2 (exactn, 0);
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3179 pending_exact = buf_end - 1;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3180 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3181
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3182 #ifndef MULE
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3183 BUF_PUSH (c);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3184 (*pending_exact)++;
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3185 #else
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3186 {
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3187 Bytecount bt_count;
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 648
diff changeset
3188 Intbyte tmp_buf[MAX_EMCHAR_LEN];
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3189 int i;
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3190
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3191 bt_count = set_charptr_emchar (tmp_buf, c);
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3192
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3193 for (i = 0; i < bt_count; i++)
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3194 {
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3195 BUF_PUSH (tmp_buf[i]);
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3196 (*pending_exact)++;
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3197 }
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3198 }
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3199 #endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3200 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3201 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3202 } /* switch (c) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3203 } /* while p != pend */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3204
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3205
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3206 /* Through the pattern now. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3207
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3208 if (fixup_alt_jump)
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3209 STORE_JUMP (jump_past_alt, fixup_alt_jump, buf_end);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3210
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3211 if (!COMPILE_STACK_EMPTY)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3212 FREE_STACK_RETURN (REG_EPAREN);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3213
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3214 /* If we don't want backtracking, force success
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3215 the first time we reach the end of the compiled pattern. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3216 if (syntax & RE_NO_POSIX_BACKTRACKING)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3217 BUF_PUSH (succeed);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3218
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3219 free (compile_stack.stack);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3220
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3221 /* We have succeeded; set the length of the buffer. */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3222 bufp->used = buf_end - bufp->buffer;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3223
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3224 #ifdef DEBUG
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3225 if (debug)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3226 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3227 DEBUG_PRINT1 ("\nCompiled pattern: \n");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3228 print_compiled_pattern (bufp);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3229 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3230 #endif /* DEBUG */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3231
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3232 #ifndef MATCH_MAY_ALLOCATE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3233 /* Initialize the failure stack to the largest possible stack. This
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3234 isn't necessary unless we're trying to avoid calling alloca in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3235 the search and match routines. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3236 {
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
3237 int num_regs = bufp->re_ngroups + 1;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3238
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3239 /* Since DOUBLE_FAIL_STACK refuses to double only if the current size
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3240 is strictly greater than re_max_failures, the largest possible stack
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3241 is 2 * re_max_failures failure points. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3242 if (fail_stack.size < (2 * re_max_failures * MAX_FAILURE_ITEMS))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3243 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3244 fail_stack.size = (2 * re_max_failures * MAX_FAILURE_ITEMS);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3245
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3246 #ifdef emacs
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3247 if (! fail_stack.stack)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3248 fail_stack.stack
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3249 = (fail_stack_elt_t *) xmalloc (fail_stack.size
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3250 * sizeof (fail_stack_elt_t));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3251 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3252 fail_stack.stack
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3253 = (fail_stack_elt_t *) xrealloc (fail_stack.stack,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3254 (fail_stack.size
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3255 * sizeof (fail_stack_elt_t)));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3256 #else /* not emacs */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3257 if (! fail_stack.stack)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3258 fail_stack.stack
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3259 = (fail_stack_elt_t *) malloc (fail_stack.size
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3260 * sizeof (fail_stack_elt_t));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3261 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3262 fail_stack.stack
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3263 = (fail_stack_elt_t *) realloc (fail_stack.stack,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3264 (fail_stack.size
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3265 * sizeof (fail_stack_elt_t)));
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3266 #endif /* emacs */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3267 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3268
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3269 regex_grow_registers (num_regs);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3270 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3271 #endif /* not MATCH_MAY_ALLOCATE */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3272
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3273 return REG_NOERROR;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3274 } /* regex_compile */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3275
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3276 /* Subroutines for `regex_compile'. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3277
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3278 /* Store OP at LOC followed by two-byte integer parameter ARG. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3279
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3280 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3281 store_op1 (re_opcode_t op, unsigned char *loc, int arg)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3282 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3283 *loc = (unsigned char) op;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3284 STORE_NUMBER (loc + 1, arg);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3285 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3286
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3287
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3288 /* Like `store_op1', but for two two-byte parameters ARG1 and ARG2. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3289
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3290 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3291 store_op2 (re_opcode_t op, unsigned char *loc, int arg1, int arg2)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3292 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3293 *loc = (unsigned char) op;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3294 STORE_NUMBER (loc + 1, arg1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3295 STORE_NUMBER (loc + 3, arg2);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3296 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3297
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3298
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3299 /* Copy the bytes from LOC to END to open up three bytes of space at LOC
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3300 for OP followed by two-byte integer parameter ARG. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3301
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3302 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3303 insert_op1 (re_opcode_t op, unsigned char *loc, int arg, unsigned char *end)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3304 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3305 REGISTER unsigned char *pfrom = end;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3306 REGISTER unsigned char *pto = end + 3;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3307
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3308 while (pfrom != loc)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3309 *--pto = *--pfrom;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3310
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3311 store_op1 (op, loc, arg);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3312 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3313
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3314
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3315 /* Like `insert_op1', but for two two-byte parameters ARG1 and ARG2. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3316
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3317 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3318 insert_op2 (re_opcode_t op, unsigned char *loc, int arg1, int arg2,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3319 unsigned char *end)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3320 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3321 REGISTER unsigned char *pfrom = end;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3322 REGISTER unsigned char *pto = end + 5;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3323
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3324 while (pfrom != loc)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3325 *--pto = *--pfrom;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3326
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3327 store_op2 (op, loc, arg1, arg2);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3328 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3329
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3330
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3331 /* P points to just after a ^ in PATTERN. Return true if that ^ comes
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3332 after an alternative or a begin-subexpression. We assume there is at
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3333 least one character before the ^. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3334
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
3335 static re_bool
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3336 at_begline_loc_p (re_char *pattern, re_char *p, reg_syntax_t syntax)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3337 {
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3338 re_char *prev = p - 2;
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
3339 re_bool prev_prev_backslash = prev > pattern && prev[-1] == '\\';
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3340
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3341 return
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3342 /* After a subexpression? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3343 (*prev == '(' && (syntax & RE_NO_BK_PARENS || prev_prev_backslash))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3344 /* After an alternative? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3345 || (*prev == '|' && (syntax & RE_NO_BK_VBAR || prev_prev_backslash));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3346 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3347
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3348
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3349 /* The dual of at_begline_loc_p. This one is for $. We assume there is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3350 at least one character after the $, i.e., `P < PEND'. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3351
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
3352 static re_bool
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3353 at_endline_loc_p (re_char *p, re_char *pend, int syntax)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3354 {
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3355 re_char *next = p;
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
3356 re_bool next_backslash = *next == '\\';
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3357 re_char *next_next = p + 1 < pend ? p + 1 : 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3358
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3359 return
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3360 /* Before a subexpression? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3361 (syntax & RE_NO_BK_PARENS ? *next == ')'
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3362 : next_backslash && next_next && *next_next == ')')
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3363 /* Before an alternative? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3364 || (syntax & RE_NO_BK_VBAR ? *next == '|'
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3365 : next_backslash && next_next && *next_next == '|');
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3366 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3367
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3368
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3369 /* Returns true if REGNUM is in one of COMPILE_STACK's elements and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3370 false if it's not. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3371
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
3372 static re_bool
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3373 group_in_compile_stack (compile_stack_type compile_stack, regnum_t regnum)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3374 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3375 int this_element;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3376
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3377 for (this_element = compile_stack.avail - 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3378 this_element >= 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3379 this_element--)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3380 if (compile_stack.stack[this_element].regnum == regnum)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3381 return true;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3382
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3383 return false;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3384 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3385
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3386
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3387 /* Read the ending character of a range (in a bracket expression) from the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3388 uncompiled pattern *P_PTR (which ends at PEND). We assume the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3389 starting character is in `P[-2]'. (`P[-1]' is the character `-'.)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3390 Then we set the translation of all bits between the starting and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3391 ending characters (inclusive) in the compiled pattern B.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3392
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3393 Return an error code.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3394
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3395 We use these short variable names so we can use the same macros as
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3396 `regex_compile' itself.
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3397
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3398 Under Mule, this is only called when both chars of the range are
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3399 ASCII. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3400
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3401 static reg_errcode_t
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3402 compile_range (re_char **p_ptr, re_char *pend, RE_TRANSLATE_TYPE translate,
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3403 reg_syntax_t syntax, unsigned char *buf_end)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3404 {
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
3405 Emchar this_char;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3406
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3407 re_char *p = *p_ptr;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3408 int range_start, range_end;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3409
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3410 if (p == pend)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3411 return REG_ERANGE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3412
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3413 /* Even though the pattern is a signed `char *', we need to fetch
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3414 with unsigned char *'s; if the high bit of the pattern character
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3415 is set, the range endpoints will be negative if we fetch using a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3416 signed char *.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3417
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3418 We also want to fetch the endpoints without translating them; the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3419 appropriate translation is done in the bit-setting loop below. */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3420 /* The SVR4 compiler on the 3B2 had trouble with unsigned const char *. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3421 range_start = ((const unsigned char *) p)[-2];
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3422 range_end = ((const unsigned char *) p)[0];
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3423
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3424 /* Have to increment the pointer into the pattern string, so the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3425 caller isn't still at the ending character. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3426 (*p_ptr)++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3427
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3428 /* If the start is after the end, the range is empty. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3429 if (range_start > range_end)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3430 return syntax & RE_NO_EMPTY_RANGES ? REG_ERANGE : REG_NOERROR;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3431
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3432 /* Here we see why `this_char' has to be larger than an `unsigned
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3433 char' -- the range is inclusive, so if `range_end' == 0xff
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3434 (assuming 8-bit characters), we would otherwise go into an infinite
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3435 loop, since all characters <= 0xff. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3436 for (this_char = range_start; this_char <= range_end; this_char++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3437 {
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3438 SET_LIST_BIT (RE_TRANSLATE (this_char));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3439 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3440
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3441 return REG_NOERROR;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3442 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3443
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3444 #ifdef MULE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3445
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3446 static reg_errcode_t
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3447 compile_extended_range (re_char **p_ptr, re_char *pend,
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3448 RE_TRANSLATE_TYPE translate,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3449 reg_syntax_t syntax, Lisp_Object rtab)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3450 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3451 Emchar this_char, range_start, range_end;
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 648
diff changeset
3452 const Intbyte *p;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3453
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3454 if (*p_ptr == pend)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3455 return REG_ERANGE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3456
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 648
diff changeset
3457 p = (const Intbyte *) *p_ptr;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3458 range_end = charptr_emchar (p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3459 p--; /* back to '-' */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3460 DEC_CHARPTR (p); /* back to start of range */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3461 /* We also want to fetch the endpoints without translating them; the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3462 appropriate translation is done in the bit-setting loop below. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3463 range_start = charptr_emchar (p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3464 INC_CHARPTR (*p_ptr);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3465
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3466 /* If the start is after the end, the range is empty. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3467 if (range_start > range_end)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3468 return syntax & RE_NO_EMPTY_RANGES ? REG_ERANGE : REG_NOERROR;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3469
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3470 /* Can't have ranges spanning different charsets, except maybe for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3471 ranges entirely within the first 256 chars. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3472
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3473 if ((range_start >= 0x100 || range_end >= 0x100)
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3474 && emchar_leading_byte (range_start) !=
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3475 emchar_leading_byte (range_end))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3476 return REG_ERANGESPAN;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3477
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3478 /* #### This might be way inefficient if the range encompasses 10,000
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3479 chars or something. To be efficient, you'd have to do something like
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3480 this:
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3481
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3482 range_table a;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3483 range_table b;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3484 map over translation table in [range_start, range_end] of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3485 (put the mapped range in a;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3486 put the translation in b)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3487 invert the range in a and truncate to [range_start, range_end]
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3488 compute the union of a, b
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3489 union the result into rtab
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3490 */
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3491 for (this_char = range_start; this_char <= range_end; this_char++)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3492 {
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3493 SET_RANGETAB_BIT (RE_TRANSLATE (this_char));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3494 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3495
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3496 if (this_char <= range_end)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3497 put_range_table (rtab, this_char, range_end, Qt);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3498
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3499 return REG_NOERROR;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3500 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3501
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3502 #endif /* MULE */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3503
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3504 /* re_compile_fastmap computes a ``fastmap'' for the compiled pattern in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3505 BUFP. A fastmap records which of the (1 << BYTEWIDTH) possible
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3506 characters can start a string that matches the pattern. This fastmap
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3507 is used by re_search to skip quickly over impossible starting points.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3508
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3509 The caller must supply the address of a (1 << BYTEWIDTH)-byte data
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3510 area as BUFP->fastmap.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3511
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3512 We set the `fastmap', `fastmap_accurate', and `can_be_null' fields in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3513 the pattern buffer.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3514
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3515 Returns 0 if we succeed, -2 if an internal error. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3516
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3517 int
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3518 re_compile_fastmap (struct re_pattern_buffer *bufp
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3519 RE_LISP_SHORT_CONTEXT_ARGS_DECL)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3520 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3521 int j, k;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3522 #ifdef MATCH_MAY_ALLOCATE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3523 fail_stack_type fail_stack;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3524 #endif
456
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
3525 DECLARE_DESTINATION;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3526 /* We don't push any register information onto the failure stack. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3527
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3528 /* &&#### this should be changed for 8-bit-fixed, for efficiency. see
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3529 comment marked with &&#### in re_search_2. */
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3530
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3531 REGISTER char *fastmap = bufp->fastmap;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3532 unsigned char *pattern = bufp->buffer;
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
3533 long size = bufp->used;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3534 unsigned char *p = pattern;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3535 REGISTER unsigned char *pend = pattern + size;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3536
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
3537 #ifdef REGEX_REL_ALLOC
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3538 /* This holds the pointer to the failure stack, when
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3539 it is allocated relocatably. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3540 fail_stack_elt_t *failure_stack_ptr;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3541 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3542
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3543 /* Assume that each path through the pattern can be null until
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3544 proven otherwise. We set this false at the bottom of switch
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3545 statement, to which we get only if a particular path doesn't
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3546 match the empty string. */
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
3547 re_bool path_can_be_null = true;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3548
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3549 /* We aren't doing a `succeed_n' to begin with. */
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
3550 re_bool succeed_n_p = false;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3551
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3552 assert (fastmap != NULL && p != NULL);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3553
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3554 INIT_FAIL_STACK ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3555 memset (fastmap, 0, 1 << BYTEWIDTH); /* Assume nothing's valid. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3556 bufp->fastmap_accurate = 1; /* It will be when we're done. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3557 bufp->can_be_null = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3558
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3559 while (1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3560 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3561 if (p == pend || *p == succeed)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3562 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3563 /* We have reached the (effective) end of pattern. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3564 if (!FAIL_STACK_EMPTY ())
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3565 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3566 bufp->can_be_null |= path_can_be_null;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3567
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3568 /* Reset for next path. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3569 path_can_be_null = true;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3570
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3571 p = (unsigned char *) fail_stack.stack[--fail_stack.avail].pointer;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3572
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3573 continue;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3574 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3575 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3576 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3577 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3578
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3579 /* We should never be about to go beyond the end of the pattern. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3580 assert (p < pend);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3581
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3582 switch (SWITCH_ENUM_CAST ((re_opcode_t) *p++))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3583 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3584
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3585 /* I guess the idea here is to simply not bother with a fastmap
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3586 if a backreference is used, since it's too hard to figure out
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3587 the fastmap for the corresponding group. Setting
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3588 `can_be_null' stops `re_search_2' from using the fastmap, so
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3589 that is all we do. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3590 case duplicate:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3591 bufp->can_be_null = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3592 goto done;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3593
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3594
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3595 /* Following are the cases which match a character. These end
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3596 with `break'. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3597
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3598 case exactn:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3599 fastmap[p[1]] = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3600 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3601
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3602
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3603 case charset:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3604 /* XEmacs: Under Mule, these bit vectors will
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3605 only contain values for characters below 0x80. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3606 for (j = *p++ * BYTEWIDTH - 1; j >= 0; j--)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3607 if (p[j / BYTEWIDTH] & (1 << (j % BYTEWIDTH)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3608 fastmap[j] = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3609 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3610
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3611
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3612 case charset_not:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3613 /* Chars beyond end of map must be allowed. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3614 #ifdef MULE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3615 for (j = *p * BYTEWIDTH; j < 0x80; j++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3616 fastmap[j] = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3617 /* And all extended characters must be allowed, too. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3618 for (j = 0x80; j < 0xA0; j++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3619 fastmap[j] = 1;
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3620 #else /* not MULE */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3621 for (j = *p * BYTEWIDTH; j < (1 << BYTEWIDTH); j++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3622 fastmap[j] = 1;
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3623 #endif /* MULE */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3624
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3625 for (j = *p++ * BYTEWIDTH - 1; j >= 0; j--)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3626 if (!(p[j / BYTEWIDTH] & (1 << (j % BYTEWIDTH))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3627 fastmap[j] = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3628 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3629
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3630 #ifdef MULE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3631 case charset_mule:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3632 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3633 int nentries;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3634 int i;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3635
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3636 nentries = unified_range_table_nentries (p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3637 for (i = 0; i < nentries; i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3638 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3639 EMACS_INT first, last;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3640 Lisp_Object dummy_val;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3641 int jj;
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 648
diff changeset
3642 Intbyte strr[MAX_EMCHAR_LEN];
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3643
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3644 unified_range_table_get_range (p, i, &first, &last,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3645 &dummy_val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3646 for (jj = first; jj <= last && jj < 0x80; jj++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3647 fastmap[jj] = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3648 /* Ranges below 0x100 can span charsets, but there
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3649 are only two (Control-1 and Latin-1), and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3650 either first or last has to be in them. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3651 set_charptr_emchar (strr, first);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3652 fastmap[*strr] = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3653 if (last < 0x100)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3654 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3655 set_charptr_emchar (strr, last);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3656 fastmap[*strr] = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3657 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3658 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3659 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3660 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3661
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3662 case charset_mule_not:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3663 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3664 int nentries;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3665 int i;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3666
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3667 nentries = unified_range_table_nentries (p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3668 for (i = 0; i < nentries; i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3669 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3670 EMACS_INT first, last;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3671 Lisp_Object dummy_val;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3672 int jj;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3673 int smallest_prev = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3674
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3675 unified_range_table_get_range (p, i, &first, &last,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3676 &dummy_val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3677 for (jj = smallest_prev; jj < first && jj < 0x80; jj++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3678 fastmap[jj] = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3679 smallest_prev = last + 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3680 if (smallest_prev >= 0x80)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3681 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3682 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3683 /* Calculating which leading bytes are actually allowed
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3684 here is rather difficult, so we just punt and allow
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3685 all of them. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3686 for (i = 0x80; i < 0xA0; i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3687 fastmap[i] = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3688 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3689 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3690 #endif /* MULE */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3691
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3692
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3693 case anychar:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3694 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3695 int fastmap_newline = fastmap['\n'];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3696
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3697 /* `.' matches anything ... */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3698 #ifdef MULE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3699 /* "anything" only includes bytes that can be the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3700 first byte of a character. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3701 for (j = 0; j < 0xA0; j++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3702 fastmap[j] = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3703 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3704 for (j = 0; j < (1 << BYTEWIDTH); j++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3705 fastmap[j] = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3706 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3707
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3708 /* ... except perhaps newline. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3709 if (!(bufp->syntax & RE_DOT_NEWLINE))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3710 fastmap['\n'] = fastmap_newline;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3711
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3712 /* Return if we have already set `can_be_null'; if we have,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3713 then the fastmap is irrelevant. Something's wrong here. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3714 else if (bufp->can_be_null)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3715 goto done;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3716
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3717 /* Otherwise, have to check alternative paths. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3718 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3719 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3720
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3721 #ifndef emacs
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3722 case wordchar:
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3723 for (j = 0; j < (1 << BYTEWIDTH); j++)
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3724 if (SYNTAX (ignored, j) == Sword)
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3725 fastmap[j] = 1;
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3726 break;
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3727
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3728 case notwordchar:
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3729 for (j = 0; j < (1 << BYTEWIDTH); j++)
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3730 if (SYNTAX (ignored, j) != Sword)
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3731 fastmap[j] = 1;
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3732 break;
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3733 #else /* emacs */
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3734 case wordchar:
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3735 case notwordchar:
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
3736 case wordbound:
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
3737 case notwordbound:
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
3738 case wordbeg:
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
3739 case wordend:
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
3740 case notsyntaxspec:
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
3741 case syntaxspec:
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
3742 /* This match depends on text properties. These end with
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
3743 aborting optimizations. */
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
3744 bufp->can_be_null = 1;
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
3745 goto done;
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3746 #if 0 /* all of the following code is unused now that the `syntax-table'
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3747 property exists -- it's trickier to do this than just look in
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3748 the buffer. &&#### but we could just use the syntax-cache stuff
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3749 instead; why don't we? --ben */
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3750 case wordchar:
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3751 k = (int) Sword;
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3752 goto matchsyntax;
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3753
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3754 case notwordchar:
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3755 k = (int) Sword;
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3756 goto matchnotsyntax;
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3757
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3758 case syntaxspec:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3759 k = *p++;
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3760 matchsyntax:
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3761 #ifdef MULE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3762 for (j = 0; j < 0x80; j++)
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3763 if (SYNTAX
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3764 (XCHAR_TABLE (BUFFER_MIRROR_SYNTAX_TABLE (lispbuf)), j) ==
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3765 (enum syntaxcode) k)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3766 fastmap[j] = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3767 for (j = 0x80; j < 0xA0; j++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3768 {
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3769 if (leading_byte_prefix_p ((unsigned char) j))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3770 /* too complicated to calculate this right */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3771 fastmap[j] = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3772 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3773 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3774 int multi_p;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3775 Lisp_Object cset;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3776
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3777 cset = charset_by_leading_byte (j);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3778 if (CHARSETP (cset))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3779 {
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3780 if (charset_syntax (lispbuf, cset, &multi_p)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3781 == Sword || multi_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3782 fastmap[j] = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3783 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3784 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3785 }
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3786 #else /* not MULE */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3787 for (j = 0; j < (1 << BYTEWIDTH); j++)
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3788 if (SYNTAX
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3789 (XCHAR_TABLE (BUFFER_MIRROR_SYNTAX_TABLE (lispbuf)), j) ==
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3790 (enum syntaxcode) k)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3791 fastmap[j] = 1;
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3792 #endif /* MULE */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3793 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3794
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3795
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3796 case notsyntaxspec:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3797 k = *p++;
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3798 matchnotsyntax:
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3799 #ifdef MULE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3800 for (j = 0; j < 0x80; j++)
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3801 if (SYNTAX
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3802 (XCHAR_TABLE
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3803 (BUFFER_MIRROR_SYNTAX_TABLE (lispbuf)), j) !=
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3804 (enum syntaxcode) k)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3805 fastmap[j] = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3806 for (j = 0x80; j < 0xA0; j++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3807 {
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3808 if (leading_byte_prefix_p ((unsigned char) j))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3809 /* too complicated to calculate this right */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3810 fastmap[j] = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3811 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3812 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3813 int multi_p;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3814 Lisp_Object cset;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3815
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3816 cset = charset_by_leading_byte (j);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3817 if (CHARSETP (cset))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3818 {
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3819 if (charset_syntax (lispbuf, cset, &multi_p)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3820 != Sword || multi_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3821 fastmap[j] = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3822 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3823 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3824 }
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3825 #else /* not MULE */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3826 for (j = 0; j < (1 << BYTEWIDTH); j++)
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3827 if (SYNTAX
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3828 (XCHAR_TABLE
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3829 (BUFFER_MIRROR_SYNTAX_TABLE (lispbuf)), j) !=
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3830 (enum syntaxcode) k)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3831 fastmap[j] = 1;
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
3832 #endif /* MULE */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3833 break;
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3834 #endif /* 0 */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3835
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3836 #ifdef MULE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3837 /* 97/2/17 jhod category patch */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3838 case categoryspec:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3839 case notcategoryspec:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3840 bufp->can_be_null = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3841 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3842 /* end if category patch */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3843 #endif /* MULE */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3844
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3845 /* All cases after this match the empty string. These end with
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3846 `continue'. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3847 case before_dot:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3848 case at_dot:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3849 case after_dot:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3850 continue;
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
3851 #endif /* emacs */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3852
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3853
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3854 case no_op:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3855 case begline:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3856 case endline:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3857 case begbuf:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3858 case endbuf:
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
3859 #ifndef emacs
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3860 case wordbound:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3861 case notwordbound:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3862 case wordbeg:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3863 case wordend:
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
3864 #endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3865 case push_dummy_failure:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3866 continue;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3867
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3868
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3869 case jump_n:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3870 case pop_failure_jump:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3871 case maybe_pop_jump:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3872 case jump:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3873 case jump_past_alt:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3874 case dummy_failure_jump:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3875 EXTRACT_NUMBER_AND_INCR (j, p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3876 p += j;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3877 if (j > 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3878 continue;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3879
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3880 /* Jump backward implies we just went through the body of a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3881 loop and matched nothing. Opcode jumped to should be
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3882 `on_failure_jump' or `succeed_n'. Just treat it like an
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3883 ordinary jump. For a * loop, it has pushed its failure
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3884 point already; if so, discard that as redundant. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3885 if ((re_opcode_t) *p != on_failure_jump
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3886 && (re_opcode_t) *p != succeed_n)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3887 continue;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3888
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3889 p++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3890 EXTRACT_NUMBER_AND_INCR (j, p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3891 p += j;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3892
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3893 /* If what's on the stack is where we are now, pop it. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3894 if (!FAIL_STACK_EMPTY ()
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3895 && fail_stack.stack[fail_stack.avail - 1].pointer == p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3896 fail_stack.avail--;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3897
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3898 continue;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3899
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3900
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3901 case on_failure_jump:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3902 case on_failure_keep_string_jump:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3903 handle_on_failure_jump:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3904 EXTRACT_NUMBER_AND_INCR (j, p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3905
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3906 /* For some patterns, e.g., `(a?)?', `p+j' here points to the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3907 end of the pattern. We don't want to push such a point,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3908 since when we restore it above, entering the switch will
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3909 increment `p' past the end of the pattern. We don't need
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3910 to push such a point since we obviously won't find any more
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3911 fastmap entries beyond `pend'. Such a pattern can match
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3912 the null string, though. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3913 if (p + j < pend)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3914 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3915 if (!PUSH_PATTERN_OP (p + j, fail_stack))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3916 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3917 RESET_FAIL_STACK ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3918 return -2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3919 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3920 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3921 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3922 bufp->can_be_null = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3923
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3924 if (succeed_n_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3925 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3926 EXTRACT_NUMBER_AND_INCR (k, p); /* Skip the n. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3927 succeed_n_p = false;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3928 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3929
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3930 continue;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3931
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3932
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3933 case succeed_n:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3934 /* Get to the number of times to succeed. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3935 p += 2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3936
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3937 /* Increment p past the n for when k != 0. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3938 EXTRACT_NUMBER_AND_INCR (k, p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3939 if (k == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3940 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3941 p -= 4;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3942 succeed_n_p = true; /* Spaghetti code alert. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3943 goto handle_on_failure_jump;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3944 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3945 continue;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3946
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3947
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3948 case set_number_at:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3949 p += 4;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3950 continue;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3951
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3952
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3953 case start_memory:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3954 case stop_memory:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3955 p += 2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3956 continue;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3957
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3958
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3959 default:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3960 abort (); /* We have listed all the cases. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3961 } /* switch *p++ */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3962
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3963 /* Getting here means we have found the possible starting
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3964 characters for one path of the pattern -- and that the empty
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3965 string does not match. We need not follow this path further.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3966 Instead, look at the next alternative (remembered on the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3967 stack), or quit if no more. The test at the top of the loop
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3968 does these things. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3969 path_can_be_null = false;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3970 p = pend;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3971 } /* while p */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3972
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3973 /* Set `can_be_null' for the last path (also the first path, if the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3974 pattern is empty). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3975 bufp->can_be_null |= path_can_be_null;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3976
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3977 done:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3978 RESET_FAIL_STACK ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3979 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3980 } /* re_compile_fastmap */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3981
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3982 /* Set REGS to hold NUM_REGS registers, storing them in STARTS and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3983 ENDS. Subsequent matches using PATTERN_BUFFER and REGS will use
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3984 this memory for recording register information. STARTS and ENDS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3985 must be allocated using the malloc library routine, and must each
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3986 be at least NUM_REGS * sizeof (regoff_t) bytes long.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3987
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3988 If NUM_REGS == 0, then subsequent matches should allocate their own
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3989 register data.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3990
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3991 Unless this function is called, the first search or match using
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3992 PATTERN_BUFFER will allocate its own register data, without
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3993 freeing the old data. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3994
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3995 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3996 re_set_registers (struct re_pattern_buffer *bufp, struct re_registers *regs,
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
3997 int num_regs, regoff_t *starts, regoff_t *ends)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3998 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3999 if (num_regs)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4000 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4001 bufp->regs_allocated = REGS_REALLOCATE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4002 regs->num_regs = num_regs;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4003 regs->start = starts;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4004 regs->end = ends;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4005 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4006 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4007 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4008 bufp->regs_allocated = REGS_UNALLOCATED;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4009 regs->num_regs = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4010 regs->start = regs->end = (regoff_t *) 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4011 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4012 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4013
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4014 /* Searching routines. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4015
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4016 /* Like re_search_2, below, but only one string is specified, and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4017 doesn't let you say where to stop matching. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4018
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4019 int
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4020 re_search (struct re_pattern_buffer *bufp, const char *string, int size,
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4021 int startpos, int range, struct re_registers *regs
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4022 RE_LISP_CONTEXT_ARGS_DECL)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4023 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4024 return re_search_2 (bufp, NULL, 0, string, size, startpos, range,
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4025 regs, size RE_LISP_CONTEXT_ARGS);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4026 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4027
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4028 /* Using the compiled pattern in BUFP->buffer, first tries to match the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4029 virtual concatenation of STRING1 and STRING2, starting first at index
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4030 STARTPOS, then at STARTPOS + 1, and so on.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4031
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4032 STRING1 and STRING2 have length SIZE1 and SIZE2, respectively.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4033
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4034 RANGE is how far to scan while trying to match. RANGE = 0 means try
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4035 only at STARTPOS; in general, the last start tried is STARTPOS +
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4036 RANGE.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4037
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4038 All sizes and positions refer to bytes (not chars); under Mule, the code
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4039 knows about the format of the text and will only check at positions
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4040 where a character starts.
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4041
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4042 With MULE, RANGE is a byte position, not a char position. The last
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4043 start tried is the character starting <= STARTPOS + RANGE.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4044
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4045 In REGS, return the indices of the virtual concatenation of STRING1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4046 and STRING2 that matched the entire BUFP->buffer and its contained
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4047 subexpressions.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4048
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4049 Do not consider matching one past the index STOP in the virtual
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4050 concatenation of STRING1 and STRING2.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4051
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4052 We return either the position in the strings at which the match was
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4053 found, -1 if no match, or -2 if error (such as failure
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4054 stack overflow). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4055
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4056 int
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
4057 re_search_2 (struct re_pattern_buffer *bufp, const char *str1,
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
4058 int size1, const char *str2, int size2, int startpos,
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4059 int range, struct re_registers *regs, int stop
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4060 RE_LISP_CONTEXT_ARGS_DECL)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4061 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4062 int val;
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
4063 re_char *string1 = (re_char *) str1;
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
4064 re_char *string2 = (re_char *) str2;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4065 REGISTER char *fastmap = bufp->fastmap;
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
4066 REGISTER RE_TRANSLATE_TYPE translate = bufp->translate;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4067 int total_size = size1 + size2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4068 int endpos = startpos + range;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4069 #ifdef REGEX_BEGLINE_CHECK
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4070 int anchored_at_begline = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4071 #endif
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
4072 re_char *d;
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4073 #ifdef emacs
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4074 Internal_Format fmt = buffer_or_other_internal_format (lispobj);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4075 #endif /* emacs */
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4076 #if 1
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4077 int forward_search_p;
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4078 #endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4079
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4080 /* Check for out-of-range STARTPOS. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4081 if (startpos < 0 || startpos > total_size)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4082 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4083
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4084 /* Fix up RANGE if it might eventually take us outside
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4085 the virtual concatenation of STRING1 and STRING2. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4086 if (endpos < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4087 range = 0 - startpos;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4088 else if (endpos > total_size)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4089 range = total_size - startpos;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4090
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4091 #if 1
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4092 forward_search_p = range > 0;
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4093 #endif
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4094
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4095 /* If the search isn't to be a backwards one, don't waste time in a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4096 search for a pattern that must be anchored. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4097 if (bufp->used > 0 && (re_opcode_t) bufp->buffer[0] == begbuf && range > 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4098 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4099 if (startpos > 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4100 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4101 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4102 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4103 d = ((const unsigned char *)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4104 (startpos >= size1 ? string2 - size1 : string1) + startpos);
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4105 range = charptr_emchar_len_fmt (d, fmt);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4106 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4107 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4108
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
4109 #ifdef emacs
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
4110 /* In a forward search for something that starts with \=.
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
4111 don't keep searching past point. */
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
4112 if (bufp->used > 0 && (re_opcode_t) bufp->buffer[0] == at_dot && range > 0)
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
4113 {
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4114 if (!BUFFERP (lispobj))
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4115 return -1;
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4116 range = (BUF_PT (XBUFFER (lispobj)) - BUF_BEGV (XBUFFER (lispobj))
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4117 - startpos);
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
4118 if (range < 0)
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
4119 return -1;
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
4120 }
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
4121 #endif /* emacs */
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
4122
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4123 /* Update the fastmap now if not correct already. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4124 if (fastmap && !bufp->fastmap_accurate)
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4125 if (re_compile_fastmap (bufp RE_LISP_SHORT_CONTEXT_ARGS) == -2)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4126 return -2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4127
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4128 #ifdef REGEX_BEGLINE_CHECK
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4129 {
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
4130 long i = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4131
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4132 while (i < bufp->used)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4133 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4134 if (bufp->buffer[i] == start_memory ||
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4135 bufp->buffer[i] == stop_memory)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4136 i += 2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4137 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4138 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4139 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4140 anchored_at_begline = i < bufp->used && bufp->buffer[i] == begline;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4141 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4142 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4143
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
4144 #ifdef emacs
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4145 scache = setup_syntax_cache (scache, lispobj, lispbuf,
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4146 offset_to_charxpos (lispobj, startpos),
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4147 1);
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
4148 #endif
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
4149
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4150 /* Loop through the string, looking for a place to start matching. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4151 for (;;)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4152 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4153 #ifdef REGEX_BEGLINE_CHECK
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4154 /* If the regex is anchored at the beginning of a line (i.e. with a
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4155 ^), then we can speed things up by skipping to the next
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4156 beginning-of-line. However, to determine "beginning of line" we
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4157 need to look at the previous char, so can't do this check if at
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4158 beginning of either string. (Well, we could if at the beginning of
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4159 the second string, but it would require additional code, and this
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4160 is just an optimization.) */
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4161 if (anchored_at_begline && startpos > 0 && startpos != size1)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4162 {
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4163 if (range > 0)
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4164 {
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4165 /* whose stupid idea was it anyway to make this
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4166 function take two strings to match?? */
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4167 int lim = 0;
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4168 re_char *orig_d;
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4169 re_char *stop_d;
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4170
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4171 /* Compute limit as below in fastmap code, so we are guaranteed
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4172 to remain within a single string. */
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4173 if (startpos < size1 && startpos + range >= size1)
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4174 lim = range - (size1 - startpos);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4175
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4176 d = ((const unsigned char *)
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4177 (startpos >= size1 ? string2 - size1 : string1) + startpos);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4178 orig_d = d;
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4179 stop_d = d + range - lim;
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4180
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4181 /* We want to find the next location (including the current
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4182 one) where the previous char is a newline, so back up one
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4183 and search forward for a newline. */
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4184 DEC_CHARPTR_FMT (d, fmt); /* Ok, since startpos != size1. */
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4185
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4186 /* Written out as an if-else to avoid testing `translate'
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4187 inside the loop. */
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4188 if (TRANSLATE_P (translate))
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4189 while (d < stop_d &&
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4190 RE_TRANSLATE_1 (charptr_emchar_fmt (d, fmt, lispobj))
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4191 != '\n')
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4192 INC_CHARPTR_FMT (d, fmt);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4193 else
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4194 while (d < stop_d &&
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4195 charptr_emchar_ascii_fmt (d, fmt, lispobj) != '\n')
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4196 INC_CHARPTR_FMT (d, fmt);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4197
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4198 /* If we were stopped by a newline, skip forward over it.
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4199 Otherwise we will get in an infloop when our start position
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4200 was at begline. */
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4201 if (d < stop_d)
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4202 INC_CHARPTR_FMT (d, fmt);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4203 range -= d - orig_d;
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4204 startpos += d - orig_d;
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4205 #if 1
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4206 assert (!forward_search_p || range >= 0);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4207 #endif
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4208 }
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4209 else if (range < 0)
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4210 {
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4211 /* We're lazy, like in the fastmap code below */
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4212 Emchar c;
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4213
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4214 d = ((const unsigned char *)
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4215 (startpos >= size1 ? string2 - size1 : string1) + startpos);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4216 DEC_CHARPTR_FMT (d, fmt);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4217 c = charptr_emchar_fmt (d, fmt, lispobj);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4218 c = RE_TRANSLATE (c);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4219 if (c != '\n')
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4220 goto advance;
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4221 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4222 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4223 #endif /* REGEX_BEGLINE_CHECK */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4224
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4225 /* If a fastmap is supplied, skip quickly over characters that
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4226 cannot be the start of a match. If the pattern can match the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4227 null string, however, we don't need to skip characters; we want
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4228 the first null string. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4229 if (fastmap && startpos < total_size && !bufp->can_be_null)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4230 {
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4231 /* For the moment, fastmap always works as if buffer
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4232 is in default format, so convert chars in the search strings
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4233 into default format as we go along, if necessary.
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4234
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4235 &&#### fastmap needs rethinking for 8-bit-fixed so
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4236 it's faster. We need it to reflect the raw
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4237 8-bit-fixed values. That isn't so hard if we assume
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4238 that the top 96 bytes represent a single 1-byte
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4239 charset. For 16-bit/32-bit stuff it's probably not
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4240 worth it to make the fastmap represent the raw, due to
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4241 its nature -- we'd have to use the LSB for the
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4242 fastmap, and that causes lots of problems with Mule
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4243 chars, where it essentially wipes out the usefulness
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4244 of the fastmap entirely. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4245 if (range > 0) /* Searching forwards. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4246 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4247 int lim = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4248 int irange = range;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4249
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4250 if (startpos < size1 && startpos + range >= size1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4251 lim = range - (size1 - startpos);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4252
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4253 d = ((const unsigned char *)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4254 (startpos >= size1 ? string2 - size1 : string1) + startpos);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4255
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4256 /* Written out as an if-else to avoid testing `translate'
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4257 inside the loop. */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
4258 if (TRANSLATE_P (translate))
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4259 {
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4260 while (range > lim)
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4261 {
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4262 re_char *old_d = d;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4263 #ifdef MULE
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4264 Intbyte tempch[MAX_EMCHAR_LEN];
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4265 Emchar buf_ch =
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4266 RE_TRANSLATE_1 (charptr_emchar_fmt (d, fmt, lispobj));
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4267 set_charptr_emchar (tempch, buf_ch);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4268 if (fastmap[*tempch])
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4269 break;
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
4270 #else
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4271 if (fastmap[(unsigned char) RE_TRANSLATE_1 (*d)])
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4272 break;
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
4273 #endif /* MULE */
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4274 INC_CHARPTR_FMT (d, fmt);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4275 range -= (d - old_d);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4276 #if 1
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4277 assert (!forward_search_p || range >= 0);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4278 #endif
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4279 }
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4280 }
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4281 #ifdef MULE
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4282 else if (fmt != FORMAT_DEFAULT)
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4283 {
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4284 while (range > lim)
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4285 {
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4286 re_char *old_d = d;
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4287 Intbyte tempch[MAX_EMCHAR_LEN];
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4288 Emchar buf_ch = charptr_emchar_fmt (d, fmt, lispobj);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4289 set_charptr_emchar (tempch, buf_ch);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4290 if (fastmap[*tempch])
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4291 break;
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4292 INC_CHARPTR_FMT (d, fmt);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4293 range -= (d - old_d);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4294 #if 1
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4295 assert (!forward_search_p || range >= 0);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4296 #endif
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4297 }
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4298 }
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4299 #endif /* MULE */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4300 else
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4301 {
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4302 while (range > lim && !fastmap[*d])
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4303 {
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4304 re_char *old_d = d;
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4305 INC_CHARPTR (d);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4306 range -= (d - old_d);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4307 #if 1
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4308 assert (!forward_search_p || range >= 0);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4309 #endif
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4310 }
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4311 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4312
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4313 startpos += irange - range;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4314 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4315 else /* Searching backwards. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4316 {
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4317 /* #### It's not clear why we don't just write a loop, like
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4318 for the moving-forward case. Perhaps the writer got lazy,
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4319 since backward searches aren't so common. */
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4320 d = ((const unsigned char *)
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4321 (startpos >= size1 ? string2 - size1 : string1) + startpos);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4322 #ifdef MULE
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4323 {
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4324 Intbyte tempch[MAX_EMCHAR_LEN];
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4325 Emchar buf_ch =
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4326 RE_TRANSLATE (charptr_emchar_fmt (d, fmt, lispobj));
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4327 set_charptr_emchar (tempch, buf_ch);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4328 if (!fastmap[*tempch])
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4329 goto advance;
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4330 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4331 #else
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4332 if (!fastmap[(unsigned char) RE_TRANSLATE (*d)])
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
4333 goto advance;
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4334 #endif /* MULE */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4335 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4336 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4337
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4338 /* If can't match the null string, and that's all we have left, fail. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4339 if (range >= 0 && startpos == total_size && fastmap
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4340 && !bufp->can_be_null)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4341 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4342
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4343 #ifdef emacs /* XEmacs added, w/removal of immediate_quit */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4344 if (!no_quit_in_re_search)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4345 QUIT;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4346 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4347 val = re_match_2_internal (bufp, string1, size1, string2, size2,
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4348 startpos, regs, stop
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4349 RE_LISP_CONTEXT_ARGS);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4350 #ifndef REGEX_MALLOC
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4351 #ifdef C_ALLOCA
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4352 alloca (0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4353 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4354 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4355
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4356 if (val >= 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4357 return startpos;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4358
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4359 if (val == -2)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4360 return -2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4361
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4362 advance:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4363 if (!range)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4364 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4365 else if (range > 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4366 {
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4367 Bytecount d_size;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4368 d = ((const unsigned char *)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4369 (startpos >= size1 ? string2 - size1 : string1) + startpos);
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4370 d_size = charptr_emchar_len_fmt (d, fmt);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4371 range -= d_size;
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4372 #if 1
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4373 assert (!forward_search_p || range >= 0);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4374 #endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4375 startpos += d_size;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4376 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4377 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4378 {
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4379 Bytecount d_size;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4380 /* Note startpos > size1 not >=. If we are on the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4381 string1/string2 boundary, we want to backup into string1. */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4382 d = ((const unsigned char *)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4383 (startpos > size1 ? string2 - size1 : string1) + startpos);
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4384 DEC_CHARPTR_FMT (d, fmt);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4385 d_size = charptr_emchar_len_fmt (d, fmt);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4386 range += d_size;
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4387 #if 1
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4388 assert (!forward_search_p || range >= 0);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4389 #endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4390 startpos -= d_size;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4391 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4392 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4393 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4394 } /* re_search_2 */
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4395
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4396
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4397 /* Declarations and macros for re_match_2. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4398
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4399 /* This converts PTR, a pointer into one of the search strings `string1'
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4400 and `string2' into an offset from the beginning of that string. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4401 #define POINTER_TO_OFFSET(ptr) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4402 (FIRST_STRING_P (ptr) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4403 ? ((regoff_t) ((ptr) - string1)) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4404 : ((regoff_t) ((ptr) - string2 + size1)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4405
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4406 /* Macros for dealing with the split strings in re_match_2. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4407
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4408 #define MATCHING_IN_FIRST_STRING (dend == end_match_1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4409
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4410 /* Call before fetching a character with *d. This switches over to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4411 string2 if necessary. */
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4412 #define REGEX_PREFETCH() \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4413 while (d == dend) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4414 { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4415 /* End of string2 => fail. */ \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4416 if (dend == end_match_2) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4417 goto fail; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4418 /* End of string1 => advance to string2. */ \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4419 d = string2; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4420 dend = end_match_2; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4421 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4422
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4423
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4424 /* Test if at very beginning or at very end of the virtual concatenation
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4425 of `string1' and `string2'. If only one string, it's `string2'. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4426 #define AT_STRINGS_BEG(d) ((d) == (size1 ? string1 : string2) || !size2)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4427 #define AT_STRINGS_END(d) ((d) == end2)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4429 /* XEmacs change:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4430 If the given position straddles the string gap, return the equivalent
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4431 position that is before or after the gap, respectively; otherwise,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4432 return the same position. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4433 #define POS_BEFORE_GAP_UNSAFE(d) ((d) == string2 ? end1 : (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4434 #define POS_AFTER_GAP_UNSAFE(d) ((d) == end1 ? string2 : (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4435
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4436 /* Test if CH is a word-constituent character. (XEmacs change) */
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4437 #define WORDCHAR_P(ch) \
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4438 (SYNTAX (BUFFER_MIRROR_SYNTAX_TABLE (lispbuf), ch) == Sword)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4439
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4440 /* Free everything we malloc. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4441 #ifdef MATCH_MAY_ALLOCATE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4442 #define FREE_VAR(var) if (var) REGEX_FREE (var); var = NULL
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4443 #define FREE_VARIABLES() \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4444 do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4445 REGEX_FREE_STACK (fail_stack.stack); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4446 FREE_VAR (regstart); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4447 FREE_VAR (regend); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4448 FREE_VAR (old_regstart); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4449 FREE_VAR (old_regend); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4450 FREE_VAR (best_regstart); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4451 FREE_VAR (best_regend); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4452 FREE_VAR (reg_info); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4453 FREE_VAR (reg_dummy); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4454 FREE_VAR (reg_info_dummy); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4455 } while (0)
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
4456 #else /* not MATCH_MAY_ALLOCATE */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4457 #define FREE_VARIABLES() ((void)0) /* Do nothing! But inhibit gcc warning. */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
4458 #endif /* MATCH_MAY_ALLOCATE */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4459
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4460 /* These values must meet several constraints. They must not be valid
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4461 register values; since we have a limit of 255 registers (because
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4462 we use only one byte in the pattern for the register number), we can
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4463 use numbers larger than 255. They must differ by 1, because of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4464 NUM_FAILURE_ITEMS above. And the value for the lowest register must
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4465 be larger than the value for the highest register, so we do not try
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4466 to actually save any registers when none are active. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4467 #define NO_HIGHEST_ACTIVE_REG (1 << BYTEWIDTH)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4468 #define NO_LOWEST_ACTIVE_REG (NO_HIGHEST_ACTIVE_REG + 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4469
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4470 /* Matching routines. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4471
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4472 #ifndef emacs /* XEmacs never uses this. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4473 /* re_match is like re_match_2 except it takes only a single string. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4474
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4475 int
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4476 re_match (struct re_pattern_buffer *bufp, const char *string, int size,
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4477 int pos, struct re_registers *regs
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4478 RE_LISP_CONTEXT_ARGS_DECL)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4479 {
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
4480 int result = re_match_2_internal (bufp, NULL, 0, (re_char *) string, size,
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4481 pos, regs, size
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4482 RE_LISP_CONTEXT_ARGS);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4483 alloca (0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4484 return result;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4485 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4486 #endif /* not emacs */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4487
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4488 /* re_match_2 matches the compiled pattern in BUFP against the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4489 (virtual) concatenation of STRING1 and STRING2 (of length SIZE1 and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4490 SIZE2, respectively). We start matching at POS, and stop matching
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4491 at STOP.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4492
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4493 If REGS is non-null and the `no_sub' field of BUFP is nonzero, we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4494 store offsets for the substring each group matched in REGS. See the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4495 documentation for exactly how many groups we fill.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4496
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4497 We return -1 if no match, -2 if an internal error (such as the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4498 failure stack overflowing). Otherwise, we return the length of the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4499 matched substring. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4500
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4501 int
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4502 re_match_2 (struct re_pattern_buffer *bufp, const char *string1,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4503 int size1, const char *string2, int size2, int pos,
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4504 struct re_registers *regs, int stop
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4505 RE_LISP_CONTEXT_ARGS_DECL)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4506 {
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
4507 int result;
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
4508
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
4509 #ifdef emacs
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4510 scache = setup_syntax_cache (scache, lispobj, lispbuf,
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4511 offset_to_charxpos (lispobj, pos),
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4512 1);
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
4513 #endif
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
4514
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
4515 result = re_match_2_internal (bufp, (re_char *) string1, size1,
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
4516 (re_char *) string2, size2,
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4517 pos, regs, stop
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4518 RE_LISP_CONTEXT_ARGS);
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
4519
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4520 alloca (0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4521 return result;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4522 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4523
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4524 /* This is a separate function so that we can force an alloca cleanup
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4525 afterwards. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4526 static int
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
4527 re_match_2_internal (struct re_pattern_buffer *bufp, re_char *string1,
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
4528 int size1, re_char *string2, int size2, int pos,
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4529 struct re_registers *regs, int stop
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4530 RE_LISP_CONTEXT_ARGS_DECL)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4531 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4532 /* General temporaries. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4533 int mcnt;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4534 unsigned char *p1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4535 int should_succeed; /* XEmacs change */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4536
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4537 /* Just past the end of the corresponding string. */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
4538 re_char *end1, *end2;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4539
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4540 /* Pointers into string1 and string2, just past the last characters in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4541 each to consider matching. */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
4542 re_char *end_match_1, *end_match_2;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4543
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4544 /* Where we are in the data, and the end of the current string. */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
4545 re_char *d, *dend;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4546
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4547 /* Where we are in the pattern, and the end of the pattern. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4548 unsigned char *p = bufp->buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4549 REGISTER unsigned char *pend = p + bufp->used;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4550
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4551 /* Mark the opcode just after a start_memory, so we can test for an
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4552 empty subpattern when we get to the stop_memory. */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
4553 re_char *just_past_start_mem = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4554
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4555 /* We use this to map every character in the string. */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
4556 RE_TRANSLATE_TYPE translate = bufp->translate;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4557
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4558 /* Failure point stack. Each place that can handle a failure further
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4559 down the line pushes a failure point on this stack. It consists of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4560 restart, regend, and reg_info for all registers corresponding to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4561 the subexpressions we're currently inside, plus the number of such
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4562 registers, and, finally, two char *'s. The first char * is where
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4563 to resume scanning the pattern; the second one is where to resume
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4564 scanning the strings. If the latter is zero, the failure point is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4565 a ``dummy''; if a failure happens and the failure point is a dummy,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4566 it gets discarded and the next one is tried. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4567 #ifdef MATCH_MAY_ALLOCATE /* otherwise, this is global. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4568 fail_stack_type fail_stack;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4569 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4570 #ifdef DEBUG
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
4571 static int failure_id;
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
4572 int nfailure_points_pushed = 0, nfailure_points_popped = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4573 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4574
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
4575 #ifdef REGEX_REL_ALLOC
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4576 /* This holds the pointer to the failure stack, when
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4577 it is allocated relocatably. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4578 fail_stack_elt_t *failure_stack_ptr;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4579 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4580
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4581 /* We fill all the registers internally, independent of what we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4582 return, for use in backreferences. The number here includes
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4583 an element for register zero. */
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
4584 int num_regs = bufp->re_ngroups + 1;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4585
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4586 /* The currently active registers. */
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
4587 int lowest_active_reg = NO_LOWEST_ACTIVE_REG;
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
4588 int highest_active_reg = NO_HIGHEST_ACTIVE_REG;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4589
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4590 /* Information on the contents of registers. These are pointers into
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4591 the input strings; they record just what was matched (on this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4592 attempt) by a subexpression part of the pattern, that is, the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4593 regnum-th regstart pointer points to where in the pattern we began
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4594 matching and the regnum-th regend points to right after where we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4595 stopped matching the regnum-th subexpression. (The zeroth register
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4596 keeps track of what the whole pattern matches.) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4597 #ifdef MATCH_MAY_ALLOCATE /* otherwise, these are global. */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
4598 re_char **regstart, **regend;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4599 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4600
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4601 /* If a group that's operated upon by a repetition operator fails to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4602 match anything, then the register for its start will need to be
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4603 restored because it will have been set to wherever in the string we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4604 are when we last see its open-group operator. Similarly for a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4605 register's end. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4606 #ifdef MATCH_MAY_ALLOCATE /* otherwise, these are global. */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
4607 re_char **old_regstart, **old_regend;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4608 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4609
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4610 /* The is_active field of reg_info helps us keep track of which (possibly
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4611 nested) subexpressions we are currently in. The matched_something
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4612 field of reg_info[reg_num] helps us tell whether or not we have
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4613 matched any of the pattern so far this time through the reg_num-th
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4614 subexpression. These two fields get reset each time through any
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4615 loop their register is in. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4616 #ifdef MATCH_MAY_ALLOCATE /* otherwise, this is global. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4617 register_info_type *reg_info;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4618 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4619
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4620 /* The following record the register info as found in the above
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4621 variables when we find a match better than any we've seen before.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4622 This happens as we backtrack through the failure points, which in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4623 turn happens only if we have not yet matched the entire string. */
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
4624 int best_regs_set = false;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4625 #ifdef MATCH_MAY_ALLOCATE /* otherwise, these are global. */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
4626 re_char **best_regstart, **best_regend;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4627 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4628
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4629 /* Logically, this is `best_regend[0]'. But we don't want to have to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4630 allocate space for that if we're not allocating space for anything
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4631 else (see below). Also, we never need info about register 0 for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4632 any of the other register vectors, and it seems rather a kludge to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4633 treat `best_regend' differently than the rest. So we keep track of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4634 the end of the best match so far in a separate variable. We
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4635 initialize this to NULL so that when we backtrack the first time
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4636 and need to test it, it's not garbage. */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
4637 re_char *match_end = NULL;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4638
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4639 /* This helps SET_REGS_MATCHED avoid doing redundant work. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4640 int set_regs_matched_done = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4641
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4642 /* Used when we pop values we don't care about. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4643 #ifdef MATCH_MAY_ALLOCATE /* otherwise, these are global. */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
4644 re_char **reg_dummy;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4645 register_info_type *reg_info_dummy;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4646 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4647
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4648 #ifdef DEBUG
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4649 /* Counts the total number of registers pushed. */
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
4650 int num_regs_pushed = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4651 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4652
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4653 /* 1 if this match ends in the same string (string1 or string2)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4654 as the best previous match. */
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
4655 re_bool same_str_p;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4656
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4657 /* 1 if this match is the best seen so far. */
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
4658 re_bool best_match_p;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4659
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4660 #ifdef emacs
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4661 Internal_Format fmt = buffer_or_other_internal_format (lispobj);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4662 #endif /* emacs */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
4663
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4664 DEBUG_PRINT1 ("\n\nEntering re_match_2.\n");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4665
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4666 INIT_FAIL_STACK ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4667
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4668 #ifdef MATCH_MAY_ALLOCATE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4669 /* Do not bother to initialize all the register variables if there are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4670 no groups in the pattern, as it takes a fair amount of time. If
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4671 there are groups, we include space for register 0 (the whole
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4672 pattern), even though we never use it, since it simplifies the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4673 array indexing. We should fix this. */
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
4674 if (bufp->re_ngroups)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4675 {
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
4676 regstart = REGEX_TALLOC (num_regs, re_char *);
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
4677 regend = REGEX_TALLOC (num_regs, re_char *);
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
4678 old_regstart = REGEX_TALLOC (num_regs, re_char *);
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
4679 old_regend = REGEX_TALLOC (num_regs, re_char *);
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
4680 best_regstart = REGEX_TALLOC (num_regs, re_char *);
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
4681 best_regend = REGEX_TALLOC (num_regs, re_char *);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4682 reg_info = REGEX_TALLOC (num_regs, register_info_type);
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
4683 reg_dummy = REGEX_TALLOC (num_regs, re_char *);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4684 reg_info_dummy = REGEX_TALLOC (num_regs, register_info_type);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4685
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4686 if (!(regstart && regend && old_regstart && old_regend && reg_info
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4687 && best_regstart && best_regend && reg_dummy && reg_info_dummy))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4688 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4689 FREE_VARIABLES ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4690 return -2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4691 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4692 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4693 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4694 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4695 /* We must initialize all our variables to NULL, so that
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4696 `FREE_VARIABLES' doesn't try to free them. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4697 regstart = regend = old_regstart = old_regend = best_regstart
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4698 = best_regend = reg_dummy = NULL;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4699 reg_info = reg_info_dummy = (register_info_type *) NULL;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4700 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4701 #endif /* MATCH_MAY_ALLOCATE */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4702
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4703 /* The starting position is bogus. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4704 if (pos < 0 || pos > size1 + size2)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4705 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4706 FREE_VARIABLES ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4707 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4708 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4709
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4710 /* Initialize subexpression text positions to -1 to mark ones that no
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4711 start_memory/stop_memory has been seen for. Also initialize the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4712 register information struct. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4713 for (mcnt = 1; mcnt < num_regs; mcnt++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4714 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4715 regstart[mcnt] = regend[mcnt]
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4716 = old_regstart[mcnt] = old_regend[mcnt] = REG_UNSET_VALUE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4717
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4718 REG_MATCH_NULL_STRING_P (reg_info[mcnt]) = MATCH_NULL_UNSET_VALUE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4719 IS_ACTIVE (reg_info[mcnt]) = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4720 MATCHED_SOMETHING (reg_info[mcnt]) = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4721 EVER_MATCHED_SOMETHING (reg_info[mcnt]) = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4722 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4723 /* We move `string1' into `string2' if the latter's empty -- but not if
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4724 `string1' is null. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4725 if (size2 == 0 && string1 != NULL)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4726 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4727 string2 = string1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4728 size2 = size1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4729 string1 = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4730 size1 = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4731 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4732 end1 = string1 + size1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4733 end2 = string2 + size2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4734
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4735 /* Compute where to stop matching, within the two strings. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4736 if (stop <= size1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4737 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4738 end_match_1 = string1 + stop;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4739 end_match_2 = string2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4740 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4741 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4742 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4743 end_match_1 = end1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4744 end_match_2 = string2 + stop - size1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4745 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4746
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4747 /* `p' scans through the pattern as `d' scans through the data.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4748 `dend' is the end of the input string that `d' points within. `d'
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4749 is advanced into the following input string whenever necessary, but
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4750 this happens before fetching; therefore, at the beginning of the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4751 loop, `d' can be pointing at the end of a string, but it cannot
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4752 equal `string2'. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4753 if (size1 > 0 && pos <= size1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4754 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4755 d = string1 + pos;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4756 dend = end_match_1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4757 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4758 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4759 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4760 d = string2 + pos - size1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4761 dend = end_match_2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4762 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4763
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
4764 DEBUG_PRINT1 ("The compiled pattern is: \n");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4765 DEBUG_PRINT_COMPILED_PATTERN (bufp, p, pend);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4766 DEBUG_PRINT1 ("The string to match is: `");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4767 DEBUG_PRINT_DOUBLE_STRING (d, string1, size1, string2, size2);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4768 DEBUG_PRINT1 ("'\n");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4769
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4770 /* This loops over pattern commands. It exits by returning from the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4771 function if the match is complete, or it drops through if the match
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4772 fails at this starting point in the input data. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4773 for (;;)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4774 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4775 DEBUG_PRINT2 ("\n0x%lx: ", (long) p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4776 #ifdef emacs /* XEmacs added, w/removal of immediate_quit */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4777 if (!no_quit_in_re_search)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4778 QUIT;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4779 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4780
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4781 if (p == pend)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4782 { /* End of pattern means we might have succeeded. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4783 DEBUG_PRINT1 ("end of pattern ... ");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4784
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4785 /* If we haven't matched the entire string, and we want the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4786 longest match, try backtracking. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4787 if (d != end_match_2)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4788 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4789 same_str_p = (FIRST_STRING_P (match_end)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4790 == MATCHING_IN_FIRST_STRING);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4791
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4792 /* AIX compiler got confused when this was combined
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4793 with the previous declaration. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4794 if (same_str_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4795 best_match_p = d > match_end;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4796 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4797 best_match_p = !MATCHING_IN_FIRST_STRING;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4798
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4799 DEBUG_PRINT1 ("backtracking.\n");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4800
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4801 if (!FAIL_STACK_EMPTY ())
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4802 { /* More failure points to try. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4803
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4804 /* If exceeds best match so far, save it. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4805 if (!best_regs_set || best_match_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4806 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4807 best_regs_set = true;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4808 match_end = d;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4809
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4810 DEBUG_PRINT1 ("\nSAVING match as best so far.\n");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4811
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4812 for (mcnt = 1; mcnt < num_regs; mcnt++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4813 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4814 best_regstart[mcnt] = regstart[mcnt];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4815 best_regend[mcnt] = regend[mcnt];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4816 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4817 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4818 goto fail;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4819 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4820
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4821 /* If no failure points, don't restore garbage. And if
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4822 last match is real best match, don't restore second
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4823 best one. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4824 else if (best_regs_set && !best_match_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4825 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4826 restore_best_regs:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4827 /* Restore best match. It may happen that `dend ==
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4828 end_match_1' while the restored d is in string2.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4829 For example, the pattern `x.*y.*z' against the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4830 strings `x-' and `y-z-', if the two strings are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4831 not consecutive in memory. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4832 DEBUG_PRINT1 ("Restoring best registers.\n");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4833
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4834 d = match_end;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4835 dend = ((d >= string1 && d <= end1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4836 ? end_match_1 : end_match_2);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4837
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4838 for (mcnt = 1; mcnt < num_regs; mcnt++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4839 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4840 regstart[mcnt] = best_regstart[mcnt];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4841 regend[mcnt] = best_regend[mcnt];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4842 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4843 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4844 } /* d != end_match_2 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4845
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4846 succeed_label:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4847 DEBUG_PRINT1 ("Accepting match.\n");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4848
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4849 /* If caller wants register contents data back, do it. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4850 if (regs && !bufp->no_sub)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4851 {
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
4852 int num_nonshy_regs = bufp->re_nsub + 1;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4853 /* Have the register data arrays been allocated? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4854 if (bufp->regs_allocated == REGS_UNALLOCATED)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4855 { /* No. So allocate them with malloc. We need one
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4856 extra element beyond `num_regs' for the `-1' marker
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4857 GNU code uses. */
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
4858 regs->num_regs = MAX (RE_NREGS, num_nonshy_regs + 1);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4859 regs->start = TALLOC (regs->num_regs, regoff_t);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4860 regs->end = TALLOC (regs->num_regs, regoff_t);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4861 if (regs->start == NULL || regs->end == NULL)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4862 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4863 FREE_VARIABLES ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4864 return -2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4865 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4866 bufp->regs_allocated = REGS_REALLOCATE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4867 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4868 else if (bufp->regs_allocated == REGS_REALLOCATE)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4869 { /* Yes. If we need more elements than were already
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4870 allocated, reallocate them. If we need fewer, just
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4871 leave it alone. */
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
4872 if (regs->num_regs < num_nonshy_regs + 1)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4873 {
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
4874 regs->num_regs = num_nonshy_regs + 1;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4875 RETALLOC (regs->start, regs->num_regs, regoff_t);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4876 RETALLOC (regs->end, regs->num_regs, regoff_t);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4877 if (regs->start == NULL || regs->end == NULL)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4878 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4879 FREE_VARIABLES ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4880 return -2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4881 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4882 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4883 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4884 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4885 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4886 /* These braces fend off a "empty body in an else-statement"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4887 warning under GCC when assert expands to nothing. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4888 assert (bufp->regs_allocated == REGS_FIXED);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4889 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4890
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4891 /* Convert the pointer data in `regstart' and `regend' to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4892 indices. Register zero has to be set differently,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4893 since we haven't kept track of any info for it. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4894 if (regs->num_regs > 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4895 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4896 regs->start[0] = pos;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4897 regs->end[0] = (MATCHING_IN_FIRST_STRING
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4898 ? ((regoff_t) (d - string1))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4899 : ((regoff_t) (d - string2 + size1)));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4900 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4901
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4902 /* Go through the first `min (num_regs, regs->num_regs)'
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4903 registers, since that is all we initialized. */
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
4904 for (mcnt = 1; mcnt < MIN (num_nonshy_regs, regs->num_regs);
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
4905 mcnt++)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4906 {
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
4907 int internal_reg = bufp->external_to_internal_register[mcnt];
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
4908 if (REG_UNSET (regstart[internal_reg]) ||
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
4909 REG_UNSET (regend[internal_reg]))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4910 regs->start[mcnt] = regs->end[mcnt] = -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4911 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4912 {
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
4913 regs->start[mcnt] =
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
4914 (regoff_t) POINTER_TO_OFFSET (regstart[internal_reg]);
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
4915 regs->end[mcnt] =
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
4916 (regoff_t) POINTER_TO_OFFSET (regend[internal_reg]);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4917 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4918 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4919
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4920 /* If the regs structure we return has more elements than
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4921 were in the pattern, set the extra elements to -1. If
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4922 we (re)allocated the registers, this is the case,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4923 because we always allocate enough to have at least one
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4924 -1 at the end. */
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
4925 for (mcnt = num_nonshy_regs; mcnt < regs->num_regs; mcnt++)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4926 regs->start[mcnt] = regs->end[mcnt] = -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4927 } /* regs && !bufp->no_sub */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4928
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4929 DEBUG_PRINT4 ("%u failure points pushed, %u popped (%u remain).\n",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4930 nfailure_points_pushed, nfailure_points_popped,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4931 nfailure_points_pushed - nfailure_points_popped);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4932 DEBUG_PRINT2 ("%u registers pushed.\n", num_regs_pushed);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4933
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4934 mcnt = d - pos - (MATCHING_IN_FIRST_STRING
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4935 ? string1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4936 : string2 - size1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4937
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4938 DEBUG_PRINT2 ("Returning %d from re_match_2.\n", mcnt);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4939
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4940 FREE_VARIABLES ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4941 return mcnt;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4942 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4943
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4944 /* Otherwise match next pattern command. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4945 switch (SWITCH_ENUM_CAST ((re_opcode_t) *p++))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4946 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4947 /* Ignore these. Used to ignore the n of succeed_n's which
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4948 currently have n == 0. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4949 case no_op:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4950 DEBUG_PRINT1 ("EXECUTING no_op.\n");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4951 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4952
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4953 case succeed:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4954 DEBUG_PRINT1 ("EXECUTING succeed.\n");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4955 goto succeed_label;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4956
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4957 /* Match exactly a string of length n in the pattern. The
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4958 following byte in the pattern defines n, and the n bytes after
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4959 that make up the string to match. (Under Mule, this will be in
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4960 the default internal format.) */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4961 case exactn:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4962 mcnt = *p++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4963 DEBUG_PRINT2 ("EXECUTING exactn %d.\n", mcnt);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4964
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4965 /* This is written out as an if-else so we don't waste time
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4966 testing `translate' inside the loop. */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
4967 if (TRANSLATE_P (translate))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4968 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4969 do
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4970 {
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
4971 #ifdef MULE
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
4972 Bytecount pat_len;
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
4973
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 446
diff changeset
4974 REGEX_PREFETCH ();
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4975 if (RE_TRANSLATE_1 (charptr_emchar_fmt (d, fmt, lispobj))
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4976 != charptr_emchar (p))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4977 goto fail;
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
4978
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4979 pat_len = charptr_emchar_len (p);
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
4980 p += pat_len;
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4981 INC_CHARPTR_FMT (d, fmt);
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
4982
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
4983 mcnt -= pat_len;
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
4984 #else /* not MULE */
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 446
diff changeset
4985 REGEX_PREFETCH ();
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4986 if ((unsigned char) RE_TRANSLATE_1 (*d++) != *p++)
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
4987 goto fail;
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
4988 mcnt--;
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
4989 #endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4990 }
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
4991 while (mcnt > 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4992 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4993 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4994 {
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4995 #ifdef MULE
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4996 /* If buffer format is default, then we can shortcut and just
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4997 compare the text directly, byte by byte. Otherwise, we
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4998 need to go character by character. */
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
4999 if (fmt != FORMAT_DEFAULT)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5000 {
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5001 do
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5002 {
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5003 Bytecount pat_len;
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5004
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5005 REGEX_PREFETCH ();
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5006 if (charptr_emchar_fmt (d, fmt, lispobj) !=
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5007 charptr_emchar (p))
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5008 goto fail;
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5009
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5010 pat_len = charptr_emchar_len (p);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5011 p += pat_len;
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5012 INC_CHARPTR_FMT (d, fmt);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5013
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5014 mcnt -= pat_len;
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5015 }
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5016 while (mcnt > 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5017 }
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5018 else
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5019 #endif
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5020 {
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5021 do
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5022 {
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5023 REGEX_PREFETCH ();
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5024 if (*d++ != *p++) goto fail;
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5025 mcnt--;
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5026 }
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5027 while (mcnt > 0);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5028 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5029 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5030 SET_REGS_MATCHED ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5031 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5032
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5033
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5034 /* Match any character except possibly a newline or a null. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5035 case anychar:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5036 DEBUG_PRINT1 ("EXECUTING anychar.\n");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5037
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 446
diff changeset
5038 REGEX_PREFETCH ();
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5039
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5040 if ((!(bufp->syntax & RE_DOT_NEWLINE) &&
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5041 RE_TRANSLATE (charptr_emchar_fmt (d, fmt, lispobj)) == '\n')
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5042 || (bufp->syntax & RE_DOT_NOT_NULL &&
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5043 RE_TRANSLATE (charptr_emchar_fmt (d, fmt, lispobj)) ==
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5044 '\000'))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5045 goto fail;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5046
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5047 SET_REGS_MATCHED ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5048 DEBUG_PRINT2 (" Matched `%d'.\n", *d);
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5049 INC_CHARPTR_FMT (d, fmt); /* XEmacs change */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5050 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5051
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5052
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5053 case charset:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5054 case charset_not:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5055 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5056 REGISTER unsigned char c;
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
5057 re_bool not_p = (re_opcode_t) *(p - 1) == charset_not;
458
c33ae14dd6d0 Import from CVS: tag r21-2-44
cvs
parents: 456
diff changeset
5058
c33ae14dd6d0 Import from CVS: tag r21-2-44
cvs
parents: 456
diff changeset
5059 DEBUG_PRINT2 ("EXECUTING charset%s.\n", not_p ? "_not" : "");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5060
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 446
diff changeset
5061 REGEX_PREFETCH ();
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5062 c = charptr_emchar_fmt (d, fmt, lispobj);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5063 c = RE_TRANSLATE (c); /* The character to match. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5064
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
5065 /* Cast to `unsigned int' instead of `unsigned char' in case the
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5066 bit list is a full 32 bytes long. */
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
5067 if (c < (unsigned int) (*p * BYTEWIDTH)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5068 && p[1 + c / BYTEWIDTH] & (1 << (c % BYTEWIDTH)))
458
c33ae14dd6d0 Import from CVS: tag r21-2-44
cvs
parents: 456
diff changeset
5069 not_p = !not_p;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5070
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5071 p += 1 + *p;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5072
458
c33ae14dd6d0 Import from CVS: tag r21-2-44
cvs
parents: 456
diff changeset
5073 if (!not_p) goto fail;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5074
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5075 SET_REGS_MATCHED ();
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5076 INC_CHARPTR_FMT (d, fmt); /* XEmacs change */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5077 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5078 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5079
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5080 #ifdef MULE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5081 case charset_mule:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5082 case charset_mule_not:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5083 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5084 REGISTER Emchar c;
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
5085 re_bool not_p = (re_opcode_t) *(p - 1) == charset_mule_not;
458
c33ae14dd6d0 Import from CVS: tag r21-2-44
cvs
parents: 456
diff changeset
5086
c33ae14dd6d0 Import from CVS: tag r21-2-44
cvs
parents: 456
diff changeset
5087 DEBUG_PRINT2 ("EXECUTING charset_mule%s.\n", not_p ? "_not" : "");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5088
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 446
diff changeset
5089 REGEX_PREFETCH ();
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5090 c = charptr_emchar_fmt (d, fmt, lispobj);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5091 c = RE_TRANSLATE (c); /* The character to match. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5092
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5093 if (EQ (Qt, unified_range_table_lookup (p, c, Qnil)))
458
c33ae14dd6d0 Import from CVS: tag r21-2-44
cvs
parents: 456
diff changeset
5094 not_p = !not_p;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5095
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5096 p += unified_range_table_bytes_used (p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5097
458
c33ae14dd6d0 Import from CVS: tag r21-2-44
cvs
parents: 456
diff changeset
5098 if (!not_p) goto fail;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5099
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5100 SET_REGS_MATCHED ();
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5101 INC_CHARPTR_FMT (d, fmt);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5102 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5103 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5104 #endif /* MULE */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5105
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5106
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5107 /* The beginning of a group is represented by start_memory.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5108 The arguments are the register number in the next byte, and the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5109 number of groups inner to this one in the next. The text
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5110 matched within the group is recorded (in the internal
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5111 registers data structure) under the register number. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5112 case start_memory:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5113 DEBUG_PRINT3 ("EXECUTING start_memory %d (%d):\n", *p, p[1]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5114
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5115 /* Find out if this group can match the empty string. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5116 p1 = p; /* To send to group_match_null_string_p. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5117
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5118 if (REG_MATCH_NULL_STRING_P (reg_info[*p]) == MATCH_NULL_UNSET_VALUE)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5119 REG_MATCH_NULL_STRING_P (reg_info[*p])
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5120 = group_match_null_string_p (&p1, pend, reg_info);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5121
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5122 /* Save the position in the string where we were the last time
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5123 we were at this open-group operator in case the group is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5124 operated upon by a repetition operator, e.g., with `(a*)*b'
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5125 against `ab'; then we want to ignore where we are now in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5126 the string in case this attempt to match fails. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5127 old_regstart[*p] = REG_MATCH_NULL_STRING_P (reg_info[*p])
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5128 ? REG_UNSET (regstart[*p]) ? d : regstart[*p]
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5129 : regstart[*p];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5130 DEBUG_PRINT2 (" old_regstart: %d\n",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5131 POINTER_TO_OFFSET (old_regstart[*p]));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5132
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5133 regstart[*p] = d;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5134 DEBUG_PRINT2 (" regstart: %d\n", POINTER_TO_OFFSET (regstart[*p]));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5135
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5136 IS_ACTIVE (reg_info[*p]) = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5137 MATCHED_SOMETHING (reg_info[*p]) = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5138
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5139 /* Clear this whenever we change the register activity status. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5140 set_regs_matched_done = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5141
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5142 /* This is the new highest active register. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5143 highest_active_reg = *p;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5144
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5145 /* If nothing was active before, this is the new lowest active
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5146 register. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5147 if (lowest_active_reg == NO_LOWEST_ACTIVE_REG)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5148 lowest_active_reg = *p;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5149
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5150 /* Move past the register number and inner group count. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5151 p += 2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5152 just_past_start_mem = p;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5153
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5154 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5155
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5156
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5157 /* The stop_memory opcode represents the end of a group. Its
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5158 arguments are the same as start_memory's: the register
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5159 number, and the number of inner groups. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5160 case stop_memory:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5161 DEBUG_PRINT3 ("EXECUTING stop_memory %d (%d):\n", *p, p[1]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5162
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5163 /* We need to save the string position the last time we were at
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5164 this close-group operator in case the group is operated
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5165 upon by a repetition operator, e.g., with `((a*)*(b*)*)*'
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5166 against `aba'; then we want to ignore where we are now in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5167 the string in case this attempt to match fails. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5168 old_regend[*p] = REG_MATCH_NULL_STRING_P (reg_info[*p])
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5169 ? REG_UNSET (regend[*p]) ? d : regend[*p]
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5170 : regend[*p];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5171 DEBUG_PRINT2 (" old_regend: %d\n",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5172 POINTER_TO_OFFSET (old_regend[*p]));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5173
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5174 regend[*p] = d;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5175 DEBUG_PRINT2 (" regend: %d\n", POINTER_TO_OFFSET (regend[*p]));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5176
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5177 /* This register isn't active anymore. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5178 IS_ACTIVE (reg_info[*p]) = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5179
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5180 /* Clear this whenever we change the register activity status. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5181 set_regs_matched_done = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5182
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5183 /* If this was the only register active, nothing is active
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5184 anymore. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5185 if (lowest_active_reg == highest_active_reg)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5186 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5187 lowest_active_reg = NO_LOWEST_ACTIVE_REG;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5188 highest_active_reg = NO_HIGHEST_ACTIVE_REG;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5189 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5190 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5191 { /* We must scan for the new highest active register, since
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5192 it isn't necessarily one less than now: consider
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5193 (a(b)c(d(e)f)g). When group 3 ends, after the f), the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5194 new highest active register is 1. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5195 unsigned char r = *p - 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5196 while (r > 0 && !IS_ACTIVE (reg_info[r]))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5197 r--;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5198
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5199 /* If we end up at register zero, that means that we saved
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5200 the registers as the result of an `on_failure_jump', not
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5201 a `start_memory', and we jumped to past the innermost
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5202 `stop_memory'. For example, in ((.)*) we save
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5203 registers 1 and 2 as a result of the *, but when we pop
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5204 back to the second ), we are at the stop_memory 1.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5205 Thus, nothing is active. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5206 if (r == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5207 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5208 lowest_active_reg = NO_LOWEST_ACTIVE_REG;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5209 highest_active_reg = NO_HIGHEST_ACTIVE_REG;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5210 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5211 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5212 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5213 highest_active_reg = r;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5214
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5215 /* 98/9/21 jhod: We've also gotta set lowest_active_reg, don't we? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5216 r = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5217 while (r < highest_active_reg && !IS_ACTIVE(reg_info[r]))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5218 r++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5219 lowest_active_reg = r;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5220 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5221 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5222
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5223 /* If just failed to match something this time around with a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5224 group that's operated on by a repetition operator, try to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5225 force exit from the ``loop'', and restore the register
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5226 information for this group that we had before trying this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5227 last match. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5228 if ((!MATCHED_SOMETHING (reg_info[*p])
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5229 || just_past_start_mem == p - 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5230 && (p + 2) < pend)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5231 {
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
5232 re_bool is_a_jump_n = false;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5233
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5234 p1 = p + 2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5235 mcnt = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5236 switch ((re_opcode_t) *p1++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5237 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5238 case jump_n:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5239 is_a_jump_n = true;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5240 case pop_failure_jump:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5241 case maybe_pop_jump:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5242 case jump:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5243 case dummy_failure_jump:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5244 EXTRACT_NUMBER_AND_INCR (mcnt, p1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5245 if (is_a_jump_n)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5246 p1 += 2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5247 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5248
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5249 default:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5250 /* do nothing */ ;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5251 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5252 p1 += mcnt;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5253
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5254 /* If the next operation is a jump backwards in the pattern
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5255 to an on_failure_jump right before the start_memory
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5256 corresponding to this stop_memory, exit from the loop
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5257 by forcing a failure after pushing on the stack the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5258 on_failure_jump's jump in the pattern, and d. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5259 if (mcnt < 0 && (re_opcode_t) *p1 == on_failure_jump
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5260 && (re_opcode_t) p1[3] == start_memory && p1[4] == *p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5261 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5262 /* If this group ever matched anything, then restore
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5263 what its registers were before trying this last
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5264 failed match, e.g., with `(a*)*b' against `ab' for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5265 regstart[1], and, e.g., with `((a*)*(b*)*)*'
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5266 against `aba' for regend[3].
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5267
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5268 Also restore the registers for inner groups for,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5269 e.g., `((a*)(b*))*' against `aba' (register 3 would
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5270 otherwise get trashed). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5271
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5272 if (EVER_MATCHED_SOMETHING (reg_info[*p]))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5273 {
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
5274 int r;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5275
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5276 EVER_MATCHED_SOMETHING (reg_info[*p]) = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5277
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5278 /* Restore this and inner groups' (if any) registers. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5279 for (r = *p; r < *p + *(p + 1); r++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5280 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5281 regstart[r] = old_regstart[r];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5282
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5283 /* xx why this test? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5284 if (old_regend[r] >= regstart[r])
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5285 regend[r] = old_regend[r];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5286 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5287 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5288 p1++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5289 EXTRACT_NUMBER_AND_INCR (mcnt, p1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5290 PUSH_FAILURE_POINT (p1 + mcnt, d, -2);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5291
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5292 goto fail;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5293 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5294 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5295
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5296 /* Move past the register number and the inner group count. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5297 p += 2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5298 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5299
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5300
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5301 /* \<digit> has been turned into a `duplicate' command which is
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
5302 followed by the numeric value of <digit> as the register number.
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
5303 (Already passed through external-to-internal-register mapping,
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
5304 so it refers to the actual group number, not the non-shy-only
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
5305 numbering used in the external world.) */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5306 case duplicate:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5307 {
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
5308 REGISTER re_char *d2, *dend2;
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
5309 /* Get which register to match against. */
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
5310 int regno = *p++;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5311 DEBUG_PRINT2 ("EXECUTING duplicate %d.\n", regno);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5312
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5313 /* Can't back reference a group which we've never matched. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5314 if (REG_UNSET (regstart[regno]) || REG_UNSET (regend[regno]))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5315 goto fail;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5316
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5317 /* Where in input to try to start matching. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5318 d2 = regstart[regno];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5319
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5320 /* Where to stop matching; if both the place to start and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5321 the place to stop matching are in the same string, then
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5322 set to the place to stop, otherwise, for now have to use
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5323 the end of the first string. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5324
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5325 dend2 = ((FIRST_STRING_P (regstart[regno])
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5326 == FIRST_STRING_P (regend[regno]))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5327 ? regend[regno] : end_match_1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5328 for (;;)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5329 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5330 /* If necessary, advance to next segment in register
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5331 contents. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5332 while (d2 == dend2)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5333 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5334 if (dend2 == end_match_2) break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5335 if (dend2 == regend[regno]) break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5336
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5337 /* End of string1 => advance to string2. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5338 d2 = string2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5339 dend2 = regend[regno];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5340 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5341 /* At end of register contents => success */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5342 if (d2 == dend2) break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5343
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5344 /* If necessary, advance to next segment in data. */
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 446
diff changeset
5345 REGEX_PREFETCH ();
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5346
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5347 /* How many characters left in this segment to match. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5348 mcnt = dend - d;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5349
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5350 /* Want how many consecutive characters we can match in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5351 one shot, so, if necessary, adjust the count. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5352 if (mcnt > dend2 - d2)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5353 mcnt = dend2 - d2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5354
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5355 /* Compare that many; failure if mismatch, else move
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5356 past them. */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
5357 if (TRANSLATE_P (translate)
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5358 ? bcmp_translate (d, d2, mcnt, translate
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5359 #ifdef emacs
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5360 , fmt, lispobj
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5361 #endif
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5362 )
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5363 : memcmp (d, d2, mcnt))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5364 goto fail;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5365 d += mcnt, d2 += mcnt;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5366
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5367 /* Do this because we've match some characters. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5368 SET_REGS_MATCHED ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5369 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5370 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5371 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5372
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5373
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5374 /* begline matches the empty string at the beginning of the string
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5375 (unless `not_bol' is set in `bufp'), and, if
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5376 `newline_anchor' is set, after newlines. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5377 case begline:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5378 DEBUG_PRINT1 ("EXECUTING begline.\n");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5379
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5380 if (AT_STRINGS_BEG (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5381 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5382 if (!bufp->not_bol) break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5383 }
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5384 else
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5385 {
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5386 re_char *d2 = d;
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5387 DEC_CHARPTR (d2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5388 if (charptr_emchar_ascii_fmt (d2, fmt, lispobj) == '\n' &&
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5389 bufp->newline_anchor)
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5390 break;
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5391 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5392 /* In all other cases, we fail. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5393 goto fail;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5394
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5395
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5396 /* endline is the dual of begline. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5397 case endline:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5398 DEBUG_PRINT1 ("EXECUTING endline.\n");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5399
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5400 if (AT_STRINGS_END (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5401 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5402 if (!bufp->not_eol) break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5403 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5404
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5405 /* We have to ``prefetch'' the next character. */
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5406 else if ((d == end1 ?
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5407 charptr_emchar_ascii_fmt (string2, fmt, lispobj) :
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5408 charptr_emchar_ascii_fmt (d, fmt, lispobj)) == '\n'
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5409 && bufp->newline_anchor)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5410 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5411 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5412 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5413 goto fail;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5414
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5415
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5416 /* Match at the very beginning of the data. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5417 case begbuf:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5418 DEBUG_PRINT1 ("EXECUTING begbuf.\n");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5419 if (AT_STRINGS_BEG (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5420 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5421 goto fail;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5422
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5423
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5424 /* Match at the very end of the data. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5425 case endbuf:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5426 DEBUG_PRINT1 ("EXECUTING endbuf.\n");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5427 if (AT_STRINGS_END (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5428 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5429 goto fail;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5430
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5431
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5432 /* on_failure_keep_string_jump is used to optimize `.*\n'. It
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5433 pushes NULL as the value for the string on the stack. Then
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5434 `pop_failure_point' will keep the current value for the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5435 string, instead of restoring it. To see why, consider
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5436 matching `foo\nbar' against `.*\n'. The .* matches the foo;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5437 then the . fails against the \n. But the next thing we want
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5438 to do is match the \n against the \n; if we restored the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5439 string value, we would be back at the foo.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5440
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5441 Because this is used only in specific cases, we don't need to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5442 check all the things that `on_failure_jump' does, to make
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5443 sure the right things get saved on the stack. Hence we don't
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5444 share its code. The only reason to push anything on the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5445 stack at all is that otherwise we would have to change
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5446 `anychar's code to do something besides goto fail in this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5447 case; that seems worse than this. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5448 case on_failure_keep_string_jump:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5449 DEBUG_PRINT1 ("EXECUTING on_failure_keep_string_jump");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5450
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5451 EXTRACT_NUMBER_AND_INCR (mcnt, p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5452 DEBUG_PRINT3 (" %d (to 0x%lx):\n", mcnt, (long) (p + mcnt));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5453
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
5454 PUSH_FAILURE_POINT (p + mcnt, (unsigned char *) 0, -2);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5455 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5456
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5457
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5458 /* Uses of on_failure_jump:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5459
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5460 Each alternative starts with an on_failure_jump that points
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5461 to the beginning of the next alternative. Each alternative
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5462 except the last ends with a jump that in effect jumps past
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5463 the rest of the alternatives. (They really jump to the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5464 ending jump of the following alternative, because tensioning
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5465 these jumps is a hassle.)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5466
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5467 Repeats start with an on_failure_jump that points past both
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5468 the repetition text and either the following jump or
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5469 pop_failure_jump back to this on_failure_jump. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5470 case on_failure_jump:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5471 on_failure:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5472 DEBUG_PRINT1 ("EXECUTING on_failure_jump");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5473
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5474 EXTRACT_NUMBER_AND_INCR (mcnt, p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5475 DEBUG_PRINT3 (" %d (to 0x%lx)", mcnt, (long) (p + mcnt));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5476
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5477 /* If this on_failure_jump comes right before a group (i.e.,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5478 the original * applied to a group), save the information
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5479 for that group and all inner ones, so that if we fail back
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5480 to this point, the group's information will be correct.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5481 For example, in \(a*\)*\1, we need the preceding group,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5482 and in \(\(a*\)b*\)\2, we need the inner group. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5483
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5484 /* We can't use `p' to check ahead because we push
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5485 a failure point to `p + mcnt' after we do this. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5486 p1 = p;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5487
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5488 /* We need to skip no_op's before we look for the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5489 start_memory in case this on_failure_jump is happening as
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5490 the result of a completed succeed_n, as in \(a\)\{1,3\}b\1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5491 against aba. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5492 while (p1 < pend && (re_opcode_t) *p1 == no_op)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5493 p1++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5494
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5495 if (p1 < pend && (re_opcode_t) *p1 == start_memory)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5496 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5497 /* We have a new highest active register now. This will
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5498 get reset at the start_memory we are about to get to,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5499 but we will have saved all the registers relevant to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5500 this repetition op, as described above. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5501 highest_active_reg = *(p1 + 1) + *(p1 + 2);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5502 if (lowest_active_reg == NO_LOWEST_ACTIVE_REG)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5503 lowest_active_reg = *(p1 + 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5504 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5505
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5506 DEBUG_PRINT1 (":\n");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5507 PUSH_FAILURE_POINT (p + mcnt, d, -2);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5508 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5509
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5510
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5511 /* A smart repeat ends with `maybe_pop_jump'.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5512 We change it to either `pop_failure_jump' or `jump'. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5513 case maybe_pop_jump:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5514 EXTRACT_NUMBER_AND_INCR (mcnt, p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5515 DEBUG_PRINT2 ("EXECUTING maybe_pop_jump %d.\n", mcnt);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5516 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5517 REGISTER unsigned char *p2 = p;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5518
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5519 /* Compare the beginning of the repeat with what in the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5520 pattern follows its end. If we can establish that there
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5521 is nothing that they would both match, i.e., that we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5522 would have to backtrack because of (as in, e.g., `a*a')
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5523 then we can change to pop_failure_jump, because we'll
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5524 never have to backtrack.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5525
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5526 This is not true in the case of alternatives: in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5527 `(a|ab)*' we do need to backtrack to the `ab' alternative
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5528 (e.g., if the string was `ab'). But instead of trying to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5529 detect that here, the alternative has put on a dummy
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5530 failure point which is what we will end up popping. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5531
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5532 /* Skip over open/close-group commands.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5533 If what follows this loop is a ...+ construct,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5534 look at what begins its body, since we will have to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5535 match at least one of that. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5536 while (1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5537 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5538 if (p2 + 2 < pend
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5539 && ((re_opcode_t) *p2 == stop_memory
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5540 || (re_opcode_t) *p2 == start_memory))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5541 p2 += 3;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5542 else if (p2 + 6 < pend
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5543 && (re_opcode_t) *p2 == dummy_failure_jump)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5544 p2 += 6;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5545 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5546 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5547 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5548
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5549 p1 = p + mcnt;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5550 /* p1[0] ... p1[2] are the `on_failure_jump' corresponding
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5551 to the `maybe_finalize_jump' of this case. Examine what
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5552 follows. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5553
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5554 /* If we're at the end of the pattern, we can change. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5555 if (p2 == pend)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5556 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5557 /* Consider what happens when matching ":\(.*\)"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5558 against ":/". I don't really understand this code
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5559 yet. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5560 p[-3] = (unsigned char) pop_failure_jump;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5561 DEBUG_PRINT1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5562 (" End of pattern: change to `pop_failure_jump'.\n");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5563 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5564
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5565 else if ((re_opcode_t) *p2 == exactn
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5566 || (bufp->newline_anchor && (re_opcode_t) *p2 == endline))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5567 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5568 REGISTER unsigned char c
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5569 = *p2 == (unsigned char) endline ? '\n' : p2[2];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5570
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5571 if ((re_opcode_t) p1[3] == exactn && p1[5] != c)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5572 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5573 p[-3] = (unsigned char) pop_failure_jump;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5574 DEBUG_PRINT3 (" %c != %c => pop_failure_jump.\n",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5575 c, p1[5]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5576 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5577
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5578 else if ((re_opcode_t) p1[3] == charset
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5579 || (re_opcode_t) p1[3] == charset_not)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5580 {
458
c33ae14dd6d0 Import from CVS: tag r21-2-44
cvs
parents: 456
diff changeset
5581 int not_p = (re_opcode_t) p1[3] == charset_not;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5582
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5583 if (c < (unsigned char) (p1[4] * BYTEWIDTH)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5584 && p1[5 + c / BYTEWIDTH] & (1 << (c % BYTEWIDTH)))
458
c33ae14dd6d0 Import from CVS: tag r21-2-44
cvs
parents: 456
diff changeset
5585 not_p = !not_p;
c33ae14dd6d0 Import from CVS: tag r21-2-44
cvs
parents: 456
diff changeset
5586
c33ae14dd6d0 Import from CVS: tag r21-2-44
cvs
parents: 456
diff changeset
5587 /* `not_p' is equal to 1 if c would match, which means
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5588 that we can't change to pop_failure_jump. */
458
c33ae14dd6d0 Import from CVS: tag r21-2-44
cvs
parents: 456
diff changeset
5589 if (!not_p)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5590 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5591 p[-3] = (unsigned char) pop_failure_jump;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5592 DEBUG_PRINT1 (" No match => pop_failure_jump.\n");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5593 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5594 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5595 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5596 else if ((re_opcode_t) *p2 == charset)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5597 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5598 #ifdef DEBUG
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5599 REGISTER unsigned char c
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5600 = *p2 == (unsigned char) endline ? '\n' : p2[2];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5601 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5602
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5603 if ((re_opcode_t) p1[3] == exactn
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5604 && ! ((int) p2[1] * BYTEWIDTH > (int) p1[5]
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5605 && (p2[2 + p1[5] / BYTEWIDTH]
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5606 & (1 << (p1[5] % BYTEWIDTH)))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5607 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5608 p[-3] = (unsigned char) pop_failure_jump;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5609 DEBUG_PRINT3 (" %c != %c => pop_failure_jump.\n",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5610 c, p1[5]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5611 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5612
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5613 else if ((re_opcode_t) p1[3] == charset_not)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5614 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5615 int idx;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5616 /* We win if the charset_not inside the loop
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5617 lists every character listed in the charset after. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5618 for (idx = 0; idx < (int) p2[1]; idx++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5619 if (! (p2[2 + idx] == 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5620 || (idx < (int) p1[4]
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5621 && ((p2[2 + idx] & ~ p1[5 + idx]) == 0))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5622 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5623
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5624 if (idx == p2[1])
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5625 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5626 p[-3] = (unsigned char) pop_failure_jump;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5627 DEBUG_PRINT1 (" No match => pop_failure_jump.\n");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5628 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5629 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5630 else if ((re_opcode_t) p1[3] == charset)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5631 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5632 int idx;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5633 /* We win if the charset inside the loop
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5634 has no overlap with the one after the loop. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5635 for (idx = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5636 idx < (int) p2[1] && idx < (int) p1[4];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5637 idx++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5638 if ((p2[2 + idx] & p1[5 + idx]) != 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5639 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5640
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5641 if (idx == p2[1] || idx == p1[4])
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5642 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5643 p[-3] = (unsigned char) pop_failure_jump;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5644 DEBUG_PRINT1 (" No match => pop_failure_jump.\n");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5645 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5646 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5647 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5648 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5649 p -= 2; /* Point at relative address again. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5650 if ((re_opcode_t) p[-1] != pop_failure_jump)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5651 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5652 p[-1] = (unsigned char) jump;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5653 DEBUG_PRINT1 (" Match => jump.\n");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5654 goto unconditional_jump;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5655 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5656 /* Note fall through. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5657
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5658
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5659 /* The end of a simple repeat has a pop_failure_jump back to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5660 its matching on_failure_jump, where the latter will push a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5661 failure point. The pop_failure_jump takes off failure
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5662 points put on by this pop_failure_jump's matching
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5663 on_failure_jump; we got through the pattern to here from the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5664 matching on_failure_jump, so didn't fail. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5665 case pop_failure_jump:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5666 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5667 /* We need to pass separate storage for the lowest and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5668 highest registers, even though we don't care about the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5669 actual values. Otherwise, we will restore only one
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5670 register from the stack, since lowest will == highest in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5671 `pop_failure_point'. */
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
5672 int dummy_low_reg, dummy_high_reg;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5673 unsigned char *pdummy;
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
5674 re_char *sdummy = NULL;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5675
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5676 DEBUG_PRINT1 ("EXECUTING pop_failure_jump.\n");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5677 POP_FAILURE_POINT (sdummy, pdummy,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5678 dummy_low_reg, dummy_high_reg,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5679 reg_dummy, reg_dummy, reg_info_dummy);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5680 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5681 /* Note fall through. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5682
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5683
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5684 /* Unconditionally jump (without popping any failure points). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5685 case jump:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5686 unconditional_jump:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5687 EXTRACT_NUMBER_AND_INCR (mcnt, p); /* Get the amount to jump. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5688 DEBUG_PRINT2 ("EXECUTING jump %d ", mcnt);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5689 p += mcnt; /* Do the jump. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5690 DEBUG_PRINT2 ("(to 0x%lx).\n", (long) p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5691 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5692
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5693
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5694 /* We need this opcode so we can detect where alternatives end
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5695 in `group_match_null_string_p' et al. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5696 case jump_past_alt:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5697 DEBUG_PRINT1 ("EXECUTING jump_past_alt.\n");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5698 goto unconditional_jump;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5699
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5700
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5701 /* Normally, the on_failure_jump pushes a failure point, which
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5702 then gets popped at pop_failure_jump. We will end up at
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5703 pop_failure_jump, also, and with a pattern of, say, `a+', we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5704 are skipping over the on_failure_jump, so we have to push
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5705 something meaningless for pop_failure_jump to pop. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5706 case dummy_failure_jump:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5707 DEBUG_PRINT1 ("EXECUTING dummy_failure_jump.\n");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5708 /* It doesn't matter what we push for the string here. What
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5709 the code at `fail' tests is the value for the pattern. */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
5710 PUSH_FAILURE_POINT ((unsigned char *) 0, (unsigned char *) 0, -2);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5711 goto unconditional_jump;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5712
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5713
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5714 /* At the end of an alternative, we need to push a dummy failure
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5715 point in case we are followed by a `pop_failure_jump', because
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5716 we don't want the failure point for the alternative to be
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5717 popped. For example, matching `(a|ab)*' against `aab'
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5718 requires that we match the `ab' alternative. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5719 case push_dummy_failure:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5720 DEBUG_PRINT1 ("EXECUTING push_dummy_failure.\n");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5721 /* See comments just above at `dummy_failure_jump' about the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5722 two zeroes. */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
5723 PUSH_FAILURE_POINT ((unsigned char *) 0, (unsigned char *) 0, -2);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5724 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5725
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5726 /* Have to succeed matching what follows at least n times.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5727 After that, handle like `on_failure_jump'. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5728 case succeed_n:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5729 EXTRACT_NUMBER (mcnt, p + 2);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5730 DEBUG_PRINT2 ("EXECUTING succeed_n %d.\n", mcnt);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5731
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5732 assert (mcnt >= 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5733 /* Originally, this is how many times we HAVE to succeed. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5734 if (mcnt > 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5735 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5736 mcnt--;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5737 p += 2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5738 STORE_NUMBER_AND_INCR (p, mcnt);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5739 DEBUG_PRINT3 (" Setting 0x%lx to %d.\n", (long) p, mcnt);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5740 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5741 else if (mcnt == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5742 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5743 DEBUG_PRINT2 (" Setting two bytes from 0x%lx to no_op.\n",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5744 (long) (p+2));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5745 p[2] = (unsigned char) no_op;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5746 p[3] = (unsigned char) no_op;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5747 goto on_failure;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5748 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5749 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5750
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5751 case jump_n:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5752 EXTRACT_NUMBER (mcnt, p + 2);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5753 DEBUG_PRINT2 ("EXECUTING jump_n %d.\n", mcnt);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5754
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5755 /* Originally, this is how many times we CAN jump. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5756 if (mcnt)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5757 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5758 mcnt--;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5759 STORE_NUMBER (p + 2, mcnt);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5760 goto unconditional_jump;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5761 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5762 /* If don't have to jump any more, skip over the rest of command. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5763 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5764 p += 4;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5765 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5766
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5767 case set_number_at:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5768 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5769 DEBUG_PRINT1 ("EXECUTING set_number_at.\n");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5770
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5771 EXTRACT_NUMBER_AND_INCR (mcnt, p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5772 p1 = p + mcnt;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5773 EXTRACT_NUMBER_AND_INCR (mcnt, p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5774 DEBUG_PRINT3 (" Setting 0x%lx to %d.\n", (long) p1, mcnt);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5775 STORE_NUMBER (p1, mcnt);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5776 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5777 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5778
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5779 case wordbound:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5780 DEBUG_PRINT1 ("EXECUTING wordbound.\n");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5781 should_succeed = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5782 matchwordbound:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5783 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5784 /* XEmacs change */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5785 int result;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5786 if (AT_STRINGS_BEG (d) || AT_STRINGS_END (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5787 result = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5788 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5789 {
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
5790 re_char *d_before = POS_BEFORE_GAP_UNSAFE (d);
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
5791 re_char *d_after = POS_AFTER_GAP_UNSAFE (d);
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
5792
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5793 /* emch1 is the character before d, syn1 is the syntax of
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5794 emch1, emch2 is the character at d, and syn2 is the
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5795 syntax of emch2. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5796 Emchar emch1, emch2;
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
5797 int syn1, syn2;
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
5798 #ifdef emacs
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5799 Charxpos pos_before;
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
5800 #endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5801
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5802 DEC_CHARPTR_FMT (d_before, fmt);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5803 emch1 = charptr_emchar_fmt (d_before, fmt, lispobj);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5804 emch2 = charptr_emchar_fmt (d_after, fmt, lispobj);
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
5805
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
5806 #ifdef emacs
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5807 pos_before =
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5808 offset_to_charxpos (lispobj, PTR_TO_OFFSET (d)) - 1;
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5809 UPDATE_SYNTAX_CACHE (scache, pos_before);
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
5810 #endif
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5811 syn1 = SYNTAX_FROM_CACHE (scache, emch1);
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
5812 #ifdef emacs
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5813 UPDATE_SYNTAX_CACHE_FORWARD (scache, pos_before + 1);
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
5814 #endif
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5815 syn2 = SYNTAX_FROM_CACHE (scache, emch2);
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
5816
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
5817 result = ((syn1 == Sword) != (syn2 == Sword));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5818 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5819 if (result == should_succeed)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5820 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5821 goto fail;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5822 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5823
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5824 case notwordbound:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5825 DEBUG_PRINT1 ("EXECUTING notwordbound.\n");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5826 should_succeed = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5827 goto matchwordbound;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5828
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5829 case wordbeg:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5830 DEBUG_PRINT1 ("EXECUTING wordbeg.\n");
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
5831 if (AT_STRINGS_END (d))
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
5832 goto fail;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5833 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5834 /* XEmacs: this originally read:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5835
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5836 if (WORDCHAR_P (d) && (AT_STRINGS_BEG (d) || !WORDCHAR_P (d - 1)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5837 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5838
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5839 */
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
5840 re_char *dtmp = POS_AFTER_GAP_UNSAFE (d);
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5841 Emchar emch = charptr_emchar_fmt (dtmp, fmt, lispobj);
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
5842 #ifdef emacs
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5843 Charxpos charpos = offset_to_charxpos (lispobj, PTR_TO_OFFSET (d));
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5844 UPDATE_SYNTAX_CACHE (scache, charpos);
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
5845 #endif
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5846 if (SYNTAX_FROM_CACHE (scache, emch) != Sword)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5847 goto fail;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5848 if (AT_STRINGS_BEG (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5849 break;
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
5850 dtmp = POS_BEFORE_GAP_UNSAFE (d);
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5851 DEC_CHARPTR_FMT (dtmp, fmt);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5852 emch = charptr_emchar_fmt (dtmp, fmt, lispobj);
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
5853 #ifdef emacs
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5854 UPDATE_SYNTAX_CACHE_BACKWARD (scache, charpos - 1);
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
5855 #endif
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5856 if (SYNTAX_FROM_CACHE (scache, emch) != Sword)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5857 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5858 goto fail;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5859 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5860
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5861 case wordend:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5862 DEBUG_PRINT1 ("EXECUTING wordend.\n");
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
5863 if (AT_STRINGS_BEG (d))
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
5864 goto fail;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5865 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5866 /* XEmacs: this originally read:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5867
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5868 if (!AT_STRINGS_BEG (d) && WORDCHAR_P (d - 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5869 && (!WORDCHAR_P (d) || AT_STRINGS_END (d)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5870 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5871
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5872 The or condition is incorrect (reversed).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5873 */
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
5874 re_char *dtmp;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5875 Emchar emch;
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
5876 #ifdef emacs
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5877 Charxpos charpos = offset_to_charxpos (lispobj, PTR_TO_OFFSET (d));
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5878 UPDATE_SYNTAX_CACHE (scache, charpos);
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
5879 #endif
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
5880 dtmp = POS_BEFORE_GAP_UNSAFE (d);
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5881 DEC_CHARPTR_FMT (dtmp, fmt);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5882 emch = charptr_emchar_fmt (dtmp, fmt, lispobj);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5883 if (SYNTAX_FROM_CACHE (scache, emch) != Sword)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5884 goto fail;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5885 if (AT_STRINGS_END (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5886 break;
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
5887 dtmp = POS_AFTER_GAP_UNSAFE (d);
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5888 emch = charptr_emchar_fmt (dtmp, fmt, lispobj);
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
5889 #ifdef emacs
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5890 UPDATE_SYNTAX_CACHE_FORWARD (scache, charpos + 1);
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
5891 #endif
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5892 if (SYNTAX_FROM_CACHE (scache, emch) != Sword)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5893 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5894 goto fail;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5895 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5896
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5897 #ifdef emacs
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5898 case before_dot:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5899 DEBUG_PRINT1 ("EXECUTING before_dot.\n");
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5900 if (!BUFFERP (lispobj)
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5901 || (BUF_PTR_BYTE_POS (XBUFFER (lispobj), (unsigned char *) d)
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5902 >= BUF_PT (XBUFFER (lispobj))))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5903 goto fail;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5904 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5905
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5906 case at_dot:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5907 DEBUG_PRINT1 ("EXECUTING at_dot.\n");
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5908 if (!BUFFERP (lispobj)
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5909 || (BUF_PTR_BYTE_POS (XBUFFER (lispobj), (unsigned char *) d)
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5910 != BUF_PT (XBUFFER (lispobj))))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5911 goto fail;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5912 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5913
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5914 case after_dot:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5915 DEBUG_PRINT1 ("EXECUTING after_dot.\n");
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5916 if (!BUFFERP (lispobj)
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5917 || (BUF_PTR_BYTE_POS (XBUFFER (lispobj), (unsigned char *) d)
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5918 <= BUF_PT (XBUFFER (lispobj))))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5919 goto fail;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5920 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5921
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5922 case syntaxspec:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5923 DEBUG_PRINT2 ("EXECUTING syntaxspec %d.\n", mcnt);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5924 mcnt = *p++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5925 goto matchsyntax;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5926
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5927 case wordchar:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5928 DEBUG_PRINT1 ("EXECUTING Emacs wordchar.\n");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5929 mcnt = (int) Sword;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5930 matchsyntax:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5931 should_succeed = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5932 matchornotsyntax:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5933 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5934 int matches;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5935 Emchar emch;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5936
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 446
diff changeset
5937 REGEX_PREFETCH ();
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5938 UPDATE_SYNTAX_CACHE
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5939 (scache, offset_to_charxpos (lispobj, PTR_TO_OFFSET (d)));
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5940
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5941 emch = charptr_emchar_fmt (d, fmt, lispobj);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5942 matches = (SYNTAX_FROM_CACHE (scache, emch) ==
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5943 (enum syntaxcode) mcnt);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5944 INC_CHARPTR_FMT (d, fmt);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5945 if (matches != should_succeed)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5946 goto fail;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5947 SET_REGS_MATCHED ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5948 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5949 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5950
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5951 case notsyntaxspec:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5952 DEBUG_PRINT2 ("EXECUTING notsyntaxspec %d.\n", mcnt);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5953 mcnt = *p++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5954 goto matchnotsyntax;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5955
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5956 case notwordchar:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5957 DEBUG_PRINT1 ("EXECUTING Emacs notwordchar.\n");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5958 mcnt = (int) Sword;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5959 matchnotsyntax:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5960 should_succeed = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5961 goto matchornotsyntax;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5962
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5963 #ifdef MULE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5964 /* 97/2/17 jhod Mule category code patch */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5965 case categoryspec:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5966 should_succeed = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5967 matchornotcategory:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5968 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5969 Emchar emch;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5970
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5971 mcnt = *p++;
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 446
diff changeset
5972 REGEX_PREFETCH ();
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5973 emch = charptr_emchar_fmt (d, fmt, lispobj);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5974 INC_CHARPTR_FMT (d, fmt);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5975 if (check_category_char (emch, BUFFER_CATEGORY_TABLE (lispbuf),
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5976 mcnt, should_succeed))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5977 goto fail;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5978 SET_REGS_MATCHED ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5979 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5980 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5981
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5982 case notcategoryspec:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5983 should_succeed = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5984 goto matchornotcategory;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5985 /* end of category patch */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5986 #endif /* MULE */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5987 #else /* not emacs */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5988 case wordchar:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5989 DEBUG_PRINT1 ("EXECUTING non-Emacs wordchar.\n");
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 446
diff changeset
5990 REGEX_PREFETCH ();
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
5991 if (!WORDCHAR_P ((int) (*d)))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5992 goto fail;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5993 SET_REGS_MATCHED ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5994 d++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5995 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5996
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5997 case notwordchar:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5998 DEBUG_PRINT1 ("EXECUTING non-Emacs notwordchar.\n");
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 446
diff changeset
5999 REGEX_PREFETCH ();
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
6000 if (!WORDCHAR_P ((int) (*d)))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6001 goto fail;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6002 SET_REGS_MATCHED ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6003 d++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6004 break;
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
6005 #endif /* emacs */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6006
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6007 default:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6008 abort ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6009 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6010 continue; /* Successfully executed one pattern command; keep going. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6011
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6012
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6013 /* We goto here if a matching operation fails. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6014 fail:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6015 if (!FAIL_STACK_EMPTY ())
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6016 { /* A restart point is known. Restore to that state. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6017 DEBUG_PRINT1 ("\nFAIL:\n");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6018 POP_FAILURE_POINT (d, p,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6019 lowest_active_reg, highest_active_reg,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6020 regstart, regend, reg_info);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6021
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6022 /* If this failure point is a dummy, try the next one. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6023 if (!p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6024 goto fail;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6025
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6026 /* If we failed to the end of the pattern, don't examine *p. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6027 assert (p <= pend);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6028 if (p < pend)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6029 {
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
6030 re_bool is_a_jump_n = false;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6031
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6032 /* If failed to a backwards jump that's part of a repetition
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6033 loop, need to pop this failure point and use the next one. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6034 switch ((re_opcode_t) *p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6035 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6036 case jump_n:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6037 is_a_jump_n = true;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6038 case maybe_pop_jump:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6039 case pop_failure_jump:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6040 case jump:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6041 p1 = p + 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6042 EXTRACT_NUMBER_AND_INCR (mcnt, p1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6043 p1 += mcnt;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6044
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6045 if ((is_a_jump_n && (re_opcode_t) *p1 == succeed_n)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6046 || (!is_a_jump_n
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6047 && (re_opcode_t) *p1 == on_failure_jump))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6048 goto fail;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6049 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6050 default:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6051 /* do nothing */ ;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6052 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6053 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6054
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6055 if (d >= string1 && d <= end1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6056 dend = end_match_1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6057 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6058 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6059 break; /* Matching at this starting point really fails. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6060 } /* for (;;) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6061
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6062 if (best_regs_set)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6063 goto restore_best_regs;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6064
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6065 FREE_VARIABLES ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6066
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6067 return -1; /* Failure to match. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6068 } /* re_match_2 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6069
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6070 /* Subroutine definitions for re_match_2. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6071
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6072
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6073 /* We are passed P pointing to a register number after a start_memory.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6074
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6075 Return true if the pattern up to the corresponding stop_memory can
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6076 match the empty string, and false otherwise.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6077
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6078 If we find the matching stop_memory, sets P to point to one past its number.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6079 Otherwise, sets P to an undefined byte less than or equal to END.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6080
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6081 We don't handle duplicates properly (yet). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6082
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
6083 static re_bool
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6084 group_match_null_string_p (unsigned char **p, unsigned char *end,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6085 register_info_type *reg_info)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6086 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6087 int mcnt;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6088 /* Point to after the args to the start_memory. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6089 unsigned char *p1 = *p + 2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6090
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6091 while (p1 < end)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6092 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6093 /* Skip over opcodes that can match nothing, and return true or
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6094 false, as appropriate, when we get to one that can't, or to the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6095 matching stop_memory. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6096
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6097 switch ((re_opcode_t) *p1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6098 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6099 /* Could be either a loop or a series of alternatives. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6100 case on_failure_jump:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6101 p1++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6102 EXTRACT_NUMBER_AND_INCR (mcnt, p1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6103
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6104 /* If the next operation is not a jump backwards in the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6105 pattern. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6106
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6107 if (mcnt >= 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6108 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6109 /* Go through the on_failure_jumps of the alternatives,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6110 seeing if any of the alternatives cannot match nothing.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6111 The last alternative starts with only a jump,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6112 whereas the rest start with on_failure_jump and end
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6113 with a jump, e.g., here is the pattern for `a|b|c':
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6114
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6115 /on_failure_jump/0/6/exactn/1/a/jump_past_alt/0/6
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6116 /on_failure_jump/0/6/exactn/1/b/jump_past_alt/0/3
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6117 /exactn/1/c
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6118
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6119 So, we have to first go through the first (n-1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6120 alternatives and then deal with the last one separately. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6121
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6122
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6123 /* Deal with the first (n-1) alternatives, which start
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6124 with an on_failure_jump (see above) that jumps to right
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6125 past a jump_past_alt. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6126
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6127 while ((re_opcode_t) p1[mcnt-3] == jump_past_alt)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6128 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6129 /* `mcnt' holds how many bytes long the alternative
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6130 is, including the ending `jump_past_alt' and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6131 its number. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6132
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6133 if (!alt_match_null_string_p (p1, p1 + mcnt - 3,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6134 reg_info))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6135 return false;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6136
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6137 /* Move to right after this alternative, including the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6138 jump_past_alt. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6139 p1 += mcnt;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6140
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6141 /* Break if it's the beginning of an n-th alternative
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6142 that doesn't begin with an on_failure_jump. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6143 if ((re_opcode_t) *p1 != on_failure_jump)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6144 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6145
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6146 /* Still have to check that it's not an n-th
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6147 alternative that starts with an on_failure_jump. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6148 p1++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6149 EXTRACT_NUMBER_AND_INCR (mcnt, p1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6150 if ((re_opcode_t) p1[mcnt-3] != jump_past_alt)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6151 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6152 /* Get to the beginning of the n-th alternative. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6153 p1 -= 3;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6154 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6155 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6156 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6157
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6158 /* Deal with the last alternative: go back and get number
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6159 of the `jump_past_alt' just before it. `mcnt' contains
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6160 the length of the alternative. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6161 EXTRACT_NUMBER (mcnt, p1 - 2);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6162
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6163 if (!alt_match_null_string_p (p1, p1 + mcnt, reg_info))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6164 return false;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6165
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6166 p1 += mcnt; /* Get past the n-th alternative. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6167 } /* if mcnt > 0 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6168 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6169
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6170
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6171 case stop_memory:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6172 assert (p1[1] == **p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6173 *p = p1 + 2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6174 return true;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6175
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6176
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6177 default:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6178 if (!common_op_match_null_string_p (&p1, end, reg_info))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6179 return false;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6180 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6181 } /* while p1 < end */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6182
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6183 return false;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6184 } /* group_match_null_string_p */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6185
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6186
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6187 /* Similar to group_match_null_string_p, but doesn't deal with alternatives:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6188 It expects P to be the first byte of a single alternative and END one
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6189 byte past the last. The alternative can contain groups. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6190
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
6191 static re_bool
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6192 alt_match_null_string_p (unsigned char *p, unsigned char *end,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6193 register_info_type *reg_info)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6194 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6195 int mcnt;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6196 unsigned char *p1 = p;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6197
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6198 while (p1 < end)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6199 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6200 /* Skip over opcodes that can match nothing, and break when we get
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6201 to one that can't. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6202
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6203 switch ((re_opcode_t) *p1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6204 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6205 /* It's a loop. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6206 case on_failure_jump:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6207 p1++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6208 EXTRACT_NUMBER_AND_INCR (mcnt, p1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6209 p1 += mcnt;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6210 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6211
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6212 default:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6213 if (!common_op_match_null_string_p (&p1, end, reg_info))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6214 return false;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6215 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6216 } /* while p1 < end */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6217
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6218 return true;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6219 } /* alt_match_null_string_p */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6220
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6221
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6222 /* Deals with the ops common to group_match_null_string_p and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6223 alt_match_null_string_p.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6224
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6225 Sets P to one after the op and its arguments, if any. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6226
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
6227 static re_bool
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6228 common_op_match_null_string_p (unsigned char **p, unsigned char *end,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6229 register_info_type *reg_info)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6230 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6231 int mcnt;
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
6232 re_bool ret;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6233 int reg_no;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6234 unsigned char *p1 = *p;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6235
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6236 switch ((re_opcode_t) *p1++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6237 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6238 case no_op:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6239 case begline:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6240 case endline:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6241 case begbuf:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6242 case endbuf:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6243 case wordbeg:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6244 case wordend:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6245 case wordbound:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6246 case notwordbound:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6247 #ifdef emacs
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6248 case before_dot:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6249 case at_dot:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6250 case after_dot:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6251 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6252 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6253
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6254 case start_memory:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6255 reg_no = *p1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6256 assert (reg_no > 0 && reg_no <= MAX_REGNUM);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6257 ret = group_match_null_string_p (&p1, end, reg_info);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6258
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6259 /* Have to set this here in case we're checking a group which
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6260 contains a group and a back reference to it. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6261
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6262 if (REG_MATCH_NULL_STRING_P (reg_info[reg_no]) == MATCH_NULL_UNSET_VALUE)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6263 REG_MATCH_NULL_STRING_P (reg_info[reg_no]) = ret;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6264
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6265 if (!ret)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6266 return false;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6267 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6268
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6269 /* If this is an optimized succeed_n for zero times, make the jump. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6270 case jump:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6271 EXTRACT_NUMBER_AND_INCR (mcnt, p1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6272 if (mcnt >= 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6273 p1 += mcnt;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6274 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6275 return false;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6276 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6277
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6278 case succeed_n:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6279 /* Get to the number of times to succeed. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6280 p1 += 2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6281 EXTRACT_NUMBER_AND_INCR (mcnt, p1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6282
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6283 if (mcnt == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6284 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6285 p1 -= 4;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6286 EXTRACT_NUMBER_AND_INCR (mcnt, p1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6287 p1 += mcnt;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6288 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6289 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6290 return false;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6291 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6292
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6293 case duplicate:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6294 if (!REG_MATCH_NULL_STRING_P (reg_info[*p1]))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6295 return false;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6296 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6297
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6298 case set_number_at:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6299 p1 += 4;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6300
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6301 default:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6302 /* All other opcodes mean we cannot match the empty string. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6303 return false;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6304 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6305
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6306 *p = p1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6307 return true;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6308 } /* common_op_match_null_string_p */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6309
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6310
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6311 /* Return zero if TRANSLATE[S1] and TRANSLATE[S2] are identical for LEN
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6312 bytes; nonzero otherwise. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6313
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6314 static int
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
6315 bcmp_translate (re_char *s1, re_char *s2,
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
6316 REGISTER int len, RE_TRANSLATE_TYPE translate
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
6317 #ifdef emacs
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
6318 , Internal_Format fmt, Lisp_Object lispobj
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
6319 #endif
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
6320 )
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6321 {
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
6322 REGISTER re_char *p1 = s1, *p2 = s2;
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
6323 #ifdef MULE
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
6324 re_char *p1_end = s1 + len;
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
6325 re_char *p2_end = s2 + len;
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
6326
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
6327 while (p1 != p1_end && p2 != p2_end)
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
6328 {
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
6329 Emchar p1_ch, p2_ch;
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
6330
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
6331 p1_ch = charptr_emchar_fmt (p1, fmt, lispobj);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
6332 p2_ch = charptr_emchar_fmt (p2, fmt, lispobj);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
6333
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
6334 if (RE_TRANSLATE_1 (p1_ch)
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
6335 != RE_TRANSLATE_1 (p2_ch))
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
6336 return 1;
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
6337 INC_CHARPTR_FMT (p1, fmt);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
6338 INC_CHARPTR_FMT (p2, fmt);
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
6339 }
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
6340 #else /* not MULE */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6341 while (len)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6342 {
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
6343 if (RE_TRANSLATE_1 (*p1++) != RE_TRANSLATE_1 (*p2++)) return 1;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6344 len--;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6345 }
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
6346 #endif /* MULE */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6347 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6348 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6349
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6350 /* Entry points for GNU code. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6351
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6352 /* re_compile_pattern is the GNU regular expression compiler: it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6353 compiles PATTERN (of length SIZE) and puts the result in BUFP.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6354 Returns 0 if the pattern was valid, otherwise an error string.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6355
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6356 Assumes the `allocated' (and perhaps `buffer') and `translate' fields
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6357 are set in BUFP on entry.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6358
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6359 We call regex_compile to do the actual compilation. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6360
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6361 const char *
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6362 re_compile_pattern (const char *pattern, int length,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6363 struct re_pattern_buffer *bufp)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6364 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6365 reg_errcode_t ret;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6366
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6367 /* GNU code is written to assume at least RE_NREGS registers will be set
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6368 (and at least one extra will be -1). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6369 bufp->regs_allocated = REGS_UNALLOCATED;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6370
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6371 /* And GNU code determines whether or not to get register information
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6372 by passing null for the REGS argument to re_match, etc., not by
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6373 setting no_sub. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6374 bufp->no_sub = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6375
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6376 /* Match anchors at newline. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6377 bufp->newline_anchor = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6378
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
6379 ret = regex_compile ((unsigned char *) pattern, length, re_syntax_options,
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
6380 bufp);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6381
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6382 if (!ret)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6383 return NULL;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6384 return gettext (re_error_msgid[(int) ret]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6385 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6386
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6387 /* Entry points compatible with 4.2 BSD regex library. We don't define
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6388 them unless specifically requested. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6389
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6390 #ifdef _REGEX_RE_COMP
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6391
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6392 /* BSD has one and only one pattern buffer. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6393 static struct re_pattern_buffer re_comp_buf;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6394
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6395 char *
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6396 re_comp (const char *s)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6397 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6398 reg_errcode_t ret;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6399
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6400 if (!s)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6401 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6402 if (!re_comp_buf.buffer)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6403 return gettext ("No previous regular expression");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6404 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6405 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6406
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6407 if (!re_comp_buf.buffer)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6408 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6409 re_comp_buf.buffer = (unsigned char *) malloc (200);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6410 if (re_comp_buf.buffer == NULL)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6411 return gettext (re_error_msgid[(int) REG_ESPACE]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6412 re_comp_buf.allocated = 200;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6413
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6414 re_comp_buf.fastmap = (char *) malloc (1 << BYTEWIDTH);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6415 if (re_comp_buf.fastmap == NULL)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6416 return gettext (re_error_msgid[(int) REG_ESPACE]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6417 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6418
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6419 /* Since `re_exec' always passes NULL for the `regs' argument, we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6420 don't need to initialize the pattern buffer fields which affect it. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6421
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6422 /* Match anchors at newlines. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6423 re_comp_buf.newline_anchor = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6424
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
6425 ret = regex_compile ((unsigned char *)s, strlen (s), re_syntax_options,
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 814
diff changeset
6426 &re_comp_buf);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6427
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6428 if (!ret)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6429 return NULL;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6430
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6431 /* Yes, we're discarding `const' here if !HAVE_LIBINTL. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6432 return (char *) gettext (re_error_msgid[(int) ret]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6433 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6434
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6435
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6436 int
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6437 re_exec (const char *s)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6438 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6439 const int len = strlen (s);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6440 return
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6441 0 <= re_search (&re_comp_buf, s, len, 0, len, (struct re_registers *) 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6442 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6443 #endif /* _REGEX_RE_COMP */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6444
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6445 /* POSIX.2 functions. Don't define these for Emacs. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6446
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6447 #ifndef emacs
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6448
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6449 /* regcomp takes a regular expression as a string and compiles it.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6450
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6451 PREG is a regex_t *. We do not expect any fields to be initialized,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6452 since POSIX says we shouldn't. Thus, we set
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6453
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6454 `buffer' to the compiled pattern;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6455 `used' to the length of the compiled pattern;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6456 `syntax' to RE_SYNTAX_POSIX_EXTENDED if the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6457 REG_EXTENDED bit in CFLAGS is set; otherwise, to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6458 RE_SYNTAX_POSIX_BASIC;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6459 `newline_anchor' to REG_NEWLINE being set in CFLAGS;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6460 `fastmap' and `fastmap_accurate' to zero;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6461 `re_nsub' to the number of subexpressions in PATTERN.
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
6462 (non-shy of course. POSIX probably doesn't know about
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 460
diff changeset
6463 shy ones, and in any case they should be invisible.)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6464
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6465 PATTERN is the address of the pattern string.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6466
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6467 CFLAGS is a series of bits which affect compilation.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6468
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6469 If REG_EXTENDED is set, we use POSIX extended syntax; otherwise, we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6470 use POSIX basic syntax.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6471
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6472 If REG_NEWLINE is set, then . and [^...] don't match newline.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6473 Also, regexec will try a match beginning after every newline.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6474
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6475 If REG_ICASE is set, then we considers upper- and lowercase
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6476 versions of letters to be equivalent when matching.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6477
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6478 If REG_NOSUB is set, then when PREG is passed to regexec, that
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6479 routine will report only success or failure, and nothing about the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6480 registers.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6481
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6482 It returns 0 if it succeeds, nonzero if it doesn't. (See regex.h for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6483 the return codes and their meanings.) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6484
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6485 int
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6486 regcomp (regex_t *preg, const char *pattern, int cflags)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6487 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6488 reg_errcode_t ret;
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
6489 unsigned int syntax
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6490 = (cflags & REG_EXTENDED) ?
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6491 RE_SYNTAX_POSIX_EXTENDED : RE_SYNTAX_POSIX_BASIC;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6492
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6493 /* regex_compile will allocate the space for the compiled pattern. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6494 preg->buffer = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6495 preg->allocated = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6496 preg->used = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6497
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6498 /* Don't bother to use a fastmap when searching. This simplifies the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6499 REG_NEWLINE case: if we used a fastmap, we'd have to put all the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6500 characters after newlines into the fastmap. This way, we just try
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6501 every character. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6502 preg->fastmap = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6503
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6504 if (cflags & REG_ICASE)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6505 {
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
6506 int i;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6507
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6508 preg->translate = (char *) malloc (CHAR_SET_SIZE);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6509 if (preg->translate == NULL)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6510 return (int) REG_ESPACE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6511
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6512 /* Map uppercase characters to corresponding lowercase ones. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6513 for (i = 0; i < CHAR_SET_SIZE; i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6514 preg->translate[i] = ISUPPER (i) ? tolower (i) : i;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6515 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6516 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6517 preg->translate = NULL;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6518
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6519 /* If REG_NEWLINE is set, newlines are treated differently. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6520 if (cflags & REG_NEWLINE)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6521 { /* REG_NEWLINE implies neither . nor [^...] match newline. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6522 syntax &= ~RE_DOT_NEWLINE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6523 syntax |= RE_HAT_LISTS_NOT_NEWLINE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6524 /* It also changes the matching behavior. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6525 preg->newline_anchor = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6526 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6527 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6528 preg->newline_anchor = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6529
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6530 preg->no_sub = !!(cflags & REG_NOSUB);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6531
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6532 /* POSIX says a null character in the pattern terminates it, so we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6533 can use strlen here in compiling the pattern. */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
6534 ret = regex_compile ((unsigned char *) pattern, strlen (pattern), syntax, preg);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6535
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6536 /* POSIX doesn't distinguish between an unmatched open-group and an
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6537 unmatched close-group: both are REG_EPAREN. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6538 if (ret == REG_ERPAREN) ret = REG_EPAREN;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6539
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6540 return (int) ret;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6541 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6542
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6543
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6544 /* regexec searches for a given pattern, specified by PREG, in the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6545 string STRING.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6546
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6547 If NMATCH is zero or REG_NOSUB was set in the cflags argument to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6548 `regcomp', we ignore PMATCH. Otherwise, we assume PMATCH has at
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6549 least NMATCH elements, and we set them to the offsets of the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6550 corresponding matched substrings.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6551
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6552 EFLAGS specifies `execution flags' which affect matching: if
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6553 REG_NOTBOL is set, then ^ does not match at the beginning of the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6554 string; if REG_NOTEOL is set, then $ does not match at the end.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6555
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6556 We return 0 if we find a match and REG_NOMATCH if not. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6557
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6558 int
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6559 regexec (const regex_t *preg, const char *string, size_t nmatch,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6560 regmatch_t pmatch[], int eflags)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6561 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6562 int ret;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6563 struct re_registers regs;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6564 regex_t private_preg;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6565 int len = strlen (string);
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 458
diff changeset
6566 re_bool want_reg_info = !preg->no_sub && nmatch > 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6567
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6568 private_preg = *preg;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6569
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6570 private_preg.not_bol = !!(eflags & REG_NOTBOL);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6571 private_preg.not_eol = !!(eflags & REG_NOTEOL);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6572
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6573 /* The user has told us exactly how many registers to return
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6574 information about, via `nmatch'. We have to pass that on to the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6575 matching routines. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6576 private_preg.regs_allocated = REGS_FIXED;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6577
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6578 if (want_reg_info)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6579 {
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
6580 regs.num_regs = (int) nmatch;
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
6581 regs.start = TALLOC ((int) nmatch, regoff_t);
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
6582 regs.end = TALLOC ((int) nmatch, regoff_t);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6583 if (regs.start == NULL || regs.end == NULL)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6584 return (int) REG_NOMATCH;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6585 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6586
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6587 /* Perform the searching operation. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6588 ret = re_search (&private_preg, string, len,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6589 /* start: */ 0, /* range: */ len,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6590 want_reg_info ? &regs : (struct re_registers *) 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6591
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6592 /* Copy the register information to the POSIX structure. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6593 if (want_reg_info)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6594 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6595 if (ret >= 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6596 {
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
6597 int r;
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
6598
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
6599 for (r = 0; r < (int) nmatch; r++)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6600 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6601 pmatch[r].rm_so = regs.start[r];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6602 pmatch[r].rm_eo = regs.end[r];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6603 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6604 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6605
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6606 /* If we needed the temporary register info, free the space now. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6607 free (regs.start);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6608 free (regs.end);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6609 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6610
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6611 /* We want zero return to mean success, unlike `re_search'. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6612 return ret >= 0 ? (int) REG_NOERROR : (int) REG_NOMATCH;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6613 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6614
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6615
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6616 /* Returns a message corresponding to an error code, ERRCODE, returned
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6617 from either regcomp or regexec. We don't use PREG here. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6618
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6619 size_t
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
6620 regerror (int errcode, const regex_t *preg, char *errbuf,
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
6621 size_t errbuf_size)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6622 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6623 const char *msg;
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 648
diff changeset
6624 Bytecount msg_size;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6625
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6626 if (errcode < 0
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
6627 || errcode >= (int) (sizeof (re_error_msgid) /
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
6628 sizeof (re_error_msgid[0])))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6629 /* Only error codes returned by the rest of the code should be passed
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6630 to this routine. If we are given anything else, or if other regex
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6631 code generates an invalid error code, then the program has a bug.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6632 Dump core so we can fix it. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6633 abort ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6634
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6635 msg = gettext (re_error_msgid[errcode]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6636
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6637 msg_size = strlen (msg) + 1; /* Includes the null. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6638
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6639 if (errbuf_size != 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6640 {
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 648
diff changeset
6641 if (msg_size > (Bytecount) errbuf_size)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6642 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6643 strncpy (errbuf, msg, errbuf_size - 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6644 errbuf[errbuf_size - 1] = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6645 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6646 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6647 strcpy (errbuf, msg);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6648 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6649
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 551
diff changeset
6650 return (size_t) msg_size;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6651 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6652
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6653
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6654 /* Free dynamically allocated space used by PREG. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6655
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6656 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6657 regfree (regex_t *preg)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6658 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6659 if (preg->buffer != NULL)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6660 free (preg->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6661 preg->buffer = NULL;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6662
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6663 preg->allocated = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6664 preg->used = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6665
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6666 if (preg->fastmap != NULL)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6667 free (preg->fastmap);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6668 preg->fastmap = NULL;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6669 preg->fastmap_accurate = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6670
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6671 if (preg->translate != NULL)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6672 free (preg->translate);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6673 preg->translate = NULL;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6674 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6675
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6676 #endif /* not emacs */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6677