OBJ Code from CSE 230 Midterm of 11 Feb 99

*** the data types for the programming language
obj ZZ is pr INT .
  op  _is_ : Int Int -> Bool .
   
  var I J K L : Int .
  eq  I is I  =  true .
  eq  (I + J) is (K + J)  =  I is K .
  eq  (I - J) is (K - J)  =  I is K .
  cq  I is J  =  false   if  (I < J)  or  (J < I) .
  eq  I + - I  =  0 .
  eq  -(I + J)  =  - I + - J .
  eq  0 * I  =  0 .
  eq  - I * J  =  -(I * J) .
  eq  I - J  =  I + - J .
  eq  I * (J + K)  =  (I * J) + (I * K) .
  cq  I * J  =  I + (I * (J - 1))   if  0 < J .
  eq  (I + J) * K  =  (I * K) + (J * K) .
    
  eq  not(I <= J)  =  J < I .
  eq  not(I < J)  =  J <= I .
  eq  I + 1 <= J  =  I < J .
  eq  I < J + 1  =  I <= J .
  eq  I <= J + -1  =  I < J .
  eq  I <= J + - K  =  I + K <= J .
  eq  I < J + - K  =  I + K < J .
  eq  I + -1 < J  =  I <= J .
  eq  I <= I  =  true .
  eq  I < I  =  false .
  cq  I < I + J  =  true   if  0 < J .
  eq  I + -1 < I  =  true .
  cq  I + J < I  =  true   if  J < 0 .
  cq  I <= J  =  true   if  I < J .
  cq  I <= J + 1  =  true  if  I <= J .
  cq  I <= J + K  =  true  if  (I <= J)  and  (I <= K) .
  cq  I + J <= K + L  =  true  if  (I <= K)  and  (J <= L) .
endo
    
obj ARRAY is pr ZZ .
  sort Array .
  op  _[_] : Array Int -> Int [prec 5] .
  op  _[_<-_] : Array Int Int -> Array .
  var A : Array .
  var I J K : Int .
  eq  (A [ I <- J ])[I]  =  J .
  cq  (A [ I <- J ])[K]  =  A[K]    if  not(I is K) .
endo

*** ***********************************************
*** expressions ***
obj EXP is pr ZZ .
  dfn Var is QID .
  sorts  Exp .
  subsorts  Var Int < Exp .
  op  _+_  : Exp Exp -> Exp [prec 10] .
  op  _*_  : Exp Exp -> Exp [prec 8] .
  op   -_  : Exp -> Exp [prec 1] .
  op  _-_  : Exp Exp -> Exp [prec 10] .
endo 

*** tests ***
obj TST is pr EXP .
  sort Tst .
  subsort  Bool < Tst .
  op  _<_ : Exp Exp -> Tst [prec 15] .
  op  _<=_ : Exp Exp -> Tst [prec 15] .
  op  _is_ : Exp Exp -> Tst [prec 15] .
  op  not_ : Tst -> Tst [prec 1] .
  op  _and_ : Tst Tst -> Tst [prec 20] .
  op  _or_ : Tst Tst -> Tst [prec 25] .
endo  

*** basic programs ***
obj BPGM is pr TST .
  sort BPgm .  
  op  _:=_ : Var Exp -> BPgm [prec 20] .
endo
    
*** semantics of basic programs ***
th STORE is pr BPGM .  pr ARRAY .
  sort Store .
  op initial : -> Store .
  op  _[[_]] : Store Exp -> Int [prec 65] .
  op  _[[_]] : Store Tst -> Bool [prec 65] .
  op     _;_ : Store BPgm -> Store [prec 60] .
  var  S : Store .  vars X1 X2 X : Var .
  var  I : Int .  vars E1 E2 : Exp .
  vars T1 T2 : Tst .  var  B : Bool .
  eq  initial [[X1]]  =  0 . 
  eq  S [[I]]  =  I .
  eq  S [[- E1]]  =  -(S[[E1]]) .
  eq  S [[E1 - E2]]  =  (S[[E1]]) - (S[[E2]]) .
  eq  S [[E1 + E2]]  =  (S[[E1]]) + (S[[E2]]) .
  eq  S [[E1 * E2]]  =  (S[[E1]]) * (S[[E2]]) .
  eq  S [[B]]  =  B .
  eq  S [[E1 is E2]]  =  (S [[E1]]) is (S [[E2]]) .
  eq  S [[E1 <= E2]]  =  (S [[E1]]) <= (S [[E2]]) .
  eq  S [[E1 < E2]]  =  (S [[E1]]) < (S [[E2]]) .
  eq  S [[not T1]]  =  not(S [[T1]]) .
  eq  S [[T1 and T2]]  =  (S [[T1]]) and (S [[T2]]) .
  eq  S [[T1 or T2]]  =  (S [[T1]]) or (S [[T2]]) .
  eq  S ; X1 := E1 [[X1]]  =  S [[E1]] .
  cq  S ; X1 := E1 [[X2]]  =  S [[X2]]   if  X1 =/= X2 .
