Back to index

texmacs  1.0.7.15
Defines | Typedefs | Functions | Variables
glue.cpp File Reference
#include "glue.hpp"
#include "promise.hpp"
#include "tree.hpp"
#include "boxes.hpp"
#include "editor.hpp"
#include "analyze.hpp"
#include "convert.hpp"
#include "file.hpp"
#include "tmfs.hpp"
#include "server.hpp"
#include "tm_window.hpp"
#include "boot.hpp"
#include "connect.hpp"
#include "image_files.hpp"
#include "sys_utils.hpp"
#include "client_server.hpp"
#include "tree_traverse.hpp"
#include "tree_analyze.hpp"
#include "tree_correct.hpp"
#include "tree_modify.hpp"
#include "tm_frame.hpp"
#include "Concat/concater.hpp"
#include "converter.hpp"
#include "timer.hpp"
#include "Metafont/tex_files.hpp"
#include "Freetype/tt_file.hpp"
#include "Bibtex/bibtex.hpp"
#include "Bibtex/bibtex_functions.hpp"
#include "link.hpp"
#include "dictionary.hpp"
#include "patch.hpp"
#include "packrat.hpp"
#include "new_style.hpp"
#include "../Glue/glue_basic.cpp"
#include "../Glue/glue_editor.cpp"
#include "../Glue/glue_server.cpp"

Go to the source code of this file.

Defines

#define TMSCM_ASSERT_STRING(s, arg, rout)   TMSCM_ASSERT (tmscm_is_string (s), s, arg, rout)
#define TMSCM_ASSERT_BOOL(flag, arg, rout)   TMSCM_ASSERT (tmscm_is_bool (flag), flag, arg, rout)
#define TMSCM_ASSERT_INT(i, arg, rout)   TMSCM_ASSERT (tmscm_is_int (i), i, arg, rout);
#define TMSCM_ASSERT_DOUBLE(i, arg, rout)   TMSCM_ASSERT (tmscm_is_double (i), i, arg, rout);
#define TMSCM_ASSERT_URL(u, arg, rout)   TMSCM_ASSERT (tmscm_is_url (u) || tmscm_is_string (u), u, arg, rout)
#define TMSCM_ASSERT_BLACKBOX(t, arg, rout)   TMSCM_ASSERT (tmscm_is_blackbox (t), t, arg, rout)
#define TMSCM_ASSERT_SYMBOL(s, arg, rout)   TMSCM_ASSERT (tmscm_is_symbol (s), s, arg, rout)
#define TMSCM_ASSERT_OBJECT(a, b, c)
#define TMSCM_ASSERT_TREE_LABEL(p, arg, rout)   TMSCM_ASSERT_SYMBOL(p,arg,rout)
#define TMSCM_ASSERT_TREE(t, arg, rout)   TMSCM_ASSERT (tmscm_is_tree (t), t, arg, rout)
#define TMSCM_ASSERT_SCHEME_TREE(p, arg, rout)
#define content   tree
#define TMSCM_ASSERT_CONTENT(p, arg, rout)   TMSCM_ASSERT (tmscm_is_content (p), p, arg, rout)
#define content_to_tmscm   tree_to_tmscm
#define TMSCM_ASSERT_PATH(p, arg, rout)   TMSCM_ASSERT (tmscm_is_path (p), p, arg, rout)
#define TMSCM_ASSERT_OBSERVER(o, arg, rout)   TMSCM_ASSERT (tmscm_is_observer (o), o, arg, rout)
#define TMSCM_ASSERT_WIDGET(o, arg, rout)   TMSCM_ASSERT (tmscm_is_widget (o), o, arg, rout)
#define TMSCM_ASSERT_COMMAND(o, arg, rout)   TMSCM_ASSERT (tmscm_is_command (o), o, arg, rout)
#define TMSCM_ASSERT_PROMISE_WIDGET(o, arg, rout)   TMSCM_ASSERT (tmscm_is_promise_widget (o), o, arg, rout)
#define TMSCM_ASSERT_TABLE_STRING_STRING(p, arg, rout)   TMSCM_ASSERT (tmscm_is_table_string_string (p), p, arg, rout)
#define tmscm_is_solution   tmscm_is_table_string_string
#define TMSCM_ASSERT_SOLUTION(p, arg, rout)   TMSCM_ASSERT (tmscm_is_solution(p), p, arg, rout)
#define solution_to_tmscm   table_string_string_to_tmscm
#define tmscm_to_solution   tmscm_to_table_string_string
#define TMSCM_ASSERT_ARRAY_INT(p, arg, rout)   TMSCM_ASSERT (tmscm_is_array_int (p), p, arg, rout)
#define TMSCM_ASSERT_ARRAY_DOUBLE(p, arg, rout)   TMSCM_ASSERT (tmscm_is_array_double (p), p, arg, rout)
#define TMSCM_ASSERT_ARRAY_ARRAY_DOUBLE(p, arg, rout)   TMSCM_ASSERT (tmscm_is_array_array_double (p), p, arg, rout)
#define TMSCM_ASSERT_ARRAY_ARRAY_ARRAY_DOUBLE(p, arg, rout)   TMSCM_ASSERT (tmscm_is_array_array_array_double (p), p, arg, rout)
#define TMSCM_ASSERT_ARRAY_STRING(p, arg, rout)   TMSCM_ASSERT (tmscm_is_array_string (p), p, arg, rout)
#define tmscm_is_property   tmscm_is_array_string
#define TMSCM_ASSERT_PROPERTY(p, arg, rout)   TMSCM_ASSERT_ARRAY_STRING (p,arg,rout)
#define property_to_tmscm   array_string_to_tmscm
#define tmscm_to_property   tmscm_to_array_string
#define TMSCM_ASSERT_ARRAY_TREE(p, arg, rout)   TMSCM_ASSERT (tmscm_is_array_tree (p), p, arg, rout)
#define TMSCM_ASSERT_ARRAY_WIDGET(p, arg, rout)   TMSCM_ASSERT (tmscm_is_array_widget (p), p, arg, rout)
#define TMSCM_ASSERT_PROPERTIES(p, arg, rout)   TMSCM_ASSERT (tmscm_is_properties (p), p, arg, rout)
#define TMSCM_ASSERT_SOLUTIONS(p, arg, rout)   TMSCM_ASSERT (tmscm_is_solutions (p), p, arg, rout)
#define TMSCM_ASSERT_LIST_STRING(p, arg, rout)   TMSCM_ASSERT (tmscm_is_list_string (p), p, arg, rout)
#define TMSCM_ASSERT_LIST_TREE(p, arg, rout)   TMSCM_ASSERT (tmscm_is_list_tree (p), p, arg, rout)
#define TMSCM_ASSERT_COLLECTION(p, arg, rout)   TMSCM_ASSERT (tmscm_is_array_string (p), p, arg, rout)

