mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-23 20:15:05 +02:00
93 lines
3.2 KiB
Scheme
93 lines
3.2 KiB
Scheme
(import (scheme base)
|
|
(scheme write)
|
|
)
|
|
|
|
;(define (test n)
|
|
; ((lambda (x) (+ x x))
|
|
; n))
|
|
;(write (test 10))
|
|
|
|
(define (fac n) (if (= n 0) 1 (* n (fac (- n 1)))))
|
|
|
|
(write (fac 10))
|
|
#| Next-gen runtime:
|
|
|
|
static void __host_lambda_1(void *data, int pc, TBD) { // rest of args TBD, maybe a C array, length, what else?
|
|
switch(pc) {
|
|
3: { // Lambda ID 3
|
|
// TODO
|
|
break;
|
|
}
|
|
default:
|
|
// raise error
|
|
}
|
|
}
|
|
|#
|
|
|
|
#| Currently-generated code:
|
|
static void __lambda_3(void *data, int argc, object self_7312, object r_7310) ;
|
|
static void __lambda_1(void *data, int argc, closure _,object k_735, object n_731_732) ;
|
|
static void __lambda_2(void *data, int argc, object self_7311, object r_737) ;
|
|
|
|
static void __lambda_3(void *data, int argc, object self_7312, object r_7310) {
|
|
return_closcall2(data, __glo_write_scheme_write, primitive__75halt, r_7310);;
|
|
}
|
|
|
|
static void __lambda_1(void *data, int argc, closure _,object k_735, object n_731_732) {
|
|
Cyc_st_add(data, "fac-test.scm:fac");
|
|
object c_7316 = Cyc_num_fast_eq_op(data,n_731_732, obj_int2obj(0));
|
|
if( (boolean_f != c_7316) ){
|
|
return_closcall1(data, k_735, obj_int2obj(1));
|
|
} else {
|
|
|
|
closureN_type c_7319;
|
|
c_7319.hdr.mark = gc_color_red;
|
|
c_7319.hdr.grayed = 0;
|
|
c_7319.tag = closureN_tag;
|
|
c_7319.fn = (function_type)__lambda_2;
|
|
c_7319.num_args = 1;
|
|
c_7319.num_elements = 2;
|
|
c_7319.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_7319.elements[0] = k_735;
|
|
c_7319.elements[1] = n_731_732;
|
|
|
|
|
|
complex_num_type local_7329; object c_7330 = Cyc_fast_sub(data,&local_7329,n_731_732, obj_int2obj(1));
|
|
return_closcall2(data, __glo_fac, &c_7319, c_7330);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_2(void *data, int argc, object self_7311, object r_737) {
|
|
|
|
complex_num_type local_7324; object c_7325 = Cyc_fast_mul(data,&local_7324,((closureN)self_7311)->elements[1], r_737);
|
|
return_closcall1(data, ((closureN)self_7311)->elements[0], c_7325);;
|
|
}
|
|
|
|
static void c_entry_pt_first_lambda(void *data, int argc, closure cont, object value);
|
|
extern void c_schemecyclonecommon_entry_pt(void *data, int argc, closure cont, object value);
|
|
extern void c_schemebase_entry_pt(void *data, int argc, closure cont, object value);
|
|
extern void c_schemewrite_entry_pt(void *data, int argc, closure cont, object value);
|
|
static void c_entry_pt(data, argc, env,cont) void *data; int argc; closure env,cont; {
|
|
Cyc_set_globals_changed((gc_thread_data *)data);
|
|
|
|
add_global((object *) &__glo_fac);
|
|
mclosure0(c_7313, (function_type)__lambda_1);c_7313.num_args = 1;
|
|
__glo_fac = &c_7313;
|
|
|
|
make_cvar(cvar_7334, (object *)&__glo_fac);make_pair(pair_7335, find_or_add_symbol("fac"), &cvar_7334);
|
|
make_pair(c_7336, &pair_7335,Cyc_global_variables);
|
|
Cyc_global_variables = &c_7336;
|
|
mclosure1(c_done, c_entry_pt_first_lambda, &c_done);
|
|
mclosure1(c_7337, c_schemewrite_entry_pt, &c_done);
|
|
mclosure1(c_7338, c_schemebase_entry_pt, &c_7337);
|
|
mclosure1(c_7339, c_schemecyclonecommon_entry_pt, &c_7338);
|
|
(c_7339.fn)(data, 0, &c_7339, &c_7339);
|
|
}
|
|
static void c_entry_pt_first_lambda(void *data, int argc, closure cont, object value) {
|
|
|
|
|
|
mclosure0(c_7332, (function_type)__lambda_3);c_7332.num_args = 1;
|
|
return_closcall2(data, __glo_fac, &c_7332, obj_int2obj(10));
|
|
;
|
|
}
|
|
|#
|