The Hammer » VDF Splat

    Procedure DoInitializeParameters

      Set piDebugfileVersion To 0

      //Set phoDebugger        To 0

      Set psApplication Of ghoApplication To ""

    End_Procedure

    //

    // Locates the debug file for the application binary passed.

    // Returns TRUE if found and sets property piDebugFileVersion

    //

    Function ParseApplicationDebugFile String sApplication Returns Boolean

      Boolean bExists

      Integer iRuntime

      String  sExt

      String  sDebugfile

      Get ParseFileExtension sApplication To sExt

      Move (Replace("."+sExt,sApplication,".dbg")) To sDebugfile

      Get vFilePathExists sDebugfile to bExists

      If (bExists=false) Begin

        Send Warning_Box ("Sorry but for the executable chosing the corresponding debug file\n"+;

               sDebugfile+"\ncould not be located.\n\nPlease select again.") ;

               "VdfSplat can't do that"

      End

      Else Begin

        Get ReadRuntimeVersion sDebugfile To iRuntime

        If (iRuntime=0) Begin

          Move False To bExists

        End

        Else Begin

          Set piDebugfileVersion To iRuntime

        End

      End

      Function_Return bExists

    End_Function

      Boolean bRestartMode

      Get ParseApplicationDebugFile sApplication To bExists

      Get phoDebugger to hoDebug

      If (hoDebug) Begin

        Get pbDebugRestart of hoDebug to bRestartMode

        If (bRestartMode) Begin

          Send Destroy of hoDebug

          Move 0 To hoDebug 

        Get Create Of hoParent (RefClass(cDebuggerEngine)) To hoDebug

      Boolean bPaused

      Boolean bBreakMode

      Handle  hoDebug

        Get pbLimitedBreakMode of hoDebug to bBreakMode

        Get HasProgramPaused To bPaused

        If (bPaused) Begin

          //Send doDebugContinue

        End

        If (bBreakMode=False) Begin

          // You cannot destroy the debugger on here as the messageloop has to run to get the debuggee back to run

          // so killing it here would be out of sync with what you want.

          //Send Destroy of hoDebug

          Send DoInitializeParameters

        End  

    Procedure DoRestartDebug

      String  sApplication

      Get psApplication of ghoApplication To sApplication

      Set pbDebugRestart of (phoDebugger(Self)) to True

      Send DoStopDebug

      //Sleep 1

      Set psApplication of ghoApplication To sApplication

    End_Procedure

    // The property pbProgramPaused is set on both a breakpoint and on a Pause

{ OverrideProperty=psImage InitialValue="restart_co.ico" }

        Set psImage         To "restart_co.ico"

       Send doRestartDebug

{ OverrideProperty=psImage InitialValue="skip_brkp.ico" }

//      Get Item_Count To iCount

