gforth/fflib.fs - diff

Return to fflib.fs CVS log

Up to [gforth] / gforth

version 1.7, 2005/11/20 23:15:42	version 1.12, 2005/12/11 21:58:20
Line 63 Defer legacy-proc ' noop IS legacy-proc	Line 63 Defer legacy-proc ' noop IS legacy-proc
DOES> ( x1 .. xn -- r )	DOES> ( x1 .. xn -- r )
dup cell+ @ swap 3 cells + >r ;	dup cell+ @ swap 3 cells + >r ;

	Variable ind-call ind-call off
	: fptr ( "name" -- )
	Create here thisproc ! 0 , 0 , 0 , 0 also c-decl ind-call on
	DOES> 3 cells + >r ;

: library ( "name" "file" -- )	: library ( "name" "file" -- )
\G loads library "file" and creates a proc defining word "name"	\G loads library "file" and creates a proc defining word "name"
\G library format:	\G library format:
Line 112 DOES> ( -- ) dup thislib ! proc: ;	Line 117 DOES> ( -- ) dup thislib ! proc: ;

: rettype ( endxt startxt "name" -- )	: rettype ( endxt startxt "name" -- )
Create 2,	Create 2,
DOES> decl, symbol, previous revarg off ;	DOES> decl, ind-call @ 0= IF symbol, THEN
	previous revarg off ind-call off ;

also c-decl definitions	also c-decl definitions

Line 131 also c-decl definitions	Line 137 also c-decl definitions
' av-call-longlong ' av-start-longlong rettype (llong)	' av-call-longlong ' av-start-longlong rettype (llong)
' av-call-ptr ' av-start-ptr rettype (ptr)	' av-call-ptr ' av-start-ptr rettype (ptr)

	: (addr) postpone EXIT drop symbol, previous revarg off ;

previous definitions	previous definitions

\ legacy support for old library interfaces	\ legacy support for old library interfaces