1#!/usr/bin/perl 2## ----------------------------------------------------------------------- 3## 4## Copyright (C) 2010 P J P <pj.pandit@yahoo.co.in> 5## 6## Permission is hereby granted, free of charge, to any person 7## obtaining a copy of this software and associated documentation 8## files (the "Software"), to deal in the Software without 9## restriction, including without limitation the rights to use, 10## copy, modify, merge, publish, distribute, sublicense, and/or 11## sell copies of the Software, and to permit persons to whom 12## the Software is furnished to do so, subject to the following 13## conditions: 14## 15## The above copyright notice and this permission notice shall 16## be included in all copies or substantial portions of the Software. 17## 18## THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, 19## EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES 20## OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND 21## NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT 22## HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, 23## WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING 24## FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR 25## OTHER DEALINGS IN THE SOFTWARE. 26## 27## ----------------------------------------------------------------------- 28 29use strict; 30use warnings; 31 32binmode STDIN; 33 34print "#include <inttypes.h>\n"; 35print "#include \"isohybrid.h\"\n"; 36print "\n"; 37print "uint8_t isohdpfx[][MBRSIZE] =\n"; 38print "{\n"; 39 40foreach my $file (@ARGV) { 41 my $len = 0; 42 my $ch; 43 44 open(IN, '<', $file) or die "$0: $file: $!\n"; 45 printf(" {\n"); 46 while (read(IN, $ch, 1)) 47 { 48 printf("\t/* 0x%03x */ ", $len) if (!($len % 8)); 49 printf("0x%02x,", ord($ch)); 50 $len++; 51 52 print("\n") if (!($len % 8)); 53 } 54 print " },\n"; 55 close(IN); 56} 57print "};\n"; 58