br-parser-tools/collects/parser-tools/private-yacc/parser-actions.ss

#cs
(module parser-actions mzscheme

  ;; The entries into the action table
  
  (provide shift? reduce? accept? 
	   shift-state reduce-prod-num reduce-lhs-num reduce-rhs-length 
	   make-shift make-reduce make-accept)

  ;; action = (shift int)
  ;;        | (reduce int int int)
  ;;        | (accept)
  ;;        | int
  ;;        | #f

  (define-struct shift (state) (make-inspector))
  (define-struct reduce (prod-num lhs-num rhs-length) (make-inspector))
  (define-struct accept () (make-inspector))
  )