peter/IBAFLang
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

first usable version

Browse Source
This commit is contained in:
Peter
2023-11-09 09:46:07 +01:00
parent 70b3e9c722
commit 6b5ab857cb
22 changed files with 675 additions and 153 deletions
Download Patch File Download Diff File Expand all files Collapse all files

128
IBAF-Editor/syntax/cbs-gen/IBAF-Expressions.sdf3 Normal file
View File

@@ -0,0 +1,128 @@
module IBAF-Expressions
imports
Funcons
// Language "IBAFlang"
lexical syntax // Language
// # 1: General expressions
LEX-id = ( [a-z] | [A-Z] ) ( [a-z] | [A-Z] | [0-9] )*
LEX-DASH = "-"
LEX-decimal = [1-9] ( [0-9] )*
syntax // Language
// # 1: General expressions
L-int-CF.L-int--R-0 =
"0"
L-int-CF.L-int--C-DASH-Q-L-decimal-D =
L-DASH-Q-L-decimal-CF
L-DASH-Q-L-decimal-CF.L-DASH-Q-L-decimal--DASH-Q-L-decimal =
LEX-DASH-CF? L-decimal-CF
context-free syntax // Language
// # 1: General expressions
L-exp.L-exp--L-id =
L-id
L-exp.L-exp--L-int =
L-int
L-exp.L-exp--R-true =
"true"
L-exp.L-exp--R-false =
"false"
L-exp.L-exp--L-exp-PLUS-L-exp =
L-exp "+" L-exp
L-exp.L-exp--L-exp-DASH-L-exp =
L-exp "-" L-exp
L-exp.L-exp--L-exp-STAR-L-exp =
L-exp "*" L-exp
L-exp.L-exp--L-exp-SLASH-L-exp =
L-exp "/" L-exp
L-exp.L-exp--L-exp-PERCENT-L-exp =
L-exp "%" L-exp
L-exp.L-exp--L-exp-AMPERSAND-AMPERSAND-L-exp =
L-exp "&&" L-exp
L-exp.L-exp--L-exp-BAR-BAR-L-exp =
L-exp "||" L-exp
L-exp.L-exp--L-exp-EQUALS-EQUALS-L-exp =
L-exp "==" L-exp
L-exp.L-exp--L-exp-GREATER-EQUALS-L-exp =
L-exp ">=" L-exp
L-exp.L-exp--L-exp-GREATER-L-exp =
L-exp ">" L-exp
L-exp.L-exp--L-exp-LESS-EQUALS-L-exp =
L-exp "<=" L-exp
L-exp.L-exp--L-exp-LESS-L-exp =
L-exp "<" L-exp
L-exp.L-exp--LPAREN-L-exp-RPAREN =
"(" L-exp ")"
L-id.LEX-id =
LEX-id
L-decimal.LEX-decimal =
LEX-decimal
context-free syntax // Semantics
// # 1: General expressions
FCT.T-eval-exp =
"eval-exp" "[:" L-exp ":]"
FCT-Quoted.L-id = L-id
FCT.T-id =
"id" "[:" L-id ":]"
FCT.T-int-val =
"int-val" "[:" L-int ":]"
FCT-Quoted.L-decimal = L-decimal
FCT.T-dec-val =
"dec-val" "[:" L-decimal ":]"
context-free syntax // Desugaring
// # 1: General expressions
variables // Meta-variables
// # 1: General expressions
L-exp = "(:Exp" [1-9]? ":)" {prefer}
L-exp? = "(:Exp" [1-9]? "?:)" {prefer}
L-exp* = "(:Exp" [1-9]? "*:)" {prefer}
L-exp+ = "(:Exp" [1-9]? "+:)" {prefer}
L-id = "(:Id" [1-9]? ":)" {prefer}
L-id? = "(:Id" [1-9]? "?:)" {prefer}
L-id* = "(:Id" [1-9]? "*:)" {prefer}
L-id+ = "(:Id" [1-9]? "+:)" {prefer}
L-int = "(:Int" [1-9]? ":)" {prefer}
L-int? = "(:Int" [1-9]? "?:)" {prefer}
L-int* = "(:Int" [1-9]? "*:)" {prefer}
L-int+ = "(:Int" [1-9]? "+:)" {prefer}
L-decimal = "(:Dec" [1-9]? ":)" {prefer}
L-decimal? = "(:Dec" [1-9]? "?:)" {prefer}
L-decimal* = "(:Dec" [1-9]? "*:)" {prefer}
L-decimal+ = "(:Dec" [1-9]? "+:)" {prefer}
// SDF comments
// # 1: General expressions
sorts // ASTs
T-start

