Transformation of Applicative Specifications into Imperative ...

Transformation of Applicative Specifications into Imperative ... Transformation of Applicative Specifications into Imperative ...

26.09.2013 Views

APPENDIX D. SPECIFICATION OF TRANSFORMER IN RSL1 ValueExpr ∗ × ExpType ∗ × TYPINGS × FUNC × TRANS × ENV × TYPES → BOOL_ENV_TYPES CheckValueExprList( vel, etl, typings, func, trans, env, types) ≡ if vel = 〈〉 then mk_BOOL_ENV_TYPES(true, env, types) else if not( bool( CheckValueExpr( hd vel, hd etl, typings, func, trans, env, types))) then mk_BOOL_ENV_TYPES( bool( CheckValueExpr( hd vel, hd etl, typings, func, trans, env, types)), envMap( CheckValueExpr( hd vel, hd etl, typings, func, trans, env, types)), typesMap( CheckValueExpr( hd vel, hd etl, typings, func, trans, env, types))) else CheckValueExprList( tl vel, tl etl, typings, func, trans, envMap( CheckValueExpr( hd vel, hd etl, typings, func, trans, env, types)), typesMap( CheckValueExpr( hd vel, hd etl, typings, func, trans, env, types))) end end, CheckSetExpr : SetExpr × ExpType × TYPINGS × FUNC × TRANS × 330

D.2. FORMAL SPECIFICATION OF THE TRANSFORMER IN RSL1 ENV × TYPES → BOOL_ENV_TYPES CheckSetExpr(se, et, typings, func, trans, env, types) ≡ case se of RangedSetExpr(fve, sve) → CheckValueExprList( 〈fve, sve〉, 〈et, et〉, typings, func, trans, env, types), EnumeratedSetExpr(ovel) → CheckOptValueExprList( ovel, et, typings, func, trans, env, types), ComprehendedSetExpr(ve, typlist, or) → mk_BOOL_ENV_TYPES( and( bool( CheckValueExpr( ve, et, typings, func, trans, env, types)), bool( CheckOptRestriction( or, Known(TypeLiteral(BOOL)), typings, func, trans, envMap( CheckValueExpr( ve, et, typings, func, trans, env, types)), typesMap( CheckValueExpr( ve, et, typings, func, trans, env, types))))), envMap( CheckOptRestriction( or, Known(TypeLiteral(BOOL)), typings, func, trans, envMap( CheckValueExpr( ve, et, typings, func, trans, env, types)), typesMap( CheckValueExpr( ve, et, typings, func, trans, env, types)))), typesMap( CheckOptRestriction( 331

APPENDIX D. SPECIFICATION OF TRANSFORMER IN RSL1<br />

ValueExpr ∗ × ExpType ∗ × TYPINGS × FUNC ×<br />

TRANS × ENV × TYPES →<br />

BOOL_ENV_TYPES<br />

CheckValueExprList(<br />

vel, etl, typings, func, trans, env, types) ≡<br />

if vel = 〈〉<br />

then mk_BOOL_ENV_TYPES(true, env, types)<br />

else<br />

if<br />

not(<br />

bool(<br />

CheckValueExpr(<br />

hd vel, hd etl, typings, func, trans,<br />

env, types)))<br />

then<br />

mk_BOOL_ENV_TYPES(<br />

bool(<br />

CheckValueExpr(<br />

hd vel, hd etl, typings, func, trans,<br />

env, types)),<br />

envMap(<br />

CheckValueExpr(<br />

hd vel, hd etl, typings, func, trans,<br />

env, types)),<br />

typesMap(<br />

CheckValueExpr(<br />

hd vel, hd etl, typings, func, trans,<br />

env, types)))<br />

else<br />

CheckValueExprList(<br />

tl vel, tl etl, typings, func, trans,<br />

envMap(<br />

CheckValueExpr(<br />

hd vel, hd etl, typings, func, trans,<br />

env, types)),<br />

typesMap(<br />

CheckValueExpr(<br />

hd vel, hd etl, typings, func, trans,<br />

env, types)))<br />

end<br />

end,<br />

CheckSetExpr :<br />

SetExpr × ExpType × TYPINGS × FUNC × TRANS ×<br />

330

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!