From 54a1bd4bd51ce20859b5c0619d335324b2fa80e2 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 23 Jan 2024 13:12:19 -0600
Subject: [PATCH] libclang: add word to get an array from an array of ptrs

---
 extra/libclang/libclang.factor | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/extra/libclang/libclang.factor b/extra/libclang/libclang.factor
index 9db16988d6..fad2a12853 100644
--- a/extra/libclang/libclang.factor
+++ b/extra/libclang/libclang.factor
@@ -342,15 +342,18 @@ M: object def>out-form
     [ drop ] [ clang-get-file-max-range ] 2bi
     clang-tokenize ;
 
-:: with-cursor-tokens ( cursor quot: ( tu token -- obj ) -- )
+: ptr-array>array ( ptr c-type n -- array )
+    [ heap-size ] [ <iota> ] bi*
+    [
+        * swap <displaced-alien>
+    ] with with { } map-as ;
+
+:: with-cursor-tokens ( cursor quot: ( tu token -- obj ) -- seq )
     cursor clang_Cursor_getTranslationUnit :> tu
     tu cursor clang_getCursorExtent clang-tokenize :> ( tokens ntokens )
-    tu tokens ntokens <iota>
-    CXToken heap-size :> bytesize
-    quot
-    '[
-        bytesize * swap <displaced-alien> @
-    ] with with { } map-as
+    tu
+    tokens CXToken ntokens ptr-array>array
+    [ clang_getTokenSpelling clang-get-cstring ] with map
     tu tokens ntokens clang_disposeTokens ; inline
 
 DEFER: cursor>c-struct
-- 
2.34.1