118
IBAF-Editor/syntax/cbs-gen/IBAF-Start.sdf3
View File

@@ -1,103 +1,81 @@
module IBAF-Start
imports
IBAF-Expressions
IBAF-Statements
Funcons
// Language "IBAFlang"
lexical syntax // Language
// #1 Arithmetic expressions
LEX-DASH = "-"
LEX-decimal = ( [0-9] )+
LEX-id = ( [A-Z] | [a-z] )+
LEX-keyword = "else"
LEX-keyword = "false"
LEX-keyword = "if"
LEX-keyword = "true"
LEX-keyword = "while"
LEX-keyword = "int"
syntax // Language
// #1 Arithmetic expressions
context-free syntax // Language
L-start.L-start--L-aexp =
L-aexp
L-start.L-start--L-pgm =
L-pgm
L-pgm.L-pgm--R-int-L-idlist-SEMI-L-stmt =
"int" L-idlist ";" L-stmt
L-idlist.L-idlist--L-id-C-COMMA-L-idlist-D-Q =
L-id L-COMMA-L-idlist?
L-COMMA-L-idlist.L-COMMA-L-idlist--COMMA-L-idlist =
"," L-idlist
// #1 Arithmetic expressions
L-aexp.L-aexp--L-num =
L-num
L-aexp.L-aexp--L-id =
L-id
L-aexp.L-aexp--L-aexp-PLUS-L-aexp =
L-aexp "+" L-aexp
L-aexp.L-aexp--L-aexp-SLASH-L-aexp =
L-aexp "/" L-aexp
L-aexp.L-aexp--LPAREN-L-aexp-RPAREN =
"(" L-aexp ")"
L-decimal.LEX-decimal =
LEX-decimal
L-id.LEX-id =
LEX-id
L-keyword.LEX-keyword =
LEX-keyword
context-free syntax // Semantics
FCT.T-start =
"start" "[:" L-start ":]"
// #1 Arithmetic expressions
FCT.T-eval-arith =
"eval-arith" "[:" L-aexp ":]"
FCT-Quoted.L-decimal = L-decimal
FCT.T-int-val =
"int-val" "[:" L-num ":]"
FCT-Quoted.L-id = L-id
FCT.T-id =
"id" "[:" L-id ":]"
FCT.T-run =
"run" "[:" L-pgm ":]"
FCT-SEQ.T-declare-int-vars =
"declare-int-vars" "[:" L-idlist ":]"
FCT-Quoted.LEX-keyword = LEX-keyword
context-free syntax // Desugaring
// #1 Arithmetic expressions
variables // Meta-variables
L-start = "(:START" [1-9]? ":)" {prefer}
L-start? = "(:START" [1-9]? "?:)" {prefer}
L-start* = "(:START" [1-9]? "*:)" {prefer}
L-start+ = "(:START" [1-9]? "+:)" {prefer}
// #1 Arithmetic expressions
L-aexp = "(:AExp" [1-9]? ":)" {prefer}
L-aexp? = "(:AExp" [1-9]? "?:)" {prefer}
L-aexp* = "(:AExp" [1-9]? "*:)" {prefer}
L-aexp+ = "(:AExp" [1-9]? "+:)" {prefer}
L-num = "(:N" [1-9]? ":)" {prefer}
L-num? = "(:N" [1-9]? "?:)" {prefer}
L-num* = "(:N" [1-9]? "*:)" {prefer}
L-num+ = "(:N" [1-9]? "+:)" {prefer}
L-decimal = "(:D" [1-9]? ":)" {prefer}
L-decimal? = "(:D" [1-9]? "?:)" {prefer}
L-decimal* = "(:D" [1-9]? "*:)" {prefer}
L-decimal+ = "(:D" [1-9]? "+:)" {prefer}
L-id = "(:I" [1-9]? ":)" {prefer}
L-id? = "(:I" [1-9]? "?:)" {prefer}
L-id* = "(:I" [1-9]? "*:)" {prefer}
L-id+ = "(:I" [1-9]? "+:)" {prefer}
L-pgm = "(:Pgm" [1-9]? ":)" {prefer}
L-pgm? = "(:Pgm" [1-9]? "?:)" {prefer}
L-pgm* = "(:Pgm" [1-9]? "*:)" {prefer}
L-pgm+ = "(:Pgm" [1-9]? "+:)" {prefer}
L-idlist = "(:IL" [1-9]? ":)" {prefer}
L-idlist? = "(:IL" [1-9]? "?:)" {prefer}
L-idlist* = "(:IL" [1-9]? "*:)" {prefer}
L-idlist+ = "(:IL" [1-9]? "+:)" {prefer}
// SDF comments
// #1 Arithmetic expressions
lexical syntax
LEX-id = LEX-keyword {reject}
lexical restrictions
LEX-id -/- [A-Za-z0-9]
context-free syntax
L-exp.L-exp--L-exp-PLUS-L-exp =
L-exp "+" L-exp
{assoc}
L-exp.L-exp--L-exp-AMPERSAND-AMPERSAND-L-exp =
L-exp "&&" L-exp
{assoc}
L-stmt.L-stmt--L-stmt-L-stmt =
L-stmt L-stmt
{right}
sorts // ASTs
T-start

