mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-01 23:30:28 +02:00
Code Activity

Make scm_tc16_dir, SCM_DIRP etc private

Browse source 
* libguile/filesys.h:
* libguile/filesys.c (SCM_DIR_FLAG_OPEN):
(SCM_DIR_OPEN_P):
(SCM_DIRP):
(SCM_VALIDATE_DIR): Move here, from the header.  I don't think people
use them.
This commit is contained in:
Andy Wingo 2025-06-13 15:07:29 +02:00
parent c1150bec2c
commit df113d1589
2 changed files with 10 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

11
libguile/filesys.c
View file

@ -1,4 +1,4 @@
/* Copyright 1996-2002,2004,2006,2009-2019,2021
/* Copyright 1996-2002,2004,2006,2009-2019,2021,2025
Free Software Foundation, Inc.
Copyright 2021 Maxime Devos <maximedevos@telenet.be>
Copyright 2024, 2025 Tomas Volf <~@wolfsden.cz>
@ -2192,8 +2192,15 @@ scm_i_relativize_path (SCM path, SCM in_path)
/* Examining directories. These procedures are used by `check-guile'
and thus compiled unconditionally. */
scm_t_bits scm_tc16_dir;
static scm_t_bits scm_tc16_dir;
#define SCM_DIR_FLAG_OPEN (1L << 0)
#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_DEFINE (scm_directory_stream_p, "directory-stream?", 1, 0, 0,
(SCM obj),

14
libguile/filesys.h
View file

@ -1,7 +1,7 @@
#ifndef SCM_FILESYS_H
#define SCM_FILESYS_H
/* Copyright 1995,1997-2001,2006,2008-2011,2013,2018,2021
/* Copyright 1995,1997-2001,2006,2008-2011,2013,2018,2021,2025
Free Software Foundation, Inc.
This file is part of Guile.
@ -26,18 +26,6 @@
SCM_API scm_t_bits scm_tc16_dir;
#define SCM_DIR_FLAG_OPEN (1L << 0)
#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);
SCM_API SCM scm_chownat (SCM dir, SCM object, SCM owner, SCM group, SCM flags);
SCM_API SCM scm_chmod (SCM object, SCM mode);