From: Koichi KAMICHI Date: Mon, 27 Nov 2006 06:48:54 +0000 (+0000) Subject: Divided CGI process for making TTF file by fork function. X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b60659fabe9762044211acbc6479f56377401d0f;p=chise%2Fkage.git Divided CGI process for making TTF file by fork function. Cleaned up the sources. --- diff --git a/makettf/index.html b/makettf/index.html index 77433d6..dada1b8 100644 --- a/makettf/index.html +++ b/makettf/index.html @@ -1,12 +1,15 @@ + -TTF(TrueType)ãã©ã³ãçæ (è©¦ä½) +TTF(TrueType)ãã©ã³ãçæ (è©¦ä½ãã®2) +

TTF(TrueType)ãã©ã³ãçæ

+ -

-é¨åãã¼ã¿ã¯ï¼é¨åï¼ï¼è¡ã§ããé¨ååãã¹ãã¼ã¹ãé¨åãã¼ã¿ãã®é ã«è¨è¿°ãã¾ãã
+ +

èª¬æ

+ +

é¨åãã¼ã¿ã¯ 1é¨åãã¨ã«1è¡ ã§ããé¨ååãã¹ãã¼ã¹ãé¨åãã¼ã¿ãã®é ã«è¨è¿°ãã¾ãã
å®éã«çæãããã³ã¼ããã¤ã³ãã¯ãé¨ååããåç¬ã®æåãã[åç¬ã®æå]ããã³ã¼ããã¤ã³ã16é²æ°(é ã«Uu,+-ãä»ãã¦ãå¯)ãã®ããããã¨ãªãã¾ãã
-ã:ãã®å«ã¾ããªãè¡ã¯ã³ã¡ã³ãã¨ãã¦ãç¡è¦ããã¾ãã +ã:ãã®å«ã¾ããªãè¡ã¯ã³ã¡ã³ãã¨ãã¦ãç¡è¦ããã¾ããã³ã¼ããã¤ã³ãã¯ç¾å¨ã¯UCSã«ã®ã¿å¯¾å¿ãã¦ãã¾ãã

+ +

ã³ã¼ããã¤ã³ãæå®ä¾

(ä¾)
30A8
U+30A8
u30a8
u-00020000
ä¸
[å£±]

-

-æ³¨æ
-TrueTypeãã©ã³ããçæããã½ããã¦ã§ã¢fontforge ã®å¶ç´ã«ãããä»¥ä¸ã®æ¡ä»¶ãæºãããªãå ´åã«ã¯çæãããã©ã³ããWord2002ã§å©ç¨ã§ãã¾ããã +

+ +

ãçæããã¿ã³ãã¯ãªãã¯ããã¨ãã©ã³ãã®çæãå§ã¾ãããã©ã³ãããã¦ã³ãã¼ãããããã®ãªã³ã¯ãè¡¨ç¤ºããã¾ãããã¼ã¿éã«ãã£ã¦æéããããã¾ãã®ã§ããã°ãããå¾ã¡ãã ãããçæããããã©ã³ãã¯ä¸å®æã«åé¤ããã¾ãï¼ã¾ãã¯å¥ã®ãã¼ã¿ã«å¤æ´ããã¾ãï¼ã®ã§æ©ãã«ãã¦ã³ãã¼ããã¦ãã ããã + +

æ³¨æ

+ +

TrueTypeãã©ã³ããçæããã½ããã¦ã§ã¢ Fontforge ã®å¶ç´ã«ãããä»¥ä¸ã®æ¡ä»¶ãæºãããªãå ´åã«ã¯ãçæãããã©ã³ãã Microsoft Word 2002 ã§å©ç¨ã§ãã¾ããã

+

æ¥æ¬èªãã©ã³ã: U+30A8ãï¼ã«ã¿ã«ãï¼ã¨ããå«ãã¦ãã ãã
ç°¡ä½åä¸å½èªãã©ã³ã: U+3105ãããã¢ãã©Bããå«ãã¦ãã ãã
ç¹ä½åä¸å½èªãã©ã³ã: U+592Eãå¤®ããå«ãã¦ãã ãã
éå½èªãã©ã³ã: U+3131ããã³ã°ã«åæ¯1çªç®ããå«ãã¦ãã ãã