48
IBAF-Editor/syntax/cbs-gen/IBAF-Statements.sdf3 Normal file
View File

@@ -0,0 +1,48 @@
module IBAF-Statements
imports
IBAF-Expressions
Funcons
// Language "IBAFlang"
lexical syntax // Language
syntax // Language
context-free syntax // Language
L-stmt.L-stmt--L-type-L-id-EQUALS-L-exp-SEMI =
L-type L-id "=" L-exp ";"
L-stmt.L-stmt--R-print-LPAREN-L-exp-RPAREN-SEMI =
"print" "(" L-exp ")" ";"
L-stmt.L-stmt--L-stmt-L-stmt =
L-stmt L-stmt
L-type.L-type--R-int =
"int"
L-type.L-type--R-bool =
"bool"
L-type.L-type--L-id =
L-id
context-free syntax // Semantics
FCT.T-execute =
"execute" "[:" L-stmt ":]"
context-free syntax // Desugaring
variables // Meta-variables
L-stmt = "(:Stmt" [1-9]? ":)" {prefer}
L-stmt? = "(:Stmt" [1-9]? "?:)" {prefer}
L-stmt* = "(:Stmt" [1-9]? "*:)" {prefer}
L-stmt+ = "(:Stmt" [1-9]? "+:)" {prefer}
L-type = "(:Typ" [1-9]? ":)" {prefer}
L-type? = "(:Typ" [1-9]? "?:)" {prefer}
L-type* = "(:Typ" [1-9]? "*:)" {prefer}
L-type+ = "(:Typ" [1-9]? "+:)" {prefer}
// SDF comments
sorts // ASTs
T-start

2
IBAF-Editor/trans/Stratego-IBAF.tbl
View File

File diff suppressed because one or more lines are too long

1
IBAF-Editor/trans/cbs-gen/IBAF-Expressions.meta Normal file
View File

@@ -0,0 +1 @@
Meta([Syntax("Stratego-IBAF")])

100
IBAF-Editor/trans/cbs-gen/IBAF-Expressions.str Normal file
View File

