AutoHotkey Community

chr(10)

;------------------------------------------------------------------
; Function: Trace
;           Debug helper
;
; Remarks:
;   There are 3 trace types: _f_, _d_, _t_
;       _f_ - string will be appended at the end of the file trace.log
;       _d_ - string will be ouput using OutputDebug
;       _t_ - string will be output using Tooltip. This type has 1 parameter
;             which is number of history lines to keep
;
; By default _Trace() works in _f_ mode. To change the mode call function
; with first parameter specifying new mode:
;>      Trace("_t_", 4)    ;switch to tooltip mode, use 4 history lines
;
; You can enter up to 6 parameters. They will be displayed on single line
; between "|" separator
;
; Set global variable _trace to false to desable tracing
;
; Example:
;>      _trace := true,  Trace("_t_")       ;set at start of the script
;>      Trace(1, "some data", 3, 4, 5, 6)
;
Trace( pMsg0, pMsg1="", pMsg2="", pMsg3="", pMsg4="", pMsg5="", pMsg6="" ){
    local msg, time
    static type :="_f_", ttip, tcnt=1

    If !_trace
        return

    time := A_Hour ":" A_Min ":" A_Sec "," A_MSec " [" A_TickCount "]" "        "

    if pMsg0 in _d_,_f_,_t_
    {
     type := pMsg0
     if type = _t_
        if pMsg1 is Integer
            tcnt := pMsg1
     return
    }

    msg := pMsg0
    loop
        if (pMsg%A_Index% != "")
            msg .= " | " pMsg%A_Index%
        else break

    if (type = "_d_")   {
        OutputDebug, %msg%
        return
    }

    if (type = "_f_")   {
        FileAppend, %time%%msg%`n, %A_ScriptDir%\trace.log
        return
    }

    if (type = "_t_")   {
        if (tcnt > 1) {
            ttip := msg "`n" ttip
            StringReplace, ttip, ttip, `n, `n, UseErrorLevel
            if (ErrorLevel = tcnt)
                ttip := SubStr(ttip, 1, InStr(ttip, "`n", false, 0)-1)
            msg := ttip
        }
        Tooltip, %msg%, 0, 0, 19
        return
    }
}

MsgBox, %str%

Debug(str, pause = 0) {
   global DebugOn
   if !DebugOn
      return
   if pause
      MsgBox, %str%
   else
      Print(str)
}

Debug(text  = "",version = 0, pause = "") {   ; use Debug? = 1  or Debug? = V{vers#} // if no vers #  shows with all vers,  pause for msgbox pause

   global Debug?
      static create, DebugOutput, vers
      
      if !Debug?
      return
      if pause = 1
         pause := text
         
         
      if !create {
         create =  1
         if regexmatch(Debug?,"i)\bV\s*(?<S>\d+(\.\d+)?)",ver)
            Debug? := regexreplace(Debug?,"i)\bV\s*[\w.]+")
      if (Debug? = 1) or  (debug = "")
         Debug? = w500 r4

      if !regexmatch(Debug?,"i)w\s*(?<E>\d+)",fromsid)
         fromside = 500
      gui, 98:default
        ;  Gui,  -Caption  ; leave on so can change size, etc..
         Gui, Margin, 0, 0
         gui, font, Cred S11, Veranda
         gui, color, ,EFEFD5
         Gui, Add, Edit, %Debug?% vDebugOutput    ;  ie,  debug contains w500 r4  or whatever!

      x := A_ScreenWidth - #(fromside)
         Gui, Show, +resize  +maximizebox NoActivate x%x% y%y%
      gui, 1:default 

      } 

      if (version and vers and (version < vers))
         return

funct(x) {
  return x<0 ? "Sorry!" : ""
}

x += 1, return x<0 ? "Sorry!" : ""

;------------------------------------------------------------------
; Function: Trace
;           Debug helper
;
;
; Usage: Trace("_f_"|"_d_"|"_t_" [, HistoryLines])      eg Trace("_t_", 4)
;        Trace(Msg0 [, Msg1, Msg2, Msg3, Msg4, Msg, Msg6])   eg Trace(1, "some data", 3, 4, 5, 6)
;
;
; More Usage:
;
;   -------------------------------
;    _trace := true,  Trace("_t_")          ################## START OF SCRIPT ###################
;   -------------------------------
;
;    Enable/disable debugging...
;           Set global variable _trace to false to disable tracing
;   
;    Mode selection...
;      There are 3 trace types: _f_, _d_, _t_
;        _f_ - string will be appended at the end of the file trace.log
;        _d_ - string will be ouput using OutputDebug
;        _t_ - string will be output using Tooltip. This type has 1 parameter
;              which is number of history lines to keep
;   
;      By default _Trace() works in _f_ mode. To change the mode call function
;      with first parameter specifying new mode:
;        Eg Trace("_t_", 4)    ;switch to tooltip mode, use 4 history lines
;
;   -----------------------------------
;    Trace(1, "some data", 3, 4, 5, 6)      ################## MIDDLE OF SCRIPT ##################
;   -----------------------------------
;
;   Where want to debug
;
;   Displaying messages/variables...
;     You can enter up to 6 parameters. They will be displayed on single line
;     between "|" separator
;
;   ---------------------------
;    #Include <path>\Trace.ahk              ################### END OF SCRIPT ####################
;   ---------------------------
;
;   Where subroutines are located
;
;   Or put copy of function here
;
;