• Top
  • Documentation
  • Books
  • Boolean-reasoning
  • Projects
  • Debugging
  • Std
  • Proof-automation
  • Macro-libraries
  • ACL2
  • Interfacing-tools
    • Io
    • Defttag
    • Sys-call
    • Save-exec
    • Quicklisp
    • Std/io
    • Oslib
      • File-types
        • File-kind
        • Regular-files
        • Missing-paths
        • Existing-paths
        • Directories
        • Path-exists-p
        • Regular-file-p
        • Paths-all-missing-p
        • Directory-p
        • Regular-files-p
        • Paths-all-exist-p
        • Directories-p
        • File-kind-p
        • Regular-files-exec
        • Missing-paths-exec
        • Existing-paths-exec
        • Directories-exec
      • Argv
      • Copy
      • Catpath
      • Ls
      • Universal-time
      • Tempfile
      • Basename
      • Dirname
      • Copy!
      • Ls-files
      • Mkdir
      • Rmtree
      • Lisp-version
      • Lisp-type
      • Ls-subdirs
      • Date
      • Getpid
      • Dirnames
      • Basenames
      • Basename!
      • Ls-subdirs!
      • Ls-files!
      • Dirname!
      • Ls!
      • Catpaths
      • Mkdir!
      • Rmtree!
      • Remove-nonstrings
    • Bridge
    • Clex
    • Tshell
    • Unsound-eval
    • Hacker
    • ACL2s-interface
    • Startup-banner
    • Command-line
  • Hardware-verification
  • Software-verification
  • Math
  • Testing-utilities

• File-types

Regular-files

Collect paths that are regular files.

Signature

(regular-files paths &key (state 'state)) 
  → 
(mv err ans new-state)

Arguments

paths — Guard (string-listp paths).

Returns

err — NIL on success, or an error msg on failure.

ans — Meaningful only when there is no error.
    Type (string-listp ans), given (string-listp paths).

new-state — Type (state-p1 new-state), given (force (state-p1 state)).

Definitions and Theorems

Function: regular-files-exec-fn

(defun regular-files-exec-fn (paths acc state)
  (declare (xargs :stobjs (state)))
  (declare (xargs :guard (string-listp paths)))
  "Tail recursive version for execution."
  (let ((__function__ 'regular-files-exec))
    (declare (ignorable __function__))
    (b* (((when (atom paths)) (mv nil acc state))
         ((mv err regular-p state)
          (regular-file-p (car paths)))
         ((when err) (mv err acc state))
         (acc (if regular-p (cons (car paths) acc)
                acc)))
      (regular-files-exec (cdr paths) acc))))

Function: regular-files-fn

(defun regular-files-fn (paths state)
  (declare (xargs :stobjs (state)))
  (declare (xargs :guard (string-listp paths)))
  (let ((__function__ 'regular-files))
    (declare (ignorable __function__))
    (mbe :logic
         (b* (((when (atom paths)) (mv nil nil state))
              ((mv err regular-p state)
               (regular-file-p (car paths)))
              ((when err) (mv err nil state))
              ((mv err rest state)
               (regular-files (cdr paths)))
              (ans (if regular-p (cons (car paths) rest)
                     rest)))
           (mv err ans state))
         :exec
         (b* (((mv err acc state)
               (regular-files-exec paths nil)))
           (mv err (reverse acc) state)))))

Theorem: string-listp-of-regular-files.ans

(defthm string-listp-of-regular-files.ans
  (implies (string-listp paths)
           (b* (((mv ?err ?ans ?new-state)
                 (regular-files-fn paths state)))
             (string-listp ans)))
  :rule-classes :rewrite)

Theorem: state-p1-of-regular-files.new-state

(defthm state-p1-of-regular-files.new-state
  (implies (force (state-p1 state))
           (b* (((mv ?err ?ans ?new-state)
                 (regular-files-fn paths state)))
             (state-p1 new-state)))
  :rule-classes :rewrite)

Theorem: regular-files-exec-removal

(defthm regular-files-exec-removal
  (equal (regular-files-exec paths acc)
         (b* (((mv err ans state)
               (regular-files paths)))
           (mv err (revappend ans acc) state))))

Theorem: true-listp-of-regular-files

(defthm true-listp-of-regular-files
  (true-listp (mv-nth 1 (regular-files paths)))
  :rule-classes :type-prescription)

Theorem: w-state-of-regular-files

(defthm w-state-of-regular-files
  (b* (((mv ?err ?ans ?new-state)
        (regular-files-fn paths state)))
    (equal (w new-state) (w state))))