version 1.235, 2008/09/18 02:42:24
|
version 1.237, 2008/10/09 16:30:56
|
Line 1929 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 1938 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 |
Line 2403 r = fp[u];
|
Line 2407 r = fp[u];
|
\g syslib |
\g syslib |
|
|
open-lib ( c_addr1 u1 -- u2 ) gforth open_lib |
open-lib ( c_addr1 u1 -- u2 ) gforth open_lib |
#ifdef HAVE_LIBLTDL |
u2 = gforth_dlopen(c_addr1, u1); |
u2 = (UCell)lt_dlopen(tilde_cstr(c_addr1, u1, 1)); |
|
#elif defined(HAVE_LIBDL) || defined(HAVE_DLOPEN) |
|
#ifndef RTLD_GLOBAL |
|
#define RTLD_GLOBAL 0 |
|
#endif |
|
u2=(UCell) dlopen(tilde_cstr(c_addr1, u1, 1), RTLD_GLOBAL | RTLD_LAZY); |
|
#else |
|
# ifdef _WIN32 |
|
u2 = (Cell) GetModuleHandle(tilde_cstr(c_addr1, u1, 1)); |
|
# else |
|
#warning Define open-lib! |
|
u2 = 0; |
|
# endif |
|
#endif |
|
|
|
lib-sym ( c_addr1 u1 u2 -- u3 ) gforth lib_sym |
lib-sym ( c_addr1 u1 u2 -- u3 ) gforth lib_sym |
#ifdef HAVE_LIBLTDL |
#ifdef HAVE_LIBLTDL |