from .. import TypeEnum, Environment, Arg, Builtin, evaluate, InterpretPanic from ..structs import * STRINGS = Environment() def interpretConcat(symbol, args, env, ns): out = "" for arg in args: out += arg.value return String(out) string_arg = Arg("arg", TypeEnum.STRING) STRINGS.register("concat", Builtin("concat", interpretConcat, [string_arg, string_arg], string_arg, Type(":string"))) def interpretStrip(symbol, args, env, ns): return String(args[0].value.strip()) STRINGS.register("strip", Builtin("strip", interpretStrip, [Arg("filename", TypeEnum.STRING)], return_type=Type(":string"))) def interpretSplit(symbol, args, env, ns): target = args[0] if len(args) == 1: return List([String(char) for char in target.value]) splitter = args[1] ret = target.value.split(splitter.value) return List([String(r) for r in ret]) STRINGS.register("split", Builtin("split", interpretSplit, [Arg("target", TypeEnum.STRING)], Arg("splitter", TypeEnum.STRING, optional=True), Type(":list"))) def interpretJoin(symbol, args, env, ns): lst = args[0] target = args[1] return String(target.value.join([a.value for a in lst.args])) join_list_arg = Arg("list", TypeEnum.LIST) join_string_arg = Arg("joiner", TypeEnum.STRING) STRINGS.register("join", Builtin("join", interpretJoin, [join_list_arg, join_string_arg], return_type=Type(":string"))) def interpretFirstChar(symbol, args, env, ns): if len(args[0].value) == 0: raise InterpretPanic(symbol, ":string is empty") return String(args[0].value[0]) STRINGS.register("first-char", Builtin("first-char", interpretFirstChar, [Arg("string", TypeEnum.STRING)], return_type=Type(":string"))) def interpretRestChar(symbol, args, env, ns): return String(args[0].value[1:]) STRINGS.register("rest-char", Builtin("rest-char", interpretRestChar, [Arg("string", TypeEnum.STRING)], return_type=Type(":string"))) def interpretLength(symbol, args, env, ns): return Int(len(args[0].value)) STRINGS.register("length", Builtin("length", interpretLength, [Arg("string", TypeEnum.STRING)], return_type=Type(":int"))) def interpretRaw(symbol, args, env, ns): return String(str(args[0])) STRINGS.register("raw", Builtin("raw", interpretRaw, [Arg("string", TypeEnum.STRING)], return_type=Type(":string"))) def interpretOrd(symbol, args, env, ns): if len(args[0].value) != 1: raise InterpretPanic(symbol, "requires a :string of length 1", args[0]) return Int(ord(args[0].value)) STRINGS.register("ord", Builtin("ord", interpretOrd, [Arg("char", TypeEnum.STRING)], return_type=Type(":int")))