home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / Cobol32 / PowerGEM / Powergem.z / svd32.scp < prev    next >
Text File  |  1995-10-08  |  5KB  |  165 lines
  1. //************************************************************************
  2. //  Script for FUJITSU COBOL85 debugger
  3. //
  4. //  ALL Rights Reserved, CopyRight (C) FUJITSU LIMITED 1995
  5. //************************************************************************
  6.  
  7. public :
  8.   var tool ;
  9.   var ToolClass = "DEBUG";      // tool class
  10.   var Str_Filespec = 0;         // file spec
  11.   var Com_Filespec = 0;         // file spec
  12.   var Com_Term = 0 ;            // tearmination
  13.   var MsgTitle = "SVD32.SCP";   // err message title
  14.   var msg1 = "Debugger: Specifed file in uses";
  15.  
  16. exec() {
  17.   var Filespec ;
  18.   var Ret ;                     // return code
  19.  
  20.   MessageOpen(ToolClass) ;      // open nessage pass
  21.   Filespec = MakeFilespec("*", 0) ; // create filespec
  22.   Str_Filespec = Filespec ;     // save filespec
  23.   MakeEvent("R", ToolClass, "START", Filespec, "start") ;
  24.  
  25. }
  26.  
  27. start() {
  28.   var Get_MessageID ;               // message id
  29.   var Make_MessageID;               // message id
  30.   var Filespec ;
  31.   var Ret ;                         // return code
  32.   var PathName ;
  33.   var FileName ;
  34.   var CommandLine ;
  35.   var SenderToolClass ;
  36.   var MessageType ;
  37.   var ToolClassName ;
  38.   var CommandName ;
  39.   var Data ;
  40.   var Originator ;
  41.  
  42.   Get_MessageID  = GetMessageID();
  43.   Make_MessageID = MakeMessageID();
  44.  
  45.   Filespec = GetFilespec();
  46.   if(Com_Filespec == Filespec) {
  47.        MessageBox(msg1,MsgTitle,0);
  48.        return(1);
  49.        }
  50.  
  51.   Com_Filespec = Filespec ;     // save filespec
  52.   SenderToolClass = GetSenderToolClass() ;
  53.   MessageType     = GetMessageType() ;
  54.   ToolClassName   = GetToolClass() ;
  55.   CommandName     = GetCommand() ;
  56.   Data            = GetData(1) ;
  57.   Originator      = GetOriginator();
  58.  
  59.   MakeEvent("R", ToolClass, "STOP"     , Filespec, "stop" ) ;
  60.   MakeEvent("R", ToolClass, "MAXIMIZE" , Filespec, "maximize" ) ;
  61.   MakeEvent("R", ToolClass, "MINIMIZE" , Filespec, "minimize" ) ;
  62.   MakeEvent("R", ToolClass, "NORMALIZE", Filespec, "normalize" ) ;
  63.  
  64.   CommandLine = FilespecToPathName(Filespec) ;
  65.   tool = ToolExecEx("WINSVD.EXE", CommandLine, TRUE);
  66.  
  67.   if( IsNULL(tool) ) {
  68.     MessageSend(Get_MessageID,  "F", ToolClass, "START" , Filespec);
  69.     MessageSend(Make_MessageID, "N", ToolClass, "STATUS",
  70.                  Filespec, "NOTRUNNING") ;
  71.     del_event();
  72.     Com_Term = 1 ;
  73.     MessageClose();
  74.     Close();
  75.     return(0);
  76.   }
  77.   MessageSend(Make_MessageID, "N", ToolClass, "STATUS", Filespec, "STARTING") ;
  78.   MessageSend(Make_MessageID, "N", ToolClass, "STATUS", Filespec, "READY") ;
  79.   MessageSend(Get_MessageID, "N", ToolClass, "START", Filespec) ;
  80. }
  81.  
  82. stop() {
  83.   var Filespec ;
  84.   var Ret;
  85.   var Get_MessageID;
  86.   var Make_MessageID;
  87.   var ToolID ;
  88.  
  89.   Script.ErrorDisplay = False ;
  90.   ToolID = closewindow(tool);
  91.   Script.ErrorDisplay = True ;
  92.  
  93.   Get_MessageID = GetMessageID();
  94.   Make_MessageID = MakeMessageID();
  95.   Filespec = GetFilespec();
  96.  
  97.   MessageSend(Make_MessageID, "N", ToolClass, "STATUS", Filespec, "NOTRUNNING") ;
  98.   MessageSend(Get_MessageID,  "N", ToolClass, "STOP", Filespec) ;
  99.  
  100.   Com_Term = 1 ;
  101.   del_event() ;
  102.   MessageClose();
  103.   Close();
  104. }
  105.  
  106. maximize() {
  107.   var MessageID ;
  108.   var Filespec ;
  109.  
  110.   MaximizeWindow(tool) ;
  111.   MessageID = GetMessageID();
  112.   Filespec = GetFilespec();
  113.   MessageSend(MessageID, "N", ToolClass, "MAXIMIZE", Filespec);
  114. }
  115.  
  116. minimize() {
  117.   var MessageID ;
  118.   var Filespec ;
  119.  
  120.   MinimizeWindow(tool) ;
  121.   MessageID = GetMessageID();
  122.   Filespec = GetFilespec();
  123.   MessageSend(MessageID, "N", ToolClass, "MINIMIZE", Filespec);
  124. }
  125.  
  126. normalize() {
  127.   var MessageID ;
  128.   var Filespec ;
  129.  
  130.   RestoreWindow(tool) ;
  131.   MessageID = GetMessageID();
  132.   Filespec = GetFilespec();
  133.   MessageSend(MessageID, "N", ToolClass, "NORMALIZE", Filespec);
  134. }
  135.  
  136. Terminate() {
  137.   var Ret ;
  138.   var ToolID ;
  139.   var Make_MessageID ;
  140.  
  141.   if(Com_Term != 0) {
  142.     Return(0);
  143.   }
  144.   Script.ErrorDisplay = False ;
  145.   ToolID = closewindow(tool);
  146.   Script.ErrorDisplay = True ;
  147.  
  148.   Make_MessageID = MakeMessageID();
  149.   MessageSend(Make_MessageID, "N", ToolClass, "STATUS", Com_Filespec, "NOTRUNNING") ;
  150.   MessageSend(Make_MessageID, "N", ToolClass, "STOP", Com_Filespec) ;
  151.  
  152.   Com_Term = 1 ;
  153.   del_event() ;
  154.   MessageClose();
  155.   Close() ;
  156. }
  157.  
  158. del_event() {
  159.   DeleteEvent("R", ToolClass, "START"    , Str_Filespec) ;
  160.   DeleteEvent("R", ToolClass, "STOP"     , Com_Filespec) ;
  161.   DeleteEvent("R", ToolClass, "MAXIMIZE" , Com_Filespec) ;
  162.   DeleteEvent("R", ToolClass, "MINIMIZE" , Com_Filespec) ;
  163.   DeleteEvent("R", ToolClass, "NORMALIZE", Com_Filespec) ;
  164. }
  165.