Back to index

texmacs  1.0.7.15
glue.hpp
Go to the documentation of this file.
00001 
00002 /******************************************************************************
00003  * MODULE     : glue.hpp
00004  * DESCRIPTION: Glue for linking TeXmacs commands to scheme
00005  * COPYRIGHT  : (C) 1999-2011  Joris van der Hoeven and Massimiliano Gubinelli
00006  *******************************************************************************
00007  * This software falls under the GNU general public license version 3 or later.
00008  * It comes WITHOUT ANY WARRANTY WHATSOEVER. For details, see the file LICENSE
00009  * in the root directory or <http://www.gnu.org/licenses/gpl-3.0.html>.
00010  ******************************************************************************/
00011 
00012 #ifndef GLUE_H
00013 #define GLUE_H
00014 
00015 #include "tree.hpp"
00016 #include "path.hpp"
00017 #include "url.hpp"
00018 #include "widget.hpp"
00019 //#include "promise.hpp"
00020 
00021 #include "object.hpp"
00022 
00023 
00024 
00025 void initialize_glue ();
00026 
00027 bool tmscm_is_tree (tmscm  obj);
00028 bool tmscm_is_list_string (tmscm  obj);
00029 bool tmscm_is_list_tree (tmscm  obj);
00030 bool tmscm_is_path (tmscm  obj);
00031 bool tmscm_is_url (tmscm  obj);
00032 bool tmscm_is_widget (tmscm  obj);
00033 
00034 tmscm  bool_to_tmscm (bool b);
00035 tmscm  int_to_tmscm (int i);
00036 tmscm  double_to_tmscm (double i);
00037 tmscm  string_to_tmscm (string s);
00038 tmscm  symbol_to_tmscm (string s);
00039 tmscm  tree_to_tmscm (tree t);
00040 tmscm  list_string_to_tmscm (list<string> l);
00041 tmscm  list_tree_to_tmscm (list<tree> l);
00042 tmscm  path_to_tmscm (path p);
00043 tmscm  url_to_tmscm (url u);
00044 tmscm  scheme_tree_to_tmscm (scheme_tree t);
00045 
00046 //int tmscm_to_bool (tmscm  obj);
00047 int tmscm_to_int (tmscm  obj);
00048 double tmscm_to_double (tmscm  i);
00049 string tmscm_to_string (tmscm  obj);
00050 string tmscm_to_symbol (tmscm  obj);
00051 tree tmscm_to_tree (tmscm  obj);
00052 tree tmscm_to_content (tmscm  obj);
00053 list<string> tmscm_to_list_string (tmscm  obj);
00054 list<tree> tmscm_to_list_tree (tmscm  obj);
00055 path tmscm_to_path (tmscm  obj);
00056 url tmscm_to_url (tmscm  obj);
00057 scheme_tree tmscm_to_scheme_tree (tmscm  obj);
00058 widget tmscm_to_widget (tmscm  widget_smob);
00059 
00060 #endif // defined GLUE_H
00061