endth
    
*** extending the programming language ***
obj PGM is pr BPGM .
  sort  Pgm .
  subsort  BPgm < Pgm .
  op  skip  : -> Pgm . 
  op  _;_   : Pgm Pgm -> Pgm [assoc prec 50] . 
  op  if_then_else_fi : Tst Pgm Pgm -> Pgm [prec 40] .
  op  while_do_od     : Tst Pgm -> Pgm [prec 40] .
endo  
   
obj SEM is pr PGM .  pr STORE .
  sort EStore .
  subsort Store < EStore .
  op  _;_ : EStore Pgm -> EStore [prec 60] .
  var S : Store .  var T : Tst . 
  var P1 P2 : Pgm . 
  eq  S ; skip  =  S .
  eq  S ; (P1 ; P2)  =  (S ; P1) ; P2 .
  cq  S ; if T then P1 else P2 fi  =  S ; P1  if  S[[T]] .
  cq  S ; if T then P1 else P2 fi  =  S ; P2  if  not(S[[T]]) .
  cq  S ; while T do P1 od  =  (S ; P1) ; while T do P1 od   if  S[[T]] .
  cq  S ; while T do P1 od  =  S  if  not(S[[T]]) .
endo

*** ***********************************************
obj PASS is pr SEM .
  vars-of STORE .
  op _,_:=_,_ : Var Var Exp Exp -> BPgm .
  cq S ; (X1,X2 := E1,E2) [[X]]  = S[[X]]  if (X =/= X1) and (X =/= X2) .
  cq S ; (X1,X2 := E1,E2) [[X1]] = S[[E1]] if X1 =/= X2 .
  cq S ; (X1,X2 := E1,E2) [[X2]] = S[[E2]] if X1 =/= X2 .
endo

open .
 let s = (initial ; 'X := 1); 'Y := 2 .
 red s[['X]].
 red s[['Y]].
 red s[['Z]].
close

open .
 let s = (initial ; 'X := 1); 'Y := 2 .
 red s ; 'X,'Y := 'Y,'X [['X]].
 red s ; 'X,'Y := 'Y,'X [['Y]].
 red s ; 'X,'Y := 'Y,'X [['Z]].
close

open .
 let s = (initial ; 'X := 1); 'Y := 2 .
 red s ; 'X,'X := 3,4 [['X]].
 red s ; 'X,'X := 3,4 [['Y]].
 red s ; 'X,'X := 3,4 [['Z]].
 close

obj PASS is pr SEM .
  vars-of STORE .
  op _,_:=_,_ : Var Var Exp Exp -> BPgm .
  eq S ; X1,X2 := E1,E2  = S ; X1 := E1 ; X2 := E2 .
endo

open .
 let s = (initial ; 'X := 1); 'Y := 2 .
 red s[['X]].
 red s[['Y]].
 red s[['Z]].
close

open .
 let s = (initial ; 'X := 1); 'Y := 2 .
 red s ; 'X,'Y := 'Y,'X [['X]].
 red s ; 'X,'Y := 'Y,'X [['Y]].
 red s ; 'X,'Y := 'Y,'X [['Z]].
close

open .
 let s = (initial ; 'X := 1); 'Y := 2 .
 red s ; 'X,'X := 3,4 [['X]].
 red s ; 'X,'X := 3,4 [['Y]].
 red s ; 'X,'X := 3,4 [['Z]].
close