-
-Webãµã¼ãã®å¶ç´ã«ããçæã«6åä»¥ä¸ãããå ´åã¯å¤±æãã¾ããï¼ç¾å¨ã°ãªãæ°4000å¼·ã¾ã§ã¯çæãå¯è½ã§ãï¼ -

-

fonts.jp

+ +æ»ã + + +fonts.jp +

diff --git a/makettf/makettf.cgi b/makettf/makettf.cgi index 85e8c6d..d412113 100755 --- a/makettf/makettf.cgi +++ b/makettf/makettf.cgi @@ -1,40 +1,60 @@ #!/usr/bin/perl + +# definition +$BASEDIR = "/var/www/makettf"; +$MAKETTF = "/usr/bin/perl $BASEDIR/makettf.pl"; +$LICENSE = 'Created by KAGE system. (http://fonts.jp/)'; +$TEMP="font"; +$HEADER_FILENAME = "head.txt"; +$PARTS_FILENAME = "parts.txt"; +$FOOTER_FILENAME = "foot.txt"; + +# initialize use utf8; binmode STDOUT, ":utf8"; - use CGI; $form = new CGI; -$FONTFORGE = "/usr/local/bin/fontforge"; -$PERL = "/usr/bin/perl"; -$RM = "/bin/rm"; -$LICENSE = 'Created by KAGE system. (http://fonts.jp/)'; -$TEMP="temp"; - -$RANDOM = sprintf("%05X", rand() * 0x100000); -$TEMPDIR = "/tmp/makettf_$RANDOM"; +# prepare working directory +$RANDOM = sprintf("%07X", rand(0x10000000)); +$TEMPDIR = "$BASEDIR/$RANDOM"; +$TEMPURL = "$RANDOM"; mkdir($TEMPDIR); -&makehead(); -&makefoot(); -&makeparts(); -$dummy = `$PERL makettf.pl $TEMPDIR $TEMP mincho 3`; -&sendfont(); +# main : divided for parent and child process +$| = 1; +$pid = fork(); +unless(defined $pid){ + &makeerror(); + exit; +} +if($pid > 0){ + &makepage(); +} else{ + close(STDIN); + close(STDOUT); + close(STDERR); + &makehead(); + &makefoot(); + &makeparts(); + $dummy = `$MAKETTF $TEMPDIR $TEMP mincho 3`; +} +exit; sub makehead{ - $fontname_en = $form->param('fontname-en'); - $fontname_en =~ s/[\;\&\#\"\'\%\\\$\:\!\=\~\^\`]//g; - $fontname_ja = $form->param('fontname-ja'); - $fontname_ja =~ s/[\;\&\#\"\'\%\\\$\:\!\=\~\^\`]//g; - utf8::decode($fontname_ja); - if($fontname_en eq ""){ - $fontname_en = "Untitled"; - } - if($fontname_ja eq ""){ - $fontname_ja = $fontname_en; - } - open FH, ">:utf8", "$TEMPDIR/head.txt"; - print FH <<"EOT"; + $fontname_en = $form->param('fontname-en'); + $fontname_en =~ s/[\;\&\#\"\'\%\\\$\:\!\=\~\^\`]//g; + $fontname_ja = $form->param('fontname-ja'); + $fontname_ja =~ s/[\;\&\#\"\'\%\\\$\:\!\=\~\^\`]//g; + utf8::decode($fontname_ja); + if($fontname_en eq ""){ + $fontname_en = "Untitled"; + } + if($fontname_ja eq ""){ + $fontname_ja = $fontname_en; + } + open FH, ">:utf8", "$TEMPDIR/$HEADER_FILENAME"; + print FH <<"EOT"; New() Reencode("UnicodeFull") SetTTFName(0x409,0,"$LICENSE") @@ -43,42 +63,70 @@ SetTTFName(0x409,4,"$fontname_en") SetTTFName(0x411,1,"$fontname_ja") SetTTFName(0x411,4,"$fontname_ja") EOT - close FH; + close FH; } sub makefoot{ - open FH, ">:utf8", "$TEMPDIR/foot.txt"; - close FH; + open FH, ">:utf8", "$TEMPDIR/$FOOTER_FILENAME"; + close FH; } sub makeparts{ - my $temp = $form->param('partsdata'); - utf8::decode($temp); - open FH, ">:utf8", "$TEMPDIR/parts.txt"; - print FH $temp; - close FH; + my $temp = $form->param('partsdata'); + utf8::decode($temp); + open FH, ">:utf8", "$TEMPDIR/$PARTS_FILENAME"; + print FH $temp; + close FH; +} + +sub makepage{ + print <<"EOT"; +Content-type: text/html; + + + + + + + +ãã©ã³ããã¦ã³ãã¼ã + + +

