70 lines
1.7 KiB
Plaintext
70 lines
1.7 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[: (:Typ:)(:Id:); :] ]| ->
|
|
|[ null ]|
|
|
to-funcons:
|
|
|[ execute[: (:Typ:)(:Id:)=(:Exp:); :] ]| ->
|
|
|[ assign (bound id[: (:Id:) :],
|
|
eval-exp[: (:Exp:) :]) ]|
|
|
to-funcons:
|
|
|[ execute[: (:Id:)=(:Exp:); :] ]| ->
|
|
|[ assign (bound id[: (:Id:) :],
|
|
eval-exp[: (:Exp:) :]) ]|
|
|
to-funcons:
|
|
|[ execute[: :] ]| ->
|
|
|[ null ]|
|
|
to-funcons:
|
|
|[ execute[: (:Stmt:)(:Stmt+:) :] ]| ->
|
|
|[ sequential (execute[: (:Stmt:) :],
|
|
execute[: (:Stmt+:) :]) ]|
|
|
|
|
// # Handling variable declarations
|
|
|
|
|
|
to-funcons:
|
|
|[ collect-declared-vars[: (:Typ:)(:Id:)=(:Exp:); :] ]| ->
|
|
|[ bind (\"(:Id:)\",
|
|
allocate-initialised-variable (integers,
|
|
0)) ]|
|
|
to-funcons:
|
|
|[ collect-declared-vars[: (:Typ:)(:Id:); :] ]| ->
|
|
|[ bind (\"(:Id:)\",
|
|
allocate-initialised-variable (integers,
|
|
0)) ]|
|
|
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*:) :] ]|
|
|
|