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); }