
<HTML>

<HEAD>

<TITLE>KERNEL, NEW</TITLE>

</HEAD>

<BODY>

<FONT FACE="Verdana">Hi guys,<BR>

<BR>

Just for info.<BR>

<BR>

The next beta of V4RB includes such new features of kenel as<BR>

<BR>

<BR>

------------------<BR>

Vtable class<BR>

<BR>

&nbsp;&nbsp;&nbsp;&nbsp;ID as integer &nbsp;&nbsp;-- each table have unique ID.<BR>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TMP tables have negative ID<BR>

<BR>

&nbsp;&nbsp;&nbsp;&nbsp;LinkCount &nbsp;-- the number of links from this table.<BR>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;links can be <BR>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;-- ObjectPtr <BR>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;-- Foreign Key<BR>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;-- Binary Link<BR>

<BR>

&nbsp;&nbsp;&nbsp;&nbsp;Link( index ) as VLink<BR>

&nbsp;&nbsp;&nbsp;&nbsp;Link( name ) as VLink<BR>

<BR>

<BR>

--------------<BR>

Field class<BR>

<BR>

&nbsp;&nbsp;&nbsp;&nbsp;ID as integer<BR>

<BR>

<BR>

<BR>

------------<BR>

Database class <BR>

<BR>

&nbsp;&nbsp;&nbsp;&nbsp;LinkCount &nbsp;-- the number of links from this table.<BR>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;links can be <BR>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;-- ObjectPtr <BR>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;-- Foreign Key<BR>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;-- Binary Link<BR>

<BR>

&nbsp;&nbsp;&nbsp;&nbsp;Link( index ) as VLink<BR>

&nbsp;&nbsp;&nbsp;&nbsp;Link( name ) as VLink<BR>

<BR>

<BR>

-------------<BR>

Link class. Totally new class for V4RB<BR>

<BR>

<BR>

// Ala-properties:<BR>

<BR>

&nbsp;&nbsp;&nbsp;&nbsp;{ &nbsp;&nbsp;&nbsp;(REALproc) Link_get_Name, &nbsp;&nbsp;&nbsp;REALnoImplementation, <BR>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&quot;Name() as String&quot;},<BR>

<BR>

&nbsp;&nbsp;&nbsp;&nbsp;{ &nbsp;&nbsp;&nbsp;(REALproc) Link_get_IsTemporary, &nbsp;&nbsp;&nbsp;REALnoImplementation, &quot;IsTemporary() as Boolean&quot;},<BR>

&nbsp;&nbsp;&nbsp;&nbsp;{ &nbsp;&nbsp;&nbsp;(REALproc) Link_get_BranchCount, &nbsp;&nbsp;&nbsp;REALnoImplementation, &quot;BranchCount() as Integer&quot;},<BR>

<BR>

&nbsp;&nbsp;&nbsp;&nbsp;{ &nbsp;&nbsp;&nbsp;(REALproc) Link_get_OnDelete, &nbsp;&nbsp;&nbsp;REALnoImplementation, &quot;OnDelete() as Integer&quot;},<BR>

// &nbsp;&nbsp;&nbsp;{ &nbsp;&nbsp;&nbsp;(REALproc) Link_put_OnDelete, &nbsp;&nbsp;&nbsp;REALnoImplementation, &quot;OnDelete( Assigns v as Integer)&quot;},<BR>

<BR>

&nbsp;&nbsp;&nbsp;&nbsp;{ &nbsp;&nbsp;&nbsp;(REALproc) Link_get_OnUpdate, &nbsp;&nbsp;&nbsp;REALnoImplementation, &quot;OnUpdate() as Integer&quot;},<BR>

// &nbsp;&nbsp;&nbsp;{ &nbsp;&nbsp;&nbsp;(REALproc) Link_put_OnUpdate, &nbsp;&nbsp;&nbsp;REALnoImplementation, &quot;OnUpdate( Assigns v as Integer)&quot;},<BR>

<BR>

// Methods:<BR>

<BR>

