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_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);
  {
  ScmObj start, end, result;
  GtkTextIter s, e;
  gchar *substring;
  if(Scm_NumCmp(start, end) >= 0)
    return SCM_FALSE;
  gtk_text_buffer_get_iter_at_offset(Shiki_CURRENT_TEXT_BUFFER, &s, SCM_INT_VALUE(start)); 
  gtk_text_buffer_get_iter_at_offset(Shiki_CURRENT_TEXT_BUFFER, &e, SCM_INT_VALUE(end));

  substring = gtk_text_buffer_get_text(Shiki_CURRENT_TEXT_BUFFER, &s, &e, FALSE);
  result = SCM_MAKE_STR_COPYING(substring);
  g_free(substring);
  SCM_RETURN(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);

void Scm_Init_xyzzylisp(ScmModule *module)
{

  SCM_DEFINE(module, "buffer-substring", SCM_OBJ(&xyzzylisp_buffer_substring__STUB));
}