Current Path : /usr/local/share/namazu/filter/ |
FreeBSD hs32.drive.ne.jp 9.1-RELEASE FreeBSD 9.1-RELEASE #1: Wed Jan 14 12:18:08 JST 2015 root@hs32.drive.ne.jp:/sys/amd64/compile/hs32 amd64 |
Current File : //usr/local/share/namazu/filter/dvi.pl |
# # -*- Perl -*- # $Id: dvi.pl,v 1.2.4.9 2005/06/06 06:13:34 opengl2772 Exp $ # Copyright (C) 2000,2004-2005 Namazu Project All rights reserved , # This is free software with ABSOLUTELY NO WARRANTY. # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either versions 2, or (at your option) # any later version. # # This program is distributed in the hope that it will be useful # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA # 02111-1307, USA # # This file must be encoded in EUC-JP encoding # package dvi; use strict; require 'util.pl'; my $dviconvpath = undef; my @dviconvopts = undef; my %env = ( "DVI2TTY" => undef, ); sub mediatype() { return ('application/x-dvi'); } sub status() { if (util::islang("ja")) { $dviconvpath = util::checkcmd('jdvi2tty'); unless (defined $dviconvpath) { $dviconvpath = util::checkcmd('dvi2tty'); return 'no' unless (defined $dviconvpath); my @cmd = ("$dviconvpath", "-J"); my $err = util::syscmd( command => \@cmd, option => { "stdout" => "/dev/null", "stderr" => "/dev/null", }, env => \%env, ); return 'no' if ($err == 1792); } } else { $dviconvpath = util::checkcmd('dvi2tty'); } return 'no' unless (defined $dviconvpath); return 'yes'; } sub recursive() { return 0; } sub pre_codeconv() { return 0; } sub post_codeconv () { return 0; } sub add_magic ($) { return; } sub filter ($$$$$) { my ($orig_cfile, $cont, $weighted_str, $headings, $fields) = @_; my $cfile = defined $orig_cfile ? $$orig_cfile : ''; util::vprint("Processing dvi file ... (using '$dviconvpath')\n"); if (util::islang("ja")) { # -J option: dvi2tty-5.1 for Debian if ($dviconvpath =~ /jdvi2tty/){ @dviconvopts = ("-q"); }else { @dviconvopts = ("-q", "-J"); } } else { @dviconvopts = ("-q"); } my $tmpfile = util::tmpnam('NMZ.dvi'); { # note that dvi2tty need suffix .dvi my $fh = util::efopen("> $tmpfile.dvi"); print $fh $$cont; util::fclose($fh); } { my @cmd = ($dviconvpath, @dviconvopts, "$tmpfile.dvi"); my $fh_out = IO::File->new_tmpfile(); my $status = util::syscmd( command => \@cmd, option => { "stdout" => $fh_out, "stderr" => "/dev/null", }, env => \%env, ); my $size = util::filesize($fh_out); unlink("$tmpfile.dvi"); if ($size == 0) { util::fclose($fh_out); return "Unable to convert file ($dviconvpath error occurred)"; } if ($size > $conf::FILE_SIZE_MAX) { util::fclose($fh_out); return 'Too large dvi file'; } $$cont = util::readfile($fh_out); util::fclose($fh_out); } #unlink("$tmpfile.dvi"); # post_codeconv() does not work... (?_?) # codeconv::toeuc($cont); codeconv::codeconv_document($cont); gfilter::line_adjust_filter($cont); gfilter::line_adjust_filter($weighted_str); gfilter::white_space_adjust_filter($cont); $fields->{'title'} = gfilter::filename_to_title($cfile, $weighted_str) unless $fields->{'title'}; gfilter::show_filter_debug_info($cont, $weighted_str, $fields, $headings); return undef; } 1;