@@ -0,0 +1,100 @@
module IBAF-Expressions
imports
libstratego-gpp
signatures/-
pp/IBAF-parenthesize
pp/IBAF-pp
imports
// Language "IBAFlang"
rules
// # 1: General expressions
to-funcons:
|[ eval-exp[: (:Id:) :] ]| ->
|[ assigned (bound (id[: (:Id:) :])) ]|
to-funcons:
|[ eval-exp[: (:Int:) :] ]| ->
|[ int-val[: (:Int:) :] ]|
to-funcons:
|[ eval-exp[: true :] ]| ->
|[ true ]|
to-funcons:
|[ eval-exp[: false :] ]| ->
|[ false ]|
to-funcons:
|[ eval-exp[: (:Exp1:)+(:Exp2:) :] ]| ->
|[ int-add (eval-exp[: (:Exp1:) :],
eval-exp[: (:Exp2:) :]) ]|
to-funcons:
|[ eval-exp[: (:Exp1:)-(:Exp2:) :] ]| ->
|[ int-sub (eval-exp[: (:Exp1:) :],
eval-exp[: (:Exp2:) :]) ]|
to-funcons:
|[ eval-exp[: (:Exp1:)*(:Exp2:) :] ]| ->
|[ int-mul (eval-exp[: (:Exp1:) :],
eval-exp[: (:Exp2:) :]) ]|
to-funcons:
|[ eval-exp[: (:Exp1:)/(:Exp2:) :] ]| ->
|[ checked int-div (eval-exp[: (:Exp1:) :],
eval-exp[: (:Exp2:) :]) ]|
to-funcons:
|[ eval-exp[: (:Exp1:)%(:Exp2:) :] ]| ->
|[ checked int-mod (eval-exp[: (:Exp1:) :],
eval-exp[: (:Exp2:) :]) ]|
to-funcons:
|[ eval-exp[: (:Exp1:)&&(:Exp2:) :] ]| ->
|[ and (eval-exp[: (:Exp1:) :],
eval-exp[: (:Exp2:) :]) ]|
to-funcons:
|[ eval-exp[: (:Exp1:)||(:Exp2:) :] ]| ->
|[ and (eval-exp[: (:Exp1:) :],
eval-exp[: (:Exp2:) :]) ]|
to-funcons:
|[ eval-exp[: (:Exp1:)==(:Exp2:) :] ]| ->
|[ is-equal (eval-exp[: (:Exp1:) :],
eval-exp[: (:Exp2:) :]) ]|
to-funcons:
|[ eval-exp[: (:Exp1:)>=(:Exp2:) :] ]| ->
|[ is-greater-or-equal (eval-exp[: (:Exp1:) :],
eval-exp[: (:Exp2:) :]) ]|
to-funcons:
|[ eval-exp[: (:Exp1:)>(:Exp2:) :] ]| ->
|[ is-greater (eval-exp[: (:Exp1:) :],
eval-exp[: (:Exp2:) :]) ]|
to-funcons:
|[ eval-exp[: (:Exp1:)<=(:Exp2:) :] ]| ->
|[ is-less-or-equal (eval-exp[: (:Exp1:) :],
eval-exp[: (:Exp2:) :]) ]|
to-funcons:
|[ eval-exp[: (:Exp1:)<(:Exp2:) :] ]| ->
|[ is-less (eval-exp[: (:Exp1:) :],
eval-exp[: (:Exp2:) :]) ]|
to-funcons:
|[ eval-exp[: ((:Exp:)) :] ]| ->
|[ eval-exp[: (:Exp:) :] ]|
to-funcons-lex:
FCTDoubleQuoted(L-id(LEX-id(str))) ->
FCTString(<double-quote> str)
to-funcons:
|[ id[: (:Id:) :] ]| ->
|[ \"(:Id:)\" ]|
to-funcons:
|[ int-val[: (:Dec:) :] ]| ->
|[ dec-val[: (:Dec:) :] ]|
to-funcons:
|[ int-val[: -(:Dec:) :] ]| ->
|[ integer-negate (dec-val[: (:Dec:) :]) ]|
to-funcons-lex:
FCTDoubleQuoted(L-decimal(LEX-decimal(str))) ->
FCTString(<double-quote> str)
to-funcons:
|[ dec-val[: (:Dec:) :] ]| ->
|[ decimal-natural (\"(:Dec:)\") ]|

56
IBAF-Editor/trans/cbs-gen/IBAF-Start.str
View File

@@ -7,48 +7,26 @@ imports
pp/IBAF-pp
imports
cbs-gen/IBAF-Expressions
cbs-gen/IBAF-Statements
// 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:)\" ]|
|[ start[: (:Pgm:) :] ]| ->
|[ initialise-binding finalise-failing run[: (:Pgm:) :] ]|
to-funcons:
|[ run[: int(:IL:);(:Stmt:) :] ]| ->
|[ scope (collateral (declare-int-vars[: (:IL:) :]),
execute[: (:Stmt:) :]) ]|
to-funcons:
|[ declare-int-vars[: (:Id:) :] ]| ->
|[ bind (\"(:Id:)\",
allocate-initialised-variable (integers,
0)) ]|
to-funcons:
|[ declare-int-vars[: (:Id:),(:IL:) :] ]| ->
|[ declare-int-vars[: (:Id:) :],
declare-int-vars[: (:IL:) :] ]|

1
IBAF-Editor/trans/cbs-gen/IBAF-Statements.meta Normal file
View File

@@ -0,0 +1 @@
Meta([Syntax("Stratego-IBAF")])

26
IBAF-Editor/trans/cbs-gen/IBAF-Statements.str Normal file
View File

@@ -0,0 +1,26 @@
module IBAF-Statements
imports
libstratego-gpp
signatures/-
pp/IBAF-parenthesize
pp/IBAF-pp
imports
cbs-gen/IBAF-Expressions
// Language "IBAFlang"
rules
to-funcons:
|[ execute[: (:Typ:)(:Id:)=(:Exp:); :] ]| ->
|[ assign (bound (id[: (:Id:) :]),
eval-exp[: (:Exp:) :]) ]|
to-funcons:
|[ execute[: print((:Exp:)); :] ]| ->
|[ print (eval-exp[: (:Exp:) :]) ]|
to-funcons:
|[ execute[: (:Stmt1:)(:Stmt2:) :] ]| ->
|[ sequential (execute[: (:Stmt1:) :],
execute[: (:Stmt2:) :]) ]|

1
IBAF-Editor/trans/ibaf.str
View File

@@ -7,6 +7,7 @@ imports
libstratego-lib
imports
completion/completion
pp
outline