Śledzenie debugowania

To menu pozwala sprawdzić stan zmiennych w chwili wykonywania kodu. Bywa to bardzo przydatne przy naprawianiu skryptu, który przestał działać, lub po prostu na etapie debugowania.

Aby skorzystać z funkcji debugowania, trzeba umieścić w kodzie instrukcję debugującą o następującej składni: debug(parametr : text); Gdy kod zostanie wykonany i dojdzie do instrukcji debug, w widoku Śledzenie debugowania pojawi się wpis, którego tytułem jest zawartość parametru, a pod nim struktura wszystkich zmiennych dostępnych w tym momencie wraz z ich bieżącymi wartościami.

Uwaga: do ciągu tekstowego można dopisać dowolną szczególnie interesującą zmienną, aby natychmiast zobaczyć jej wartość w oknie Śledzenie debugowania — trzeba jednak zadbać, aby typ był tekstowy! (np. debug("Debug point 1 : " + Variable1); )

Przyglądając się uważnie oknu debugowania, widać, że przy każdym wykonaniu instrukcji debug tworzony jest nowy wiersz.

Wiersz ten zawiera nazwę punktu debugowania, czyli tekst przekazany jako parametr do funkcji debug, na przykład: debug("my debug point").

Na początku wiersza wyświetlany jest także czas, jaki upłynął od poprzedniego wiersza debugowania. Pomaga to ocenić wydajność kodu (patrz wyżej). Pierwszy wiersz ma zawsze wartość „start”.

Sam wiersz debugowania zawiera tyle wierszy zmiennych, ile zmiennych zadeklarowano w skrypcie przed instrukcją debug. Każdy wiersz zmiennej zawiera nazwę, typ, wartość oraz fragment kodu, w którym zmienna jest deklarowana.

Użycie w pętlach

Umieszczenie instrukcji debug wewnątrz pętli pozwala zobaczyć stan zmiennych przy każdej iteracji. Widać także czas poświęcony na każdą iterację. W poniższym przykładzie opóźnienie jest mniejsze lub równe 1 ms.

let a := select Customer
let d := for i in a do
           debug("for each customer");
           i.'first name' + " " + i.'last name';
         end;
debug("all customers");
d;

Jeśli jednak dodamy instrukcję kosztowną pod względem czasu wykonania, taką jak instrukcja „select”, widać, że czas między kolejnymi iteracjami znacząco rośnie.

let a := select Customer
let d := for i in a do
           let e := select Invoice where Customer = i;
           debug("for each customer");
           i.'first name' + " " + i.'last name' + " " + sum(e.TOTAL);
         end;
debug("all customers");
d;

Umieszczając instrukcję debug przed blokiem skryptu i po nim, można zmierzyć całkowity czas wykonania skryptu:

debug("start of script");
let a := select Customer
let d := for i in a do
           i.'first name' + " " + i.'last name';
         end;
debug("end of script");
d;