shiki/shiki/xyzzylisp.stub

"#include \"shiki.h\""

(define-type <buffer> "GtkTextBuffer*" "buffer"
  "SHIKI_BUFFER_P" "SHIKI_BUFFER_UNBOX" "SHIKI_BUFFER_BOX")

(define-cproc selected-buffer ()
 (body <buffer>
  "  g_object_ref(Shiki_CURRENT_TEXT_BUFFER);
  SCM_RESULT = Shiki_CURRENT_TEXT_BUFFER;"))

(define-cproc buffer-substring (start::<int> end::<int>)
 (body <string>?
  "  gchar *substr = Shiki_buffer_substring(start, end);
  if(substr)
    SCM_RESULT = SCM_STRING(SCM_MAKE_STR_COPYING(substr));
  else
    SCM_RESULT = SCM_STRING(SCM_FALSE);
  g_free(substr);"))

(define-cproc delete-region (start::<int> end::<int>)(call <void> "Shiki_delete_region"))

(define-cproc insert (char_or_string::<top>)
 (body <void>
  "if(SCM_CHARP(char_or_string)) {
    gunichar u = SCM_CHAR_VALUE(char_or_string);
    gchar *str  = g_ucs4_to_utf8(&u, 1, NULL, NULL, NULL);
    gtk_text_buffer_insert_at_cursor(Shiki_CURRENT_TEXT_BUFFER, str, -1);
    g_free(str);
  } else if(SCM_STRINGP(char_or_string))
    gtk_text_buffer_insert_at_cursor(Shiki_CURRENT_TEXT_BUFFER, SCM_STRING_CONST_CSTRING(char_or_string), -1);"))

(define-cproc point () (call <int> "Shiki_point"))
(define-cproc point-max () (call <int> "Shiki_point_max"))
(define-cproc point-min () (call <int> "Shiki_point_min"))
(define-cproc goto-char (offset::<int>) (call <void> "Shiki_goto_char"))
(define-cproc forward-char () (call <void> "Shiki_forward_char"))
(define-cproc backward-char () (call <void> "Shiki_backward_char"))
(define-cproc goto-line (line::<int>) (call <void> "Shiki_goto_line"))
(define-cproc goto-bol () (call <void> "Shiki_goto_bol"))
(define-cproc goto-eol () (call <void> "Shiki_goto_eol"))