3 $FONTFORGE = "export LANG=utf-8; /usr/bin/fontforge";
4 $MAKEGLYPH = "/usr/bin/js ./makeglyph.js";
6 $HEADER_FILENAME = "head.txt";
7 $PARTS_FILENAME = "parts.txt";
8 $FOOTER_FILENAME = "foot.txt";
13 binmode STDOUT, ":utf8";
15 if(scalar(@ARGV) != 4){
16 print "Usage: makettf.pl WorkingDirectory WorkingName Shotai Weight\n";
17 print "Shotai: mincho or gothic\n";
18 print "Weight: 1 3 5 7\n";
27 unlink "$WORKDIR/$WORKNAME.log";
28 unlink "$WORKDIR/$WORKNAME.scr";
29 unlink "$WORKDIR/$WORKNAME.ttf";
30 mkdir "$WORKDIR/build";
33 if(-e "$WORKDIR/$HEADER_FILENAME"){
34 open FH, "<:utf8", "$WORKDIR/$HEADER_FILENAME";
35 open FH2, ">>:utf8", "$WORKDIR/$WORKNAME.scr";
44 open FH, ">>:utf8", "$WORKDIR/$WORKNAME.log";
45 print FH "No header file.\n";
52 if(-e "$WORKDIR/$PARTS_FILENAME"){
53 open FH, "<:utf8", "$WORKDIR/$PARTS_FILENAME";
62 open FH, ">>:utf8", "$WORKDIR/$WORKNAME.log";
63 print FH "No parts file.\n";
67 @temp = split(/\r\n|\r|\n/, $temp);
70 @temp2 = split(/ +|\t/, $_);
71 $buhin{$temp2[0]} = $temp2[1];
75 # parse target codepoint
77 foreach(sort(keys %buhin)){
78 if($_ =~ m/^\[([^\]])\]$/){
79 $target = sprintf("%X", unpack('U', $1));
80 } elsif(length($_) == 1){
81 $target = sprintf("%X", unpack('U', $_));
82 } elsif($_ =~ m/^[Uu]{0,1}[\+\-]{0,1}([0-9A-Fa-f]{1,8})$/){
87 $target =~ s/^0+//g; # delete zero for the beginning
89 $target{$target} = $name;
92 # make glyph for each target
93 foreach(sort(keys(%target))){
95 $target = $target{$_};
99 foreach(keys(%subset)){
100 $partsdata .= $_." ".$subset{$_}."\n";
102 utf8::encode($target);
103 $target =~ s/([^0-9A-Za-z_ ])/'%'.unpack('H2',$1)/ge;
105 utf8::encode($partsdata);
106 $partsdata =~ s/([^0-9A-Za-z_ ])/'%'.unpack('H2',$1)/ge;
107 $partsdata =~ s/\s/+/g;
108 $svg = `$MAKEGLYPH $target $partsdata $SHOTAI $WEIGHT`;
109 open FH, ">$WORKDIR/build/$code.svg";
116 if(-e "$WORKDIR/$FOOTER_FILENAME"){
117 open FH, "<:utf8", "$WORKDIR/$FOOTER_FILENAME";
118 open FH2, ">>:utf8", "$WORKDIR/$WORKNAME.scr";
127 open FH, ">>:utf8", "$WORKDIR/$WORKNAME.log";
128 print FH "No footer file.\n";
140 Import("$WORKDIR/build/$_[0].svg")
150 open FH, ">>:utf8", "$WORKDIR/$WORKNAME.scr";
156 my $buffer = "Generate(\"$WORKDIR/$TEMPNAME.ttf\", \"\", 0)\n";
157 $buffer .= "Quit()\n";
158 open FH, ">>:utf8", "$WORKDIR/$WORKNAME.scr";
162 $buffer = `$FONTFORGE -script $WORKDIR/$WORKNAME.scr > $WORKDIR/$WORKNAME.log 2>&1`;
163 $buffer = `$MV $WORKDIR/$TEMPNAME.ttf $WORKDIR/$WORKNAME.ttf`;
167 $subset{$_[0]} = $buhin{$_[0]};
168 while($buhin{$_[0]} =~ m/(^|\$)99:[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:(.+?)(\$|$)/gc){
169 if(!exists($subset{$2})){