commit f0e52b495d0ccbc4929cd2ddb0863b7b56b21a8a
parent 7729c31f99f604c131e4764aa68a170c32523bb1
Author: sin <sin@2f30.org>
Date: Wed, 4 Jun 2014 13:37:30 +0100
Remove dd from hbase - ubase provides it now
Diffstat:
| D | dd/dd.1 | | | 293 | ------------------------------------------------------------------------------- |
| D | dd/dd.c | | | 1035 | ------------------------------------------------------------------------------- |
| D | dd/mkfile | | | 7 | ------- |
| M | mkfile | | | 2 | +- |
4 files changed, 1 insertion(+), 1336 deletions(-)
diff --git a/dd/dd.1 b/dd/dd.1
@@ -1,293 +0,0 @@
-.\"
-.\" Sccsid @(#)dd.1 1.7 (gritter) 1/14/05
-.\"
-.\" Parts taken from dd(1), Unix 7th edition:
-.\" Copyright(C) Caldera International Inc. 2001-2002. All rights reserved.
-.\"
-.\" Redistribution and use in source and binary forms, with or without
-.\" modification, are permitted provided that the following conditions
-.\" are met:
-.\" Redistributions of source code and documentation must retain the
-.\" above copyright notice, this list of conditions and the following
-.\" disclaimer.
-.\" Redistributions in binary form must reproduce the above copyright
-.\" notice, this list of conditions and the following disclaimer in the
-.\" documentation and/or other materials provided with the distribution.
-.\" All advertising materials mentioning features or use of this software
-.\" must display the following acknowledgement:
-.\" This product includes software developed or owned by Caldera
-.\" International, Inc.
-.\" Neither the name of Caldera International, Inc. nor the names of
-.\" other contributors may be used to endorse or promote products
-.\" derived from this software without specific prior written permission.
-.\"
-.\" USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
-.\" INTERNATIONAL, INC. AND CONTRIBUTORS ``AS IS'' AND ANY EXPRESS OR
-.\" IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
-.\" WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-.\" ARE DISCLAIMED. IN NO EVENT SHALL CALDERA INTERNATIONAL, INC. BE
-.\" LIABLE FOR ANY DIRECT, INDIRECT INCIDENTAL, SPECIAL, EXEMPLARY, OR
-.\" CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
-.\" SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
-.\" BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
-.\" WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
-.\" OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
-.\" EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-.TH DD 1 "1/14/05" "Heirloom Toolchest" "User Commands"
-.SH NAME
-dd \- convert and copy a file
-.SH SYNOPSIS
-.B dd
-[option=value] ...
-.SH DESCRIPTION
-.I Dd
-copies the specified input file
-to the specified output with
-possible conversions.
-The standard input and output are used by default.
-The input and output block size may be
-specified to take advantage of raw physical I/O.
-.PP
-.br
-.ns
-.TP 15
-.I option
-.I values
-.br
-.ns
-.TP
-if=
-input file name; standard input is default
-.br
-.ns
-.TP
-of=
-output file name; standard output is default
-.br
-.ns
-.TP
-.RI ibs= n
-input block size
-.I n
-bytes (default 512)
-.br
-.ns
-.TP
-.RI obs= n
-output block size (default 512)
-.br
-.ns
-.TP
-.RI bs= n
-set both input and output block size,
-superseding
-.I ibs
-and
-.I obs;
-also, if no conversion is specified,
-it is particularly efficient since no copy need be done
-.br
-.ns
-.TP
-.RI cbs= n
-conversion buffer size
-.br
-.ns
-.TP
-.RI skip= n
-skip
-.IR n ""
-input records before starting copy
-.br
-.ns
-.TP
-.RI iseek= n
-seek
-.IR n ""
-input records before starting copy
-.br
-.ns
-.TP
-.RI files= n
-copy
-.I n
-files from (tape) input
-.br
-.ns
-.TP
-.RI seek= n
-seek
-.I n
-records from beginning of output file before copying
-.br
-.ns
-.TP
-.RI oseek= n
-same as seek
-.br
-.ns
-.TP
-count=\fIn\fR
-copy only
-.IR n ""
-input records
-.br
-.ns
-.TP
-conv=ascii
-.ds h \h'\w'conv='u'
-convert EBCDIC to ASCII
-.br
-.ns
-.IP \*hebcdic
-convert ASCII to EBCDIC
-.br
-.ns
-.IP \*hibm
-slightly different map of ASCII to EBCDIC
-.br
-.ns
-.IP \*hblock
-convert newline-terminated input lines to blocks
-.br
-.ns
-.IP \*hunblock
-convert blocked input to lines
-.br
-.ns
-.IP \*hlcase
-map alphabetics to lower case
-.br
-.ns
-.IP \*hucase
-map alphabetics to upper case
-.br
-.ns
-.IP \*hswab
-swap every pair of bytes
-.br
-.ns
-.IP \*hnoerror
-do not stop processing on an error
-.br
-.ns
-.IP \*hnotrunc
-do not truncate the output file
-.br
-.ns
-.IP \*hsync
-pad every input record to
-.I ibs
-.br
-.ns
-.IP "\*h... , ..."
-several comma-separated conversions
-.PP
-.fi
-Where sizes are specified,
-a number of bytes is expected.
-A number may end with
-.B "k, b"
-or
-.B w
-to specify multiplication by
-1024, 512, or 2 respectively;
-a pair of numbers may be separated by
-.B x
-to indicate a product.
-.PP
-.I Cbs
-is used only if
-.IR ascii ,
-.IR unblock,
-.IR ebcdic ,
-.IR ibm ,
-or
-.IR block
-conversion is specified.
-In the first two cases,
-.I cbs
-bytes are placed into the conversion buffer, converted to
-ASCII, and trailing blanks trimmed and new-line added
-before sending the line to the output.
-In the latter three cases,
-ASCII characters (bytes) are read into the
-conversion buffer, converted to EBCDIC, and blanks added
-to make up an
-output record of size
-.IR cbs .
-.PP
-Two additional values for the `conv'
-option, `conv=idirect' and `conv=odirect',
-are available as extensions.
-They enable direct i/o on input or output, respectively.
-See the description of the `O_DIRECT' flag in
-.IR open (2)
-for more information.
-`conv=odirect' must be used with care
-as it requires padding for correct operation;
-a write that is not a multiple of an acceptable buffer size will fail.
-This is particularly of concern for the last block written.
-Using `conv=odirect' thus usually requires `conv=sync'
-and cannot be used if such padding destroys the file integrity.
-.PP
-After completion,
-.I dd
-reports the number of whole and partial input and output
-blocks.
-.SH "ENVIRONMENT VARIABLES"
-.TP
-.BR LANG ", " LC_ALL
-See
-.IR locale (7).
-.TP
-.B LC_CTYPE
-Determines the mapping of bytes to characters
-for `conv=lcase' and `conv=ucase'.
-.SH EXAMPLES
-To read an EBCDIC tape blocked ten 80-byte
-EBCDIC card images per record into the ASCII file
-.IR x :
-.IP ""
-dd if=/dev/rmt0 of=x ibs=800 cbs=80 conv=ascii,lcase
-.PP
-Note the use of raw magtape.
-.I Dd
-is especially suited to I/O on the raw
-physical devices because it allows reading
-and writing in arbitrary record sizes.
-.PP
-To skip over a file before copying from magnetic tape do
-.IP ""
-(dd of=/dev/null; dd of=x) </dev/rmt0
-.SH "SEE ALSO"
-cp(1),
-tr(1),
-locale(7)
-.SH DIAGNOSTICS
-f+p records in(out): numbers of full and partial records read(written)
-.SH NOTES
-The ASCII/EBCDIC conversion tables are
-taken
-.\" This was valid for v7/BSD conversion tables.
-.\"from the 256 character standard in
-.\"the CACM Nov, 1968.
-.\" ***
-.\" This is what various AT&T sources and mem(3) of libast say for the
-.\" current tables. The tables itselves are given in the POSIX.2 rationale.
-from a proposed BTL standard April 16, 1979.
-The `ibm' conversion, while less blessed as a standard,
-corresponds better to certain IBM print train conventions.
-There is no universal solution.
-.PP
-When reading from pipes, FIFOs, character devices (e.\|g. terminals),
-or network sockets,
-partial input records can occur at any time
-even before the end of the data stream is reached.
-For the `count' option,
-these are handled exactly like full records.
-Using
-.I dd
-to retrieve exactly
-.IR count * ibs
-bytes from such files does thus not generally work unless `ibs=1'.
diff --git a/dd/dd.c b/dd/dd.c
@@ -1,1035 +0,0 @@
-/*
- * dd - convert and copy
- *
- * Gunnar Ritter, Freiburg i. Br., Germany, January 2003.
- */
-/*
- * Copyright (c) 2003 Gunnar Ritter
- *
- * This software is provided 'as-is', without any express or implied
- * warranty. In no event will the authors be held liable for any damages
- * arising from the use of this software.
- *
- * Permission is granted to anyone to use this software for any purpose,
- * including commercial applications, and to alter it and redistribute
- * it freely, subject to the following restrictions:
- *
- * 1. The origin of this software must not be misrepresented; you must not
- * claim that you wrote the original software. If you use this software
- * in a product, an acknowledgment in the product documentation would be
- * appreciated but is not required.
- *
- * 2. Altered source versions must be plainly marked as such, and must not be
- * misrepresented as being the original software.
- *
- * 3. This notice may not be removed or altered from any source distribution.
- */
-
-#if __GNUC__ >= 3 && __GNUC_MINOR__ >= 4 || __GNUC__ >= 4
-#define USED __attribute__ ((used))
-#elif defined __GNUC__
-#define USED __attribute__ ((unused))
-#else
-#define USED
-#endif
-static const char sccsid[] USED = "@(#)dd.sl 1.30 (gritter) 1/22/06";
-
-#include <sys/types.h>
-#include <sys/stat.h>
-#include <fcntl.h>
-#include <unistd.h>
-#include <stdio.h>
-#include <string.h>
-#include <stdlib.h>
-#include <malloc.h>
-#include <errno.h>
-#include <libgen.h>
-#include <ctype.h>
-#include <locale.h>
-#include <signal.h>
-#include "sigset.h"
-#include <wchar.h>
-#include <wctype.h>
-#include <limits.h>
-
-#include <sys/ioctl.h>
-
-#if defined (__linux__) || defined (__sun) || defined (__FreeBSD__) || \
- defined (__hpux) || defined (_AIX) || defined (__NetBSD__) || \
- defined (__OpenBSD__) || defined (__DragonFly__) || defined (__APPLE__)
-#include <sys/mtio.h>
-#else /* SVR4.2MP */
-#include <sys/scsi.h>
-#include <sys/st01.h>
-#endif /* SVR4.2MP */
-
-#include "atoll.h"
-#include "memalign.h"
-#include "mbtowi.h"
-
-/*
- * For 'conv=ascii'.
- */
-static const unsigned char c_ascii[] = {
-0000,0001,0002,0003,0234,0011,0206,0177,0227,0215,0216,0013,0014,0015,0016,0017,
-0020,0021,0022,0023,0235,0205,0010,0207,0030,0031,0222,0217,0034,0035,0036,0037,
-0200,0201,0202,0203,0204,0012,0027,0033,0210,0211,0212,0213,0214,0005,0006,0007,
-0220,0221,0026,0223,0224,0225,0226,0004,0230,0231,0232,0233,0024,0025,0236,0032,
-0040,0240,0241,0242,0243,0244,0245,0246,0247,0250,0325,0056,0074,0050,0053,0174,
-0046,0251,0252,0253,0254,0255,0256,0257,0260,0261,0041,0044,0052,0051,0073,0176,
-0055,0057,0262,0263,0264,0265,0266,0267,0270,0271,0313,0054,0045,0137,0076,0077,
-0272,0273,0274,0275,0276,0277,0300,0301,0302,0140,0072,0043,0100,0047,0075,0042,
-0303,0141,0142,0143,0144,0145,0146,0147,0150,0151,0304,0305,0306,0307,0310,0311,
-0312,0152,0153,0154,0155,0156,0157,0160,0161,0162,0136,0314,0315,0316,0317,0320,
-0321,0345,0163,0164,0165,0166,0167,0170,0171,0172,0322,0323,0324,0133,0326,0327,
-0330,0331,0332,0333,0334,0335,0336,0337,0340,0341,0342,0343,0344,0135,0346,0347,
-0173,0101,0102,0103,0104,0105,0106,0107,0110,0111,0350,0351,0352,0353,0354,0355,
-0175,0112,0113,0114,0115,0116,0117,0120,0121,0122,0356,0357,0360,0361,0362,0363,
-0134,0237,0123,0124,0125,0126,0127,0130,0131,0132,0364,0365,0366,0367,0370,0371,
-0060,0061,0062,0063,0064,0065,0066,0067,0070,0071,0372,0373,0374,0375,0376,0377
-};
-
-/*
- * For 'conv=ibm'.
- */
-static const unsigned char c_ibm[] = {
-0000,0001,0002,0003,0067,0055,0056,0057,0026,0005,0045,0013,0014,0015,0016,0017,
-0020,0021,0022,0023,0074,0075,0062,0046,0030,0031,0077,0047,0034,0035,0036,0037,
-0100,0132,0177,0173,0133,0154,0120,0175,0115,0135,0134,0116,0153,0140,0113,0141,
-0360,0361,0362,0363,0364,0365,0366,0367,0370,0371,0172,0136,0114,0176,0156,0157,
-0174,0301,0302,0303,0304,0305,0306,0307,0310,0311,0321,0322,0323,0324,0325,0326,
-0327,0330,0331,0342,0343,0344,0345,0346,0347,0350,0351,0255,0340,0275,0137,0155,
-0171,0201,0202,0203,0204,0205,0206,0207,0210,0211,0221,0222,0223,0224,0225,0226,
-0227,0230,0231,0242,0243,0244,0245,0246,0247,0250,0251,0300,0117,0320,0241,0007,
-0040,0041,0042,0043,0044,0025,0006,0027,0050,0051,0052,0053,0054,0011,0012,0033,
-0060,0061,0032,0063,0064,0065,0066,0010,0070,0071,0072,0073,0004,0024,0076,0341,
-0101,0102,0103,0104,0105,0106,0107,0110,0111,0121,0122,0123,0124,0125,0126,0127,
-0130,0131,0142,0143,0144,0145,0146,0147,0150,0151,0160,0161,0162,0163,0164,0165,
-0166,0167,0170,0200,0212,0213,0214,0215,0216,0217,0220,0232,0233,0234,0235,0236,
-0237,0240,0252,0253,0254,0255,0256,0257,0260,0261,0262,0263,0264,0265,0266,0267,
-0270,0271,0272,0273,0274,0275,0276,0277,0312,0313,0314,0315,0316,0317,0332,0333,
-0334,0335,0336,0337,0352,0353,0354,0355,0356,0357,0372,0373,0374,0375,0376,0377
-};
-
-/*
- * For 'conv=ebcdic'.
- */
-static const unsigned char c_ebcdic[] = {
-0000,0001,0002,0003,0067,0055,0056,0057,0026,0005,0045,0013,0014,0015,0016,0017,
-0020,0021,0022,0023,0074,0075,0062,0046,0030,0031,0077,0047,0034,0035,0036,0037,
-0100,0132,0177,0173,0133,0154,0120,0175,0115,0135,0134,0116,0153,0140,0113,0141,
-0360,0361,0362,0363,0364,0365,0366,0367,0370,0371,0172,0136,0114,0176,0156,0157,
-0174,0301,0302,0303,0304,0305,0306,0307,0310,0311,0321,0322,0323,0324,0325,0326,
-0327,0330,0331,0342,0343,0344,0345,0346,0347,0350,0351,0255,0340,0275,0232,0155,
-0171,0201,0202,0203,0204,0205,0206,0207,0210,0211,0221,0222,0223,0224,0225,0226,
-0227,0230,0231,0242,0243,0244,0245,0246,0247,0250,0251,0300,0117,0320,0137,0007,
-0040,0041,0042,0043,0044,0025,0006,0027,0050,0051,0052,0053,0054,0011,0012,0033,
-0060,0061,0032,0063,0064,0065,0066,0010,0070,0071,0072,0073,0004,0024,0076,0341,
-0101,0102,0103,0104,0105,0106,0107,0110,0111,0121,0122,0123,0124,0125,0126,0127,
-0130,0131,0142,0143,0144,0145,0146,0147,0150,0151,0160,0161,0162,0163,0164,0165,
-0166,0167,0170,0200,0212,0213,0214,0215,0216,0217,0220,0152,0233,0234,0235,0236,
-0237,0240,0252,0253,0254,0112,0256,0257,0260,0261,0262,0263,0264,0265,0266,0267,
-0270,0271,0272,0273,0274,0241,0276,0277,0312,0313,0314,0315,0316,0317,0332,0333,
-0334,0335,0336,0337,0352,0353,0354,0355,0356,0357,0372,0373,0374,0375,0376,0377
-};
-
-static char *progname; /* argv[0] to main() */
-
-typedef long long d_type;
-
-static char *iblok; /* input buffer */
-static char *oblok; /* output buffer */
-static char *cblok; /* conversion buffer */
-
-static char mblok[MB_LEN_MAX+1]; /* tow{upper|lower} buffer */
-static char *mbp; /* points to remaining chars in mblok */
-static int mbrest; /* number of remaining chars in mblok */
-
-static const char *iffile; /* input file name */
-static int iffd; /* input file descriptor */
-static const char *offile; /* output file name */
-static int offd; /* output file descriptor */
-static struct stat istat; /* stat of input */
-static struct stat ostat; /* stat of output */
-static d_type ibs = 512; /* input block size */
-static d_type obs = 512; /* output block size */
-static d_type bs; /* size for both buffers */
-static d_type oflow; /* remaining bytes in output buffer */
-static d_type cbs; /* conversion block size */
-static d_type cflow; /* remaining bytes in conv. buffer */
-static int ctrunc; /* truncate current data (conv=block) */
-static d_type skip; /* skip these blocks on input */
-static d_type count = -1; /* no more than count blocks of input */
-static int files = 1; /* read EOF this many times */
-static d_type iseek; /* seek these blocks on input */
-static d_type oseek; /* seek these blocks on output */
-static int mb_cur_max; /* MB_CUR_MAX acceleration */
-
-static d_type iwhole; /* statistics */
-static d_type ipartial;
-static d_type owhole;
-static d_type opartial;
-static d_type truncated;
-
-static enum charconv {
- CHAR_NONE = 0,
- CHAR_ASCII = 1,
- CHAR_EBCDIC = 2,
- CHAR_IBM = 3
-} chars = CHAR_NONE;
-
-static enum conversion {
- CONV_NONE = 0,
- CONV_BLOCK = 01,
- CONV_UNBLOCK = 02,
- CONV_LCASE = 04,
- CONV_UCASE = 010,
- CONV_SWAB = 020,
- CONV_NOERROR = 040,
- CONV_NOTRUNC = 0100,
- CONV_IDIRECT = 0200,
- CONV_ODIRECT = 0400,
- CONV_DIRECT = 0600,
- CONV_SYNC = 01000
-} convs = CONV_NONE;
-
-static struct {
- const char *c_name;
- enum conversion c_conv;
- enum charconv c_char;
-} convtab[] = {
- { "ascii", CONV_UNBLOCK, CHAR_ASCII },
- { "ebcdic", CONV_BLOCK, CHAR_EBCDIC },
- { "ibm", CONV_BLOCK, CHAR_IBM },
- { "block", CONV_BLOCK, CHAR_NONE },
- { "unblock", CONV_UNBLOCK, CHAR_NONE },
- { "lcase", CONV_LCASE, CHAR_NONE },
- { "ucase", CONV_UCASE, CHAR_NONE },
- { "swab", CONV_SWAB, CHAR_NONE },
- { "noerror", CONV_NOERROR, CHAR_NONE },
- { "notrunc", CONV_NOTRUNC, CHAR_NONE },
-#ifdef O_DIRECT
- { "idirect", CONV_IDIRECT, CHAR_NONE },
- { "odirect", CONV_ODIRECT, CHAR_NONE },
-#endif /* O_DIRECT */
- { "sync", CONV_SYNC, CHAR_NONE },
- { NULL, CONV_NONE, CHAR_NONE }
-};
-
-static void *
-bmalloc(size_t nbytes)
-{
- static long pagesize;
- void *vp;
-
- if (pagesize == 0)
- if ((pagesize = sysconf(_SC_PAGESIZE)) < 0)
- pagesize = 4096;
- if ((vp = memalign(pagesize, nbytes)) == NULL) {
- fprintf(stderr, "%s: not enough memory\n", progname);
- fprintf(stderr, "Please use a smaller buffer size\n");
- exit(077);
- }
- return vp;
-}
-
-/************************** ARGUMENT SCANNING ***************************/
-static void
-badarg(const char *arg)
-{
- fprintf(stderr, "%s: bad arg: \"%s\"\n", progname, arg);
- exit(2);
-}
-
-static void
-badnumeric(const char *arg)
-{
- fprintf(stderr, "%s: bad numeric arg: \"%s\"\n", progname, arg);
- exit(2);
-}
-
-static void
-nozeroblok(void)
-{
- fprintf(stderr, "%s: buffer sizes cannot be zero\n", progname);
- exit(2);
-}
-
-/*
- * Get the value of a numeric argument.
- */
-static d_type
-expr(const char *ap)
-{
- d_type val;
- char *x;
- int c;
-
- if (*ap == '-' || *ap == '+')
- badnumeric(ap);
- val = strtoull(ap, &x, 10);
- while ((c = *x++) != '\0') {
- switch (c) {
- case 'k':
- val *= 1024;
- break;
- case 'b':
- val *= 512;
- break;
- case 'w':
- val *= 2;
- break;
- case 'x':
- case '*':
- return val * expr(x);
- default:
- badnumeric(ap);
- }
- }
- return val;
-}
-
-static void
-setin(const char *ap)
-{
- iffile = ap;
-}
-
-static void
-setof(const char *ap)
-{
- offile = ap;
-}
-
-static void
-setibs(const char *ap)
-{
- ibs = expr(ap);
- if (ibs == 0)
- nozeroblok();
-}
-
-static void
-setobs(const char *ap)
-{
- obs = expr(ap);
- if (obs == 0)
- nozeroblok();
-}
-
-static void
-setbs(const char *ap)
-{
- bs = expr(ap);
-}
-
-static void
-setcbs(const char *ap)
-{
- cbs = expr(ap);
-}
-
-static void
-setskip(const char *ap)
-{
- skip = expr(ap);
-}
-
-static void
-setcount(const char *ap)
-{
- count = expr(ap);
-}
-
-static void
-setconv(const char *ap)
-{
- const char *cp, *cq;
- int i;
-
- for (;;) {
- while (*ap == ',')
- ap++;
- if (*ap == '\0')
- break;
- for (i = 0; convtab[i].c_name; i++) {
- for (cp = convtab[i].c_name, cq = ap;
- *cp && (*cp == *cq);
- cp++, cq++);
- if (*cp == '\0' && (*cq == ',' || *cq == '\0')) {
- convs |= convtab[i].c_conv;
- if (convtab[i].c_char != CHAR_NONE)
- chars = convtab[i].c_char;
- ap = cq;
- goto next;
- }
- }
- badarg(ap);
- next:;
- }
-}
-
-static void
-setfiles(const char *ap)
-{
- files = expr(ap);
-}
-
-static void
-setiseek(const char *ap)
-{
- iseek = expr(ap);
-}
-
-static void
-setoseek(const char *ap)
-{
- oseek = expr(ap);
-}
-
-static struct {
- const char *a_name;
- void (*a_func)(const char *);
-} argtab[] = {
- { "if=", setin },
- { "of=", setof },
- { "ibs=", setibs },
- { "obs=", setobs },
- { "bs=", setbs },
- { "cbs=", setcbs },
- { "skip=", setskip },
- { "seek=", setoseek },
- { "count=", setcount },
- { "conv=", setconv },
- { "files=", setfiles },
- { "iseek=", setiseek },
- { "oseek=", setoseek },
- { NULL, NULL }
-};
-
-static const char *
-thisarg(const char *sp, const char *ap)
-{
- do {
- if (*sp != *ap)
- return NULL;
- if (*sp == '=')
- return &sp[1];
- } while (*sp++ && *ap++);
- return NULL;
-}
-
-/******************************* EXECUTION ********************************/
-static void
-stats(void)
-{
- fprintf(stderr, "%llu+%llu records in\n",
- (unsigned long long)iwhole,
- (unsigned long long)ipartial);
- fprintf(stderr, "%llu+%llu records out\n",
- (unsigned long long)owhole,
- (unsigned long long)opartial);
- if (truncated) {
- fprintf(stderr, "%llu truncated record%s\n",
- (unsigned long long)truncated,
- truncated > 1 ? "s" : "");
- }
-}
-
-static void charconv(char *data, size_t size);
-static void bflush(void);
-static void cflush(void);
-static void uflush(void);
-
-static void
-quit(int status)
-{
- if (mbp)
- charconv(NULL, 0);
- cflush();
- uflush();
- bflush();
- stats();
- exit(status);
-}
-
-static void
-onint(int sig)
-{
- stats();
- exit(sig | 0200);
-}
-
-static int
-ontape(void)
-{
- static int yes = -1;
-
- if (yes == -1) {
-#if defined (__linux__) || defined (__FreeBSD__) || defined (__hpux) || \
- defined (_AIX) || defined (__NetBSD__) || defined (__OpenBSD__) || \
- defined (__DragonFly__) || defined (__APPLE__)
- struct mtget mg;
- yes = (istat.st_mode&S_IFMT) == S_IFCHR &&
- ioctl(iffd, MTIOCGET, &mg) == 0;
-#elif defined (__sun)
- struct mtdrivetype_request mr;
- struct mtdrivetype md;
- mr.size = sizeof md;
- mr.mtdtp = &md;
- yes = (istat.st_mode&S_IFMT) == S_IFCHR &&
- ioctl(iffd, MTIOCGETDRIVETYPE, &mr) == 0;
-#else /* SVR4.2MP */
- struct blklen bl;
- yes = (istat.st_mode&S_IFMT) == S_IFCHR &&
- ioctl(iffd, T_RDBLKLEN, &bl) == 0;
-#endif /* SVR4.2MP */
- }
- return yes;
-}
-
-static void
-seekconv(d_type count)
-{
- ssize_t sz;
- off_t offs;
-
- if (lseek(offd, 0, SEEK_CUR) != (off_t)-1) {
- do {
- if ((offs = lseek(offd, obs, SEEK_CUR)) == (off_t)-1) {
- err: fprintf(stderr, "%s: output seek error: %s\n",
- progname, strerror(errno));
- exit(3);
- }
- } while (--count);
- if ((convs & CONV_NOTRUNC) == 0 &&
- (ostat.st_mode&S_IFMT) == S_IFREG)
- ftruncate(offd, offs);
- return;
- }
- while (count) {
- if ((sz = read(offd, oblok, obs)) == 0)
- break;
- if (sz < 0)
- goto err;
- count--;
- }
- if (count) {
- memset(oblok, 0, obs);
- do {
- if ((sz = write(offd, oblok, obs)) < 0)
- goto err;
- } while (--count);
- }
-}
-
-static void
-skipconv(int canseek, d_type count)
-{
- ssize_t rd = 0;
-
- if (canseek && lseek(iffd, 0, SEEK_CUR) == (off_t)-1)
- canseek = 0;
- while (count--) {
- if (canseek) {
- if (lseek(iffd, ibs, SEEK_CUR) != (off_t)-1)
- rd = ibs;
- else if (errno == EINVAL)
- rd = 0;
- else {
- fprintf(stderr, "%s: input seek error: %s\n",
- progname, strerror(errno));
- exit(3);
- }
- } else {
- if ((rd = read(iffd, iblok, ibs)) < 0) {
- fprintf(stderr,
- "%s: read error during skip: %s\n",
- progname, strerror(errno));
- exit(3);
- }
- }
- if (rd == 0 && files-- <= 1) {
- fprintf(stderr, "%s: cannot skip past end-of-file\n",
- progname);
- exit(3);
- }
- }
-}
-
-static void
-prepare(void)
-{
- int flags;
-
- if (bs)
- ibs = obs = bs;
- iblok = bmalloc(ibs);
- if (!(bs && chars == CHAR_NONE &&
- (convs|CONV_SYNC|CONV_NOERROR|CONV_NOTRUNC|CONV_DIRECT)
- == (CONV_SYNC|CONV_NOERROR|CONV_NOTRUNC|CONV_DIRECT)))
- oblok = bmalloc(obs);
- if (cbs > 0) {
- if ((convs & (CONV_BLOCK|CONV_UNBLOCK)) == 0) {
- fprintf(stderr,
- "%s: cbs must be zero if no block conversion requested\n",
- progname);
- exit(2);
- }
- cblok = bmalloc(cbs + 1);
- } else
- convs &= ~(CONV_BLOCK|CONV_UNBLOCK);
- if ((iffd = iffile ? open(iffile, O_RDONLY) : dup(0)) < 0) {
- fprintf(stderr, "%s: cannot open %s: %s\n", progname,
- iffile ? iffile : "", strerror(errno));
- exit(1);
- }
- fstat(iffd, &istat);
-#ifdef O_DIRECT
- if (convs & CONV_IDIRECT) {
- int flags;
- flags = fcntl(iffd, F_GETFL);
- fcntl(iffd, F_SETFL, flags | O_DIRECT);
- }
-#endif /* O_DIRECT */
- if (skip)
- skipconv(0, skip);
- else if (iseek)
- skipconv(1, iseek);
- flags = O_RDWR | O_CREAT;
- if ((convs & CONV_NOTRUNC) == 0 && oseek == 0)
- flags |= O_TRUNC;
- if ((offd = offile ? open(offile, flags, 0666) : dup(1)) < 0) {
- fprintf(stderr, "%s: cannot %s %s: %s\n",
- progname,
- flags & O_TRUNC ? "create" : "open",
- offile ? offile : "", strerror(errno));
- exit(1);
- }
- fstat(offd, &ostat);
-#ifdef O_DIRECT
- if (convs & CONV_ODIRECT) {
- int flags;
- flags = fcntl(offd, F_GETFL);
- fcntl(offd, F_SETFL, flags | O_DIRECT);
- }
-#endif /* O_DIRECT */
- if (oseek)
- seekconv(oseek);
-}
-
-static void
-swabconv(char *data, size_t size)
-{
- char c;
-
- while (size > 1) {
- c = data[0];
- data[0] = data[1];
- data[1] = c;
- size -= 2;
- data += 2;
- }
-}
-
-static void
-ascconv(char *data, size_t size)
-{
- while (size--) {
- *data = c_ascii[*data & 0377];
- data++;
- }
-}
-
-static ssize_t
-swrite(const char *data, size_t size)
-{
- ssize_t wt;
-
- for (;;) {
- if ((wt = write(offd, data, size)) <= 0) {
- if (errno == EINTR)
- continue;
- fprintf(stderr, "%s: write error: %s\n",
- progname, strerror(errno));
- oflow = 0;
- offd = -1;
- quit(1);
- }
- break;
- }
- return wt;
-}
-
-/*
- * Write without output buffering (if bs= was specified).
- */
-static void
-dwrite(const char *data, size_t size)
-{
- ssize_t wrt;
-
- do {
- wrt = swrite(data, size);
- if (wrt == obs)
- owhole++;
- else
- opartial++;
- data += wrt;
- size -= wrt;
- } while (size > 0);
-}
-
-/*
- * Write to output buffer. On short write, remaining data is kept within
- * the buffer and written next time again. Might a warning be useful in
- * this case?
- */
-static void
-bwrite(const char *data, size_t size)
-{
- ssize_t wrt;
- size_t di;
-
- while (oflow + size > obs) {
- di = obs - oflow;
- size -= di;
- if (oflow) {
- memcpy(&oblok[oflow], data, di);
- wrt = swrite(oblok, obs);
- } else
- wrt = swrite(data, obs);
- if (wrt != obs) {
- memcpy(oblok, &(oflow ? oblok : data)[wrt], obs - wrt);
- opartial++;
- } else
- owhole++;
- oflow = obs - wrt;
- data += di;
- }
- if (size == obs) {
- if ((wrt = swrite(data, obs)) == obs)
- owhole++;
- else
- opartial++;
- size -= wrt;
- data += wrt;
- }
- if (size) {
- memcpy(&oblok[oflow], data, size);
- oflow += size;
- }
-}
-
-static void
-bflush(void)
-{
- ssize_t wrt;
-
- if (offd >= 0) {
- while (oflow) {
- if ((wrt = swrite(oblok, oflow)) != oflow)
- memcpy(oblok, &oblok[wrt], obs - wrt);
- oflow -= wrt;
- opartial++;
- }
- if (close(offd) < 0) {
- fprintf(stderr, "%s: write error: %s\n",
- progname, strerror(errno));
- offd = -1;
- quit(1);
- }
- offd = -1;
- }
-}
-
-/*
- * Handle conversions to EBCDIC.
- */
-static void
-ewrite(char *data, size_t size)
-{
- char *dt = data;
- size_t sz = size;
- if (chars == CHAR_EBCDIC) {
- while (sz--) {
- *dt = c_ebcdic[*dt & 0377];
- dt++;
- }
- } else if (chars == CHAR_IBM) {
- while (sz--) {
- *dt = c_ibm[*dt & 0377];
- dt++;
- }
- }
- bwrite(data, size);
-}
-
-/*
- * Handle 'conv=block'.
- */
-static void
-cflush(void)
-{
- if (convs & CONV_BLOCK && cflow) {
- while (cflow < cbs)
- cblok[cflow++] = ' ';
- ewrite(cblok, cbs);
- cflow = 0;
- }
-}
-
-static void
-cwrite(const char *data, size_t size)
-{
- while (size) {
- if (ctrunc == 0) {
- cblok[cflow] = *data++;
- if (cblok[cflow] == '\n') {
- if (cflow == 0)
- cblok[cflow++] = ' ';
- cflush();
- } else if (++cflow == cbs) {
- cflush();
- ctrunc = 1;
- }
- } else {
- if (*data++ == '\n')
- ctrunc = 0;
- else if (ctrunc == 1) {
- truncated++;
- ctrunc = 2;
- }
- }
- size--;
- }
-}
-
-/*
- * Handle 'conv=unblock'.
- */
-static void
-uflush(void)
-{
- char *cp;
-
- if (cflow) {
- for (cp = &cblok[cflow-1]; cp >= cblok && *cp == ' '; cp--);
- cp[1] = '\n';
- bwrite(cblok, cp - cblok + 2);
- cflow = 0;
- }
-}
-
-static void
-uwrite(const char *data, size_t size)
-{
- while (size) {
- while (cflow < cbs) {
- cblok[cflow++] = *data++;
- if (--size == 0)
- return;
- }
- uflush();
- }
-}
-
-static void
-blokconv(char *data, size_t size)
-{
- switch (chars) {
- case CHAR_EBCDIC:
- case CHAR_IBM:
- if ((convs & (CONV_BLOCK|CONV_UNBLOCK)) == 0) {
- ewrite(data, size);
- break;
- }
- /*FALLTHRU*/
- default:
- if (convs & CONV_BLOCK)
- cwrite(data, size);
- else if (convs & CONV_UNBLOCK)
- uwrite(data, size);
- else
- bwrite(data, size);
- break;
- }
-}
-
-static void
-charconv(char *data, size_t size)
-{
- if (convs & (CONV_LCASE|CONV_UCASE)) {
- if (mb_cur_max > 1) {
- /*
- * Multibyte case conversion is somewhat ugly
- * with dd as there is no guarantee that a
- * character fits in an input block. We need
- * another intermediate therefore to store
- * incomplete multibyte sequences.
- */
- int i, n, len;
- wint_t wc;
- int flush = size == 0;
-
- while (size > 0 || (flush && mbrest)) {
- i = 0;
- if (mbrest && mbp && mbp > mblok) {
- do
- mblok[i] = mbp[i];
- while (i++, --mbrest);
- } else if (mbp == mblok) {
- i = mbrest;
- mbrest = 0;
- }
- if (i == 0 && size) {
- mblok[i++] = *data++;
- size--;
- }
- if (mblok[0] & 0200) {
- while (i < mb_cur_max && size) {
- mblok[i++] = *data++;
- size--;
- }
- if (!flush && i < mb_cur_max) {
- mbp = mblok;
- mbrest = i;
- return;
- }
- if ((n = mbtowi(&wc, mblok, i)) < 0) {
- len = 1;
- wc = WEOF;
- } else if (n == 0)
- len = 1;
- else
- len = n;
- } else {
- wc = mblok[0];
- len = n = 1;
- }
- if (i > 0) {
- mbrest = i - len;
- mbp = &mblok[len];
- } else {
- mbrest = 0;
- mbp = NULL;
- }
- if (wc != WEOF) {
- char new[MB_LEN_MAX + 1];
-
- if (convs & CONV_LCASE)
- wc = wc & ~(wchar_t)0177 ?
- towlower(wc) :
- tolower(wc);
- if (convs & CONV_UCASE)
- wc = wc & ~(wchar_t)0177 ?
- towupper(wc) :
- toupper(wc);
- if ((n = wctomb(new, wc)) > 0)
- blokconv(new, n);
- else
- goto inv;
- } else
- inv: blokconv(mblok, len);
- }
- return;
- } else {
- char *dp = data;
- size_t sz = size;
-
- while (sz--) {
- if (convs & CONV_LCASE)
- *dp = tolower(*dp & 0377);
- if (convs & CONV_UCASE)
- *dp = toupper(*dp & 0377);
- dp++;
- }
- }
- }
- blokconv(data, size);
-}
-
-static void
-dd(void)
-{
- ssize_t rd;
-
- while (count == -1 || count > 0) {
- if ((rd = read(iffd, iblok, ibs)) < ibs) {
- if (rd < 0) {
- fprintf(stderr, "%s: read error: %s\n",
- progname, strerror(errno));
- if (convs & CONV_NOERROR) {
- stats();
- if (!ontape())
- lseek(iffd, ibs, SEEK_CUR);
- if (convs & CONV_SYNC)
- rd = 0;
- else
- continue;
- } else
- quit(1);
- } else if (rd == 0) {
- if (files-- <= 1)
- break;
- continue;
- } else if (rd > 0)
- ipartial++;
- if (convs & CONV_SYNC) {
- int c;
-
- c = convs&(CONV_BLOCK|CONV_UNBLOCK) ? ' ' : 0;
- memset(&iblok[rd], c, ibs - rd);
- rd = ibs;
- }
- } else
- iwhole++;
- if (count > 0)
- count--;
- if (bs && chars == CHAR_NONE &&
- (convs|CONV_SYNC|CONV_NOERROR|CONV_NOTRUNC|CONV_DIRECT)
- == (CONV_SYNC|CONV_NOERROR|CONV_NOTRUNC|CONV_DIRECT))
- dwrite(iblok, rd);
- else {
- if (convs & CONV_SWAB)
- swabconv(iblok, rd);
- if (chars == CHAR_ASCII)
- ascconv(iblok, rd);
- charconv(iblok, rd);
- }
- }
-}
-
-int
-main(int argc, char **argv)
-{
- const char *cp;
- int o, i;
-
- progname = basename(argv[0]);
- setlocale(LC_CTYPE, "");
- mb_cur_max = MB_CUR_MAX;
- if (argc > 1 && argv[1][0] == '-' && argv[1][1] == '-' &&
- argv[1][2] == '\0')
- o = 2;
- else
- o = 1;
- while (o < argc) {
- for (i = 0; argtab[i].a_name; i++) {
- if ((cp = thisarg(argv[o], argtab[i].a_name)) != 0) {
- argtab[i].a_func(cp);
- break;
- }
- }
- if (argtab[i].a_name == NULL)
- badarg(argv[o]);
- o++;
- }
- if ((sigset(SIGINT, SIG_IGN)) != SIG_IGN)
- sigset(SIGINT, onint);
- prepare();
- dd();
- quit(0);
- /*NOTREACHED*/
- return 0;
-}
diff --git a/dd/mkfile b/dd/mkfile
@@ -1,7 +0,0 @@
-BIN = dd
-OBJ = dd.o
-INSTALL_BIN = dd
-INSTALL_MAN1 = dd.1
-DEPS = libcommon
-
-<$mkbuild/mk.default
diff --git a/mkfile b/mkfile
@@ -1,5 +1,5 @@
TARG = _install find sed ed grep expr od stty awk \
- patch diff printf dc dd fmt hd bc ps pgrep cp mk \
+ patch diff printf dc fmt hd bc ps pgrep cp mk \
libcommon libuxre lex yacc
<$mkbuild/mk.parent
