gistfile1.lisp

(defun-parser :html-attr
  (no-capture (repeat 0 nil " "))
  (and (concat (repeat 0 nil (range #\a #\z))
               (and ":" (repeat 0 nil (concat (range #\a #\z)))))
       (no-capture #\= #\")
       (find-next #\")
       (no-capture #\")))

(defun-parser :html-attrs
  (repeat 0 nil :html-attr))

(defun-parser :html-tag-name
  (concat (maybe "!")
          (repeat 0 nil (range #\a #\z))
          (and ":" (repeat 0 nil (range #\a #\z))))) ; this is like a conditional

(defun-parser :html-tag
  (and (no-capture "<")
       (maybe "/")
       :html-tag-name
       :html-attrs
       (no-capture (repeat 0 nil " "))
       (maybe "/")
       (no-capture ">")))

(defun-parser :html
  (repeat 0 nil (and (find-next "<")
                     :html-tag))
  (concat (repeat 0 nil (any-char))))