home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / nethack-3.1 / sys / amiga / ifchange < prev    next >
Encoding:
AmigaDOS Script File  |  1993-01-10  |  1.1 KB  |  57 lines
  1. .KEY oper/a,tmp/a,real/a,f1,f2,f3,f4,f5
  2.  
  3. . ; miscellaneous script functions for the Amiga
  4. . ; SCCS Id: @(#)ifchange    3.1    93/01/08
  5. . ; Copyright (c) Kenneth Lorber, Bethesda, Maryland, 1992, 1993.
  6. . ; NetHack mat be freely redistributed.  See license for details.
  7.  
  8. FAILAT 6
  9. IF <oper> EQ "MOVE"
  10.   IF EXISTS <real>
  11.   diff >T:mic -c <tmp> <real>
  12.   search from T:mic SEARCH "---" QUIET
  13.     IF WARN
  14.       echo "MOVE: no change"
  15.       delete <tmp>
  16.     ELSE
  17.       echo "MOVE: copy"
  18.       copy <tmp> <real> clone
  19.       delete <tmp>
  20.     ENDIF
  21.   ELSE
  22.     echo "MOVE: copy2"
  23.     copy <tmp> <real> clone
  24.     delete <tmp>
  25.   ENDIF
  26.   QUIT
  27. ENDIF
  28.  
  29. IF <oper> EQ "TOUCH"
  30.   IF EXISTS <real>
  31.   diff >T:mic -c <tmp> <real>
  32.   search from T:mic SEARCH "---" QUIET
  33.     IF NOT WARN
  34.       echo "TOUCH: touch"
  35.       IF NOT <f1$@> EQ "@"
  36.         setdate <f1>
  37.       ENDIF
  38.       IF NOT <f2$@> EQ "@"
  39.         setdate <f2>
  40.       ENDIF
  41.       IF NOT <f3$@> EQ "@"
  42.         setdate <f3>
  43.       ENDIF
  44.       IF NOT <f4$@> EQ "@"
  45.         setdate <f4>
  46.       ENDIF
  47.       IF NOT <f5$@> EQ "@"
  48.         setdate <f5>
  49.       ENDIF
  50.     ENDIF
  51.   ENDIF
  52.   QUIT
  53. ENDIF
  54.  
  55. echo "ifchange: '<oper>' not recognized"
  56. quit 10
  57.