Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-03 11:16:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

Adding char validator.

Browse source
This commit is contained in:
Alex Shinn 2013-01-25 00:45:03 +09:00
parent 5f705339ef
commit ed308c4063
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
tools/chibi-ffi
View file

@ -723,7 +723,8 @@
(if (type-null? type) "(" "")
(type-predicate type) "(" arg ")"
(lambda () (if (type-null? type) (cat " || sexp_not(" arg "))")))))
((or (int-type? base) (float-type? base) (port-type? base))
((or (eq? base 'char) (int-type? base)
(float-type? base) (port-type? base))
(cat (type-predicate type) "(" arg ")"))
((or (lookup-type base) (void-pointer-type? type))
(cat
@ -765,7 +766,8 @@
(float-type? base-type)
(string-type? base-type)
(port-type? base-type)
(memq base-type '(fileno fileno-nonblock)))
(memq base-type '(fileno fileno-nonblock))
(and (not array) (eq? 'char base-type)))
(cat
" if (! " (lambda () (check-type arg type)) ")\n"
" return sexp_type_exception(ctx, self, "