def load_reader(rdr):
import pixie.vm.reader as reader
import pixie.vm.compiler as compiler
import sys
if not we_are_translated():
print "Loading file while interpreted, this may take time"
val = PXIC_WRITER.deref()
if val is nil:
pxic_writer = None
else:
pxic_writer = val.get_pxic_writer()
with compiler.with_ns(u"user"):
compiler.NS_VAR.deref().include_stdlib()
while True:
if not we_are_translated():
sys.stdout.write(".")
sys.stdout.flush()
form = reader.read(rdr, False)
if form is reader.eof:
return nil
try:
compiled = compiler.compile(form)
except WrappedException as ex:
meta = rt.meta(form)
if meta is not nil:
ci = rt.interpreter_code_info(meta)
add_info(ex, ci.__repr__())
add_info(ex, u"Compiling: " + rt.name(rt.str(form)))
raise ex
try:
if pxic_writer is not None:
pxic_writer.write_object(compiled)
compiled.invoke([])
except WrappedException as ex:
meta = rt.meta(form)
if meta is not nil:
ci = rt.interpreter_code_info(meta)
add_info(ex, ci.__repr__())
add_info(ex, u"Running: " + rt.name(rt.str(form)))
raise ex
if not we_are_translated():
print "done"
return nil
def load_reader(rdr):
import pixie.vm.reader as reader
import pixie.vm.compiler as compiler
import sys
if not we_are_translated():
print "Loading file while interpreted, this may take time"
val = PXIC_WRITER.deref()
if val is nil:
pxic_writer = None
else:
pxic_writer = val.get_pxic_writer()
with compiler.with_ns(u"user"):
compiler.NS_VAR.deref().include_stdlib()
while True:
if not we_are_translated():
sys.stdout.write(".")
sys.stdout.flush()
form = reader.read(rdr, False)
if form is reader.eof:
return nil
try:
compiled = compiler.compile(form)
except WrappedException as ex:
meta = rt.meta(form)
if meta is not nil:
ci = rt.interpreter_code_info(meta)
add_info(ex, ci.__repr__())
add_info(ex, u"Compiling: " + rt.name(rt.str(form)))
raise ex
try:
if pxic_writer is not None:
pxic_writer.write_object(compiled)
compiled.invoke([])
except WrappedException as ex:
meta = rt.meta(form)
if meta is not nil:
ci = rt.interpreter_code_info(meta)
add_info(ex, ci.__repr__())
add_info(ex, u"Running: " + rt.name(rt.str(form)))
raise ex
if not we_are_translated():
print "done"
return nil
def compile_fn_call(form, ctx):
macro = is_macro_call(form, ctx)
if macro:
return compile_form(call_macro(macro, form, ctx), ctx)
meta = rt.meta(form)
cnt = 0
ctc = ctx.can_tail_call
while form is not nil:
ctx.disable_tail_call()
compile_form(rt.first(form), ctx)
cnt += 1
form = rt.next(form)
if ctc:
ctx.enable_tail_call()
#if ctx.can_tail_call:
# ctx.bytecode.append(code.TAIL_CALL)
#else:
if meta is not nil:
ctx.debug_points[len(ctx.bytecode)] = rt.interpreter_code_info(meta)
ctx.bytecode.append(code.INVOKE)
ctx.bytecode.append(cnt)
ctx.sub_sp(r_uint(cnt - 1))
def compile_fn_call(form, ctx):
macro = is_macro_call(form, ctx)
if macro:
return compile_form(call_macro(macro, form, ctx), ctx)
meta = rt.meta(form)
cnt = 0
ctc = ctx.can_tail_call
while form is not nil:
ctx.disable_tail_call()
compile_form(rt.first(form), ctx)
cnt += 1
form = rt.next(form)
if ctc:
ctx.enable_tail_call()
#if ctx.can_tail_call:
# ctx.bytecode.append(code.TAIL_CALL)
#else:
if meta is not nil:
ctx.debug_points[len(ctx.bytecode)] = rt.interpreter_code_info(meta)
ctx.bytecode.append(code.INVOKE)
ctx.bytecode.append(cnt)
ctx.sub_sp(r_uint(cnt - 1))
def throw_syntax_error_with_data(rdr, txt):
assert isinstance(txt, unicode)
if isinstance(rdr, MetaDataReader):
meta = rdr.get_metadata()
else:
meta = nil
data = rt.interpreter_code_info(meta)
err = object.RuntimeException(rt.wrap(txt))
err._trace.append(data)
raise object.WrappedException(err)
def throw_syntax_error_with_data(rdr, txt):
assert isinstance(txt, unicode)
if isinstance(rdr, MetaDataReader):
meta = rdr.get_metadata()
else:
meta = nil
data = rt.interpreter_code_info(meta)
err = object.runtime_error(txt)
err._trace.append(data)
raise object.WrappedException(err)
def compile_cons(form, ctx):
if isinstance(form, EmptyList):
ctx.push_const(form)
return
if isinstance(rt.first(form), symbol.Symbol):
special = compiler_special(rt.first(form))
if special is not None:
return special(form, ctx)
macro = is_macro_call(form, ctx)
if macro:
return compile_form(call_macro(macro, form, ctx), ctx)
meta = rt.meta(form)
cnt = 0
ctc = ctx.can_tail_call
while form is not nil:
ctx.disable_tail_call()
compile_form(rt.first(form), ctx)
cnt += 1
form = rt.next(form)
if ctc:
ctx.enable_tail_call()
#if ctx.can_tail_call:
# ctx.bytecode.append(code.TAIL_CALL)
#else:
if meta is not nil:
ctx.debug_points[len(ctx.bytecode)] = rt.interpreter_code_info(meta)
ctx.bytecode.append(code.INVOKE)
ctx.bytecode.append(cnt)
ctx.sub_sp(r_uint(cnt - 1))
def compile_cons(form, ctx):
if isinstance(form, EmptyList):
ctx.push_const(form)
return
if isinstance(rt.first(form), symbol.Symbol):
special = compiler_special(rt.first(form))
if special is not None:
return special(form, ctx)
macro = is_macro_call(form, ctx)
if macro:
return compile_form(call_macro(macro, form, ctx), ctx)
meta = rt.meta(form)
cnt = 0
ctc = ctx.can_tail_call
while form is not nil:
ctx.disable_tail_call()
compile_form(rt.first(form), ctx)
cnt += 1
form = rt.next(form)
if ctc:
ctx.enable_tail_call()
#if ctx.can_tail_call:
# ctx.bytecode.append(code.TAIL_CALL)
#else:
if meta is not nil:
ctx.debug_points[len(ctx.bytecode)] = rt.interpreter_code_info(meta)
ctx.bytecode.append(code.INVOKE)
ctx.bytecode.append(cnt)
ctx.sub_sp(r_uint(cnt - 1))
def compile_form(form, ctx):
if form is nil:
ctx.push_const(nil)
return
if rt._satisfies_QMARK_(rt.ISeq.deref(), form) and form is not nil:
form = macroexpand(form)
return compile_cons(form, ctx)
if isinstance(form, numbers.Integer):
ctx.push_const(form)
return
if isinstance(form, numbers.BigInteger):
ctx.push_const(form)
return
if isinstance(form, numbers.Float):
ctx.push_const(form)
return
if isinstance(form, numbers.Ratio):
ctx.push_const(form)
return
if isinstance(form, symbol.Symbol):
name = rt.name(form)
ns = rt.namespace(form)
loc = resolve_local(ctx, name)
var = resolve_var(ctx, form)
if var is None and loc:
loc.emit(ctx)
return
if var and loc and ns is None:
loc.emit(ctx)
return
if var is None:
name = rt.name(form)
var = NS_VAR.deref().intern_or_make(name)
ctx.push_const(var)
meta = rt.meta(form)
if meta is not nil:
ctx.debug_points[len(ctx.bytecode)] = rt.interpreter_code_info(meta)
ctx.bytecode.append(code.DEREF_VAR)
return
if isinstance(form, Bool) or form is nil:
ctx.push_const(form)
return
if isinstance(form, Keyword):
ctx.push_const(form)
return
if isinstance(form, PersistentVector):
vector_var = rt.vector()
size = rt.count(form)
#assert rt.count(form).int_val() == 0
ctx.push_const(code.intern_var(u"pixie.stdlib", u"vector"))
for x in range(size):
compile_form(rt.nth(form, rt.wrap(x)), ctx)
ctx.bytecode.append(code.INVOKE)
ctx.bytecode.append(r_uint(size + 1))
ctx.sub_sp(size)
compile_meta(rt.meta(form), ctx)
return
if isinstance(form, PersistentHashSet):
compile_set_literal(form, ctx)
return
if rt._satisfies_QMARK_(rt.IMap.deref(), form):
compile_map_literal(form, ctx)
return
if isinstance(form, String):
ctx.push_const(form)
return
if isinstance(form, Character):
ctx.push_const(form)
return
raise Exception("Can't compile ")
def compile_form(form, ctx):
if form is nil:
ctx.push_const(nil)
return
if rt._satisfies_QMARK_(rt.ISeq.deref(), form) and form is not nil:
form = maybe_oop_invoke(form)
return compile_cons(form, ctx)
if isinstance(form, numbers.Integer):
ctx.push_const(form)
return
if isinstance(form, numbers.BigInteger):
ctx.push_const(form)
return
if isinstance(form, numbers.Float):
ctx.push_const(form)
return
if isinstance(form, numbers.Ratio):
ctx.push_const(form)
return
if isinstance(form, symbol.Symbol):
name = rt.name(form)
ns = rt.namespace(form)
loc = resolve_local(ctx, name)
var = resolve_var(form)
if var is None and loc:
loc.emit(ctx)
return
if var and loc and ns is None:
loc.emit(ctx)
return
if var is None:
name = rt.name(form)
var = NS_VAR.deref().intern_or_make(name)
ctx.push_const(var)
meta = rt.meta(form)
if meta is not nil:
ctx.debug_points[len(
ctx.bytecode)] = rt.interpreter_code_info(meta)
ctx.bytecode.append(code.DEREF_VAR)
return
if isinstance(form, Bool) or form is nil:
ctx.push_const(form)
return
if isinstance(form, Keyword):
ctx.push_const(form)
return
if isinstance(form, PersistentVector):
size = rt.count(form)
#assert rt.count(form).int_val() == 0
ctx.push_const(code.intern_var(u"pixie.stdlib", u"vector"))
for x in range(size):
compile_form(rt.nth(form, rt.wrap(x)), ctx)
ctx.bytecode.append(code.INVOKE)
ctx.bytecode.append(r_uint(size + 1))
ctx.sub_sp(size)
compile_meta(rt.meta(form), ctx)
return
if isinstance(form, PersistentHashSet):
compile_set_literal(form, ctx)
return
if rt._satisfies_QMARK_(rt.IMap.deref(), form):
compile_map_literal(form, ctx)
return
if isinstance(form, String):
ctx.push_const(form)
return
if isinstance(form, Character):
ctx.push_const(form)
return
raise Exception("Can't compile ")
