thirdparty/scummvm
2
0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

AMIGAOS4: RM2AG.rexx rewrite

Browse source 
closes #1631
This commit is contained in:
Hubert Maier 2019-06-06 14:46:11 +02:00 • committed by Lothar Serra Mari
parent a2cc90bf9b
commit 0bb8c0c8a6
4 changed files with 460 additions and 110 deletions
Download patch file Download diff file Expand all files Collapse all files

2
backends/platform/sdl/amigaos/amigaos.mk
View file

@ -10,7 +10,7 @@ amigaosdist: $(EXECUTABLE)
ifdef DIST_FILES_ENGINEDATA
cp $(DIST_FILES_ENGINEDATA) $(AMIGAOSPATH)/extras/
endif
cat ${srcdir}/README | sed -f ${srcdir}/dists/amiga/convertRM.sed > README.conv
cat ${srcdir}/README.md | sed -f ${srcdir}/dists/amiga/convertRM.sed > README.conv
# AmigaOS's shell is not happy with indented comments, thus don't do it.
# AREXX seems to have problems when ${srcdir} is '.'. It will break with a
# "Program not found" error. Therefore we copy the script to the cwd and

1
devtools/update-version.pl
View file

@ -49,6 +49,7 @@ my @subs_files = qw(
dists/gph/README-GPH
dists/gph/scummvm.ini
dists/riscos/!Boot,feb
dists/amiga/RM2AG.rexx
backends/platform/psp/README.PSP
snapcraft.yaml
);

311
dists/amiga/RM2AG.rexx
View file

