From 15a5605c0fe0da345dacb61f295e6ca7e03c16a2 Mon Sep 17 00:00:00 2001 From: Hubert Maier Date: Thu, 25 Jan 2018 12:38:04 +0100 Subject: AMIGA: Small rewrite of RM2AG.rx GitHub´s utf-8 converter adds a char and changes the file when using characters like "°". Slightly rewritten the rexx script to use "<>" as marker and adjust the rest to take the new two-char marker into account (instead of the one-char marker that was used before).--- dists/amiga/RM2AG.rx | 60 ++++++++++++++++++++++++++-------------------------- 1 file changed, 30 insertions(+), 30 deletions(-) (limited to 'dists/amiga/RM2AG.rx') diff --git a/dists/amiga/RM2AG.rx b/dists/amiga/RM2AG.rx index c29ab6fe19..25f82ab28a 100644 --- a/dists/amiga/RM2AG.rx +++ b/dists/amiga/RM2AG.rx @@ -1,5 +1,5 @@ /* -README to .guide converter $VER: RM2AG.rx 0.14 (29.12.2017) +README to .guide converter $VER: RM2AG.rx 0.15 (25.01.2018) This script converts the pure ASCII-text based README file of ScummVM to a basic Amiga guide file. @@ -43,59 +43,59 @@ DO WHILE EOF(readme_read) = 0 working_line=READLN(readme_read) /* Checking if the sub links have been reached and leave the loop, if met */ - IF POS('°1.0°',working_line) = 1 & x > 1 THEN + IF POS('<>1.0<>',working_line) = 1 & x > 1 THEN LEAVE /* If no chapter has been found, simply write the line */ - IF POS('°',working_line) = 0 THEN + IF POS('<>',working_line) = 0 THEN WRITELN(guide_write,working_line) /* Fix the empty chapters - two chapters (1.0 and 7.8) are empty and consist of only the headlines. We add them to the following chapter and link both of them to the empty one */ /* If chapter 1.1 is found add a link node to 1.0 (as chapter 1.0 is empty) */ - IF POS(' * °1.1°',working_line) = 1 THEN DO + IF POS(' * <>1.1<>',working_line) = 1 THEN DO /* Get rid of the markers so the following loops doesn't process them again */ - working_line=COMPRESS(working_line,'*°') + working_line=COMPRESS(working_line,'*<>') WRITELN(guide_write,' @{" 1.1 " Link "1.0"} 'working_line) END /* If chapter 7.8.1 is found add a link node to 7.8 (as chapter 7.8 is empty) */ - IF POS(' * * °7.8.1°',working_line) = 1 THEN DO + IF POS(' * * <>7.8.1<>',working_line) = 1 THEN DO /* Get rid of the markers so the following loops doesn't process them again */ - working_line=COMPRESS(working_line,'*°') + working_line=COMPRESS(working_line,'*<>') WRITELN(guide_write,' @{" 7.8.1 " Link "7.8"} 'working_line) END /* If a single number main chapter is found 1.0 upto 9.0), prepare and write the link node */ - IF POS('.0',working_line) = 3 THEN DO + IF POS('.0',working_line) = 4 THEN DO WRITELN(guide_write,' ') - WRITELN(guide_write,' @{" 'SUBSTR(working_line,POS('°',working_line)+1,LASTPOS('°',working_line)-POS('°',working_line)-1) '" Link "'SUBSTR(working_line,POS('°',working_line)+1,LASTPOS('°',working_line)-POS('°',working_line)-1)'"} 'COMPRESS(working_line,'*°')) + WRITELN(guide_write,' @{" 'SUBSTR(working_line,POS('<>',working_line)+2,LASTPOS('<>',working_line)-POS('<>',working_line)-2) '" Link "'SUBSTR(working_line,POS('<>',working_line)+2,LASTPOS('<>',working_line)-POS('<>',working_line)-2)'"} 'COMPRESS(working_line,'*<>')) /* Get rid of the markers so the following loops doesn't process them again */ - working_line=COMPRESS(working_line,'*°') + working_line=COMPRESS(working_line,'*<>') x=x+1 END /* If a double number main chapter is found (10.0 ff), prepare and write the link node */ - IF POS('.0',working_line) = 4 THEN DO + IF POS('.0',working_line) = 5 THEN DO WRITELN(guide_write,' ') - WRITELN(guide_write,' @{" 'SUBSTR(working_line,POS('°',working_line)+1,LASTPOS('°',working_line)-POS('°',working_line)-1) '" Link "'SUBSTR(working_line,POS('°',working_line)+1,LASTPOS('°',working_line)-POS('°',working_line)-1)'"} 'COMPRESS(working_line,'*°')) + WRITELN(guide_write,' @{" 'SUBSTR(working_line,POS('<>',working_line)+2,LASTPOS('<>',working_line)-POS('<>',working_line)-2) '" Link "'SUBSTR(working_line,POS('<>',working_line)+2,LASTPOS('<>',working_line)-POS('<>',working_line)-2)'"} 'COMPRESS(working_line,'*<>')) /* Get rid of the markers so the following loops doesn't process them again */ - working_line=COMPRESS(working_line,'*°') + working_line=COMPRESS(working_line,'*<>') END /* If a level one sub chapter is found (i.e. 1.1), prepare and write the link node */ - IF POS(' * °',working_line) = 1 THEN DO - WRITELN(guide_write,' @{" 'SUBSTR(working_line,POS('°',working_line)+1,LASTPOS('°',working_line)-POS('°',working_line)-1) '" Link "'SUBSTR(working_line,POS('°',working_line)+1,LASTPOS('°',working_line)-POS('°',working_line)-1)'"} 'COMPRESS(working_line,'*°')) + IF POS(' * <>',working_line) = 1 THEN DO + WRITELN(guide_write,' @{" 'SUBSTR(working_line,POS('<>',working_line)+2,LASTPOS('<>',working_line)-POS('<>',working_line)-2) '" Link "'SUBSTR(working_line,POS('<>',working_line)+2,LASTPOS('<>',working_line)-POS('<>',working_line)-2)'"} 'COMPRESS(working_line,'*<>')) /* Get rid of the markers so the following loops doesn't process them again */ - working_line=COMPRESS(working_line,'*°') + working_line=COMPRESS(working_line,'*<>') END /* If a level two sub chapter is found (i.e. 1.1.1), prepare and write the link node */ - IF POS(' * * °',working_line) = 1 THEN DO - WRITELN(guide_write,' @{" 'SUBSTR(working_line,POS('°',working_line)+1,LASTPOS('°',working_line)-POS('°',working_line)-1) '" Link "'SUBSTR(working_line,POS('°',working_line)+1,LASTPOS('°',working_line)-POS('°',working_line)-1)'"} 'COMPRESS(working_line,'*°')) + IF POS(' * * <>',working_line) = 1 THEN DO + WRITELN(guide_write,' @{" 'SUBSTR(working_line,POS('<>',working_line)+2,LASTPOS('<>',working_line)-POS('<>',working_line)-2) '" Link "'SUBSTR(working_line,POS('<>',working_line)+2,LASTPOS('<>',working_line)-POS('<>',working_line)-2)'"} 'COMPRESS(working_line,'*<>')) /* Get rid of the markers so the following loops doesn't process them again */ - working_line=COMPRESS(working_line,'*°') + working_line=COMPRESS(working_line,'*<>') END END @@ -109,40 +109,40 @@ WRITELN(guide_write,'----------------------------------------------------------- /* Creating the sub links nodes */ DO WHILE EOF(readme_read) = 0 /* If no chapter has been found, simply write the line */ - IF POS('°',working_line) = 0 THEN + IF POS('<>',working_line) = 0 THEN WRITELN(guide_write,working_line) /* Fix the empty chapters - two chapters (1.0 and 7.8) are empty and consist of only the Headlines. We don't close the NODE, rather add the following chapter to the former empty one */ /* If chapter 1.1 is found don't close the NODE, just write the line */ - IF POS('°1.1°',working_line) = 1 THEN DO + IF POS('<>1.1<>',working_line) = 1 THEN DO /* Get rid of the markers so the following loops doesn't process them again */ - working_line=COMPRESS(working_line,'°') + working_line=COMPRESS(working_line,'<>') WRITELN(guide_write,working_line) END /* If chapter 7.8.1 is found don't close the NODE, just write the line */ - IF POS('°7.8.1°',working_line) = 1 THEN DO + IF POS('<>7.8.1<>',working_line) = 1 THEN DO /* Get rid of the markers so the following loops doesn't process them again */ - working_line=COMPRESS(working_line,'°') + working_line=COMPRESS(working_line,'<>') WRITELN(guide_write,working_line) END - IF POS('°',working_line) > 0 THEN DO + IF POS('<>',working_line) > 0 THEN DO /* Check for link references inside the text and create link nodes for them */ - IF POS('section °',working_line) > 0 THEN DO - working_line=SUBSTR(working_line,1,POS('°',working_line)-1)'@{"'SUBSTR(working_line,POS('°',working_line)+1,LASTPOS('°',working_line)-POS('°',working_line)-1)'" Link "'SUBSTR(working_line,POS('°',working_line)+1,LASTPOS('°',working_line)-POS('°',working_line)-1)'"}'SUBSTR(working_line,LASTPOS('°',working_line)+1) + IF POS('section <>',working_line) > 0 THEN DO + working_line=SUBSTR(working_line,1,POS('<>',working_line)-1)'@{"'SUBSTR(working_line,POS('<>',working_line)+2,LASTPOS('<>',working_line)-POS('<>',working_line)-2)'" Link "'SUBSTR(working_line,POS('<>',working_line)+2,LASTPOS('<>',working_line)-POS('<>',working_line)-2)'"}'SUBSTR(working_line,LASTPOS('<>',working_line)+2) /* Get rid of the markers so the following loops doesn't process them again */ - WRITELN(guide_write,COMPRESS(working_line,'°')) + WRITELN(guide_write,COMPRESS(working_line,'<>')) END ELSE DO /* If a chapter has been found, prepare and write the link */ WRITELN(guide_write,'@ENDNODE') - WRITELN(guide_write,'@NODE "'SUBSTR(working_line,POS('°',working_line)+1,LASTPOS('°',working_line)-POS('°',working_line)-1)'" "'COMPRESS(working_line,'°')'"') + WRITELN(guide_write,'@NODE "'SUBSTR(working_line,POS('<>',working_line)+2,LASTPOS('<>',working_line)-POS('<>',working_line)-2)'" "'COMPRESS(working_line,'<>')'"') WRITELN(guide_write,' ') /* Get rid of the markers so the following loops doesn't process them again */ - WRITELN(guide_write,COMPRESS(working_line,'°')) + WRITELN(guide_write,COMPRESS(working_line,'<>')) END END -- cgit v1.2.3