Return to format.pl CVS log

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

Annotation of nono/po/format.pl, revision 1.1.1.1

1.1       root        1: #
                      2: # nono
                      3: # Copyright (C) 2020 nono project
                      4: # Licensed under nono-license.txt
                      5: #
                      6: 
                      7: #
                      8: # xgettext の出力を整形する
                      9: #
                     10: 
                     11: # ヘッダをこっちのものに差し替える
                     12: for ($i = 0; $i < 5; $i++) {
                     13:        <>;
                     14: }
                     15: print "#\n";
                     16: print "# nono\n";
                     17: print "# Copyright (C) 2020 nono project\n";
                     18: print "# Licensed under nono-license.txt\n";
                     19: print "#\n";
                     20: print "\n";
                     21: 
                     22: # コメント中のファイル名はほしいけど行番号はいらない
                     23: $in_comment = 0;
                     24: $buffered = "";
                     25: for ($lines = 0; <>; $lines++) {
                     26:        if ($in_comment == 0) {
                     27:                # 地文中
                     28:                if (/^#: (.*)/) {
                     29:                        # コメントが来た
                     30:                        $in_comment = 1;
                     31:                        $buffered = $1;
                     32:                } else {
                     33:                        # 地文の続き
                     34:                        print $_;
                     35:                }
                     36:        } else {
                     37:                # コメント中
                     38:                if (/^#: (.*)/) {
                     39:                        # コメント継続
                     40:                        $buffered .= " $1";
                     41:                } else {
                     42:                        # コメント終わり
                     43:                        $in_comment = 0;
                     44:                        $orig = $_;
                     45: 
                     46:                        # ここまでに出てきたファイル名を uniq | sort
                     47:                        $buffered =~ s/:\d+//g;
                     48:                        my @list = split(/\s+/, $buffered);
                     49:                        my @list2 = ();
                     50:                        my $prev = "";
                     51:                        foreach my $f (sort @list) {
                     52:                                if ($f ne $prev) {
                     53:                                        push @list2, $f;
                     54:                                        $prev = $f;
                     55:                                }
                     56:                        }
                     57: 
                     58:                        # 出力 (手抜きにより行折り返しは考慮しない)
                     59:                        print "#:";
                     60:                        foreach my $f (@list2) {
                     61:                                print " $f";
                     62:                        }
                     63:                        print "\n";
                     64: 
                     65:                        print $orig;
                     66:                }
                     67:        }
                     68: }

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