@ -1,162 +1,255 @@
/*
README to .guide converter $VER: RM2AG.rexx 0.15 (25.01.2018)
README(.md) to .guide converter $VER: RM2AG.rexx 0.20 (18.05.2019)
This script converts the pure ASCII-text based README file of ScummVM to a
basic Amiga guide file.
More AmigaGuide features being added in the process if feasible.
This script converts a given markdown README file of ScummVM to a basic
hypertext Amiga guide file.
*/
PARSE ARG readme_txt
PARSE ARG readme_md
/* Check if the given file is really the readme */
/* If a given filename has spaces in it's name, AmigaDOS/AmigaCLI will add extra quotation marks
to secure a sane working path. We get rid of them to make AREXX find the file */
readme_txt=COMPRESS(readme_txt,'"')
OPEN(check_readme,readme_txt,'R')
IF READCH(check_readme,14) = 'ScummVM README' THEN
/*
Check if the given file is really the readme.
If a given filename has spaces, AmigaDOS/AmigaCLI will add extra
quotation marks to secure a sane working path. We get rid of them to make
AREXX find the file.
*/
readme_md=COMPRESS(readme_md,'"')
OPEN(check_readme,readme_md,'R')
IF READCH(check_readme,18) = '# [ScummVM README]' THEN
CLOSE(check_readme)
ELSE DO
SAY "Not the README file. Aborting!"
CLOSE(readme_read)
EXIT 20
SAY "Not the ScummVM README.md file. Aborting!"
CLOSE(check_readme)
EXIT 0
END
/* If it's the proper file, lets start converting */
OPEN(readme_read,readme_txt,'R')
OPEN(readme_read,readme_md,'R')
OPEN(guide_write,'README.guide','W')
/* Prepare the Amiga guide file, add the intro and fixed text */
/*
Prepare the Amiga guide file, add the intro and fixed text.
*/
WRITELN(guide_write,'@DATABASE ScummVM README.guide')
WRITELN(guide_write,'@$VER: ScummVM Readme 2.0.0 (17.12.2017)')
WRITELN(guide_write,'@(C) by The ScummVM team')
WRITELN(guide_write,'@AUTHOR The ScummVM team')
WRITELN(guide_write,'@WORDWRAP')
WRITELN(guide_write,'@NODE "main" "ScummVM README Guide"')
WRITELN(guide_write,' ')
WRITELN(guide_write,'@{b}')
WRITELN(guide_write,READLN(readme_read))
WRITELN(guide_write,SUBSTR(READLN(readme_read),4,14))
WRITELN(guide_write,'@{ub}')
/* Creating the main link nodes */
x=1
/*
Creating the main (TOC) link nodes.
*/
DO WHILE EOF(readme_read) = 0
/* Read in the line */
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
/*
Check for the start of actual the content and, if found, leave the
TOC link loop.
*/
IF POS('## <>1.0<>)',working_line) = 1 THEN
LEAVE
/* If no chapter has been found, simply write the line */
IF POS('<>',working_line) = 0 THEN
/*
Check for any "rolled over" lines, if found, read in the rest (on the
following line) and rejoin them again, before processing any further.
e.g. - [<>3.6.3<>) Broken Sword games
cutscenes](#363-broken-sword-games-cutscenes)
*/
IF POS('- [<>',working_line) > 0 THEN DO
IF POS('(#',working_line) = 0 THEN DO
rejoin_line=COMPRESS(READLN(readme_read),' ')
working_line=working_line rejoin_line
END
END
/*
If no chapter has been found, simply write the line and skip the rest.
*/
IF POS('- [',working_line) = 0 THEN
WRITELN(guide_write,working_line)
ELSE DO
/*
Fix the empty chapters:
Two chapters (1.0 and 7.8) are "empty", consisting of only it's
chapter names. We link them to their respective sub chapters
(1.1 and 7.8.1), so we don't end up displaying a blank page.
If chapter 1.0 is found, add a link node to chapter 1.1.
*/
IF POS(' - [<>1.0<>)',working_line) = 1 THEN DO
/*
Get rid of the markers, so the following loops won't process
them again.
*/
working_line=COMPRESS(working_line,'-[<>')
WRITELN(guide_write,' @{" 1.0 " Link "1.1"} 'SUBSTR(working_line,1,LASTPOS(']',working_line)-1))
END
/* 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 7.8 is found, add a link node to 7.8.1.
*/
IF POS(' - [<>7.8<>)',working_line) = 1 THEN DO
/*
Get rid of the markers, so the following loops won't process
them again.
*/
working_line=COMPRESS(working_line,'-[<>')
WRITELN(guide_write,' @{" 7.8 " Link "7.8.1"} 'SUBSTR(working_line,1,LASTPOS(']',working_line)-1))
END
/* 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
/* Get rid of the markers so the following loops doesn't process them again */
working_line=COMPRESS(working_line,'*<>')
WRITELN(guide_write,' @{" 1.1 " Link "1.0"} 'working_line)
END
/*
If a single number main chapter is found (1.0 upto 9.0), prepare
and write the link node.
Just for the record:
A "\" (backslash) is treated as escape character in AmigaGuides.
Thus we remove it from the node links.
*/
IF POS('- [<>',working_line) = 3 THEN DO
WRITELN(guide_write,' ')
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(SUBSTR(working_line,1,LASTPOS(']',working_line)-1),'*<>[]\'))
/*
Get rid of the markers, so the following loops won't process
them again.
*/
working_line=COMPRESS(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
/* Get rid of the markers so the following loops doesn't process them again */
working_line=COMPRESS(working_line,'*<>')
WRITELN(guide_write,' @{" 7.8.1 " Link "7.8"} 'working_line)
END
/*
If a single number level one sub chapter is found
(i.e. 1.1, 1.2 etc.), prepare and write the link node.
*/
IF POS('- [<>',working_line) = 7 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(SUBSTR(working_line,1,LASTPOS(']',working_line)-1),'*<>[]\'))
/*
Get rid of the markers, so the following loops won't process
them again.
*/
working_line=COMPRESS(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) = 4 THEN DO
WRITELN(guide_write,' ')
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,'*<>')
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) = 5 THEN DO
WRITELN(guide_write,' ')
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,'*<>')
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)+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,'*<>')
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)+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,'*<>')
/*
If a level two sub chapter is found (i.e. 3.6.1, 3.6.2 etc.),
prepare and write the link node.
*/
IF POS('- [<>',working_line) = 11 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(SUBSTR(working_line,1,LASTPOS(']',working_line)-1),'*<>[]\'))
/*
Get rid of the markers, so the following loops won't process
them again.
*/
working_line=COMPRESS(working_line,'.[<>')
END
END
END
/* Finish the TOC, hardcoded due the outro text getting read in last, but needs to be read/written after the TOC creation */
WRITELN(guide_write,'------------------------------------------------------------------------')
/*
Finish the TOC (Hardcoded due the outro text would be read in last, but
needs to be written after the TOC creation).
*/
WRITELN(guide_write,'-----')
WRITELN(guide_write,' ')
WRITELN(guide_write,'Good Luck and Happy Adventuring!')
WRITELN(guide_write,'The ScummVM team.')
WRITELN(guide_write,'@{"https://www.scummvm.org/" System "URLOpen https://www.scummvm.org/"}')
WRITELN(guide_write,'------------------------------------------------------------------------')
/* Creating the sub links nodes */
/*
Creating the sub link nodes.
*/
DO WHILE EOF(readme_read) = 0
/* If no chapter has been found, simply write the line */
/*
Change the html/markdown links to AmigaGuide ones
*/
IF POS('[here](',working_line) > 0 THEN DO
working_line=INSERT('@{"',working_line,POS('[',working_line)-1)
working_line=INSERT('" link ',working_line,POS(']',working_line))
working_line=INSERT('/main}',working_line,POS(')',working_line))
working_line=COMPRESS(working_line,'()')
END
/*
If no chapter has been found, simply write the line and skip the rest.
*/
IF POS('<>',working_line) = 0 THEN
WRITELN(guide_write,working_line)
ELSE DO
/*
Fix empty chapters:
Two chapters (1.0 and 7.8) are "empty", consisting of only it's
chapter names. We link them to their respective sub chapters
(1.1 and 7.8.1), so we don't end up displaying a blank page.
/* 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
/* Get rid of the markers so the following loops doesn't process them again */
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
/* Get rid of the markers so the following loops doesn't process them again */
working_line=COMPRESS(working_line,'<>')
WRITELN(guide_write,working_line)
END
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)+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 */
If chapter 1.1 is found don't close the NODE, just write the line.
*/
IF POS('<>1.1<>',working_line) = 1 THEN DO
/*
Get rid of the markers, so the following loops won't process
them again.
*/
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)+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,'<>'))
/*
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
/*
Get rid of the markers, so the following loops won't process
them again.
*/
WRITELN(guide_write,COMPRESS(working_line,'<>'))
END
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)+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 won't
process them again.
*/
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)+2,LASTPOS('<>',working_line)-POS('<>',working_line)-2)'" "'COMPRESS(working_line,'<>#')'"')
WRITELN(guide_write,' ')
/*
Get rid of the markers, so the following loops won't process
them again.
*/
WRITELN(guide_write,COMPRESS(working_line,'<>'))
END
END
END
/* Read in the line at the end of the second loop, as the first line to work with was already read in on the end of the first loop */
/*
Read in the line at the end of the second loop, as the first line to
work with was already read in on the end of the first loop.
*/
working_line=READLN(readme_read)
/* If the outtro text is found, leave the loop and prepare for closing */
IF POS('------------------------------------------------------------------------',working_line) > 0 THEN
/*
If the outtro text is found, leave the loop and prepare for closing.
*/
IF POS('-----',working_line,1) =1 THEN
LEAVE
END
WRITELN(guide_write,'@ENDNODE')
/* Closing the guide and cleaning up */
/*
Close the guide and clean up.
*/
WRITELN(guide_write,'@ENDNODE')
CLOSE(readme_read)

