DO - Der FoxPro-Kompatible Skriptinterpreter

astackinfo

astackinfo(CurrentStack AS Array@) AS Integer

Zeigt den aktuellen Zustand des Stapels.

Parameter CurrentStack

Die Zielvariable wird per Referenz übergeben und automatisch so angepasst, dass alle Informationen abgespeichert werden können. Das Array hat die folgenden Spalten:

1	Fortlaufende Nummer des Stapelrahmens (Level)
2	Dateiname des Moduls des Stapelrahmens
3	Name des Moduls oder des Programmes
4	Dateipfad des Moduls des Stapelrahmens
5	Zeilennummer im Quellcode
6	Inhalt der Quellcode-Zeile (Nicht implementiert)

Rückgabewert

Der Rückgabewert ist ein positiver Integer, der die aktuelle Verschachtelungstiefe des Stapels anzeigt und somit auch gleichermaßen die Anzahl der Zeilen des Ausgabearrays anzeigt.

Beispiel

  1
  2
  3
  4
  5
  6
  7
  8
  9
10
11
12
13
14

level_2()

FUNCTION level_2
  level_3()
ENDFUNC

FUNCTION level_3
  LOCAL stack[1], anz, i
  anz= astackinfo(stack)
  FOR i=1 TO anz
    ? stack[i,1], " ", justfname(stack[i,2]), " ", ;
      stack[i,3], " ", justfname(stack[i,4]), " ", stack[i,5], " ", stack[i,6]
  ENDFOR
ENDFUNC

1   runme.prg   runme   runme.prg   1   null
2   runme.prg   level_2   runme.prg   4   null
3   runme.prg   level_3   runme.prg   9   null