/* rexx */                                                                      
/*-------------------------------------------------------------------*/         
/*                                                                   */         
/*                        REXX Exec : SETLANG                        */         
/*                                                                   */         
/*                      ***** Edit Macro *****                       */         
/*                                                                   */         
/*  Description : Set highlighting depending on the language that    */         
/*                is detected                                        */         
/*                                                                   */         
/*  Created on : 23 May 2016                                         */         
/*  Created by : Kevin Ferguson                                      */         
/*             : Userid MIT001                                       */         
/*             : Using ABBYDALE.PROD.EMACS(SETLANG)                  */         
/*                                                                   */         
/*  Called by : Edit Macro                                           */         
/*                                                                   */         
/*  Calls : Nothing                                                  */         
/*                                                                   */         
/*  Panels Used : None                                               */         
/*                                                                   */         
/*  Change Activity :                                                */         
/*                                                                   */         
/*                ©Copyright of Abbydale Systems LLC.                */         
/*                                                                   */         
/*-------------------------------------------------------------------*/         
"ISREDIT MACRO PROCESS"                                                         
"ISREDIT SCAN OFF"                                                              
lang = "ON AUTO"                                                                
"ISREDIT SEEK 'Identification Division' FIRST"                                  
If rc  = 0 then do                                                              
   "ISREDIT SEEK 'Environment Division' FIRST"                                  
   If rc  = 0 then do                                                           
      "ISREDIT SEEK 'Data Division' FIRST"                                      
      If rc  = 0 then do                                                        
        "ISREDIT SEEK 'Procedure Division' FIRST"                               
        If rc  = 0 then do                                                      
           lang = "ON COBOL"                                                    
           signal DoIt                                                          
        end                                                                     
      end                                                                       
   end                                                                          
end                                                                             
"ISREDIT SEEK '/*' FIRST"    /* look for the string */                          
If rc  = 0 then do                                                              
   "ISREDIT (NUM1) = LINENUM .ZCSR"                                             
   "ISREDIT SEEK '*/' FIRST"    /* look for the string */                       
   If rc  = 0 then do                                                           
      "ISREDIT (NUM2) = LINENUM .ZCSR"                                          
      "ISREDIT SEEK 'rexx' FIRST"    /* look for the string */                  
      If rc = 0 then do                                                         
         "ISREDIT (NUM3) = LINENUM .ZCSR"                                       
         lang = "LOGIC REXX"                                                    
      end                                                                       
   end                                                                          
end                                                                             
else do                                                                         
   "ISREDIT SEEK ' LA ' FIRST 2 66"    /* look for the string */                
   If rc = 0 then do                                                            
      "ISREDIT SEEK ' LTR ' FIRST 2 66"    /* look for the string */            
      If  rc = 0 then do                                                        
         lang = "ON ASM"                                                        
         signal DoIt                                                            
      end                                                                       
   end                                                                          
end                                                                             
"ISREDIT SEEK ')ATTR'  FIRST 1 5"    /* look for the string */                  
if rc = 0 then do                                                               
   "ISREDIT SEEK ')BODY'  FIRST 1 5"    /* look for the string */               
   If rc = 0 then do                                                            
      lang = "ON PANEL"                                                         
      signal DoIt                                                               
   end                                                                          
end                                                                             
"ISREDIT SEEK '//'  FIRST 1 2"    /* look for the string */                     
if rc = 0 then do                                                               
   "ISREDIT SEEK ' EXEC '  FIRST 3 66"    /* look for the string */             
   If rc = 0 then do                                                            
      lang = "ON JCL"                                                           
      signal DoIt                                                               
   end                                                                          
end                                                                             
"ISREDIT SEEK '#endif' FIRST"     /* look for the string */                     
if rc = 0 then do                                                               
   "ISREDIT SEEK '#define' FIRST"    /* look for the string */                  
   If rc = 0 then do                                                            
      lang = "ON C"                                                             
      signal DoIt                                                               
   end                                                                          
end                                                                             
DoIt:                                                                           
"ISREDIT Profile unlock"                                                        
"ISREDIT HILITE "lang                                                           
"ISREDIT Profile lock"                                                          
"ISREDIT RESET"                                                                 
"ISREDIT CURSOR=1 1"                                                            
exit                                                                            
/*-------------------------------------------------------------------*/         
/*                           End of SETLANG                          */         
/*-------------------------------------------------------------------*/