gforth/prim - diff

Return to prim CVS log

Up to [gforth] / gforth

version 1.155, 2004/08/27 15:53:50	version 1.157, 2005/01/04 22:09:03
Line 1	Line 1
\ Gforth primitives	\ Gforth primitives

\ Copyright (C) 1995,1996,1997,1998,2000,2003 Free Software Foundation, Inc.	\ Copyright (C) 1995,1996,1997,1998,2000,2003,2004 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 1848 char * string = cstr(c_addr1, u1, 1);	Line 1848 char * string = cstr(c_addr1, u1, 1);
char * pattern = cstr(c_addr2, u2, 0);	char * pattern = cstr(c_addr2, u2, 0);
flag = FLAG(!fnmatch(pattern, string, 0));	flag = FLAG(!fnmatch(pattern, string, 0));

	set-dir ( c_addr u -- wior ) gforth set_dir
	""Change the current directory to @i{c-addr, u}.
	Return an error if this is not possible""
	wior = IOR(chdir(tilde_cstr(c_addr, u, 1)));

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

\+	\+

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