Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-04 19:56:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added mutex functions

Browse source
This commit is contained in:
Justin Ethier 2016-01-02 22:41:50 -05:00
parent 9402805af3
commit 309fc3dc13
3 changed files with 21 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
scheme/cyclone/cgen.sld
View file

@ -533,6 +533,10 @@
((eq? p 'string-ref) "Cyc_string_ref") ((eq? p 'string-ref) "Cyc_string_ref")
((eq? p 'string-set!) "Cyc_string_set") ((eq? p 'string-set!) "Cyc_string_set")
((eq? p 'substring) "Cyc_substring") ((eq? p 'substring) "Cyc_substring")
((eq? p 'make-mutex) "Cyc_make_mutex")
((eq? p 'mutex-lock) "Cyc_mutex_lock")
((eq? p 'mutex-unlock) "Cyc_mutex_unlock")
((eq? p 'mutex?) "Cyc_is_mutex")
((eq? p 'Cyc-installation-dir) "Cyc_installation_dir") ((eq? p 'Cyc-installation-dir) "Cyc_installation_dir")
((eq? p 'command-line-arguments) "Cyc_command_line_arguments") ((eq? p 'command-line-arguments) "Cyc_command_line_arguments")
((eq? p 'Cyc-minor-gc) "Cyc_trigger_minor_gc") ((eq? p 'Cyc-minor-gc) "Cyc_trigger_minor_gc")
@ -616,6 +620,9 @@
string-ref string-ref
string-set! string-set!
substring substring
make-mutex
mutex-lock
mutex-unlock
Cyc-installation-dir Cyc-installation-dir
command-line-arguments command-line-arguments
Cyc-minor-gc Cyc-minor-gc
@ -664,6 +671,9 @@
((eq? p 'make-vector) "object") ((eq? p 'make-vector) "object")
((eq? p 'list->string) "object") ((eq? p 'list->string) "object")
((eq? p 'list->vector) "object") ((eq? p 'list->vector) "object")
((eq? p 'make-mutex) "object")
((eq? p 'mutex-lock) "object")
((eq? p 'mutex-unlock) "object")
((eq? p 'Cyc-installation-dir) "object") ((eq? p 'Cyc-installation-dir) "object")
(else #f))) (else #f)))

8
scheme/cyclone/transforms.sld
View file

@ -516,6 +516,10 @@
vector-length vector-length
vector-ref vector-ref
vector-set! vector-set!
make-mutex
mutex-lock!
mutex-unlock!
mutex?
boolean? boolean?
char? char?
eof-object? eof-object?
@ -579,6 +583,10 @@
string-set! string-set!
string->symbol ;; Could be mistaken for an identifier string->symbol ;; Could be mistaken for an identifier
make-vector make-vector
make-mutex
mutex-lock!
mutex-unlock!
mutex?
;; I/O must be done at runtime for side effects: ;; I/O must be done at runtime for side effects:
Cyc-stdout Cyc-stdout
Cyc-stdin Cyc-stdin

3
scheme/eval.sld
View file

@ -223,6 +223,9 @@
(list 'vector-length vector-length) (list 'vector-length vector-length)
(list 'vector-ref vector-ref) (list 'vector-ref vector-ref)
(list 'vector-set! vector-set!) (list 'vector-set! vector-set!)
(list 'make-mutex make-mutex)
(list 'mutex-lock! mutex-lock!)
(list 'mutex-unlock! mutex-unlock!)
(list 'boolean? boolean?) (list 'boolean? boolean?)
(list 'char? char?) (list 'char? char?)
(list 'eof-object? eof-object?) (list 'eof-object? eof-object?)