[gforth] / gforth / mkdir.fs  

gforth: gforth/mkdir.fs

Diff for /gforth/mkdir.fs between version 1.2 and 1.3

version 1.2, Mon Oct 6 19:35:42 2008 UTC version 1.3, Mon Oct 6 20:40:32 2008 UTC
Line 29 
Line 29 
 : =mkdir ( c-addr u mode -- ior )  : =mkdir ( c-addr u mode -- ior )
     >r 1 tilde_cstr r> mkdir f>ior ;      >r 1 tilde_cstr r> mkdir f>ior ;
 end-c-library  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 ;
   
   

Generate output suitable for use with a patch program
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help