gforth/prim - diff

Return to prim CVS log

Up to [gforth] / gforth

version 1.234, 2008/08/16 17:54:23	version 1.236, 2008/10/06 21:21:20
Line 1782 gforth_FP=fp;	Line 1782 gforth_FP=fp;
gforth_SP=sp;	gforth_SP=sp;
gforth_RP=rp;	gforth_RP=rp;
gforth_LP=lp;	gforth_LP=lp;
	#ifdef HAS_LINKBACK
((void (*)())w)();	((void (*)())w)();
	#else
	((void ()(void ))w)(gforth_pointers);
	#endif
sp=gforth_SP;	sp=gforth_SP;
fp=gforth_FP;	fp=gforth_FP;
rp=gforth_RP;	rp=gforth_RP;
Line 1925 Return an error if this is not possible"	Line 1929 Return an error if this is not possible"
wior = IOR(chdir(tilde_cstr(c_addr, u, 1)));	wior = IOR(chdir(tilde_cstr(c_addr, u, 1)));

get-dir ( c_addr1 u1 -- c_addr2 u2 ) gforth get_dir	get-dir ( c_addr1 u1 -- c_addr2 u2 ) gforth get_dir
""Store the current directory in the buffer specified by @{c-addr1, u1}.	""Store the current directory in the buffer specified by @i{c-addr1, u1}.
If the buffer size is not sufficient, return 0 0""	If the buffer size is not sufficient, return 0 0""
c_addr2 = (Char )getcwd((char )c_addr1, u1);	c_addr2 = (Char )getcwd((char )c_addr1, u1);
if(c_addr2 != NULL) {	if(c_addr2 != NULL) {
Line 1934 if(c_addr2 != NULL) {	Line 1938 if(c_addr2 != NULL) {
u2 = 0;	u2 = 0;
}	}

	=mkdir ( c_addr u wmode -- wior ) gforth equals_mkdir
	""Create directory @i{c-addr u} with mode @i{wmode}.""
	wior = IOR(mkdir(tilde_cstr(c_addr,u,1),wmode));

\+	\+

newline ( -- c_addr u ) gforth	newline ( -- c_addr u ) gforth