tools/bin2head

   1 #!/usr/bin/perl
   2 #
   3 #  m m mm mmm .----------.  .---------------------. mmm mm m m
   4 #  8 8 88 888 | .--------`  |  .------------------` 888 88 8 8
   5 #  8 8 88 888 | ```````|`V```````|   |``||``|`````| 888 88 8 8
   6 #  8 8 88 888 `------  | |  [] | |``````||  |  [] | 888 88 8 8
   7 #  8 8 88 888 |``````  | |     | ````|````  |     | 888 88 8 8
   8 #  ` ` `` ``` ``````````````>  |````````````|   |`` ``` `` ` `
   9 #                ==============`            `---`
  10 #                                 L A B O R A T O R I E S
  11 #
  12 #This file is part of Hacker Radio Rec.
  13 #
  14 #Hacker Radio Rec is free software: you can redistribute it and/or
  15 #modify it under the terms of the GNU General Public License as
  16 #published by the Free Software Foundation, either version 3 of
  17 #the License or (at your option) any later version.
  18 #
  19 #Hacker Radio Rec is distributed in the hope that it will be
  20 #useful, but WITHOUT ANY WARRANTY; without even the implied
  21 #warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  22 #See the GNU General Public License for more details.
  23 #
  24 #               Copyright (C) 2009, Thea DeSilva
  25 #  You can find a copy of GNU General Public License in COPYING
  26 #
  27 undef $/;$z=<STDIN>;print "$ARGV[0] = {";
  28 for($i=0;$i<length($z);$i++){if(!(7&$i)){print "\n";}
  29 printf " 0x%02x,",ord(substr($z,$i,1));}print "\n};\n";