xeals/origami.el
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Rewrite elisp parser to use builtin funcs

Browse Source 
More accurate and much faster.
This commit is contained in:
Greg Sexton 2014-08-10 16:50:28 +01:00
parent 4d66682979
commit 9d6003f90b
1 changed files with 16 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
origami-parsers.el
View File

@ -66,28 +66,23 @@ children of the pair."
(parser-1? pair))
pair))))
(defun origami-paren-parser (create)
(let ((pair (origami-pair (parser-char "(")
(lambda () (origami-paren-parser create))
(parser-char ")")
create)))
(parser-0+ (parser-conj
(parser-do
(parser-drop-until-regex "[()]")
(parser-1? pair))
pair))))
(defun origami-elisp-parser (create)
(let ((def-regex "(def\\w*\\s-*\\(\\s_\\|\\w\\)*"))
(let ((pair (origami-pair (parser-regex def-regex)
(lambda () (origami-paren-parser (lambda (&rest _) nil)))
(parser-char ")")
create)))
(parser-0+ (parser-conj
(parser-do
(parser-drop-until-regex (concat def-regex "\\|)"))
(parser-1? pair))
pair)))))
(lambda (content)
(with-temp-buffer
(insert (parser-content-string content))
(beginning-of-buffer)
(beginning-of-defun -1)
(let (beg end offset acc)
(while (< (point) (point-max))
(setq beg (point))
(search-forward-regexp "(def\\w*\\s-*\\(\\s_\\|\\w\\)*" nil t)
(setq offset (- (point) beg))
(end-of-defun)
(backward-char)
(setq end (point))
(setq acc (cons (funcall create beg end offset nil) acc))
(beginning-of-defun -1))
(list (reverse acc))))))
(provide 'origami-parsers)