home *** CD-ROM | disk | FTP | other *** search
/ Large Pack of OldSkool DOS MOD Trackers / goattracker_2.73.zip / morphos / ReadMe2Guide.rexx < prev   
OS/2 REXX Batch file  |  2014-07-23  |  853b  |  37 lines
  1. /* $VER: ReadMe2Guide 0.3 $
  2.  * Convert simple ReadMe file to AmigaGuide
  3.  * ⌐ Stefan Haubenthal 2010-2011
  4.  * rx ReadMe2Guide <foo.txt >foo.guide
  5.  */
  6.  
  7. say '@database ""'
  8. say '@author "ReadMe2Guide"'
  9. say '@node Main "Main"'
  10. say '@toc Contents'
  11. if ~eof(stdin) then parse pull last "0d"x
  12. prevnode="Main"
  13. toc=""
  14. do until eof(stdin)
  15.     parse pull curr "0d"x
  16.     if length(curr)>0 & (curr=copies("=", length(last)) | curr=copies("-", length(last))) then
  17.     do
  18.         if prevnode~="Main" then
  19.         do
  20.             say '@endnode'
  21.             say '@node 'compress(last,' "/')' "'compress(last,'"')'"'
  22.             say '@toc Contents'
  23.             toc=toc'@{"'compress(last,'"')'" link 'compress(last,' "/')'}'"0a"x
  24.         end
  25.         prevnode=last
  26.     end
  27.     /* escape at-sign */
  28.     if pos("@", last)>0 then
  29.         say insert("\", last, pos("@", last)-1)
  30.     else
  31.         say last
  32.     last=curr
  33. end
  34. say '@endnode'
  35. say '@node Contents'
  36. say toc'@endnode'
  37.