Return to bdftoraw CVS log

Up to [Generator SEGA Genesis emulator] / generator / extra

Annotation of generator/extra/bdftoraw, revision 1.1.1.1

1.1       root        1: #!/usr/bin/perl -w
                      2: 
                      3: use Fcntl;
                      4: 
                      5: if ($#ARGV != 0) {
                      6:     die("Syntax: $0 <output>\n");
                      7: }
                      8: $infile = $ARGV[0];
                      9: 
                     10: sysopen(FILE, $infile, O_CREAT | O_WRONLY)
                     11:     or die "failed to open $infile: $!\n";
                     12: 
                     13: while(<STDIN>) {
                     14:     chomp;
                     15:     # quick hack
                     16:     if (/^([0-9a-fA-F]+)$/) {
                     17:        $bits = $1;
                     18:        while($bits) {
                     19:            $data = hex(substr($bits, 0, 2));
                     20:            $bits = substr($bits, 2);
                     21:        }
                     22:        print FILE pack('C', $data);
                     23:     }
                     24: }
                     25: 
                     26: close(FILE) or die "failed to close $infile: $!\n";

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