• Top
  • Documentation
  • Books
  • Boolean-reasoning
  • Projects
    • Apt
    • Zfc
    • Acre
    • Milawa
    • Smtlink
    • Abnf
    • Vwsim
    • Isar
    • Wp-gen
    • Dimacs-reader
    • Pfcs
    • Legacy-defrstobj
    • Proof-checker-array
    • Soft
    • C
      • Syntax-for-tools
      • Atc
      • Language
      • Representation
      • Transformation-tools
        • Simpadd0
        • Deftrans
          • Deftrans-defn-expr
          • Deftrans-core
          • Deftrans-defn-type-spec
          • Deftrans-defn-stmt
          • Deftrans-defn-dirdeclor
          • Deftrans-defn-dirabsdeclor
          • Deftrans-defn-structdecl
          • Deftrans-defn-member-designor
          • Deftrans-defn-fundef
          • Deftrans-defn-decl-spec
          • Deftrans-parse-keywords
          • Deftrans-defn-param-declor
          • Deftrans-defn-spec/qual
          • Deftrans-defn-initdeclor
          • Deftrans-defn-genassoc
          • Deftrans-defn-decl
          • Deftrans-defn-block-item
          • Deftrans-defn-align-spec
          • Deftrans-mk-names
          • Deftrans-defn-structdeclor-list
          • Deftrans-defn-structdeclor
          • Deftrans-defn-structdecl-list
          • Deftrans-defn-spec/qual-list
          • Deftrans-defn-param-declon-list
          • Deftrans-defn-param-declon
          • Deftrans-defn-label
          • Deftrans-defn-initer
          • Deftrans-defn-initdeclor-list
          • Deftrans-defn-genassoc-list
          • Deftrans-defn-extdecl-list
          • Deftrans-defn-extdecl
          • Deftrans-defn-desiniter-list
          • Deftrans-defn-desiniter
          • Deftrans-defn-designor-list
          • Deftrans-defn-decl-spec-list
          • Deftrans-defn-block-item-list
          • Deftrans-defn
          • Deftrans-defn-tyname
          • Deftrans-defn-strunispec
          • Deftrans-defn-statassert
          • Deftrans-defn-initer-option
          • Deftrans-defn-ident-list
          • Deftrans-defn-expr-list
          • Deftrans-defn-enumspec
          • Deftrans-defn-enumer-list
          • Deftrans-defn-enumer
          • Deftrans-defn-dirabsdeclor-option
          • Deftrans-defn-designor
          • Deftrans-defn-declor-option
          • Deftrans-defn-declor
          • Deftrans-defn-decl-list
          • Deftrans-defn-const-expr-option
          • Deftrans-defn-const-expr
          • Deftrans-defn-absdeclor-option
          • Deftrans-defn-absdeclor
          • Deftrans-defn-transunit
          • Deftrans-defn-expr-option
          • Deftrans-cases
          • Deftrans-mk-names0
          • Deftrans-defn-ident
          • Deftrans-defn-const
          • Take-pairs
          • Deftrans-macro
          • Deftrans-get-args
        • Splitgso
        • Constant-propagation
        • Split-fn
        • Copy-fn
        • Specialize
        • Split-all-gso
        • Rename
        • Utilities
      • Insertion-sort
      • Pack
    • Farray
    • Rp-rewriter
    • Instant-runoff-voting
    • Imp-language
    • Sidekick
    • Leftist-trees
    • Java
    • Taspi
    • Bitcoin
    • Riscv
    • 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
    • Bigmems
    • Builtins
    • Execloader
    • Aleo
    • Solidity
    • Paco
    • Concurrent-programs
    • Bls12-377-curves
  • Debugging
  • Std
  • Proof-automation
  • Macro-libraries
  • ACL2
  • Interfacing-tools
  • Hardware-verification
  • Software-verification
  • Math
  • Testing-utilities

• Deftrans

Deftrans-defn-dirdeclor

Signature

(deftrans-defn-dirdeclor names bodies extra-args extra-args-names) 
  → 
*

Arguments

names — Guard (alistp names).

bodies — Guard (alistp bodies).

extra-args — Guard (true-listp extra-args).

extra-args-names — Guard (true-listp extra-args-names).

Definitions and Theorems

