Add TextComment API (#26)

well-typed · Oct 11, 2024 · f9ad716 · f9ad716
1 parent 80eac75
commit f9ad716
Show file tree

Hide file tree

Showing 2 changed files with 25 additions and 0 deletions.
diff --git a/hs-bindgen-libclang/cbits/doxygen_wrappers.h b/hs-bindgen-libclang/cbits/doxygen_wrappers.h
@@ -19,6 +19,14 @@ static inline enum CXCommentKind wrap_Comment_getKind(const CXComment* Comment)
     return clang_Comment_getKind(*Comment);
 }
 
+/**
+ * Comment type 'CXComment_Text'
+ */
+
+static inline void wrap_TextComment_getText(const CXComment* Comment, CXString*  result) {
+    *result = clang_TextComment_getText(*Comment);
+}
+
 /**
  * Comment type 'CXComment_InlineCommand'
  */

diff --git a/hs-bindgen-libclang/src/HsBindgen/Clang/LowLevel/Doxygen.hs b/hs-bindgen-libclang/src/HsBindgen/Clang/LowLevel/Doxygen.hs
@@ -13,6 +13,8 @@ module HsBindgen.Clang.LowLevel.Doxygen (
   , CXCommentKind(..)
   , clang_Cursor_getParsedComment
   , clang_Comment_getKind
+    -- * Comment type 'CXComment_Text'
+  , clang_TextComment_getText
     -- * Comment type 'CXComment_InlineCommand'
   , clang_InlineCommandComment_getCommandName
   , clang_InlineCommandComment_getRenderKind
@@ -66,6 +68,21 @@ clang_Comment_getKind comment =
     onHaskellHeap comment $ \comment' ->
       wrap_Comment_getKind comment'
 
+{-------------------------------------------------------------------------------
+  Comment type 'CXComment_Text'
+-------------------------------------------------------------------------------}
+
+foreign import capi unsafe "doxygen_wrappers.h wrap_TextComment_getText"
+  wrap_TextComment_getText :: R CXComment_ -> W CXString_ -> IO ()
+
+-- | Get the text contained in the AST node.
+--
+-- <https://clang.llvm.org/doxygen/group__CINDEX__COMMENT.html#gae9a27e851356181beac36bbff6e638e2>
+clang_TextComment_getText :: CXComment -> IO Text
+clang_TextComment_getText comment =
+    onHaskellHeap comment $ \comment' ->
+      preallocate_ $ wrap_TextComment_getText comment'
+
 {-------------------------------------------------------------------------------
   Comment type 'CXComment_InlineCommand'
 -------------------------------------------------------------------------------}