Add a Bourne Shell PAK file writer (remove qpakman dependency).

git-svn-id: svn://svn.code.sf.net/p/quakespasm/code/trunk/quakespasm@964 af15c1b1-3010-417e-b628-4374ebc0bcbd

Misc/qs_pak/Makefile

@@ -0,0 +1,11 @@
+INPUT := gfx/conback.lmp \
+	default.cfg
+
+OUTPUT := quakespasm.pak
+
+$(OUTPUT): $(INPUT)
+	./mkpak.sh $(INPUT) > $(OUTPUT)
+
+.PHONY: clean
+clean:
+	rm -f $(OUTPUT)

Misc/qs_pak/mkpak.sh

@@ -1,7 +1,135 @@
 #!/bin/sh
+#
+# Copyright (c) 2014, Sander van Dijk <a.h.vandijk@gmail.com>
+# 
+# Permission to use, copy, modify, and/or distribute this software for any
+# purpose with or without fee is hereby granted, provided that the above
+# copyright notice and this permission notice appear in all copies.
+# 
+# THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+# WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+# MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+# ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+# WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+# ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+# OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 
-input_files="gfx/conback.lmp default.cfg"
-output_pak="quakespasm.pak"
+error() {
+	echo "$(basename "$0"): $*" >&2
+	exit 1
+}
 
-#can use qpakman to generate
-qpakman $input_files -o $output_pak
+assert_valid_stdout() {
+	if test -t 1
+	then
+		error "Usage: $(basename "$0") [file ...] > output.pak"
+	fi
+}
+
+assert_valid_file() {
+	if test ! -e "$1"
+	then
+		error "$1: No such file"
+	fi
+	if test ! -f "$1"
+	then
+		error "$f: Not a regular file"
+	fi
+	if test ! -r "$1"
+	then
+		error "$1: Permission denied"
+	fi
+	if test $(echo -n "$1" | wc -c) -gt 55
+	then
+		error "$1: Name too long"
+	fi
+}
+
+assert_valid_int32() {
+	if test $1 -lt -2147483648 -o $1 -gt 2147483647
+	then
+		error "Too much data"
+	fi
+}
+
+octal() {
+	if test $1 -gt 7
+	then
+		octal $(expr $1 / 8)
+	fi
+	echo -n $(expr $1 % 8) 
+}
+
+byte() {
+	echo -en \\0$(octal $1)
+}
+
+little_endian_uint32() {
+	byte $(expr $1 % 256)
+	byte $(expr $1 / 256 % 256)
+	byte $(expr $1 / 65536 % 256)
+	byte $(expr $1 / 16777216 % 256)
+}
+
+little_endian_int32() {
+	if test $1 -lt 0
+	then
+		little_endian_uint32 $(expr $1 + 4294967296)
+	else
+		little_endian_uint32 $1
+	fi
+}
+
+zero_padding() {
+	if test $1 -lt 1
+	then
+		return
+	fi
+	byte 0
+	zero_padding $(expr $1 - 1)
+}
+
+header() {
+	echo -n PACK
+	little_endian_int32 $1
+	little_endian_int32 $2
+}
+
+directory_entry() {
+	echo -n "$1"
+	zero_padding $(expr 56 - $(echo -n "$1" | wc -c))
+	little_endian_int32 $2
+	little_endian_int32 $3
+}
+
+assert_valid_stdout
+
+directory_offset=12
+directory_size=0
+for file in "$@" 
+do
+	assert_valid_file "$file"
+	file_offset=$directory_offset
+	assert_valid_int32 $file_offset
+	file_size=$(wc -c < "$file")
+	assert_valid_int32 $file_size
+	directory_offset=$(expr $directory_offset + $file_size)
+	assert_valid_int32 $directory_offset
+	directory_size=$(expr $directory_size + 64)
+	assert_valid_int32 $directory_size
+done
+
+header $directory_offset $directory_size
+
+for file in "$@"
+do
+	cat "$file"
+done
+
+file_offset=12
+for file in "$@"
+do
+	file_size=$(wc -c < "$file")
+	directory_entry "$file" $file_offset $file_size
+	file_offset=$(expr $file_offset + $file_size)
+done