Develop and Download Open Source Software

S 式エディタ

Browse CVS Repository

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

Annotation of /shiki/shiki/xyzzylisp.c

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

Revision 1.6 - (hide 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 aloha 1.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 aloha 1.2 #include "shiki.h"
9 aloha 1.6 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 aloha 1.5 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 aloha 1.6 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 aloha 1.1 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 aloha 1.3 {
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 aloha 1.1 }
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 aloha 1.4 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 aloha 1.6 else
268     Scm_Error("character or string required, but got %S", char_or_string);
269 aloha 1.4 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 aloha 1.1 void Scm_Init_xyzzylisp(ScmModule *module)
404     {
405    
406 aloha 1.6 SCM_DEFINE(module, "bufferp", SCM_OBJ(&xyzzylisp_bufferp__STUB));
407 aloha 1.5 SCM_DEFINE(module, "selected-buffer", SCM_OBJ(&xyzzylisp_selected_buffer__STUB));
408 aloha 1.6 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 aloha 1.1 SCM_DEFINE(module, "buffer-substring", SCM_OBJ(&xyzzylisp_buffer_substring__STUB));
416 aloha 1.4 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 aloha 1.1 }
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help