00001
00002
00003
00004
00005
00006
00007 #include "../c/eus.h"
00008 #include "euslocal.h"
00009 #include <sys/time.h>
00010 #include <pixrect/pixrect_hs.h>
00011 #include <xview/xview.h>
00012 #include <xview/panel.h>
00013 #include <xview/canvas.h>
00014 #include <xview/tty.h>
00015 #include <xview/ttysw.h>
00016 #include <xview/textsw.h>
00017
00018
00019
00020 #include <xview/scrollbar.h>
00021 #include <xview/seln.h>
00022 #include <xview/icon.h>
00023 #include <xview/icon_load.h>
00024 #include <xview/expandname.h>
00025 #include <xview/pixwin.h>
00026 #include <xview/notify.h>
00027 #include <xview/cms.h>
00028
00029 extern textsw_append_file_name();
00030 extern textsw_delete();
00031 extern textsw_edit();
00032 extern textsw_erase();
00033 extern textsw_find_bytes();
00034 extern textsw_match_bytes();
00035 extern textsw_index_for_file_line();
00036 extern textsw_insert();
00037 extern textsw_first();
00038 extern textsw_next();
00039 extern textsw_replace_bytes();
00040 extern textsw_save();
00041 extern textsw_screen_line_count();
00042 extern textsw_scroll_lines();
00043 extern textsw_store_file();
00044 extern ttysw_input();
00045 extern ttysw_output();
00046
00047
00048
00049
00050
00051
00052
00053
00054
00055
00056
00057
00058
00059
00060
00061
00062
00063
00064
00065
00066
00067
00068
00069 extern pointer *makebnum();
00070
00071 char *ckstrchr(p)
00072 pointer p;
00073 {
00074 if (!isstring(p)) error(E_NOSTRING);
00075 return(strchr(p));
00076 }
00077
00078 pointer call_sunview(func,n,argv)
00079 long (*func)();
00080 long n,argv;
00081 {
00082 register long cargv[100];
00083 n = largv2cargv(n,argv,cargv,1,100);
00084 cargv[n] = 0;
00085 if (n<12) {
00086 return(makebnum((long)(*func)(cargv[0],cargv[1],cargv[2],
00087 cargv[3],cargv[4],cargv[5],
00088 cargv[6],cargv[7],cargv[8],
00089 cargv[9],cargv[10],cargv[11])));
00090 }
00091 else if (n<25) {
00092 return(makebnum((*func)(cargv[0],cargv[1],cargv[2],
00093 cargv[3], cargv[4],cargv[5],
00094 cargv[6],cargv[7],cargv[8],
00095 cargv[9],cargv[10],cargv[11],
00096 cargv[12],cargv[13],cargv[14],
00097 cargv[15],cargv[16],cargv[17],
00098 cargv[18],cargv[19],cargv[20],
00099 cargv[21],cargv[22],cargv[23],
00100 cargv[24])));
00101 }
00102 else if (n<=48){
00103 return(makebnum((*func)(cargv[0],cargv[1],cargv[2],
00104 cargv[3],cargv[4],cargv[5],
00105 cargv[6],cargv[7],cargv[8],
00106 cargv[9],cargv[10],cargv[11],
00107 cargv[12],cargv[13],cargv[14],
00108 cargv[15],cargv[16],cargv[17],
00109 cargv[18],cargv[19],cargv[20],
00110 cargv[21],cargv[22],cargv[23],
00111 cargv[24],cargv[25],cargv[25],
00112 cargv[26],cargv[27],cargv[28],
00113 cargv[29],cargv[30],cargv[31],
00114 cargv[32],cargv[33],cargv[34],
00115 cargv[35],cargv[36],cargv[37],
00116 cargv[38],cargv[39],cargv[40],
00117 cargv[41],cargv[42],cargv[43],
00118 cargv[44],cargv[45],cargv[46],
00119 cargv[47])));
00120 }
00121 else {
00122 return(makebnum((*func)(cargv[0],cargv[1],cargv[2],
00123 cargv[3],cargv[4],cargv[5],
00124 cargv[6],cargv[7],cargv[8],
00125 cargv[9],cargv[10],cargv[11],
00126 cargv[12],cargv[13],cargv[14],
00127 cargv[15],cargv[16],cargv[17],
00128 cargv[18],cargv[19],cargv[20],
00129 cargv[21],cargv[22],cargv[23],
00130 cargv[24],cargv[25],cargv[25],
00131 cargv[26],cargv[27],cargv[28],
00132 cargv[29],cargv[30],cargv[31],
00133 cargv[32],cargv[33],cargv[34],
00134 cargv[35],cargv[36],cargv[37],
00135 cargv[38],cargv[39],cargv[40],
00136 cargv[41],cargv[42],cargv[43],
00137 cargv[44],cargv[45],cargv[46],
00138 cargv[47],cargv[48],cargv[49],
00139 cargv[50],cargv[51],cargv[52],
00140 cargv[53],cargv[54],cargv[55],
00141 cargv[56],cargv[57],cargv[58],
00142 cargv[59],cargv[60],cargv[61],
00143 cargv[62],cargv[63],cargv[64],
00144 cargv[65],cargv[66],cargv[67],
00145 cargv[68],cargv[69],cargv[70],
00146 cargv[71],cargv[72],cargv[73],
00147 cargv[74],cargv[75],cargv[76],
00148 cargv[77],cargv[78],cargv[79],
00149 cargv[80],cargv[81],cargv[82],
00150 cargv[83],cargv[84],cargv[85],
00151 cargv[86],cargv[87],cargv[88],
00152 cargv[89],cargv[90],cargv[91],
00153 cargv[92],cargv[93],cargv[94],
00154 cargv[95],cargv[96],cargv[97],
00155 cargv[98],cargv[99])));
00156
00157 }
00158 }
00159 pointer WINDOW_CREATE(n,argv)
00160 int n;
00161 register pointer argv[];
00162 {
00163 return(call_sunview(xv_create,n,argv));
00164 }
00165
00166 pointer call_xv_create(type,n,argv)
00167 caddr_t type;
00168 int n;
00169 register pointer argv[];
00170 {
00171 register long cargv[100];
00172 n = largv2cargv(n,argv,cargv,1,100);
00173 cargv[n] = 0;
00174 if (n<25) {
00175 return(makebnum((int)
00176 xv_create(cargv[0],type,cargv[1],cargv[2],
00177 cargv[3], cargv[4],cargv[5],
00178 cargv[6],cargv[7],cargv[8],
00179 cargv[9],cargv[10],cargv[11],
00180 cargv[12],cargv[13],cargv[14],
00181 cargv[15],cargv[16],cargv[17],
00182 cargv[18],cargv[19],cargv[20],
00183 cargv[21],cargv[22],cargv[23],
00184 cargv[24])));
00185 }
00186 else if (n<48){
00187 return(makebnum((int)
00188 xv_create(cargv[0],type,cargv[1],cargv[2],
00189 cargv[3],cargv[4],cargv[5],
00190 cargv[6],cargv[7],cargv[8],
00191 cargv[9],cargv[10],cargv[11],
00192 cargv[12],cargv[13],cargv[14],
00193 cargv[15],cargv[16],cargv[17],
00194 cargv[18],cargv[19],cargv[20],
00195 cargv[21],cargv[22],cargv[23],
00196 cargv[24],cargv[25],cargv[25],
00197 cargv[26],cargv[27],cargv[28],
00198 cargv[29],cargv[30],cargv[31],
00199 cargv[32],cargv[33],cargv[34],
00200 cargv[35],cargv[36],cargv[37],
00201 cargv[38],cargv[39],cargv[40],
00202 cargv[41],cargv[42],cargv[43],
00203 cargv[44],cargv[45],cargv[46])));
00204
00205 }
00206 else {
00207 return(makebnum((int)
00208 xv_create(cargv[0],type,cargv[1],cargv[2],
00209 cargv[3],cargv[4],cargv[5],
00210 cargv[6],cargv[7],cargv[8],
00211 cargv[9],cargv[10],cargv[11],
00212 cargv[12],cargv[13],cargv[14],
00213 cargv[15],cargv[16],cargv[17],
00214 cargv[18],cargv[19],cargv[20],
00215 cargv[21],cargv[22],cargv[23],
00216 cargv[24],cargv[25],cargv[25],
00217 cargv[26],cargv[27],cargv[28],
00218 cargv[29],cargv[30],cargv[31],
00219 cargv[32],cargv[33],cargv[34],
00220 cargv[35],cargv[36],cargv[37],
00221 cargv[38],cargv[39],cargv[40],
00222 cargv[41],cargv[42],cargv[43],
00223 cargv[44],cargv[45],cargv[46],
00224 cargv[47],cargv[48],cargv[49],
00225 cargv[50],cargv[51],cargv[52],
00226 cargv[53],cargv[54],cargv[55],
00227 cargv[56],cargv[57],cargv[58],
00228 cargv[59],cargv[60],cargv[61],
00229 cargv[62],cargv[63],cargv[64],
00230 cargv[65],cargv[66],cargv[67],
00231 cargv[68],cargv[69],cargv[70],
00232 cargv[71],cargv[72],cargv[73],
00233 cargv[74],cargv[75],cargv[76],
00234 cargv[77],cargv[78],cargv[79],
00235 cargv[80],cargv[81],cargv[82],
00236 cargv[83],cargv[84],cargv[85],
00237 cargv[86],cargv[87],cargv[88],
00238 cargv[89],cargv[90],cargv[91],
00239 cargv[92],cargv[93],cargv[94],
00240 cargv[95],cargv[96],cargv[97],
00241 cargv[98],cargv[99])));
00242 }
00243 }
00244
00245 long saved_time=0;
00246
00247 pointer WINDOW_CREATE_FRAME(n,argv)
00248 int n;
00249 register pointer argv[];
00250 {
00251 struct timezone tz;
00252 struct timeval tv;
00253
00254 gettimeofday(&tv,&tz);
00255 saved_time = tv . tv_sec;
00256 return(call_xv_create(FRAME,n,argv));
00257 }
00258
00259 pointer WINDOW_CREATE_PANEL(n,argv)
00260 int n;
00261 register pointer argv[];
00262 {
00263 return(call_xv_create(PANEL,n,argv));
00264 }
00265
00266 pointer WINDOW_CREATE_CANVAS(n,argv)
00267 int n;
00268 register pointer argv[];
00269 {
00270 return(call_xv_create(CANVAS,n,argv));
00271 }
00272
00273 pointer WINDOW_CREATE_TTY(n,argv)
00274 int n;
00275 register pointer argv[];
00276 {
00277 return(call_xv_create(TTY,n,argv));
00278 }
00279 pointer WINDOW_CREATE_TEXTSW(n,argv)
00280 int n;
00281 register pointer argv[];
00282 {
00283 register long cargv[50];
00284 n= largv2cargv(n,argv,cargv,1,48);
00285 cargv[n] = 0;
00286 return(makebnum(xv_create(cargv[0],TEXTSW,cargv[1],cargv[2],
00287 cargv[3],cargv[4],cargv[5],
00288 cargv[6],cargv[7],cargv[8],
00289 cargv[9],cargv[10],cargv[11],
00290 cargv[12],cargv[13],cargv[14],
00291 cargv[15],cargv[16],cargv[17],
00292 cargv[18],cargv[19],cargv[20],
00293 cargv[21],cargv[22],cargv[23],
00294 cargv[24],cargv[25],cargv[25],
00295 cargv[26],cargv[27],cargv[28],
00296 cargv[29],cargv[30],cargv[31],
00297 cargv[32],cargv[33],cargv[34],
00298 cargv[35],cargv[36],cargv[37],
00299 cargv[38],cargv[39],cargv[40],
00300 cargv[41],cargv[42],cargv[43],
00301 cargv[44],cargv[45],cargv[46])));
00302 }
00303
00304 pointer WINDOW_SET(n,argv)
00305 int n;
00306 register pointer argv[];
00307 {
00308 return(call_sunview(xv_set,n,argv));
00309 }
00310 pointer WINDOW_GET(n,argv)
00311 int n; register pointer argv[];
00312 {
00313 return(call_sunview(xv_get,n,argv));
00314 }
00315
00316 pointer WINDOW_FIT(n,argv)
00317 int n; register pointer argv[];
00318 {
00319 ckarg(1);
00320 window_fit(cknumtoint(argv[0]));
00321 return(T);
00322 }
00323
00324 pointer WINDOW_MAIN_LOOP(n,argv)
00325 int n; register pointer argv[];
00326 {
00327 ckarg(1);
00328 (void) window_main_loop(cknumtoint(argv[0]));
00329 return(T);
00330 }
00331
00332 pointer WINDOW_DESTROY(n,argv)
00333 int n; register pointer argv[];
00334 {
00335 ckarg(1);
00336 xv_destroy_check(cknumtoint(argv[0]));
00337 return(T);
00338 }
00339
00340 pointer WINDOW_DONE(n,argv)
00341 int n; register pointer argv[];
00342 {
00343 ckarg(1);
00344 return(makebnum((int)window_done(cknumtoint(argv[0]))));
00345 }
00346
00347 pointer WINDOW_BELL(n,argv)
00348 int n; register pointer argv[];
00349 {
00350 ckarg(1);
00351 (void) window_bell(cknumtoint(argv[0]));
00352 return(T);
00353 }
00354 pointer WINDOW_READ_EVENT(n,argv)
00355 int n; register pointer argv[];
00356 {
00357 ckarg(1);
00358 return(makebnum((int)window_read_event(cknumtoint(argv[0]))));
00359 }
00360 pointer WINDOW_REFUSE_KBD_FOCUS(n,argv)
00361 int n; register pointer argv[];
00362 {
00363 ckarg(1);
00364 (void) window_refuse_kbd_focus(cknumtoint(argv[0]));
00365 return(T);
00366 }
00367 pointer WINDOW_FIT_HEIGHT(n,argv)
00368 int n; register pointer argv[];
00369 {
00370 ckarg(1);
00371 window_fit_height(cknumtoint(argv[0]));
00372 return(T);
00373 }
00374 pointer WINDOW_FIT_WIDTH(n,argv)
00375 int n; register pointer argv[];
00376 {
00377 ckarg(1);
00378 window_fit_width(cknumtoint(argv[0]));
00379 return(T);
00380 }
00381 pointer WINDOW_RELEASE_EVENT_LOCK(n,argv)
00382 int n; register pointer argv[];
00383 {
00384 ckarg(1);
00385 (void) window_release_event_lock(cknumtoint(argv[0]));
00386 return(T);
00387 }
00388
00389
00390 pointer GET_CANVAS_PIXWIN(n,argv)
00391 int n; register pointer argv[];
00392 {
00393 ckarg(1);
00394 return(makebnum((int)canvas_pixwin(cknumtoint(argv[0]))));
00395 }
00396
00397 pointer my_CANVAS_PAINT_WINDOW(n,argv)
00398 int n; register pointer argv[];
00399 {
00400 ckarg(1);
00401 return(makebnum((int)canvas_paint_window(cknumtoint(argv[0]))));
00402 }
00403 pointer CANVAS_EVENT(n,argv)
00404 int n; register pointer argv[];
00405 {
00406 ckarg(2);
00407 return(makebnum((int)canvas_event(cknumtoint(argv[0]),
00408 cknumtoint(argv[1]))));
00409 }
00410 pointer CANVAS_WINDOW_EVENT(n,argv)
00411 int n; register pointer argv[];
00412 {
00413 ckarg(2);
00414 return(makebnum((int)canvas_window_event(cknumtoint(argv[0]),
00415 cknumtoint(argv[1]))));
00416 }
00417
00418 pointer my_MENU_CREATE(n,argv)
00419 int n;
00420 register pointer argv[];
00421 {
00422 return(call_sunview(menu_create,n,argv));
00423 }
00424 pointer MENU_CREATE_ITEM(n,argv)
00425 int n;
00426 register pointer argv[];
00427 {
00428 return(call_sunview(menu_create_item,n,argv));
00429 }
00430 pointer MENU_SET(n,argv)
00431 int n;
00432 register pointer argv[];
00433 {
00434 return(call_sunview(menu_set,n,argv));
00435 }
00436 pointer my_MENU_DESTROY(n,argv)
00437 int n; register pointer argv[];
00438 {
00439 ckarg(1);
00440 (void) menu_destroy(cknumtoint(argv[0]));
00441 return(T);
00442 }
00443
00444 pointer MENU_DESTROY_WITH_PROC(n,argv)
00445 int n; register pointer argv[];
00446 {
00447 ckarg(2);
00448 (void) menu_destroy_with_proc(cknumtoint(argv[0]),
00449 cknumtoint(argv[1]));
00450 return(T);
00451 }
00452 pointer MENU_FIND(n,argv)
00453 int n;
00454 register pointer argv[];
00455 {
00456 return(call_sunview(menu_find,n,argv));
00457 }
00458
00459 pointer MENU_GET(n,argv)
00460 int n; register pointer argv[];
00461 {
00462 return(call_sunview(menu_get,n,argv));
00463 }
00464
00465 pointer MENU_SHOW(n,argv)
00466 int n;
00467 register pointer argv[];
00468 {
00469
00470 return(call_sunview(menu_show,n,argv));
00471 }
00472
00473 pointer MENU_RETURN_ITEM(n,argv)
00474 int n; register pointer argv[];
00475 {
00476 ckarg(2);
00477 return(makebnum((int)menu_return_item(cknumtoint(argv[0]),
00478 cknumtoint(argv[1]))));
00479 }
00480
00481 pointer MENU_RETURN_VALUE(n,argv)
00482 int n; register pointer argv[];
00483 {
00484 ckarg(2);
00485 return(makebnum((int)menu_return_value(cknumtoint(argv[0]),
00486 cknumtoint(argv[1]))));
00487 }
00488
00489
00490 pointer PANEL_SET(n,argv)
00491 int n;
00492 register pointer argv[];
00493 {
00494 return(call_sunview(xv_set,n,argv));
00495 }
00496
00497 pointer PANEL_FREE(n,argv)
00498 int n; register pointer argv[];
00499 {
00500 ckarg(1);
00501 return(makebnum((int)panel_free(cknumtoint(argv[0]))));
00502 }
00503 pointer PANEL_ACCEPT_KEY(n,argv)
00504 int n; register pointer argv[];
00505 {
00506 ckarg(2);
00507 return(makebnum((int)panel_accept_key(cknumtoint(argv[0]),
00508 cknumtoint(argv[1]))));
00509 }
00510 pointer PANEL_ACCEPT_MENU(n,argv)
00511 int n; register pointer argv[];
00512 {
00513 ckarg(2);
00514 return(makebnum((int)panel_accept_menu(cknumtoint(argv[0]),
00515 cknumtoint(argv[1]))));
00516 }
00517 pointer PANEL_ACCEPT_PREVIEW(n,argv)
00518 int n; register pointer argv[];
00519 {
00520 ckarg(2);
00521 return(makebnum((int)panel_accept_preview(cknumtoint(argv[0]),
00522 cknumtoint(argv[1]))));
00523 }
00524 pointer PANEL_BEGIN_PREVIEW(n,argv)
00525 int n; register pointer argv[];
00526 {
00527 ckarg(2);
00528 return(makebnum((int)panel_begin_preview(cknumtoint(argv[0]),
00529 cknumtoint(argv[1]))));
00530 }
00531 pointer PANEL_CANCEL_PREVIEW(n,argv)
00532 int n; register pointer argv[];
00533 {
00534 ckarg(2);
00535 return(makebnum((int)panel_cancel_preview(cknumtoint(argv[0]),
00536 cknumtoint(argv[1]))));
00537 }
00538 pointer PANEL_ADVANCE_CARET(n,argv)
00539 int n; register pointer argv[];
00540 {
00541 ckarg(1);
00542 return(makebnum((int)panel_advance_caret(cknumtoint(argv[0]))));
00543 }
00544 pointer PANEL_BACKUP_CARET(n,argv)
00545 int n; register pointer argv[];
00546 {
00547 ckarg(1);
00548 return(makebnum((int)panel_backup_caret(cknumtoint(argv[0]))));
00549 }
00550
00551 pointer PANEL_BUTTON_IMAGE(n,argv)
00552 int n;
00553 register pointer argv[];
00554 {
00555
00556 return(call_sunview(panel_button_image,n,argv));
00557 }
00558
00559 pointer PANEL_CREATE_ITEM(n,argv)
00560 int n;
00561 register pointer argv[];
00562 {
00563 return(call_sunview(xv_create,n,argv));
00564 }
00565 pointer PANEL_DEFAULT_HANDLE_EVENT(n,argv)
00566 int n; register pointer argv[];
00567 {
00568 ckarg(2);
00569 panel_default_handle_event(cknumtoint(argv[0]),
00570 cknumtoint(argv[1]));
00571 return(T);
00572 }
00573 pointer PANEL_EVENT(n,argv)
00574 int n; register pointer argv[];
00575 {
00576 ckarg(2);
00577 return(makebnum((int)panel_event(cknumtoint(argv[0]),
00578 cknumtoint(argv[1]))));
00579 }
00580 pointer PANEL_DESTROY_ITEM(n,argv)
00581 int n; register pointer argv[];
00582 {
00583 ckarg(1);
00584 return(makebnum((int)xv_destroy(cknumtoint(argv[0]))));
00585 }
00586
00587 pointer my_PANEL_GET(n,argv)
00588 int n; register pointer argv[];
00589 {
00590
00591 return(call_sunview(xv_get,n,argv));
00592 }
00593 pointer PANEL_GET_VALUE(n,argv)
00594 int n; register pointer argv[];
00595 {
00596 ckarg(1);
00597
00598 return(makebnum((int)xv_get(cknumtoint(argv[0]), PANEL_VALUE)));
00599 }
00600 pointer PANEL_UPDATE_SCROLLING_SIZE(n,argv)
00601 int n; register pointer argv[];
00602 {
00603 ckarg(1);
00604 return(makebnum((int)panel_update_scrolling_size(cknumtoint(argv[0]))));
00605 }
00606 pointer PANEL_UPDATE_PREVIEW(n,argv)
00607 int n; register pointer argv[];
00608 {
00609 ckarg(2);
00610 return(makebnum((int)panel_update_preview(cknumtoint(argv[0]),
00611 cknumtoint(argv[1]))));
00612 }
00613 pointer PANEL_WINDOW_EVENT(n,argv)
00614 int n; register pointer argv[];
00615 {
00616 ckarg(2);
00617 return(makebnum((int)panel_window_event(cknumtoint(argv[0]),
00618 cknumtoint(argv[1]))));
00619 }
00620 pointer PANEL_TEXT_NOTIFY(n,argv)
00621 int n; register pointer argv[];
00622 {
00623 ckarg(2);
00624 return(makebnum((int)panel_text_notify(cknumtoint(argv[0]),
00625 cknumtoint(argv[1]))));
00626 }
00627 pointer PANEL_SET_VALUE(n,argv)
00628 int n; register pointer argv[];
00629 {
00630 ckarg(2);
00631
00632 return(makebnum((int)panel_set_value(cknumtoint(argv[0]),
00633 cknumtoint(argv[1]))));
00634 }
00635 pointer my_PANEL_PAINT(n,argv)
00636 int n; register pointer argv[];
00637 {
00638 ckarg(2);
00639 return(makebnum((int)panel_paint(cknumtoint(argv[0]),
00640 cknumtoint(argv[1]))));
00641 }
00642
00643 pointer SCROLLBAR_CREATE(n,argv)
00644 int n;
00645 register pointer argv[];
00646 {
00647 return(call_sunview(scrollbar_create,n,argv));
00648 }
00649
00650 pointer PANEL_CREATE_MESSAGE(n,argv)
00651 int n;
00652 register pointer argv[];
00653 {
00654 return(call_xv_create(PANEL_MESSAGE,n,argv));
00655 }
00656 pointer PANEL_CREATE_BUTTON(n,argv)
00657 int n;
00658 register pointer argv[];
00659 {
00660 return(call_xv_create(PANEL_BUTTON,n,argv));
00661 }
00662 pointer PANEL_CREATE_CHOICE(n,argv)
00663 int n;
00664 register pointer argv[];
00665 {
00666 return(call_xv_create(PANEL_CHOICE,n,argv));
00667 }
00668 pointer PANEL_CREATE_CYCLE(n,argv)
00669 int n;
00670 register pointer argv[];
00671 {
00672 register long cargv[100];
00673 n = largv2cargv(n,argv,cargv,1,100);
00674 cargv[n] = 0;
00675 if (n<25) {
00676 return(makebnum((int)
00677 xv_create(cargv[0],PANEL_CYCLE,
00678 cargv[1],cargv[2],
00679 cargv[3], cargv[4],cargv[5],
00680 cargv[6],cargv[7],cargv[8],
00681 cargv[9],cargv[10],cargv[11],
00682 cargv[12],cargv[13],cargv[14],
00683 cargv[15],cargv[16],cargv[17],
00684 cargv[18],cargv[19],cargv[20],
00685 cargv[21],cargv[22],cargv[23],
00686 cargv[24])));
00687 }
00688 else if (n<48){
00689 return(makebnum((int)
00690 xv_create(cargv[0],PANEL_CYCLE,
00691 cargv[1],cargv[2],
00692 cargv[3],cargv[4],cargv[5],
00693 cargv[6],cargv[7],cargv[8],
00694 cargv[9],cargv[10],cargv[11],
00695 cargv[12],cargv[13],cargv[14],
00696 cargv[15],cargv[16],cargv[17],
00697 cargv[18],cargv[19],cargv[20],
00698 cargv[21],cargv[22],cargv[23],
00699 cargv[24],cargv[25],cargv[25],
00700 cargv[26],cargv[27],cargv[28],
00701 cargv[29],cargv[30],cargv[31],
00702 cargv[32],cargv[33],cargv[34],
00703 cargv[35],cargv[36],cargv[37],
00704 cargv[38],cargv[39],cargv[40],
00705 cargv[41],cargv[42],cargv[43],
00706 cargv[44],cargv[45],cargv[46])));
00707
00708 }
00709 else {
00710 return(makebnum((int)
00711 xv_create(cargv[0],PANEL_CYCLE,
00712 cargv[1],cargv[2],
00713 cargv[3],cargv[4],cargv[5],
00714 cargv[6],cargv[7],cargv[8],
00715 cargv[9],cargv[10],cargv[11],
00716 cargv[12],cargv[13],cargv[14],
00717 cargv[15],cargv[16],cargv[17],
00718 cargv[18],cargv[19],cargv[20],
00719 cargv[21],cargv[22],cargv[23],
00720 cargv[24],cargv[25],cargv[25],
00721 cargv[26],cargv[27],cargv[28],
00722 cargv[29],cargv[30],cargv[31],
00723 cargv[32],cargv[33],cargv[34],
00724 cargv[35],cargv[36],cargv[37],
00725 cargv[38],cargv[39],cargv[40],
00726 cargv[41],cargv[42],cargv[43],
00727 cargv[44],cargv[45],cargv[46],
00728 cargv[47],cargv[48],cargv[49],
00729 cargv[50],cargv[51],cargv[52],
00730 cargv[53],cargv[54],cargv[55],
00731 cargv[56],cargv[57],cargv[58],
00732 cargv[59],cargv[60],cargv[61],
00733 cargv[62],cargv[63],cargv[64],
00734 cargv[65],cargv[66],cargv[67],
00735 cargv[68],cargv[69],cargv[70],
00736 cargv[71],cargv[72],cargv[73],
00737 cargv[74],cargv[75],cargv[76],
00738 cargv[77],cargv[78],cargv[79],
00739 cargv[80],cargv[81],cargv[82],
00740 cargv[83],cargv[84],cargv[85],
00741 cargv[86],cargv[87],cargv[88],
00742 cargv[89],cargv[90],cargv[91],
00743 cargv[92],cargv[93],cargv[94],
00744 cargv[95],cargv[96],cargv[97],
00745 cargv[98],cargv[99])));
00746 }
00747 }
00748 pointer PANEL_CREATE_TOGGLE(n,argv)
00749 int n;
00750 register pointer argv[];
00751 {
00752 register long cargv[100];
00753 n = largv2cargv(n,argv,cargv,1,100);
00754 cargv[n] = 0;
00755 if (n<25) {
00756 return(makebnum((int)
00757 xv_create(cargv[0],PANEL_TOGGLE,
00758 cargv[1],cargv[2],
00759 cargv[3], cargv[4],cargv[5],
00760 cargv[6],cargv[7],cargv[8],
00761 cargv[9],cargv[10],cargv[11],
00762 cargv[12],cargv[13],cargv[14],
00763 cargv[15],cargv[16],cargv[17],
00764 cargv[18],cargv[19],cargv[20],
00765 cargv[21],cargv[22],cargv[23],
00766 cargv[24])));
00767 }
00768 else if (n<48){
00769 return(makebnum((int)
00770 xv_create(cargv[0],PANEL_TOGGLE,
00771 cargv[1],cargv[2],
00772 cargv[3],cargv[4],cargv[5],
00773 cargv[6],cargv[7],cargv[8],
00774 cargv[9],cargv[10],cargv[11],
00775 cargv[12],cargv[13],cargv[14],
00776 cargv[15],cargv[16],cargv[17],
00777 cargv[18],cargv[19],cargv[20],
00778 cargv[21],cargv[22],cargv[23],
00779 cargv[24],cargv[25],cargv[25],
00780 cargv[26],cargv[27],cargv[28],
00781 cargv[29],cargv[30],cargv[31],
00782 cargv[32],cargv[33],cargv[34],
00783 cargv[35],cargv[36],cargv[37],
00784 cargv[38],cargv[39],cargv[40],
00785 cargv[41],cargv[42],cargv[43],
00786 cargv[44],cargv[45],cargv[46])));
00787
00788 }
00789 else {
00790 return(makebnum((int)
00791 xv_create(cargv[0],PANEL_TOGGLE,
00792 cargv[1],cargv[2],
00793 cargv[3],cargv[4],cargv[5],
00794 cargv[6],cargv[7],cargv[8],
00795 cargv[9],cargv[10],cargv[11],
00796 cargv[12],cargv[13],cargv[14],
00797 cargv[15],cargv[16],cargv[17],
00798 cargv[18],cargv[19],cargv[20],
00799 cargv[21],cargv[22],cargv[23],
00800 cargv[24],cargv[25],cargv[25],
00801 cargv[26],cargv[27],cargv[28],
00802 cargv[29],cargv[30],cargv[31],
00803 cargv[32],cargv[33],cargv[34],
00804 cargv[35],cargv[36],cargv[37],
00805 cargv[38],cargv[39],cargv[40],
00806 cargv[41],cargv[42],cargv[43],
00807 cargv[44],cargv[45],cargv[46],
00808 cargv[47],cargv[48],cargv[49],
00809 cargv[50],cargv[51],cargv[52],
00810 cargv[53],cargv[54],cargv[55],
00811 cargv[56],cargv[57],cargv[58],
00812 cargv[59],cargv[60],cargv[61],
00813 cargv[62],cargv[63],cargv[64],
00814 cargv[65],cargv[66],cargv[67],
00815 cargv[68],cargv[69],cargv[70],
00816 cargv[71],cargv[72],cargv[73],
00817 cargv[74],cargv[75],cargv[76],
00818 cargv[77],cargv[78],cargv[79],
00819 cargv[80],cargv[81],cargv[82],
00820 cargv[83],cargv[84],cargv[85],
00821 cargv[86],cargv[87],cargv[88],
00822 cargv[89],cargv[90],cargv[91],
00823 cargv[92],cargv[93],cargv[94],
00824 cargv[95],cargv[96],cargv[97],
00825 cargv[98],cargv[99])));
00826 }
00827 }
00828 pointer PANEL_CREATE_TEXT(n,argv)
00829 int n;
00830 register pointer argv[];
00831 {
00832 return(call_xv_create(PANEL_TEXT,n,argv));
00833 }
00834 pointer PANEL_CREATE_SLIDER(n,argv)
00835 int n;
00836 register pointer argv[];
00837 {
00838 return(call_xv_create(PANEL_SLIDER,n,argv));
00839 }
00840
00841 pointer ICON_CREATE(n,argv)
00842 int n;
00843 register pointer argv[];
00844 {
00845 return(call_sunview(icon_create,n,argv));
00846 }
00847 pointer ICON_SET(n,argv)
00848 int n;
00849 register pointer argv[];
00850 {
00851 return(call_sunview(icon_set,n,argv));
00852 }
00853 pointer ICON_GET(n,argv)
00854 int n; register pointer argv[];
00855 {
00856 return(call_sunview(icon_get,n,argv));
00857 }
00858 pointer ICON_DESTROY(n,argv)
00859 int n; register pointer argv[];
00860 {
00861 ckarg(1);
00862 return(makebnum(icon_destroy(cknumtoint(argv[0]))));
00863 }
00864
00865 pointer PW_BATCH(n,argv)
00866 int n; register pointer argv[];
00867 {
00868 ckarg(2);
00869 pw_batch(cknumtoint(argv[0]), cknumtoint(argv[1]));
00870 return(T);
00871 }
00872
00873 my_pw_batch_off(pw)
00874 Pixwin *pw;
00875 {
00876 pw_batch_off(pw);
00877 }
00878 my_pw_batch_on(pw)
00879 Pixwin *pw;
00880 {
00881 pw_batch_on(pw);
00882 }
00883 my_pw_get(pw,x,y)
00884 Pixwin *pw; int x,y;
00885 {
00886 return(pw_get(pw,x,y));
00887 }
00888 my_pw_get_region_rect(pw,r)
00889 Pixwin *pw; Rect *r;
00890 {
00891 pw_get_region_rect(pw,r);
00892 }
00893
00894
00895 my_pw_putcolormap(pw,index,count,red,green,blue)
00896 Pixwin *pw; int index,count,red,green,blue;
00897 {
00898 return(pw_putcolormap(pw,index,count,red,green,blue));
00899 }
00900 my_pw_writebackground(pw,dx,dy,dw,dh,op)
00901 Pixwin *pw;
00902 int dx,dy,dw,dh,op;
00903 { return(pw_writebackground(pw,dx,dy,dw,dh,op)); }
00904
00905 pointer PW_BATCH_OFF(n,argv)
00906 int n; register pointer argv[];
00907 {
00908 return(call_sunview(my_pw_batch_off,n,argv));
00909 }
00910 pointer PW_BATCH_ON(n,argv)
00911 int n; register pointer argv[];
00912 {
00913 return(call_sunview(my_pw_batch_on,n,argv));
00914 }
00915 pointer PW_BATCHROP(n,argv)
00916 int n; register pointer argv[];
00917 {
00918 register long cargv[12];
00919 largv2cargv(n,argv,cargv,6,6);
00920 pw_char(cargv[0], cargv[1], cargv[2], cargv[3],
00921 cargv[4],cargv[5]);
00922 return(T);
00923 }
00924 pointer PW_CHAR(n,argv)
00925 int n; register pointer argv[];
00926 {
00927 register long cargv[12];
00928 largv2cargv(n,argv,cargv,6,6);
00929 pw_char(cargv[0], cargv[1], cargv[2], cargv[3],
00930 cargv[4],cargv[5]);
00931 return(T);
00932 }
00933 pointer PW_COPY(n,argv)
00934 int n; register pointer argv[];
00935 {
00936 register long cargv[12];
00937 largv2cargv(n,argv,cargv,9,9);
00938 pw_copy((Pixwin *)cargv[0], cargv[1], cargv[2], cargv[3],
00939 cargv[4],cargv[5],(Pixwin *)cargv[6],cargv[7],cargv[8]);
00940 return(T);
00941 }
00942 pointer PW_GET(n,argv)
00943 int n; register pointer argv[];
00944 {
00945 return(call_sunview(my_pw_get,n,argv));
00946 }
00947 pointer MY_PW_LINE(n,argv)
00948 int n; register pointer argv[];
00949 {
00950 ckarg(8);
00951 pw_line(cknumtoint(argv[0]), cknumtoint(argv[1]), cknumtoint(argv[2]),
00952 cknumtoint(argv[3]), cknumtoint(argv[4]),
00953 cknumtoint(argv[5]), cknumtoint(argv[6]), cknumtoint(argv[7]));
00954 return(T);
00955 }
00956
00957 pointer PW_LOCK(n,argv)
00958 int n; register pointer argv[];
00959 {
00960 ckarg(2);
00961 pw_lock((Pixwin *)cknumtoint(argv[0]),
00962 (Rect *)cknumtoint(argv[1]));
00963 return(T);
00964 }
00965 pointer PW_PFSYSCLOSE(n,argv)
00966 int n; register pointer argv[];
00967 {
00968 ckarg(0);
00969 return(makebnum(pw_pfsysclose()));
00970 }
00971
00972 pointer PW_POLYGON_2(n,argv)
00973 int n; register pointer argv[];
00974 {
00975 int plist[2*1000],size,npts[10],nsize;
00976 ckarg(10);
00977 nsize=trans_argv_iargv(1,&argv[4],npts);
00978 size=trans_argv_iargv(1,&argv[5],plist);
00979 pw_polygon_2(cknumtoint(argv[0]),cknumtoint(argv[1]), cknumtoint(argv[2]),
00980 cknumtoint(argv[3]),npts,plist,
00981 cknumtoint(argv[6]),cknumtoint(argv[7]),
00982 cknumtoint(argv[8]),cknumtoint(argv[9]));
00983 return(T);
00984 }
00985 pointer MY_PW_POLYLINE(n,argv)
00986 int n; register pointer argv[];
00987 {
00988 int plist[2*1000],size;
00989 ckarg(9);
00990 size=trans_argv_iargv(1,&argv[4],plist);
00991 pw_polyline(cknumtoint(argv[0]),
00992 cknumtoint(argv[1]), cknumtoint(argv[2]),
00993 cknumtoint(argv[3]),plist,
00994 cknumtoint(argv[5]),cknumtoint(argv[6]),
00995 cknumtoint(argv[7]),cknumtoint(argv[8]));
00996 return(T);
00997 }
00998
00999 pointer MY_PW_POLYPOINT(n,argv)
01000 int n; register pointer argv[];
01001 {
01002 int plist[2*1000],size;
01003 ckarg(6);
01004 size=trans_argv_iargv(1,&argv[4],plist);
01005 pw_polypoint(cknumtoint(argv[0]),
01006 cknumtoint(argv[1]), cknumtoint(argv[2]),
01007 cknumtoint(argv[3]),plist,
01008 cknumtoint(argv[5]));
01009 return(T);
01010 }
01011 pointer PW_PUT(n,argv)
01012 int n; register pointer argv[];
01013 {
01014 register long cargv[12];
01015 largv2cargv(n,argv,cargv,4,4);
01016 pw_put((Pixwin *)cargv[0],cargv[1],cargv[2],cargv[3]);
01017 return(T);
01018 }
01019 pointer PW_READ(n,argv)
01020 int n; register pointer argv[];
01021 {
01022 register long cargv[12];
01023 largv2cargv(n,argv,cargv,9,9);
01024 pw_read((Pixrect *)cargv[0],cargv[1],cargv[2],cargv[3],
01025 cargv[4],cargv[5],(Pixwin *)cargv[6],cargv[7],cargv[8]);
01026 return(T);
01027 }
01028
01029 pointer MY_PW_REPLROP(n,argv)
01030 int n; register pointer argv[];
01031 {
01032 register long cargv[12];
01033 largv2cargv(n,argv,cargv,9,9);
01034 pw_replrop(cargv[0], cargv[1], cargv[2], cargv[3],
01035 cargv[4],cargv[5],cargv[6],cargv[7],
01036 cargv[8]);
01037 return(T);
01038 }
01039 pointer MY_PW_ROP(n,argv)
01040 int n; register pointer argv[];
01041 {
01042 register long cargv[12];
01043 largv2cargv(n,argv,cargv,9,9);
01044 pw_rop(cargv[0], cargv[1], cargv[2], cargv[3],
01045 cargv[4],cargv[5],cargv[6],cargv[7],
01046 cargv[8]);
01047 return(T);
01048 }
01049 pointer my_PW_SHOW(n,argv)
01050 int n; register pointer argv[];
01051 {
01052 ckarg(1);
01053 pw_show(cknumtoint(argv[0]));
01054 return(T);
01055 }
01056 pointer MY_PW_STENCIL(n,argv)
01057 int n; register pointer argv[];
01058 {
01059 register long cargv[20];
01060 largv2cargv(n,argv,cargv,12,12);
01061 pw_polyline(cargv[0], cargv[1], cargv[2], cargv[3],
01062 cargv[4],cargv[5],cargv[6],cargv[7],
01063 cargv[8],cargv[9],cargv[10],cargv[11]);
01064 return(T);
01065 }
01066 pointer MY_PW_TEXT(n,argv)
01067 int n; register pointer argv[];
01068 {
01069 register long cargv[12];
01070 largv2cargv(n,argv,cargv,6,6);
01071 pw_text(cargv[0], cargv[1], cargv[2], cargv[3],
01072 cargv[4],cargv[5]);
01073 return(T);
01074 }
01075 pointer PW_TTEXT(n,argv)
01076 int n; register pointer argv[];
01077 {
01078 register long cargv[12];
01079 largv2cargv(n,argv,cargv,6,6);
01080 pw_ttext(cargv[0], cargv[1], cargv[2], cargv[3],
01081 cargv[4],cargv[5]);
01082 return(T);
01083 }
01084 pointer PW_UNLOCK(n,argv)
01085 int n; register pointer argv[];
01086 {
01087 ckarg(1);
01088 pw_unlock((Pixwin *)cknumtoint(argv[0]));
01089 return(T);
01090 }
01091 pointer MY_PW_VECTOR(n,argv)
01092 int n; register pointer argv[];
01093 {
01094 register long cargv[12];
01095 largv2cargv(n,argv,cargv,7,7);
01096 pw_vector(cargv[0],cargv[1],cargv[2],cargv[3],
01097 cargv[4],cargv[5],cargv[6]);
01098 return(T);
01099 }
01100 pointer PW_WRITE(n,argv)
01101 int n; register pointer argv[];
01102 {
01103 register long cargv[12];
01104 largv2cargv(n,argv,cargv,9,9);
01105 pw_write(cargv[0],cargv[1],cargv[2],cargv[3],
01106 cargv[4],cargv[5],cargv[6],cargv[7],
01107 cargv[8]);
01108 return(T);
01109 }
01110 pointer PW_WRITEBACKGROUND(n,argv)
01111 int n; register pointer argv[];
01112 {
01113 register long cargv[12];
01114 largv2cargv(n,argv,cargv,6,6);
01115 pw_writebackground(cargv[0], cargv[1], cargv[2], cargv[3],
01116 cargv[4],cargv[5]);
01117 return(T);
01118 }
01119 pointer PW_BLACKONWHITE(n,argv)
01120 int n; register pointer argv[];
01121 {
01122 register long cargv[12];
01123 largv2cargv(n,argv,cargv,3,3);
01124 pw_blackonwhite(cargv[0], cargv[1], cargv[2]);
01125 return(T);
01126 }
01127 pointer PW_CYCLECOLORMAP(n,argv)
01128 int n; register pointer argv[];
01129 {
01130 register long cargv[12];
01131 largv2cargv(n,argv,cargv,4,4);
01132 pw_cyclecolormap(cargv[0], cargv[1], cargv[2],cargv[3]);
01133 return(T);
01134 }
01135 pointer PW_GETATTRIBUTES(n,argv)
01136 int n; register pointer argv[];
01137 {
01138 int planes;
01139 ckarg(1);
01140 pw_getattributes(cknumtoint(argv[0]),&planes);
01141 return(makeint(planes));
01142 }
01143 pointer PW_PUTATTRIBUTES(n,argv)
01144 int n; register pointer argv[];
01145 {
01146 static int planes;
01147 ckarg(2);
01148 planes= cknumtoint(argv[1]);
01149 pw_putattributes(cknumtoint(argv[0]),&planes);
01150 return(T);
01151 }
01152
01153 pointer PW_GETCMSNAME(n,argv)
01154 int n; register pointer argv[];
01155 {
01156 int s=CMS_NAMESIZE,i;
01157 char buf[CMS_NAMESIZE];
01158 ckarg(1);
01159 for (i=0; i<CMS_NAMESIZE; i++) buf[i]=0;
01160 pw_getcmsname(cknumtoint(argv[0]), buf);
01161 return(makestring(buf,strlen(buf)));
01162 }
01163
01164 pointer PW_GETCOLORMAP(n,argv)
01165 int n; register pointer argv[];
01166 {
01167 struct xv_cmsdata *cms;
01168 pointer v;
01169 unsigned char red[256],green[256],blue[256];
01170 Pixwin *pw;
01171 ckarg(1);
01172 pw = (Pixwin *)cknumtoint(argv[0]);
01173 cms = xv_get(pw,WIN_CMS_DATA);
01174 pw_getcolormap(pw,0,cms -> size,red,green,blue);
01175 vpush(makestring(red,cms -> size));
01176 vpush(makestring(green,cms -> size));
01177 vpush(makestring(blue,cms -> size));
01178 v = cons(makeint(cms -> size),NIL);
01179 v = cons(vpop(),v);
01180 v = cons(vpop(),v);
01181 return(cons(vpop(),v));
01182 }
01183
01184 pointer PW_PUTCOLORMAP(n,argv)
01185 int n; register pointer argv[];
01186 {
01187
01188 return(call_sunview(my_pw_putcolormap,n,argv));
01189 }
01190 pointer PW_REVERSEVIDEO(n,argv)
01191 int n; register pointer argv[];
01192 {
01193 register long cargv[12];
01194 largv2cargv(n,argv,cargv,3,3);
01195 pw_reversevideo(cargv[0], cargv[1],cargv[3]);
01196 return(T);
01197 }
01198 pointer PW_SETCMSNAME(n,argv)
01199 int n; register pointer argv[];
01200 {
01201 register long cargv[12];
01202 largv2cargv(n,argv,cargv,2,2);
01203 pw_setcmsname(cargv[0], cargv[1]);
01204 return(T);
01205 }
01206 pointer PW_WHITEONBLACK(n,argv)
01207 int n; register pointer argv[];
01208 {
01209 register long cargv[12];
01210 largv2cargv(n,argv,cargv,3,3);
01211 pw_whiteonblack(cargv[0], cargv[1],cargv[2]);
01212 return(T);
01213 }
01214
01215 pointer TEXTSW_ADD_MARK(n,argv)
01216 int n; register pointer argv[];
01217 {
01218 ckarg(3);
01219 return(call_sunview(textsw_add_mark,n,argv));
01220 }
01221 pointer TEXTSW_APPEND_FILE_NAME(n,argv)
01222 int n; register pointer argv[];
01223 {
01224 ckarg(2);
01225 return(call_sunview(textsw_append_file_name,n,argv));
01226 }
01227 pointer TEXTSW_DELETE(n,argv)
01228 int n; register pointer argv[];
01229 {
01230 ckarg(3);
01231 return(call_sunview(textsw_delete,n,argv));
01232 }
01233 pointer TEXTSW_EDIT(n,argv)
01234 int n; register pointer argv[];
01235 {
01236 ckarg(4);
01237 return(call_sunview(textsw_edit,n,argv));
01238 }
01239 pointer TEXTSW_ERASE(n,argv)
01240 int n; register pointer argv[];
01241 {
01242 ckarg(3);
01243 return(call_sunview(textsw_erase,n,argv));
01244 }
01245 pointer TEXTSW_FILE_LINES_VISIBLE(n,argv)
01246 int n; register pointer argv[];
01247 {
01248 register long cargv[12];
01249 largv2cargv(n,argv,cargv,3,3);
01250 textsw_file_lines_visible(cargv[0], cargv[1], cargv[2]);
01251 return(T);
01252 }
01253 pointer TEXTSW_FIND_BYTES(n,argv)
01254 int n; register pointer argv[];
01255 {
01256 ckarg(6);
01257 return(call_sunview(textsw_find_bytes,n,argv));
01258 }
01259 pointer TEXTSW_MATCH_BYTES(n,argv)
01260 int n; register pointer argv[];
01261 {
01262 ckarg(8);
01263 return(call_sunview(textsw_match_bytes,n,argv));
01264 }
01265 pointer TEXTSW_FIND_MARK(n,argv)
01266 int n; register pointer argv[];
01267 {
01268 ckarg(2);
01269 return(call_sunview(textsw_find_mark,n,argv));
01270 }
01271 pointer my_TEXTSW_FIRST(n,argv)
01272 int n; register pointer argv[];
01273 {
01274 ckarg(1);
01275 return(call_sunview(textsw_first,n,argv));
01276 }
01277 pointer TEXTSW_INDEX_FOR_FILE_LINE(n,argv)
01278 int n; register pointer argv[];
01279 {
01280 ckarg(2);
01281 return(call_sunview(textsw_index_for_file_line,n,argv));
01282 }
01283 pointer TEXTSW_INSERT(n,argv)
01284 int n; register pointer argv[];
01285 {
01286 ckarg(3);
01287 return(call_sunview(textsw_insert,n,argv));
01288 }
01289 pointer TEXTSW_NEXT(n,argv)
01290 int n; register pointer argv[];
01291 {
01292 ckarg(1);
01293 return(call_sunview(textsw_next,n,argv));
01294 }
01295 pointer TEXTSW_NORMALIZE_VIEW(n,argv)
01296 int n; register pointer argv[];
01297 {
01298 register long cargv[12];
01299 largv2cargv(n,argv,cargv,2,2);
01300 textsw_normalize_view(cargv[0], cargv[1]);
01301 return(T);
01302 }
01303 pointer TEXTSW_POSSIBLY_NORMALIZE(n,argv)
01304 int n; register pointer argv[];
01305 {
01306 register long cargv[12];
01307 largv2cargv(n,argv,cargv,2,2);
01308 textsw_possibly_normalize(cargv[0], cargv[1]);
01309 return(T);
01310 }
01311 pointer TEXTSW_REMOVE_MARK(n,argv)
01312 int n; register pointer argv[];
01313 {
01314 register long cargv[12];
01315 largv2cargv(n,argv,cargv,3,3);
01316 textsw_remove_mark(cargv[0], cargv[1], cargv[2]);
01317 return(T);
01318 }
01319 pointer TEXTSW_REPLACE_BYTES(n,argv)
01320 int n; register pointer argv[];
01321 {
01322 ckarg(5);
01323 return(call_sunview(textsw_replace_bytes,n,argv));
01324 }
01325 pointer TEXTSW_RESET(n,argv)
01326 int n; register pointer argv[];
01327 {
01328 register long cargv[12];
01329 largv2cargv(n,argv,cargv,3,3);
01330 textsw_reset(cargv[0], cargv[1], cargv[2]);
01331 return(T);
01332 }
01333 pointer TEXTSW_SAVE(n,argv)
01334 int n; register pointer argv[];
01335 {
01336 ckarg(3);
01337 return(call_sunview(textsw_save,n,argv));
01338 }
01339 pointer TEXTSW_SCREEN_LINE_COUNT(n,argv)
01340 int n; register pointer argv[];
01341 {
01342 ckarg(1);
01343 return(call_sunview(textsw_screen_line_count,n,argv));
01344 }
01345
01346 pointer TEXTSW_SCROLL_LINES(n,argv)
01347 int n; register pointer argv[];
01348 {
01349 ckarg(2);
01350 return(call_sunview(textsw_scroll_lines,n,argv));
01351 }
01352 pointer TEXTSW_STORE_FILE(n,argv)
01353 int n; register pointer argv[];
01354 {
01355 return(call_sunview(textsw_store_file,n,argv));
01356 }
01357 pointer TEXTSW_SET_SELECTION(n,argv)
01358 int n; register pointer argv[];
01359 {
01360 register long cargv[12];
01361 largv2cargv(n,argv,cargv,4,4);
01362 textsw_set_selection(cargv[0], cargv[1], cargv[2]);
01363 return(T);
01364 }
01365
01366 pointer TTYSW_INPUT(n,argv)
01367 int n; register pointer argv[];
01368 {
01369 ckarg(3);
01370 return(call_sunview(ttysw_input,n,argv));
01371 }
01372 pointer TTYSW_OUTPUT(n,argv)
01373 int n; register pointer argv[];
01374 {
01375 ckarg(3);
01376 return(call_sunview(ttysw_output,n,argv));
01377 }
01378
01379 pointer XV_COL(n,argv)
01380 int n; register pointer argv[];
01381 {
01382 ckarg(2);
01383 return(makebnum(xv_col(cknumtoint(argv[0]),cknumtoint(argv[1]))));
01384 }
01385
01386 pointer XV_ROW(n,argv)
01387 int n; register pointer argv[];
01388 {
01389 ckarg(2);
01390 return(makebnum(xv_row(cknumtoint(argv[0]),cknumtoint(argv[1]))));
01391 }
01392
01393 pointer NOTIFY_DEFAULT_WAIT3(n,argv)
01394 int n; register pointer argv[];
01395 {
01396 ckarg(4);
01397 return(call_sunview(notify_default_wait3,n,argv));
01398 }
01399 pointer L_NOTIFY_DISPATCH(n,argv)
01400 int n; register pointer argv[];
01401 {
01402 ckarg(0);
01403 return(makebnum(notify_dispatch()));
01404 }
01405 pointer NOTIFY_DO_DISPATCH(n,argv)
01406 int n; register pointer argv[];
01407 {
01408 ckarg(0);
01409 return(makebnum(notify_do_dispatch()));
01410 }
01411 pointer NOTIFY_INTERPOSE_DESTROY_FUNC(n,argv)
01412 int n; register pointer argv[];
01413 {
01414 ckarg(2);
01415 return(call_sunview(notify_interpose_destroy_func
01416 ,n,argv));
01417 }
01418 pointer NOTIFY_INTERPOSE_EVENT_FUNC(n,argv)
01419 int n; register pointer argv[];
01420 {
01421 return(call_sunview(notify_interpose_event_func
01422 ,n,argv));
01423 }
01424 pointer NOTIFY_ITIMER_VALUE(n,argv)
01425 int n; register pointer argv[];
01426 {
01427 return(call_sunview(notify_itimer_value,n,argv));
01428 }
01429 pointer NOTIFY_NEXT_DESTROY_FUNC(n,argv)
01430 int n; register pointer argv[];
01431 {
01432 return(call_sunview(notify_next_destroy_func,n,argv));
01433 }
01434 pointer NOTIFY_NEXT_EVENT_FUNC(n,argv)
01435 int n; register pointer argv[];
01436 {
01437 return(call_sunview(notify_next_event_func,n,argv));
01438 }
01439 pointer NOTIFY_SET_DESTROY_FUNC(n,argv)
01440 int n; register pointer argv[];
01441 {
01442 ckarg(2);
01443 return(call_sunview(notify_set_destroy_func,n,argv));
01444 }
01445 pointer NOTIFY_SET_EXCEPTION_FUNC(n,argv)
01446 int n; register pointer argv[];
01447 {
01448 ckarg(3);
01449 return(call_sunview(notify_set_exception_func
01450 ,n,argv));
01451 }
01452 pointer NOTIFY_SET_INPUT_FUNC(n,argv)
01453 int n; register pointer argv[];
01454 {
01455 ckarg(4);
01456 return(call_sunview(notify_set_input_func,n,argv));
01457 }
01458 pointer NOTIFY_SET_ITIMER_FUNC(n,argv)
01459 int n; register pointer argv[];
01460 {
01461 return(call_sunview(notify_set_itimer_func,n,argv));
01462 }
01463 pointer NOTIFY_SET_SIGNAL_FUNC(n,argv)
01464 int n; register pointer argv[];
01465 {
01466 return(call_sunview(notify_set_signal_func,n,argv));
01467 }
01468 pointer NOTIFY_SET_OUTPUT_FUNC(n,argv)
01469 int n; register pointer argv[];
01470 {
01471 ckarg(3);
01472 return(call_sunview(notify_set_output_func,n,argv));
01473 }
01474 pointer NOTIFY_SET_WAIT3_FUNC(n,argv)
01475 int n; register pointer argv[];
01476 {
01477 ckarg(3);
01478 return(call_sunview(notify_set_wait3_func,n,argv));
01479 }
01480 pointer NOTIFY_START(n,argv)
01481 int n; register pointer argv[];
01482 {
01483 ckarg(0);
01484 return(makebnum(notify_start()));
01485 }
01486 pointer NOTIFY_STOP(n,argv)
01487 int n; register pointer argv[];
01488 {
01489 ckarg(0);
01490 return(makebnum(notify_stop()));
01491 }
01492 pointer NOTIFY_NO_DISPATCH(n,argv)
01493 int n; register pointer argv[];
01494 {
01495 ckarg(0);
01496 return(makebnum(notify_no_dispatch()));
01497 }
01498 pointer NOTIFY_PERROR(n,argv)
01499 int n; register pointer argv[];
01500 {
01501 ckarg(1);
01502 notify_perror(cknumtoint(argv[0]));
01503 return(T);
01504 }
01505 pointer NOTIFY_VETO_DESTROY(n,argv)
01506 int n; register pointer argv[];
01507 {
01508 ckarg(1);
01509 return(makebnum(notify_veto_destroy(cknumtoint(argv[0]))));
01510 }
01511
01512
01513 extern xv_pf_close();
01514 extern xv_pf_text();
01515 extern xv_pf_ttext();
01516 extern xv_pf_textbatch();
01517 extern xv_pf_textwidth();
01518 extern xv_pf_open();
01519 extern xv_pf_open_private();
01520
01521 extern pr_traprop();
01522 extern pr_dump_header();
01523 extern pr_dump_image();
01524 extern pr_dump();
01525 extern pr_polygon_2();
01526 extern pr_reversevideo();
01527
01528
01529
01530
01531
01532
01533
01534
01535
01536 extern pr_load_colormap();
01537 extern pr_load_header();
01538 extern pr_replrop();
01539 extern pr_blackonwhite();
01540 extern pr_whiteonblack();
01541
01542 pointer MPR_LINEBYTES(n,argv)
01543 int n; register pointer argv[];
01544 {
01545 ckarg(2);
01546 return(makeint(mpr_linebytes(cknumtoint(argv[0]),
01547 cknumtoint(argv[1]))));
01548 }
01549 pointer MEM_CREATE(n,argv)
01550 int n; register pointer argv[];
01551 {
01552 ckarg(3);
01553 return(call_sunview(mem_create,n,argv));
01554 }
01555 pointer MEM_POINT(n,argv)
01556 int n; register pointer argv[];
01557 {
01558 ckarg(4);
01559 return(call_sunview(mem_point,n,argv));
01560 }
01561 pointer PF_TEXTBATCH(n,argv)
01562 int n; register pointer argv[];
01563 {
01564 ckarg(4);
01565
01566
01567 return(call_sunview(xv_pf_textbatch,n,argv));
01568 }
01569 pointer PF_TEXTWIDTH(n,argv)
01570 int n; register pointer argv[];
01571 {
01572 ckarg(4);
01573
01574
01575 return(call_sunview(xv_pf_textwidth,n,argv));
01576 }
01577 pointer PF_OPEN(n,argv)
01578 int n;
01579 register pointer argv[];
01580 {
01581 ckarg(1);
01582 return(makebnum(xv_pf_open(ckstrchr(argv[0]))));
01583 }
01584 pointer PF_OPEN_PRIVATE(n,argv)
01585 int n; register pointer argv[];
01586 {
01587 ckarg(1);
01588
01589 return(call_sunview(xv_pf_open_private,n,argv));
01590 }
01591 pointer PF_DEFAULT(n,argv)
01592 int n; register pointer argv[];
01593 {
01594 ckarg(0);
01595
01596 return(makebnum(xv_pf_default()));
01597 }
01598
01599 pointer MY_PF_CLOSE(n,argv)
01600 int n; register pointer argv[];
01601 {
01602 ckarg(1);
01603 return(call_sunview(xv_pf_close,n,argv));
01604 }
01605 pointer MY_PF_TEXT(n,argv)
01606 int n; register pointer argv[];
01607 {
01608 ckarg(4);
01609 return(call_sunview(xv_pf_text,n,argv));
01610 }
01611 pointer MY_PF_TTEXT(n,argv)
01612 int n; register pointer argv[];
01613 {
01614 ckarg(4);
01615 return(call_sunview(xv_pf_ttext,n,argv));
01616 }
01617
01618 pointer PR_OPEN(n,argv)
01619 int n; register pointer argv[];
01620 {
01621 ckarg(1);
01622 return(call_sunview(pr_open,n,argv));
01623 }
01624 pointer PR_VECTOR(n,argv)
01625 int n; register pointer argv[];
01626 {
01627 register int cargv[12];
01628 largv2cargv(n,argv,cargv,7,7);
01629 pr_vector(((struct pixrect *)cargv[0]),
01630 cargv[1],cargv[2],cargv[3],cargv[4],
01631 cargv[5],cargv[6]);
01632 return(T);
01633 }
01634 pointer PR_POLYGON_2(n,argv)
01635 int n; register pointer argv[];
01636 {
01637 register long cargv[12];
01638 largv2cargv(n,argv,cargv,10,10);
01639 pr_polygon_2(cargv[0],cargv[1],cargv[2],cargv[3],
01640 cargv[4],cargv[5],cargv[6],cargv[7],
01641 cargv[8],cargv[9]);
01642 return(T);
01643 }
01644 pointer PR_REVERSEVIDEO(n,argv)
01645 int n; register pointer argv[];
01646 {
01647 ckarg(3);
01648 return(call_sunview(pr_reversevideo,n,argv));
01649 }
01650 pointer PR_DUMP_INIT(n,argv)
01651 int n; register pointer argv[];
01652 {
01653 ckarg(5);
01654 return(call_sunview(pr_dump_init,n,argv));
01655 }
01656 pointer PR_LOAD_COLORMAP(n,argv)
01657 int n; register pointer argv[];
01658 {
01659 ckarg(3);
01660 return(call_sunview(pr_load_colormap,n,argv));
01661 }
01662 pointer PR_LOAD_HEADER(n,argv)
01663 int n; register pointer argv[];
01664 {
01665 ckarg(2);
01666 return(call_sunview(pr_load_header,n,argv));
01667 }
01668 pointer PR_LOAD_IMAGE(n,argv)
01669 int n; register pointer argv[];
01670 {
01671 ckarg(3);
01672 return(call_sunview(pr_load_image,n,argv));
01673 }
01674 pointer PR_LOAD(n,argv)
01675 int n; register pointer argv[];
01676 {
01677 ckarg(2);
01678 return(call_sunview(pr_load,n,argv));
01679 }
01680 pointer PR_LOAD_STD_IMAGE(n,argv)
01681 int n; register pointer argv[];
01682 {
01683 ckarg(3);
01684 return(call_sunview(pr_load_std_image,n,argv));
01685 }
01686 pointer PR_REPLROP(n,argv)
01687 int n; register pointer argv[];
01688 {
01689 ckarg(9);
01690 return(call_sunview(pr_replrop,n,argv));
01691 }
01692 pointer PR_BLACKONWHITE(n,argv)
01693 int n; register pointer argv[];
01694 {
01695 ckarg(3);
01696 return(call_sunview(pr_blackonwhite,n,argv));
01697 }
01698 pointer PR_WHITEONBLACK(n,argv)
01699 int n; register pointer argv[];
01700 {
01701 ckarg(3);
01702 return(call_sunview(pr_whiteonblack,n,argv));
01703 }
01704 pointer PR_TRAPROP(n,argv)
01705 int n; register pointer argv[];
01706 {
01707 ckarg(8);
01708 return(call_sunview(pr_traprop,n,argv));
01709 }
01710 pointer PR_DUMP_HEADER(n,argv)
01711 int n; register pointer argv[];
01712 {
01713 ckarg(3);
01714 return(call_sunview(pr_dump_header,n,argv));
01715 }
01716 pointer PR_DUMP_IMAGE(n,argv)
01717 int n; register pointer argv[];
01718 {
01719 ckarg(3);
01720 return(call_sunview(pr_dump_image,n,argv));
01721 }
01722 pointer PR_DUMP(n,argv)
01723 int n; register pointer argv[];
01724 {
01725 ckarg(5);
01726 return(call_sunview(pr_dump,n,argv));
01727 }
01728 pointer PR_PUT(n,argv)
01729 int n; register pointer argv[];
01730 {
01731 register long cargv[4];
01732 largv2cargv(n,argv,cargv,4,4);
01733 pr_put((Pixrect *)cargv[0],cargv[1],cargv[2],cargv[3]);
01734 return(T);
01735 }
01736 pointer PR_PUTATTRIBUTES(n,argv)
01737 int n; register pointer argv[];
01738 {
01739 register long cargv[2];
01740 largv2cargv(n,argv,cargv,2,2);
01741 pr_putattributes(cargv[0],cargv[1]);
01742 return(T);
01743 }
01744
01745 pointer PR_REGION(n,argv)
01746 int n; register pointer argv[];
01747 {
01748 ckarg(5);
01749 pr_region(cknumtoint(argv[0]),
01750 cknumtoint(argv[1]),
01751 cknumtoint(argv[2]),
01752 cknumtoint(argv[3]),
01753 cknumtoint(argv[4]));
01754 return(T);
01755 }
01756 pointer PR_STENCIL(n,argv)
01757 int n; register pointer argv[];
01758 {
01759 register long cargv[12];
01760 largv2cargv(n,argv,cargv,12,12);
01761 pr_stencil(cargv[0],cargv[1],cargv[2],cargv[3],
01762 cargv[4],cargv[5],cargv[6],cargv[7],
01763 cargv[8],cargv[9],cargv[10],cargv[11]);
01764 return(T);
01765 }
01766 pointer PR_GET(n,argv)
01767 int n; register pointer argv[];
01768 {
01769 ckarg(3);
01770 return(makebnum(pr_get(cknumtoint(argv[0]),
01771 cknumtoint(argv[1]),cknumtoint(argv[2]))));
01772 }
01773 pointer PR_ROP(n,argv)
01774 int n; register pointer argv[];
01775 {
01776 register long cargv[12];
01777 largv2cargv(n,argv,cargv,9,9);
01778 pr_rop(cargv[0],cargv[1],cargv[2],
01779 cargv[3],cargv[4],cargv[5],
01780 cargv[6],cargv[7],cargv[8]);
01781 return(T);
01782 }
01783 pointer XV_ROP(n,argv)
01784 int n; register pointer argv[];
01785 {
01786 register long cargv[12];
01787 largv2cargv(n,argv,cargv,9,9);
01788 xv_rop(cargv[0],cargv[1],cargv[2],
01789 cargv[3],cargv[4],cargv[5],
01790 cargv[6],cargv[7],cargv[8]);
01791 return(T);
01792 }
01793
01794 pointer PR_DESTROY(n,argv)
01795 int n; register pointer argv[];
01796 {
01797 ckarg(1);
01798 pr_destroy(cknumtoint(argv[0]));
01799 return(T);
01800 }
01801 pointer PR_PUTCOLORMAP(n,argv)
01802 int n; register pointer argv[];
01803 {
01804 register long cargv[6];
01805 largv2cargv(n,argv,cargv,6,6);
01806 pr_putcolormap(cargv[0],cargv[1],cargv[2],cargv[3],cargv[4],
01807 cargv[5]);
01808 return(T);
01809 }
01810
01811
01812
01813 pointer SELN_ASK(n,argv)
01814 int n; register pointer argv[];
01815 {
01816 return(call_sunview(seln_ask,n,argv));
01817 }
01818 pointer SELN_QUERY(n,argv)
01819 int n; register pointer argv[];
01820 {
01821 return(call_sunview(seln_query,n,argv));
01822 }
01823 pointer READER(n,argv)
01824 int n; register pointer argv[];
01825 {
01826 return(call_sunview(reader,n,argv));
01827 }
01828 pointer SELN_ACQUIRE(n,argv)
01829 int n; register pointer argv[];
01830 {
01831 ckarg(2);
01832 return(call_sunview(seln_acquire,n,argv));
01833 }
01834 pointer SELN_DESTROY(n,argv)
01835 int n; register pointer argv[];
01836 {
01837 ckarg(1);
01838 seln_destroy(cknumtoint(argv[0]));
01839 return(T);
01840 }
01841 pointer SELN_DONE(n,argv)
01842 int n; register pointer argv[];
01843 {
01844 ckarg(2);
01845 return(makebnum(seln_done(cknumtoint(argv[0]),cknumtoint(argv[1]))));
01846 }
01847
01848 pointer SELN_FIGURE_RESPONSE(n,argv)
01849 int n; register pointer argv[];
01850 {
01851 ckarg(2);
01852 return(makebnum(seln_figure_response(cknumtoint(argv[0]),
01853 cknumtoint(argv[1]))));
01854 }
01855 pointer SELN_HOLD_FILE(n,argv)
01856 int n; register pointer argv[];
01857 {
01858 ckarg(2);
01859 return(makebnum(seln_hold_file(cknumtoint(argv[0]),
01860 cknumtoint(argv[1]))));
01861 }
01862 pointer SELN_HOLDER_SAME_CLIENT(n,argv)
01863 int n; register pointer argv[];
01864 {
01865 ckarg(2);
01866 return(makebnum(seln_holder_same_client(cknumtoint(argv[0]),
01867 cknumtoint(argv[1]))));
01868 }
01869 pointer SELN_HOLDER_SAME_PROCESS(n,argv)
01870 int n; register pointer argv[];
01871 {
01872 ckarg(1);
01873 return(makebnum(seln_holder_same_process(cknumtoint(argv[0]))));
01874 }
01875 pointer SELN_INFORM(n,argv)
01876 int n; register pointer argv[];
01877 {
01878 ckarg(3);
01879 return(makebnum(seln_inform(cknumtoint(argv[0]),
01880 cknumtoint(argv[1]),
01881 cknumtoint(argv[2]))));
01882 }
01883 pointer SELN_INIT_REQUEST(n,argv)
01884 int n; register pointer argv[];
01885 {
01886 ckarg(2);
01887 return(call_sunview(seln_init_request,n,argv));
01888 }
01889 pointer SELN_INQUIRE(n,argv)
01890 int n; register pointer argv[];
01891 {
01892 ckarg(1);
01893 return(makebnum(seln_inquire(cknumtoint(argv[0]))));
01894 }
01895 pointer my_SELN_REQUEST(n,argv)
01896 int n; register pointer argv[];
01897 {
01898 ckarg(2);
01899 return(makebnum(seln_request(cknumtoint(argv[0]),cknumtoint(argv[1]))));
01900 }
01901 pointer SELN_SAME_HOLDER(n,argv)
01902 int n; register pointer argv[];
01903 {
01904 ckarg(2);
01905 return(makebnum(seln_same_holder(cknumtoint(argv[0]),
01906 cknumtoint(argv[1]))));
01907 }
01908 pointer SELN_SECONDARY_EXISTS(n,argv)
01909 int n; register pointer argv[];
01910 {
01911 ckarg(1);
01912 return(makebnum(seln_secondary_exists(cknumtoint(argv[0]))));
01913 }
01914 pointer SELN_SECONDARY_MADE(n,argv)
01915 int n; register pointer argv[];
01916 {
01917 ckarg(1);
01918 return(makebnum(seln_secondary_made(cknumtoint(argv[0]))));
01919 }
01920 pointer SELN_USE_TIMEOUT(n,argv)
01921 int n; register pointer argv[];
01922 {
01923 ckarg(1);
01924 seln_use_timeout(cknumtoint(argv[0]));
01925 return(T);
01926 }
01927 pointer SELN_YIELD_ALL(n,argv)
01928 int n; register pointer argv[];
01929 {
01930 ckarg(0);
01931 (void) seln_yield_all();
01932 return(T);
01933 }
01934
01935 pointer GET_SELECTION(n,argv)
01936 int n;
01937 register pointer argv[];
01938 {
01939 Seln_holder holder;
01940 Seln_request *buffer;
01941 int len;
01942 ckarg(0);
01943 holder = seln_inquire(SELN_PRIMARY);
01944 buffer = seln_ask(&holder, SELN_REQ_CONTENTS_ASCII, 0, 0);
01945 len = strlen(buffer->data + sizeof(Seln_attribute));
01946 return(makestring(buffer->data + sizeof(Seln_attribute),
01947 len));
01948 }
01949
01950 pointer ADR_TO_STRING(n,argv)
01951 int n;
01952 register pointer argv[];
01953 {
01954 char *ptr;
01955 ckarg(1);
01956 ptr = (char *) cknumtoint(argv[0]);
01957 if ((int)ptr<10000) error("ADR_TO_STRING: invalid string pointer");
01958 return(makestring(ptr,strlen(ptr)));
01959 }
01960
01961
01962
01963
01964
01965
01966
01967
01968
01969
01970
01971
01972
01973
01974
01975
01976 pointer EXPAND_NAME(n,argv)
01977 int n; register pointer argv[];
01978 {
01979 static struct namelist *name_list;
01980 register pointer temp;
01981 register int i;
01982 ckarg(1);
01983 name_list = xv_expand_name(ckstrchr(argv[0]));
01984 temp = makevector(C_VECTOR,name_list->count);
01985 vpush(temp);
01986 for (i=0; i< name_list->count; i++) {
01987 temp->c.vec.v[i] =
01988 makestring(name_list->names[i],
01989 strlen(name_list->names[i]));
01990 }
01991 free_namelist(name_list);
01992 return(vpop());
01993 }
01994
01995
01996 pointer ICON_LOAD(n,argv)
01997 int n; register pointer argv[];
01998 {
01999 ckarg(3);
02000 return(makebnum(icon_load(cknumtoint(argv[0]),
02001 cknumtoint(argv[1]),
02002 cknumtoint(argv[2]))));
02003 }
02004 pointer ICON_INIT_FROM_PR(n,argv)
02005 int n; register pointer argv[];
02006 {
02007 ckarg(2);
02008 return(makebnum(icon_init_from_pr(cknumtoint(argv[0]),
02009 cknumtoint(argv[1]))));
02010 }
02011 pointer ICON_LOAD_MPR(n,argv)
02012 int n; register pointer argv[];
02013 {
02014 ckarg(2);
02015 return(makebnum(icon_load_mpr(cknumtoint(argv[0]),
02016 cknumtoint(argv[1]))));
02017 }
02018 pointer ICON_OPEN_HEADER(n,argv)
02019 int n; register pointer argv[];
02020 {
02021 ckarg(3);
02022 return(makebnum(icon_open_header(cknumtoint(argv[0]),
02023 cknumtoint(argv[1]),
02024 cknumtoint(argv[2]))));
02025 }
02026
02027
02028
02029 pointer EVENT_ID(n,argv)
02030 int n; register pointer argv[];
02031 {
02032 ckarg(1);
02033 return(makebnum(event_id(cknumtoint(argv[0]))));
02034 }
02035 pointer EVENT_IS_UP(n,argv)
02036 int n; register pointer argv[];
02037 {
02038 ckarg(1);
02039 return(makebool(event_is_up(cknumtoint(argv[0]))));
02040 }
02041 pointer EVENT_IS_DOWN(n,argv)
02042 int n; register pointer argv[];
02043 {
02044 ckarg(1);
02045 return(makebool(event_is_down(cknumtoint(argv[0]))));
02046 }
02047 pointer EVENT_X(n,argv)
02048 int n; register pointer argv[];
02049 {
02050 ckarg(1);
02051 return(makebnum(event_x(cknumtoint(argv[0]))));
02052 }
02053 pointer EVENT_Y(n,argv)
02054 int n; register pointer argv[];
02055 {
02056 ckarg(1);
02057 return(makebnum(event_y(cknumtoint(argv[0]))));
02058 }
02059 pointer EVENT_SHIFTMASK(n,argv)
02060 int n; register pointer argv[];
02061 {
02062 ckarg(1);
02063 return(makebnum(event_shiftmask(cknumtoint(argv[0]))));
02064 }
02065
02066 pointer EVENT_TIME(n,argv)
02067 int n; register pointer argv[];
02068 {
02069 long e;
02070 ckarg(1);
02071 e = cknumtoint(argv[0]);
02072 return(makeflt(
02073 (float)((event_time(e) . tv_sec) - (long)saved_time)
02074 + ((float)(event_time(e) . tv_usec) / 1000000.0)));
02075 }
02076 pointer EVENT_SET_TIME(n,argv)
02077 int n; register pointer argv[];
02078 {
02079 struct timeval ti;
02080 float v;
02081 ckarg(2);
02082 v = cknumtoint(argv[1]);
02083 ti . tv_sec = (int) v;
02084 v -= ti . tv_sec;
02085 ti . tv_usec = (int)(1000000 * v);
02086 event_set_time(cknumtoint(argv[0]),ti);
02087 return(T);
02088 }
02089 pointer EVENT_SHIFT_IS_DOWN(n,argv)
02090 int n; register pointer argv[];
02091 {
02092 ckarg(1);
02093 return(makebool(event_shift_is_down(cknumtoint(argv[0]))));
02094 }
02095 pointer EVENT_CTRL_IS_DOWN(n,argv)
02096 int n; register pointer argv[];
02097 {
02098 ckarg(1);
02099 return(makebool(event_ctrl_is_down(cknumtoint(argv[0]))));
02100 }
02101 pointer EVENT_META_IS_DOWN(n,argv)
02102 int n; register pointer argv[];
02103 {
02104 ckarg(1);
02105 return(makebool(event_meta_is_down(cknumtoint(argv[0]))));
02106 }
02107 pointer EVENT_IS_BUTTON(n,argv)
02108 int n; register pointer argv[];
02109 {
02110 ckarg(1);
02111 return(makebool(event_is_button(cknumtoint(argv[0]))));
02112 }
02113 pointer EVENT_IS_ASCII(n,argv)
02114 int n; register pointer argv[];
02115 {
02116 ckarg(1);
02117 return(makebool(event_is_ascii(cknumtoint(argv[0]))));
02118 }
02119 pointer EVENT_IS_META(n,argv)
02120 int n; register pointer argv[];
02121 {
02122 ckarg(1);
02123 return(makebool(event_is_meta(cknumtoint(argv[0]))));
02124 }
02125 pointer EVENT_IS_KEY_LEFT(n,argv)
02126 int n; register pointer argv[];
02127 {
02128 ckarg(1);
02129 return(makebool(event_is_key_left(cknumtoint(argv[0]))));
02130 }
02131 pointer EVENT_IS_KEY_RIGHT(n,argv)
02132 int n; register pointer argv[];
02133 {
02134 ckarg(1);
02135 return(makebool(event_is_key_right(cknumtoint(argv[0]))));
02136 }
02137 pointer EVENT_IS_KEY_TOP(n,argv)
02138 int n; register pointer argv[];
02139 {
02140 ckarg(1);
02141 return(makebool(event_is_key_top(cknumtoint(argv[0]))));
02142 }
02143
02144 pointer EVENT_SET_ID(n,argv)
02145 int n; register pointer argv[];
02146 {
02147 ckarg(2);
02148 event_set_id(cknumtoint(argv[0]),cknumtoint(argv[1]));
02149 return(T);
02150 }
02151 pointer EVENT_SET_SHIFTMASK(n,argv)
02152 int n; register pointer argv[];
02153 {
02154 ckarg(2);
02155 return(makebnum(event_set_shiftmask(cknumtoint(argv[0]),
02156 cknumtoint(argv[1]))));
02157 }
02158 pointer EVENT_SET_X(n,argv)
02159 int n; register pointer argv[];
02160 {
02161 ckarg(2);
02162 return(makebnum(event_set_x(cknumtoint(argv[0]),
02163 cknumtoint(argv[1]))));
02164 }
02165 pointer EVENT_SET_Y(n,argv)
02166 int n; register pointer argv[];
02167 {
02168 ckarg(2);
02169 return(makebnum(event_set_y(cknumtoint(argv[0]),
02170 cknumtoint(argv[1]))));
02171 }
02172 pointer EVENT_SET_UP(n,argv)
02173 int n; register pointer argv[];
02174 {
02175 ckarg(1);
02176 return(makebnum(event_set_up(cknumtoint(argv[0]))));
02177 }
02178 pointer EVENT_SET_DOWN(n,argv)
02179 int n; register pointer argv[];
02180 {
02181 ckarg(1);
02182 return(makebnum(event_set_down(cknumtoint(argv[0]))));
02183 }
02184
02185 pointer L_KEY_LEFT(n,argv)
02186 int n; register pointer argv[];
02187 {
02188 ckarg(1);
02189 return(makebnum(KEY_LEFT((int)cknumtoint(argv[0]))));
02190 }
02191 pointer L_KEY_RIGHT(n,argv)
02192 int n; register pointer argv[];
02193 {
02194 ckarg(1);
02195 return(makebnum(KEY_RIGHT((int)cknumtoint(argv[0]))));
02196 }
02197 pointer L_KEY_TOP(n,argv)
02198 int n; register pointer argv[];
02199 {
02200 ckarg(1);
02201 return(makebnum(KEY_TOP((int)cknumtoint(argv[0]))));
02202 }
02203 pointer L_BUT(n,argv)
02204 int n; register pointer argv[];
02205 {
02206 ckarg(1);
02207 return(makebnum(BUT((int)cknumtoint(argv[0]))));
02208 }
02209
02210
02211 pointer PEEK_BYTE(n,argv)
02212 int n; register pointer argv[];
02213 {
02214 char *cp;
02215 int offset;
02216 char c;
02217 ckarg(2);
02218 cp = cknumtoint(argv[0]);
02219 offset = cknumtoint(argv[1]);
02220 c = *(char *)(cp + offset);
02221 return(makeint(c));
02222 }
02223
02224 pointer PEEK_SHORT(n,argv)
02225 int n;
02226 register pointer argv[];
02227 {
02228 char *cp;
02229 int offset;
02230 short v;
02231 ckarg(2);
02232 cp = cknumtoint(argv[0]);
02233 offset = cknumtoint(argv[1]);
02234 v = *(short *)(cp + offset);
02235 return(makeint(v));
02236 }
02237 pointer PEEK_LONG(n,argv)
02238 int n;
02239 register pointer argv[];
02240 {
02241 char *cp;
02242 int offset;
02243 long v;
02244 ckarg(2);
02245 cp = cknumtoint(argv[0]);
02246 offset = cknumtoint(argv[1]);
02247 v = *(long *)(cp + offset);
02248 return(makeint(v));
02249 }
02250 pointer PEEK_DOUBLE(n,argv)
02251 int n;
02252 register pointer argv[];
02253 {
02254 char *cp;
02255 int offset;
02256 double v;
02257 ckarg(2);
02258 cp = cknumtoint(argv[0]);
02259 offset = cknumtoint(argv[1]);
02260 v = *(double *)(cp + offset);
02261 return(makeflt(v));
02262 }
02263
02264 init_xview(mod)
02265 pointer mod;
02266 {
02267 defun("XV_COL",mod,XV_COL);
02268 defun("XV_ROW",mod,XV_ROW);
02269
02270 defun("WINDOW_CREATE",mod,WINDOW_CREATE);
02271 defun("WINDOW_CREATE_FRAME",mod,WINDOW_CREATE_FRAME);
02272 defun("WINDOW_CREATE_PANEL",mod,WINDOW_CREATE_PANEL);
02273 defun("WINDOW_CREATE_CANVAS",mod,WINDOW_CREATE_CANVAS);
02274 defun("WINDOW_CREATE_TTY",mod,WINDOW_CREATE_TTY);
02275 defun("WINDOW_CREATE_TEXTSW",mod,WINDOW_CREATE_TEXTSW);
02276 defun("WINDOW_SET",mod,WINDOW_SET);
02277 defun("WINDOW_GET",mod,WINDOW_GET);
02278 defun("WINDOW_FIT",mod,WINDOW_FIT);
02279 defun("WINDOW_MAIN_LOOP",mod,WINDOW_MAIN_LOOP);
02280 defun("WINDOW_DONE",mod,WINDOW_DONE);
02281 defun("WINDOW_DESTROY",mod,WINDOW_DESTROY);
02282 defun("WINDOW_BELL",mod,WINDOW_BELL);
02283 defun("WINDOW_READ_EVENT",mod,WINDOW_READ_EVENT);
02284 defun("WINDOW_REFUSE_KBD_FOCUS",mod,WINDOW_REFUSE_KBD_FOCUS);
02285 defun("WINDOW_FIT_HEIGHT",mod,WINDOW_FIT_HEIGHT);
02286 defun("WINDOW_FIT_WIDTH",mod,WINDOW_FIT_WIDTH);
02287 defun("WINDOW_RELEASE_EVENT_LOCK",mod,WINDOW_RELEASE_EVENT_LOCK);
02288
02289 defun("CANVAS_PIXWIN",mod,GET_CANVAS_PIXWIN);
02290 defun("CANVAS_PAINT_WINDOW",mod,my_CANVAS_PAINT_WINDOW);
02291
02292 defun("CANVAS_EVENT",mod,CANVAS_EVENT);
02293 defun("CANVAS_WINDOW_EVENT",mod,CANVAS_WINDOW_EVENT);
02294
02295 defun("MENU_SET",mod,MENU_SET);
02296 defun("MENU_CREATE",mod,my_MENU_CREATE);
02297 defun("MENU_CREATE_ITEM",mod,MENU_CREATE_ITEM);
02298 defun("MENU_DESTROY",mod,my_MENU_DESTROY);
02299 defun("MENU_DESTROY_WITH_PROC",mod,MENU_DESTROY_WITH_PROC);
02300 defun("MENU_FIND",mod,MENU_FIND);
02301 defun("MENU_GET",mod,MENU_GET);
02302 defun("MENU_SHOW",mod,MENU_SHOW);
02303 defun("MENU_RETURN_ITEM",mod,MENU_RETURN_ITEM);
02304 defun("MENU_RETURN_VALUE",mod,MENU_RETURN_VALUE);
02305
02306 defun("PANEL_SET",mod,PANEL_SET);
02307 defun("PANEL_FREE",mod,PANEL_FREE);
02308 defun("PANEL_ACCEPT_KEY",mod,PANEL_ACCEPT_KEY);
02309 defun("PANEL_ACCEPT_MENU",mod,PANEL_ACCEPT_MENU);
02310 defun("PANEL_ACCEPT_PREVIEW",mod,PANEL_ACCEPT_PREVIEW);
02311 defun("PANEL_BEGIN_PREVIEW",mod,PANEL_BEGIN_PREVIEW);
02312 defun("PANEL_CANCEL_PREVIEW",mod,PANEL_CANCEL_PREVIEW);
02313 defun("PANEL_ADVANCE_CARET",mod,PANEL_ADVANCE_CARET);
02314 defun("PANEL_BACKUP_CARET",mod,PANEL_BACKUP_CARET);
02315 defun("PANEL_BUTTON_IMAGE",mod,PANEL_BUTTON_IMAGE);
02316 defun("PANEL_CREATE_ITEM",mod,PANEL_CREATE_ITEM);
02317 defun("PANEL_CREATE_MESSAGE",mod,PANEL_CREATE_MESSAGE);
02318 defun("PANEL_CREATE_BUTTON",mod,PANEL_CREATE_BUTTON);
02319 defun("PANEL_CREATE_CHOICE",mod,PANEL_CREATE_CHOICE);
02320 defun("PANEL_CREATE_CYCLE",mod,PANEL_CREATE_CYCLE);
02321 defun("PANEL_CREATE_TOGGLE",mod,PANEL_CREATE_TOGGLE);
02322 defun("PANEL_CREATE_TEXT",mod,PANEL_CREATE_TEXT);
02323 defun("PANEL_CREATE_SLIDER",mod,PANEL_CREATE_SLIDER);
02324 defun("PANEL_DEFAULT_HANDLE_EVENT",mod,PANEL_DEFAULT_HANDLE_EVENT);
02325 defun("PANEL_EVENT",mod,PANEL_EVENT);
02326 defun("PANEL_DESTROY_ITEM",mod,PANEL_DESTROY_ITEM);
02327 defun("PANEL_GET",mod,my_PANEL_GET);
02328 defun("PANEL_GET_VALUE",mod,PANEL_GET_VALUE);
02329 defun("PANEL_UPDATE_SCROLLING_SIZE",mod,PANEL_UPDATE_SCROLLING_SIZE);
02330 defun("PANEL_UPDATE_PREVIEW",mod,PANEL_UPDATE_PREVIEW);
02331 defun("PANEL_WINDOW_EVENT",mod,PANEL_WINDOW_EVENT);
02332 defun("PANEL_TEXT_NOTIFY",mod,PANEL_TEXT_NOTIFY);
02333 defun("PANEL_SET_VALUE",mod,PANEL_SET_VALUE);
02334 defun("PANEL_PAINT",mod,my_PANEL_PAINT);
02335
02336
02337 defun("ICON_CREATE",mod,ICON_CREATE);
02338 defun("ICON_SET",mod,ICON_SET);
02339 defun("ICON_GET",mod,ICON_GET);
02340 defun("ICON_DESTROY",mod,ICON_DESTROY);
02341 defun("ICON_LOAD",mod,ICON_LOAD);
02342 defun("ICON_INIT_FROM_PR",mod,ICON_INIT_FROM_PR);
02343 defun("ICON_LOAD_MPR",mod,ICON_LOAD_MPR);
02344 defun("ICON_OPEN_HEADER",mod,ICON_OPEN_HEADER);
02345
02346 defun("PW_BATCH",mod,PW_BATCH);
02347 defun("PW_BATCH_OFF",mod,PW_BATCH_OFF);
02348 defun("PW_BATCH_ON",mod,PW_BATCH_ON);
02349 defun("PW_BATCHROP",mod,PW_BATCHROP);
02350 defun("PW_CHAR",mod,PW_CHAR);
02351 defun("PW_COPY",mod,PW_COPY);
02352 defun("PW_GET",mod,PW_GET);
02353 defun("PW_LINE",mod,MY_PW_LINE);
02354 defun("PW_LOCK",mod,PW_LOCK);
02355 defun("PW_PFSYSCLOSE",mod,PW_PFSYSCLOSE);
02356 defun("PW_POLYGON_2",mod,PW_POLYGON_2);
02357 defun("PW_POLYLINE",mod,MY_PW_POLYLINE);
02358 defun("PW_POLYPOINT",mod,MY_PW_POLYPOINT);
02359 defun("PW_PUT",mod,PW_PUT);
02360 defun("PW_READ",mod,PW_READ);
02361 defun("PW_REPLROP",mod,MY_PW_REPLROP);
02362 defun("PW_ROP",mod,MY_PW_ROP);
02363 defun("PW_SHOW",mod,my_PW_SHOW);
02364 defun("PW_STENCIL",mod,MY_PW_STENCIL);
02365 defun("PW_TEXT",mod,MY_PW_TEXT);
02366 defun("PW_TTEXT",mod,PW_TTEXT);
02367 defun("PW_UNLOCK",mod,PW_UNLOCK);
02368 defun("PW_VECTOR",mod,MY_PW_VECTOR);
02369 defun("PW_WRITE",mod,PW_WRITE);
02370 defun("PW_WRITEBACKGROUND",mod,PW_WRITEBACKGROUND);
02371 defun("PW_BLACKONWHITE",mod,PW_BLACKONWHITE);
02372 defun("PW_CYCLECOLORMAP",mod,PW_CYCLECOLORMAP);
02373 defun("PW_GETATTRIBUTES",mod,PW_GETATTRIBUTES);
02374 defun("PW_GETCMSNAME",mod,PW_GETCMSNAME);
02375 defun("PW_GETCOLORMAP",mod,PW_GETCOLORMAP);
02376 defun("PW_PUTCOLORMAP",mod,PW_PUTCOLORMAP);
02377 defun("PW_REVERSEVIDEO",mod,PW_REVERSEVIDEO);
02378 defun("PW_SETCMSNAME",mod,PW_SETCMSNAME);
02379 defun("PW_WHITEONBLACK",mod,PW_WHITEONBLACK);
02380
02381 defun("TEXTSW_ADD_MARK",mod,TEXTSW_ADD_MARK);
02382 defun("TEXTSW_APPEND_FILE_NAME",mod,TEXTSW_APPEND_FILE_NAME);
02383 defun("TEXTSW_DELETE",mod,TEXTSW_DELETE);
02384 defun("TEXTSW_EDIT",mod,TEXTSW_EDIT);
02385 defun("TEXTSW_ERASE",mod,TEXTSW_ERASE);
02386 defun("TEXTSW_FILE_LINES_VISIBLE",mod,TEXTSW_FILE_LINES_VISIBLE);
02387 defun("TEXTSW_FIND_BYTES",mod,TEXTSW_FIND_BYTES);
02388 defun("TEXTSW_MATCH_BYTES",mod,TEXTSW_MATCH_BYTES);
02389 defun("TEXTSW_FIND_MARK",mod,TEXTSW_FIND_MARK);
02390 defun("TEXTSW_FIRST",mod,my_TEXTSW_FIRST);
02391 defun("TEXTSW_INDEX_FOR_FILE_LINE",mod,TEXTSW_INDEX_FOR_FILE_LINE);
02392 defun("TEXTSW_INSERT",mod,TEXTSW_INSERT);
02393 defun("TEXTSW_NEXT",mod,TEXTSW_NEXT);
02394 defun("TEXTSW_NORMALIZE_VIEW",mod,TEXTSW_NORMALIZE_VIEW);
02395 defun("TEXTSW_POSSIBLY_NORMALIZE",mod,TEXTSW_POSSIBLY_NORMALIZE);
02396 defun("TEXTSW_REMOVE_MARK",mod,TEXTSW_REMOVE_MARK);
02397 defun("TEXTSW_REPLACE_BYTES",mod,TEXTSW_REPLACE_BYTES);
02398 defun("TEXTSW_RESET",mod,TEXTSW_RESET);
02399 defun("TEXTSW_SAVE",mod,TEXTSW_SAVE);
02400 defun("TEXTSW_SCREEN_LINE_COUNT",mod,TEXTSW_SCREEN_LINE_COUNT);
02401 defun("TEXTSW_SCROLL_LINES",mod,TEXTSW_SCROLL_LINES);
02402 defun("TEXTSW_STORE_FILE",mod,TEXTSW_STORE_FILE);
02403 defun("TEXTSW_SET_SELECTION",mod,TEXTSW_SET_SELECTION);
02404
02405 defun("TTYSW_INPUT",mod,TTYSW_INPUT);
02406 defun("TTYSW_OUTPUT",mod,TTYSW_OUTPUT);
02407
02408 defun("NOTIFY_DEFAULT_WAIT3",mod,NOTIFY_DEFAULT_WAIT3);
02409 defun("NOTIFY_DISPATCH",mod,L_NOTIFY_DISPATCH);
02410 defun("NOTIFY_DO_DISPATCH",mod,NOTIFY_DO_DISPATCH);
02411 defun("NOTIFY_INTERPOSE_DESTROY_FUNC",mod,
02412 NOTIFY_INTERPOSE_DESTROY_FUNC);
02413 defun("NOTIFY_INTERPOSE_EVENT_FUNC",mod,
02414 NOTIFY_INTERPOSE_EVENT_FUNC);
02415 defun("NOTIFY_ITIMER_VALUE",mod,NOTIFY_ITIMER_VALUE);
02416 defun("NOTIFY_NEXT_DESTROY_FUNC",mod,NOTIFY_NEXT_DESTROY_FUNC);
02417 defun("NOTIFY_NEXT_EVENT_FUNC",mod,NOTIFY_NEXT_EVENT_FUNC);
02418 defun("NOTIFY_SET_DESTROY_FUNC",mod,NOTIFY_SET_DESTROY_FUNC);
02419 defun("NOTIFY_SET_EXCEPTION_FUNC",mod,NOTIFY_SET_EXCEPTION_FUNC);
02420 defun("NOTIFY_SET_INPUT_FUNC",mod,NOTIFY_SET_INPUT_FUNC);
02421 defun("NOTIFY_SET_ITIMER_FUNC",mod,NOTIFY_SET_ITIMER_FUNC);
02422 defun("NOTIFY_SET_SIGNAL_FUNC",mod,NOTIFY_SET_SIGNAL_FUNC);
02423 defun("NOTIFY_SET_OUTPUT_FUNC",mod,NOTIFY_SET_OUTPUT_FUNC);
02424 defun("NOTIFY_SET_WAIT3_FUNC",mod,NOTIFY_SET_WAIT3_FUNC);
02425 defun("NOTIFY_START",mod,NOTIFY_START);
02426 defun("NOTIFY_STOP",mod,NOTIFY_STOP);
02427 defun("NOTIFY_NO_DISPATCH",mod,NOTIFY_NO_DISPATCH);
02428 defun("NOTIFY_PERROR",mod,NOTIFY_PERROR);
02429 defun("NOTIFY_VETO_DESTROY",mod,NOTIFY_VETO_DESTROY);
02430
02431 defun("MPR_LINEBYTES",mod,MPR_LINEBYTES);
02432 defun("MEM_CREATE",mod,MEM_CREATE);
02433 defun("MEM_POINT",mod,MEM_POINT);
02434
02435 defun("PF_TEXTBATCH",mod,PF_TEXTBATCH);
02436 defun("PF_TEXTWIDTH",mod,PF_TEXTWIDTH);
02437 defun("PF_CLOSE",mod,MY_PF_CLOSE);
02438 defun("PF_TEXT",mod,MY_PF_TEXT);
02439 defun("PF_TTEXT",mod,MY_PF_TTEXT);
02440
02441 defun("PF_DEFAULT",mod,PF_DEFAULT);
02442 defun("PF_OPEN",mod,PF_OPEN);
02443 defun("PF_OPEN_PRIVATE",mod,PF_OPEN_PRIVATE);
02444
02445 defun("PR_OPEN",mod,PR_OPEN);
02446 defun("PR_VECTOR",mod,PR_VECTOR);
02447 defun("PR_POLYGON_2",mod,PR_POLYGON_2);
02448 defun("PR_REVERSEVIDEO",mod,PR_REVERSEVIDEO);
02449 defun("PR_DUMP_INIT",mod,PR_DUMP_INIT);
02450 defun("PR_LOAD_COLORMAP",mod,PR_LOAD_COLORMAP);
02451 defun("PR_LOAD_HEADER",mod,PR_LOAD_HEADER);
02452 defun("PR_LOAD_IMAGE",mod,PR_LOAD_IMAGE);
02453 defun("PR_LOAD",mod,PR_LOAD);
02454 defun("PR_LOAD_STD_IMAGE",mod,PR_LOAD_STD_IMAGE);
02455 defun("PR_REPLROP",mod,PR_REPLROP);
02456 defun("PR_BLACKONWHITE",mod,PR_BLACKONWHITE);
02457 defun("PR_WHITEONBLACK",mod,PR_WHITEONBLACK);
02458 defun("PR_TRAPROP",mod,PR_TRAPROP);
02459 defun("PR_DUMP_HEADER",mod,PR_DUMP_HEADER);
02460 defun("PR_DUMP_IMAGE",mod,PR_DUMP_IMAGE);
02461 defun("PR_DUMP",mod,PR_DUMP);
02462 defun("PR_PUT",mod,PR_PUT);
02463 defun("PR_PUTATTRIBUTES",mod,PR_PUTATTRIBUTES);
02464
02465 defun("PR_REGION",mod,PR_REGION);
02466 defun("PR_STENCIL",mod,PR_STENCIL);
02467 defun("PR_GET",mod,PR_GET);
02468 defun("PR_ROP",mod,PR_ROP);
02469 defun("PR_DESTROY",mod,PR_DESTROY);
02470 defun("PR_PUTCOLORMAP",mod,PR_PUTCOLORMAP);
02471
02472 defun("XV_ROP",mod,XV_ROP);
02473
02474
02475
02476
02477
02478
02479
02480
02481
02482
02483
02484
02485
02486
02487
02488 defun("SELN_ASK",mod,SELN_ASK);
02489 defun("SELN_INIT_REQUEST",mod,SELN_INIT_REQUEST);
02490 defun("SELN_QUERY",mod,SELN_QUERY);
02491 defun("SELN_FIGURE_RESPONSE",mod,SELN_FIGURE_RESPONSE);
02492 defun("SELN_ACQUIRE",mod,SELN_ACQUIRE);
02493 defun("SELN_DESTROY",mod,SELN_DESTROY);
02494 defun("SELN_DONE",mod,SELN_DONE);
02495 defun("SELN_HOLD_FILE",mod,SELN_HOLD_FILE);
02496 defun("SELN_HOLDER_SAME_CLIENT",mod,SELN_HOLDER_SAME_CLIENT);
02497 defun("SELN_HOLDER_SAME_PROCESS",mod,SELN_HOLDER_SAME_PROCESS);
02498 defun("SELN_INFORM",mod,SELN_INFORM);
02499 defun("SELN_INQUIRE",mod,SELN_INQUIRE);
02500 defun("SELN_REQUEST",mod,my_SELN_REQUEST);
02501 defun("SELN_SAME_HOLDER",mod,SELN_SAME_HOLDER);
02502 defun("SELN_SECONDARY_EXISTS",mod,SELN_SECONDARY_EXISTS);
02503 defun("SELN_SECONDARY_MADE",mod,SELN_SECONDARY_MADE);
02504 defun("SELN_USE_TIMEOUT",mod,SELN_USE_TIMEOUT);
02505 defun("SELN_YIELD_ALL",mod,SELN_YIELD_ALL);
02506 defun("READER",mod,READER);
02507
02508
02509
02510
02511
02512
02513
02514
02515
02516
02517
02518
02519 defun("EVENT_ID",mod,EVENT_ID);
02520 defun("EVENT_IS_UP",mod,EVENT_IS_UP);
02521 defun("EVENT_IS_DOWN",mod,EVENT_IS_DOWN);
02522 defun("EVENT_X",mod,EVENT_X);
02523 defun("EVENT_Y",mod,EVENT_Y);
02524 defun("EVENT_SHIFTMASK",mod,EVENT_SHIFTMASK);
02525 defun("EVENT_TIME",mod,EVENT_TIME);
02526 defun("EVENT_SET_TIME",mod,EVENT_SET_TIME);
02527 defun("EVENT_SHIFT_IS_DOWN",mod,EVENT_SHIFT_IS_DOWN);
02528 defun("EVENT_CTRL_IS_DOWN",mod,EVENT_CTRL_IS_DOWN);
02529 defun("EVENT_META_IS_DOWN",mod,EVENT_META_IS_DOWN);
02530 defun("EVENT_IS_BUTTON",mod,EVENT_IS_BUTTON);
02531 defun("EVENT_IS_ASCII",mod,EVENT_IS_ASCII);
02532 defun("EVENT_IS_META",mod,EVENT_IS_META);
02533 defun("EVENT_IS_KEY_LEFT",mod,EVENT_IS_KEY_LEFT);
02534 defun("EVENT_IS_KEY_RIGHT",mod,EVENT_IS_KEY_RIGHT);
02535 defun("EVENT_IS_KEY_TOP",mod,EVENT_IS_KEY_TOP);
02536 defun("EVENT_SET_ID",mod,EVENT_SET_ID);
02537 defun("EVENT_SET_SHIFTMASK",mod,EVENT_SET_SHIFTMASK);
02538 defun("EVENT_SET_X",mod,EVENT_SET_X);
02539 defun("EVENT_SET_Y",mod,EVENT_SET_Y);
02540 defun("EVENT_SET_UP",mod,EVENT_SET_UP);
02541 defun("EVENT_SET_DOWN",mod,EVENT_SET_DOWN);
02542
02543 defun("KEY_LEFT",mod,L_KEY_LEFT);
02544 defun("KEY_RIGHT",mod,L_KEY_RIGHT);
02545 defun("KEY_TOP",mod,L_KEY_TOP);
02546 defun("BUT",mod,L_BUT);
02547
02548 defun("GET_SELECTION",mod,GET_SELECTION);
02549 defun("ADR_TO_STRING",mod,ADR_TO_STRING);
02550 defun("EXPAND_NAME",mod,EXPAND_NAME);
02551 defun("PEEK_BYTE",mod,PEEK_BYTE);
02552 defun("PEEK_SHORT",mod,PEEK_SHORT);
02553 defun("PEEK_LONG",mod,PEEK_LONG);
02554 defun("PEEK_DOUBLE",mod,PEEK_DOUBLE);
02555
02556 defun("SCROLLBAR_CREATE",mod,SCROLLBAR_CREATE);
02557
02558 }