author | oheimb |
Mon, 03 Jan 2000 14:07:08 +0100 | |
changeset 8082 | 381716a86fcb |
parent 8034 | 6fc37b5c5e98 |
child 9240 | f4d76cb26433 |
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 |
||
10 |
Eval = State + |
|
11 |
||
12 |
consts |
|
8082 | 13 |
eval :: "java_mb prog \\<Rightarrow> (xstate \\<times> expr \\<times> val \\<times> xstate) set" |
14 |
evals :: "java_mb prog \\<Rightarrow> (xstate \\<times> expr list \\<times> val list \\<times> xstate) set" |
|
15 |
exec :: "java_mb prog \\<Rightarrow> (xstate \\<times> stmt \\<times> xstate) set" |
|
8011 | 16 |
|
17 |
syntax |
|
8082 | 18 |
eval :: "[java_mb prog,xstate,expr,val,xstate] \\<Rightarrow> bool "("_\\<turnstile>_ -_\\<succ>_\\<rightarrow> _"[51,82,82,82,82]81) |
19 |
evals:: "[java_mb prog,xstate,expr list, |
|
8011 | 20 |
val list,xstate] \\<Rightarrow> bool "("_\\<turnstile>_ -_[\\<succ>]_\\<rightarrow> _"[51,82,51,51,82]81) |
8082 | 21 |
exec :: "[java_mb prog,xstate,stmt, xstate] \\<Rightarrow> bool "("_\\<turnstile>_ -_\\<rightarrow> _" [51,82,82, 82]81) |
8011 | 22 |
|
23 |
translations |
|
24 |
"G\\<turnstile>s -e \\<succ> v\\<rightarrow> (x,s')" == "(s, e, v, _args x s') \\<in> eval G" |
|
25 |
"G\\<turnstile>s -e \\<succ> v\\<rightarrow> s' " == "(s, e, v, s') \\<in> eval G" |
|
26 |
"G\\<turnstile>s -e[\\<succ>]v\\<rightarrow> (x,s')" == "(s, e, v, _args x s') \\<in> evals G" |
|
27 |
"G\\<turnstile>s -e[\\<succ>]v\\<rightarrow> s' " == "(s, e, v, s') \\<in> evals G" |
|
28 |
"G\\<turnstile>s -c \\<rightarrow> (x,s')" == "(s, c, _args x s') \\<in> exec G" |
|
29 |
"G\\<turnstile>s -c \\<rightarrow> s' " == "(s, c, s') \\<in> exec G" |
|
30 |
||
31 |
inductive "eval G" "evals G" "exec G" intrs |
|
32 |
||
33 |
(* evaluation of expressions *) |
|
34 |
||
35 |
(* cf. 15.5 *) |
|
36 |
XcptE "G\\<turnstile>(Some xc,s) -e\\<succ>arbitrary\\<rightarrow> (Some xc,s)" |
|
37 |
||
38 |
(* cf. 15.8.1 *) |
|
39 |
NewC "\\<lbrakk>h = heap s; (a,x) = new_Addr h; |
|
40 |
h'= h(a\\<mapsto>(C,init_vars (fields (G,C))))\\<rbrakk> \\<Longrightarrow> |
|
41 |
G\\<turnstile>Norm s -NewC C\\<succ>Addr a\\<rightarrow> c_hupd h' (x,s)" |
|
42 |
||
43 |
(* cf. 15.15 *) |
|
44 |
Cast "\\<lbrakk>G\\<turnstile>Norm s0 -e\\<succ>v\\<rightarrow> (x1,s1); |
|
45 |
x2=raise_if (\\<not> cast_ok G T (heap s1) v) ClassCast x1\\<rbrakk> \\<Longrightarrow> |
|
46 |
G\\<turnstile>Norm s0 -Cast T e\\<succ>v\\<rightarrow> (x2,s1)" |
|
47 |
||
48 |
(* cf. 15.7.1 *) |
|
49 |
Lit "G\\<turnstile>Norm s -Lit v\\<succ>v\\<rightarrow> Norm s" |
|
50 |
||
51 |
(* cf. 15.13.1, 15.2 *) |
|
52 |
LAcc "G\\<turnstile>Norm s -LAcc v\\<succ>the (locals s v)\\<rightarrow> Norm s" |
|
53 |
||
54 |
(* cf. 15.25.1 *) |
|
55 |
LAss "\\<lbrakk>G\\<turnstile>Norm s -e\\<succ>v\\<rightarrow> (x,(h,l)); |
|
56 |
l' = (if x = None then l(va\\<mapsto>v) else l)\\<rbrakk> \\<Longrightarrow> |
|
57 |
G\\<turnstile>Norm s -va\\<Colon>=e\\<succ>v\\<rightarrow> (x,(h,l'))" |
|
58 |
||
59 |
||
60 |
(* cf. 15.10.1, 15.2 *) |
|
61 |
FAcc "\\<lbrakk>G\\<turnstile>Norm s0 -e\\<succ>a'\\<rightarrow> (x1,s1); |
|
62 |
v = the (snd (the (heap s1 (the_Addr a'))) (fn,T))\\<rbrakk> \\<Longrightarrow> |
|
63 |
G\\<turnstile>Norm s0 -{T}e..fn\\<succ>v\\<rightarrow> (np a' x1,s1)" |
|
64 |
||
65 |
(* cf. 15.25.1 *) |
|
66 |
FAss "\\<lbrakk>G\\<turnstile> Norm s0 -e1\\<succ>a'\\<rightarrow> (x1,s1); a = the_Addr a'; |
|
67 |
G\\<turnstile>(np a' x1,s1) -e2\\<succ>v \\<rightarrow> (x2,s2); |
|
68 |
h = heap s2; (c,fs) = the (h a); |
|
69 |
h' = h(a\\<mapsto>(c,(fs((fn,T)\\<mapsto>v))))\\<rbrakk> \\<Longrightarrow> |
|
70 |
G\\<turnstile>Norm s0 -{T}e1..fn\\<in>=e2\\<succ>v\\<rightarrow> c_hupd h' (x2,s2)" |
|
71 |
||
72 |
(* cf. 15.11.4.1, 15.11.4.2, 15.11.4.4, 15.11.4.5, 14.15 *) |
|
73 |
Call "\\<lbrakk>G\\<turnstile>Norm s0 -e\\<succ>a'\\<rightarrow> s1; a = the_Addr a'; |
|
74 |
G\\<turnstile>s1 -ps[\\<succ>]pvs\\<rightarrow> (x,(h,l)); dynT = fst (the (h a)); |
|
8034
6fc37b5c5e98
Various little changes like cmethd -> method and cfield -> field.
nipkow
parents:
8011
diff
changeset
|
75 |
(md,rT,pns,lvars,blk,res) = the (method (G,dynT) (mn,pTs)); |
8011 | 76 |
G\\<turnstile>(np a' x,(h,(init_vars lvars)(pns[\\<mapsto>]pvs)(This\\<mapsto>a'))) -blk\\<rightarrow> s3; |
77 |
G\\<turnstile> s3 -res\\<succ>v \\<rightarrow> (x4,s4)\\<rbrakk> \\<Longrightarrow> |
|
78 |
G\\<turnstile>Norm s0 -e..mn({pTs}ps)\\<succ>v\\<rightarrow> (x4,(heap s4,l))" |
|
79 |
||
80 |
||
81 |
(* evaluation of expression lists *) |
|
82 |
||
83 |
(* cf. 15.5 *) |
|
84 |
XcptEs "G\\<turnstile>(Some xc,s) -e[\\<succ>]arbitrary\\<rightarrow> (Some xc,s)" |
|
85 |
||
86 |
(* cf. 15.11.??? *) |
|
87 |
Nil |
|
88 |
"G\\<turnstile>Norm s0 -[][\\<succ>][]\\<rightarrow> Norm s0" |
|
89 |
||
90 |
(* cf. 15.6.4 *) |
|
91 |
Cons "\\<lbrakk>G\\<turnstile>Norm s0 -e \\<succ> v \\<rightarrow> s1; |
|
92 |
G\\<turnstile> s1 -es[\\<succ>]vs\\<rightarrow> s2\\<rbrakk> \\<Longrightarrow> |
|
93 |
G\\<turnstile>Norm s0 -e#es[\\<succ>]v#vs\\<rightarrow> s2" |
|
94 |
||
95 |
(* execution of statements *) |
|
96 |
||
97 |
(* cf. 14.1 *) |
|
98 |
XcptS "G\\<turnstile>(Some xc,s) -s0\\<rightarrow> (Some xc,s)" |
|
99 |
||
100 |
(* cf. 14.5 *) |
|
101 |
Skip "G\\<turnstile>Norm s -Skip\\<rightarrow> Norm s" |
|
102 |
||
103 |
(* cf. 14.7 *) |
|
104 |
Expr "\\<lbrakk>G\\<turnstile>Norm s0 -e\\<succ>v\\<rightarrow> s1\\<rbrakk> \\<Longrightarrow> |
|
105 |
G\\<turnstile>Norm s0 -Expr e\\<rightarrow> s1" |
|
106 |
||
107 |
(* cf. 14.2 *) |
|
108 |
Comp "\\<lbrakk>G\\<turnstile>Norm s0 -s \\<rightarrow> s1; |
|
109 |
G\\<turnstile> s1 -t \\<rightarrow> s2\\<rbrakk> \\<Longrightarrow> |
|
110 |
G\\<turnstile>Norm s0 -(s;; t)\\<rightarrow> s2" |
|
111 |
||
112 |
(* cf. 14.8.2 *) |
|
113 |
Cond "\\<lbrakk>G\\<turnstile>Norm s0 -e \\<succ>v\\<rightarrow> s1; |
|
114 |
G\\<turnstile> s1 -(if the_Bool v then s else t)\\<rightarrow> s2\\<rbrakk> \\<Longrightarrow> |
|
115 |
G\\<turnstile>Norm s0 -(If(e) s Else t)\\<rightarrow> s2" |
|
116 |
||
117 |
(* cf. 14.10, 14.10.1 *) |
|
118 |
Loop "\\<lbrakk>G\\<turnstile>Norm s0 -(If(e) (s;; While(e) s) Else Skip)\\<rightarrow> s1\\<rbrakk> \\<Longrightarrow> |
|
119 |
G\\<turnstile>Norm s0 -(While(e) s)\\<rightarrow> s1" |
|
120 |
||
121 |
end |