|
Server : Apache/2.4.18 (Ubuntu) System : Linux canvaswebdesign 3.13.0-71-generic #114-Ubuntu SMP Tue Dec 1 02:34:22 UTC 2015 x86_64 User : oppastar ( 1041) PHP Version : 7.0.33-0ubuntu0.16.04.15 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority, Directory : /var/www/blue-sky.co.id/public_html/application/third_party/dompdf/lib/ttf2ufm/src/other/ |
Upload File : |
#!/usr/bin/perl
if (@ARGV != 3) {
print STDERR "Use:\n";
print STDERR " showdf <showg-script> <old-file> <new-file>\n";
print STDERR "to create a showg diagram of glyphs differing in two files\n";
exit 1;
}
$cmd = shift @ARGV;
$oldf = shift @ARGV;
$newf = shift @ARGV;
open(O, "<$oldf") or die "Unable to open '$oldf'\n";
open(N, "<$newf") or die "Unable to open '$newf'\n";
while(<O>) {
last if(/CharStrings/);
}
while(<N>) {
last if(/CharStrings/);
}
undef @symlist;
$sym = '';
$inlist = 0;
$nstop = 0;
while($so = <O>) {
if($so =~ m|^(/\S+)\s+\{|) {
$sym = $1;
$inlist = 0;
#printf STDERR "found sym $sym\n";
if (!$nstop || $sn !~ m|^$sym\s+\{|) {
while($sn = <N>) {
#print STDERR "+$sn";
last if($sn =~ m|^${sym}\s+\{|);
}
}
$nstop = 0;
} elsif(!$nstop) {
$sn = <N>;
#print STDERR "<$so>$sn\n";
if($so ne $sn) {
if(!$inlist) {
$inlist = 1;
push(@symlist, $sym);
}
if($sn =~ m|^(/\S+)\s+\{|) {
$nstop = 1;
#printf STDERR "stop at $1\n";
}
}
}
}
unshift(@symlist, $cmd, '-c', $oldf, $newf);
#printf("%s\n", join(' ', @symlist));
exec @symlist;