From 019a3a817e89ccfd935ee4f4e5e6de306c346c97 Mon Sep 17 00:00:00 2001
From: jwalz <jwalz>
Date: Sat, 5 Jan 2002 21:05:55 +0000
Subject: [PATCH] *** empty log message ***

---
 sys/amiga/ship/mkdz.awk | 57 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 57 insertions(+)
 create mode 100644 sys/amiga/ship/mkdz.awk

diff --git a/sys/amiga/ship/mkdz.awk b/sys/amiga/ship/mkdz.awk
new file mode 100644
index 000000000..0a4b92ee0
--- /dev/null
+++ b/sys/amiga/ship/mkdz.awk
@@ -0,0 +1,57 @@
+# mkdz.awk
+# make dozoo script from shipping list
+function dname(dir,sd,	fn){
+		fn=fname(dir);	# be sure parent is listed first
+		if( ! (sd in subdlist)){
+			subdlist[sd]=sd ; subdpar[sd]=dir
+			print "list >>Manifest" dir " <pf>-" dir "/" sd > fn
+		}
+	}
+function fname(x,	fnm){
+		fnm="dozoo" x;
+		if( ! (x in zlist)){
+			print ".key pf/a" > fnm;
+			print "failat 21" > fnm;
+			print "delete <pf>-" x ".lha" > fnm;
+			print "list >Manifest" x " <pf>-"x " dates all" > fnm;
+			zlist[x]=x;
+		}
+		return fnm
+	}
+#{print}
+/^[#S]/	{}
+/^[fBE]/	{
+	print "cd <pf>-" $3 > fname($3)
+	print "lha -x a /<pf>-" $3 ".lha " $4 "/" $2 > fname($3)
+#	print "lz -a -x a /<pf>-" $3 ".lzh " $4 "/" $2 > fname($3)
+	print "cd /" > fname($3)
+	}
+/^F/	{
+	print "cd <pf>-" $3 > fname($3)
+	print "lha -x a /<pf>-" $3 ".lha " $4 "/" $2 > fname($3)
+#	print "lz -a -x a /<pf>-" $3 ".lzh " $4 "/" $2 > fname($3)
+	print "cd /" > fname($3)
+	}
+#/^r/	{
+#	if(sub(":","",$4)){
+#		div=":"
+#	} else {
+#		div="/"
+#	}
+#	print "lz -a -x a <pf>-" $3 ".lzh <pf>-" $3 div $4 > fname($3)
+#	}
+#/^R/	{
+#	print "lz -a -x a <pf>-" $3 ".lzh <pf>-" $3 "/" $5 > fname($3)
+#	}
+/^[^f#dFBES]/	{		#out of date? (rR killed)
+	print "line " $0 " rejected - bad type"
+	}
+END	{
+	print ".key prefix/a" > "dozoo"
+	print "; This file generated by mkdz.awk - do not edit!" > "dozoo"
+	for (znum in zlist){
+		print "lha -a a <pf>-" znum ".lha Manifest" znum > fname(znum);
+#		print "lz -x -a a <pf>-" znum ".lzh Manifest" znum > fname(znum);
+		print "execute " fname(znum)," <prefix>" > "dozoo"
+	}
+	}