• Top
  • Documentation
  • Books
  • Boolean-reasoning
  • Projects
  • Debugging
  • Std
  • Proof-automation
  • Macro-libraries
  • ACL2
  • Interfacing-tools
  • Hardware-verification
  • Software-verification
    • Kestrel-books
      • Crypto-hdwallet
      • Apt
      • Error-checking
      • Fty-extensions
      • Isar
      • Kestrel-utilities
      • Soft
      • Bv
      • Imp-language
      • C
        • Syntax-for-tools
        • Atc
        • Language
        • Representation
        • Transformation-tools
          • Deftrans
            • Deftrans-defn-expr
            • Deftrans-core
            • Deftrans-defn-type-spec
            • Deftrans-defn-stmt
            • Deftrans-defn-dirdeclor
            • Deftrans-defn-dirabsdeclor
            • Deftrans-filepath
            • Deftrans-defn-structdecl
            • Deftrans-defn-member-designor
            • Deftrans-defn-fundef
            • Deftrans-defn-decl-spec
            • Deftrans-parse-keywords
            • Deftrans-defn-paramdeclor
            • 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-paramdecl-list
            • Deftrans-defn-paramdecl
            • 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-mk-names0
            • Deftrans-cases
            • Deftrans-defn-ident
            • Deftrans-defn-const
            • Take-pairs
            • Deftrans-macro
            • Deftrans-get-args
          • Simpadd0
          • Split-fn
          • Copy-fn
          • Specialize
          • Rename
          • Splitgso
          • Utilities
        • Pack
      • Event-macros
      • Java
      • Bitcoin
      • Ethereum
      • Yul
      • Zcash
      • ACL2-programming-language
      • Prime-fields
      • Json
      • Syntheto
      • File-io-light
      • Number-theory
      • Cryptography
      • Lists-light
      • Builtins
      • Axe
      • Solidity
      • Helpers
      • Htclient
      • Typed-lists-light
      • Arithmetic-light
    • X86isa
    • Axe
    • Execloader
  • Math
  • Testing-utilities

• Deftrans

Deftrans-filepath

Signature

(deftrans-filepath path name) → new-path

Arguments

path — Guard (filepathp path).

name — Guard (stringp name).

Returns

new-path — Type (filepathp new-path).

Definitions and Theorems

Function: deftrans-filepath

(defun deftrans-filepath (path name)
 (declare (xargs :guard (and (filepathp path) (stringp name))))
 (let ((__function__ 'deftrans-filepath))
   (declare (ignorable __function__))
   (b* ((string (filepath->unwrap path))
        ((unless (stringp string))
         (raise "Misusage error: file path ~x0 is not a string."
                string)
         (filepath "irrelevant"))
        (chars (acl2::explode string))
        (dot-pos-in-rev (index-of #\. (rev chars)))
        (name-chars (acl2::explode name))
        ((when (not dot-pos-in-rev))
         (filepath
              (acl2::implode (append chars (cons #\. name-chars)))))
        (last-dot-pos (- (len chars) dot-pos-in-rev))
        (new-chars (append (take last-dot-pos chars)
                           name-chars (list #\.)
                           (nthcdr last-dot-pos chars)))
        (new-string (acl2::implode new-chars)))
     (filepath new-string))))

Theorem: filepathp-of-deftrans-filepath

(defthm filepathp-of-deftrans-filepath
  (b* ((new-path (deftrans-filepath path name)))
    (filepathp new-path))
  :rule-classes :rewrite)

Theorem: deftrans-filepath-of-filepath-fix-path

(defthm deftrans-filepath-of-filepath-fix-path
  (equal (deftrans-filepath (c$::filepath-fix path)
                            name)
         (deftrans-filepath path name)))

Theorem: deftrans-filepath-filepath-equiv-congruence-on-path

(defthm deftrans-filepath-filepath-equiv-congruence-on-path
  (implies (c$::filepath-equiv path path-equiv)
           (equal (deftrans-filepath path name)
                  (deftrans-filepath path-equiv name)))
  :rule-classes :congruence)

Theorem: deftrans-filepath-of-str-fix-name

(defthm deftrans-filepath-of-str-fix-name
  (equal (deftrans-filepath path (acl2::str-fix name))
         (deftrans-filepath path name)))

Theorem: deftrans-filepath-streqv-congruence-on-name

(defthm deftrans-filepath-streqv-congruence-on-name
  (implies (acl2::streqv name name-equiv)
           (equal (deftrans-filepath path name)
                  (deftrans-filepath path name-equiv)))
  :rule-classes :congruence)