93 lines
2.4 KiB
Awk
93 lines
2.4 KiB
Awk
# 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"
|
|
}
|