• Top
  • Documentation
  • Books
  • Boolean-reasoning
  • Projects
    • Apt
    • Zfc
    • Acre
    • Milawa
    • Smtlink
    • 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-function-for-repetition
            • Defdefparse-gen-code-for-concatenation
            • 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
      • Tree-utilities
      • Notation
      • Grammar-parser
      • Meta-circular-validation
      • Parsing-primitives-defresult
      • Parsing-primitives-seq
      • Operations
      • Examples
      • Differences-with-paper
      • Constructor-utilities
      • Grammar-printer
      • Parsing-tools
    • Vwsim
    • Isar
    • Pfcs
    • Wp-gen
    • Dimacs-reader
    • Legacy-defrstobj
    • Proof-checker-array
    • Soft
    • C
    • Farray
    • Rp-rewriter
    • Instant-runoff-voting
    • Imp-language
    • Sidekick
    • Leftist-trees
    • Java
    • Taspi
    • Riscv
    • Bitcoin
    • Des
    • Ethereum
    • X86isa
    • Sha-2
    • Yul
    • Zcash
    • Proof-checker-itp13
    • Regex
    • ACL2-programming-language
    • Json
    • Jfkr
    • Equational
    • Cryptography
    • Poseidon
    • Where-do-i-place-my-book
    • Axe
    • Aleo
    • Bigmems
    • Builtins
    • Execloader
    • Solidity
    • Paco
    • Concurrent-programs
    • Bls12-377-curves
  • Debugging
  • Std
  • Community
  • Proof-automation
  • Macro-libraries
  • ACL2
  • Interfacing-tools
  • Hardware-verification
  • Software-verification
  • Math
  • Testing-utilities

• Defdefparse-event-generation

Defdefparse-gen-option-table-macro

Generate the defparse-name-option-table described in the defdefparse user documentation.

Signature

(defdefparse-gen-option-table-macro name pkg-wit table-name prefix) 
  → 
event

Arguments

name — Guard (common-lisp::symbolp name).

pkg-wit — Guard (common-lisp::symbolp pkg-wit).

table-name — Guard (common-lisp::symbolp table-name).

prefix — Guard (common-lisp::symbolp prefix).

Returns

event — Type (pseudo-event-formp event).

Definitions and Theorems

Function: defdefparse-gen-option-table-macro

(defun defdefparse-gen-option-table-macro
       (name pkg-wit table-name prefix)
 (declare (xargs :guard (and (common-lisp::symbolp name)
                             (common-lisp::symbolp pkg-wit)
                             (common-lisp::symbolp table-name)
                             (common-lisp::symbolp prefix))))
 (let ((__function__ 'defdefparse-gen-option-table-macro))
  (declare (ignorable __function__))
  (b* ((macro-name (packn-pos (list 'defparse- name '-option-table)
                              pkg-wit)))
   (cons
    'defmacro
    (cons
     macro-name
     (cons
      '(&rest args)
      (cons
       (cons
        'cons
        (cons
         ''make-event
         (cons
          (cons
           'cons
           (cons
            (cons
             'cons
             (cons
              ''defdefparse-gen-option-table
              (cons
               (cons
                'cons
                (cons
                 '(cons 'quote (cons args 'nil))
                 (cons
                  (cons
                   'cons
                   (cons
                    (cons
                     'cons
                     (cons
                      ''quote
                      (cons
                        (cons 'cons
                              (cons (cons 'quote (cons prefix 'nil))
                                    '('nil)))
                        'nil)))
                    (cons
                     (cons
                      'cons
                      (cons
                       (cons
                        'cons
                        (cons
                         ''quote
                         (cons
                          (cons
                           'cons
                           (cons
                                (cons 'quote (cons table-name 'nil))
                                '('nil)))
                          'nil)))
                       '('nil)))
                     'nil)))
                  'nil)))
               'nil)))
            '('nil)))
          'nil)))
       'nil)))))))

Theorem: pseudo-event-formp-of-defdefparse-gen-option-table-macro

(defthm pseudo-event-formp-of-defdefparse-gen-option-table-macro
  (b* ((event (defdefparse-gen-option-table-macro
                   name pkg-wit table-name prefix)))
    (pseudo-event-formp event))
  :rule-classes :rewrite)