| 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 |
