1 /* $OpenBSD: gen_subs.c,v 1.19 2007/04/04 21:55:10 millert Exp $ */
2 /* $NetBSD: gen_subs.c,v 1.5 1995/03/21 09:07:26 cgd Exp $ */
5 * Copyright (c) 1992 Keith Muller.
6 * Copyright (c) 1992, 1993
7 * The Regents of the University of California. All rights reserved.
9 * This code is derived from software contributed to Berkeley by
10 * Keith Muller of the University of California, San Diego.
12 * Redistribution and use in source and binary forms, with or without
13 * modification, are permitted provided that the following conditions
15 * 1. Redistributions of source code must retain the above copyright
16 * notice, this list of conditions and the following disclaimer.
17 * 2. Redistributions in binary form must reproduce the above copyright
18 * notice, this list of conditions and the following disclaimer in the
19 * documentation and/or other materials provided with the distribution.
20 * 3. Neither the name of the University nor the names of its contributors
21 * may be used to endorse or promote products derived from this software
22 * without specific prior written permission.
24 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
25 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
26 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
27 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
28 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
29 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
30 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
31 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
32 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
33 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
37 #include <sys/cdefs.h>
40 static const char sccsid
[] = "@(#)gen_subs.c 8.1 (Berkeley) 5/31/93";
42 __used
static const char rcsid
[] = "$OpenBSD: gen_subs.c,v 1.19 2007/04/04 21:55:10 millert Exp $";
46 #include <sys/types.h>
49 #include <sys/param.h>
61 * a collection of general purpose subroutines used by pax
65 * constants used by ls_list() when printing out archive members
69 #define SIXMONTHS ((DAYSPERNYEAR / 2) * SECSPERDAY)
70 #define CURFRMTM "%b %e %H:%M"
71 #define OLDFRMTM "%b %e %Y"
72 #define CURFRMTD "%e %b %H:%M"
73 #define OLDFRMTD "%e %b %Y"
76 static int d_first
= -1;
80 * list the members of an archive in ls format
84 ls_list(ARCHD
*arcn
, time_t now
, FILE *fp
)
92 term
= zeroflag ?
'\0' : '\n'; /* path termination character */
95 * if not verbose, just print the file name
99 (void)fputs(arcn
->name
, fp
);
101 safe_print(arcn
->name
, fp
);
102 (void)putc(term
, fp
);
107 if (pax_list_opt_format
) {
108 pax_format_list_output(arcn
, now
, fp
, term
);
113 d_first
= (*nl_langinfo(D_MD_ORDER
) == 'd');
115 * user wants long mode
118 strmode(sbp
->st_mode
, f_mode
);
121 * time format based on age compared to the time pax was started.
123 if ((sbp
->st_mtime
+ SIXMONTHS
) <= now
||
125 timefrmt
= d_first ? OLDFRMTD
: OLDFRMTM
;
127 timefrmt
= d_first ? CURFRMTD
: CURFRMTM
;
130 * print file mode, link count, uid, gid and time
132 if (strftime(f_date
,DATELEN
,timefrmt
,localtime(&(sbp
->st_mtime
))) == 0)
134 #define UT_NAMESIZE 8
135 (void)fprintf(fp
, "%s%2u %-*.*s %-*.*s ", f_mode
, sbp
->st_nlink
,
136 NAME_WIDTH
, UT_NAMESIZE
, name_uid(sbp
->st_uid
, 1),
137 NAME_WIDTH
, UT_NAMESIZE
, name_gid(sbp
->st_gid
, 1));
140 * print device id's for devices, or sizes for other nodes
142 if ((arcn
->type
== PAX_CHR
) || (arcn
->type
== PAX_BLK
))
144 (void)fprintf(fp
, "%4u,%4u ", MAJOR(sbp
->st_rdev
),
146 (void)fprintf(fp
, "%4lu,%4lu ", (unsigned long)MAJOR(sbp
->st_rdev
),
148 (unsigned long)MINOR(sbp
->st_rdev
));
151 * UNIX compliance fix: printing filename length for soft links
152 * from arcn->ln_nlen instead of sbp->st_size, which is 0.
155 if (arcn
->type
== PAX_SLK
) {
156 nlen
= arcn
->ln_nlen
;
161 (void)fprintf(fp
, "%9lu ", nlen
);
163 (void)fprintf(fp
, "%9qu ", nlen
);
168 * print name and link info for hard and soft links
170 (void)fputs(f_date
, fp
);
172 safe_print(arcn
->name
, fp
);
173 if ((arcn
->type
== PAX_HLK
) || (arcn
->type
== PAX_HRG
)) {
175 safe_print(arcn
->ln_name
, fp
);
176 } else if (arcn
->type
== PAX_SLK
) {
178 safe_print(arcn
->ln_name
, fp
);
180 (void)putc(term
, fp
);
187 * print a short summary of file to tty.
193 char f_date
[DATELEN
];
194 char f_mode
[MODELEN
];
195 const char *timefrmt
;
198 d_first
= (*nl_langinfo(D_MD_ORDER
) == 'd');
200 if ((arcn
->sb
.st_mtime
+ SIXMONTHS
) <= time(NULL
))
201 timefrmt
= d_first ? OLDFRMTD
: OLDFRMTM
;
203 timefrmt
= d_first ? CURFRMTD
: CURFRMTM
;
206 * convert time to string, and print
208 if (strftime(f_date
, DATELEN
, timefrmt
,
209 localtime(&(arcn
->sb
.st_mtime
))) == 0)
211 strmode(arcn
->sb
.st_mode
, f_mode
);
212 tty_prnt("%s%s %s\n", f_mode
, f_date
, arcn
->name
);
217 safe_print(const char *str
, FILE *fp
)
223 * if printing to a tty, use vis(3) to print special characters.
225 if (isatty(fileno(fp
))) {
226 for (cp
= str
; *cp
; cp
++) {
227 (void)vis(visbuf
, cp
[0], VIS_CSTYLE
, cp
[1]);
228 (void)fputs(visbuf
, fp
);
231 (void)fputs(str
, fp
);
237 * convert hex/octal character string into a u_long. We do not have to
238 * check for overflow! (the headers in all supported formats are not large
239 * enough to create an overflow).
240 * NOTE: strings passed to us are NOT TERMINATED.
242 * unsigned long value
246 asc_ul(char *str
, int len
, int base
)
254 * skip over leading blanks and zeros
256 while ((str
< stop
) && ((*str
== ' ') || (*str
== '0')))
260 * for each valid digit, shift running value (tval) over to next digit
265 if ((*str
>= '0') && (*str
<= '9'))
266 tval
= (tval
<< 4) + (*str
++ - '0');
267 else if ((*str
>= 'A') && (*str
<= 'F'))
268 tval
= (tval
<< 4) + 10 + (*str
++ - 'A');
269 else if ((*str
>= 'a') && (*str
<= 'f'))
270 tval
= (tval
<< 4) + 10 + (*str
++ - 'a');
275 while ((str
< stop
) && (*str
>= '0') && (*str
<= '7'))
276 tval
= (tval
<< 3) + (*str
++ - '0');
283 * convert an unsigned long into an hex/oct ascii string. pads with LEADING
284 * ascii 0's to fill string completely
285 * NOTE: the string created is NOT TERMINATED.
289 ul_asc(u_long val
, char *str
, int len
, int base
)
295 * WARNING str is not '\0' terminated by this routine
300 * do a tailwise conversion (start at right most end of string to place
301 * least significant digit). Keep shifting until conversion value goes
302 * to zero (all digits were converted)
306 if ((digit
= (val
& 0xf)) < 10)
307 *pt
-- = '0' + (char)digit
;
309 *pt
-- = 'a' + (char)(digit
- 10);
310 if ((val
= (val
>> 4)) == (u_long
)0)
315 *pt
-- = '0' + (char)(val
& 0x7);
316 if ((val
= (val
>> 3)) == (u_long
)0)
322 * pad with leading ascii ZEROS. We return -1 if we ran out of space.
326 if (val
!= (u_long
)0)
334 * convert hex/octal character string into a u_quad_t. We do not have to
335 * check for overflow! (the headers in all supported formats are not large
336 * enough to create an overflow).
337 * NOTE: strings passed to us are NOT TERMINATED.
343 asc_uqd(char *str
, int len
, int base
)
351 * skip over leading blanks and zeros
353 while ((str
< stop
) && ((*str
== ' ') || (*str
== '0')))
357 * for each valid digit, shift running value (tval) over to next digit
362 if ((*str
>= '0') && (*str
<= '9'))
363 tval
= (tval
<< 4) + (*str
++ - '0');
364 else if ((*str
>= 'A') && (*str
<= 'F'))
365 tval
= (tval
<< 4) + 10 + (*str
++ - 'A');
366 else if ((*str
>= 'a') && (*str
<= 'f'))
367 tval
= (tval
<< 4) + 10 + (*str
++ - 'a');
372 while ((str
< stop
) && (*str
>= '0') && (*str
<= '7'))
373 tval
= (tval
<< 3) + (*str
++ - '0');
380 * convert an u_quad_t into a hex/oct ascii string. pads with LEADING
381 * ascii 0's to fill string completely
382 * NOTE: the string created is NOT TERMINATED.
386 uqd_asc(u_quad_t val
, char *str
, int len
, int base
)
392 * WARNING str is not '\0' terminated by this routine
397 * do a tailwise conversion (start at right most end of string to place
398 * least significant digit). Keep shifting until conversion value goes
399 * to zero (all digits were converted)
403 if ((digit
= (val
& 0xf)) < 10)
404 *pt
-- = '0' + (char)digit
;
406 *pt
-- = 'a' + (char)(digit
- 10);
407 if ((val
= (val
>> 4)) == (u_quad_t
)0)
412 *pt
-- = '0' + (char)(val
& 0x7);
413 if ((val
= (val
>> 3)) == (u_quad_t
)0)
419 * pad with leading ascii ZEROS. We return -1 if we ran out of space.
423 if (val
!= (u_quad_t
)0)
430 * Copy at max min(bufz, fieldsz) chars from field to buf, stopping
431 * at the first NUL char. NUL terminate buf if there is room left.
434 fieldcpy(char *buf
, size_t bufsz
, const char *field
, size_t fieldsz
)
437 const char *q
= field
;
442 while (i
< fieldsz
&& *q
!= '\0') {