[Harbour-users] Clipper 5.2 GETSYS.PRG questions and mysteries

[smu johnson]

Hi,

After going through our old .PRG code, I came across this strange file.
GETSYS.PRG says "Standard Clipper 5.2 GET/READ Subsystem" on line 6.

The odd behaviour I am having is the variables "postBlock" and "preBlock".
I am wondering if these are special vars declared by Harbour.  When I grep
for them in our code:

F:\VER10\PRGS-mb>grep -risn postblock *.prg
GETSYS.PRG:412:   IF !( oGet:postBlock == NIL )
GETSYS.PRG:419:      lValid := EVAL( oGet:postBlock, oGet )

I only get two instances.  When I print the VALTYPE of lValid on the 2nd
line above, I get a L in one place, than an U in another.  So obviously it
is a codeblock with some code in it.  But I can't figure out where the code
block is even defined.  It is very mysterious.

I thought I would ask here, in case I am missing something obvious.  Thank
you for reading.

-- 
smu johnson <smujohnson at gmail.com>