ts/tree.c(ts-tree-cursor-goto-next-sibling): new procedure.

Z572 · Jun 29, 2023 · d92581c · d92581c
1 parent 496b23e
commit d92581c
Show file tree

Hide file tree

Showing 3 changed files with 23 additions and 1 deletion.
diff --git a/tests/tcursor.scm b/tests/tcursor.scm
@@ -53,4 +53,12 @@
 
     (let ((cursor (ts-tree-cursor-new root)))
       (test-equal "ts-tree-cursor-goto-parent: no parent"
-        #f (ts-tree-cursor-goto-parent cursor)))))
+        #f (ts-tree-cursor-goto-parent cursor)))
+
+    (let ((cursor (ts-tree-cursor-new root)))
+      (test-equal "ts-tree-cursor-goto-next-sibling"
+        (ts-node-next-sibling (ts-node-child (ts-node-child root 0) 0))
+        (begin (ts-tree-cursor-goto-first-child cursor)
+               (ts-tree-cursor-goto-first-child cursor)
+               (ts-tree-cursor-goto-next-sibling cursor)
+               (ts-tree-cursor-current-node cursor))))))
diff --git a/ts/tree.c b/ts/tree.c
@@ -460,6 +460,19 @@ SCM_DEFINE(tstc_goto_first_child, "ts-tree-cursor-goto-first-child", 1, 0, 0,
   return g_p;
 }
 #undef FUNC_NAME
+
+SCM_DEFINE(tstc_goto_next_sibling, "ts-tree-cursor-goto-next-sibling", 1, 0, 0,
+           (SCM cursor),
+           "")
+#define FUNC_NAME s_tstc_goto_next_sibling
+{
+  ASSERT_TSTC(cursor);
+  Tcursor *tc = FR(cursor);
+  SCM success=scm_from_bool(ts_tree_cursor_goto_next_sibling(&tc->cursor));
+  scm_remember_upto_here_1(cursor);
+  return success;
+}
+
 void init_ts_tree() {
 #ifndef SCM_MAGIC_SNARFER
 #include "tree.x"

diff --git a/ts/tree.scm b/ts/tree.scm
@@ -35,6 +35,7 @@
             ts-tree-cursor-current-node
             ts-tree-cursor-goto-parent
             ts-tree-cursor-goto-first-child
+            ts-tree-cursor-goto-next-sibling
             ts-tree-cursor-new
             ts-tree-cursor-reset!
             ts-tree-language