shiki/shiki/xyzzylisp.stub

"#include \"shiki.h\""

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

(define-cproc bufferp (buffer)
 (call <boolean> "SHIKI_BUFFER_P"))

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

(define-cproc get-next-buffer (&optional buffer)
 (body <buffer>
  "  if(buffer == SCM_UNBOUND)
    SCM_RESULT = Shiki_get_next_buffer(Shiki_CURRENT_TEXT_BUFFER);
  else if(SHIKI_BUFFER_P(buffer))
    SCM_RESULT = Shiki_get_next_buffer(SHIKI_BUFFER_UNBOX(buffer));
  else
    Scm_Error(\"buffer required, but got %S\", buffer);    
  if(SCM_RESULT)
    g_object_ref(SCM_RESULT);"))

(define-cproc get-previous-buffer (&optional buffer)
 (body <buffer>
  "  if(buffer == SCM_UNBOUND)
    SCM_RESULT = Shiki_get_previous_buffer(Shiki_CURRENT_TEXT_BUFFER);
  else if(SHIKI_BUFFER_P(buffer))
    SCM_RESULT = Shiki_get_previous_buffer(SHIKI_BUFFER_UNBOX(buffer));
  else
    Scm_Error(\"buffer required, but got %S\", buffer);    
  if(SCM_RESULT)
    g_object_ref(SCM_RESULT);")
 )

(define-cproc buffer-list ()
 (call "Shiki_buffer_list"))

(define-cproc next-buffer ()
 (body <void> "gtk_notebook_next_page(Shiki_EDITOR_NOTEBOOK);"))
(define-cproc previous-buffer ()
 (body <void> "gtk_notebook_prev_page(Shiki_EDITOR_NOTEBOOK);"))

(define-cproc buffer-name (buffer::<buffer>)
 (expr <const-cstring>? "Shiki_buffer_name(buffer)"))

(define-cproc buffer-modified-p (&optional buffer)
 (body <boolean>
  "  if(buffer == SCM_UNBOUND)
    SCM_RESULT = gtk_text_buffer_get_modified(Shiki_CURRENT_TEXT_BUFFER);
  else if(SHIKI_BUFFER_P(buffer))
    SCM_RESULT = gtk_text_buffer_get_modified(SHIKI_BUFFER_UNBOX(buffer));
  else
    Scm_Error(\"buffer required, but got %S\", 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)
 (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);
    else
    Scm_Error(\"character or string required, but got %S\", char_or_string);"))

(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"))