def read(inp: str):
return read_str(inp)
lambda a: Val("bool",
len(a.value) == 0),
"count":
lambda a: Val("number", len(a.value)),
"=":
lambda a, b: Val("bool", equal_fn(a, b)),
"pr-str":
pr_str_fn,
"str":
str_fn,
"println":
println_fn,
"prn":
prn,
"read-string":
lambda a: read_str(a.value),
"slurp":
slurp,
"atom":
lambda a: Val("atom", a),
"atom?":
lambda a: Val("bool", a.type == "atom"),
"deref":
lambda a: a.value,
"reset!":
reset,
"swap!":
swap,
"cons":
lambda a, b: Val("list", [a] + b.value),
"concat":
def READ(str):
return reader.read_str(str)
def READ(s):
malData = reader.read_str(s)
return malData
def READ(str_):
"""
Make mal instructions from string.
"""
return read_str(str_)
def READ(input_str: str) -> MalType:
return read_str(input_str)
def READ(s: str) -> MalType:
return reader.read_str(s)
def read_string(*args: t.MalType) -> t.MalType:
if len(args) != 1 or not isinstance(args[0], t.MalString):
raise MalError('Expected read-string arg to be string')
return read_str(args[0].value)
def READ(string: str) -> Union[MalType, bool, None]:
return read_str(string)
def READ():
raw_input = input("user> ")
if raw_input in ["q", "exit"]:
raise EOFError
return read_str(raw_input)
def mal_read():
s = input('user> ')
return reader.read_str(s)
def repl_read(line):
return reader.read_str(line)
def READ(str_):
return read_str(str_)
def READ(string: str) -> MalTypes:
return read_str(string)
def READ(line):
return reader.read_str(line)
def READ(in_: str) -> t.MalType:
return read_str(in_)
def READ(str):
return reader.read_str(str)
def READ(txt):
ast = reader.read_str(txt)
return ast
"+": lambda x,y: x+y
,"-": lambda x,y: x-y
,"*": lambda x,y: x*y
,"/": lambda x,y: x/y
,"nil": "nil"
,"not": lambda x: not ((type(x)==bool and x) or (type(x)!=bool and x!="nil"))
,"list": lambda *l: [*l]
,"list?": lambda lst: isinstance(lst,list)
,"empty?": lambda lst: len(lst)==0
,"count": lambda lst: len(lst) if isinstance(lst,(list,tuple)) else 0
,"=": lambda x,y: x==y
,">": lambda x,y: x>y
,"<": lambda x,y: x<y
,">=": lambda x,y: x>=y
,"<=": lambda x,y: x<=y
,"read-string": lambda s: reader.read_str(s.value)
,"slurp": lambda fname:maltype.String(readfile(fname))
,"pr-str": lambda *x: maltype.String(" ".join([printer.pr_str(v) for v in x]))
,"str": lambda *x: maltype.String("".join([printer.pr_str(v,False) for v in x]))
,"prn": prn
,"println": println
,"atom": lambda v:maltype.Atom(v)
,"atom?": maltype.atomp
,"deref": lambda a:a.value
,"reset!": lambda a,v:a.reset(v)
,"swap!": lambda a,f,*arg:a.reset(f(a.value,*arg) if not isinstance(f,dict) else f["fn"](a.value,*arg))
,"cons": lambda a,lst: [a,*lst]
,"concat": concat
,"nth": nth
,"first": lambda lst:"nil" if len(lst)==0 or lst=="nil" else nth(lst,0)
,"rest": rest
'count': lambda x: len(x.getVal()) if isinstance(Vector, x) else len(x), '=': lambda a, b: a == b, '<': lambda a, b: a < b, '<=': lambda a, b: a <= b, '>': lambda a, b: a > b, '>=': lambda a, b: a >= b, 'quit': lambda: exit(0), 'read-string': lambda s: reader.read_str(s), 'slurp': slurp, 'map': my_map, 'reduce': my_reduce, 'nth': lambda lst, n: lst[n], 'first': lambda lst: lst[0], 'rest': lambda lst: lst[1:], 'hash-map': my_hash_map, 'filter':
def READ(x):
return reader.read_str(x)
def READ():
raw_input = input("user> ")
return read_str(raw_input)
def func_read_string(arg):
if not isinstance(arg, parser.LispString):
raise ArgumentError("should be a string")
return reader.read_str(arg.str)
def READ():
return reader.read_str(input("user> "))
def read_str(x):
try:
return reader.read_str(x[1:-1])
except reader.NoTokenException:
return None
def read_str(args):
a0 = args[0]
if not isinstance(a0, MalStr):
throw_str("read-string of non-string")
return reader.read_str(str(a0.value))
def READ(read_in):
return reader.read_str(read_in)
def READ(code):
return reader.read_str(code)
def READ(source):
return read_str(source)
def _read_string(node):
txt = node.val
ast = reader.read_str(txt)
return ast
def read_(read_str):
return reader.read_str(read_str)
def READ(code):
return reader.read_str(code)
def READ(line):
res = reader.read_str(line)
log(str(res),"READ")
return res
def read_string(string):
if isinstance(string, mal_types.MalString):
string = string.data
rv = read_str(string)
# print("read_string result:", rv)
return rv
def read_str(args):
a0 = args[0]
if not isinstance(a0, MalStr):
throw_str("read-string of non-string")
return reader.read_str(str(a0.value))
def READ(form):
return reader.read_str(form)
