mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

* posix.c (scm_init_posix): Use numeric values, rather than CPP

Browse source 
symbols, when defining the scheme values R_OK, W_OK, X_OK, and F_OK.
The symbols aren't available on some systems, and I'm pretty sure
their values are fixed by common widespread practice.
* ioext.c (scm_init_ioext): Code here defined them too; remove it.
This commit is contained in:
Jim Blandy 1996-08-08 08:28:21 +00:00
parent dd447b634b
commit 94f1e09898
2 changed files with 4 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/ioext.c
View file

@ -423,12 +423,6 @@ scm_init_ioext ()
scm_sysintern ("SEEK_CUR", SCM_MAKINUM (SEEK_CUR)); scm_sysintern ("SEEK_CUR", SCM_MAKINUM (SEEK_CUR));
scm_sysintern ("SEEK_END", SCM_MAKINUM (SEEK_END)); scm_sysintern ("SEEK_END", SCM_MAKINUM (SEEK_END));
/* access() symbols. */
scm_sysintern ("R_OK", SCM_MAKINUM (R_OK));
scm_sysintern ("W_OK", SCM_MAKINUM (W_OK));
scm_sysintern ("X_OK", SCM_MAKINUM (X_OK));
scm_sysintern ("F_OK", SCM_MAKINUM (F_OK));
/* File type/permission bits. */ /* File type/permission bits. */
#ifdef S_IRUSR #ifdef S_IRUSR
scm_sysintern ("S_IRUSR", SCM_MAKINUM (S_IRUSR)); scm_sysintern ("S_IRUSR", SCM_MAKINUM (S_IRUSR));

8
libguile/posix.c
View file

@ -1534,10 +1534,10 @@ scm_init_posix ()
scm_sysintern ("SIGPWR", SCM_MAKINUM (SIGPWR)); scm_sysintern ("SIGPWR", SCM_MAKINUM (SIGPWR));
#endif #endif
/* access() symbols. */ /* access() symbols. */
scm_sysintern ("R_OK", SCM_MAKINUM (R_OK)); scm_sysintern ("R_OK", SCM_MAKINUM (4));
scm_sysintern ("W_OK", SCM_MAKINUM (W_OK)); scm_sysintern ("W_OK", SCM_MAKINUM (2));
scm_sysintern ("X_OK", SCM_MAKINUM (X_OK)); scm_sysintern ("X_OK", SCM_MAKINUM (1));
scm_sysintern ("F_OK", SCM_MAKINUM (F_OK)); scm_sysintern ("F_OK", SCM_MAKINUM (0));
#ifdef LC_COLLATE #ifdef LC_COLLATE
scm_sysintern ("LC_COLLATE", SCM_MAKINUM (LC_COLLATE)); scm_sysintern ("LC_COLLATE", SCM_MAKINUM (LC_COLLATE));