version 1.5, 2008/10/06 21:46:15
|
version 1.9, 2012/03/13 20:00:04
|
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 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 ; |
|
|
|
|
|
|