void edit_typeset_rep::typeset_sub (SI& x1, SI& y1, SI& x2, SI& y2) { //time_t t1= texmacs_time (); typeset_prepare (); eb= empty_box (reverse (rp)); // saves memory, also necessary for change_log update bench_start ("typeset"); #ifdef USE_EXCEPTIONS try { #endif eb= ::typeset (ttt, x1, y1, x2, y2); #ifdef USE_EXCEPTIONS } catch (string msg) { the_exception= msg; std_error << "Typesetting failure, resetting to empty document\n"; assign (rp, tree (DOCUMENT, "")); ::notify_assign (ttt, path(), subtree (et, rp)); eb= ::typeset (ttt, x1, y1, x2, y2); } handle_exceptions (); #endif bench_end ("typeset"); //time_t t2= texmacs_time (); //if (t2 - t1 >= 10) cout << "typeset took " << t2-t1 << "ms\n"; picture_cache_clean (); }
int edit_main_rep::nr_pages () { string medium = env->get_string (PAGE_MEDIUM); if (medium == "paper") return N (eb[0]); typeset_prepare (); env->write (PAGE_MEDIUM, "paper"); box the_box= typeset_as_document (env, subtree (et, rp), reverse (rp)); env->write (PAGE_MEDIUM, medium); return N (the_box[0]); }
void edit_typeset_rep::environment_update () { hashmap<string,tree> h; typeset_prepare (); env->assign ("base-file-name", as_string (env->base_file_name)); env->assign ("cur-file-name", as_string (env->cur_file_name)); env->assign ("secure", bool_as_tree (env->secure)); env->read_env (h); ::primitive (ste, h); }
void edit_typeset_rep::typeset_exec_until (path p) { //time_t t1= texmacs_time (); if (has_changed (THE_TREE + THE_ENVIRONMENT)) if (p != correct_cursor (et, rp * 0)) { if (DEBUG_STD) std_warning << "resynchronizing for path " << p << "\n"; // apply_changes (); } if (p == tp && inside_graphics (true) && p != closest_inside (et, p)) { //cout << "TeXmacs] Warning: corrected cursor\n"; tp= closest_inside (et, tp); p = tp; } //cout << "Exec until " << p << LF; if (N(cur[p])!=0) return; if (N(cur)>=25) // avoids out of memory in weird cases typeset_invalidate_env (); typeset_prepare (); if (enable_fastenv) { if (!(rp < p)) { failed_error << "Erroneous path " << p << "\n"; FAILED ("invalid typesetting path"); } tree t= subtree (et, rp); path q= path_up (p / rp); while (!is_nil (q)) { int i= q->item; restricted_exec (env, t, i); tree w= drd->get_env_child (t, i, tree (ATTR)); if (w == "") break; //cout << "t= " << t << "\n"; //cout << "i= " << i << "\n"; //cout << "w= " << w << "\n"; for (int j=0; j<N(w); j+=2) { //cout << w[j] << " := " << env->exec (w[j+1]) << "\n"; env->write (w[j]->label, env->exec (w[j+1])); } t= t[i]; q= q->next; } if (env->read (PREAMBLE) == "true") env->write (MODE, "src"); } else exec_until (ttt, p / rp); env->read_env (cur (p)); //time_t t2= texmacs_time (); //if (t2 - t1 >= 10) cout << "typeset_exec_until took " << t2-t1 << "ms\n"; }
array<int> edit_main_rep::print_snippet (url name, tree t, bool conserve_preamble) { tree buft= subtree (et, rp); if (conserve_preamble) if (is_document (buft) && is_compound (buft[0], "hide-preamble")) t= tree (SURROUND, buft[0], "", t); string s= suffix (name); bool ps= (s == "ps" || s == "eps"); if (use_pdf ()) ps= (ps || s == "pdf"); typeset_prepare (); int dpi= as_int (printing_dpi); //if (!ps) t= tree (WITH, MAGNIFICATION, "2", PAGE_WIDTH, "40cm", t); //if (!ps) t= tree (WITH, MAGNIFICATION, "1.6", PAGE_WIDTH, "40cm", t); double mag= ( 1.0 * dpi) / 600; double wid= (25.0 * dpi) / 600; if (!ps) { mag *= 1.6; wid *= 1.6; } t= tree (WITH, MAGNIFICATION, as_string (mag), PAGE_WIDTH, as_string (wid) * "cm", t); box b= typeset_as_box (env, t, path ()); if (b->x4 - b->x3 >= 5*PIXEL && b->y4 - b->y3 >= 5*PIXEL) { if (ps) make_eps (name, b, dpi); else { url temp= url_temp (use_pdf ()? ".pdf": ".eps"); make_eps (temp, b, dpi); ::remove (name); if (!call_scm_converter (temp, name)) { call_imagemagick_convert (temp, name); if (!exists (name)) convert_error << "could not convert snippet " << temp << " into :" << name << "\n"; } ::remove (temp); } } array<int> a; a << b->x3 << b->y3 << b->x4 << b->y4; return a; }
array<int> edit_main_rep::print_snippet (url name, tree t) { bool ps= suffix (name) == "ps" || suffix (name) == "eps"; typeset_prepare (); int dpi= as_int (printing_dpi); //if (!ps) t= tree (WITH, MAGNIFICATION, "2", PAGE_WIDTH, "40cm", t); if (!ps) t= tree (WITH, MAGNIFICATION, "1.6", PAGE_WIDTH, "40cm", t); box b= typeset_as_box (env, t, path ()); if (b->x4 - b->x3 >= 5*PIXEL && b->y4 - b->y3 >= 5*PIXEL) { if (ps) make_eps (name, b, dpi); else { url temp= url_temp (".eps"); make_eps (temp, b, dpi); ::remove (name); system ("convert", temp, name); if (!exists (name)) cout << "TeXmacs] warning, failed to create image " << name << "\n"; ::remove (temp); } } array<int> a; a << b->x3 << b->y3 << b->x4 << b->y4; return a; }
void edit_main_rep::print (url name, bool conform, int first, int last) { bool ps = (suffix (name) == "ps"); bool pdf = (suffix (name) == "pdf"); url orig= resolve (name, ""); #ifdef USE_GS if (!use_pdf () && pdf) name= url_temp (".ps"); if (!use_ps () && ps) name= url_temp (".pdf"); #endif string medium = env->get_string (PAGE_MEDIUM); if (conform && (medium != "paper")) conform= false; // FIXME: better command for conform printing // Set environment variables for printing typeset_prepare (); env->write (DPI, printing_dpi); env->write (PAGE_SHOW_HF, "true"); env->write (PAGE_SCREEN_MARGIN, "false"); if (!conform) { env->write (PAGE_MEDIUM, "paper"); env->write (PAGE_PRINTED, "true"); } // Typeset pages for printing box the_box= typeset_as_document (env, subtree (et, rp), reverse (rp)); // Determine parameters for printer string page_type = env->get_string (PAGE_TYPE); double w = env->page_width; double h = env->page_height; double cm = env->as_length (string ("1cm")); bool landsc = env->page_landscape; int dpi = as_int (printing_dpi); int start = max (0, first-1); int end = min (N(the_box[0]), last); int pages = end-start; if (conform) { page_type= "user"; SI bw= the_box[0][0]->w(); SI bh= the_box[0][0]->h(); string bws= as_string (bw) * "tmpt"; string bhs= as_string (bh) * "tmpt"; w= env->as_length (bws); h= env->as_length (bhs); } // Print pages renderer ren; #ifdef PDF_RENDERER if (use_pdf () && (pdf || !use_ps ())) ren= pdf_hummus_renderer (name, dpi, pages, page_type, landsc, w/cm, h/cm); else ren= printer (name, dpi, pages, page_type, landsc, w/cm, h/cm); #else ren= printer (name, dpi, pages, page_type, landsc, w/cm, h/cm); #endif if (ren->is_started ()) { int i; ren->set_metadata ("title", get_metadata ("title")); ren->set_metadata ("author", get_metadata ("author")); ren->set_metadata ("subject", get_metadata ("subject")); for (i=start; i<end; i++) { tree bg= env->read (BG_COLOR); ren->set_background (bg); if (bg != "white") ren->clear_pattern (0, (SI) -h, (SI) w, 0); rectangles rs; the_box[0]->sx(i)= 0; the_box[0]->sy(i)= 0; the_box[0][i]->redraw (ren, path (0), rs); if (i<end-1) ren->next_page (); } } tm_delete (ren); #ifdef USE_GS if (!use_pdf () && pdf) { gs_to_pdf (name, orig, landsc, h/cm, w/cm); ::remove (name); } if (!use_ps () && ps) { gs_to_ps (name, orig, landsc, h/cm, w/cm); ::remove (name); } if (ps || pdf) if (get_preference ("texmacs->pdf:check", "off") == "on") { system_wait ("Checking exported file for correctness", "please wait"); gs_check (orig); } #endif }