From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 18 Dec 2023 19:40:12 +0000 (-0600)
Subject: libclang: add more return types
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=61abd6760349faffdb51ae7653fc8781a5207e30

libclang: add more return types
---

diff --git a/extra/libclang/libclang.factor b/extra/libclang/libclang.factor
index a1bc9978fe..c734a9f221 100644
--- a/extra/libclang/libclang.factor
+++ b/extra/libclang/libclang.factor
@@ -128,10 +128,22 @@ STRUCT: malloced
     "struct " ?head drop
     {
         { [ dup "_Bool" = ] [ drop "bool" ] }
-        { [ dup "unsigned char" = ] [ drop "uchar" ] }
+        { [ "int8_t" ?head ] [ trim-blanks "char" prepend ] }
+        { [ "int16_t" ?head ] [ trim-blanks "short" prepend ] }
+        { [ "int32_t" ?head ] [ trim-blanks "int" prepend ] }
+        { [ "int64_t" ?head ] [ trim-blanks "longlong" prepend ] }
+        { [ "uint8_t" ?head ] [ trim-blanks "uchar" prepend ] }
+        { [ "uint16_t" ?head ] [ trim-blanks "ushort" prepend ] }
+        { [ "uint32_t" ?head ] [ trim-blanks "uint" prepend ] }
+        { [ "uint64_t" ?head ] [ trim-blanks "ulonglong" prepend ] }
+        { [ "signed char" ?head ] [ trim-blanks "char" prepend ] }
+        { [ "signed short" ?head ] [ trim-blanks "short" prepend ] }
+        { [ "signed int" ?head ] [ trim-blanks "int" prepend ] }
+        { [ "signed long" ?head ] [ trim-blanks "long" prepend ] }
         { [ "unsigned char" ?head ] [ trim-blanks "uchar" prepend ] }
-        { [ "unsigned int" ?head ] [ trim-blanks "uint" prepend ] }
         { [ "unsigned short" ?head ] [ trim-blanks "ushort" prepend ] }
+        { [ "unsigned int" ?head ] [ trim-blanks "uint" prepend ] }
+        { [ "unsigned long" ?head ] [ trim-blanks "ulong" prepend ] }
         { [ dup "(*)" swap subseq? ] [ drop "void*" ] }
         [ ]
     } cond ;