home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 3 / AACD03.BIN / AACD / CDROM / RumeoAndJoliet / rumeo < prev    next >
AmigaDOS Script File  |  1999-10-15  |  4KB  |  135 lines
  1. .key CDLIST/A,SOURCECD/A,DESTPATH/A,OUTFILE/K,INCLUDERE/K,EXCLUDERE/K
  2. .bra {
  3. .ket }
  4.  
  5. ;
  6. ; Rumeo, the Joliet CD renamer
  7. ; By Jean-François Fabre 1999
  8. ;
  9. ; This script is part of the J.A.S.T software (JOTD Amiga Shell Tools)
  10. ; I think it's rather boring to write such a tool in C because of
  11. ; all the regular expression tools used here such as grep and sed,
  12. ; which as you can see are very powerful, and are of great help
  13. ; in the Amiga and Win9x world.
  14.  
  15. ; CDLIST: dirlist from a PC (ex: PC1:cdlist.txt)
  16. ; SOURCECD: CD mounted on the amiga (ex: CD0:)
  17. ; DESTPATH: destination (ex: BIG:MPEG3)
  18. ; OUTFILE: if specified, no copy done, copy script generated in OUTFILE
  19. ; INCLUDERE: regular expression to filter the list
  20. ; EXCLUDERE: regular expression to filter the list (remove the matching lines)
  21.  
  22. ; This program needs:
  23. ;
  24. ; * interlace_files (home-made tool)
  25. ; * simplecopy (home-made tool)
  26. ; * gnused (GNU version of sed)
  27. ; * grep (GNU version of grep)
  28. ; * tr (any version is OK)
  29. ; * multifr (from Lionel Vintenat)
  30. ; * uniq (any version is OK)
  31. ; * mkdir (GNU version is OK, Amiga makedir lacks -p option)
  32. ; * sort (amigaOS)
  33. ; * find (amigaOS external command)
  34. ;
  35. ; NOTES:
  36. ; 
  37. ; - The amiga LIST command is buggy with dirnames containing the ~ character
  38. ;   (loops forever) that's why I used find instead
  39. ;
  40. ; - mkdir is needed because of the -p option that amiga makedir does not have
  41. ;
  42. ; - GNU sed works, minix sed exits because of RE too big
  43. ; 
  44. ; - simplecopy copies the files just like copy, but no problem with ~ names
  45. ;
  46. ; - Set stack to at least 20000 bytes (grep needs lots of stack space)
  47.  
  48. ; all those tools are included in the distribution
  49.  
  50. ; set environment variables
  51.  
  52. set OUTFILE ""
  53. set OUTFILE {OUTFILE}
  54.  
  55. set SED gnused        ; change by sed if necessary
  56.  
  57. set EXCLUDERE "{EXCLUDERE}"
  58. set INCLUDERE "{INCLUDERE}"
  59.  
  60. ; replace \ by /
  61.  
  62. tr "\\" "/" < {CDLIST} > T:cdlist.2
  63.  
  64. ; suppress shitty ^M (PC linefeed)
  65.  
  66. tr -d "\015" < T:cdlist.2 > T:cdlist
  67.  
  68. ; replace the CD volume name by the destination name
  69. ; suppress spaces and cut names bigger than 30 characters
  70.  
  71. $SED -e "s#(.**)##g" -e "s#.**:#{DESTPATH}#" -e "s#[' ][' ]**##g" -e "s#^\(.**/[^/][^/][^/][^/][^/][^/][^/][^/][^/][^/][^/][^/][^/][^/][^/][^/][^/][^/][^/][^/][^/][^/][^/][^/][^/]\)[^/]**\.\([^/]**\)#\1.\2#" T:cdlist > T:cdlist.2
  72. sort T:cdlist.2 TO T:cdlist.3
  73.  
  74. $SED "s#\(.**\)/.***$#mkdir -p *"\1*"#" T:cdlist.2 > T:cddirs.1
  75. uniq T:cddirs.1 > T:cddirs.2
  76.  
  77. ; unable to use list here: it's buggy with names with ~ in it !!
  78.  
  79. ;;;list LFORMAT %f%s FILES ALL {SOURCECD} > T:cdamiga.1
  80. find #? {SOURCECD} > T:cdamiga.1
  81.  
  82. interlace_files T:cdamiga.1 T:cdlist.3 > T:cddirs.4
  83. $SED "s#.**#simplecopy &#" T:cddirs.4 >> T:cddirs.2
  84.  
  85. ; remove braces and text within them
  86. ; replace :/ by :
  87.  
  88. $SED -e "s#(.**)##g" -e "s#:/#:#" T:cddirs.2 > T:cddirs.1
  89.  
  90. ; if INCLUDERE is set, consider lines only if they match the
  91. ; regexp passed in argument
  92.  
  93. if NOT EQ "$INCLUDERE.k" ".k"
  94.   grep -i "$INCLUDERE" T:cddirs.1 > T:cddirs.2
  95.   copy T:cddirs.2 T:cddirs.1
  96. endif
  97.  
  98. ; if EXCLUDERE is set, discard lines matching the
  99. ; regexp passed in argument
  100.  
  101. if NOT EQ "$EXCLUDERE.k" ".k"
  102.   grep -i -v "$EXCLUDERE" T:cddirs.1 > T:cddirs.2
  103.   copy T:cddirs.2 T:cddirs.1
  104. endif
  105.  
  106. ; remove the accents if any
  107.  
  108. multifr >NIL: HFS 82 RS e T:cddirs.1
  109. multifr >NIL: HFS 88 RS e T:cddirs.1
  110. multifr >NIL: HFS 8A RS e T:cddirs.1
  111. multifr >NIL: HFS 8B RS i T:cddirs.1
  112. multifr >NIL: HFS 93 RS o T:cddirs.1
  113.  
  114. ; if OUTFILE is not set, directly run the copy script
  115.  
  116. if EQ "$OUTFILE.k" "$OUTFILE"
  117.   execute T:cddirs.1
  118. else
  119.   copy T:cddirs.1 $OUTFILE
  120.   protect $OUTFILE s add
  121. endif
  122.  
  123. ; cleanup env variables
  124.  
  125. unset OUTFILE
  126. unset INCLUDERE
  127. unset EXCLUDERE
  128. unset SED
  129.  
  130. ; cleanup
  131.  
  132. delete T:cd#? quiet
  133.  
  134. ; end
  135.