Browse CVS Repository
Annotation of /shiki/shiki/xyzzylisp.stub
Parent Directory
| Revision Log
| Revision Graph
Revision 1.3 -
( hide annotations)
( download)
Sat Nov 25 09:10:43 2006 UTC
(17 years, 4 months ago)
by aloha
Branch: MAIN
Changes since 1.2: +7 -12 lines
refactoring
| 1 |
aloha |
1.2 |
"#include \"shiki.h\"" |
| 2 |
|
|
|
| 3 |
aloha |
1.1 |
(define-cproc buffer-substring (start::<int> end::<int>) |
| 4 |
aloha |
1.3 |
(body <string>? |
| 5 |
|
|
" gchar *substr = Shiki_buffer_substring(start, end); |
| 6 |
|
|
if(substr) |
| 7 |
|
|
SCM_RESULT = SCM_STRING(SCM_MAKE_STR_COPYING(substr)); |
| 8 |
|
|
else |
| 9 |
|
|
SCM_RESULT = SCM_STRING(SCM_FALSE); |
| 10 |
|
|
g_free(substr);")) |
|