From 36a9415469571fa972b6ff9004401aee393d28ad Mon Sep 17 00:00:00 2001
From: Jo-Philipp Wich <jow@openwrt.org>
Date: Mon, 6 Apr 2009 02:35:34 +0000
Subject: contrib: add "lar" - initial work on lua archive format

---
 contrib/lar/lar.pl | 50 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 50 insertions(+)
 create mode 100755 contrib/lar/lar.pl

(limited to 'contrib/lar/lar.pl')

diff --git a/contrib/lar/lar.pl b/contrib/lar/lar.pl
new file mode 100755
index 0000000000..56e4897958
--- /dev/null
+++ b/contrib/lar/lar.pl
@@ -0,0 +1,50 @@
+#!/usr/bin/perl
+
+use strict;
+
+@ARGV || die "Usage: $0 <file1> <file2> ... <fileN>\n";
+
+my @index;
+my $offset = 0;
+
+foreach my $file ( @ARGV )
+{
+	if( -f $file && open F, "< $file" )
+	{
+		warn sprintf "Member at 0x%08X\n", $offset;
+		push @index, [ ];
+
+		my $size = length $file;
+
+		print $file;
+		print "\0" x ( $size % 4 );
+
+		$index[-1][0] = $offset;
+		$index[-1][1] = $size;
+		$index[-1][2] = $offset + $size + ( $size % 4 );
+
+		
+		$size = 0;
+		while( read F, my $buffer, 4096 ) {
+			$size += length $buffer;
+			print $buffer;
+		}
+		print "\0" x ( $size % 4 );
+
+		$index[-1][3] = $size;
+		$offset = $index[-1][2] + $size + ( $size % 4 );
+
+		close F;
+	}
+}
+
+
+foreach my $file ( @index )
+{
+	warn sprintf "Index: 0x%08X 0x%08X 0x%08X 0x%08X\n", $file->[0], $file->[1], $file->[2], $file->[3];
+	print pack "NNNNnn", $file->[0], $file->[1], $file->[2], $file->[3], 0x0000, 0x0000;
+}
+
+warn sprintf "Index at 0x%08X, length 0x%08X\n", $offset, @index * 20;
+print pack "N", $offset;
+
-- 
cgit v1.2.3