Return to z80toc.pl CVS log

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

Annotation of nono/util/runcom/z80toc.pl, revision 1.1.1.1

1.1       root        1: #!/usr/bin/env perl
                      2: 
                      3: #
                      4: # nono
                      5: # Copyright (C) 2023 nono project
                      6: # Licensed under nono-license.txt
                      7: #
                      8: 
                      9: # z80-asm の出力する .z80 形式を C ソースに変換して標準出力に出力する。
                     10: #
                     11: # usage: z80toc.pl <infile.z80> [<outfile.c>]
                     12: 
                     13: {
                     14:        $filename = $ARGV[0];
                     15:        $filesize = -s $filename;
                     16: 
                     17:        if (@ARGV > 1) {
                     18:                $outfile = $ARGV[1];
                     19:        } else {
                     20:                $outfile = $filename;
                     21:                $outfile =~ s/(\.z80|)$/.c/;
                     22:        }
                     23: 
                     24:        # ファイルを全部読み込む
                     25:        open(IN, $filename) or die;
                     26:        binmode(IN);
                     27:        read(IN, $magic, 8);
                     28:        read(IN, $dummylen, 2);
                     29:        read(IN, $data, $filesize - 10);
                     30:        close(IN);
                     31: 
                     32:        # マジック照合
                     33:        if ($magic != "Z80ASM\x1a\x0a") {
                     34:                die("${filename} is not z80-asm .z80 object format");
                     35:        }
                     36: 
                     37:        $varname = $filename;
                     38:        $varname =~ s/\.z80$//;
                     39: 
                     40:        # 出力
                     41:        open(OUT, ">$outfile") or die;
                     42:        printf OUT "int ${varname}_datalen = %d;\n", length($data);
                     43:        print OUT "const unsigned char ${varname}_data[] = {\n";
                     44:        $i = 0;
                     45:        for (; $i < length($data); $i++) {
                     46:                if ($i % 8 == 0) {
                     47:                        print OUT "\t";
                     48:                }
                     49:                $ch = ord(substr($data, $i, 1));
                     50:                printf OUT "0x%02x,", $ch;
                     51:                if ($i % 8 != 7) {
                     52:                        print OUT " ";
                     53:                } else {
                     54:                        print OUT "\n";
                     55:                }
                     56:        }
                     57:        if ($i % 8 != 0) {
                     58:                print OUT "\n";
                     59:        }
                     60:        print OUT "};\n";
                     61: }

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