Return to bdftoraw CVS log

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

Annotation of generator/src/.extra/bdftoraw, revision 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.