Bruce/nomsu
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Moved things into core/

Browse Source
This commit is contained in:
Bruce Hill 2019-01-16 16:38:15 -08:00
parent 2daebbff27
commit 1cbf9f3e07
2 changed files with 19 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lib/core/init.nom
View File

@ -10,3 +10,4 @@ export "core/math"
export "core/id"
export "core/io"
export "core/text"
export "core/things"

25
lib/things.nom → lib/core/things.nom
View File

@ -2,17 +2,22 @@
#
A library for simple object oriented programming.
use "core/metaprogramming"
use "core/operators"
use "core/control_flow"
use "core/collections"
use "core/errors"
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
test:
an (Empty) is a thing
a (Buffer) is a thing:
$its.is_a_buffer = (yes)
($its, set up) means:
$its.bits or= []
($it, as text) means
$it.bits, joined
[($its, add $bit), ($its, append $bit)] all mean:
$its.bits, add $bit
($it, as text) means ($it.bits, joined)
[($its, add $bit), ($its, append $bit)] all mean: $its.bits, add $bit
assume (Buffer).is_a_buffer
$b = (a Buffer)
assume (type of $b) == "Buffer"
@ -26,11 +31,9 @@ test:
assume "\$b" == "xyz"
assume $b == (a Buffer with {.bits = ["x", "y", "z"]})
assume $b != (a Buffer with {.bits = []})
a (Comma Buffer) is a (Buffer):
($it, as text) means ($it.bits, joined with ",")
($its, number of commas) means ((#$its.bits) - 1)
$csv = (a Comma Buffer)
assume $csv.is_a_buffer
assume "\$csv" == ""
@ -38,7 +41,6 @@ test:
$csv, add "y"
assume "\$csv" == "x,y"
assume ($csv, number of commas) == 1
a (Vec) is a thing with {.x, .y}:
($its, + $other) means (Vec {.x = ($its.x + $other.x), .y = ($its.y + $other.y)})
@ -79,8 +81,7 @@ external:
fail "Cannot set \$key, it's not one of the allowed member fields."
set $class's metatable to {
.__index = $parent
.__tostring = ($class -> $class.__type)
.__index = $parent, .__tostring = ($class -> $class.__type)
.__call =
for ($class with $initial_values):
if ($initial_values == (nil)): return $class
@ -107,7 +108,8 @@ external:
$class_id = ($classname.stub, as lua id)
$lua =
Lua ("
\$class_id = a_1_class_named_2_with(\($parent as lua), \(quote $classname.stub), \($members as lua)\(
\$class_id = a_1_class_named_2_with(\($parent as lua), \(quote $classname.stub), \
..\($members as lua)\(
(
Lua ("
, function(\$class_id)
@ -120,7 +122,6 @@ external:
a_\$class_id = function(initial_values) return \$class_id(initial_values or {}) end
an_\$class_id, a_\($class_id)_with, an_\($class_id)_with = a_\$class_id, a_\$class_id, a_\$class_id
")
$lua, add free vars [$class_id, "a_\$class_id", "an_\$class_id"]
return $lua