Typedefs

typedef promise< widgetpromise_widget
typedef hashmap< string, stringtable_string_string
typedef array< int > array_int
typedef array< stringarray_string
typedef array< treearray_tree
typedef array< widgetarray_widget
typedef array< double > array_double
typedef array< array< double > > array_array_double
typedef array< array< array
< double > > > 
array_array_array_double
typedef list< stringlist_string
typedef list< treelist_tree

Functions

tmscm blackboxP (tmscm t)
string texmacs_version (string which)
void set_fast_environments (bool b)
void win32_display (string s)
void tm_output (string s)
void tm_errput (string s)
void cpp_error ()
array< int > get_bounding_rectangle (tree t)
void cout_buffer ()
string cout_unbuffer ()
tmscm tree_label_to_tmscm (tree_label l)
tree_label tmscm_to_tree_label (tmscm p)
bool tmscm_is_tree (tmscm u)
tmscm tree_to_tmscm (tree o)
tree tmscm_to_tree (tmscm obj)
tmscm treeP (tmscm t)
tree coerce_string_tree (string s)
string coerce_tree_string (tree t)
tree tree_ref (tree t, int i)
tree tree_set (tree t, int i, tree u)
tree tree_range (tree t, int i, int j)
tree tree_append (tree t1, tree t2)
bool tree_active (tree t)
tree tree_child_insert (tree t, int pos, tree x)
tree tree_assign (tree r, tree t)
tree tree_insert (tree r, int pos, tree t)
tree tree_remove (tree r, int pos, int nr)
tree tree_split (tree r, int pos, int at)
tree tree_join (tree r, int pos)
tree tree_assign_node (tree r, tree_label op)
tree tree_insert_node (tree r, int pos, tree t)
tree tree_remove_node (tree r, int pos)
tmscm scheme_tree_to_tmscm (scheme_tree t)
scheme_tree tmscm_to_scheme_tree (tmscm p)
bool tmscm_is_content (tmscm p)
tree tmscm_to_content (tmscm p)
tmscm contentP (tmscm t)
bool tmscm_is_path (tmscm p)
tmscm path_to_tmscm (path p)
path tmscm_to_path (tmscm p)
bool tmscm_is_observer (tmscm o)
tmscm observer_to_tmscm (observer o)
static observer tmscm_to_observer (tmscm obj)
tmscm observerP (tmscm t)
bool tmscm_is_widget (tmscm u)
static tmscm widget_to_tmscm (widget o)
widget tmscm_to_widget (tmscm o)
bool tmscm_is_command (tmscm u)
static tmscm command_to_tmscm (command o)
static command tmscm_to_command (tmscm o)
bool tmscm_is_promise_widget (tmscm u)
static tmscm promise_widget_to_tmscm (promise_widget o)
static promise_widget tmscm_to_promise_widget (tmscm o)
bool tmscm_is_url (tmscm u)
tmscm url_to_tmscm (url u)
url tmscm_to_url (tmscm obj)
tmscm urlP (tmscm t)
url url_concat (url u1, url u2)
url url_or (url u1, url u2)
void string_save (string s, url u)
string string_load (url u)
url url_ref (url u, int i)
static bool tmscm_is_table_string_string (tmscm p)
tmscm table_string_string_to_tmscm (hashmap< string, string > t)
hashmap< string, stringtmscm_to_table_string_string (tmscm p)
static bool tmscm_is_array_int (tmscm p)
tmscm array_int_to_tmscm (array< int > a)
array< int > tmscm_to_array_int (tmscm p)
static bool tmscm_is_array_string (tmscm p)
static bool tmscm_is_array_double (tmscm p)
tmscm array_double_to_tmscm (array< double > a)
array< double > tmscm_to_array_double (tmscm p)
static bool tmscm_is_array_array_double (tmscm p)
tmscm array_array_double_to_tmscm (array< array_double > a)
array< array_doubletmscm_to_array_array_double (tmscm p)
static bool tmscm_is_array_array_array_double (tmscm p)
tmscm array_array_array_double_to_tmscm (array< array_array_double > a)
array< array_array_doubletmscm_to_array_array_array_double (tmscm p)
void register_glyph (string s, array_array_array_double gl)
string recognize_glyph (array_array_array_double gl)
tmscm array_string_to_tmscm (array< string > a)
array< stringtmscm_to_array_string (tmscm p)
static bool tmscm_is_array_tree (tmscm p)
tmscm array_tree_to_tmscm (array< tree > a)
array< treetmscm_to_array_tree (tmscm p)
static bool tmscm_is_array_widget (tmscm p)
tmscm array_widget_to_tmscm (array< widget > a)
array< widgettmscm_to_array_widget (tmscm p)
static bool tmscm_is_properties (tmscm p)
tmscm properties_to_tmscm (array< property > a)
array< propertytmscm_to_properties (tmscm p)
static bool tmscm_is_solutions (tmscm p)
tmscm solutions_to_tmscm (array< solution > a)
array< solutiontmscm_to_solutions (tmscm p)
bool tmscm_is_list_string (tmscm p)
tmscm list_string_to_tmscm (list_string l)
list_string tmscm_to_list_string (tmscm p)
bool tmscm_is_list_tree (tmscm p)
tmscm list_tree_to_tmscm (list_tree l)
list_tree tmscm_to_list_tree (tmscm p)
tmscm collection_to_tmscm (collection ss)
collection tmscm_to_collection (tmscm p)
void initialize_glue ()

