shiki/shiki/xyzzylisp.c

/* Generated by genstub.  Do not edit. */
#include <gauche.h>
#if defined(__CYGWIN__) || defined(__MINGW32__)
#define SCM_CGEN_CONST /*empty*/
#else
#define SCM_CGEN_CONST const
#endif
#include "shiki.h"
static ScmObj xyzzylisp_selected_buffer(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
{
  SCM_ENTER_SUBR("selected-buffer");
  {
{
GtkTextBuffer* SCM_RESULT;
  g_object_ref(Shiki_CURRENT_TEXT_BUFFER);
  SCM_RESULT = Shiki_CURRENT_TEXT_BUFFER;
SCM_RETURN(SHIKI_BUFFER_BOX(SCM_RESULT));
}
  }
}

static SCM_DEFINE_STRING_CONST(xyzzylisp_selected_buffer__NAME, "selected-buffer", 15, 15);
static SCM_DEFINE_SUBR(xyzzylisp_selected_buffer__STUB, 0, 0, SCM_OBJ(&xyzzylisp_selected_buffer__NAME), xyzzylisp_selected_buffer, NULL, NULL);

static ScmObj xyzzylisp_buffer_substring(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
{
  ScmObj start_scm;
  int start;
  ScmObj end_scm;
  int end;
  SCM_ENTER_SUBR("buffer-substring");
  start_scm = SCM_ARGREF(0);
  if (!SCM_EXACTP(start_scm)) Scm_Error("C integer required, but got %S", start_scm);
  start = Scm_GetInteger(start_scm);
  end_scm = SCM_ARGREF(1);
  if (!SCM_EXACTP(end_scm)) Scm_Error("C integer required, but got %S", end_scm);
  end = Scm_GetInteger(end_scm);
  {
{
ScmString* SCM_RESULT;
  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);
SCM_RETURN(SCM_MAKE_MAYBE(SCM_OBJ_SAFE, SCM_RESULT));
}
  }
}

static SCM_DEFINE_STRING_CONST(xyzzylisp_buffer_substring__NAME, "buffer-substring", 16, 16);
static SCM_DEFINE_SUBR(xyzzylisp_buffer_substring__STUB, 2, 0, SCM_OBJ(&xyzzylisp_buffer_substring__NAME), xyzzylisp_buffer_substring, NULL, NULL);

static ScmObj xyzzylisp_delete_region(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
{
  ScmObj start_scm;
  int start;
  ScmObj end_scm;
  int end;
  SCM_ENTER_SUBR("delete-region");
  start_scm = SCM_ARGREF(0);
  if (!SCM_EXACTP(start_scm)) Scm_Error("C integer required, but got %S", start_scm);
  start = Scm_GetInteger(start_scm);
  end_scm = SCM_ARGREF(1);
  if (!SCM_EXACTP(end_scm)) Scm_Error("C integer required, but got %S", end_scm);
  end = Scm_GetInteger(end_scm);
  {
Shiki_delete_region(start, end);
SCM_RETURN(SCM_UNDEFINED);
  }
}

static SCM_DEFINE_STRING_CONST(xyzzylisp_delete_region__NAME, "delete-region", 13, 13);
static SCM_DEFINE_SUBR(xyzzylisp_delete_region__STUB, 2, 0, SCM_OBJ(&xyzzylisp_delete_region__NAME), xyzzylisp_delete_region, NULL, NULL);

static ScmObj xyzzylisp_insert(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
{
  ScmObj char_or_string_scm;
  ScmObj char_or_string;
  SCM_ENTER_SUBR("insert");
  char_or_string_scm = SCM_ARGREF(0);
  char_or_string = (char_or_string_scm);
  {
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);
SCM_RETURN(SCM_UNDEFINED);
  }
}

static SCM_DEFINE_STRING_CONST(xyzzylisp_insert__NAME, "insert", 6, 6);
static SCM_DEFINE_SUBR(xyzzylisp_insert__STUB, 1, 0, SCM_OBJ(&xyzzylisp_insert__NAME), xyzzylisp_insert, NULL, NULL);

static ScmObj xyzzylisp_point(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
{
  SCM_ENTER_SUBR("point");
  {
{
int SCM_RESULT;
SCM_RESULT = Shiki_point();
SCM_RETURN(Scm_MakeInteger(SCM_RESULT));
}
  }
}

static SCM_DEFINE_STRING_CONST(xyzzylisp_point__NAME, "point", 5, 5);
static SCM_DEFINE_SUBR(xyzzylisp_point__STUB, 0, 0, SCM_OBJ(&xyzzylisp_point__NAME), xyzzylisp_point, NULL, NULL);

static ScmObj xyzzylisp_point_max(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
{
  SCM_ENTER_SUBR("point-max");
  {
{
int SCM_RESULT;
SCM_RESULT = Shiki_point_max();
SCM_RETURN(Scm_MakeInteger(SCM_RESULT));
}
  }
}

static SCM_DEFINE_STRING_CONST(xyzzylisp_point_max__NAME, "point-max", 9, 9);
static SCM_DEFINE_SUBR(xyzzylisp_point_max__STUB, 0, 0, SCM_OBJ(&xyzzylisp_point_max__NAME), xyzzylisp_point_max, NULL, NULL);

static ScmObj xyzzylisp_point_min(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
{
  SCM_ENTER_SUBR("point-min");
  {
{
int SCM_RESULT;
SCM_RESULT = Shiki_point_min();
SCM_RETURN(Scm_MakeInteger(SCM_RESULT));
}
  }
}

static SCM_DEFINE_STRING_CONST(xyzzylisp_point_min__NAME, "point-min", 9, 9);
static SCM_DEFINE_SUBR(xyzzylisp_point_min__STUB, 0, 0, SCM_OBJ(&xyzzylisp_point_min__NAME), xyzzylisp_point_min, NULL, NULL);

static ScmObj xyzzylisp_goto_char(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
{
  ScmObj offset_scm;
  int offset;
  SCM_ENTER_SUBR("goto-char");
  offset_scm = SCM_ARGREF(0);
  if (!SCM_EXACTP(offset_scm)) Scm_Error("C integer required, but got %S", offset_scm);
  offset = Scm_GetInteger(offset_scm);
  {
Shiki_goto_char(offset);
SCM_RETURN(SCM_UNDEFINED);
  }
}

static SCM_DEFINE_STRING_CONST(xyzzylisp_goto_char__NAME, "goto-char", 9, 9);
static SCM_DEFINE_SUBR(xyzzylisp_goto_char__STUB, 1, 0, SCM_OBJ(&xyzzylisp_goto_char__NAME), xyzzylisp_goto_char, NULL, NULL);

static ScmObj xyzzylisp_forward_char(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
{
  SCM_ENTER_SUBR("forward-char");
  {
Shiki_forward_char();
SCM_RETURN(SCM_UNDEFINED);
  }
}

static SCM_DEFINE_STRING_CONST(xyzzylisp_forward_char__NAME, "forward-char", 12, 12);
static SCM_DEFINE_SUBR(xyzzylisp_forward_char__STUB, 0, 0, SCM_OBJ(&xyzzylisp_forward_char__NAME), xyzzylisp_forward_char, NULL, NULL);

static ScmObj xyzzylisp_backward_char(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
{
  SCM_ENTER_SUBR("backward-char");
  {
Shiki_backward_char();
SCM_RETURN(SCM_UNDEFINED);
  }
}

static SCM_DEFINE_STRING_CONST(xyzzylisp_backward_char__NAME, "backward-char", 13, 13);
static SCM_DEFINE_SUBR(xyzzylisp_backward_char__STUB, 0, 0, SCM_OBJ(&xyzzylisp_backward_char__NAME), xyzzylisp_backward_char, NULL, NULL);

static ScmObj xyzzylisp_goto_line(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
{
  ScmObj line_scm;
  int line;
  SCM_ENTER_SUBR("goto-line");
  line_scm = SCM_ARGREF(0);
  if (!SCM_EXACTP(line_scm)) Scm_Error("C integer required, but got %S", line_scm);
  line = Scm_GetInteger(line_scm);
  {
Shiki_goto_line(line);
SCM_RETURN(SCM_UNDEFINED);
  }
}

static SCM_DEFINE_STRING_CONST(xyzzylisp_goto_line__NAME, "goto-line", 9, 9);
static SCM_DEFINE_SUBR(xyzzylisp_goto_line__STUB, 1, 0, SCM_OBJ(&xyzzylisp_goto_line__NAME), xyzzylisp_goto_line, NULL, NULL);

static ScmObj xyzzylisp_goto_bol(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
{
  SCM_ENTER_SUBR("goto-bol");
  {
Shiki_goto_bol();
SCM_RETURN(SCM_UNDEFINED);
  }
}

static SCM_DEFINE_STRING_CONST(xyzzylisp_goto_bol__NAME, "goto-bol", 8, 8);
static SCM_DEFINE_SUBR(xyzzylisp_goto_bol__STUB, 0, 0, SCM_OBJ(&xyzzylisp_goto_bol__NAME), xyzzylisp_goto_bol, NULL, NULL);

static ScmObj xyzzylisp_goto_eol(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
{
  SCM_ENTER_SUBR("goto-eol");
  {
Shiki_goto_eol();
SCM_RETURN(SCM_UNDEFINED);
  }
}

static SCM_DEFINE_STRING_CONST(xyzzylisp_goto_eol__NAME, "goto-eol", 8, 8);
static SCM_DEFINE_SUBR(xyzzylisp_goto_eol__STUB, 0, 0, SCM_OBJ(&xyzzylisp_goto_eol__NAME), xyzzylisp_goto_eol, NULL, NULL);

void Scm_Init_xyzzylisp(ScmModule *module)
{

  SCM_DEFINE(module, "selected-buffer", SCM_OBJ(&xyzzylisp_selected_buffer__STUB));
  SCM_DEFINE(module, "buffer-substring", SCM_OBJ(&xyzzylisp_buffer_substring__STUB));
  SCM_DEFINE(module, "delete-region", SCM_OBJ(&xyzzylisp_delete_region__STUB));
  SCM_DEFINE(module, "insert", SCM_OBJ(&xyzzylisp_insert__STUB));
  SCM_DEFINE(module, "point", SCM_OBJ(&xyzzylisp_point__STUB));
  SCM_DEFINE(module, "point-max", SCM_OBJ(&xyzzylisp_point_max__STUB));
  SCM_DEFINE(module, "point-min", SCM_OBJ(&xyzzylisp_point_min__STUB));
  SCM_DEFINE(module, "goto-char", SCM_OBJ(&xyzzylisp_goto_char__STUB));
  SCM_DEFINE(module, "forward-char", SCM_OBJ(&xyzzylisp_forward_char__STUB));
  SCM_DEFINE(module, "backward-char", SCM_OBJ(&xyzzylisp_backward_char__STUB));
  SCM_DEFINE(module, "goto-line", SCM_OBJ(&xyzzylisp_goto_line__STUB));
  SCM_DEFINE(module, "goto-bol", SCM_OBJ(&xyzzylisp_goto_bol__STUB));
  SCM_DEFINE(module, "goto-eol", SCM_OBJ(&xyzzylisp_goto_eol__STUB));
}