Return to bdfcut.php CVS log

Up to [Isaki's NoNo m68k/m88k emulator] / nono / util / mkcgrom

Annotation of nono/util/mkcgrom/bdfcut.php, revision 1.1.1.1

1.1       root        1: <?php
                      2: //
                      3: // BDF ファイルから必要な範囲だけ抜き出す
                      4: // Copyright (C) 2012 [email protected]
                      5: //
                      6: 
                      7: /*
                      8:  * 書式
                      9:  *     bdfcut.php [command] < in.bdf > out.bdf
                     10:  *
                     11:  * 解説
                     12:  *     BDF ファイルから必要な範囲だけを抜き出します。
                     13:  *     標準入力から読み込み、標準出力に書き出します。
                     14:  *
                     15:  *     範囲は command で指定します。今のところ以下が使用できます。
                     16:  *
                     17:  *       h : Unicode の BDF からひらがなのみを抜き出します。
                     18:  *       k : JISX0208 の BDF から非漢字のみを抜き出します。
                     19:  */
                     20: 
                     21:        $opt = $argv[1];
                     22: 
                     23:        $start = -1;
                     24:        $end = -1;
                     25: 
                     26:        /* オプションによって出力範囲を指定 */
                     27:        if ($opt == "h") {
                     28:                /* Unicode のひらがなのみ取り出す */
                     29:                $start = 0x3041;
                     30:                $end   = 0x309f;
                     31:        }
                     32:        if ($opt == "k") {
                     33:                /* JIS X 0208 の非漢字のみ取り出す */
                     34:                $start = 0x2120;
                     35:                $end   = 0x287f;
                     36:        }
                     37: 
                     38:        /* どのオプションもなければ終了 */
                     39:        if ($start == -1) {
                     40:                fprintf(STDERR, "usage: {$argv[0]} [command] < in.bdf > out.bdf\n");
                     41:                fprintf(STDERR, "   h: hiragana only in unicode\n");
                     42:                fprintf(STDERR, "   k: hi-kanji only in JIS X 0208\n");
                     43:                exit(1);
                     44:        }
                     45: 
                     46:        /*
                     47:         * プロパティ部分。
                     48:         * o TTF から縦横比を変えて変換した BDF には QUAD_WIDTH が含まれてない
                     49:         *   ので、ついでにここで追加してやる。
                     50:         */
                     51:        $pixel_size = -1;
                     52:        $quad_width = -1;
                     53:        $res_x = -1;
                     54:        $res_y = -1;
                     55:        while (($buf = fgets(STDIN))) {
                     56:                if (preg_match("/^PIXEL_SIZE (\d+)/", $buf, $m)) {
                     57:                        $pixel_size = $m[1] + 0;
                     58: 
                     59:                } else if (preg_match("/^QUAD_WIDTH (\d+)/", $buf, $m)) {
                     60:                        $quad_width = $m[1] + 0;
                     61: 
                     62:                } else if (preg_match("/^RESOLUTION_X (\d+)/", $buf, $m)) {
                     63:                        $res_x = $m[1] + 0;
                     64: 
                     65:                } else if (preg_match("/^RESOLUTION_Y (\d+)/", $buf, $m)) {
                     66:                        $res_y = $m[1] + 0;
                     67: 
                     68:                } else if (preg_match("/^ENDPROPERTIES/", $buf)) {
                     69:                        /* h モードで QUAD_WIDTH がなければ作成 */
                     70:                        if ($opt == "h" && $quad_width == -1) {
                     71:                                if ($pixel_size > 0 && $res_x > 0 && $res_y > 0) {
                     72:                                        $quad_width = intval($pixel_size * $res_x / $res_y);
                     73:                                        print "QUAD_WIDTH {$quad_width}\n";
                     74:                                } else {
                     75:                                        fprintf(STDERR, "Warning: cannot generate QUAD_WIDTH\n");
                     76:                                }
                     77:                        }
                     78: 
                     79:                        /* ここで自身も出力して終了 */
                     80:                        print $buf;
                     81:                        break;
                     82:                }
                     83:                print $buf;
                     84:        }
                     85: 
                     86:        /* 本体ループ */
                     87:        $body = "";
                     88:        $ischar = false;
                     89:        $num = 0;
                     90:        while (($buf = fgets(STDIN))) {
                     91:                if ($ischar) {
                     92:                        $body .= $buf;
                     93: 
                     94:                        /* ENDCHAR を書き出したら一旦終わり */
                     95:                        if (preg_match("/^ENDCHAR/", $buf)) {
                     96:                                $ischar = false;
                     97:                        }
                     98: 
                     99:                } else if (preg_match("/^STARTCHAR ([\d\w]+)/", $buf, $m)) {
                    100:                        list($code) = sscanf($m[1], "%x");
                    101:                        if ($start <= $code && $code <= $end) {
                    102:                                $body .= $buf;
                    103:                                $ischar = true;
                    104:                                $num++;
                    105:                        }
                    106:                }
                    107:        }
                    108: 
                    109:        /* 文字数とともに残りを出力 */
                    110:        print "CHARS {$num}\n";
                    111:        print "{$body}";
                    112: ?>

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.