98 lines
2.6 KiB
Plaintext
98 lines
2.6 KiB
Plaintext
module IBAF-Statements
|
|
|
|
imports
|
|
libstratego-gpp
|
|
signatures/-
|
|
pp/IBAF-parenthesize
|
|
pp/IBAF-pp
|
|
|
|
imports
|
|
cbs-gen/IBAF-Expressions
|
|
|
|
// Language "IBAFlang"
|
|
|
|
rules
|
|
|
|
// # Statements
|
|
|
|
|
|
to-funcons:
|
|
|[ execute[: {(:Stmt*:)} :] ]| ->
|
|
|[ scope (collateral (collect-declared-vars[: (:Stmt*:) :]),
|
|
execute[: (:Stmt*:) :]) ]|
|
|
to-funcons:
|
|
|[ execute[: print((:Exp:)); :] ]| ->
|
|
|[ print eval-exp[: (:Exp:) :] ]|
|
|
to-funcons:
|
|
|[ execute[: int(:Id:); :] ]| ->
|
|
|[ assign (bound id[: (:Id:) :],
|
|
0) ]|
|
|
to-funcons:
|
|
|[ execute[: (:Id:)=(:Exp:); :] ]| ->
|
|
|[ assign (bound id[: (:Id:) :],
|
|
eval-exp[: (:Exp:) :]) ]|
|
|
to-funcons:
|
|
|[ execute[: int(:Id:)=(:Exp:); :] ]| ->
|
|
|[ assign (bound id[: (:Id:) :],
|
|
eval-exp[: (:Exp:) :]) ]|
|
|
to-funcons:
|
|
|[ execute[: return(:Exp:); :] ]| ->
|
|
|[ return eval-exp[: (:Exp:) :] ]|
|
|
to-funcons:
|
|
|[ execute[: return; :] ]| ->
|
|
|[ return null ]|
|
|
to-funcons:
|
|
|[ execute[: fun(:Id:)((:Params:)){(:Stmt*:)} :] ]| ->
|
|
|[ null ]|
|
|
to-funcons:
|
|
|[ execute[: :] ]| ->
|
|
|[ null ]|
|
|
to-funcons:
|
|
|[ execute[: (:Stmt:)(:Stmt+:) :] ]| ->
|
|
|[ sequential (execute[: (:Stmt:) :],
|
|
execute[: (:Stmt+:) :]) ]|
|
|
|
|
// # Handling parameter declarations
|
|
|
|
|
|
to-funcons:
|
|
|[ collect-params[: (:Id:) :] ]| ->
|
|
|[ bind (id[: (:Id:) :],
|
|
allocate-initialised-variable (integers,
|
|
checked head given)) ]|
|
|
to-funcons:
|
|
|[ collect-params[: (:Id:),(:Params:) :] ]| ->
|
|
|[ collect-params[: (:Id:) :],
|
|
give (checked tail given,
|
|
collect-params[: (:Params:) :]) ]|
|
|
|
|
// # Handling variable declarations
|
|
|
|
|
|
to-funcons:
|
|
|[ collect-declared-vars[: int(:Id:)=(:Exp:); :] ]| ->
|
|
|[ bind (id[: (:Id:) :],
|
|
allocate-variable (integers)) ]|
|
|
to-funcons:
|
|
|[ collect-declared-vars[: int(:Id:); :] ]| ->
|
|
|[ bind (id[: (:Id:) :],
|
|
allocate-variable (integers)) ]|
|
|
to-funcons:
|
|
|[ collect-declared-vars[: fun(:Id:)((:Params:)){(:Stmt*:)} :] ]| ->
|
|
|[ bind (id[: (:Id:) :],
|
|
function abstraction (scope (collateral (collect-declared-vars[: (:Stmt*:) :],
|
|
collect-params[: (:Params:) :]),
|
|
execute[: (:Stmt*:) :]))) ]|
|
|
to-funcons:
|
|
|[ collect-declared-vars[: :] ]| ->
|
|
|[ map () ]|
|
|
to-funcons:
|
|
|[ collect-declared-vars[: (:Stmt:) :] ]| ->
|
|
|[ map () ]|
|
|
to-funcons:
|
|
|[ collect-declared-vars[: (:Stmt1:)(:Stmt2:)(:Stmt*:) :] ]| ->
|
|
|[ collect-declared-vars[: (:Stmt1:) :],
|
|
collect-declared-vars[: (:Stmt2:) :],
|
|
collect-declared-vars[: (:Stmt*:) :] ]|
|
|
|