1*b30d1939SAndy Fiddaman /***********************************************************************
2*b30d1939SAndy Fiddaman * *
3*b30d1939SAndy Fiddaman * This software is part of the ast package *
4*b30d1939SAndy Fiddaman * Copyright (c) 1985-2012 AT&T Intellectual Property *
5*b30d1939SAndy Fiddaman * and is licensed under the *
6*b30d1939SAndy Fiddaman * Eclipse Public License, Version 1.0 *
7*b30d1939SAndy Fiddaman * by AT&T Intellectual Property *
8*b30d1939SAndy Fiddaman * *
9*b30d1939SAndy Fiddaman * A copy of the License is available at *
10*b30d1939SAndy Fiddaman * http://www.eclipse.org/org/documents/epl-v10.html *
11*b30d1939SAndy Fiddaman * (with md5 checksum b35adb5213ca9657e911e9befb180842) *
12*b30d1939SAndy Fiddaman * *
13*b30d1939SAndy Fiddaman * Information and Software Systems Research *
14*b30d1939SAndy Fiddaman * AT&T Research *
15*b30d1939SAndy Fiddaman * Florham Park NJ *
16*b30d1939SAndy Fiddaman * *
17*b30d1939SAndy Fiddaman * Glenn Fowler <gsf@research.att.com> *
18*b30d1939SAndy Fiddaman * David Korn <dgk@research.att.com> *
19*b30d1939SAndy Fiddaman * Phong Vo <kpv@research.att.com> *
20*b30d1939SAndy Fiddaman * *
21*b30d1939SAndy Fiddaman ***********************************************************************/
22*b30d1939SAndy Fiddaman #pragma prototyped
23*b30d1939SAndy Fiddaman /*
24*b30d1939SAndy Fiddaman * Glenn Fowler
25*b30d1939SAndy Fiddaman * AT&T Research
26*b30d1939SAndy Fiddaman *
27*b30d1939SAndy Fiddaman * Tv_t conversion support
28*b30d1939SAndy Fiddaman */
29*b30d1939SAndy Fiddaman
30*b30d1939SAndy Fiddaman #if defined(__STDPP__directive) && defined(__STDPP__hide)
31*b30d1939SAndy Fiddaman __STDPP__directive pragma pp:hide utime
32*b30d1939SAndy Fiddaman #else
33*b30d1939SAndy Fiddaman #define utime ______utime
34*b30d1939SAndy Fiddaman #endif
35*b30d1939SAndy Fiddaman
36*b30d1939SAndy Fiddaman #ifndef _ATFILE_SOURCE
37*b30d1939SAndy Fiddaman #define _ATFILE_SOURCE 1
38*b30d1939SAndy Fiddaman #endif
39*b30d1939SAndy Fiddaman
40*b30d1939SAndy Fiddaman #include <ast.h>
41*b30d1939SAndy Fiddaman #include <ls.h>
42*b30d1939SAndy Fiddaman #include <tv.h>
43*b30d1939SAndy Fiddaman #include <times.h>
44*b30d1939SAndy Fiddaman #include <error.h>
45*b30d1939SAndy Fiddaman
46*b30d1939SAndy Fiddaman #include "FEATURE/tvlib"
47*b30d1939SAndy Fiddaman
48*b30d1939SAndy Fiddaman #if _hdr_utime && _lib_utime
49*b30d1939SAndy Fiddaman #include <utime.h>
50*b30d1939SAndy Fiddaman #endif
51*b30d1939SAndy Fiddaman
52*b30d1939SAndy Fiddaman #if defined(__STDPP__directive) && defined(__STDPP__hide)
53*b30d1939SAndy Fiddaman __STDPP__directive pragma pp:nohide utime
54*b30d1939SAndy Fiddaman #else
55*b30d1939SAndy Fiddaman #undef utime
56*b30d1939SAndy Fiddaman #endif
57*b30d1939SAndy Fiddaman
58*b30d1939SAndy Fiddaman #if _lib_utime
59*b30d1939SAndy Fiddaman #if _hdr_utime
60*b30d1939SAndy Fiddaman extern int utime(const char*, const struct utimbuf*);
61*b30d1939SAndy Fiddaman #else
62*b30d1939SAndy Fiddaman extern int utime(const char*, const time_t*);
63*b30d1939SAndy Fiddaman #endif
64*b30d1939SAndy Fiddaman #endif
65*b30d1939SAndy Fiddaman
66*b30d1939SAndy Fiddaman #define NS(n) (((uint32_t)(n))<1000000000L?(n):0)
67*b30d1939SAndy Fiddaman
68*b30d1939SAndy Fiddaman /*
69*b30d1939SAndy Fiddaman * touch path <atime,mtime,ctime>
70*b30d1939SAndy Fiddaman * Tv_t==0 uses current time
71*b30d1939SAndy Fiddaman * Tv_t==TV_TOUCH_RETAIN retains path value if it exists, current time otherwise
72*b30d1939SAndy Fiddaman * otherwise it is exact time
73*b30d1939SAndy Fiddaman * file created if it doesn't exist and (flags&TV_TOUCH_CREATE)
74*b30d1939SAndy Fiddaman * symlink not followed if (flags&TV_TOUCH_PHYSICAL)
75*b30d1939SAndy Fiddaman * cv most likely ignored on most implementations
76*b30d1939SAndy Fiddaman *
77*b30d1939SAndy Fiddaman * NOTE: when *at() calls are integrated TV_TOUCH_* should be advertized!
78*b30d1939SAndy Fiddaman */
79*b30d1939SAndy Fiddaman
80*b30d1939SAndy Fiddaman #define TV_TOUCH_CREATE 1
81*b30d1939SAndy Fiddaman #define TV_TOUCH_PHYSICAL 2
82*b30d1939SAndy Fiddaman
83*b30d1939SAndy Fiddaman #if !defined(UTIME_NOW) || !defined(UTIME_OMIT) || defined(__stub_utimensat)
84*b30d1939SAndy Fiddaman #undef _lib_utimensat
85*b30d1939SAndy Fiddaman #endif
86*b30d1939SAndy Fiddaman
87*b30d1939SAndy Fiddaman int
tvtouch(const char * path,register const Tv_t * av,register const Tv_t * mv,const Tv_t * cv,int flags)88*b30d1939SAndy Fiddaman tvtouch(const char* path, register const Tv_t* av, register const Tv_t* mv, const Tv_t* cv, int flags)
89*b30d1939SAndy Fiddaman {
90*b30d1939SAndy Fiddaman int fd;
91*b30d1939SAndy Fiddaman int mode;
92*b30d1939SAndy Fiddaman int oerrno;
93*b30d1939SAndy Fiddaman struct stat st;
94*b30d1939SAndy Fiddaman Tv_t now;
95*b30d1939SAndy Fiddaman #if _lib_utimets || _lib_utimensat
96*b30d1939SAndy Fiddaman struct timespec ts[2];
97*b30d1939SAndy Fiddaman #endif
98*b30d1939SAndy Fiddaman #if _lib_utimes
99*b30d1939SAndy Fiddaman struct timeval am[2];
100*b30d1939SAndy Fiddaman #else
101*b30d1939SAndy Fiddaman #if _hdr_utime
102*b30d1939SAndy Fiddaman struct utimbuf am;
103*b30d1939SAndy Fiddaman #else
104*b30d1939SAndy Fiddaman time_t am[2];
105*b30d1939SAndy Fiddaman #endif
106*b30d1939SAndy Fiddaman #endif
107*b30d1939SAndy Fiddaman
108*b30d1939SAndy Fiddaman oerrno = errno;
109*b30d1939SAndy Fiddaman #if _lib_utimensat
110*b30d1939SAndy Fiddaman if (!av)
111*b30d1939SAndy Fiddaman {
112*b30d1939SAndy Fiddaman ts[0].tv_sec = 0;
113*b30d1939SAndy Fiddaman ts[0].tv_nsec = UTIME_NOW;
114*b30d1939SAndy Fiddaman }
115*b30d1939SAndy Fiddaman else if (av == TV_TOUCH_RETAIN)
116*b30d1939SAndy Fiddaman {
117*b30d1939SAndy Fiddaman ts[0].tv_sec = 0;
118*b30d1939SAndy Fiddaman ts[0].tv_nsec = UTIME_OMIT;
119*b30d1939SAndy Fiddaman }
120*b30d1939SAndy Fiddaman else
121*b30d1939SAndy Fiddaman {
122*b30d1939SAndy Fiddaman ts[0].tv_sec = av->tv_sec;
123*b30d1939SAndy Fiddaman ts[0].tv_nsec = NS(av->tv_nsec);
124*b30d1939SAndy Fiddaman }
125*b30d1939SAndy Fiddaman if (!mv)
126*b30d1939SAndy Fiddaman {
127*b30d1939SAndy Fiddaman ts[1].tv_sec = 0;
128*b30d1939SAndy Fiddaman ts[1].tv_nsec = UTIME_NOW;
129*b30d1939SAndy Fiddaman }
130*b30d1939SAndy Fiddaman else if (mv == TV_TOUCH_RETAIN)
131*b30d1939SAndy Fiddaman {
132*b30d1939SAndy Fiddaman ts[1].tv_sec = 0;
133*b30d1939SAndy Fiddaman ts[1].tv_nsec = UTIME_OMIT;
134*b30d1939SAndy Fiddaman }
135*b30d1939SAndy Fiddaman else
136*b30d1939SAndy Fiddaman {
137*b30d1939SAndy Fiddaman ts[1].tv_sec = mv->tv_sec;
138*b30d1939SAndy Fiddaman ts[1].tv_nsec = NS(mv->tv_nsec);
139*b30d1939SAndy Fiddaman }
140*b30d1939SAndy Fiddaman if (!cv && av == TV_TOUCH_RETAIN && mv == TV_TOUCH_RETAIN && !stat(path, &st) && !chmod(path, st.st_mode & S_IPERM))
141*b30d1939SAndy Fiddaman return 0;
142*b30d1939SAndy Fiddaman if (!utimensat(AT_FDCWD, path, ts[0].tv_nsec == UTIME_NOW && ts[1].tv_nsec == UTIME_NOW ? (struct timespec*)0 : ts, (flags & TV_TOUCH_PHYSICAL) ? AT_SYMLINK_NOFOLLOW : 0))
143*b30d1939SAndy Fiddaman return 0;
144*b30d1939SAndy Fiddaman if (errno != ENOSYS)
145*b30d1939SAndy Fiddaman {
146*b30d1939SAndy Fiddaman if (errno != ENOENT || !(flags & TV_TOUCH_CREATE))
147*b30d1939SAndy Fiddaman return -1;
148*b30d1939SAndy Fiddaman umask(mode = umask(0));
149*b30d1939SAndy Fiddaman mode = (~mode) & (S_IRUSR|S_IWUSR|S_IRGRP|S_IWGRP|S_IROTH|S_IWOTH);
150*b30d1939SAndy Fiddaman if ((fd = open(path, O_WRONLY|O_CREAT|O_TRUNC|O_cloexec, mode)) < 0)
151*b30d1939SAndy Fiddaman return -1;
152*b30d1939SAndy Fiddaman close(fd);
153*b30d1939SAndy Fiddaman errno = oerrno;
154*b30d1939SAndy Fiddaman if ((ts[0].tv_nsec != UTIME_NOW || ts[1].tv_nsec != UTIME_NOW) && utimensat(AT_FDCWD, path, ts, (flags & TV_TOUCH_PHYSICAL) ? AT_SYMLINK_NOFOLLOW : 0))
155*b30d1939SAndy Fiddaman return -1;
156*b30d1939SAndy Fiddaman return 0;
157*b30d1939SAndy Fiddaman }
158*b30d1939SAndy Fiddaman #endif
159*b30d1939SAndy Fiddaman if ((av == TV_TOUCH_RETAIN || mv == TV_TOUCH_RETAIN) && stat(path, &st))
160*b30d1939SAndy Fiddaman {
161*b30d1939SAndy Fiddaman errno = oerrno;
162*b30d1939SAndy Fiddaman if (av == TV_TOUCH_RETAIN)
163*b30d1939SAndy Fiddaman av = 0;
164*b30d1939SAndy Fiddaman if (mv == TV_TOUCH_RETAIN)
165*b30d1939SAndy Fiddaman mv = 0;
166*b30d1939SAndy Fiddaman }
167*b30d1939SAndy Fiddaman if (!av || !mv)
168*b30d1939SAndy Fiddaman {
169*b30d1939SAndy Fiddaman tvgettime(&now);
170*b30d1939SAndy Fiddaman if (!av)
171*b30d1939SAndy Fiddaman av = (const Tv_t*)&now;
172*b30d1939SAndy Fiddaman if (!mv)
173*b30d1939SAndy Fiddaman mv = (const Tv_t*)&now;
174*b30d1939SAndy Fiddaman }
175*b30d1939SAndy Fiddaman #if _lib_utimets
176*b30d1939SAndy Fiddaman if (av == TV_TOUCH_RETAIN)
177*b30d1939SAndy Fiddaman {
178*b30d1939SAndy Fiddaman ts[0].tv_sec = st.st_atime;
179*b30d1939SAndy Fiddaman ts[0].tv_nsec = ST_ATIME_NSEC_GET(&st);
180*b30d1939SAndy Fiddaman }
181*b30d1939SAndy Fiddaman else
182*b30d1939SAndy Fiddaman {
183*b30d1939SAndy Fiddaman ts[0].tv_sec = av->tv_sec;
184*b30d1939SAndy Fiddaman ts[0].tv_nsec = NS(av->tv_nsec);
185*b30d1939SAndy Fiddaman }
186*b30d1939SAndy Fiddaman if (mv == TV_TOUCH_RETAIN)
187*b30d1939SAndy Fiddaman {
188*b30d1939SAndy Fiddaman ts[1].tv_sec = st.st_mtime;
189*b30d1939SAndy Fiddaman ts[1].tv_nsec = ST_MTIME_NSEC_GET(&st);
190*b30d1939SAndy Fiddaman }
191*b30d1939SAndy Fiddaman else
192*b30d1939SAndy Fiddaman {
193*b30d1939SAndy Fiddaman ts[1].tv_sec = mv->tv_sec;
194*b30d1939SAndy Fiddaman ts[1].tv_nsec = NS(mv->tv_nsec);
195*b30d1939SAndy Fiddaman }
196*b30d1939SAndy Fiddaman if (!utimets(path, ts))
197*b30d1939SAndy Fiddaman return 0;
198*b30d1939SAndy Fiddaman if (errno != ENOENT && av == (const Tv_t*)&now && mv == (const Tv_t*)&now && !utimets(path, NiL))
199*b30d1939SAndy Fiddaman {
200*b30d1939SAndy Fiddaman errno = oerrno;
201*b30d1939SAndy Fiddaman return 0;
202*b30d1939SAndy Fiddaman }
203*b30d1939SAndy Fiddaman #else
204*b30d1939SAndy Fiddaman #if _lib_utimes
205*b30d1939SAndy Fiddaman if (av == TV_TOUCH_RETAIN)
206*b30d1939SAndy Fiddaman {
207*b30d1939SAndy Fiddaman am[0].tv_sec = st.st_atime;
208*b30d1939SAndy Fiddaman am[0].tv_usec = ST_ATIME_NSEC_GET(&st) / 1000;
209*b30d1939SAndy Fiddaman }
210*b30d1939SAndy Fiddaman else
211*b30d1939SAndy Fiddaman {
212*b30d1939SAndy Fiddaman am[0].tv_sec = av->tv_sec;
213*b30d1939SAndy Fiddaman am[0].tv_usec = NS(av->tv_nsec) / 1000;
214*b30d1939SAndy Fiddaman }
215*b30d1939SAndy Fiddaman if (mv == TV_TOUCH_RETAIN)
216*b30d1939SAndy Fiddaman {
217*b30d1939SAndy Fiddaman am[1].tv_sec = st.st_mtime;
218*b30d1939SAndy Fiddaman am[1].tv_usec = ST_MTIME_NSEC_GET(&st) / 1000;
219*b30d1939SAndy Fiddaman }
220*b30d1939SAndy Fiddaman else
221*b30d1939SAndy Fiddaman {
222*b30d1939SAndy Fiddaman am[1].tv_sec = mv->tv_sec;
223*b30d1939SAndy Fiddaman am[1].tv_usec = NS(mv->tv_nsec) / 1000;
224*b30d1939SAndy Fiddaman }
225*b30d1939SAndy Fiddaman if (!utimes(path, am))
226*b30d1939SAndy Fiddaman return 0;
227*b30d1939SAndy Fiddaman if (errno != ENOENT && av == (const Tv_t*)&now && mv == (const Tv_t*)&now && !utimes(path, NiL))
228*b30d1939SAndy Fiddaman {
229*b30d1939SAndy Fiddaman errno = oerrno;
230*b30d1939SAndy Fiddaman return 0;
231*b30d1939SAndy Fiddaman }
232*b30d1939SAndy Fiddaman #else
233*b30d1939SAndy Fiddaman #if _lib_utime
234*b30d1939SAndy Fiddaman am.actime = (av == TV_TOUCH_RETAIN) ? st.st_atime : av->tv_sec;
235*b30d1939SAndy Fiddaman am.modtime = (mv == TV_TOUCH_RETAIN) ? st.st_mtime : mv->tv_sec;
236*b30d1939SAndy Fiddaman if (!utime(path, &am))
237*b30d1939SAndy Fiddaman return 0;
238*b30d1939SAndy Fiddaman #if _lib_utime_now
239*b30d1939SAndy Fiddaman if (errno != ENOENT && av == (const Tv_t*)&now && mv == (const Tv_t*)&now && !utime(path, NiL))
240*b30d1939SAndy Fiddaman {
241*b30d1939SAndy Fiddaman errno = oerrno;
242*b30d1939SAndy Fiddaman return 0;
243*b30d1939SAndy Fiddaman }
244*b30d1939SAndy Fiddaman #endif
245*b30d1939SAndy Fiddaman #endif
246*b30d1939SAndy Fiddaman #endif
247*b30d1939SAndy Fiddaman if (!access(path, F_OK))
248*b30d1939SAndy Fiddaman {
249*b30d1939SAndy Fiddaman if (av != (const Tv_t*)&now || mv != (const Tv_t*)&now)
250*b30d1939SAndy Fiddaman {
251*b30d1939SAndy Fiddaman errno = EINVAL;
252*b30d1939SAndy Fiddaman return -1;
253*b30d1939SAndy Fiddaman }
254*b30d1939SAndy Fiddaman if ((fd = open(path, O_RDWR|O_cloexec)) >= 0)
255*b30d1939SAndy Fiddaman {
256*b30d1939SAndy Fiddaman char c;
257*b30d1939SAndy Fiddaman
258*b30d1939SAndy Fiddaman if (read(fd, &c, 1) == 1)
259*b30d1939SAndy Fiddaman {
260*b30d1939SAndy Fiddaman if (c = (lseek(fd, 0L, 0) == 0L && write(fd, &c, 1) == 1))
261*b30d1939SAndy Fiddaman errno = oerrno;
262*b30d1939SAndy Fiddaman close(fd);
263*b30d1939SAndy Fiddaman if (c)
264*b30d1939SAndy Fiddaman return 0;
265*b30d1939SAndy Fiddaman }
266*b30d1939SAndy Fiddaman close(fd);
267*b30d1939SAndy Fiddaman }
268*b30d1939SAndy Fiddaman }
269*b30d1939SAndy Fiddaman #endif
270*b30d1939SAndy Fiddaman if (errno != ENOENT || !(flags & TV_TOUCH_CREATE))
271*b30d1939SAndy Fiddaman return -1;
272*b30d1939SAndy Fiddaman umask(mode = umask(0));
273*b30d1939SAndy Fiddaman mode = (~mode) & (S_IRUSR|S_IWUSR|S_IRGRP|S_IWGRP|S_IROTH|S_IWOTH);
274*b30d1939SAndy Fiddaman if ((fd = open(path, O_WRONLY|O_CREAT|O_TRUNC|O_cloexec, mode)) < 0)
275*b30d1939SAndy Fiddaman return -1;
276*b30d1939SAndy Fiddaman close(fd);
277*b30d1939SAndy Fiddaman errno = oerrno;
278*b30d1939SAndy Fiddaman if (av == (const Tv_t*)&now && mv == (const Tv_t*)&now)
279*b30d1939SAndy Fiddaman return 0;
280*b30d1939SAndy Fiddaman #if _lib_utimets
281*b30d1939SAndy Fiddaman return utimets(path, ts);
282*b30d1939SAndy Fiddaman #else
283*b30d1939SAndy Fiddaman #if _lib_utimes
284*b30d1939SAndy Fiddaman return utimes(path, am);
285*b30d1939SAndy Fiddaman #else
286*b30d1939SAndy Fiddaman #if _lib_utime
287*b30d1939SAndy Fiddaman return utime(path, &am);
288*b30d1939SAndy Fiddaman #else
289*b30d1939SAndy Fiddaman errno = EINVAL;
290*b30d1939SAndy Fiddaman return -1;
291*b30d1939SAndy Fiddaman #endif
292*b30d1939SAndy Fiddaman #endif
293*b30d1939SAndy Fiddaman #endif
294*b30d1939SAndy Fiddaman
295*b30d1939SAndy Fiddaman }
296