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