o
    nc                     @  sH   d dl mZ d dlmZ d dlZdZdZdZdZdZ	G d	d
 d
eZ
dS )    )annotations)
SampleImplNa  
! This procedure will not be exported and is not
! directly callable by users of this library.

module modfoo

implicit none
private
public :: {function_name}

contains

integer function internal_function()
    internal_function = 0
end function internal_function

integer function {function_name}()
    {function_name} = internal_function()
end function {function_name}

end module modfoo
z4
use modfoo

print *,{function_name}()

end program
af  project('{project_name}', 'fortran',
  version : '{version}',
  default_options : ['warning_level=3'])

# These arguments are only used to build the shared library
# not the executables that use the library.
lib_args = ['-DBUILDING_{utoken}']

shlib = shared_library('{lib_name}', '{source_file}',
  install : true,
  fortran_args : lib_args,
  gnu_symbol_visibility : 'hidden',
)

test_exe = executable('{test_exe_name}', '{test_source_file}',
  link_with : shlib)
test('{test_name}', test_exe)

# Make this library usable as a Meson subproject.
{ltoken}_dep = declare_dependency(
  include_directories: include_directories('.'),
  link_with : shlib)

pkg_mod = import('pkgconfig')
pkg_mod.generate(
  name : '{project_name}',
  filebase : '{ltoken}',
  description : 'Meson sample project.',
  subdirs : '{header_dir}',
  libraries : shlib,
  version : '{version}',
)
z
implicit none

character(len=*), parameter :: PROJECT_NAME = "{project_name}"

print *,"This is project ", PROJECT_NAME

end program
zproject('{project_name}', 'fortran',
  version : '{version}',
  default_options : ['warning_level=3'])

exe = executable('{exe_name}', '{source_name}',
  install : true)

test('basic', exe)
c                      s0   e Zd Z fddZd	ddZd	ddZ  ZS )
FortranProjectc                   s   t    |j| _|j| _d S )N)super__init__nameversion)selfoptions	__class__ home/ych/rk3568/buildroot/output/rockchip_rk3568_recovery/host/lib/python3.10/site-packages/mesonbuild/templates/fortrantemplates.pyr   j   s   
zFortranProject.__init__returnNonec                 C  sd   t dd| j }|d }t|dddtj| jd tddddtj| j||| j	d	 d S )
N	[^a-z0-9]_.f90wutf-8encoding)project_namemeson.build)r   Zexe_namesource_namer   )
resubr   loweropenwritehello_fortran_templateformathello_fortran_meson_templater   )r	   lowercase_tokenr   r   r   r   create_executableo   s   z FortranProject.create_executablec                 C  s   t dd| j }| }|dd d }|d }|d }|d }|||||||| j||| jd	}t|d
ddtj	di | t|d
ddt
j	di | tdd
ddtj	di | d S )Nr   r   r      _func_testr   z	_test.f90)ZutokenZltokenZ
header_dirfunction_nameZsource_fileZtest_source_filetest_exe_namer   lib_nameZ	test_namer   r   r   r   r   r   )r   r   r   r   upperr   r   r   lib_fortran_templater!   lib_fortran_test_templatelib_fortran_meson_template)r	   r#   Zuppercase_tokenr(   r)   Zlib_fortran_nameZtest_fortran_namekwargsr   r   r   create_libraryy   s*     $zFortranProject.create_library)r   r   )__name__
__module____qualname__r   r$   r0   __classcell__r   r   r   r   r   i   s    

r   )
__future__r   Zmesonbuild.templates.sampleimplr   r   r,   r-   r.   r    r"   r   r   r   r   r   <module>   s   "
