lua_fif Module

This module provides a direct translation of some Lua 5.3.2 C-Interfaces to Fortran 2003 interfaces using the ISO_C_BINDING facilities.

Uses

- iso_c_binding
- lua_parameters
Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Interfaces

interface

public function lua_getglobal(L, k) bind(c, name="lua_getglobal")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	L
character(kind=c_char, len=1),			dimension(*)	::	k

Return Value integer(kind=c_int)

interface

public function lua_getfield(L, index, k) bind(c, name="lua_getfield")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	L
integer(kind=c_int),			value	::	index
character(kind=c_char, len=1),			dimension(*)	::	k

Return Value integer(kind=c_int)

interface

public function lua_gettable(L, index) bind(c, name="lua_gettable")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	L
integer(kind=c_int),			value	::	index

Return Value integer(kind=c_int)

interface

public function lua_gettop(L) bind(c, name="lua_gettop")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	L

Return Value integer(kind=c_int)

interface

public function lua_isNumber(L, index) result(lua_isnumber) bind(c, name="lua_isnumber")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	L
integer(kind=c_int),			value	::	index

Return Value integer(kind=c_int)

interface

public function lua_isString(L, index) bind(c, name="lua_isstring")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	L
integer(kind=c_int),			value	::	index

Return Value integer(kind=c_int)

interface

public function lua_next(L, index) bind(c, name="lua_next")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	L
integer(kind=c_int),			value	::	index

Return Value integer(kind=c_int)

interface

public function lua_pcallk(L, nargs, nresults, errfunc, ctx, k) bind(c, name="lua_pcallk")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	L
integer(kind=c_int),			value	::	nargs
integer(kind=c_int),			value	::	nresults
integer(kind=c_int),			value	::	errfunc
integer(kind=c_int),			value	::	ctx
type(c_ptr),			value	::	k

Return Value integer(kind=c_int)

interface

public function lua_pushlstring(L, s, len) bind(c, name="lua_pushlstring")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	L
character(kind=c_char, len=1),			dimension(*)	::	s
integer(kind=c_size_t),			value	::	len

Return Value type(c_ptr)

interface

public function lua_rawgeti(L, index, n) bind(c, name="lua_rawgeti")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	L
integer(kind=c_int),			value	::	index
integer(kind=c_int),			value	::	n

Return Value integer(kind=c_int)

interface

public function lua_tolstring(L, index, len) bind(c, name="lua_tolstring")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	L
integer(kind=c_int),			value	::	index
integer(kind=c_size_t)				::	len

Return Value type(c_ptr)

interface

public function lua_tonumberx(L, index, isnum) bind(c, name="lua_tonumberx")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	L
integer(kind=c_int),			value	::	index
integer(kind=c_int)				::	isnum

Return Value real(kind=lua_num)

interface

public function lua_toboolean(L, index) bind(c, name="lua_toboolean")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	L
integer(kind=c_int),			value	::	index

Return Value integer(kind=c_int)

interface

public function lua_touserdata(L, index) bind(c, name="lua_touserdata")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	L
integer(kind=c_int),			value	::	index

Return Value type(c_ptr)

interface

public function lua_topointer(L, index) bind(c, name="lua_topointer")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	L
integer(kind=c_int),			value	::	index

Return Value integer(kind=c_intptr_t)

interface

public function lua_type(L, index) bind(c, name="lua_type")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	L
integer(kind=c_int),			value	::	index

Return Value integer(kind=c_int)

interface

public function lua_getmetatable(L, index) bind(c, name="lua_getmetatable")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	L
integer(kind=c_int),			value	::	index

Return Value integer(kind=c_int)

interface

public subroutine lua_close(L) bind(c, name="lua_close")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	L

interface

public subroutine lua_createtable(L, narr, nrec) bind(c, name="lua_createtable")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	L
integer(kind=c_int),			value	::	narr
integer(kind=c_int),			value	::	nrec

interface

public subroutine lua_pushinteger(L, n) bind(c, name="lua_pushinteger")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	L
integer(kind=lua_int),			value	::	n

interface

public subroutine lua_pushboolean(L, n) bind(c, name="lua_pushboolean")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	L
integer(kind=lua_int),			value	::	n

interface

public subroutine lua_pushnil(L) bind(c, name="lua_pushnil")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	L

interface

public subroutine lua_pushnumber(L, n) bind(c, name="lua_pushnumber")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	L
real(kind=c_double),			value	::	n

interface

public subroutine lua_pushvalue(L, index) bind(c, name="lua_pushvalue")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	L
integer(kind=c_int),			value	::	index

interface

public subroutine lua_rotate(L, idx, n) bind(c, name="lua_rotate")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	L
integer(kind=c_int),			value	::	idx
integer(kind=c_int),			value	::	n

interface

public subroutine lua_setfield(L, index, k) bind(c, name="lua_setfield")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	L
integer(kind=c_int),			value	::	index
character(kind=c_char, len=1),			dimension(*)	::	k

interface

public subroutine lua_setglobal(L, k) bind(c, name="lua_setglobal")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	L
character(kind=c_char, len=1),			dimension(*)	::	k

interface

public subroutine lua_settable(L, index) bind(c, name="lua_settable")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	L
integer(kind=c_int),			value	::	index

interface

public subroutine lua_settop(L, index) bind(c, name="lua_settop")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	L
integer(kind=c_int),			value	::	index

interface

public subroutine lua_pushcclosure(L, c_fn, n) bind(c, name="lua_pushcclosure")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	L
type(c_funptr),			value	::	c_fn
integer(kind=c_int),			value	::	n

interface

public subroutine lua_pushlightuserdata(L, ptr) bind(c, name="lua_pushlightuserdata")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	L
type(c_ptr),			value	::	ptr

interface

public function luaL_newstate() bind(c, name="luaL_newstate")

Arguments
None
Return Value type(c_ptr)

interface

public function luaL_loadfilex(L, filename, mode) bind(c, name="luaL_loadfilex")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	L
character(kind=c_char, len=1),			dimension(*)	::	filename
character(kind=c_char, len=1),			dimension(*)	::	mode

Return Value integer(kind=c_int)

interface

public function luaL_loadbufferx(L, buff, sz, name, mode) bind(c, name="luaL_loadbufferx")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	L
character(kind=c_char, len=1),			dimension(*)	::	buff
integer(kind=c_size_t),			value	::	sz
character(kind=c_char, len=1),			dimension(*)	::	name
character(kind=c_char, len=1),			dimension(*)	::	mode

Return Value integer(kind=c_int)

interface

public function luaL_loadstring(L, string) bind(c, name="luaL_loadstring")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	L
character(kind=c_char, len=1),			dimension(*)	::	string

Return Value integer(kind=c_int)

interface

public function luaL_newmetatable(L, tname) bind(c, name="luaL_newmetatable")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	L
character(kind=c_char, len=1),			dimension(*)	::	tname

Return Value integer(kind=c_int)

interface

public function luaL_ref(L, t) bind(c, name="luaL_ref")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	L
integer(kind=c_int),			value	::	t

Return Value integer(kind=c_int)

interface

public subroutine luaL_openlibs(L) bind(c, name="luaL_openlibs")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	L

interface

public subroutine luaL_setmetatable(L, tname) bind(c, name="luaL_setmetatable")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	L
character(kind=c_char, len=1),			dimension(*)	::	tname