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;