Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 12:35:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added Cyc-opaque?

Browse source
This commit is contained in:
Justin Ethier 2016-04-26 21:52:30 -04:00
parent ef4c950829
commit 24cf670237
5 changed files with 14 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
include/cyclone/runtime.h
View file

@ -292,6 +292,7 @@ extern const object primitive_Cyc_91global_91vars;
extern const object primitive_Cyc_91get_91cvar; extern const object primitive_Cyc_91get_91cvar;
extern const object primitive_Cyc_91set_91cvar_67; extern const object primitive_Cyc_91set_91cvar_67;
extern const object primitive_Cyc_91cvar_127; extern const object primitive_Cyc_91cvar_127;
extern const object primitive_Cyc_91opaque_127;
extern const object primitive_Cyc_91has_91cycle_127; extern const object primitive_Cyc_91has_91cycle_127;
extern const object primitive_Cyc_91spawn_91thread_67; extern const object primitive_Cyc_91spawn_91thread_67;
extern const object primitive_Cyc_91end_91thread_67; extern const object primitive_Cyc_91end_91thread_67;

9
runtime.c
View file

@ -2709,6 +2709,12 @@ void _Cyc_91cvar_127(void *data, object cont, object args)
return_closcall1(data, cont, Cyc_is_cvar(car(args))); return_closcall1(data, cont, Cyc_is_cvar(car(args)));
} }
void _Cyc_91opaque_127(void *data, object cont, object args)
{
Cyc_check_num_args(data, "Cyc-opaque?", 1, args);
return_closcall1(data, cont, Cyc_is_opaque(car(args)));
}
void _boolean_127(void *data, object cont, object args) void _boolean_127(void *data, object cont, object args)
{ {
Cyc_check_num_args(data, "boolean?", 1, args); Cyc_check_num_args(data, "boolean?", 1, args);
@ -3720,6 +3726,8 @@ static primitive_type Cyc_91set_91cvar_67_primitive =
{ {0}, primitive_tag, "Cyc-set-cvar!", &_Cyc_91set_91cvar_67 }; { {0}, primitive_tag, "Cyc-set-cvar!", &_Cyc_91set_91cvar_67 };
static primitive_type Cyc_91cvar_127_primitive = static primitive_type Cyc_91cvar_127_primitive =
{ {0}, primitive_tag, "Cyc-cvar?", &_Cyc_91cvar_127 }; { {0}, primitive_tag, "Cyc-cvar?", &_Cyc_91cvar_127 };
static primitive_type Cyc_91opaque_127_primitive =
{ {0}, primitive_tag, "Cyc-opaque?", &_Cyc_91opaque_127 };
static primitive_type Cyc_91has_91cycle_127_primitive = static primitive_type Cyc_91has_91cycle_127_primitive =
{ {0}, primitive_tag, "Cyc-has-cycle?", &_Cyc_91has_91cycle_127 }; { {0}, primitive_tag, "Cyc-has-cycle?", &_Cyc_91has_91cycle_127 };
static primitive_type Cyc_91spawn_91thread_67_primitive = static primitive_type Cyc_91spawn_91thread_67_primitive =
@ -3963,6 +3971,7 @@ const object primitive_Cyc_91global_91vars = &Cyc_91global_91vars_primitive;
const object primitive_Cyc_91get_91cvar = &Cyc_91get_91cvar_primitive; const object primitive_Cyc_91get_91cvar = &Cyc_91get_91cvar_primitive;
const object primitive_Cyc_91set_91cvar_67 = &Cyc_91set_91cvar_67_primitive; const object primitive_Cyc_91set_91cvar_67 = &Cyc_91set_91cvar_67_primitive;
const object primitive_Cyc_91cvar_127 = &Cyc_91cvar_127_primitive; const object primitive_Cyc_91cvar_127 = &Cyc_91cvar_127_primitive;
const object primitive_Cyc_91opaque_127 = &Cyc_91opaque_127_primitive;
const object primitive_Cyc_91has_91cycle_127 = &Cyc_91has_91cycle_127_primitive; const object primitive_Cyc_91has_91cycle_127 = &Cyc_91has_91cycle_127_primitive;
const object primitive_Cyc_91spawn_91thread_67 = const object primitive_Cyc_91spawn_91thread_67 =
&Cyc_91spawn_91thread_67_primitive; &Cyc_91spawn_91thread_67_primitive;

2
scheme/cyclone/cgen.sld
View file

@ -512,7 +512,7 @@
((eq? p 'Cyc-get-cvar) "Cyc_get_cvar") ((eq? p 'Cyc-get-cvar) "Cyc_get_cvar")
((eq? p 'Cyc-set-cvar!) "Cyc_set_cvar") ((eq? p 'Cyc-set-cvar!) "Cyc_set_cvar")
((eq? p 'Cyc-cvar?) "Cyc_is_cvar") ((eq? p 'Cyc-cvar?) "Cyc_is_cvar")
; TODO: ((eq? p 'Cyc-opaque?) "Cyc_is_opaque") ((eq? p 'Cyc-opaque?) "Cyc_is_opaque")
((eq? p 'Cyc-has-cycle?) "Cyc_has_cycle") ((eq? p 'Cyc-has-cycle?) "Cyc_has_cycle")
((eq? p 'Cyc-spawn-thread!) "Cyc_spawn_thread") ((eq? p 'Cyc-spawn-thread!) "Cyc_spawn_thread")
((eq? p 'Cyc-end-thread!) "Cyc_end_thread") ((eq? p 'Cyc-end-thread!) "Cyc_end_thread")

2
scheme/cyclone/transforms.sld
View file

@ -451,6 +451,7 @@
Cyc-get-cvar Cyc-get-cvar
Cyc-set-cvar! Cyc-set-cvar!
Cyc-cvar? ;; Cyclone-specific Cyc-cvar? ;; Cyclone-specific
Cyc-opaque?
Cyc-has-cycle? Cyc-has-cycle?
Cyc-spawn-thread! Cyc-spawn-thread!
Cyc-end-thread! Cyc-end-thread!
@ -567,6 +568,7 @@
Cyc-get-cvar Cyc-get-cvar
Cyc-set-cvar! Cyc-set-cvar!
Cyc-cvar? Cyc-cvar?
Cyc-opaque?
Cyc-spawn-thread! Cyc-spawn-thread!
Cyc-end-thread! Cyc-end-thread!
apply apply

1
scheme/eval.sld
View file

@ -164,6 +164,7 @@
(list 'Cyc-get-cvar Cyc-get-cvar) (list 'Cyc-get-cvar Cyc-get-cvar)
(list 'Cyc-set-cvar! Cyc-set-cvar!) (list 'Cyc-set-cvar! Cyc-set-cvar!)
(list 'Cyc-cvar? Cyc-cvar?) (list 'Cyc-cvar? Cyc-cvar?)
(list 'Cyc-opaque? Cyc-opaque?)
(list 'Cyc-has-cycle? Cyc-has-cycle?) (list 'Cyc-has-cycle? Cyc-has-cycle?)
(list 'Cyc-spawn-thread! Cyc-spawn-thread!) (list 'Cyc-spawn-thread! Cyc-spawn-thread!)
(list 'Cyc-end-thread! Cyc-end-thread!) (list 'Cyc-end-thread! Cyc-end-thread!)