• 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
      • Event-macros
      • Java
        • Atj
          • Atj-implementation
            • Atj-types
            • Atj-java-primitive-array-model
            • Atj-java-abstract-syntax
            • Atj-input-processing
            • Atj-java-pretty-printer
            • Atj-code-generation
              • Atj-gen-test-method
              • Atj-shallow-code-generation
              • Atj-common-code-generation
              • Atj-shallow-quoted-constant-generation
              • Atj-pre-translation
              • Atj-gen-everything
              • Atj-name-translation
              • Atj-gen-test-cunit
              • Atj-gen-test-class
              • Atj-gen-main-file
              • Atj-post-translation
              • Atj-deep-code-generation
              • Atj-gen-test-methods
              • Atj-gen-test-file
              • Atj-gen-env-file
              • Atj-gen-output-subdir
            • Atj-java-primitives
            • Atj-java-primitive-arrays
            • Atj-type-macros
            • Atj-java-syntax-operations
            • Atj-fn
            • Atj-library-extensions
            • Atj-java-input-types
            • Atj-test-structures
            • Aij-notions
            • Atj-macro-definition
          • Atj-tutorial
        • Aij
        • Language
      • 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

• Atj-code-generation

Atj-gen-env-file

Generate the file whose code builds the ACL2 environment.

Signature

(atj-gen-env-file deep$ guards$ java-package$ 
                  java-class$ output-file-env$ 
                  pkgs fns-to-translate verbose$ state) 
 
  → 
state

Arguments

deep$ — Guard (booleanp deep$).

guards$ — Guard (booleanp guards$).

java-package$ — Guard (maybe-stringp java-package$).

java-class$ — Guard (stringp java-class$).

output-file-env$ — Guard (stringp output-file-env$).

pkgs — Guard (string-listp pkgs).

fns-to-translate — Guard (symbol-listp fns-to-translate).

verbose$ — Guard (booleanp verbose$).

Definitions and Theorems

Function: atj-gen-env-file

(defun atj-gen-env-file (deep$ guards$ java-package$
                               java-class$ output-file-env$
                               pkgs fns-to-translate verbose$ state)
 (declare (xargs :stobjs (state)))
 (declare (xargs :guard (and (booleanp deep$)
                             (booleanp guards$)
                             (maybe-stringp java-package$)
                             (stringp java-class$)
                             (stringp output-file-env$)
                             (string-listp pkgs)
                             (symbol-listp fns-to-translate)
                             (booleanp verbose$))))
 (declare (xargs :guard (no-duplicatesp-equal pkgs)))
 (let ((__function__ 'atj-gen-env-file))
  (declare (ignorable __function__))
  (b*
   ((wrld (w state))
    (cunit
      (if deep$
        (atj-gen-deep-env-cunit guards$ java-package$ java-class$
                                pkgs fns-to-translate verbose$ wrld)
        (atj-gen-shallow-env-cunit java-package$
                                   java-class$ pkgs verbose$)))
    ((unless (jcunitp cunit))
     (raise
          "Internal error: generated an invalid compilation unit.")
     state)
    ((run-when verbose$)
     (cw "~%Generate the environment Java file.~%")))
   (print-to-jfile (print-jcunit cunit)
                   output-file-env$ state))))