S>Дело в том, что требуется создать нечто, очень по своим принципам похожее на ООБД и не хочется инветить байсикл

В области объектно-ориентированных баз данных на протяжении последних нескольких лет наблюдается поразительное затишье, которое одни склонны воспринимать как упадок технологии, а другие — как переход технологии в зрелое и устойчивое состояние. По моим наблюдениям, подобное затишье временами ведет к возникновению заблуждений и даже мифов у людей, близких к ИТ, но не являющихся специалистами в области баз данных. Одно из таких заблуждений состоит в том, что человек принимает сложившийся у него в голове набор терминов (объект, атрибут, метод, класс, наследование и т.д.) за общепризнанную объектно-ориентированную модель данных.

Сергей Кузнецов, Открытые Системы

TCepochki=Record
  CurrentRecord:Int64;// ссылка на смещение текущей страницы
  NextCepochka:Int64;// сылка на следующую страницу
  end;
 и должна быть обязательно кратна размеру страницы, чтобы запись не попадала на разрыв
 страниц т.к. чтение идет напрямую в основном хранилище.

  За информацию о таблицах отвечает класс TTableInfoOFTables структура его записи 
   PInfoOfTable=^TInfoOfTable;
  TInfoOfTable= record
    Cappacity:Int64;      // Емкость таблицы
    Size:Int64;           // Объем записанных данных
    RecordCount:  Int64;  // Количество записей в таблице если данные хранятся записями одинакового размера
    FirstCepochka:Int64;  // Абсолютный адрес первой цепочки
    LastCepochka: Int64;  // Абсолютный адрес последней цепочки
    FirstDeleted: Int64;  // Сыллка  на первую удаленную запись в таблице
    LastDeleted:  Int64;  // Сыллка  на последнюю удаленную запись в таблице
  end;

 За запись, чтение, Открытие таблиц Отвечает класс TSSBD; Он имеет следующие поля класса
    TSSBd=Class
   Private
   FStream:TStream; // Основное хранилище данных
   CriticalSection:TCriticalSection; // На всякий случай на будущее
   TableInfoOfTables:TTableInfoOFTables; // Информация о таблицах
   TableCepochki:TTableCepochki;         // Информация о цепчках
   ArrayLocalInfo:Array of TLocalInfo;   // Массив информации о таблицах
  ---------------------------------------------------------------------
  TLocalInfo= Record
   InfoOfTable:TInfoOFTable; 
   IndexArray:TBDArIndex;
   end;
   InfoOfTable:TInfoOFTable; // Это запись информации о таблице в памяти с 
   которой взамодействуют таблицы которая затем записывается в TTableInfoOFTables
   IndexArray:TBDArIndex; // Это динамический иерархический масси (наподобии первичного индекса
 таблиц Pasradox). В нем хранится последовательность страниц таблицы для быстрого поиска.
 При открытии таблицы информация о страницах загружаетя из TCepochki и затем паралельно модифицируются.
 Все таблицы одного типа имеют ссылки на эти данные.

   Поиск страницы осуществляется следующим образом 
    //Const
    //  StranicaSize=1 shl 12;

    i:=NewPosition shr 12;
    CurrentStranica:=IndexArray[i];
    indexInStranica:=NewPosition mod StranicaSize;
 что достаточно быстро.
   -------------------------------------------------------------------
  На данный момент реализованы 4 таблицы для хранения данных
  TSSTable
  TSSChildTable
  TTableStream
  TSSTableBlob
  
  TSSTable это обычная струтурированная таблица. Отличием ее является наличие в начале 
  записи Номер этой записи в таблице. Который является уникальным значением для данной записи.
  Это поле на данный момент может являться ссылкой на следующую удаленную запись.
   Методы данной таблицы достаточно понятны. 

  TSSChildTable это подчиненная таблица в начале записи которой обязательно должна быть структура 

    PChildRecord=^TChildRecord;
  TChildRecord = record
    RecordNumber:TRecordNumber; 
    NextRecordNumber:TRecordNumber;  // сылка на следующую запись
    PriorRecordNumber:TRecordNumber; // ссылка на предыдущую запись 
 end;
 Запись родительской таблицы должна содержать поле типа

  PChildLines=^TChildLines;
  TChildLines = Record
  FirstLines:Int64;
  LastLines:Int64;
  end;

  Небольшойпример записи в данные таблицы

    j:=FindFirst(FileDir+'*.pas',faArchive,SearchRec);
     While j=0 Do begin
     MyTable2.ClearRecord; // очистка записи
         // Заполнение полей записи данными
     MyTable2.TableRecord.Int:=i;
     MyTable2.TableRecord.Doub:=i;
     MyTable2.FileName:=searchrec.Name;
        //-----------------------------
     StringList.LoadFromFile(FileDir+searchrec.Name);
      For i:=0 to Stringlist.Count-1 Do
       Begin

        If Length(Stringlist[i])>0 Then
         Begin
        ChildTable.ClearRecord;
        ChildTable.Stroka:=Stringlist[i];
        ChildTable.AddRecord(MyTable2.TableRecord.Lines);// Добавление записи ChildTable и 
        // модификация поля записи MyTable2.TableRecord.Lines
        inc(m);
        end;
       end;
     MyTable2.AddRecord; // Добавление записи в MyTable2
     J:=findNext(searchrec);
     end;
