55 lines
1.2 KiB
Plaintext
55 lines
1.2 KiB
Plaintext
module IBAF-Start
|
|
|
|
imports
|
|
libstratego-gpp
|
|
signatures/-
|
|
pp/IBAF-parenthesize
|
|
pp/IBAF-pp
|
|
|
|
imports
|
|
|
|
|
|
// Language "IBAFlang"
|
|
|
|
rules
|
|
to-funcons:
|
|
|[ start[: (:AExp:) :] ]| ->
|
|
|[ initialise-binding finalise-failing eval-arith[: (:AExp:) :] ]|
|
|
|
|
// #1 Arithmetic expressions
|
|
|
|
|
|
to-funcons:
|
|
|[ eval-arith[: (:N:) :] ]| ->
|
|
|[ int-val[: (:N:) :] ]|
|
|
to-funcons:
|
|
|[ eval-arith[: (:I:) :] ]| ->
|
|
|[ assigned (bound (id[: (:I:) :])) ]|
|
|
to-funcons:
|
|
|[ eval-arith[: (:AExp1:)+(:AExp2:) :] ]| ->
|
|
|[ integer-add (eval-arith[: (:AExp1:) :],
|
|
eval-arith[: (:AExp2:) :]) ]|
|
|
to-funcons:
|
|
|[ eval-arith[: (:AExp1:)/(:AExp2:) :] ]| ->
|
|
|[ checked integer-divide (eval-arith[: (:AExp1:) :],
|
|
eval-arith[: (:AExp2:) :]) ]|
|
|
to-funcons:
|
|
|[ eval-arith[: ((:AExp:)) :] ]| ->
|
|
|[ eval-arith[: (:AExp:) :] ]|
|
|
to-funcons-lex:
|
|
FCTDoubleQuoted(L-decimal(LEX-decimal(str))) ->
|
|
FCTString(<double-quote> str)
|
|
to-funcons:
|
|
|[ int-val[: (:D:) :] ]| ->
|
|
|[ decimal-natural (\"(:D:)\") ]|
|
|
to-funcons:
|
|
|[ int-val[: -(:D:) :] ]| ->
|
|
|[ integer-negate (int-val[: (:D:) :]) ]|
|
|
to-funcons-lex:
|
|
FCTDoubleQuoted(L-id(LEX-id(str))) ->
|
|
FCTString(<double-quote> str)
|
|
to-funcons:
|
|
|[ id[: (:I:) :] ]| ->
|
|
|[ \"(:I:)\" ]|
|
|
|