mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-04 14:20:26 +02:00
Code Activity

(scm_truncate_file): Use truncate64. Correction truncate

Browse source 
and ftruncate take off_t not size_t.
This commit is contained in:
Kevin Ryde 2006-04-16 01:21:38 +00:00
parent cc3d183cbb
commit 1c64e87552
1 changed files with 11 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

15
libguile/ports.c
View file

@ -19,6 +19,8 @@
/* Headers. */ /* Headers. */
#define _LARGEFILE64_SOURCE /* ask for stat64 etc */
#if HAVE_CONFIG_H #if HAVE_CONFIG_H
# include <config.h> # include <config.h>
#endif #endif
@ -1429,9 +1431,12 @@ SCM_DEFINE (scm_truncate_file, "truncate-file", 1, 1, 0,
#define FUNC_NAME s_scm_truncate_file #define FUNC_NAME s_scm_truncate_file
{ {
int rv; int rv;
off_t c_length;
/* object can be a port, fdes or filename. */ /* "object" can be a port, fdes or filename.
Negative "length" makes no sense, but it's left to truncate() or
ftruncate() to give back an error for that (normally EINVAL).
*/
if (SCM_UNBNDP (length)) if (SCM_UNBNDP (length))
{ {
@ -1441,15 +1446,16 @@ SCM_DEFINE (scm_truncate_file, "truncate-file", 1, 1, 0,
length = scm_seek (object, SCM_INUM0, scm_from_int (SEEK_CUR)); length = scm_seek (object, SCM_INUM0, scm_from_int (SEEK_CUR));
} }
c_length = scm_to_size_t (length);
object = SCM_COERCE_OUTPORT (object); object = SCM_COERCE_OUTPORT (object);
if (scm_is_integer (object)) if (scm_is_integer (object))
{ {
off_t c_length = scm_to_off_t (length);
SCM_SYSCALL (rv = ftruncate (scm_to_int (object), c_length)); SCM_SYSCALL (rv = ftruncate (scm_to_int (object), c_length));
} }
else if (SCM_OPOUTPORTP (object)) else if (SCM_OPOUTPORTP (object))
{ {
off_t c_length = scm_to_off_t (length);
scm_t_port *pt = SCM_PTAB_ENTRY (object); scm_t_port *pt = SCM_PTAB_ENTRY (object);
scm_t_ptob_descriptor *ptob = scm_ptobs + SCM_PTOBNUM (object); scm_t_ptob_descriptor *ptob = scm_ptobs + SCM_PTOBNUM (object);
@ -1465,9 +1471,10 @@ SCM_DEFINE (scm_truncate_file, "truncate-file", 1, 1, 0,
} }
else else
{ {
off_t_or_off64_t c_length = scm_to_off_t_or_off64_t (length);
char *str = scm_to_locale_string (object); char *str = scm_to_locale_string (object);
int eno; int eno;
SCM_SYSCALL (rv = truncate (str, c_length)); SCM_SYSCALL (rv = truncate_or_truncate64 (str, c_length));
eno = errno; eno = errno;
free (str); free (str);
errno = eno; errno = eno;