@@ -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