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

init commit again

Browse Source
This commit is contained in:
Peter
2023-11-01 09:29:33 +01:00
parent 448147e7da
commit d6c745207b
250 changed files with 15552 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
IBAF-cbs/Funcons-beta/Computations/Normal/Binding/tests/accumulate.config Normal file
View File

@@ -0,0 +1,27 @@
general {
funcon-term:
initialise-binding
tuple(
accumulate( ),
accumulate(bind-value("x", true)),
accumulate(bind-value("x", true),
bind-value("y", bound-directly"x")),
accumulate(bind-value("x", true),
bind-value("y", bound-directly"x"),
bind-value("z", bound-directly"x")),
accumulate(bind-value("x", true),
bind-value("y", true),
bind-value("x", bound-directly"x")))
;
}
tests {
result-term:
tuple(
map( ),
{"x"|->true},
{"x"|->true, "y"|->true},
{"x"|->true, "y"|->true, "z"|->true},
{"y"|->true, "x"|->true})
;
}

16
IBAF-cbs/Funcons-beta/Computations/Normal/Binding/tests/bind-recursively.config Normal file
View File

@@ -0,0 +1,16 @@
general {
funcon-term:
initialise-binding
scope(
bind-recursively("x",
thunk closure
is-value bound-value"x"),
force bound-value"x")
;
}
tests {
result-term:
true
;
}

9
IBAF-cbs/Funcons-beta/Computations/Normal/Binding/tests/bind-value.config Normal file
View File

@@ -0,0 +1,9 @@
general {
funcon-term:
bind-value("x", 1)
;
}
tests {
result-term: {"x"|->1};
}

15
IBAF-cbs/Funcons-beta/Computations/Normal/Binding/tests/bound-directly.config Normal file
View File

@@ -0,0 +1,15 @@
general {
funcon-term:
initialise-binding
scope(
{"x"|->true, "y"|->fresh-link(booleans)},
and(
bound-directly"x",
is-in-type(bound-directly"y", links),
else(bound-directly"z", true)))
;
}
tests {
result-term: true;
}

15
IBAF-cbs/Funcons-beta/Computations/Normal/Binding/tests/bound-value.config Normal file
View File

@@ -0,0 +1,15 @@
general {
funcon-term:
initialise-binding
scope(
{"x"|->true, "y"|->fresh-initialised-link(booleans,true)},
and(
bound-value"x",
bound-value"y",
else(bound-value"z",true)))
;
}
tests {
result-term: true;
}

11
IBAF-cbs/Funcons-beta/Computations/Normal/Binding/tests/closed.config Normal file
View File

@@ -0,0 +1,11 @@
general {
funcon-term:
initialise-binding
scope({"x"|->1},
closed(else(bound-directly"x", true)))
;
}
tests {
result-term: true;
}

27
IBAF-cbs/Funcons-beta/Computations/Normal/Binding/tests/collateral.config Normal file
View File

@@ -0,0 +1,27 @@
general {
funcon-term:
initialise-binding tuple(
collateral( ),
collateral(bind-value("x", true)),
collateral(bind-value("x", true),
bind-value("y", false)),
collateral(bind-value("x", true),
bind-value("y", false),
unbind"z"),
scope(bind-value("x",true),
collateral(bind-value("x", false),
bind-value("y", true),
bind-value("z", bound-directly"x"))))
;
}
tests {
result-term:
tuple(
map( ),
{"x"|->true},
{"x"|->true, "y"|->false},
{"x"|->true, "y"|->false, "z"|->( )},
{"x"|->false,"y"|->true, "z"|->true})
;
}

12
IBAF-cbs/Funcons-beta/Computations/Normal/Binding/tests/environments.config Normal file
View File

@@ -0,0 +1,12 @@
general {
funcon-term:
and(
is-in-type(map(),environments),
is-in-type({"x"|->true},environments),
is-in-type({"x"|->true, "y"|->false},environments))
;
}
tests {
result-term: true;
}

10
IBAF-cbs/Funcons-beta/Computations/Normal/Binding/tests/fresh-identifier.config Normal file
View File

@@ -0,0 +1,10 @@
general {
funcon-term:
initialise-generating
not is-equal(fresh-identifier, fresh-identifier)
;
}
tests {
result-term: true;
}

14
IBAF-cbs/Funcons-beta/Computations/Normal/Binding/tests/identifiers.config Normal file
View File

@@ -0,0 +1,14 @@
general {
funcon-term:
and(
is-in-type("x", identifiers),
is-in-type(identifier-tagged("x",false), identifiers),
is-in-type(identifier-tagged(identifier-tagged("x",true),false), identifiers),
is-in-type(identifier-tagged("x",identifier-tagged("x",true)), identifiers)
)
;
}
tests {
result-term: true;
}

10
IBAF-cbs/Funcons-beta/Computations/Normal/Binding/tests/initialise-binding.config Normal file
View File

@@ -0,0 +1,10 @@
general {
funcon-term:
initialise-binding(print"OK")
;
}
tests {
result-term: null-value;
standard-out: ["OK"];
}

17
IBAF-cbs/Funcons-beta/Computations/Normal/Binding/tests/recursive.config Normal file
View File

@@ -0,0 +1,17 @@
general {
funcon-term:
initialise-binding
scope(
recursive(
{"x"},
bind-value("x", thunk closure
if-true-else(not is-equal(null-value, bound-value"x"), true, false))),
force bound-value"x")
;
}
tests {
result-term:
true
;
}

15
IBAF-cbs/Funcons-beta/Computations/Normal/Binding/tests/scope.config Normal file
View File

@@ -0,0 +1,15 @@
general {
funcon-term:
initialise-binding
and(
scope(bind-value("x", false),
scope(bind-value("x", true),
bound-directly"x")),
scope(bind-value("x", false),
true))
;
}
tests {
result-term: true;
}

9
IBAF-cbs/Funcons-beta/Computations/Normal/Binding/tests/unbind.config Normal file
View File

@@ -0,0 +1,9 @@
general {
funcon-term:
unbind("x")
;
}
tests {
result-term: {"x"|->( )};
}