cinter Module

Uses

- iso_c_binding
- oscinter

Variables

Type	Visibility	Attributes		Name		Initial
integer(kind=c_int),	public		::	LINES
integer(kind=c_int),	public		::	COLS
type(c_ptr),	public		::	stdscr
type(c_ptr),	public		::	curscr
integer(kind=c_int),	public,	parameter	::	FAIL	=	-1

Interfaces

interface

public function f_initscr() result(initscr__OUT) bind(C, name='initscr')

Arguments
None
Return Value type(c_ptr)

interface

public function getch() result(ch) bind(C)

Arguments
None
Return Value integer(kind=c_int)

interface

public function nodelay(win, bf) result(ierr) bind(C, name='nodelay')

http://www.urbanjost.altervista.org/LIBRARY/libscreen/ncurses/pdsrc/ncurses.f90

Arguments

Type Intent Optional Attributes Name

type(C_PTR), value :: win

logical(kind=C_BOOL), value :: bf

Return Value integer(kind=C_INT)

interface

public function keypad(win, bf) result(ierr) bind(C, name='keypad')

http://www.urbanjost.altervista.org/LIBRARY/libscreen/ncurses/pdsrc/ncurses.f90

Arguments

Type Intent Optional Attributes Name

type(C_PTR), value :: win

logical(kind=C_BOOL), value :: bf

Return Value integer(kind=C_INT)

interface

public function f_addch(ch) result(addch__OUT) bind(c, name='addch')

Arguments

Type Intent Optional Attributes Name

character(kind=c_char), intent(in), value :: ch

Return Value integer(kind=c_int)

interface

public function printw(str) bind(C)

Arguments

Type Intent Optional Attributes Name

character(kind=c_char), intent(in) :: str

Return Value integer(kind=c_int)

interface

public subroutine getmaxyx(win, y, x) bind(C, name="0")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	win
integer(kind=c_int)				::	y
integer(kind=c_int)				::	x

interface

public subroutine endwin() bind(C)

Arguments
None

interface

public subroutine flushinp() bind(c)

Arguments
None

interface

public subroutine timeout(delay) bind(C)

timeout(0) => non-blocking getch() (-1 if no keypress)

Arguments

Type Intent Optional Attributes Name

integer(kind=c_int), value :: delay

interface

public subroutine mvaddch(y, x, ch) bind(C, name="0")

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=c_int),	intent(in),		value	::	y
integer(kind=c_int),	intent(in),		value	::	x
character(kind=c_char),	intent(in),		value	::	ch

interface

public subroutine refresh() bind(C)

Arguments
None

interface

public subroutine clear() bind(C)

clear entire screen

Arguments
None

interface

public subroutine border() bind(C)

draw border

Arguments
None

interface

public subroutine noecho() bind(C)

Arguments
None

interface

public subroutine cbreak() bind(C)

Arguments
None

interface

public subroutine mvprintw(y, x, str) bind(C)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=c_int),	intent(in),		value	::	y
integer(kind=c_int),	intent(in),		value	::	x
character(kind=c_char),	intent(in)			::	str

Functions

public function initscr() result(stdscr__OUT)

Arguments

None

Return Value type(C_PTR)

Subroutines

public subroutine addch(ch)

Arguments

Type	Intent	Optional	Attributes		Name
character(kind=c_char),	intent(in),		value	::	ch