+

ãã©ã³ãçæä¸

+

ä»¥ä¸ã®ãªã³ã¯ãã¯ãªãã¯ãã¦ãã ããããªã³ã¯ãåãã¦ããå ´åã¯çæä¸ã§ãã®ã§ããå°ããå¾ã¡ãã ããã6000ã°ãªãã§25åç¨åº¦ãããã¾ãã

+

ãã©ã³ãã®ãã¦ã³ãã¼ã

+

çæãã°ï¼ãã°ããããã¨ãããã«å¦çããã°ãªãã®UCSã³ã¼ããã¤ã³ããè¨é²ããã¾ããéå¸¸ã®æ¼¢åã¯0u4E00ãã0u9FA5ã®éã§ã0u4E00ããå¦çããã¾ãã0u9XXXã¾ã§å°éããã«æ´æ°ãæ¢ã¾ã£ãå ´åã¯ãã¼ã¿ã«ã¨ã©ã¼ãããå¤±æãã¦ããå¯è½æ§ãããã¾ãã

+

+ +fonts.jp +

+ + +EOT } -sub sendfont{ - my $fdata = ""; - my $fsize = 0; - my @bdata; - print <<"EOT"; -Content-type: application/octet-stream -Content-Disposition: attachment; filename = $fontname_en.ttf +sub makeerror{ +print <<"EOT"; +Content-type: text/html; + + + + + + +ãã©ã³ãçæå¤±æ + + +

+

ãã©ã³ãçæå¤±æ

+

ããä¸åº¦æ»ã£ã¦ããç´ãã¦ãã ããã

+

+ +fonts.jp +

+ + EOT - binmode STDOUT => ":raw"; - #open FH, "<:utf8", "$TEMPDIR/$TEMP.ttf"; - open FH, "<$TEMPDIR/$TEMP.ttf"; - while(1){ - $readed = read FH, $fdata, 1024; - #utf8::decode($fdata); - print $fdata; - if($readed <= 0){ - last; - } - } - close FH; - $dummy = `$RM -r $TEMPDIR`; } diff --git a/makettf/makettf.pl b/makettf/makettf.pl index 7eb22bc..30a680f 100755 --- a/makettf/makettf.pl +++ b/makettf/makettf.pl @@ -1,4 +1,13 @@ #!/usr/bin/perl + +$FONTFORGE = "export LANG=utf-8; /usr/bin/fontforge"; +$MAKEGLYPH = "/usr/bin/js ./makeglyph.js"; +$MV = "/bin/mv"; +$HEADER_FILENAME = "head.txt"; +$PARTS_FILENAME = "parts.txt"; +$FOOTER_FILENAME = "foot.txt"; +$TEMPNAME = "temp"; + use utf8; use CGI; binmode STDOUT, ":utf8"; @@ -10,8 +19,6 @@ if(scalar(@ARGV) != 4){ exit; } -$FONTFORGE = "/usr/local/bin/fontforge"; -$PERL = "/usr/bin/perl"; $WORKDIR=$ARGV[0]; $WORKNAME=$ARGV[1]; $SHOTAI=$ARGV[2]; @@ -22,51 +29,9 @@ unlink "$WORKDIR/$WORKNAME.scr"; unlink "$WORKDIR/$WORKNAME.ttf"; mkdir "$WORKDIR/build"; -sub addglyph{ - my $buffer =<<"EOT"; -Print(0u$_[0]) -Select(0u$_[0]) -Clear() -Import("$WORKDIR/build/$_[0].svg") -Scale(500) -Move(400, -400) -RemoveOverlap() -Simplify() -SetWidth(1000) -Move(0, 50) -RoundToInt() -AutoHint() -EOT - open FH, ">>:utf8", "$WORKDIR/$WORKNAME.scr"; - print FH $buffer; - close FH; -} - -sub makefont{ - my $buffer = "Generate(\"$WORKDIR/$WORKNAME.ttf\", \"\", 0)\n"; - $buffer .= "Quit()\n"; - open FH, ">>:utf8", "$WORKDIR/$WORKNAME.scr"; - print FH $buffer; - close FH; - - $buffer = `export LANG=utf-8; $FONTFORGE -script $WORKDIR/$WORKNAME.scr > $WORKDIR/$WORKNAME.log 2>&1`; - #open FH, ">>:utf8", "$WORKDIR/$WORKNAME.log"; - #print FH $buffer; - #close FH; -} - -sub addsubset{ - $subset{$_[0]} = $buhin{$_[0]}; - while($buhin{$_[0]} =~ m/(^|\$)99:[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:(.+?)(\$|$)/gc){ - if(!exists($subset{$2})){ - &addsubset($2); - } - } -} - # initialize -if(-e "$WORKDIR/head.txt"){ - open FH, "<:utf8", "$WORKDIR/head.txt"; +if(-e "$WORKDIR/$HEADER_FILENAME"){ + open FH, "<:utf8", "$WORKDIR/$HEADER_FILENAME"; open FH2, ">>:utf8", "$WORKDIR/$WORKNAME.scr"; while(!eof FH){ my $buffer = ; @@ -84,8 +49,8 @@ else{ # parse buhin %buhin = (); -if(-e "$WORKDIR/parts.txt"){ - open FH, "<:utf8", "$WORKDIR/parts.txt"; +if(-e "$WORKDIR/$PARTS_FILENAME"){ + open FH, "<:utf8", "$WORKDIR/$PARTS_FILENAME"; my $buffer = ""; while(){ $buffer .= $_; @@ -140,7 +105,7 @@ foreach(sort(keys(%target))){ utf8::encode($partsdata); $partsdata =~ s/([^0-9A-Za-z_ ])/'%'.unpack('H2',$1)/ge; $partsdata =~ s/\s/+/g; - $svg = `/usr/bin/js makeglyph.js $target $partsdata $SHOTAI $WEIGHT`; + $svg = `$MAKEGLYPH $target $partsdata $SHOTAI $WEIGHT`; open FH, ">$WORKDIR/build/$code.svg"; print FH $svg; close FH; @@ -148,8 +113,8 @@ foreach(sort(keys(%target))){ } # scripts footer -if(-e "$WORKDIR/foot.txt"){ - open FH, "<:utf8", "$WORKDIR/foot.txt"; +if(-e "$WORKDIR/$FOOTER_FILENAME"){ + open FH, "<:utf8", "$WORKDIR/$FOOTER_FILENAME"; open FH2, ">>:utf8", "$WORKDIR/$WORKNAME.scr"; while(!eof FH){ my $buffer = ; @@ -166,3 +131,44 @@ else{ } &makefont; + +sub addglyph{ + my $buffer =<<"EOT"; +Print(0u$_[0]) +Select(0u$_[0]) +Clear() +Import("$WORKDIR/build/$_[0].svg") +Scale(500) +Move(400, -400) +RemoveOverlap() +Simplify() +SetWidth(1000) +Move(0, 50) +RoundToInt() +AutoHint() +EOT + open FH, ">>:utf8", "$WORKDIR/$WORKNAME.scr"; + print FH $buffer; + close FH; +} + +sub makefont{ + my $buffer = "Generate(\"$WORKDIR/$TEMPNAME.ttf\", \"\", 0)\n"; + $buffer .= "Quit()\n"; + open FH, ">>:utf8", "$WORKDIR/$WORKNAME.scr"; + print FH $buffer; + close FH; + + $buffer = `$FONTFORGE -script $WORKDIR/$WORKNAME.scr > $WORKDIR/$WORKNAME.log 2>&1`; + $buffer = `$MV $WORKDIR/$TEMPNAME.ttf $WORKDIR/$WORKNAME.ttf`; +} + +sub addsubset{ + $subset{$_[0]} = $buhin{$_[0]}; + while($buhin{$_[0]} =~ m/(^|\$)99:[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:(.+?)(\$|$)/gc){ + if(!exists($subset{$2})){ + &addsubset($2); + } + } +} +