		Search-engine friendly clone of the ACL2 documentation.

Atj-input-processing

Atj-process-java-class

Process the :java-class input.

Signature
(atj-process-java-class java-class ctx state) → (mv erp java-class$ state)
Arguments: ctx — Guard (ctxp ctx).
Returns: java-class$ — Type (implies (not erp) (stringp java-class$)).

Definitions and Theorems

Function: atj-process-java-class

(defun atj-process-java-class (java-class ctx state)
 (declare (xargs :stobjs (state)))
 (declare (xargs :guard (ctxp ctx)))
 (let ((__function__ 'atj-process-java-class))
  (declare (ignorable __function__))
  (b*
   (((er &)
     (ensure-string-or-nil$ java-class
                            "The :JAVA-CLASS input" t nil))
    ((unless (or (null java-class)
                 (atj-string-ascii-java-identifier-p java-class)))
     (er-soft+
      ctx t nil
      "The :JAVA-CLASS input ~x0 is not ~
                   NIL or a valid Java class name ~
                   consisting of only ASCII characters."
      java-class))
    (name (or java-class *atj-default-java-class*)))
   (value name))))

Theorem: return-type-of-atj-process-java-class.java-class$

(defthm return-type-of-atj-process-java-class.java-class$
  (b* (((mv ?erp ?java-class$ acl2::?state)
        (atj-process-java-class java-class ctx state)))
    (implies (not erp)
             (stringp java-class$)))
  :rule-classes :rewrite)