Browse CVS Repository
Diff of /shiki/shiki/xyzzylisp.stub
 Parent Directory
|  Revision Log
|  Revision Graph
|  Patch
| 1 |
"#include \"shiki.h\"" |
"#include \"shiki.h\"" |
| 2 |
|
|
| 3 |
|
(define-type <buffer> "GtkTextBuffer*" "buffer" |
| 4 |
|
"SHIKI_BUFFER_P" "SHIKI_BUFFER_UNBOX" "SHIKI_BUFFER_BOX") |
| 5 |
|
|
| 6 |
|
(define-cproc selected-buffer () |
| 7 |
|
(body <buffer> |
| 8 |
|
" g_object_ref(Shiki_CURRENT_TEXT_BUFFER); |
| 9 |
|
SCM_RESULT = Shiki_CURRENT_TEXT_BUFFER;")) |
| 10 |
|
|
| 11 |
(define-cproc buffer-substring (start::<int> end::<int>) |
(define-cproc buffer-substring (start::<int> end::<int>) |
| 12 |
(body <string>? |
(body <string>? |
| 13 |
" gchar *substr = Shiki_buffer_substring(start, end); |
" gchar *substr = Shiki_buffer_substring(start, end); |
| 16 |
else |
else |
| 17 |
SCM_RESULT = SCM_STRING(SCM_FALSE); |
SCM_RESULT = SCM_STRING(SCM_FALSE); |
| 18 |
g_free(substr);")) |
g_free(substr);")) |
| 19 |
|
|
| 20 |
(define-cproc delete-region (start::<int> end::<int>)(call <void> "Shiki_delete_region")) |
(define-cproc delete-region (start::<int> end::<int>)(call <void> "Shiki_delete_region")) |
| 21 |
|
|
| 22 |
(define-cproc insert (char_or_string::<top>) |
(define-cproc insert (char_or_string::<top>) |
|
|
Legend:
| Removed from v.1.4 |
|
| changed lines |
| |
Added in v.1.5 |
|
|
| 
Parent Directory
Revision Log
Revision Graph
Patch