&nbsp;&nbsp;&nbsp;&nbsp;{ &nbsp;&nbsp;&nbsp;(REALproc) Link_get_IsBetween, &nbsp;&nbsp;&nbsp;REALnoImplementation, <BR>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&quot;IsBetween( inTableA as VTable, inTableB as VTable ) as Boolean&quot;},<BR>

<BR>

&nbsp;&nbsp;&nbsp;&nbsp;{ &nbsp;&nbsp;&nbsp;(REALproc) Link_get_Table, &nbsp;&nbsp;&nbsp;REALnoImplementation, <BR>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&quot;Table( inIndex as integer ) as VTable&quot;},<BR>

&nbsp;&nbsp;&nbsp;&nbsp;<BR>

<BR>

// Search Methods:<BR>

<BR>

&nbsp;&nbsp;&nbsp;&nbsp;{ &nbsp;&nbsp;&nbsp;(REALproc) Link_get_LinkedCount, &nbsp;&nbsp;&nbsp;REALnoImplementation, <BR>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&quot;CountLinked( inRecID as Integer, inTableA as VTable, inTableB as VTable ) as Integer&quot;},<BR>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>

/* &nbsp;&nbsp;&nbsp;{ &nbsp;&nbsp;&nbsp;(REALproc) Link_FindLinked, &nbsp;&nbsp;&nbsp;REALnoImplementation, <BR>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&quot;FindLinked( inRecID as Integer, inTableA as VTable, inTableB as VTable ) as VArraySet&quot;},<BR>

<BR>

&nbsp;&nbsp;&nbsp;&nbsp;{ &nbsp;&nbsp;&nbsp;(REALproc) Link_FindExclusivelyLinked, &nbsp;&nbsp;&nbsp;REALnoImplementation, <BR>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&quot;FindExclusivelyLinked( inRecID as Integer, &quot;<BR>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&quot;inTableA as VTable, inTableB as VTable ) as VArraySet&quot;},<BR>

<BR>

&nbsp;&nbsp;&nbsp;&nbsp;{ &nbsp;&nbsp;&nbsp;(REALproc) Link_FindAllLinked, &nbsp;&nbsp;&nbsp;REALnoImplementation, <BR>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&quot;FindAllLinked( inTableA as VTable, inTableB as VTable ) as VBitSet&quot;},<BR>

*/<BR>

// <BR>

<BR>

&nbsp;&nbsp;&nbsp;&nbsp;{ &nbsp;&nbsp;&nbsp;(REALproc) Link_LinkRecords, &nbsp;&nbsp;&nbsp;REALnoImplementation, <BR>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&quot;LinkRecords( inRecIDs() as Integer )&quot;},<BR>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>

&nbsp;&nbsp;&nbsp;&nbsp;{ &nbsp;&nbsp;&nbsp;(REALproc) Link_UnlinkRecords, &nbsp;&nbsp;&nbsp;REALnoImplementation, <BR>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&quot;UnlinkRecords( inRecIDs() as Integer )&quot;},<BR>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>

&nbsp;&nbsp;&nbsp;&nbsp;{ &nbsp;&nbsp;&nbsp;(REALproc) Link_DeleteLinkedRecords, &nbsp;&nbsp;&nbsp;REALnoImplementation, <BR>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&quot;DeleteLinkedRecords( inRecID as Integer, inTableA as VTable )&quot;},<BR>

<BR>

&nbsp;&nbsp;&nbsp;&nbsp;{ &nbsp;&nbsp;&nbsp;(REALproc) Link_DeleteAllLinkedRecords, &nbsp;&nbsp;&nbsp;REALnoImplementation, <BR>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&quot;DeleteAllLinkedRecords( inTableA as VTable )&quot;},<BR>

<BR>

<BR>

-- <BR>

Best regards,<BR>

Ruslan Zasukhin &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;[ I feel the need...the need for speed ]<BR>

-------------------------------------------------------------<BR>

e-mail: ruslan@paradigmasoft.com<BR>

web: http://www.paradigmasoft.com<BR>

<BR>

To subscribe to the Valentina mail list go to:<BR>

http://lists.macserve.net/mailman/listinfo/valentina<BR>

-------------------------------------------------------------<BR>

</FONT>

</BODY>

</HTML>