TMGIDE.m - Revision history

NeilArmstrong: Added glossary link to Prompt~

2012-03-04T02:24:14Z

Added glossary link to Prompt~

← Older revision		Revision as of 02:24, 4 March 2012
Line 10:		Line 10:
	;"		;"
	;" This program will launch a shell for the TMG STEP TRAP debugger		;" This program will launch a shell for the TMG STEP TRAP debugger
	;" It provides the user with a prompt, like this:		;" It provides the user with a [[prompt~\|Prompt]], like this:
	;"		;"
	;" (^ to quit) IDE>		;" (^ to quit) IDE>
Line 40:		Line 40:
	set $ZSTATUS=""		set $ZSTATUS=""

	do Prompt		do [[Prompt~\|Prompt]]
	Done		Done
	do ShutDown		do ShutDown
Line 47:		Line 47:
	;"-------------------------------------------------------------------		;"-------------------------------------------------------------------

	Prompt		[[Prompt~\|Prompt]]
	new Line		new Line
	do INITKB^XGF("*") ;"set up keyboard input escape code processing		do INITKB^XGF("*") ;"set up keyboard input escape code processing

24.75.227.14 at 03:40, 26 June 2005

2005-06-26T03:40:56Z

← Older revision		Revision as of 03:40, 26 June 2005
Line 24:		Line 24:
	;"		;"
	;"------------------------------------------------------------		;"------------------------------------------------------------
	;"------------------------------------------------------------		;"------------------------------------------------------------


Line 30:		Line 30:
	set TMGScrWidth=70		set TMGScrWidth=70
	set TMGScrHeight=10		set TMGScrHeight=10
			set tpWatchLine=""

	do SetGlobals^TMGTERM		do SetGlobals^TMGTERM
	~~set TMGNlFGColor=TMGcWhite~~
	~~set TMGNlBGColor=TMGcBlack~~
	~~set TMGDbFGColor=TMGcBlack~~
	~~set TMGDbBFColor=TMGcWhite~~

	~~set ^TMP("TMGIDE",$J,"Normal Foreground Color")=TMGcBlack~~
	~~set ^TMP("TMGIDE",$J,"Normal Background Color")=TMGcWhite~~
	~~set ^TMP("TMGIDE",$J,"Debug Foreground Color")=TMGcWhite~~
	~~set ^TMP("TMGIDE",$J,"Debug Background Color")=TMGcBlack~~

	for i=1:1:80 write !		for i=1:1:80 write !
	write !,"Welcome to the TMG debugging environment",!		write !,"Welcome to the TMG debugging environment",!
Line 47:		Line 39:
	set $ZTRAP="do ErrTrap^TMGTPSTP($ZPOS) break"		set $ZTRAP="do ErrTrap^TMGTPSTP($ZPOS) break"
	set $ZSTATUS=""		set $ZSTATUS=""

	do Prompt		do Prompt
	Done		Done
Line 54:		Line 46:

	;"-------------------------------------------------------------------		;"-------------------------------------------------------------------

	Prompt		Prompt
	new Line		new Line
			do INITKB^XGF("*") ;"set up keyboard input escape code processing

			Ppt2
			;"write !,"(^ to quit) IDE>"
			;"set Line=$$READ^XGF write !

	read !,"(^ to quit) IDE>",Line,!		read !,"(^ to quit) IDE>",Line,!

Line 67:		Line 65:
	xecute Line		xecute Line
	set $ZSTEP="" ;"turn off step capture		set $ZSTEP="" ;"turn off step capture
	goto ~~Prompt~~		goto Ppt2


			;"-------------------------------------------------------------------

	ShutDown		ShutDown
	~~;"do ShowCode("",80,15,1)~~
	do KillGlobals^TMGTERM		do KillGlobals^TMGTERM
	kill ~~TMGNlFGColor~~
	kill ~~TMGNlBGColor~~		kill TMGScrWidth
	kill ~~TMGDbFGColor~~		kill TMGScrHeight
	kill ~~TMGDbBFColor~~		kill tpWatchLine
			kill ^TMP("TMGIDE",$J,"MODULES")
			do VTATRIB^TMGTERM(0)
			do RESETKB^XGF ;"turn off XGF escape key processing code.
			write "Leaving TMG debugging environment. Goodbye.",!
	quit		quit

			;"-------------------------------------------------------------------

	BKPT		BKPT
Line 85:		Line 88:
	ZBREAK @Pos		ZBREAK @Pos
	write "ZBREAK ",Pos,!		write "ZBREAK ",Pos,!

	quit		quit

69.68.182.66 at 16:43, 21 June 2005

2005-06-21T16:43:16Z

← Older revision		Revision as of 16:43, 21 June 2005
Line 25:		Line 25:
	;"------------------------------------------------------------		;"------------------------------------------------------------
	;"------------------------------------------------------------		;"------------------------------------------------------------


	Start		Start