//      Get Current_Item To iItem

    Property Boolean pbLimitedBreakMode    False

    Property Boolean pbDebugRestart        False

    Property String[]       pLanguageKeywords

  Function IsLanguageKeyword String sKeyword Returns Boolean

    Boolean  bIsKeyword

    Integer  iCount

    Integer  iKeyword

    String[] Keywords

    Move false to bIsKeyword

    Move (lowercase(sKeyWord)) To sKeyword

    If (sKeyword<>"") Begin

      Get pLanguageKeywords To Keywords

      Move (SizeOfArray(Keywords)) To iCount

      Decrement iCount

      For iKeyWord From 0 To iCount

        If (Keywords[iKeyword]=sKeyword) Begin

          Move True To bIsKeyword

          Move iCount To iKeyword // stop

        End

      Loop

    End

    Function_Return bIsKeyword

  End_Function

    Boolean  bRestartMode

    String[] Empty

    Move (ResizeArray(Empty,0))   To Empty

    Set pAllMessages      To Empty

    Set pAllProperties    To Empty

    Set pLanguageKeywords To Empty

    Get pbDebugRestart to bRestartMode

    If (bRestartMode) Begin

      Send DoDebugRun

    Else Begin

      Get pbStartedFromCLI of ghoApplication To bStartedFromCLI

      If (bStartedFromCli) Begin

        // debug session was started from the command line.

        // Stopping the debug session normally should stop the debugger as well.

        Send Exit_Application

      End

    End

      Send doActivateDebugPanels  // only displays if exists or not.

    Set pbProgramPaused    To True

    Set pbLimitedBreakMode To lllimitedBreakMode

    Set pbProgramPaused    To False

    Set pbLimitedBreakMode To False

  Procedure AddKeyword String sWord

    Integer  iCount

    String[] Keywords

    Get pLanguageKeywords To Keywords

    Move (SizeOfArray(Keywords)) To iCount

    Move (Lowercase(sWord)) To Keywords[iCount]

    Set pLanguageKeywords To Keywords

  End_Procedure

  // Language keywords are not evaluated in the tooltip

  Procedure AddLanguageKeywords

    Send AddKeyword "End_Function"

    Send AddKeyword "End_Procedure"

    Send AddKeyword "Function"

    Send AddKeyword "Move"

    Send AddKeyword "Procedure"

    Send AddKeyword "Send"

    Send AddKeyword "Showln"

    Send AddKeyword "To"

    Send AddKeyword "UChar[]"

  End_Procedure

        Send CreateObjectCallback of hoParent hoVariables

  // we MUST send activate to the debug panels to make them display.

  Procedure doActivateDebugPanels

    Handle  hoLocalVars

    Handle  hoGlobalVars

        Send Activate of hoCallStack

    Get phoLocalVariables To hoLocalVars

    If (hoLocalVars) Begin

      Get IsComObjectCreated Of hoLocalVars To bCreated

      If (bCreated) Begin

        Send Activate of hoLocalVars

      End

    End

    Get phoGlobalVariables To hoGlobalVars

    If (hoGlobalVars) Begin

      Get IsComObjectCreated Of hoGlobalVars To bCreated

      If (bCreated) Begin

        Send Activate of hoGlobalVars

      End

    End

  End_Procedure

    Send AddLanguageKeywords

    Get AddImage "inst_ptr_top.ico" To iVoid // bit 2

    Get AddImage "inst_ptr.ico"     To iVoid // bit 4

    Boolean bIsKeyword

    Boolean bPaused

        Get pbProgramPaused    Of hoDebugger To bPaused

        If (bPaused) Begin

          Get IsLanguageKeyword of hoDebugger sWord To bIsKeyword //

          If (bIsKeyword=false) Begin

            Get IsVariableProperty of hoDebugger sWord To bIsProperty

            If (bIsProperty) Begin

              Get ObjectForProperty sWord llLine llColumn to sTargetObject

              Move (sWord+"("+sTargetObject+")") To sWord

              Move "Property " To sType

            Else Begin

              Get IsVariableProcedure Of hoDebugger sWord To bIsProcedure

              If (bIsProcedure) Begin

                Move "Procedure " To sType

              End

              Else Begin

                If (lowercase(sWord)="self") Begin

                  Move "Object " To sType

                  Move True     To bIsObject

                End

              End

            End

            Move ("Evaluating "+sType+"'"+sWord+"' results in"+character(10)) To llTipText

            If (bIsProcedure) Begin

              Move "Not evaluating methods." To sResult

            End

            Else Begin

              Get ComEval of hoDebugger sWord (&sResult) to bOK

            End

              If (bIsObject) Begin

                Move sResult To sObjectID

                Move ""      To sObjectName

                Get ComEval of hoDebugger ("name("+sObjectID+")") (&sObjectName) to bOK

                If (bOK) Begin

                  Move (sResult+" ("+sObjectName+") ") To sResult

                End

              End

              Move (sResult+character(10)+character(10)+"Eval OK") To sResult

            Else Begin

              Move (sResult+character(10)+character(10)+"Eval Failed") To sResult

            End

          Else Begin

            Move ("Keyword "+sWord) To sResult

          End

          Move sWord To sResult

    Integer iTopMostLine

    Set piCurrentLine to iLine

    Move iLine to iTopMostLine

    If (iLine>5) Begin

      Move (iLine-4) to iTopMostLine // scroll up a bit so we can see context

    Send ComSetTopIndex 0 iTopMostLine

    If (iLine>=0) Begin

        Send ComSetMarginImages (iLine-1) ICO_Inst_ptr //ICO_Brkp_obj// 2

        //Set psFilename     of oCodeMax To sFileName

        // Make it visible to the user where we are

        //Move True to bVisible

        //Send ComSelectLine of oCodeMax iLine bVisible

        Move (RGB(223,253,193)) to eBkLineColor

        Send ComSetLineColor (iLine-1) eBkLineColor //clYellow

    End

    Set Size to 346 769

    Object oVerticalSplitterContainer is a cSplitterContainer

      Set pbSplitVertical to True

      Set piSplitterLocation to 559

      Object oLeftPanelSplitter is a cSplitterContainerChild

        Object oDebugSplitterContainer is a cSplitterContainer

          Set pbSplitVertical to False

          Set piSplitterLocation to 200

          Object oTopPanelSplitter is a cSplitterContainerChild

            Object oCodeMax is a cSplatCodeMax

              Set Size to 188 553

              Set Location to 6 6

              Set peAnchors to anAll

              Set phoEditor To Self

                Procedure OnCreate

                  Variant vImageList

                  Boolean bCreated

                  Handle  hoLanguage

                  Forward Send OnCreate

                  // ToDo: Set the ActiveX properties here...

                  Get ComImageList  To vImageList

                  //Set ComHImageList 0  // OLE_HANDLE value

                End_Procedure

              Embed_ActiveX_Resource

              6AMAAAgAAgAAAAAACAACAAAAAAAAAQEBAAAAAQEBAQAAAQAAAAAAAAAAAAAAAAHpAwAAAQEBAAEBAAEEAP//////////////////////////////////////////QwBv

              AHUAcgBpAGUAcgAgAE4AZQB3AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAsAAAAAAAAA/////wAAAAAAAAABAAAACgAAAAEAAf//////

              ////AAAAAAABAAAAAQAAAE0uAAB2FwAA.

              End_Embed_ActiveX_Resource

            End_Object

          End_Object

          Object oBottomPanelSplitter Is a cSplitterContainerChild

            Object oDebug_TD is a TabDialog

              Set Size to 135 553

              Set Location to 4 6

              Set peAnchors to anAll

              Object oGlobalVariables_TP is a TabPage

                Set Label to "Global Variables"

                Object oGlobalVarContainer is a Container3d

                  Set Size to 131 540

                  Set Location to 2 2

                  Set peAnchors to anAll

                  Set Border_Style to Border_StaticEdge

                  Set phoGlobalVarHost To Self

                  Procedure CreateObjectCallback Handle hoObject

                    Handle hoGlobalVar

                    If (hoObject) Begin

                      Get phoGlobalVariables To hoGlobalVar

                      If (hoObject=hoGlobalVar) Begin

                        Set Size                     Of hoGlobalVar To 118 359

                        Set Location                 Of hoGlobalVar To 8 8

                        Set peAnchors                Of hoGlobalVar To anAll

                      End

                    End

                  End_Procedure // CreateObjectCallback

                End_Object

              End_Object

              Object oWatches_TP is a TabPage

                Set Label to "Watches"

                Object oWatchesContainer is a Container3d

                  Set Size to 131 540

                  Set Location to 2 2

                  Set peAnchors to anAll

                  Set Border_Style to Border_StaticEdge

                  Set phoWatchesHost To Self

                  Procedure CreateObjectCallback Handle hoObject

                    Handle hoWatches

                    If (hoObject) Begin

                      Get phoWatches To hoWatches

                      If (hoObject=hoWatches) Begin

                        Set Size                     Of hoWatches To 118 361

                        Set Location                 Of hoWatches To 9 6

                        Set peAnchors                Of hoWatches To anAll

                      End

                    End

                  End_Procedure // CreateObjectCallback

                End_Object

              End_Object

              Object oTrace_TP is a TabPage

                Set Label to "Trace"

                Object oTraceContainer is a Container3d

                  Set Size to 131 540

                  Set Location to 2 2

                  Set peAnchors to anAll

                  Set Border_Style to Border_StaticEdge

                  Set phoTraceHost To Self

                  Procedure CreateObjectCallback Handle hoObject

                    Handle hoTrace

                    If (hoObject) Begin

                      Get phoTrace To hoTrace

                      If (hoObject=hoTrace) Begin

                        Set Size                     Of hoTrace To 118 359

                        Set Location                 Of hoTrace To 9 6

                        Set Label                    Of hoTrace To "Trace"

                        Set peAnchors                Of hoTrace To anAll

                      End

                    End

                  End_Procedure // CreateObjectCallback

                End_Object

              End_Object

              //Object oDACTreelist_TP is a TabPage

              //  Set Label to "DACTreeList (not used)"

              //  // I do not think we are going to use this one.

              //  Object oComCDACTreeListCtl1 is a cComCDACTreeListCtl

              //    Set Size to 100 100

              //    Set Location to 10 35

              //

              //      Procedure OnCreate

              //          Forward Send OnCreate

              //          // ToDo: Set the ActiveX properties here...

              //      End_Procedure

              //

              //  End_Object

              //End_Object

              Object oTables_TP is a TabPage

                Set Label to "Tables"

                Object oTablesContainer is a Container3d

                  Set Size to 131 540

                  Set Location to 2 2

                  Set peAnchors to anAll

                  Set Border_Style to Border_StaticEdge

                  Set phoTablesHost To Self

                  Procedure CreateObjectCallback Handle hoObject

                    Handle hoTables

                    If (hoObject) Begin

                      Get phoTablesWindow To hoTables

                      If (hoObject=hoTables) Begin

                        Set Size                     Of hoTables To 118 363

                        Set Location                 Of hoTables To 7 6

                        Set peAnchors                Of hoTables To anAll

                      End

                    End

                  End_Procedure // CreateObjectCallback

                End_Object

              End_Object

              Object oBreakpoints_TP is a TabPage

                Set Label to "Breakpoints"

                Object oBreakPointsContainer is a Container3d

                  Set Size to 131 540

                  Set Location to 2 2

                  Set peAnchors to anAll

                  Set Border_Style to Border_StaticEdge

                  Object oBreakpointsGrid is a cCJGrid

                    Set Size to 112 382

                    Set Location to 6 10

                    Set peAnchors to anAll

                    Set pbReadOnly to True

                    Set phoBreakpointsGrid To Self

                    Object oBPContextMenu Is a cBreakPointsGridContextMenu

                    End_Object

                    Set phoContextMenu To oBPContextMenu

                    // Need to move to subclass for this technique, maybe later.

                    //Function CreateContextMenu Returns Handle

                    //  Handle hoMenu

                    //

                    //  Get Create (RefClass(cBreakPointsGridContextMenu)) To hoMenu

                    //  If (hoMenu) Begin

                    //    Set Name Of hoMenu To "oBPContextMenu"

                    //  End

                    //  Function_Return hoMenu

                    //End_Function

                    Object oEnabledColumn is a cCJGridColumn

                      Set piWidth to 57

                      Set psCaption to "Active"

                      Set pbCheckbox to True

                      Set pbResizable to False

                    End_Object

                    Object oLineColumn is a cCJGridColumn

                      Set piWidth to 85

                      Set psCaption to "Line"

                      Set peDataType to Mask_Numeric_Window

                      Set pbResizable to False

                    End_Object

                    Object oFileNameColumn is a cCJGridColumn

                      Set piWidth to 351

                      Set psCaption to "File"

                    End_Object

                    //

                    // Procedure ComSetCaretPos Integer llLine Integer llCol

                    //

                    // Procedure ComSelectLine Integer llLine Boolean llMakeVisible

                    Procedure LoadData

                      Handle  hoDataSource

                      Handle  hoDebug

                      Boolean bFound

                      Boolean bIsCreated

                      Integer iBreak

                      Integer iCount

                      Integer iRows

                      Integer iActive

                      Integer iLine

                      Integer iFile

                      tDataSourceRow[] TheData

                      tBreakPoints[] BP

                      Get phoDataSource to hoDataSource

                      Get phoDebugger   to hoDebug

                      // Get the datasource indexes of the various columns

                      Get piColumnId of oEnabledColumn  to iActive

                      Get piColumnId of oLineColumn     to iLine

                      Get piColumnId of oFileNameColumn to iFile

                      // Load all data into the datasource array

                      If (hoDebug) Begin

                        Get pBreakPoints of hoDebug To BP

                      End

                      Move (SizeOfArray(BP)) To iCount

                      For iBreak from 0 To (iCount-1)

                        // BP[iBreak].bHasCondition

                        // BP[iBreak].sExpression

                        //If (BP[iBreak].bEnabled) Move "Y" To TheData[iRows].sValue[iActive]

                        //Else Move "N" To TheData[iRows].sValue[iActive]

                        Move BP[iBreak].bEnabled  To TheData[iRows].sValue[iActive]

                        Move BP[iBreak].iLine     To TheData[iRows].sValue[iLine]

                        Move BP[iBreak].sFileName To TheData[iRows].sValue[iFile]

                        Increment iRows

                      Loop

                      Get IsComObjectCreated To bIsCreated

                      If (bIsCreated) Begin

                        // Initialize Grid with new data

                        Send InitializeData TheData

                        Send MovetoFirstRow

                      End

                    End_Procedure

                  End_Object

                  Object oButton3 is a Button

                    Set Size to 14 61

                    Set Location to 57 410

                    Set Label to "add breakpoint"

                    Set peAnchors to anTopRight

                    Procedure OnClick

                      Integer iLine

                      String  sFileName

                      Boolean bSuccess

                      Handle  hoDebugger

                      Handle  hoEditor

                      Get phoDebugger to hoDebugger

                      Get phoEditor   to hoEditor

                      If (hoDebugger<>0 and hoEditor<>0) Begin

                        Get psFileName    of hoEditor to sFileName

                        Get piCurrentLine of hoEditor to iLine

                        If (sFileName<>"" and iLine<>0) Begin

                          Get SetBreakPoint of hoDebugger sFileName (&iLine) to bSuccess

                          Send info_box ("Set breakpoint at line"*trim(iLine)*"success="*trim(bSuccess))

                          //Send ComSetMarginImages iLine 1

                        End

                      End

              // in codemax

              //    // turns on/off margin images for a specific line

              //    Procedure ComSetMarginImages Integer llLine UChar llImages

              //

              //    // sets the line margin images

              //    Procedure Set ComHImageList OLE_HANDLE value

              //

              //    // sets the line margin images

              //    Function ComHImageList Returns OLE_HANDLE

              //    // Returns the first line number with the specified margin images

              //    Function ComFindLineMatchingMarginImages Integer llStartLine UChar llImages Returns Integer

              // in debugger

              //    // Sets the specified breakpoint

              //    Function ComSetBreakPoint String llfile UInteger ByRef llline Returns Boolean

                    End_Procedure

                  End_Object

                End_Object

                Procedure DisplayTabDetails

                  Send LoadData of oBreakpointsGrid

                End_Procedure

              End_Object // TP

              Function Tab_Change Integer iToTab Integer ePointerMode Returns Integer

                Handle  hoToTab

                Integer iCurrentTab

                Integer iRetVal

                Get Current_Tab To iCurrentTab

                Forward Get Tab_Change iToTab ePointerMode To iRetVal

                If (iCurrentTab<>-1 and iRetval=0) Begin

                  Get Tab_Page_Id iToTab To hoToTab

                  If (hoToTab=oBreakPoints_TP) Begin

                    Send DisplayTabDetails of hoToTab

                  End

                End

                Function_Return iRetVal

              End_Function

            End_Object  // oDebug_TD

          End_Object // oDebugPanelSplitter

        End_Object // oSplitterContainer

      Object oRightPanelSplitter Is a cSplitterContainerChild

        Object oStackSplitterContainer is a cSplitterContainer

          Set pbSplitVertical to False

          Set piSplitterLocation to 140

          Object oStackTopPanelSplitter is a cSplitterContainerChild

              Set Size to 131 370

                    Set Location                 Of hoCallStack To 11 5

                    Set ComObjectColumnWidth     Of hoCallStack To 90

                    Set ComMessageColumnWidth    Of hoCallStack To 265

          Object oStackBottomPanelSplitter Is a cSplitterContainerChild

            Object oLocalVarContainer is a Container3d

              Set Size to 200 370

              Set Border_Style To Border_StaticEdge

                    Set Size                     Of hoLocalVar To 188 359

                    Set Location                 Of hoLocalVar To 11 5

                    Set Label_Justification_Mode Of hoLocalVar To JMode_Top

                    Set Label_Col_Offset         Of hoLocalVar To 0

                    Set Label                    Of hoLocalVar To "Local Variables"

        End_Object

      End_Object

    End_Object