SC, Rev,and RB speed test

[Mark Brownell]

On Friday, April 16, 2004, at 07:48  AM, Mark Brownell wrote:

> -- put getElement("<record>", "</record>", yourText) into theElement

oops...

Four years ago I figured out a high speed parallel numerical parser 
that evolved out of a low speed lineal numerical parser that I was 
experimenting with. I called it Parallel Numerical Lineal Parser, PNLP 
for short. I nick-named it "Penelope." Later I saw Penelope Cruz in a 
movie. That was better. I dropped PNLP a while back but I forgot to 
drop it from the "exit PNLPgetElement" part of that getElement() 
function.

Corrected Transcript:

function getElement tStTag, tEdTag, stngToSch
   put empty into zapped
   put the number of chars in tStTag into dChars
   put offset(tStTag,stngToSch) into tNum1
   put offset(tEdTag,stngToSch) into tNum2
   if tNum1 < 1 then
     return "error"
     exit getElement -- fixed this
   end if
   if tNum2 < 1 then
     return "error"
     exit getElement -- fixed this
   end if
   put char (tNum1 + dChars) to (tNum2 - 1) of stngToSch into zapped
   return zapped
end getElement

mb