Галактика в вопросах и ответах

Код: Выделить всё

interface MyInterface;
create view
  from rcTable
  ;

function ProcessSum(_prparent:comp;_prLivel:integer):double;
var _vSum:double;
{
 _loop   rcTable where ((_prparent==rcTable._Parent))
 { 
  _vSum := _vSum + ProcessSum(rcTable._Node,_prLivel+1);
 }
ProcessSum := _vSum;
}

HandleEvent
cmInit:
 {
   _loop VarTable
   {
     ProcessSum(VarTable._nRec,1);
  }
   CloseInterface(cmDefault);
   stop;
 }
 end; //HandleEvent
end.

Код: Выделить всё

external _loop

Код: Выделить всё

Interface RecursionTest;
var
 _start : time;
 _stop  : time;
 times  : array[1..4] of time;

Create view
var
 vw_cPar: comp;
from
 Catalogs
,Catalogs Catalogs1
where
((
   vw_cPar == Catalogs1.cParent
))
;
function startTest(p_sTitle: string): void;
{
   _start := Cur_Time;
   WriteMessageLog(''#13'============ START : ' + p_sTitle + ' ============')
}
function stopTest(): time;
{
   _stop := Cur_Time;
   WriteMessageLog(''#13'============ END ============')
   NextVisual;
   result := Sub_Time(_stop, _start);
}
function recursion1(p_cPar: comp; p_sPad: string): void;
{
  _loop Catalogs where ((p_cPar == catalogs.cParent))
   {
      WriteMessageLog(p_sPad + catalogs.Name)
      PushPos(#Catalogs)
      recursion1(catalogs.Nrec, p_sPad + ' ')
      PopPos(#Catalogs)
   }
}
function recursion2(p_cPar: comp; p_sPad: string): void;
{
  external _loop Catalogs where ((p_cPar == catalogs.cParent))
   {
      WriteMessageLog(p_sPad + catalogs.Name)
      recursion2(catalogs.Nrec, p_sPad + ' ')
   }
}
function recursion3(p_cPar: comp; p_sPad: string): void;
var cCur: comp
{
  cCur := vw_cPar := p_cPar
  _loop Catalogs1
   {
      WriteMessageLog(p_sPad + catalogs1.Name)
      PushPos(#Catalogs1)
      recursion3(catalogs1.Nrec, p_sPad + ' ')
      vw_cPar := cCur;
      PopPos(#Catalogs1)
   }
}
function recursion4(p_cPar: comp; p_sPad: string): void;
var cCur: comp
{
  cCur := vw_cPar := p_cPar
  external _loop Catalogs1
   {
      WriteMessageLog(p_sPad + catalogs1.Name)
      recursion4(catalogs1.Nrec, p_sPad + ' ')
      vw_cPar := cCur;
   }
}
HandleEvent
  cmInit :
  {
     OpenMessageLog('e:\garbage\log\recursion.log', mfLog2Stream)
     var cStartNode: comp;

     //cStartNode := comp(471);
     cStartNode := comp(0);

     StartNewVisual(vtIndicatorVisual, vfTimer, 'Печать иерархии Catalogs', 4)

     startTest('Recursion1');
     recursion1(cStartNode, '');
     times[1] := stopTest();

     startTest('Recursion2');
     recursion2(cStartNode, '');
     times[2] := stopTest();

     startTest('Recursion3');
     recursion3(cStartNode, '');
     times[3] := stopTest();

     startTest('Recursion4');
     recursion4(cStartNode, '');
     times[4] := stopTest();

     var i : integer;

     for (i := 1; i <= 4; i++)
      {
        WriteMessageLog('Тест №' + i + ': ' + timeToStr(times[i], 'HH:MM:SS:SSS'))
      }

     CloseMessageLog ;
     StopVisual('',0);
  }
end;
End.  

Код: Выделить всё

Прогон 1
11:51:31 ¦ Тест №1: 00:00:06:29
11:51:31 ¦ Тест №2: 00:00:04:48
11:51:31 ¦ Тест №3: 00:00:05:95
11:51:31 ¦ Тест №4: 00:00:04:30
Прогон 2
11:52:16 ¦ Тест №1: 00:00:06:31
11:52:16 ¦ Тест №2: 00:00:04:50
11:52:16 ¦ Тест №3: 00:00:05:98
11:52:16 ¦ Тест №4: 00:00:04:22
Прогон 3
11:52:57 ¦ Тест №1: 00:00:06:36
11:52:57 ¦ Тест №2: 00:00:04:31
11:52:57 ¦ Тест №3: 00:00:05:94
11:52:57 ¦ Тест №4: 00:00:03:99

Код: Выделить всё

Interface tree_example;
create view
var curNode, curParent:Comp;
  curnestlevel,nestLevel:Longint;
  from katpodr
      ,katpodr katpodr1 ;


Function GetNextNode(AParent:COMP; var ANode:COMP; var ANestLevel:Longint):boolean;
//Предполагается, что таблица ("TableAlias") упорядочена по CREC+.....
var curParent, curNode:COMP;
{

  Result:=False ;
  if ANode=0 {
                if GetFirst fastfirstrow katpodr where ((AParent==katpodr.cpodr)) =tsok
                {
                  ANode:=katpodr.NRec;
                  ANestLevel:=0;
                  Result:=True;
                  Exit;
                }
             }
  else 
    if GetFirst fastfirstrow katpodr where ((ANode==katpodr.cpodr))=tsok
    {
      ANode:=katpodr.NRec;
      ANestLevel:=ANestLevel+1;
      Result:=True;
      Exit;
    } 
    else
    {
      curNode:=ANode;
      curNestLevel:=ANestLevel;
      While (Result=False) do
      { 
        if GetFirst fastfirstrow katpodr where ((curNode==katpodr.nrec))<>tsOK
        {
          break;
        }
        curParent:=katpodr.cpodr;
        if GetNext fastfirstrow katpodr where ((curParent==katpodr.cpodr))=tsok
        {
          ANode:=katpodr.NRec;
          ANestLevel:=curNestLevel;
          Result:=True;
          break;
        }
        else
        {
          curNode:=curParent;
          curNestLevel:=curNestLevel-1;
          if (curNode = 0) OR (curNode = AParent) 
          {
            Result:=False;
            break;
          }
          else
          {
            Continue;
          }
        };
      }
      if (Result=False) {
        ANode:=0;
      }
    }
}


HandleEvent
CmInit: {
// n-ый просматриваемый узел
          curParent:=comp(16);
          curNode:=0;
          While (True = GetNextNode(curParent, curNode, nestLevel)) 
          do {
               if getfirst katpodr1 where ((curNode==nrec))=tsok {}
               logstrtofile('c:\debug\podrier.log',katpodr1.name+' NREC='+curNode+' на уровне '+nestLevel+' от родителя с NREC='+curParent);
             }
         }
end;
end.