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

Added utf8 primitives to eval

Browse source
This commit is contained in:
Justin Ethier 2016-03-29 02:35:52 -04:00
parent 2376694066
commit 822ac63e9a
3 changed files with 15 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
include/cyclone/runtime.h
View file

@ -360,8 +360,8 @@ extern const object primitive_vector_91set_67;
extern const object primitive_bytevector;
extern const object primitive_bytevector_91append;
extern const object primitive_Cyc_91bytevector_91copy;
extern const object primitive_Cyc_string_91_125utf8;
extern const object primitive_Cyc_utf8_91_125string;
extern const object primitive_Cyc_91string_91_125utf8;
extern const object primitive_Cyc_91utf8_91_125string;
extern const object primitive_bytevector_91u8_91ref;
extern const object primitive_bytevector_91u8_91set_67;
extern const object primitive_string_91ref;

12
runtime.c
View file

@ -2071,11 +2071,11 @@ void _Cyc_91bytevector_91copy(void *data, object cont, object args) {
object argc = Cyc_length(data, args);
Cyc_check_num_args(data, "Cyc-bytevector-copy", 3, args);
Cyc_bytevector_copy(data, cont, car(args), cadr(args), caddr(args)); }
void _Cyc_string_91_125utf8(void *data, object cont, object args) {
void _Cyc_91string_91_125utf8(void *data, object cont, object args) {
object argc = Cyc_length(data, args);
Cyc_check_num_args(data, "Cyc-string->utf8", 3, args);
Cyc_string2utf8(data, cont, car(args), cadr(args), caddr(args)); }
void _Cyc_utf8_91_125string(void *data, object cont, object args) {
void _Cyc_91utf8_91_125string(void *data, object cont, object args) {
object argc = Cyc_length(data, args);
Cyc_check_num_args(data, "Cyc-utf8->string", 3, args);
Cyc_utf82string(data, cont, car(args), cadr(args), caddr(args)); }
@ -2915,8 +2915,8 @@ static primitive_type bytevector_91append_primitive = {{0}, primitive_tag, "byte
static primitive_type Cyc_91bytevector_91copy_primitive = {{0}, primitive_tag, "Cyc-bytevector-copy", &_Cyc_91bytevector_91copy};
static primitive_type bytevector_91u8_91ref_primitive = {{0}, primitive_tag, "bytevector-u8-ref", &_bytevector_91u8_91ref};
static primitive_type bytevector_91u8_91set_67_primitive = {{0}, primitive_tag, "bytevector-u8-set!", &_bytevector_91u8_91set_67};
static primitive_type Cyc_string_91_125utf8_primitive = {{0}, primitive_tag, "Cyc-string->utf8", &_Cyc_string_91_125utf8};
static primitive_type Cyc_utf8_91_125string_primitive = {{0}, primitive_tag, "Cyc-utf8->string", &_Cyc_utf8_91_125string};
static primitive_type Cyc_91string_91_125utf8_primitive = {{0}, primitive_tag, "Cyc-string->utf8", &_Cyc_91string_91_125utf8};
static primitive_type Cyc_91utf8_91_125string_primitive = {{0}, primitive_tag, "Cyc-utf8->string", &_Cyc_91utf8_91_125string};
static primitive_type make_91vector_primitive = {{0}, primitive_tag, "make-vector", &_make_91vector};
static primitive_type vector_91ref_primitive = {{0}, primitive_tag, "vector-ref", &_vector_91ref};
static primitive_type vector_91set_67_primitive = {{0}, primitive_tag, "vector-set!", &_vector_91set_67};
@ -3046,8 +3046,8 @@ const object primitive_bytevector_91append = &bytevector_91append_primitive;
const object primitive_Cyc_91bytevector_91copy = &Cyc_91bytevector_91copy_primitive;
const object primitive_bytevector_91u8_91ref = &bytevector_91u8_91ref_primitive;
const object primitive_bytevector_91u8_91set_67 = &bytevector_91u8_91set_67_primitive;
const object primitive_Cyc_string_91_125utf8 = & Cyc_string_91_125utf8_primitive;
const object primitive_Cyc_utf8_91_125string = &Cyc_utf8_91_125string_primitive;
const object primitive_Cyc_91string_91_125utf8 = & Cyc_91string_91_125utf8_primitive;
const object primitive_Cyc_91utf8_91_125string = &Cyc_91utf8_91_125string_primitive;
const object primitive_list_91_125vector = &list_91_125vector_primitive;
const object primitive_boolean_127 = &boolean_127_primitive;
const object primitive_char_127 = &char_127_primitive;

11
scheme/eval.sld
View file

@ -157,7 +157,8 @@
(define (primitive-implementation proc) (cadr proc))
(define primitive-procedures
(list
(append
(list
(list 'call/cc call/cc)
(list 'Cyc-global-vars Cyc-global-vars)
(list 'Cyc-get-cvar Cyc-get-cvar)
@ -231,6 +232,8 @@
(list 'cddadr cddadr)
(list 'cdddar cdddar)
(list 'cddddr cddddr)
)
(list
(list 'char->integer char->integer)
(list 'integer->char integer->char)
(list 'string->number string->number)
@ -248,8 +251,8 @@
(list 'bytevector-length bytevector-length)
(list 'bytevector-append bytevector-append)
(list 'Cyc-bytevector-copy Cyc-bytevector-copy)
;(list 'Cyc-utf8->string Cyc-utf8->string)
;(list 'Cyc-string->utf8 Cyc-string->utf8)
(list 'Cyc-utf8->string Cyc-utf8->string)
(list 'Cyc-string->utf8 Cyc-string->utf8)
(list 'bytevector bytevector)
(list 'bytevector-u8-ref bytevector-u8-ref)
(list 'bytevector-u8-set! bytevector-u8-set!)
@ -285,7 +288,7 @@
(list 'Cyc-read-line Cyc-read-line)
(list 'Cyc-write-char Cyc-write-char)
(list 'Cyc-write Cyc-write)
(list 'Cyc-display Cyc-display)))
(list 'Cyc-display Cyc-display))))
(define (primitive-procedure-names)
(foldr