		Search-engine friendly clone of the ACL2 documentation.

Defdefparse-event-generation

Defdefparse-gen-everything

Generate all the events.

Signature
(defdefparse-gen-everything name pkg-wit grammar prefix call) → event
Arguments: name — Guard (common-lisp::symbolp name).; pkg-wit — Guard (common-lisp::symbolp pkg-wit).; grammar — Guard (common-lisp::symbolp grammar).; prefix — Guard (common-lisp::symbolp prefix).; call — Guard (pseudo-event-formp call).
Returns: event — Type (pseudo-event-formp event).

Definitions and Theorems

Function: defdefparse-gen-everything

(defun defdefparse-gen-everything (name pkg-wit grammar prefix call)
 (declare (xargs :guard (and (common-lisp::symbolp name)
                             (common-lisp::symbolp pkg-wit)
                             (common-lisp::symbolp grammar)
                             (common-lisp::symbolp prefix)
                             (pseudo-event-formp call))))
 (let ((__function__ 'defdefparse-gen-everything))
  (declare (ignorable __function__))
  (b*
   ((group-table-name
         (defdefparse-gen-group-table-name name pkg-wit))
    (option-table-name
         (defdefparse-gen-option-table-name name pkg-wit))
    (repetition-table-name
         (defdefparse-gen-repetition-table-name name pkg-wit))
    (group-table-macro (defdefparse-gen-group-table-macro
                            name pkg-wit group-table-name prefix))
    (option-table-macro (defdefparse-gen-option-table-macro
                             name pkg-wit option-table-name prefix))
    (repetition-table-macro
         (defdefparse-gen-repetition-table-macro
              name
              pkg-wit repetition-table-name prefix))
    (rulename-macro (defdefparse-gen-rulename-macro
                         name pkg-wit grammar prefix
                         group-table-name option-table-name
                         repetition-table-name))
    (*-rulename-macro (defdefparse-gen-*-rulename-macro
                           name pkg-wit grammar prefix
                           group-table-name option-table-name
                           repetition-table-name))
    (group-macro
     (defdefparse-gen-group-macro name pkg-wit grammar prefix
                                  group-table-name option-table-name
                                  repetition-table-name))
    (*-group-macro (defdefparse-gen-*-group-macro
                        name pkg-wit grammar prefix
                        group-table-name option-table-name
                        repetition-table-name))
    (option-macro (defdefparse-gen-option-macro
                       name pkg-wit grammar prefix
                       group-table-name option-table-name
                       repetition-table-name))
    (table-event (defdefparse-table-add call)))
   (cons
    'progn
    (cons
     group-table-macro
     (cons
      option-table-macro
      (cons
       repetition-table-macro
       (cons
         rulename-macro
         (cons *-rulename-macro
               (cons group-macro
                     (cons *-group-macro
                           (cons option-macro
                                 (cons table-event 'nil)))))))))))))

Theorem: pseudo-event-formp-of-defdefparse-gen-everything

(defthm pseudo-event-formp-of-defdefparse-gen-everything
 (b*
  ((event
     (defdefparse-gen-everything name pkg-wit grammar prefix call)))
  (pseudo-event-formp event))
 :rule-classes :rewrite)