Lines Matching defs:syntable
39 syntable syntoken synaugment
200 (syntable ,label ,property ,indent ,@lists)
304 (defstruct syntable
309 tables ;; A list of syntable structures.
322 ;; Just call make-syntable, but sorts the elements by type, allowing
327 (defun syntable (label default-property indent &rest definitions)
346 ;; now the arguments to make-syntable.
357 (syntable-p item)
365 (make-syntable
370 :tables (remove-if-not #'syntable-p definitions)
395 ;; cdr => List of all child syntable structures.
397 (defun list-syntable-elements (table &aux result sub-result)
401 (syntable-tokens table)
402 (syntable-tables table))
406 (dolist (child (syntable-tables table))
408 ;; Recursively call list-syntable-elements.
409 (setq sub-result (list-syntable-elements child))
428 (dolist (augment (syntable-augments table))
437 (syntable-label table)
447 (car (member label table-list :key #'syntable-label))
451 (syntable-label table)
456 (setq tokens (append tokens (syntable-tokens augment)))
461 (setf (syntable-augments table) tokens)
464 (dolist (child (syntable-tables table))
476 (syntable-tokens table)
480 (nconc (syntable-tokens table) (syntable-augments table))
487 (syntable-augments table)
494 (dolist (token (syntable-tokens table))
496 (setf (syntable-bol table) t)
500 (dolist (token (syntable-tokens table))
502 (setf (syntable-eol table) t)
507 (dolist (child (syntable-tables table))
525 (list-syntable-elements main-table)
542 ;; list-syntable-elements includes only the child tables;
556 (member item tables :key #'syntable-label)
564 (unless (member item tables :key #'syntable-label)
587 ;; List all properties in the syntable list.
589 #'syntable-property
625 ;; syntable.
636 :key #'syntable-label
649 :key #'syntable-label
665 (syntable-property item)
666 (string= (synprop-name (syntable-property item)) "default")
667 (setf (syntable-property item) ())
745 ;; The current syntable.
748 ;; The current syntable's default property.
749 (default-property (syntable-property syntax-table))
759 ;; A pointer to the syntable token list, if token-list is
849 token-list (syntable-tokens syntax-table)
862 (not (syntable-eol syntax-table))
863 (not (syntable-bol syntax-table)))
877 (syntable-label syntax-table)
1293 (syntable-label syntax-table)
1298 (setq token-list (syntable-tokens syntax-table))
1308 token-list (syntable-tokens begin)
1312 (syntable-label syntax-table)
1319 default-property (syntable-property syntax-table)
1320 current-token-list (syntable-tokens syntax-table)