BTree Extract User Extension (OpenInsight Specific) [Revelation On-Line Wiki]

OpenInsight Specific

Sign up on the Revelation Software website to have access to the most current content, and to be able to ask questions and get answers from the Revelation community

At 05 JAN 2001 02:49:29PM Fred Dietrich wrote:

Anybody out there using the User Extension of BTree Extract? (It's under the BTree.Extract help under Related Topics.) Apparantly, this allows us to have BTree.Extract call our own program. Or more specifically, it lets you make a parsing module and compare module. Does anybody out there have sample code for a parsing module and compare module that they've implemented as a User Index Facility with BTree Extract?

We're trying to get around the 64K limit.

At 05 JAN 2001 03:16PM Don Miller - C3 Inc. wrote:

Fred ..

Don't think you can get around the 64K limit with user hooks. Eventually all the keys resolve to "hunks" no one of which can exceed 64K. The Btree Extract code is a direct port from AREV and has all those limitations, including any user calls in between.

Sorryyyyy about that

Don Miller

C3 Inc.

At 05 JAN 2001 03:37PM Fred Dietrich wrote:

64K Hunks are fine. It doesn't need to be perfect.

Fred Dietrich

STAT! Systems, Inc.

At 06 JAN 2001 11:44AM [url=http://www.sprezzatura.com" onMouseOver=window.status=Click here to visit our web site?';return(true)]The Sprezzatura Group[/url] wrote:

But Btree.Extract is shared between OI and AREV isn't it so why not use the option to return a hit list ] 64K in chunks - set option to true? Same syntax as with AREV. We suspect a documentation error rather than a feature ommission error.

The Sprezzatura Group

World Leaders in all things RevSoft

At 08 JAN 2001 03:41AM Oystein Reigem wrote:

Sprezzatura,

But Btree.Extract is shared between OI and AREV isn't it so why not use the option to return a hit list ] 64K in chunks - set option to true?

What option? It's not mentioned in the Advanced Revelation Developer Series System Subroutines.

- Oystein -

At 08 JAN 2001 03:43PM [url=http://www.sprezzatura.com" onMouseOver=window.status=Click here to visit our web site?';return(true)]The Sprezzatura Group[/url] wrote:

http://www.revelation.com/8525652b0066bfaf/d739a1010f28f6798525656b00612ab1/FE664B2C696ABB84852566BB004DC021?OpenDocument

Toodles

The Sprezzatura Group

World Leaders in all things RevSoft

At 09 JAN 2001 06:03AM Oystein Reigem wrote:

Mr McToodles,

Thanks.

I've completed the exercise. See below. Do I pass?

- Oystein -


function Test_Btree_Extract( Dummy )



	/*

	

	does a ] search on an indexed field.

	can handle result ] 64K.

	does nothing useful - just reports a few keys from each chunk.

	

	*/

	

	$insert Logical

	

	equate CrLf to char(13) : char(10)

	

	declare subroutine Btree.Extract

	

	TableName=TEST5"

	FieldName=FELT1"

	Value=s"

	*Value=s1"

	

	Report="

	

	open TableName to TableVar else

		Report := "Can't open table " : TableName : CrLf

		goto Exit

	end

	open "DICT " : TableName to DictVar else

		Report := "Can't open dictionary of table " : TableName : CrLf

		goto Exit

	end

	

	SearchString=FieldName : @VM : Value : ]" : @FM

	Keys="

	Option="

	Option=1   /* willing to accept ] 64K */

	Flag="

	

	ChunkCounter=0

	loop

	

		ChunkCounter += 1

		Btree.Extract( SearchString, TableName, DictVar, Keys, Option, Flag )

		if Flag  "")

		if (ChunkCounter=1) and (Flag=0) then

			ChunkText=There's only one chunk and it"

		end else

			ChunkText=Chunk no " : ChunkCounter

		end

		begin case

		case NumKeysInChunk=1

			Report := ChunkText : " contains " : NumKeysInChunk : " key: " : quote(Keys) : CrLf

		case NumKeysInChunk=2

			Report := ChunkText : " contains " : NumKeysInChunk : " keys: " : quote(Keys) : ", " : quote(Keys) : CrLf

		case NumKeysInChunk=3

			Report := ChunkText : " contains " : NumKeysInChunk : " keys: " : quote(Keys) : ", " : quote(Keys) : ", " : quote(Keys) : CrLf

		case true$

			Report := ChunkText : " contains " : NumKeysInChunk : " keys: " : quote(Keys) : ", " : quote(Keys) : ", ..., " : quote(Keys) : CrLf

		end case

		

	until Flag <= 0

	repeat

	

Exit:	

	

return Report

At 09 JAN 2001 01:17PM [url=http://www.sprezzatura.com" onMouseOver=window.status=Click here to visit our web site?';return(true)]The Sprezzatura Group[/url] wrote:

Don't know - did it work?

The Sprezzatura Group

World Leaders in all things RevSoft

At 10 JAN 2001 04:22AM Oystein Reigem wrote:

Sprezzatura,

Yes, it worked fine. Just wish I knew about it earlier.

- Oystein -

At 10 JAN 2001 09:02AM [url=http://www.sprezzatura.com]The Sprezzatura Group[/url] wrote:

ARev 2.12 (maybe 2.11) shipped a version in the REVSOURCE file. Fully doced and integrated in ARev 3.0

The Sprezzatura Group

World Leaders in all things RevSoft

At 10 JAN 2001 09:27AM Oystein Reigem wrote:

S,

What's Arev?

- OIstein -

At 10 JAN 2001 09:59AM [url=http://www.sprezzatura.com]The Sprezzatura Group[/url] wrote:

I beleive the official Revelation Software name for the product is OpenInsight for the Microsoft©®™ Disk©®™ Operating©®™ System©®™

The Sprezzatura Group

World Leaders in all things RevSoft

At 11 JAN 2001 05:22AM Oystein Reigem wrote:

View this thread on the forum...