*** empty log message ***

2002-01-05 21:05:55 +00:00
parent 1c286e1db1
commit 14a30e0d7b
1 changed files with 92 additions and 0 deletions
--- a/sys/amiga/ship/mkfd.awk
+++ b/sys/amiga/ship/mkfd.awk
@@ -0,0 +1,92 @@
+# mkfd.awk
+# make filldir script from shipping list
+function chknam(x){
+	if( ! (x in dirlist) ){
+		dirlist[x]=x
+#		print "if not exists <prefix>-" x > "filldir"
+#		print "	makedir <prefix>-" x > "filldir"
+#		print "endif" > "filldir"
+	}
+	}
+BEGIN	{
+	print ".key prefix/a" > "filldir"
+	print "; This file generated by mkfd.awk - do not edit!" > "filldir"
+
+	# kludge to avoid a proper but complex chknam to deal with subdirs
+	# d is also broken
+	print "if not exists <prefix>-1" > "filldir"
+	print " makedir <prefix>-1" > "filldir"
+	print "endif" > "filldir"
+	print "if not exists <prefix>-2" > "filldir"
+	print " makedir <prefix>-2" > "filldir"
+	print "endif" > "filldir"
+
+	print "if not exists <prefix>-2/HackExe" > "filldir"
+	print " makedir <prefix>-2/HackExe" > "filldir"
+	print "endif" > "filldir"
+	print "if not exists <prefix>-1/NetHack" > "filldir"
+	print " makedir <prefix>-1/NetHack" > "filldir"
+	print "endif" > "filldir"
+
+	print "if not exists <prefix>-2/HackExe2" > "filldir"
+	print " makedir <prefix>-2/HackExe2" > "filldir"
+	print "endif" > "filldir"
+
+	print "if not exists <prefix>-1/NetHack/hack" > "filldir"
+	print " makedir <prefix>-1/NetHack/hack" > "filldir"
+	print "endif" > "filldir"
+
+	print "if not exists <prefix>-1/NetHack/sounds" > "filldir"
+	print " makedir <prefix>-1/NetHack/sounds" > "filldir"
+	print "endif" > "filldir"
+
+	}
+/^#/	{}
+/^f/	{
+	chknam($3)
+	print "cmove nethack:" $2 " <prefix>-" $3 "/" $4 "/" $2 > "filldir"
+	}
+/^B/	{
+	chknam($3)
+	print "slink nethack:" $2 " to <prefix>-" $3 "/" $4 "/" $2 " ND" > "filldir"
+	}
+/^E/	{
+	chknam($3)
+	print "copy NIL: <prefix>-" $3 "/" $4 "/" $2 > "filldir"
+	}
+/^F/	{
+	chknam($3)
+	if(sub(":","",$4)){
+		div=":"
+	} else {
+		div ="/"
+	}
+	print "cmove " $4 div $2 " <prefix>-" $3 "/" $4 "/" $2 > "filldir"
+	}
+#/^r/	{
+#	chknam($3)
+#	print "cmove nethack:" $2 " <prefix>-" $3 "/" $4 > "filldir"
+#	}
+#/^R/	{
+#	chknam($3)
+#	print "cmove " $4 "/" $2 " <prefix>-" $3 "/" $5 > "filldir"
+#	}
+/^d/	{
+	chknam($3)
+	chknam($3 "/" $2)
+# DO WE NEED A DUMMY FILE HERE?
+# NO - do it in shiplist
+#	print "if not exists <prefix>-" $3 "/" $2 > "filldir"
+#	print "	makedir <prefix>-" $3 > "filldir"
+#	print "endif" > "filldir"
+	}
+/^S/	{
+	print "blink nethack:nethack to ram:nethack ND" > "filldir"
+	print "set here=`cd`" > "filldir"
+	print "cd ram:" > "filldir"
+	print "amiga:splitter/splitter nethack" > "filldir"
+	print "cd $here" > "filldir"
+	}
+/^[^f#dFrRBES]/{		#out of date
+	print "line " $0 " rejected - bad type"
+	}