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

Added process-context library

Browse source
This commit is contained in:
Justin Ethier 2016-01-10 22:01:34 -05:00
parent 8d92592d82
commit a68a25630d
3 changed files with 29 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Makefile
View file

@ -15,6 +15,7 @@ SMODULES = \
scheme/eval \ scheme/eval \
scheme/file \ scheme/file \
scheme/load \ scheme/load \
scheme/process-context \
scheme/read \ scheme/read \
scheme/time \ scheme/time \
scheme/write \ scheme/write \
@ -82,6 +83,7 @@ bootstrap: icyc
cp scheme/eval.c $(BOOTSTRAP_DIR)/scheme cp scheme/eval.c $(BOOTSTRAP_DIR)/scheme
cp scheme/file.c $(BOOTSTRAP_DIR)/scheme cp scheme/file.c $(BOOTSTRAP_DIR)/scheme
cp scheme/load.c $(BOOTSTRAP_DIR)/scheme cp scheme/load.c $(BOOTSTRAP_DIR)/scheme
cp scheme/process-context.c $(BOOTSTRAP_DIR)/scheme
cp scheme/time.c $(BOOTSTRAP_DIR)/scheme cp scheme/time.c $(BOOTSTRAP_DIR)/scheme
cp scheme/cyclone/common.c $(BOOTSTRAP_DIR)/scheme/cyclone cp scheme/cyclone/common.c $(BOOTSTRAP_DIR)/scheme/cyclone
cp icyc.scm $(BOOTSTRAP_DIR) cp icyc.scm $(BOOTSTRAP_DIR)

1
icyc.scm
View file

@ -10,6 +10,7 @@
(scheme load) (scheme load)
(scheme read) (scheme read)
(scheme write) (scheme write)
(scheme process-context)
(scheme time) (scheme time)
(scheme eval)) (scheme eval))
(cond-expand (cond-expand

26
scheme/process-context.sld Normal file
View file

@ -0,0 +1,26 @@
(define-library (scheme process-context)
(export
command-line
)
; (import (scheme base)
; )
(begin
(define-c command-line
"(void *data, int argc, closure _, object k)"
;; TODO: consolidate with Cyc_command_line_arguments from runtime.c
" int i;
object lis = nil;
for (i = _cyc_argc; i > 0; i--) {
object ps = alloca(sizeof(string_type));
object pl = alloca(sizeof(cons_type));
make_string(s, _cyc_argv[i - 1]);
memcpy(ps, &s, sizeof(string_type));
((list)pl)->hdr.mark = gc_color_red;
((list)pl)->hdr.grayed = 0;
((list)pl)->tag = cons_tag;
((list)pl)->cons_car = ps;
((list)pl)->cons_cdr = lis;
lis = pl;
}
return_closcall1(data, k, lis); ")
))