gforth/mkdir.fs - diff

Return to mkdir.fs CVS log

Up to [gforth] / gforth

version 1.5, 2008/10/06 21:46:15	version 1.8, 2012/03/13 19:33:31
Line 1	Line 1
\ mkdir wrapper	\ mkdir wrapper

\ Copyright (C) 2008 Free Software Foundation, Inc.	\ Copyright (C) 2008,2010 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 34	Line 34
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> mkdir f>ior ;	>r 1 tilde_cstr r> over >r mkdir r> free drop f>ior ;
end-c-library	end-c-library
[THEN]	[THEN]
[THEN]	[THEN]
Line 48	Line 48
repeat	repeat
drop 2drop	drop 2drop
c-addr u mode =mkdir ;	c-addr u mode =mkdir ;