[SNOBOL4] Parsing text: OnLine Bible to text markup

As a SNOBOL4 script, this gets about as far as I got before getting sidetracked again into other languages. This is a filter converting the NOTES file out of my pre-OSX version of OnLine Bible into docScript, a markup language for my own version (written in REALbasic 3) of Will Duquette's brilliant Notebook.

* notes.sno * parse NOTES file, creating a docScript index page and a list of dependant * docScript pages * * NOTES contains an FF followed by a bible ref followed by a LF followed by * free text until the next FF &amp;TRIM = 1 &amp;ANCHOR = 0 C_FF = CHAR( 12 ) C_CR = CHAR( 13 ) C_LF = CHAR( 10 ) CNT = 0 OFFSET1 = 0 OFFSET2 = 0 PATH = '/Users/bruceaxt/Documents/BrainBucket/docScript/' KEYFILE = PATH "olbstuff.rbt" HDR = '^MClearEdit()^MSetSize(10)^MSetBold(false)^MSetCondense(false)^M' + 'SetExtend(false)^MSetItalic(false)^MSetOutline(false)^MSetShadow(false)^M' + 'SetUnderline(false)^MSetFont("Monaco")^MSetRed(0)^MSetGreen(0)^MSetBlue(0)^M' CVTHDR HDR '^M' = C_CR :S(CVTHDR) BUFFER = INPUT(.NOTES,IO_FINDUNIT(),'B,4096','NOTES') OUTPUT(.KEYFILE,IO_FINDUNIT(),'B',KEYFILE) DEFINE('WRITEFILE(CHUNK)OFFSET') DEFINE('SETTEXT(TEXT)') DEFINE('BLUEON()') DEFINE('BLUEOFF()') KEYFILE = "'olbstuff" C_CR HDR MAIN LINE = NOTES :F(BUFFLD) BUFFER = BUFFER LINE :(MAIN) * At this point we have BUFFER containing the entire text of the file. * Now break at every after the first FF and put that into a file. BUFFLD BUFFER C_FF @OFFSET2 :F(ENDDATA) BUFFER TAB(OFFSET2 - 1) . CHUNK LEN(1) REM . BUFFER WRITEFILE(CHUNK) NOLF CNT = CNT + 1 :(BUFFLD) <br><br>* At this point we have a chunk. Let's see whether the first line contains * anything useful ENDDATA WRITEFILE(BUFFER) * WRITECHUNK(CNT,CHUNK) ENDMAIN :(END) SETTEXT TEXT '"' = '&amp;quot;' :S(SETTEXT) SETTXT2 TEXT '&lt;' = '&amp;lt;' :S(SETTXT2) SETTXT3 TEXT '&gt;' = '&amp;gt;' :S(SETTXT3) SETTXT4 TEXT CHAR(0) = :S(SETTXT4) SETTXT5 TEXT C_LF = '&amp;return;' :S(SETTXT5) SETTEXT = 'settext("' TEXT '")' C_CR :(RETURN) BLUEON BLUEON = 'setblue(255)' C_CR :(RETURN) BLUEOFF BLUEOFF = 'setblue(0)' C_CR :(RETURN) WRITEFILE CHUNK C_LF @OFFSET :F(WF_NOLF) CHUNK TAB(OFFSET - 1) . HEADER LEN(1) REM . CHUNK CLEAN HEADER ':' = '.' :S(CLEAN) CLEAN2 HEADER ' ' = '' :S(CLEAN2) KEYFILE = SETTEXT('[') BLUEON() SETTEXT(HEADER) + BLUEOFF() SETTEXT(']&amp;return;') C_CR WF_NOLF OUTPUT(.OUTFILE,IO_FINDUNIT(),'B',PATH HEADER ".rbt") CLEAN3 TEXT C_LF = '&amp;return;' :S(CLEAN3) OUTFILE = "'" HEADER C_CR HDR SETTEXT(CHUNK) :(RETURN) END