• Top
  • Documentation
  • Books
  • Boolean-reasoning
  • Projects
    • Apt
    • Acre
    • Milawa
    • Smtlink
    • Aleobft
    • Abnf
      • Deftreeops
      • Defdefparse
        • Defdefparse-implementation
          • Defdefparse-event-generation
            • Defdefparse-gen-function-for-rulename
            • Defdefparse-gen-code-for-alternation
            • Defdefparse-gen-code-for-repetition
            • Defdefparse-gen-function-for-group
            • Defdefparse-function-spec
            • Defdefparse-gen-code-for-element
            • Defdefparse-gen-*-group-macro
            • Defdefparse-gen-function-for-option
            • Defdefparse-gen-option-macro
            • Defdefparse-gen-group-macro
            • Defdefparse-gen-code-for-concatenation
            • Defdefparse-gen-function-for-repetition
            • Defdefparse-gen-*-rulename-macro
            • Defdefparse-gen-rulename-macro
            • Defdefparse-gen-repetition-alist
            • Defdefparse-gen-option-alist
            • Defdefparse-gen-group-alist
            • Defdefparse-gen-everything
            • Defdefparse-gen-repetition-table-macro
            • Defdefparse-gen-option-table-macro
            • Defdefparse-gen-group-table-macro
            • Defdefparse-gen-function-for-spec
            • Defdefparse-gen-repetition-table
            • Defdefparse-gen-option-table
            • Defdefparse-gen-group-table
            • Defdefparse-reorder-alternation
            • Defdefparse-order-permutationp
            • Defdefparse-gen-repetition-table-name
            • Defdefparse-gen-option-table-name
            • Defdefparse-gen-group-table-name
            • Defdefparse-alt-symbol-alist
            • Defdefparse-rep-symbol-alist
          • Defdefparse-fn
          • Defdefparse-input-processing
          • Defdefparse-table
          • Defdefparse-macro-definition
      • Defgrammar
      • Abnf-tree-utilities
      • Notation
      • Grammar-parser
      • Meta-circular-validation
      • Parsing-primitives-defresult
      • Parsing-primitives-seq
      • Operations
      • Examples
      • Differences-with-paper
      • Grammar-printer
      • Parsing-tools
    • Vwsim
    • Isar
    • Wp-gen
    • Dimacs-reader
    • Pfcs
    • Legacy-defrstobj
    • Proof-checker-array
    • Soft
    • Farray
    • Rp-rewriter
    • Instant-runoff-voting
    • Imp-language
    • Sidekick
    • Leftist-trees
    • C
    • Java
    • Taspi
    • Bitcoin
    • Des
    • Ethereum
    • X86isa
    • Sha-2
    • Yul
    • Riscv
    • Zcash
    • Proof-checker-itp13
    • Regex
    • ACL2-programming-language
    • Json
    • Jfkr
    • Equational
    • Cryptography
    • Poseidon
    • Where-do-i-place-my-book
    • Bigmems
    • Builtins
    • Axe
    • Execloader
    • Solidity
    • Leo
    • Paco
    • Concurrent-programs
  • Debugging
  • Std
  • Proof-automation
  • Macro-libraries
  • ACL2
  • Interfacing-tools
  • Hardware-verification
  • Software-verification
  • Math
  • Testing-utilities

• 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)