| 40 |
else |
else |
| 41 |
Scm_Error(\"buffer required, but got %S\", buffer);")) |
Scm_Error(\"buffer required, but got %S\", buffer);")) |
| 42 |
|
|
| 43 |
|
(define-cproc erase-buffer (&optional buffer) |
| 44 |
|
(body <void> |
| 45 |
|
" if(buffer == SCM_UNBOUND) |
| 46 |
|
Shiki_erase_buffer(Shiki_CURRENT_TEXT_BUFFER); |
| 47 |
|
else if(SHIKI_BUFFER_P(buffer)) |
| 48 |
|
Shiki_erase_buffer(SHIKI_BUFFER_UNBOX(buffer)); |
| 49 |
|
else |
| 50 |
|
Scm_Error(\"buffer required, but got %S\", buffer);")) |
| 51 |
|
|
| 52 |
|
(define-cproc delete-buffer (&optional buffer) |
| 53 |
|
(body <void> |
| 54 |
|
" if(buffer == SCM_UNBOUND) |
| 55 |
|
Shiki_delete_buffer(Shiki_CURRENT_TEXT_BUFFER); |
| 56 |
|
else if(SHIKI_BUFFER_P(buffer)) |
| 57 |
|
Shiki_delete_buffer(SHIKI_BUFFER_UNBOX(buffer)); |
| 58 |
|
else |
| 59 |
|
Scm_Error(\"buffer required, but got %S\", buffer);")) |
| 60 |
|
|
| 61 |
|
(define-cproc find-buffer (buffer_name::<const-cstring>) |
| 62 |
|
(call <buffer>? "Shiki_find_buffer")) |
| 63 |
|
|
| 64 |
|
(define-cproc new-buffer-create (buffer_name::<const-cstring>) |
| 65 |
|
(expr <buffer> "Shiki_new_buffer_create(g_strdup(buffer_name))")) |
| 66 |
|
|
| 67 |
|
(define-cproc count-buffers () |
| 68 |
|
(expr <int> "g_list_length(Shiki_EDITOR_BUFFER_LIST)")) |
| 69 |
|
|
| 70 |
(define-cproc get-previous-buffer (&optional buffer) |
(define-cproc get-previous-buffer (&optional buffer) |
| 71 |
(body <buffer> |
(body <buffer> |
| 72 |
" if(buffer == SCM_UNBOUND) |
" if(buffer == SCM_UNBOUND) |
| 135 |
(define-cproc goto-line (line::<int>) (call <void> "Shiki_goto_line")) |
(define-cproc goto-line (line::<int>) (call <void> "Shiki_goto_line")) |
| 136 |
(define-cproc goto-bol () (call <void> "Shiki_goto_bol")) |
(define-cproc goto-bol () (call <void> "Shiki_goto_bol")) |
| 137 |
(define-cproc goto-eol () (call <void> "Shiki_goto_eol")) |
(define-cproc goto-eol () (call <void> "Shiki_goto_eol")) |
| 138 |
|
(define-cproc forward-line (&optional (count::<int> 1)) |
| 139 |
|
(call <void> "Shiki_forward_line")) |
| 140 |
|
|
| 141 |
|
|
| 142 |
|
(define-cproc file-name-dialog (&keyword (title::<const-cstring> "ファイルを開く")) |
| 143 |
|
(call <const-cstring>? "Shiki_file_name_dialog")) |
| 144 |
|
|
| 145 |
|
(define-cproc yes-or-no-p (msg::<const-cstring>) |
| 146 |
|
(call <boolean> "Shiki_yes_or_no_p")) |
Parent Directory
Revision Log
Revision Graph
Patch