home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / compressed / development / clusterdemo.dms / clusterdemo.adf / Modules.lha / modules / txt / Profiler.def < prev    next >
Text File  |  1994-05-25  |  1KB  |  58 lines
  1. |##########|
  2. |#MAGIC   #|CLABLLHA
  3. |#PROJECT #|"ImportHelp"
  4. |#PATHS   #|"StdProject"
  5. |#FLAGS   #|-x---x--x-----x-----------------
  6. |#USERSW  #|--------------------------------
  7. |#USERMASK#|--------------------------------
  8. |#SWITCHES#|xx---xxxxx------
  9. |##########|
  10. DEFINITION MODULE Profiler;
  11.  
  12. | Mittels diesem Modul, kann zu Optimierungszwecken festgestellt werden,
  13. | wieviel Zeit zwischen zwei Punkten vergeht, dabei wird sie Zeit in Micro-
  14. | sekunden gemessen, die Maxilmale, die Minimale und die Durchschnittszeit
  15. | festgehalten.
  16. | Außerdem wir die Zahl der Durchläufe bei Rekursiven Prozeduren die
  17. | Schachtelungstiefe sowie die momentane Stackposition ausgegeben.
  18.  
  19.  
  20.  
  21. TYPE
  22.   Profile = HIDDEN;
  23.  
  24.  
  25. PROCEDURE CreateProfile(REF Name : STRING):Profile; | Erzeugt eine Meßmarke
  26.  
  27.  
  28. PROCEDURE DestructProfile(p : Profile); | Löscht eine Marke
  29.  
  30.  
  31. | Name      : PStart/PEnd
  32. | Funktion  : Zwischen PStart/PEnd wird die Zeit gemessen
  33.  
  34. PROCEDURE PStart(p : Profile);
  35.  
  36. PROCEDURE PEnd(p : Profile);
  37.  
  38.  
  39. PROCEDURE WriteProfile(p : Profile);  | Gibt ein Profile aus.
  40.  
  41.  
  42. PROCEDURE WriteProfiles; | Gibt alle erzeugten Profiles aus.
  43.  
  44.  
  45. PROCEDURE ResetProfiler; | Initialisiert den Zähler
  46.  
  47.  
  48. PROCEDURE ClearProfiles; | Löscht alle Profiles
  49.  
  50.  
  51. GROUP
  52.   All = CreateProfile,DestructProfile,PStart,PEnd,WriteProfile,
  53.         WriteProfiles,ResetProfiler,ClearProfiles;
  54.  
  55.  
  56. END Profiler.
  57.  
  58.