gforth/mkdir.fs - diff

Return to mkdir.fs CVS log

Up to [gforth] / gforth

-version 1.4, 2008/10/06 21:21:20
+version 1.5, 2008/10/06 21:46:15
  Line 18
  \ along with this program. If not, see http://www.gnu.org/licenses/.
  \ there is now a primitive =MKDIR
- \ require cstr.fs
+ [IFUNDEF] =mkdir
- \ c-library mkdir
+     [IFUNDEF] c-library
- \ \c #include <sys/stat.h>
+         \ define dummy mkdir
- \ \c #include <sys/types.h>
+         : =mkdir ( c-addr u mode -- ior )
- \ c-function mkdir mkdir a n -- n ( pathname\0 mode -- f )
+drop drop 0 ;
- \ \c #include <errno.h>
+     [ELSE]
- \ \c #define IOR(flag)  ((flag)? -512-errno : 0)
+         require cstr.fs
- \ c-function f>ior IOR n -- n ( f -- ior )
+         c-library mkdir
+         \c #include <sys/stat.h>
- \ : =mkdir ( c-addr u mode -- ior )
+         \c #include <sys/types.h>
- \     >r 1 tilde_cstr r> mkdir f>ior ;
+         c-function mkdir mkdir a n -- n ( pathname\0 mode -- f )
- \ end-c-library
+         \c #include <errno.h>
+         \c #define IOR(flag)    ((flag)? -512-errno : 0)
+         c-function f>ior IOR n -- n ( f -- ior )
+         : =mkdir ( c-addr u mode -- ior )
+         >r 1 tilde_cstr r> mkdir f>ior ;
+         end-c-library
+     [THEN]
+ [THEN]
  : mkdir-parents { c-addr u mode -- ior }
      \G create the directory @i{c-addr u} and all its parents with