?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Initial commit, 3-52-19 alpha
[cls.git] / src / include / osptrs.h
blob832f6c94af484057317b2cf1d880822eb5bf10a9
1 #ifdef XLISP_STAT
2 /************************************************************************/
3 /************************************************************************/
4 /** **/
5 /** Object Methods **/
6 /** **/
7 /************************************************************************/
8 /************************************************************************/
9
10 /* objects.c */
11 { NULL, S, xsmessage_method }, /* 300 */
12 { NULL, S, xsreparent_object },
13 { NULL, S, xshas_slot },
14 { NULL, S, xshas_method },
15 { NULL, S, xsadd_slot },
16 { NULL, S, xsdelete_slot },
17 { NULL, S, xsadd_method },
18 { NULL, S, xsdelete_method },
19 { NULL, S, xsshow_object },
20 { NULL, S, xsobject_isnew },
21 { NULL, S, xsparents },
22 { NULL, S, xsprecedence_list },
23 { NULL, S, xsobject_slots },
24 { NULL, S, xsobject_methods },
25 { NULL, S, xsobject_documentation },
26 { NULL, S, xsmakeproto },
27
28 #ifndef NOGRAPHICS
29 /* hardware-objects */
30 { NULL, S, xsobject_null_method },
31 { NULL, S, xsobject_null_method },
32 { NULL, S, xsobject_null_method },
33
34 /* windows.c */
35 { NULL, S, xsshowwindow },
36 { NULL, S, xshidewindow },
37 { NULL, S, xshidewindow },
38 { NULL, S, xswindow_title },
39 { NULL, S, xswindow_location },
40 { NULL, S, xswindow_size },
41 { NULL, S, xswindow_frame_location },
42 { NULL, S, xswindow_frame_size },
43 { NULL, S, xsobject_null_method },
44 { NULL, S, xsobject_null_method },
45 { NULL, S, xsobject_null_method },
46 { NULL, S, xsobject_null_method },
47 { NULL, S, xsobject_null_method },
48 { NULL, S, xsobject_null_method },
49 { NULL, S, xsobject_null_method },
50 { NULL, S, xsobject_null_method },
51 { NULL, S, xsobject_null_method },
52 { NULL, S, xsobject_null_method },
53 { NULL, S, xsobject_null_method },
54
55 #ifdef MACINTOSH
56 /* edit.c */
57 { NULL, S, xsedit_window_isnew },
58 { NULL, S, xsedit_window_allocate },
59 { NULL, S, xsedit_window_cut },
60 { NULL, S, xsedit_window_copy },
61 { NULL, S, xsedit_window_paste },
62 { NULL, S, xsedit_window_revert },
63 { NULL, S, xsedit_window_save },
64 { NULL, S, xsedit_window_save_as },
65 { NULL, S, xsedit_window_save_copy },
66 { NULL, S, xsedit_window_paste_stream },
67 { NULL, S, xsedit_window_paste_string },
68 { NULL, S, xsedit_window_flush_window },
69 { NULL, S, xsedit_window_selection_stream},
70 { NULL, S, xsedit_window_remove },
71 { NULL, S, xsedit_window_remove },
72 { NULL, S, xsedit_window_remove },
73 { NULL, S, xsedit_window_activate },
74 { NULL, S, xsedit_window_update },
75 { NULL, S, xsedit_window_find },
76 { NULL, S, xslistener_isnew },
77 { NULL, S, xslistener_allocate },
78 { NULL, S, xshidewindow },
79 { NULL, S, xshidewindow },
80 { NULL, S, xshidewindow },
81 #endif /* MACINTOSH */
82
83 /* menus.c */
84 { NULL, S, xsmenu_isnew },
85 { NULL, S, xsallocate_menu },
86 { NULL, S, xsdispose_menu },
87 { NULL, S, xsinstall_menu },
88 { NULL, S, xsremove_menu },
89 { NULL, S, xsmenu_enabled },
90 { NULL, S, xsupdate_menu },
91 { NULL, S, xsallocated_p },
92 { NULL, S, xsmenu_title },
93 { NULL, S, xsmenu_items },
94 { NULL, S, xsinstalled_p },
95 { NULL, S, xsappend_items },
96 { NULL, S, xsdelete_items },
97 { NULL, S, xsmenu_select },
98 { NULL, S, xsmenu_popup },
99 #ifdef MACINTOSH
100 { NULL, S, xsapple_menu_isnew },
101 { NULL, S, xsapple_menu_select },
102 #endif /* MACINTOSH */
103 { NULL, S, xsitem_isnew },
104 { NULL, S, xsitem_title },
105 { NULL, S, xsitem_key },
106 { NULL, S, xsitem_mark },
107 { NULL, S, xsitem_style },
108 { NULL, S, xsitem_action },
109 { NULL, S, xsitem_enabled },
110 { NULL, S, xsitem_installed_p },
111 { NULL, S, xsitem_update },
112 { NULL, S, xsitem_do_action },
113
114 /* dialog.c */
115 { NULL, S, xsdialog_isnew },
116 { NULL, S, xsdialog_allocate },
117 { NULL, S, xsdialog_remove },
118 { NULL, S, xsdialog_remove },
119 { NULL, S, xsdialog_remove },
120 { NULL, S, xsdialog_allocated_p },
121 { NULL, S, xsdialog_default_button },
122 { NULL, S, xsdialog_modal },
123 { NULL, S, xsdialog_item_do_action },
124 { NULL, S, xsdialog_item_action },
125 { NULL, S, xsbutton_item_isnew },
126 { NULL, S, xstoggle_item_isnew },
127 { NULL, S, xstoggle_item_value },
128 { NULL, S, xstext_item_isnew },
129 { NULL, S, xstext_item_text },
130 { NULL, S, xschoice_item_isnew },
131 { NULL, S, xschoice_item_value },
132 { NULL, S, xsscroll_item_isnew },
133 { NULL, S, xsscroll_item_value },
134 { NULL, S, xsscroll_item_max },
135 { NULL, S, xsscroll_item_min },
136 { NULL, S, xsscroll_item_action },
137 { NULL, S, xslist_item_isnew },
138 { NULL, S, xslist_item_action },
139 { NULL, S, xslist_item_text },
140 { NULL, S, xslist_item_selection },
141
142 /* xsiviewwindow.c */
143 { NULL, S, iview_window_isnew },
144 { NULL, S, iview_window_allocate },
145
146 { NULL, S, iview_window_idle_on },
147
148 { NULL, S, iview_window_menu },
149
150 { NULL, S, xsiview_window_update },
151 { NULL, S, xsiview_window_activate },
152
153 { NULL, S, iview_window_remove },
154 { NULL, S, iview_window_remove },
155 { NULL, S, iview_window_remove },
156 { NULL, S, iview_window_while_button_down},
157 { NULL, S, iview_window_show_window },
158 { NULL, S, xsobject_null_method },
159 { NULL, S, xsobject_null_method },
160 { NULL, S, xsobject_null_method },
161 { NULL, S, xsobject_null_method },
162 { NULL, S, xsobject_null_method },
163 { NULL, S, xsobject_null_method },
164 { NULL, S, xsobject_null_method },
165 { NULL, S, xsobject_null_method },
166
167 { NULL, S, iview_window_canvas_width },
168 { NULL, S, iview_window_canvas_height },
169 { NULL, S, iview_window_line_type },
170 { NULL, S, iview_window_draw_mode },
171 { NULL, S, iview_window_draw_color },
172 { NULL, S, iview_window_back_color },
173 { NULL, S, iview_window_use_color },
174 { NULL, S, iview_window_reverse_colors },
175 { NULL, S, iview_window_view_rect },
176 { NULL, S, iview_window_line_width },
177 { NULL, S, iview_window_clip_rect },
178 { NULL, S, iview_window_cursor },
179
180 { NULL, S, iview_window_has_h_scroll },
181 { NULL, S, iview_window_has_v_scroll },
182 { NULL, S, iview_window_scroll },
183 { NULL, S, iview_window_h_scroll_incs },
184 { NULL, S, iview_window_v_scroll_incs },
185
186 { NULL, S, iview_window_draw_line },
187 { NULL, S, iview_window_draw_point },
188 { NULL, S, iview_window_erase_rect },
189 { NULL, S, iview_window_frame_rect },
190 { NULL, S, iview_window_paint_rect },
191 { NULL, S, iview_window_erase_oval },
192 { NULL, S, iview_window_frame_oval },
193 { NULL, S, iview_window_paint_oval },
194 { NULL, S, iview_window_erase_arc },
195 { NULL, S, iview_window_frame_arc },
196 { NULL, S, iview_window_paint_arc },
197 { NULL, S, iview_window_erase_poly },
198 { NULL, S, iview_window_frame_poly },
199 { NULL, S, iview_window_paint_poly },
200
201 { NULL, S, iview_window_text_ascent },
202 { NULL, S, iview_window_text_descent },
203 { NULL, S, iview_window_text_width },
204 { NULL, S, iview_window_draw_string },
205 { NULL, S, iview_window_draw_string_up },
206 { NULL, S, iview_window_draw_text },
207 { NULL, S, iview_window_draw_text_up },
208
209 { NULL, S, iview_window_draw_symbol },
210 { NULL, S, iview_window_replace_symbol },
211
212 { NULL, S, iview_window_start_buffering },
213 { NULL, S, iview_window_buffer_to_screen},
214
215 #ifdef MACINTOSH
216 { NULL, S, iview_window_copy_to_clip },
217 #endif /* MACINTOSH */
218 { NULL, S, iview_window_drag_grey_rect },
219 { NULL, S, iview_window_dump_image },
220 { NULL, S, gw_draw_bitmap },
221
222 /* xsiview.c */
223 { NULL, S, iview_isnew },
224 { NULL, S, iview_allocate },
225
226 { NULL, S, iview_std_resize },
227 { NULL, S, iview_std_redraw },
228 { NULL, S, iview_std_redraw_background },
229 { NULL, S, iview_std_clear_content },
230 { NULL, S, iview_std_redraw_content },
231 { NULL, S, xsobject_null_method },
232 { NULL, S, xsobject_null_method },
233 { NULL, S, xsobject_null_method },
234 { NULL, S, iview_std_adjust_screen },
235 { NULL, S, iview_std_adjust_points_in_rect},
236 { NULL, S, iview_std_adjust_screen_point},
237 { NULL, S, iview_std_mark_points_in_rect},
238
239 { NULL, S, iview_content_rect },
240 { NULL, S, iview_content_origin },
241 { NULL, S, iview_content_variables },
242 { NULL, S, iview_click_range },
243 { NULL, S, iview_mouse_mode },
244 { NULL, S, iview_showing_labels },
245 { NULL, S, iview_margin },
246 { NULL, S, iview_fixed_aspect },
247 { NULL, S, iview_dirty },
248
249 { NULL, S, iview_x_axis },
250 { NULL, S, iview_y_axis },
251
252 { NULL, S, iview_brush },
253 { NULL, S, iview_erase_brush },
254 { NULL, S, iview_draw_brush },
255 { NULL, S, iview_move_brush },
256 { NULL, S, iview_resize_brush },
257
258 { NULL, S, iview_do_click },
259 { NULL, S, iview_do_motion },
260 { NULL, S, iview_std_click },
261 { NULL, S, iview_std_click },
262 { NULL, S, iview_std_motion },
263 { NULL, S, iview_unselect_all_points },
264 { NULL, S, iview_erase_selection },
265 { NULL, S, iview_mask_selection },
266 { NULL, S, iview_unmask_all_points },
267 { NULL, S, iview_points_showing },
268 { NULL, S, iview_points_hilited },
269 { NULL, S, iview_points_selected },
270 { NULL, S, iview_points_selected },
271 { NULL, S, iview_show_all_points },
272 { NULL, S, iview_all_points_showing },
273 { NULL, S, iview_all_points_unmasked },
274 { NULL, S, iview_any_points_selected },
275
276 { NULL, S, iview_linked },
277 { NULL, S, iview_links },
278
279 { NULL, S, iview_num_variables },
280 { NULL, S, iview_variable_label },
281 { NULL, S, iview_range },
282 { NULL, S, iview_scaled_range },
283 { NULL, S, iview_screen_range },
284 { NULL, S, iview_transformation },
285 { NULL, S, iview_apply_transformation },
286
287 { NULL, S, iview_add_points },
288 { NULL, S, iview_clear_points },
289 { NULL, S, iview_num_points },
290 { NULL, S, iview_point_coordinate },
291 { NULL, S, iview_point_screen_coordinate},
292 { NULL, S, iview_point_transformed_coordinate },
293 { NULL, S, iview_point_masked },
294 { NULL, S, iview_point_color },
295 { NULL, S, iview_point_state },
296 { NULL, S, iview_point_screen_state },
297 { NULL, S, iview_point_marked },
298 { NULL, S, iview_point_label },
299 { NULL, S, iview_point_symbol },
300 { NULL, S, iview_point_selected },
301 { NULL, S, iview_point_hilited },
302 { NULL, S, iview_point_showing },
303
304 { NULL, S, iview_add_lines },
305 { NULL, S, iview_clear_lines },
306 { NULL, S, iview_num_lines },
307 { NULL, S, iview_line_coordinate },
308 { NULL, S, iview_line_screen_coordinate },
309 { NULL, S, iview_line_transformed_coordinate },
310 { NULL, S, iview_line_masked },
311 { NULL, S, iview_line_color },
312 { NULL, S, iview_line_next },
313 { NULL, S, iview_line_type },
314 { NULL, S, iview_line_width },
315
316 #ifdef USESTRINGS
317 { NULL, S, iview_add_strings },
318 { NULL, S, iview_clear_strings },
319 { NULL, S, iview_num_strings },
320 { NULL, S, iview_string_coordinate },
321 { NULL, S, iview_string_screen_coordinate},
322 { NULL, S, iview_string_transformed_coordinate },
323 { NULL, S, iview_string_masked },
324 { NULL, S, iview_string_color },
325 { NULL, S, iview_string_modifiers },
326 #endif /* USESTRINGS */
327
328 { NULL, S, iview_draw_data_points },
329 { NULL, S, iview_draw_data_lines },
330 #ifdef USESTRINGS
331 { NULL, S, iview_draw_data_strings },
332 #endif /* USESTRINGS */
333
334 { NULL, S, iview_rotate_2 },
335
336 { NULL, S, iview_adjust_to_data },
337 { NULL, S, iview_visible_range },
338 { NULL, S, iview_scale_to_range },
339 { NULL, S, iview_scale },
340 { NULL, S, iview_shift },
341
342 { NULL, S, iview_clear_masks },
343 { NULL, S, iview_slice_variable },
344 { NULL, S, iview_real_to_screen },
345 { NULL, S, iview_screen_to_real },
346 { NULL, S, iview_scaled_to_screen },
347 { NULL, S, iview_screen_to_scaled },
348 { NULL, S, iview_points_in_rect },
349 { NULL, S, iview_adjust_depth_cuing },
350
351 { NULL, S, iview_spin_allocate },
352 { NULL, S, iview_spin_content_variables },
353 { NULL, S, iview_spin_showing_axes },
354 { NULL, S, iview_spin_depth_cuing },
355 { NULL, S, iview_spin_resize },
356 { NULL, S, iview_spin_redraw_content },
357 { NULL, S, iview_spin_rotate },
358 { NULL, S, iview_spin_angle },
359 { NULL, S, iview_spin_rotate },
360 { NULL, S, iview_spin_draw_axes },
361
362 { NULL, S, iview_scatmat_allocate },
363 { NULL, S, iview_scatmat_resize },
364 { NULL, S, xsobject_null_method },
365 { NULL, S, iview_scatmat_redraw_content },
366 { NULL, S, iview_scatmat_click },
367 { NULL, S, iview_scatmat_motion },
368 { NULL, S, iview_scatmat_add_points },
369 { NULL, S, iview_scatmat_add_lines },
370 #ifdef USESTRINGS
371 { NULL, S, iview_scatmat_add_strings },
372 #endif /* USESTRINGS */
373 { NULL, S, iview_scatmat_adjust_screen_point},
374 { NULL, S, iview_scatmat_adjust_points_in_rect},
375 { NULL, S, iview_scatmat_mark_points_in_rect},
376
377 { NULL, S, iview_list_allocate },
378 { NULL, S, xsobject_null_method },
379 { NULL, S, iview_list_redraw_content },
380 { NULL, S, iview_list_add_points },
381 { NULL, S, iview_list_adjust_screen_point},
382 { NULL, S, iview_list_adjust_points_in_rect},
383 { NULL, S, iview_list_mark_points_in_rect},
384
385 { NULL, S, iview_hist_isnew },
386 { NULL, S, iview_hist_allocate },
387 { NULL, S, iview_hist_add_points },
388 { NULL, S, iview_hist_clear_points },
389 { NULL, S, iview_hist_resize },
390 { NULL, S, iview_hist_redraw_content },
391 { NULL, S, iview_hist_adjust_screen },
392 { NULL, S, iview_hist_num_bins },
393 { NULL, S, iview_hist_bin_counts },
394 { NULL, S, iview_hist_adjust_to_data },
395 { NULL, S, iview_hist_adjust_screen_point},
396 { NULL, S, iview_hist_adjust_points_in_rect},
397 { NULL, S, iview_hist_mark_points_in_rect},
398
399 { NULL, S, iview_plot2d_add_points },
400 { NULL, S, iview_plot2d_add_lines },
401 #ifdef USESTRINGS
402 { NULL, S, iview_plot2d_add_strings },
403 #endif /* USESTRINGS */
404 { NULL, S, iview_plot2d_adjust_to_data },
405 #endif /* NOGRAPHICS */
406
407 /* compound.c */
408 { NULL, S, xsobject_null_method },
409 { NULL, S, xsobject_null_method },
410 { NULL, S, xsobject_null_method },
411 { NULL, S, xsobject_null_method },
412
413 /************************************************************************/
414 /************************************************************************/
415 /** **/
416 /** Reguler Functions **/
417 /** **/
418 /************************************************************************/
419 /************************************************************************/
420
421 /* dialog.c */
422 { "SYSBEEP", S, xssysbeep },
423 #ifdef MACINTOSH
424 { "ABOUT-XLISP-STAT", S, xsabout_xlisp_stat },
425 { "LAUNCH-APPLICATION", S, xlaunchapp },
426 { "ENCODE-SIGNATURE", S, xstrtoostype },
427 { "GET-FRONT-PROCESS", S, xgetfrontprocess },
428 { "SET-FRONT-PROCESS", S, xsetfrontprocess },
429 { "GET-PROCESS-LIST", S, xgetprocesslist },
430 { "GET-APPLE-EVENT-TARGET", S, xgettarget },
431 { "GET-APPLE-EVENT-TARGET-LIST", S, xgettargetlist },
432 { "BROWSE-APPLE-EVENT-TARGETS", S, xbrowsetargets },
433 { "SEND-APPLE-EVENT", S, xsendappleevent },
434 { "START-SESSION", S, xppcstartup },
435
436 /* edit.c */
437 { "OPEN-FILE-DIALOG", S, xsopenfiledialog },
438 { "SET-FILE-DIALOG", S, xssetfiledialog },
439 { "SET-VOLUME", S, xssetvolume },
440 { "FRONT-WINDOW", S, xsfrontwindow },
441 { "HIDE-FRONT-WINDOW", S, xshidefrontwindow },
442 { "SYSTEM-EDIT", S, xssystem_edit },
443 #endif /* MACINTOSH */
444 #ifdef MSDOS
445 #ifdef _Windows
446 { "ABOUT-XLISP-STAT", S, xsabout_xlisp_stat },
447 { "MSW-CUT", S, msw_cut },
448 { "MSW-COPY", S, msw_copy },
449 { "MSW-PASTE", S, msw_paste },
450 { "MSW-CLEAR", S, msw_clear },
451 { "MSW-COPY-PASTE", S, msw_copy_paste },
452 { "MSW-TILE", S, msw_tile },
453 { "MSW-CASCADE", S, msw_cascade },
454 { "MSW-CLOSE-ALL", S, msw_closeall },
455 { "MSW-ARRANGE-ICONS", S, msw_arrange_icons },
456 { "MSW-EXIT", S, msw_exit },
457 { "MSW-FREE-MEM", S, msw_free_mem },
458 { "MSW-CURSOR-SIZE", S, msw_cursor_size },
459 { "SYSTEM", SM, msw_win_exec },
460 { "MSW-WIN-EXEC", SM, msw_win_exec },
461 { "MSW-WIN-HELP", S, msw_win_help },
462 { "OPEN-FILE-DIALOG", S, xsopenfiledialog },
463 { "SET-FILE-DIALOG", S, xssetfiledialog },
464 { "SYSTEM::DDE-NAME-SERVICE", S, dde_name_service },
465 { "DDE-SERVICES", S, dde_services },
466 { "DDE-CONNECT", S, dde_connect },
467 { "DDE-CLIENT-TRANSACTION", S, dde_client_transaction },
468 { "DDE-DISCONNECT", S, dde_disconnect },
469 { "MSW-GET-PROFILE-STRING", S, msw_get_profile_string },
470 { "MSW-WRITE-PROFILE-STRING", S, msw_write_profile_string },
471 { "MSW-MAIN-FRAME-VISIBLE", S, msw_main_frame_visible },
472 #endif /* _Windows */
473 #endif /* MSDOS */
474
475 /* experimental.c */
476 { "SYSTEM::GETENV", S, xsgetenv },
477
478 /* common.c */
479 { "STRING-SEARCH", S, xsstringsearch },
480 { "COMPLEX", S, xsrcomplex },
481 { "CONJUGATE", S, xsrconjugate },
482 { "REALPART", S, xsrrealpart },
483 { "IMAGPART", S, xsrimagpart },
484
485 /* distributions.c */
486 { "NORMAL-CDF", S, xsrnormalcdf },
487 { "BETA-CDF", S, xsrbetacdf },
488 { "GAMMA-CDF", S, xsrgammacdf },
489 { "CHISQ-CDF", S, xsrchisqcdf },
490 { "T-CDF", S, xsrtcdf },
491 { "F-CDF", S, xsrfcdf },
492 { "CAUCHY-CDF", S, xsrcauchycdf },
493 { "LOG-GAMMA", S, xsrloggamma },
494 { "BIVNORM-CDF", S, xsrbnormcdf },
495 { "NORMAL-QUANT", S, xsrnormalquant },
496 { "CAUCHY-QUANT", S, xsrcauchyquant },
497 { "BETA-QUANT", S, xsrbetaquant },
498 { "GAMMA-QUANT", S, xsrgammaquant },
499 { "CHISQ-QUANT", S, xsrchisqquant },
500 { "T-QUANT", S, xsrtquant },
501 { "F-QUANT", S, xsrfquant },
502 { "NORMAL-DENS", S, xsrnormaldens },
503 { "CAUCHY-DENS", S, xsrcauchydens },
504 { "BETA-DENS", S, xsrbetadens },
505 { "GAMMA-DENS", S, xsrgammadens },
506 { "CHISQ-DENS", S, xsrchisqdens },
507 { "T-DENS", S, xsrtdens },
508 { "F-DENS", S, xsrfdens },
509 { "UNIFORM-RAND", S, xsruniformrand },
510 { "NORMAL-RAND", S, xsrnormalrand },
511 { "CAUCHY-RAND", S, xsrcauchyrand },
512 { "GAMMA-RAND", S, xsrgammarand },
513 { "CHISQ-RAND", S, xsrchisqrand },
514 { "T-RAND", S, xsrtrand },
515 { "BETA-RAND", S, xsrbetarand },
516 { "F-RAND", S, xsrfrand },
517
518 /* ddistributions.c */
519 { "BINOMIAL-CDF", S, xsrbinomialcdf },
520 { "POISSON-CDF", S, xsrpoissoncdf },
521 { "BINOMIAL-PMF", S, xsrbinomialpmf },
522 { "POISSON-PMF", S, xsrpoissonpmf },
523 { "BINOMIAL-QUANT", S, xsrbinomialquant },
524 { "POISSON-QUANT", S, xsrpoissonquant },
525 { "BINOMIAL-RAND", S, xsrbinomialrand },
526 { "POISSON-RAND", S, xsrpoissonrand },
527
528 /* linalg.c */
529 { "ANY-COMPLEX-ELEMENTS", S, xsanycomplex },
530 { "TRANSPOSE-INTO", S, xstransposeinto },
531 { "GENERIC-TO-LINALG", S, xsgen2linalg },
532 { "LINALG-TO-GENERIC", S, xslinalg2gen },
533 { "LINPACK-DGECO", S, xslpdgeco },
534 { "LINPACK-DGEDI", S, xslpdgedi },
535 { "LINPACK-DGEFA", S, xslpdgefa },
536 { "LINPACK-DGESL", S, xslpdgesl },
537 { "LINPACK-ZGECO", S, xslpzgeco },
538 { "LINPACK-ZGEDI", S, xslpzgedi },
539 { "LINPACK-ZGEFA", S, xslpzgefa },
540 { "LINPACK-ZGESL", S, xslpzgesl },
541 { "LINPACK-DSVDC", S, xslpdsvdc },
542 { "LINPACK-ZSVDC", S, xslpzsvdc },
543 { "LINPACK-DQRDC", S, xslpdqrdc },
544 { "LINPACK-DQRSL", S, xslpdqrsl },
545 { "LINPACK-ZQRDC", S, xslpzqrdc },
546 { "LINPACK-ZQRSL", S, xslpzqrsl },
547 { "EISPACK-CH", S, xseispackch },
548 { "EISPACK-RS", S, xseispackrs },
549 { "CHOL-DECOMP", S, xschol_decomp },
550 { "MAKE-ROTATION", S, xsmake_rotation },
551 { "GET-SMOOTHER-DATA", SM, xsgetsmdata },
552 { "BASE-SPLINE", S, xsbasespline },
553 { "BASE-KERNEL-SMOOTH", S, xsbasekernelsmooth },
554 { "BASE-LOWESS", S, xsbaselowess },
555 { "SURFACE-CONTOUR", S, xssurface_contour },
556 { "FFT", S, xsfft },
557 { "AX+Y", S, xsaxpy },
558
559 /* matrices1.c */
560 { "DIAGONAL", S, xsdiagonal },
561 { "ROW-LIST", S, xsrowlist },
562 { "COLUMN-LIST", S, xscolumnlist },
563 { "BIND-ROWS", S, xsbindrows },
564 { "BIND-COLUMNS", S, xsbindcols },
565 { "TRANSPOSE-LIST", S, xstransposelist },
566
567 /* matrices2.c */
568 { "BASE-MAKE-SWEEP-MATRIX", S, xsbasemkswpmat },
569 { "SWEEP-IN-PLACE", S, xssweepinplace },
570
571 /* basics.c */
572 { "SEQUENCEP", S, xssequencep },
573 { "COPY-VECTOR", S, xscopyvector },
574 { "COPY-ARRAY", S, xscopyarray },
575 { "SPLIT-LIST", S, xssplitlist },
576 { "WHICH", S, xswhich },
577 { "ISEQ", S, xsiseq },
578 { "REPEAT", S, xsrepeat },
579 { "SELECT", S, xsselect },
580 { "SET-SELECT", S, xssetselect },
581 { "PERMUTE-ARRAY", S, xspermutearray },
582
583 /* compound.c */
584 { "COMPOUND-DATA-P", S, xscompoundp },
585 { "COMPOUND-DATA-LENGTH", S, xscompound_length },
586 { "COMPOUND-DATA-SEQ", S, xscompound_seq },
587 { "MAP-ELEMENTS", S, xsmap_elements },
588
589 /* math.c */
590 { "+", S, xsradd },
591 { "-", S, xsrsub },
592 { "*", S, xsrmul },
593 #ifdef BIGNUMS
594 { "/", S, xsrfdiv },
595 #else
596 { "/", S, xsrdiv },
597 #endif /* BIGNUMS */
598 { "DIVIDE", S, xsrdiv },
599 { "PMIN", S, xsrmin },
600 { "PMAX", S, xsrmax },
601 { "REM", S, xsrrem },
602 { "MOD", S, xsrmod },
603 #ifdef BIGNUM
604 { "^", S, xsrfexpt },
605 { "**", S, xsrfexpt },
606 { "EXPT", S, xsrfexpt },
607 #else
608 { "^", S, xsrexpt },
609 { "**", S, xsrexpt },
610 { "EXPT", S, xsrexpt },
611 #endif /* BIGNUMS */
612 { "IEXPT", S, xsrexpt },
613 { "LOG", S, xsrlog },
614 #ifdef BIGNUMS
615 { "DENOMINATOR", S, xsrdenominator },
616 { "NUMERATOR", S, xsrnumerator },
617 { "RATIONAL", S, xsrrational },
618 #endif /* BIGNUMS */
619
620 { "LOGAND", S, xsrlogand },
621 { "LOGIOR", S, xsrlogior },
622 { "LOGXOR", S, xsrlogxor },
623 { "LOGNOT", S, xsrlognot },
624
625 { "ABS", S, xsrabs },
626 { "1+", S, xsradd1 },
627 { "1-", S, xsrsub1 },
628 { "SIN", S, xsrsin },
629 { "COS", S, xsrcos },
630 { "TAN", S, xsrtan },
631 { "EXP", S, xsrexp },
632 { "SQRT", S, xsrsqrt },
633 { "TRUNCATE", SM, xsrfix },
634 { "FLOAT", S, xsrfloat },
635 { "RANDOM", S, xsrrand },
636 { "FLOOR", SM, xsrfloor },
637 { "CEILING", SM, xsrceil },
638 { "ROUND", SM, xsrround },
639 { "ASIN", S, xsrasin },
640 { "ACOS", S, xsracos },
641 { "ATAN", S, xsratan },
642 { "PHASE", S, xsrphase },
643
644 { "MINUSP", S, xsrminusp },
645 { "ZEROP", S, xsrzerop },
646 { "PLUSP", S, xsrplusp },
647 { "EVENP", S, xsrevenp },
648 { "ODDP", S, xsroddp },
649
650 { "<", S, xsrlss },
651 { "<=", S, xsrleq },
652 { "=", S, xsrequ },
653 { "/=", S, xsrneq },
654 { ">=", S, xsrgeq },
655 { ">", S, xsrgtr },
656
657 /* objects.c */
658 { "KIND-OF-P", S, xskind_of_p },
659 { "SLOT-VALUE", S, xsslot_value },
660 { "MAKE-OBJECT", S, xsmake_object },
661 { "SEND", SM, xmsend },
662 { "SEND-SUPER", SM, xmsendsuper },
663 { "CALL-NEXT-METHOD", SM, xscall_next },
664 { "CALL-METHOD", SM, xscall_method },
665 { "DEFMETH", F, xsdefmeth },
666 { "DEFPROTO", F, xsdefproto },
667
668 /* optimize.c */
669 #ifdef OPTIMIZE
670 { "BRACKET-SEARCH", S, xsbracket_search },
671 { "GOLDEN-SEARCH", S, xsgolden_search },
672 { "PARABOLIC-SEARCH", S, xsparabolic_search },
673 #endif /* OPTIMIZE */
674
675 /* sortdata.c */
676 { "SORT-DATA", S, xssortdata },
677 { "ORDER", S, xsorder },
678 { "RANK", S, xsrank },
679 { "SORT-DATA<", S, xssortcmp },
680 { "ORDER<", S, xsordercmp },
681
682 /* statistics.c */
683 { "SUM", S, xssum },
684 { "PROD", S, xsprod },
685 { "MIN", S, xsmin },
686 { "MAX", S, xsmax },
687 { "COUNT-ELEMENTS", S, xscount },
688 { "ELEMENT-SEQ", S, xselement_seq },
689 { "IF-ELSE", S, xsifelse },
690 { "MEAN", S, xsmean },
691 { "SAMPLE", S, xssample },
692
693 #ifndef NOGRAPHICS
694 /* windows.c */
695 { "SCREEN-SIZE", S, xsscreen_size },
696 { "SCREEN-HAS-COLOR", S, xsscreen_has_color },
697 { "SYSTEM-HAS-WINDOWS", S, xssystem_has_windows },
698 { "FLUSH-GRAPHICS", S, xsflush_graphics },
699
700 /* xsiviewwindow.c */
701 { "RESET-GRAPHICS-BUFFER", S, iview_window_reset_buffer },
702 { "MAKE-COLOR", S, gw_make_color },
703 { "FREE-COLOR", S, gw_free_color },
704 { "MAKE-CURSOR", S, gw_make_cursor },
705 { "FREE-CURSOR", S, gw_free_cursor },
706
707 /* xsiviewinternal.c */
708 { "UNLINK-ALL-WINDOWS", S, iview_unlink_all_windows },
709
710 /* xsiview.c */
711 { "GET-NICE-RANGE", S, iview_get_nice_range },
712
713 /* xsgraphics.c */
714 { "HISTOGRAM", S, xshistogram },
715 { "PLOT-POINTS", S, xsplot_points },
716 { "PLOT-LINES", S, xsplot_lines },
717 { "SPIN-PLOT", S, xsspin_plot },
718 { "SCATTERPLOT-MATRIX", S, xsscatterplot_matrix },
719 { "NAME-LIST", S, xsnamelist },
720 #endif /* NOGRAPHICS */
721 #ifdef UNIX
722 { "GNU-PLOT-POINTS", S, gnupointplot },
723 { "GNU-PLOT-LINES", S, gnulineplot },
724 #endif /* UNIX */
725
726 #ifdef MACINTOSH
727 /* macxsgraph.c */
728 { "PICK-COLOR", S, xspick_color },
729
730 /* macdynload.c */
731 { "OPEN-RESOURCE-FILE", S, xsopen_resfile },
732 { "CLOSE-RESOURCE-FILE", S, xsclose_resfile },
733 { "CALL-CFUN", S, xscall_cfun },
734 #endif /* MACINTOSH */
735
736 #ifdef MSDOS
737 #ifdef _Windows
738 /* mswdynld.c */
739 { "LOAD-DLL", SM, xsload_dll },
740 { "FREE-DLL", S, xsfree_dll },
741 { "CALL-CFUN", S, xscall_cfun },
742 #endif /* _Windows */
743 #endif /* MSDOS */
744
745 #ifdef X11WINDOWS
746 { "PARSE-COLOR", S, xsparse_color },
747 { "BEST-CURSOR-SIZE", S, xsbest_cursor_size },
748 { "BITMAP-FROM-FILE", S, xsbitmap_from_file },
749 { "X11-OPTIONS", S, xsx11_options },
750 #endif /* X11WINDOWS */
751
752 #ifdef FOREIGNCALL
753 { "DYN-LOAD", S, xsdynload },
754 { "CALL-CFUN", S, xscall_cfun },
755 { "CALL-FSUB", S, xscall_fsub },
756 { "CALL-LFUN", S, xscall_lfun },
757 #endif /* FOREIGNCALL */
758 #ifdef UNIX
759 { "SYSTEM", S, xssystem },
760 { "POPEN", S, Prim_POPEN },
761 { "PCLOSE", S, Prim_PCLOSE },
762 #endif /* UNIX */
763
764 #ifdef MSDOS
765 #ifndef _Windows
766 { "SYSTEM", S, xsystem },
767 { "GET-KEY", S, xgetkey },
768 #endif /* _Windows */
769
770 #ifdef NOGRAPHICS
771 { "PLOT-POINTS", S, gnupointplot },
772 { "PLOT-LINES", S, gnulineplot },
773 #endif /* NOGRAPHICS */
774 #endif /* MSDOS */
775 #ifdef BYTECODE
776 { "MAKE-BYTE-CODE", S, xlmakebcode },
777 { "BYTE-CODE-CLOSE", S, xlbcclose },
778 { "DYNAMIC-VALUE", S, xldval },
779 { "GET-LAMBDA-NAME", S, xlgetlambdaname },
780 { "COERCE-TO-MACRO", S, xlcoercemacro },
781 { "MAKE-CPS-NODE", S, xlmakecpsnode },
782 { "CPS-NODE-INTERNAL", S, xlcpsinternal },
783 { "CPS-NODE-TRANSFORM", S, xlcpstransform },
784 { "CPS-LEAF-NODE-P", S, xlcpsleafnodep },
785 { "CPS-LAMBDA-NODE-P", S, xlcpslambdanodep },
786 { "CPS-CALL-NODE-P", S, xlcpscallnodep },
787 { "CPS-ANY-REFERENCES-P", S, xlcpsanyrefs },
788 { "CPS-FIND-REFERENCES", S, xlcpsfindrefs },
789 { "CPS-NODE-CHILDREN", S, xlcpsnodechildren },
790 { "CPS-NODE-PARENT", S, xlcpsnodeparent },
791 { "CPS-NODE-SIMPLIFIED-P", S, xlcpsnodesimplified },
792 { "CPS-NODE-NOTE", S, xlcpsnodenote },
793 { "CPS-LEAF-NODE-VALUE", S, xlcpsleafnodevalue },
794 { "CPS-LEAF-NODE-COUNT", S, xlcpsleafnodecount },
795 { "CPS-LAMBDA-NODE-ARGLIST", S, xlcpslambdanodearglist },
796 { "CPS-LAMBDA-NODE-LAMBDA-LIST", S, xlcpslambdanodelambdalist },
797 { "CPS-LAMBDA-NODE-NAME", S, xlcpslambdanodename },
798 { "CPS-SET-NODE-CHILDREN", S, xlcpssetnodechildren },
799 { "CPS-SET-NODE-PARENT", S, xlcpssetnodeparent },
800 { "CPS-SET-NODE-SIMPLIFIED", S, xlcpssetnodesimplified },
801 { "CPS-SET-NODE-NOTE", S, xlcpssetnodenote },
802 { "CPS-SET-LEAF-NODE-VALUE", S, xlcpssetleafnodevalue },
803 { "CPS-SET-LEAF-NODE-COUNT", S, xlcpssetleafnodecount },
804 { "CPS-SET-LAMBDA-NODE-ARGLIST", S, xlcpssetlambdanodearglist },
805 { "CPS-SET-LAMBDA-NODE-LAMBDA-LIST",S, xlcpssetlambdanodelambdalist},
806 { "CPS-SET-LAMBDA-NODE-NAME", S, xlcpssetlambdanodename },
807 { "CPS-LAMBDA-NODE-BODY", S, xlcpslambdanodebody },
808 { "CPS-CALL-NODE-FUNCTION", S, xlcpscallnodefunction },
809 { "CPS-CALL-NODE-ARGS", S, xlcpscallnodeargs },
810 #endif /* BYTECODE */
811
812 { "BLAS-DASUM", S, xblasdasum },
813 { "BLAS-DAXPY", S, xblasdaxpy },
814 { "BLAS-DCOPY", S, xblasdcopy },
815 { "BLAS-DDOT", S, xblasddot },
816 { "BLAS-DNRM2", S, xblasdnrm2 },
817 { "BLAS-DROT", S, xblasdrot },
818 { "BLAS-DROTG", SM, xblasdrotg },
819 { "BLAS-DSCAL", S, xblasdscal },
820 { "BLAS-DSWAP", S, xblasdswap },
821 { "BLAS-IDAMAX", S, xblasidamax },
822 { "BLAS-IZAMAX", S, xblasizamax },
823 { "BLAS-DZASUM", S, xblasdzasum },
824 { "BLAS-DZNRM2", S, xblasdznrm2 },
825 { "BLAS-ZAXPY", S, xblaszaxpy },
826 { "BLAS-ZCOPY", S, xblaszcopy },
827 { "BLAS-ZDOTC", S, xlbaszdotc },
828 { "BLAS-ZDOTU", S, xlbaszdotu },
829 { "BLAS-ZDROT", S, xlbaszdrot },
830 { "BLAS-ZDSCAL", S, xlbaszdscal },
831 { "BLAS-ZROTG", SM, xlbaszrotg },
832 { "BLAS-ZSCAL", S, xlbaszscal },
833 { "BLAS-ZSWAP", S, xlbaszswap },
834 { "BLAS-DGEMV", S, xlblasdgemv },
835 { "BLAS-DTRMV", S, xlblasdtrmv },
836 { "BLAS-DGER", S, xlblasdger },
837 { "BLAS-DTRSV", S, xlblasdtrsv },
838 { "BLAS-ZGEMV", S, xlblaszgemv },
839 { "BLAS-ZTRMV", S, xlblasztrmv },
840 { "BLAS-ZGERC", S, xlblaszgerc },
841 { "BLAS-ZGERU", S, xlblaszgeru },
842 { "BLAS-ZTRSV", S, xlblasztrsv },
843 { "BLAS-DGEMM", S, xlblasdgemm },
844 { "BLAS-DTRSM", S, xlblasdtrsm },
845 { "BLAS-ZGEMM", S, xlblaszgemm },
846 { "BLAS-ZTRSM", S, xlblasztrsm },
847 { "UNCMIN-MAXRELSIZE", S, xsminmaxrelsize },
848 { "UNCMIN-CHOLSOLVE", S, xsmincholsolve },
849 { "UNCMIN-MODELHESS", S, xsminmodelhess },
850 { "UNCMIN-GRADSIZE", S, xsmingradsize },
851 { "UNCMIN-LINESEARCH", S, xsminlinesearch },
852 { "UNCMIN-MAXRELSIZE", S, xsminmaxrelsize },
853 { "UNCMIN-CHOLSOLVE", S, xsmincholsolve },
854 { "UNCMIN-MODELHESS", S, xsminmodelhess },
855 { "UNCMIN-GRADSIZE", S, xsmingradsize },
856 { "UNCMIN-LINESEARCH", S, xsminlinesearch },
857 #ifdef _Windows
858 { "MSW-PRINT", S, msw_print },
859 { "MSW-PAGESETUP", S, msw_pagesetup },
860 #endif
861 #else
862 { "SYSTEM", S, xsystem },
863
864 #if !(defined(UNIX)||defined(AMIGA)||defined(__SASC__))
865 { "GET-KEY", S, xgetkey },
866 #endif
867
868 #ifdef GRAPHICS
869 { "CLS", S, xcls },
870 { "GOTO-XY", S, xgotoxy },
871 { "CLEOL", S, xcleol },
872 { "MODE", S, xmode },
873 { "COLOR", S, xcolor },
874 { "MOVE", S, xmove },
875 { "DRAW", S, xdraw },
876 { "MOVEREL", S, xmoverel},
877 { "DRAWREL", S, xdrawrel},
878 #endif
879
880 #ifdef UNIX
881 #ifdef FILETABLE
882 { "POPEN", S, Prim_POPEN},
883 { "PCLOSE", S, Prim_PCLOSE},
884 #endif /* FILETABLE */
885 #endif
886 #endif /* XLISP_STAT */
XLispStat