void
dictionary_rep::load (url u) {
if (is_none (u)) return;
if (is_or (u)) {
load (u[1]);
load (u[2]);
return;
}
string s;
if (load_string (u, s, false)) return;
tree t= block_to_scheme_tree (s);
if (!is_tuple (t)) return;
int i, n= N(t);
for (i=0; i<n; i++)
if (is_func (t[i], TUPLE, 2) &&
is_atomic (t[i][0]) && is_atomic (t[i][1]))
{
string l= t[i][0]->label; if (is_quoted (l)) l= scm_unquote (l);
string r= t[i][1]->label; if (is_quoted (r)) r= scm_unquote (r);
if (to == "chinese" || to == "japanese" || to == "german" ||
to == "korean" || to == "taiwanese" ||
to == "russian" || to == "ukrainian" || to == "bulgarian")
r= utf8_to_cork (r);
table (l)= r;
}
}
void load_html_entities (hashmap<string, string> table, string fname) {
string s;
if (DEBUG_CONVERT) debug_convert << "Loading " << fname << "\n";
if (load_string (url ("$TEXMACS_PATH/langs/encoding", fname), s, false)) return;
tree t= block_to_scheme_tree (s);
if (!is_tuple (t)) return;
int i, n= N(t);
for (i=0; i<n; i++)
if (is_func (t[i], TUPLE, 2) &&
is_atomic (t[i][0]) && is_atomic (t[i][1]))
{
string l= t[i][0]->label; if (is_quoted (l)) l= scm_unquote (l);
string r= t[i][1]->label; if (is_quoted (r)) r= scm_unquote (r);
table (l)= r;
}
}
void
init_plugins () {
install_status= 0;
url old_settings= "$TEXMACS_HOME_PATH/system/TEX_PATHS";
url new_settings= "$TEXMACS_HOME_PATH/system/settings.scm";
string s;
if (load_string (new_settings, s, false)) {
if (load_string (old_settings, s, false)) {
setup_texmacs ();
install_status= 1;
}
else get_old_settings (s);
}
else texmacs_settings= block_to_scheme_tree (s);
if (get_setting ("VERSION") != TEXMACS_VERSION) {
init_upgrade ();
url ch ("$TEXMACS_HOME_PATH/doc/about/changes/changes-recent.en.tm");
install_status= exists (ch)? 2: 0;
}
init_tex ();
}
