如何使DOT正确处理UTF-8到PostScript并具有多个图形/页面?

时间:2015-01-01 15:36:36

标签: utf-8 graphviz postscript dot

此点源

graph A
{
    a;
}
graph B
{
    "Enûma Eliš";
}

使用dot -Tps编译时会生成此错误

  

警告:UTF-8输入使用此PostScript驱动程序无法处理的非Latin1字符

我可以通过传递-Tps:cairo来解决UTF-8问题,但只有图表A在输出中 - 它被截断为单个页面。 -Tpdf也是如此。我的安装没有其他的postscript驱动程序。

我可以将图形拆分成单独的文件,然后将它们连接起来,但我不愿意。有没有办法正确处理UTF-8和多页输出?

2 个答案:

答案 0 :(得分:2)

生成PDF或SVG也可以绕过编码问题。

dot  -Tpdf  chs.dot > chs.pdf

// or

dot  -Tsvg  chs.dot > chs.svg

答案 1 :(得分:0)

显然dot PS驱动程序无法处理旧ISO8859-1以外的其他编码。我认为它也无法改变字体。

您可以做的一件事是运行过滤器来更改dot的PostScript输出。以下Perl程序就是这样做的,它改编了我的一些代码。它将编码从UTF-8更改为修改后的ISO编码,并使用额外的字符替换未使用的字符。

当然,输出仍取决于具有字符的字体。由于dot(我认为)仅使用默认的PostScript字体,因此除了"标准拉丁语"是不可能的......

它适用于Ghostscript或任何定义AdobeGlyphList的解释器。

过滤器应该以这种方式使用:

dot -Tps graph.dot | perl reenc.pl > output.ps

这是:

#!/usr/bin/perl

use strict;
use warnings;
use open qw(:std :utf8);

my $ps = do { local $/; <STDIN> };
my %high;
my %in_use;
foreach my $char (split //, $ps) {
    my $code = (unpack("C", $char))[0];
    if ($code > 127) {
        $high{$char} = $code;
        if ($code < 256) {
            $in_use{$code} = 1;
        }
    }
}
my %repl;
my $i = 128;
foreach my $char (keys %high) {
    if ($in_use{$high{$char}}) {
        $ps =~ s/$char/sprintf("\\%03o", $high{$char})/ge;
        next;
    }
    while ($in_use{$i}) { $i++; }
    $repl{$i} = $high{$char};
    $ps =~ s/$char/sprintf("\\%03o", $i)/ge;
    $i++;
}
my $psprocs = <<"EOPS";
/EncReplacements <<
  @{[ join(" ", %repl) ]}
>> def
/RevList AdobeGlyphList length dict dup begin
  AdobeGlyphList { exch def } forall
end def
% code -- (uniXXXX)
/uniX { 16 6 string cvrs dup length 7 exch sub exch
  (uni0000) 7 string copy dup  4 2 roll putinterval } def
% font code -- glyphname
/unitoname { dup RevList exch known
  { RevList exch get }
  { uniX cvn } ifelse
  exch /CharStrings get 1 index known not
  { pop /.notdef } if
} def
/chg-enc { dup length array copy EncReplacements
  { currentdict exch unitoname 2 index 3 1 roll put } forall
} def
EOPS

$ps =~ s{/Encoding EncodingVector def}{/Encoding EncodingVector chg-enc def};
$ps =~ s/(%%BeginProlog)/$1\n$psprocs/;

print $ps;