*** empty log message ***

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"
+	}
+	}