xview.c
Go to the documentation of this file.
00001 /****************************************************************/
00002 /* xview.c
00003 /*      euslisp to xview interface functions
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 #include <xview/menu.h>
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   extern notify_default_wait3();
00049 extern notify_dispatch();
00050 extern notify_do_dispatch();
00051 extern notify_interpose_destroy_func();
00052 extern notify_interpose_event_func();
00053 extern notify_itimer_value();
00054 extern notify_next_destroy_func();
00055 extern notify_next_event_func();
00056 extern notify_set_destroy_func();
00057 extern notify_set_exception_func();
00058 extern notify_set_input_func();
00059 extern notify_set_itimer_func();
00060 extern notify_set_signal_func();
00061 extern notify_set_output_func();
00062 extern notify_set_wait3_func();
00063 extern notify_start();
00064 extern notify_stop();
00065 extern notify_no_dispatch();
00066 extern notify_perror();
00067 extern notify_veto_destroy();
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 /* XView CONVERSION - No longer blocks until menu taken down. Need to specify a MENU_DONE_PROC or even better, a MENU_ACTON_PROC for each menu item. See Sect 2.5 in API Guide */
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 /* XView CONVERSION - Still supported, but for OPEN LOOK buttons, should use PANEL_LABEL_STRING for PANEL_BUTTON items. Sect 3.2  */
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 /* XView CONVERSION - You may wish to change this to xv_get format. Look at panel.h and/or See Sect 2.5 */
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 /* XView CONVERSION - You may wish to change this to xv_get format. Look at panel.h and/or See Sect 2.5 */
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 /* XView CONVERSION - You may wish to change this to xv_set format. Look at panel.h and/or See Sect 2.5 */
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 /* XView CONVERSION - Need to set WIN_DYNAMIC_VISUAL. See Sect 4.3 */
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 /* XView CONVERSION - Need to set WIN_DYNAMIC_VISUAL. See Sect 4.3 */
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 /* XView CONVERSION - Possibly Defunct. See Sect 2.3 SCROLL_ 3.2 */
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 /* pixrect */
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 /*  Next 4 lines for old version 3.3 of SUNVIEW */
01529 /*
01530 extern pr_dump_init();
01531 extern pr_load_image();
01532 extern pr_load();
01533 extern pr_load_std_image();
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   /* XView CONVERSION - Use xv_pf_text instead. Remember to extern it.  */
01566   /* XView CONVERSION - Use xv_pf_textbatch instead.  Remember to extern it. */
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   /* XView CONVERSION - Use xv_pf_text instead. Remember to extern it.  */
01574   /* XView CONVERSION - Use xv_pf_textwidth instead.  Remember to extern it. */
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   /* XView CONVERSION - Use xv_pf_open_private instead.  Remember to extern it. */
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   /* XView CONVERSION - If function pf_default use xv_pf_default. If struct value ignore. Remember to extern it. */
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 /* seln */
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 pointer PW_GET_X_OFFSET(n,argv)
01963      int n; register pointer argv[];
01964 {
01965   ckarg(1);
01966   return(makeint(pw_get_x_offset(cknumtoint(argv[0]))));
01967 }
01968 pointer PW_GET_Y_OFFSET(n,argv)
01969      int n; register pointer argv[];
01970 {
01971   ckarg(1);
01972   return(makeint(pw_get_y_offset(cknumtoint(argv[0]))));
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 /* event */
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]);     /* addr pointer */
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]);     /* addr pointer */
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]);     /* addr pointer */
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]);     /* addr pointer */
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     defun("PRS_REGION",mod,PRS_REGION);
02476   defun("PRS_STENCIL",mod,PRS_STENCIL);
02477   defun("PRS_ROP",mod,PRS_ROP);
02478   defun("PRS_GET",mod,PRS_GET);
02479   defun("PRS_VECTOR",mod,PRS_VECTOR);
02480   defun("PRS_GETCOLORMAP",mod,PRS_GETCOLORMAP);
02481   defun("PRS_GETATTRIBUTES",mod,PRS_GETATTRIBUTES);
02482   defun("PRS_DESTROY",mod,PRS_DESTROY);
02483   defun("PRS_REPLROP",mod,PRS_REPLROP);
02484   defun("PRS_PUTCOLORMAP",mod,PRS_PUTCOLORMAP);
02485   defun("PRS_PUT",mod,PRS_PUT);
02486   defun("PRS_PUTATTRIBUTES",mod,PRS_PUTATTRIBUTES);
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   defun("PW_SET_X_OFFSET",mod,PW_SET_X_OFFSET);
02510   defun("PW_SET_Y_OFFSET",mod,PW_SET_Y_OFFSET);
02511   defun("PW_SET_XY_OFFSET",mod,PW_SET_XY_OFFSET);
02512   defun("PW_GET_X_OFFSET",mod,PW_GET_X_OFFSET);
02513   defun("PW_GET_Y_OFFSET",mod,PW_GET_Y_OFFSET);
02514   defun("PW_DAMAGED",mod,PW_DAMAGED);
02515   defun("PW_REPAIRRETAINED",mod,PW_REPAIRRETAINED);
02516   defun("PW_DONEDAMAGED",mod,PW_DONEDAMAGED);
02517   defun("PW_EXPOSED",mod,PW_EXPOSED);
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 }


euslisp
Author(s): Toshihiro Matsui
autogenerated on Thu Jun 6 2019 18:05:54