Lines Matching refs:rule
258 ;; Macro to be called whenever an indentation rule decides that
321 label ;; unique label associated with rule, this
326 check ;; FORM evaluated, if T apply reduce rule
327 code ;; PROGN to be called when a rule matches
342 check-code ;; code to execute before applying a reduce rule
343 reduce-code ;; code to execute after reduce rule
433 ;; Create a "reduction rule"
440 (dolist (rule rules)
441 (or (listp rule) (error "INDREDUCE: invalid indent rule ~A" rule))
444 (and (eq token (car rule)) (null (cdr rule))
447 (dolist (item rule)
492 ;; Create a "resolve rule"
797 ;; Search rule-pattern in match-pattern
800 (defun indent-search-rule (rule-pattern match-pattern
801 &aux start rule rulep matchp test offset length)
802 (if (member-if-not #'keywordp rule-pattern)
803 ;; rule has wildcards
806 rulep rule-pattern
811 (setq rule (car rulep))
814 ((consp rule)
815 (if (eq (car rule) 'not)
818 test (cadr rule)
820 rule (car rulep)
829 (not (eq (car matchp) rule))
833 (if (eq (car matchp) rule)
834 ;; rule matched
841 rulep rule-pattern
847 ;; (eq (car rule) 'or)
849 (if (member (car matchp) (cdr rule) :test #'eq)
857 rulep rule-pattern
867 ;; Skip until end of match-pattern or rule is found
868 ((null rule)
879 (setq rulep rule-pattern)
887 ((eq rule t)
888 ;; If there isn't a rule to skip
894 ((eq rule (car matchp))
904 rulep rule-pattern
934 (and (setq offset (search rule-pattern match-pattern :test #'eq))
935 (setq length (length rule-pattern))
941 (compile 'indent-search-rule)
976 ;; label associated with rule
1290 (dolist (rule (indreduce-rules entry))
1296 (indent-search-rule rule ind-change)
1312 ;; the rule is deleting entries.
1341 ind-tleft *ind-token* rule