home *** CD-ROM | disk | FTP | other *** search
/ Amiga Elysian Archive / AmigaElysianArchive.iso / emulate / xdos302.lzh / cmpPATH < prev    next >
AmigaDOS Script File  |  1989-06-30  |  2KB  |  120 lines
  1. .key src,dst,flg
  2. .def src SOURCE
  3. .def dst DESTINATION
  4. .def flg DEL_COPY
  5. .bra {
  6. .ket }
  7.  
  8. c:echo >ram:datefile "Start = " NOLINE
  9. c:date >>ram:datefile
  10.  
  11. IF {src} EQ SOURCE
  12.     ECHO "Usage: cmpPATH  <SOURCEdir> <DESTINATIONdir> [CMPONLY]"
  13.     QUIT
  14. ENDIF
  15.  
  16. IF NOT EXISTS {src}
  17.     ECHO "SOURCE path does not exist"
  18.     QUIT 20
  19. ENDIF
  20.  
  21. IF NOT EXISTS {dst}
  22.     ECHO "DESTINATION path does not exist"
  23.     QUIT 20
  24. ENDIF
  25.  
  26. IF {flg} NOT EQ CMPONLY
  27.     FAILAT 30
  28.  
  29.     c:info {dst}
  30.  
  31.     c:echo ""
  32.     c:echo "RELABEL {dst} to 'Test Disk'"
  33.     c:relabel {dst} "Test Disk"
  34.  
  35.     c:echo ""
  36.     c:echo "MAKE CURRENT DIRECTORY to {dst}"
  37.  
  38.     c:assign DST: {dst}
  39.  
  40.     c:protect DST:testdir RWED
  41.     c:delete DST:testdir all QUIET
  42.  
  43.     c:echo ""
  44.     c:echo "MAKE DIRECTORY on {dst}"
  45.     c:makedir DST:testdir
  46.     IF FAIL
  47.         SKIP PREEXIT
  48.     ENDIF
  49.  
  50.     c:echo ""
  51.     c:echo "RENAME path across directories on {dst}"
  52.     c:rename DST:#? DST:testdir/#?
  53.     IF FAIL
  54.         SKIP PREEXIT
  55.     ENDIF
  56.  
  57.     c:echo ""
  58.     c:echo "RENAME files back to original path"
  59.     c:rename DST:testdir/#? DST:#?
  60.     IF FAIL
  61.         SKIP PREEXIT
  62.     ENDIF
  63.  
  64.     c:echo ""
  65.     c:echo "SET FILE DATES on {dst} to current date"
  66.     c:setdate DST:#?
  67.     IF FAIL
  68.         SKIP PREEXIT
  69.     ENDIF
  70.  
  71.     c:echo ""
  72.     c:echo "SET FILE ATTRIBUTES on {dst} to 'HSPA' and clear 'RWED'"
  73.     c:protect DST:#? HSPA
  74.     IF FAIL
  75.         SKIP PREEXIT
  76.     ENDIF
  77.  
  78.     c:echo ""
  79.     c:echo "DELETE all files from {dst}"
  80.     delete DST:#? all
  81.     IF WARN
  82.         SKIP PREEXIT
  83.     ENDIF
  84.  
  85.     c:echo ""
  86.     c:echo "SET FILE ATTRIBUTES on {dst} to 'RWED'"
  87.     c:protect DST:#? RWED
  88.     IF FAIL
  89.         SKIP PREEXIT
  90.     ENDIF
  91.  
  92.     c:echo ""
  93.     c:echo "DELETE remaining files from {dst}"
  94.     delete DST:#? all
  95.     IF WARN
  96.         SKIP PREEXIT
  97.     ENDIF
  98.  
  99.     c:info {dst}
  100.  
  101.     c:echo ""
  102.     c:echo "COPY {src} to {dst}"
  103.     c:copy {src} to {dst} all
  104.  
  105.     c:info {dst}
  106.  
  107.     c:FAILAT 5
  108. ENDIF
  109.  
  110. c:echo ""
  111. c:echo "COMPARE {src} to {dst}"
  112. c:cmp {src} {dst} all
  113.  
  114. LAB PREEXIT
  115. c:assign DST:
  116.  
  117. c:echo >>ram:datefile "End   = " NOLINE
  118. c:date >>ram:datefile
  119. c:type ram:datefile
  120. c:QUIT