69.68.182.66 at 16:42, 21 June 2005

2005-06-21T16:42:41Z

Show changes

Kdtop3 at 22:12, 18 April 2005

2005-04-18T22:12:34Z

← Older revision		Revision as of 22:12, 18 April 2005
Line 31:		Line 31:
	;"------------------------------------------------------------		;"------------------------------------------------------------

	STEPTRAP(Pos)		STEPTRAP(Pos)
	;"Purpose: This is the line that is called by GT.M for each zstep event.		;"Purpose: This is the line that is called by GT.M for each zstep event.
	;" It will be used to display the current code execution point, and		;" It will be used to display the current code execution point, and
Line 125:		Line 125:
	. . write " H -- Hide debug code",!		. . write " H -- Hide debug code",!

	SPDone		SPDone
	do VCULOAD2^TMGTERM		do VCULOAD2^TMGTERM
	set TMGRunMode=tpRunMode		set TMGRunMode=tpRunMode
Line 134:		Line 134:


	ErrTrap(Pos)		ErrTrap(Pos)
	;"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 152:		Line 152:


	ShowCode(Pos,ScrWidth,ScrHeight,Wipe)		ShowCode(Pos,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: Pos -- string like this: X+2^ROUTINE[$DMOD]		;"Input: Pos -- string like this: X+2^ROUTINE[$DMOD]
Line 219:		Line 219:
	write !		write !

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

Kdtop3 at 22:09, 18 April 2005

2005-04-18T22:09:26Z

Show changes

Kdtop3 at 22:03, 18 April 2005

2005-04-18T22:03:57Z

Show changes

Kdtop3 at 22:12, 14 April 2005

2005-04-14T22:12:28Z

← Older revision		Revision as of 22:12, 14 April 2005
Line 1:		Line 1:
	;"------------------------------------------------------------		;"------------------------------------------------------------
	;"------------------------------------------------------------		;"------------------------------------------------------------
	;"		;"
	;" GT.M Debug Tracer		;" GT.M Debug Tracer
	;"		;"
	;" K. Toppenberg		;" K. Toppenberg
	;" 4-13-2005		;" 4-13-2005
	;" License: GPL Applies		;" License: GPL Applies
	;"		;"
	;"		;"
	;" This program will launch a shell for the TMG STEP TRAP debugger		;" This program will launch a shell for the TMG STEP TRAP debugger
	;" It provides the user with a prompt, like this:		;" It provides the user with a prompt, like this:
	;"		;"
	;" (^ to quit) IDE>		;" (^ to quit) IDE>
	;"		;"
	;" Any valid M code may be entered here. To use the tracing		;" Any valid M code may be entered here. To use the tracing
	;" ability, launch a function, like this:		;" ability, launch a function, like this:
	;"		;"
	;" (^ to quit) IDE>do ^MyFunction		;" (^ to quit) IDE>do ^MyFunction
	;"		;"
	;"		;"
	;" Dependancies:		;" Dependancies:
	;" Uses TMGTRSTP,TMGTERM		;" Uses TMGTRSTP,TMGTERM
	;"		;"
	;"------------------------------------------------------------		;"------------------------------------------------------------
	;"------------------------------------------------------------		;"------------------------------------------------------------


			Start
	Start
	new ScrHeight set ScrHeight=10 ;"defined in ShowCode also		new ScrHeight set ScrHeight=10 ;"defined in ShowCode also
	new ScrWidth set ScrWidth=70 ;"defined in ShowCode also		new ScrWidth set ScrWidth=70 ;"defined in ShowCode also

	set ^TMP("TMGIDE",$J,"ScrWidth")=ScrWidth		set ^TMP("TMGIDE",$J,"ScrWidth")=ScrWidth
	set ^TMP("TMGIDE",$J,"ScrHeight")=ScrHeight		set ^TMP("TMGIDE",$J,"ScrHeight")=ScrHeight

	do SetGlobals^TMGTERM		do SetGlobals^TMGTERM
	set ^TMP("TMGIDE",$J,"Normal Foreground Color")=TMGcYellow		set ^TMP("TMGIDE",$J,"Normal Foreground Color")=TMGcYellow
Line 39:		Line 39:
	set ^TMP("TMGIDE",$J,"Debug Foreground Color")=TMGcBlack		set ^TMP("TMGIDE",$J,"Debug Foreground Color")=TMGcBlack
	set ^TMP("TMGIDE",$J,"Debug Background Color")=TMGcWhite		set ^TMP("TMGIDE",$J,"Debug Background Color")=TMGcWhite

	;"write # ;"formfeed		;"write # ;"formfeed
	;"do CUP^TMGTERM(1,ScrHeight+1)		;"do CUP^TMGTERM(1,ScrHeight+1)
Line 47:		Line 47:
	set $ZTRAP="write !,""This is a ZTRAP line"",! break"		set $ZTRAP="write !,""This is a ZTRAP line"",! break"
	set $ZSTATUS=""		set $ZSTATUS=""

	;"Run modes: 0=fast mode 1=slow mode 2=Don't show code		;"Run modes: 0=fast mode 1=slow mode 2=Don't show code
	set ^TMP("TMGIDE",$J,"Run Mode")=0		set ^TMP("TMGIDE",$J,"Run Mode")=0
	new BlankLine set BlankLine=" "		new BlankLine set BlankLine=" "
	for i=1:1:ScrWidth-1 set BlankLine=BlankLine_" "		for i=1:1:ScrWidth-1 set BlankLine=BlankLine_" "

	do Prompt		do Prompt
	Done		Done
	do ShutDown		do ShutDown
	quit		quit

	;"-------------------------------------------------------------------		;"-------------------------------------------------------------------

	Prompt		Prompt
	new Line		new Line
	write !,BlankLine,!		write !,BlankLine,!
	do CUU^TMGTERM(1)		do CUU^TMGTERM(1)
	read "(^ to quit) IDE>",Line		read "(^ to quit) IDE>",Line

	if Line="^" set $ZSTEP="" quit		if Line="^" set $ZSTEP="" quit
	set $ZSTEP="do STEPTRAP^TMGTRSTP($ZPOS) zstep into zcontinue"		set $ZSTEP="do STEPTRAP^TMGTRSTP($ZPOS) zstep into zcontinue"
Line 72:		Line 72:
	set $ZSTEP="" ;"turn off step capture		set $ZSTEP="" ;"turn off step capture
	goto Prompt		goto Prompt

	ShutDown		ShutDown
	;"do ShowCode("",1)		;"do ShowCode("",1)
	kill ^TMP("TMGIDE",$J)		kill ^TMP("TMGIDE",$J)
	do KillGlobals^TMGTERM		do KillGlobals^TMGTERM
	quit		quit

Kdtop3 at 22:11, 14 April 2005

2005-04-14T22:11:25Z

New page

;"------------------------------------------------------------
;"------------------------------------------------------------
;"
;" GT.M Debug Tracer
;"
;" K. Toppenberg
;" 4-13-2005
;" License: GPL Applies
;"
;"
;" This program will launch a shell for the TMG STEP TRAP debugger
;" It provides the user with a prompt, like this:
;"
;" (^ to quit) IDE>
;"
;" Any valid M code may be entered here. To use the tracing
;" ability, launch a function, like this:
;"
;" (^ to quit) IDE>do ^MyFunction
;"
;"
;" Dependancies:
;" Uses TMGTRSTP,TMGTERM
;"
;"------------------------------------------------------------
;"------------------------------------------------------------

Start
new ScrHeight set ScrHeight=10 ;"defined in ShowCode also
new ScrWidth set ScrWidth=70 ;"defined in ShowCode also

set ^TMP("TMGIDE",$J,"ScrWidth")=ScrWidth
set ^TMP("TMGIDE",$J,"ScrHeight")=ScrHeight

do SetGlobals^TMGTERM
set ^TMP("TMGIDE",$J,"Normal Foreground Color")=TMGcYellow
set ^TMP("TMGIDE",$J,"Normal Background Color")=TMGcBlack
set ^TMP("TMGIDE",$J,"Debug Foreground Color")=TMGcBlack
set ^TMP("TMGIDE",$J,"Debug Background Color")=TMGcWhite

;"write # ;"formfeed
;"do CUP^TMGTERM(1,ScrHeight+1)
for i=1:1:80 write !
write !,"Welcome to the TMG debugging environment",!
write "Enter any valid M command...",!
set $ZTRAP="write !,""This is a ZTRAP line"",! break"
set $ZSTATUS=""

;"Run modes: 0=fast mode 1=slow mode 2=Don't show code
set ^TMP("TMGIDE",$J,"Run Mode")=0
new BlankLine set BlankLine=" "
for i=1:1:ScrWidth-1 set BlankLine=BlankLine_" "

do Prompt
Done
do ShutDown
quit

;"-------------------------------------------------------------------

Prompt
new Line
write !,BlankLine,!
do CUU^TMGTERM(1)
read "(^ to quit) IDE>",Line

if Line="^" set $ZSTEP="" quit
set $ZSTEP="do STEPTRAP^TMGTRSTP($ZPOS) zstep into zcontinue"
zstep into
xecute Line
set $ZSTEP="" ;"turn off step capture
goto Prompt

ShutDown
;"do ShowCode("",1)
kill ^TMP("TMGIDE",$J)
do KillGlobals^TMGTERM
quit