ftnlf

Check-in [e5a8015fca]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Try to remove unneeded stub file.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:e5a8015fca39b53c877da8af6e6859830492467c
User & Date: vadim 2018-05-15 11:58:49
Context
2018-05-15
12:13
Another test. check-in: 8188e952f3 user: vadim tags: trunk
11:58
Try to remove unneeded stub file. check-in: e5a8015fca user: vadim tags: trunk
11:45
Separate tests. check-in: 2fa1469f6c user: vadim tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to CMakeLists.txt.

55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
	ftnlf_fxcore.f90
	luaf/luaf.f90
	luaf/luafe.f90
	${CMAKE_CURRENT_BINARY_DIR}/luaf_conf.fi
	)

set (src_shlib
	ftnlf_fxcore_shared.f90
	ftnlf_fxcore.f90
	luaf/luaf.f90
	luaf/luafe.f90
	${CMAKE_CURRENT_BINARY_DIR}/luaf_conf.fi
	)

set (src_test







<







55
56
57
58
59
60
61

62
63
64
65
66
67
68
	ftnlf_fxcore.f90
	luaf/luaf.f90
	luaf/luafe.f90
	${CMAKE_CURRENT_BINARY_DIR}/luaf_conf.fi
	)

set (src_shlib

	ftnlf_fxcore.f90
	luaf/luaf.f90
	luaf/luafe.f90
	${CMAKE_CURRENT_BINARY_DIR}/luaf_conf.fi
	)

set (src_test

Changes to ftnlf_fxcore.f90.

14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

    character(*), parameter :: mt_FA = 'ftnlf.fx.fa'
    character(*), parameter :: mt_interp = 'ftnlf.fx.interp'

contains

    ! FX.Core module loader
    function ldr_fx_core(L) bind(C) result(r)
        type(c_ptr), value, intent(in) :: L
        integer(c_int) :: r

        ! Pop package name
        call lua_pop(L, 1)

        call lua_newtable(L)







|







14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

    character(*), parameter :: mt_FA = 'ftnlf.fx.fa'
    character(*), parameter :: mt_interp = 'ftnlf.fx.interp'

contains

    ! FX.Core module loader
    function ldr_fx_core(L) bind(C, name='luaopen_FX_Core') result(r)
        type(c_ptr), value, intent(in) :: L
        integer(c_int) :: r

        ! Pop package name
        call lua_pop(L, 1)

        call lua_newtable(L)