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

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);