2 * This Cplant(TM) source code is the property of Sandia National
5 * This Cplant(TM) source code is copyrighted by Sandia National
8 * The redistribution of this Cplant(TM) source code is subject to the
9 * terms of the GNU Lesser General Public License
10 * (see cit/LGPL or http://www.gnu.org/licenses/lgpl.html)
12 * Cplant(TM) Copyright 1998-2003 Sandia Corporation.
13 * Under the terms of Contract DE-AC04-94AL85000, there is a non-exclusive
14 * license for use of this work by or on behalf of the US Government.
15 * Export of this program may require a license from the United States
20 * This library is free software; you can redistribute it and/or
21 * modify it under the terms of the GNU Lesser General Public
22 * License as published by the Free Software Foundation; either
23 * version 2.1 of the License, or (at your option) any later version.
25 * This library is distributed in the hope that it will be useful,
26 * but WITHOUT ANY WARRANTY; without even the implied warranty of
27 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
28 * Lesser General Public License for more details.
30 * You should have received a copy of the GNU Lesser General Public
31 * License along with this library; if not, write to the Free Software
32 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
34 * Questions or comments about this library should be sent to:
37 * Sandia National Laboratories, New Mexico
39 * Albuquerque, NM 87185-1110
49 #include <sys/types.h>
51 #include <sys/queue.h>
59 #include "sysio-symbols.h"
62 * Truncate file, given path (alias) or index node.
65 do_truncate(struct pnode *pno, struct inode *ino, _SYSIO_OFF_T length)
67 struct intnl_stat stbuf;
73 if (!ino && pno->p_base->pb_ino)
74 ino = pno->p_base->pb_ino;
77 if (S_ISDIR(ino->i_stbuf.st_mode)) /* for others too? */
79 if (!S_ISREG(ino->i_stbuf.st_mode))
82 (void )memset(&stbuf, 0, sizeof(stbuf));
83 stbuf.st_size = length;
85 return _sysio_setattr(pno, ino, mask, &stbuf);
89 PREPEND(_, SYSIO_INTERFACE_NAME(truncate))(const char *path,
94 SYSIO_INTERFACE_DISPLAY_BLOCK;
96 SYSIO_INTERFACE_ENTER;
97 err = _sysio_namei(_sysio_cwd, path, 0, NULL, &pno);
100 err = do_truncate(pno, pno->p_base->pb_ino, length);
104 SYSIO_INTERFACE_RETURN(err ? -1 : 0, err);
107 #ifdef _LARGEFILE64_SOURCE
109 sysio_sym_weak_alias(PREPEND(_, SYSIO_INTERFACE_NAME(truncate)),
110 SYSIO_INTERFACE_NAME(truncate64))
114 SYSIO_INTERFACE_NAME(truncate)(const char *path, off_t length)
117 return PREPEND(_, SYSIO_INTERFACE_NAME(truncate))(path, length);
121 sysio_sym_weak_alias(PREPEND(_, SYSIO_INTERFACE_NAME(truncate)),
122 SYSIO_INTERFACE_NAME(truncate))
126 PREPEND(_, SYSIO_INTERFACE_NAME(ftruncate))(int fd, _SYSIO_OFF_T length)
130 SYSIO_INTERFACE_DISPLAY_BLOCK;
132 SYSIO_INTERFACE_ENTER;
134 fil = _sysio_fd_find(fd);
139 if (!F_CHKRW(fil, 'w')) {
143 err = do_truncate(NULL, fil->f_ino, length);
145 SYSIO_INTERFACE_RETURN(err ? -1 : 0, err);
148 #ifdef _LARGEFILE64_SOURCE
150 sysio_sym_weak_alias(PREPEND(_, SYSIO_INTERFACE_NAME(ftruncate)),
151 SYSIO_INTERFACE_NAME(ftruncate64))
155 SYSIO_INTERFACE_NAME(ftruncate)(int fd, off_t length)
158 return PREPEND(_, SYSIO_INTERFACE_NAME(ftruncate))(fd, length);
162 sysio_sym_weak_alias(PREPEND(_, SYSIO_INTERFACE_NAME(ftruncate)),
163 SYSIO_INTERFACE_NAME(ftruncate))