Magic-Mirror/gecko-dev
1
0
Fork 0
mirror of https://github.com/mozilla/gecko-dev.git synced 2024-10-11 20:35:50 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Replaced fill-capture by the new repeat primitive

Browse Source
This commit is contained in:
waldemar%netscape.com 2002-09-25 23:49:53 +00:00
parent 49ac14b7f4
commit aee5c157f3
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
js2/semantics/JS20/RegExp.lisp
View File

@ -141,17 +141,13 @@
(begin
(const m1 matcher ((gen-matcher :disjunction) 0))
(function (e (t r-e-input) (index integer)) r-e-result
(const x r-e-match (new r-e-match index (fill-capture (count-parens :disjunction))))
(const x r-e-match (new r-e-match index (repeat capture undefined (count-parens :disjunction))))
(return (m1 t x success-continuation)))
(return e)))))
(%print-actions)
(define (success-continuation (x r-e-match)) r-e-result
(return x))
(define (fill-capture (i integer)) (vector capture)
(if (= i 0)
(return (vector-of capture))
(return (append (fill-capture (- i 1)) (vector-of capture undefined)))))
(%heading 2 "Disjunctions")
@ -265,6 +261,7 @@
(%charclass :decimal-digit)
(deftag +infinity)
(deftype limit (union integer (tag +infinity)))
(define (reset-parens (x r-e-match) (p integer) (n-parens integer)) r-e-match