Return to object_id.pl CVS log

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

Annotation of nono/lib/object_id.pl, revision 1.1.1.1

1.1       root        1: #
                      2: # nono
                      3: # Copyright (C) 2021 nono project
                      4: # Licensed under nono-license.txt
                      5: #
                      6: 
                      7: # object_id.txt から object_id.h, object_id.cpp を作る。
                      8: #
                      9: # usage: perl object_id.pl object_id.txt
                     10: 
                     11: {
                     12:        # ファイル名
                     13:        $infile = $ARGV[0];
                     14:        $hdrfile = $infile;
                     15:        $srcfile = $infile;
                     16:        $hdrfile =~ s/txt$/h/;
                     17:        $srcfile =~ s/txt$/cpp/;
                     18: 
                     19:        open(IN, $infile) || die "Cannot open infile: ${infile}\n";
                     20:        while (<IN>) {
                     21:                # Remove comments.
                     22:                chomp;
                     23:                s/#.*$//;
                     24:                next if /^$/;
                     25: 
                     26:                @names = split(/\s+/);
                     27: 
                     28:                if (@names == 1) {
                     29:                        $names[1] = $names[0];
                     30:                }
                     31: 
                     32:                # %n があれば 0..(n-1) に展開する
                     33:                if ($names[0] =~ /%(\d+)/) {
                     34:                        $atnum = $1 + 0;
                     35:                        for ($i = 0; $i < $atnum; $i++) {
                     36:                                @rep_names = ();
                     37:                                $r = $names[0];
                     38:                                $r =~ s/%${atnum}/${i}/g;
                     39:                                push(@rep_names, $r);
                     40:                                $r = $names[1];
                     41:                                $r =~ s/%/${i}/g;
                     42:                                push(@rep_names, $r);
                     43: 
                     44:                                parse_line(@rep_names);
                     45:                        }
                     46:                } else {
                     47:                        parse_line(@names);
                     48:                }
                     49:        }
                     50: 
                     51:        # 文字列として出力
                     52:        $hdrnew = "";
                     53:        $srcnew = "";
                     54: 
                     55:        $hdrnew .= "// Generated from ${0}\n";
                     56:        $hdrnew .= "\n";
                     57:        $hdrnew .= "#pragma once\n";
                     58:        $hdrnew .= "\n";
                     59:        $hdrnew .= "enum {\n";
                     60:        $hdrnew .= $defs;
                     61:        $hdrnew .= "};\n";
                     62: 
                     63:        $srcnew .= "// Generated from ${0}\n";
                     64:        $srcnew .= "\n";
                     65:        $srcnew .= "#include \"object.h\"\n";
                     66:        $srcnew .= "\n";
                     67:        $srcnew .= "/*static*/ const std::vector<const char *>\n";
                     68:        $srcnew .= "Object::idname {\n";
                     69:        $srcnew .= $msgs;
                     70:        $srcnew .= "};\n";
                     71:        $srcnew .= "\n";
                     72:        $srcnew .= "/*static*/ const std::vector<const char *>\n";
                     73:        $srcnew .= "Object::idtext {\n";
                     74:        $srcnew .= $text;
                     75:        $srcnew .= "};\n";
                     76: 
                     77:        # 更新があれば書き出す
                     78:        do_update($hdrfile, $hdrnew);
                     79:        do_update($srcfile, $srcnew);
                     80: 
                     81:        exit 0;
                     82: }
                     83: 
                     84: sub parse_line()
                     85: {
                     86:        local @names = @_;
                     87: 
                     88:        $defs .= "\tOBJ_${names[0]},\n";
                     89:        $msgs .= "\t\"${names[1]}\",\n";
                     90:        $text .= "\t\"OBJ_${names[0]}\",\n";
                     91: }
                     92: 
                     93: sub do_update()
                     94: {
                     95:        local $filename = $_[0];
                     96:        local $filebody = $_[1];
                     97:        local $old;
                     98:        local @contents;
                     99: 
                    100:        # まず出力先ファイルを文字列として読み込む
                    101:        $old = "";
                    102:        if (open(IN, $filename)) {
                    103:                @contents = <IN>;
                    104:                $old = join("", @contents);
                    105:                close(IN);
                    106:        }
                    107: 
                    108:        # 全文を比較して変更があれば出力
                    109:        if ($filebody ne $old) {
                    110:                open(OUT, ">${filename}") || die "Cannot open ${filename}\n";
                    111:                print OUT $filebody;
                    112:                close(OUT);
                    113:                print "Updated ${filename}\n";
                    114:        }
                    115: }

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