← Back to branch summary

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

« back to all changes in this revision

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

  • Committer: Bazaar Package Importer
  • Author(s): Atsuhito KOHDA, Kamaraju Kusumanchi, kohda
  • Date: 2009-04-26 19:35:14 UTC
  • mfrom: (1.1.10 upstream) (4.1.4 squeeze)
  • Revision ID: james.westby@ubuntu.com-20090426193514-9yo3oggdslgdls4b
Tags: 1:1.0.7.2-1
http://bugs.debian.org/484073
http://bugs.debian.org/497021
[Kamaraju Kusumanchi <kamaraju@gmail.com>]
* New upstream release
* texmacs crashes if /usr/share/texmacs/TeXmacs/misc/pixmaps/unknown.ps
  is not present. Do not remove it. (Closes: #484073, #497021)
* update patches 03_mupad.dpatch, 04_axiom.dpatch, 11-desktop-file.dpatch
* fix the mime problem in gnome. Thanks to Andrea Gamba for the fix.
[kohda]
* Refined a fix for the mime problem in gnome a bit.
* Try to fix /bin/sh problem (debian/fixsh) but it is not complete fix yet.
* Try to fix hard coded settings for ipa fonts(patches/09_ipa.dpatch), 
  especially for Debian where no ipa fonts exist yet.
* Fixed obsolete Build-Depends: changed libltdl3-dev to 
  libltdl-dev | libltdl7-dev (the latter for Ubuntu?)

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/Guile/Glue/glue_server.cpp
5
5
* from build-glue-server.scm. Please do not edit its contents.
6
6
* Copyright (C) 2000 Joris van der Hoeven
7
7
*
8
 
* This software falls under the GNU general public license and comes WITHOUT
9
 
* ANY WARRANTY WHATSOEVER. See the file $TEXMACS_PATH/LICENSE for details.
10
 
* If you don't have this file, write to the Free Software Foundation, Inc.,
11
 
* 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 
8
* This software falls under the GNU general public license version 3 or later.
 
9
* It comes WITHOUT ANY WARRANTY WHATSOEVER. For details, see the file LICENSE
 
10
* in the root directory or <http://www.gnu.org/licenses/gpl-3.0.html>.
12
11
*
13
12
******************************************************************************/
14
13
 
1094
1093
  return SCM_UNSPECIFIED;
1095
1094
}
1096
1095
 
1097
 
SCM
1098
 
tmg_package_evaluate (SCM arg1, SCM arg2, SCM arg3) {
1099
 
  SCM_ASSERT_STRING (arg1, SCM_ARG1, "package-evaluate");
1100
 
  SCM_ASSERT_STRING (arg2, SCM_ARG2, "package-evaluate");
1101
 
  SCM_ASSERT_CONTENT (arg3, SCM_ARG3, "package-evaluate");
1102
 
 
1103
 
  string in1= scm_to_string (arg1);
1104
 
  string in2= scm_to_string (arg2);
1105
 
  content in3= scm_to_content (arg3);
1106
 
 
1107
 
  // SCM_DEFER_INTS;
1108
 
  tree out= get_server()->evaluate (in1, in2, in3);
1109
 
  // SCM_ALLOW_INTS;
1110
 
 
1111
 
  return tree_to_scm (out);
1112
 
}
1113
 
 
1114
1096
void
1115
1097
initialize_glue_server () {
1116
1098
  scm_new_procedure ("insert-kbd-wildcard", (FN) tmg_insert_kbd_wildcard, 5, 0, 0);
1205
1187
  scm_new_procedure ("recall-message", (FN) tmg_recall_message, 0, 0, 0);
1206
1188
  scm_new_procedure ("yes?", (FN) tmg_yesP, 1, 0, 0);
1207
1189
  scm_new_procedure ("quit-TeXmacs", (FN) tmg_quit_TeXmacs, 0, 0, 0);
1208
 
  scm_new_procedure ("package-evaluate", (FN) tmg_package_evaluate, 3, 0, 0);
1209
1190
}