| 6 |
#define SCM_CGEN_CONST const |
#define SCM_CGEN_CONST const |
| 7 |
#endif |
#endif |
| 8 |
#include "shiki.h" |
#include "shiki.h" |
| 9 |
|
static ScmObj xyzzylisp_selected_buffer(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_) |
| 10 |
|
{ |
| 11 |
|
SCM_ENTER_SUBR("selected-buffer"); |
| 12 |
|
{ |
| 13 |
|
{ |
| 14 |
|
GtkTextBuffer* SCM_RESULT; |
| 15 |
|
g_object_ref(Shiki_CURRENT_TEXT_BUFFER); |
| 16 |
|
SCM_RESULT = Shiki_CURRENT_TEXT_BUFFER; |
| 17 |
|
SCM_RETURN(SHIKI_BUFFER_BOX(SCM_RESULT)); |
| 18 |
|
} |
| 19 |
|
} |
| 20 |
|
} |
| 21 |
|
|
| 22 |
|
static SCM_DEFINE_STRING_CONST(xyzzylisp_selected_buffer__NAME, "selected-buffer", 15, 15); |
| 23 |
|
static SCM_DEFINE_SUBR(xyzzylisp_selected_buffer__STUB, 0, 0, SCM_OBJ(&xyzzylisp_selected_buffer__NAME), xyzzylisp_selected_buffer, NULL, NULL); |
| 24 |
|
|
| 25 |
static ScmObj xyzzylisp_buffer_substring(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_) |
static ScmObj xyzzylisp_buffer_substring(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_) |
| 26 |
{ |
{ |
| 27 |
ScmObj start_scm; |
ScmObj start_scm; |
| 226 |
void Scm_Init_xyzzylisp(ScmModule *module) |
void Scm_Init_xyzzylisp(ScmModule *module) |
| 227 |
{ |
{ |
| 228 |
|
|
| 229 |
|
SCM_DEFINE(module, "selected-buffer", SCM_OBJ(&xyzzylisp_selected_buffer__STUB)); |
| 230 |
SCM_DEFINE(module, "buffer-substring", SCM_OBJ(&xyzzylisp_buffer_substring__STUB)); |
SCM_DEFINE(module, "buffer-substring", SCM_OBJ(&xyzzylisp_buffer_substring__STUB)); |
| 231 |
SCM_DEFINE(module, "delete-region", SCM_OBJ(&xyzzylisp_delete_region__STUB)); |
SCM_DEFINE(module, "delete-region", SCM_OBJ(&xyzzylisp_delete_region__STUB)); |
| 232 |
SCM_DEFINE(module, "insert", SCM_OBJ(&xyzzylisp_insert__STUB)); |
SCM_DEFINE(module, "insert", SCM_OBJ(&xyzzylisp_insert__STUB)); |
Parent Directory
Revision Log
Revision Graph
Patch