| \ socket interface |
\ mkdir wrapper |
| |
|
| \ Copyright (C) 2008 Free Software Foundation, Inc. |
\ Copyright (C) 2008 Free Software Foundation, Inc. |
| |
|
| c-library mkdir |
c-library mkdir |
| \c #include <sys/stat.h> |
\c #include <sys/stat.h> |
| \c #include <sys/types.h> |
\c #include <sys/types.h> |
| c-function mkdir1 mkdir a n -- n ( pathname\0 mode -- f ) |
c-function mkdir mkdir a n -- n ( pathname\0 mode -- f ) |
| \c #include <errno.h> |
\c #include <errno.h> |
| \c #define IOR(flag) ((flag)? -512-errno : 0) |
\c #define IOR(flag) ((flag)? -512-errno : 0) |
| c-function f>ior IOR n -- n ( f -- ior ) |
c-function f>ior IOR n -- n ( f -- ior ) |
| |
|
| : mkdir ( c-addr u mode -- ior ) |
: =mkdir ( c-addr u mode -- ior ) |
| >r 1 tilde_cstr r> mkdir1 f>ior ; |
>r 1 tilde_cstr r> mkdir f>ior ; |
| end-c-library |
end-c-library |
