gforth/mkdir.fs - diff

Return to mkdir.fs CVS log

Up to [gforth] / gforth

-version 1.2, 2008/10/06 19:35:42
+version 1.3, 2008/10/06 20:40:32
  Line 29  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
+ : mkdir-p { c-addr u mode -- ior }
+     \G create the directory @i{c-addr u} and all it's parents with
+     \G mode @i{mode} (modified by umask)
+     c-addr u begin { d: s }
+         s 1 /string '/' scan 2dup while ( s1 s1addr )
+             c-addr tuck - mode =mkdir drop
+     repeat
+     drop 2drop
+     c-addr u mode =mkdir ;