OSCL/cl-ppcre
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix Perl compatibility for (SPLIT ... :LIMIT -1).

Browse Source 
A negative limit means infinity.
This commit is contained in:
Philipp Marek
2017-03-08 13:00:17 +01:00
parent 0f295337d9
commit 056cbf3990
2 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
api.lisp
View File

@ -594,6 +594,11 @@ structure with TARGET-STRING."
;; push start of match on list unless this would be an empty ;; push start of match on list unless this would be an empty
;; string adjacent to the last element pushed onto the list ;; string adjacent to the last element pushed onto the list
(when (and limit (when (and limit
;; perlfunc(1) says
;; If LIMIT is negative, it is treated as if
;; it were instead arbitrarily large;
;; as many fields as possible are produced.
(plusp limit)
(>= (incf counter) limit)) (>= (incf counter) limit))
(return)) (return))
(push match-start pos-list) (push match-start pos-list)

3
test/simple
View File

@ -142,6 +142,9 @@ frob")
(equal (split ":" "a:b:c:d:e:f:g::" :limit 1000) (equal (split ":" "a:b:c:d:e:f:g::" :limit 1000)
'("a" "b" "c" "d" "e" "f" "g" "" "")) '("a" "b" "c" "d" "e" "f" "g" "" ""))
(equal (split ":" "a:b:c:d:e:f:g::" :limit -1)
'("a" "b" "c" "d" "e" "f" "g" "" ""))
(equal (multiple-value-list (regex-replace "fo+" "foo bar" "frob")) (equal (multiple-value-list (regex-replace "fo+" "foo bar" "frob"))
(list "frob bar" t)) (list "frob bar" t))