Variables

tree the_et

Define Documentation

#define content   tree

Definition at line 411 of file glue.cpp.

Definition at line 414 of file glue.cpp.

Definition at line 830 of file glue.cpp.

Definition at line 662 of file glue.cpp.

#define TMSCM_ASSERT_ARRAY_ARRAY_ARRAY_DOUBLE (   p,
  arg,
  rout 
)    TMSCM_ASSERT (tmscm_is_array_array_array_double (p), p, arg, rout)

Definition at line 781 of file glue.cpp.

#define TMSCM_ASSERT_ARRAY_ARRAY_DOUBLE (   p,
  arg,
  rout 
)    TMSCM_ASSERT (tmscm_is_array_array_double (p), p, arg, rout)

Definition at line 752 of file glue.cpp.

#define TMSCM_ASSERT_ARRAY_DOUBLE (   p,
  arg,
  rout 
)    TMSCM_ASSERT (tmscm_is_array_double (p), p, arg, rout)

Definition at line 723 of file glue.cpp.

#define TMSCM_ASSERT_ARRAY_INT (   p,
  arg,
  rout 
)    TMSCM_ASSERT (tmscm_is_array_int (p), p, arg, rout)

Definition at line 685 of file glue.cpp.

#define TMSCM_ASSERT_ARRAY_STRING (   p,
  arg,
  rout 
)    TMSCM_ASSERT (tmscm_is_array_string (p), p, arg, rout)

Definition at line 807 of file glue.cpp.

#define TMSCM_ASSERT_ARRAY_TREE (   p,
  arg,
  rout 
)    TMSCM_ASSERT (tmscm_is_array_tree (p), p, arg, rout)

Definition at line 841 of file glue.cpp.

#define TMSCM_ASSERT_ARRAY_WIDGET (   p,
  arg,
  rout 
)    TMSCM_ASSERT (tmscm_is_array_widget (p), p, arg, rout)

Definition at line 870 of file glue.cpp.

#define TMSCM_ASSERT_BLACKBOX (   t,
  arg,
  rout 
)    TMSCM_ASSERT (tmscm_is_blackbox (t), t, arg, rout)

Definition at line 133 of file glue.cpp.

#define TMSCM_ASSERT_BOOL (   flag,
  arg,
  rout 
)    TMSCM_ASSERT (tmscm_is_bool (flag), flag, arg, rout)

Definition at line 124 of file glue.cpp.

#define TMSCM_ASSERT_COLLECTION (   p,
  arg,
  rout 
)    TMSCM_ASSERT (tmscm_is_array_string (p), p, arg, rout)

Definition at line 1011 of file glue.cpp.

#define TMSCM_ASSERT_COMMAND (   o,
  arg,
  rout 
)    TMSCM_ASSERT (tmscm_is_command (o), o, arg, rout)

Definition at line 526 of file glue.cpp.

#define TMSCM_ASSERT_CONTENT (   p,
  arg,
  rout 
)    TMSCM_ASSERT (tmscm_is_content (p), p, arg, rout)

Definition at line 412 of file glue.cpp.

#define TMSCM_ASSERT_DOUBLE (   i,
  arg,
  rout 
)    TMSCM_ASSERT (tmscm_is_double (i), i, arg, rout);

Definition at line 128 of file glue.cpp.

#define TMSCM_ASSERT_INT (   i,
  arg,
  rout 
)    TMSCM_ASSERT (tmscm_is_int (i), i, arg, rout);

Definition at line 126 of file glue.cpp.

#define TMSCM_ASSERT_LIST_STRING (   p,
  arg,
  rout 
)    TMSCM_ASSERT (tmscm_is_list_string (p), p, arg, rout)

Definition at line 963 of file glue.cpp.

#define TMSCM_ASSERT_LIST_TREE (   p,
  arg,
  rout 
)    TMSCM_ASSERT (tmscm_is_list_tree (p), p, arg, rout)

Definition at line 990 of file glue.cpp.

#define TMSCM_ASSERT_OBJECT (   a,
  b,
 
)

Definition at line 139 of file glue.cpp.

#define TMSCM_ASSERT_OBSERVER (   o,
  arg,
  rout 
)    TMSCM_ASSERT (tmscm_is_observer (o), o, arg, rout)

Definition at line 470 of file glue.cpp.

#define TMSCM_ASSERT_PATH (   p,
  arg,
  rout 
)    TMSCM_ASSERT (tmscm_is_path (p), p, arg, rout)

Definition at line 449 of file glue.cpp.

#define TMSCM_ASSERT_PROMISE_WIDGET (   o,
  arg,
  rout 
)    TMSCM_ASSERT (tmscm_is_promise_widget (o), o, arg, rout)

Definition at line 552 of file glue.cpp.

#define TMSCM_ASSERT_PROPERTIES (   p,
  arg,
  rout 
)    TMSCM_ASSERT (tmscm_is_properties (p), p, arg, rout)

Definition at line 899 of file glue.cpp.

#define TMSCM_ASSERT_PROPERTY (   p,
  arg,
  rout 
)    TMSCM_ASSERT_ARRAY_STRING (p,arg,rout)

Definition at line 829 of file glue.cpp.

#define TMSCM_ASSERT_SCHEME_TREE (   p,
  arg,
  rout 
)

Definition at line 353 of file glue.cpp.

#define TMSCM_ASSERT_SOLUTION (   p,
  arg,
  rout 
)    TMSCM_ASSERT (tmscm_is_solution(p), p, arg, rout)

Definition at line 660 of file glue.cpp.

#define TMSCM_ASSERT_SOLUTIONS (   p,
  arg,
  rout 
)    TMSCM_ASSERT (tmscm_is_solutions (p), p, arg, rout)

