nexmon – Blame information for rev 1
?pathlinks?
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 1 | office | 1 | #!/usr/bin/env perl |
| 2 | |||
| 3 | # Copyright © 2011 Red Hat, Inc |
||
| 4 | # |
||
| 5 | # This library is free software; you can redistribute it and/or |
||
| 6 | # modify it under the terms of the GNU Lesser General Public |
||
| 7 | # License as published by the Free Software Foundation; either |
||
| 8 | # version 2 of the licence, or (at your option) any later version. |
||
| 9 | # |
||
| 10 | # This library is distributed in the hope that it will be useful, |
||
| 11 | # but WITHOUT ANY WARRANTY; without even the implied warranty of |
||
| 12 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
||
| 13 | # Lesser General Public License for more details. |
||
| 14 | # |
||
| 15 | # You should have received a copy of the GNU Lesser General Public |
||
| 16 | # License along with this library; if not, see <http://www.gnu.org/licenses/>. |
||
| 17 | # |
||
| 18 | # Author: Kalev Lember <kalevlember@gmail.com> |
||
| 19 | |||
| 20 | |||
| 21 | if (@ARGV != 2) { |
||
| 22 | die "Usage: data-to-c.pl <filename> <variable>\n"; |
||
| 23 | } |
||
| 24 | |||
| 25 | $file = $ARGV[0]; |
||
| 26 | |||
| 27 | open (FILE, $file) || die "Cannot open $file: $!\n"; |
||
| 28 | |||
| 29 | printf ("const char %s[] = \"", $ARGV[1]); |
||
| 30 | while (my $line = <FILE>) { |
||
| 31 | foreach my $c (split //, $line) { |
||
| 32 | printf ("\\x%02x", ord ($c)); |
||
| 33 | } |
||
| 34 | } |
||
| 35 | print "\";\n"; |
||
| 36 | |||
| 37 | close (FILE); |