scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

added the types clock_t and ssize_t, both fixnum

This commit is contained in:
marting 1999-10-08 17:59:55 +00:00
parent adbee59277
commit dbbdce2254
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
cig/cig.scm
View File

@ -167,6 +167,8 @@
;; extensions by JMG for the new FFI ;; extensions by JMG for the new FFI
(time_t #("time_t ~a" integer? "s48_extract_integer" #f)) (time_t #("time_t ~a" integer? "s48_extract_integer" #f))
(clock_t #("clock_t ~a" integer? "s48_extract_fixnum" #f))
(ssize_t #("ssize_t ~a" integer? "s48_extract_fixnum" #f))
(desc #("s48_value ~a" #f "" #f)) (desc #("s48_value ~a" #f "" #f))
(string-desc #("s48_value ~a" string? "" #f)) (string-desc #("s48_value ~a" string? "" #f))
@ -218,6 +220,9 @@
; Extension by JMG with the new FFI ; Extension by JMG with the new FFI
(time_t #("time_t ~a" "s48_enter_integer" #f #f #f)) (time_t #("time_t ~a" "s48_enter_integer" #f #f #f))
(clock_t #("clock_t ~a" "s48_enter_fixnum" #f #f #f))
(ssize_t #("ssize_t ~a" "s48_enter_fixnum" #f #f #f))
(desc #("s48_value ~a" "" #f #f #f)) (desc #("s48_value ~a" "" #f #f #f))
(string-desc #("s48_value ~a" "" #f #f #f)) (string-desc #("s48_value ~a" "" #f #f #f))