Exemple #1
0
func DictToCommand(vm *gelo.VM, args *gelo.List, ac uint) gelo.Word {
	if ac != 1 {
		gelo.ArgumentError(vm, "dict->command", "dictionary", args)
	}
	m := vm.API.DictOrElse(args.Value).Map()
	return gelo.Alien(func(vm *gelo.VM, args *gelo.List, ac uint) gelo.Word {
		if ac == 0 {
			gelo.ArgumentError(vm, "command generated by dict->command",
				"argument+", args)
		}
		name := args.Value.Ser().String()
		if v, ok := m[name]; ok {
			if args.Next != nil {
				return vm.API.TailInvokeCmd(v, args.Next)
			} else {
				return vm.API.TailInvokeWordOrReturn(v)
			}
		} else if args.Next != nil {
			gelo.RuntimeError(vm, name, "is not a valid subcommand")
		} else {
			gelo.RuntimeError(vm, name, "is not a valid subcommand or entry")
		}
		panic("command generated by dict->command in impossible state") //Issue 65
	})
}
Exemple #2
0
func ArgumentError(vm *gelo.VM, args *gelo.List, ac uint) gelo.Word {
	if ac != 2 {
		gelo.ArgumentError(vm, "ArgumentError", "name arg-spec args", args)
	}
	gelo.ArgumentError(vm, args.Value.Ser(), args.Next.Value.Ser(),
		args.Next.Next.Value.Ser())
	panic("Issue 65")
}
Exemple #3
0
func DictAggregate(vm *gelo.VM, args *gelo.List, ac uint) gelo.Word {
	if ac < 2 {
		gelo.ArgumentError(vm, "dict", "dictionary command args*", args)
	}
	d := args.Value
	command := args.Next.Value.Ser().String()
	rest := args.Next.Next
	if _, ok := _dict_commands[command]; !ok {
		gelo.ArgumentError(vm, "dict",
			"dictionary 'set!|'unset!|'get|'get!|'set?|'keys|'value args*",
			command)
	}
	return _dict_commands[command](vm, &gelo.List{d, rest}, ac-1)
}
Exemple #4
0
func MakeOrElseArgParser(spec string) func(*gelo.VM, *gelo.List) map[string]gelo.Word {
	parser := MakeArgParser(spec)
	return func(vm *gelo.VM, args *gelo.List) map[string]gelo.Word {
		Args, ok := parser(args)
		if !ok {
			if len(spec) != 0 {
				gelo.ArgumentError(vm, "argparser", spec, args)
			} else {
				gelo.ArgumentError(vm, "argparser", "no arguments", args)
			}
		}
		return Args
	}
}
Exemple #5
0
func (p *ConfigParser) set(vm *gelo.VM, args *gelo.List, ac uint) gelo.Word {
	if ac == 0 {
		gelo.ArgumentError(vm, "set", "<name> [args*]", args)
	}
	name := vm.API.SymbolOrElse(args.Value)

	// Check that we're in correct section
	checkInSection(vm, "set", "port", "plugin")

	// Check that all arguments are compatible values
	for tmp := args; tmp != nil; tmp = tmp.Next {
		_, oksym := tmp.Value.(gelo.Symbol)
		_, oknum := tmp.Value.(*gelo.Number)
		_, okbool := tmp.Value.(gelo.Bool)
		if !(oksym || oknum || okbool) {
			runtimeError(vm, "Arguments of set should be symbols or numbers or booleans")
		}
	}

	var values *gelo.List
	if ac == 1 {
		values = gelo.NewListFromGo([]interface{}{gelo.True})
	} else {
		values = args.Next
	}

	d := getOrMakeDict(vm, "data")
	d.Set(name, values)

	return nil
}
Exemple #6
0
func NS_globals(vm *gelo.VM, args *gelo.List, ac uint) gelo.Word {
	if ac != 0 {
		gelo.ArgumentError(vm, "ns.globals", "", args)
	}
	d := vm.Ns.Locals(-1)
	return d
}
Exemple #7
0
func PortClosedp(vm *gelo.VM, args *gelo.List, ac uint) gelo.Word {
	if ac != 1 {
		gelo.ArgumentError(vm, "closed?", "port", args)
	}
	p := vm.API.PortOrElse(args.Value)
	return gelo.ToBool(p.Closed())
}
Exemple #8
0
func (p *ConfigParser) plugin(vm *gelo.VM, args *gelo.List, ac uint) gelo.Word {
	if ac != 2 {
		gelo.ArgumentError(vm, "plugin", "<name> {body}", args)
	}
	name := args.Value.Ser().String()
	body := vm.API.QuoteOrElse(args.Next.Value)

	checkInSection(vm, "plugin", "plugins")

	insideSection(vm, "plugin", name,
		func() {
			p.conf.Plugins[name] = new(conf.PluginConf)
			p.conf.Plugins[name].Name = name
			vm.API.InvokeCmdOrElse(body, args)

			p.conf.Plugins[name].Options = make(map[string][]string)
			d := getOrMakeDict(vm, "data")
			for k, v := range d.Map() {
				var elements []string
				args.Slice()
				for e := vm.API.ListOrElse(v); e != nil; e = e.Next {
					elements = append(elements, e.Value.Ser())
				}
				p.conf.Plugins[name].Options[k] = elements
			}
		},
	)

	return nil
}
Exemple #9
0
//For each item, Value acts as the identity unless the item is a quote.
//If it is a quote attempt to invoke and return result if there were no errors
//If invocation fails for any reason Value returns the quote as a literal.
func Value(vm *gelo.VM, args *gelo.List, ac uint) gelo.Word {
	if ac == 0 {
		gelo.ArgumentError(vm, "value", "items+", "")
	}
	return args.MapOrApply(func(w gelo.Word) gelo.Word {
		return vm.API.TailInvokeWordOrReturn(w)
	})
}
Exemple #10
0
func Copy(vm *gelo.VM, args *gelo.List, ac uint) gelo.Word {
	if ac == 0 {
		gelo.ArgumentError(vm, "copy", "values+", "")
	}
	return args.MapOrApply(func(w gelo.Word) gelo.Word {
		return w.Copy()
	})
}
Exemple #11
0
func Mod(vm *gelo.VM, args *gelo.List, ac uint) gelo.Word {
	if ac != 2 {
		gelo.ArgumentError(vm, "mod", "number base", args)
	}
	n := vm.API.NumberOrElse(args.Value).Real()
	m := vm.API.NumberOrElse(args.Next.Value).Real()
	return gelo.NewNumber(math.Mod(n, m))
}
Exemple #12
0
func TypeMismatchError(vm *gelo.VM, args *gelo.List, ac uint) gelo.Word {
	if ac != 2 {
		gelo.ArgumentError(vm, "TypeMismatchError",
			"expected-type recieved-type", args)
	}
	gelo.TypeMismatch(vm, args.Value.Ser(), args.Next.Value.Ser())
	panic("Issue 65")
}
Exemple #13
0
func SyntaxError(vm *gelo.VM, args *gelo.List, ac uint) gelo.Word {
	if ac == 0 {
		gelo.ArgumentError(vm, "SyntaxError", "error-msg+", "")
	}
	//TODO should get a line-no, etc to allow creation of good error message
	gelo.SyntaxError(args)
	panic("Issue 65")
}
Exemple #14
0
func Dict_setp(vm *gelo.VM, args *gelo.List, ac uint) gelo.Word {
	if ac != 2 {
		gelo.ArgumentError(vm, "dict.setp?", "dictionary key", args)
	}
	d := vm.API.DictOrElse(args.Value.(*gelo.Dict))
	k := args.Next.Value
	return gelo.ToBool(d.Has(k))
}
Exemple #15
0
func NS_inject(vm *gelo.VM, args *gelo.List, ac uint) gelo.Word {
	if ac != 1 {
		gelo.ArgumentError(vm, "ns.inject", "dictionary", args)
	}
	d := vm.API.DictOrElse(args.Value)
	vm.Ns.Inject(0, d)
	return d
}
Exemple #16
0
func Setx(vm *gelo.VM, args *gelo.List, ac uint) gelo.Word {
	if ac != 2 {
		gelo.ArgumentError(vm, "set!", "name value", args)
	}
	val := args.Next.Value
	vm.Ns.Set(0, args.Value, val)
	return val
}
Exemple #17
0
//Commands for namespaces
func NS_fork(vm *gelo.VM, args *gelo.List, ac uint) gelo.Word {
	if ac != 0 {
		gelo.ArgumentError(vm, "ns.fork", "", args)
	}
	vm.Ns.Fork(nil)
	vm.API.Trace("Child namespace created")
	return gelo.Null
}
Exemple #18
0
func Re_matchp(vm *gelo.VM, args *gelo.List, ac uint) gelo.Word {
	if ac != 2 {
		gelo.ArgumentError(vm, "match?", "regexp string", args)
	}
	r := ReOrElse(vm, args.Value)
	s := args.Next.Value.Ser().Bytes()
	return gelo.ToBool(r.Match(s))
}
Exemple #19
0
func Type_of(vm *gelo.VM, args *gelo.List, ac uint) gelo.Word {
	if ac == 0 {
		gelo.ArgumentError(vm, "type-of", "value+", "")
	}
	return args.MapOrApply(func(w gelo.Word) gelo.Word {
		return w.Type()
	})
}
Exemple #20
0
func Re_replace(vm *gelo.VM, args *gelo.List, ac uint) gelo.Word {
	if ac != 3 {
		gelo.ArgumentError(vm, "replace-all", "regexp string replace", args)
	}
	r := ReOrElse(vm, args.Value)
	src := args.Next.Value.Ser().Bytes()
	repl := args.Next.Next.Value.Ser().Bytes()
	return gelo.BytesToSym(r.ReplaceAll(src, repl))
}
Exemple #21
0
func Setp(vm *gelo.VM, args *gelo.List, ac uint) gelo.Word {
	if ac == 0 {
		gelo.ArgumentError(vm, "set?", "name+", args)
	}
	return args.MapOrApply(func(w gelo.Word) gelo.Word {
		_, ok := vm.Ns.Lookup(w)
		return gelo.ToBool(ok)
	})
}
Exemple #22
0
func PortReadx(vm *gelo.VM, args *gelo.List, ac uint) gelo.Word {
	if ac != 1 {
		gelo.ArgumentError(vm, "read!", "port", args)
	}
	p := vm.API.PortOrElse(args.Value)
	if p.Closed() {
		gelo.RuntimeError(vm, "attempted to read from a closed port")
	}
	return p.Recv()
}
Exemple #23
0
func Dict_setx(vm *gelo.VM, args *gelo.List, ac uint) gelo.Word {
	if ac != 3 {
		gelo.ArgumentError(vm, "dict.set", "dictionary key value", args)
	}
	d := vm.API.DictOrElse(args.Value)
	k := args.Next.Value
	v := args.Next.Next.Value
	d.Set(k, v)
	return v
}
Exemple #24
0
func NS_unfork(vm *gelo.VM, args *gelo.List, ac uint) gelo.Word {
	if ac != 0 {
		gelo.ArgumentError(vm, "ns.unfork", "", args)
	}
	if _, ok := vm.Ns.Unfork(); !ok {
		gelo.RuntimeError(vm, "Fatal: Last namespace destroyed")
	}
	vm.API.Trace("Namespace destroyed")
	return gelo.Null
}
Exemple #25
0
func Dict_keys(vm *gelo.VM, args *gelo.List, ac uint) gelo.Word {
	if ac != 1 {
		gelo.ArgumentError(vm, "dict.keys", "dictionary", args)
	}
	d, list := vm.API.DictOrElse(args.Value), extensions.ListBuilder()
	for k, _ := range d.Map() {
		list.Push(gelo.StrToSym(k))
	}
	return list.List()
}
Exemple #26
0
//Not the best name. Rewrites quote (ie rewrites $@[]) then returns
//a list of lists of symbols
func Partial_eval(vm *gelo.VM, args *gelo.List, ac uint) gelo.Word {
	if ac != 1 {
		gelo.ArgumentError(vm, "partial-eval", "quote", args)
	}
	lists, ok := vm.API.PartialEval(vm.API.QuoteOrElse(args.Value))
	if !ok {
		gelo.TypeMismatch(vm, "code quote", "literal quote")
	}
	return lists
}
Exemple #27
0
func ReCon(vm *gelo.VM, args *gelo.List, ac uint) gelo.Word {
	if ac != 1 {
		gelo.ArgumentError(vm, "Re", "specification", args)
	}
	spec := vm.API.LiteralOrElse(args.Value)
	rex, err := regexp.Compile(string(spec))
	if err != nil {
		gelo.SyntaxError(vm, err.Error())
	}
	return &Regexp{rex}
}
Exemple #28
0
func Updatex(vm *gelo.VM, args *gelo.List, ac uint) gelo.Word {
	if ac != 2 {
		gelo.ArgumentError(vm, "update!", "name value", args)
	}
	toreset := args.Value
	val := args.Next.Value
	if !vm.Ns.Mutate(toreset, val) {
		gelo.VariableUndefined(vm, toreset)
	}
	return val
}
Exemple #29
0
func PortClosex(vm *gelo.VM, args *gelo.List, ac uint) gelo.Word {
	if ac != 1 {
		gelo.ArgumentError(vm, "close!", "port", args)
	}
	p := vm.API.PortOrElse(args.Value)
	if p.Closed() {
		gelo.RuntimeError(vm, "port already closed")
	}
	p.Close()
	return gelo.Null
}
Exemple #30
0
func Unsetx(vm *gelo.VM, args *gelo.List, ac uint) gelo.Word {
	if ac == 0 {
		gelo.ArgumentError(vm, "unset!", "name+", args)
	}
	return args.MapOrApply(func(w gelo.Word) gelo.Word {
		val, ok := vm.Ns.Del(w)
		if !ok {
			gelo.VariableUndefined(vm, w)
		}
		return val
	})
}