apmckinlay

type CharMatch struct {
	fn func(rune) bool
}

func (cm CharMatch) Match(c rune) bool {
	return cm.fn(c)
}

func Is(c rune) CharMatch {
	return CharMatch{ func (c2 rune) bool { return c == c2 }}

apmckinlay

type CharMatch interface {
	Match(c rune) bool
}

type is_cm struct {
	c rune
}

func (cm is_cm) Match(c rune) bool {
	return c == cm.c

apmckinlay

// Package lex implements the lexical scanner for Suneido
package lex

import (
	"bytes"
	"strings"
	"unicode"
	"unicode/utf8"
)

apmckinlay

/*
hamcrest implements very basic hamcrest style asserts
for example:
	func TestStuff(t *testing.T) {
		Assert(t).That(2 * 4, Equals(6))
	}
*/
package hamcrest

import "fmt"

apmckinlay

// Package float10 implements decimal floating point numbers
// using uint64 to hold the coefficient.
package float10

import "strconv"
import "errors"
import "strings"
import "math"

// value is -1^sign * coef * 10^exp

apmckinlay

max_matches: 30
GetMatches(prefix)
    {
    list = Suneido.LibLocate.list
    prefix = prefix.Tr("_").Lower()
    from = list.LowerBound(prefix)
    to = Min(from + .max_matches, list.LowerBound(prefix.RightTrim() $ "~"))
    matches = list[from .. to]
    matches.Map!({ it.AfterFirst("=") })
    matches.Sort!().Unique!()

apmckinlay

getLibsNames(libs)
    {
    list = Object()
    for (i = 0; i < libs.Size(); ++i)
        {
        lib = libs[i]
        li = i.Pad(2)
        for x in QueryList(lib $ " where group = -1", "name")
            {
            list.Add(x.Tr("_").Lower() $ "=" $ x $ ":" $ li)

apmckinlay

CommaStringBuilder csb = new CommaStringBuilder("(");
for (Object x : list)
    csb.add(fn(x));
return csb.append(")").toString();

apmckinlay

public class CommaStringBuilder implements Appendable {
    private final StringBuilder sb;
    private boolean first = true;

    public CommaStringBuilder() {
        sb = new StringBuilder();
    }

    public CommaStringBuilder(String s) {
        sb = new StringBuilder(s);

apmckinlay

if (list.isEmpty())
    return "";
for (Object x : list)
    sb.append(",").append(fn(x));
return sb.substring(1);