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

WIP

Browse source
This commit is contained in:
Justin Ethier 2017-09-05 13:44:16 +00:00
parent 27336b4047
commit 2647ceb4ae
1 changed files with 33 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
scheme/base.sld
View file

@ -946,6 +946,39 @@
fill))) fill)))
(list->string (list->string
(apply make-list (cons k fill*))))) (apply make-list (cons k fill*)))))
; (define (make-string k . fill)
; (Cyc-make-string k (if (null? fill) #\space (car fill))))
; (define-c Cyc-make-string
; "(void *data, int argc, closure _, object k, object count, object fill)"
; " object s = NULL;
; Cyc_check_int(data, count);
; // TODO: type check fill
; char c = obj_obj2char(fill);
; int len = obj_obj2int(count);
; if (len >= MAX_STACK_OBJ) {
; int heap_grown;
; s = gc_alloc(((gc_thread_data *)data)->heap,
; sizeof(string_type) + len + 1,
; boolean_f, // OK to populate manually over here
; (gc_thread_data *)data,
; &heap_grown);
; ((string_type *) s)->hdr.mark = ((gc_thread_data *)data)->gc_alloc_color;
; ((string_type *) s)->hdr.grayed = 0;
; ((string_type *) s)->tag = string_tag;
; ((string_type *) s)->len = len;
; ((string_type *) s)->str = (((char *)s) + sizeof(string_type));
; } else {
; s = alloca(sizeof(string_type));
; ((string_type *)s)->hdr.mark = gc_color_red;
; ((string_type *)s)->hdr.grayed = 0;
; ((string_type *)s)->tag = string_tag;
; ((string_type *)s)->len = len;
; ((string_type *)s)->str = alloca(sizeof(char) * (len + 1));
; }
; memset(((string_type *)s)->str, c, len);
; ((string_type *)s)->str[len] = '\\0';
; return_closcall1(data, k, &s);
; ")
(define-syntax parameterize (define-syntax parameterize
(syntax-rules () (syntax-rules ()
((parameterize ((parameterize