void
edit_select_rep::selection_cut (string key) {
if (inside_active_graphics ()) {
if (key != "none") {
tree t= as_tree (eval ("(graphics-cut)"));
selection_set (key, t);
}
}
else if (selection_active_any ()) {
path p1, p2;
if (selection_active_table ()) {
p1= start_p; p2= end_p;
if(key != "none") {
tree sel= selection_get ();
selection_set (key, sel);
}
}
else {
selection_get (p1, p2);
go_to (p2);
if (p2 == p1) return;
if (key != "none") {
tree sel= selection_compute (et, p1, p2);
selection_set (key, simplify_correct (sel));
}
}
cut (p1, p2);
}
}
scheme_tree
bib_upcase_first (scheme_tree st) {
tree t= simplify_correct (scheme_tree_to_tree (st));
char* ch= bib_first_char (t);
if (ch != 0) *ch= upcase (*ch);
return tree_to_scheme_tree (t);
}
tree
edit_typeset_rep::exec (tree t, hashmap<string,tree> H, bool expand_refs) {
hashmap<string,tree> H2;
env->read_env (H2);
env->write_env (H);
t= env->exec (t);
if (expand_refs)
t= expand_references (t, buf->data->ref);
t= simplify_execed (t);
t= simplify_correct (t);
env->write_env (H2);
return t;
}
scheme_tree
bib_add_period (scheme_tree st) {
tree t= simplify_correct (scheme_tree_to_tree (st));
char* ch= bib_last_char (t);
if (ch == 0) return tree_to_scheme_tree (t);
if (*ch == ',' || *ch == ';') {
*ch= '.';
return tree_to_scheme_tree (t);
}
else if (*ch != '!' && *ch != '?' && *ch != '.') {
tree res (CONCAT);
res << t;
res << ".";
return tree_to_scheme_tree (res);
}
else return tree_to_scheme_tree (t);
}
tree
edit_select_rep::selection_get () {
if (!selection_active_any ()) return "";
if (selection_active_table ()) {
int row1, col1, row2, col2;
path fp= selection_get_subtable (row1, col1, row2, col2);
return table_get_subtable (fp, row1, col1, row2, col2);
}
else {
path start, end;
// cout << "Selecting...\n";
selection_get (start, end);
// cout << "Between paths: " << start << " and " << end << "\n";
tree t= selection_compute (et, start, end);
// cout << "Selection : " << t << "\n";
return simplify_correct (t);
}
}
scheme_tree
bib_default_upcase_first (scheme_tree st) {
tree t= simplify_correct (scheme_tree_to_tree (st));
bib_change_case (t, 0);
return tree_to_scheme_tree (t);
}
scheme_tree
bib_default_preserve_case (scheme_tree st) {
tree t= simplify_correct (scheme_tree_to_tree (st));
return tree_to_scheme_tree (t);
}
scheme_tree
bib_upcase (scheme_tree st) {
tree t= simplify_correct (scheme_tree_to_tree (st));
bib_change_case (t, upcase_all);
return tree_to_scheme_tree (t);
}
