Commit 9c37409f authored by anton's avatar anton

added cstr.fs mkdir.fs C interface files

parent e96a63f3
......@@ -257,9 +257,7 @@ GFORTH_FI_SRC = \
arch/mips/testasm.fs arch/mips/testdisasm.fs \
arch/power/asm.fs arch/power/disasm.fs arch/power/inst.fs
LIBCC_SRC = unix/socket.fs
LIBCC_SRC = cstr.fs mkdir.fs unix/socket.fs
LIBCC_DIST_SRC = libffi.fs fflib.fs $(LIBCC_SRC)
......
......@@ -617,7 +617,6 @@ else
M4=m4
fi
AC_SUBST(M4)
AC_DEFINE_UNQUOTED(M4,"$M4",[How to invoke m4])
AC_MSG_RESULT($M4)
# Find installed Gforth
......
\ convert Forth strings to zero-terminated strings
\ Copyright (C) 2008 Free Software Foundation, Inc.
\ This file is part of Gforth.
\ Gforth is free software; you can redistribute it and/or
\ modify it under the terms of the GNU General Public License
\ as published by the Free Software Foundation, either version 3
\ of the License, or (at your option) any later version.
\ This program is distributed in the hope that it will be useful,
\ but WITHOUT ANY WARRANTY; without even the implied warranty of
\ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
\ GNU General Public License for more details.
\ You should have received a copy of the GNU General Public License
\ along with this program. If not, see http://www.gnu.org/licenses/.
c-library cstr
c-function cstr cstr a n n -- a ( c-addr u fclear -- c-addr2 )
c-function tilde_cstr tilde_cstr a n n -- a ( c-addr u fclear -- c-addr2 )
end-c-library
\ socket interface
\ Copyright (C) 2008 Free Software Foundation, Inc.
\ This file is part of Gforth.
\ Gforth is free software; you can redistribute it and/or
\ modify it under the terms of the GNU General Public License
\ as published by the Free Software Foundation, either version 3
\ of the License, or (at your option) any later version.
\ This program is distributed in the hope that it will be useful,
\ but WITHOUT ANY WARRANTY; without even the implied warranty of
\ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
\ GNU General Public License for more details.
\ You should have received a copy of the GNU General Public License
\ along with this program. If not, see http://www.gnu.org/licenses/.
require cstr.fs
c-library mkdir
\c #include <sys/stat.h>
\c #include <sys/types.h>
c-function mkdir1 mkdir a n -- n ( pathname\0 mode -- f )
\c #include <errno.h>
\c #define IOR(flag) ((flag)? -512-errno : 0)
c-function f>ior IOR n -- n ( f -- ior )
: mkdir ( c-addr u mode -- ior )
>r 1 tilde_cstr r> mkdir1 f>ior ;
end-c-library
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment