From 251904a0c2658d562c75a495dbd4b01d56473821 Mon Sep 17 00:00:00 2001
From: Koichi KAMICHI <kamichi@fonts.jp>
Date: Tue, 6 Jun 2006 09:14:25 +0000
Subject: [PATCH] Fixed a bug. Skip reading at comment line.

---
 makettf/index.html  |    6 +++++-
 makettf/makettf.cgi |    7 +++++--
 makettf/makettf.pl  |    6 ++++--
 3 files changed, 14 insertions(+), 5 deletions(-)

diff --git a/makettf/index.html b/makettf/index.html
index 8cd89c0..5785f96 100644
--- a/makettf/index.html
+++ b/makettf/index.html
@@ -18,7 +18,9 @@
 <input type="submit" value="生成">
 </form>
 <hr>
-部品データは１部品＝１行で、「部品名、スペース、部品データ」の順に記述します。<br>実際に生成されるコードポイントは、部品名が「単独の文字」「[単独の文字]」「コードポイント16進数(頭にUu,+-を付けても可)」のいずれかとなります。<br>
+部品データは１部品＝１行で、「部品名、スペース、部品データ」の順に記述します。<br>
+実際に生成されるコードポイントは、部品名が「単独の文字」「[単独の文字]」「コードポイント16進数(頭にUu,+-を付けても可)」のいずれかとなります。<br>
+「:」の含まれない行はコメントとして、無視されます。
 <ul>
 <li>(例)</li>
 <li>30A8</li>
@@ -37,6 +39,8 @@ TrueTypeフォントを生成するソフトウェアfontforge の制約によ
 <dt>繁体字中国語フォント</dt><dd>U+592E「央」を含めてください</dd>
 <dt>韓国語フォント</dt><dd>U+3131「ハングル字母1番目」を含めてください</dd>
 </dl>
+<br>
+Webサーバの制約により生成に6分以上かかる場合は失敗します。（現在グリフ数4000強までは生成が可能です）
 <hr>
 <div align="right">fonts.jp</div>
 </body>
diff --git a/makettf/makettf.cgi b/makettf/makettf.cgi
index b7fa8ef..85e8c6d 100755
--- a/makettf/makettf.cgi
+++ b/makettf/makettf.cgi
@@ -5,6 +5,7 @@ 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/)';
@@ -67,10 +68,12 @@ Content-type: application/octet-stream
 Content-Disposition: attachment; filename = $fontname_en.ttf
 
 EOT
-    open FH, "<:utf8", "$TEMPDIR/$TEMP.ttf";
+    binmode STDOUT => ":raw";
+    #open FH, "<:utf8", "$TEMPDIR/$TEMP.ttf";
+    open FH, "<$TEMPDIR/$TEMP.ttf";
     while(1){
 	$readed = read FH, $fdata, 1024;
-	utf8::decode($fdata);
+	#utf8::decode($fdata);
 	print $fdata;
 	if($readed <= 0){
 	    last;
diff --git a/makettf/makettf.pl b/makettf/makettf.pl
index f87215b..7f0a7dd 100755
--- a/makettf/makettf.pl
+++ b/makettf/makettf.pl
@@ -101,8 +101,10 @@ else{
 }
 @temp = split(/\r\n|\r|\n/, $temp);
 foreach(@temp){
-  @temp2 = split(/ +|\t/, $_);
-  $buhin{$temp2[0]} = $temp2[1];
+  if($_ =~ m/:/){
+    @temp2 = split(/ |\t/, $_);
+    $buhin{$temp2[0]} = $temp2[1];
+  }
 }
 
 # parse target codepoint
-- 
1.7.10.4