xviewfuncs.c
Go to the documentation of this file.
00001   defun("ADR_TO_STRING",mod,ADR_TO_STRING);
00002   defun("EXPAND_NAME",mod,EXPAND_NAME);
00003 pointer EXPAND_NAME(n,argv)
00004      int n; register pointer argv[];
00005 {
00006   static struct namelist *name_list;
00007   register pointer temp;
00008   register int i;
00009   ckarg(1);
00010   name_list = xv_expand_name(ckstrchr(argv[0]));
00011   temp = makevector(C_VECTOR,name_list->count);
00012   vpush(temp);
00013   for (i=0; i< name_list->count; i++) {
00014     temp->c.vec.v[i] =
00015       makestring(name_list->names[i],
00016                  strlen(name_list->names[i]));
00017   }
00018   free_namelist(name_list);
00019   return(vpop());
00020 }
00021 pointer ADR_TO_STRING(n,argv)
00022      int n;
00023      register pointer argv[];
00024 {
00025   char *ptr;
00026   ckarg(1);
00027   ptr = (char *) cknumtoint(argv[0]);
00028   if ((int)ptr<10000) error("ADR_TO_STRING: invalid string pointer");
00029   return(makestring(ptr,strlen(ptr)));
00030 }
00031 
00032 extern canvas_event;
00033 extern canvas_paint_window;
00034 extern canvas_pixwin;
00035 extern canvas_window_event;
00036 extern scrollbar_create;
00037 extern event_id;
00038 extern event_is_button;
00039 extern event_is_down;
00040 extern event_is_up;
00041 extern event_time;
00042 extern event_x;
00043 extern event_y;
00044 extern icon_create;
00045 extern icon_load_mpr;
00046 extern mem_create;
00047 extern mem_point;
00048 extern menu_create;
00049 extern menu_create_item;
00050 extern menu_find;
00051 extern menu_get;
00052 extern menu_item_set;
00053 extern menu_set;
00054 extern menu_show;
00055 extern notify_do_dispatch;
00056 extern notify_no_dispatch;
00057 extern notify_set_itimer_func;
00058 extern panel_button_image;
00059 extern panel_create_button;
00060 extern panel_create_choice;
00061 extern panel_create_cycle;
00062 extern panel_create_message;
00063 extern panel_create_slider;
00064 extern panel_create_text;
00065 extern panel_create_toggle;
00066 extern panel_default_handle_event;
00067 extern panel_event;
00068 extern panel_get;
00069 extern panel_get;
00070 extern panel_set;
00071 extern panel_update_scrolling_size;
00072 extern panel_window_event;
00073 extern pf_open;
00074 extern pr_rop;
00075 extern pr_text;
00076 extern pr_vector;
00077 extern pw_batch_off;
00078 extern pw_copy;
00079 extern pw_getcmsname;
00080 extern pw_getcolormap;
00081 extern pw_polygon_2;
00082 extern pw_polyline;
00083 extern pw_putcolormap;
00084 extern pw_rop;
00085 extern pw_setcmsname;
00086 extern pw_text;
00087 extern pw_ttext;
00088 extern pw_vector;
00089 extern pw_write;
00090 extern pw_writebackground;
00091 extern textstring;
00092 extern textsw_delete;
00093 extern textsw_erase;
00094 extern textsw_insert;
00095 extern textsw_replace_bytes;
00096 extern textsw_save;
00097 extern textsw_screen_line_count;
00098 extern textsw_scroll_lines;
00099 extern textsw_store_file;
00100 extern ttysw_input;
00101 extern ttysw_output;
00102 
00103 extern window_create_canvas;
00104 extern window_create_frame;
00105 extern window_create_panel;
00106 extern window_create_textsw;
00107 extern window_create_tty;
00108 extern window_destroy;
00109 
00110 extern window_fit_height;
00111 extern window_fit_width;
00112 extern window_get;
00113 extern window_set;
00114 extern xv_col;
00115 extern xv_row;


euslisp
Author(s): Toshihiro Matsui
autogenerated on Thu Mar 9 2017 04:57:50