lourenco/mgmt
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

examples: lang: Fixup a few examples

Browse Source 
We might change unification to allow naked single strings with fancier
unification, but let's leave it as is for now and see how often it comes
up.
This commit is contained in:
James Shubin
2024-07-02 23:50:24 -04:00
parent d1753c592a
commit e747e12002
2 changed files with 14 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
examples/lang/class-include-nested0.mcl
View File

@@ -1,12 +1,12 @@
$top = "top-level" $top = "top-level"
class base($s) { class base($s) {
test "middle " + $s {} test ["middle " + $s,] {}
$middle = "inside base" $middle = "inside base"
} }
# syntactic sugar for the equivalent of defining a class `inner` inside of base. # syntactic sugar for the equivalent of defining a class `inner` inside of base.
class base:inner($s) { class base:inner($s) {
test "inner " + $s {} test ["inner " + $s,] {}
$last = "i am inner and i can see " + $middle $last = "i am inner and i can see " + $middle
} }
@@ -14,6 +14,6 @@ class base:inner($s) {
include base("world") as b1 include base("world") as b1
include b1.inner("hello") as b2 # inner comes out of `base` include b1.inner("hello") as b2 # inner comes out of `base`
test $top {} test [$top,] {}
test $b1.middle {} test [$b1.middle,] {}
test $b2.last {} test [$b2.last,] {}

18
examples/lang/class-include-nested1.mcl
View File

@@ -1,25 +1,25 @@
$top = "top-level" $top = "top-level"
class base($s) { class base($s) {
test "middle " + $s {} test ["middle " + $s,] {}
$middle = "inside base" $middle = "inside base"
} }
# syntactic sugar for the equivalent of defining a class `inner` inside of base. # syntactic sugar for the equivalent of defining a class `inner` inside of base.
class base:inner1($s) { class base:inner1($s) {
test "inner1 " + $s {} test ["inner1 " + $s,] {}
$last = "i am inner1 and i can see " + $middle $last = "i am inner1 and i can see " + $middle
} }
class base:inner2($s) { class base:inner2($s) {
test "inner2 " + $s {} test ["inner2 " + $s,] {}
$last = "i am inner2 and i can see " + $middle $last = "i am inner2 and i can see " + $middle
} }
# three deep! # three deep!
class base:inner1:deep($s, $b) { class base:inner1:deep($s, $b) {
test "deep is " + $s {} test ["deep is " + $s,] {}
$end = "i am deep and i can see " + $middle + " and last says " + $last $end = "i am deep and i can see " + $middle + " and last says " + $last
} }
@@ -29,8 +29,8 @@ include b0.inner1("hello") as b1 # inner comes out of `base`
include b0.inner2("hello") as b2 # inner comes out of `base` include b0.inner2("hello") as b2 # inner comes out of `base`
include b1.deep("deep", true) as d # deep comes out of `inner1` include b1.deep("deep", true) as d # deep comes out of `inner1`
test $top {} test [$top,] {}
test $b0.middle {} test [$b0.middle,] {}
test $b1.last {} test [$b1.last,] {}
test $b2.last {} test [$b2.last,] {}
test $d.end {} test [$d.end,] {}