home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / Cobol32 / PowerGEM / Powergem.z / F3BXCDBG.SCP < prev    next >
Text File  |  1995-10-08  |  5KB  |  224 lines
  1. public :
  2.     var MyToolClass = "DEBUG" ;
  3.     var Status = "BUSY" ;
  4.     var Tool ;
  5.     var Debugger ;
  6.     var Filespec ;
  7.     var StartFlag = 0 ;
  8.     var StopFlag = 0 ;
  9.  
  10.  
  11. exec() {
  12.     var Ret ;
  13.  
  14.     Ret = MessageOpen(MyToolClass) ;
  15.  
  16.     Filespec = MakeFilespec("*", 0) ;
  17.  
  18.     Ret = MakeEvent("R",MyToolClass,"START", Filespec,"Start") ;
  19. }
  20.  
  21.  
  22. Terminate() {
  23.     var Ret ;
  24.     var ErrorDlg ;
  25.  
  26.     if (StopFlag == 1) {
  27.         return (TRUE) ;
  28.     }
  29.  
  30.     if (!IsNULL(Tool)) {
  31.         SCRIPT.ErrorDisplay = False ;
  32.         ErrorDlg = GetObjectID("Script compiler error", "CAPTION") ;
  33.         if (!IsNull(ErrorDlg)) {
  34.             CloseWindow(ErrorDlg) ;
  35.             ErrorDlg = GetObjectID("Script compiler error", "CAPTION") ;
  36.             if (!IsNull(ErrorDlg)) {
  37.                 KeyBoard(ErrorDlg, "<ALT+N>") ;
  38.             }
  39.         }
  40.         ErrorDlg = GetObjectID("Script run error", "CAPTION") ;
  41.         if (!IsNull(ErrorDlg)) {
  42.             CloseWindow(ErrorDlg) ;
  43.             ErrorDlg = GetObjectID("Script run error", "CAPTION") ;
  44.             if (!IsNull(ErrorDlg)) {
  45.                 KeyBoard(ErrorDlg, "<ALT+N>") ;
  46.             }
  47.         }
  48.         ErrorDlg = GetObjectID("Macro manager", "CAPTION") ;
  49.         if (!IsNull(ErrorDlg)) {
  50.             CloseWindow(ErrorDlg) ;
  51.         }
  52.         CloseWindow(Tool) ;
  53.         Wait(Tool) ;
  54.         Tool = NULL ;
  55.         SCRIPT.ErrorDisplay = True ;
  56.     }
  57.  
  58.     Status = "NOTRUNNING" ;
  59.     Ret = MessageSend(MakeMessageID(), "N", MyToolClass, "STATUS",
  60.                       Filespec,Status ) ;
  61.  
  62.     Ret = MessageSend(MakeMessageID(), "N", MyToolClass, "STOP", Filespec) ;
  63.  
  64.     StopFlag = 1 ;
  65.     MessageClose() ;
  66.     Close() ;
  67. }
  68.  
  69.  
  70. Start()  {
  71.     var Ret ;
  72.     var Command ;
  73.     var Para ;
  74.  
  75.     Filespec = MakeFilespec("*", 0) ;
  76.     Ret = DeleteEvent("R", MyToolClass, "START", Filespec) ;
  77.  
  78.     if (StartFlag == 1) {
  79.         Ret = MessageSend(GetMessageID(), "F", MyToolClass, "START",
  80.                           GetFilespec()) ;
  81.         return (TRUE) ;
  82.     }
  83.  
  84.     Filespec = GetFilespec() ;
  85.     Command = "F3BXCMAC.EXE" ;
  86.     Para = FilespecToPathName(Filespec) ;
  87.  
  88.     Tool = ToolExec(Command, formatstring("-e -d -i %s", Para), FALSE) ;
  89.  
  90.     SCRIPT.ErrorDisplay = False ;
  91.     if (IsNULL(Tool)) {
  92.         SCRIPT.ErrorDisplay = True ;
  93.         Stop() ;
  94.     }
  95.     SCRIPT.ErrorDisplay = True ;
  96.  
  97.     Status = "STARTING" ;
  98.     Ret = MessageSend(MakeMessageID(), "N", MyToolClass, "STATUS",
  99.                       Filespec, Status) ;
  100.  
  101.     Ret = MakeEvent("R", MyToolClass, "STATUS",    Filespec, "Status") ;
  102.     Ret = MakeEvent("R", MyToolClass, "STOP",      Filespec, "Stop" ) ;
  103.     Ret = MakeEvent("R", MyToolClass, "MAXIMIZE",  Filespec, "Maximize") ;
  104.     Ret = MakeEvent("R", MyToolClass, "MINIMIZE",  Filespec, "Minimize") ;
  105.     Ret = MakeEvent("R", MyToolClass, "NORMALIZE", Filespec, "Normalize") ;
  106.  
  107.     Status = "READY" ;
  108.     Ret = MessageSend(MakeMessageID(), "N", MyToolClass, "STATUS",
  109.                       Filespec, Status );
  110.  
  111.     Ret = MessageSend(GetMessageID(), "N", MyToolClass, "START", Filespec) ;
  112.     StartFlag = 1 ;
  113.     StopFlag = 0 ;
  114.     return (TRUE) ;
  115. }
  116.  
  117. Stop()  {
  118.     var Ret ;
  119.     var ErrorDlg ;
  120.  
  121.     Filespec = GetFilespec() ;
  122.  
  123.     SCRIPT.ErrorDisplay = False ;
  124.     ErrorDlg = GetObjectID("Script compiler error", "CAPTION") ;
  125.     if (!IsNull(ErrorDlg)) {
  126.         CloseWindow(ErrorDlg) ;
  127.         ErrorDlg = GetObjectID("Script compiler error", "CAPTION") ;
  128.         if (!IsNull(ErrorDlg)) {
  129.             KeyBoard(ErrorDlg, "<ALT+N>") ;
  130.         }
  131.     }
  132.     ErrorDlg = GetObjectID("Script run error", "CAPTION") ;
  133.     if (!IsNull(ErrorDlg)) {
  134.         CloseWindow(ErrorDlg) ;
  135.         ErrorDlg = GetObjectID("Script run error", "CAPTION") ;
  136.         if (!IsNull(ErrorDlg)) {
  137.             KeyBoard(ErrorDlg, "<ALT+N>") ;
  138.         }
  139.     }
  140.     ErrorDlg = GetObjectID("Macro manager", "CAPTION") ;
  141.     if (!IsNull(ErrorDlg)) {
  142.         CloseWindow(ErrorDlg) ;
  143.     }
  144.     CloseWindow(Tool) ;
  145.     Wait(Tool) ;
  146.     Tool = NULL ;
  147.     SCRIPT.ErrorDisplay = True ;
  148.  
  149.     Status = "NOTRUNNING" ;
  150.     Ret = MessageSend(MakeMessageID(), "N", MyToolClass, "STATUS",
  151.                       Filespec,Status) ;
  152.  
  153.     Ret = MessageSend(GetMessageID(), "N", MyToolClass, "STOP", Filespec) ;
  154.  
  155.     MessageClose() ;
  156.  
  157.     StopFlag = 1 ;
  158.     Close() ;
  159. }
  160.  
  161. Status()  {
  162.     var Ret ;
  163.  
  164.     Filespec = GetFilespec() ;
  165.  
  166.     Ret = MessageSend(GetMessageID(), "N", MyToolClass, "STATUS",
  167.                       Filespec, Status );
  168.     return (TRUE) ;
  169. }
  170.  
  171. Maximize()  {
  172.     var Ret ;
  173.  
  174.     Filespec = GetFilespec() ;
  175.     SCRIPT.ErrorDisplay = False ;
  176.     Debugger = GetObjectID("Script debugger","CAPTION") ;
  177.     if (!IsNULL(Debugger)) {
  178.         Ret = MaximizeWindow(Debugger) ;
  179.         Ret = MessageSend(GetMessageID(), "N", MyToolClass, "MAXIMIZE",
  180.                           Filespec) ;
  181.     } else {
  182.         Ret = MessageSend(GetMessageID(), "F", MyToolClass, "MAXIMIZE",
  183.                           Filespec) ;
  184.     }
  185.     SCRIPT.ErrorDisplay = True ;
  186.     return (TRUE) ;
  187. }
  188.  
  189. Minimize()  {
  190.     var Ret ;
  191.  
  192.     Filespec = GetFilespec() ;
  193.     SCRIPT.ErrorDisplay = False;
  194.     Debugger = GetObjectID("Script debugger","CAPTION") ;
  195.     if (!IsNULL(Debugger)) {
  196.         Ret = MinimizeWindow(Debugger) ;
  197.         Ret = MessageSend(GetMessageID(), "N", MyToolClass, "MINIMIZE",
  198.                           Filespec) ;
  199.     } else {
  200.         Ret = MessageSend(GetMessageID(), "F", MyToolClass, "MINIMIZE",
  201.                           Filespec) ;
  202.     }
  203.     SCRIPT.ErrorDisplay = True ;
  204.     return (TRUE) ;
  205. }
  206.  
  207. Normalize() {
  208.     var Ret ;
  209.  
  210.     Filespec = GetFilespec() ;
  211.     SCRIPT.ErrorDisplay = False ;
  212.     Debugger = GetObjectID("Script debugger","CAPTION") ;
  213.     if (!IsNULL(Debugger)) {
  214.         Ret = RestoreWindow(Debugger) ;
  215.         Ret = MessageSend(GetMessageID(), "N", MyToolClass, "NORMALIZE",
  216.                           Filespec) ;
  217.     } else {
  218.         Ret = MessageSend(GetMessageID(), "F", MyToolClass, "NORMALIZE",
  219.                           Filespec) ;
  220.     }
  221.     SCRIPT.ErrorDisplay = True ;
  222.     return (TRUE) ;
  223. }
  224.