def syntax_quote(form):
if isinstance(form, Symbol) and compiler.is_compiler_special(form):
ret = rt.list(QUOTE, form)
elif isinstance(form, Symbol):
if rt.namespace(form) is None and rt.name(form).endswith("#"):
gmap = rt.deref(GEN_SYM_ENV)
affirm(gmap is not nil, u"Gensym literal used outside a syntax quote")
gs = rt.get(gmap, form)
if gs is nil:
gs = rt.symbol(rt.str(form, rt.wrap(u"__"), rt.gensym()))
GEN_SYM_ENV.set_value(rt.assoc(gmap, form, gs))
form = gs
else:
var = rt.resolve_in(compiler.NS_VAR.deref(), form)
if var is nil:
form = rt.symbol(rt.str(rt.wrap(rt.name(rt.deref(compiler.NS_VAR))), rt.wrap(u"/"), form))
else:
form = rt.symbol(rt.str(rt.wrap(rt.namespace(var)), rt.wrap(u"/"), rt.str(rt.wrap(rt.name(var)))))
ret = rt.list(QUOTE, form)
elif is_unquote(form):
ret = rt.first(rt.next(form))
elif is_unquote_splicing(form):
return runtime_error(u"Unquote splicing not used inside list")
elif rt.vector_QMARK_(form) is true:
ret = rt.list(APPLY, CONCAT, SyntaxQuoteReader.expand_list(form))
elif rt.map_QMARK_(form) is true:
mes = SyntaxQuoteReader.flatten_map(form)
ret = rt.list(APPLY, HASHMAP, rt.list(APPLY, CONCAT, SyntaxQuoteReader.expand_list(mes)))
elif form is not nil and rt.seq_QMARK_(form) is true:
ret = rt.list(APPLY, LIST, rt.cons(CONCAT, SyntaxQuoteReader.expand_list(rt.seq(form))))
else:
ret = rt.list(QUOTE, form)
return ret
def syntax_quote(form):
if isinstance(form, Symbol) and compiler.is_compiler_special(form):
ret = rt.list(QUOTE, form)
elif isinstance(form, Symbol):
if rt.namespace(form) is None and rt.name(form).endswith("#"):
gmap = rt.deref(GEN_SYM_ENV)
affirm(gmap is not nil, u"Gensym literal used outside a syntax quote")
gs = rt.get(gmap, form)
if gs is nil:
gs = rt.symbol(rt.str(form, rt.wrap(u"__"), rt.gensym()))
GEN_SYM_ENV.set_value(rt.assoc(gmap, form, gs))
form = gs
else:
var = rt.resolve_in(compiler.NS_VAR.deref(), form)
if var is nil:
form = rt.symbol(rt.str(rt.wrap(rt.name(rt.deref(compiler.NS_VAR))), rt.wrap(u"/"), form))
else:
form = rt.symbol(rt.str(rt.wrap(rt.namespace(var)), rt.wrap(u"/"), rt.str(rt.wrap(rt.name(var)))))
ret = rt.list(QUOTE, form)
elif is_unquote(form):
ret = rt.first(rt.next(form))
elif is_unquote_splicing(form):
raise Exception("Unquote splicing not used inside list")
elif rt.vector_QMARK_(form) is true:
ret = rt.list(APPLY, CONCAT, SyntaxQuoteReader.expand_list(form))
elif rt.seq_QMARK_(form) is true:
ret = rt.list(APPLY, LIST, rt.cons(CONCAT, SyntaxQuoteReader.expand_list(rt.seq(form))))
else:
ret = rt.list(QUOTE, form)
return ret
def macroexpand(form):
sym = rt.first(form)
if isinstance(sym, symbol.Symbol):
s = rt.name(sym)
if s.startswith(".") and s != u".":
if rt.count(form) < 2:
raise Exception("malformed dot expression, expecting (.member obj ...)")
method = rt.keyword(rt.wrap(rt.name(sym)[1:]))
obj = rt.first(rt.next(form))
dot = rt.symbol(rt.wrap(u"."))
call = rt.cons(dot, rt.cons(obj, rt.cons(method, rt.next(rt.next(form)))))
return call
return form
def ns_map(ns):
from pixie.vm.symbol import Symbol
affirm(isinstance(ns, code.Namespace) or isinstance(ns, Symbol), u"ns must be a symbol or a namespace")
if isinstance(ns, Symbol):
ns = rt.the_ns(ns)
if ns is nil:
return nil
m = rt.hashmap()
for name in ns._registry:
var = ns._registry.get(name, nil)
m = rt.assoc(m, rt.symbol(rt.wrap(name)), var)
return m
def ns_aliases(ns):
from pixie.vm.symbol import Symbol
affirm(isinstance(ns, Namespace) or isinstance(ns, Symbol), u"ns must be a symbol or a namespace")
if isinstance(ns, Symbol):
ns = rt.the_ns(ns)
if ns is nil:
return nil
if isinstance(ns, Namespace):
m = rt.hashmap()
for alias in ns._refers:
refered_ns = ns._refers[alias]._namespace
m = rt.assoc(m, rt.symbol(rt.wrap(alias)), refered_ns)
return m
return nil
def macroexpand(form):
sym = rt.first(form)
if isinstance(sym, symbol.Symbol):
s = rt.name(sym)
if s.startswith(".") and s != u".":
if rt.count(form) < 2:
raise Exception(
"malformed dot expression, expecting (.member obj ...)")
method = rt.keyword(rt.wrap(rt.name(sym)[1:]))
obj = rt.first(rt.next(form))
dot = rt.symbol(rt.wrap(u"."))
call = rt.cons(
dot, rt.cons(obj, rt.cons(method, rt.next(rt.next(form)))))
return call
return form
def ns_aliases(ns):
from pixie.vm.symbol import Symbol
affirm(
isinstance(ns, Namespace) or isinstance(ns, Symbol),
u"ns must be a symbol or a namespace")
if isinstance(ns, Symbol):
ns = rt.the_ns(ns)
if ns is nil:
return nil
if isinstance(ns, Namespace):
m = rt.hashmap()
for alias in ns._refers:
refered_ns = ns._refers[alias]._namespace
m = rt.assoc(m, rt.symbol(rt.wrap(alias)), refered_ns)
return m
return nil
def ns_map(ns):
from pixie.vm.symbol import Symbol
affirm(
isinstance(ns, Namespace) or isinstance(ns, Symbol),
u"ns must be a symbol or a namespace")
if isinstance(ns, Symbol):
ns = rt.the_ns(ns)
if ns is nil:
return nil
if isinstance(ns, Namespace):
m = rt.hashmap()
for name in ns._registry:
var = ns._registry.get(name, nil)
m = rt.assoc(m, rt.symbol(rt.wrap(name)), var)
return m
return nil
def compile_set_literal(form, ctx):
vals = rt.reduce(ConsReduce(), nil, form)
vector_call = rt.cons(rt.symbol(rt.wrap(u"vector")), vals)
set_call = rt.cons(rt.symbol(rt.wrap(u"set")), rt.cons(vector_call, nil))
compile_cons(set_call, ctx)
def gensym2(prefix):
rt.reset_BANG_(gensym_id, rt._add(rt.deref(gensym_id), rt.wrap(1)))
i = rt.deref(gensym_id)
return rt.symbol(rt.str(prefix, i))
def compile_set_literal(form, ctx):
vals = rt.reduce(ConsReduce(), nil, form)
vector_call = rt.cons(rt.symbol(rt.wrap(u"vector")), vals)
set_call = rt.cons(rt.symbol(rt.wrap(u"set")), rt.cons(vector_call, nil))
compile_cons(set_call, ctx)
def gensym2(prefix):
rt.reset_BANG_(gensym_id, rt._add(rt.deref(gensym_id), rt.wrap(1)))
i = rt.deref(gensym_id)
return rt.symbol(rt.str(prefix, i))
def gensym():
rt.reset_BANG_(gensym_id, rt._add(rt.deref(gensym_id), rt.wrap(1)))
i = rt.deref(gensym_id)
return rt.symbol(rt.str(rt.wrap(u"gensym_"), i))
