10 #include <pixrect/pixrect_hs.h>
11 #include <xview/xview.h>
12 #include <xview/panel.h>
13 #include <xview/canvas.h>
14 #include <xview/tty.h>
15 #include <xview/ttysw.h>
16 #include <xview/textsw.h>
20 #include <xview/scrollbar.h>
21 #include <xview/seln.h>
22 #include <xview/icon.h>
23 #include <xview/icon_load.h>
24 #include <xview/expandname.h>
25 #include <xview/pixwin.h>
26 #include <xview/notify.h>
27 #include <xview/cms.h>
82 register long cargv[100];
86 return(
makebnum((
long)(*func)(cargv[0],cargv[1],cargv[2],
87 cargv[3],cargv[4],cargv[5],
88 cargv[6],cargv[7],cargv[8],
89 cargv[9],cargv[10],cargv[11])));
92 return(
makebnum((*func)(cargv[0],cargv[1],cargv[2],
93 cargv[3], cargv[4],cargv[5],
94 cargv[6],cargv[7],cargv[8],
95 cargv[9],cargv[10],cargv[11],
96 cargv[12],cargv[13],cargv[14],
97 cargv[15],cargv[16],cargv[17],
98 cargv[18],cargv[19],cargv[20],
99 cargv[21],cargv[22],cargv[23],
103 return(
makebnum((*func)(cargv[0],cargv[1],cargv[2],
104 cargv[3],cargv[4],cargv[5],
105 cargv[6],cargv[7],cargv[8],
106 cargv[9],cargv[10],cargv[11],
107 cargv[12],cargv[13],cargv[14],
108 cargv[15],cargv[16],cargv[17],
109 cargv[18],cargv[19],cargv[20],
110 cargv[21],cargv[22],cargv[23],
111 cargv[24],cargv[25],cargv[25],
112 cargv[26],cargv[27],cargv[28],
113 cargv[29],cargv[30],cargv[31],
114 cargv[32],cargv[33],cargv[34],
115 cargv[35],cargv[36],cargv[37],
116 cargv[38],cargv[39],cargv[40],
117 cargv[41],cargv[42],cargv[43],
118 cargv[44],cargv[45],cargv[46],
122 return(
makebnum((*func)(cargv[0],cargv[1],cargv[2],
123 cargv[3],cargv[4],cargv[5],
124 cargv[6],cargv[7],cargv[8],
125 cargv[9],cargv[10],cargv[11],
126 cargv[12],cargv[13],cargv[14],
127 cargv[15],cargv[16],cargv[17],
128 cargv[18],cargv[19],cargv[20],
129 cargv[21],cargv[22],cargv[23],
130 cargv[24],cargv[25],cargv[25],
131 cargv[26],cargv[27],cargv[28],
132 cargv[29],cargv[30],cargv[31],
133 cargv[32],cargv[33],cargv[34],
134 cargv[35],cargv[36],cargv[37],
135 cargv[38],cargv[39],cargv[40],
136 cargv[41],cargv[42],cargv[43],
137 cargv[44],cargv[45],cargv[46],
138 cargv[47],cargv[48],cargv[49],
139 cargv[50],cargv[51],cargv[52],
140 cargv[53],cargv[54],cargv[55],
141 cargv[56],cargv[57],cargv[58],
142 cargv[59],cargv[60],cargv[61],
143 cargv[62],cargv[63],cargv[64],
144 cargv[65],cargv[66],cargv[67],
145 cargv[68],cargv[69],cargv[70],
146 cargv[71],cargv[72],cargv[73],
147 cargv[74],cargv[75],cargv[76],
148 cargv[77],cargv[78],cargv[79],
149 cargv[80],cargv[81],cargv[82],
150 cargv[83],cargv[84],cargv[85],
151 cargv[86],cargv[87],cargv[88],
152 cargv[89],cargv[90],cargv[91],
153 cargv[92],cargv[93],cargv[94],
154 cargv[95],cargv[96],cargv[97],
155 cargv[98],cargv[99])));
171 register long cargv[100];
176 xv_create(cargv[0],type,cargv[1],cargv[2],
177 cargv[3], cargv[4],cargv[5],
178 cargv[6],cargv[7],cargv[8],
179 cargv[9],cargv[10],cargv[11],
180 cargv[12],cargv[13],cargv[14],
181 cargv[15],cargv[16],cargv[17],
182 cargv[18],cargv[19],cargv[20],
183 cargv[21],cargv[22],cargv[23],
188 xv_create(cargv[0],type,cargv[1],cargv[2],
189 cargv[3],cargv[4],cargv[5],
190 cargv[6],cargv[7],cargv[8],
191 cargv[9],cargv[10],cargv[11],
192 cargv[12],cargv[13],cargv[14],
193 cargv[15],cargv[16],cargv[17],
194 cargv[18],cargv[19],cargv[20],
195 cargv[21],cargv[22],cargv[23],
196 cargv[24],cargv[25],cargv[25],
197 cargv[26],cargv[27],cargv[28],
198 cargv[29],cargv[30],cargv[31],
199 cargv[32],cargv[33],cargv[34],
200 cargv[35],cargv[36],cargv[37],
201 cargv[38],cargv[39],cargv[40],
202 cargv[41],cargv[42],cargv[43],
203 cargv[44],cargv[45],cargv[46])));
208 xv_create(cargv[0],type,cargv[1],cargv[2],
209 cargv[3],cargv[4],cargv[5],
210 cargv[6],cargv[7],cargv[8],
211 cargv[9],cargv[10],cargv[11],
212 cargv[12],cargv[13],cargv[14],
213 cargv[15],cargv[16],cargv[17],
214 cargv[18],cargv[19],cargv[20],
215 cargv[21],cargv[22],cargv[23],
216 cargv[24],cargv[25],cargv[25],
217 cargv[26],cargv[27],cargv[28],
218 cargv[29],cargv[30],cargv[31],
219 cargv[32],cargv[33],cargv[34],
220 cargv[35],cargv[36],cargv[37],
221 cargv[38],cargv[39],cargv[40],
222 cargv[41],cargv[42],cargv[43],
223 cargv[44],cargv[45],cargv[46],
224 cargv[47],cargv[48],cargv[49],
225 cargv[50],cargv[51],cargv[52],
226 cargv[53],cargv[54],cargv[55],
227 cargv[56],cargv[57],cargv[58],
228 cargv[59],cargv[60],cargv[61],
229 cargv[62],cargv[63],cargv[64],
230 cargv[65],cargv[66],cargv[67],
231 cargv[68],cargv[69],cargv[70],
232 cargv[71],cargv[72],cargv[73],
233 cargv[74],cargv[75],cargv[76],
234 cargv[77],cargv[78],cargv[79],
235 cargv[80],cargv[81],cargv[82],
236 cargv[83],cargv[84],cargv[85],
237 cargv[86],cargv[87],cargv[88],
238 cargv[89],cargv[90],cargv[91],
239 cargv[92],cargv[93],cargv[94],
240 cargv[95],cargv[96],cargv[97],
241 cargv[98],cargv[99])));
254 gettimeofday(&tv,&tz);
283 register long cargv[50];
286 return(
makebnum(xv_create(cargv[0],TEXTSW,cargv[1],cargv[2],
287 cargv[3],cargv[4],cargv[5],
288 cargv[6],cargv[7],cargv[8],
289 cargv[9],cargv[10],cargv[11],
290 cargv[12],cargv[13],cargv[14],
291 cargv[15],cargv[16],cargv[17],
292 cargv[18],cargv[19],cargv[20],
293 cargv[21],cargv[22],cargv[23],
294 cargv[24],cargv[25],cargv[25],
295 cargv[26],cargv[27],cargv[28],
296 cargv[29],cargv[30],cargv[31],
297 cargv[32],cargv[33],cargv[34],
298 cargv[35],cargv[36],cargv[37],
299 cargv[38],cargv[39],cargv[40],
300 cargv[41],cargv[42],cargv[43],
301 cargv[44],cargv[45],cargv[46])));
364 (void) window_refuse_kbd_focus(
cknumtoint(argv[0]));
385 (void) window_release_event_lock(
cknumtoint(argv[0]));
448 (void) menu_destroy_with_proc(
cknumtoint(argv[0]),
672 register long cargv[100];
677 xv_create(cargv[0],PANEL_CYCLE,
679 cargv[3], cargv[4],cargv[5],
680 cargv[6],cargv[7],cargv[8],
681 cargv[9],cargv[10],cargv[11],
682 cargv[12],cargv[13],cargv[14],
683 cargv[15],cargv[16],cargv[17],
684 cargv[18],cargv[19],cargv[20],
685 cargv[21],cargv[22],cargv[23],
690 xv_create(cargv[0],PANEL_CYCLE,
692 cargv[3],cargv[4],cargv[5],
693 cargv[6],cargv[7],cargv[8],
694 cargv[9],cargv[10],cargv[11],
695 cargv[12],cargv[13],cargv[14],
696 cargv[15],cargv[16],cargv[17],
697 cargv[18],cargv[19],cargv[20],
698 cargv[21],cargv[22],cargv[23],
699 cargv[24],cargv[25],cargv[25],
700 cargv[26],cargv[27],cargv[28],
701 cargv[29],cargv[30],cargv[31],
702 cargv[32],cargv[33],cargv[34],
703 cargv[35],cargv[36],cargv[37],
704 cargv[38],cargv[39],cargv[40],
705 cargv[41],cargv[42],cargv[43],
706 cargv[44],cargv[45],cargv[46])));
711 xv_create(cargv[0],PANEL_CYCLE,
713 cargv[3],cargv[4],cargv[5],
714 cargv[6],cargv[7],cargv[8],
715 cargv[9],cargv[10],cargv[11],
716 cargv[12],cargv[13],cargv[14],
717 cargv[15],cargv[16],cargv[17],
718 cargv[18],cargv[19],cargv[20],
719 cargv[21],cargv[22],cargv[23],
720 cargv[24],cargv[25],cargv[25],
721 cargv[26],cargv[27],cargv[28],
722 cargv[29],cargv[30],cargv[31],
723 cargv[32],cargv[33],cargv[34],
724 cargv[35],cargv[36],cargv[37],
725 cargv[38],cargv[39],cargv[40],
726 cargv[41],cargv[42],cargv[43],
727 cargv[44],cargv[45],cargv[46],
728 cargv[47],cargv[48],cargv[49],
729 cargv[50],cargv[51],cargv[52],
730 cargv[53],cargv[54],cargv[55],
731 cargv[56],cargv[57],cargv[58],
732 cargv[59],cargv[60],cargv[61],
733 cargv[62],cargv[63],cargv[64],
734 cargv[65],cargv[66],cargv[67],
735 cargv[68],cargv[69],cargv[70],
736 cargv[71],cargv[72],cargv[73],
737 cargv[74],cargv[75],cargv[76],
738 cargv[77],cargv[78],cargv[79],
739 cargv[80],cargv[81],cargv[82],
740 cargv[83],cargv[84],cargv[85],
741 cargv[86],cargv[87],cargv[88],
742 cargv[89],cargv[90],cargv[91],
743 cargv[92],cargv[93],cargv[94],
744 cargv[95],cargv[96],cargv[97],
745 cargv[98],cargv[99])));
752 register long cargv[100];
757 xv_create(cargv[0],PANEL_TOGGLE,
759 cargv[3], cargv[4],cargv[5],
760 cargv[6],cargv[7],cargv[8],
761 cargv[9],cargv[10],cargv[11],
762 cargv[12],cargv[13],cargv[14],
763 cargv[15],cargv[16],cargv[17],
764 cargv[18],cargv[19],cargv[20],
765 cargv[21],cargv[22],cargv[23],
770 xv_create(cargv[0],PANEL_TOGGLE,
772 cargv[3],cargv[4],cargv[5],
773 cargv[6],cargv[7],cargv[8],
774 cargv[9],cargv[10],cargv[11],
775 cargv[12],cargv[13],cargv[14],
776 cargv[15],cargv[16],cargv[17],
777 cargv[18],cargv[19],cargv[20],
778 cargv[21],cargv[22],cargv[23],
779 cargv[24],cargv[25],cargv[25],
780 cargv[26],cargv[27],cargv[28],
781 cargv[29],cargv[30],cargv[31],
782 cargv[32],cargv[33],cargv[34],
783 cargv[35],cargv[36],cargv[37],
784 cargv[38],cargv[39],cargv[40],
785 cargv[41],cargv[42],cargv[43],
786 cargv[44],cargv[45],cargv[46])));
791 xv_create(cargv[0],PANEL_TOGGLE,
793 cargv[3],cargv[4],cargv[5],
794 cargv[6],cargv[7],cargv[8],
795 cargv[9],cargv[10],cargv[11],
796 cargv[12],cargv[13],cargv[14],
797 cargv[15],cargv[16],cargv[17],
798 cargv[18],cargv[19],cargv[20],
799 cargv[21],cargv[22],cargv[23],
800 cargv[24],cargv[25],cargv[25],
801 cargv[26],cargv[27],cargv[28],
802 cargv[29],cargv[30],cargv[31],
803 cargv[32],cargv[33],cargv[34],
804 cargv[35],cargv[36],cargv[37],
805 cargv[38],cargv[39],cargv[40],
806 cargv[41],cargv[42],cargv[43],
807 cargv[44],cargv[45],cargv[46],
808 cargv[47],cargv[48],cargv[49],
809 cargv[50],cargv[51],cargv[52],
810 cargv[53],cargv[54],cargv[55],
811 cargv[56],cargv[57],cargv[58],
812 cargv[59],cargv[60],cargv[61],
813 cargv[62],cargv[63],cargv[64],
814 cargv[65],cargv[66],cargv[67],
815 cargv[68],cargv[69],cargv[70],
816 cargv[71],cargv[72],cargv[73],
817 cargv[74],cargv[75],cargv[76],
818 cargv[77],cargv[78],cargv[79],
819 cargv[80],cargv[81],cargv[82],
820 cargv[83],cargv[84],cargv[85],
821 cargv[86],cargv[87],cargv[88],
822 cargv[89],cargv[90],cargv[91],
823 cargv[92],cargv[93],cargv[94],
824 cargv[95],cargv[96],cargv[97],
825 cargv[98],cargv[99])));
886 return(pw_get(pw,x,y));
891 pw_get_region_rect(pw,r);
918 register long cargv[12];
920 pw_char(cargv[0], cargv[1], cargv[2], cargv[3],
927 register long cargv[12];
929 pw_char(cargv[0], cargv[1], cargv[2], cargv[3],
936 register long cargv[12];
938 pw_copy((Pixwin *)cargv[0], cargv[1], cargv[2], cargv[3],
939 cargv[4],cargv[5],(Pixwin *)cargv[6],cargv[7],cargv[8]);
975 int plist[2*1000],size,npts[10],nsize;
988 int plist[2*1000],size;
1002 int plist[2*1000],size;
1014 register long cargv[12];
1016 pw_put((Pixwin *)cargv[0],cargv[1],cargv[2],cargv[3]);
1022 register long cargv[12];
1024 pw_read((Pixrect *)cargv[0],cargv[1],cargv[2],cargv[3],
1025 cargv[4],cargv[5],(Pixwin *)cargv[6],cargv[7],cargv[8]);
1032 register long cargv[12];
1034 pw_replrop(cargv[0], cargv[1], cargv[2], cargv[3],
1035 cargv[4],cargv[5],cargv[6],cargv[7],
1042 register long cargv[12];
1044 pw_rop(cargv[0], cargv[1], cargv[2], cargv[3],
1045 cargv[4],cargv[5],cargv[6],cargv[7],
1059 register long cargv[20];
1061 pw_polyline(cargv[0], cargv[1], cargv[2], cargv[3],
1062 cargv[4],cargv[5],cargv[6],cargv[7],
1063 cargv[8],cargv[9],cargv[10],cargv[11]);
1069 register long cargv[12];
1071 pw_text(cargv[0], cargv[1], cargv[2], cargv[3],
1078 register long cargv[12];
1080 pw_ttext(cargv[0], cargv[1], cargv[2], cargv[3],
1094 register long cargv[12];
1096 pw_vector(cargv[0],cargv[1],cargv[2],cargv[3],
1097 cargv[4],cargv[5],cargv[6]);
1103 register long cargv[12];
1105 pw_write(cargv[0],cargv[1],cargv[2],cargv[3],
1106 cargv[4],cargv[5],cargv[6],cargv[7],
1113 register long cargv[12];
1122 register long cargv[12];
1124 pw_blackonwhite(cargv[0], cargv[1], cargv[2]);
1130 register long cargv[12];
1132 pw_cyclecolormap(cargv[0], cargv[1], cargv[2],cargv[3]);
1140 pw_getattributes(
cknumtoint(argv[0]),&planes);
1149 pw_putattributes(
cknumtoint(argv[0]),&planes);
1156 int s=CMS_NAMESIZE,i;
1157 char buf[CMS_NAMESIZE];
1159 for (i=0; i<CMS_NAMESIZE; i++)
buf[i]=0;
1167 struct xv_cmsdata *cms;
1169 unsigned char red[256],green[256],blue[256];
1173 cms = xv_get(pw,WIN_CMS_DATA);
1181 return(
cons(vpop(),
v));
1193 register long cargv[12];
1195 pw_reversevideo(cargv[0], cargv[1],cargv[3]);
1201 register long cargv[12];
1209 register long cargv[12];
1211 pw_whiteonblack(cargv[0], cargv[1],cargv[2]);
1248 register long cargv[12];
1250 textsw_file_lines_visible(cargv[0], cargv[1], cargv[2]);
1298 register long cargv[12];
1300 textsw_normalize_view(cargv[0], cargv[1]);
1306 register long cargv[12];
1308 textsw_possibly_normalize(cargv[0], cargv[1]);
1314 register long cargv[12];
1316 textsw_remove_mark(cargv[0], cargv[1], cargv[2]);
1328 register long cargv[12];
1330 textsw_reset(cargv[0], cargv[1], cargv[2]);
1360 register long cargv[12];
1362 textsw_set_selection(cargv[0], cargv[1], cargv[2]);
1403 return(
makebnum(notify_dispatch()));
1627 register int cargv[12];
1630 cargv[1],cargv[2],cargv[3],cargv[4],
1637 register long cargv[12];
1640 cargv[4],cargv[5],cargv[6],cargv[7],
1731 register long cargv[4];
1733 pr_put((Pixrect *)cargv[0],cargv[1],cargv[2],cargv[3]);
1739 register long cargv[2];
1741 pr_putattributes(cargv[0],cargv[1]);
1759 register long cargv[12];
1761 pr_stencil(cargv[0],cargv[1],cargv[2],cargv[3],
1762 cargv[4],cargv[5],cargv[6],cargv[7],
1763 cargv[8],cargv[9],cargv[10],cargv[11]);
1776 register long cargv[12];
1778 pr_rop(cargv[0],cargv[1],cargv[2],
1779 cargv[3],cargv[4],cargv[5],
1780 cargv[6],cargv[7],cargv[8]);
1786 register long cargv[12];
1788 xv_rop(cargv[0],cargv[1],cargv[2],
1789 cargv[3],cargv[4],cargv[5],
1790 cargv[6],cargv[7],cargv[8]);
1804 register long cargv[6];
1806 pr_putcolormap(cargv[0],cargv[1],cargv[2],cargv[3],cargv[4],
1931 (void) seln_yield_all();
1940 Seln_request *buffer;
1943 holder = seln_inquire(SELN_PRIMARY);
1944 buffer = seln_ask(&holder, SELN_REQ_CONTENTS_ASCII, 0, 0);
1945 len = strlen(buffer->data +
sizeof(Seln_attribute));
1946 return(
makestring(buffer->data +
sizeof(Seln_attribute),
1957 if ((
int)ptr<10000)
error(
"ADR_TO_STRING: invalid string pointer");
1979 static struct namelist *name_list;
1983 name_list = xv_expand_name(
ckstrchr(argv[0]));
1986 for (i=0; i< name_list->count; i++) {
1989 strlen(name_list->names[i]));
1991 free_namelist(name_list);
2074 + ((
float)(
event_time(e) . tv_usec) / 1000000.0)));
2083 ti . tv_sec = (int)
v;
2085 ti . tv_usec = (int)(1000000 *
v);
2220 c = *(
char *)(cp + offset);
2234 v = *(
short *)(cp + offset);
2247 v = *(
long *)(cp + offset);
2260 v = *(
double *)(cp + offset);
2411 defun(
"NOTIFY_INTERPOSE_DESTROY_FUNC",mod,
2413 defun(
"NOTIFY_INTERPOSE_EVENT_FUNC",mod,