Lines Matching defs:indtoken
287 (defstruct indtoken
300 tokens ;; list of indtoken structures
361 (defmacro indtoken (pattern token
369 (make-indtoken
391 (indtoken-p item)
402 :tokens (remove-if-not #'indtoken-p definitions)
578 :key #'indtoken-regex
714 switches (remove-if #'null (car elements) :key #'indtoken-switch)
715 begins (remove-if #'null (car elements) :key #'indtoken-begin)
720 (dolist (item (mapcar #'indtoken-switch switches))
728 (dolist (item (mapcar #'indtoken-begin begins))
740 (if (keywordp (indtoken-switch item))
742 (indtoken-switch item)
743 (car (member (indtoken-switch item) tables :key #'indtable-label))
749 (indtoken-begin item)
750 (car (member (indtoken-begin item) tables :key #'indtable-label))
761 (when (setq code (indtoken-code item))
766 (indtoken-label item)
1075 ind-token (indtoken-regex token)
1196 (when (setq ind-change (indtoken-token ind-token))
1214 (indtoken-label ind-token)
1222 (when (setq ind-change (indtoken-switch ind-token))
1255 (when (setq ind-tleft (indtoken-begin ind-token))