Definition at line 928 of file glue.cpp.

#define TMSCM_ASSERT_STRING (   s,
  arg,
  rout 
)    TMSCM_ASSERT (tmscm_is_string (s), s, arg, rout)

Definition at line 122 of file glue.cpp.

#define TMSCM_ASSERT_SYMBOL (   s,
  arg,
  rout 
)    TMSCM_ASSERT (tmscm_is_symbol (s), s, arg, rout)

Definition at line 135 of file glue.cpp.

#define TMSCM_ASSERT_TABLE_STRING_STRING (   p,
  arg,
  rout 
)    TMSCM_ASSERT (tmscm_is_table_string_string (p), p, arg, rout)

Definition at line 633 of file glue.cpp.

#define TMSCM_ASSERT_TREE (   t,
  arg,
  rout 
)    TMSCM_ASSERT (tmscm_is_tree (t), t, arg, rout)

Definition at line 164 of file glue.cpp.

#define TMSCM_ASSERT_TREE_LABEL (   p,
  arg,
  rout 
)    TMSCM_ASSERT_SYMBOL(p,arg,rout)

Definition at line 146 of file glue.cpp.

#define TMSCM_ASSERT_URL (   u,
  arg,
  rout 
)    TMSCM_ASSERT (tmscm_is_url (u) || tmscm_is_string (u), u, arg, rout)

Definition at line 131 of file glue.cpp.

#define TMSCM_ASSERT_WIDGET (   o,
  arg,
  rout 
)    TMSCM_ASSERT (tmscm_is_widget (o), o, arg, rout)

Definition at line 502 of file glue.cpp.

Definition at line 828 of file glue.cpp.

Definition at line 659 of file glue.cpp.

Definition at line 831 of file glue.cpp.

Definition at line 663 of file glue.cpp.


Typedef Documentation

Definition at line 675 of file glue.cpp.

typedef array<array<double> > array_array_double

Definition at line 674 of file glue.cpp.

typedef array<double> array_double

Definition at line 673 of file glue.cpp.

typedef array<int> array_int

Definition at line 669 of file glue.cpp.

Definition at line 670 of file glue.cpp.

typedef array<tree> array_tree

Definition at line 671 of file glue.cpp.

Definition at line 672 of file glue.cpp.

Definition at line 953 of file glue.cpp.

typedef list<tree> list_tree

Definition at line 980 of file glue.cpp.

Definition at line 550 of file glue.cpp.

Definition at line 618 of file glue.cpp.


Function Documentation

Definition at line 785 of file glue.cpp.

                                                                {
  int i, n= N(a);
  tmscm  p= tmscm_null ();
  for (i=n-1; i>=0; i--) p= tmscm_cons (array_array_double_to_tmscm (a[i]), p);
  return p;
}

Here is the call graph for this function:

Definition at line 756 of file glue.cpp.

                                                    {
  int i, n= N(a);
  tmscm  p= tmscm_null ();
  for (i=n-1; i>=0; i--) p= tmscm_cons (array_double_to_tmscm (a[i]), p);
  return p;
}

Here is the call graph for this function:

Here is the caller graph for this function:

tmscm array_double_to_tmscm ( array< double >  a)

