提取字符串中所有匹配正则表达式的第一个register的内容

all-first-registers-to-strings.lisp

(ql:quickload 'cl-ppcre)

(defun all-first-registers-to-strings (regex target-string)
  "返回TARGET-STRING中所有匹配正则表达式REGEX的字符串属于第一个register的内容。"
  (check-type regex string)
  (check-type target-string string)
  (let ((pos 0)
        (strs '()))
    (loop
       (multiple-value-bind (start end register-begins register-ends)
           (cl-ppcre:scan regex target-string :start pos)
         (unless start
           (return-from all-first-registers-to-strings (nreverse strs)))

         (push (subseq target-string (svref register-begins 0) (svref register-ends 0)) strs)
         (setf pos end)))))