TMGTPSTP.m - Revision history

NeilArmstrong: Added a glossary link to Action~

2012-07-10T08:56:37Z

Added a glossary link to Action~

← Older revision		Revision as of 08:56, 10 July 2012
Line 42:		Line 42:

	new tpBlankLine		new tpBlankLine
	new ~~tpAction~~		new tp[[Action~\|Action]]
	new tpKeyIn		new tpKeyIn
	new tpRunMode,tpStepMode		new tpRunMode,tpStepMode
Line 90:		Line 90:
	set tpDone=0		set tpDone=0
	if tpRunMode=1 for do quit:tpDone=1		if tpRunMode=1 for do quit:tpDone=1
	. new ~~DefAction~~ set ~~DefAction~~="O"		. new Def[[Action~\|Action]] set Def[[Action~\|Action]]="O"
	. do ShowCodePos(idePos,ScrWidth,ScrHeight,,ViewOffset)		. do ShowCodePos(idePos,ScrWidth,ScrHeight,,ViewOffset)
	. do CUP^TMGTERM(1,ScrHeight+4) ;"Cursor to line (x,y)		. do CUP^TMGTERM(1,ScrHeight+4) ;"Cursor to line (x,y)
Line 105:		Line 105:
	. write !		. write !
	. do CUU^TMGTERM(2)		. do CUU^TMGTERM(2)
	. write "Action (? for help): "		. write "[[Action~\|Action]] (? for help): "
	. if tpStepMode="into" write "step INTO// " set ~~DefAction~~="I"		. if tpStepMode="into" write "step INTO// " set Def[[Action~\|Action]]="I"
	. else write "step OVER// " set ~~DefAction~~="O"		. else write "step OVER// " set Def[[Action~\|Action]]="O"
	. new loop		. new loop
	. for loop=1:1:20 write " "		. for loop=1:1:20 write " "
	. for loop=1:1:20 write $char(8) ;"backspace		. for loop=1:1:20 write $char(8) ;"backspace
	. set ~~tpAction~~=$$READ^XGF(1) write !		. set tp[[Action~\|Action]]=$$READ^XGF(1) write !
	. ;"read ~~tpAction~~,!		. ;"read tp[[Action~\|Action]],!
	. if ~~tpAction~~="" set tpAction=DefAction		. if tp[[Actio~\|Action]]n="" set tpAction=DefAction
	. if "rR"[tpAction do quit		. if "rR"[tpAction do quit
	. . set tpRunMode=0		. . set tpRunMode=0
	. . set tpDone=1		. . set tpDone=1
	. if "lL"[~~tpAction~~ do quit		. if "lL"[tp[[Action~\|Action]] do quit
	. . set tpRunMode=3		. . set tpRunMode=3
	. . set tpDone=1		. . set tpDone=1
	. if "mM"[~~tpAction~~ do quit		. if "mM"[tp[[Action~\|Action]] do quit
	. . new temp		. . new temp
	. . do CUU^TMGTERM(1)		. . do CUU^TMGTERM(1)
Line 131:		Line 131:
	. . . write ! ;"get below bottom line for output.		. . . write ! ;"get below bottom line for output.
	. . . xecute tpLine		. . . xecute tpLine
	. if "iI"[~~tpAction~~ do quit		. if "iI"[tp[[Action~\|Action]] do quit
	. . set tpStepMode="into"		. . set tpStepMode="into"
	. . ;"set $ZSTEP="do STEPTRAP^TMGTPSTP($ZPOS) zstep into zcontinue"		. . ;"set $ZSTEP="do STEPTRAP^TMGTPSTP($ZPOS) zstep into zcontinue"
	. . set tpDone=1		. . set tpDone=1
	. if "Oo"[~~tpAction~~ do quit		. if "Oo"[tp[[Action~\|Action]] do quit
	. . set tpStepMode="over"		. . set tpStepMode="over"
	. . ;"set $ZSTEP="do STEPTRAP^TMGTPSTP($ZPOS) zstep over zcontinue"		. . ;"set $ZSTEP="do STEPTRAP^TMGTPSTP($ZPOS) zstep over zcontinue"
	. . set tpDone=1		. . set tpDone=1
	. if "Bb"[~~tpAction~~ do quit		. if "Bb"[tp[[Action~\|Action]] do quit
	. . new idePos		. . new idePos
	. . read "Enter breakpoint (e.g. Label+8^MyFunct): ",idePos,!		. . read "Enter breakpoint (e.g. Label+8^MyFunct): ",idePos,!
	. . set idePos=Pos_":""n tmg s tmg=$$STEPTRAP^TMGTPSTP($ZPOS,1)"""		. . set idePos=Pos_":""n tmg s tmg=$$STEPTRAP^TMGTPSTP($ZPOS,1)"""
	. . ZBREAK @idePos		. . ZBREAK @idePos
	. if "Hh"[~~tpAction~~ do quit		. if "Hh"[tp[[Action~\|Action]] do quit
	. . set tpRunMode=2		. . set tpRunMode=2
	. . set tpDone=1		. . set tpDone=1
	. if "Ww"[~~tpAction~~ do quit		. if "Ww"[tp[[Action~\|Action]] do quit
	. . new temp		. . new temp
	. . do CUU^TMGTERM(1)		. . do CUU^TMGTERM(1)
Line 155:		Line 155:
	. . read "Enter M code (^ to cancel): ",temp,!		. . read "Enter M code (^ to cancel): ",temp,!
	. . if temp'="^" set tpWatchLine=temp		. . if temp'="^" set tpWatchLine=temp
	. if "Aa"[~~tpAction~~ do quit		. if "Aa"[tp[[Action~\|Action]] do quit
	. . set ViewOffset=ViewOffset-1		. . set ViewOffset=ViewOffset-1
	. if "Zz"[~~tpAction~~ do quit		. if "Zz"[tp[[Action~\|Action]] do quit
	. . set ViewOffset=ViewOffset+1		. . set ViewOffset=ViewOffset+1
	. else do quit		. else do quit

24.75.227.14 at 03:50, 26 June 2005

2005-06-26T03:50:45Z

← Older revision		Revision as of 03:50, 26 June 2005
Line 219:		Line 219:
	;" code other than at the point of execution)		;" code other than at the point of execution)
	;" Positive numbers will scroll page downward.		;" Positive numbers will scroll page downward.

	new i		new i
	new Routine,Label,Offest,s		new Routine,Label,Offest,s

24.75.227.14 at 03:50, 26 June 2005

2005-06-26T03:50:06Z

← Older revision		Revision as of 03:50, 26 June 2005
Line 192:		Line 192:

	ErrTrap(idePos)		ErrTrap(idePos)
	;"Purpose: This is the line that is called by GT.M for each ztrap event.		;"Purpose: This is the line that is called by GT.M for each ztrap event.
	;" It will be used to display the current code execution point		;" It will be used to display the current code execution point

Line 347:		Line 347:
	;"Result: returns the new position line, relative to the start of the file/module		;"Result: returns the new position line, relative to the start of the file/module
	;"		;"

	new s		new s
	new result set result=""		new result set result=""

24.75.227.14 at 03:48, 26 June 2005

2005-06-26T03:48:49Z

Show changes

69.68.182.66 at 16:54, 21 June 2005

2005-06-21T16:54:20Z

← Older revision		Revision as of 16:54, 21 June 2005
Line 214:		Line 214:
	. set ref=Label_"+"_i_"^"_Routine		. set ref=Label_"+"_i_"^"_Routine
	. set line=$text(@ref)		. set line=$text(@ref)
	~~. set line=$$Substitute^TMGSTUTL(line,$Char(9),">>>>>")~~
	. if (i=Offset) do		. if (i=Offset) do
	. . do VCOLORS^TMGTERM(nlFGColor,nlBGColor)		. . do VCOLORS^TMGTERM(nlFGColor,nlBGColor)

69.68.182.66 at 16:51, 21 June 2005

2005-06-21T16:51:43Z

← Older revision		Revision as of 16:51, 21 June 2005
Line 132:		Line 132:
	. . write " B -- set Breakpoint",!		. . write " B -- set Breakpoint",!

	SPDone		SPDone
	do VCULOAD2^TMGTERM		do VCULOAD2^TMGTERM
	set TMGRunMode=tpRunMode		set TMGRunMode=tpRunMode
Line 157:		Line 157:
	do ShowCodePos(idePos,ScrWidth,ScrHeight)		do ShowCodePos(idePos,ScrWidth,ScrHeight)

	ETDone		ETDone
	do VCULOAD2^TMGTERM		do VCULOAD2^TMGTERM
	quit		quit

	ShowCode(idePos,ScrWidth,ScrHeight,Wipe)		ShowCode(idePos,ScrWidth,ScrHeight,Wipe)
	;"Purpose: This will display code at the top of the screen		;"Purpose: This will display code at the top of the screen
	;"Input: idePos -- string like this: X+2^ROUTINE[$DMOD]		;"Input: idePos -- string like this: X+2^ROUTINE[$DMOD]

69.68.182.66 at 16:51, 21 June 2005

2005-06-21T16:51:06Z

Show changes

Kdtop3 at 22:13, 18 April 2005

2005-04-18T22:13:19Z

Show changes

Kdtop3 at 22:15, 14 April 2005

2005-04-14T22:15:56Z

New page

;"------------------------------------------------------------
;"------------------------------------------------------------
;"
;" GT.M STEP TRAP
;"
;" K. Toppenberg
;" 4-13-2005
;" License: GPL Applies
;"
;" This code module will allow tracing through code.
;" It is used as follows:
;"
;" set $ZSTEP="do STEPTRAP^TMGTRSTP($ZPOS) zstep into zcontinue"
;" zstep into
;" do ^MyFunction ;"<--- put the function you want to trace here
;"
;" set $ZSTEP="" ;"<---turn off step capture
;" quit
;"
;"
;" Dependencies:
;" Uses TMGTERM
;"
;"------------------------------------------------------------
;"------------------------------------------------------------

STEPTRAP(Pos)

do VCUSAV2^TMGTERM
do ShowCodePos(Pos)
do VCULOAD2^TMGTERM

new KeyIn
new PauseMode set PauseMode=0
new RunMode set RunMode=$get(^TMP("TMGIDE",$J,"Run Mode"))

if RunMode=2 goto SPDone ;"Don't showmode --> goto SPDone
if RunMode=1 hang 1
SPLoop
read *KeyIn:0
if KeyIn=27 set PauseMode=2
if KeyIn=32 do
. w $c(7)
. set PauseMode='PauseMode
if PauseMode=1 goto SPLoop
SPDone
set ^TMP("TMGIDE",$J,"Run Mode")=PauseMode
quit

ShowCode(Pos,Wipe)
;"Purpose: This will display code at the top of the screen
;"Input: Pos -- string like this: X+2^ROUTINE[$DMOD]
;" Wipe -- OPTIONAL. if 1, then code area is wiped blank

new Action,i
new Routine,Label,Offest,s
set ScrWidth=^TMP("TMGIDE",$J,"ScrWidth")
set ScrHeight=^TMP("TMGIDE",$J,"ScrHeight")
new LastRou,LastLabel,LastOffset
new dbFGColor,bBGColor,nlFGColor,nlBGColor
set nlFGColor=^TMP("TMGIDE",$J,"Normal Foreground Color")
set nlBGColor=^TMP("TMGIDE",$J,"Normal Background Color")
set dbFGColor=^TMP("TMGIDE",$J,"Debug Foreground Color")
set dbBGColor=^TMP("TMGIDE",$J,"Debug Background Color")

new BlankLine set BlankLine=" "
for i=1:1:ScrWidth-1 set BlankLine=BlankLine_" "

;"write "dbFG=",dbFGColor," dbBG=",dbBGColor,!
do VCOLORS^TMGTERM(dbFGColor,dbBGColor)
;do VFGCOLOR^TMGTERM(dbFGColor)
;do VBGCOLOR^TMGTERM(dbBGColor)

do CUP^TMGTERM(1,1) ;"Cursor to line (1,1) write BlankLine,! ;"This is needed for some reason...
do CUU^TMGTERM(2)

if $get(Wipe)=1 do goto SCDone
. do VCOLORS^TMGTERM(nlFGColor,nlBGColor)
. for i=0:1:ScrHeight+1 write BlankLine

set s=$piece(Pos,"$",1) ;"e.g. X+2^ROUTINE$DMOD-->X+2^ROUTINE
set Routine=$piece(s,"^",2)
set Label=$piece(s,"^",1)
set Offset=+$piece(Label,"+",2)
set Label=$piece(Label,"+",1)

set LastRou=$get(^TMP("TMGIDE",$J,"DISP ROUTINE"))
set LastLabel=$get(^TMP("TMGIDE",$J,"DISP LABEL"))
set LastOffset=$get(^TMP("TMGIDE",$J,"DISP OFFSET"))

set s="=== Routine: ^"_Routine_" " write s
for i=1:1:ScrWidth-$length(s) write "="
write !

for i=0:1:ScrHeight do
. new line,Bl,ref
. set ref=Label_"+"_i_"^"_Routine
. set line=$text(@ref)
. if (i=Offset) do VCOLORS^TMGTERM(nlFGColor,nlBGColor)
. if (i=Offset) write ">"
. else write " "
. if $length(line)>(ScrWidth-1) do
. . write $extract(line,1,ScrWidth-4),"...",!
. else do
. . write $extract(line,1,ScrWidth-1)
. . write $extract(BlankLine,1,ScrWidth-$length(line)-1),!
. if (i=Offset) do VCOLORS^TMGTERM(dbFGColor,dbBGColor)

for i=1:1:ScrWidth write "~"
write !

set ^TMP("TMGIDE",$J,"DISP ROUTINE")=Routine
set ^TMP("TMGIDE",$J,"DISP LABEL")=Label
set ^TMP("TMGIDE",$J,"DISP OFFSET")=Offset

SCDone
do VCULOAD^TMGTERM
do VCOLORS^TMGTERM(nlFGColor,nlBGColor)

do CUD^TMGTERM(2)

quit