256
dists/amiga/RM2AG.rexx.in Normal file
View file

@ -0,0 +1,256 @@
/*
README(.md) to .guide converter $VER: RM2AG.rexx 0.20 (18.05.2019)
This script converts a given markdown README file of ScummVM to a basic
hypertext Amiga guide file.
*/
PARSE ARG readme_md
/*
Check if the given file is really the readme.
If a given filename has spaces, AmigaDOS/AmigaCLI will add extra
quotation marks to secure a sane working path. We get rid of them to make
AREXX find the file.
*/
readme_md=COMPRESS(readme_md,'"')
OPEN(check_readme,readme_md,'R')
IF READCH(check_readme,18) = '# [ScummVM README]' THEN
CLOSE(check_readme)
ELSE DO
SAY "Not the ScummVM README.md file. Aborting!"
CLOSE(check_readme)
EXIT 0
END
OPEN(readme_read,readme_md,'R')
OPEN(guide_write,'README.guide','W')
/*
Prepare the Amiga guide file, add the intro and fixed text.
*/
WRITELN(guide_write,'@DATABASE ScummVM README.guide')
WRITELN(guide_write,'@$VER: ScummVM Readme @VERSION@')
WRITELN(guide_write,'@(C) by The ScummVM team')
WRITELN(guide_write,'@AUTHOR The ScummVM team')
WRITELN(guide_write,'@WORDWRAP')
WRITELN(guide_write,'@NODE "main" "ScummVM README Guide"')
WRITELN(guide_write,'@{b}')
WRITELN(guide_write,SUBSTR(READLN(readme_read),4,14))
WRITELN(guide_write,'@{ub}')
/*
Creating the main (TOC) link nodes.
*/
DO WHILE EOF(readme_read) = 0
working_line=READLN(readme_read)
/*
Check for the start of actual the content and, if found, leave the
TOC link loop.
*/
IF POS('## <>1.0<>)',working_line) = 1 THEN
LEAVE
/*
Check for any "rolled over" lines, if found, read in the rest (on the
following line) and rejoin them again, before processing any further.
e.g. - [<>3.6.3<>) Broken Sword games
cutscenes](#363-broken-sword-games-cutscenes)
*/
IF POS('- [<>',working_line) > 0 THEN DO
IF POS('(#',working_line) = 0 THEN DO
rejoin_line=COMPRESS(READLN(readme_read),' ')
working_line=working_line rejoin_line
END
END
/*
If no chapter has been found, simply write the line and skip the rest.
*/
IF POS('- [',working_line) = 0 THEN
WRITELN(guide_write,working_line)
ELSE DO
/*
Fix the empty chapters:
Two chapters (1.0 and 7.8) are "empty", consisting of only it's
chapter names. We link them to their respective sub chapters
(1.1 and 7.8.1), so we don't end up displaying a blank page.
If chapter 1.0 is found, add a link node to chapter 1.1.
*/
IF POS(' - [<>1.0<>)',working_line) = 1 THEN DO
/*
Get rid of the markers, so the following loops won't process
them again.
*/
working_line=COMPRESS(working_line,'-[<>')
WRITELN(guide_write,' @{" 1.0 " Link "1.1"} 'SUBSTR(working_line,1,LASTPOS(']',working_line)-1))
END
/*
If chapter 7.8 is found, add a link node to 7.8.1.
*/
IF POS(' - [<>7.8<>)',working_line) = 1 THEN DO
/*
Get rid of the markers, so the following loops won't process
them again.
*/
working_line=COMPRESS(working_line,'-[<>')
WRITELN(guide_write,' @{" 7.8 " Link "7.8.1"} 'SUBSTR(working_line,1,LASTPOS(']',working_line)-1))
END
/*
If a single number main chapter is found (1.0 upto 9.0), prepare
and write the link node.
Just for the record:
A "\" (backslash) is treated as escape character in AmigaGuides.
Thus we remove it from the node links.
*/
IF POS('- [<>',working_line) = 3 THEN DO
WRITELN(guide_write,' ')
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(SUBSTR(working_line,1,LASTPOS(']',working_line)-1),'*<>[]\'))
/*
Get rid of the markers, so the following loops won't process
them again.
*/
working_line=COMPRESS(working_line,'-[<>')
END
/*
If a single number level one sub chapter is found
(i.e. 1.1, 1.2 etc.), prepare and write the link node.
*/
IF POS('- [<>',working_line) = 7 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(SUBSTR(working_line,1,LASTPOS(']',working_line)-1),'*<>[]\'))
/*
Get rid of the markers, so the following loops won't process
them again.
*/
working_line=COMPRESS(working_line,'.[<>')
END
/*
If a level two sub chapter is found (i.e. 3.6.1, 3.6.2 etc.),
prepare and write the link node.
*/
IF POS('- [<>',working_line) = 11 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(SUBSTR(working_line,1,LASTPOS(']',working_line)-1),'*<>[]\'))
/*
Get rid of the markers, so the following loops won't process
them again.
*/
working_line=COMPRESS(working_line,'.[<>')
END
END
END
/*
Finish the TOC (Hardcoded due the outro text would be read in last, but
needs to be written after the TOC creation).
*/
WRITELN(guide_write,'-----')
WRITELN(guide_write,' ')
WRITELN(guide_write,'Good Luck and Happy Adventuring!')
WRITELN(guide_write,'The ScummVM team.')
WRITELN(guide_write,'@{"https://www.scummvm.org/" System "URLOpen https://www.scummvm.org/"}')
/*
Creating the sub link nodes.
*/
DO WHILE EOF(readme_read) = 0
/*
Change the html/markdown links to AmigaGuide ones
*/
IF POS('[here](',working_line) > 0 THEN DO
working_line=INSERT('@{"',working_line,POS('[',working_line)-1)
working_line=INSERT('" link ',working_line,POS(']',working_line))
working_line=INSERT('/main}',working_line,POS(')',working_line))
working_line=COMPRESS(working_line,'()')
END
/*
If no chapter has been found, simply write the line and skip the rest.
*/
IF POS('<>',working_line) = 0 THEN
WRITELN(guide_write,working_line)
ELSE DO
/*
Fix empty chapters:
Two chapters (1.0 and 7.8) are "empty", consisting of only it's
chapter names. We link them to their respective sub chapters
(1.1 and 7.8.1), so we don't end up displaying a blank page.
If chapter 1.1 is found don't close the NODE, just write the line.
*/
IF POS('<>1.1<>',working_line) = 1 THEN DO
/*
Get rid of the markers, so the following loops won't process
them again.
*/
WRITELN(guide_write,COMPRESS(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
/*
Get rid of the markers, so the following loops won't process
them again.
*/
WRITELN(guide_write,COMPRESS(working_line,'<>'))
END
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)+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 won't
process them again.
*/
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)+2,LASTPOS('<>',working_line)-POS('<>',working_line)-2)'" "'COMPRESS(working_line,'<>#')'"')
WRITELN(guide_write,' ')
/*
Get rid of the markers, so the following loops won't process
them again.
*/
WRITELN(guide_write,COMPRESS(working_line,'<>'))
END
END
END
/*
Read in the line at the end of the second loop, as the first line to
work with was already read in on the end of the first loop.
*/
working_line=READLN(readme_read)
/*
If the outtro text is found, leave the loop and prepare for closing.
*/
IF POS('-----',working_line,1) =1 THEN
LEAVE
END
WRITELN(guide_write,'@ENDNODE')
/*
Close the guide and clean up.
*/
WRITELN(guide_write,'@ENDNODE')
CLOSE(readme_read)
CLOSE(guide_write)
EXIT 0