home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / Cobol32 / PowerGEM / Powergem.z / vbbld32.scp < prev   
Text File  |  1996-09-23  |  5KB  |  194 lines
  1. //******************************************************************
  2. //
  3. //  Script for Visual Basic
  4. //
  5. //  ALL Rights Reserved, CopyRight (C) FUJITSU LIMITED  1995
  6. //******************************************************************
  7. public :
  8.     var tool ;                    
  9.     var ToolClass = "BUILD";      
  10.     var Str_Filespec = 0;         
  11.     var Com_Filespec = 0;         
  12.     var Com_Term = 0 ;             
  13.     var MsgTitle = "VBBUILD.SCP";
  14.     var msg1 = "Specifed file in uses";
  15.  
  16. exec() {
  17.     var Filespec ;                
  18.         
  19.     MessageOpen(ToolClass) ;    
  20.     Filespec = MakeFilespec("*", 0) ; 
  21.     Str_Filespec = Filespec ;    
  22.  
  23.     MakeEvent("R", ToolClass, "BUILD-TARGET", Filespec, "start") ;
  24. }
  25. start() {
  26.     var Get_MessageID ;                 
  27.     var Make_MessageID;                   
  28.     var Filespec ;                        
  29.     var PathName ;                        
  30.     var FileName ;                        
  31.     var CommandLine ;                    
  32.  
  33.     var SenderToolClass ;                  
  34.     var MessageType ;                    
  35.     var ToolClassName ;                    
  36.     var CommandName ;                    
  37.     var Data ;                            
  38.     var Originator ;                     
  39.     Get_MessageID  = GetMessageID();    
  40.     Make_MessageID = MakeMessageID();    
  41.  
  42.     Filespec = GetFilespec();           
  43.     if(Com_Filespec == Filespec){
  44.         MessageBox(msg1,MsgTitle,0);
  45.         MessageSend(Get_MessageID, "F", ToolClass, "START", Filespec) ;
  46.         return(1);
  47.     }
  48.  
  49.     Com_Filespec = Filespec ;           
  50.  
  51.     SenderToolClass = GetSenderToolClass() ; 
  52.     MessageType     = GetMessageType() ;    
  53.     ToolClassName   = GetToolClass() ;    
  54.     CommandName     = GetCommand() ;    
  55.     Data            = GetData(2) ;        
  56.     Originator      = GetOriginator();   
  57.  
  58.     DeleteEvent("R", ToolClass, "BUILD-TARGET", Str_Filespec) ;
  59.     MakeEvent("R", ToolClass, "BUILD-TARGET", Filespec, "start") ;
  60.     MakeEvent("R", ToolClass, "STOP"     , Filespec, "stop" ) ;
  61.     MakeEvent("R", ToolClass, "MAXIMIZE" , Filespec, "maximize" ) ;
  62.     MakeEvent("R", ToolClass, "MINIMIZE" , Filespec, "minimize" ) ;
  63.     MakeEvent("R", ToolClass, "NORMALIZE", Filespec, "normalize" ) ;
  64.  
  65.     PathName = FilespecToPathName(Filespec) ;
  66.     CommandLine = cat("/make ","\"",PathName,"\\",Data,"\"");
  67.  
  68.     tool = ToolExecEX("VB32.EXE",CommandLine,TRUE); 
  69.  
  70.     if( IsNULL(tool) ) {        
  71.         MessageSend(Get_MessageID,  "F", ToolClass, "BUILD-TARGET" ,
  72.                 Filespec);
  73.         MessageSend(Make_MessageID, "N", ToolClass, "STATUS",
  74.                 Filespec, "NOTRUNNING") ;
  75.         del_event();           
  76.         Com_Term = 1 ;           
  77.         MessageClose();           
  78.         Close();               
  79.         return(0);
  80.     }
  81.  
  82.       MessageSend(Make_MessageID, "N", ToolClass, "STATUS",
  83.               Filespec, "STARTING") ;
  84.       MessageSend(Make_MessageID, "N", ToolClass, "STATUS",
  85.               Filespec, "READY") ;    
  86.     MessageSend(Get_MessageID, "N", ToolClass, "BUILD-TARGET",
  87.             Filespec,GetData(1),GetData(2),GetData(3)) ;
  88.     MessageSend(Get_MessageID, "N", ToolClass, "BUILD-REQUEST-COMPLETE",
  89.             Filespec,GetData(1),"SUCCESS") ;
  90. }
  91. stop() {
  92.     var Filespec ;                        
  93.     var Get_MessageID;                    
  94.     var Make_MessageID;                    
  95.     var ToolID ;                        
  96.  
  97.     MFtree();
  98.     SCRIPT.ErrorDisplay = False ;        
  99.     ToolID = closewindow(tool);
  100.     SCRIPT.ErrorDisplay = True ;
  101.  
  102.     Get_MessageID = GetMessageID();
  103.     Make_MessageID = MakeMessageID();
  104.     Filespec = GetFilespec();
  105.     MessageSend(Make_MessageID, "N", ToolClass, "STATUS",
  106.             Filespec, "NOTRUNNING") ;    
  107.     MessageSend(Get_MessageID,  "N", ToolClass, "STOP",
  108.             Filespec) ;
  109.  
  110.     Com_Term = 1 ;        
  111.     del_event() ;        
  112.     MessageClose();        
  113.     Close();        
  114. }
  115. maximize() {
  116.     var MessageID ;               
  117.     var Filespec ;                
  118.  
  119.     MaximizeWindow(tool) ;        
  120.  
  121.     MessageID = GetMessageID();    
  122.     Filespec = GetFilespec();    
  123.  
  124.     MessageSend(MessageID, "N", ToolClass, "MAXIMIZE",
  125.             Filespec);
  126.  
  127. }
  128. minimize() {
  129.     var MessageID ;                
  130.     var Filespec ;                
  131.  
  132.     MinimizeWindow(tool) ;        
  133.  
  134.     MessageID = GetMessageID();    
  135.     Filespec = GetFilespec();    
  136.  
  137.     MessageSend(MessageID, "N", ToolClass, "MINIMIZE",
  138.             Filespec);
  139. }
  140. normalize() {
  141.     var MessageID ;                
  142.     var Filespec ;                
  143.  
  144.     RestoreWindow(tool) ;        
  145.  
  146.     MessageID = GetMessageID();    
  147.     Filespec = GetFilespec();    
  148.  
  149.     MessageSend(MessageID, "N", ToolClass, "NORMALIZE",
  150.             Filespec);
  151. }
  152. Terminate() {
  153.     var ToolID ;                
  154.     var Make_MessageID ;        
  155.  
  156.     if(Com_Term != 0) {
  157.         Return(0);
  158.     }        
  159.  
  160.     MFtree();
  161.  
  162.     SCRIPT.ErrorDisplay = False ;    
  163.     ToolID = closewindow(tool);
  164.     SCRIPT.ErrorDisplay = True ;
  165.  
  166.     Make_MessageID = MakeMessageID();
  167.     MessageSend(Make_MessageID, "N", ToolClass, "STATUS",
  168.             Com_Filespec, "NOTRUNNING") ;    
  169.     MessageSend(Make_MessageID, "N", ToolClass, "STOP",
  170.             Com_Filespec) ;
  171.     Com_Term = 1 ;                
  172.     del_event() ;                
  173.     MessageClose();                
  174.     Close() ;                    
  175. }
  176. MFtree() {
  177.     var Make_MessageID ;        
  178.  
  179.     if(Com_Filespec == 0)
  180.         return;
  181.  
  182.     Make_MessageID = MakeMessageID();
  183.  
  184.       MessageSend(Make_MessageID, "N", "*", "MODIFIED-FILETREE",
  185.                   Com_Filespec, "M") ;    
  186. }
  187. del_event() {
  188.     DeleteEvent("R", ToolClass, "BUILD-TARGET", Com_Filespec) ;
  189.     DeleteEvent("R", ToolClass, "STOP"     , Com_Filespec) ;
  190.     DeleteEvent("R", ToolClass, "MAXIMIZE" , Com_Filespec) ;
  191.     DeleteEvent("R", ToolClass, "MINIMIZE" , Com_Filespec) ;
  192.     DeleteEvent("R", ToolClass, "NORMALIZE", Com_Filespec) ;
  193. }
  194.