move unmaintained files into outdated folder
If an old port is resurrected to work with current version code, its files can be relocated to the appropriate sys or win folder as required. In the meantime, the burden of upkeep can be avoided for the stuff in the outdated folder for now.
This commit is contained in:
55
outdated/sys/amiga/ifchange
Normal file
55
outdated/sys/amiga/ifchange
Normal file
@@ -0,0 +1,55 @@
|
||||
.KEY oper/a,tmp/a,real/a,f1,f2,f3,f4,f5
|
||||
|
||||
. ; miscellaneous script functions for the Amiga
|
||||
. ; Copyright (c) Kenneth Lorber, Bethesda, Maryland, 1992, 1993, 1996.
|
||||
. ; NetHack may be freely redistributed. See license for details.
|
||||
|
||||
FAILAT 6
|
||||
IF <oper> EQ "MOVE"
|
||||
IF EXISTS <real>
|
||||
diff >T:mic -c <tmp> <real>
|
||||
search from T:mic SEARCH "---" QUIET
|
||||
IF WARN
|
||||
echo "MOVE: no change"
|
||||
delete <tmp>
|
||||
ELSE
|
||||
echo "MOVE: copy"
|
||||
copy <tmp> <real> clone
|
||||
delete <tmp>
|
||||
ENDIF
|
||||
ELSE
|
||||
echo "MOVE: copy2"
|
||||
copy <tmp> <real> clone
|
||||
delete <tmp>
|
||||
ENDIF
|
||||
QUIT
|
||||
ENDIF
|
||||
|
||||
IF <oper> EQ "TOUCH"
|
||||
IF EXISTS <real>
|
||||
diff >T:mic -c <tmp> <real>
|
||||
search from T:mic SEARCH "---" QUIET
|
||||
IF NOT WARN
|
||||
echo "TOUCH: touch"
|
||||
IF NOT <f1$@> EQ "@"
|
||||
setdate <f1>
|
||||
ENDIF
|
||||
IF NOT <f2$@> EQ "@"
|
||||
setdate <f2>
|
||||
ENDIF
|
||||
IF NOT <f3$@> EQ "@"
|
||||
setdate <f3>
|
||||
ENDIF
|
||||
IF NOT <f4$@> EQ "@"
|
||||
setdate <f4>
|
||||
ENDIF
|
||||
IF NOT <f5$@> EQ "@"
|
||||
setdate <f5>
|
||||
ENDIF
|
||||
ENDIF
|
||||
ENDIF
|
||||
QUIT
|
||||
ENDIF
|
||||
|
||||
echo "ifchange: '<oper>' not recognized"
|
||||
quit 10
|
||||
Reference in New Issue
Block a user