diff options
Diffstat (limited to 'libguile/filesys.h')
-rw-r--r-- | libguile/filesys.h | 49 |
1 files changed, 22 insertions, 27 deletions
diff --git a/libguile/filesys.h b/libguile/filesys.h index fc66e40b2..f870ee434 100644 --- a/libguile/filesys.h +++ b/libguile/filesys.h @@ -1,30 +1,28 @@ -/* classes: h_files */ - #ifndef SCM_FILESYS_H #define SCM_FILESYS_H -/* Copyright (C) 1995, 1997, 1998, 1999, 2000, 2001, 2006, 2008, 2009, - * 2010, 2011, 2013 Free Software Foundation, Inc. - * - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Lesser General Public License - * as published by the Free Software Foundation; either version 3 of - * the License, or (at your option) any later version. - * - * This library 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 - * Lesser General Public License for more details. - * - * You should have received a copy of the GNU Lesser General Public - * License along with this library; if not, write to the Free Software - * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA - * 02110-1301 USA - */ +/* Copyright 1995,1997-2001,2006,2008-2011,2013,2018 + Free Software Foundation, Inc. + + This file is part of Guile. + + Guile is free software: you can redistribute it and/or modify it + under the terms of the GNU Lesser General Public License as published + by the Free Software Foundation, either version 3 of the License, or + (at your option) any later version. + + Guile 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 Lesser General Public + License for more details. + + You should have received a copy of the GNU Lesser General Public + License along with Guile. If not, see + <https://www.gnu.org/licenses/>. */ -#include "libguile/__scm.h" +#include <libguile/error.h> @@ -35,6 +33,9 @@ SCM_API scm_t_bits scm_tc16_dir; #define SCM_DIRP(x) (SCM_HAS_TYP16 (x, scm_tc16_dir)) #define SCM_DIR_OPEN_P(x) (SCM_SMOB_FLAGS (x) & SCM_DIR_FLAG_OPEN) +#define SCM_VALIDATE_DIR(pos, port) \ + SCM_MAKE_VALIDATE_MSG (pos, port, DIRP, "directory port") + SCM_API SCM scm_chown (SCM object, SCM owner, SCM group); @@ -73,9 +74,3 @@ SCM_INTERNAL SCM scm_i_relativize_path (SCM path, SCM in_path); SCM_INTERNAL void scm_init_filesys (void); #endif /* SCM_FILESYS_H */ - -/* - Local Variables: - c-file-style: "gnu" - End: -*/ |