diff options
| author | Yves Orton <demerphq@gmail.com> | 2006-10-04 17:45:15 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-10-05 10:23:08 +0000 |
| commit | 6bda09f9db748451f9bb2b0d8c798ce595a6609c (patch) | |
| tree | 1ddc57ee0bf52f91d840b31da4dea86d20ede672 /regcomp.pl | |
| parent | 87fbace95be9589b7b2c6e7ed7bd681adeae2cf4 (diff) | |
| download | perl-6bda09f9db748451f9bb2b0d8c798ce595a6609c.tar.gz | |
Re: [PATCH] Add recursive regexes similar to PCRE
Date: Wed, 4 Oct 2006 15:45:15 +0200
Message-ID: <9b18b3110610040645s563220a2id6f235494b497e90@mail.gmail.com>
Subject: Re: [PATCH] Add recursive regexes similar to PCRE
From: demerphq <demerphq@gmail.com>
Date: Wed, 4 Oct 2006 21:05:10 +0200
Message-ID: <9b18b3110610041205m2660eb43m1315cf4b0653db96@mail.gmail.com>
p4raw-id: //depot/perl@28939
Diffstat (limited to 'regcomp.pl')
| -rw-r--r-- | regcomp.pl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/regcomp.pl b/regcomp.pl index ed270e8967..2e84604b5f 100644 --- a/regcomp.pl +++ b/regcomp.pl @@ -82,6 +82,8 @@ printf OUT <<EOP, Any changes made here will be lost! */ +/* Regops and State definitions */ + #define %*s\t%d #define %*s\t%d @@ -101,6 +103,7 @@ while (++$ind <= $tot) { print OUT <<EOP; +/* PL_regkind[] What type of regop or state is this. */ #ifndef DOINIT EXTCONST U8 PL_regkind[]; @@ -120,6 +123,7 @@ print OUT <<EOP; }; #endif +/* regarglen[] - How large is the argument part of the node (in regnodes) */ #ifdef REG_COMP_C static const U8 regarglen[] = { @@ -137,6 +141,8 @@ while (++$ind <= $lastregop) { print OUT <<EOP; }; +/* reg_off_by_arg[] - Which argument holds the offset to the next node */ + static const char reg_off_by_arg[] = { EOP @@ -151,6 +157,8 @@ while (++$ind <= $lastregop) { print OUT <<EOP; }; +/* reg_name[] - Opcode/state names in string form, for debugging */ + #ifdef DEBUGGING const char * reg_name[] = { EOP |