home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / Cobol32 / PowerGEM / Powergem.z / vbbld16.scp < prev    next >
Text File  |  1996-09-23  |  5KB  |  196 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.  
  44.     if(Com_Filespec == Filespec){
  45.         MessageBox(msg1,MsgTitle,0);
  46.         MessageSend(Get_MessageID, "F", ToolClass, "START", Filespec) ;
  47.  
  48.         return(1);
  49.     }
  50.  
  51.     Com_Filespec = Filespec ;           
  52.  
  53.     SenderToolClass = GetSenderToolClass() ; 
  54.     MessageType     = GetMessageType() ;    
  55.     ToolClassName   = GetToolClass() ;    
  56.     CommandName     = GetCommand() ;    
  57.     Data            = GetData(2) ;        
  58.     Originator      = GetOriginator();   
  59.  
  60.     DeleteEvent("R", ToolClass, "BUILD-TARGET", Str_Filespec) ;
  61.     MakeEvent("R", ToolClass, "BUILD-TARGET", Filespec, "start") ;
  62.     MakeEvent("R", ToolClass, "STOP"     , Filespec, "stop" ) ;
  63.     MakeEvent("R", ToolClass, "MAXIMIZE" , Filespec, "maximize" ) ;
  64.     MakeEvent("R", ToolClass, "MINIMIZE" , Filespec, "minimize" ) ;
  65.     MakeEvent("R", ToolClass, "NORMALIZE", Filespec, "normalize" ) ;
  66.  
  67.     PathName = FilespecToPathName(Filespec) ;
  68.         CommandLine = cat("/make ",PathName,"\\",Data);
  69.  
  70.     tool = ToolExec("VB.EXE",CommandLine,TRUE); 
  71.  
  72.     if( IsNULL(tool) ) {        
  73.         MessageSend(Get_MessageID,  "F", ToolClass, "BUILD-TARGET" ,
  74.                 Filespec);
  75.         MessageSend(Make_MessageID, "N", ToolClass, "STATUS",
  76.                 Filespec, "NOTRUNNING") ;
  77.         del_event();           
  78.         Com_Term = 1 ;           
  79.         MessageClose();           
  80.         Close();               
  81.         return(0);
  82.     }
  83.  
  84.       MessageSend(Make_MessageID, "N", ToolClass, "STATUS",
  85.               Filespec, "STARTING") ;
  86.       MessageSend(Make_MessageID, "N", ToolClass, "STATUS",
  87.               Filespec, "READY") ;    
  88.     MessageSend(Get_MessageID, "N", ToolClass, "BUILD-TARGET",
  89.             Filespec,GetData(1),GetData(2),GetData(3)) ;
  90.     MessageSend(Get_MessageID, "N", ToolClass, "BUILD-REQUEST-COMPLETE",
  91.             Filespec,GetData(1),"SUCCESS") ;
  92. }
  93. stop() {
  94.     var Filespec ;                        
  95.     var Get_MessageID;                    
  96.     var Make_MessageID;                    
  97.     var ToolID ;                        
  98.  
  99.     MFtree();
  100.     SCRIPT.ErrorDisplay = False ;        
  101.     ToolID = closewindow(tool);
  102.     SCRIPT.ErrorDisplay = True ;
  103.  
  104.     Get_MessageID = GetMessageID();
  105.     Make_MessageID = MakeMessageID();
  106.     Filespec = GetFilespec();
  107.     MessageSend(Make_MessageID, "N", ToolClass, "STATUS",
  108.             Filespec, "NOTRUNNING") ;    
  109.     MessageSend(Get_MessageID,  "N", ToolClass, "STOP",
  110.             Filespec) ;
  111.  
  112.     Com_Term = 1 ;        
  113.     del_event() ;        
  114.     MessageClose();        
  115.     Close();        
  116. }
  117. maximize() {
  118.     var MessageID ;                
  119.     var Filespec ;                
  120.  
  121.     MaximizeWindow(tool) ;        
  122.  
  123.     MessageID = GetMessageID();    
  124.     Filespec = GetFilespec();    
  125.  
  126.     MessageSend(MessageID, "N", ToolClass, "MAXIMIZE",
  127.             Filespec);
  128.  
  129. }
  130. minimize() {
  131.     var MessageID ;                
  132.     var Filespec ;                
  133.  
  134.     MinimizeWindow(tool) ;        
  135.  
  136.     MessageID = GetMessageID();    
  137.     Filespec = GetFilespec();    
  138.  
  139.     MessageSend(MessageID, "N", ToolClass, "MINIMIZE",
  140.             Filespec);
  141. }
  142. normalize() {
  143.     var MessageID ;                
  144.     var Filespec ;                
  145.  
  146.     RestoreWindow(tool) ;        
  147.  
  148.     MessageID = GetMessageID();    
  149.     Filespec = GetFilespec();    
  150.  
  151.     MessageSend(MessageID, "N", ToolClass, "NORMALIZE",
  152.             Filespec);
  153. }
  154. Terminate() {
  155.     var ToolID ;                
  156.     var Make_MessageID ;        
  157.  
  158.     if(Com_Term != 0) {
  159.         Return(0);
  160.     }        
  161.  
  162.     MFtree();
  163.  
  164.     SCRIPT.ErrorDisplay = False ;    
  165.     ToolID = closewindow(tool);
  166.     SCRIPT.ErrorDisplay = True ;
  167.  
  168.     Make_MessageID = MakeMessageID();
  169.     MessageSend(Make_MessageID, "N", ToolClass, "STATUS",
  170.             Com_Filespec, "NOTRUNNING") ;    
  171.     MessageSend(Make_MessageID, "N", ToolClass, "STOP",
  172.             Com_Filespec) ;
  173.     Com_Term = 1 ;                
  174.     del_event() ;                
  175.     MessageClose();                
  176.     Close() ;                    
  177. }
  178. MFtree() {
  179.     var Make_MessageID ;        
  180.  
  181.     if(Com_Filespec == 0)
  182.         return;
  183.  
  184.     Make_MessageID = MakeMessageID();
  185.  
  186.       MessageSend(Make_MessageID, "N", "*", "MODIFIED-FILETREE",
  187.                   Com_Filespec, "M") ;    
  188. }
  189. del_event() {
  190.     DeleteEvent("R", ToolClass, "BUILD-TARGET", Com_Filespec) ;
  191.     DeleteEvent("R", ToolClass, "STOP"     , Com_Filespec) ;
  192.     DeleteEvent("R", ToolClass, "MAXIMIZE" , Com_Filespec) ;
  193.     DeleteEvent("R", ToolClass, "MINIMIZE" , Com_Filespec) ;
  194.     DeleteEvent("R", ToolClass, "NORMALIZE", Com_Filespec) ;
  195. }
  196.