Definition at line 727 of file glue.cpp.

                                        {
  int i, n= N(a);
  tmscm  p= tmscm_null();
  for (i=n-1; i>=0; i--) p= tmscm_cons (double_to_tmscm (a[i]), p);
  return p;
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 689 of file glue.cpp.

                                  {
  int i, n= N(a);
  tmscm  p= tmscm_null ();
  for (i=n-1; i>=0; i--) p= tmscm_cons (int_to_tmscm (a[i]), p);
  return p;
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 811 of file glue.cpp.

                                        {
  int i, n= N(a);
  tmscm  p= tmscm_null ();
  for (i=n-1; i>=0; i--) p= tmscm_cons (string_to_tmscm (a[i]), p);
  return p;
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 845 of file glue.cpp.

                                    {
  int i, n= N(a);
  tmscm  p= tmscm_null ();
  for (i=n-1; i>=0; i--) p= tmscm_cons (tree_to_tmscm (a[i]), p);
  return p;
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 874 of file glue.cpp.

                                        {
  int i, n= N(a);
  tmscm  p= tmscm_null ();
  for (i=n-1; i>=0; i--) p= tmscm_cons (widget_to_tmscm (a[i]), p);
  return p;
}

Here is the call graph for this function:

Definition at line 25 of file glue.cpp.

                     {
  bool b= tmscm_is_blackbox (t);
  return bool_to_tmscm (b);
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 191 of file glue.cpp.

                              {
  return s;
}

Here is the caller graph for this function:

Definition at line 196 of file glue.cpp.

                            {
  return as_string (t);
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 1015 of file glue.cpp.

                                    {
  return array_string_to_tmscm (as_strings (ss));
}

Here is the call graph for this function:

Here is the caller graph for this function:

static tmscm command_to_tmscm ( command  o) [static]

Definition at line 536 of file glue.cpp.

                             {
  return blackbox_to_tmscm (close_box<command> (o));
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 434 of file glue.cpp.

                    {
  bool b= tmscm_is_content (t);
  return bool_to_tmscm (b);
}

Here is the call graph for this function:

Here is the caller graph for this function:

void cout_buffer ( )

Definition at line 109 of file glue.cpp.

               {
  cout.buffer ();
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 114 of file glue.cpp.

                 {
  return cout.unbuffer ();
}

Here is the call graph for this function:

Here is the caller graph for this function:

void cpp_error ( )

Definition at line 85 of file glue.cpp.

             {
  //char *np= 0; *np= 1;
  FAILED ("an error occurred");
}

Here is the caller graph for this function:

Definition at line 91 of file glue.cpp.

                                {
  editor ed= get_server () -> get_editor ();
  rectangle wr= ed -> get_window_extents ();
  path p= reverse (obtain_ip (t));
  selection sel= ed->search_selection (p * 0, p * right_index (t));
  rectangle selr= least_upper_bound (sel->rs) / 5;
  rectangle r= translate (selr, wr->x1, wr->y2);
  array<int> ret;
  ret << (r->x1) << (r->y1) << (r->x2) << (r->y2);
  //ret << (r->x1/PIXEL) << (r->y1/PIXEL) << (r->x2/PIXEL) << (r->y2/PIXEL);
  return ret;
}

Here is the call graph for this function:

Here is the caller graph for this function:

void initialize_glue ( )

Definition at line 1062 of file glue.cpp.

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 967 of file glue.cpp.

                                     {
  if (is_nil (l)) return tmscm_null ();
  return tmscm_cons (string_to_tmscm (l->item),
           list_string_to_tmscm (l->next));
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 994 of file glue.cpp.

                                 {
  if (is_nil (l)) return tmscm_null ();
  return tmscm_cons (tree_to_tmscm (l->item),
           list_tree_to_tmscm (l->next));
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 481 of file glue.cpp.

                               {
  return blackbox_to_tmscm (close_box<observer> (o));
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 491 of file glue.cpp.

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 453 of file glue.cpp.

                       {
  if (is_nil (p)) return tmscm_null ();
  else return tmscm_cons (int_to_tmscm (p->item), path_to_tmscm (p->next));
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 564 of file glue.cpp.

                                           {
  return blackbox_to_tmscm (close_box<promise_widget> (o));
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 903 of file glue.cpp.

                                        {
  int i, n= N(a);
  tmscm  p= tmscm_null ();
  for (i=n-1; i>=0; i--) p= tmscm_cons (property_to_tmscm (a[i]), p);
  return p;
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 74 of file recognize_handwriting.cpp.

                              {
  string r;
  for (int i=0; i<N(gl); ) {
    int eat= 1;
    while (i+eat < N(gl) && attached (gl[i+eat-1], gl[i+eat])) eat++;
    int    lev= 3;
    string subr= "";
    double rec= -100.0;
    recognize_glyph_one (range (gl, i, i+eat), lev, subr, rec);
    r << subr;
    i += eat;
    //cout << "Add " << eat << "\n";
  }
  return r;
}

Here is the call graph for this function:

Definition at line 26 of file learn_handwriting.cpp.

                                          {
  array<tree>   disc1;
  array<double> cont1;
  invariants (gl, 1, disc1, cont1);
  array<tree>   disc2;
  array<double> cont2;
  invariants (gl, 2, disc2, cont2);
  learned_names  << name;
  learned_glyphs << gl;
  learned_disc1  << disc1;
  learned_cont1  << cont1;
  learned_disc2  << disc2;
  learned_cont2  << cont2;
  //cout << "Added " << name << ", " << disc1 << "\n";
}

Here is the call graph for this function:

Definition at line 356 of file glue.cpp.

                                     {
  if (is_atomic (t)) {
    string s= t->label;
    if (s == "#t") return tmscm_true ();
    if (s == "#f") return tmscm_false ();
    if (is_int (s)) return int_to_tmscm (as_int (s));
    if (is_quoted (s))
      return string_to_tmscm (scm_unquote (s));
    //if ((N(s)>=2) && (s[0]=='\42') && (s[N(s)-1]=='\42'))
    //return string_to_tmscm (s (1, N(s)-1));
    return symbol_to_tmscm (s);
  }
  else {
    int i;
    tmscm  p= tmscm_null ();
    for (i=N(t)-1; i>=0; i--)
      p= tmscm_cons (scheme_tree_to_tmscm (t[i]), p);
    return p;
  }
}

Here is the call graph for this function:

Here is the caller graph for this function:

void set_fast_environments ( bool  b)

Definition at line 62 of file glue.cpp.

                               {
  enable_fastenv= b;
}

Here is the caller graph for this function:

Definition at line 932 of file glue.cpp.

                                       {
  int i, n= N(a);
  tmscm  p= tmscm_null ();
  for (i=n-1; i>=0; i--) p= tmscm_cons (solution_to_tmscm (a[i]), p);
  return p;
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 609 of file glue.cpp.

                           {
  string s; (void) load_string (u, s, false); return s; }

Here is the call graph for this function:

Here is the caller graph for this function:

void string_save ( string  s,
url  u 
)

Definition at line 608 of file glue.cpp.

{ (void) save_string (u, s); }

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 637 of file glue.cpp.

                                                        {
  tmscm  p= tmscm_null ();
  iterator<string> it= iterate (t);
  while (it->busy ()) {
    string s= it->next ();
    tmscm  n= tmscm_cons (string_to_tmscm (s), string_to_tmscm (t[s]));
    p= tmscm_cons (n, p);
  }
  return p;
}

Here is the call graph for this function:

Definition at line 49 of file glue.cpp.

                               {
  if (which == "tgz") return TM_DEVEL;
  if (which == "rpm") return TM_DEVEL_RELEASE;
  if (which == "stgz") return TM_STABLE;
  if (which == "srpm") return TM_STABLE_RELEASE;
  if (which == "devel") return TM_DEVEL;
  if (which == "stable") return TM_STABLE;
  if (which == "devel-release") return TM_DEVEL_RELEASE;
  if (which == "stable-release") return TM_STABLE_RELEASE;
  return TEXMACS_VERSION;
}

Here is the caller graph for this function:

void tm_errput ( string  s)

Definition at line 79 of file glue.cpp.

                     {
  cerr << s;
  cerr.flush ();
}

Here is the call graph for this function:

Here is the caller graph for this function:

void tm_output ( string  s)

Definition at line 73 of file glue.cpp.

                     {
  cout << s;
  cout.flush ();
}

Here is the call graph for this function:

Here is the caller graph for this function:

static bool tmscm_is_array_array_array_double ( tmscm  p) [static]

Definition at line 774 of file glue.cpp.

Here is the call graph for this function:

static bool tmscm_is_array_array_double ( tmscm  p) [static]

Definition at line 745 of file glue.cpp.

                                        {
  if (tmscm_is_null (p)) return true;
  else return tmscm_is_pair (p) &&
    tmscm_is_array_double (tmscm_car (p)) &&
    tmscm_is_array_array_double (tmscm_cdr (p));
}

Here is the call graph for this function:

Here is the caller graph for this function:

static bool tmscm_is_array_double ( tmscm  p) [static]

Definition at line 716 of file glue.cpp.

                                 {
  if (tmscm_is_null (p)) return true;
  else return tmscm_is_pair (p) &&
    tmscm_is_double (tmscm_car (p)) &&
    tmscm_is_array_double (tmscm_cdr (p));
}

Here is the call graph for this function:

Here is the caller graph for this function:

static bool tmscm_is_array_int ( tmscm  p) [static]

Definition at line 678 of file glue.cpp.

                              {
  if (tmscm_is_null (p)) return true;
  else return tmscm_is_pair (p) &&
    tmscm_is_int (tmscm_car (p)) &&
    tmscm_is_array_int (tmscm_cdr (p));
}

Here is the call graph for this function:

static bool tmscm_is_array_string ( tmscm  p) [static]

Definition at line 707 of file glue.cpp.

                                 {
  if (tmscm_is_null (p)) return true;
  else return tmscm_is_pair (p) && 
    tmscm_is_string (tmscm_car (p)) &&
    tmscm_is_array_string (tmscm_cdr (p));
}

Here is the call graph for this function:

static bool tmscm_is_array_tree ( tmscm  p) [static]

Definition at line 834 of file glue.cpp.

                               {
  if (tmscm_is_null (p)) return true;
  else return tmscm_is_pair (p) && 
    tmscm_is_tree (tmscm_car (p)) &&
    tmscm_is_array_tree (tmscm_cdr (p));
}

Here is the call graph for this function:

static bool tmscm_is_array_widget ( tmscm  p) [static]

Definition at line 863 of file glue.cpp.

                                 {
  if (tmscm_is_null (p)) return true;
  else return tmscm_is_pair (p) &&
    tmscm_is_widget (tmscm_car (p)) &&
    tmscm_is_array_widget (tmscm_cdr (p));
}

Here is the call graph for this function:

bool tmscm_is_command ( tmscm  u)

Definition at line 530 of file glue.cpp.

Here is the call graph for this function:

bool tmscm_is_content ( tmscm  p)

Definition at line 401 of file glue.cpp.

                            {
  if (tmscm_is_string (p) || tmscm_is_tree (p)) return true;
  else if (!tmscm_is_pair (p) || !tmscm_is_symbol (tmscm_car (p))) return false;
  else {
    for (p= tmscm_cdr (p); !tmscm_is_null (p); p= tmscm_cdr (p))
      if (!tmscm_is_content (tmscm_car (p))) return false;
    return true;
  }
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 956 of file glue.cpp.

                                {
  if (tmscm_is_null (p)) return true;
  else return tmscm_is_pair (p) &&
    tmscm_is_string (tmscm_car (p)) &&
    tmscm_is_list_string (tmscm_cdr (p));
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 983 of file glue.cpp.

                              {
  if (tmscm_is_null (p)) return true;
  else return tmscm_is_pair (p) &&
    tmscm_is_tree (tmscm_car (p)) &&
    tmscm_is_list_tree (tmscm_cdr (p));
}

Here is the call graph for this function:

Here is the caller graph for this function:

bool tmscm_is_observer ( tmscm  o)

Definition at line 475 of file glue.cpp.

Here is the call graph for this function:

bool tmscm_is_path ( tmscm  p)

Definition at line 444 of file glue.cpp.

                         {
  if (tmscm_is_null (p)) return true;
  else return tmscm_is_int (tmscm_car (p)) && tmscm_is_path (tmscm_cdr (p));
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 556 of file glue.cpp.

Here is the call graph for this function:

static bool tmscm_is_properties ( tmscm  p) [static]

Definition at line 892 of file glue.cpp.

                               {
  if (tmscm_is_null (p)) return true;
  else return tmscm_is_pair (p) &&
    tmscm_is_property (tmscm_car (p)) &&
    tmscm_is_properties (tmscm_cdr (p));
}

Here is the call graph for this function:

static bool tmscm_is_solutions ( tmscm  p) [static]

Definition at line 921 of file glue.cpp.

                              {
  if (tmscm_is_null (p)) return true;
  else return tmscm_is_pair (p) &&
    tmscm_is_solution (tmscm_car (p)) &&
    tmscm_is_solutions (tmscm_cdr (p));
}

Here is the call graph for this function:

static bool tmscm_is_table_string_string ( tmscm  p) [static]

Definition at line 621 of file glue.cpp.

                                        {
  if (tmscm_is_null (p)) return true;
  else if (!tmscm_is_pair (p)) return false;
  else {
    tmscm  f= tmscm_car (p);
    return tmscm_is_pair (f) &&
    tmscm_is_string (tmscm_car (f)) &&
    tmscm_is_string (tmscm_cdr (f)) &&
    tmscm_is_table_string_string (tmscm_cdr (p));
  }
}

Here is the call graph for this function:

bool tmscm_is_tree ( tmscm  u)

Definition at line 168 of file glue.cpp.

Here is the call graph for this function:

Here is the caller graph for this function:

bool tmscm_is_url ( tmscm  u)

Definition at line 578 of file glue.cpp.

Here is the call graph for this function:

Here is the caller graph for this function:

bool tmscm_is_widget ( tmscm  u)

Definition at line 506 of file glue.cpp.

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 793 of file glue.cpp.

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 764 of file glue.cpp.

                                       {
  array<array_double> a;
  while (!tmscm_is_null (p)) {
    a << ((array_double) tmscm_to_array_double (tmscm_car (p)));
    p= tmscm_cdr (p);
  }
  return a;
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 735 of file glue.cpp.

                                 {
  array<double> a;
  while (!tmscm_is_null (p)) {
    a << ((double) tmscm_to_double (tmscm_car (p)));
    p= tmscm_cdr (p);
  }
  return a;
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 697 of file glue.cpp.

                              {
  array<int> a;
  while (!tmscm_is_null (p)) {
    a << ((int) tmscm_to_int (tmscm_car (p)));
    p= tmscm_cdr (p);
  }
  return a;
}

Here is the call graph for this function:

Definition at line 819 of file glue.cpp.

                                 {
  array<string> a;
  while (!tmscm_is_null (p)) {
    a << tmscm_to_string (tmscm_car (p));
    p= tmscm_cdr (p);
  }
  return a;
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 853 of file glue.cpp.

                               {
  array<tree> a;
  while (!tmscm_is_null (p)) {
    a << tmscm_to_tree (tmscm_car (p));
    p= tmscm_cdr (p);
  }
  return a;
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 882 of file glue.cpp.

                                 {
  array<widget> a;
  while (!tmscm_is_null (p)) {
    a << tmscm_to_widget (tmscm_car (p));
    p= tmscm_cdr (p);
  }
  return a;
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 1020 of file glue.cpp.

Here is the call graph for this function:

Here is the caller graph for this function:

static command tmscm_to_command ( tmscm  o) [static]

Definition at line 541 of file glue.cpp.

                            {
  return open_box<command> (tmscm_to_blackbox (o));
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 417 of file glue.cpp.

                            {
  if (tmscm_is_string (p)) return tmscm_to_string (p);
  if (tmscm_is_tree (p)) return tmscm_to_tree (p);
  if (tmscm_is_pair (p)) {
    if (!tmscm_is_symbol (tmscm_car (p))) return "?";
    tree t (make_tree_label (tmscm_to_symbol (tmscm_car (p))));
    p= tmscm_cdr (p);
    while (!tmscm_is_null (p)) {
      t << tmscm_to_content (tmscm_car (p));
      p= tmscm_cdr (p);
    }
    return t;
  }
  return "?";
}

Here is the call graph for this function:

Definition at line 974 of file glue.cpp.

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 1001 of file glue.cpp.

                              {
  if (tmscm_is_null (p)) return list_tree ();
  return list_tree (tmscm_to_tree (tmscm_car (p)),
            tmscm_to_list_tree (tmscm_cdr (p)));
}

Here is the call graph for this function:

Here is the caller graph for this function:

static observer tmscm_to_observer ( tmscm  obj) [static]

Definition at line 486 of file glue.cpp.

                               {
  return open_box<observer>(tmscm_to_blackbox (obj));
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 459 of file glue.cpp.

                         {
  if (tmscm_is_null (p)) return path ();
  else return path ((int) tmscm_to_int (tmscm_car (p)), 
                          tmscm_to_path (tmscm_cdr (p)));
}

Here is the call graph for this function:

Definition at line 569 of file glue.cpp.

                                   {
  return open_box<promise_widget> (tmscm_to_blackbox (o));
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 911 of file glue.cpp.

                               {
  array<property> a;
  while (!tmscm_is_null (p)) {
    a << tmscm_to_property (tmscm_car (p));
    p= tmscm_cdr (p);
  }
  return a;
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 378 of file glue.cpp.

                                {
  if (tmscm_is_list (p)) {
    tree t (TUPLE);
    while (!tmscm_is_null (p)) {
      t << tmscm_to_scheme_tree (tmscm_car (p));
      p= tmscm_cdr (p);
    }
    return t;
  }
  if (tmscm_is_symbol (p)) return tmscm_to_symbol (p);
  if (tmscm_is_string (p)) return scm_quote (tmscm_to_string (p));
  //if (tmscm_is_string (p)) return "\"" * tmscm_to_string (p) * "\"";
  if (tmscm_is_int (p)) return as_string ((int) tmscm_to_int (p));
  if (tmscm_is_bool (p)) return (tmscm_to_bool (p)? string ("#t"): string ("#f"));
  if (tmscm_is_tree (p)) return tree_to_scheme_tree (tmscm_to_tree (p));
  return "?";
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 940 of file glue.cpp.

                              {
  array<solution> a;
  while (!tmscm_is_null (p)) {
    a << tmscm_to_solution (tmscm_car (p));
    p= tmscm_cdr (p);
  }
  return a;
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 649 of file glue.cpp.

                                        {
  hashmap<string,string> t;
  while (!tmscm_is_null (p)) {
    tmscm  n= tmscm_car (p);
    t (tmscm_to_string (tmscm_car (n)))= tmscm_to_string (tmscm_cdr (n));
    p= tmscm_cdr (p);
  }
  return t;
}

Here is the call graph for this function:

Definition at line 179 of file glue.cpp.

                           {
  return open_box<tree>(tmscm_to_blackbox (obj));
}

Here is the call graph for this function:

Definition at line 155 of file glue.cpp.

                               {
  string s= tmscm_to_symbol (p);
  return make_tree_label (s);
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 590 of file glue.cpp.

                          {
  if (tmscm_is_string (obj))
#ifdef __MINGW32__
    return url_system (tmscm_to_string (obj));
#else
  return tmscm_to_string (obj);
#endif
  return open_box<url> (tmscm_to_blackbox (obj));
}

Here is the call graph for this function:

Definition at line 518 of file glue.cpp.

                           {
  return open_box<widget> (tmscm_to_blackbox (o));
}

Here is the call graph for this function:

Here is the caller graph for this function:

bool tree_active ( tree  t)

Definition at line 222 of file glue.cpp.

                     {
  path ip= obtain_ip (t);
  return is_nil (ip) || last_item (ip) != DETACHED;
}

Here is the call graph for this function:

Here is the caller graph for this function:

tree tree_append ( tree  t1,
tree  t2 
)

Definition at line 217 of file glue.cpp.

                               {
  return t1 * t2;
}

Here is the caller graph for this function:

tree tree_assign ( tree  r,
tree  t 
)

Definition at line 246 of file glue.cpp.

                             {
  path ip= copy (obtain_ip (r));
  if (ip_attached (ip)) {
    assign (reverse (ip), copy (t));
    return subtree (the_et, reverse (ip));
  }
  else {
    assign (r, copy (t));
    return r;
  }
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 311 of file glue.cpp.

                                         {
  path ip= copy (obtain_ip (r));
  if (ip_attached (ip)) {
    assign_node (reverse (ip), op);
    return subtree (the_et, reverse (ip));
  }
  else {
    assign_node (r, op);
    return r;
  }
}

Here is the call graph for this function:

Here is the caller graph for this function:

tree tree_child_insert ( tree  t,
int  pos,
tree  x 
)

Definition at line 228 of file glue.cpp.

                                            {
  //cout << "t= " << t << "\n";
  //cout << "x= " << x << "\n";
  int i, n= N(t);
  tree r (t, n+1);
  for (i=0; i<pos; i++) r[i]= t[i];
  r[pos]= x;
  for (i=pos; i<n; i++) r[i+1]= t[i];
  return r;
}

Here is the call graph for this function:

Here is the caller graph for this function:

tree tree_insert ( tree  r,
int  pos,
tree  t 
)

Definition at line 259 of file glue.cpp.

                                      {
  path ip= copy (obtain_ip (r));
  if (ip_attached (ip)) {
    insert (reverse (path (pos, ip)), copy (t));
    return subtree (the_et, reverse (ip));
  }
  else {
    insert (r, pos, copy (t));
    return r;
  }
}

Here is the call graph for this function:

Here is the caller graph for this function:

tree tree_insert_node ( tree  r,
int  pos,
tree  t 
)

Definition at line 324 of file glue.cpp.

                                           {
  path ip= copy (obtain_ip (r));
  if (ip_attached (ip)) {
    insert_node (reverse (path (pos, ip)), copy (t));
    return subtree (the_et, reverse (ip));
  }
  else {
    insert_node (r, pos, copy (t));
    return r;
  }
}

Here is the call graph for this function:

Here is the caller graph for this function:

tree tree_join ( tree  r,
int  pos 
)

Definition at line 298 of file glue.cpp.

                            {
  path ip= copy (obtain_ip (r));
  if (ip_attached (ip)) {
    join (reverse (path (pos, ip)));
    return subtree (the_et, reverse (ip));
  }
  else {
    join (r, pos);
    return r;
  }
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 149 of file glue.cpp.

                                   {
  string s= as_string (l);
  return symbol_to_tmscm (s);
}

Here is the call graph for this function:

Here is the caller graph for this function:

tree tree_range ( tree  t,
int  i,
int  j 
)

Definition at line 212 of file glue.cpp.

                                  {
  return t(i,j);
}

Here is the caller graph for this function:

tree tree_ref ( tree  t,
int  i 
)

Definition at line 201 of file glue.cpp.

                         {
  return t[i];
}

Here is the caller graph for this function:

tree tree_remove ( tree  r,
int  pos,
int  nr 
)

Definition at line 272 of file glue.cpp.

                                      {
  path ip= copy (obtain_ip (r));
  if (ip_attached (ip)) {
    remove (reverse (path (pos, ip)), nr);
    return subtree (the_et, reverse (ip));
  }
  else {
    remove (r, pos, nr);
    return r;
  }
}

Here is the call graph for this function:

Here is the caller graph for this function:

tree tree_remove_node ( tree  r,
int  pos 
)

Definition at line 337 of file glue.cpp.

                                   {
  path ip= copy (obtain_ip (r));
  if (ip_attached (ip)) {
    remove_node (reverse (path (pos, ip)));
    return subtree (the_et, reverse (ip));
  }
  else {
    remove_node (r, pos);
    return r;
  }
}

Here is the call graph for this function:

Here is the caller graph for this function:

tree tree_set ( tree  t,
int  i,
tree  u 
)

Definition at line 206 of file glue.cpp.

                                 {
  t[i]= u;
  return u;
}

Here is the caller graph for this function:

tree tree_split ( tree  r,
int  pos,
int  at 
)

Definition at line 285 of file glue.cpp.

                                     {
  path ip= copy (obtain_ip (r));
  if (ip_attached (ip)) {
    split (reverse (path (at, pos, ip)));
    return subtree (the_et, reverse (ip));
  }
  else {
    split (r, pos, at);
    return r;
  }
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 174 of file glue.cpp.

                       {
  return blackbox_to_tmscm (close_box<tree> (o));
}

Here is the call graph for this function:

tmscm treeP ( tmscm  t)

Definition at line 184 of file glue.cpp.

Here is the call graph for this function:

Here is the caller graph for this function:

url url_concat ( url  u1,
url  u2 
)

Definition at line 606 of file glue.cpp.

{ return u1 * u2; }

Here is the caller graph for this function:

url url_or ( url  u1,
url  u2 
)

Definition at line 607 of file glue.cpp.

{ return u1 | u2; }

Here is the caller graph for this function:

url url_ref ( url  u,
int  i 
)

Definition at line 611 of file glue.cpp.

{ return u[i]; }

Here is the caller graph for this function:

Definition at line 585 of file glue.cpp.

                     {
  return blackbox_to_tmscm (close_box<url> (u));
}

Here is the call graph for this function:

Here is the caller graph for this function:

tmscm urlP ( tmscm  t)

Definition at line 601 of file glue.cpp.

                {
  bool b= tmscm_is_url (t);
  return bool_to_tmscm (b);
}

Here is the call graph for this function:

Here is the caller graph for this function:

static tmscm widget_to_tmscm ( widget  o) [static]

Definition at line 513 of file glue.cpp.

                           {
  return blackbox_to_tmscm (close_box<widget> (o));
}

Here is the call graph for this function:

Here is the caller graph for this function:

void win32_display ( string  s)

Definition at line 67 of file glue.cpp.

                         {
  cout << s;
  cout.flush ();
}

Here is the call graph for this function:

Here is the caller graph for this function:


Variable Documentation

Definition at line 18 of file new_document.cpp.