[PATCH 14/25] foreign/declarative: mirror more primitive types

[KAction]

From: Dmitry Bogatov <address@hidden>

New foreign-types: `unsigned-int:` and
`unsigned-long:`.
---
 module/system/foreign/declarative.scm | 30 ++++++++++++++++--------------
 1 file changed, 16 insertions(+), 14 deletions(-)

diff --git a/module/system/foreign/declarative.scm 
b/module/system/foreign/declarative.scm
index 596cce0..3dd28d4 100644
--- a/module/system/foreign/declarative.scm
+++ b/module/system/foreign/declarative.scm
@@ -92,20 +92,22 @@
 (define-foreign-type void:
   #:decode-proc (lambda (x) x)
   #:type void)
-(mirror-primitive-type size_t    <?> integer?)
-(mirror-primitive-type int       <?> integer?)
-(mirror-primitive-type long      <?> integer?)
-(mirror-primitive-type ptrdiff_t <?> integer?)
-(mirror-primitive-type int8      <?> integer?)
-(mirror-primitive-type int16     <?> integer?)
-(mirror-primitive-type int32     <?> integer?)
-(mirror-primitive-type int64     <?> integer?)
-(mirror-primitive-type uint8     <?> integer?)
-(mirror-primitive-type uint16    <?> integer?)
-(mirror-primitive-type uint32    <?> integer?)
-(mirror-primitive-type uint64    <?> integer?)
-(mirror-primitive-type float     <?> real?)
-(mirror-primitive-type double    <?> real?)
+(mirror-primitive-type size_t        <?> integer?)
+(mirror-primitive-type int           <?> integer?)
+(mirror-primitive-type unsigned-int  <?> integer?)
+(mirror-primitive-type long          <?> integer?)
+(mirror-primitive-type unsigned-long <?> integer?)
+(mirror-primitive-type ptrdiff_t     <?> integer?)
+(mirror-primitive-type int8          <?> integer?)
+(mirror-primitive-type int16         <?> integer?)
+(mirror-primitive-type int32         <?> integer?)
+(mirror-primitive-type int64         <?> integer?)
+(mirror-primitive-type uint8         <?> integer?)
+(mirror-primitive-type uint16        <?> integer?)
+(mirror-primitive-type uint32        <?> integer?)
+(mirror-primitive-type uint64        <?> integer?)
+(mirror-primitive-type float         <?> real?)
+(mirror-primitive-type double        <?> real?)
 (mirror-primitive-type '* *: #:validate-proc pointer?)
 (define-foreign-type string:
   #:encode-proc string->pointer
-- 
I may be not subscribed. Please, keep me in carbon copy.