Hacked support for Makros in C and C++ mode

This commit is contained in:
forflo 2016-06-06 02:52:41 +02:00
parent 4e98f118c3
commit b9ecf4b355

View File

@ -115,6 +115,37 @@ position in the CONTENT."
build-nodes build-nodes
cdr)))) cdr))))
;; Added support for C-Makros
(defun origami-build-pair-tree-makro-c (create open openM close closeM positions)
(cl-labels ((build (positions)
;; this is so horrible, but fast
(let (acc beg (should-continue t))
(while (and should-continue positions)
(cond ((or (equal (caar positions) open)
(equal (caar positions) openM))
(if beg ;go down a level
(let* ((res (build positions))
(new-pos (car res))
(children (cdr res)))
(setq positions (cdr new-pos))
(setq acc (cons (funcall create beg (cdar new-pos) (length open) children)
acc))
(setq beg nil))
;; begin a new pair
(setq beg (cdar positions))
(setq positions (cdr positions))))
( (or (equal (caar positions) closeM)
(equal (caar positions) close))
(if beg
(progn ;close with no children
(setq acc (cons (funcall create beg (cdar positions) (length close) nil)
acc))
(setq positions (cdr positions))
(setq beg nil))
(setq should-continue nil)))))
(cons positions (reverse acc)))))
(cdr (build positions))))
(defun origami-build-pair-tree (create open close positions) (defun origami-build-pair-tree (create open close positions)
(cl-labels ((build (positions) (cl-labels ((build (positions)
;; this is so horrible, but fast ;; this is so horrible, but fast
@ -143,6 +174,13 @@ position in the CONTENT."
(cons positions (reverse acc))))) (cons positions (reverse acc)))))
(cdr (build positions)))) (cdr (build positions))))
;; Support for C-Makros
(defun origami-c-with-makros-parser (create)
(lambda (content)
(let ((positions (origami-get-positions content "#ifdef\\|#endif\\|[{}]")))
(origami-build-pair-tree-makro-c
create "{" "#ifdef" "}" "#endif" positions))))
;;; TODO: tag these nodes? have ability to manipulate nodes that are ;;; TODO: tag these nodes? have ability to manipulate nodes that are
;;; tagged? in a scoped fashion? ;;; tagged? in a scoped fashion?
(defun origami-javadoc-parser (create) (defun origami-javadoc-parser (create)
@ -208,8 +246,8 @@ position in the CONTENT."
(defcustom origami-parser-alist (defcustom origami-parser-alist
`((java-mode . origami-java-parser) `((java-mode . origami-java-parser)
(c-mode . origami-c-style-parser) (c-mode . origami-c-with-makros-parser)
(c++-mode . origami-c-style-parser) (c++-mode . origami-c-with-makros-parser)
(perl-mode . origami-c-style-parser) (perl-mode . origami-c-style-parser)
(cperl-mode . origami-c-style-parser) (cperl-mode . origami-c-style-parser)
(js-mode . origami-c-style-parser) (js-mode . origami-c-style-parser)