← Back to branch summary

~ubuntu-branches/ubuntu/quantal/texmacs/quantal

« back to all changes in this revision

Viewing changes to src/Guile/Glue/glue_basic.cpp

  • Committer: Bazaar Package Importer
  • Author(s): Atsuhito KOHDA
  • Date: 2010-04-23 07:09:40 UTC
  • mfrom: (4.1.8 squeeze)
  • Revision ID: james.westby@ubuntu.com-20100423070940-72mjdmdepfgrvo8f
Tags: 1:1.0.7.4-2
Re-upload, former upload failed with wrong diff.gz perhaps.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/Guile/Glue/glue_basic.cpp
76
76
}
77
77
 
78
78
SCM
 
79
tmg_tm_output (SCM arg1) {
 
80
  SCM_ASSERT_STRING (arg1, SCM_ARG1, "tm-output");
 
81
 
 
82
  string in1= scm_to_string (arg1);
 
83
 
 
84
  // SCM_DEFER_INTS;
 
85
  tm_output (in1);
 
86
  // SCM_ALLOW_INTS;
 
87
 
 
88
  return SCM_UNSPECIFIED;
 
89
}
 
90
 
 
91
SCM
 
92
tmg_tm_errput (SCM arg1) {
 
93
  SCM_ASSERT_STRING (arg1, SCM_ARG1, "tm-errput");
 
94
 
 
95
  string in1= scm_to_string (arg1);
 
96
 
 
97
  // SCM_DEFER_INTS;
 
98
  tm_errput (in1);
 
99
  // SCM_ALLOW_INTS;
 
100
 
 
101
  return SCM_UNSPECIFIED;
 
102
}
 
103
 
 
104
SCM
79
105
tmg_win32_display (SCM arg1) {
80
106
  SCM_ASSERT_STRING (arg1, SCM_ARG1, "win32-display");
81
107
 
437
463
}
438
464
 
439
465
SCM
 
466
tmg_image_2psdoc (SCM arg1) {
 
467
  SCM_ASSERT_URL (arg1, SCM_ARG1, "image->psdoc");
 
468
 
 
469
  url in1= scm_to_url (arg1);
 
470
 
 
471
  // SCM_DEFER_INTS;
 
472
  string out= image_to_psdoc (in1);
 
473
  // SCM_ALLOW_INTS;
 
474
 
 
475
  return string_to_scm (out);
 
476
}
 
477
 
 
478
SCM
440
479
tmg_tree_2stree (SCM arg1) {
441
480
  SCM_ASSERT_TREE (arg1, SCM_ARG1, "tree->stree");
442
481
 
3648
3687
  scm_new_procedure ("os-mingw?", (FN) tmg_os_mingwP, 0, 0, 0);
3649
3688
  scm_new_procedure ("x-gui?", (FN) tmg_x_guiP, 0, 0, 0);
3650
3689
  scm_new_procedure ("qt-gui?", (FN) tmg_qt_guiP, 0, 0, 0);
 
3690
  scm_new_procedure ("tm-output", (FN) tmg_tm_output, 1, 0, 0);
 
3691
  scm_new_procedure ("tm-errput", (FN) tmg_tm_errput, 1, 0, 0);
3651
3692
  scm_new_procedure ("win32-display", (FN) tmg_win32_display, 1, 0, 0);
3652
3693
  scm_new_procedure ("scheme-dialect", (FN) tmg_scheme_dialect, 0, 0, 0);
3653
3694
  scm_new_procedure ("get-texmacs-path", (FN) tmg_get_texmacs_path, 0, 0, 0);
3679
3720
  scm_new_procedure ("new-author", (FN) tmg_new_author, 0, 0, 0);
3680
3721
  scm_new_procedure ("set-author", (FN) tmg_set_author, 1, 0, 0);
3681
3722
  scm_new_procedure ("get-author", (FN) tmg_get_author, 0, 0, 0);
 
3723
  scm_new_procedure ("image->psdoc", (FN) tmg_image_2psdoc, 1, 0, 0);
3682
3724
  scm_new_procedure ("tree->stree", (FN) tmg_tree_2stree, 1, 0, 0);
3683
3725
  scm_new_procedure ("stree->tree", (FN) tmg_stree_2tree, 1, 0, 0);
3684
3726
  scm_new_procedure ("tree->string", (FN) tmg_tree_2string, 1, 0, 0);