gforth/mkdir.fs - diff

Return to mkdir.fs CVS log

Up to [gforth] / gforth

version 1.6, 2010/12/30 21:46:14	version 1.10, 2012/12/31 15:25:18
Line 1	Line 1
\ mkdir wrapper	\ mkdir wrapper

\ Copyright (C) 2008 Free Software Foundation, Inc.	\ Copyright (C) 2008,2010,2012 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 tilde_cstr r> over >r mkdir r> free drop f>ior ;
end-c-library	end-c-library
[THEN]	[THEN]
[THEN]	[THEN]