Develop and Download Open Source Software

S 式エディタ

Browse CVS Repository

/[OSDN]/shiki/shiki/xyzzylisp.c

Contents of /shiki/shiki/xyzzylisp.c

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph

Revision 1.6 - (show annotations) (download) (as text)
Sun Nov 26 15:34:16 2006 UTC (17 years, 4 months ago) by aloha
Branch: MAIN
Changes since 1.5: +185 -0 lines
File MIME type: text/x-csrc 
add 8 xyzzy lisp API
1 /* Generated by genstub. Do not edit. */
2 #include <gauche.h>
3 #if defined(__CYGWIN__) || defined(__MINGW32__)
4 #define SCM_CGEN_CONST /*empty*/
5 #else
6 #define SCM_CGEN_CONST const
7 #endif
8 #include "shiki.h"
9 static ScmObj xyzzylisp_bufferp(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
10 {
11 ScmObj buffer_scm;
12 ScmObj buffer;
13 SCM_ENTER_SUBR("bufferp");
14 buffer_scm = SCM_ARGREF(0);
15 buffer = (buffer_scm);
16 {
17 {
18 int SCM_RESULT;
19 SCM_RESULT = SHIKI_BUFFER_P(buffer);
20 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
21 }
22 }
23 }
24
25 static SCM_DEFINE_STRING_CONST(xyzzylisp_bufferp__NAME, "bufferp", 7, 7);
26 static SCM_DEFINE_SUBR(xyzzylisp_bufferp__STUB, 1, 0, SCM_OBJ(&xyzzylisp_bufferp__NAME), xyzzylisp_bufferp, NULL, NULL);
27
28 static ScmObj xyzzylisp_selected_buffer(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
29 {
30 SCM_ENTER_SUBR("selected-buffer");
31 {
32 {
33 GtkTextBuffer* SCM_RESULT;
34 g_object_ref(Shiki_CURRENT_TEXT_BUFFER);
35 SCM_RESULT = Shiki_CURRENT_TEXT_BUFFER;
36 SCM_RETURN(SHIKI_BUFFER_BOX(SCM_RESULT));
37 }
38 }
39 }
40
41 static SCM_DEFINE_STRING_CONST(xyzzylisp_selected_buffer__NAME, "selected-buffer", 15, 15);
42 static SCM_DEFINE_SUBR(xyzzylisp_selected_buffer__STUB, 0, 0, SCM_OBJ(&xyzzylisp_selected_buffer__NAME), xyzzylisp_selected_buffer, NULL, NULL);
43
44 static ScmObj xyzzylisp_get_next_buffer(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
45 {
46 ScmObj buffer_scm;
47 ScmObj buffer;
48 ScmObj SCM_OPTARGS = SCM_ARGREF(SCM_ARGCNT-1);
49 SCM_ENTER_SUBR("get-next-buffer");
50 if (Scm_Length(SCM_OPTARGS) > 1)
51 Scm_Error("too many arguments: up to 1 is expected, %d given.", Scm_Length(SCM_OPTARGS));
52 if (SCM_NULLP(SCM_OPTARGS)) buffer_scm = SCM_UNBOUND;
53 else {
54 buffer_scm = SCM_CAR(SCM_OPTARGS);
55 SCM_OPTARGS = SCM_CDR(SCM_OPTARGS);
56 }
57 buffer = (buffer_scm);
58 {
59 {
60 GtkTextBuffer* SCM_RESULT;
61 if(buffer == SCM_UNBOUND)
62 SCM_RESULT = Shiki_get_next_buffer(Shiki_CURRENT_TEXT_BUFFER);
63 else if(SHIKI_BUFFER_P(buffer))
64 SCM_RESULT = Shiki_get_next_buffer(SHIKI_BUFFER_UNBOX(buffer));
65 else
66 Scm_Error("buffer required, but got %S", buffer);
67 if(SCM_RESULT)
68 g_object_ref(SCM_RESULT);
69 SCM_RETURN(SHIKI_BUFFER_BOX(SCM_RESULT));
70 }
71 }
72 }
73
74 static SCM_DEFINE_STRING_CONST(xyzzylisp_get_next_buffer__NAME, "get-next-buffer", 15, 15);
75 static SCM_DEFINE_SUBR(xyzzylisp_get_next_buffer__STUB, 0, 1, SCM_OBJ(&xyzzylisp_get_next_buffer__NAME), xyzzylisp_get_next_buffer, NULL, NULL);
76
77 static ScmObj xyzzylisp_get_previous_buffer(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
78 {
79 ScmObj buffer_scm;
80 ScmObj buffer;
81 ScmObj SCM_OPTARGS = SCM_ARGREF(SCM_ARGCNT-1);
82 SCM_ENTER_SUBR("get-previous-buffer");
83 if (Scm_Length(SCM_OPTARGS) > 1)
84 Scm_Error("too many arguments: up to 1 is expected, %d given.", Scm_Length(SCM_OPTARGS));
85 if (SCM_NULLP(SCM_OPTARGS)) buffer_scm = SCM_UNBOUND;
86 else {
87 buffer_scm = SCM_CAR(SCM_OPTARGS);
88 SCM_OPTARGS = SCM_CDR(SCM_OPTARGS);
89 }
90 buffer = (buffer_scm);
91 {
92 {
93 GtkTextBuffer* SCM_RESULT;
94 if(buffer == SCM_UNBOUND)
95 SCM_RESULT = Shiki_get_previous_buffer(Shiki_CURRENT_TEXT_BUFFER);
96 else if(SHIKI_BUFFER_P(buffer))
97 SCM_RESULT = Shiki_get_previous_buffer(SHIKI_BUFFER_UNBOX(buffer));
98 else
99 Scm_Error("buffer required, but got %S", buffer);
100 if(SCM_RESULT)
101 g_object_ref(SCM_RESULT);
102 SCM_RETURN(SHIKI_BUFFER_BOX(SCM_RESULT));
103 }
104 }
105 }
106
107 static SCM_DEFINE_STRING_CONST(xyzzylisp_get_previous_buffer__NAME, "get-previous-buffer", 19, 19);
108 static SCM_DEFINE_SUBR(xyzzylisp_get_previous_buffer__STUB, 0, 1, SCM_OBJ(&xyzzylisp_get_previous_buffer__NAME), xyzzylisp_get_previous_buffer, NULL, NULL);
109
110 static ScmObj xyzzylisp_buffer_list(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
111 {
112 SCM_ENTER_SUBR("buffer-list");
113 {
114 {
115 ScmObj SCM_RESULT;
116 SCM_RESULT = Shiki_buffer_list();
117 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
118 }
119 }
120 }
121
122 static SCM_DEFINE_STRING_CONST(xyzzylisp_buffer_list__NAME, "buffer-list", 11, 11);
123 static SCM_DEFINE_SUBR(xyzzylisp_buffer_list__STUB, 0, 0, SCM_OBJ(&xyzzylisp_buffer_list__NAME), xyzzylisp_buffer_list, NULL, NULL);
124
125 static ScmObj xyzzylisp_next_buffer(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
126 {
127 SCM_ENTER_SUBR("next-buffer");
128 {
129 gtk_notebook_next_page(Shiki_EDITOR_NOTEBOOK);
130 SCM_RETURN(SCM_UNDEFINED);
131 }
132 }
133
134 static SCM_DEFINE_STRING_CONST(xyzzylisp_next_buffer__NAME, "next-buffer", 11, 11);
135 static SCM_DEFINE_SUBR(xyzzylisp_next_buffer__STUB, 0, 0, SCM_OBJ(&xyzzylisp_next_buffer__NAME), xyzzylisp_next_buffer, NULL, NULL);
136
137 static ScmObj xyzzylisp_previous_buffer(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
138 {
139 SCM_ENTER_SUBR("previous-buffer");
140 {
141 gtk_notebook_prev_page(Shiki_EDITOR_NOTEBOOK);
142 SCM_RETURN(SCM_UNDEFINED);
143 }
144 }
145
146 static SCM_DEFINE_STRING_CONST(xyzzylisp_previous_buffer__NAME, "previous-buffer", 15, 15);
147 static SCM_DEFINE_SUBR(xyzzylisp_previous_buffer__STUB, 0, 0, SCM_OBJ(&xyzzylisp_previous_buffer__NAME), xyzzylisp_previous_buffer, NULL, NULL);
148
149 static ScmObj xyzzylisp_buffer_name(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
150 {
151 ScmObj buffer_scm;
152 GtkTextBuffer* buffer;
153 SCM_ENTER_SUBR("buffer-name");
154 buffer_scm = SCM_ARGREF(0);
155 if (!SHIKI_BUFFER_P(buffer_scm)) Scm_Error("buffer required, but got %S", buffer_scm);
156 buffer = SHIKI_BUFFER_UNBOX(buffer_scm);
157 {
158 {
159 const char * SCM_RESULT;
160 SCM_RESULT = (Shiki_buffer_name(buffer));
161 SCM_RETURN(SCM_MAKE_MAYBE(SCM_MAKE_STR_COPYING, SCM_RESULT));
162 }
163 }
164 }
165
166 static SCM_DEFINE_STRING_CONST(xyzzylisp_buffer_name__NAME, "buffer-name", 11, 11);
167 static SCM_DEFINE_SUBR(xyzzylisp_buffer_name__STUB, 1, 0, SCM_OBJ(&xyzzylisp_buffer_name__NAME), xyzzylisp_buffer_name, NULL, NULL);
168
169 static ScmObj xyzzylisp_buffer_modified_p(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
170 {
171 ScmObj buffer_scm;
172 ScmObj buffer;
173 ScmObj SCM_OPTARGS = SCM_ARGREF(SCM_ARGCNT-1);
174 SCM_ENTER_SUBR("buffer-modified-p");
175 if (Scm_Length(SCM_OPTARGS) > 1)
176 Scm_Error("too many arguments: up to 1 is expected, %d given.", Scm_Length(SCM_OPTARGS));
177 if (SCM_NULLP(SCM_OPTARGS)) buffer_scm = SCM_UNBOUND;
178 else {
179 buffer_scm = SCM_CAR(SCM_OPTARGS);
180 SCM_OPTARGS = SCM_CDR(SCM_OPTARGS);
181 }
182 buffer = (buffer_scm);
183 {
184 {
185 int SCM_RESULT;
186 if(buffer == SCM_UNBOUND)
187 SCM_RESULT = gtk_text_buffer_get_modified(Shiki_CURRENT_TEXT_BUFFER);
188 else if(SHIKI_BUFFER_P(buffer))
189 SCM_RESULT = gtk_text_buffer_get_modified(SHIKI_BUFFER_UNBOX(buffer));
190 else
191 Scm_Error("buffer required, but got %S", buffer);
192 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
193 }
194 }
195 }
196
197 static SCM_DEFINE_STRING_CONST(xyzzylisp_buffer_modified_p__NAME, "buffer-modified-p", 17, 17);
198 static SCM_DEFINE_SUBR(xyzzylisp_buffer_modified_p__STUB, 0, 1, SCM_OBJ(&xyzzylisp_buffer_modified_p__NAME), xyzzylisp_buffer_modified_p, NULL, NULL);
199
200 static ScmObj xyzzylisp_buffer_substring(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
201 {
202 ScmObj start_scm;
203 int start;
204 ScmObj end_scm;
205 int end;
206 SCM_ENTER_SUBR("buffer-substring");
207 start_scm = SCM_ARGREF(0);
208 if (!SCM_EXACTP(start_scm)) Scm_Error("C integer required, but got %S", start_scm);
209 start = Scm_GetInteger(start_scm);
210 end_scm = SCM_ARGREF(1);
211 if (!SCM_EXACTP(end_scm)) Scm_Error("C integer required, but got %S", end_scm);
212 end = Scm_GetInteger(end_scm);
213 {
214 {
215 ScmString* SCM_RESULT;
216 gchar *substr = Shiki_buffer_substring(start, end);
217 if(substr)
218 SCM_RESULT = SCM_STRING(SCM_MAKE_STR_COPYING(substr));
219 else
220 SCM_RESULT = SCM_STRING(SCM_FALSE);
221 g_free(substr);
222 SCM_RETURN(SCM_MAKE_MAYBE(SCM_OBJ_SAFE, SCM_RESULT));
223 }
224 }
225 }
226
227 static SCM_DEFINE_STRING_CONST(xyzzylisp_buffer_substring__NAME, "buffer-substring", 16, 16);
228 static SCM_DEFINE_SUBR(xyzzylisp_buffer_substring__STUB, 2, 0, SCM_OBJ(&xyzzylisp_buffer_substring__NAME), xyzzylisp_buffer_substring, NULL, NULL);
229
230 static ScmObj xyzzylisp_delete_region(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
231 {
232 ScmObj start_scm;
233 int start;
234 ScmObj end_scm;
235 int end;
236 SCM_ENTER_SUBR("delete-region");
237 start_scm = SCM_ARGREF(0);
238 if (!SCM_EXACTP(start_scm)) Scm_Error("C integer required, but got %S", start_scm);
239 start = Scm_GetInteger(start_scm);
240 end_scm = SCM_ARGREF(1);
241 if (!SCM_EXACTP(end_scm)) Scm_Error("C integer required, but got %S", end_scm);
242 end = Scm_GetInteger(end_scm);
243 {
244 Shiki_delete_region(start, end);
245 SCM_RETURN(SCM_UNDEFINED);
246 }
247 }
248
249 static SCM_DEFINE_STRING_CONST(xyzzylisp_delete_region__NAME, "delete-region", 13, 13);
250 static SCM_DEFINE_SUBR(xyzzylisp_delete_region__STUB, 2, 0, SCM_OBJ(&xyzzylisp_delete_region__NAME), xyzzylisp_delete_region, NULL, NULL);
251
252 static ScmObj xyzzylisp_insert(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
253 {
254 ScmObj char_or_string_scm;
255 ScmObj char_or_string;
256 SCM_ENTER_SUBR("insert");
257 char_or_string_scm = SCM_ARGREF(0);
258 char_or_string = (char_or_string_scm);
259 {
260 if(SCM_CHARP(char_or_string)) {
261 gunichar u = SCM_CHAR_VALUE(char_or_string);
262 gchar *str = g_ucs4_to_utf8(&u, 1, NULL, NULL, NULL);
263 gtk_text_buffer_insert_at_cursor(Shiki_CURRENT_TEXT_BUFFER, str, -1);
264 g_free(str);
265 } else if(SCM_STRINGP(char_or_string))
266 gtk_text_buffer_insert_at_cursor(Shiki_CURRENT_TEXT_BUFFER, SCM_STRING_CONST_CSTRING(char_or_string), -1);
267 else
268 Scm_Error("character or string required, but got %S", char_or_string);
269 SCM_RETURN(SCM_UNDEFINED);
270 }
271 }
272
273 static SCM_DEFINE_STRING_CONST(xyzzylisp_insert__NAME, "insert", 6, 6);
274 static SCM_DEFINE_SUBR(xyzzylisp_insert__STUB, 1, 0, SCM_OBJ(&xyzzylisp_insert__NAME), xyzzylisp_insert, NULL, NULL);
275
276 static ScmObj xyzzylisp_point(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
277 {
278 SCM_ENTER_SUBR("point");
279 {
280 {
281 int SCM_RESULT;
282 SCM_RESULT = Shiki_point();
283 SCM_RETURN(Scm_MakeInteger(SCM_RESULT));
284 }
285 }
286 }
287
288 static SCM_DEFINE_STRING_CONST(xyzzylisp_point__NAME, "point", 5, 5);
289 static SCM_DEFINE_SUBR(xyzzylisp_point__STUB, 0, 0, SCM_OBJ(&xyzzylisp_point__NAME), xyzzylisp_point, NULL, NULL);
290
291 static ScmObj xyzzylisp_point_max(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
292 {
293 SCM_ENTER_SUBR("point-max");
294 {
295 {
296 int SCM_RESULT;
297 SCM_RESULT = Shiki_point_max();
298 SCM_RETURN(Scm_MakeInteger(SCM_RESULT));
299 }
300 }
301 }
302
303 static SCM_DEFINE_STRING_CONST(xyzzylisp_point_max__NAME, "point-max", 9, 9);
304 static SCM_DEFINE_SUBR(xyzzylisp_point_max__STUB, 0, 0, SCM_OBJ(&xyzzylisp_point_max__NAME), xyzzylisp_point_max, NULL, NULL);
305
306 static ScmObj xyzzylisp_point_min(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
307 {
308 SCM_ENTER_SUBR("point-min");
309 {
310 {
311 int SCM_RESULT;
312 SCM_RESULT = Shiki_point_min();
313 SCM_RETURN(Scm_MakeInteger(SCM_RESULT));
314 }
315 }
316 }
317
318 static SCM_DEFINE_STRING_CONST(xyzzylisp_point_min__NAME, "point-min", 9, 9);
319 static SCM_DEFINE_SUBR(xyzzylisp_point_min__STUB, 0, 0, SCM_OBJ(&xyzzylisp_point_min__NAME), xyzzylisp_point_min, NULL, NULL);
320
321 static ScmObj xyzzylisp_goto_char(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
322 {
323 ScmObj offset_scm;
324 int offset;
325 SCM_ENTER_SUBR("goto-char");
326 offset_scm = SCM_ARGREF(0);
327 if (!SCM_EXACTP(offset_scm)) Scm_Error("C integer required, but got %S", offset_scm);
328 offset = Scm_GetInteger(offset_scm);
329 {
330 Shiki_goto_char(offset);
331 SCM_RETURN(SCM_UNDEFINED);
332 }
333 }
334
335 static SCM_DEFINE_STRING_CONST(xyzzylisp_goto_char__NAME, "goto-char", 9, 9);
336 static SCM_DEFINE_SUBR(xyzzylisp_goto_char__STUB, 1, 0, SCM_OBJ(&xyzzylisp_goto_char__NAME), xyzzylisp_goto_char, NULL, NULL);
337
338 static ScmObj xyzzylisp_forward_char(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
339 {
340 SCM_ENTER_SUBR("forward-char");
341 {
342 Shiki_forward_char();
343 SCM_RETURN(SCM_UNDEFINED);
344 }
345 }
346
347 static SCM_DEFINE_STRING_CONST(xyzzylisp_forward_char__NAME, "forward-char", 12, 12);
348 static SCM_DEFINE_SUBR(xyzzylisp_forward_char__STUB, 0, 0, SCM_OBJ(&xyzzylisp_forward_char__NAME), xyzzylisp_forward_char, NULL, NULL);
349
350 static ScmObj xyzzylisp_backward_char(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
351 {
352 SCM_ENTER_SUBR("backward-char");
353 {
354 Shiki_backward_char();
355 SCM_RETURN(SCM_UNDEFINED);
356 }
357 }
358
359 static SCM_DEFINE_STRING_CONST(xyzzylisp_backward_char__NAME, "backward-char", 13, 13);
360 static SCM_DEFINE_SUBR(xyzzylisp_backward_char__STUB, 0, 0, SCM_OBJ(&xyzzylisp_backward_char__NAME), xyzzylisp_backward_char, NULL, NULL);
361
362 static ScmObj xyzzylisp_goto_line(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
363 {
364 ScmObj line_scm;
365 int line;
366 SCM_ENTER_SUBR("goto-line");
367 line_scm = SCM_ARGREF(0);
368 if (!SCM_EXACTP(line_scm)) Scm_Error("C integer required, but got %S", line_scm);
369 line = Scm_GetInteger(line_scm);
370 {
371 Shiki_goto_line(line);
372 SCM_RETURN(SCM_UNDEFINED);
373 }
374 }
375
376 static SCM_DEFINE_STRING_CONST(xyzzylisp_goto_line__NAME, "goto-line", 9, 9);
377 static SCM_DEFINE_SUBR(xyzzylisp_goto_line__STUB, 1, 0, SCM_OBJ(&xyzzylisp_goto_line__NAME), xyzzylisp_goto_line, NULL, NULL);
378
379 static ScmObj xyzzylisp_goto_bol(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
380 {
381 SCM_ENTER_SUBR("goto-bol");
382 {
383 Shiki_goto_bol();
384 SCM_RETURN(SCM_UNDEFINED);
385 }
386 }
387
388 static SCM_DEFINE_STRING_CONST(xyzzylisp_goto_bol__NAME, "goto-bol", 8, 8);
389 static SCM_DEFINE_SUBR(xyzzylisp_goto_bol__STUB, 0, 0, SCM_OBJ(&xyzzylisp_goto_bol__NAME), xyzzylisp_goto_bol, NULL, NULL);
390
391 static ScmObj xyzzylisp_goto_eol(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
392 {
393 SCM_ENTER_SUBR("goto-eol");
394 {
395 Shiki_goto_eol();
396 SCM_RETURN(SCM_UNDEFINED);
397 }
398 }
399
400 static SCM_DEFINE_STRING_CONST(xyzzylisp_goto_eol__NAME, "goto-eol", 8, 8);
401 static SCM_DEFINE_SUBR(xyzzylisp_goto_eol__STUB, 0, 0, SCM_OBJ(&xyzzylisp_goto_eol__NAME), xyzzylisp_goto_eol, NULL, NULL);
402
403 void Scm_Init_xyzzylisp(ScmModule *module)
404 {
405
406 SCM_DEFINE(module, "bufferp", SCM_OBJ(&xyzzylisp_bufferp__STUB));
407 SCM_DEFINE(module, "selected-buffer", SCM_OBJ(&xyzzylisp_selected_buffer__STUB));
408 SCM_DEFINE(module, "get-next-buffer", SCM_OBJ(&xyzzylisp_get_next_buffer__STUB));
409 SCM_DEFINE(module, "get-previous-buffer", SCM_OBJ(&xyzzylisp_get_previous_buffer__STUB));
410 SCM_DEFINE(module, "buffer-list", SCM_OBJ(&xyzzylisp_buffer_list__STUB));
411 SCM_DEFINE(module, "next-buffer", SCM_OBJ(&xyzzylisp_next_buffer__STUB));
412 SCM_DEFINE(module, "previous-buffer", SCM_OBJ(&xyzzylisp_previous_buffer__STUB));
413 SCM_DEFINE(module, "buffer-name", SCM_OBJ(&xyzzylisp_buffer_name__STUB));
414 SCM_DEFINE(module, "buffer-modified-p", SCM_OBJ(&xyzzylisp_buffer_modified_p__STUB));
415 SCM_DEFINE(module, "buffer-substring", SCM_OBJ(&xyzzylisp_buffer_substring__STUB));
416 SCM_DEFINE(module, "delete-region", SCM_OBJ(&xyzzylisp_delete_region__STUB));
417 SCM_DEFINE(module, "insert", SCM_OBJ(&xyzzylisp_insert__STUB));
418 SCM_DEFINE(module, "point", SCM_OBJ(&xyzzylisp_point__STUB));
419 SCM_DEFINE(module, "point-max", SCM_OBJ(&xyzzylisp_point_max__STUB));
420 SCM_DEFINE(module, "point-min", SCM_OBJ(&xyzzylisp_point_min__STUB));
421 SCM_DEFINE(module, "goto-char", SCM_OBJ(&xyzzylisp_goto_char__STUB));
422 SCM_DEFINE(module, "forward-char", SCM_OBJ(&xyzzylisp_forward_char__STUB));
423 SCM_DEFINE(module, "backward-char", SCM_OBJ(&xyzzylisp_backward_char__STUB));
424 SCM_DEFINE(module, "goto-line", SCM_OBJ(&xyzzylisp_goto_line__STUB));
425 SCM_DEFINE(module, "goto-bol", SCM_OBJ(&xyzzylisp_goto_bol__STUB));
426 SCM_DEFINE(module, "goto-eol", SCM_OBJ(&xyzzylisp_goto_eol__STUB));
427 }
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help