head 1.2; access; symbols pkgsrc-2013Q2:1.2.0.6 pkgsrc-2013Q2-base:1.2 pkgsrc-2012Q4:1.2.0.4 pkgsrc-2012Q4-base:1.2 pkgsrc-2011Q4:1.2.0.2 pkgsrc-2011Q4-base:1.2 pkgsrc-2011Q2:1.1.0.46 pkgsrc-2011Q2-base:1.1 pkgsrc-2011Q1:1.1.0.44 pkgsrc-2011Q1-base:1.1 pkgsrc-2010Q4:1.1.0.42 pkgsrc-2010Q4-base:1.1 pkgsrc-2010Q3:1.1.0.40 pkgsrc-2010Q3-base:1.1 pkgsrc-2010Q2:1.1.0.38 pkgsrc-2010Q2-base:1.1 pkgsrc-2010Q1:1.1.0.36 pkgsrc-2010Q1-base:1.1 pkgsrc-2009Q4:1.1.0.34 pkgsrc-2009Q4-base:1.1 pkgsrc-2009Q3:1.1.0.32 pkgsrc-2009Q3-base:1.1 pkgsrc-2009Q2:1.1.0.30 pkgsrc-2009Q2-base:1.1 pkgsrc-2009Q1:1.1.0.28 pkgsrc-2009Q1-base:1.1 pkgsrc-2008Q4:1.1.0.26 pkgsrc-2008Q4-base:1.1 pkgsrc-2008Q3:1.1.0.24 pkgsrc-2008Q3-base:1.1 cube-native-xorg:1.1.0.22 cube-native-xorg-base:1.1 pkgsrc-2008Q2:1.1.0.20 pkgsrc-2008Q2-base:1.1 cwrapper:1.1.0.18 pkgsrc-2008Q1:1.1.0.16 pkgsrc-2008Q1-base:1.1 pkgsrc-2007Q4:1.1.0.14 pkgsrc-2007Q4-base:1.1 pkgsrc-2007Q3:1.1.0.12 pkgsrc-2007Q3-base:1.1 pkgsrc-2007Q2:1.1.0.10 pkgsrc-2007Q2-base:1.1 pkgsrc-2007Q1:1.1.0.8 pkgsrc-2007Q1-base:1.1 pkgsrc-2006Q4:1.1.0.6 pkgsrc-2006Q4-base:1.1 pkgsrc-2006Q3:1.1.0.4 pkgsrc-2006Q3-base:1.1 pkgsrc-2006Q2:1.1.0.2 pkgsrc-2006Q2-base:1.1; locks; strict; comment @# @; 1.2 date 2011.08.07.20.40.58; author wiz; state dead; branches; next 1.1; 1.1 date 2006.04.19.13.13.05; author tonio; state Exp; branches; next ; desc @@ 1.2 log @Update to 1.10.1, adding destdir support and switching to texlive, from Nicolas Thauvin. Version 1.10.1 - Prefetching fonts to group calls to kpsewhich (starts faster) - Made scroll buttons preemptive (stop displaying) - Fix install path of dlladvi - Fix compatibility of event loop with new version of graphics Version 1.10 - Updated the doc - Bytecode version uses a library dlladvi.so - Changed configuration to use 4.0 of camlimages - Dynamics libraries loaded last (provided by Stefan Potyra) Version 1.9 - EPS files are read by advi and sent to gs - splash.dvi is now distributed and correctly installed - examples are distributed but not compiled by default - added conf/jpfonts.conf in the disbribution - gs path is now set by configure - Added support for gzip and bzip2 compressed files. - Fixed advi.man (provided mostly by Debian managers). - Included security patches (provided by Debian managers). Version 1.8 Rendering EPS files with gs by default. PGF patches for pstrick support of PDF macros in advi.sty Bug fixes. Version 1.7 2005/09/02 Having Active-DVI compatible with the new Graphics library. 2004/12/07 Getting rid of the new warnings of the Caml compiler. @ text @$NetBSD: patch-aj,v 1.1 2006/04/19 13:13:05 tonio Exp $ --- dviview.ml.orig 2004-09-03 16:31:33.000000000 +0200 +++ dviview.ml @@@@ -320,9 +320,7 @@@@ let init_geometry all st = | In f -> float attr.geom.Ageometry.height /. (h_in +. 2.0 *. f) | _ -> assert false in let base_dpi = min wdpi hdpi in - let width = Misc.round (base_dpi *. w_in) - and height = Misc.round (base_dpi *. h_in) - and real_width = Misc.round (base_dpi *. w_in *. st.ratio) + let real_width = Misc.round (base_dpi *. w_in *. st.ratio) and real_height = Misc.round (base_dpi *. h_in *. st.ratio) in let fwidth = base_dpi *. w_in and fheight = base_dpi *. h_in in @@@@ -371,7 +369,6 @@@@ let init master filename = try (Unix.stat filename).Unix.st_mtime with _ -> 0.0 in Gs.init_do_ps (); - let npages = Array.length dvi.Cdvi.pages in let st = let npages = Array.length dvi.Cdvi.pages in { filename = filename; @@@@ -680,7 +677,6 @@@@ let make_thumbnails st = let num_nails = Array.length page_nails in let r_fit = int_of_float (ceil (sqrt (float_of_int num_nails))) in let r = min r_fit !thumbnail_limit in - let pages = num_nails - 1 / r / r in let ist = { st with size_x = st.size_x / r; @@@@ -765,14 +761,6 @@@@ let rec reload foreground st = st.last_modified <- reload_time st; let dvi = Cdvi.load st.filename in let cdvi = Driver.cook_dvi dvi in - let dvi_res = !dpi_resolution - and mag = float dvi.Cdvi.preamble.Dvicommands.pre_mag /. 1000.0 in - let w_sp = dvi.Cdvi.postamble.Dvicommands.post_width - and h_sp = dvi.Cdvi.postamble.Dvicommands.post_height in - let w_in = mag *. ldexp (float w_sp /. dvi_res) (-16) - and h_in = mag *. ldexp (float h_sp /. dvi_res) (-16) in - let width = Misc.round (w_in *. st.base_dpi *. st.ratio) - and height = Misc.round (h_in *. st.base_dpi *. st.ratio) in let npages = Array.length dvi.Cdvi.pages in st.dvi <- dvi; st.cdvi <- cdvi; @@@@ -830,7 +818,6 @@@@ let show_thumbnails st r page = let size_y = Graphics.size_y () in let dx = size_x / r and dy = size_y / r in - let pages = Array.length page / r / r in Array.iteri (fun p' (p, img) -> let x = size_x * (p' mod r) / r in @@@@ -1354,13 +1341,13 @@@@ module B = let search_forward st = let re_string = ask_to_search "Search Forward (re): " in Misc.warning (Printf.sprintf "Search forward %s" re_string); - let re = Str.regexp re_string in + let _re = Str.regexp re_string in () let search_backward st = let re_string = ask_to_search "Search Backward (re): " in Misc.warning (Printf.sprintf "Search backward %s" re_string); - let re = Str.regexp re_string in + let _re = Str.regexp re_string in () let duplex = duplex_switch false @ 1.1 log @let advi compile and run happily with ocaml-3.09 Use the teTeX/module.mk and honor PKG_LOCALTEXMFPREFIX make sure advi's makefile do not run texhash by itself (rely on module.mk for that) Many patches removing warnings (from advi's cvs) bump PKGREVISION, and remove broken-in @ text @d1 1 a1 1 $NetBSD$ @