gforth/prim - diff

Return to prim CVS log

Up to [gforth] / gforth

version 1.211, 2007/04/01 21:30:26	version 1.213, 2007/06/01 18:40:20
Line 1751 nhour =ltime->tm_hour;	Line 1751 nhour =ltime->tm_hour;
nmin =ltime->tm_min;	nmin =ltime->tm_min;
nsec =ltime->tm_sec;	nsec =ltime->tm_sec;

ms ( n -- ) facility-ext	ms ( u -- ) facility-ext
""Wait at least @i{n} milli-second.""	""Wait at least @i{n} milli-second.""
struct timeval timeout;	gforth_ms(u);
timeout.tv_sec=n/1000;
timeout.tv_usec=1000*(n%1000);
(void)select(0,0,0,0,&timeout);

allocate ( u -- a_addr wior ) memory	allocate ( u -- a_addr wior ) memory
""Allocate @i{u} address units of contiguous data space. The initial	""Allocate @i{u} address units of contiguous data space. The initial
Line 1803 u = strlen((char *)c_addr);	Line 1800 u = strlen((char *)c_addr);
call-c ( ... w -- ... ) gforth call_c	call-c ( ... w -- ... ) gforth call_c
""Call the C function pointed to by @i{w}. The C function has to	""Call the C function pointed to by @i{w}. The C function has to
access the stack itself. The stack pointers are exported in the global	access the stack itself. The stack pointers are exported in the global
variables @code{SP} and @code{FP}.""	variables @code{gforth_SP} and @code{gforth_FP}.""
/* This is a first attempt at support for calls to C. This may change in	/* This is a first attempt at support for calls to C. This may change in
the future */	the future */
gforth_FP=fp;	gforth_FP=fp;