mirror of
https://git.savannah.gnu.org/git/coreutils.git
synced 2025-09-10 07:59:52 +02:00
Compare commits
92 Commits
FILEUTILS-
...
FILEUTILS-
| Author | SHA1 | Date | |
|---|---|---|---|
|
|
b32c1f0696 | ||
|
|
94d7c5b58c | ||
|
|
0cb7d9a409 | ||
|
|
81bb7f1df3 | ||
|
|
7fc3b4cf7d | ||
|
|
cef050f076 | ||
|
|
919b805380 | ||
|
|
0e48a577b5 | ||
|
|
b0ead8f2d6 | ||
|
|
5614a7d282 | ||
|
|
9c5fb99864 | ||
|
|
1145211d6b | ||
|
|
0c35411a4f | ||
|
|
8bd9ea509e | ||
|
|
bddb246b90 | ||
|
|
e646635206 | ||
|
|
ea9e600f58 | ||
|
|
78c34dee50 | ||
|
|
56949aaebd | ||
|
|
18d7d6b082 | ||
|
|
0cb75a1a07 | ||
|
|
cc271ce8f3 | ||
|
|
bf73df9811 | ||
|
|
b07a5a108e | ||
|
|
2db8ef7c55 | ||
|
|
634ff11428 | ||
|
|
c3b1ab8af1 | ||
|
|
327a21114a | ||
|
|
df91781926 | ||
|
|
4431579378 | ||
|
|
19afd110b3 | ||
|
|
5b02046b20 | ||
|
|
97a44fbdf0 | ||
|
|
49d59ad66b | ||
|
|
c2bbdeab6d | ||
|
|
0d33861999 | ||
|
|
9c38d004ec | ||
|
|
a302182ac8 | ||
|
|
6b0411ab47 | ||
|
|
65ce4687f5 | ||
|
|
363847ca74 | ||
|
|
d223f01b43 | ||
|
|
3a2b528573 | ||
|
|
14717b8618 | ||
|
|
dc8cd6e39a | ||
|
|
6db0107e71 | ||
|
|
a6f74451d3 | ||
|
|
8d2302724c | ||
|
|
8fa35e89ca | ||
|
|
baad4b697c | ||
|
|
79d411ceba | ||
|
|
52070d3e4a | ||
|
|
85cc6dedf8 | ||
|
|
e3869f58ad | ||
|
|
c34fd6b4a7 | ||
|
|
63d64851b1 | ||
|
|
d68269bb55 | ||
|
|
2aa62088a3 | ||
|
|
f2d4fc8016 | ||
|
|
bf57f4af46 | ||
|
|
dc43a7bb60 | ||
|
|
9d7c2d4f7d | ||
|
|
888da5c359 | ||
|
|
7b0caffd31 | ||
|
|
ed2a7b4e53 | ||
|
|
2a6a20ae20 | ||
|
|
1dce9a3295 | ||
|
|
f6da9983e4 | ||
|
|
e6bc93f49a | ||
|
|
88c0b8d630 | ||
|
|
669ff7331b | ||
|
|
54667de765 | ||
|
|
736ea546d9 | ||
|
|
461aea548a | ||
|
|
e31691fc1d | ||
|
|
8e576e0036 | ||
|
|
b9fa91a205 | ||
|
|
ff438ee87f | ||
|
|
34cd17408c | ||
|
|
138bad1512 | ||
|
|
f0604f17d6 | ||
|
|
3fce6c3270 | ||
|
|
ba36aa0602 | ||
|
|
58a54666a7 | ||
|
|
40178d3a77 | ||
|
|
b9ca4fe720 | ||
|
|
c6afbb198c | ||
|
|
c267424d7b | ||
|
|
053a0e3a8e | ||
|
|
39b1c602aa | ||
|
|
2df9108f70 | ||
|
|
a2d2353f0d |
@@ -42,3 +42,39 @@ my-distcheck: dist
|
|||||||
@echo "========================"; \
|
@echo "========================"; \
|
||||||
echo "$(distdir).tar.gz is ready for distribution"; \
|
echo "$(distdir).tar.gz is ready for distribution"; \
|
||||||
echo "========================"
|
echo "========================"
|
||||||
|
|
||||||
|
THIS_VERSION_REGEXP := $(shell echo $(VERSION)|sed 's/\./\\./g')
|
||||||
|
# FIXME: this works only for test releases.
|
||||||
|
PREV_VERSION := $(shell echo $(VERSION)|tr a-z Xa-y)
|
||||||
|
PREV_VERSION_REGEXP := $(shell echo $(PREV_VERSION)|sed 's/\./\\./g')
|
||||||
|
v = Version
|
||||||
|
url = ftp://alpha.gnu.org/gnu/$(distdir).tar.gz
|
||||||
|
md5 = $(shell md5sum < $(distdir).tar.gz|sed 's/ -//')
|
||||||
|
|
||||||
|
rel-check:
|
||||||
|
tarz=/tmp/rel-check-tarz-$$$$; \
|
||||||
|
md5_tmp=/tmp/rel-check-md5-$$$$; \
|
||||||
|
set -e; \
|
||||||
|
trap 'status=$$?; rm -f $$tarz $$md5_tmp; exit $$status' 0 1 2 3 15; \
|
||||||
|
wget -q --output-document=$$tarz $(url); \
|
||||||
|
echo "$(md5) -" > $$md5_tmp; \
|
||||||
|
md5sum -c $$md5_tmp < $$tarz
|
||||||
|
|
||||||
|
announcement: NEWS ChangeLog $(distdir).tar.gz
|
||||||
|
@( \
|
||||||
|
echo Subject: $(distdir) released; \
|
||||||
|
echo; \
|
||||||
|
echo FIXME: put comments here; \
|
||||||
|
echo; \
|
||||||
|
echo " $(url)"; \
|
||||||
|
echo; \
|
||||||
|
echo "$(md5) $(distdir).tar.gz"; \
|
||||||
|
echo; \
|
||||||
|
echo NEWS:; \
|
||||||
|
sed -n "/$(THIS_VERSION_REGEXP)/,/$(PREV_VERSION_REGEXP)/p" NEWS \
|
||||||
|
| grep -v '^\['; \
|
||||||
|
echo; \
|
||||||
|
echo ChangeLog entries:; \
|
||||||
|
sed -n "/$v $(THIS_VERSION_REGEXP)/,/$v $(PREV_VERSION_REGEXP)/p" \
|
||||||
|
ChangeLog | grep -v '\* $v'; \
|
||||||
|
)
|
||||||
|
|||||||
1
THANKS
1
THANKS
@@ -8,6 +8,7 @@ Bauke Jan Douma: bjdouma@xs4all.nl
|
|||||||
Bengt Martensson: bengt@mathematik.uni-Bremen.de
|
Bengt Martensson: bengt@mathematik.uni-Bremen.de
|
||||||
Bjorn Helgaas: helgaas@rsn.hp.com
|
Bjorn Helgaas: helgaas@rsn.hp.com
|
||||||
Charles Karney: karney@pppl.gov
|
Charles Karney: karney@pppl.gov
|
||||||
|
Christian von Roques: roques@pond.sub.org
|
||||||
Dirk Lattermann: dlatt@t-online.de
|
Dirk Lattermann: dlatt@t-online.de
|
||||||
Don Parsons: dparsons@synapse.kent.edu
|
Don Parsons: dparsons@synapse.kent.edu
|
||||||
Eirik Fuller: eirik@netcom.com
|
Eirik Fuller: eirik@netcom.com
|
||||||
|
|||||||
@@ -18,7 +18,7 @@ libfu_a_LIBADD = @LIBOBJS@ @ALLOCA@
|
|||||||
libfu_a_DEPENDENCIES = $(libfu_a_LIBADD)
|
libfu_a_DEPENDENCIES = $(libfu_a_LIBADD)
|
||||||
|
|
||||||
noinst_HEADERS = argmatch.h backupfile.h closeout.h \
|
noinst_HEADERS = argmatch.h backupfile.h closeout.h \
|
||||||
error.h exclude.h fnmatch.h fsusage.h \
|
error.h exclude.h filemode.h fnmatch.h fsusage.h \
|
||||||
getdate.h getline.h getopt.h group-member.h human.h lchown.h long-options.h \
|
getdate.h getline.h getopt.h group-member.h human.h lchown.h long-options.h \
|
||||||
makepath.h modechange.h mountlist.h hash.h path-concat.h pathmax.h \
|
makepath.h modechange.h mountlist.h hash.h path-concat.h pathmax.h \
|
||||||
quotearg.h regex.h safe-read.h save-cwd.h savedir.h strverscmp.h \
|
quotearg.h regex.h safe-read.h save-cwd.h savedir.h strverscmp.h \
|
||||||
|
|||||||
@@ -107,7 +107,7 @@ libfu_a_LIBADD = @LIBOBJS@ @ALLOCA@
|
|||||||
libfu_a_DEPENDENCIES = $(libfu_a_LIBADD)
|
libfu_a_DEPENDENCIES = $(libfu_a_LIBADD)
|
||||||
|
|
||||||
noinst_HEADERS = argmatch.h backupfile.h closeout.h \
|
noinst_HEADERS = argmatch.h backupfile.h closeout.h \
|
||||||
error.h exclude.h fnmatch.h fsusage.h \
|
error.h exclude.h filemode.h fnmatch.h fsusage.h \
|
||||||
getdate.h getline.h getopt.h group-member.h human.h lchown.h long-options.h \
|
getdate.h getline.h getopt.h group-member.h human.h lchown.h long-options.h \
|
||||||
makepath.h modechange.h mountlist.h hash.h path-concat.h pathmax.h \
|
makepath.h modechange.h mountlist.h hash.h path-concat.h pathmax.h \
|
||||||
quotearg.h regex.h safe-read.h save-cwd.h savedir.h strverscmp.h \
|
quotearg.h regex.h safe-read.h save-cwd.h savedir.h strverscmp.h \
|
||||||
|
|||||||
63
lib/bumpalloc.h
Normal file
63
lib/bumpalloc.h
Normal file
@@ -0,0 +1,63 @@
|
|||||||
|
/* BUMP_ALLOC macro - increase table allocation by one element.
|
||||||
|
Copyright (C) 1990, 1991, 1993, 1998 Free Software Foundation, Inc.
|
||||||
|
François Pinard <pinard@iro.umontreal.ca>, 1990.
|
||||||
|
|
||||||
|
This program is free software; you can redistribute it and/or modify
|
||||||
|
it under the terms of the GNU General Public License as published by
|
||||||
|
the Free Software Foundation; either version 2, or (at your option)
|
||||||
|
any later version.
|
||||||
|
|
||||||
|
This program is distributed in the hope that it will be useful,
|
||||||
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||||
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||||
|
GNU General Public License for more details.
|
||||||
|
|
||||||
|
You should have received a copy of the GNU General Public License
|
||||||
|
along with this program; if not, write to the Free Software Foundation,
|
||||||
|
Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
|
||||||
|
|
||||||
|
/*-------------------------------------------------------------------------.
|
||||||
|
| Bump the allocation of the array pointed to by TABLE whenever required. |
|
||||||
|
| The table already has already COUNT elements in it, this macro ensure it |
|
||||||
|
| has enough space to accommodate at least one more element. Space is |
|
||||||
|
| allocated (2 ^ EXPONENT) elements at a time. Each element of the array |
|
||||||
|
| is of type TYPE. |
|
||||||
|
`-------------------------------------------------------------------------*/
|
||||||
|
|
||||||
|
/* Routines `xmalloc' and `xrealloc' are called to do the actual memory
|
||||||
|
management. This implies that the program will abort with an `Memory
|
||||||
|
exhausted!' error if any problem arise.
|
||||||
|
|
||||||
|
To work correctly, at least EXPONENT and TYPE should always be the
|
||||||
|
same for all uses of this macro for any given TABLE. A secure way to
|
||||||
|
achieve this is to never use this macro directly, but use it to define
|
||||||
|
other macros, which would then be TABLE-specific.
|
||||||
|
|
||||||
|
The first time through, COUNT is usually zero. Note that COUNT is not
|
||||||
|
updated by this macro, but it should be update elsewhere, later. This
|
||||||
|
is convenient, because it allows TABLE[COUNT] to refer to the new
|
||||||
|
element at the end. Once its construction is completed, COUNT++ will
|
||||||
|
record it in the table. Calling this macro several times in a row
|
||||||
|
without updating COUNT is a bad thing to do. */
|
||||||
|
|
||||||
|
#define BUMP_ALLOC(Table, Count, Exponent, Type) \
|
||||||
|
BUMP_ALLOC_WITH_SIZE ((Table), (Count), (Exponent), Type, sizeof (Type))
|
||||||
|
|
||||||
|
/* In cases `sizeof TYPE' would not always yield the correct value for
|
||||||
|
the size of each element entry, this macro accepts a supplementary
|
||||||
|
SIZE argument. The EXPONENT, TYPE and SIZE parameters should still
|
||||||
|
have the same value for all macro calls related to a specific TABLE. */
|
||||||
|
|
||||||
|
#define BUMP_ALLOC_WITH_SIZE(Table, Count, Exponent, Type, Size) \
|
||||||
|
do \
|
||||||
|
{ \
|
||||||
|
if (((Count) & (~(~0 << (Exponent)))) == 0) \
|
||||||
|
{ \
|
||||||
|
if ((Count) == 0) \
|
||||||
|
(Table) = (Type *) xmalloc ((1 << (Exponent)) * (Size)); \
|
||||||
|
else \
|
||||||
|
(Table) = (Type *) \
|
||||||
|
xrealloc ((Table), ((Count) + (1 << (Exponent))) * (Size)); \
|
||||||
|
} \
|
||||||
|
} \
|
||||||
|
while (0)
|
||||||
148
lib/diacrit.c
Normal file
148
lib/diacrit.c
Normal file
@@ -0,0 +1,148 @@
|
|||||||
|
/* Diacritics processing for a few character codes.
|
||||||
|
Copyright (C) 1990, 1991, 1992, 1993 Free Software Foundation, Inc.
|
||||||
|
François Pinard <pinard@iro.umontreal.ca>, 1988.
|
||||||
|
|
||||||
|
All this file is a temporary hack, waiting for locales in GNU.
|
||||||
|
*/
|
||||||
|
|
||||||
|
#ifdef HAVE_CONFIG_H
|
||||||
|
# include <config.h>
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#include "diacrit.h"
|
||||||
|
|
||||||
|
/* ISO 8859-1 Latin-1 code is used as the underlying character set. If
|
||||||
|
MSDOS is defined, IBM-PC's character set code is used instead. */
|
||||||
|
|
||||||
|
/*--------------------------------------------------------------------.
|
||||||
|
| For each alphabetic character, returns what it would be without its |
|
||||||
|
| possible diacritic symbol. |
|
||||||
|
`--------------------------------------------------------------------*/
|
||||||
|
|
||||||
|
const char diacrit_base[256] =
|
||||||
|
{
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 'A', 'B', 'C', 'D', 'E', 'F', 'G',
|
||||||
|
'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O',
|
||||||
|
'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W',
|
||||||
|
'X', 'Y', 'Z', 0, 0, 0, 0, 0,
|
||||||
|
0, 'a', 'b', 'c', 'd', 'e', 'f', 'g',
|
||||||
|
'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o',
|
||||||
|
'p', 'q', 'r', 's', 't', 'u', 'v', 'w',
|
||||||
|
'x', 'y', 'z', 0, 0, 0, 0, 0,
|
||||||
|
|
||||||
|
#ifdef MSDOS
|
||||||
|
|
||||||
|
'C', 'u', 'e', 'a', 'a', 'a', 'a', 'c',
|
||||||
|
'e', 'e', 'e', 'i', 'i', 'i', 'A', 'A',
|
||||||
|
'E', 'e', 'E', 'o', 'o', 'o', 'u', 'u',
|
||||||
|
'y', 'O', 'U', 0, 0, 0, 0, 0,
|
||||||
|
'a', 'i', 'o', 'u', 'n', 'N', 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
|
||||||
|
#else /* not MSDOS */
|
||||||
|
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
'A', 'A', 'A', 'A', 'A', 'A', 'A', 'C',
|
||||||
|
'E', 'E', 'E', 'E', 'I', 'I', 'I', 'I',
|
||||||
|
0, 'N', 'O', 'O', 'O', 'O', 'O', 0,
|
||||||
|
'O', 'U', 'U', 'U', 'U', 'Y', 0, 0,
|
||||||
|
'a', 'a', 'a', 'a', 'a', 'a', 'a', 'c',
|
||||||
|
'e', 'e', 'e', 'e', 'i', 'i', 'i', 'i',
|
||||||
|
0, 'n', 'o', 'o', 'o', 'o', 'o', 0,
|
||||||
|
'o', 'u', 'u', 'u', 'u', 'y', 0, 'y',
|
||||||
|
|
||||||
|
#endif /* not MSDOS */
|
||||||
|
};
|
||||||
|
|
||||||
|
/*------------------------------------------------------------------------.
|
||||||
|
| For each alphabetic character, returns a code of what its diacritic is, |
|
||||||
|
| according to the following codes: 1 (eE) over aA for latin diphtongs; 2 |
|
||||||
|
| (') acute accent; 3 (`) grave accent; 4 (^) circumflex accent; 5 (") |
|
||||||
|
| umlaut or diaraesis; 6 (~) tilda; 7 (,) cedilla; 8 (o) covering degree |
|
||||||
|
| symbol; 9 (|) slashed character. |
|
||||||
|
`------------------------------------------------------------------------*/
|
||||||
|
|
||||||
|
const char diacrit_diac[256] =
|
||||||
|
{
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 4, 0,
|
||||||
|
3, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 6, 0,
|
||||||
|
|
||||||
|
#ifdef MSDOS
|
||||||
|
|
||||||
|
7, 5, 2, 4, 5, 3, 8, 7,
|
||||||
|
4, 5, 3, 5, 4, 3, 5, 8,
|
||||||
|
2, 1, 1, 4, 5, 3, 4, 3,
|
||||||
|
5, 5, 5, 0, 0, 0, 0, 0,
|
||||||
|
2, 2, 2, 2, 6, 6, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
|
||||||
|
#else /* not MSDOS */
|
||||||
|
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
|
3, 2, 4, 6, 5, 8, 1, 7,
|
||||||
|
3, 2, 4, 5, 3, 2, 4, 5,
|
||||||
|
0, 6, 3, 2, 4, 6, 5, 0,
|
||||||
|
9, 3, 2, 4, 5, 2, 0, 0,
|
||||||
|
3, 2, 4, 6, 5, 8, 1, 7,
|
||||||
|
3, 2, 4, 5, 3, 2, 4, 5,
|
||||||
|
0, 6, 3, 2, 4, 6, 5, 0,
|
||||||
|
9, 3, 2, 4, 5, 2, 0, 0,
|
||||||
|
|
||||||
|
#endif /* not MSDOS */
|
||||||
|
};
|
||||||
16
lib/diacrit.h
Normal file
16
lib/diacrit.h
Normal file
@@ -0,0 +1,16 @@
|
|||||||
|
/* Diacritics processing for a few character codes.
|
||||||
|
Copyright (C) 1990, 1991, 1992, 1993 Free Software Foundation, Inc.
|
||||||
|
François Pinard <pinard@iro.umontreal.ca>, 1988.
|
||||||
|
|
||||||
|
All this file is a temporary hack, waiting for locales in GNU.
|
||||||
|
*/
|
||||||
|
|
||||||
|
extern const char diacrit_base[]; /* characters without diacritics */
|
||||||
|
extern const char diacrit_diac[]; /* diacritic code for each character */
|
||||||
|
|
||||||
|
/* Returns CHAR without its diacritic. CHAR is known to be alphabetic. */
|
||||||
|
#define tobase(Char) (diacrit_base[(unsigned char) (Char)])
|
||||||
|
|
||||||
|
/* Returns a diacritic code for CHAR. CHAR is known to be alphabetic. */
|
||||||
|
#define todiac(Char) (diacrit_diac[(unsigned char) (Char)])
|
||||||
|
|
||||||
264
lib/filemode.c
264
lib/filemode.c
@@ -22,6 +22,8 @@
|
|||||||
#include <sys/types.h>
|
#include <sys/types.h>
|
||||||
#include <sys/stat.h>
|
#include <sys/stat.h>
|
||||||
|
|
||||||
|
#include "filemode.h"
|
||||||
|
|
||||||
#if !S_IRUSR
|
#if !S_IRUSR
|
||||||
# if S_IREAD
|
# if S_IREAD
|
||||||
# define S_IRUSR S_IREAD
|
# define S_IRUSR S_IREAD
|
||||||
@@ -88,10 +90,132 @@
|
|||||||
# define S_ISNWK(m) (((m) & S_IFMT) == S_IFNWK)
|
# define S_ISNWK(m) (((m) & S_IFMT) == S_IFNWK)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
void mode_string ();
|
/* Look at read, write, and execute bits in BITS and set
|
||||||
static char ftypelet ();
|
flags in CHARS accordingly. */
|
||||||
static void rwx ();
|
|
||||||
static void setst ();
|
static void
|
||||||
|
rwx (short unsigned int bits, char *chars)
|
||||||
|
{
|
||||||
|
chars[0] = (bits & S_IRUSR) ? 'r' : '-';
|
||||||
|
chars[1] = (bits & S_IWUSR) ? 'w' : '-';
|
||||||
|
chars[2] = (bits & S_IXUSR) ? 'x' : '-';
|
||||||
|
}
|
||||||
|
|
||||||
|
/* Set the 's' and 't' flags in file attributes string CHARS,
|
||||||
|
according to the file mode BITS. */
|
||||||
|
|
||||||
|
static void
|
||||||
|
setst (short unsigned int bits, char *chars)
|
||||||
|
{
|
||||||
|
#ifdef S_ISUID
|
||||||
|
if (bits & S_ISUID)
|
||||||
|
{
|
||||||
|
if (chars[3] != 'x')
|
||||||
|
/* Set-uid, but not executable by owner. */
|
||||||
|
chars[3] = 'S';
|
||||||
|
else
|
||||||
|
chars[3] = 's';
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
#ifdef S_ISGID
|
||||||
|
if (bits & S_ISGID)
|
||||||
|
{
|
||||||
|
if (chars[6] != 'x')
|
||||||
|
/* Set-gid, but not executable by group. */
|
||||||
|
chars[6] = 'S';
|
||||||
|
else
|
||||||
|
chars[6] = 's';
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
#ifdef S_ISVTX
|
||||||
|
if (bits & S_ISVTX)
|
||||||
|
{
|
||||||
|
if (chars[9] != 'x')
|
||||||
|
/* Sticky, but not executable by others. */
|
||||||
|
chars[9] = 'T';
|
||||||
|
else
|
||||||
|
chars[9] = 't';
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
}
|
||||||
|
|
||||||
|
/* Return a character indicating the type of file described by
|
||||||
|
file mode BITS:
|
||||||
|
'd' for directories
|
||||||
|
'b' for block special files
|
||||||
|
'c' for character special files
|
||||||
|
'm' for multiplexor files
|
||||||
|
'M' for an off-line (regular) file
|
||||||
|
'l' for symbolic links
|
||||||
|
's' for sockets
|
||||||
|
'p' for fifos
|
||||||
|
'-' for regular files
|
||||||
|
'?' for any other file type. */
|
||||||
|
|
||||||
|
static char
|
||||||
|
ftypelet (long int bits)
|
||||||
|
{
|
||||||
|
#ifdef S_ISBLK
|
||||||
|
if (S_ISBLK (bits))
|
||||||
|
return 'b';
|
||||||
|
#endif
|
||||||
|
if (S_ISCHR (bits))
|
||||||
|
return 'c';
|
||||||
|
if (S_ISDIR (bits))
|
||||||
|
return 'd';
|
||||||
|
if (S_ISREG (bits))
|
||||||
|
return '-';
|
||||||
|
#ifdef S_ISFIFO
|
||||||
|
if (S_ISFIFO (bits))
|
||||||
|
return 'p';
|
||||||
|
#endif
|
||||||
|
#ifdef S_ISLNK
|
||||||
|
if (S_ISLNK (bits))
|
||||||
|
return 'l';
|
||||||
|
#endif
|
||||||
|
#ifdef S_ISSOCK
|
||||||
|
if (S_ISSOCK (bits))
|
||||||
|
return 's';
|
||||||
|
#endif
|
||||||
|
#ifdef S_ISMPC
|
||||||
|
if (S_ISMPC (bits))
|
||||||
|
return 'm';
|
||||||
|
#endif
|
||||||
|
#ifdef S_ISNWK
|
||||||
|
if (S_ISNWK (bits))
|
||||||
|
return 'n';
|
||||||
|
#endif
|
||||||
|
|
||||||
|
/* The following two tests are for Cray DMF (Data Migration
|
||||||
|
Facility), which is a HSM file system. A migrated file has a
|
||||||
|
`st_dm_mode' that is different from the normal `st_mode', so any
|
||||||
|
tests for migrated files should use the former. */
|
||||||
|
|
||||||
|
#ifdef S_ISOFD
|
||||||
|
if (S_ISOFD (bits))
|
||||||
|
/* off line, with data */
|
||||||
|
return 'M';
|
||||||
|
#endif
|
||||||
|
#ifdef S_ISOFL
|
||||||
|
/* off line, with no data */
|
||||||
|
if (S_ISOFL (bits))
|
||||||
|
return 'M';
|
||||||
|
#endif
|
||||||
|
return '?';
|
||||||
|
}
|
||||||
|
|
||||||
|
/* Like filemodestring, but only the relevant part of the `struct stat'
|
||||||
|
is given as an argument. */
|
||||||
|
|
||||||
|
void
|
||||||
|
mode_string (short unsigned int mode, char *str)
|
||||||
|
{
|
||||||
|
str[0] = ftypelet ((long) mode);
|
||||||
|
rwx ((mode & 0700) << 0, &str[1]);
|
||||||
|
rwx ((mode & 0070) << 3, &str[4]);
|
||||||
|
rwx ((mode & 0007) << 6, &str[7]);
|
||||||
|
setst (mode, str);
|
||||||
|
}
|
||||||
|
|
||||||
/* filemodestring - fill in string STR with an ls-style ASCII
|
/* filemodestring - fill in string STR with an ls-style ASCII
|
||||||
representation of the st_mode field of file stats block STATP.
|
representation of the st_mode field of file stats block STATP.
|
||||||
@@ -130,137 +254,7 @@ static void setst ();
|
|||||||
'T' if the file is sticky but not executable. */
|
'T' if the file is sticky but not executable. */
|
||||||
|
|
||||||
void
|
void
|
||||||
filemodestring (statp, str)
|
filemodestring (struct stat *statp, char *str)
|
||||||
struct stat *statp;
|
|
||||||
char *str;
|
|
||||||
{
|
{
|
||||||
mode_string (statp->st_mode, str);
|
mode_string (statp->st_mode, str);
|
||||||
}
|
}
|
||||||
|
|
||||||
/* Like filemodestring, but only the relevant part of the `struct stat'
|
|
||||||
is given as an argument. */
|
|
||||||
|
|
||||||
void
|
|
||||||
mode_string (mode, str)
|
|
||||||
unsigned short mode;
|
|
||||||
char *str;
|
|
||||||
{
|
|
||||||
str[0] = ftypelet ((long) mode);
|
|
||||||
rwx ((mode & 0700) << 0, &str[1]);
|
|
||||||
rwx ((mode & 0070) << 3, &str[4]);
|
|
||||||
rwx ((mode & 0007) << 6, &str[7]);
|
|
||||||
setst (mode, str);
|
|
||||||
}
|
|
||||||
|
|
||||||
/* Return a character indicating the type of file described by
|
|
||||||
file mode BITS:
|
|
||||||
'd' for directories
|
|
||||||
'b' for block special files
|
|
||||||
'c' for character special files
|
|
||||||
'm' for multiplexor files
|
|
||||||
'l' for symbolic links
|
|
||||||
's' for sockets
|
|
||||||
'p' for fifos
|
|
||||||
'-' for regular files
|
|
||||||
'?' for any other file type. */
|
|
||||||
|
|
||||||
static char
|
|
||||||
ftypelet (bits)
|
|
||||||
long bits;
|
|
||||||
{
|
|
||||||
#ifdef S_ISBLK
|
|
||||||
if (S_ISBLK (bits))
|
|
||||||
return 'b';
|
|
||||||
#endif
|
|
||||||
if (S_ISCHR (bits))
|
|
||||||
return 'c';
|
|
||||||
if (S_ISDIR (bits))
|
|
||||||
return 'd';
|
|
||||||
if (S_ISREG (bits))
|
|
||||||
return '-';
|
|
||||||
#ifdef S_ISFIFO
|
|
||||||
if (S_ISFIFO (bits))
|
|
||||||
return 'p';
|
|
||||||
#endif
|
|
||||||
#ifdef S_ISLNK
|
|
||||||
if (S_ISLNK (bits))
|
|
||||||
return 'l';
|
|
||||||
#endif
|
|
||||||
#ifdef S_ISSOCK
|
|
||||||
if (S_ISSOCK (bits))
|
|
||||||
return 's';
|
|
||||||
#endif
|
|
||||||
#ifdef S_ISMPC
|
|
||||||
if (S_ISMPC (bits))
|
|
||||||
return 'm';
|
|
||||||
#endif
|
|
||||||
#ifdef S_ISNWK
|
|
||||||
if (S_ISNWK (bits))
|
|
||||||
return 'n';
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#ifdef S_ISOFD
|
|
||||||
/* Cray migrated dmf file. */
|
|
||||||
if (S_ISOFD (bits))
|
|
||||||
return 'M';
|
|
||||||
#endif
|
|
||||||
#ifdef S_ISOFL
|
|
||||||
/* Cray migrated dmf file. */
|
|
||||||
if (S_ISOFL (bits))
|
|
||||||
return 'M';
|
|
||||||
#endif
|
|
||||||
return '?';
|
|
||||||
}
|
|
||||||
|
|
||||||
/* Look at read, write, and execute bits in BITS and set
|
|
||||||
flags in CHARS accordingly. */
|
|
||||||
|
|
||||||
static void
|
|
||||||
rwx (bits, chars)
|
|
||||||
unsigned short bits;
|
|
||||||
char *chars;
|
|
||||||
{
|
|
||||||
chars[0] = (bits & S_IRUSR) ? 'r' : '-';
|
|
||||||
chars[1] = (bits & S_IWUSR) ? 'w' : '-';
|
|
||||||
chars[2] = (bits & S_IXUSR) ? 'x' : '-';
|
|
||||||
}
|
|
||||||
|
|
||||||
/* Set the 's' and 't' flags in file attributes string CHARS,
|
|
||||||
according to the file mode BITS. */
|
|
||||||
|
|
||||||
static void
|
|
||||||
setst (bits, chars)
|
|
||||||
unsigned short bits;
|
|
||||||
char *chars;
|
|
||||||
{
|
|
||||||
#ifdef S_ISUID
|
|
||||||
if (bits & S_ISUID)
|
|
||||||
{
|
|
||||||
if (chars[3] != 'x')
|
|
||||||
/* Set-uid, but not executable by owner. */
|
|
||||||
chars[3] = 'S';
|
|
||||||
else
|
|
||||||
chars[3] = 's';
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
#ifdef S_ISGID
|
|
||||||
if (bits & S_ISGID)
|
|
||||||
{
|
|
||||||
if (chars[6] != 'x')
|
|
||||||
/* Set-gid, but not executable by group. */
|
|
||||||
chars[6] = 'S';
|
|
||||||
else
|
|
||||||
chars[6] = 's';
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
#ifdef S_ISVTX
|
|
||||||
if (bits & S_ISVTX)
|
|
||||||
{
|
|
||||||
if (chars[9] != 'x')
|
|
||||||
/* Sticky, but not executable by others. */
|
|
||||||
chars[9] = 'T';
|
|
||||||
else
|
|
||||||
chars[9] = 't';
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
}
|
|
||||||
|
|||||||
1
lib/filemode.h
Normal file
1
lib/filemode.h
Normal file
@@ -0,0 +1 @@
|
|||||||
|
void mode_string (short unsigned int mode, char *str);
|
||||||
@@ -393,8 +393,8 @@ read_filesystem_list (int need_fs_type)
|
|||||||
struct fs_data fsd;
|
struct fs_data fsd;
|
||||||
|
|
||||||
while (errno = 0,
|
while (errno = 0,
|
||||||
0 <= (val = getmnt (&offset, &fsd, sizeof (fsd), NOSTAT_MANY,
|
0 < (val = getmnt (&offset, &fsd, sizeof (fsd), NOSTAT_MANY,
|
||||||
(char *) 0)))
|
(char *) 0)))
|
||||||
{
|
{
|
||||||
me = (struct mount_entry *) xmalloc (sizeof (struct mount_entry));
|
me = (struct mount_entry *) xmalloc (sizeof (struct mount_entry));
|
||||||
me->me_devname = xstrdup (fsd.fd_req.devname);
|
me->me_devname = xstrdup (fsd.fd_req.devname);
|
||||||
|
|||||||
@@ -55,6 +55,7 @@
|
|||||||
/* For platform which support the ISO C amendement 1 functionality we
|
/* For platform which support the ISO C amendement 1 functionality we
|
||||||
support user defined character classes. */
|
support user defined character classes. */
|
||||||
#if WIDE_CHAR_SUPPORT
|
#if WIDE_CHAR_SUPPORT
|
||||||
|
/* Solaris 2.5 has a bug: <wchar.h> must be included before <wctype.h>. */
|
||||||
# include <wchar.h>
|
# include <wchar.h>
|
||||||
# include <wctype.h>
|
# include <wctype.h>
|
||||||
#endif
|
#endif
|
||||||
|
|||||||
11
m4/ChangeLog
11
m4/ChangeLog
@@ -1,3 +1,14 @@
|
|||||||
|
1998-08-15 Jim Meyering <meyering@ascend.com>
|
||||||
|
|
||||||
|
* ssize_t.m4 (jm_TYPE_SSIZE_T): Remove file.
|
||||||
|
* check-type.m4: New file. Replacement for AC_CHECK_TYPE.
|
||||||
|
* jm-macros.m4: Use the new AC_CHECK_TYPE(ssize_t, int)
|
||||||
|
instead of jm_TYPE_SSIZE_T.
|
||||||
|
|
||||||
|
1998-08-12 Jim Meyering <meyering@ascend.com>
|
||||||
|
|
||||||
|
* st_dm_mode.m4: New file. From Johan Danielsson.
|
||||||
|
|
||||||
1998-08-02 Jim Meyering <meyering@ascend.com>
|
1998-08-02 Jim Meyering <meyering@ascend.com>
|
||||||
|
|
||||||
* st_mtim.m4: Use hack to avoid having to put #undef HAVE_ST_MTIM
|
* st_mtim.m4: Use hack to avoid having to put #undef HAVE_ST_MTIM
|
||||||
|
|||||||
@@ -1,14 +1,14 @@
|
|||||||
## Process this file with automake to produce Makefile.in -*-Makefile-*-
|
## Process this file with automake to produce Makefile.in -*-Makefile-*-
|
||||||
|
|
||||||
##m4-files-begin
|
##m4-files-begin
|
||||||
EXTRA_DIST = README Makefile.am.in assert.m4 check-decl.m4 chown.m4 \
|
EXTRA_DIST = README Makefile.am.in assert.m4 check-decl.m4 check-type.m4 \
|
||||||
const.m4 d-ino.m4 d-type.m4 decl.m4 error.m4 fstypename.m4 getgroups.m4 \
|
chown.m4 const.m4 d-ino.m4 d-type.m4 decl.m4 error.m4 fstypename.m4 \
|
||||||
getline.m4 getloadavg.m4 gettext.m4 inttypes_h.m4 isc-posix.m4 \
|
getgroups.m4 getline.m4 getloadavg.m4 gettext.m4 inttypes_h.m4 \
|
||||||
jm-glibc-io.m4 jm-macros.m4 jm-mktime.m4 jm-winsz1.m4 jm-winsz2.m4 \
|
isc-posix.m4 jm-glibc-io.m4 jm-macros.m4 jm-mktime.m4 jm-winsz1.m4 \
|
||||||
lchown.m4 lcmessage.m4 lfs.m4 ls-mntd-fs.m4 lstat.m4 malloc.m4 memcmp.m4 \
|
jm-winsz2.m4 lchown.m4 lcmessage.m4 lfs.m4 ls-mntd-fs.m4 lstat.m4 \
|
||||||
perl.m4 prereq.m4 progtest.m4 putenv.m4 readdir.m4 realloc.m4 regex.m4 \
|
malloc.m4 memcmp.m4 perl.m4 prereq.m4 progtest.m4 putenv.m4 readdir.m4 \
|
||||||
ssize_t.m4 st_mtim.m4 stat.m4 strftime.m4 uintmax_t.m4 uptime.m4 \
|
realloc.m4 regex.m4 st_dm_mode.m4 st_mtim.m4 stat.m4 strftime.m4 \
|
||||||
utimbuf.m4 utime.m4 utimes.m4
|
uintmax_t.m4 uptime.m4 utimbuf.m4 utime.m4 utimes.m4
|
||||||
|
|
||||||
##m4-files-end
|
##m4-files-end
|
||||||
|
|
||||||
|
|||||||
@@ -89,14 +89,14 @@ VERSION = @VERSION@
|
|||||||
YACC = @YACC@
|
YACC = @YACC@
|
||||||
l = @l@
|
l = @l@
|
||||||
|
|
||||||
EXTRA_DIST = README Makefile.am.in assert.m4 check-decl.m4 chown.m4 \
|
EXTRA_DIST = README Makefile.am.in assert.m4 check-decl.m4 check-type.m4 \
|
||||||
const.m4 d-ino.m4 d-type.m4 decl.m4 error.m4 fstypename.m4 getgroups.m4 \
|
chown.m4 const.m4 d-ino.m4 d-type.m4 decl.m4 error.m4 fstypename.m4 \
|
||||||
getline.m4 getloadavg.m4 gettext.m4 inttypes_h.m4 isc-posix.m4 \
|
getgroups.m4 getline.m4 getloadavg.m4 gettext.m4 inttypes_h.m4 \
|
||||||
jm-glibc-io.m4 jm-macros.m4 jm-mktime.m4 jm-winsz1.m4 jm-winsz2.m4 \
|
isc-posix.m4 jm-glibc-io.m4 jm-macros.m4 jm-mktime.m4 jm-winsz1.m4 \
|
||||||
lchown.m4 lcmessage.m4 lfs.m4 ls-mntd-fs.m4 lstat.m4 malloc.m4 memcmp.m4 \
|
jm-winsz2.m4 lchown.m4 lcmessage.m4 lfs.m4 ls-mntd-fs.m4 lstat.m4 \
|
||||||
perl.m4 prereq.m4 progtest.m4 putenv.m4 readdir.m4 realloc.m4 regex.m4 \
|
malloc.m4 memcmp.m4 perl.m4 prereq.m4 progtest.m4 putenv.m4 readdir.m4 \
|
||||||
ssize_t.m4 st_mtim.m4 stat.m4 strftime.m4 uintmax_t.m4 uptime.m4 \
|
realloc.m4 regex.m4 st_dm_mode.m4 st_mtim.m4 stat.m4 strftime.m4 \
|
||||||
utimbuf.m4 utime.m4 utimes.m4
|
uintmax_t.m4 uptime.m4 utimbuf.m4 utime.m4 utimes.m4
|
||||||
mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs
|
mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs
|
||||||
CONFIG_HEADER = ../config.h
|
CONFIG_HEADER = ../config.h
|
||||||
CONFIG_CLEAN_FILES =
|
CONFIG_CLEAN_FILES =
|
||||||
|
|||||||
28
m4/check-type.m4
Normal file
28
m4/check-type.m4
Normal file
@@ -0,0 +1,28 @@
|
|||||||
|
#serial 1
|
||||||
|
|
||||||
|
dnl Just like AC_CHECK_TYPE from autoconf-2.12, but also checks in unistd.h
|
||||||
|
dnl on systems that have it. Fujitsu UXP/V needs this for ssize_t.
|
||||||
|
|
||||||
|
undefine([AC_CHECK_TYPE])
|
||||||
|
dnl AC_CHECK_TYPE(TYPE, DEFAULT)
|
||||||
|
AC_DEFUN(AC_CHECK_TYPE,
|
||||||
|
[AC_REQUIRE([AC_HEADER_STDC])dnl
|
||||||
|
AC_CHECK_HEADERS(unistd.h)
|
||||||
|
AC_MSG_CHECKING(for $1)
|
||||||
|
AC_CACHE_VAL(ac_cv_type_$1,
|
||||||
|
[AC_EGREP_CPP(dnl
|
||||||
|
changequote(<<,>>)dnl
|
||||||
|
<<$1[^a-zA-Z_0-9]>>dnl
|
||||||
|
changequote([,]), [#include <sys/types.h>
|
||||||
|
#if STDC_HEADERS
|
||||||
|
# include <stdlib.h>
|
||||||
|
# include <stddef.h>
|
||||||
|
#endif
|
||||||
|
#if HAVE_UNISTD_H
|
||||||
|
# include <unistd.h>
|
||||||
|
#endif], ac_cv_type_$1=yes, ac_cv_type_$1=no)])dnl
|
||||||
|
AC_MSG_RESULT($ac_cv_type_$1)
|
||||||
|
if test $ac_cv_type_$1 = no; then
|
||||||
|
AC_DEFINE($1, $2)
|
||||||
|
fi
|
||||||
|
])
|
||||||
@@ -11,7 +11,7 @@ AC_DEFUN(jm_MACROS,
|
|||||||
AC_REQUIRE([jm_ASSERT])
|
AC_REQUIRE([jm_ASSERT])
|
||||||
AC_REQUIRE([jm_AC_HEADER_INTTYPES_H])
|
AC_REQUIRE([jm_AC_HEADER_INTTYPES_H])
|
||||||
AC_REQUIRE([jm_AC_TYPE_UINTMAX_T])
|
AC_REQUIRE([jm_AC_TYPE_UINTMAX_T])
|
||||||
AC_REQUIRE([jm_TYPE_SSIZE_T])
|
AC_CHECK_TYPE(ssize_t, int)
|
||||||
AC_REQUIRE([jm_STRUCT_UTIMBUF])
|
AC_REQUIRE([jm_STRUCT_UTIMBUF])
|
||||||
AC_REQUIRE([jm_STRUCT_DIRENT_D_TYPE])
|
AC_REQUIRE([jm_STRUCT_DIRENT_D_TYPE])
|
||||||
AC_REQUIRE([jm_STRUCT_DIRENT_D_INO])
|
AC_REQUIRE([jm_STRUCT_DIRENT_D_INO])
|
||||||
|
|||||||
@@ -1,19 +0,0 @@
|
|||||||
#serial 1
|
|
||||||
|
|
||||||
dnl From Jim Meyering
|
|
||||||
|
|
||||||
# If ssize_t is not defined in sys/types.h, define it to `int'.
|
|
||||||
|
|
||||||
AC_DEFUN(jm_TYPE_SSIZE_T,
|
|
||||||
[AC_CACHE_CHECK(for ssize_t in sys/types.h, jm_ac_cv_type_ssize_t,
|
|
||||||
[
|
|
||||||
AC_EGREP_HEADER(ssize_t, sys/types.h,
|
|
||||||
jm_ac_cv_type_ssize_t=yes,
|
|
||||||
jm_ac_cv_type_ssize_t=no)
|
|
||||||
if test $jm_ac_cv_type_ssize_t = no; then
|
|
||||||
AC_DEFINE(ssize_t, int)
|
|
||||||
fi
|
|
||||||
]
|
|
||||||
)
|
|
||||||
]
|
|
||||||
)
|
|
||||||
25
m4/st_dm_mode.m4
Normal file
25
m4/st_dm_mode.m4
Normal file
@@ -0,0 +1,25 @@
|
|||||||
|
# Define HAVE_ST_DM_MODE if struct stat has an st_dm_mode member.
|
||||||
|
|
||||||
|
AC_DEFUN(AC_STRUCT_ST_DM_MODE,
|
||||||
|
[AC_CACHE_CHECK([for st_dm_mode in struct stat], ac_cv_struct_st_dm_mode,
|
||||||
|
[AC_TRY_COMPILE([#include <sys/types.h>
|
||||||
|
#include <sys/stat.h>], [struct stat s; s.st_dm_mode;],
|
||||||
|
ac_cv_struct_st_dm_mode=yes,
|
||||||
|
ac_cv_struct_st_dm_mode=no)])
|
||||||
|
|
||||||
|
if test $ac_cv_struct_st_dm_mode = yes; then
|
||||||
|
if test x = y; then
|
||||||
|
# This code is deliberately never run via ./configure.
|
||||||
|
# FIXME: this is a hack to make autoheader put the corresponding
|
||||||
|
# HAVE_* undef for this symbol in config.h.in. This saves me the
|
||||||
|
# trouble of having to add the #undef in acconfig.h manually.
|
||||||
|
AC_CHECK_FUNCS(ST_DM_MODE)
|
||||||
|
fi
|
||||||
|
# Defining it this way (rather than via AC_DEFINE) short-circuits the
|
||||||
|
# autoheader check -- autoheader doesn't know it's already been taken
|
||||||
|
# care of by the hack above.
|
||||||
|
ac_kludge=HAVE_ST_DM_MODE
|
||||||
|
AC_DEFINE_UNQUOTED($ac_kludge)
|
||||||
|
fi
|
||||||
|
]
|
||||||
|
)
|
||||||
@@ -1,3 +1,62 @@
|
|||||||
|
1998-08-15 Jim Meyering <meyering@ascend.com>
|
||||||
|
|
||||||
|
* Version 3.16u.
|
||||||
|
|
||||||
|
* Makefile.maint (announcement): New target.
|
||||||
|
|
||||||
|
* tests/mv/into-self: Update to reflect changed behavior of mv.
|
||||||
|
* src/mv.c (do_move): Fail upon attempt to move a directory into itself.
|
||||||
|
With prodding from François Pinard :-)
|
||||||
|
|
||||||
|
* tests/ls-2/Fetish.pm: New file
|
||||||
|
* tests/ls-2/run-test: New file
|
||||||
|
|
||||||
|
* src/copy.c (copy_internal) [one-file-system]: Do copy mount point
|
||||||
|
directories (but none of their entries). This makes `cp --archive
|
||||||
|
--one-file-system' use the same policy `tar --one-file-system' does.
|
||||||
|
From Marty Leisner.
|
||||||
|
|
||||||
|
* src/ls.c (qmark_funny_chars): Add comment from Paul eggert.
|
||||||
|
|
||||||
|
1998-08-14 Jim Meyering <meyering@ascend.com>
|
||||||
|
|
||||||
|
* tests/mv/setup: Work around another bug in Ultrix4.3a's /bin/sh.
|
||||||
|
Reported by Christian von Roques.
|
||||||
|
|
||||||
|
* configure.in (AC_OUTPUT): Add tests/ls-2/Makefile.
|
||||||
|
* tests/Makefile.am (SUBDIRS): Add ls-2.
|
||||||
|
* tests/ls-2: New directory
|
||||||
|
|
||||||
|
1998-08-14 Christian von Roques <roques@pond.sub.org>
|
||||||
|
|
||||||
|
* lib/mountlist.c (read_filesystem_list) [MOUNTED_GETMNT]: Don't
|
||||||
|
infloop on getmnt(2) returning 0.
|
||||||
|
|
||||||
|
* tests/cp/backup-is-src: Avoid bug in Ultrix4.3a /bin/sh,
|
||||||
|
not initializing output redirection of : command.
|
||||||
|
* tests/mv/backup-is-src: Likewise.
|
||||||
|
* tests/rm/i-1: Likewise.
|
||||||
|
|
||||||
|
1998-08-12 Jim Meyering <meyering@ascend.com>
|
||||||
|
|
||||||
|
* po/Makefile.in.in: Provide automake-style DESTDIR support.
|
||||||
|
From Johan Danielsson.
|
||||||
|
(DISTFILES): Remove ChangeLog.
|
||||||
|
po/ChangeLog: Remove empty file.
|
||||||
|
|
||||||
|
* configure.in (AC_STRUCT_ST_DM_MODE): Use it.
|
||||||
|
|
||||||
|
* src/ls.c: Include filemode.h.
|
||||||
|
* src/chmod.c: Likewise.
|
||||||
|
|
||||||
|
* lib/filemode.c (ftypelet): Add comments for Cray DMF support.
|
||||||
|
From Johan Danielsson.
|
||||||
|
Protoize. Tsort function definitions and remove prototypes of
|
||||||
|
static functions.
|
||||||
|
(mode_string): Remove prototype.
|
||||||
|
* lib/filemode.h (mode_string): New file.
|
||||||
|
* lib/Makefile.am (noinst_HEADERS): Add filemode.h.
|
||||||
|
|
||||||
1998-08-09 Jim Meyering <meyering@ascend.com>
|
1998-08-09 Jim Meyering <meyering@ascend.com>
|
||||||
|
|
||||||
* Version 3.16t.
|
* Version 3.16t.
|
||||||
|
|||||||
@@ -1,4 +1,8 @@
|
|||||||
Changes in release 3.17:
|
Changes in release 3.17:
|
||||||
|
[3.16u]
|
||||||
|
* mv now fails (as it should) upon attempt to move a directory into itself
|
||||||
|
* `cp -a --one-file-system' now copies any mount point directories it
|
||||||
|
encounters on the selected file system.
|
||||||
[3.16t]
|
[3.16t]
|
||||||
* cp (with --update) and ls compare time stamps with subsecond resolution when
|
* cp (with --update) and ls compare time stamps with subsecond resolution when
|
||||||
available (e.g., on systems with recent Linux kernels and on Solaris 2.6).
|
available (e.g., on systems with recent Linux kernels and on Solaris 2.6).
|
||||||
|
|||||||
@@ -1,3 +1,7 @@
|
|||||||
|
1998-08-11 Jim Meyering <meyering@ascend.com>
|
||||||
|
|
||||||
|
* src/uptime.c (usage): Correct description. Reported by John Murphy.
|
||||||
|
|
||||||
1998-07-16 Jim Meyering <meyering@ascend.com>
|
1998-07-16 Jim Meyering <meyering@ascend.com>
|
||||||
|
|
||||||
* lib/Makefile.am (noinst_HEADERS): Add lchown.h.
|
* lib/Makefile.am (noinst_HEADERS): Add lchown.h.
|
||||||
|
|||||||
@@ -1,3 +1,24 @@
|
|||||||
|
1998-08-15 Jim Meyering <meyering@ascend.com>
|
||||||
|
|
||||||
|
* src/pr.c (usage): Reformat.
|
||||||
|
|
||||||
|
* src/ptx.c: Add braces to suppress warning about ambiguous `else'.
|
||||||
|
* lib/bumpalloc.h: Likewise.
|
||||||
|
|
||||||
|
1998-08-13 François Pinard <pinard@iro.umontreal.ca>
|
||||||
|
|
||||||
|
* src/ptx.c: New file.
|
||||||
|
* src/Makefile.am (bin_PROGRAMS): Add ptx.
|
||||||
|
* lib/bumpalloc.h, lib/diacrit.h, lib/diacrit.c: New files.
|
||||||
|
* lib/Makefile.am (libtu_a_SOURCES): Add diacrit.c.
|
||||||
|
(noinst_HEADERS): Add bumpalloc.h and diacrit.h.
|
||||||
|
|
||||||
|
1998-08-09 Andreas Schwab <schwab@issan.informatik.uni-dortmund.de>
|
||||||
|
|
||||||
|
* src/pr.c (long_options): Add long names for all options.
|
||||||
|
(usage): Update help string.
|
||||||
|
(main): Handle the special options --pages and --columns.
|
||||||
|
|
||||||
1998-08-02 Jim Meyering <meyering@ascend.com>
|
1998-08-02 Jim Meyering <meyering@ascend.com>
|
||||||
|
|
||||||
* lib/linebuffer.c (readline): Return zero upon error as well as upon
|
* lib/linebuffer.c (readline): Return zero upon error as well as upon
|
||||||
|
|||||||
@@ -1,4 +1,7 @@
|
|||||||
Changes in release 1.23
|
Changes in release 1.23
|
||||||
|
[1.22g]
|
||||||
|
* pr accepts long option names (see `pr --help')
|
||||||
|
* new program: ptx (moved to this package from being its own distribution)
|
||||||
[1.22f]
|
[1.22f]
|
||||||
* cut accepts new --output-delimiter=STR option
|
* cut accepts new --output-delimiter=STR option
|
||||||
* `sort -o no-such-file no-such-file' now fails, as it should
|
* `sort -o no-such-file no-such-file' now fails, as it should
|
||||||
|
|||||||
@@ -26,7 +26,7 @@ subdir = po
|
|||||||
|
|
||||||
INSTALL = @INSTALL@
|
INSTALL = @INSTALL@
|
||||||
INSTALL_DATA = @INSTALL_DATA@
|
INSTALL_DATA = @INSTALL_DATA@
|
||||||
MKINSTALLDIRS = $(top_srcdir)/@MKINSTALLDIRS@
|
MKINSTALLDIRS = @MKINSTALLDIRS@
|
||||||
|
|
||||||
CC = @CC@
|
CC = @CC@
|
||||||
GENCAT = @GENCAT@
|
GENCAT = @GENCAT@
|
||||||
@@ -46,7 +46,7 @@ COMPILE = $(CC) -c $(DEFS) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) $(XCFLAGS)
|
|||||||
SOURCES = cat-id-tbl.c
|
SOURCES = cat-id-tbl.c
|
||||||
POFILES = @POFILES@
|
POFILES = @POFILES@
|
||||||
GMOFILES = @GMOFILES@
|
GMOFILES = @GMOFILES@
|
||||||
DISTFILES = ChangeLog Makefile.in.in POTFILES.in $(PACKAGE).pot \
|
DISTFILES = Makefile.in.in POTFILES.in $(PACKAGE).pot \
|
||||||
stamp-cat-id $(POFILES) $(GMOFILES) $(SOURCES)
|
stamp-cat-id $(POFILES) $(GMOFILES) $(SOURCES)
|
||||||
|
|
||||||
POTFILES = \
|
POTFILES = \
|
||||||
@@ -110,17 +110,17 @@ install-exec:
|
|||||||
install-data: install-data-@USE_NLS@
|
install-data: install-data-@USE_NLS@
|
||||||
install-data-no: all
|
install-data-no: all
|
||||||
install-data-yes: all
|
install-data-yes: all
|
||||||
if test -r "$(MKINSTALLDIRS)"; then \
|
if test -x "$(MKINSTALLDIRS)"; then \
|
||||||
$(MKINSTALLDIRS) $(datadir); \
|
$(MKINSTALLDIRS) $(DESTDIR)$(datadir); \
|
||||||
else \
|
else \
|
||||||
$(SHELL) $(top_srcdir)/mkinstalldirs $(datadir); \
|
$(SHELL) $(top_srcdir)/mkinstalldirs $(DESTDIR)$(datadir); \
|
||||||
fi
|
fi
|
||||||
@catalogs='$(CATALOGS)'; \
|
@catalogs='$(CATALOGS)'; \
|
||||||
for cat in $$catalogs; do \
|
for cat in $$catalogs; do \
|
||||||
cat=`basename $$cat`; \
|
cat=`basename $$cat`; \
|
||||||
case "$$cat" in \
|
case "$$cat" in \
|
||||||
*.gmo) destdir=$(gnulocaledir);; \
|
*.gmo) destdir=$(DESTDIR)$(gnulocaledir);; \
|
||||||
*) destdir=$(localedir);; \
|
*) destdir=$(DESTDIR)$(localedir);; \
|
||||||
esac; \
|
esac; \
|
||||||
lang=`echo $$cat | sed 's/\$(CATOBJEXT)$$//'`; \
|
lang=`echo $$cat | sed 's/\$(CATOBJEXT)$$//'`; \
|
||||||
dir=$$destdir/$$lang/LC_MESSAGES; \
|
dir=$$destdir/$$lang/LC_MESSAGES; \
|
||||||
@@ -152,13 +152,13 @@ install-data-yes: all
|
|||||||
fi; \
|
fi; \
|
||||||
done
|
done
|
||||||
if test "$(PACKAGE)" = "gettext"; then \
|
if test "$(PACKAGE)" = "gettext"; then \
|
||||||
if test -r "$(MKINSTALLDIRS)"; then \
|
if test -x "$(MKINSTALLDIRS)"; then \
|
||||||
$(MKINSTALLDIRS) $(gettextsrcdir); \
|
$(MKINSTALLDIRS) $(DESTDIR)$(gettextsrcdir); \
|
||||||
else \
|
else \
|
||||||
$(SHELL) $(top_srcdir)/mkinstalldirs $(gettextsrcdir); \
|
$(SHELL) $(top_srcdir)/mkinstalldirs $(DESTDIR)$(gettextsrcdir); \
|
||||||
fi; \
|
fi; \
|
||||||
$(INSTALL_DATA) $(srcdir)/Makefile.in.in \
|
$(INSTALL_DATA) $(srcdir)/Makefile.in.in \
|
||||||
$(gettextsrcdir)/Makefile.in.in; \
|
$(DESTDIR)$(gettextsrcdir)/Makefile.in.in; \
|
||||||
else \
|
else \
|
||||||
: ; \
|
: ; \
|
||||||
fi
|
fi
|
||||||
@@ -171,12 +171,12 @@ uninstall:
|
|||||||
for cat in $$catalogs; do \
|
for cat in $$catalogs; do \
|
||||||
cat=`basename $$cat`; \
|
cat=`basename $$cat`; \
|
||||||
lang=`echo $$cat | sed 's/\$(CATOBJEXT)$$//'`; \
|
lang=`echo $$cat | sed 's/\$(CATOBJEXT)$$//'`; \
|
||||||
rm -f $(localedir)/$$lang/LC_MESSAGES/$(PACKAGE)$(INSTOBJEXT); \
|
rm -f $(DESTDIR)$(localedir)/$$lang/LC_MESSAGES/$(PACKAGE)$(INSTOBJEXT); \
|
||||||
rm -f $(localedir)/$$lang/LC_MESSAGES/$(PACKAGE)$(INSTOBJEXT).m; \
|
rm -f $(DESTDIR)$(localedir)/$$lang/LC_MESSAGES/$(PACKAGE)$(INSTOBJEXT).m; \
|
||||||
rm -f $(gnulocaledir)/$$lang/LC_MESSAGES/$(PACKAGE)$(INSTOBJEXT); \
|
rm -f $(DESTDIR)$(gnulocaledir)/$$lang/LC_MESSAGES/$(PACKAGE)$(INSTOBJEXT); \
|
||||||
rm -f $(gnulocaledir)/$$lang/LC_MESSAGES/$(PACKAGE)$(INSTOBJEXT).m; \
|
rm -f $(DESTDIR)$(gnulocaledir)/$$lang/LC_MESSAGES/$(PACKAGE)$(INSTOBJEXT).m; \
|
||||||
done
|
done
|
||||||
rm -f $(gettextsrcdir)/po-Makefile.in.in
|
rm -f $(DESTDIR)$(gettextsrcdir)/po-Makefile.in.in
|
||||||
|
|
||||||
check: all
|
check: all
|
||||||
|
|
||||||
|
|||||||
@@ -27,6 +27,7 @@
|
|||||||
#include "closeout.h"
|
#include "closeout.h"
|
||||||
#include "error.h"
|
#include "error.h"
|
||||||
#include "savedir.h"
|
#include "savedir.h"
|
||||||
|
#include "filemode.h"
|
||||||
|
|
||||||
enum Change_status
|
enum Change_status
|
||||||
{
|
{
|
||||||
@@ -47,7 +48,6 @@ enum Verbosity
|
|||||||
V_off
|
V_off
|
||||||
};
|
};
|
||||||
|
|
||||||
void mode_string ();
|
|
||||||
void strip_trailing_slashes ();
|
void strip_trailing_slashes ();
|
||||||
|
|
||||||
static int change_dir_mode PARAMS ((const char *dir,
|
static int change_dir_mode PARAMS ((const char *dir,
|
||||||
|
|||||||
@@ -381,10 +381,6 @@ copy_internal (const char *src_path, const char *dst_path,
|
|||||||
return 1;
|
return 1;
|
||||||
}
|
}
|
||||||
|
|
||||||
/* Are we crossing a file system boundary? */
|
|
||||||
if (x->one_file_system && device != 0 && device != src_sb.st_dev)
|
|
||||||
return 0;
|
|
||||||
|
|
||||||
/* We wouldn't insert a node unless nlink > 1, except that we need to
|
/* We wouldn't insert a node unless nlink > 1, except that we need to
|
||||||
find created files so as to not copy infinitely if a directory is
|
find created files so as to not copy infinitely if a directory is
|
||||||
copied into itself. */
|
copied into itself. */
|
||||||
@@ -661,6 +657,10 @@ copy_internal (const char *src_path, const char *dst_path,
|
|||||||
|
|
||||||
if (x->verbose)
|
if (x->verbose)
|
||||||
printf ("%s -> %s\n", src_path, dst_path);
|
printf ("%s -> %s\n", src_path, dst_path);
|
||||||
|
|
||||||
|
/* Are we crossing a file system boundary? */
|
||||||
|
if (x->one_file_system && device != 0 && device != src_sb.st_dev)
|
||||||
|
return 0;
|
||||||
}
|
}
|
||||||
|
|
||||||
/* Copy the contents of the directory. */
|
/* Copy the contents of the directory. */
|
||||||
|
|||||||
16
src/ls.c
16
src/ls.c
@@ -72,6 +72,7 @@
|
|||||||
#include "xstrtol.h"
|
#include "xstrtol.h"
|
||||||
#include "strverscmp.h"
|
#include "strverscmp.h"
|
||||||
#include "quotearg.h"
|
#include "quotearg.h"
|
||||||
|
#include "filemode.h"
|
||||||
|
|
||||||
#define obstack_chunk_alloc malloc
|
#define obstack_chunk_alloc malloc
|
||||||
#define obstack_chunk_free free
|
#define obstack_chunk_free free
|
||||||
@@ -132,8 +133,6 @@ struct bin_str
|
|||||||
time_t time ();
|
time_t time ();
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
void mode_string ();
|
|
||||||
|
|
||||||
char *getgroup ();
|
char *getgroup ();
|
||||||
char *getuser ();
|
char *getuser ();
|
||||||
void strip_trailing_slashes ();
|
void strip_trailing_slashes ();
|
||||||
@@ -450,8 +449,15 @@ struct ignore_pattern
|
|||||||
|
|
||||||
static struct ignore_pattern *ignore_patterns;
|
static struct ignore_pattern *ignore_patterns;
|
||||||
|
|
||||||
/* Nonzero means output nongraphic chars in file names as `?'. -q */
|
/* Nonzero means output nongraphic chars in file names as `?'.
|
||||||
|
(-q, --hide-control-chars)
|
||||||
|
qmark_funny_chars and the quoting style (-Q, --quoting-style=WORD) are
|
||||||
|
independent. The algorithm is: first, obey the quoting style to get a
|
||||||
|
string representing the file name; then, if qmark_funny_chars is set,
|
||||||
|
replace all nonprintable chars in that string with `?'. It's necessary
|
||||||
|
to replace nonprintable chars even in quoted strings, because we don't
|
||||||
|
want to mess up the terminal if control chars get sent to it, and some
|
||||||
|
quoting methods pass through control chars as-is. */
|
||||||
static int qmark_funny_chars;
|
static int qmark_funny_chars;
|
||||||
|
|
||||||
/* Quoting options for file and dir name output. */
|
/* Quoting options for file and dir name output. */
|
||||||
@@ -821,6 +827,7 @@ decode_switches (int argc, char **argv)
|
|||||||
if (isatty (1))
|
if (isatty (1))
|
||||||
{
|
{
|
||||||
format = many_per_line;
|
format = many_per_line;
|
||||||
|
/* See description of qmark_funny_chars, above. */
|
||||||
qmark_funny_chars = 1;
|
qmark_funny_chars = 1;
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
@@ -2183,6 +2190,7 @@ print_long_format (const struct fileinfo *f)
|
|||||||
char *user_name;
|
char *user_name;
|
||||||
|
|
||||||
#if HAVE_ST_DM_MODE
|
#if HAVE_ST_DM_MODE
|
||||||
|
/* Cray DMF: look at the file's migrated, not real, status */
|
||||||
mode_string (f->stat.st_dm_mode, modebuf);
|
mode_string (f->stat.st_dm_mode, modebuf);
|
||||||
#else
|
#else
|
||||||
mode_string (f->stat.st_mode, modebuf);
|
mode_string (f->stat.st_mode, modebuf);
|
||||||
|
|||||||
35
src/mv.c
35
src/mv.c
@@ -177,21 +177,34 @@ do_move (const char *source, const char *dest, const struct cp_options *x)
|
|||||||
hash_init (INITIAL_HASH_MODULE, INITIAL_ENTRY_TAB_SIZE);
|
hash_init (INITIAL_HASH_MODULE, INITIAL_ENTRY_TAB_SIZE);
|
||||||
}
|
}
|
||||||
|
|
||||||
fail = copy (source, dest, 0, x,
|
fail = copy (source, dest, 0, x, ©_into_self, &rename_succeeded);
|
||||||
©_into_self, &rename_succeeded);
|
|
||||||
|
|
||||||
if (!fail)
|
if (!fail)
|
||||||
{
|
{
|
||||||
|
const char *dir_to_remove;
|
||||||
if (copy_into_self)
|
if (copy_into_self)
|
||||||
{
|
{
|
||||||
/* Do *not* remove SOURCE if it is the same as or a parent
|
/* In general, when copy returns with copy_into_self set, SOURCE is
|
||||||
of DEST. Otherwise, mv would be removing the original
|
the same as, or a parent of DEST. In this case we know it's a
|
||||||
*and* the copy. */
|
parent. It doesn't make sense to move a directory into itself, and
|
||||||
|
besides in some situations doing so would give highly nonintuitive
|
||||||
|
results. Run this `mkdir b; touch a c; mv * b' in an empty
|
||||||
|
directory. Here's the result of running echo `find b -print`:
|
||||||
|
b b/a b/b b/b/a b/c. Notice that only file `a' was copied
|
||||||
|
into b/b. Handle this by giving a diagnostic, removing the
|
||||||
|
copied-into-self directory, DEST (`b/b' in the example),
|
||||||
|
and failing. */
|
||||||
|
|
||||||
|
dir_to_remove = dest;
|
||||||
|
error (0, 0,
|
||||||
|
_("cannot move `%s' to a subdirectory of itself, `%s'"),
|
||||||
|
source, dest);
|
||||||
}
|
}
|
||||||
else if (rename_succeeded)
|
else if (rename_succeeded)
|
||||||
{
|
{
|
||||||
/* No need to remove anything. SOURCE was successfully
|
/* No need to remove anything. SOURCE was successfully
|
||||||
renamed to DEST. */
|
renamed to DEST. */
|
||||||
|
dir_to_remove = NULL;
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
@@ -217,6 +230,11 @@ do_move (const char *source, const char *dest, const struct cp_options *x)
|
|||||||
This function used to resort to copying only when rename
|
This function used to resort to copying only when rename
|
||||||
failed and set errno to EXDEV. */
|
failed and set errno to EXDEV. */
|
||||||
|
|
||||||
|
dir_to_remove = source;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (dir_to_remove != NULL)
|
||||||
|
{
|
||||||
struct rm_options rm_options;
|
struct rm_options rm_options;
|
||||||
struct File_spec fs;
|
struct File_spec fs;
|
||||||
enum RM_status status;
|
enum RM_status status;
|
||||||
@@ -226,7 +244,7 @@ do_move (const char *source, const char *dest, const struct cp_options *x)
|
|||||||
|
|
||||||
remove_init ();
|
remove_init ();
|
||||||
|
|
||||||
fspec_init_file (&fs, source);
|
fspec_init_file (&fs, dir_to_remove);
|
||||||
status = rm (&fs, 1, &rm_options);
|
status = rm (&fs, 1, &rm_options);
|
||||||
assert (VALID_STATUS (status));
|
assert (VALID_STATUS (status));
|
||||||
if (status == RM_ERROR)
|
if (status == RM_ERROR)
|
||||||
@@ -235,8 +253,11 @@ do_move (const char *source, const char *dest, const struct cp_options *x)
|
|||||||
remove_fini ();
|
remove_fini ();
|
||||||
|
|
||||||
if (fail)
|
if (fail)
|
||||||
error (0, errno, _("cannot remove `%s'"), source);
|
error (0, errno, _("cannot remove `%s'"), dir_to_remove);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
if (copy_into_self)
|
||||||
|
fail = 1;
|
||||||
}
|
}
|
||||||
|
|
||||||
return fail;
|
return fail;
|
||||||
|
|||||||
96
src/pr.c
96
src/pr.c
@@ -580,6 +580,27 @@ static struct option const long_options[] =
|
|||||||
{"help", no_argument, &show_help, 1},
|
{"help", no_argument, &show_help, 1},
|
||||||
{"version", no_argument, &show_version, 1},
|
{"version", no_argument, &show_version, 1},
|
||||||
{"test", no_argument, &test_suite, 1},
|
{"test", no_argument, &test_suite, 1},
|
||||||
|
{"pages", required_argument, NULL, 128},
|
||||||
|
{"columns", required_argument, NULL, 129},
|
||||||
|
{"across", no_argument, NULL, 'a'},
|
||||||
|
{"show-control-chars", no_argument, NULL, 'c'},
|
||||||
|
{"double-space", no_argument, NULL, 'd'},
|
||||||
|
{"expand-tabs", optional_argument, NULL, 'e'},
|
||||||
|
{"form-feed", no_argument, NULL, 'f'},
|
||||||
|
{"header", required_argument, NULL, 'h'},
|
||||||
|
{"output-tabs", optional_argument, NULL, 'i'},
|
||||||
|
{"join-lines", no_argument, NULL, 'j'},
|
||||||
|
{"length", required_argument, NULL, 'l'},
|
||||||
|
{"merge", no_argument, NULL, 'm'},
|
||||||
|
{"number-lines", optional_argument, NULL, 'n'},
|
||||||
|
{"first-line-number", required_argument, NULL, 'N'},
|
||||||
|
{"indent", required_argument, NULL, 'o'},
|
||||||
|
{"no-file-warnings", no_argument, NULL, 'r'},
|
||||||
|
{"separator", optional_argument, NULL, 's'},
|
||||||
|
{"omit-header", no_argument, NULL, 't'},
|
||||||
|
{"omit-pagination", no_argument, NULL, 'T'},
|
||||||
|
{"show-nonprinting", no_argument, NULL, 'v'},
|
||||||
|
{"width", required_argument, NULL, 'w'},
|
||||||
{0, 0, 0, 0}
|
{0, 0, 0, 0}
|
||||||
};
|
};
|
||||||
|
|
||||||
@@ -722,6 +743,24 @@ main (int argc, char **argv)
|
|||||||
case 0: /* getopt long option */
|
case 0: /* getopt long option */
|
||||||
break;
|
break;
|
||||||
|
|
||||||
|
case 128: /* --pages=FIRST_PAGE[:LAST_PAGE] */
|
||||||
|
first_last_page (optarg);
|
||||||
|
break;
|
||||||
|
|
||||||
|
case 129: /* --columns=COLUMN */
|
||||||
|
{
|
||||||
|
long int tmp_long;
|
||||||
|
if (xstrtol (optarg, NULL, 10, &tmp_long, "") != LONGINT_OK
|
||||||
|
|| tmp_long <= 0 || tmp_long > INT_MAX)
|
||||||
|
{
|
||||||
|
error (EXIT_FAILURE, 0,
|
||||||
|
_("`--columns=COLUMN' invalid number of columns: `%s'"),
|
||||||
|
optarg);
|
||||||
|
}
|
||||||
|
columns = (int) tmp_long;
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
|
||||||
case 'a':
|
case 'a':
|
||||||
print_across_flag = TRUE;
|
print_across_flag = TRUE;
|
||||||
storing_columns = FALSE;
|
storing_columns = FALSE;
|
||||||
@@ -2416,44 +2455,61 @@ Usage: %s [OPTION]... [FILE]...\n\
|
|||||||
Paginate or columnate FILE(s) for printing.\n\
|
Paginate or columnate FILE(s) for printing.\n\
|
||||||
\n\
|
\n\
|
||||||
+FIRST_PAGE[:LAST_PAGE]\n\
|
+FIRST_PAGE[:LAST_PAGE]\n\
|
||||||
|
--pages=FIRST_PAGE[:LAST_PAGE]\n\
|
||||||
begin [stop] printing with page FIRST_[LAST_]PAGE\n\
|
begin [stop] printing with page FIRST_[LAST_]PAGE\n\
|
||||||
-COLUMN produce COLUMN-column output and print columns down,\n\
|
-COLUMN\n\
|
||||||
|
--columns=COLUMN produce COLUMN-column output and print columns down,\n\
|
||||||
unless -a is used. Balance number of lines in the\n\
|
unless -a is used. Balance number of lines in the\n\
|
||||||
columns on each page.\n\
|
columns on each page.\n\
|
||||||
-a print columns across rather than down, used together\n\
|
-a, --across print columns across rather than down, used together\n\
|
||||||
with -COLUMN\n\
|
with -COLUMN\n\
|
||||||
-c use hat notation (^G) and octal backslash notation\n\
|
-c, --show-control-chars\n\
|
||||||
-d double space the output\n\
|
use hat notation (^G) and octal backslash notation\n\
|
||||||
-e[CHAR[WIDTH]] expand input CHARs (TABs) to tab WIDTH (8)\n\
|
-d, --double-space\n\
|
||||||
-F, -f use form feeds instead of newlines to separate pages\n\
|
double space the output\n\
|
||||||
|
-e, --expand-tabs[=CHAR[WIDTH]]\n\
|
||||||
|
expand input CHARs (TABs) to tab WIDTH (8)\n\
|
||||||
|
-F, -f, --form-feed\n\
|
||||||
|
use form feeds instead of newlines to separate pages\n\
|
||||||
(by a 3-line page header with -f or a 5-line header\n\
|
(by a 3-line page header with -f or a 5-line header\n\
|
||||||
and trailer without -f)\n\
|
and trailer without -f)\n\
|
||||||
-h HEADER use a centered HEADER instead of filename in page headers\n\
|
-h, --header=HEADER\n\
|
||||||
|
use a centered HEADER instead of filename in page headers\n\
|
||||||
with long headers left-hand-side truncation may occur\n\
|
with long headers left-hand-side truncation may occur\n\
|
||||||
-h \"\" prints a blank line. Don't use -h\"\"\n\
|
-h \"\" prints a blank line. Don't use -h\"\"\n\
|
||||||
-i[CHAR[WIDTH]] replace spaces with CHARs (TABs) to tab WIDTH (8)\n\
|
-i, --output-tabs[=CHAR[WIDTH]]\n\
|
||||||
-j merge full lines, turns off -w line truncation, no column\n\
|
replace spaces with CHARs (TABs) to tab WIDTH (8)\n\
|
||||||
|
-j, --join-lines merge full lines, turns off -w line truncation, no column\n\
|
||||||
alignment, -s[STRING] sets separators\n\
|
alignment, -s[STRING] sets separators\n\
|
||||||
-l PAGE_LENGTH set the page length to PAGE_LENGTH (66) lines\n\
|
-l, --length PAGE_LENGTH\n\
|
||||||
|
set the page length to PAGE_LENGTH (66) lines\n\
|
||||||
(default number of lines of text 56, with -f 63)\n"));
|
(default number of lines of text 56, with -f 63)\n"));
|
||||||
printf (_("\
|
printf (_("\
|
||||||
-m print all files in parallel, one in each column,\n\
|
-m, --merge print all files in parallel, one in each column,\n\
|
||||||
truncate lines, but join lines of full length with -j\n\
|
truncate lines, but join lines of full length with -j\n\
|
||||||
-n[SEP[DIGITS]] number lines, use DIGITS (5) digits, then SEP (TAB)\n\
|
-n, --number-lines[=SEP[DIGITS]]\n\
|
||||||
|
number lines, use DIGITS (5) digits, then SEP (TAB)\n\
|
||||||
default counting starts with 1st line of input file\n\
|
default counting starts with 1st line of input file\n\
|
||||||
-N NUMBER start counting with NUMBER at 1st line of first\n\
|
-N, --first-line-number=NUMBER\n\
|
||||||
|
start counting with NUMBER at 1st line of first\n\
|
||||||
page printed (see +FIRST_PAGE)\n\
|
page printed (see +FIRST_PAGE)\n\
|
||||||
-o MARGIN offset each line with MARGIN spaces (do not affect -w)\n\
|
-o, --indent=MARGIN\n\
|
||||||
-r inhibit warning when a file cannot be opened\n\
|
offset each line with MARGIN spaces (do not affect -w)\n\
|
||||||
-s[STRING] separate columns by an optional STRING, don't use\n\
|
-r, --no-file-warnings\n\
|
||||||
|
inhibit warning when a file cannot be opened\n\
|
||||||
|
-s, --separator[=STRING]\n\
|
||||||
|
separate columns by an optional STRING, don't use\n\
|
||||||
-s \"STRING\", -s only: No separator used (same as -s\"\"),\n\
|
-s \"STRING\", -s only: No separator used (same as -s\"\"),\n\
|
||||||
without -s: Default separator \'TAB\' with -j and \'space\'\n\
|
without -s: Default separator \'TAB\' with -j and \'space\'\n\
|
||||||
otherwise (same as -s\" \")\n\
|
otherwise (same as -s\" \")\n\
|
||||||
-t inhibit page headers and trailers\n\
|
-t, --omit-header inhibit page headers and trailers\n\
|
||||||
-T inhibit page headers and trailers, eliminate any page\n\
|
-T, --omit-pagination\n\
|
||||||
|
inhibit page headers and trailers, eliminate any page\n\
|
||||||
layout by form feeds set in input files\n\
|
layout by form feeds set in input files\n\
|
||||||
-v use octal backslash notation\n\
|
-v, --show-nonprinting\n\
|
||||||
-w PAGE_WIDTH set page width to PAGE_WIDTH (72) columns, truncate\n\
|
use octal backslash notation\n\
|
||||||
|
-w, --width=PAGE_WIDTH\n\
|
||||||
|
set page width to PAGE_WIDTH (72) columns, truncate\n\
|
||||||
lines (see also -j option)\n\
|
lines (see also -j option)\n\
|
||||||
--help display this help and exit\n\
|
--help display this help and exit\n\
|
||||||
--version output version information and exit\n\
|
--version output version information and exit\n\
|
||||||
|
|||||||
@@ -162,7 +162,9 @@ usage (int status)
|
|||||||
{
|
{
|
||||||
printf (_("Usage: %s [OPTION]... [ FILE ]\n"), program_name);
|
printf (_("Usage: %s [OPTION]... [ FILE ]\n"), program_name);
|
||||||
printf (_("\
|
printf (_("\
|
||||||
Output who is currently logged in according to FILE.\n\
|
Print the current time, the length of time the system has been up,\n\
|
||||||
|
the number of users on the system, and the average number of jobs\n\
|
||||||
|
in the run queue over the last 1, 5 and 15 minutes.\n\
|
||||||
If FILE is not specified, use %s. %s as FILE is common.\n\
|
If FILE is not specified, use %s. %s as FILE is common.\n\
|
||||||
\n\
|
\n\
|
||||||
--help display this help and exit\n\
|
--help display this help and exit\n\
|
||||||
|
|||||||
@@ -10,8 +10,8 @@ fi
|
|||||||
|
|
||||||
framework_failure=0
|
framework_failure=0
|
||||||
$RM -f a a~ || framework_failure=1
|
$RM -f a a~ || framework_failure=1
|
||||||
: > a || framework_failure=1
|
echo a > a || framework_failure=1
|
||||||
echo a > a~ || framework_failure=1
|
echo a-tilde > a~ || framework_failure=1
|
||||||
|
|
||||||
if test $framework_failure = 1; then
|
if test $framework_failure = 1; then
|
||||||
echo 'failure in testing framework'
|
echo 'failure in testing framework'
|
||||||
|
|||||||
@@ -51,6 +51,7 @@ for args in 'foo symlink' 'symlink foo' 'foo foo' 'sl1 sl2' 'foo hardlink'; do
|
|||||||
case "$args" in *sl2*) ln -s foo sl2;; esac
|
case "$args" in *sl2*) ln -s foo sl2;; esac
|
||||||
(
|
(
|
||||||
(
|
(
|
||||||
|
# echo 1>&2 $CP $options $args
|
||||||
$CP $options $args 2>.err
|
$CP $options $args 2>.err
|
||||||
echo $? $options
|
echo $? $options
|
||||||
|
|
||||||
@@ -166,5 +167,8 @@ cat <<\EOF > $expected
|
|||||||
|
|
||||||
EOF
|
EOF
|
||||||
|
|
||||||
|
# Uncomment this if you see a failure and want to try to diagnose it.
|
||||||
|
# diff -u $expected $actual 1>&2
|
||||||
|
|
||||||
cmp $expected $actual
|
cmp $expected $actual
|
||||||
exit $?
|
exit $?
|
||||||
|
|||||||
@@ -1718,23 +1718,6 @@ else
|
|||||||
esac
|
esac
|
||||||
fi
|
fi
|
||||||
test -s y.E || rm -f y.E
|
test -s y.E || rm -f y.E
|
||||||
cat $srcdir/y.I | $xx -s -b4 > y.O 2> y.E
|
|
||||||
code=$?
|
|
||||||
if test $code != 1 ; then
|
|
||||||
$echo "Test y(|) failed: ../../src/cut return code $code differs from expected value 1" 1>&2
|
|
||||||
errors=`expr $errors + 1`
|
|
||||||
else
|
|
||||||
cmp y.O $srcdir/y.X > /dev/null 2>&1
|
|
||||||
case $? in
|
|
||||||
0) if test "$VERBOSE" ; then $echo "passed y(|)"; fi ;;
|
|
||||||
1) $echo "Test y(|) failed: files y.O and $srcdir/y.X differ" 1>&2;
|
|
||||||
errors=`expr $errors + 1` ;;
|
|
||||||
2) $echo "Test y(|) may have failed." 1>&2;
|
|
||||||
$echo The command "cmp y.O $srcdir/y.X" failed. 1>&2 ;
|
|
||||||
errors=`expr $errors + 1` ;;
|
|
||||||
esac
|
|
||||||
fi
|
|
||||||
test -s y.E || rm -f y.E
|
|
||||||
$xx -s -b4 < $srcdir/y.I > y.O 2> y.E
|
$xx -s -b4 < $srcdir/y.I > y.O 2> y.E
|
||||||
code=$?
|
code=$?
|
||||||
if test $code != 1 ; then
|
if test $code != 1 ; then
|
||||||
@@ -1769,23 +1752,6 @@ else
|
|||||||
esac
|
esac
|
||||||
fi
|
fi
|
||||||
test -s z.E || rm -f z.E
|
test -s z.E || rm -f z.E
|
||||||
cat $srcdir/z.I | $xx > z.O 2> z.E
|
|
||||||
code=$?
|
|
||||||
if test $code != 1 ; then
|
|
||||||
$echo "Test z(|) failed: ../../src/cut return code $code differs from expected value 1" 1>&2
|
|
||||||
errors=`expr $errors + 1`
|
|
||||||
else
|
|
||||||
cmp z.O $srcdir/z.X > /dev/null 2>&1
|
|
||||||
case $? in
|
|
||||||
0) if test "$VERBOSE" ; then $echo "passed z(|)"; fi ;;
|
|
||||||
1) $echo "Test z(|) failed: files z.O and $srcdir/z.X differ" 1>&2;
|
|
||||||
errors=`expr $errors + 1` ;;
|
|
||||||
2) $echo "Test z(|) may have failed." 1>&2;
|
|
||||||
$echo The command "cmp z.O $srcdir/z.X" failed. 1>&2 ;
|
|
||||||
errors=`expr $errors + 1` ;;
|
|
||||||
esac
|
|
||||||
fi
|
|
||||||
test -s z.E || rm -f z.E
|
|
||||||
$xx < $srcdir/z.I > z.O 2> z.E
|
$xx < $srcdir/z.I > z.O 2> z.E
|
||||||
code=$?
|
code=$?
|
||||||
if test $code != 1 ; then
|
if test $code != 1 ; then
|
||||||
@@ -1820,23 +1786,6 @@ else
|
|||||||
esac
|
esac
|
||||||
fi
|
fi
|
||||||
test -s empty-fl.E || rm -f empty-fl.E
|
test -s empty-fl.E || rm -f empty-fl.E
|
||||||
cat $srcdir/empty-fl.I | $xx -f '' > empty-fl.O 2> empty-fl.E
|
|
||||||
code=$?
|
|
||||||
if test $code != 1 ; then
|
|
||||||
$echo "Test empty-fl(|) failed: ../../src/cut return code $code differs from expected value 1" 1>&2
|
|
||||||
errors=`expr $errors + 1`
|
|
||||||
else
|
|
||||||
cmp empty-fl.O $srcdir/empty-fl.X > /dev/null 2>&1
|
|
||||||
case $? in
|
|
||||||
0) if test "$VERBOSE" ; then $echo "passed empty-fl(|)"; fi ;;
|
|
||||||
1) $echo "Test empty-fl(|) failed: files empty-fl.O and $srcdir/empty-fl.X differ" 1>&2;
|
|
||||||
errors=`expr $errors + 1` ;;
|
|
||||||
2) $echo "Test empty-fl(|) may have failed." 1>&2;
|
|
||||||
$echo The command "cmp empty-fl.O $srcdir/empty-fl.X" failed. 1>&2 ;
|
|
||||||
errors=`expr $errors + 1` ;;
|
|
||||||
esac
|
|
||||||
fi
|
|
||||||
test -s empty-fl.E || rm -f empty-fl.E
|
|
||||||
$xx -f '' < $srcdir/empty-fl.I > empty-fl.O 2> empty-fl.E
|
$xx -f '' < $srcdir/empty-fl.I > empty-fl.O 2> empty-fl.E
|
||||||
code=$?
|
code=$?
|
||||||
if test $code != 1 ; then
|
if test $code != 1 ; then
|
||||||
@@ -1871,23 +1820,6 @@ else
|
|||||||
esac
|
esac
|
||||||
fi
|
fi
|
||||||
test -s missing-fl.E || rm -f missing-fl.E
|
test -s missing-fl.E || rm -f missing-fl.E
|
||||||
cat $srcdir/missing-fl.I | $xx -f > missing-fl.O 2> missing-fl.E
|
|
||||||
code=$?
|
|
||||||
if test $code != 1 ; then
|
|
||||||
$echo "Test missing-fl(|) failed: ../../src/cut return code $code differs from expected value 1" 1>&2
|
|
||||||
errors=`expr $errors + 1`
|
|
||||||
else
|
|
||||||
cmp missing-fl.O $srcdir/missing-fl.X > /dev/null 2>&1
|
|
||||||
case $? in
|
|
||||||
0) if test "$VERBOSE" ; then $echo "passed missing-fl(|)"; fi ;;
|
|
||||||
1) $echo "Test missing-fl(|) failed: files missing-fl.O and $srcdir/missing-fl.X differ" 1>&2;
|
|
||||||
errors=`expr $errors + 1` ;;
|
|
||||||
2) $echo "Test missing-fl(|) may have failed." 1>&2;
|
|
||||||
$echo The command "cmp missing-fl.O $srcdir/missing-fl.X" failed. 1>&2 ;
|
|
||||||
errors=`expr $errors + 1` ;;
|
|
||||||
esac
|
|
||||||
fi
|
|
||||||
test -s missing-fl.E || rm -f missing-fl.E
|
|
||||||
$xx -f < $srcdir/missing-fl.I > missing-fl.O 2> missing-fl.E
|
$xx -f < $srcdir/missing-fl.I > missing-fl.O 2> missing-fl.E
|
||||||
code=$?
|
code=$?
|
||||||
if test $code != 1 ; then
|
if test $code != 1 ; then
|
||||||
@@ -1922,23 +1854,6 @@ else
|
|||||||
esac
|
esac
|
||||||
fi
|
fi
|
||||||
test -s empty-bl.E || rm -f empty-bl.E
|
test -s empty-bl.E || rm -f empty-bl.E
|
||||||
cat $srcdir/empty-bl.I | $xx -b '' > empty-bl.O 2> empty-bl.E
|
|
||||||
code=$?
|
|
||||||
if test $code != 1 ; then
|
|
||||||
$echo "Test empty-bl(|) failed: ../../src/cut return code $code differs from expected value 1" 1>&2
|
|
||||||
errors=`expr $errors + 1`
|
|
||||||
else
|
|
||||||
cmp empty-bl.O $srcdir/empty-bl.X > /dev/null 2>&1
|
|
||||||
case $? in
|
|
||||||
0) if test "$VERBOSE" ; then $echo "passed empty-bl(|)"; fi ;;
|
|
||||||
1) $echo "Test empty-bl(|) failed: files empty-bl.O and $srcdir/empty-bl.X differ" 1>&2;
|
|
||||||
errors=`expr $errors + 1` ;;
|
|
||||||
2) $echo "Test empty-bl(|) may have failed." 1>&2;
|
|
||||||
$echo The command "cmp empty-bl.O $srcdir/empty-bl.X" failed. 1>&2 ;
|
|
||||||
errors=`expr $errors + 1` ;;
|
|
||||||
esac
|
|
||||||
fi
|
|
||||||
test -s empty-bl.E || rm -f empty-bl.E
|
|
||||||
$xx -b '' < $srcdir/empty-bl.I > empty-bl.O 2> empty-bl.E
|
$xx -b '' < $srcdir/empty-bl.I > empty-bl.O 2> empty-bl.E
|
||||||
code=$?
|
code=$?
|
||||||
if test $code != 1 ; then
|
if test $code != 1 ; then
|
||||||
@@ -1973,23 +1888,6 @@ else
|
|||||||
esac
|
esac
|
||||||
fi
|
fi
|
||||||
test -s missing-bl.E || rm -f missing-bl.E
|
test -s missing-bl.E || rm -f missing-bl.E
|
||||||
cat $srcdir/missing-bl.I | $xx -b > missing-bl.O 2> missing-bl.E
|
|
||||||
code=$?
|
|
||||||
if test $code != 1 ; then
|
|
||||||
$echo "Test missing-bl(|) failed: ../../src/cut return code $code differs from expected value 1" 1>&2
|
|
||||||
errors=`expr $errors + 1`
|
|
||||||
else
|
|
||||||
cmp missing-bl.O $srcdir/missing-bl.X > /dev/null 2>&1
|
|
||||||
case $? in
|
|
||||||
0) if test "$VERBOSE" ; then $echo "passed missing-bl(|)"; fi ;;
|
|
||||||
1) $echo "Test missing-bl(|) failed: files missing-bl.O and $srcdir/missing-bl.X differ" 1>&2;
|
|
||||||
errors=`expr $errors + 1` ;;
|
|
||||||
2) $echo "Test missing-bl(|) may have failed." 1>&2;
|
|
||||||
$echo The command "cmp missing-bl.O $srcdir/missing-bl.X" failed. 1>&2 ;
|
|
||||||
errors=`expr $errors + 1` ;;
|
|
||||||
esac
|
|
||||||
fi
|
|
||||||
test -s missing-bl.E || rm -f missing-bl.E
|
|
||||||
$xx -b < $srcdir/missing-bl.I > missing-bl.O 2> missing-bl.E
|
$xx -b < $srcdir/missing-bl.I > missing-bl.O 2> missing-bl.E
|
||||||
code=$?
|
code=$?
|
||||||
if test $code != 1 ; then
|
if test $code != 1 ; then
|
||||||
@@ -2314,7 +2212,7 @@ else
|
|||||||
fi
|
fi
|
||||||
test -s multichar-od.E || rm -f multichar-od.E
|
test -s multichar-od.E || rm -f multichar-od.E
|
||||||
if test $errors = 0 ; then
|
if test $errors = 0 ; then
|
||||||
$echo Passed all 135 tests. 1>&2
|
$echo Passed all 129 tests. 1>&2
|
||||||
else
|
else
|
||||||
$echo Failed $errors tests. 1>&2
|
$echo Failed $errors tests. 1>&2
|
||||||
fi
|
fi
|
||||||
|
|||||||
@@ -4,7 +4,6 @@
|
|||||||
# This Makefile.in is free software; the Free Software Foundation
|
# This Makefile.in is free software; the Free Software Foundation
|
||||||
# gives unlimited permission to copy and/or distribute it,
|
# gives unlimited permission to copy and/or distribute it,
|
||||||
# with or without modifications, as long as this notice is preserved.
|
# with or without modifications, as long as this notice is preserved.
|
||||||
|
|
||||||
# This program is distributed in the hope that it will be useful,
|
# This program is distributed in the hope that it will be useful,
|
||||||
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
|
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
|
||||||
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
|
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
|
||||||
|
|||||||
@@ -4,7 +4,6 @@
|
|||||||
# This Makefile.in is free software; the Free Software Foundation
|
# This Makefile.in is free software; the Free Software Foundation
|
||||||
# gives unlimited permission to copy and/or distribute it,
|
# gives unlimited permission to copy and/or distribute it,
|
||||||
# with or without modifications, as long as this notice is preserved.
|
# with or without modifications, as long as this notice is preserved.
|
||||||
|
|
||||||
# This program is distributed in the hope that it will be useful,
|
# This program is distributed in the hope that it will be useful,
|
||||||
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
|
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
|
||||||
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
|
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
|
||||||
|
|||||||
1
tests/ls-2/.cvsignore
Normal file
1
tests/ls-2/.cvsignore
Normal file
@@ -0,0 +1 @@
|
|||||||
|
Makefile
|
||||||
275
tests/ls-2/Fetish.pm
Normal file
275
tests/ls-2/Fetish.pm
Normal file
@@ -0,0 +1,275 @@
|
|||||||
|
package Fetish;
|
||||||
|
# This is a testing framework.
|
||||||
|
|
||||||
|
# In case you're wondering about the name, it comes from the
|
||||||
|
# names of the three packages: FIleutils, SH-utils, TExtutils.
|
||||||
|
|
||||||
|
require 5.003;
|
||||||
|
use strict;
|
||||||
|
use vars qw($VERSION @ISA @EXPORT);
|
||||||
|
|
||||||
|
use FileHandle;
|
||||||
|
use File::Compare qw(compare);
|
||||||
|
|
||||||
|
@ISA = qw(Exporter);
|
||||||
|
($VERSION = '$Revision: 1.9 $ ') =~ tr/[0-9].//cd;
|
||||||
|
@EXPORT = qw (run_tests);
|
||||||
|
|
||||||
|
my @Types = qw (IN OUT ERR EXIT);
|
||||||
|
my %Types = map {$_ => 1} @Types;
|
||||||
|
my %Zero_one_type = map {$_ => 1} qw (OUT ERR EXIT);
|
||||||
|
my $srcdir = $ENV{srcdir};
|
||||||
|
my $Global_count = 1;
|
||||||
|
|
||||||
|
# A file spec: a scalar or a reference to a single-keyed hash
|
||||||
|
# ================
|
||||||
|
# 'contents' contents only (file name is derived from test name)
|
||||||
|
# {filename => 'contents'} filename and contents
|
||||||
|
# {filename => undef} filename only -- $(srcdir)/filename must exist
|
||||||
|
#
|
||||||
|
# FIXME: If there is more than one input file, the you can't specify REDIRECT.
|
||||||
|
# PIPE is still ok.
|
||||||
|
#
|
||||||
|
# I/O spec: a hash ref with the following properties
|
||||||
|
# ================
|
||||||
|
# - one key/value pair
|
||||||
|
# - the key must be one of these strings: IN, OUT, ERR, EXIT
|
||||||
|
# - the value must be a file spec
|
||||||
|
# {OUT => 'data'} put data in a temp file and compare it to stdout from cmd
|
||||||
|
# {OUT => {'filename'=>undef}} compare contents of existing filename to
|
||||||
|
# stdout from cmd
|
||||||
|
# {OUT => {'filename'=>[$CTOR, $DTOR]}} $CTOR and $DTOR are references to
|
||||||
|
# functions, each which is passed the single argument `filename'.
|
||||||
|
# $CTOR must create `filename'.
|
||||||
|
# DTOR may be omitted in which case `sub{unlink @_[0]}' is used.
|
||||||
|
# FIXME: implement this
|
||||||
|
# Ditto for `ERR', but compare with stderr
|
||||||
|
# {EXIT => N} expect exit status of cmd to be N
|
||||||
|
#
|
||||||
|
# There may be many input file specs. File names from the input specs
|
||||||
|
# are concatenated in order on the command line.
|
||||||
|
# There may be at most one of the OUT-, ERR-, and EXIT-keyed specs.
|
||||||
|
# If the OUT-(or ERR)-keyed hash ref is omitted, then expect no output
|
||||||
|
# on stdout (or stderr).
|
||||||
|
# If the EXIT-keyed one is omitted, then expect the exit status to be zero.
|
||||||
|
|
||||||
|
# FIXME: Make sure that no junkfile is also listed as a
|
||||||
|
# non-junkfile (i.e. with undef for contents)
|
||||||
|
|
||||||
|
sub _shell_quote ($)
|
||||||
|
{
|
||||||
|
my ($string) = @_;
|
||||||
|
$string =~ s/\'/\'\\\'\'/g;
|
||||||
|
return "'$string'";
|
||||||
|
}
|
||||||
|
|
||||||
|
sub _create_file ($$$$)
|
||||||
|
{
|
||||||
|
my ($program_name, $test_name, $file_name, $data) = @_;
|
||||||
|
my $file;
|
||||||
|
if (defined $file_name)
|
||||||
|
{
|
||||||
|
$file = $file_name;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
$file = "$test_name-$$.$Global_count";
|
||||||
|
++$Global_count;
|
||||||
|
}
|
||||||
|
|
||||||
|
# The test spec gave a string.
|
||||||
|
# Write it to a temp file and return tempfile name.
|
||||||
|
my $fh = new FileHandle "> $file";
|
||||||
|
die "$program_name: $file: $!\n" if ! $fh;
|
||||||
|
print $fh $data;
|
||||||
|
$fh->close || die "$program_name: $file: $!\n";
|
||||||
|
|
||||||
|
return $file;
|
||||||
|
}
|
||||||
|
|
||||||
|
# FIXME: cleanup on interrupt
|
||||||
|
# FIXME: extract `do_1_test' function
|
||||||
|
|
||||||
|
# FIXME: having to include $program_name here is an expedient kludge.
|
||||||
|
# Library code doesn't `die'.
|
||||||
|
sub run_tests ($$$$$)
|
||||||
|
{
|
||||||
|
my ($program_name, $prog, $t_spec, $save_temps, $verbose) = @_;
|
||||||
|
|
||||||
|
# Warn about empty t_spec.
|
||||||
|
# FIXME
|
||||||
|
|
||||||
|
# Remove all temp files upon interrupt.
|
||||||
|
# FIXME
|
||||||
|
|
||||||
|
# Verify that test names are distinct.
|
||||||
|
my $found_duplicate = 0;
|
||||||
|
my %seen;
|
||||||
|
my $t;
|
||||||
|
foreach $t (@$t_spec)
|
||||||
|
{
|
||||||
|
my $test_name = $t->[0];
|
||||||
|
if ($seen{$test_name})
|
||||||
|
{
|
||||||
|
warn "$program_name: $test_name: duplicate test name\n";
|
||||||
|
$found_duplicate = 1;
|
||||||
|
}
|
||||||
|
$seen{$test_name} = 1;
|
||||||
|
}
|
||||||
|
return 1 if $found_duplicate;
|
||||||
|
|
||||||
|
# FIXME check exit status
|
||||||
|
system ($prog, '--version');
|
||||||
|
|
||||||
|
my @junk_files;
|
||||||
|
my $fail = 0;
|
||||||
|
foreach $t (@$t_spec)
|
||||||
|
{
|
||||||
|
my $test_name = shift @$t;
|
||||||
|
my $expect = {};
|
||||||
|
|
||||||
|
# FIXME: maybe don't reset this.
|
||||||
|
$Global_count = 1;
|
||||||
|
my @args;
|
||||||
|
my $io_spec;
|
||||||
|
my %seen_type;
|
||||||
|
foreach $io_spec (@$t)
|
||||||
|
{
|
||||||
|
if (!ref $io_spec)
|
||||||
|
{
|
||||||
|
push @args, $io_spec;
|
||||||
|
next;
|
||||||
|
}
|
||||||
|
|
||||||
|
die "$program_name: $test_name: invalid test spec\n"
|
||||||
|
if ref $io_spec ne 'HASH';
|
||||||
|
|
||||||
|
my $n = keys %$io_spec;
|
||||||
|
die "$program_name: $test_name: spec has $n elements --"
|
||||||
|
. " expected 1\n"
|
||||||
|
if $n != 1;
|
||||||
|
my ($type, $val) = each %$io_spec;
|
||||||
|
die "$program_name: $test_name: invalid key `$type' in test spec\n"
|
||||||
|
if ! $Types{$type};
|
||||||
|
|
||||||
|
# Make sure there's no more than one of OUT, ERR, EXIT.
|
||||||
|
die "$program_name: $test_name: more than one $type spec\n"
|
||||||
|
if $Zero_one_type{$type} and $seen_type{$type}++;
|
||||||
|
|
||||||
|
if ($type eq 'EXIT')
|
||||||
|
{
|
||||||
|
die "$program_name: $test_name: invalid EXIT code\n"
|
||||||
|
if $val !~ /^\d+$/;
|
||||||
|
# FIXME: make sure $data is numeric
|
||||||
|
$expect->{EXIT} = $val;
|
||||||
|
next;
|
||||||
|
}
|
||||||
|
|
||||||
|
my $file_spec = $val;
|
||||||
|
my ($file_name, $contents);
|
||||||
|
if (!ref $file_spec)
|
||||||
|
{
|
||||||
|
($file_name, $contents) = (undef, $file_spec);
|
||||||
|
}
|
||||||
|
elsif (ref $file_spec eq 'HASH')
|
||||||
|
{
|
||||||
|
my $n = keys %$file_spec;
|
||||||
|
die "$program_name: $test_name: $type spec has $n elements --"
|
||||||
|
. " expected 1\n"
|
||||||
|
if $n != 1;
|
||||||
|
($file_name, $contents) = each %$file_spec;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
die "$program_name: $test_name: invalid RHS in $type-spec\n"
|
||||||
|
}
|
||||||
|
|
||||||
|
my $is_junk_file = (! defined $file_name
|
||||||
|
|| ($type eq 'IN' && defined $contents));
|
||||||
|
my $file = _create_file ($program_name, $test_name,
|
||||||
|
$file_name, $contents);
|
||||||
|
if ($type eq 'IN')
|
||||||
|
{
|
||||||
|
push @args, _shell_quote $file;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
$expect->{$type} = $file;
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($is_junk_file)
|
||||||
|
{
|
||||||
|
push @junk_files, $file
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
# FIXME: put $srcdir in here somewhere
|
||||||
|
warn "$program_name: $test_name: specified file `$file' does"
|
||||||
|
. " not exist\n"
|
||||||
|
if ! -f "$srcdir/$file";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
# Expect an exit status of zero if it's not specified.
|
||||||
|
$expect->{EXIT} ||= 0;
|
||||||
|
|
||||||
|
# Allow ERR to be omitted -- in that case, expect no error output.
|
||||||
|
my $eo;
|
||||||
|
foreach $eo (qw (OUT ERR))
|
||||||
|
{
|
||||||
|
if (!exists $expect->{$eo})
|
||||||
|
{
|
||||||
|
$expect->{$eo} = _create_file ($program_name, $test_name,
|
||||||
|
undef, '');
|
||||||
|
push @junk_files, $expect->{$eo};
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
# FIXME: Does it ever make sense to specify a filename *and* contents
|
||||||
|
# in OUT or ERR spec?
|
||||||
|
|
||||||
|
warn "$test_name...\n" if $verbose;
|
||||||
|
my %tmp;
|
||||||
|
$tmp{OUT} = "$test_name-out";
|
||||||
|
$tmp{ERR} = "$test_name-err";
|
||||||
|
push @junk_files, $tmp{OUT}, $tmp{ERR};
|
||||||
|
my @cmd = ($prog, @args, "> $tmp{OUT}", "2> $tmp{ERR}");
|
||||||
|
my $cmd_str = join ' ', @cmd;
|
||||||
|
warn "Running command: `$cmd_str'\n" if $verbose;
|
||||||
|
my $rc = 0xffff & system $cmd_str;
|
||||||
|
if ($rc == 0xff00)
|
||||||
|
{
|
||||||
|
warn "$program_name: test $test_name failed: command failed:\n"
|
||||||
|
. " `$cmd_str': $!\n";
|
||||||
|
$fail = 1;
|
||||||
|
next;
|
||||||
|
}
|
||||||
|
$rc >>= 8 if $rc > 0x80;
|
||||||
|
if ($expect->{EXIT} != $rc)
|
||||||
|
{
|
||||||
|
warn "$program_name: test $test_name failed: exit status mismatch:"
|
||||||
|
. " expected $expect->{EXIT}, got $rc\n";
|
||||||
|
$fail = 1;
|
||||||
|
next;
|
||||||
|
}
|
||||||
|
|
||||||
|
foreach $eo (qw (OUT ERR))
|
||||||
|
{
|
||||||
|
my $eo_lower = lc $eo;
|
||||||
|
if (compare ($expect->{$eo}, $tmp{$eo}))
|
||||||
|
{
|
||||||
|
warn "$program_name: test $test_name: std$eo_lower mismatch,"
|
||||||
|
. " comparing $expect->{$eo} and $tmp{$eo}\n";
|
||||||
|
$fail = 1;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
# FIXME: maybe unlink files inside the big foreach loop?
|
||||||
|
unlink @junk_files if ! $save_temps;
|
||||||
|
|
||||||
|
return $fail;
|
||||||
|
}
|
||||||
|
|
||||||
|
## package return
|
||||||
|
1;
|
||||||
12
tests/ls-2/Makefile.am
Normal file
12
tests/ls-2/Makefile.am
Normal file
@@ -0,0 +1,12 @@
|
|||||||
|
## Process this file with automake to produce Makefile.in -*-Makefile-*-.
|
||||||
|
|
||||||
|
EXTRA_DIST = $(TESTS) Fetish.pm quoting
|
||||||
|
|
||||||
|
TESTS_ENVIRONMENT = \
|
||||||
|
top_srcdir=$(top_srcdir) \
|
||||||
|
srcdir=$(srcdir) \
|
||||||
|
PERL="@PERL@" \
|
||||||
|
PATH=../../src:$$PATH \
|
||||||
|
LS=ls
|
||||||
|
|
||||||
|
TESTS = run-test
|
||||||
221
tests/ls-2/Makefile.in
Normal file
221
tests/ls-2/Makefile.in
Normal file
@@ -0,0 +1,221 @@
|
|||||||
|
# Makefile.in generated automatically by automake 1.3 from Makefile.am
|
||||||
|
|
||||||
|
# Copyright (C) 1994, 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
|
||||||
|
# This Makefile.in is free software; the Free Software Foundation
|
||||||
|
# gives unlimited permission to copy and/or distribute it,
|
||||||
|
# with or without modifications, as long as this notice is preserved.
|
||||||
|
# This program is distributed in the hope that it will be useful,
|
||||||
|
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
|
||||||
|
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
|
||||||
|
# PARTICULAR PURPOSE.
|
||||||
|
|
||||||
|
|
||||||
|
SHELL = /bin/sh
|
||||||
|
|
||||||
|
srcdir = @srcdir@
|
||||||
|
top_srcdir = @top_srcdir@
|
||||||
|
VPATH = @srcdir@
|
||||||
|
prefix = @prefix@
|
||||||
|
exec_prefix = @exec_prefix@
|
||||||
|
|
||||||
|
bindir = @bindir@
|
||||||
|
sbindir = @sbindir@
|
||||||
|
libexecdir = @libexecdir@
|
||||||
|
datadir = @datadir@
|
||||||
|
sysconfdir = @sysconfdir@
|
||||||
|
sharedstatedir = @sharedstatedir@
|
||||||
|
localstatedir = @localstatedir@
|
||||||
|
libdir = @libdir@
|
||||||
|
infodir = @infodir@
|
||||||
|
mandir = @mandir@
|
||||||
|
includedir = @includedir@
|
||||||
|
oldincludedir = /usr/include
|
||||||
|
|
||||||
|
DISTDIR =
|
||||||
|
|
||||||
|
pkgdatadir = $(datadir)/@PACKAGE@
|
||||||
|
pkglibdir = $(libdir)/@PACKAGE@
|
||||||
|
pkgincludedir = $(includedir)/@PACKAGE@
|
||||||
|
|
||||||
|
top_builddir = ../..
|
||||||
|
|
||||||
|
ACLOCAL = @ACLOCAL@
|
||||||
|
AUTOCONF = @AUTOCONF@
|
||||||
|
AUTOMAKE = @AUTOMAKE@
|
||||||
|
AUTOHEADER = @AUTOHEADER@
|
||||||
|
|
||||||
|
INSTALL = @INSTALL@
|
||||||
|
INSTALL_PROGRAM = @INSTALL_PROGRAM@
|
||||||
|
INSTALL_DATA = @INSTALL_DATA@
|
||||||
|
INSTALL_SCRIPT = @INSTALL_SCRIPT@
|
||||||
|
transform = @program_transform_name@
|
||||||
|
|
||||||
|
NORMAL_INSTALL = :
|
||||||
|
PRE_INSTALL = :
|
||||||
|
POST_INSTALL = :
|
||||||
|
NORMAL_UNINSTALL = :
|
||||||
|
PRE_UNINSTALL = :
|
||||||
|
POST_UNINSTALL = :
|
||||||
|
CATALOGS = @CATALOGS@
|
||||||
|
CATOBJEXT = @CATOBJEXT@
|
||||||
|
CC = @CC@
|
||||||
|
CPP = @CPP@
|
||||||
|
DATADIRNAME = @DATADIRNAME@
|
||||||
|
DF_PROG = @DF_PROG@
|
||||||
|
GENCAT = @GENCAT@
|
||||||
|
GMOFILES = @GMOFILES@
|
||||||
|
GMSGFMT = @GMSGFMT@
|
||||||
|
GT_NO = @GT_NO@
|
||||||
|
GT_YES = @GT_YES@
|
||||||
|
INCLUDE_LOCALE_H = @INCLUDE_LOCALE_H@
|
||||||
|
INSTOBJEXT = @INSTOBJEXT@
|
||||||
|
INTLDEPS = @INTLDEPS@
|
||||||
|
INTLLIBS = @INTLLIBS@
|
||||||
|
INTLOBJS = @INTLOBJS@
|
||||||
|
LIBOBJS = @LIBOBJS@
|
||||||
|
MAKEINFO = @MAKEINFO@
|
||||||
|
MKINSTALLDIRS = @MKINSTALLDIRS@
|
||||||
|
MSGFMT = @MSGFMT@
|
||||||
|
MVDIR_PROG = @MVDIR_PROG@
|
||||||
|
PACKAGE = @PACKAGE@
|
||||||
|
PERL = @PERL@
|
||||||
|
POFILES = @POFILES@
|
||||||
|
POSUB = @POSUB@
|
||||||
|
RANLIB = @RANLIB@
|
||||||
|
U = @U@
|
||||||
|
USE_INCLUDED_LIBINTL = @USE_INCLUDED_LIBINTL@
|
||||||
|
USE_NLS = @USE_NLS@
|
||||||
|
VERSION = @VERSION@
|
||||||
|
YACC = @YACC@
|
||||||
|
l = @l@
|
||||||
|
|
||||||
|
EXTRA_DIST = $(TESTS) Fetish.pm quoting
|
||||||
|
|
||||||
|
TESTS_ENVIRONMENT = \
|
||||||
|
top_srcdir=$(top_srcdir) \
|
||||||
|
srcdir=$(srcdir) \
|
||||||
|
PERL="@PERL@" \
|
||||||
|
PATH=../../src:$$PATH \
|
||||||
|
LS=ls
|
||||||
|
|
||||||
|
TESTS = run-test
|
||||||
|
mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs
|
||||||
|
CONFIG_HEADER = ../../config.h
|
||||||
|
CONFIG_CLEAN_FILES =
|
||||||
|
DIST_COMMON = Makefile.am Makefile.in
|
||||||
|
|
||||||
|
|
||||||
|
DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) $(TEXINFOS) $(EXTRA_DIST)
|
||||||
|
|
||||||
|
TAR = tar
|
||||||
|
GZIP = --best
|
||||||
|
all: Makefile
|
||||||
|
|
||||||
|
.SUFFIXES:
|
||||||
|
$(srcdir)/Makefile.in: Makefile.am $(top_srcdir)/configure.in $(ACLOCAL_M4)
|
||||||
|
cd $(top_srcdir) && $(AUTOMAKE) --gnits tests/ls-2/Makefile
|
||||||
|
|
||||||
|
Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status $(BUILT_SOURCES)
|
||||||
|
cd $(top_builddir) \
|
||||||
|
&& CONFIG_FILES=$(subdir)/$@ CONFIG_HEADERS= $(SHELL) ./config.status
|
||||||
|
|
||||||
|
tags: TAGS
|
||||||
|
TAGS:
|
||||||
|
|
||||||
|
|
||||||
|
distdir = $(top_builddir)/$(PACKAGE)-$(VERSION)/$(subdir)
|
||||||
|
|
||||||
|
subdir = tests/ls-2
|
||||||
|
|
||||||
|
distdir: $(DISTFILES)
|
||||||
|
here=`cd $(top_builddir) && pwd`; \
|
||||||
|
top_distdir=`cd $(top_distdir) && pwd`; \
|
||||||
|
distdir=`cd $(distdir) && pwd`; \
|
||||||
|
cd $(top_srcdir) \
|
||||||
|
&& $(AUTOMAKE) --include-deps --build-dir=$$here --srcdir-name=$(top_srcdir) --output-dir=$$top_distdir --gnits tests/ls-2/Makefile
|
||||||
|
@for file in $(DISTFILES); do \
|
||||||
|
d=$(srcdir); \
|
||||||
|
test -f $(distdir)/$$file \
|
||||||
|
|| ln $$d/$$file $(distdir)/$$file 2> /dev/null \
|
||||||
|
|| cp -p $$d/$$file $(distdir)/$$file; \
|
||||||
|
done
|
||||||
|
check-TESTS: $(TESTS)
|
||||||
|
@failed=0; all=0; \
|
||||||
|
srcdir=$(srcdir); export srcdir; \
|
||||||
|
for tst in $(TESTS); do \
|
||||||
|
if test -f $$tst; then dir=.; \
|
||||||
|
else dir="$(srcdir)"; fi; \
|
||||||
|
if $(TESTS_ENVIRONMENT) $$dir/$$tst; then \
|
||||||
|
all=`expr $$all + 1`; \
|
||||||
|
echo "PASS: $$tst"; \
|
||||||
|
elif test $$? -ne 77; then \
|
||||||
|
all=`expr $$all + 1`; \
|
||||||
|
failed=`expr $$failed + 1`; \
|
||||||
|
echo "FAIL: $$tst"; \
|
||||||
|
fi; \
|
||||||
|
done; \
|
||||||
|
if test "$$failed" -eq 0; then \
|
||||||
|
banner="All $$all tests passed"; \
|
||||||
|
else \
|
||||||
|
banner="$$failed of $$all tests failed"; \
|
||||||
|
fi; \
|
||||||
|
dashes=`echo "$$banner" | sed s/./=/g`; \
|
||||||
|
echo "$$dashes"; \
|
||||||
|
echo "$$banner"; \
|
||||||
|
echo "$$dashes"; \
|
||||||
|
test "$$failed" -eq 0
|
||||||
|
info:
|
||||||
|
dvi:
|
||||||
|
check: all
|
||||||
|
$(MAKE) check-TESTS
|
||||||
|
installcheck:
|
||||||
|
install-exec:
|
||||||
|
@$(NORMAL_INSTALL)
|
||||||
|
|
||||||
|
install-data:
|
||||||
|
@$(NORMAL_INSTALL)
|
||||||
|
|
||||||
|
install: install-exec install-data all
|
||||||
|
@:
|
||||||
|
|
||||||
|
uninstall:
|
||||||
|
|
||||||
|
install-strip:
|
||||||
|
$(MAKE) INSTALL_PROGRAM='$(INSTALL_PROGRAM) -s' INSTALL_SCRIPT='$(INSTALL_PROGRAM)' install
|
||||||
|
installdirs:
|
||||||
|
|
||||||
|
|
||||||
|
mostlyclean-generic:
|
||||||
|
-test -z "$(MOSTLYCLEANFILES)" || rm -f $(MOSTLYCLEANFILES)
|
||||||
|
|
||||||
|
clean-generic:
|
||||||
|
-test -z "$(CLEANFILES)" || rm -f $(CLEANFILES)
|
||||||
|
|
||||||
|
distclean-generic:
|
||||||
|
-rm -f Makefile $(DISTCLEANFILES)
|
||||||
|
-rm -f config.cache config.log stamp-h stamp-h[0-9]*
|
||||||
|
-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
|
||||||
|
|
||||||
|
maintainer-clean-generic:
|
||||||
|
-test -z "$(MAINTAINERCLEANFILES)" || rm -f $(MAINTAINERCLEANFILES)
|
||||||
|
-test -z "$(BUILT_SOURCES)" || rm -f $(BUILT_SOURCES)
|
||||||
|
mostlyclean: mostlyclean-generic
|
||||||
|
|
||||||
|
clean: clean-generic mostlyclean
|
||||||
|
|
||||||
|
distclean: distclean-generic clean
|
||||||
|
-rm -f config.status
|
||||||
|
|
||||||
|
maintainer-clean: maintainer-clean-generic distclean
|
||||||
|
@echo "This command is intended for maintainers to use;"
|
||||||
|
@echo "it deletes files that may require special tools to rebuild."
|
||||||
|
|
||||||
|
.PHONY: tags distdir check-TESTS info dvi installcheck install-exec \
|
||||||
|
install-data install uninstall all installdirs mostlyclean-generic \
|
||||||
|
distclean-generic clean-generic maintainer-clean-generic clean \
|
||||||
|
mostlyclean distclean maintainer-clean
|
||||||
|
|
||||||
|
|
||||||
|
# Tell versions [3.59,3.63) of GNU make to not export all variables.
|
||||||
|
# Otherwise a system limit (for SysV at least) may be exceeded.
|
||||||
|
.NOEXPORT:
|
||||||
31
tests/ls-2/Test.pm
Normal file
31
tests/ls-2/Test.pm
Normal file
@@ -0,0 +1,31 @@
|
|||||||
|
# -*-perl-*-
|
||||||
|
package Test;
|
||||||
|
require 5.002;
|
||||||
|
use strict;
|
||||||
|
|
||||||
|
# Always copy filename arguments from $srcdir to current directory
|
||||||
|
# before running ls on them. Otherwise, we'd have to factor out
|
||||||
|
# differences in $srcdir from the expected output.
|
||||||
|
$Test::copy_fileargs_default = 1;
|
||||||
|
|
||||||
|
sub test_vector
|
||||||
|
{
|
||||||
|
my @tv =
|
||||||
|
(
|
||||||
|
# test-name options input expected-output expected-return-code
|
||||||
|
#
|
||||||
|
['q-', '', {"q\a" => 'contents'}, "q\a\n", 0],
|
||||||
|
['q-N', '-N', {"q\a" => ''}, "q\a\n", 0],
|
||||||
|
['q-q', '-q', {"q\a" => ''}, "q?\n", 0],
|
||||||
|
['q-Q', '-Q', {"q\a" => ''}, "\"q\\a\"\n", 0],
|
||||||
|
['q-qs-lit', '--quoting=literal', {"q\a" => ''}, "q\a\n", 0],
|
||||||
|
['q-qs-sh', '--quoting=shell', {"q\a" => ''}, "q\a\n", 0],
|
||||||
|
['q-qs-sh-a', '--quoting=shell-always', {"q\a" => ''}, "'q\a'\n", 0],
|
||||||
|
['q-qs-c', '--quoting=c', {"q\a" => ''}, "\"q\\a\"\n", 0],
|
||||||
|
['q-qs-esc', '--quoting=escape', {"q\a" => ''}, "q\\a\n", 0],
|
||||||
|
);
|
||||||
|
|
||||||
|
return @tv;
|
||||||
|
}
|
||||||
|
|
||||||
|
1;
|
||||||
35
tests/ls-2/quoting
Executable file
35
tests/ls-2/quoting
Executable file
@@ -0,0 +1,35 @@
|
|||||||
|
#!/usr/bin/perl -w
|
||||||
|
require 5.003;
|
||||||
|
use strict;
|
||||||
|
|
||||||
|
(my $program_name = $0) =~ s|.*/||;
|
||||||
|
|
||||||
|
# Make sure the tools use the expected locale.
|
||||||
|
$ENV{LANGUAGE} = 'C';
|
||||||
|
$ENV{LC_ALL} = 'C';
|
||||||
|
$ENV{LANG} = 'C';
|
||||||
|
|
||||||
|
my $q_bell = {IN => {"q\a" => ''}};
|
||||||
|
my @Tests =
|
||||||
|
(
|
||||||
|
# test-name options input expected-output
|
||||||
|
#
|
||||||
|
['q-', $q_bell, {OUT => "q\a\n"}, {EXIT => 0}],
|
||||||
|
['q-N', '-N', $q_bell, {OUT => "q\a\n"}, {ERR => ''}],
|
||||||
|
['q-q', '-q', $q_bell, {OUT => "q?\n"}],
|
||||||
|
['q-Q', '-Q', $q_bell, {OUT => "\"q\\a\"\n"}],
|
||||||
|
|
||||||
|
['q-lit-q', '--quoting=literal -q', $q_bell, {OUT => "q?\n"}],
|
||||||
|
['q-qs-lit', '--quoting=literal', $q_bell, {OUT => "q\a\n"}],
|
||||||
|
['q-qs-sh', '--quoting=shell', $q_bell, {OUT => "q\a\n"}],
|
||||||
|
['q-qs-sh-a', '--quoting=shell-always', $q_bell, {OUT => "'q\a'\n"}],
|
||||||
|
['q-qs-c', '--quoting=c', $q_bell, {OUT => "\"q\\a\"\n"}],
|
||||||
|
['q-qs-esc', '--quoting=escape', $q_bell, {OUT => "q\\a\n"}],
|
||||||
|
);
|
||||||
|
|
||||||
|
my $save_temps = 0;
|
||||||
|
my $verbose = $ENV{VERBOSE};
|
||||||
|
|
||||||
|
my $prog = $ENV{LS} || 'ls';
|
||||||
|
my $fail = run_tests ($program_name, $prog, \@Tests, $save_temps, $verbose);
|
||||||
|
exit $fail;
|
||||||
13
tests/ls-2/run-test
Executable file
13
tests/ls-2/run-test
Executable file
@@ -0,0 +1,13 @@
|
|||||||
|
#!/bin/sh
|
||||||
|
|
||||||
|
: ${PERL=perl}
|
||||||
|
: ${srcdir=.}
|
||||||
|
|
||||||
|
case "$PERL" in
|
||||||
|
*'missing perl')
|
||||||
|
echo 1>&2 "$0: configure didn't find a usable version of Perl, so can't run this test"
|
||||||
|
exit 77
|
||||||
|
;;
|
||||||
|
esac
|
||||||
|
|
||||||
|
exec $PERL -w -I$srcdir -MFetish -- $srcdir/quoting
|
||||||
@@ -4,7 +4,6 @@
|
|||||||
# This Makefile.in is free software; the Free Software Foundation
|
# This Makefile.in is free software; the Free Software Foundation
|
||||||
# gives unlimited permission to copy and/or distribute it,
|
# gives unlimited permission to copy and/or distribute it,
|
||||||
# with or without modifications, as long as this notice is preserved.
|
# with or without modifications, as long as this notice is preserved.
|
||||||
|
|
||||||
# This program is distributed in the hope that it will be useful,
|
# This program is distributed in the hope that it will be useful,
|
||||||
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
|
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
|
||||||
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
|
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
|
||||||
|
|||||||
@@ -20,8 +20,8 @@ a2="$other_partition_tmpdir/a~"
|
|||||||
|
|
||||||
framework_failure=0
|
framework_failure=0
|
||||||
$RM -f $a $a2 || framework_failure=1
|
$RM -f $a $a2 || framework_failure=1
|
||||||
: > $a || framework_failure=1
|
echo a > $a || framework_failure=1
|
||||||
echo a > $a2 || framework_failure=1
|
echo a2 > $a2 || framework_failure=1
|
||||||
|
|
||||||
if test $framework_failure = 1; then
|
if test $framework_failure = 1; then
|
||||||
echo 'failure in testing framework'
|
echo 'failure in testing framework'
|
||||||
|
|||||||
@@ -1,4 +1,5 @@
|
|||||||
#! /bin/sh
|
#! /bin/sh
|
||||||
|
# Demonstrate how mv fails when it tries to move a directory into itself.
|
||||||
|
|
||||||
: ${MV=mv}
|
: ${MV=mv}
|
||||||
: ${MKDIR=mkdir}
|
: ${MKDIR=mkdir}
|
||||||
@@ -20,13 +21,37 @@ if test $test_failure = 1; then
|
|||||||
fi
|
fi
|
||||||
|
|
||||||
fail=0
|
fail=0
|
||||||
$MV $dir $file $dir || fail=1
|
|
||||||
|
# Make sure we get English translations.
|
||||||
|
LANGUAGE=C
|
||||||
|
export LANGUAGE
|
||||||
|
LC_ALL=C
|
||||||
|
export LC_ALL
|
||||||
|
LANG=C
|
||||||
|
export LANG
|
||||||
|
|
||||||
|
# This mv command should fail.
|
||||||
|
$MV $dir $file $dir > out 2>&1 && fail=1
|
||||||
|
|
||||||
|
sed \
|
||||||
|
-e "s,$MV:,XXX:," \
|
||||||
|
-e "s,$dir,SRC," \
|
||||||
|
-e "s,$dir/$dir,DEST," \
|
||||||
|
out > out2
|
||||||
|
|
||||||
|
cat > exp <<\EOF
|
||||||
|
XXX: cannot move `SRC' to a subdirectory of itself, `DEST'
|
||||||
|
EOF
|
||||||
|
|
||||||
|
cmp out2 exp || fail=1
|
||||||
|
|
||||||
# Make sure the file is gone.
|
# Make sure the file is gone.
|
||||||
test -f $file && fail=1
|
test -f $file && fail=1
|
||||||
# Make sure the directory is *not* gone.
|
# Make sure the directory is *not* moved.
|
||||||
test -d $dir/$dir/a/b || fail=1
|
test -d $dir || fail=1
|
||||||
|
test -d $dir/$dir && fail=1
|
||||||
# Make sure the file has been moved to the right place.
|
# Make sure the file has been moved to the right place.
|
||||||
test -f $dir/$file || fail=1
|
test -f $dir/$file || fail=1
|
||||||
$RM -rf $dir $file
|
$RM -rf $dir $file out out2 exp
|
||||||
|
|
||||||
exit $fail
|
exit $fail
|
||||||
|
|||||||
@@ -7,8 +7,12 @@
|
|||||||
: ${DF=df}
|
: ${DF=df}
|
||||||
: ${MKDIR=mkdir}
|
: ${MKDIR=mkdir}
|
||||||
|
|
||||||
# Try these
|
: ${CANDIDATE_TMP_DIRS=not_set}
|
||||||
: ${CANDIDATE_TMP_DIRS="$TMPDIR /tmp /var/tmp /usr/tmp $HOME"}
|
|
||||||
|
# Work around a bug in the way Ultrix4.3a's /bin/sh handles multi-word
|
||||||
|
# variables set with ${VAR="VALUE"}
|
||||||
|
test "$CANDIDATE_TMP_DIRS" = not_set \
|
||||||
|
&& CANDIDATE_TMP_DIRS="$TMPDIR /tmp /var/tmp /usr/tmp $HOME"
|
||||||
|
|
||||||
other_partition_tmpdir=
|
other_partition_tmpdir=
|
||||||
|
|
||||||
|
|||||||
@@ -4,7 +4,6 @@
|
|||||||
# This Makefile.in is free software; the Free Software Foundation
|
# This Makefile.in is free software; the Free Software Foundation
|
||||||
# gives unlimited permission to copy and/or distribute it,
|
# gives unlimited permission to copy and/or distribute it,
|
||||||
# with or without modifications, as long as this notice is preserved.
|
# with or without modifications, as long as this notice is preserved.
|
||||||
|
|
||||||
# This program is distributed in the hope that it will be useful,
|
# This program is distributed in the hope that it will be useful,
|
||||||
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
|
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
|
||||||
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
|
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
|
||||||
|
|||||||
@@ -15,7 +15,7 @@ tmp=$RM_TMPDIR/t-rm.$$
|
|||||||
|
|
||||||
test_failure=0
|
test_failure=0
|
||||||
mkdir $tmp || test_failure=1
|
mkdir $tmp || test_failure=1
|
||||||
: > $tmp/a || test_failure=1
|
echo > $tmp/a || test_failure=1
|
||||||
test -f $tmp/a || test_failure=1
|
test -f $tmp/a || test_failure=1
|
||||||
|
|
||||||
if test $test_failure = 1; then
|
if test $test_failure = 1; then
|
||||||
|
|||||||
65
tests/stty/basic-1
Executable file
65
tests/stty/basic-1
Executable file
@@ -0,0 +1,65 @@
|
|||||||
|
#! /bin/sh
|
||||||
|
# Make sure stty can parse most of its options.
|
||||||
|
|
||||||
|
: ${STTY=stty}
|
||||||
|
|
||||||
|
if test "$VERBOSE" = yes; then
|
||||||
|
set -x
|
||||||
|
$RM --version
|
||||||
|
fi
|
||||||
|
|
||||||
|
# The following list of reversible options was generated with
|
||||||
|
# grep -w REV stty.c|sed -n '/^ {"/{s//REV_/;s/".*/=1/;p;}'|fmt
|
||||||
|
REV_parenb=1 REV_parodd=1 REV_hupcl=1 REV_hup=1 REV_cstopb=1 REV_cread=1
|
||||||
|
REV_clocal=1 REV_crtscts=1 REV_ignbrk=1 REV_brkint=1 REV_ignpar=1
|
||||||
|
REV_parmrk=1 REV_inpck=1 REV_istrip=1 REV_inlcr=1 REV_igncr=1 REV_icrnl=1
|
||||||
|
REV_ixon=1 REV_ixoff=1 REV_tandem=1 REV_iuclc=1 REV_ixany=1 REV_imaxbel=1
|
||||||
|
REV_opost=1 REV_olcuc=1 REV_ocrnl=1 REV_onlcr=1 REV_onocr=1 REV_onlret=1
|
||||||
|
REV_ofill=1 REV_ofdel=1 REV_isig=1 REV_icanon=1 REV_iexten=1 REV_echo=1
|
||||||
|
REV_echoe=1 REV_crterase=1 REV_echok=1 REV_echonl=1 REV_noflsh=1
|
||||||
|
REV_xcase=1 REV_tostop=1 REV_echoprt=1 REV_prterase=1 REV_echoctl=1
|
||||||
|
REV_ctlecho=1 REV_echoke=1 REV_crtkill=1 REV_evenp=1 REV_parity=1
|
||||||
|
REV_oddp=1 REV_nl=1 REV_cooked=1 REV_raw=1 REV_pass8=1 REV_litout=1
|
||||||
|
REV_cbreak=1 REV_decctlq=1 REV_tabs=1 REV_lcase=1 REV_LCASE=1
|
||||||
|
|
||||||
|
saved_state=.saved-state
|
||||||
|
$STTY --save > $saved_state || exit 1
|
||||||
|
trap "status=$?; $STTY `cat $saved_state`; exit $status" 0 1 2 3 15
|
||||||
|
$STTY `cat $saved_state` || exit 1
|
||||||
|
|
||||||
|
# Build a list of all boolean options stty accepts on this system.
|
||||||
|
options=`stty -a|tail +2|tr ';' '\012'|sed '/ = /d;s/^ //'|tr -s ' -' '\012'`
|
||||||
|
|
||||||
|
# Take them one at a time, with and without the leading `-'.
|
||||||
|
for opt in $options; do
|
||||||
|
$STTY $opt || exit 1
|
||||||
|
rev=`eval echo "\\\$REV_$opt"`
|
||||||
|
if test -n "$rev"; then
|
||||||
|
$STTY -$opt || exit 1
|
||||||
|
fi
|
||||||
|
done
|
||||||
|
|
||||||
|
if test -n "$RUN_LONG_TESTS"; then
|
||||||
|
# Take them in pairs.
|
||||||
|
for opt1 in $options; do
|
||||||
|
echo .|tr -d '\012'
|
||||||
|
for opt2 in $options; do
|
||||||
|
|
||||||
|
$STTY $opt1 $opt2 || exit 1
|
||||||
|
|
||||||
|
rev1=`eval echo "\\\$REV_$opt1"`
|
||||||
|
rev2=`eval echo "\\\$REV_$opt2"`
|
||||||
|
if test -n "$rev1"; then
|
||||||
|
$STTY -$opt1 $opt2 || exit 1
|
||||||
|
fi
|
||||||
|
if test -n "$rev2"; then
|
||||||
|
$STTY $opt1 -$opt2 || exit 1
|
||||||
|
fi
|
||||||
|
if test "$rev1$rev2" = 11; then
|
||||||
|
$STTY -$opt1 -$opt2 || exit 1
|
||||||
|
fi
|
||||||
|
done
|
||||||
|
done
|
||||||
|
fi
|
||||||
|
|
||||||
|
exit 0
|
||||||
@@ -4,7 +4,6 @@
|
|||||||
# This Makefile.in is free software; the Free Software Foundation
|
# This Makefile.in is free software; the Free Software Foundation
|
||||||
# gives unlimited permission to copy and/or distribute it,
|
# gives unlimited permission to copy and/or distribute it,
|
||||||
# with or without modifications, as long as this notice is preserved.
|
# with or without modifications, as long as this notice is preserved.
|
||||||
|
|
||||||
# This program is distributed in the hope that it will be useful,
|
# This program is distributed in the hope that it will be useful,
|
||||||
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
|
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
|
||||||
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
|
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
|
||||||
|
|||||||
@@ -4,7 +4,6 @@
|
|||||||
# This Makefile.in is free software; the Free Software Foundation
|
# This Makefile.in is free software; the Free Software Foundation
|
||||||
# gives unlimited permission to copy and/or distribute it,
|
# gives unlimited permission to copy and/or distribute it,
|
||||||
# with or without modifications, as long as this notice is preserved.
|
# with or without modifications, as long as this notice is preserved.
|
||||||
|
|
||||||
# This program is distributed in the hope that it will be useful,
|
# This program is distributed in the hope that it will be useful,
|
||||||
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
|
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
|
||||||
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
|
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
|
||||||
|
|||||||
@@ -4,7 +4,6 @@
|
|||||||
# This Makefile.in is free software; the Free Software Foundation
|
# This Makefile.in is free software; the Free Software Foundation
|
||||||
# gives unlimited permission to copy and/or distribute it,
|
# gives unlimited permission to copy and/or distribute it,
|
||||||
# with or without modifications, as long as this notice is preserved.
|
# with or without modifications, as long as this notice is preserved.
|
||||||
|
|
||||||
# This program is distributed in the hope that it will be useful,
|
# This program is distributed in the hope that it will be useful,
|
||||||
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
|
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
|
||||||
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
|
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
|
||||||
|
|||||||
@@ -4,7 +4,6 @@
|
|||||||
# This Makefile.in is free software; the Free Software Foundation
|
# This Makefile.in is free software; the Free Software Foundation
|
||||||
# gives unlimited permission to copy and/or distribute it,
|
# gives unlimited permission to copy and/or distribute it,
|
||||||
# with or without modifications, as long as this notice is preserved.
|
# with or without modifications, as long as this notice is preserved.
|
||||||
|
|
||||||
# This program is distributed in the hope that it will be useful,
|
# This program is distributed in the hope that it will be useful,
|
||||||
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
|
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
|
||||||
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
|
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
|
||||||
|
|||||||
Reference in New Issue
Block a user