/[gcl]/gcl/lsp/gcl_japi.c
ViewVC logotype

Diff of /gcl/lsp/gcl_japi.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by camm, Sun Sep 14 02:30:35 2003 UTC revision 1.2 by camm, Sun Sep 14 02:43:05 2003 UTC
# Line 0  Line 1 
1    
2    #include "cmpinclude.h"
3    #include "japi.h"
4    void init_japi(){do_init(VV);}
5    #include <japi.h>
6    /*      function definition for J_START */
7    
8    static void L1()
9    {       object *old_base=vs_base;
10            int x;
11            check_arg(0);
12            x=
13            j_start();
14            vs_top=(vs_base=old_base)+1;
15            vs_base[0]=make_fixnum(x);
16    }
17    /*      function definition for J_CONNECT       */
18    
19    static void L2()
20    {       object *old_base=vs_base;
21            int x;
22            check_arg(1);
23            x=
24            j_connect(
25            object_to_string(vs_base[0]));
26            vs_top=(vs_base=old_base)+1;
27            vs_base[0]=make_fixnum(x);
28    }
29    /*      function definition for J_SETDEBUG      */
30    
31    static void L3()
32    {       object *old_base=vs_base;
33            check_arg(1);
34            j_setdebug(
35            object_to_int(vs_base[0]));
36            vs_top=(vs_base=old_base)+1;
37            vs_base[0]=Cnil;
38    }
39    /*      function definition for J_FRAME */
40    
41    static void L4()
42    {       object *old_base=vs_base;
43            int x;
44            check_arg(1);
45            x=
46            j_frame(
47            object_to_string(vs_base[0]));
48            vs_top=(vs_base=old_base)+1;
49            vs_base[0]=make_fixnum(x);
50    }
51    /*      function definition for J_BUTTON        */
52    
53    static void L5()
54    {       object *old_base=vs_base;
55            int x;
56            check_arg(2);
57            x=
58            j_button(
59            object_to_int(vs_base[0]),
60            object_to_string(vs_base[1]));
61            vs_top=(vs_base=old_base)+1;
62            vs_base[0]=make_fixnum(x);
63    }
64    /*      function definition for J_GRAPHICBUTTON */
65    
66    static void L6()
67    {       object *old_base=vs_base;
68            int x;
69            check_arg(2);
70            x=
71            j_graphicbutton(
72            object_to_int(vs_base[0]),
73            object_to_string(vs_base[1]));
74            vs_top=(vs_base=old_base)+1;
75            vs_base[0]=make_fixnum(x);
76    }
77    /*      function definition for J_CHECKBOX      */
78    
79    static void L7()
80    {       object *old_base=vs_base;
81            int x;
82            check_arg(2);
83            x=
84            j_checkbox(
85            object_to_int(vs_base[0]),
86            object_to_string(vs_base[1]));
87            vs_top=(vs_base=old_base)+1;
88            vs_base[0]=make_fixnum(x);
89    }
90    /*      function definition for J_LABEL */
91    
92    static void L8()
93    {       object *old_base=vs_base;
94            int x;
95            check_arg(2);
96            x=
97            j_label(
98            object_to_int(vs_base[0]),
99            object_to_string(vs_base[1]));
100            vs_top=(vs_base=old_base)+1;
101            vs_base[0]=make_fixnum(x);
102    }
103    /*      function definition for J_GRAPHICLABEL  */
104    
105    static void L9()
106    {       object *old_base=vs_base;
107            int x;
108            check_arg(2);
109            x=
110            j_graphiclabel(
111            object_to_int(vs_base[0]),
112            object_to_string(vs_base[1]));
113            vs_top=(vs_base=old_base)+1;
114            vs_base[0]=make_fixnum(x);
115    }
116    /*      function definition for J_CANVAS        */
117    
118    static void L10()
119    {       object *old_base=vs_base;
120            int x;
121            check_arg(3);
122            x=
123            j_canvas(
124            object_to_int(vs_base[0]),
125            object_to_int(vs_base[1]),
126            object_to_int(vs_base[2]));
127            vs_top=(vs_base=old_base)+1;
128            vs_base[0]=make_fixnum(x);
129    }
130    /*      function definition for J_PANEL */
131    
132    static void L11()
133    {       object *old_base=vs_base;
134            int x;
135            check_arg(1);
136            x=
137            j_panel(
138            object_to_int(vs_base[0]));
139            vs_top=(vs_base=old_base)+1;
140            vs_base[0]=make_fixnum(x);
141    }
142    /*      function definition for J_BORDERPANEL   */
143    
144    static void L12()
145    {       object *old_base=vs_base;
146            int x;
147            check_arg(2);
148            x=
149            j_borderpanel(
150            object_to_int(vs_base[0]),
151            object_to_int(vs_base[1]));
152            vs_top=(vs_base=old_base)+1;
153            vs_base[0]=make_fixnum(x);
154    }
155    /*      function definition for J_RADIOGROUP    */
156    
157    static void L13()
158    {       object *old_base=vs_base;
159            int x;
160            check_arg(1);
161            x=
162            j_radiogroup(
163            object_to_int(vs_base[0]));
164            vs_top=(vs_base=old_base)+1;
165            vs_base[0]=make_fixnum(x);
166    }
167    /*      function definition for J_RADIOBUTTON   */
168    
169    static void L14()
170    {       object *old_base=vs_base;
171            int x;
172            check_arg(2);
173            x=
174            j_radiobutton(
175            object_to_int(vs_base[0]),
176            object_to_string(vs_base[1]));
177            vs_top=(vs_base=old_base)+1;
178            vs_base[0]=make_fixnum(x);
179    }
180    /*      function definition for J_LIST  */
181    
182    static void L15()
183    {       object *old_base=vs_base;
184            int x;
185            check_arg(2);
186            x=
187            j_list(
188            object_to_int(vs_base[0]),
189            object_to_int(vs_base[1]));
190            vs_top=(vs_base=old_base)+1;
191            vs_base[0]=make_fixnum(x);
192    }
193    /*      function definition for J_CHOICE        */
194    
195    static void L16()
196    {       object *old_base=vs_base;
197            int x;
198            check_arg(1);
199            x=
200            j_choice(
201            object_to_int(vs_base[0]));
202            vs_top=(vs_base=old_base)+1;
203            vs_base[0]=make_fixnum(x);
204    }
205    /*      function definition for J_DIALOG        */
206    
207    static void L17()
208    {       object *old_base=vs_base;
209            int x;
210            check_arg(2);
211            x=
212            j_dialog(
213            object_to_int(vs_base[0]),
214            object_to_string(vs_base[1]));
215            vs_top=(vs_base=old_base)+1;
216            vs_base[0]=make_fixnum(x);
217    }
218    /*      function definition for J_WINDOW        */
219    
220    static void L18()
221    {       object *old_base=vs_base;
222            int x;
223            check_arg(1);
224            x=
225            j_window(
226            object_to_int(vs_base[0]));
227            vs_top=(vs_base=old_base)+1;
228            vs_base[0]=make_fixnum(x);
229    }
230    /*      function definition for J_POPUPMENU     */
231    
232    static void L19()
233    {       object *old_base=vs_base;
234            int x;
235            check_arg(2);
236            x=
237            j_popupmenu(
238            object_to_int(vs_base[0]),
239            object_to_string(vs_base[1]));
240            vs_top=(vs_base=old_base)+1;
241            vs_base[0]=make_fixnum(x);
242    }
243    /*      function definition for J_SCROLLPANE    */
244    
245    static void L20()
246    {       object *old_base=vs_base;
247            int x;
248            check_arg(1);
249            x=
250            j_scrollpane(
251            object_to_int(vs_base[0]));
252            vs_top=(vs_base=old_base)+1;
253            vs_base[0]=make_fixnum(x);
254    }
255    /*      function definition for J_HSCROLLBAR    */
256    
257    static void L21()
258    {       object *old_base=vs_base;
259            int x;
260            check_arg(1);
261            x=
262            j_hscrollbar(
263            object_to_int(vs_base[0]));
264            vs_top=(vs_base=old_base)+1;
265            vs_base[0]=make_fixnum(x);
266    }
267    /*      function definition for J_VSCROLLBAR    */
268    
269    static void L22()
270    {       object *old_base=vs_base;
271            int x;
272            check_arg(1);
273            x=
274            j_vscrollbar(
275            object_to_int(vs_base[0]));
276            vs_top=(vs_base=old_base)+1;
277            vs_base[0]=make_fixnum(x);
278    }
279    /*      function definition for J_LINE  */
280    
281    static void L23()
282    {       object *old_base=vs_base;
283            int x;
284            check_arg(4);
285            x=
286            j_line(
287            object_to_int(vs_base[0]),
288            object_to_int(vs_base[1]),
289            object_to_int(vs_base[2]),
290            object_to_int(vs_base[3]));
291            vs_top=(vs_base=old_base)+1;
292            vs_base[0]=make_fixnum(x);
293    }
294    /*      function definition for J_PRINTER       */
295    
296    static void L24()
297    {       object *old_base=vs_base;
298            int x;
299            check_arg(1);
300            x=
301            j_printer(
302            object_to_int(vs_base[0]));
303            vs_top=(vs_base=old_base)+1;
304            vs_base[0]=make_fixnum(x);
305    }
306    /*      function definition for J_IMAGE */
307    
308    static void L25()
309    {       object *old_base=vs_base;
310            int x;
311            check_arg(2);
312            x=
313            j_image(
314            object_to_int(vs_base[0]),
315            object_to_int(vs_base[1]));
316            vs_top=(vs_base=old_base)+1;
317            vs_base[0]=make_fixnum(x);
318    }
319    /*      function definition for J_FILEDIALOG    */
320    
321    static void L26()
322    {       object *old_base=vs_base;
323            char *x;
324            check_arg(4);
325            x=
326            j_filedialog(
327            object_to_int(vs_base[0]),
328            object_to_string(vs_base[1]),
329            object_to_string(vs_base[2]),
330            object_to_string(vs_base[3]));
331            vs_top=(vs_base=old_base)+1;
332            vs_base[0]=make_simple_string(x);
333    }
334    /*      function definition for J_FILESELECT    */
335    
336    static void L27()
337    {       object *old_base=vs_base;
338            char *x;
339            check_arg(4);
340            x=
341            j_fileselect(
342            object_to_int(vs_base[0]),
343            object_to_string(vs_base[1]),
344            object_to_string(vs_base[2]),
345            object_to_string(vs_base[3]));
346            vs_top=(vs_base=old_base)+1;
347            vs_base[0]=make_simple_string(x);
348    }
349    /*      function definition for J_MESSAGEBOX    */
350    
351    static void L28()
352    {       object *old_base=vs_base;
353            int x;
354            check_arg(3);
355            x=
356            j_messagebox(
357            object_to_int(vs_base[0]),
358            object_to_string(vs_base[1]),
359            object_to_string(vs_base[2]));
360            vs_top=(vs_base=old_base)+1;
361            vs_base[0]=make_fixnum(x);
362    }
363    /*      function definition for J_ALERTBOX      */
364    
365    static void L29()
366    {       object *old_base=vs_base;
367            int x;
368            check_arg(4);
369            x=
370            j_alertbox(
371            object_to_int(vs_base[0]),
372            object_to_string(vs_base[1]),
373            object_to_string(vs_base[2]),
374            object_to_string(vs_base[3]));
375            vs_top=(vs_base=old_base)+1;
376            vs_base[0]=make_fixnum(x);
377    }
378    /*      function definition for J_CHOICEBOX2    */
379    
380    static void L30()
381    {       object *old_base=vs_base;
382            int x;
383            check_arg(5);
384            x=
385            j_choicebox2(
386            object_to_int(vs_base[0]),
387            object_to_string(vs_base[1]),
388            object_to_string(vs_base[2]),
389            object_to_string(vs_base[3]),
390            object_to_string(vs_base[4]));
391            vs_top=(vs_base=old_base)+1;
392            vs_base[0]=make_fixnum(x);
393    }
394    /*      function definition for J_CHOICEBOX3    */
395    
396    static void L31()
397    {       object *old_base=vs_base;
398            int x;
399            check_arg(6);
400            x=
401            j_choicebox3(
402            object_to_int(vs_base[0]),
403            object_to_string(vs_base[1]),
404            object_to_string(vs_base[2]),
405            object_to_string(vs_base[3]),
406            object_to_string(vs_base[4]),
407            object_to_string(vs_base[5]));
408            vs_top=(vs_base=old_base)+1;
409            vs_base[0]=make_fixnum(x);
410    }
411    /*      function definition for J_ADDITEM       */
412    
413    static void L32()
414    {       object *old_base=vs_base;
415            check_arg(2);
416            j_additem(
417            object_to_int(vs_base[0]),
418            object_to_string(vs_base[1]));
419            vs_top=(vs_base=old_base)+1;
420            vs_base[0]=Cnil;
421    }
422    /*      function definition for J_TEXTFIELD     */
423    
424    static void L33()
425    {       object *old_base=vs_base;
426            int x;
427            check_arg(2);
428            x=
429            j_textfield(
430            object_to_int(vs_base[0]),
431            object_to_int(vs_base[1]));
432            vs_top=(vs_base=old_base)+1;
433            vs_base[0]=make_fixnum(x);
434    }
435    /*      function definition for J_TEXTAREA      */
436    
437    static void L34()
438    {       object *old_base=vs_base;
439            int x;
440            check_arg(3);
441            x=
442            j_textarea(
443            object_to_int(vs_base[0]),
444            object_to_int(vs_base[1]),
445            object_to_int(vs_base[2]));
446            vs_top=(vs_base=old_base)+1;
447            vs_base[0]=make_fixnum(x);
448    }
449    /*      function definition for J_MENUBAR       */
450    
451    static void L35()
452    {       object *old_base=vs_base;
453            int x;
454            check_arg(1);
455            x=
456            j_menubar(
457            object_to_int(vs_base[0]));
458            vs_top=(vs_base=old_base)+1;
459            vs_base[0]=make_fixnum(x);
460    }
461    /*      function definition for J_MENU  */
462    
463    static void L36()
464    {       object *old_base=vs_base;
465            int x;
466            check_arg(2);
467            x=
468            j_menu(
469            object_to_int(vs_base[0]),
470            object_to_string(vs_base[1]));
471            vs_top=(vs_base=old_base)+1;
472            vs_base[0]=make_fixnum(x);
473    }
474    /*      function definition for J_HELPMENU      */
475    
476    static void L37()
477    {       object *old_base=vs_base;
478            int x;
479            check_arg(2);
480            x=
481            j_helpmenu(
482            object_to_int(vs_base[0]),
483            object_to_string(vs_base[1]));
484            vs_top=(vs_base=old_base)+1;
485            vs_base[0]=make_fixnum(x);
486    }
487    /*      function definition for J_MENUITEM      */
488    
489    static void L38()
490    {       object *old_base=vs_base;
491            int x;
492            check_arg(2);
493            x=
494            j_menuitem(
495            object_to_int(vs_base[0]),
496            object_to_string(vs_base[1]));
497            vs_top=(vs_base=old_base)+1;
498            vs_base[0]=make_fixnum(x);
499    }
500    /*      function definition for J_CHECKMENUITEM */
501    
502    static void L39()
503    {       object *old_base=vs_base;
504            int x;
505            check_arg(2);
506            x=
507            j_checkmenuitem(
508            object_to_int(vs_base[0]),
509            object_to_string(vs_base[1]));
510            vs_top=(vs_base=old_base)+1;
511            vs_base[0]=make_fixnum(x);
512    }
513    /*      function definition for J_PACK  */
514    
515    static void L40()
516    {       object *old_base=vs_base;
517            check_arg(1);
518            j_pack(
519            object_to_int(vs_base[0]));
520            vs_top=(vs_base=old_base)+1;
521            vs_base[0]=Cnil;
522    }
523    /*      function definition for J_PRINT */
524    
525    static void L41()
526    {       object *old_base=vs_base;
527            check_arg(1);
528            j_print(
529            object_to_int(vs_base[0]));
530            vs_top=(vs_base=old_base)+1;
531            vs_base[0]=Cnil;
532    }
533    /*      function definition for J_PLAYSOUNDFILE */
534    
535    static void L42()
536    {       object *old_base=vs_base;
537            check_arg(1);
538            j_playsoundfile(
539            object_to_string(vs_base[0]));
540            vs_top=(vs_base=old_base)+1;
541            vs_base[0]=Cnil;
542    }
543    /*      function definition for J_PLAY  */
544    
545    static void L43()
546    {       object *old_base=vs_base;
547            check_arg(1);
548            j_play(
549            object_to_int(vs_base[0]));
550            vs_top=(vs_base=old_base)+1;
551            vs_base[0]=Cnil;
552    }
553    /*      function definition for J_SOUND */
554    
555    static void L44()
556    {       object *old_base=vs_base;
557            int x;
558            check_arg(1);
559            x=
560            j_sound(
561            object_to_string(vs_base[0]));
562            vs_top=(vs_base=old_base)+1;
563            vs_base[0]=make_fixnum(x);
564    }
565    /*      function definition for J_SETFONT       */
566    
567    static void L45()
568    {       object *old_base=vs_base;
569            check_arg(4);
570            j_setfont(
571            object_to_int(vs_base[0]),
572            object_to_int(vs_base[1]),
573            object_to_int(vs_base[2]),
574            object_to_int(vs_base[3]));
575            vs_top=(vs_base=old_base)+1;
576            vs_base[0]=Cnil;
577    }
578    /*      function definition for J_SETFONTNAME   */
579    
580    static void L46()
581    {       object *old_base=vs_base;
582            check_arg(2);
583            j_setfontname(
584            object_to_int(vs_base[0]),
585            object_to_int(vs_base[1]));
586            vs_top=(vs_base=old_base)+1;
587            vs_base[0]=Cnil;
588    }
589    /*      function definition for J_SETFONTSIZE   */
590    
591    static void L47()
592    {       object *old_base=vs_base;
593            check_arg(2);
594            j_setfontsize(
595            object_to_int(vs_base[0]),
596            object_to_int(vs_base[1]));
597            vs_top=(vs_base=old_base)+1;
598            vs_base[0]=Cnil;
599    }
600    /*      function definition for J_SETFONTSTYLE  */
601    
602    static void L48()
603    {       object *old_base=vs_base;
604            check_arg(2);
605            j_setfontstyle(
606            object_to_int(vs_base[0]),
607            object_to_int(vs_base[1]));
608            vs_top=(vs_base=old_base)+1;
609            vs_base[0]=Cnil;
610    }
611    /*      function definition for J_SEPERATOR     */
612    
613    static void L49()
614    {       object *old_base=vs_base;
615            check_arg(1);
616            j_seperator(
617            object_to_int(vs_base[0]));
618            vs_top=(vs_base=old_base)+1;
619            vs_base[0]=Cnil;
620    }
621    /*      function definition for J_DISABLE       */
622    
623    static void L50()
624    {       object *old_base=vs_base;
625            check_arg(1);
626            j_disable(
627            object_to_int(vs_base[0]));
628            vs_top=(vs_base=old_base)+1;
629            vs_base[0]=Cnil;
630    }
631    /*      function definition for J_ENABLE        */
632    
633    static void L51()
634    {       object *old_base=vs_base;
635            check_arg(1);
636            j_enable(
637            object_to_int(vs_base[0]));
638            vs_top=(vs_base=old_base)+1;
639            vs_base[0]=Cnil;
640    }
641    /*      function definition for J_GETSTATE      */
642    
643    static void L52()
644    {       object *old_base=vs_base;
645            int x;
646            check_arg(1);
647            x=
648            j_getstate(
649            object_to_int(vs_base[0]));
650            vs_top=(vs_base=old_base)+1;
651            vs_base[0]=make_fixnum(x);
652    }
653    /*      function definition for J_GETROWS       */
654    
655    static void L53()
656    {       object *old_base=vs_base;
657            int x;
658            check_arg(1);
659            x=
660            j_getrows(
661            object_to_int(vs_base[0]));
662            vs_top=(vs_base=old_base)+1;
663            vs_base[0]=make_fixnum(x);
664    }
665    /*      function definition for J_GETCOLUMNS    */
666    
667    static void L54()
668    {       object *old_base=vs_base;
669            int x;
670            check_arg(1);
671            x=
672            j_getcolumns(
673            object_to_int(vs_base[0]));
674            vs_top=(vs_base=old_base)+1;
675            vs_base[0]=make_fixnum(x);
676    }
677    /*      function definition for J_GETSELECT     */
678    
679    static void L55()
680    {       object *old_base=vs_base;
681            int x;
682            check_arg(1);
683            x=
684            j_getselect(
685            object_to_int(vs_base[0]));
686            vs_top=(vs_base=old_base)+1;
687            vs_base[0]=make_fixnum(x);
688    }
689    /*      function definition for J_ISSELECT      */
690    
691    static void L56()
692    {       object *old_base=vs_base;
693            int x;
694            check_arg(2);
695            x=
696            j_isselect(
697            object_to_int(vs_base[0]),
698            object_to_int(vs_base[1]));
699            vs_top=(vs_base=old_base)+1;
700            vs_base[0]=make_fixnum(x);
701    }
702    /*      function definition for J_ISVISIBLE     */
703    
704    static void L57()
705    {       object *old_base=vs_base;
706            int x;
707            check_arg(1);
708            x=
709            j_isvisible(
710            object_to_int(vs_base[0]));
711            vs_top=(vs_base=old_base)+1;
712            vs_base[0]=make_fixnum(x);
713    }
714    /*      function definition for J_ISPARENT      */
715    
716    static void L58()
717    {       object *old_base=vs_base;
718            int x;
719            check_arg(2);
720            x=
721            j_isparent(
722            object_to_int(vs_base[0]),
723            object_to_int(vs_base[1]));
724            vs_top=(vs_base=old_base)+1;
725            vs_base[0]=make_fixnum(x);
726    }
727    /*      function definition for J_ISRESIZABLE   */
728    
729    static void L59()
730    {       object *old_base=vs_base;
731            int x;
732            check_arg(1);
733            x=
734            j_isresizable(
735            object_to_int(vs_base[0]));
736            vs_top=(vs_base=old_base)+1;
737            vs_base[0]=make_fixnum(x);
738    }
739    /*      function definition for J_SELECT        */
740    
741    static void L60()
742    {       object *old_base=vs_base;
743            check_arg(2);
744            j_select(
745            object_to_int(vs_base[0]),
746            object_to_int(vs_base[1]));
747            vs_top=(vs_base=old_base)+1;
748            vs_base[0]=Cnil;
749    }
750    /*      function definition for J_DESELECT      */
751    
752    static void L61()
753    {       object *old_base=vs_base;
754            check_arg(2);
755            j_deselect(
756            object_to_int(vs_base[0]),
757            object_to_int(vs_base[1]));
758            vs_top=(vs_base=old_base)+1;
759            vs_base[0]=Cnil;
760    }
761    /*      function definition for J_MULTIPLEMODE  */
762    
763    static void L62()
764    {       object *old_base=vs_base;
765            check_arg(2);
766            j_multiplemode(
767            object_to_int(vs_base[0]),
768            object_to_int(vs_base[1]));
769            vs_top=(vs_base=old_base)+1;
770            vs_base[0]=Cnil;
771    }
772    /*      function definition for J_INSERT        */
773    
774    static void L63()
775    {       object *old_base=vs_base;
776            check_arg(3);
777            j_insert(
778            object_to_int(vs_base[0]),
779            object_to_int(vs_base[1]),
780            object_to_string(vs_base[2]));
781            vs_top=(vs_base=old_base)+1;
782            vs_base[0]=Cnil;
783    }
784    /*      function definition for J_REMOVE        */
785    
786    static void L64()
787    {       object *old_base=vs_base;
788            check_arg(2);
789            j_remove(
790            object_to_int(vs_base[0]),
791            object_to_int(vs_base[1]));
792            vs_top=(vs_base=old_base)+1;
793            vs_base[0]=Cnil;
794    }
795    /*      function definition for J_REMOVEITEM    */
796    
797    static void L65()
798    {       object *old_base=vs_base;
799            check_arg(2);
800            j_removeitem(
801            object_to_int(vs_base[0]),
802            object_to_string(vs_base[1]));
803            vs_top=(vs_base=old_base)+1;
804            vs_base[0]=Cnil;
805    }
806    /*      function definition for J_REMOVEALL     */
807    
808    static void L66()
809    {       object *old_base=vs_base;
810            check_arg(1);
811            j_removeall(
812            object_to_int(vs_base[0]));
813            vs_top=(vs_base=old_base)+1;
814            vs_base[0]=Cnil;
815    }
816    /*      function definition for J_SETSTATE      */
817    
818    static void L67()
819    {       object *old_base=vs_base;
820            check_arg(2);
821            j_setstate(
822            object_to_int(vs_base[0]),
823            object_to_int(vs_base[1]));
824            vs_top=(vs_base=old_base)+1;
825            vs_base[0]=Cnil;
826    }
827    /*      function definition for J_SETROWS       */
828    
829    static void L68()
830    {       object *old_base=vs_base;
831            check_arg(2);
832            j_setrows(
833            object_to_int(vs_base[0]),
834            object_to_int(vs_base[1]));
835            vs_top=(vs_base=old_base)+1;
836            vs_base[0]=Cnil;
837    }
838    /*      function definition for J_SETCOLUMNS    */
839    
840    static void L69()
841    {       object *old_base=vs_base;
842            check_arg(2);
843            j_setcolumns(
844            object_to_int(vs_base[0]),
845            object_to_int(vs_base[1]));
846            vs_top=(vs_base=old_base)+1;
847            vs_base[0]=Cnil;
848    }
849    /*      function definition for J_SETICON       */
850    
851    static void L70()
852    {       object *old_base=vs_base;
853            check_arg(2);
854            j_seticon(
855            object_to_int(vs_base[0]),
856            object_to_int(vs_base[1]));
857            vs_top=(vs_base=old_base)+1;
858            vs_base[0]=Cnil;
859    }
860    /*      function definition for J_SETIMAGE      */
861    
862    static void L71()
863    {       object *old_base=vs_base;
864            check_arg(2);
865            j_setimage(
866            object_to_int(vs_base[0]),
867            object_to_int(vs_base[1]));
868            vs_top=(vs_base=old_base)+1;
869            vs_base[0]=Cnil;
870    }
871    /*      function definition for J_SETVALUE      */
872    
873    static void L72()
874    {       object *old_base=vs_base;
875            check_arg(2);
876            j_setvalue(
877            object_to_int(vs_base[0]),
878            object_to_int(vs_base[1]));
879            vs_top=(vs_base=old_base)+1;
880            vs_base[0]=Cnil;
881    }
882    /*      function definition for J_SETRADIOGROUP */
883    
884    static void L73()
885    {       object *old_base=vs_base;
886            check_arg(2);
887            j_setradiogroup(
888            object_to_int(vs_base[0]),
889            object_to_int(vs_base[1]));
890            vs_top=(vs_base=old_base)+1;
891            vs_base[0]=Cnil;
892    }
893    /*      function definition for J_SETUNITINC    */
894    
895    static void L74()
896    {       object *old_base=vs_base;
897            check_arg(2);
898            j_setunitinc(
899            object_to_int(vs_base[0]),
900            object_to_int(vs_base[1]));
901            vs_top=(vs_base=old_base)+1;
902            vs_base[0]=Cnil;
903    }
904    /*      function definition for J_SETBLOCKINC   */
905    
906    static void L75()
907    {       object *old_base=vs_base;
908            check_arg(2);
909            j_setblockinc(
910            object_to_int(vs_base[0]),
911            object_to_int(vs_base[1]));
912            vs_top=(vs_base=old_base)+1;
913            vs_base[0]=Cnil;
914    }
915    /*      function definition for J_SETMIN        */
916    
917    static void L76()
918    {       object *old_base=vs_base;
919            check_arg(2);
920            j_setmin(
921            object_to_int(vs_base[0]),
922            object_to_int(vs_base[1]));
923            vs_top=(vs_base=old_base)+1;
924            vs_base[0]=Cnil;
925    }
926    /*      function definition for J_SETMAX        */
927    
928    static void L77()
929    {       object *old_base=vs_base;
930            check_arg(2);
931            j_setmax(
932            object_to_int(vs_base[0]),
933            object_to_int(vs_base[1]));
934            vs_top=(vs_base=old_base)+1;
935            vs_base[0]=Cnil;
936    }
937    /*      function definition for J_SETSLIDESIZE  */
938    
939    static void L78()
940    {       object *old_base=vs_base;
941            check_arg(2);
942            j_setslidesize(
943            object_to_int(vs_base[0]),
944            object_to_int(vs_base[1]));
945            vs_top=(vs_base=old_base)+1;
946            vs_base[0]=Cnil;
947    }
948    /*      function definition for J_SETCURSOR     */
949    
950    static void L79()
951    {       object *old_base=vs_base;
952            check_arg(2);
953            j_setcursor(
954            object_to_int(vs_base[0]),
955            object_to_int(vs_base[1]));
956            vs_top=(vs_base=old_base)+1;
957            vs_base[0]=Cnil;
958    }
959    /*      function definition for J_SETRESIZABLE  */
960    
961    static void L80()
962    {       object *old_base=vs_base;
963            check_arg(2);
964            j_setresizable(
965            object_to_int(vs_base[0]),
966            object_to_int(vs_base[1]));
967            vs_top=(vs_base=old_base)+1;
968            vs_base[0]=Cnil;
969    }
970    /*      function definition for J_GETLENGTH     */
971    
972    static void L81()
973    {       object *old_base=vs_base;
974            int x;
975            check_arg(1);
976            x=
977            j_getlength(
978            object_to_int(vs_base[0]));
979            vs_top=(vs_base=old_base)+1;
980            vs_base[0]=make_fixnum(x);
981    }
982    /*      function definition for J_GETVALUE      */
983    
984    static void L82()
985    {       object *old_base=vs_base;
986            int x;
987            check_arg(1);
988            x=
989            j_getvalue(
990            object_to_int(vs_base[0]));
991            vs_top=(vs_base=old_base)+1;
992            vs_base[0]=make_fixnum(x);
993    }
994    /*      function definition for J_GETSCREENHEIGHT       */
995    
996    static void L83()
997    {       object *old_base=vs_base;
998            int x;
999            check_arg(0);
1000            x=
1001            j_getscreenheight();
1002            vs_top=(vs_base=old_base)+1;
1003            vs_base[0]=make_fixnum(x);
1004    }
1005    /*      function definition for J_GETSCREENWIDTH        */
1006    
1007    static void L84()
1008    {       object *old_base=vs_base;
1009            int x;
1010            check_arg(0);
1011            x=
1012            j_getscreenwidth();
1013            vs_top=(vs_base=old_base)+1;
1014            vs_base[0]=make_fixnum(x);
1015    }
1016    /*      function definition for J_GETHEIGHT     */
1017    
1018    static void L85()
1019    {       object *old_base=vs_base;
1020            int x;
1021            check_arg(1);
1022            x=
1023            j_getheight(
1024            object_to_int(vs_base[0]));
1025            vs_top=(vs_base=old_base)+1;
1026            vs_base[0]=make_fixnum(x);
1027    }
1028    /*      function definition for J_GETWIDTH      */
1029    
1030    static void L86()
1031    {       object *old_base=vs_base;
1032            int x;
1033            check_arg(1);
1034            x=
1035            j_getwidth(
1036            object_to_int(vs_base[0]));
1037            vs_top=(vs_base=old_base)+1;
1038            vs_base[0]=make_fixnum(x);
1039    }
1040    /*      function definition for J_GETINSETS     */
1041    
1042    static void L87()
1043    {       object *old_base=vs_base;
1044            int x;
1045            check_arg(2);
1046            x=
1047            j_getinsets(
1048            object_to_int(vs_base[0]),
1049            object_to_int(vs_base[1]));
1050            vs_top=(vs_base=old_base)+1;
1051            vs_base[0]=make_fixnum(x);
1052    }
1053    /*      function definition for J_GETLAYOUTID   */
1054    
1055    static void L88()
1056    {       object *old_base=vs_base;
1057            int x;
1058            check_arg(1);
1059            x=
1060            j_getlayoutid(
1061            object_to_int(vs_base[0]));
1062            vs_top=(vs_base=old_base)+1;
1063            vs_base[0]=make_fixnum(x);
1064    }
1065    /*      function definition for J_GETINHEIGHT   */
1066    
1067    static void L89()
1068    {       object *old_base=vs_base;
1069            int x;
1070            check_arg(1);
1071            x=
1072            j_getinheight(
1073            object_to_int(vs_base[0]));
1074            vs_top=(vs_base=old_base)+1;
1075            vs_base[0]=make_fixnum(x);
1076    }
1077    /*      function definition for J_GETINWIDTH    */
1078    
1079    static void L90()
1080    {       object *old_base=vs_base;
1081            int x;
1082            check_arg(1);
1083            x=
1084            j_getinwidth(
1085            object_to_int(vs_base[0]));
1086            vs_top=(vs_base=old_base)+1;
1087            vs_base[0]=make_fixnum(x);
1088    }
1089    /*      function definition for J_GETTEXT       */
1090    
1091    static void L91()
1092    {       object *old_base=vs_base;
1093            char *x;
1094            check_arg(2);
1095            x=
1096            j_gettext(
1097            object_to_int(vs_base[0]),
1098            object_to_string(vs_base[1]));
1099            vs_top=(vs_base=old_base)+1;
1100            vs_base[0]=make_simple_string(x);
1101    }
1102    /*      function definition for J_GETITEM       */
1103    
1104    static void L92()
1105    {       object *old_base=vs_base;
1106            char *x;
1107            check_arg(3);
1108            x=
1109            j_getitem(
1110            object_to_int(vs_base[0]),
1111            object_to_int(vs_base[1]),
1112            object_to_string(vs_base[2]));
1113            vs_top=(vs_base=old_base)+1;
1114            vs_base[0]=make_simple_string(x);
1115    }
1116    /*      function definition for J_GETITEMCOUNT  */
1117    
1118    static void L93()
1119    {       object *old_base=vs_base;
1120            int x;
1121            check_arg(1);
1122            x=
1123            j_getitemcount(
1124            object_to_int(vs_base[0]));
1125            vs_top=(vs_base=old_base)+1;
1126            vs_base[0]=make_fixnum(x);
1127    }
1128    /*      function definition for J_DELETE        */
1129    
1130    static void L94()
1131    {       object *old_base=vs_base;
1132            check_arg(3);
1133            j_delete(
1134            object_to_int(vs_base[0]),
1135            object_to_int(vs_base[1]),
1136            object_to_int(vs_base[2]));
1137            vs_top=(vs_base=old_base)+1;
1138            vs_base[0]=Cnil;
1139    }
1140    /*      function definition for J_REPLACETEXT   */
1141    
1142    static void L95()
1143    {       object *old_base=vs_base;
1144            check_arg(4);
1145            j_replacetext(
1146            object_to_int(vs_base[0]),
1147            object_to_string(vs_base[1]),
1148            object_to_int(vs_base[2]),
1149            object_to_int(vs_base[3]));
1150            vs_top=(vs_base=old_base)+1;
1151            vs_base[0]=Cnil;
1152    }
1153    /*      function definition for J_APPENDTEXT    */
1154    
1155    static void L96()
1156    {       object *old_base=vs_base;
1157            check_arg(2);
1158            j_appendtext(
1159            object_to_int(vs_base[0]),
1160            object_to_string(vs_base[1]));
1161            vs_top=(vs_base=old_base)+1;
1162            vs_base[0]=Cnil;
1163    }
1164    /*      function definition for J_INSERTTEXT    */
1165    
1166    static void L97()
1167    {       object *old_base=vs_base;
1168            check_arg(3);
1169            j_inserttext(
1170            object_to_int(vs_base[0]),
1171            object_to_string(vs_base[1]),
1172            object_to_int(vs_base[2]));
1173            vs_top=(vs_base=old_base)+1;
1174            vs_base[0]=Cnil;
1175    }
1176    /*      function definition for J_SETTEXT       */
1177    
1178    static void L98()
1179    {       object *old_base=vs_base;
1180            check_arg(2);
1181            j_settext(
1182            object_to_int(vs_base[0]),
1183            object_to_string(vs_base[1]));
1184            vs_top=(vs_base=old_base)+1;
1185            vs_base[0]=Cnil;
1186    }
1187    /*      function definition for J_SELECTALL     */
1188    
1189    static void L99()
1190    {       object *old_base=vs_base;
1191            check_arg(1);
1192            j_selectall(
1193            object_to_int(vs_base[0]));
1194            vs_top=(vs_base=old_base)+1;
1195            vs_base[0]=Cnil;
1196    }
1197    /*      function definition for J_SELECTTEXT    */
1198    
1199    static void L100()
1200    {       object *old_base=vs_base;
1201            check_arg(3);
1202            j_selecttext(
1203            object_to_int(vs_base[0]),
1204            object_to_int(vs_base[1]),
1205            object_to_int(vs_base[2]));
1206            vs_top=(vs_base=old_base)+1;
1207            vs_base[0]=Cnil;
1208    }
1209    /*      function definition for J_GETSELSTART   */
1210    
1211    static void L101()
1212    {       object *old_base=vs_base;
1213            int x;
1214            check_arg(1);
1215            x=
1216            j_getselstart(
1217            object_to_int(vs_base[0]));
1218            vs_top=(vs_base=old_base)+1;
1219            vs_base[0]=make_fixnum(x);
1220    }
1221    /*      function definition for J_GETSELEND     */
1222    
1223    static void L102()
1224    {       object *old_base=vs_base;
1225            int x;
1226            check_arg(1);
1227            x=
1228            j_getselend(
1229            object_to_int(vs_base[0]));
1230            vs_top=(vs_base=old_base)+1;
1231            vs_base[0]=make_fixnum(x);
1232    }
1233    /*      function definition for J_GETSELTEXT    */
1234    
1235    static void L103()
1236    {       object *old_base=vs_base;
1237            char *x;
1238            check_arg(2);
1239            x=
1240            j_getseltext(
1241            object_to_int(vs_base[0]),
1242            object_to_string(vs_base[1]));
1243            vs_top=(vs_base=old_base)+1;
1244            vs_base[0]=make_simple_string(x);
1245    }
1246    /*      function definition for J_GETCURPOS     */
1247    
1248    static void L104()
1249    {       object *old_base=vs_base;
1250            int x;
1251            check_arg(1);
1252            x=
1253            j_getcurpos(
1254            object_to_int(vs_base[0]));
1255            vs_top=(vs_base=old_base)+1;
1256            vs_base[0]=make_fixnum(x);
1257    }
1258    /*      function definition for J_SETCURPOS     */
1259    
1260    static void L105()
1261    {       object *old_base=vs_base;
1262            check_arg(2);
1263            j_setcurpos(
1264            object_to_int(vs_base[0]),
1265            object_to_int(vs_base[1]));
1266            vs_top=(vs_base=old_base)+1;
1267            vs_base[0]=Cnil;
1268    }
1269    /*      function definition for J_SETECHOCHAR   */
1270    
1271    static void L106()
1272    {       object *old_base=vs_base;
1273            check_arg(2);
1274            j_setechochar(
1275            object_to_int(vs_base[0]),
1276            object_to_char(vs_base[1]));
1277            vs_top=(vs_base=old_base)+1;
1278            vs_base[0]=Cnil;
1279    }
1280    /*      function definition for J_SETEDITABLE   */
1281    
1282    static void L107()
1283    {       object *old_base=vs_base;
1284            check_arg(2);
1285            j_seteditable(
1286            object_to_int(vs_base[0]),
1287            object_to_int(vs_base[1]));
1288            vs_top=(vs_base=old_base)+1;
1289            vs_base[0]=Cnil;
1290    }
1291    /*      function definition for J_SETSHORTCUT   */
1292    
1293    static void L108()
1294    {       object *old_base=vs_base;
1295            check_arg(2);
1296            j_setshortcut(
1297            object_to_int(vs_base[0]),
1298            object_to_char(vs_base[1]));
1299            vs_top=(vs_base=old_base)+1;
1300            vs_base[0]=Cnil;
1301    }
1302    /*      function definition for J_QUIT  */
1303    
1304    static void L109()
1305    {       object *old_base=vs_base;
1306            check_arg(0);
1307            j_quit();
1308            vs_top=(vs_base=old_base)+1;
1309            vs_base[0]=Cnil;
1310    }
1311    /*      function definition for J_KILL  */
1312    
1313    static void L110()
1314    {       object *old_base=vs_base;
1315            check_arg(0);
1316            j_kill();
1317            vs_top=(vs_base=old_base)+1;
1318            vs_base[0]=Cnil;
1319    }
1320    /*      function definition for J_SETSIZE       */
1321    
1322    static void L111()
1323    {       object *old_base=vs_base;
1324            check_arg(3);
1325            j_setsize(
1326            object_to_int(vs_base[0]),
1327            object_to_int(vs_base[1]),
1328            object_to_int(vs_base[2]));
1329            vs_top=(vs_base=old_base)+1;
1330            vs_base[0]=Cnil;
1331    }
1332    /*      function definition for J_GETACTION     */
1333    
1334    static void L112()
1335    {       object *old_base=vs_base;
1336            int x;
1337            check_arg(0);
1338            x=
1339            j_getaction();
1340            vs_top=(vs_base=old_base)+1;
1341            vs_base[0]=make_fixnum(x);
1342    }
1343    /*      function definition for J_NEXTACTION    */
1344    
1345    static void L113()
1346    {       object *old_base=vs_base;
1347            int x;
1348            check_arg(0);
1349            x=
1350            j_nextaction();
1351            vs_top=(vs_base=old_base)+1;
1352            vs_base[0]=make_fixnum(x);
1353    }
1354    /*      function definition for J_SHOW  */
1355    
1356    static void L114()
1357    {       object *old_base=vs_base;
1358            check_arg(1);
1359            j_show(
1360            object_to_int(vs_base[0]));
1361            vs_top=(vs_base=old_base)+1;
1362            vs_base[0]=Cnil;
1363    }
1364    /*      function definition for J_SHOWPOPUP     */
1365    
1366    static void L115()
1367    {       object *old_base=vs_base;
1368            check_arg(3);
1369            j_showpopup(
1370            object_to_int(vs_base[0]),
1371            object_to_int(vs_base[1]),
1372            object_to_int(vs_base[2]));
1373            vs_top=(vs_base=old_base)+1;
1374            vs_base[0]=Cnil;
1375    }
1376    /*      function definition for J_ADD   */
1377    
1378    static void L116()
1379    {       object *old_base=vs_base;
1380            check_arg(2);
1381            j_add(
1382            object_to_int(vs_base[0]),
1383            object_to_int(vs_base[1]));
1384            vs_top=(vs_base=old_base)+1;
1385            vs_base[0]=Cnil;
1386    }
1387    /*      function definition for J_RELEASE       */
1388    
1389    static void L117()
1390    {       object *old_base=vs_base;
1391            check_arg(1);
1392            j_release(
1393            object_to_int(vs_base[0]));
1394            vs_top=(vs_base=old_base)+1;
1395            vs_base[0]=Cnil;
1396    }
1397    /*      function definition for J_RELEASEALL    */
1398    
1399    static void L118()
1400    {       object *old_base=vs_base;
1401            check_arg(1);
1402            j_releaseall(
1403            object_to_int(vs_base[0]));
1404            vs_top=(vs_base=old_base)+1;
1405            vs_base[0]=Cnil;
1406    }
1407    /*      function definition for J_HIDE  */
1408    
1409    static void L119()
1410    {       object *old_base=vs_base;
1411            check_arg(1);
1412            j_hide(
1413            object_to_int(vs_base[0]));
1414            vs_top=(vs_base=old_base)+1;
1415            vs_base[0]=Cnil;
1416    }
1417    /*      function definition for J_DISPOSE       */
1418    
1419    static void L120()
1420    {       object *old_base=vs_base;
1421            check_arg(1);
1422            j_dispose(
1423            object_to_int(vs_base[0]));
1424            vs_top=(vs_base=old_base)+1;
1425            vs_base[0]=Cnil;
1426    }
1427    /*      function definition for J_SETPOS        */
1428    
1429    static void L121()
1430    {       object *old_base=vs_base;
1431            check_arg(3);
1432            j_setpos(
1433            object_to_int(vs_base[0]),
1434            object_to_int(vs_base[1]),
1435            object_to_int(vs_base[2]));
1436            vs_top=(vs_base=old_base)+1;
1437            vs_base[0]=Cnil;
1438    }
1439    /*      function definition for J_GETVIEWPORTHEIGHT     */
1440    
1441    static void L122()
1442    {       object *old_base=vs_base;
1443            int x;
1444            check_arg(1);
1445            x=
1446            j_getviewportheight(
1447            object_to_int(vs_base[0]));
1448            vs_top=(vs_base=old_base)+1;
1449            vs_base[0]=make_fixnum(x);
1450    }
1451    /*      function definition for J_GETVIEWPORTWIDTH      */
1452    
1453    static void L123()
1454    {       object *old_base=vs_base;
1455            int x;
1456            check_arg(1);
1457            x=
1458            j_getviewportwidth(
1459            object_to_int(vs_base[0]));
1460            vs_top=(vs_base=old_base)+1;
1461            vs_base[0]=make_fixnum(x);
1462    }
1463    /*      function definition for J_GETXPOS       */
1464    
1465    static void L124()
1466    {       object *old_base=vs_base;
1467            int x;
1468            check_arg(1);
1469            x=
1470            j_getxpos(
1471            object_to_int(vs_base[0]));
1472            vs_top=(vs_base=old_base)+1;
1473            vs_base[0]=make_fixnum(x);
1474    }
1475    /*      function definition for J_GETYPOS       */
1476    
1477    static void L125()
1478    {       object *old_base=vs_base;
1479            int x;
1480            check_arg(1);
1481            x=
1482            j_getypos(
1483            object_to_int(vs_base[0]));
1484            vs_top=(vs_base=old_base)+1;
1485            vs_base[0]=make_fixnum(x);
1486    }
1487    /*      function definition for J_GETPOS        */
1488    
1489    static void L126()
1490    {       object *old_base=vs_base;
1491            check_arg(3);
1492            j_getpos(
1493            object_to_int(vs_base[0]),
1494            object_to_int(vs_base[1]),
1495            object_to_int(vs_base[2]));
1496            vs_top=(vs_base=old_base)+1;
1497            vs_base[0]=Cnil;
1498    }
1499    /*      function definition for J_GETPARENTID   */
1500    
1501    static void L127()
1502    {       object *old_base=vs_base;
1503            int x;
1504            check_arg(1);
1505            x=
1506            j_getparentid(
1507            object_to_int(vs_base[0]));
1508            vs_top=(vs_base=old_base)+1;
1509            vs_base[0]=make_fixnum(x);
1510    }
1511    /*      function definition for J_SETFOCUS      */
1512    
1513    static void L128()
1514    {       object *old_base=vs_base;
1515            check_arg(1);
1516            j_setfocus(
1517            object_to_int(vs_base[0]));
1518            vs_top=(vs_base=old_base)+1;
1519            vs_base[0]=Cnil;
1520    }
1521    /*      function definition for J_HASFOCUS      */
1522    
1523    static void L129()
1524    {       object *old_base=vs_base;
1525            int x;
1526            check_arg(1);
1527            x=
1528            j_hasfocus(
1529            object_to_int(vs_base[0]));
1530            vs_top=(vs_base=old_base)+1;
1531            vs_base[0]=make_fixnum(x);
1532    }
1533    /*      function definition for J_GETSTRINGWIDTH        */
1534    
1535    static void L130()
1536    {       object *old_base=vs_base;
1537            int x;
1538            check_arg(2);
1539            x=
1540            j_getstringwidth(
1541            object_to_int(vs_base[0]),
1542            object_to_string(vs_base[1]));
1543            vs_top=(vs_base=old_base)+1;
1544            vs_base[0]=make_fixnum(x);
1545    }
1546    /*      function definition for J_GETFONTHEIGHT */
1547    
1548    static void L131()
1549    {       object *old_base=vs_base;
1550            int x;
1551            check_arg(1);
1552            x=
1553            j_getfontheight(
1554            object_to_int(vs_base[0]));
1555            vs_top=(vs_base=old_base)+1;
1556            vs_base[0]=make_fixnum(x);
1557    }
1558    /*      function definition for J_GETFONTASCENT */
1559    
1560    static void L132()
1561    {       object *old_base=vs_base;
1562            int x;
1563            check_arg(1);
1564            x=
1565            j_getfontascent(
1566            object_to_int(vs_base[0]));
1567            vs_top=(vs_base=old_base)+1;
1568            vs_base[0]=make_fixnum(x);
1569    }
1570    /*      function definition for J_KEYLISTENER   */
1571    
1572    static void L133()
1573    {       object *old_base=vs_base;
1574            int x;
1575            check_arg(1);
1576            x=
1577            j_keylistener(
1578            object_to_int(vs_base[0]));
1579            vs_top=(vs_base=old_base)+1;
1580            vs_base[0]=make_fixnum(x);
1581    }
1582    /*      function definition for J_GETKEYCODE    */
1583    
1584    static void L134()
1585    {       object *old_base=vs_base;
1586            int x;
1587            check_arg(1);
1588            x=
1589            j_getkeycode(
1590            object_to_int(vs_base[0]));
1591            vs_top=(vs_base=old_base)+1;
1592            vs_base[0]=make_fixnum(x);
1593    }
1594    /*      function definition for J_GETKEYCHAR    */
1595    
1596    static void L135()
1597    {       object *old_base=vs_base;
1598            int x;
1599            check_arg(1);
1600            x=
1601            j_getkeychar(
1602            object_to_int(vs_base[0]));
1603            vs_top=(vs_base=old_base)+1;
1604            vs_base[0]=make_fixnum(x);
1605    }
1606    /*      function definition for J_MOUSELISTENER */
1607    
1608    static void L136()
1609    {       object *old_base=vs_base;
1610            int x;
1611            check_arg(2);
1612            x=
1613            j_mouselistener(
1614            object_to_int(vs_base[0]),
1615            object_to_int(vs_base[1]));
1616            vs_top=(vs_base=old_base)+1;
1617            vs_base[0]=make_fixnum(x);
1618    }
1619    /*      function definition for J_GETMOUSEX     */
1620    
1621    static void L137()
1622    {       object *old_base=vs_base;
1623            int x;
1624            check_arg(1);
1625            x=
1626            j_getmousex(
1627            object_to_int(vs_base[0]));
1628            vs_top=(vs_base=old_base)+1;
1629            vs_base[0]=make_fixnum(x);
1630    }
1631    /*      function definition for J_GETMOUSEY     */
1632    
1633    static void L138()
1634    {       object *old_base=vs_base;
1635            int x;
1636            check_arg(1);
1637            x=
1638            j_getmousey(
1639            object_to_int(vs_base[0]));
1640            vs_top=(vs_base=old_base)+1;
1641            vs_base[0]=make_fixnum(x);
1642    }
1643    /*      function definition for J_GETMOUSEPOS   */
1644    
1645    static void L139()
1646    {       object *old_base=vs_base;
1647            check_arg(3);
1648            j_getmousepos(
1649            object_to_int(vs_base[0]),
1650            object_to_int(vs_base[1]),
1651            object_to_int(vs_base[2]));
1652            vs_top=(vs_base=old_base)+1;
1653            vs_base[0]=Cnil;
1654    }
1655    /*      function definition for J_GETMOUSEBUTTON        */
1656    
1657    static void L140()
1658    {       object *old_base=vs_base;
1659            int x;
1660            check_arg(1);
1661            x=
1662            j_getmousebutton(
1663            object_to_int(vs_base[0]));
1664            vs_top=(vs_base=old_base)+1;
1665            vs_base[0]=make_fixnum(x);
1666    }
1667    /*      function definition for J_FOCUSLISTENER */
1668    
1669    static void L141()
1670    {       object *old_base=vs_base;
1671            int x;
1672            check_arg(1);
1673            x=
1674            j_focuslistener(
1675            object_to_int(vs_base[0]));
1676            vs_top=(vs_base=old_base)+1;
1677            vs_base[0]=make_fixnum(x);
1678    }
1679    /*      function definition for J_COMPONENTLISTENER     */
1680    
1681    static void L142()
1682    {       object *old_base=vs_base;
1683            int x;
1684            check_arg(2);
1685            x=
1686            j_componentlistener(
1687            object_to_int(vs_base[0]),
1688            object_to_int(vs_base[1]));
1689            vs_top=(vs_base=old_base)+1;
1690            vs_base[0]=make_fixnum(x);
1691    }
1692    /*      function definition for J_WINDOWLISTENER        */
1693    
1694    static void L143()
1695    {       object *old_base=vs_base;
1696            int x;
1697            check_arg(2);
1698            x=
1699            j_windowlistener(
1700            object_to_int(vs_base[0]),
1701            object_to_int(vs_base[1]));
1702            vs_top=(vs_base=old_base)+1;
1703            vs_base[0]=make_fixnum(x);
1704    }
1705    /*      function definition for J_SETFLOWLAYOUT */
1706    
1707    static void L144()
1708    {       object *old_base=vs_base;
1709            check_arg(2);
1710            j_setflowlayout(
1711            object_to_int(vs_base[0]),
1712            object_to_int(vs_base[1]));
1713            vs_top=(vs_base=old_base)+1;
1714            vs_base[0]=Cnil;
1715    }
1716    /*      function definition for J_SETBORDERLAYOUT       */
1717    
1718    static void L145()
1719    {       object *old_base=vs_base;
1720            check_arg(1);
1721            j_setborderlayout(
1722            object_to_int(vs_base[0]));
1723            vs_top=(vs_base=old_base)+1;
1724            vs_base[0]=Cnil;
1725    }
1726    /*      function definition for J_SETGRIDLAYOUT */
1727    
1728    static void L146()
1729    {       object *old_base=vs_base;
1730            check_arg(3);
1731            j_setgridlayout(
1732            object_to_int(vs_base[0]),
1733            object_to_int(vs_base[1]),
1734            object_to_int(vs_base[2]));
1735            vs_top=(vs_base=old_base)+1;
1736            vs_base[0]=Cnil;
1737    }
1738    /*      function definition for J_SETFIXLAYOUT  */
1739    
1740    static void L147()
1741    {       object *old_base=vs_base;
1742            check_arg(1);
1743            j_setfixlayout(
1744            object_to_int(vs_base[0]));
1745            vs_top=(vs_base=old_base)+1;
1746            vs_base[0]=Cnil;
1747    }
1748    /*      function definition for J_SETNOLAYOUT   */
1749    
1750    static void L148()
1751    {       object *old_base=vs_base;
1752            check_arg(1);
1753            j_setnolayout(
1754            object_to_int(vs_base[0]));
1755            vs_top=(vs_base=old_base)+1;
1756            vs_base[0]=Cnil;
1757    }
1758    /*      function definition for J_SETBORDERPOS  */
1759    
1760    static void L149()
1761    {       object *old_base=vs_base;
1762            check_arg(2);
1763            j_setborderpos(
1764            object_to_int(vs_base[0]),
1765            object_to_int(vs_base[1]));
1766            vs_top=(vs_base=old_base)+1;
1767            vs_base[0]=Cnil;
1768    }
1769    /*      function definition for J_SETHGAP       */
1770    
1771    static void L150()
1772    {       object *old_base=vs_base;
1773            check_arg(2);
1774            j_sethgap(
1775            object_to_int(vs_base[0]),
1776            object_to_int(vs_base[1]));
1777            vs_top=(vs_base=old_base)+1;
1778            vs_base[0]=Cnil;
1779    }
1780    /*      function definition for J_SETVGAP       */
1781    
1782    static void L151()
1783    {       object *old_base=vs_base;
1784            check_arg(2);
1785            j_setvgap(
1786            object_to_int(vs_base[0]),
1787            object_to_int(vs_base[1]));
1788            vs_top=(vs_base=old_base)+1;
1789            vs_base[0]=Cnil;
1790    }
1791    /*      function definition for J_SETINSETS     */
1792    
1793    static void L152()
1794    {       object *old_base=vs_base;
1795            check_arg(5);
1796            j_setinsets(
1797            object_to_int(vs_base[0]),
1798            object_to_int(vs_base[1]),
1799            object_to_int(vs_base[2]),
1800            object_to_int(vs_base[3]),
1801            object_to_int(vs_base[4]));
1802            vs_top=(vs_base=old_base)+1;
1803            vs_base[0]=Cnil;
1804    }
1805    /*      function definition for J_SETALIGN      */
1806    
1807    static void L153()
1808    {       object *old_base=vs_base;
1809            check_arg(2);
1810            j_setalign(
1811            object_to_int(vs_base[0]),
1812            object_to_int(vs_base[1]));
1813            vs_top=(vs_base=old_base)+1;
1814            vs_base[0]=Cnil;
1815    }
1816    /*      function definition for J_SETFLOWFILL   */
1817    
1818    static void L154()
1819    {       object *old_base=vs_base;
1820            check_arg(2);
1821            j_setflowfill(
1822            object_to_int(vs_base[0]),
1823            object_to_int(vs_base[1]));
1824            vs_top=(vs_base=old_base)+1;
1825            vs_base[0]=Cnil;
1826    }
1827    /*      function definition for J_TRANSLATE     */
1828    
1829    static void L155()
1830    {       object *old_base=vs_base;
1831            check_arg(3);
1832            j_translate(
1833            object_to_int(vs_base[0]),
1834            object_to_int(vs_base[1]),
1835            object_to_int(vs_base[2]));
1836            vs_top=(vs_base=old_base)+1;
1837            vs_base[0]=Cnil;
1838    }
1839    /*      function definition for J_CLIPRECT      */
1840    
1841    static void L156()
1842    {       object *old_base=vs_base;
1843            check_arg(5);
1844            j_cliprect(
1845            object_to_int(vs_base[0]),
1846            object_to_int(vs_base[1]),
1847            object_to_int(vs_base[2]),
1848            object_to_int(vs_base[3]),
1849            object_to_int(vs_base[4]));
1850            vs_top=(vs_base=old_base)+1;
1851            vs_base[0]=Cnil;
1852    }
1853    /*      function definition for J_DRAWRECT      */
1854    
1855    static void L157()
1856    {       object *old_base=vs_base;
1857            check_arg(5);
1858            j_drawrect(
1859            object_to_int(vs_base[0]),
1860            object_to_int(vs_base[1]),
1861            object_to_int(vs_base[2]),
1862            object_to_int(vs_base[3]),
1863            object_to_int(vs_base[4]));
1864            vs_top=(vs_base=old_base)+1;
1865            vs_base[0]=Cnil;
1866    }
1867    /*      function definition for J_FILLRECT      */
1868    
1869    static void L158()
1870    {       object *old_base=vs_base;
1871            check_arg(5);
1872            j_fillrect(
1873            object_to_int(vs_base[0]),
1874            object_to_int(vs_base[1]),
1875            object_to_int(vs_base[2]),
1876            object_to_int(vs_base[3]),
1877            object_to_int(vs_base[4]));
1878            vs_top=(vs_base=old_base)+1;
1879            vs_base[0]=Cnil;
1880    }
1881    /*      function definition for J_DRAWROUNDRECT */
1882    
1883    static void L159()
1884    {       object *old_base=vs_base;
1885            check_arg(7);
1886            j_drawroundrect(
1887            object_to_int(vs_base[0]),
1888            object_to_int(vs_base[1]),
1889            object_to_int(vs_base[2]),
1890            object_to_int(vs_base[3]),
1891            object_to_int(vs_base[4]),
1892            object_to_int(vs_base[5]),
1893            object_to_int(vs_base[6]));
1894            vs_top=(vs_base=old_base)+1;
1895            vs_base[0]=Cnil;
1896    }
1897    /*      function definition for J_FILLROUNDRECT */
1898    
1899    static void L160()
1900    {       object *old_base=vs_base;
1901            check_arg(7);
1902            j_fillroundrect(
1903            object_to_int(vs_base[0]),
1904            object_to_int(vs_base[1]),
1905            object_to_int(vs_base[2]),
1906            object_to_int(vs_base[3]),
1907            object_to_int(vs_base[4]),
1908            object_to_int(vs_base[5]),
1909            object_to_int(vs_base[6]));
1910            vs_top=(vs_base=old_base)+1;
1911            vs_base[0]=Cnil;
1912    }
1913    /*      function definition for J_DRAWOVAL      */
1914    
1915    static void L161()
1916    {       object *old_base=vs_base;
1917            check_arg(5);
1918            j_drawoval(
1919            object_to_int(vs_base[0]),
1920            object_to_int(vs_base[1]),
1921            object_to_int(vs_base[2]),
1922            object_to_int(vs_base[3]),
1923            object_to_int(vs_base[4]));
1924            vs_top=(vs_base=old_base)+1;
1925            vs_base[0]=Cnil;
1926    }
1927    /*      function definition for J_FILLOVAL      */
1928    
1929    static void L162()
1930    {       object *old_base=vs_base;
1931            check_arg(5);
1932            j_filloval(
1933            object_to_int(vs_base[0]),
1934            object_to_int(vs_base[1]),
1935            object_to_int(vs_base[2]),
1936            object_to_int(vs_base[3]),
1937            object_to_int(vs_base[4]));
1938            vs_top=(vs_base=old_base)+1;
1939            vs_base[0]=Cnil;
1940    }
1941    /*      function definition for J_DRAWCIRCLE    */
1942    
1943    static void L163()
1944    {       object *old_base=vs_base;
1945            check_arg(4);
1946            j_drawcircle(
1947            object_to_int(vs_base[0]),
1948            object_to_int(vs_base[1]),
1949            object_to_int(vs_base[2]),
1950            object_to_int(vs_base[3]));
1951            vs_top=(vs_base=old_base)+1;
1952            vs_base[0]=Cnil;
1953    }
1954    /*      function definition for J_FILLCIRCLE    */
1955    
1956    static void L164()
1957    {       object *old_base=vs_base;
1958            check_arg(4);
1959            j_fillcircle(
1960            object_to_int(vs_base[0]),
1961            object_to_int(vs_base[1]),
1962            object_to_int(vs_base[2]),
1963            object_to_int(vs_base[3]));
1964            vs_top=(vs_base=old_base)+1;
1965            vs_base[0]=Cnil;
1966    }
1967    /*      function definition for J_DRAWARC       */
1968    
1969    static void L165()
1970    {       object *old_base=vs_base;
1971            check_arg(7);
1972            j_drawarc(
1973            object_to_int(vs_base[0]),
1974            object_to_int(vs_base[1]),
1975            object_to_int(vs_base[2]),
1976            object_to_int(vs_base[3]),
1977            object_to_int(vs_base[4]),
1978            object_to_int(vs_base[5]),
1979            object_to_int(vs_base[6]));
1980            vs_top=(vs_base=old_base)+1;
1981            vs_base[0]=Cnil;
1982    }
1983    /*      function definition for J_FILLARC       */
1984    
1985    static void L166()
1986    {       object *old_base=vs_base;
1987            check_arg(7);
1988            j_fillarc(
1989            object_to_int(vs_base[0]),
1990            object_to_int(vs_base[1]),
1991            object_to_int(vs_base[2]),
1992            object_to_int(vs_base[3]),
1993            object_to_int(vs_base[4]),
1994            object_to_int(vs_base[5]),
1995            object_to_int(vs_base[6]));
1996            vs_top=(vs_base=old_base)+1;
1997            vs_base[0]=Cnil;
1998    }
1999    /*      function definition for J_DRAWLINE      */
2000    
2001    static void L167()
2002    {       object *old_base=vs_base;
2003            check_arg(5);
2004            j_drawline(
2005            object_to_int(vs_base[0]),
2006            object_to_int(vs_base[1]),
2007            object_to_int(vs_base[2]),
2008            object_to_int(vs_base[3]),
2009            object_to_int(vs_base[4]));
2010            vs_top=(vs_base=old_base)+1;
2011            vs_base[0]=Cnil;
2012    }
2013    /*      function definition for J_DRAWPOLYLINE  */
2014    
2015    static void L168()
2016    {       object *old_base=vs_base;
2017            check_arg(4);
2018            j_drawpolyline(
2019            object_to_int(vs_base[0]),
2020            object_to_int(vs_base[1]),
2021            object_to_int(vs_base[2]),
2022            object_to_int(vs_base[3]));
2023            vs_top=(vs_base=old_base)+1;
2024            vs_base[0]=Cnil;
2025    }
2026    /*      function definition for J_DRAWPOLYGON   */
2027    
2028    static void L169()
2029    {       object *old_base=vs_base;
2030            check_arg(4);
2031            j_drawpolygon(
2032            object_to_int(vs_base[0]),
2033            object_to_int(vs_base[1]),
2034            object_to_int(vs_base[2]),
2035            object_to_int(vs_base[3]));
2036            vs_top=(vs_base=old_base)+1;
2037            vs_base[0]=Cnil;
2038    }
2039    /*      function definition for J_FILLPOLYGON   */
2040    
2041    static void L170()
2042    {       object *old_base=vs_base;
2043            check_arg(4);
2044            j_fillpolygon(
2045            object_to_int(vs_base[0]),
2046            object_to_int(vs_base[1]),
2047            object_to_int(vs_base[2]),
2048            object_to_int(vs_base[3]));
2049            vs_top=(vs_base=old_base)+1;
2050            vs_base[0]=Cnil;
2051    }
2052    /*      function definition for J_DRAWPIXEL     */
2053    
2054    static void L171()
2055    {       object *old_base=vs_base;
2056            check_arg(3);
2057            j_drawpixel(
2058            object_to_int(vs_base[0]),
2059            object_to_int(vs_base[1]),
2060            object_to_int(vs_base[2]));
2061            vs_top=(vs_base=old_base)+1;
2062            vs_base[0]=Cnil;
2063    }
2064    /*      function definition for J_DRAWSTRING    */
2065    
2066    static void L172()
2067    {       object *old_base=vs_base;
2068            check_arg(4);
2069            j_drawstring(
2070            object_to_int(vs_base[0]),
2071            object_to_int(vs_base[1]),
2072            object_to_int(vs_base[2]),
2073            object_to_string(vs_base[3]));
2074            vs_top=(vs_base=old_base)+1;
2075            vs_base[0]=Cnil;
2076    }
2077    /*      function definition for J_SETXOR        */
2078    
2079    static void L173()
2080    {       object *old_base=vs_base;
2081            check_arg(2);
2082            j_setxor(
2083            object_to_int(vs_base[0]),
2084            object_to_int(vs_base[1]));
2085            vs_top=(vs_base=old_base)+1;
2086            vs_base[0]=Cnil;
2087    }
2088    /*      function definition for J_GETIMAGE      */
2089    
2090    static void L174()
2091    {       object *old_base=vs_base;
2092            int x;
2093            check_arg(1);
2094            x=
2095            j_getimage(
2096            object_to_int(vs_base[0]));
2097            vs_top=(vs_base=old_base)+1;
2098            vs_base[0]=make_fixnum(x);
2099    }
2100    /*      function definition for J_GETIMAGESOURCE        */
2101    
2102    static void L175()
2103    {       object *old_base=vs_base;
2104            check_arg(8);
2105            j_getimagesource(
2106            object_to_int(vs_base[0]),
2107            object_to_int(vs_base[1]),
2108            object_to_int(vs_base[2]),
2109            object_to_int(vs_base[3]),
2110            object_to_int(vs_base[4]),
2111            object_to_int(vs_base[5]),
2112            object_to_int(vs_base[6]),
2113            object_to_int(vs_base[7]));
2114            vs_top=(vs_base=old_base)+1;
2115            vs_base[0]=Cnil;
2116    }
2117    /*      function definition for J_DRAWIMAGESOURCE       */
2118    
2119    static void L176()
2120    {       object *old_base=vs_base;
2121            check_arg(8);
2122            j_drawimagesource(
2123            object_to_int(vs_base[0]),
2124            object_to_int(vs_base[1]),
2125            object_to_int(vs_base[2]),
2126            object_to_int(vs_base[3]),
2127            object_to_int(vs_base[4]),
2128            object_to_int(vs_base[5]),
2129            object_to_int(vs_base[6]),
2130            object_to_int(vs_base[7]));
2131            vs_top=(vs_base=old_base)+1;
2132            vs_base[0]=Cnil;
2133    }
2134    /*      function definition for J_GETSCALEDIMAGE        */
2135    
2136    static void L177()
2137    {       object *old_base=vs_base;
2138            int x;
2139            check_arg(7);
2140            x=
2141            j_getscaledimage(
2142            object_to_int(vs_base[0]),
2143            object_to_int(vs_base[1]),
2144            object_to_int(vs_base[2]),
2145            object_to_int(vs_base[3]),
2146            object_to_int(vs_base[4]),
2147            object_to_int(vs_base[5]),
2148            object_to_int(vs_base[6]));
2149            vs_top=(vs_base=old_base)+1;
2150            vs_base[0]=make_fixnum(x);
2151    }
2152    /*      function definition for J_DRAWIMAGE     */
2153    
2154    static void L178()
2155    {       object *old_base=vs_base;
2156            check_arg(4);
2157            j_drawimage(
2158            object_to_int(vs_base[0]),
2159            object_to_int(vs_base[1]),
2160            object_to_int(vs_base[2]),
2161            object_to_int(vs_base[3]));
2162            vs_top=(vs_base=old_base)+1;
2163            vs_base[0]=Cnil;
2164    }
2165    /*      function definition for J_DRAWSCALEDIMAGE       */
2166    
2167    static void L179()
2168    {       object *old_base=vs_base;
2169            check_arg(10);
2170            j_drawscaledimage(
2171            object_to_int(vs_base[0]),
2172            object_to_int(vs_base[1]),
2173            object_to_int(vs_base[2]),
2174            object_to_int(vs_base[3]),
2175            object_to_int(vs_base[4]),
2176            object_to_int(vs_base[5]),
2177            object_to_int(vs_base[6]),
2178            object_to_int(vs_base[7]),
2179            object_to_int(vs_base[8]),
2180            object_to_int(vs_base[9]));
2181            vs_top=(vs_base=old_base)+1;
2182            vs_base[0]=Cnil;
2183    }
2184    /*      function definition for J_SETCOLOR      */
2185    
2186    static void L180()
2187    {       object *old_base=vs_base;
2188            check_arg(4);
2189            j_setcolor(
2190            object_to_int(vs_base[0]),
2191            object_to_int(vs_base[1]),
2192            object_to_int(vs_base[2]),
2193            object_to_int(vs_base[3]));
2194            vs_top=(vs_base=old_base)+1;
2195            vs_base[0]=Cnil;
2196    }
2197    /*      function definition for J_SETCOLORBG    */
2198    
2199    static void L181()
2200    {       object *old_base=vs_base;
2201            check_arg(4);
2202            j_setcolorbg(
2203            object_to_int(vs_base[0]),
2204            object_to_int(vs_base[1]),
2205            object_to_int(vs_base[2]),
2206            object_to_int(vs_base[3]));
2207            vs_top=(vs_base=old_base)+1;
2208            vs_base[0]=Cnil;
2209    }
2210    /*      function definition for J_SETNAMEDCOLOR */
2211    
2212    static void L182()
2213    {       object *old_base=vs_base;
2214            check_arg(2);
2215            j_setnamedcolor(
2216            object_to_int(vs_base[0]),
2217            object_to_int(vs_base[1]));
2218            vs_top=(vs_base=old_base)+1;
2219            vs_base[0]=Cnil;
2220    }
2221    /*      function definition for J_SETNAMEDCOLORBG       */
2222    
2223    static void L183()
2224    {       object *old_base=vs_base;
2225            check_arg(2);
2226            j_setnamedcolorbg(
2227            object_to_int(vs_base[0]),
2228            object_to_int(vs_base[1]));
2229            vs_top=(vs_base=old_base)+1;
2230            vs_base[0]=Cnil;
2231    }
2232    /*      function definition for J_LOADIMAGE     */
2233    
2234    static void L184()
2235    {       object *old_base=vs_base;
2236            int x;
2237            check_arg(1);
2238            x=
2239            j_loadimage(
2240            object_to_string(vs_base[0]));
2241            vs_top=(vs_base=old_base)+1;
2242            vs_base[0]=make_fixnum(x);
2243    }
2244    /*      function definition for J_SAVEIMAGE     */
2245    
2246    static void L185()
2247    {       object *old_base=vs_base;
2248            int x;
2249            check_arg(3);
2250            x=
2251            j_saveimage(
2252            object_to_int(vs_base[0]),
2253            object_to_string(vs_base[1]),
2254            object_to_int(vs_base[2]));
2255            vs_top=(vs_base=old_base)+1;
2256            vs_base[0]=make_fixnum(x);
2257    }
2258    /*      function definition for J_SYNC  */
2259    
2260    static void L186()
2261    {       object *old_base=vs_base;
2262            check_arg(0);
2263            j_sync();
2264            vs_top=(vs_base=old_base)+1;
2265            vs_base[0]=Cnil;
2266    }
2267    /*      function definition for J_BEEP  */
2268    
2269    static void L187()
2270    {       object *old_base=vs_base;
2271            check_arg(0);
2272            j_beep();
2273            vs_top=(vs_base=old_base)+1;
2274            vs_base[0]=Cnil;
2275    }
2276    /*      function definition for J_RANDOM        */
2277    
2278    static void L188()
2279    {       object *old_base=vs_base;
2280            int x;
2281            check_arg(0);
2282            x=
2283            j_random();
2284            vs_top=(vs_base=old_base)+1;
2285            vs_base[0]=make_fixnum(x);
2286    }
2287    /*      function definition for J_SLEEP */
2288    
2289    static void L189()
2290    {       object *old_base=vs_base;
2291            check_arg(1);
2292            j_sleep(
2293            object_to_int(vs_base[0]));
2294            vs_top=(vs_base=old_base)+1;
2295            vs_base[0]=Cnil;
2296    }
2297    
2298    #ifdef SYSTEM_SPECIAL_INIT
2299    SYSTEM_SPECIAL_INIT
2300    #endif
2301    

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26