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

WIP

Browse source
This commit is contained in:
Justin Ethier 2016-03-24 01:22:42 -04:00
parent 4f46e124fa
commit b4ca192000
5 changed files with 11 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
bytevector-tests.scm
View file

@ -18,3 +18,6 @@
bv)
) ;=⇒ #u8(1 3 3 4)
(define a #u8(1 2 3 4 5))
(write (Cyc-bytevector-copy a 2 4)) ; =⇒ #u8(3 4)

2
runtime.c
View file

@ -1490,7 +1490,7 @@ object Cyc_bytevector_copy(void *data, object cont, object bv, object start, obj
Cyc_rt_raise2(data, "bytevector-copy - invalid end", end);
}
len = e - s + 1;
len = e - s;
result.len = len;
result.data = alloca(sizeof(char) * len);
memcpy(result.data, &(((bytevector)bv)->data)[s], len);

5
scheme/cyclone/cgen.sld
View file

@ -574,6 +574,7 @@
((eq? p 'bytevector-length) "Cyc_bytevector_length")
((eq? p 'bytevector) "Cyc_bytevector")
((eq? p 'bytevector-append) "Cyc_bytevector_append")
((eq? p 'Cyc-bytevector-copy) "Cyc_bytevector_copy")
((eq? p 'bytevector-u8-ref) "Cyc_bytevector_u8_ref")
((eq? p 'bytevector-u8-set!) "Cyc_bytevector_u8_set")
((eq? p 'make-vector) "Cyc_make_vector")
@ -662,6 +663,7 @@
make-bytevector
bytevector-length
bytevector-append
Cyc-bytevector-copy
bytevector
bytevector-u8-ref
bytevector-u8-set!
@ -719,6 +721,7 @@
((eq? p 'make-bytevector) "object")
((eq? p 'bytevector) "object")
((eq? p 'bytevector-append) "object")
((eq? p 'Cyc-bytevector-copy) "object")
((eq? p 'make-vector) "object")
((eq? p 'list->string) "object")
((eq? p 'list->vector) "object")
@ -740,6 +743,7 @@
make-bytevector
bytevector
bytevector-append
Cyc-bytevector-copy
make-vector list->vector
symbol->string number->string
substring
@ -758,6 +762,7 @@
symbol->string list->string substring string-append string->number
make-bytevector
bytevector-append
Cyc-bytevector-copy
bytevector
bytevector-u8-ref
bytevector-u8-set!

2
scheme/cyclone/transforms.sld
View file

@ -517,7 +517,7 @@
bytevector-length
bytevector
bytevector-append
bytevector-copy
Cyc-bytevector-copy
bytevector-u8-ref
bytevector-u8-set!
bytevector?

1
scheme/eval.sld
View file

@ -247,6 +247,7 @@
(list 'make-bytevector make-bytevector)
(list 'bytevector-length bytevector-length)
(list 'bytevector-append bytevector-append)
(list 'Cyc-bytevector-copy Cyc-bytevector-copy)
(list 'bytevector bytevector)
(list 'bytevector-u8-ref bytevector-u8-ref)
(list 'bytevector-u8-set! bytevector-u8-set!)