| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172 |
- From 61cf7655f6f165645d1659c7b256be4397d67572 Mon Sep 17 00:00:00 2001
- From: Yutang Jiang <[email protected]>
- Date: Tue, 15 Nov 2016 20:57:37 +0800
- Subject: [PATCH 94/94] using perl script:byte_swap.pl to replace tcl
- script:byte_swap.tcl
- Signed-off-by: Yutang Jiang <[email protected]>
- ---
- Makefile | 2 +-
- byte_swap.pl | 37 +++++++++++++++++++++++++++++++++++++
- 2 files changed, 38 insertions(+), 1 deletion(-)
- create mode 100755 byte_swap.pl
- diff --git a/Makefile b/Makefile
- index b73375f..5293bc5 100644
- --- a/Makefile
- +++ b/Makefile
- @@ -836,7 +836,7 @@ dtbs dts/dt.dtb: checkdtc u-boot
-
- u-boot-dtb.bin: u-boot.bin dts/dt.dtb FORCE
- $(call if_changed,cat)
- - tclsh byte_swap.tcl u-boot-dtb.bin u-boot-swap.bin 8
- + perl byte_swap.pl u-boot-dtb.bin u-boot-swap.bin 8
-
- %.imx: %.bin
- $(Q)$(MAKE) $(build)=arch/arm/imx-common $@
- diff --git a/byte_swap.pl b/byte_swap.pl
- new file mode 100755
- index 0000000..1707139
- --- /dev/null
- +++ b/byte_swap.pl
- @@ -0,0 +1,37 @@
- +#!/usr/bin/perl
- +#
- +# Copyright (C) 2016 Jiang Yutang <[email protected]>
- +#
- +# This is free software, licensed under the GNU General Public License v2.
- +# See /LICENSE for more information.
- +#
- +open F_I, '<', $ARGV[0] or die "Error:$!\n";
- +open F_O, '>', $ARGV[1] or die "Error:$!\n";
- +$i_size = (stat $ARGV[0])[7];
- +
- +undef $/;
- +$str_i=<F_I>;
- +(@ary_i)=unpack("C$i_size", $str_i);
- +
- +if ( ($i_size % $ARGV[2]) != 0 )
- +{
- + for ($i=0; $i<$ARGV[2] - ($i_size % $ARGV[2]); $i++)
- + {
- + $ary_i[$i_size + $i]=0;
- + }
- + $i_size=$i_size + ($ARGV[2] - ($i_size % $ARGV[2]));
- +}
- +
- +for ($i=0; $i<$i_size; $i += $ARGV[2])
- +{
- + for ($j=0; $j<$ARGV[2]; $j++)
- + {
- + $ary_o[$i+$j]=$ary_i[$i+$ARGV[2]-$j-1];
- + }
- +}
- +
- +binmode F_O;
- +print(F_O pack("C$i_size", @ary_o));
- +
- +close F_I;
- +close F_O;
- --
- 1.7.9.5
|
