@@ -32,13 +32,19 @@ class Cxx(Language):
3232    def  get (self ) ->  str :
3333        return  "cxx" 
3434
35+     def  end_string (self ) ->  str :
36+         return  "#pragma tuner stop" 
37+ 
3538
3639class  Fortran (Language ):
3740    """Class to represent Fortran code""" 
3841
3942    def  get (self ) ->  str :
4043        return  "fortran" 
4144
45+     def  end_string (self ) ->  str :
46+         return  "!$tuner stop" 
47+ 
4248
4349class  Code (object ):
4450    """Class to represent the directive and host code of the application""" 
@@ -356,24 +362,20 @@ def extract_directive_code(code: str, langs: Code, kernel_name: str = None) -> d
356362    """Extract explicitly marked directive sections from code""" 
357363    if  is_cxx (langs .language ):
358364        start_string  =  "#pragma tuner start" 
359-         end_string  =  "#pragma tuner stop" 
360365    elif  is_fortran (langs .language ):
361366        start_string  =  "!$tuner start" 
362-         end_string  =  "!$tuner stop" 
363367
364-     return  extract_code (start_string , end_string , code , langs , kernel_name )
368+     return  extract_code (start_string , langs . language . end_string () , code , langs , kernel_name )
365369
366370
367371def  extract_initialization_code (code : str , langs : Code ) ->  str :
368372    """Extract the initialization section from code""" 
369373    if  is_cxx (langs .language ):
370374        start_string  =  "#pragma tuner initialize" 
371-         end_string  =  "#pragma tuner stop" 
372375    elif  is_fortran (langs .language ):
373376        start_string  =  "!$tuner initialize" 
374-         end_string  =  "!$tuner stop" 
375377
376-     init_code  =  extract_code (start_string , end_string , code , langs )
378+     init_code  =  extract_code (start_string , langs . language . end_string () , code , langs )
377379    if  len (init_code ) >=  1 :
378380        return  "\n " .join (init_code .values ()) +  "\n " 
379381    else :
@@ -384,12 +386,10 @@ def extract_deinitialization_code(code: str, langs: Code) -> str:
384386    """Extract the deinitialization section from code""" 
385387    if  is_cxx (langs .language ):
386388        start_string  =  "#pragma tuner deinitialize" 
387-         end_string  =  "#pragma tuner stop" 
388389    elif  is_fortran (langs .language ):
389390        start_string  =  "!$tuner deinitialize" 
390-         end_string  =  "!$tuner stop" 
391391
392-     init_code  =  extract_code (start_string , end_string , code , langs )
392+     init_code  =  extract_code (start_string , langs . language . end_string () , code , langs )
393393    if  len (init_code ) >=  1 :
394394        return  "\n " .join (init_code .values ()) +  "\n " 
395395    else :
0 commit comments