author | oheimb |
Tue, 02 Jan 2001 22:41:17 +0100 | |
changeset 10763 | 08e1610c1dcb |
parent 10061 | fe82134773dc |
child 10828 | b207d6d1bedc |
permissions | -rw-r--r-- |
8011 | 1 |
(* Title: HOL/MicroJava/J/Eval.thy |
2 |
ID: $Id$ |
|
3 |
Author: David von Oheimb |
|
4 |
Copyright 1999 Technische Universitaet Muenchen |
|
5 |
||
6 |
Operational evaluation (big-step) semantics of the |
|
7 |
execution of Java expressions and statements |
|
8 |
*) |
|
9 |
||
9346
297dcbf64526
re-structuring MicroJava; added Example; corrected := syntax; simplfied cast
oheimb
parents:
9240
diff
changeset
|
10 |
Eval = State + WellType + |
8011 | 11 |
|
12 |
consts |
|
10042 | 13 |
eval :: "java_mb prog => (xstate \\<times> expr \\<times> val \\<times> xstate) set" |
14 |
evals :: "java_mb prog => (xstate \\<times> expr list \\<times> val list \\<times> xstate) set" |
|
15 |
exec :: "java_mb prog => (xstate \\<times> stmt \\<times> xstate) set" |
|
8011 | 16 |
|
17 |
syntax |
|
10056 | 18 |
eval :: "[java_mb prog,xstate,expr,val,xstate] => bool " |
10061
fe82134773dc
added HTML syntax; added spaces in normal syntax for better documents
kleing
parents:
10056
diff
changeset
|
19 |
("_ \\<turnstile> _ -_\\<succ>_-> _" [51,82,82,82,82] 81) |
8082 | 20 |
evals:: "[java_mb prog,xstate,expr list, |
10056 | 21 |
val list,xstate] => bool " |
10061
fe82134773dc
added HTML syntax; added spaces in normal syntax for better documents
kleing
parents:
10056
diff
changeset
|
22 |
("_ \\<turnstile> _ -_[\\<succ>]_-> _" [51,82,51,51,82] 81) |
10056 | 23 |
exec :: "[java_mb prog,xstate,stmt, xstate] => bool " |
10061
fe82134773dc
added HTML syntax; added spaces in normal syntax for better documents
kleing
parents:
10056
diff
changeset
|
24 |
("_ \\<turnstile> _ -_-> _" [51,82,82,82] 81) |
fe82134773dc
added HTML syntax; added spaces in normal syntax for better documents
kleing
parents:
10056
diff
changeset
|
25 |
|
fe82134773dc
added HTML syntax; added spaces in normal syntax for better documents
kleing
parents:
10056
diff
changeset
|
26 |
syntax (HTML) |
fe82134773dc
added HTML syntax; added spaces in normal syntax for better documents
kleing
parents:
10056
diff
changeset
|
27 |
eval :: "[java_mb prog,xstate,expr,val,xstate] => bool " |
fe82134773dc
added HTML syntax; added spaces in normal syntax for better documents
kleing
parents:
10056
diff
changeset
|
28 |
("_ |- _ -_>_-> _" [51,82,82,82,82] 81) |
fe82134773dc
added HTML syntax; added spaces in normal syntax for better documents
kleing
parents:
10056
diff
changeset
|
29 |
evals:: "[java_mb prog,xstate,expr list, |
fe82134773dc
added HTML syntax; added spaces in normal syntax for better documents
kleing
parents:
10056
diff
changeset
|
30 |
val list,xstate] => bool " |
fe82134773dc
added HTML syntax; added spaces in normal syntax for better documents
kleing
parents:
10056
diff
changeset
|
31 |
("_ |- _ -_[>]_-> _" [51,82,51,51,82] 81) |
fe82134773dc
added HTML syntax; added spaces in normal syntax for better documents
kleing
parents:
10056
diff
changeset
|
32 |
exec :: "[java_mb prog,xstate,stmt, xstate] => bool " |
fe82134773dc
added HTML syntax; added spaces in normal syntax for better documents
kleing
parents:
10056
diff
changeset
|
33 |
("_ |- _ -_-> _" [51,82,82,82] 81) |
fe82134773dc
added HTML syntax; added spaces in normal syntax for better documents
kleing
parents:
10056
diff
changeset
|
34 |
|
8011 | 35 |
|
36 |
translations |
|
10042 | 37 |
"G\\<turnstile>s -e \\<succ> v-> (x,s')" <= "(s, e, v, x, s') \\<in> eval G" |
10056 | 38 |
"G\\<turnstile>s -e \\<succ> v-> s' " == "(s, e, v, s') \\<in> eval G" |
10042 | 39 |
"G\\<turnstile>s -e[\\<succ>]v-> (x,s')" <= "(s, e, v, x, s') \\<in> evals G" |
10056 | 40 |
"G\\<turnstile>s -e[\\<succ>]v-> s' " == "(s, e, v, s') \\<in> evals G" |
41 |
"G\\<turnstile>s -c -> (x,s')" <= "(s, c, x, s') \\<in> exec G" |
|
42 |
"G\\<turnstile>s -c -> s' " == "(s, c, s') \\<in> exec G" |
|
8011 | 43 |
|
44 |
inductive "eval G" "evals G" "exec G" intrs |
|
45 |
||
46 |
(* evaluation of expressions *) |
|
47 |
||
48 |
(* cf. 15.5 *) |
|
10056 | 49 |
XcptE "G\\<turnstile>(Some xc,s) -e\\<succ>arbitrary-> (Some xc,s)" |
8011 | 50 |
|
51 |
(* cf. 15.8.1 *) |
|
10056 | 52 |
NewC "[| h = heap s; (a,x) = new_Addr h; |
53 |
h'= h(a\\<mapsto>(C,init_vars (fields (G,C)))) |] ==> |
|
54 |
G\\<turnstile>Norm s -NewC C\\<succ>Addr a-> c_hupd h' (x,s)" |
|
8011 | 55 |
|
56 |
(* cf. 15.15 *) |
|
10056 | 57 |
Cast "[| G\\<turnstile>Norm s0 -e\\<succ>v-> (x1,s1); |
58 |
x2 = raise_if (\\<not> cast_ok G C (heap s1) v) ClassCast x1 |] ==> |
|
59 |
G\\<turnstile>Norm s0 -Cast C e\\<succ>v-> (x2,s1)" |
|
8011 | 60 |
|
61 |
(* cf. 15.7.1 *) |
|
10056 | 62 |
Lit "G\\<turnstile>Norm s -Lit v\\<succ>v-> Norm s" |
8011 | 63 |
|
10056 | 64 |
BinOp "[| G\\<turnstile>Norm s -e1\\<succ>v1-> s1; |
65 |
G\\<turnstile>s1 -e2\\<succ>v2-> s2; |
|
66 |
v = (case bop of Eq => Bool (v1 = v2) |
|
67 |
| Add => Intg (the_Intg v1 + the_Intg v2)) |] ==> |
|
68 |
G\\<turnstile>Norm s -BinOp bop e1 e2\\<succ>v-> s2" |
|
9240 | 69 |
|
8011 | 70 |
(* cf. 15.13.1, 15.2 *) |
10056 | 71 |
LAcc "G\\<turnstile>Norm s -LAcc v\\<succ>the (locals s v)-> Norm s" |
8011 | 72 |
|
73 |
(* cf. 15.25.1 *) |
|
10056 | 74 |
LAss "[| G\\<turnstile>Norm s -e\\<succ>v-> (x,(h,l)); |
75 |
l' = (if x = None then l(va\\<mapsto>v) else l) |] ==> |
|
76 |
G\\<turnstile>Norm s -va::=e\\<succ>v-> (x,(h,l'))" |
|
8011 | 77 |
|
78 |
||
79 |
(* cf. 15.10.1, 15.2 *) |
|
10056 | 80 |
FAcc "[| G\\<turnstile>Norm s0 -e\\<succ>a'-> (x1,s1); |
81 |
v = the (snd (the (heap s1 (the_Addr a'))) (fn,T)) |] ==> |
|
82 |
G\\<turnstile>Norm s0 -{T}e..fn\\<succ>v-> (np a' x1,s1)" |
|
8011 | 83 |
|
84 |
(* cf. 15.25.1 *) |
|
10056 | 85 |
FAss "[| G\\<turnstile> Norm s0 -e1\\<succ>a'-> (x1,s1); a = the_Addr a'; |
86 |
G\\<turnstile>(np a' x1,s1) -e2\\<succ>v -> (x2,s2); |
|
87 |
h = heap s2; (c,fs) = the (h a); |
|
88 |
h' = h(a\\<mapsto>(c,(fs((fn,T)\\<mapsto>v)))) |] ==> |
|
89 |
G\\<turnstile>Norm s0 -{T}e1..fn:=e2\\<succ>v-> c_hupd h' (x2,s2)" |
|
8011 | 90 |
|
91 |
(* cf. 15.11.4.1, 15.11.4.2, 15.11.4.4, 15.11.4.5, 14.15 *) |
|
10056 | 92 |
Call "[| G\\<turnstile>Norm s0 -e\\<succ>a'-> s1; a = the_Addr a'; |
93 |
G\\<turnstile>s1 -ps[\\<succ>]pvs-> (x,(h,l)); dynT = fst (the (h a)); |
|
94 |
(md,rT,pns,lvars,blk,res) = the (method (G,dynT) (mn,pTs)); |
|
95 |
G\\<turnstile>(np a' x,(h,(init_vars lvars)(pns[\\<mapsto>]pvs)(This\\<mapsto>a'))) -blk-> s3; |
|
96 |
G\\<turnstile> s3 -res\\<succ>v -> (x4,s4) |] ==> |
|
10763 | 97 |
G\\<turnstile>Norm s0 -{C}e..mn({pTs}ps)\\<succ>v-> (x4,(heap s4,l))" |
8011 | 98 |
|
99 |
||
100 |
(* evaluation of expression lists *) |
|
101 |
||
102 |
(* cf. 15.5 *) |
|
10056 | 103 |
XcptEs "G\\<turnstile>(Some xc,s) -e[\\<succ>]arbitrary-> (Some xc,s)" |
8011 | 104 |
|
105 |
(* cf. 15.11.??? *) |
|
10056 | 106 |
Nil "G\\<turnstile>Norm s0 -[][\\<succ>][]-> Norm s0" |
8011 | 107 |
|
108 |
(* cf. 15.6.4 *) |
|
10056 | 109 |
Cons "[| G\\<turnstile>Norm s0 -e \\<succ> v -> s1; |
110 |
G\\<turnstile> s1 -es[\\<succ>]vs-> s2 |] ==> |
|
111 |
G\\<turnstile>Norm s0 -e#es[\\<succ>]v#vs-> s2" |
|
8011 | 112 |
|
113 |
(* execution of statements *) |
|
114 |
||
115 |
(* cf. 14.1 *) |
|
10056 | 116 |
XcptS "G\\<turnstile>(Some xc,s) -s0-> (Some xc,s)" |
8011 | 117 |
|
118 |
(* cf. 14.5 *) |
|
10056 | 119 |
Skip "G\\<turnstile>Norm s -Skip-> Norm s" |
8011 | 120 |
|
121 |
(* cf. 14.7 *) |
|
10056 | 122 |
Expr "[| G\\<turnstile>Norm s0 -e\\<succ>v-> s1 |] ==> |
123 |
G\\<turnstile>Norm s0 -Expr e-> s1" |
|
8011 | 124 |
|
125 |
(* cf. 14.2 *) |
|
10056 | 126 |
Comp "[| G\\<turnstile>Norm s0 -s -> s1; |
127 |
G\\<turnstile> s1 -t -> s2|] ==> |
|
128 |
G\\<turnstile>Norm s0 -(s;; t)-> s2" |
|
8011 | 129 |
|
130 |
(* cf. 14.8.2 *) |
|
10056 | 131 |
Cond "[| G\\<turnstile>Norm s0 -e \\<succ>v-> s1; |
132 |
G\\<turnstile> s1 -(if the_Bool v then s else t)-> s2|] ==> |
|
133 |
G\\<turnstile>Norm s0 -(If(e) s Else t)-> s2" |
|
8011 | 134 |
|
135 |
(* cf. 14.10, 14.10.1 *) |
|
10056 | 136 |
Loop "[| G\\<turnstile>Norm s0 -(If(e) (s;; While(e) s) Else Skip)-> s1 |] ==> |
137 |
G\\<turnstile>Norm s0 -(While(e) s)-> s1" |
|
8011 | 138 |
|
139 |
end |