Function: deftrans-defn-dirdeclor

(defun deftrans-defn-dirdeclor
       (names bodies extra-args extra-args-names)
 (declare (xargs :guard (and (alistp names)
                             (alistp bodies)
                             (true-listp extra-args)
                             (true-listp extra-args-names))))
 (let ((__function__ 'deftrans-defn-dirdeclor))
  (declare (ignorable __function__))
  (deftrans-defn
   'dirdeclor
   names bodies '((dirdeclor dirdeclorp))
   extra-args
   (cons
    'dirdeclor-case
    (cons
     'dirdeclor
     (cons
      ':ident
      (cons
       (cons 'dirdeclor-ident
             (cons (cons (cdr (assoc-eq 'ident names))
                         (cons 'dirdeclor.ident
                               extra-args-names))
                   'nil))
       (cons
        ':paren
        (cons
         (cons 'dirdeclor-paren
               (cons (cons (cdr (assoc-eq 'declor names))
                           (cons 'dirdeclor.inner
                                 extra-args-names))
                     'nil))
         (cons
          ':array
          (cons
           (cons
            'make-dirdeclor-array
            (cons
             ':declor
             (cons
              (cons (cdr (assoc-eq 'dirdeclor names))
                    (cons 'dirdeclor.declor
                          extra-args-names))
              (cons
               ':qualspecs
               (cons
                'dirdeclor.qualspecs
                (cons
                     ':size?
                     (cons (cons (cdr (assoc-eq 'expr-option names))
                                 (cons 'dirdeclor.size?
                                       extra-args-names))
                           'nil)))))))
           (cons
            ':array-static1
            (cons
             (cons
              'make-dirdeclor-array-static1
              (cons
               ':declor
               (cons
                (cons (cdr (assoc-eq 'dirdeclor names))
                      (cons 'dirdeclor.declor
                            extra-args-names))
                (cons
                 ':qualspecs
                 (cons
                  'dirdeclor.qualspecs
                  (cons
                   ':size
                   (cons
                      (cons (cdr (assoc-eq 'expr names))
                            (cons 'dirdeclor.size extra-args-names))
                      'nil)))))))
             (cons
              ':array-static2
              (cons
               (cons
                'make-dirdeclor-array-static2
                (cons
                 ':declor
                 (cons
                  (cons (cdr (assoc-eq 'dirdeclor names))
                        (cons 'dirdeclor.declor
                              extra-args-names))
                  (cons
                   ':qualspecs
                   (cons
                    'dirdeclor.qualspecs
                    (cons
                     ':size
                     (cons
                      (cons (cdr (assoc-eq 'expr names))
                            (cons 'dirdeclor.size extra-args-names))
                      'nil)))))))
               (cons
                ':array-star
                (cons
                 (cons
                  'make-dirdeclor-array-star
                  (cons
                       ':declor
                       (cons (cons (cdr (assoc-eq 'dirdeclor names))
                                   (cons 'dirdeclor.declor
                                         extra-args-names))
                             '(:qualspecs dirdeclor.qualspecs))))
                 (cons
                  ':function-params
                  (cons
                   (cons
                    'make-dirdeclor-function-params
                    (cons
                     ':declor
                     (cons
                      (cons (cdr (assoc-eq 'dirdeclor names))
                            (cons 'dirdeclor.declor
                                  extra-args-names))
                      (cons
                       ':params
                       (cons
                        (cons
                           (cdr (assoc-eq 'param-declon-list names))
                           (cons 'dirdeclor.params
                                 extra-args-names))
                        '(:ellipsis dirdeclor.ellipsis))))))
                   (cons
                    ':function-names
                    (cons
                     (cons
                      'make-dirdeclor-function-names
                      (cons
                       ':declor
                       (cons
                        (cons (cdr (assoc-eq 'dirdeclor names))
                              (cons 'dirdeclor.declor
                                    extra-args-names))
                        (cons
                         ':names
                         (cons
                            (cons (cdr (assoc-eq 'ident-list names))
                                  (cons 'dirdeclor.names
                                        extra-args-names))
                            'nil)))))
                     'nil))))))))))))))))))
   '(:returns (new-dirdeclor dirdeclorp)
              :measure (dirdeclor-count dirdeclor)))))