Lines Matching +defs:range +defs:list
35 ;; define list (default empty), type
60 ;; the display will be updated. Only the define list for the current
62 ;; list with hide-ifdef-set-define-alist. This adds entries
66 ;; up a list of symbols that may be used by hide-ifdefs as in the
78 ;; another list to use.
91 ;; of the define list by using hide-ifdef-block and show-ifdef-block.
178 An association list of defined and undefined symbols for the
183 An association list of defined symbol lists.
305 ;; Used to store the current token and the whole token list during parsing.
308 (defvar hif-token-list)
316 "Separate string between START and END into a list of tokens."
317 (let ((token-list nil))
351 token-list)))
353 (nreverse token-list)))
361 "Pop the next token from token-list into the let variable \"hif-token\"."
362 (setq hif-token (pop hif-token-list)))
364 (defun hif-parse-if-exp (hif-token-list)
365 "Parse the TOKEN-LIST. Return translated list in prefix form."
383 (setq result (list 'hif-conditional result middle (hif-expr))))
392 (setq result (list 'hif-or result (hif-and-expr))))
400 (setq result (list 'hif-and result (hif-eq-expr))))
411 (setq result (list eq-token result (hif-math))))
422 (setq result (list math-op result (hif-factor))))
430 (list 'hif-not (hif-factor)))
511 (list 'hif-not expr)
672 ;;; A range is a structure with four components:
674 ;;; START The start of the range. (beginning of line)
677 ;;; END The end of the range. (beginning of line)
679 (defsubst hif-make-range (start end &optional else)
680 (list start else end))
682 (defsubst hif-range-start (range) (elt range 0))
683 (defsubst hif-range-else (range) (elt range 1))
684 (defsubst hif-range-end (range) (elt range 2))
693 (defun hif-find-range ()
696 ;; (message "hif-find-range at %d" (point))
722 (hif-make-range start end else))))
757 ;;; possibly-hidden range.
773 (range (hif-find-range)))
776 (hif-hide-line (hif-range-end range))
778 (cond ((hif-range-else range) ; case 1
779 (hif-hide-line (hif-range-else range))
780 (hide-ifdef-region (hif-range-else range)
781 (1- (hif-range-end range)))
782 (hif-recurse-on (hif-range-start range)
783 (hif-range-else range)))
785 (hif-recurse-on (hif-range-start range)
786 (hif-range-end range))))
787 (cond ((hif-range-else range) ; case 3
788 (hif-hide-line (hif-range-else range))
789 (hide-ifdef-region (hif-range-start range)
790 (1- (hif-range-else range)))
791 (hif-recurse-on (hif-range-else range)
792 (hif-range-end range)))
795 (1- (hif-range-end range))))))
796 (hif-hide-line (hif-range-start range)) ; Always hide start.
797 (goto-char (hif-range-end range))
948 "A global assoc list of pre-defined symbol lists.")
950 (defun hif-compress-define-list (env)
951 "Compress the define list ENV into a list of defined symbols only."
958 (interactive "SSet define list: ")
959 (push (cons name (hif-compress-define-list hide-ifdef-env))
963 "Set `hide-ifdef-env' to the define list specified by NAME."
965 (list (completing-read "Use define list: "
970 (let ((define-list (assoc name hide-ifdef-define-alist)))
971 (if define-list
974 (cdr define-list)))
975 (error "No define list for %s" name))