//----------------------------------------------------------------------------------------
 TTableStream, TSSTableBlob выполняют одну задачу хранение потока данных.
 TTableStream данные всегда добавляются в конец таблицы. Сначала записывается длина потока а затем данные. 
 Но так как данные хранятся друг за другом запрещена модификация и удаление. Данная таблица хороша тогла 
 когда не нужна модификация данных.

 TSSTableBlob это классическая блоб таблица. Данные хранятся в связанных записях имеющих вид
  PSmallBlobRecord=^TSmallBlobRecord;
   TSmallBlobRecord= record
   NextRecord:Int64; // Ссылка на следующую запись с данными
   Data:Array[0..LenRec-sizeOf(Int64)-1] of char;
   end;
   Где LenRec длина записи и должна быть кратна размеру страницы.
   В начале первой записи прописывается длина данных.
   
 Удобно работать со стримами в таком виде

   TMyChildTable= class(TSSChildTable)
  TableRecord:TMyChildRecord;
  protected
    procedure SetStroka(const Value: String);
    function GetStroka: String;
  public
  Constructor Create(SSBd:TSSBd); Override;
  Property Stroka:String read  GetStroka write SetStroka;
  end;

function TMyChildTable.GetStroka: String;
begin

if TableRecord.Str>0 Then
 Result:=SmallBlobTable.ReadAsString(TableRecord.Str)
    Else
 result:='';
end;

procedure TMyChildTable.SetStroka(const Value: String);
begin
 if TableRecord.Str>0 Then
   SmallBlobTable.ModifyFromString(TableRecord.Str,Value)
    else
   TableRecord.Str:=SmallBlobTable.WriteFromString(Value);
 end;
 где SmallBlobTable является наследником TSSTableBlob.

  Каждая таблица должна именть свой уникальный ID который является номером записи в TTableInfoOFTables
 
type
 TTablesID=(soTableInfoOFTables,soTableCepochki,soTableStream,soSmallBlobTabble,somyTable,somyTable2,soChildTable,soChildTable2,sotableCount);
 Первыедва номера зарезервированы за TableInfoOFTables,TableCepochki.
  Нужно в конструкторе определить начальные данные 

  constructor TmyTable.Create(SSBd: TSSBd);
begin
  TableId:=integer(soMyTable);
  Self.CurrentRecord:=@Self.tableRecord;
  Self.SizeRecord:=SizeOf(TMyRec);
  inherited Create(SSBd);

end;

class mapiprop_t
{   
    template<class Archive>
        friend void serialize(Archive &, mapiprop_t & , const unsigned 
int);   

    mapitag_t tag;
    mapival_t value;   
public:
    ....
};
template<class Archive>
    void serialize(Archive & ar, mapiprop_t& val, const unsigned int 
version)
{
    ar & val.tag & val.value;
}

