Back to index

texmacs  1.0.7.15
glue_editor.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-editor.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_root_tree () {
00016   // TMSCM_DEFER_INTS;
00017   tree out= get_server()->get_editor()->the_root ();
00018   // TMSCM_ALLOW_INTS;
00019 
00020   return tree_to_tmscm (out);
00021 }
00022 
00023 tmscm
00024 tmg_buffer_path () {
00025   // TMSCM_DEFER_INTS;
00026   path out= get_server()->get_editor()->the_buffer_path ();
00027   // TMSCM_ALLOW_INTS;
00028 
00029   return path_to_tmscm (out);
00030 }
00031 
00032 tmscm
00033 tmg_buffer_tree () {
00034   // TMSCM_DEFER_INTS;
00035   tree out= get_server()->get_editor()->the_buffer ();
00036   // TMSCM_ALLOW_INTS;
00037 
00038   return tree_to_tmscm (out);
00039 }
00040 
00041 tmscm
00042 tmg_paragraph_tree () {
00043   // TMSCM_DEFER_INTS;
00044   tree out= get_server()->get_editor()->the_line ();
00045   // TMSCM_ALLOW_INTS;
00046 
00047   return tree_to_tmscm (out);
00048 }
00049 
00050 tmscm
00051 tmg_cursor_path () {
00052   // TMSCM_DEFER_INTS;
00053   path out= get_server()->get_editor()->the_path ();
00054   // TMSCM_ALLOW_INTS;
00055 
00056   return path_to_tmscm (out);
00057 }
00058 
00059 tmscm
00060 tmg_cursor_path_dot () {
00061   // TMSCM_DEFER_INTS;
00062   path out= get_server()->get_editor()->the_shifted_path ();
00063   // TMSCM_ALLOW_INTS;
00064 
00065   return path_to_tmscm (out);
00066 }
00067 
00068 tmscm
00069 tmg_selection_tree () {
00070   // TMSCM_DEFER_INTS;
00071   tree out= get_server()->get_editor()->selection_get ();
00072   // TMSCM_ALLOW_INTS;
00073 
00074   return tree_to_tmscm (out);
00075 }
00076 
00077 tmscm
00078 tmg_path_2tree (tmscm arg1) {
00079   TMSCM_ASSERT_PATH (arg1, TMSCM_ARG1, "path->tree");
00080 
00081   path in1= tmscm_to_path (arg1);
00082 
00083   // TMSCM_DEFER_INTS;
00084   tree out= get_server()->get_editor()->the_subtree (in1);
00085   // TMSCM_ALLOW_INTS;
00086 
00087   return tree_to_tmscm (out);
00088 }
00089 
00090 tmscm
00091 tmg_path_correct_old (tmscm arg1) {
00092   TMSCM_ASSERT_PATH (arg1, TMSCM_ARG1, "path-correct-old");
00093 
00094   path in1= tmscm_to_path (arg1);
00095 
00096   // TMSCM_DEFER_INTS;
00097   get_server()->get_editor()->correct (in1);
00098   // TMSCM_ALLOW_INTS;
00099 
00100   return TMSCM_UNSPECIFIED;
00101 }
00102 
00103 tmscm
00104 tmg_path_insert_with (tmscm arg1, tmscm arg2, tmscm arg3) {
00105   TMSCM_ASSERT_PATH (arg1, TMSCM_ARG1, "path-insert-with");
00106   TMSCM_ASSERT_STRING (arg2, TMSCM_ARG2, "path-insert-with");
00107   TMSCM_ASSERT_CONTENT (arg3, TMSCM_ARG3, "path-insert-with");
00108 
00109   path in1= tmscm_to_path (arg1);
00110   string in2= tmscm_to_string (arg2);
00111   content in3= tmscm_to_content (arg3);
00112 
00113   // TMSCM_DEFER_INTS;
00114   get_server()->get_editor()->insert_with (in1, in2, in3);
00115   // TMSCM_ALLOW_INTS;
00116 
00117   return TMSCM_UNSPECIFIED;
00118 }
00119 
00120 tmscm
00121 tmg_path_remove_with (tmscm arg1, tmscm arg2) {
00122   TMSCM_ASSERT_PATH (arg1, TMSCM_ARG1, "path-remove-with");
00123   TMSCM_ASSERT_STRING (arg2, TMSCM_ARG2, "path-remove-with");
00124 
00125   path in1= tmscm_to_path (arg1);
00126   string in2= tmscm_to_string (arg2);
00127 
00128   // TMSCM_DEFER_INTS;
00129   get_server()->get_editor()->remove_with (in1, in2);
00130   // TMSCM_ALLOW_INTS;
00131 
00132   return TMSCM_UNSPECIFIED;
00133 }
00134 
00135 tmscm
00136 tmg_position_new_path (tmscm arg1) {
00137   TMSCM_ASSERT_PATH (arg1, TMSCM_ARG1, "position-new-path");
00138 
00139   path in1= tmscm_to_path (arg1);
00140 
00141   // TMSCM_DEFER_INTS;
00142   observer out= get_server()->get_editor()->position_new (in1);
00143   // TMSCM_ALLOW_INTS;
00144 
00145   return observer_to_tmscm (out);
00146 }
00147 
00148 tmscm
00149 tmg_position_delete (tmscm arg1) {
00150   TMSCM_ASSERT_OBSERVER (arg1, TMSCM_ARG1, "position-delete");
00151 
00152   observer in1= tmscm_to_observer (arg1);
00153 
00154   // TMSCM_DEFER_INTS;
00155   get_server()->get_editor()->position_delete (in1);
00156   // TMSCM_ALLOW_INTS;
00157 
00158   return TMSCM_UNSPECIFIED;
00159 }
00160 
00161 tmscm
00162 tmg_position_set (tmscm arg1, tmscm arg2) {
00163   TMSCM_ASSERT_OBSERVER (arg1, TMSCM_ARG1, "position-set");
00164   TMSCM_ASSERT_PATH (arg2, TMSCM_ARG2, "position-set");
00165 
00166   observer in1= tmscm_to_observer (arg1);
00167   path in2= tmscm_to_path (arg2);
00168 
00169   // TMSCM_DEFER_INTS;
00170   get_server()->get_editor()->position_set (in1, in2);
00171   // TMSCM_ALLOW_INTS;
00172 
00173   return TMSCM_UNSPECIFIED;
00174 }
00175 
00176 tmscm
00177 tmg_position_get (tmscm arg1) {
00178   TMSCM_ASSERT_OBSERVER (arg1, TMSCM_ARG1, "position-get");
00179 
00180   observer in1= tmscm_to_observer (arg1);
00181 
00182   // TMSCM_DEFER_INTS;
00183   path out= get_server()->get_editor()->position_get (in1);
00184   // TMSCM_ALLOW_INTS;
00185 
00186   return path_to_tmscm (out);
00187 }
00188 
00189 tmscm
00190 tmg_insideP (tmscm arg1) {
00191   TMSCM_ASSERT_TREE_LABEL (arg1, TMSCM_ARG1, "inside?");
00192 
00193   tree_label in1= tmscm_to_tree_label (arg1);
00194 
00195   // TMSCM_DEFER_INTS;
00196   bool out= get_server()->get_editor()->inside (in1);
00197   // TMSCM_ALLOW_INTS;
00198 
00199   return bool_to_tmscm (out);
00200 }
00201 
00202 tmscm
00203 tmg_insert (tmscm arg1) {
00204   TMSCM_ASSERT_CONTENT (arg1, TMSCM_ARG1, "insert");
00205 
00206   content in1= tmscm_to_content (arg1);
00207 
00208   // TMSCM_DEFER_INTS;
00209   get_server()->get_editor()->insert_tree (in1);
00210   // TMSCM_ALLOW_INTS;
00211 
00212   return TMSCM_UNSPECIFIED;
00213 }
00214 
00215 tmscm
00216 tmg_insert_go_to (tmscm arg1, tmscm arg2) {
00217   TMSCM_ASSERT_CONTENT (arg1, TMSCM_ARG1, "insert-go-to");
00218   TMSCM_ASSERT_PATH (arg2, TMSCM_ARG2, "insert-go-to");
00219 
00220   content in1= tmscm_to_content (arg1);
00221   path in2= tmscm_to_path (arg2);
00222 
00223   // TMSCM_DEFER_INTS;
00224   get_server()->get_editor()->var_insert_tree (in1, in2);
00225   // TMSCM_ALLOW_INTS;
00226 
00227   return TMSCM_UNSPECIFIED;
00228 }
00229 
00230 tmscm
00231 tmg_insert_raw_go_to (tmscm arg1, tmscm arg2) {
00232   TMSCM_ASSERT_CONTENT (arg1, TMSCM_ARG1, "insert-raw-go-to");
00233   TMSCM_ASSERT_PATH (arg2, TMSCM_ARG2, "insert-raw-go-to");
00234 
00235   content in1= tmscm_to_content (arg1);
00236   path in2= tmscm_to_path (arg2);
00237 
00238   // TMSCM_DEFER_INTS;
00239   get_server()->get_editor()->insert_tree (in1, in2);
00240   // TMSCM_ALLOW_INTS;
00241 
00242   return TMSCM_UNSPECIFIED;
00243 }
00244 
00245 tmscm
00246 tmg_insert_raw_return () {
00247   // TMSCM_DEFER_INTS;
00248   get_server()->get_editor()->insert_return ();
00249   // TMSCM_ALLOW_INTS;
00250 
00251   return TMSCM_UNSPECIFIED;
00252 }
00253 
00254 tmscm
00255 tmg_remove_text (tmscm arg1) {
00256   TMSCM_ASSERT_BOOL (arg1, TMSCM_ARG1, "remove-text");
00257 
00258   bool in1= tmscm_to_bool (arg1);
00259 
00260   // TMSCM_DEFER_INTS;
00261   get_server()->get_editor()->remove_text (in1);
00262   // TMSCM_ALLOW_INTS;
00263 
00264   return TMSCM_UNSPECIFIED;
00265 }
00266 
00267 tmscm
00268 tmg_remove_structure (tmscm arg1) {
00269   TMSCM_ASSERT_BOOL (arg1, TMSCM_ARG1, "remove-structure");
00270 
00271   bool in1= tmscm_to_bool (arg1);
00272 
00273   // TMSCM_DEFER_INTS;
00274   get_server()->get_editor()->remove_structure (in1);
00275   // TMSCM_ALLOW_INTS;
00276 
00277   return TMSCM_UNSPECIFIED;
00278 }
00279 
00280 tmscm
00281 tmg_remove_structure_upwards () {
00282   // TMSCM_DEFER_INTS;
00283   get_server()->get_editor()->remove_structure_upwards ();
00284   // TMSCM_ALLOW_INTS;
00285 
00286   return TMSCM_UNSPECIFIED;
00287 }
00288 
00289 tmscm
00290 tmg_make (tmscm arg1) {
00291   TMSCM_ASSERT_TREE_LABEL (arg1, TMSCM_ARG1, "make");
00292 
00293   tree_label in1= tmscm_to_tree_label (arg1);
00294 
00295   // TMSCM_DEFER_INTS;
00296   get_server()->get_editor()->make_compound (in1);
00297   // TMSCM_ALLOW_INTS;
00298 
00299   return TMSCM_UNSPECIFIED;
00300 }
00301 
00302 tmscm
00303 tmg_make_arity (tmscm arg1, tmscm arg2) {
00304   TMSCM_ASSERT_TREE_LABEL (arg1, TMSCM_ARG1, "make-arity");
00305   TMSCM_ASSERT_INT (arg2, TMSCM_ARG2, "make-arity");
00306 
00307   tree_label in1= tmscm_to_tree_label (arg1);
00308   int in2= tmscm_to_int (arg2);
00309 
00310   // TMSCM_DEFER_INTS;
00311   get_server()->get_editor()->make_compound (in1, in2);
00312   // TMSCM_ALLOW_INTS;
00313 
00314   return TMSCM_UNSPECIFIED;
00315 }
00316 
00317 tmscm
00318 tmg_activate () {
00319   // TMSCM_DEFER_INTS;
00320   get_server()->get_editor()->activate ();
00321   // TMSCM_ALLOW_INTS;
00322 
00323   return TMSCM_UNSPECIFIED;
00324 }
00325 
00326 tmscm
00327 tmg_insert_argument (tmscm arg1) {
00328   TMSCM_ASSERT_BOOL (arg1, TMSCM_ARG1, "insert-argument");
00329 
00330   bool in1= tmscm_to_bool (arg1);
00331 
00332   // TMSCM_DEFER_INTS;
00333   get_server()->get_editor()->insert_argument (in1);
00334   // TMSCM_ALLOW_INTS;
00335 
00336   return TMSCM_UNSPECIFIED;
00337 }
00338 
00339 tmscm
00340 tmg_remove_argument (tmscm arg1) {
00341   TMSCM_ASSERT_BOOL (arg1, TMSCM_ARG1, "remove-argument");
00342 
00343   bool in1= tmscm_to_bool (arg1);
00344 
00345   // TMSCM_DEFER_INTS;
00346   get_server()->get_editor()->remove_argument (in1);
00347   // TMSCM_ALLOW_INTS;
00348 
00349   return TMSCM_UNSPECIFIED;
00350 }
00351 
00352 tmscm
00353 tmg_insert_argument_at (tmscm arg1, tmscm arg2) {
00354   TMSCM_ASSERT_PATH (arg1, TMSCM_ARG1, "insert-argument-at");
00355   TMSCM_ASSERT_BOOL (arg2, TMSCM_ARG2, "insert-argument-at");
00356 
00357   path in1= tmscm_to_path (arg1);
00358   bool in2= tmscm_to_bool (arg2);
00359 
00360   // TMSCM_DEFER_INTS;
00361   get_server()->get_editor()->insert_argument (in1, in2);
00362   // TMSCM_ALLOW_INTS;
00363 
00364   return TMSCM_UNSPECIFIED;
00365 }
00366 
00367 tmscm
00368 tmg_remove_argument_at (tmscm arg1, tmscm arg2) {
00369   TMSCM_ASSERT_PATH (arg1, TMSCM_ARG1, "remove-argument-at");
00370   TMSCM_ASSERT_BOOL (arg2, TMSCM_ARG2, "remove-argument-at");
00371 
00372   path in1= tmscm_to_path (arg1);
00373   bool in2= tmscm_to_bool (arg2);
00374 
00375   // TMSCM_DEFER_INTS;
00376   get_server()->get_editor()->remove_argument (in1, in2);
00377   // TMSCM_ALLOW_INTS;
00378 
00379   return TMSCM_UNSPECIFIED;
00380 }
00381 
00382 tmscm
00383 tmg_make_with (tmscm arg1, tmscm arg2) {
00384   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "make-with");
00385   TMSCM_ASSERT_STRING (arg2, TMSCM_ARG2, "make-with");
00386 
00387   string in1= tmscm_to_string (arg1);
00388   string in2= tmscm_to_string (arg2);
00389 
00390   // TMSCM_DEFER_INTS;
00391   get_server()->get_editor()->make_with (in1, in2);
00392   // TMSCM_ALLOW_INTS;
00393 
00394   return TMSCM_UNSPECIFIED;
00395 }
00396 
00397 tmscm
00398 tmg_make_mod_active (tmscm arg1) {
00399   TMSCM_ASSERT_TREE_LABEL (arg1, TMSCM_ARG1, "make-mod-active");
00400 
00401   tree_label in1= tmscm_to_tree_label (arg1);
00402 
00403   // TMSCM_DEFER_INTS;
00404   get_server()->get_editor()->make_mod_active (in1);
00405   // TMSCM_ALLOW_INTS;
00406 
00407   return TMSCM_UNSPECIFIED;
00408 }
00409 
00410 tmscm
00411 tmg_make_style_with (tmscm arg1, tmscm arg2) {
00412   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "make-style-with");
00413   TMSCM_ASSERT_STRING (arg2, TMSCM_ARG2, "make-style-with");
00414 
00415   string in1= tmscm_to_string (arg1);
00416   string in2= tmscm_to_string (arg2);
00417 
00418   // TMSCM_DEFER_INTS;
00419   get_server()->get_editor()->make_style_with (in1, in2);
00420   // TMSCM_ALLOW_INTS;
00421 
00422   return TMSCM_UNSPECIFIED;
00423 }
00424 
00425 tmscm
00426 tmg_make_hybrid () {
00427   // TMSCM_DEFER_INTS;
00428   get_server()->get_editor()->make_hybrid ();
00429   // TMSCM_ALLOW_INTS;
00430 
00431   return TMSCM_UNSPECIFIED;
00432 }
00433 
00434 tmscm
00435 tmg_activate_latex () {
00436   // TMSCM_DEFER_INTS;
00437   get_server()->get_editor()->activate_latex ();
00438   // TMSCM_ALLOW_INTS;
00439 
00440   return TMSCM_UNSPECIFIED;
00441 }
00442 
00443 tmscm
00444 tmg_activate_hybrid (tmscm arg1) {
00445   TMSCM_ASSERT_BOOL (arg1, TMSCM_ARG1, "activate-hybrid");
00446 
00447   bool in1= tmscm_to_bool (arg1);
00448 
00449   // TMSCM_DEFER_INTS;
00450   get_server()->get_editor()->activate_hybrid (in1);
00451   // TMSCM_ALLOW_INTS;
00452 
00453   return TMSCM_UNSPECIFIED;
00454 }
00455 
00456 tmscm
00457 tmg_activate_symbol () {
00458   // TMSCM_DEFER_INTS;
00459   get_server()->get_editor()->activate_symbol ();
00460   // TMSCM_ALLOW_INTS;
00461 
00462   return TMSCM_UNSPECIFIED;
00463 }
00464 
00465 tmscm
00466 tmg_make_return_before () {
00467   // TMSCM_DEFER_INTS;
00468   get_server()->get_editor()->make_return_before ();
00469   // TMSCM_ALLOW_INTS;
00470 
00471   return TMSCM_UNSPECIFIED;
00472 }
00473 
00474 tmscm
00475 tmg_make_return_after () {
00476   // TMSCM_DEFER_INTS;
00477   bool out= get_server()->get_editor()->make_return_after ();
00478   // TMSCM_ALLOW_INTS;
00479 
00480   return bool_to_tmscm (out);
00481 }
00482 
00483 tmscm
00484 tmg_temp_proof_fix () {
00485   // TMSCM_DEFER_INTS;
00486   get_server()->get_editor()->temp_proof_fix ();
00487   // TMSCM_ALLOW_INTS;
00488 
00489   return TMSCM_UNSPECIFIED;
00490 }
00491 
00492 tmscm
00493 tmg_init_default_one (tmscm arg1) {
00494   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "init-default-one");
00495 
00496   string in1= tmscm_to_string (arg1);
00497 
00498   // TMSCM_DEFER_INTS;
00499   get_server()->get_editor()->init_default (in1);
00500   // TMSCM_ALLOW_INTS;
00501 
00502   return TMSCM_UNSPECIFIED;
00503 }
00504 
00505 tmscm
00506 tmg_init_env (tmscm arg1, tmscm arg2) {
00507   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "init-env");
00508   TMSCM_ASSERT_STRING (arg2, TMSCM_ARG2, "init-env");
00509 
00510   string in1= tmscm_to_string (arg1);
00511   string in2= tmscm_to_string (arg2);
00512 
00513   // TMSCM_DEFER_INTS;
00514   get_server()->get_editor()->init_env (in1, in2);
00515   // TMSCM_ALLOW_INTS;
00516 
00517   return TMSCM_UNSPECIFIED;
00518 }
00519 
00520 tmscm
00521 tmg_init_env_tree (tmscm arg1, tmscm arg2) {
00522   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "init-env-tree");
00523   TMSCM_ASSERT_CONTENT (arg2, TMSCM_ARG2, "init-env-tree");
00524 
00525   string in1= tmscm_to_string (arg1);
00526   content in2= tmscm_to_content (arg2);
00527 
00528   // TMSCM_DEFER_INTS;
00529   get_server()->get_editor()->init_env (in1, in2);
00530   // TMSCM_ALLOW_INTS;
00531 
00532   return TMSCM_UNSPECIFIED;
00533 }
00534 
00535 tmscm
00536 tmg_init_style (tmscm arg1) {
00537   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "init-style");
00538 
00539   string in1= tmscm_to_string (arg1);
00540 
00541   // TMSCM_DEFER_INTS;
00542   get_server()->get_editor()->init_style (in1);
00543   // TMSCM_ALLOW_INTS;
00544 
00545   return TMSCM_UNSPECIFIED;
00546 }
00547 
00548 tmscm
00549 tmg_init_add_package (tmscm arg1) {
00550   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "init-add-package");
00551 
00552   string in1= tmscm_to_string (arg1);
00553 
00554   // TMSCM_DEFER_INTS;
00555   get_server()->get_editor()->init_add_package (in1);
00556   // TMSCM_ALLOW_INTS;
00557 
00558   return TMSCM_UNSPECIFIED;
00559 }
00560 
00561 tmscm
00562 tmg_init_remove_package (tmscm arg1) {
00563   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "init-remove-package");
00564 
00565   string in1= tmscm_to_string (arg1);
00566 
00567   // TMSCM_DEFER_INTS;
00568   get_server()->get_editor()->init_remove_package (in1);
00569   // TMSCM_ALLOW_INTS;
00570 
00571   return TMSCM_UNSPECIFIED;
00572 }
00573 
00574 tmscm
00575 tmg_get_style_tree () {
00576   // TMSCM_DEFER_INTS;
00577   tree out= get_server()->get_editor()->get_style ();
00578   // TMSCM_ALLOW_INTS;
00579 
00580   return tree_to_tmscm (out);
00581 }
00582 
00583 tmscm
00584 tmg_set_style_tree (tmscm arg1) {
00585   TMSCM_ASSERT_TREE (arg1, TMSCM_ARG1, "set-style-tree");
00586 
00587   tree in1= tmscm_to_tree (arg1);
00588 
00589   // TMSCM_DEFER_INTS;
00590   get_server()->get_editor()->set_style (in1);
00591   // TMSCM_ALLOW_INTS;
00592 
00593   return TMSCM_UNSPECIFIED;
00594 }
00595 
00596 tmscm
00597 tmg_get_env (tmscm arg1) {
00598   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "get-env");
00599 
00600   string in1= tmscm_to_string (arg1);
00601 
00602   // TMSCM_DEFER_INTS;
00603   string out= get_server()->get_editor()->get_env_string (in1);
00604   // TMSCM_ALLOW_INTS;
00605 
00606   return string_to_tmscm (out);
00607 }
00608 
00609 tmscm
00610 tmg_get_env_tree (tmscm arg1) {
00611   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "get-env-tree");
00612 
00613   string in1= tmscm_to_string (arg1);
00614 
00615   // TMSCM_DEFER_INTS;
00616   tree out= get_server()->get_editor()->get_env_value (in1);
00617   // TMSCM_ALLOW_INTS;
00618 
00619   return tree_to_tmscm (out);
00620 }
00621 
00622 tmscm
00623 tmg_get_env_tree_at (tmscm arg1, tmscm arg2) {
00624   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "get-env-tree-at");
00625   TMSCM_ASSERT_PATH (arg2, TMSCM_ARG2, "get-env-tree-at");
00626 
00627   string in1= tmscm_to_string (arg1);
00628   path in2= tmscm_to_path (arg2);
00629 
00630   // TMSCM_DEFER_INTS;
00631   tree out= get_server()->get_editor()->get_env_value (in1, in2);
00632   // TMSCM_ALLOW_INTS;
00633 
00634   return tree_to_tmscm (out);
00635 }
00636 
00637 tmscm
00638 tmg_get_init (tmscm arg1) {
00639   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "get-init");
00640 
00641   string in1= tmscm_to_string (arg1);
00642 
00643   // TMSCM_DEFER_INTS;
00644   string out= get_server()->get_editor()->get_init_string (in1);
00645   // TMSCM_ALLOW_INTS;
00646 
00647   return string_to_tmscm (out);
00648 }
00649 
00650 tmscm
00651 tmg_get_init_tree (tmscm arg1) {
00652   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "get-init-tree");
00653 
00654   string in1= tmscm_to_string (arg1);
00655 
00656   // TMSCM_DEFER_INTS;
00657   tree out= get_server()->get_editor()->get_init_value (in1);
00658   // TMSCM_ALLOW_INTS;
00659 
00660   return tree_to_tmscm (out);
00661 }
00662 
00663 tmscm
00664 tmg_context_hasP (tmscm arg1) {
00665   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "context-has?");
00666 
00667   string in1= tmscm_to_string (arg1);
00668 
00669   // TMSCM_DEFER_INTS;
00670   bool out= get_server()->get_editor()->defined_at_cursor (in1);
00671   // TMSCM_ALLOW_INTS;
00672 
00673   return bool_to_tmscm (out);
00674 }
00675 
00676 tmscm
00677 tmg_style_hasP (tmscm arg1) {
00678   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "style-has?");
00679 
00680   string in1= tmscm_to_string (arg1);
00681 
00682   // TMSCM_DEFER_INTS;
00683   bool out= get_server()->get_editor()->defined_at_init (in1);
00684   // TMSCM_ALLOW_INTS;
00685 
00686   return bool_to_tmscm (out);
00687 }
00688 
00689 tmscm
00690 tmg_init_hasP (tmscm arg1) {
00691   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "init-has?");
00692 
00693   string in1= tmscm_to_string (arg1);
00694 
00695   // TMSCM_DEFER_INTS;
00696   bool out= get_server()->get_editor()->defined_in_init (in1);
00697   // TMSCM_ALLOW_INTS;
00698 
00699   return bool_to_tmscm (out);
00700 }
00701 
00702 tmscm
00703 tmg_make_htab (tmscm arg1) {
00704   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "make-htab");
00705 
00706   string in1= tmscm_to_string (arg1);
00707 
00708   // TMSCM_DEFER_INTS;
00709   get_server()->get_editor()->make_htab (in1);
00710   // TMSCM_ALLOW_INTS;
00711 
00712   return TMSCM_UNSPECIFIED;
00713 }
00714 
00715 tmscm
00716 tmg_make_space (tmscm arg1) {
00717   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "make-space");
00718 
00719   string in1= tmscm_to_string (arg1);
00720 
00721   // TMSCM_DEFER_INTS;
00722   get_server()->get_editor()->make_space (in1);
00723   // TMSCM_ALLOW_INTS;
00724 
00725   return TMSCM_UNSPECIFIED;
00726 }
00727 
00728 tmscm
00729 tmg_make_var_space (tmscm arg1, tmscm arg2, tmscm arg3) {
00730   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "make-var-space");
00731   TMSCM_ASSERT_STRING (arg2, TMSCM_ARG2, "make-var-space");
00732   TMSCM_ASSERT_STRING (arg3, TMSCM_ARG3, "make-var-space");
00733 
00734   string in1= tmscm_to_string (arg1);
00735   string in2= tmscm_to_string (arg2);
00736   string in3= tmscm_to_string (arg3);
00737 
00738   // TMSCM_DEFER_INTS;
00739   get_server()->get_editor()->make_space (in1, in2, in3);
00740   // TMSCM_ALLOW_INTS;
00741 
00742   return TMSCM_UNSPECIFIED;
00743 }
00744 
00745 tmscm
00746 tmg_make_hspace (tmscm arg1) {
00747   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "make-hspace");
00748 
00749   string in1= tmscm_to_string (arg1);
00750 
00751   // TMSCM_DEFER_INTS;
00752   get_server()->get_editor()->make_hspace (in1);
00753   // TMSCM_ALLOW_INTS;
00754 
00755   return TMSCM_UNSPECIFIED;
00756 }
00757 
00758 tmscm
00759 tmg_make_var_hspace (tmscm arg1, tmscm arg2, tmscm arg3) {
00760   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "make-var-hspace");
00761   TMSCM_ASSERT_STRING (arg2, TMSCM_ARG2, "make-var-hspace");
00762   TMSCM_ASSERT_STRING (arg3, TMSCM_ARG3, "make-var-hspace");
00763 
00764   string in1= tmscm_to_string (arg1);
00765   string in2= tmscm_to_string (arg2);
00766   string in3= tmscm_to_string (arg3);
00767 
00768   // TMSCM_DEFER_INTS;
00769   get_server()->get_editor()->make_hspace (in1, in2, in3);
00770   // TMSCM_ALLOW_INTS;
00771 
00772   return TMSCM_UNSPECIFIED;
00773 }
00774 
00775 tmscm
00776 tmg_make_vspace_before (tmscm arg1) {
00777   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "make-vspace-before");
00778 
00779   string in1= tmscm_to_string (arg1);
00780 
00781   // TMSCM_DEFER_INTS;
00782   get_server()->get_editor()->make_vspace_before (in1);
00783   // TMSCM_ALLOW_INTS;
00784 
00785   return TMSCM_UNSPECIFIED;
00786 }
00787 
00788 tmscm
00789 tmg_make_var_vspace_before (tmscm arg1, tmscm arg2, tmscm arg3) {
00790   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "make-var-vspace-before");
00791   TMSCM_ASSERT_STRING (arg2, TMSCM_ARG2, "make-var-vspace-before");
00792   TMSCM_ASSERT_STRING (arg3, TMSCM_ARG3, "make-var-vspace-before");
00793 
00794   string in1= tmscm_to_string (arg1);
00795   string in2= tmscm_to_string (arg2);
00796   string in3= tmscm_to_string (arg3);
00797 
00798   // TMSCM_DEFER_INTS;
00799   get_server()->get_editor()->make_vspace_before (in1, in2, in3);
00800   // TMSCM_ALLOW_INTS;
00801 
00802   return TMSCM_UNSPECIFIED;
00803 }
00804 
00805 tmscm
00806 tmg_make_vspace_after (tmscm arg1) {
00807   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "make-vspace-after");
00808 
00809   string in1= tmscm_to_string (arg1);
00810 
00811   // TMSCM_DEFER_INTS;
00812   get_server()->get_editor()->make_vspace_after (in1);
00813   // TMSCM_ALLOW_INTS;
00814 
00815   return TMSCM_UNSPECIFIED;
00816 }
00817 
00818 tmscm
00819 tmg_make_var_vspace_after (tmscm arg1, tmscm arg2, tmscm arg3) {
00820   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "make-var-vspace-after");
00821   TMSCM_ASSERT_STRING (arg2, TMSCM_ARG2, "make-var-vspace-after");
00822   TMSCM_ASSERT_STRING (arg3, TMSCM_ARG3, "make-var-vspace-after");
00823 
00824   string in1= tmscm_to_string (arg1);
00825   string in2= tmscm_to_string (arg2);
00826   string in3= tmscm_to_string (arg3);
00827 
00828   // TMSCM_DEFER_INTS;
00829   get_server()->get_editor()->make_vspace_after (in1, in2, in3);
00830   // TMSCM_ALLOW_INTS;
00831 
00832   return TMSCM_UNSPECIFIED;
00833 }
00834 
00835 tmscm
00836 tmg_make_image (tmscm arg1, tmscm arg2, tmscm arg3, tmscm arg4, tmscm arg5, tmscm arg6) {
00837   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "make-image");
00838   TMSCM_ASSERT_BOOL (arg2, TMSCM_ARG2, "make-image");
00839   TMSCM_ASSERT_STRING (arg3, TMSCM_ARG3, "make-image");
00840   TMSCM_ASSERT_STRING (arg4, TMSCM_ARG4, "make-image");
00841   TMSCM_ASSERT_STRING (arg5, TMSCM_ARG5, "make-image");
00842   TMSCM_ASSERT_STRING (arg6, TMSCM_ARG6, "make-image");
00843 
00844   string in1= tmscm_to_string (arg1);
00845   bool in2= tmscm_to_bool (arg2);
00846   string in3= tmscm_to_string (arg3);
00847   string in4= tmscm_to_string (arg4);
00848   string in5= tmscm_to_string (arg5);
00849   string in6= tmscm_to_string (arg6);
00850 
00851   // TMSCM_DEFER_INTS;
00852   get_server()->get_editor()->make_image (in1, in2, in3, in4, in5, in6);
00853   // TMSCM_ALLOW_INTS;
00854 
00855   return TMSCM_UNSPECIFIED;
00856 }
00857 
00858 tmscm
00859 tmg_length_decode (tmscm arg1) {
00860   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "length-decode");
00861 
00862   string in1= tmscm_to_string (arg1);
00863 
00864   // TMSCM_DEFER_INTS;
00865   int out= get_server()->get_editor()->as_length (in1);
00866   // TMSCM_ALLOW_INTS;
00867 
00868   return int_to_tmscm (out);
00869 }
00870 
00871 tmscm
00872 tmg_length_add (tmscm arg1, tmscm arg2) {
00873   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "length-add");
00874   TMSCM_ASSERT_STRING (arg2, TMSCM_ARG2, "length-add");
00875 
00876   string in1= tmscm_to_string (arg1);
00877   string in2= tmscm_to_string (arg2);
00878 
00879   // TMSCM_DEFER_INTS;
00880   string out= get_server()->get_editor()->add_lengths (in1, in2);
00881   // TMSCM_ALLOW_INTS;
00882 
00883   return string_to_tmscm (out);
00884 }
00885 
00886 tmscm
00887 tmg_length_mult (tmscm arg1, tmscm arg2) {
00888   TMSCM_ASSERT_DOUBLE (arg1, TMSCM_ARG1, "length-mult");
00889   TMSCM_ASSERT_STRING (arg2, TMSCM_ARG2, "length-mult");
00890 
00891   double in1= tmscm_to_double (arg1);
00892   string in2= tmscm_to_string (arg2);
00893 
00894   // TMSCM_DEFER_INTS;
00895   string out= get_server()->get_editor()->multiply_length (in1, in2);
00896   // TMSCM_ALLOW_INTS;
00897 
00898   return string_to_tmscm (out);
00899 }
00900 
00901 tmscm
00902 tmg_lengthP (tmscm arg1) {
00903   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "length?");
00904 
00905   string in1= tmscm_to_string (arg1);
00906 
00907   // TMSCM_DEFER_INTS;
00908   bool out= get_server()->get_editor()->is_length (in1);
00909   // TMSCM_ALLOW_INTS;
00910 
00911   return bool_to_tmscm (out);
00912 }
00913 
00914 tmscm
00915 tmg_length_divide (tmscm arg1, tmscm arg2) {
00916   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "length-divide");
00917   TMSCM_ASSERT_STRING (arg2, TMSCM_ARG2, "length-divide");
00918 
00919   string in1= tmscm_to_string (arg1);
00920   string in2= tmscm_to_string (arg2);
00921 
00922   // TMSCM_DEFER_INTS;
00923   double out= get_server()->get_editor()->divide_lengths (in1, in2);
00924   // TMSCM_ALLOW_INTS;
00925 
00926   return double_to_tmscm (out);
00927 }
00928 
00929 tmscm
00930 tmg_make_rigid () {
00931   // TMSCM_DEFER_INTS;
00932   get_server()->get_editor()->make_rigid ();
00933   // TMSCM_ALLOW_INTS;
00934 
00935   return TMSCM_UNSPECIFIED;
00936 }
00937 
00938 tmscm
00939 tmg_make_lprime (tmscm arg1) {
00940   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "make-lprime");
00941 
00942   string in1= tmscm_to_string (arg1);
00943 
00944   // TMSCM_DEFER_INTS;
00945   get_server()->get_editor()->make_lprime (in1);
00946   // TMSCM_ALLOW_INTS;
00947 
00948   return TMSCM_UNSPECIFIED;
00949 }
00950 
00951 tmscm
00952 tmg_make_rprime (tmscm arg1) {
00953   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "make-rprime");
00954 
00955   string in1= tmscm_to_string (arg1);
00956 
00957   // TMSCM_DEFER_INTS;
00958   get_server()->get_editor()->make_rprime (in1);
00959   // TMSCM_ALLOW_INTS;
00960 
00961   return TMSCM_UNSPECIFIED;
00962 }
00963 
00964 tmscm
00965 tmg_make_below () {
00966   // TMSCM_DEFER_INTS;
00967   get_server()->get_editor()->make_below ();
00968   // TMSCM_ALLOW_INTS;
00969 
00970   return TMSCM_UNSPECIFIED;
00971 }
00972 
00973 tmscm
00974 tmg_make_above () {
00975   // TMSCM_DEFER_INTS;
00976   get_server()->get_editor()->make_above ();
00977   // TMSCM_ALLOW_INTS;
00978 
00979   return TMSCM_UNSPECIFIED;
00980 }
00981 
00982 tmscm
00983 tmg_make_script (tmscm arg1, tmscm arg2) {
00984   TMSCM_ASSERT_BOOL (arg1, TMSCM_ARG1, "make-script");
00985   TMSCM_ASSERT_BOOL (arg2, TMSCM_ARG2, "make-script");
00986 
00987   bool in1= tmscm_to_bool (arg1);
00988   bool in2= tmscm_to_bool (arg2);
00989 
00990   // TMSCM_DEFER_INTS;
00991   get_server()->get_editor()->make_script (in1, in2);
00992   // TMSCM_ALLOW_INTS;
00993 
00994   return TMSCM_UNSPECIFIED;
00995 }
00996 
00997 tmscm
00998 tmg_make_fraction () {
00999   // TMSCM_DEFER_INTS;
01000   get_server()->get_editor()->make_fraction ();
01001   // TMSCM_ALLOW_INTS;
01002 
01003   return TMSCM_UNSPECIFIED;
01004 }
01005 
01006 tmscm
01007 tmg_make_sqrt () {
01008   // TMSCM_DEFER_INTS;
01009   get_server()->get_editor()->make_sqrt ();
01010   // TMSCM_ALLOW_INTS;
01011 
01012   return TMSCM_UNSPECIFIED;
01013 }
01014 
01015 tmscm
01016 tmg_make_wide (tmscm arg1) {
01017   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "make-wide");
01018 
01019   string in1= tmscm_to_string (arg1);
01020 
01021   // TMSCM_DEFER_INTS;
01022   get_server()->get_editor()->make_wide (in1);
01023   // TMSCM_ALLOW_INTS;
01024 
01025   return TMSCM_UNSPECIFIED;
01026 }
01027 
01028 tmscm
01029 tmg_make_wide_under (tmscm arg1) {
01030   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "make-wide-under");
01031 
01032   string in1= tmscm_to_string (arg1);
01033 
01034   // TMSCM_DEFER_INTS;
01035   get_server()->get_editor()->make_wide_under (in1);
01036   // TMSCM_ALLOW_INTS;
01037 
01038   return TMSCM_UNSPECIFIED;
01039 }
01040 
01041 tmscm
01042 tmg_make_var_sqrt () {
01043   // TMSCM_DEFER_INTS;
01044   get_server()->get_editor()->make_var_sqrt ();
01045   // TMSCM_ALLOW_INTS;
01046 
01047   return TMSCM_UNSPECIFIED;
01048 }
01049 
01050 tmscm
01051 tmg_make_neg () {
01052   // TMSCM_DEFER_INTS;
01053   get_server()->get_editor()->make_neg ();
01054   // TMSCM_ALLOW_INTS;
01055 
01056   return TMSCM_UNSPECIFIED;
01057 }
01058 
01059 tmscm
01060 tmg_make_tree () {
01061   // TMSCM_DEFER_INTS;
01062   get_server()->get_editor()->make_tree ();
01063   // TMSCM_ALLOW_INTS;
01064 
01065   return TMSCM_UNSPECIFIED;
01066 }
01067 
01068 tmscm
01069 tmg_make_subtable () {
01070   // TMSCM_DEFER_INTS;
01071   get_server()->get_editor()->make_subtable ();
01072   // TMSCM_ALLOW_INTS;
01073 
01074   return TMSCM_UNSPECIFIED;
01075 }
01076 
01077 tmscm
01078 tmg_table_disactivate () {
01079   // TMSCM_DEFER_INTS;
01080   get_server()->get_editor()->table_disactivate ();
01081   // TMSCM_ALLOW_INTS;
01082 
01083   return TMSCM_UNSPECIFIED;
01084 }
01085 
01086 tmscm
01087 tmg_table_extract_format () {
01088   // TMSCM_DEFER_INTS;
01089   get_server()->get_editor()->table_extract_format ();
01090   // TMSCM_ALLOW_INTS;
01091 
01092   return TMSCM_UNSPECIFIED;
01093 }
01094 
01095 tmscm
01096 tmg_table_insert_row (tmscm arg1) {
01097   TMSCM_ASSERT_BOOL (arg1, TMSCM_ARG1, "table-insert-row");
01098 
01099   bool in1= tmscm_to_bool (arg1);
01100 
01101   // TMSCM_DEFER_INTS;
01102   get_server()->get_editor()->table_insert_row (in1);
01103   // TMSCM_ALLOW_INTS;
01104 
01105   return TMSCM_UNSPECIFIED;
01106 }
01107 
01108 tmscm
01109 tmg_table_insert_column (tmscm arg1) {
01110   TMSCM_ASSERT_BOOL (arg1, TMSCM_ARG1, "table-insert-column");
01111 
01112   bool in1= tmscm_to_bool (arg1);
01113 
01114   // TMSCM_DEFER_INTS;
01115   get_server()->get_editor()->table_insert_column (in1);
01116   // TMSCM_ALLOW_INTS;
01117 
01118   return TMSCM_UNSPECIFIED;
01119 }
01120 
01121 tmscm
01122 tmg_table_remove_row (tmscm arg1) {
01123   TMSCM_ASSERT_BOOL (arg1, TMSCM_ARG1, "table-remove-row");
01124 
01125   bool in1= tmscm_to_bool (arg1);
01126 
01127   // TMSCM_DEFER_INTS;
01128   get_server()->get_editor()->table_remove_row (in1);
01129   // TMSCM_ALLOW_INTS;
01130 
01131   return TMSCM_UNSPECIFIED;
01132 }
01133 
01134 tmscm
01135 tmg_table_remove_column (tmscm arg1) {
01136   TMSCM_ASSERT_BOOL (arg1, TMSCM_ARG1, "table-remove-column");
01137 
01138   bool in1= tmscm_to_bool (arg1);
01139 
01140   // TMSCM_DEFER_INTS;
01141   get_server()->get_editor()->table_remove_column (in1);
01142   // TMSCM_ALLOW_INTS;
01143 
01144   return TMSCM_UNSPECIFIED;
01145 }
01146 
01147 tmscm
01148 tmg_table_nr_rows () {
01149   // TMSCM_DEFER_INTS;
01150   int out= get_server()->get_editor()->table_nr_rows ();
01151   // TMSCM_ALLOW_INTS;
01152 
01153   return int_to_tmscm (out);
01154 }
01155 
01156 tmscm
01157 tmg_table_nr_columns () {
01158   // TMSCM_DEFER_INTS;
01159   int out= get_server()->get_editor()->table_nr_columns ();
01160   // TMSCM_ALLOW_INTS;
01161 
01162   return int_to_tmscm (out);
01163 }
01164 
01165 tmscm
01166 tmg_table_set_extents (tmscm arg1, tmscm arg2) {
01167   TMSCM_ASSERT_INT (arg1, TMSCM_ARG1, "table-set-extents");
01168   TMSCM_ASSERT_INT (arg2, TMSCM_ARG2, "table-set-extents");
01169 
01170   int in1= tmscm_to_int (arg1);
01171   int in2= tmscm_to_int (arg2);
01172 
01173   // TMSCM_DEFER_INTS;
01174   get_server()->get_editor()->table_set_extents (in1, in2);
01175   // TMSCM_ALLOW_INTS;
01176 
01177   return TMSCM_UNSPECIFIED;
01178 }
01179 
01180 tmscm
01181 tmg_table_which_row () {
01182   // TMSCM_DEFER_INTS;
01183   int out= get_server()->get_editor()->table_which_row ();
01184   // TMSCM_ALLOW_INTS;
01185 
01186   return int_to_tmscm (out);
01187 }
01188 
01189 tmscm
01190 tmg_table_which_column () {
01191   // TMSCM_DEFER_INTS;
01192   int out= get_server()->get_editor()->table_which_column ();
01193   // TMSCM_ALLOW_INTS;
01194 
01195   return int_to_tmscm (out);
01196 }
01197 
01198 tmscm
01199 tmg_table_cell_path (tmscm arg1, tmscm arg2) {
01200   TMSCM_ASSERT_INT (arg1, TMSCM_ARG1, "table-cell-path");
01201   TMSCM_ASSERT_INT (arg2, TMSCM_ARG2, "table-cell-path");
01202 
01203   int in1= tmscm_to_int (arg1);
01204   int in2= tmscm_to_int (arg2);
01205 
01206   // TMSCM_DEFER_INTS;
01207   path out= get_server()->get_editor()->table_search_cell (in1, in2);
01208   // TMSCM_ALLOW_INTS;
01209 
01210   return path_to_tmscm (out);
01211 }
01212 
01213 tmscm
01214 tmg_table_go_to (tmscm arg1, tmscm arg2) {
01215   TMSCM_ASSERT_INT (arg1, TMSCM_ARG1, "table-go-to");
01216   TMSCM_ASSERT_INT (arg2, TMSCM_ARG2, "table-go-to");
01217 
01218   int in1= tmscm_to_int (arg1);
01219   int in2= tmscm_to_int (arg2);
01220 
01221   // TMSCM_DEFER_INTS;
01222   get_server()->get_editor()->table_go_to (in1, in2);
01223   // TMSCM_ALLOW_INTS;
01224 
01225   return TMSCM_UNSPECIFIED;
01226 }
01227 
01228 tmscm
01229 tmg_table_set_format (tmscm arg1, tmscm arg2) {
01230   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "table-set-format");
01231   TMSCM_ASSERT_CONTENT (arg2, TMSCM_ARG2, "table-set-format");
01232 
01233   string in1= tmscm_to_string (arg1);
01234   content in2= tmscm_to_content (arg2);
01235 
01236   // TMSCM_DEFER_INTS;
01237   get_server()->get_editor()->table_set_format (in1, in2);
01238   // TMSCM_ALLOW_INTS;
01239 
01240   return TMSCM_UNSPECIFIED;
01241 }
01242 
01243 tmscm
01244 tmg_table_get_format (tmscm arg1) {
01245   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "table-get-format");
01246 
01247   string in1= tmscm_to_string (arg1);
01248 
01249   // TMSCM_DEFER_INTS;
01250   string out= get_server()->get_editor()->table_get_format (in1);
01251   // TMSCM_ALLOW_INTS;
01252 
01253   return string_to_tmscm (out);
01254 }
01255 
01256 tmscm
01257 tmg_table_del_format (tmscm arg1) {
01258   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "table-del-format");
01259 
01260   string in1= tmscm_to_string (arg1);
01261 
01262   // TMSCM_DEFER_INTS;
01263   get_server()->get_editor()->table_del_format (in1);
01264   // TMSCM_ALLOW_INTS;
01265 
01266   return TMSCM_UNSPECIFIED;
01267 }
01268 
01269 tmscm
01270 tmg_table_row_decoration (tmscm arg1) {
01271   TMSCM_ASSERT_BOOL (arg1, TMSCM_ARG1, "table-row-decoration");
01272 
01273   bool in1= tmscm_to_bool (arg1);
01274 
01275   // TMSCM_DEFER_INTS;
01276   get_server()->get_editor()->table_row_decoration (in1);
01277   // TMSCM_ALLOW_INTS;
01278 
01279   return TMSCM_UNSPECIFIED;
01280 }
01281 
01282 tmscm
01283 tmg_table_column_decoration (tmscm arg1) {
01284   TMSCM_ASSERT_BOOL (arg1, TMSCM_ARG1, "table-column-decoration");
01285 
01286   bool in1= tmscm_to_bool (arg1);
01287 
01288   // TMSCM_DEFER_INTS;
01289   get_server()->get_editor()->table_column_decoration (in1);
01290   // TMSCM_ALLOW_INTS;
01291 
01292   return TMSCM_UNSPECIFIED;
01293 }
01294 
01295 tmscm
01296 tmg_table_format_center () {
01297   // TMSCM_DEFER_INTS;
01298   get_server()->get_editor()->table_format_center ();
01299   // TMSCM_ALLOW_INTS;
01300 
01301   return TMSCM_UNSPECIFIED;
01302 }
01303 
01304 tmscm
01305 tmg_table_correct_block_content () {
01306   // TMSCM_DEFER_INTS;
01307   get_server()->get_editor()->table_correct_block_content ();
01308   // TMSCM_ALLOW_INTS;
01309 
01310   return TMSCM_UNSPECIFIED;
01311 }
01312 
01313 tmscm
01314 tmg_set_cell_mode (tmscm arg1) {
01315   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "set-cell-mode");
01316 
01317   string in1= tmscm_to_string (arg1);
01318 
01319   // TMSCM_DEFER_INTS;
01320   get_server()->get_editor()->set_cell_mode (in1);
01321   // TMSCM_ALLOW_INTS;
01322 
01323   return TMSCM_UNSPECIFIED;
01324 }
01325 
01326 tmscm
01327 tmg_get_cell_mode () {
01328   // TMSCM_DEFER_INTS;
01329   string out= get_server()->get_editor()->get_cell_mode ();
01330   // TMSCM_ALLOW_INTS;
01331 
01332   return string_to_tmscm (out);
01333 }
01334 
01335 tmscm
01336 tmg_cell_set_format (tmscm arg1, tmscm arg2) {
01337   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "cell-set-format");
01338   TMSCM_ASSERT_CONTENT (arg2, TMSCM_ARG2, "cell-set-format");
01339 
01340   string in1= tmscm_to_string (arg1);
01341   content in2= tmscm_to_content (arg2);
01342 
01343   // TMSCM_DEFER_INTS;
01344   get_server()->get_editor()->cell_set_format (in1, in2);
01345   // TMSCM_ALLOW_INTS;
01346 
01347   return TMSCM_UNSPECIFIED;
01348 }
01349 
01350 tmscm
01351 tmg_cell_get_format (tmscm arg1) {
01352   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "cell-get-format");
01353 
01354   string in1= tmscm_to_string (arg1);
01355 
01356   // TMSCM_DEFER_INTS;
01357   string out= get_server()->get_editor()->cell_get_format (in1);
01358   // TMSCM_ALLOW_INTS;
01359 
01360   return string_to_tmscm (out);
01361 }
01362 
01363 tmscm
01364 tmg_cell_del_format (tmscm arg1) {
01365   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "cell-del-format");
01366 
01367   string in1= tmscm_to_string (arg1);
01368 
01369   // TMSCM_DEFER_INTS;
01370   get_server()->get_editor()->cell_del_format (in1);
01371   // TMSCM_ALLOW_INTS;
01372 
01373   return TMSCM_UNSPECIFIED;
01374 }
01375 
01376 tmscm
01377 tmg_table_test () {
01378   // TMSCM_DEFER_INTS;
01379   get_server()->get_editor()->table_test ();
01380   // TMSCM_ALLOW_INTS;
01381 
01382   return TMSCM_UNSPECIFIED;
01383 }
01384 
01385 tmscm
01386 tmg_key_press (tmscm arg1) {
01387   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "key-press");
01388 
01389   string in1= tmscm_to_string (arg1);
01390 
01391   // TMSCM_DEFER_INTS;
01392   get_server()->get_editor()->key_press (in1);
01393   // TMSCM_ALLOW_INTS;
01394 
01395   return TMSCM_UNSPECIFIED;
01396 }
01397 
01398 tmscm
01399 tmg_raw_emulate_keyboard (tmscm arg1) {
01400   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "raw-emulate-keyboard");
01401 
01402   string in1= tmscm_to_string (arg1);
01403 
01404   // TMSCM_DEFER_INTS;
01405   get_server()->get_editor()->emulate_keyboard (in1);
01406   // TMSCM_ALLOW_INTS;
01407 
01408   return TMSCM_UNSPECIFIED;
01409 }
01410 
01411 tmscm
01412 tmg_complete_tryP () {
01413   // TMSCM_DEFER_INTS;
01414   bool out= get_server()->get_editor()->complete_try ();
01415   // TMSCM_ALLOW_INTS;
01416 
01417   return bool_to_tmscm (out);
01418 }
01419 
01420 tmscm
01421 tmg_get_input_mode () {
01422   // TMSCM_DEFER_INTS;
01423   int out= get_server()->get_editor()->get_input_mode ();
01424   // TMSCM_ALLOW_INTS;
01425 
01426   return int_to_tmscm (out);
01427 }
01428 
01429 tmscm
01430 tmg_key_press_search (tmscm arg1) {
01431   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "key-press-search");
01432 
01433   string in1= tmscm_to_string (arg1);
01434 
01435   // TMSCM_DEFER_INTS;
01436   bool out= get_server()->get_editor()->search_keypress (in1);
01437   // TMSCM_ALLOW_INTS;
01438 
01439   return bool_to_tmscm (out);
01440 }
01441 
01442 tmscm
01443 tmg_key_press_replace (tmscm arg1) {
01444   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "key-press-replace");
01445 
01446   string in1= tmscm_to_string (arg1);
01447 
01448   // TMSCM_DEFER_INTS;
01449   bool out= get_server()->get_editor()->replace_keypress (in1);
01450   // TMSCM_ALLOW_INTS;
01451 
01452   return bool_to_tmscm (out);
01453 }
01454 
01455 tmscm
01456 tmg_key_press_spell (tmscm arg1) {
01457   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "key-press-spell");
01458 
01459   string in1= tmscm_to_string (arg1);
01460 
01461   // TMSCM_DEFER_INTS;
01462   bool out= get_server()->get_editor()->spell_keypress (in1);
01463   // TMSCM_ALLOW_INTS;
01464 
01465   return bool_to_tmscm (out);
01466 }
01467 
01468 tmscm
01469 tmg_key_press_complete (tmscm arg1) {
01470   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "key-press-complete");
01471 
01472   string in1= tmscm_to_string (arg1);
01473 
01474   // TMSCM_DEFER_INTS;
01475   bool out= get_server()->get_editor()->complete_keypress (in1);
01476   // TMSCM_ALLOW_INTS;
01477 
01478   return bool_to_tmscm (out);
01479 }
01480 
01481 tmscm
01482 tmg_mouse_any (tmscm arg1, tmscm arg2, tmscm arg3, tmscm arg4, tmscm arg5) {
01483   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "mouse-any");
01484   TMSCM_ASSERT_INT (arg2, TMSCM_ARG2, "mouse-any");
01485   TMSCM_ASSERT_INT (arg3, TMSCM_ARG3, "mouse-any");
01486   TMSCM_ASSERT_INT (arg4, TMSCM_ARG4, "mouse-any");
01487   TMSCM_ASSERT_DOUBLE (arg5, TMSCM_ARG5, "mouse-any");
01488 
01489   string in1= tmscm_to_string (arg1);
01490   int in2= tmscm_to_int (arg2);
01491   int in3= tmscm_to_int (arg3);
01492   int in4= tmscm_to_int (arg4);
01493   double in5= tmscm_to_double (arg5);
01494 
01495   // TMSCM_DEFER_INTS;
01496   get_server()->get_editor()->mouse_any (in1, in2, in3, in4, in5);
01497   // TMSCM_ALLOW_INTS;
01498 
01499   return TMSCM_UNSPECIFIED;
01500 }
01501 
01502 tmscm
01503 tmg_set_mouse_pointer (tmscm arg1, tmscm arg2) {
01504   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "set-mouse-pointer");
01505   TMSCM_ASSERT_STRING (arg2, TMSCM_ARG2, "set-mouse-pointer");
01506 
01507   string in1= tmscm_to_string (arg1);
01508   string in2= tmscm_to_string (arg2);
01509 
01510   // TMSCM_DEFER_INTS;
01511   get_server()->get_editor()->set_pointer (in1, in2);
01512   // TMSCM_ALLOW_INTS;
01513 
01514   return TMSCM_UNSPECIFIED;
01515 }
01516 
01517 tmscm
01518 tmg_set_predef_mouse_pointer (tmscm arg1) {
01519   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "set-predef-mouse-pointer");
01520 
01521   string in1= tmscm_to_string (arg1);
01522 
01523   // TMSCM_DEFER_INTS;
01524   get_server()->get_editor()->set_pointer (in1);
01525   // TMSCM_ALLOW_INTS;
01526 
01527   return TMSCM_UNSPECIFIED;
01528 }
01529 
01530 tmscm
01531 tmg_go_to_path (tmscm arg1) {
01532   TMSCM_ASSERT_PATH (arg1, TMSCM_ARG1, "go-to-path");
01533 
01534   path in1= tmscm_to_path (arg1);
01535 
01536   // TMSCM_DEFER_INTS;
01537   get_server()->get_editor()->go_to (in1);
01538   // TMSCM_ALLOW_INTS;
01539 
01540   return TMSCM_UNSPECIFIED;
01541 }
01542 
01543 tmscm
01544 tmg_go_left () {
01545   // TMSCM_DEFER_INTS;
01546   get_server()->get_editor()->go_left ();
01547   // TMSCM_ALLOW_INTS;
01548 
01549   return TMSCM_UNSPECIFIED;
01550 }
01551 
01552 tmscm
01553 tmg_go_right () {
01554   // TMSCM_DEFER_INTS;
01555   get_server()->get_editor()->go_right ();
01556   // TMSCM_ALLOW_INTS;
01557 
01558   return TMSCM_UNSPECIFIED;
01559 }
01560 
01561 tmscm
01562 tmg_go_up () {
01563   // TMSCM_DEFER_INTS;
01564   get_server()->get_editor()->go_up ();
01565   // TMSCM_ALLOW_INTS;
01566 
01567   return TMSCM_UNSPECIFIED;
01568 }
01569 
01570 tmscm
01571 tmg_go_down () {
01572   // TMSCM_DEFER_INTS;
01573   get_server()->get_editor()->go_down ();
01574   // TMSCM_ALLOW_INTS;
01575 
01576   return TMSCM_UNSPECIFIED;
01577 }
01578 
01579 tmscm
01580 tmg_go_start () {
01581   // TMSCM_DEFER_INTS;
01582   get_server()->get_editor()->go_start ();
01583   // TMSCM_ALLOW_INTS;
01584 
01585   return TMSCM_UNSPECIFIED;
01586 }
01587 
01588 tmscm
01589 tmg_go_end () {
01590   // TMSCM_DEFER_INTS;
01591   get_server()->get_editor()->go_end ();
01592   // TMSCM_ALLOW_INTS;
01593 
01594   return TMSCM_UNSPECIFIED;
01595 }
01596 
01597 tmscm
01598 tmg_go_start_of (tmscm arg1) {
01599   TMSCM_ASSERT_TREE_LABEL (arg1, TMSCM_ARG1, "go-start-of");
01600 
01601   tree_label in1= tmscm_to_tree_label (arg1);
01602 
01603   // TMSCM_DEFER_INTS;
01604   get_server()->get_editor()->go_start_of (in1);
01605   // TMSCM_ALLOW_INTS;
01606 
01607   return TMSCM_UNSPECIFIED;
01608 }
01609 
01610 tmscm
01611 tmg_go_end_of (tmscm arg1) {
01612   TMSCM_ASSERT_TREE_LABEL (arg1, TMSCM_ARG1, "go-end-of");
01613 
01614   tree_label in1= tmscm_to_tree_label (arg1);
01615 
01616   // TMSCM_DEFER_INTS;
01617   get_server()->get_editor()->go_end_of (in1);
01618   // TMSCM_ALLOW_INTS;
01619 
01620   return TMSCM_UNSPECIFIED;
01621 }
01622 
01623 tmscm
01624 tmg_go_start_with (tmscm arg1, tmscm arg2) {
01625   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "go-start-with");
01626   TMSCM_ASSERT_STRING (arg2, TMSCM_ARG2, "go-start-with");
01627 
01628   string in1= tmscm_to_string (arg1);
01629   string in2= tmscm_to_string (arg2);
01630 
01631   // TMSCM_DEFER_INTS;
01632   get_server()->get_editor()->go_start_with (in1, in2);
01633   // TMSCM_ALLOW_INTS;
01634 
01635   return TMSCM_UNSPECIFIED;
01636 }
01637 
01638 tmscm
01639 tmg_go_end_with (tmscm arg1, tmscm arg2) {
01640   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "go-end-with");
01641   TMSCM_ASSERT_STRING (arg2, TMSCM_ARG2, "go-end-with");
01642 
01643   string in1= tmscm_to_string (arg1);
01644   string in2= tmscm_to_string (arg2);
01645 
01646   // TMSCM_DEFER_INTS;
01647   get_server()->get_editor()->go_end_with (in1, in2);
01648   // TMSCM_ALLOW_INTS;
01649 
01650   return TMSCM_UNSPECIFIED;
01651 }
01652 
01653 tmscm
01654 tmg_go_start_line () {
01655   // TMSCM_DEFER_INTS;
01656   get_server()->get_editor()->go_start_line ();
01657   // TMSCM_ALLOW_INTS;
01658 
01659   return TMSCM_UNSPECIFIED;
01660 }
01661 
01662 tmscm
01663 tmg_go_end_line () {
01664   // TMSCM_DEFER_INTS;
01665   get_server()->get_editor()->go_end_line ();
01666   // TMSCM_ALLOW_INTS;
01667 
01668   return TMSCM_UNSPECIFIED;
01669 }
01670 
01671 tmscm
01672 tmg_go_page_up () {
01673   // TMSCM_DEFER_INTS;
01674   get_server()->get_editor()->go_page_up ();
01675   // TMSCM_ALLOW_INTS;
01676 
01677   return TMSCM_UNSPECIFIED;
01678 }
01679 
01680 tmscm
01681 tmg_go_page_down () {
01682   // TMSCM_DEFER_INTS;
01683   get_server()->get_editor()->go_page_down ();
01684   // TMSCM_ALLOW_INTS;
01685 
01686   return TMSCM_UNSPECIFIED;
01687 }
01688 
01689 tmscm
01690 tmg_go_start_paragraph () {
01691   // TMSCM_DEFER_INTS;
01692   get_server()->get_editor()->go_start_paragraph ();
01693   // TMSCM_ALLOW_INTS;
01694 
01695   return TMSCM_UNSPECIFIED;
01696 }
01697 
01698 tmscm
01699 tmg_go_end_paragraph () {
01700   // TMSCM_DEFER_INTS;
01701   get_server()->get_editor()->go_end_paragraph ();
01702   // TMSCM_ALLOW_INTS;
01703 
01704   return TMSCM_UNSPECIFIED;
01705 }
01706 
01707 tmscm
01708 tmg_go_to_label (tmscm arg1) {
01709   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "go-to-label");
01710 
01711   string in1= tmscm_to_string (arg1);
01712 
01713   // TMSCM_DEFER_INTS;
01714   get_server()->get_editor()->go_to_label (in1);
01715   // TMSCM_ALLOW_INTS;
01716 
01717   return TMSCM_UNSPECIFIED;
01718 }
01719 
01720 tmscm
01721 tmg_cursor_show_if_hidden () {
01722   // TMSCM_DEFER_INTS;
01723   get_server()->get_editor()->show_cursor_if_hidden ();
01724   // TMSCM_ALLOW_INTS;
01725 
01726   return TMSCM_UNSPECIFIED;
01727 }
01728 
01729 tmscm
01730 tmg_select_all () {
01731   // TMSCM_DEFER_INTS;
01732   get_server()->get_editor()->select_all ();
01733   // TMSCM_ALLOW_INTS;
01734 
01735   return TMSCM_UNSPECIFIED;
01736 }
01737 
01738 tmscm
01739 tmg_select_line () {
01740   // TMSCM_DEFER_INTS;
01741   get_server()->get_editor()->select_line ();
01742   // TMSCM_ALLOW_INTS;
01743 
01744   return TMSCM_UNSPECIFIED;
01745 }
01746 
01747 tmscm
01748 tmg_select_from_cursor () {
01749   // TMSCM_DEFER_INTS;
01750   get_server()->get_editor()->select_from_cursor ();
01751   // TMSCM_ALLOW_INTS;
01752 
01753   return TMSCM_UNSPECIFIED;
01754 }
01755 
01756 tmscm
01757 tmg_select_from_keyboard (tmscm arg1) {
01758   TMSCM_ASSERT_BOOL (arg1, TMSCM_ARG1, "select-from-keyboard");
01759 
01760   bool in1= tmscm_to_bool (arg1);
01761 
01762   // TMSCM_DEFER_INTS;
01763   get_server()->get_editor()->select_from_keyboard (in1);
01764   // TMSCM_ALLOW_INTS;
01765 
01766   return TMSCM_UNSPECIFIED;
01767 }
01768 
01769 tmscm
01770 tmg_select_from_shift_keyboard () {
01771   // TMSCM_DEFER_INTS;
01772   get_server()->get_editor()->select_from_shift_keyboard ();
01773   // TMSCM_ALLOW_INTS;
01774 
01775   return TMSCM_UNSPECIFIED;
01776 }
01777 
01778 tmscm
01779 tmg_select_enlarge () {
01780   // TMSCM_DEFER_INTS;
01781   get_server()->get_editor()->select_enlarge ();
01782   // TMSCM_ALLOW_INTS;
01783 
01784   return TMSCM_UNSPECIFIED;
01785 }
01786 
01787 tmscm
01788 tmg_select_enlarge_environmental () {
01789   // TMSCM_DEFER_INTS;
01790   get_server()->get_editor()->select_enlarge_environmental ();
01791   // TMSCM_ALLOW_INTS;
01792 
01793   return TMSCM_UNSPECIFIED;
01794 }
01795 
01796 tmscm
01797 tmg_selection_active_anyP () {
01798   // TMSCM_DEFER_INTS;
01799   bool out= get_server()->get_editor()->selection_active_any ();
01800   // TMSCM_ALLOW_INTS;
01801 
01802   return bool_to_tmscm (out);
01803 }
01804 
01805 tmscm
01806 tmg_selection_active_normalP () {
01807   // TMSCM_DEFER_INTS;
01808   bool out= get_server()->get_editor()->selection_active_normal ();
01809   // TMSCM_ALLOW_INTS;
01810 
01811   return bool_to_tmscm (out);
01812 }
01813 
01814 tmscm
01815 tmg_selection_active_tableP () {
01816   // TMSCM_DEFER_INTS;
01817   bool out= get_server()->get_editor()->selection_active_table ();
01818   // TMSCM_ALLOW_INTS;
01819 
01820   return bool_to_tmscm (out);
01821 }
01822 
01823 tmscm
01824 tmg_selection_active_smallP () {
01825   // TMSCM_DEFER_INTS;
01826   bool out= get_server()->get_editor()->selection_active_small ();
01827   // TMSCM_ALLOW_INTS;
01828 
01829   return bool_to_tmscm (out);
01830 }
01831 
01832 tmscm
01833 tmg_selection_active_enlargingP () {
01834   // TMSCM_DEFER_INTS;
01835   bool out= get_server()->get_editor()->selection_active_enlarging ();
01836   // TMSCM_ALLOW_INTS;
01837 
01838   return bool_to_tmscm (out);
01839 }
01840 
01841 tmscm
01842 tmg_selection_set_start () {
01843   // TMSCM_DEFER_INTS;
01844   get_server()->get_editor()->selection_set_start ();
01845   // TMSCM_ALLOW_INTS;
01846 
01847   return TMSCM_UNSPECIFIED;
01848 }
01849 
01850 tmscm
01851 tmg_selection_set_end () {
01852   // TMSCM_DEFER_INTS;
01853   get_server()->get_editor()->selection_set_end ();
01854   // TMSCM_ALLOW_INTS;
01855 
01856   return TMSCM_UNSPECIFIED;
01857 }
01858 
01859 tmscm
01860 tmg_selection_get_start () {
01861   // TMSCM_DEFER_INTS;
01862   path out= get_server()->get_editor()->selection_get_start ();
01863   // TMSCM_ALLOW_INTS;
01864 
01865   return path_to_tmscm (out);
01866 }
01867 
01868 tmscm
01869 tmg_selection_get_end () {
01870   // TMSCM_DEFER_INTS;
01871   path out= get_server()->get_editor()->selection_get_end ();
01872   // TMSCM_ALLOW_INTS;
01873 
01874   return path_to_tmscm (out);
01875 }
01876 
01877 tmscm
01878 tmg_selection_path () {
01879   // TMSCM_DEFER_INTS;
01880   path out= get_server()->get_editor()->selection_get_path ();
01881   // TMSCM_ALLOW_INTS;
01882 
01883   return path_to_tmscm (out);
01884 }
01885 
01886 tmscm
01887 tmg_selection_set (tmscm arg1, tmscm arg2) {
01888   TMSCM_ASSERT_PATH (arg1, TMSCM_ARG1, "selection-set");
01889   TMSCM_ASSERT_PATH (arg2, TMSCM_ARG2, "selection-set");
01890 
01891   path in1= tmscm_to_path (arg1);
01892   path in2= tmscm_to_path (arg2);
01893 
01894   // TMSCM_DEFER_INTS;
01895   get_server()->get_editor()->selection_set_paths (in1, in2);
01896   // TMSCM_ALLOW_INTS;
01897 
01898   return TMSCM_UNSPECIFIED;
01899 }
01900 
01901 tmscm
01902 tmg_clipboard_copy (tmscm arg1) {
01903   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "clipboard-copy");
01904 
01905   string in1= tmscm_to_string (arg1);
01906 
01907   // TMSCM_DEFER_INTS;
01908   get_server()->get_editor()->selection_copy (in1);
01909   // TMSCM_ALLOW_INTS;
01910 
01911   return TMSCM_UNSPECIFIED;
01912 }
01913 
01914 tmscm
01915 tmg_clipboard_cut (tmscm arg1) {
01916   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "clipboard-cut");
01917 
01918   string in1= tmscm_to_string (arg1);
01919 
01920   // TMSCM_DEFER_INTS;
01921   get_server()->get_editor()->selection_cut (in1);
01922   // TMSCM_ALLOW_INTS;
01923 
01924   return TMSCM_UNSPECIFIED;
01925 }
01926 
01927 tmscm
01928 tmg_clipboard_cut_at (tmscm arg1) {
01929   TMSCM_ASSERT_PATH (arg1, TMSCM_ARG1, "clipboard-cut-at");
01930 
01931   path in1= tmscm_to_path (arg1);
01932 
01933   // TMSCM_DEFER_INTS;
01934   get_server()->get_editor()->cut (in1);
01935   // TMSCM_ALLOW_INTS;
01936 
01937   return TMSCM_UNSPECIFIED;
01938 }
01939 
01940 tmscm
01941 tmg_clipboard_paste (tmscm arg1) {
01942   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "clipboard-paste");
01943 
01944   string in1= tmscm_to_string (arg1);
01945 
01946   // TMSCM_DEFER_INTS;
01947   get_server()->get_editor()->selection_paste (in1);
01948   // TMSCM_ALLOW_INTS;
01949 
01950   return TMSCM_UNSPECIFIED;
01951 }
01952 
01953 tmscm
01954 tmg_selection_move () {
01955   // TMSCM_DEFER_INTS;
01956   get_server()->get_editor()->selection_move ();
01957   // TMSCM_ALLOW_INTS;
01958 
01959   return TMSCM_UNSPECIFIED;
01960 }
01961 
01962 tmscm
01963 tmg_clipboard_clear (tmscm arg1) {
01964   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "clipboard-clear");
01965 
01966   string in1= tmscm_to_string (arg1);
01967 
01968   // TMSCM_DEFER_INTS;
01969   get_server()->get_editor()->selection_clear (in1);
01970   // TMSCM_ALLOW_INTS;
01971 
01972   return TMSCM_UNSPECIFIED;
01973 }
01974 
01975 tmscm
01976 tmg_selection_cancel () {
01977   // TMSCM_DEFER_INTS;
01978   get_server()->get_editor()->selection_cancel ();
01979   // TMSCM_ALLOW_INTS;
01980 
01981   return TMSCM_UNSPECIFIED;
01982 }
01983 
01984 tmscm
01985 tmg_clipboard_set_import (tmscm arg1) {
01986   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "clipboard-set-import");
01987 
01988   string in1= tmscm_to_string (arg1);
01989 
01990   // TMSCM_DEFER_INTS;
01991   get_server()->get_editor()->selection_set_import (in1);
01992   // TMSCM_ALLOW_INTS;
01993 
01994   return TMSCM_UNSPECIFIED;
01995 }
01996 
01997 tmscm
01998 tmg_clipboard_set_export (tmscm arg1) {
01999   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "clipboard-set-export");
02000 
02001   string in1= tmscm_to_string (arg1);
02002 
02003   // TMSCM_DEFER_INTS;
02004   get_server()->get_editor()->selection_set_export (in1);
02005   // TMSCM_ALLOW_INTS;
02006 
02007   return TMSCM_UNSPECIFIED;
02008 }
02009 
02010 tmscm
02011 tmg_clipboard_get_import () {
02012   // TMSCM_DEFER_INTS;
02013   string out= get_server()->get_editor()->selection_get_import ();
02014   // TMSCM_ALLOW_INTS;
02015 
02016   return string_to_tmscm (out);
02017 }
02018 
02019 tmscm
02020 tmg_clipboard_get_export () {
02021   // TMSCM_DEFER_INTS;
02022   string out= get_server()->get_editor()->selection_get_export ();
02023   // TMSCM_ALLOW_INTS;
02024 
02025   return string_to_tmscm (out);
02026 }
02027 
02028 tmscm
02029 tmg_set_manual_focus_path (tmscm arg1) {
02030   TMSCM_ASSERT_PATH (arg1, TMSCM_ARG1, "set-manual-focus-path");
02031 
02032   path in1= tmscm_to_path (arg1);
02033 
02034   // TMSCM_DEFER_INTS;
02035   get_server()->get_editor()->manual_focus_set (in1);
02036   // TMSCM_ALLOW_INTS;
02037 
02038   return TMSCM_UNSPECIFIED;
02039 }
02040 
02041 tmscm
02042 tmg_get_manual_focus_path () {
02043   // TMSCM_DEFER_INTS;
02044   path out= get_server()->get_editor()->manual_focus_get ();
02045   // TMSCM_ALLOW_INTS;
02046 
02047   return path_to_tmscm (out);
02048 }
02049 
02050 tmscm
02051 tmg_get_focus_path () {
02052   // TMSCM_DEFER_INTS;
02053   path out= get_server()->get_editor()->focus_get ();
02054   // TMSCM_ALLOW_INTS;
02055 
02056   return path_to_tmscm (out);
02057 }
02058 
02059 tmscm
02060 tmg_clear_undo_history () {
02061   // TMSCM_DEFER_INTS;
02062   get_server()->get_editor()->clear_undo_history ();
02063   // TMSCM_ALLOW_INTS;
02064 
02065   return TMSCM_UNSPECIFIED;
02066 }
02067 
02068 tmscm
02069 tmg_commit_changes () {
02070   // TMSCM_DEFER_INTS;
02071   get_server()->get_editor()->end_editing ();
02072   // TMSCM_ALLOW_INTS;
02073 
02074   return TMSCM_UNSPECIFIED;
02075 }
02076 
02077 tmscm
02078 tmg_start_slave (tmscm arg1) {
02079   TMSCM_ASSERT_DOUBLE (arg1, TMSCM_ARG1, "start-slave");
02080 
02081   double in1= tmscm_to_double (arg1);
02082 
02083   // TMSCM_DEFER_INTS;
02084   get_server()->get_editor()->start_slave (in1);
02085   // TMSCM_ALLOW_INTS;
02086 
02087   return TMSCM_UNSPECIFIED;
02088 }
02089 
02090 tmscm
02091 tmg_mark_start (tmscm arg1) {
02092   TMSCM_ASSERT_DOUBLE (arg1, TMSCM_ARG1, "mark-start");
02093 
02094   double in1= tmscm_to_double (arg1);
02095 
02096   // TMSCM_DEFER_INTS;
02097   get_server()->get_editor()->mark_start (in1);
02098   // TMSCM_ALLOW_INTS;
02099 
02100   return TMSCM_UNSPECIFIED;
02101 }
02102 
02103 tmscm
02104 tmg_mark_end (tmscm arg1) {
02105   TMSCM_ASSERT_DOUBLE (arg1, TMSCM_ARG1, "mark-end");
02106 
02107   double in1= tmscm_to_double (arg1);
02108 
02109   // TMSCM_DEFER_INTS;
02110   get_server()->get_editor()->mark_end (in1);
02111   // TMSCM_ALLOW_INTS;
02112 
02113   return TMSCM_UNSPECIFIED;
02114 }
02115 
02116 tmscm
02117 tmg_mark_cancel (tmscm arg1) {
02118   TMSCM_ASSERT_DOUBLE (arg1, TMSCM_ARG1, "mark-cancel");
02119 
02120   double in1= tmscm_to_double (arg1);
02121 
02122   // TMSCM_DEFER_INTS;
02123   get_server()->get_editor()->mark_cancel (in1);
02124   // TMSCM_ALLOW_INTS;
02125 
02126   return TMSCM_UNSPECIFIED;
02127 }
02128 
02129 tmscm
02130 tmg_remove_undo_mark () {
02131   // TMSCM_DEFER_INTS;
02132   get_server()->get_editor()->remove_undo_mark ();
02133   // TMSCM_ALLOW_INTS;
02134 
02135   return TMSCM_UNSPECIFIED;
02136 }
02137 
02138 tmscm
02139 tmg_add_undo_mark () {
02140   // TMSCM_DEFER_INTS;
02141   get_server()->get_editor()->add_undo_mark ();
02142   // TMSCM_ALLOW_INTS;
02143 
02144   return TMSCM_UNSPECIFIED;
02145 }
02146 
02147 tmscm
02148 tmg_unredoable_undo () {
02149   // TMSCM_DEFER_INTS;
02150   get_server()->get_editor()->unredoable_undo ();
02151   // TMSCM_ALLOW_INTS;
02152 
02153   return TMSCM_UNSPECIFIED;
02154 }
02155 
02156 tmscm
02157 tmg_undo_possibilities () {
02158   // TMSCM_DEFER_INTS;
02159   int out= get_server()->get_editor()->undo_possibilities ();
02160   // TMSCM_ALLOW_INTS;
02161 
02162   return int_to_tmscm (out);
02163 }
02164 
02165 tmscm
02166 tmg_undo (tmscm arg1) {
02167   TMSCM_ASSERT_INT (arg1, TMSCM_ARG1, "undo");
02168 
02169   int in1= tmscm_to_int (arg1);
02170 
02171   // TMSCM_DEFER_INTS;
02172   get_server()->get_editor()->undo (in1);
02173   // TMSCM_ALLOW_INTS;
02174 
02175   return TMSCM_UNSPECIFIED;
02176 }
02177 
02178 tmscm
02179 tmg_redo_possibilities () {
02180   // TMSCM_DEFER_INTS;
02181   int out= get_server()->get_editor()->redo_possibilities ();
02182   // TMSCM_ALLOW_INTS;
02183 
02184   return int_to_tmscm (out);
02185 }
02186 
02187 tmscm
02188 tmg_redo (tmscm arg1) {
02189   TMSCM_ASSERT_INT (arg1, TMSCM_ARG1, "redo");
02190 
02191   int in1= tmscm_to_int (arg1);
02192 
02193   // TMSCM_DEFER_INTS;
02194   get_server()->get_editor()->redo (in1);
02195   // TMSCM_ALLOW_INTS;
02196 
02197   return TMSCM_UNSPECIFIED;
02198 }
02199 
02200 tmscm
02201 tmg_show_history () {
02202   // TMSCM_DEFER_INTS;
02203   get_server()->get_editor()->show_history ();
02204   // TMSCM_ALLOW_INTS;
02205 
02206   return TMSCM_UNSPECIFIED;
02207 }
02208 
02209 tmscm
02210 tmg_in_graphicsP () {
02211   // TMSCM_DEFER_INTS;
02212   bool out= get_server()->get_editor()->inside_graphics ();
02213   // TMSCM_ALLOW_INTS;
02214 
02215   return bool_to_tmscm (out);
02216 }
02217 
02218 tmscm
02219 tmg_get_graphical_x () {
02220   // TMSCM_DEFER_INTS;
02221   double out= get_server()->get_editor()->get_x ();
02222   // TMSCM_ALLOW_INTS;
02223 
02224   return double_to_tmscm (out);
02225 }
02226 
02227 tmscm
02228 tmg_get_graphical_y () {
02229   // TMSCM_DEFER_INTS;
02230   double out= get_server()->get_editor()->get_y ();
02231   // TMSCM_ALLOW_INTS;
02232 
02233   return double_to_tmscm (out);
02234 }
02235 
02236 tmscm
02237 tmg_get_graphical_object () {
02238   // TMSCM_DEFER_INTS;
02239   tree out= get_server()->get_editor()->get_graphical_object ();
02240   // TMSCM_ALLOW_INTS;
02241 
02242   return tree_to_tmscm (out);
02243 }
02244 
02245 tmscm
02246 tmg_set_graphical_object (tmscm arg1) {
02247   TMSCM_ASSERT_TREE (arg1, TMSCM_ARG1, "set-graphical-object");
02248 
02249   tree in1= tmscm_to_tree (arg1);
02250 
02251   // TMSCM_DEFER_INTS;
02252   get_server()->get_editor()->set_graphical_object (in1);
02253   // TMSCM_ALLOW_INTS;
02254 
02255   return TMSCM_UNSPECIFIED;
02256 }
02257 
02258 tmscm
02259 tmg_invalidate_graphical_object () {
02260   // TMSCM_DEFER_INTS;
02261   get_server()->get_editor()->invalidate_graphical_object ();
02262   // TMSCM_ALLOW_INTS;
02263 
02264   return TMSCM_UNSPECIFIED;
02265 }
02266 
02267 tmscm
02268 tmg_graphical_select (tmscm arg1, tmscm arg2) {
02269   TMSCM_ASSERT_DOUBLE (arg1, TMSCM_ARG1, "graphical-select");
02270   TMSCM_ASSERT_DOUBLE (arg2, TMSCM_ARG2, "graphical-select");
02271 
02272   double in1= tmscm_to_double (arg1);
02273   double in2= tmscm_to_double (arg2);
02274 
02275   // TMSCM_DEFER_INTS;
02276   tree out= get_server()->get_editor()->graphical_select (in1, in2);
02277   // TMSCM_ALLOW_INTS;
02278 
02279   return tree_to_tmscm (out);
02280 }
02281 
02282 tmscm
02283 tmg_graphical_select_area (tmscm arg1, tmscm arg2, tmscm arg3, tmscm arg4) {
02284   TMSCM_ASSERT_DOUBLE (arg1, TMSCM_ARG1, "graphical-select-area");
02285   TMSCM_ASSERT_DOUBLE (arg2, TMSCM_ARG2, "graphical-select-area");
02286   TMSCM_ASSERT_DOUBLE (arg3, TMSCM_ARG3, "graphical-select-area");
02287   TMSCM_ASSERT_DOUBLE (arg4, TMSCM_ARG4, "graphical-select-area");
02288 
02289   double in1= tmscm_to_double (arg1);
02290   double in2= tmscm_to_double (arg2);
02291   double in3= tmscm_to_double (arg3);
02292   double in4= tmscm_to_double (arg4);
02293 
02294   // TMSCM_DEFER_INTS;
02295   tree out= get_server()->get_editor()->graphical_select (in1, in2, in3, in4);
02296   // TMSCM_ALLOW_INTS;
02297 
02298   return tree_to_tmscm (out);
02299 }
02300 
02301 tmscm
02302 tmg_in_normal_modeP () {
02303   // TMSCM_DEFER_INTS;
02304   bool out= get_server()->get_editor()->in_normal_mode ();
02305   // TMSCM_ALLOW_INTS;
02306 
02307   return bool_to_tmscm (out);
02308 }
02309 
02310 tmscm
02311 tmg_in_search_modeP () {
02312   // TMSCM_DEFER_INTS;
02313   bool out= get_server()->get_editor()->in_search_mode ();
02314   // TMSCM_ALLOW_INTS;
02315 
02316   return bool_to_tmscm (out);
02317 }
02318 
02319 tmscm
02320 tmg_in_replace_modeP () {
02321   // TMSCM_DEFER_INTS;
02322   bool out= get_server()->get_editor()->in_replace_mode ();
02323   // TMSCM_ALLOW_INTS;
02324 
02325   return bool_to_tmscm (out);
02326 }
02327 
02328 tmscm
02329 tmg_in_spell_modeP () {
02330   // TMSCM_DEFER_INTS;
02331   bool out= get_server()->get_editor()->in_spell_mode ();
02332   // TMSCM_ALLOW_INTS;
02333 
02334   return bool_to_tmscm (out);
02335 }
02336 
02337 tmscm
02338 tmg_search_start (tmscm arg1) {
02339   TMSCM_ASSERT_BOOL (arg1, TMSCM_ARG1, "search-start");
02340 
02341   bool in1= tmscm_to_bool (arg1);
02342 
02343   // TMSCM_DEFER_INTS;
02344   get_server()->get_editor()->search_start (in1);
02345   // TMSCM_ALLOW_INTS;
02346 
02347   return TMSCM_UNSPECIFIED;
02348 }
02349 
02350 tmscm
02351 tmg_search_button_next () {
02352   // TMSCM_DEFER_INTS;
02353   get_server()->get_editor()->search_button_next ();
02354   // TMSCM_ALLOW_INTS;
02355 
02356   return TMSCM_UNSPECIFIED;
02357 }
02358 
02359 tmscm
02360 tmg_search_tree () {
02361   // TMSCM_DEFER_INTS;
02362   tree out= get_server()->get_editor()->search_tree ();
02363   // TMSCM_ALLOW_INTS;
02364 
02365   return tree_to_tmscm (out);
02366 }
02367 
02368 tmscm
02369 tmg_replace_start (tmscm arg1, tmscm arg2, tmscm arg3) {
02370   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "replace-start");
02371   TMSCM_ASSERT_STRING (arg2, TMSCM_ARG2, "replace-start");
02372   TMSCM_ASSERT_BOOL (arg3, TMSCM_ARG3, "replace-start");
02373 
02374   string in1= tmscm_to_string (arg1);
02375   string in2= tmscm_to_string (arg2);
02376   bool in3= tmscm_to_bool (arg3);
02377 
02378   // TMSCM_DEFER_INTS;
02379   get_server()->get_editor()->replace_start (in1, in2, in3);
02380   // TMSCM_ALLOW_INTS;
02381 
02382   return TMSCM_UNSPECIFIED;
02383 }
02384 
02385 tmscm
02386 tmg_spell_start () {
02387   // TMSCM_DEFER_INTS;
02388   get_server()->get_editor()->spell_start ();
02389   // TMSCM_ALLOW_INTS;
02390 
02391   return TMSCM_UNSPECIFIED;
02392 }
02393 
02394 tmscm
02395 tmg_spell_replace (tmscm arg1) {
02396   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "spell-replace");
02397 
02398   string in1= tmscm_to_string (arg1);
02399 
02400   // TMSCM_DEFER_INTS;
02401   get_server()->get_editor()->spell_replace (in1);
02402   // TMSCM_ALLOW_INTS;
02403 
02404   return TMSCM_UNSPECIFIED;
02405 }
02406 
02407 tmscm
02408 tmg_session_complete_command (tmscm arg1) {
02409   TMSCM_ASSERT_TREE (arg1, TMSCM_ARG1, "session-complete-command");
02410 
02411   tree in1= tmscm_to_tree (arg1);
02412 
02413   // TMSCM_DEFER_INTS;
02414   string out= get_server()->get_editor()->session_complete_command (in1);
02415   // TMSCM_ALLOW_INTS;
02416 
02417   return string_to_tmscm (out);
02418 }
02419 
02420 tmscm
02421 tmg_custom_complete (tmscm arg1) {
02422   TMSCM_ASSERT_TREE (arg1, TMSCM_ARG1, "custom-complete");
02423 
02424   tree in1= tmscm_to_tree (arg1);
02425 
02426   // TMSCM_DEFER_INTS;
02427   get_server()->get_editor()->custom_complete (in1);
02428   // TMSCM_ALLOW_INTS;
02429 
02430   return TMSCM_UNSPECIFIED;
02431 }
02432 
02433 tmscm
02434 tmg_view_set_property (tmscm arg1, tmscm arg2) {
02435   TMSCM_ASSERT_SCHEME_TREE (arg1, TMSCM_ARG1, "view-set-property");
02436   TMSCM_ASSERT_SCHEME_TREE (arg2, TMSCM_ARG2, "view-set-property");
02437 
02438   scheme_tree in1= tmscm_to_scheme_tree (arg1);
02439   scheme_tree in2= tmscm_to_scheme_tree (arg2);
02440 
02441   // TMSCM_DEFER_INTS;
02442   get_server()->get_editor()->set_property (in1, in2);
02443   // TMSCM_ALLOW_INTS;
02444 
02445   return TMSCM_UNSPECIFIED;
02446 }
02447 
02448 tmscm
02449 tmg_view_get_property (tmscm arg1) {
02450   TMSCM_ASSERT_SCHEME_TREE (arg1, TMSCM_ARG1, "view-get-property");
02451 
02452   scheme_tree in1= tmscm_to_scheme_tree (arg1);
02453 
02454   // TMSCM_DEFER_INTS;
02455   scheme_tree out= get_server()->get_editor()->get_property (in1);
02456   // TMSCM_ALLOW_INTS;
02457 
02458   return scheme_tree_to_tmscm (out);
02459 }
02460 
02461 tmscm
02462 tmg_clear_buffer () {
02463   // TMSCM_DEFER_INTS;
02464   get_server()->get_editor()->clear_buffer ();
02465   // TMSCM_ALLOW_INTS;
02466 
02467   return TMSCM_UNSPECIFIED;
02468 }
02469 
02470 tmscm
02471 tmg_tex_buffer () {
02472   // TMSCM_DEFER_INTS;
02473   get_server()->get_editor()->tex_buffer ();
02474   // TMSCM_ALLOW_INTS;
02475 
02476   return TMSCM_UNSPECIFIED;
02477 }
02478 
02479 tmscm
02480 tmg_clear_local_info () {
02481   // TMSCM_DEFER_INTS;
02482   get_server()->get_editor()->clear_local_info ();
02483   // TMSCM_ALLOW_INTS;
02484 
02485   return TMSCM_UNSPECIFIED;
02486 }
02487 
02488 tmscm
02489 tmg_update_path (tmscm arg1) {
02490   TMSCM_ASSERT_PATH (arg1, TMSCM_ARG1, "update-path");
02491 
02492   path in1= tmscm_to_path (arg1);
02493 
02494   // TMSCM_DEFER_INTS;
02495   get_server()->get_editor()->typeset_invalidate (in1);
02496   // TMSCM_ALLOW_INTS;
02497 
02498   return TMSCM_UNSPECIFIED;
02499 }
02500 
02501 tmscm
02502 tmg_update_buffer () {
02503   // TMSCM_DEFER_INTS;
02504   get_server()->get_editor()->typeset_invalidate_all ();
02505   // TMSCM_ALLOW_INTS;
02506 
02507   return TMSCM_UNSPECIFIED;
02508 }
02509 
02510 tmscm
02511 tmg_generate_all_aux () {
02512   // TMSCM_DEFER_INTS;
02513   get_server()->get_editor()->generate_aux ();
02514   // TMSCM_ALLOW_INTS;
02515 
02516   return TMSCM_UNSPECIFIED;
02517 }
02518 
02519 tmscm
02520 tmg_generate_aux (tmscm arg1) {
02521   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "generate-aux");
02522 
02523   string in1= tmscm_to_string (arg1);
02524 
02525   // TMSCM_DEFER_INTS;
02526   get_server()->get_editor()->generate_aux (in1);
02527   // TMSCM_ALLOW_INTS;
02528 
02529   return TMSCM_UNSPECIFIED;
02530 }
02531 
02532 tmscm
02533 tmg_notify_page_change () {
02534   // TMSCM_DEFER_INTS;
02535   get_server()->get_editor()->notify_page_change ();
02536   // TMSCM_ALLOW_INTS;
02537 
02538   return TMSCM_UNSPECIFIED;
02539 }
02540 
02541 tmscm
02542 tmg_notify_change (tmscm arg1) {
02543   TMSCM_ASSERT_INT (arg1, TMSCM_ARG1, "notify-change");
02544 
02545   int in1= tmscm_to_int (arg1);
02546 
02547   // TMSCM_DEFER_INTS;
02548   get_server()->get_editor()->notify_change (in1);
02549   // TMSCM_ALLOW_INTS;
02550 
02551   return TMSCM_UNSPECIFIED;
02552 }
02553 
02554 tmscm
02555 tmg_print_to_file (tmscm arg1) {
02556   TMSCM_ASSERT_URL (arg1, TMSCM_ARG1, "print-to-file");
02557 
02558   url in1= tmscm_to_url (arg1);
02559 
02560   // TMSCM_DEFER_INTS;
02561   get_server()->get_editor()->print_to_file (in1);
02562   // TMSCM_ALLOW_INTS;
02563 
02564   return TMSCM_UNSPECIFIED;
02565 }
02566 
02567 tmscm
02568 tmg_print_pages_to_file (tmscm arg1, tmscm arg2, tmscm arg3) {
02569   TMSCM_ASSERT_URL (arg1, TMSCM_ARG1, "print-pages-to-file");
02570   TMSCM_ASSERT_STRING (arg2, TMSCM_ARG2, "print-pages-to-file");
02571   TMSCM_ASSERT_STRING (arg3, TMSCM_ARG3, "print-pages-to-file");
02572 
02573   url in1= tmscm_to_url (arg1);
02574   string in2= tmscm_to_string (arg2);
02575   string in3= tmscm_to_string (arg3);
02576 
02577   // TMSCM_DEFER_INTS;
02578   get_server()->get_editor()->print_to_file (in1, in2, in3);
02579   // TMSCM_ALLOW_INTS;
02580 
02581   return TMSCM_UNSPECIFIED;
02582 }
02583 
02584 tmscm
02585 tmg_print () {
02586   // TMSCM_DEFER_INTS;
02587   get_server()->get_editor()->print_buffer ();
02588   // TMSCM_ALLOW_INTS;
02589 
02590   return TMSCM_UNSPECIFIED;
02591 }
02592 
02593 tmscm
02594 tmg_print_pages (tmscm arg1, tmscm arg2) {
02595   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "print-pages");
02596   TMSCM_ASSERT_STRING (arg2, TMSCM_ARG2, "print-pages");
02597 
02598   string in1= tmscm_to_string (arg1);
02599   string in2= tmscm_to_string (arg2);
02600 
02601   // TMSCM_DEFER_INTS;
02602   get_server()->get_editor()->print_buffer (in1, in2);
02603   // TMSCM_ALLOW_INTS;
02604 
02605   return TMSCM_UNSPECIFIED;
02606 }
02607 
02608 tmscm
02609 tmg_print_snippet (tmscm arg1, tmscm arg2) {
02610   TMSCM_ASSERT_URL (arg1, TMSCM_ARG1, "print-snippet");
02611   TMSCM_ASSERT_CONTENT (arg2, TMSCM_ARG2, "print-snippet");
02612 
02613   url in1= tmscm_to_url (arg1);
02614   content in2= tmscm_to_content (arg2);
02615 
02616   // TMSCM_DEFER_INTS;
02617   array_int out= get_server()->get_editor()->print_snippet (in1, in2);
02618   // TMSCM_ALLOW_INTS;
02619 
02620   return array_int_to_tmscm (out);
02621 }
02622 
02623 tmscm
02624 tmg_export_postscript (tmscm arg1) {
02625   TMSCM_ASSERT_URL (arg1, TMSCM_ARG1, "export-postscript");
02626 
02627   url in1= tmscm_to_url (arg1);
02628 
02629   // TMSCM_DEFER_INTS;
02630   get_server()->get_editor()->export_ps (in1);
02631   // TMSCM_ALLOW_INTS;
02632 
02633   return TMSCM_UNSPECIFIED;
02634 }
02635 
02636 tmscm
02637 tmg_export_pages_postscript (tmscm arg1, tmscm arg2, tmscm arg3) {
02638   TMSCM_ASSERT_URL (arg1, TMSCM_ARG1, "export-pages-postscript");
02639   TMSCM_ASSERT_STRING (arg2, TMSCM_ARG2, "export-pages-postscript");
02640   TMSCM_ASSERT_STRING (arg3, TMSCM_ARG3, "export-pages-postscript");
02641 
02642   url in1= tmscm_to_url (arg1);
02643   string in2= tmscm_to_string (arg2);
02644   string in3= tmscm_to_string (arg3);
02645 
02646   // TMSCM_DEFER_INTS;
02647   get_server()->get_editor()->export_ps (in1, in2, in3);
02648   // TMSCM_ALLOW_INTS;
02649 
02650   return TMSCM_UNSPECIFIED;
02651 }
02652 
02653 tmscm
02654 tmg_footer_eval (tmscm arg1) {
02655   TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "footer-eval");
02656 
02657   string in1= tmscm_to_string (arg1);
02658 
02659   // TMSCM_DEFER_INTS;
02660   get_server()->get_editor()->footer_eval (in1);
02661   // TMSCM_ALLOW_INTS;
02662 
02663   return TMSCM_UNSPECIFIED;
02664 }
02665 
02666 tmscm
02667 tmg_texmacs_exec (tmscm arg1) {
02668   TMSCM_ASSERT_CONTENT (arg1, TMSCM_ARG1, "texmacs-exec");
02669 
02670   content in1= tmscm_to_content (arg1);
02671 
02672   // TMSCM_DEFER_INTS;
02673   tree out= get_server()->get_editor()->texmacs_exec (in1);
02674   // TMSCM_ALLOW_INTS;
02675 
02676   return tree_to_tmscm (out);
02677 }
02678 
02679 tmscm
02680 tmg_texmacs_expand (tmscm arg1) {
02681   TMSCM_ASSERT_CONTENT (arg1, TMSCM_ARG1, "texmacs-expand");
02682 
02683   content in1= tmscm_to_content (arg1);
02684 
02685   // TMSCM_DEFER_INTS;
02686   tree out= get_server()->get_editor()->exec_texmacs (in1);
02687   // TMSCM_ALLOW_INTS;
02688 
02689   return tree_to_tmscm (out);
02690 }
02691 
02692 tmscm
02693 tmg_verbatim_expand (tmscm arg1) {
02694   TMSCM_ASSERT_CONTENT (arg1, TMSCM_ARG1, "verbatim-expand");
02695 
02696   content in1= tmscm_to_content (arg1);
02697 
02698   // TMSCM_DEFER_INTS;
02699   tree out= get_server()->get_editor()->exec_verbatim (in1);
02700   // TMSCM_ALLOW_INTS;
02701 
02702   return tree_to_tmscm (out);
02703 }
02704 
02705 tmscm
02706 tmg_latex_expand (tmscm arg1) {
02707   TMSCM_ASSERT_CONTENT (arg1, TMSCM_ARG1, "latex-expand");
02708 
02709   content in1= tmscm_to_content (arg1);
02710 
02711   // TMSCM_DEFER_INTS;
02712   tree out= get_server()->get_editor()->exec_latex (in1);
02713   // TMSCM_ALLOW_INTS;
02714 
02715   return tree_to_tmscm (out);
02716 }
02717 
02718 tmscm
02719 tmg_html_expand (tmscm arg1) {
02720   TMSCM_ASSERT_CONTENT (arg1, TMSCM_ARG1, "html-expand");
02721 
02722   content in1= tmscm_to_content (arg1);
02723 
02724   // TMSCM_DEFER_INTS;
02725   tree out= get_server()->get_editor()->exec_html (in1);
02726   // TMSCM_ALLOW_INTS;
02727 
02728   return tree_to_tmscm (out);
02729 }
02730 
02731 tmscm
02732 tmg_idle_time () {
02733   // TMSCM_DEFER_INTS;
02734   int out= get_server()->get_editor()->idle_time ();
02735   // TMSCM_ALLOW_INTS;
02736 
02737   return int_to_tmscm (out);
02738 }
02739 
02740 tmscm
02741 tmg_change_time () {
02742   // TMSCM_DEFER_INTS;
02743   int out= get_server()->get_editor()->change_time ();
02744   // TMSCM_ALLOW_INTS;
02745 
02746   return int_to_tmscm (out);
02747 }
02748 
02749 tmscm
02750 tmg_menu_before_action () {
02751   // TMSCM_DEFER_INTS;
02752   get_server()->get_editor()->before_menu_action ();
02753   // TMSCM_ALLOW_INTS;
02754 
02755   return TMSCM_UNSPECIFIED;
02756 }
02757 
02758 tmscm
02759 tmg_menu_after_action () {
02760   // TMSCM_DEFER_INTS;
02761   get_server()->get_editor()->after_menu_action ();
02762   // TMSCM_ALLOW_INTS;
02763 
02764   return TMSCM_UNSPECIFIED;
02765 }
02766 
02767 tmscm
02768 tmg_show_tree () {
02769   // TMSCM_DEFER_INTS;
02770   get_server()->get_editor()->show_tree ();
02771   // TMSCM_ALLOW_INTS;
02772 
02773   return TMSCM_UNSPECIFIED;
02774 }
02775 
02776 tmscm
02777 tmg_show_env () {
02778   // TMSCM_DEFER_INTS;
02779   get_server()->get_editor()->show_env ();
02780   // TMSCM_ALLOW_INTS;
02781 
02782   return TMSCM_UNSPECIFIED;
02783 }
02784 
02785 tmscm
02786 tmg_show_path () {
02787   // TMSCM_DEFER_INTS;
02788   get_server()->get_editor()->show_path ();
02789   // TMSCM_ALLOW_INTS;
02790 
02791   return TMSCM_UNSPECIFIED;
02792 }
02793 
02794 tmscm
02795 tmg_show_cursor () {
02796   // TMSCM_DEFER_INTS;
02797   get_server()->get_editor()->show_cursor ();
02798   // TMSCM_ALLOW_INTS;
02799 
02800   return TMSCM_UNSPECIFIED;
02801 }
02802 
02803 tmscm
02804 tmg_show_selection () {
02805   // TMSCM_DEFER_INTS;
02806   get_server()->get_editor()->show_selection ();
02807   // TMSCM_ALLOW_INTS;
02808 
02809   return TMSCM_UNSPECIFIED;
02810 }
02811 
02812 tmscm
02813 tmg_show_meminfo () {
02814   // TMSCM_DEFER_INTS;
02815   get_server()->get_editor()->show_meminfo ();
02816   // TMSCM_ALLOW_INTS;
02817 
02818   return TMSCM_UNSPECIFIED;
02819 }
02820 
02821 tmscm
02822 tmg_edit_special () {
02823   // TMSCM_DEFER_INTS;
02824   get_server()->get_editor()->edit_special ();
02825   // TMSCM_ALLOW_INTS;
02826 
02827   return TMSCM_UNSPECIFIED;
02828 }
02829 
02830 tmscm
02831 tmg_edit_test () {
02832   // TMSCM_DEFER_INTS;
02833   get_server()->get_editor()->edit_test ();
02834   // TMSCM_ALLOW_INTS;
02835 
02836   return TMSCM_UNSPECIFIED;
02837 }
02838 
02839 void
02840 initialize_glue_editor () {
02841   tmscm_install_procedure ("root-tree",  tmg_root_tree, 0, 0, 0);
02842   tmscm_install_procedure ("buffer-path",  tmg_buffer_path, 0, 0, 0);
02843   tmscm_install_procedure ("buffer-tree",  tmg_buffer_tree, 0, 0, 0);
02844   tmscm_install_procedure ("paragraph-tree",  tmg_paragraph_tree, 0, 0, 0);
02845   tmscm_install_procedure ("cursor-path",  tmg_cursor_path, 0, 0, 0);
02846   tmscm_install_procedure ("cursor-path*",  tmg_cursor_path_dot, 0, 0, 0);
02847   tmscm_install_procedure ("selection-tree",  tmg_selection_tree, 0, 0, 0);
02848   tmscm_install_procedure ("path->tree",  tmg_path_2tree, 1, 0, 0);
02849   tmscm_install_procedure ("path-correct-old",  tmg_path_correct_old, 1, 0, 0);
02850   tmscm_install_procedure ("path-insert-with",  tmg_path_insert_with, 3, 0, 0);
02851   tmscm_install_procedure ("path-remove-with",  tmg_path_remove_with, 2, 0, 0);
02852   tmscm_install_procedure ("position-new-path",  tmg_position_new_path, 1, 0, 0);
02853   tmscm_install_procedure ("position-delete",  tmg_position_delete, 1, 0, 0);
02854   tmscm_install_procedure ("position-set",  tmg_position_set, 2, 0, 0);
02855   tmscm_install_procedure ("position-get",  tmg_position_get, 1, 0, 0);
02856   tmscm_install_procedure ("inside?",  tmg_insideP, 1, 0, 0);
02857   tmscm_install_procedure ("insert",  tmg_insert, 1, 0, 0);
02858   tmscm_install_procedure ("insert-go-to",  tmg_insert_go_to, 2, 0, 0);
02859   tmscm_install_procedure ("insert-raw-go-to",  tmg_insert_raw_go_to, 2, 0, 0);
02860   tmscm_install_procedure ("insert-raw-return",  tmg_insert_raw_return, 0, 0, 0);
02861   tmscm_install_procedure ("remove-text",  tmg_remove_text, 1, 0, 0);
02862   tmscm_install_procedure ("remove-structure",  tmg_remove_structure, 1, 0, 0);
02863   tmscm_install_procedure ("remove-structure-upwards",  tmg_remove_structure_upwards, 0, 0, 0);
02864   tmscm_install_procedure ("make",  tmg_make, 1, 0, 0);
02865   tmscm_install_procedure ("make-arity",  tmg_make_arity, 2, 0, 0);
02866   tmscm_install_procedure ("activate",  tmg_activate, 0, 0, 0);
02867   tmscm_install_procedure ("insert-argument",  tmg_insert_argument, 1, 0, 0);
02868   tmscm_install_procedure ("remove-argument",  tmg_remove_argument, 1, 0, 0);
02869   tmscm_install_procedure ("insert-argument-at",  tmg_insert_argument_at, 2, 0, 0);
02870   tmscm_install_procedure ("remove-argument-at",  tmg_remove_argument_at, 2, 0, 0);
02871   tmscm_install_procedure ("make-with",  tmg_make_with, 2, 0, 0);
02872   tmscm_install_procedure ("make-mod-active",  tmg_make_mod_active, 1, 0, 0);
02873   tmscm_install_procedure ("make-style-with",  tmg_make_style_with, 2, 0, 0);
02874   tmscm_install_procedure ("make-hybrid",  tmg_make_hybrid, 0, 0, 0);
02875   tmscm_install_procedure ("activate-latex",  tmg_activate_latex, 0, 0, 0);
02876   tmscm_install_procedure ("activate-hybrid",  tmg_activate_hybrid, 1, 0, 0);
02877   tmscm_install_procedure ("activate-symbol",  tmg_activate_symbol, 0, 0, 0);
02878   tmscm_install_procedure ("make-return-before",  tmg_make_return_before, 0, 0, 0);
02879   tmscm_install_procedure ("make-return-after",  tmg_make_return_after, 0, 0, 0);
02880   tmscm_install_procedure ("temp-proof-fix",  tmg_temp_proof_fix, 0, 0, 0);
02881   tmscm_install_procedure ("init-default-one",  tmg_init_default_one, 1, 0, 0);
02882   tmscm_install_procedure ("init-env",  tmg_init_env, 2, 0, 0);
02883   tmscm_install_procedure ("init-env-tree",  tmg_init_env_tree, 2, 0, 0);
02884   tmscm_install_procedure ("init-style",  tmg_init_style, 1, 0, 0);
02885   tmscm_install_procedure ("init-add-package",  tmg_init_add_package, 1, 0, 0);
02886   tmscm_install_procedure ("init-remove-package",  tmg_init_remove_package, 1, 0, 0);
02887   tmscm_install_procedure ("get-style-tree",  tmg_get_style_tree, 0, 0, 0);
02888   tmscm_install_procedure ("set-style-tree",  tmg_set_style_tree, 1, 0, 0);
02889   tmscm_install_procedure ("get-env",  tmg_get_env, 1, 0, 0);
02890   tmscm_install_procedure ("get-env-tree",  tmg_get_env_tree, 1, 0, 0);
02891   tmscm_install_procedure ("get-env-tree-at",  tmg_get_env_tree_at, 2, 0, 0);
02892   tmscm_install_procedure ("get-init",  tmg_get_init, 1, 0, 0);
02893   tmscm_install_procedure ("get-init-tree",  tmg_get_init_tree, 1, 0, 0);
02894   tmscm_install_procedure ("context-has?",  tmg_context_hasP, 1, 0, 0);
02895   tmscm_install_procedure ("style-has?",  tmg_style_hasP, 1, 0, 0);
02896   tmscm_install_procedure ("init-has?",  tmg_init_hasP, 1, 0, 0);
02897   tmscm_install_procedure ("make-htab",  tmg_make_htab, 1, 0, 0);
02898   tmscm_install_procedure ("make-space",  tmg_make_space, 1, 0, 0);
02899   tmscm_install_procedure ("make-var-space",  tmg_make_var_space, 3, 0, 0);
02900   tmscm_install_procedure ("make-hspace",  tmg_make_hspace, 1, 0, 0);
02901   tmscm_install_procedure ("make-var-hspace",  tmg_make_var_hspace, 3, 0, 0);
02902   tmscm_install_procedure ("make-vspace-before",  tmg_make_vspace_before, 1, 0, 0);
02903   tmscm_install_procedure ("make-var-vspace-before",  tmg_make_var_vspace_before, 3, 0, 0);
02904   tmscm_install_procedure ("make-vspace-after",  tmg_make_vspace_after, 1, 0, 0);
02905   tmscm_install_procedure ("make-var-vspace-after",  tmg_make_var_vspace_after, 3, 0, 0);
02906   tmscm_install_procedure ("make-image",  tmg_make_image, 6, 0, 0);
02907   tmscm_install_procedure ("length-decode",  tmg_length_decode, 1, 0, 0);
02908   tmscm_install_procedure ("length-add",  tmg_length_add, 2, 0, 0);
02909   tmscm_install_procedure ("length-mult",  tmg_length_mult, 2, 0, 0);
02910   tmscm_install_procedure ("length?",  tmg_lengthP, 1, 0, 0);
02911   tmscm_install_procedure ("length-divide",  tmg_length_divide, 2, 0, 0);
02912   tmscm_install_procedure ("make-rigid",  tmg_make_rigid, 0, 0, 0);
02913   tmscm_install_procedure ("make-lprime",  tmg_make_lprime, 1, 0, 0);
02914   tmscm_install_procedure ("make-rprime",  tmg_make_rprime, 1, 0, 0);
02915   tmscm_install_procedure ("make-below",  tmg_make_below, 0, 0, 0);
02916   tmscm_install_procedure ("make-above",  tmg_make_above, 0, 0, 0);
02917   tmscm_install_procedure ("make-script",  tmg_make_script, 2, 0, 0);
02918   tmscm_install_procedure ("make-fraction",  tmg_make_fraction, 0, 0, 0);
02919   tmscm_install_procedure ("make-sqrt",  tmg_make_sqrt, 0, 0, 0);
02920   tmscm_install_procedure ("make-wide",  tmg_make_wide, 1, 0, 0);
02921   tmscm_install_procedure ("make-wide-under",  tmg_make_wide_under, 1, 0, 0);
02922   tmscm_install_procedure ("make-var-sqrt",  tmg_make_var_sqrt, 0, 0, 0);
02923   tmscm_install_procedure ("make-neg",  tmg_make_neg, 0, 0, 0);
02924   tmscm_install_procedure ("make-tree",  tmg_make_tree, 0, 0, 0);
02925   tmscm_install_procedure ("make-subtable",  tmg_make_subtable, 0, 0, 0);
02926   tmscm_install_procedure ("table-disactivate",  tmg_table_disactivate, 0, 0, 0);
02927   tmscm_install_procedure ("table-extract-format",  tmg_table_extract_format, 0, 0, 0);
02928   tmscm_install_procedure ("table-insert-row",  tmg_table_insert_row, 1, 0, 0);
02929   tmscm_install_procedure ("table-insert-column",  tmg_table_insert_column, 1, 0, 0);
02930   tmscm_install_procedure ("table-remove-row",  tmg_table_remove_row, 1, 0, 0);
02931   tmscm_install_procedure ("table-remove-column",  tmg_table_remove_column, 1, 0, 0);
02932   tmscm_install_procedure ("table-nr-rows",  tmg_table_nr_rows, 0, 0, 0);
02933   tmscm_install_procedure ("table-nr-columns",  tmg_table_nr_columns, 0, 0, 0);
02934   tmscm_install_procedure ("table-set-extents",  tmg_table_set_extents, 2, 0, 0);
02935   tmscm_install_procedure ("table-which-row",  tmg_table_which_row, 0, 0, 0);
02936   tmscm_install_procedure ("table-which-column",  tmg_table_which_column, 0, 0, 0);
02937   tmscm_install_procedure ("table-cell-path",  tmg_table_cell_path, 2, 0, 0);
02938   tmscm_install_procedure ("table-go-to",  tmg_table_go_to, 2, 0, 0);
02939   tmscm_install_procedure ("table-set-format",  tmg_table_set_format, 2, 0, 0);
02940   tmscm_install_procedure ("table-get-format",  tmg_table_get_format, 1, 0, 0);
02941   tmscm_install_procedure ("table-del-format",  tmg_table_del_format, 1, 0, 0);
02942   tmscm_install_procedure ("table-row-decoration",  tmg_table_row_decoration, 1, 0, 0);
02943   tmscm_install_procedure ("table-column-decoration",  tmg_table_column_decoration, 1, 0, 0);
02944   tmscm_install_procedure ("table-format-center",  tmg_table_format_center, 0, 0, 0);
02945   tmscm_install_procedure ("table-correct-block-content",  tmg_table_correct_block_content, 0, 0, 0);
02946   tmscm_install_procedure ("set-cell-mode",  tmg_set_cell_mode, 1, 0, 0);
02947   tmscm_install_procedure ("get-cell-mode",  tmg_get_cell_mode, 0, 0, 0);
02948   tmscm_install_procedure ("cell-set-format",  tmg_cell_set_format, 2, 0, 0);
02949   tmscm_install_procedure ("cell-get-format",  tmg_cell_get_format, 1, 0, 0);
02950   tmscm_install_procedure ("cell-del-format",  tmg_cell_del_format, 1, 0, 0);
02951   tmscm_install_procedure ("table-test",  tmg_table_test, 0, 0, 0);
02952   tmscm_install_procedure ("key-press",  tmg_key_press, 1, 0, 0);
02953   tmscm_install_procedure ("raw-emulate-keyboard",  tmg_raw_emulate_keyboard, 1, 0, 0);
02954   tmscm_install_procedure ("complete-try?",  tmg_complete_tryP, 0, 0, 0);
02955   tmscm_install_procedure ("get-input-mode",  tmg_get_input_mode, 0, 0, 0);
02956   tmscm_install_procedure ("key-press-search",  tmg_key_press_search, 1, 0, 0);
02957   tmscm_install_procedure ("key-press-replace",  tmg_key_press_replace, 1, 0, 0);
02958   tmscm_install_procedure ("key-press-spell",  tmg_key_press_spell, 1, 0, 0);
02959   tmscm_install_procedure ("key-press-complete",  tmg_key_press_complete, 1, 0, 0);
02960   tmscm_install_procedure ("mouse-any",  tmg_mouse_any, 5, 0, 0);
02961   tmscm_install_procedure ("set-mouse-pointer",  tmg_set_mouse_pointer, 2, 0, 0);
02962   tmscm_install_procedure ("set-predef-mouse-pointer",  tmg_set_predef_mouse_pointer, 1, 0, 0);
02963   tmscm_install_procedure ("go-to-path",  tmg_go_to_path, 1, 0, 0);
02964   tmscm_install_procedure ("go-left",  tmg_go_left, 0, 0, 0);
02965   tmscm_install_procedure ("go-right",  tmg_go_right, 0, 0, 0);
02966   tmscm_install_procedure ("go-up",  tmg_go_up, 0, 0, 0);
02967   tmscm_install_procedure ("go-down",  tmg_go_down, 0, 0, 0);
02968   tmscm_install_procedure ("go-start",  tmg_go_start, 0, 0, 0);
02969   tmscm_install_procedure ("go-end",  tmg_go_end, 0, 0, 0);
02970   tmscm_install_procedure ("go-start-of",  tmg_go_start_of, 1, 0, 0);
02971   tmscm_install_procedure ("go-end-of",  tmg_go_end_of, 1, 0, 0);
02972   tmscm_install_procedure ("go-start-with",  tmg_go_start_with, 2, 0, 0);
02973   tmscm_install_procedure ("go-end-with",  tmg_go_end_with, 2, 0, 0);
02974   tmscm_install_procedure ("go-start-line",  tmg_go_start_line, 0, 0, 0);
02975   tmscm_install_procedure ("go-end-line",  tmg_go_end_line, 0, 0, 0);
02976   tmscm_install_procedure ("go-page-up",  tmg_go_page_up, 0, 0, 0);
02977   tmscm_install_procedure ("go-page-down",  tmg_go_page_down, 0, 0, 0);
02978   tmscm_install_procedure ("go-start-paragraph",  tmg_go_start_paragraph, 0, 0, 0);
02979   tmscm_install_procedure ("go-end-paragraph",  tmg_go_end_paragraph, 0, 0, 0);
02980   tmscm_install_procedure ("go-to-label",  tmg_go_to_label, 1, 0, 0);
02981   tmscm_install_procedure ("cursor-show-if-hidden",  tmg_cursor_show_if_hidden, 0, 0, 0);
02982   tmscm_install_procedure ("select-all",  tmg_select_all, 0, 0, 0);
02983   tmscm_install_procedure ("select-line",  tmg_select_line, 0, 0, 0);
02984   tmscm_install_procedure ("select-from-cursor",  tmg_select_from_cursor, 0, 0, 0);
02985   tmscm_install_procedure ("select-from-keyboard",  tmg_select_from_keyboard, 1, 0, 0);
02986   tmscm_install_procedure ("select-from-shift-keyboard",  tmg_select_from_shift_keyboard, 0, 0, 0);
02987   tmscm_install_procedure ("select-enlarge",  tmg_select_enlarge, 0, 0, 0);
02988   tmscm_install_procedure ("select-enlarge-environmental",  tmg_select_enlarge_environmental, 0, 0, 0);
02989   tmscm_install_procedure ("selection-active-any?",  tmg_selection_active_anyP, 0, 0, 0);
02990   tmscm_install_procedure ("selection-active-normal?",  tmg_selection_active_normalP, 0, 0, 0);
02991   tmscm_install_procedure ("selection-active-table?",  tmg_selection_active_tableP, 0, 0, 0);
02992   tmscm_install_procedure ("selection-active-small?",  tmg_selection_active_smallP, 0, 0, 0);
02993   tmscm_install_procedure ("selection-active-enlarging?",  tmg_selection_active_enlargingP, 0, 0, 0);
02994   tmscm_install_procedure ("selection-set-start",  tmg_selection_set_start, 0, 0, 0);
02995   tmscm_install_procedure ("selection-set-end",  tmg_selection_set_end, 0, 0, 0);
02996   tmscm_install_procedure ("selection-get-start",  tmg_selection_get_start, 0, 0, 0);
02997   tmscm_install_procedure ("selection-get-end",  tmg_selection_get_end, 0, 0, 0);
02998   tmscm_install_procedure ("selection-path",  tmg_selection_path, 0, 0, 0);
02999   tmscm_install_procedure ("selection-set",  tmg_selection_set, 2, 0, 0);
03000   tmscm_install_procedure ("clipboard-copy",  tmg_clipboard_copy, 1, 0, 0);
03001   tmscm_install_procedure ("clipboard-cut",  tmg_clipboard_cut, 1, 0, 0);
03002   tmscm_install_procedure ("clipboard-cut-at",  tmg_clipboard_cut_at, 1, 0, 0);
03003   tmscm_install_procedure ("clipboard-paste",  tmg_clipboard_paste, 1, 0, 0);
03004   tmscm_install_procedure ("selection-move",  tmg_selection_move, 0, 0, 0);
03005   tmscm_install_procedure ("clipboard-clear",  tmg_clipboard_clear, 1, 0, 0);
03006   tmscm_install_procedure ("selection-cancel",  tmg_selection_cancel, 0, 0, 0);
03007   tmscm_install_procedure ("clipboard-set-import",  tmg_clipboard_set_import, 1, 0, 0);
03008   tmscm_install_procedure ("clipboard-set-export",  tmg_clipboard_set_export, 1, 0, 0);
03009   tmscm_install_procedure ("clipboard-get-import",  tmg_clipboard_get_import, 0, 0, 0);
03010   tmscm_install_procedure ("clipboard-get-export",  tmg_clipboard_get_export, 0, 0, 0);
03011   tmscm_install_procedure ("set-manual-focus-path",  tmg_set_manual_focus_path, 1, 0, 0);
03012   tmscm_install_procedure ("get-manual-focus-path",  tmg_get_manual_focus_path, 0, 0, 0);
03013   tmscm_install_procedure ("get-focus-path",  tmg_get_focus_path, 0, 0, 0);
03014   tmscm_install_procedure ("clear-undo-history",  tmg_clear_undo_history, 0, 0, 0);
03015   tmscm_install_procedure ("commit-changes",  tmg_commit_changes, 0, 0, 0);
03016   tmscm_install_procedure ("start-slave",  tmg_start_slave, 1, 0, 0);
03017   tmscm_install_procedure ("mark-start",  tmg_mark_start, 1, 0, 0);
03018   tmscm_install_procedure ("mark-end",  tmg_mark_end, 1, 0, 0);
03019   tmscm_install_procedure ("mark-cancel",  tmg_mark_cancel, 1, 0, 0);
03020   tmscm_install_procedure ("remove-undo-mark",  tmg_remove_undo_mark, 0, 0, 0);
03021   tmscm_install_procedure ("add-undo-mark",  tmg_add_undo_mark, 0, 0, 0);
03022   tmscm_install_procedure ("unredoable-undo",  tmg_unredoable_undo, 0, 0, 0);
03023   tmscm_install_procedure ("undo-possibilities",  tmg_undo_possibilities, 0, 0, 0);
03024   tmscm_install_procedure ("undo",  tmg_undo, 1, 0, 0);
03025   tmscm_install_procedure ("redo-possibilities",  tmg_redo_possibilities, 0, 0, 0);
03026   tmscm_install_procedure ("redo",  tmg_redo, 1, 0, 0);
03027   tmscm_install_procedure ("show-history",  tmg_show_history, 0, 0, 0);
03028   tmscm_install_procedure ("in-graphics?",  tmg_in_graphicsP, 0, 0, 0);
03029   tmscm_install_procedure ("get-graphical-x",  tmg_get_graphical_x, 0, 0, 0);
03030   tmscm_install_procedure ("get-graphical-y",  tmg_get_graphical_y, 0, 0, 0);
03031   tmscm_install_procedure ("get-graphical-object",  tmg_get_graphical_object, 0, 0, 0);
03032   tmscm_install_procedure ("set-graphical-object",  tmg_set_graphical_object, 1, 0, 0);
03033   tmscm_install_procedure ("invalidate-graphical-object",  tmg_invalidate_graphical_object, 0, 0, 0);
03034   tmscm_install_procedure ("graphical-select",  tmg_graphical_select, 2, 0, 0);
03035   tmscm_install_procedure ("graphical-select-area",  tmg_graphical_select_area, 4, 0, 0);
03036   tmscm_install_procedure ("in-normal-mode?",  tmg_in_normal_modeP, 0, 0, 0);
03037   tmscm_install_procedure ("in-search-mode?",  tmg_in_search_modeP, 0, 0, 0);
03038   tmscm_install_procedure ("in-replace-mode?",  tmg_in_replace_modeP, 0, 0, 0);
03039   tmscm_install_procedure ("in-spell-mode?",  tmg_in_spell_modeP, 0, 0, 0);
03040   tmscm_install_procedure ("search-start",  tmg_search_start, 1, 0, 0);
03041   tmscm_install_procedure ("search-button-next",  tmg_search_button_next, 0, 0, 0);
03042   tmscm_install_procedure ("search-tree",  tmg_search_tree, 0, 0, 0);
03043   tmscm_install_procedure ("replace-start",  tmg_replace_start, 3, 0, 0);
03044   tmscm_install_procedure ("spell-start",  tmg_spell_start, 0, 0, 0);
03045   tmscm_install_procedure ("spell-replace",  tmg_spell_replace, 1, 0, 0);
03046   tmscm_install_procedure ("session-complete-command",  tmg_session_complete_command, 1, 0, 0);
03047   tmscm_install_procedure ("custom-complete",  tmg_custom_complete, 1, 0, 0);
03048   tmscm_install_procedure ("view-set-property",  tmg_view_set_property, 2, 0, 0);
03049   tmscm_install_procedure ("view-get-property",  tmg_view_get_property, 1, 0, 0);
03050   tmscm_install_procedure ("clear-buffer",  tmg_clear_buffer, 0, 0, 0);
03051   tmscm_install_procedure ("tex-buffer",  tmg_tex_buffer, 0, 0, 0);
03052   tmscm_install_procedure ("clear-local-info",  tmg_clear_local_info, 0, 0, 0);
03053   tmscm_install_procedure ("update-path",  tmg_update_path, 1, 0, 0);
03054   tmscm_install_procedure ("update-buffer",  tmg_update_buffer, 0, 0, 0);
03055   tmscm_install_procedure ("generate-all-aux",  tmg_generate_all_aux, 0, 0, 0);
03056   tmscm_install_procedure ("generate-aux",  tmg_generate_aux, 1, 0, 0);
03057   tmscm_install_procedure ("notify-page-change",  tmg_notify_page_change, 0, 0, 0);
03058   tmscm_install_procedure ("notify-change",  tmg_notify_change, 1, 0, 0);
03059   tmscm_install_procedure ("print-to-file",  tmg_print_to_file, 1, 0, 0);
03060   tmscm_install_procedure ("print-pages-to-file",  tmg_print_pages_to_file, 3, 0, 0);
03061   tmscm_install_procedure ("print",  tmg_print, 0, 0, 0);
03062   tmscm_install_procedure ("print-pages",  tmg_print_pages, 2, 0, 0);
03063   tmscm_install_procedure ("print-snippet",  tmg_print_snippet, 2, 0, 0);
03064   tmscm_install_procedure ("export-postscript",  tmg_export_postscript, 1, 0, 0);
03065   tmscm_install_procedure ("export-pages-postscript",  tmg_export_pages_postscript, 3, 0, 0);
03066   tmscm_install_procedure ("footer-eval",  tmg_footer_eval, 1, 0, 0);
03067   tmscm_install_procedure ("texmacs-exec",  tmg_texmacs_exec, 1, 0, 0);
03068   tmscm_install_procedure ("texmacs-expand",  tmg_texmacs_expand, 1, 0, 0);
03069   tmscm_install_procedure ("verbatim-expand",  tmg_verbatim_expand, 1, 0, 0);
03070   tmscm_install_procedure ("latex-expand",  tmg_latex_expand, 1, 0, 0);
03071   tmscm_install_procedure ("html-expand",  tmg_html_expand, 1, 0, 0);
03072   tmscm_install_procedure ("idle-time",  tmg_idle_time, 0, 0, 0);
03073   tmscm_install_procedure ("change-time",  tmg_change_time, 0, 0, 0);
03074   tmscm_install_procedure ("menu-before-action",  tmg_menu_before_action, 0, 0, 0);
03075   tmscm_install_procedure ("menu-after-action",  tmg_menu_after_action, 0, 0, 0);
03076   tmscm_install_procedure ("show-tree",  tmg_show_tree, 0, 0, 0);
03077   tmscm_install_procedure ("show-env",  tmg_show_env, 0, 0, 0);
03078   tmscm_install_procedure ("show-path",  tmg_show_path, 0, 0, 0);
03079   tmscm_install_procedure ("show-cursor",  tmg_show_cursor, 0, 0, 0);
03080   tmscm_install_procedure ("show-selection",  tmg_show_selection, 0, 0, 0);
03081   tmscm_install_procedure ("show-meminfo",  tmg_show_meminfo, 0, 0, 0);
03082   tmscm_install_procedure ("edit-special",  tmg_edit_special, 0, 0, 0);
03083   tmscm_install_procedure ("edit-test",  tmg_edit_test, 0, 0, 0);
03084 }