OLD | NEW |
(Empty) | |
| 1 #! /usr/bin/perl |
| 2 |
| 3 # Copyright (C) 2011 Google Inc. All rights reserved. |
| 4 # |
| 5 # Redistribution and use in source and binary forms, with or without |
| 6 # modification, are permitted provided that the following conditions are |
| 7 # met: |
| 8 # |
| 9 # # Redistributions of source code must retain the above copyright |
| 10 # notice, this list of conditions and the following disclaimer. |
| 11 # # Redistributions in binary form must reproduce the above |
| 12 # copyright notice, this list of conditions and the following disclaimer |
| 13 # in the documentation and/or other materials provided with the |
| 14 # distribution. |
| 15 # # Neither the name of Google Inc. nor the names of its |
| 16 # contributors may be used to endorse or promote products derived from |
| 17 # this software without specific prior written permission. |
| 18 # |
| 19 # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS |
| 20 # "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT |
| 21 # LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR |
| 22 # A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT |
| 23 # OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, |
| 24 # SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT |
| 25 # LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, |
| 26 # DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY |
| 27 # THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT |
| 28 # (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE |
| 29 # OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
| 30 # |
| 31 |
| 32 my @output = (); |
| 33 my $argumentCount = scalar(@ARGV); |
| 34 for my $i (2..$argumentCount - 1) { |
| 35 my $inputFileName = $ARGV[$i]; |
| 36 open($inputFile, '<', $inputFileName) or die "Can't open file for read: $input
FileName $!"; |
| 37 $/ = undef; |
| 38 $inputText = <$inputFile>; |
| 39 close($inputFile); |
| 40 push(@output, map('0x' . unpack("H*", $_), split(undef, $inputText))); |
| 41 } |
| 42 my $output = join(", ", @output, "0x00"); |
| 43 |
| 44 my $varname = $ARGV[0]; |
| 45 my $outputFileName = $ARGV[1]; |
| 46 open($outputFile, '>', $outputFileName) or die "Can't open file for write: $outp
utFileName $!"; |
| 47 print $outputFile "const unsigned char ${varname}Array\[\] = {\n$output\n};\n"; |
| 48 print $outputFile "const char* $varname = reinterpret_cast<const char*>(${varnam
e}Array);\n"; |
| 49 |
| 50 close($outputFile); |
OLD | NEW |