Thanks for the name-check, Michael, but I do not deserve the "Mr.
Parse" moniker. John Chapman did not invent the apple-seed, he merely
travelled the country planting nurseries for others to tend.
-Chip-
On 1/23/2023 10:50 AM, Michael Lueck wrote:
Greetings ooRexx'ers,
CV Bruce wrote:
It kind of seems like the days when people checked the assembler
created by the compiler to make sure the compiler was “doing it
right”.
Those were the days.
Or former MS developer Dave Plumber writing Windows GUI code in
Assembly here:
Hello, Assembly! Retrocoding the World's Smallest Windows App in x86
ASM
https://www.youtube.com/watch?v=b0zxIfJJLAY
Also this was an impressive video....
Comparing C to machine language
https://www.youtube.com/watch?v=yOyaJXpAYZQ
I do not suspect any AI tool will "think" of the wizardry of MFC and
Mr. Parse (aka Chip) at RexxLA Symposiums back in the early 2000's....
#!/usr/local/bin/rexx
trace a
delimtag = ' '
instr = ' This is a line break! Another
line break also! '
linebreak = X2C('0A')
.output~LineOut(instr)
/* Strip instr to set initial value of AP we will be processing */
AP = instr~strip()
.output~LineOut(AP)
OUTline = ''
/* Optimizing thanks to MFC & MrParse */
do forever
parse var AP BP (delimtag) AP
/* Strip the Left side of the value in AP */
AP = AP~strip('L')
/* Check to see if we are at the end of the line */
if AP = '' then leave
/* Basically this is a final else, attach it to the output */
OUTline = OUTline || BP || linebreak
.output~LineOut(OUTline)
end /* do forever */
OUTline = OUTline || BP
.output~LineOut(OUTline)
exit 0
I have used that format of parse line many times since then.... and
always I leave behind:
/* Optimizing thanks to MFC & MrParse */
in the code just before the parse call.
I am thankful,
_______________________________________________
Oorexx-devel mailing list
Oorexx-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/oorexx-devel
