shiki/shiki/xyzzylisp.stub

; vim: set encoding=utf8:

"#include \"shiki.h\""

(define-variable *indent-width* 2)
(define-variable *mode-line-format* #f)

(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>
  "  SCM_RESULT = NULL;
  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 buffer-lines (&optional buffer)
 (body <int>
  "  SCM_RESULT = -1;
  if(buffer == SCM_UNBOUND)
    SCM_RESULT = gtk_text_buffer_get_line_count(Shiki_CURRENT_TEXT_BUFFER);
  else if(SHIKI_BUFFER_P(buffer))
    SCM_RESULT = gtk_text_buffer_get_line_count(SHIKI_BUFFER_UNBOX(buffer));
  else
    Scm_Error(\"buffer required, but got %S\", buffer);"))

(define-cproc buffer-size (&optional buffer)
 (body <int>
  "  SCM_RESULT = -1;
  if(buffer == SCM_UNBOUND)
    SCM_RESULT = gtk_text_buffer_get_char_count(Shiki_CURRENT_TEXT_BUFFER);
  else if(SHIKI_BUFFER_P(buffer))
    SCM_RESULT = gtk_text_buffer_get_char_count(SHIKI_BUFFER_UNBOX(buffer));
  else
    Scm_Error(\"buffer required, but got %S\", buffer);"))

(define-cproc erase-buffer (&optional buffer)
 (body <void>
  "  if(buffer == SCM_UNBOUND)
    Shiki_erase_buffer(Shiki_CURRENT_TEXT_BUFFER);
  else if(SHIKI_BUFFER_P(buffer))
    Shiki_erase_buffer(SHIKI_BUFFER_UNBOX(buffer));
  else
    Scm_Error(\"buffer required, but got %S\", buffer);"))

(define-cproc delete-buffer (&optional buffer)
 (body <void>
  "  if(buffer == SCM_UNBOUND)
    Shiki_delete_buffer(Shiki_CURRENT_TEXT_BUFFER);
  else if(SHIKI_BUFFER_P(buffer))
    Shiki_delete_buffer(SHIKI_BUFFER_UNBOX(buffer));
  else
    Scm_Error(\"buffer required, but got %S\", buffer);"))

(define-cproc find-buffer (buffer_name::<const-cstring>)
 (call <buffer>? "Shiki_find_buffer"))

(define-cproc new-buffer-create (buffer_name::<const-cstring>)
 (expr <buffer> "Shiki_new_buffer_create(g_strdup(buffer_name))"))

(define-cproc count-buffers ()
 (expr <int> "g_list_length(Shiki_EDITOR_BUFFER_LIST)"))

(define-cproc get-previous-buffer (&optional buffer)
 (body <buffer>
  "  SCM_RESULT = NULL;
  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 deleted-buffer-p (buffer::<buffer>)
 (expr <boolean>? "Shiki_deleted_buffer_p(buffer)"))

(define-cproc buffer-modified-p (&optional buffer)
 (body <boolean>
  "  SCM_RESULT = FALSE;
  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"))
(define-cproc forward-line (&optional (count::<int> 1))
 (call <void> "Shiki_forward_line"))


(define-cproc file-name-dialog (&keyword (title::<const-cstring> "���������������������"))
 (call <const-cstring>? "Shiki_file_name_dialog"))

(define-cproc yes-or-no-p (msg::<const-cstring>)
 (call <boolean> "Shiki_yes_or_no_p"))

(define-cproc no-or-yes-p (msg::<const-cstring>)
 (call <boolean> "Shiki_no_or_yes_p"))

(define-cproc need-buffer-save-p (buffer::<buffer>)
 (call <boolean> "Shiki_need_buffer_save_p"))

(define-cproc undo ()
 (call <void> "Shiki_undo"))

(define-cproc msgbox (format::<string> &rest args)
 (body <symbol>
  "  ScmObj os = Scm_MakeOutputStringPort(TRUE);
     GtkWidget *dialog;
  Scm_Format(SCM_PORT(os), format, args, FALSE);
  dialog = gtk_message_dialog_new(GTK_WINDOW(Shiki_EDITOR_WINDOW),
      GTK_DIALOG_DESTROY_WITH_PARENT, GTK_MESSAGE_INFO, GTK_BUTTONS_OK,
      Scm_GetString(SCM_STRING(Scm_GetOutputString(SCM_PORT(os)))));
  gtk_dialog_run(GTK_DIALOG(dialog));
  gtk_widget_destroy(dialog);
  SCM_RESULT = SCM_SYMBOL(SCM_INTERN(\":ok\"));"))


(define-cproc current-line-number ()
 (body <int>
  "  GtkTextIter p;
  gtk_text_buffer_get_iter_at_mark(Shiki_CURRENT_TEXT_BUFFER,&p, gtk_text_buffer_get_insert(Shiki_CURRENT_TEXT_BUFFER));
  SCM_RESULT = gtk_text_iter_get_line(&p) + 1;"))

(define-cproc current-column ()
 (body <int>
  "  GtkTextIter p;
  gtk_text_buffer_get_iter_at_mark(Shiki_CURRENT_TEXT_BUFFER,&p, gtk_text_buffer_get_insert(Shiki_CURRENT_TEXT_BUFFER));
  SCM_RESULT = gtk_text_iter_get_line_offset(&p) + 1;"))
