Lines Matching defs:tree
4205 (defun ebnf-generate-eps (ebnf-tree)
4210 (ebnf-total (length ebnf-tree))
4224 (while ebnf-tree
4225 (setq prod (car ebnf-tree)
4251 (setq ebnf-tree (cdr ebnf-tree)))
4318 (defun ebnf-generate (ebnf-tree)
4332 (defvar ebnf-tree nil)
4345 (let ((ebnf-total (length ebnf-tree))
4348 (while ebnf-tree
4350 (setq next-line ebnf-tree
4351 prod (car ebnf-tree)
4365 (setq prod (car ebnf-tree))
4367 (while (not (eq (setq ebnf-tree (cdr ebnf-tree)) next-line))
4369 (setq prod (car ebnf-tree))
4375 (let ((ebnf-total (length ebnf-tree))
4378 (while ebnf-tree
4380 (setq prod (car ebnf-tree)
4385 (while (and (setq ebnf-tree (cdr ebnf-tree))
4386 (setq prod (car ebnf-tree))
4699 (let ((tree (ebnf-parse-and-sort (min from to))))
4702 tree (ebnf-eliminate-empty-rules tree))
4704 tree (ebnf-optimize tree))
4706 tree (ebnf-dimensions tree))
4708 (funcall gen-func tree))
4739 (let ((tree (funcall ebnf-parser-func start)))
4743 (sort tree
4747 (nreverse tree))))
5151 (defun ebnf-dimensions (tree)
5152 (let ((ebnf-total (length tree))
5154 (mapcar 'ebnf-production-dimension tree))
5155 tree)