Exemple #1
0
func MaybeArgumentParser(_ *gelo.VM, args *gelo.List, ac uint) gelo.Word {
	parser := extensions.MakeArgParser(_args_to_spec(args, ac))
	return gelo.Alien(func(vm *gelo.VM, args *gelo.List, _ uint) gelo.Word {
		Args, ok := parser(args)
		if !ok {
			return gelo.NewList(gelo.False)
		}
		return gelo.NewList(gelo.True, gelo.NewDictFrom(Args))
	})
}
Exemple #2
0
func Zip_map(vm *gelo.VM, args *gelo.List, ac uint) gelo.Word {
	if ac != 2 {
		gelo.ArgumentError(vm, "zip-map", "key-list value-list", args)
	}
	keys := vm.API.ListOrElse(args.Value)
	values := vm.API.ListOrElse(args.Next.Value)
	m := make(map[string]gelo.Word)
	for ; keys != nil || values != nil; keys, values = keys.Next, values.Next {
		m[keys.Value.Ser().String()] = values.Value
	}
	return gelo.NewDictFrom(m)
}
Exemple #3
0
func Exportsx(vm *gelo.VM, args *gelo.List, ac uint) gelo.Word {
	lvls, args := _export_parser(vm, args)
	m := make(map[string]gelo.Word)
	for ; args != nil; args = args.Next {
		//Ns Ser's value anyway so no point in doing it twice
		k := args.Value.Ser()
		v := vm.Ns.LookupOrElse(k)
		m[k.String()] = v
	}
	d := gelo.NewDictFrom(m)
	if !vm.Ns.Inject(lvls, d) {
		gelo.RuntimeError(vm, "invalid namespace specified")
	}
	return d
}
Exemple #4
0
func Aggregate(items map[string]interface{}) gelo.Alien {
	Map := make(map[string]gelo.Word)
	for k, v := range items {
		Map[k] = gelo.Convert(v)
	}
	d := gelo.NewDictFrom(Map)
	return gelo.Alien(func(vm *gelo.VM, args *gelo.List, ac uint) gelo.Word {
		if ac == 0 {
			return d
		}
		item, there := Map[args.Value.Ser().String()]
		if !there {
			//XXX this error message could be comprehensible in theory
			//will fix itself when vm contains name, lineno, etc
			gelo.ArgumentError(vm, "<an aggregate>", "command args*", args.Next)
		}
		return vm.API.TailInvokeCmd(item, args.Next)
	})
}
Exemple #5
0
func ArgumentParser(_ *gelo.VM, args *gelo.List, ac uint) gelo.Word {
	parser := extensions.MakeOrElseArgParser(_args_to_spec(args, ac))
	return gelo.Alien(func(vm *gelo.VM, args *gelo.List, _ uint) gelo.Word {
		return gelo.NewDictFrom(parser(vm, args))
	})
}