File: wff-data-structure.lisp

package info (click to toggle)
acl2 8.6%2Bdfsg-2
  • links: PTS
  • area: main
  • in suites: trixie
  • size: 1,111,420 kB
  • sloc: lisp: 17,818,294; java: 125,359; python: 28,122; javascript: 23,458; cpp: 18,851; ansic: 11,569; perl: 7,678; xml: 5,591; sh: 3,976; makefile: 3,833; ruby: 2,633; yacc: 1,126; ml: 763; awk: 295; csh: 233; lex: 197; php: 178; tcl: 49; asm: 23; haskell: 17
file content (58 lines) | stat: -rw-r--r-- 2,164 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
(in-package "JVM")
(include-book "../M6-DJVM-shared/jvm-state")
(include-book "../M6-DJVM-shared/jvm-thread")
(include-book "../M6-DJVM-shared/jvm-frame-manipulation-primitives")

;----------------------------------------------------------------------

(defun wff-method-ptr-regular (method-ptr)
  (and (wff-method-ptr method-ptr)
       (equal (make-method-ptr (method-ptr-classname method-ptr)
                               (method-ptr-methodname method-ptr) 
                               (method-ptr-args-type  method-ptr)
                               (method-ptr-returntype method-ptr))
              method-ptr)))

(defun wff-call-frame-regular (frame)
  (and (wff-call-frame frame)
       (equal (make-frame (return-pc frame)
                          (operand-stack frame)
                          (locals frame)
                          (method-ptr frame)
                          (sync-obj-ref frame)
                          (resume-pc frame)
                          (frame-aux frame))
              frame)))

(defun wff-call-stack-regular (cs)
  (wff-call-stack cs))

(defun wff-thread-regular (thread)
  (and (wff-thread thread)
       (equal (make-thread (thread-id thread)
                           (thread-saved-pc thread)
                           (thread-call-stack thread)
                           (thread-state thread)
                           (thread-mref thread)
                           (thread-mdepth thread)
                           (thread-ref thread))
              thread)))

(defun wff-thread-table-regular (thread-table)
  (if (not (consp thread-table)) t
    (and (wff-thread-regular (car thread-table))
         (wff-thread-table-regular (cdr thread-table)))))

(defun wff-state-regular (s)
  (and (wff-state s)
       (equal (make-state (pc s)
                          (current-thread s)
                          (heap s)
                          (thread-table s)
                          (class-table s)
                          (env s)
                          (error-flag s)
                          (aux s))
              s)))

;----------------------------------------------------------------------