Data update
This commit is contained in:
parent
07c7092a52
commit
61b93a2cd1
313 changed files with 6160 additions and 346 deletions
|
|
@ -2,6 +2,8 @@ import system'routines;
|
|||
import extensions;
|
||||
import extensions'routines;
|
||||
|
||||
// --- Joinable --
|
||||
|
||||
joinable(former,later) = (former[former.Length - 1] == later[0]);
|
||||
|
||||
dispatcher = new
|
||||
|
|
@ -27,25 +29,27 @@ dispatcher = new
|
|||
}
|
||||
};
|
||||
|
||||
// --- AmbValueCollection ---
|
||||
|
||||
class AmbValueCollection
|
||||
{
|
||||
object theCombinator;
|
||||
object _combinator;
|
||||
|
||||
constructor new(params object[] args)
|
||||
{
|
||||
theCombinator := SequentialEnumerator.new(params args)
|
||||
_combinator := SequentialEnumerator.new(params args)
|
||||
}
|
||||
|
||||
seek(cond)
|
||||
{
|
||||
theCombinator.reset();
|
||||
_combinator.reset();
|
||||
|
||||
theCombinator.seekEach:(v => dispatcher.eval(v,cond))
|
||||
_combinator.seekEach:(v => dispatcher.eval(v,cond))
|
||||
}
|
||||
|
||||
do(f)
|
||||
{
|
||||
var result := theCombinator.get();
|
||||
var result := *_combinator;
|
||||
if (nil != result)
|
||||
{
|
||||
dispatcher.eval(result,f)
|
||||
|
|
@ -57,12 +61,16 @@ class AmbValueCollection
|
|||
}
|
||||
}
|
||||
|
||||
// --- ambOperator ---
|
||||
|
||||
singleton ambOperator
|
||||
{
|
||||
for(params object[] args)
|
||||
= AmbValueCollection.new(params args);
|
||||
}
|
||||
|
||||
// --- Program ---
|
||||
|
||||
public program()
|
||||
{
|
||||
try
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue