Back to index

texmacs  1.0.7.15
glue_server.cpp
Go to the documentation of this file.
00001 
00002 /******************************************************************************
00003 *
00004 * This file has been generated automatically using build-glue.scm
00005 * from build-glue-server.scm. Please do not edit its contents.
00006 * Copyright (C) 2000 Joris van der Hoeven
00007 *
00008 * This software falls under the GNU general public license version 3 or later.
00009 * It comes WITHOUT ANY WARRANTY WHATSOEVER. For details, see the file LICENSE
00010 * in the root directory or <http://www.gnu.org/licenses/gpl-3.0.html>.
00011 *
00012 ******************************************************************************/
00013 
00014 tmscm
00015 tmg_insert_kbd_wildcard (tmscm arg1, tmscm arg2, tmscm arg3, tmscm arg4, tmscm arg5) {
00016   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "insert-kbd-wildcard");
00017   TMSCM_ASSERT_STRING (arg2, TMSCM_ARG2, "insert-kbd-wildcard");
00018   TMSCM_ASSERT_BOOL (arg3, TMSCM_ARG3, "insert-kbd-wildcard");
00019   TMSCM_ASSERT_BOOL (arg4, TMSCM_ARG4, "insert-kbd-wildcard");
00020   TMSCM_ASSERT_BOOL (arg5, TMSCM_ARG5, "insert-kbd-wildcard");
00021 
00022   string in1= tmscm_to_string (arg1);
00023   string in2= tmscm_to_string (arg2);
00024   bool in3= tmscm_to_bool (arg3);
00025   bool in4= tmscm_to_bool (arg4);
00026   bool in5= tmscm_to_bool (arg5);
00027 
00028   // TMSCM_DEFER_INTS;
00029   get_server()->insert_kbd_wildcard (in1, in2, in3, in4, in5);
00030   // TMSCM_ALLOW_INTS;
00031 
00032   return TMSCM_UNSPECIFIED;
00033 }
00034 
00035 tmscm
00036 tmg_set_variant_keys (tmscm arg1, tmscm arg2) {
00037   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "set-variant-keys");
00038   TMSCM_ASSERT_STRING (arg2, TMSCM_ARG2, "set-variant-keys");
00039 
00040   string in1= tmscm_to_string (arg1);
00041   string in2= tmscm_to_string (arg2);
00042 
00043   // TMSCM_DEFER_INTS;
00044   get_server()->set_variant_keys (in1, in2);
00045   // TMSCM_ALLOW_INTS;
00046 
00047   return TMSCM_UNSPECIFIED;
00048 }
00049 
00050 tmscm
00051 tmg_kbd_pre_rewrite (tmscm arg1) {
00052   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "kbd-pre-rewrite");
00053 
00054   string in1= tmscm_to_string (arg1);
00055 
00056   // TMSCM_DEFER_INTS;
00057   string out= get_server()->kbd_pre_rewrite (in1);
00058   // TMSCM_ALLOW_INTS;
00059 
00060   return string_to_tmscm (out);
00061 }
00062 
00063 tmscm
00064 tmg_kbd_post_rewrite (tmscm arg1, tmscm arg2) {
00065   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "kbd-post-rewrite");
00066   TMSCM_ASSERT_BOOL (arg2, TMSCM_ARG2, "kbd-post-rewrite");
00067 
00068   string in1= tmscm_to_string (arg1);
00069   bool in2= tmscm_to_bool (arg2);
00070 
00071   // TMSCM_DEFER_INTS;
00072   string out= get_server()->kbd_post_rewrite (in1, in2);
00073   // TMSCM_ALLOW_INTS;
00074 
00075   return string_to_tmscm (out);
00076 }
00077 
00078 tmscm
00079 tmg_kbd_system_rewrite (tmscm arg1) {
00080   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "kbd-system-rewrite");
00081 
00082   string in1= tmscm_to_string (arg1);
00083 
00084   // TMSCM_DEFER_INTS;
00085   tree out= get_server()->kbd_system_rewrite (in1);
00086   // TMSCM_ALLOW_INTS;
00087 
00088   return tree_to_tmscm (out);
00089 }
00090 
00091 tmscm
00092 tmg_set_font_rules (tmscm arg1) {
00093   TMSCM_ASSERT_SCHEME_TREE (arg1, TMSCM_ARG1, "set-font-rules");
00094 
00095   scheme_tree in1= tmscm_to_scheme_tree (arg1);
00096 
00097   // TMSCM_DEFER_INTS;
00098   get_server()->set_font_rules (in1);
00099   // TMSCM_ALLOW_INTS;
00100 
00101   return TMSCM_UNSPECIFIED;
00102 }
00103 
00104 tmscm
00105 tmg_window_get_id () {
00106   // TMSCM_DEFER_INTS;
00107   int out= get_server()->get_window_id ();
00108   // TMSCM_ALLOW_INTS;
00109 
00110   return int_to_tmscm (out);
00111 }
00112 
00113 tmscm
00114 tmg_window_set_property (tmscm arg1, tmscm arg2) {
00115   TMSCM_ASSERT_SCHEME_TREE (arg1, TMSCM_ARG1, "window-set-property");
00116   TMSCM_ASSERT_SCHEME_TREE (arg2, TMSCM_ARG2, "window-set-property");
00117 
00118   scheme_tree in1= tmscm_to_scheme_tree (arg1);
00119   scheme_tree in2= tmscm_to_scheme_tree (arg2);
00120 
00121   // TMSCM_DEFER_INTS;
00122   get_server()->set_window_property (in1, in2);
00123   // TMSCM_ALLOW_INTS;
00124 
00125   return TMSCM_UNSPECIFIED;
00126 }
00127 
00128 tmscm
00129 tmg_window_get_property (tmscm arg1) {
00130   TMSCM_ASSERT_SCHEME_TREE (arg1, TMSCM_ARG1, "window-get-property");
00131 
00132   scheme_tree in1= tmscm_to_scheme_tree (arg1);
00133 
00134   // TMSCM_DEFER_INTS;
00135   scheme_tree out= get_server()->get_window_property (in1);
00136   // TMSCM_ALLOW_INTS;
00137 
00138   return scheme_tree_to_tmscm (out);
00139 }
00140 
00141 tmscm
00142 tmg_show_header (tmscm arg1) {
00143   TMSCM_ASSERT_BOOL (arg1, TMSCM_ARG1, "show-header");
00144 
00145   bool in1= tmscm_to_bool (arg1);
00146 
00147   // TMSCM_DEFER_INTS;
00148   get_server()->show_header (in1);
00149   // TMSCM_ALLOW_INTS;
00150 
00151   return TMSCM_UNSPECIFIED;
00152 }
00153 
00154 tmscm
00155 tmg_show_icon_bar (tmscm arg1, tmscm arg2) {
00156   TMSCM_ASSERT_INT (arg1, TMSCM_ARG1, "show-icon-bar");
00157   TMSCM_ASSERT_BOOL (arg2, TMSCM_ARG2, "show-icon-bar");
00158 
00159   int in1= tmscm_to_int (arg1);
00160   bool in2= tmscm_to_bool (arg2);
00161 
00162   // TMSCM_DEFER_INTS;
00163   get_server()->show_icon_bar (in1, in2);
00164   // TMSCM_ALLOW_INTS;
00165 
00166   return TMSCM_UNSPECIFIED;
00167 }
00168 
00169 tmscm
00170 tmg_show_side_tools (tmscm arg1, tmscm arg2) {
00171   TMSCM_ASSERT_INT (arg1, TMSCM_ARG1, "show-side-tools");
00172   TMSCM_ASSERT_BOOL (arg2, TMSCM_ARG2, "show-side-tools");
00173 
00174   int in1= tmscm_to_int (arg1);
00175   bool in2= tmscm_to_bool (arg2);
00176 
00177   // TMSCM_DEFER_INTS;
00178   get_server()->show_side_tools (in1, in2);
00179   // TMSCM_ALLOW_INTS;
00180 
00181   return TMSCM_UNSPECIFIED;
00182 }
00183 
00184 tmscm
00185 tmg_show_footer (tmscm arg1) {
00186   TMSCM_ASSERT_BOOL (arg1, TMSCM_ARG1, "show-footer");
00187 
00188   bool in1= tmscm_to_bool (arg1);
00189 
00190   // TMSCM_DEFER_INTS;
00191   get_server()->show_footer (in1);
00192   // TMSCM_ALLOW_INTS;
00193 
00194   return TMSCM_UNSPECIFIED;
00195 }
00196 
00197 tmscm
00198 tmg_visible_headerP () {
00199   // TMSCM_DEFER_INTS;
00200   bool out= get_server()->visible_header ();
00201   // TMSCM_ALLOW_INTS;
00202 
00203   return bool_to_tmscm (out);
00204 }
00205 
00206 tmscm
00207 tmg_visible_icon_barP (tmscm arg1) {
00208   TMSCM_ASSERT_INT (arg1, TMSCM_ARG1, "visible-icon-bar?");
00209 
00210   int in1= tmscm_to_int (arg1);
00211 
00212   // TMSCM_DEFER_INTS;
00213   bool out= get_server()->visible_icon_bar (in1);
00214   // TMSCM_ALLOW_INTS;
00215 
00216   return bool_to_tmscm (out);
00217 }
00218 
00219 tmscm
00220 tmg_visible_side_toolsP (tmscm arg1) {
00221   TMSCM_ASSERT_INT (arg1, TMSCM_ARG1, "visible-side-tools?");
00222 
00223   int in1= tmscm_to_int (arg1);
00224 
00225   // TMSCM_DEFER_INTS;
00226   bool out= get_server()->visible_side_tools (in1);
00227   // TMSCM_ALLOW_INTS;
00228 
00229   return bool_to_tmscm (out);
00230 }
00231 
00232 tmscm
00233 tmg_visible_footerP () {
00234   // TMSCM_DEFER_INTS;
00235   bool out= get_server()->visible_footer ();
00236   // TMSCM_ALLOW_INTS;
00237 
00238   return bool_to_tmscm (out);
00239 }
00240 
00241 tmscm
00242 tmg_full_screen_mode (tmscm arg1, tmscm arg2) {
00243   TMSCM_ASSERT_BOOL (arg1, TMSCM_ARG1, "full-screen-mode");
00244   TMSCM_ASSERT_BOOL (arg2, TMSCM_ARG2, "full-screen-mode");
00245 
00246   bool in1= tmscm_to_bool (arg1);
00247   bool in2= tmscm_to_bool (arg2);
00248 
00249   // TMSCM_DEFER_INTS;
00250   get_server()->full_screen_mode (in1, in2);
00251   // TMSCM_ALLOW_INTS;
00252 
00253   return TMSCM_UNSPECIFIED;
00254 }
00255 
00256 tmscm
00257 tmg_full_screenP () {
00258   // TMSCM_DEFER_INTS;
00259   bool out= get_server()->in_full_screen_mode ();
00260   // TMSCM_ALLOW_INTS;
00261 
00262   return bool_to_tmscm (out);
00263 }
00264 
00265 tmscm
00266 tmg_full_screen_editP () {
00267   // TMSCM_DEFER_INTS;
00268   bool out= get_server()->in_full_screen_edit_mode ();
00269   // TMSCM_ALLOW_INTS;
00270 
00271   return bool_to_tmscm (out);
00272 }
00273 
00274 tmscm
00275 tmg_set_shrinking_factor (tmscm arg1) {
00276   TMSCM_ASSERT_INT (arg1, TMSCM_ARG1, "set-shrinking-factor");
00277 
00278   int in1= tmscm_to_int (arg1);
00279 
00280   // TMSCM_DEFER_INTS;
00281   get_server()->set_shrinking_factor (in1);
00282   // TMSCM_ALLOW_INTS;
00283 
00284   return TMSCM_UNSPECIFIED;
00285 }
00286 
00287 tmscm
00288 tmg_get_shrinking_factor () {
00289   // TMSCM_DEFER_INTS;
00290   int out= get_server()->get_shrinking_factor ();
00291   // TMSCM_ALLOW_INTS;
00292 
00293   return int_to_tmscm (out);
00294 }
00295 
00296 tmscm
00297 tmg_shell (tmscm arg1) {
00298   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "shell");
00299 
00300   string in1= tmscm_to_string (arg1);
00301 
00302   // TMSCM_DEFER_INTS;
00303   get_server()->shell (in1);
00304   // TMSCM_ALLOW_INTS;
00305 
00306   return TMSCM_UNSPECIFIED;
00307 }
00308 
00309 tmscm
00310 tmg_dialogue_end () {
00311   // TMSCM_DEFER_INTS;
00312   get_server()->dialogue_end ();
00313   // TMSCM_ALLOW_INTS;
00314 
00315   return TMSCM_UNSPECIFIED;
00316 }
00317 
00318 tmscm
00319 tmg_choose_file (tmscm arg1, tmscm arg2, tmscm arg3) {
00320   TMSCM_ASSERT_OBJECT (arg1, TMSCM_ARG1, "choose-file");
00321   TMSCM_ASSERT_STRING (arg2, TMSCM_ARG2, "choose-file");
00322   TMSCM_ASSERT_STRING (arg3, TMSCM_ARG3, "choose-file");
00323 
00324   object in1= tmscm_to_object (arg1);
00325   string in2= tmscm_to_string (arg2);
00326   string in3= tmscm_to_string (arg3);
00327 
00328   // TMSCM_DEFER_INTS;
00329   get_server()->choose_file (in1, in2, in3);
00330   // TMSCM_ALLOW_INTS;
00331 
00332   return TMSCM_UNSPECIFIED;
00333 }
00334 
00335 tmscm
00336 tmg_tm_interactive (tmscm arg1, tmscm arg2) {
00337   TMSCM_ASSERT_OBJECT (arg1, TMSCM_ARG1, "tm-interactive");
00338   TMSCM_ASSERT_SCHEME_TREE (arg2, TMSCM_ARG2, "tm-interactive");
00339 
00340   object in1= tmscm_to_object (arg1);
00341   scheme_tree in2= tmscm_to_scheme_tree (arg2);
00342 
00343   // TMSCM_DEFER_INTS;
00344   get_server()->interactive (in1, in2);
00345   // TMSCM_ALLOW_INTS;
00346 
00347   return TMSCM_UNSPECIFIED;
00348 }
00349 
00350 tmscm
00351 tmg_has_viewP () {
00352   // TMSCM_DEFER_INTS;
00353   bool out= get_server()->has_view ();
00354   // TMSCM_ALLOW_INTS;
00355 
00356   return bool_to_tmscm (out);
00357 }
00358 
00359 tmscm
00360 tmg_style_clear_cache () {
00361   // TMSCM_DEFER_INTS;
00362   get_server()->style_clear_cache ();
00363   // TMSCM_ALLOW_INTS;
00364 
00365   return TMSCM_UNSPECIFIED;
00366 }
00367 
00368 tmscm
00369 tmg_set_script_status (tmscm arg1) {
00370   TMSCM_ASSERT_INT (arg1, TMSCM_ARG1, "set-script-status");
00371 
00372   int in1= tmscm_to_int (arg1);
00373 
00374   // TMSCM_DEFER_INTS;
00375   get_server()->set_script_status (in1);
00376   // TMSCM_ALLOW_INTS;
00377 
00378   return TMSCM_UNSPECIFIED;
00379 }
00380 
00381 tmscm
00382 tmg_set_printing_command (tmscm arg1) {
00383   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "set-printing-command");
00384 
00385   string in1= tmscm_to_string (arg1);
00386 
00387   // TMSCM_DEFER_INTS;
00388   get_server()->set_printing_command (in1);
00389   // TMSCM_ALLOW_INTS;
00390 
00391   return TMSCM_UNSPECIFIED;
00392 }
00393 
00394 tmscm
00395 tmg_set_printer_paper_type (tmscm arg1) {
00396   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "set-printer-paper-type");
00397 
00398   string in1= tmscm_to_string (arg1);
00399 
00400   // TMSCM_DEFER_INTS;
00401   get_server()->set_printer_page_type (in1);
00402   // TMSCM_ALLOW_INTS;
00403 
00404   return TMSCM_UNSPECIFIED;
00405 }
00406 
00407 tmscm
00408 tmg_get_printer_paper_type () {
00409   // TMSCM_DEFER_INTS;
00410   string out= get_server()->get_printer_page_type ();
00411   // TMSCM_ALLOW_INTS;
00412 
00413   return string_to_tmscm (out);
00414 }
00415 
00416 tmscm
00417 tmg_set_printer_dpi (tmscm arg1) {
00418   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "set-printer-dpi");
00419 
00420   string in1= tmscm_to_string (arg1);
00421 
00422   // TMSCM_DEFER_INTS;
00423   get_server()->set_printer_dpi (in1);
00424   // TMSCM_ALLOW_INTS;
00425 
00426   return TMSCM_UNSPECIFIED;
00427 }
00428 
00429 tmscm
00430 tmg_set_default_shrinking_factor (tmscm arg1) {
00431   TMSCM_ASSERT_INT (arg1, TMSCM_ARG1, "set-default-shrinking-factor");
00432 
00433   int in1= tmscm_to_int (arg1);
00434 
00435   // TMSCM_DEFER_INTS;
00436   get_server()->set_default_shrinking_factor (in1);
00437   // TMSCM_ALLOW_INTS;
00438 
00439   return TMSCM_UNSPECIFIED;
00440 }
00441 
00442 tmscm
00443 tmg_get_default_shrinking_factor () {
00444   // TMSCM_DEFER_INTS;
00445   int out= get_server()->get_default_shrinking_factor ();
00446   // TMSCM_ALLOW_INTS;
00447 
00448   return int_to_tmscm (out);
00449 }
00450 
00451 tmscm
00452 tmg_get_nr_windows () {
00453   // TMSCM_DEFER_INTS;
00454   int out= get_server()->get_nr_windows ();
00455   // TMSCM_ALLOW_INTS;
00456 
00457   return int_to_tmscm (out);
00458 }
00459 
00460 tmscm
00461 tmg_image_gc () {
00462   // TMSCM_DEFER_INTS;
00463   get_server()->image_gc ();
00464   // TMSCM_ALLOW_INTS;
00465 
00466   return TMSCM_UNSPECIFIED;
00467 }
00468 
00469 tmscm
00470 tmg_inclusions_gc () {
00471   // TMSCM_DEFER_INTS;
00472   get_server()->inclusions_gc ();
00473   // TMSCM_ALLOW_INTS;
00474 
00475   return TMSCM_UNSPECIFIED;
00476 }
00477 
00478 tmscm
00479 tmg_update_all_path (tmscm arg1) {
00480   TMSCM_ASSERT_PATH (arg1, TMSCM_ARG1, "update-all-path");
00481 
00482   path in1= tmscm_to_path (arg1);
00483 
00484   // TMSCM_DEFER_INTS;
00485   get_server()->typeset_update (in1);
00486   // TMSCM_ALLOW_INTS;
00487 
00488   return TMSCM_UNSPECIFIED;
00489 }
00490 
00491 tmscm
00492 tmg_update_all_buffers () {
00493   // TMSCM_DEFER_INTS;
00494   get_server()->typeset_update_all ();
00495   // TMSCM_ALLOW_INTS;
00496 
00497   return TMSCM_UNSPECIFIED;
00498 }
00499 
00500 tmscm
00501 tmg_set_message (tmscm arg1, tmscm arg2) {
00502   TMSCM_ASSERT_CONTENT (arg1, TMSCM_ARG1, "set-message");
00503   TMSCM_ASSERT_CONTENT (arg2, TMSCM_ARG2, "set-message");
00504 
00505   content in1= tmscm_to_content (arg1);
00506   content in2= tmscm_to_content (arg2);
00507 
00508   // TMSCM_DEFER_INTS;
00509   get_server()->set_message (in1, in2);
00510   // TMSCM_ALLOW_INTS;
00511 
00512   return TMSCM_UNSPECIFIED;
00513 }
00514 
00515 tmscm
00516 tmg_set_message_temp (tmscm arg1, tmscm arg2, tmscm arg3) {
00517   TMSCM_ASSERT_CONTENT (arg1, TMSCM_ARG1, "set-message-temp");
00518   TMSCM_ASSERT_CONTENT (arg2, TMSCM_ARG2, "set-message-temp");
00519   TMSCM_ASSERT_BOOL (arg3, TMSCM_ARG3, "set-message-temp");
00520 
00521   content in1= tmscm_to_content (arg1);
00522   content in2= tmscm_to_content (arg2);
00523   bool in3= tmscm_to_bool (arg3);
00524 
00525   // TMSCM_DEFER_INTS;
00526   get_server()->set_message (in1, in2, in3);
00527   // TMSCM_ALLOW_INTS;
00528 
00529   return TMSCM_UNSPECIFIED;
00530 }
00531 
00532 tmscm
00533 tmg_recall_message () {
00534   // TMSCM_DEFER_INTS;
00535   get_server()->recall_message ();
00536   // TMSCM_ALLOW_INTS;
00537 
00538   return TMSCM_UNSPECIFIED;
00539 }
00540 
00541 tmscm
00542 tmg_yesP (tmscm arg1) {
00543   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "yes?");
00544 
00545   string in1= tmscm_to_string (arg1);
00546 
00547   // TMSCM_DEFER_INTS;
00548   bool out= get_server()->is_yes (in1);
00549   // TMSCM_ALLOW_INTS;
00550 
00551   return bool_to_tmscm (out);
00552 }
00553 
00554 tmscm
00555 tmg_quit_TeXmacs () {
00556   // TMSCM_DEFER_INTS;
00557   get_server()->quit ();
00558   // TMSCM_ALLOW_INTS;
00559 
00560   return TMSCM_UNSPECIFIED;
00561 }
00562 
00563 void
00564 initialize_glue_server () {
00565   tmscm_install_procedure ("insert-kbd-wildcard",  tmg_insert_kbd_wildcard, 5, 0, 0);
00566   tmscm_install_procedure ("set-variant-keys",  tmg_set_variant_keys, 2, 0, 0);
00567   tmscm_install_procedure ("kbd-pre-rewrite",  tmg_kbd_pre_rewrite, 1, 0, 0);
00568   tmscm_install_procedure ("kbd-post-rewrite",  tmg_kbd_post_rewrite, 2, 0, 0);
00569   tmscm_install_procedure ("kbd-system-rewrite",  tmg_kbd_system_rewrite, 1, 0, 0);
00570   tmscm_install_procedure ("set-font-rules",  tmg_set_font_rules, 1, 0, 0);
00571   tmscm_install_procedure ("window-get-id",  tmg_window_get_id, 0, 0, 0);
00572   tmscm_install_procedure ("window-set-property",  tmg_window_set_property, 2, 0, 0);
00573   tmscm_install_procedure ("window-get-property",  tmg_window_get_property, 1, 0, 0);
00574   tmscm_install_procedure ("show-header",  tmg_show_header, 1, 0, 0);
00575   tmscm_install_procedure ("show-icon-bar",  tmg_show_icon_bar, 2, 0, 0);
00576   tmscm_install_procedure ("show-side-tools",  tmg_show_side_tools, 2, 0, 0);
00577   tmscm_install_procedure ("show-footer",  tmg_show_footer, 1, 0, 0);
00578   tmscm_install_procedure ("visible-header?",  tmg_visible_headerP, 0, 0, 0);
00579   tmscm_install_procedure ("visible-icon-bar?",  tmg_visible_icon_barP, 1, 0, 0);
00580   tmscm_install_procedure ("visible-side-tools?",  tmg_visible_side_toolsP, 1, 0, 0);
00581   tmscm_install_procedure ("visible-footer?",  tmg_visible_footerP, 0, 0, 0);
00582   tmscm_install_procedure ("full-screen-mode",  tmg_full_screen_mode, 2, 0, 0);
00583   tmscm_install_procedure ("full-screen?",  tmg_full_screenP, 0, 0, 0);
00584   tmscm_install_procedure ("full-screen-edit?",  tmg_full_screen_editP, 0, 0, 0);
00585   tmscm_install_procedure ("set-shrinking-factor",  tmg_set_shrinking_factor, 1, 0, 0);
00586   tmscm_install_procedure ("get-shrinking-factor",  tmg_get_shrinking_factor, 0, 0, 0);
00587   tmscm_install_procedure ("shell",  tmg_shell, 1, 0, 0);
00588   tmscm_install_procedure ("dialogue-end",  tmg_dialogue_end, 0, 0, 0);
00589   tmscm_install_procedure ("choose-file",  tmg_choose_file, 3, 0, 0);
00590   tmscm_install_procedure ("tm-interactive",  tmg_tm_interactive, 2, 0, 0);
00591   tmscm_install_procedure ("has-view?",  tmg_has_viewP, 0, 0, 0);
00592   tmscm_install_procedure ("style-clear-cache",  tmg_style_clear_cache, 0, 0, 0);
00593   tmscm_install_procedure ("set-script-status",  tmg_set_script_status, 1, 0, 0);
00594   tmscm_install_procedure ("set-printing-command",  tmg_set_printing_command, 1, 0, 0);
00595   tmscm_install_procedure ("set-printer-paper-type",  tmg_set_printer_paper_type, 1, 0, 0);
00596   tmscm_install_procedure ("get-printer-paper-type",  tmg_get_printer_paper_type, 0, 0, 0);
00597   tmscm_install_procedure ("set-printer-dpi",  tmg_set_printer_dpi, 1, 0, 0);
00598   tmscm_install_procedure ("set-default-shrinking-factor",  tmg_set_default_shrinking_factor, 1, 0, 0);
00599   tmscm_install_procedure ("get-default-shrinking-factor",  tmg_get_default_shrinking_factor, 0, 0, 0);
00600   tmscm_install_procedure ("get-nr-windows",  tmg_get_nr_windows, 0, 0, 0);
00601   tmscm_install_procedure ("image-gc",  tmg_image_gc, 0, 0, 0);
00602   tmscm_install_procedure ("inclusions-gc",  tmg_inclusions_gc, 0, 0, 0);
00603   tmscm_install_procedure ("update-all-path",  tmg_update_all_path, 1, 0, 0);
00604   tmscm_install_procedure ("update-all-buffers",  tmg_update_all_buffers, 0, 0, 0);
00605   tmscm_install_procedure ("set-message",  tmg_set_message, 2, 0, 0);
00606   tmscm_install_procedure ("set-message-temp",  tmg_set_message_temp, 3, 0, 0);
00607   tmscm_install_procedure ("recall-message",  tmg_recall_message, 0, 0, 0);
00608   tmscm_install_procedure ("yes?",  tmg_yesP, 1, 0, 0);
00609   tmscm_install_procedure ("quit-TeXmacs",  tmg_quit_TeXmacs, 0, 0, 0);
00610 }