🚀 go-pugleaf

On Fri, 26 Jun 2020 05:03:12 -0700 (PDT), apl wrote:

> Drodzy koledzy,
> każdy z was wie, jakim koszmarem jest debugowanie programu, zwłaszcza takiego, do którego sięgamy po wielu latach celem przebudowy nie mówiąc już o cudzych kodach źródłowych.
> Bardzo pomocna w tym przypadku jest znajomość całego łańcucha wołań prowadzących do danego podprogramu.
> W tym poście chciałbym podzielić się bardzo prostym wynalazkiem i poddać go waszej krytycznej ocenie. 
> Przypuśćmy, że śledzonym podprogramem jest procedure sub2.
> Mój "chwyt" polega na dodaniu parametru formalnego callChain:string przekazywanego przez wartość oraz na zamieszczeniu na początku treści wykonawczej instrukcji callChain:=callChain+'>sub2'; Zabieg ten należy powtórzyć w każdym podprogramie wołającym wybrany śledzony (tu: sub2) z tym, że zamiast sub2 wpisujemy nazwę podprogramu wołającego z dodatkiem znaku '>' rozdzielającego nazwy w tworzonym łańcuchu. Krytyczne fragmenty treści sub2 obejmujemy instrukcją try except end, gdzie zamieszczamy showMessage informujący o błędzie. W przypadku iteracji, czy rekurencji przydatne będzie proliferowanie wartości zmiennych sterujących - dodajemy wtedy wymagane parametry formalne przekazywane przez wartość. Poniżej zamieszczam maksymalnie uproszczony przykład ilustrujący tę ideę zawierający iterację i rekurencję, stąd parametry i,n:word.
> Tak wzbogacony program daje nieoceniony wgląd w bieżący stan wykonania programu odczytując aktualną wartość callChain. Program niejako buduje się sam, żądając brakujących parametrów formalnych podczas kompilacji.
> Tym postem chciałbym zapoczątkować wakacyjną akcję dzielenia się na tym forum swoimi chwytami warsztatowymi. Gorąco zachęcam!!!
> Pozdrawiam, apl
> 
> P.S. Błagam, powiedzcie PADowi NIE!!!
> 
> 
>  procedure sub2(callChain:string;i,n:word);
>   var   r:real;
>  begin
>   callChain:=callChain+'>sub2';
>   r:=0;
>   try      //enclosure of a critical fragment
>    r:=r/r;
>   except
>     showMessage('Error occured in a call chain "'+callChain+'". Iteration step='+intToStr(i)+'. Recursion step='+intToStr(n))
>   end;
>  end;{sub2}
> 
>  procedure sub1(callChain:string;i,n:word);
>  begin
>   callChain:=callChain+'>sub1';
>   sub2(callChain,i,n);
>  end;{sub1}
> 
> procedure sub0(callChain:string;n:word);
>  var   i:shortInt;
>  begin
>   callChain:=callChain+'>sub0';
>   for i:=0 to 5 do sub1(callChain,i,n);
>   if n<3 then sub0(callChain,n+1);  //recursion
>  end;{sub0}
> end.
> 
> Wołanie z poziomu formatki, to np.:
> 
> 
> procedure TForm1.Button1Click(Sender: TObject);
> begin
>  sub0('>TForm1.Button1Click',0);
> end;

Program, który wkleiłeś nie zadziała jak opisałeś, sprawdź.

-- 
pozdrawiam
Roman Tyczka