projects
/
chise
/
omega.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
8ff0787
)
minimum change to use kagecgi v0.4.
author
imiyazaki
<imiyazaki>
Tue, 11 May 2004 14:04:10 +0000
(14:04 +0000)
committer
imiyazaki
<imiyazaki>
Tue, 11 May 2004 14:04:10 +0000
(14:04 +0000)
makefonts.pl
patch
|
blob
|
history
diff --git
a/makefonts.pl
b/makefonts.pl
index
e1928a9
..
44e80cf
100755
(executable)
--- a/
makefonts.pl
+++ b/
makefonts.pl
@@
-10,8
+10,11
@@
use Chise_utils '$omegadb_path';
require 5.008001;
#my $kageaddr="home.fonts.jp:5100"; # Specify port number!
require 5.008001;
#my $kageaddr="home.fonts.jp:5100"; # Specify port number!
-my $kageaddr="home.fonts.jp:5101"; # Specify port number!
+my $kageaddr="fonts.jp:80"; # Specify port number!
#my $kagecgi="/~kamichi/test/kagecgi.cgi"; #
#my $kagecgi="/~kamichi/test/kagecgi.cgi"; #
+my $kagecgi="v0.4/engine/kage.cgi"; #
+#my $kageaddr="localhost:80"; # Specify port number!
+#my $kagecgi="cgi-bin/kage.cgi"; #
my $t1asm = "/usr/bin/env t1asm"; # point to 't1asm' executable.
#die "Cannot execute $t1asm. Abort.\n" unless -x $t1asm;
my $t1asm = "/usr/bin/env t1asm"; # point to 't1asm' executable.
#die "Cannot execute $t1asm. Abort.\n" unless -x $t1asm;
@@
-108,11
+111,12
@@
FOOTER
# Return: Type1 charstring.
sub svg2charstring {
my ($svg) = @_;
# Return: Type1 charstring.
sub svg2charstring {
my ($svg) = @_;
+ $svg=~s/></>\n</g;
my @paths= split(/\n/, $svg);
my ($x1, $y1, $x2, $y2);
my $glyph= "\{\n0 1000 hsbw\n";
for (@paths){
my @paths= split(/\n/, $svg);
my ($x1, $y1, $x2, $y2);
my $glyph= "\{\n0 1000 hsbw\n";
for (@paths){
- if(m/error/i){
+ if(m/error/i or m/bad/i){
return undef;
}
next unless /\<path d=\"M([0-9, ]+)Z\"\/\>/;
return undef;
}
next unless /\<path d=\"M([0-9, ]+)Z\"\/\>/;
@@
-169,8
+173,9
@@
BLACKBOX
my $kageserver;
my $location; # For redirection
if($kageserver = IO::Socket::INET->new("$kageaddr")){
my $kageserver;
my $location; # For redirection
if($kageserver = IO::Socket::INET->new("$kageaddr")){
- print $kageserver "HEAD /$request.svg HTTP/1.1\r\n";
- print $kageserver "Host: $kageaddr\r\n\r\n";
+ print $kageserver "GET /$kagecgi?$req&shotai=$suffix&type=svg\r\n";
+# print $kageserver "HEAD /$kagecgi?$req&shotai=$suffix&type=svg HTTP/1.1\r\n";
+# print $kageserver "Host: $kageaddr\r\n\r\n";
# #Get redirection info.
# local $/="\r\n";
# while(<$kageserver>){
# #Get redirection info.
# local $/="\r\n";
# while(<$kageserver>){
@@
-252,9
+257,12
@@
foreach my $key (keys %ids){
last;
}
}
last;
}
}
+ $code=~s/(.)u/$1.u/g;
$Requests[$ids{$key}[0]]->[$ids{$key}[1]]=$code;
}
$Requests[$ids{$key}[0]]->[$ids{$key}[1]]=$code;
}
+print STDERR "Sending query to KAGE server at $kageaddr.\n";
+
# Create fonts.
foreach my $fontnum (0 .. $#Requests){
my @faces=(['Mincho', 'min', 'mincho'],
# Create fonts.
foreach my $fontnum (0 .. $#Requests){
my @faces=(['Mincho', 'min', 'mincho'],