...
mapiprop_t val;
...
std::ofstream ofs("testfile",std::ios::binary);
boost::archive::binary_oarchive oa(ofs);
oa<<val;

boost::function func<>(_arg1++ + _arg2);
func(4,5);

FOR $a IN /a, $b IN /b, $c IN /c RETURN $a[ ($a/@f=$b/@f) AND ($b/f1=$c/@f1) AND ($c/@f2=$a/@f2)  ]

E>>><some-root>
E>>><a f="10">
E>>>    <b ref="#0001" />
E>>>    <b ref="#0002" />
E>>></a>
E>>><b id="0001" f="15" />
E>>><b id="0002" f="20" >
E>>>    <c f="25" />
E>>>    <c f="30" >
E>>>        <d f="40" /> <!-- значение атрибута f этого узла и надо получить -->
E>>>    </c>
E>>></b>
E>>></some-root>
E>>>

/b[ /a[@f=10]/b/@ref=@id and @f=20 ]/c[ f=30 ]/d/@f

/a/b[ @ref=/b[ @f=20 and c[@f=30]/d[@f=40] ]/@id ]

S>IEnumerable<IEmployee> = Extent<IEmployee>.Select(
S>    new bool delegate(IEmployee empl) 
S>    {
S>        return empl.Salary < 500;
S>    }
S>);
S>

IEnumerable<IEmployee> list = Extent<IEmployee>.Select(
    delegate(IEmployee empl) 
    {
        return empl.Salary < 500;
    }
);

IEnumerable<IEmployee> list = Extent<IEmployee>.Select("//Employee[Salary < 500]");

foreach (Employee employee in Employees.Select("//Employee[Salary < 500]"))
{
    ...
}

CREATE TABLE TBL_OBEJECT
(
  ID NUMBER(20) NOT NULL,
  XOBJECT_ID NUMBER(20)
);

ALTER TABLE TBL_OBEJECT ADD CONSTRAINT PK_OBJECT PRIMARY KEY(ID);

CREATE TABLE TBL_LIST -- Наследуется от OBJECT
(
  ID NUMBER(20) NOT NULL,
  NAME VARCHAR2(32)
);

ALTER TABLE TBL_OBEJECT ADD CONSTRAINT PK_LIST PRIMARY KEY(ID);

ALTER TABLE TBL_OBEJECT ADD CONSTRAINT FK_LIST_ID
  FOREIGN KEY(ID) REFERENCES TBL_OBJECT ON DELETE CASCADE;

CREATE TABLE TBL_LIST_ITEM -- Наследуется от OBJECT
(
  ID NUMBER(20) NOT NULL,
  PARENT_ID NUMBER(20) NOT NULL,
  DISPLAY_NAME VARCHAR2(32)
);

ALTER TABLE TBL_LIST_ITEM ADD CONSTRAINT PK_LIST PRIMARY KEY(ID);

ALTER TABLE TBL_LIST_ITEM ADD CONSTRAINT FK_LIST_ITEM_ID
  FOREIGN KEY(ID) REFERENCES TBL_OBJECT ON DELETE CASCADE;

ALTER TABLE TBL_LIST_ITEM ADD CONSTRAINT FK_LIST_ITEM_PARENT_ID
  FOREIGN KEY(PARENT_ID) REFERENCES TBL_LIST;

CREATE TABLE TBL_COMPLEXOBJ -- Наследует от LIST и LIST_ITEM
(
  ID NUMBER(20) NOT NULL,
  SOME_DATA ...
);

ALTER TABLE TBL_COMPLEXOBJ ADD CONSTRAINT PK_LIST PRIMARY KEY(ID);

ALTER TABLE TBL_COMPLEXOBJ ADD CONSTRAINT FK_COMPLEXOBJ_ID_LIST
  FOREIGN KEY(ID) REFERENCES TBL_LIST ON DELETE CASCADE;

ALTER TABLE TBL_COMPLEXOBJ ADD CONSTRAINT FK_COMPLEXOBJ_ID_LIST_ITEM
  FOREIGN KEY(ID) REFERENCES TBL_LIST_ITEM ON DELETE CASCADE;