×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
I was looking at the first draft of a write up I did on use of the
XML-SAX opcode. We have local governments that export their database
in XML format. I wrote a first program to preface each piece of data
with all the tags preceding it. That allows the second program to know
which file, and data item within that file, correspond to the exported
data. I use those tags to do a lookup against the data's tags, to find
a procedure pointer pointing to the appropriate scrub routine.
https://code.midrange.com/7fb73ca711.html
I spend a lot of time doing a lookup against an unordered array, so, I
said to myself, wouldn't it be nice to have an SEU exit program that
would sort source records; I can sort the compile time array within
the source maintenance session.
Took the better part of the morning (I will never get a positive ROI),
but was fun, and I learned a little bit.
https://code.midrange.com/0baf2ba932.html
I'm posting this as much for future reference, as much as anything,
but there's some interesting code here
Chris
P.S. If we ever have an obfuscated RPG contest, I nominate the following:
$3 = @cond(@elem($I).cond).@arg(@cond(@elem($I).cond).@arg$)
midrange.com
