source: cprs/branches/tmg-cprs/m_files/TMGIDE5.m@ 1548

Last change on this file since 1548 was 896, checked in by Kevin Toppenberg, 14 years ago

replacing soft links with actual files

File size: 3.3 KB
Line 
1TMGIDE5 ;TMG/kst/GT/M debugger Interrupt handler code ;03/18/09
2 ;;1.0;TMG-LIB;**1**;03/23/09
3 ;
4 ;" TMG IDE Debugger Interrupt handler code
5 ;"
6 ;" K. Toppenberg
7 ;" 3/18/09
8 ;" License: GPL Applies
9 ;"
10 ;"------------------------------------------------------------
11 ;"PUBLIC API
12 ;"------------------------------------------------------------
13 ;"PICKINTR -- show currently running jobs, and allow user to start debugging them
14 ;"INTERUPT -- respond to mupip intrpt, assigning control to a remote process
15
16 ;"------------------------------------------------------------
17 ;"PRIVATE API
18 ;"------------------------------------------------------------
19 ;"LaunchIntr(JobNum) -- create interrupt message to job, then start listening
20 ;" for requests for control from interrupted process
21 ;"------------------------------------------------------------
22 ;"Dependencies
23 ;" TMGIDE4
24 ;" TMGKERNL
25 ;" %ZISUTL
26 ;" TMGUSRIF
27
28PICKINTR
29 ;"Purpose: To show currently running jobs, and allow user to start
30 ;" debugging them (tapping into process currently running)
31 ;"Called from TMGIDE
32 ;
33 new array
34 do MJOBS^TMGKERNL(.array)
35 kill array($J) ;"don't show this process
36 new Menu,UsrSlct
37 new i,j set i="",j=1
38 for set i=$order(array(i)) quit:(i="") do
39 . set Menu(j)="Job "_$get(array(i))_$char(9)_i
40 . set j=j+1
41 if $data(Menu)=0 do goto PIDone
42 set Menu(0)="Pick Job to Debug"
43 ;
44M1 set UsrSlct=$$Menu^TMGUSRIF(.Menu,"^")
45 ;
46 if UsrSlct="^" goto PIDone
47 if UsrSlct=0 set UsrSlct="" goto M1
48 if UsrSlct=+UsrSlct do LaunchIntr(UsrSlct)
49 goto M1
50 ;
51PIDone quit
52 ;
53LaunchIntr(JobNum)
54 ;"Purpose: To create interrupt message to job, then start listening
55 ;" for requests for control from interrupted process
56 if +$get(JobNum)'>0 quit
57 set tmgDbgRemoteJob=JobNum
58 set ^XUTL("XUSYS","TMG COMMAND")="INTRPT"
59 zsystem "mupip intrpt "_JobNum
60 do Controller^TMGIDE3 ;"launch the controller
61 set ^XUTL("XUSYS","TMG COMMAND")=""
62 quit
63 ;
64INTERUPT
65 ;"Purpose: To respond to mupip interrupt for a process, turning control
66 ;" over to a remote control process
67 ;"NOTE: This will be called by a modified version of JOBEXAM^ZU
68 if $get(TMGDEBUG) write !,"Sending INQ to connect to remote controller..."
69 new TMGR set TMGR=$$MessageOut^TMGIDE4("INQ "_$J,30)
70 if TMGR="" goto Int2
71 if $get(TMGDEBUG) do
72 . write !
73 . write "*****************************************************",!
74 . write "* INTERRUPT RECEIVED. Transferring control to *",!
75 . write "* a remote controller. That is process ",$$LJ^XLFSTR($piece(TMGR," ",2),5),?52,"*",!
76 . write "* *",!
77 . write "* Please switch to that process window for control. *",!
78 . write "*****************************************************",!
79 set TMGR=$$MessageOut^TMGIDE4("WRITE Notice: Controlling interrupted job #"_$J,,0)
80 set $ZSTEP="N TMGTrap S TMGTrap=$$STEPTRAP^TMGIDE4($ZPOS) zstep:(TMGTrap=1) into zstep:(TMGTrap=2) over zcontinue"
81 set TMGStepMode="into"
82 zstep into quit
83Int2 quit
84 ;
Note: See TracBrowser for help on using the repository browser.