Apple-2gs-SW/gno
1
0
Fork 0
mirror of https://github.com/GnoConsortium/gno.git synced 2024-06-10 03:29:29 +00:00
Code Issues Projects Releases Wiki Activity

tr(1), as contributed by Dave Tribby

Browse Source
This commit is contained in:
gdr 1997-09-21 22:20:37 +00:00
parent 8a461e09b4
commit 645cb5834d
18 changed files with 1736 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
usr.bin/tr/Makefile Normal file
View File

@ -0,0 +1,25 @@
#
# This makefile is intended for use with dmake(1) on Apple IIGS
#
# Created by Dave Tribby, August 1997
# Program name
PROG= tr
# Source files
SRCS= tr.c str.c
# If optimization wasn't set on the command line use 79, since
# tr has been tested to work at that level.
.IF $(OPTIMIZE) == $(NULL)
OPTIMIZE=79
.END
.INCLUDE : <gno.prog.mk>
#
# Additional dependancies
#
tr.o:: extern.h
str.o:: extern.h

51
usr.bin/tr/extern.h Normal file
View File

@ -0,0 +1,51 @@
/*-
* Copyright (c) 1991, 1993
* The Regents of the University of California. All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. 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.
* 3. All advertising materials mentioning features or use of this software
* must display the following acknowledgement:
* This product includes software developed by the University of
* California, Berkeley and its contributors.
* 4. Neither the name of the University nor the names of its contributors
* may be used to endorse or promote products derived from this software
* without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE REGENTS 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 THE REGENTS OR CONTRIBUTORS 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.
*
* @(#)extern.h 8.1 (Berkeley) 6/6/93
*/
typedef struct {
enum { STRING1, STRING2 } which;
enum { EOS, INFINITE, NORMAL, RANGE, SEQUENCE, SET } state;
int cnt; /* character count */
int lastch; /* last character */
int equiv[2]; /* equivalence set */
int *set; /* set of characters */
char *str; /* user's string */
} STR;
#include <limits.h>
#define NCHARS (UCHAR_MAX + 1) /* Number of possible characters. */
#define OOBCH (UCHAR_MAX + 1) /* Out of band character value. */
void err __P((const char *fmt, ...));
int next __P((STR *));

402
usr.bin/tr/str.c Normal file
View File

@ -0,0 +1,402 @@
/*-
* Copyright (c) 1991, 1993
* The Regents of the University of California. All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. 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.
* 3. All advertising materials mentioning features or use of this software
* must display the following acknowledgement:
* This product includes software developed by the University of
* California, Berkeley and its contributors.
* 4. Neither the name of the University nor the names of its contributors
* may be used to endorse or promote products derived from this software
* without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE REGENTS 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 THE REGENTS OR CONTRIBUTORS 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.
*/
/*
* Modified for GNO (Apple IIGS) by Dave Tribby, August 1997
*
* Constructs unacceptable to compiler are replaced using #ifndef __ORCAC__
*
* Changes not related to compiler are replaced using #ifndef __GNO__
*
* Added prototyped headers, surrounded by #ifndef __STDC__
*/
#ifndef __GNO__
#ifndef lint
static char sccsid[] = "@(#)str.c 8.2 (Berkeley) 4/28/95";
#endif /* not lint */
#endif
#include <sys/cdefs.h>
#include <sys/types.h>
#include <errno.h>
#include <stddef.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#include "extern.h"
static int backslash __P((STR *));
static int bracket __P((STR *));
static int c_class __P((const void *, const void *));
static void genclass __P((STR *));
static void genequiv __P((STR *));
static int genrange __P((STR *));
static void genseq __P((STR *));
int
#ifndef __STDC__
next(s)
register STR *s;
#else
next(register STR *s)
#endif
{
register int ch;
switch (s->state) {
case EOS:
return (0);
case INFINITE:
return (1);
case NORMAL:
switch (ch = (u_char)*s->str) {
case '\0':
s->state = EOS;
return (0);
case '\\':
s->lastch = backslash(s);
break;
case '[':
if (bracket(s))
return (next(s));
/* FALLTHROUGH */
default:
++s->str;
s->lastch = ch;
break;
}
/* We can start a range at any time. */
if (s->str[0] == '-' && genrange(s))
return (next(s));
return (1);
case RANGE:
if (s->cnt-- == 0) {
s->state = NORMAL;
return (next(s));
}
++s->lastch;
return (1);
case SEQUENCE:
if (s->cnt-- == 0) {
s->state = NORMAL;
return (next(s));
}
return (1);
case SET:
if ((s->lastch = s->set[s->cnt++]) == OOBCH) {
s->state = NORMAL;
return (next(s));
}
return (1);
}
/* NOTREACHED */
}
static int
#ifndef __STDC__
bracket(s)
register STR *s;
#else
bracket(register STR *s)
#endif
{
register char *p;
switch (s->str[1]) {
case ':': /* "[:class:]" */
if ((p = strstr(s->str + 2, ":]")) == NULL)
return (0);
*p = '\0';
s->str += 2;
genclass(s);
s->str = p + 2;
return (1);
case '=': /* "[=equiv=]" */
if ((p = strstr(s->str + 2, "=]")) == NULL)
return (0);
s->str += 2;
genequiv(s);
return (1);
default: /* "[\###*n]" or "[#*n]" */
if ((p = strpbrk(s->str + 2, "*]")) == NULL)
return (0);
if (p[0] != '*' || index(p, ']') == NULL)
return (0);
s->str += 1;
genseq(s);
return (1);
}
/* NOTREACHED */
}
typedef struct {
char *name;
int (*func) __P((int));
int *set;
} CLASS;
/* Change for GNO: move all the undefs out from among the classes[] */
/* array initializations. Add prototypes so lint is happy. */
#undef isalnum
#undef isalpha
#undef isblank
#undef iscntrl
#undef isdigit
#undef isgraph
#undef islower
#undef isprint
#undef ispunct
#undef isspace
#undef isupper
#undef isxdigit
extern int isalnum __P((int));
extern int isalpha __P((int));
extern int isblank __P((int));
extern int iscntrl __P((int));
extern int isdigit __P((int));
extern int isgraph __P((int));
extern int islower __P((int));
extern int isprint __P((int));
extern int ispunct __P((int));
extern int isspace __P((int));
extern int isupper __P((int));
extern int isxdigit __P((int));
static CLASS classes[] = {
{ "alnum", isalnum, },
{ "alpha", isalpha, },
{ "blank", isblank, },
{ "cntrl", iscntrl, },
{ "digit", isdigit, },
{ "graph", isgraph, },
{ "lower", islower, },
{ "print", isprint, },
{ "punct", ispunct, },
{ "space", isspace, },
{ "upper", isupper, },
{ "xdigit", isxdigit, },
};
static void
#ifndef __STDC__
genclass(s)
STR *s;
#else
genclass(STR *s)
#endif
{
register int cnt, (*func) __P((int));
CLASS *cp, tmp;
int *p;
tmp.name = s->str;
if ((cp = (CLASS *)bsearch(&tmp, classes, sizeof(classes) /
sizeof(CLASS), sizeof(CLASS), c_class)) == NULL)
err("unknown class %s", s->str);
if ((cp->set = p = malloc((NCHARS + 1) * sizeof(int))) == NULL)
err("%s", strerror(errno));
bzero(p, (NCHARS + 1) * sizeof(int));
for (cnt = 0, func = cp->func; cnt < NCHARS; ++cnt)
if ((func)(cnt))
*p++ = cnt;
*p = OOBCH;
s->cnt = 0;
s->state = SET;
s->set = cp->set;
}
static int
#ifndef __STDC__
c_class(a, b)
const void *a, *b;
#else
c_class(const void *a, const void *b)
#endif
{
return (strcmp(((CLASS *)a)->name, ((CLASS *)b)->name));
}
/*
* English doesn't have any equivalence classes, so for now
* we just syntax check and grab the character.
*/
static void
#ifndef __STDC__
genequiv(s)
STR *s;
#else
genequiv(STR *s)
#endif
{
if (*s->str == '\\') {
s->equiv[0] = backslash(s);
if (*s->str != '=')
err("misplaced equivalence equals sign");
} else {
s->equiv[0] = s->str[0];
if (s->str[1] != '=')
err("misplaced equivalence equals sign");
}
s->str += 2;
s->cnt = 0;
s->state = SET;
s->set = s->equiv;
}
static int
#ifndef __STDC__
genrange(s)
STR *s;
#else
genrange(STR *s)
#endif
{
int stopval;
char *savestart;
savestart = s->str;
stopval = *++s->str == '\\' ? backslash(s) : (u_char)*s->str++;
if (stopval < (u_char)s->lastch) {
s->str = savestart;
return (0);
}
s->cnt = stopval - s->lastch + 1;
s->state = RANGE;
--s->lastch;
return (1);
}
static void
#ifndef __STDC__
genseq(s)
STR *s;
#else
genseq(STR *s)
#endif
{
char *ep;
if (s->which == STRING1)
err("sequences only valid in string2");
if (*s->str == '\\')
s->lastch = backslash(s);
else
s->lastch = *s->str++;
if (*s->str != '*')
err("misplaced sequence asterisk");
switch (*++s->str) {
case '\\':
s->cnt = backslash(s);
break;
case ']':
s->cnt = 0;
++s->str;
break;
default:
if (isdigit((u_char)*s->str)) {
s->cnt = strtol(s->str, &ep, 0);
if (*ep == ']') {
s->str = ep + 1;
break;
}
}
err("illegal sequence count");
/* NOTREACHED */
}
s->state = s->cnt ? SEQUENCE : INFINITE;
}
/*
* Translate \??? into a character. Up to 3 octal digits, if no digits either
* an escape code or a literal character.
*/
static int
#ifndef __STDC__
backslash(s)
register STR *s;
#else
backslash(register STR *s)
#endif
{
register int ch, cnt, val;
for (cnt = val = 0;;) {
ch = (u_char)*++s->str;
if (!isascii(ch) || !isdigit(ch))
break;
val = val * 8 + ch - '0';
if (++cnt == 3) {
++s->str;
break;
}
}
if (cnt)
return (val);
if (ch != '\0')
++s->str;
switch (ch) {
case 'a': /* escape characters */
return ('\7');
case 'b':
return ('\b');
case 'f':
return ('\f');
case 'n':
return ('\n');
case 'r':
return ('\r');
case 't':
return ('\t');
case 'v':
return ('\13');
case '\0': /* \" -> \ */
s->state = EOS;
return ('\\');
default: /* \x" -> x */
return (ch);
}
}

19
usr.bin/tr/tests/Makefile Normal file
View File

@ -0,0 +1,19 @@
# Create the test environment for tr
# Compile and load flags passed to occ
# -v: verbose
# -I: add directory to header path
CFLAGS += -v -I /usr/include
LDFLAGS += -v
# Default target, "all," generates the files
all: file2.bin1 genbin
# Files depend upon program
file2.bin1: genbin
./genbin
# Remove intermediate files
clean:
$(RM) -f *.o
$(RM) -f *.root

277
usr.bin/tr/tests/dotests Normal file
View File

@ -0,0 +1,277 @@
# Tests for tr command; invoked by command file "fulltests"
# Written by Dave Tribby (August 1997)
# Location of the tr command to be tested
set testcmd="../tr"
# Record starting time
echo -n "Testing command $testcmd beginning at"
date
set src="file1.mixed"
set cmp="file1.UPPER"
set dest="/tmp/$cmp"
echo "Upshifting all characters in $src using character classes"
$testcmd '[:lower:]' '[:upper:]' < $src > $dest
echo " Completion status = $status"
echo "Checking results against control file $cmp (no differences expected)"
cmp $cmp $dest
echo " Completion status = $status"
echo ""
set dest="/tmp/${cmp}B"
echo "Upshifting all characters in $src using character ranges"
$testcmd 'a-z' 'A-Z' < $src > $dest
echo " Completion status = $status"
echo "Checking results against control file $cmp (no differences expected)"
cmp $cmp $dest
echo " Completion status = $status"
echo ""
set cmp="file1.novowel"
set dest="/tmp/$cmp"
echo "Removing lower-case vowels in $src"
$testcmd -d 'aeiouy' < $src > $dest
echo " Completion status = $status"
echo "Checking results against control file $cmp (no differences expected)"
cmp $cmp $dest
echo " Completion status = $status"
echo ""
set cmp="file1.nolower"
set dest="/tmp/$cmp"
echo "Removing lower-case letters and squeezing spaces in $src"
$testcmd -ds '[:lower:]' ' ' < $src > $dest
echo " Completion status = $status"
echo "Checking results against control file $cmp (no differences expected)"
cmp $cmp $dest
echo " Completion status = $status"
echo ""
set cmp="file1.onlyup"
set dest="/tmp/$cmp"
echo "Keeping only upper-case letters and squeezing spaces in $src"
$testcmd -c -ds '[:upper:]' ' ' < $src > $dest
echo " Completion status = $status"
echo "Checking results against control file $cmp (no differences expected)"
cmp $cmp $dest
echo " Completion status = $status"
echo ""
set cmp="file1.noalpha"
set dest="/tmp/$cmp"
echo "Replace all alpha characters in $src with \"~\" and sqeeze"
$testcmd -s '[:alpha:]' '~' < $src > $dest
echo " Completion status = $status"
echo "Checking results against control file $cmp (no differences expected)"
cmp $cmp $dest
echo " Completion status = $status"
echo ""
set cmp="file1.Ul"
set dest="/tmp/$cmp"
echo "Replace u.c. chars with \"U\", l.c. chars with \"l\" in $src"
$testcmd "[:upper:][:lower:]" '[U*26][l*26]' < $src > $dest
echo " Completion status = $status"
echo "Checking results against control file $cmp (no differences expected)"
cmp $cmp $dest
echo " Completion status = $status"
echo ""
set src="file2.bin1"
set cmp="file2.bin2"
set dest="/tmp/$cmp"
echo "Binary file: setting high-order bit on control characters using range"
$testcmd '\000-\037' '\200-\237' < $src > $dest
echo " Completion status = $status"
echo "Checking results against control file $cmp (no differences expected)"
cmp $cmp $dest
echo " Completion status = $status"
echo ""
set dest="/tmp/${cmp}B"
echo "Binary file: setting high-order bit on control characters using class"
$testcmd '[:cntrl:]' '\200-\237' < $src > $dest
echo " Completion status = $status"
echo "Checking results against control file $cmp (no differences expected)"
cmp $cmp $dest
echo " Completion status = $status"
echo ""
set cmp="file2.bin3"
set dest="/tmp/$cmp"
echo "Binary file: Translating special characters to alphabetic"
$testcmd '\a\b\f\n\r\t\v' 'ABFNRTV' < $src > $dest
echo " Completion status = $status"
echo "Checking results against control file $cmp (no differences expected)"
cmp $cmp $dest
echo " Completion status = $status"
echo ""
set src="file3.full"
set class="alnum"
set cmp="file3.$class"
set dest="/tmp/$cmp"
echo "ASCII subset class: $class"
$testcmd -c -d "[:$class:]" < $src > $dest
echo " Completion status = $status"
echo "Checking results against control file $cmp (no differences expected)"
cmp $cmp $dest
echo " Completion status = $status"
echo ""
set class="alpha"
set cmp="file3.$class"
set dest="/tmp/$cmp"
echo "ASCII subset class: $class"
$testcmd -c -d "[:$class:]" < $src > $dest
echo " Completion status = $status"
echo "Checking results against control file $cmp (no differences expected)"
cmp $cmp $dest
echo " Completion status = $status"
echo ""
set class="cntrl"
set cmp="file3.$class"
set dest="/tmp/$cmp"
echo "ASCII subset class: $class"
$testcmd -c -d "[:$class:]" < $src > $dest
echo " Completion status = $status"
echo "Checking results against control file $cmp (no differences expected)"
cmp $cmp $dest
echo " Completion status = $status"
echo ""
set class="digit"
set cmp="file3.$class"
set dest="/tmp/$cmp"
echo "ASCII subset class: $class"
$testcmd -c -d "[:$class:]" < $src > $dest
echo " Completion status = $status"
echo "Checking results against control file $cmp (no differences expected)"
cmp $cmp $dest
echo " Completion status = $status"
echo ""
set class="graph"
set cmp="file3.$class"
set dest="/tmp/$cmp"
echo "ASCII subset class: $class"
$testcmd -c -d "[:$class:]" < $src > $dest
echo " Completion status = $status"
echo "Checking results against control file $cmp (no differences expected)"
cmp $cmp $dest
echo " Completion status = $status"
echo ""
set class="lower"
set cmp="file3.$class"
set dest="/tmp/$cmp"
echo "ASCII subset class: $class"
$testcmd -c -d "[:$class:]" < $src > $dest
echo " Completion status = $status"
echo "Checking results against control file $cmp (no differences expected)"
cmp $cmp $dest
echo " Completion status = $status"
echo ""
set class="print"
set cmp="file3.$class"
set dest="/tmp/$cmp"
echo "ASCII subset class: $class"
$testcmd -c -d "[:$class:]" < $src > $dest
echo " Completion status = $status"
echo "Checking results against control file $cmp (no differences expected)"
cmp $cmp $dest
echo " Completion status = $status"
echo ""
set class="punct"
set cmp="file3.$class"
set dest="/tmp/$cmp"
echo "ASCII subset class: $class"
$testcmd -c -d "[:$class:]" < $src > $dest
echo " Completion status = $status"
echo "Checking results against control file $cmp (no differences expected)"
cmp $cmp $dest
echo " Completion status = $status"
echo ""
set class="space"
set cmp="file3.$class"
set dest="/tmp/$cmp"
echo "ASCII subset class: $class"
$testcmd -c -d "[:$class:]" < $src > $dest
echo " Completion status = $status"
echo "Checking results against control file $cmp (no differences expected)"
cmp $cmp $dest
echo " Completion status = $status"
echo ""
set class="upper"
set cmp="file3.$class"
set dest="/tmp/$cmp"
echo "ASCII subset class: $class"
$testcmd -c -d "[:$class:]" < $src > $dest
echo " Completion status = $status"
echo "Checking results against control file $cmp (no differences expected)"
cmp $cmp $dest
echo " Completion status = $status"
echo ""
set class="xdigit"
set cmp="file3.$class"
set dest="/tmp/$cmp"
echo "ASCII subset class: $class"
$testcmd -c -d "[:$class:]" < $src > $dest
echo " Completion status = $status"
echo "Checking results against control file $cmp (no differences expected)"
cmp $cmp $dest
echo " Completion status = $status"
echo ""
set class="blank"
set cmp="file3.$class"
set dest="/tmp/$cmp"
echo "ASCII subset class: $class"
$testcmd -c -d "[:$class:]" < $src > $dest
echo " Completion status = $status"
echo "Checking results against control file $cmp (no differences expected)"
cmp $cmp $dest
echo " Completion status = $status"
echo ""
echo "***** Error Messages *****"
set dest="/tmp/err.cond"
echo ""
echo "Expected error: illegal option"
$testcmd -x $src > $dest
echo " Error completion status = $status (expected: 1)"
echo ""
echo "Expected error: misplaced equivalence equals sign"
$testcmd '[=equiv=]' '[=equiv=]' < $src > $dest
echo " Error completion status = $status (expected: 1)"
echo ""
echo "Expected error: sequences only valid in string2"
$testcmd '[X*26]' '[:upper:]' < $src > $dest
echo " Error completion status = $status (expected: 1)"
echo ""
echo "Expected error: misplaced sequence asterisk"
$testcmd '[:lower:]' '[26*X]' < $src > $dest
echo " Error completion status = $status (expected: 1)"
echo ""
echo "Expected error: illegal sequence count"
$testcmd '[:lower:]' '[X*XX]' < $src > $dest
echo " Error completion status = $status (expected: 1)"
echo ""
echo "Expected error: unknown class:"
$testcmd '[:lower:]' '[:badclass:]' < $src > $dest
echo " Error completion status = $status (expected: 1)"

19
usr.bin/tr/tests/file1.UPPER Normal file
View File

@ -0,0 +1,19 @@
# CREATE THE TEST ENVIRONMENT FOR TR
# COMPILE AND LOAD FLAGS PASSED TO OCC
# -V: VERBOSE
# -I: ADD DIRECTORY TO HEADER PATH
CFLAGS += -V -I /USR/INCLUDE
LDFLAGS += -V
# DEFAULT TARGET, "ALL," GENERATES THE FILES
ALL: FILE2.BIN1 GENBIN
# FILES DEPEND UPON PROGRAM
FILE2.BIN1: GENBIN
./GENBIN
# REMOVE INTERMEDIATE FILES
CLEAN:
$(RM) -F *.O
$(RM) -F *.ROOT

19
usr.bin/tr/tests/file1.Ul Normal file
View File

@ -0,0 +1,19 @@
# Ulllll lll llll lllllllllll lll ll
# Ullllll lll llll lllll llllll ll lll
# -l: lllllll
# -U: lll lllllllll ll llllll llll
UUUUUU += -l -U /lll/lllllll
UUUUUUU += -l
# Ullllll llllll, "lll," lllllllll lll lllll
lll: llll2.lll1 llllll
# Ullll llllll llll lllllll
llll2.lll1: llllll
./llllll
# Ulllll llllllllllll lllll
lllll:
$(UU) -l *.l
$(UU) -l *.llll

19
usr.bin/tr/tests/file1.mixed Normal file
View File

@ -0,0 +1,19 @@
# Create the test environment for tr
# Compile and load flags passed to occ
# -v: verbose
# -I: add directory to header path
CFLAGS += -v -I /usr/include
LDFLAGS += -v
# Default target, "all," generates the files
all: file2.bin1 genbin
# Files depend upon program
file2.bin1: genbin
./genbin
# Remove intermediate files
clean:
$(RM) -f *.o
$(RM) -f *.root

19
usr.bin/tr/tests/file1.noalpha Normal file
View File

@ -0,0 +1,19 @@
# ~ ~ ~ ~ ~ ~
# ~ ~ ~ ~ ~ ~ ~
# -~: ~
# -~: ~ ~ ~ ~ ~
~ += -~ -~ /~/~
~ += -~
# ~ ~, "~," ~ ~ ~
~: ~2.~1 ~
# ~ ~ ~ ~
~2.~1: ~
./~
# ~ ~ ~
~:
$(~) -~ *.~
$(~) -~ *.~

19
usr.bin/tr/tests/file1.nolower Normal file
View File

@ -0,0 +1,19 @@
# C
# C
# -:
# -I:
CFLAGS += - -I //
LDFLAGS += -
# D , ","
: 2.1
# F
2.1:
./
# R
:
$(RM) - *.
$(RM) - *.

19
usr.bin/tr/tests/file1.novowel Normal file
View File

@ -0,0 +1,19 @@
# Crt th tst nvrnmnt fr tr
# Cmpl nd ld flgs pssd t cc
# -v: vrbs
# -I: dd drctr t hdr pth
CFLAGS += -v -I /sr/ncld
LDFLAGS += -v
# Dflt trgt, "ll," gnrts th fls
ll: fl2.bn1 gnbn
# Fls dpnd pn prgrm
fl2.bn1: gnbn
./gnbn
# Rmv ntrmdt fls
cln:
$(RM) -f *.
$(RM) -f *.rt

1
usr.bin/tr/tests/file1.onlyup Normal file
View File

@ -0,0 +1 @@
CCICFLAGSILDFLAGSDFRRMRM

28
usr.bin/tr/tests/fulltests Normal file
View File

@ -0,0 +1,28 @@
# gsh script to run tests and collect results
# Written by Dave Tribby * August 1997
# Name of gsh script containing test cases
set command="dotests"
# Sometimes the file type is modified by editing; make it executable
chtyp -l exec $command
# Filenames for raw and modified results
set raw_file="/tmp/rawlist"
set result_file="test.list"
# Location of tr command that knows how to handle classes
set trcmd="/src/usr.bin/tr/tr"
# --- Begin the tests ---
echo -n "Executing test script \"$command\" from directory "
pwd
# Create a new gsh invocation and record all I/O
echo "$command ; exit" | script $raw_file
# Cleanup control chars using either of the following...
echo "Done with tests. Removing control characters from results file"
$trcmd -c -ds '[:print:]\r' '\r' < $raw_file > $result_file
echo "Tests results have been saved as \"$result_file\""

122
usr.bin/tr/tests/genbin.c Normal file
View File

@ -0,0 +1,122 @@
/*
* Generate binary files for testing tr
*
*/
#include <ctype.h>
#include <stdio.h>
/* Because isblank() is not defined in <ctype.h>... */
extern int isblank(int);
static int ch;
static FILE *bf;
/* Generate a file of the given name to include bytes between low and high */
static void
genfile(char *name, int low, int high, int flag)
{
(void) printf("Creating file %s\n", name);
if ( (bf = fopen(name, "wb")) == NULL ) {
perror("Opening file");
return;
}
for (ch=low; ch<=high; ch++) {
switch (flag) {
case 1: if ( !isalnum(ch) ) continue;
break;
case 2: if ( !isalpha(ch) ) continue;
break;
case 3: if ( !iscntrl(ch) ) continue;
break;
case 4: if ( !isdigit(ch) ) continue;
break;
case 5: if ( !isgraph(ch) ) continue;
break;
case 6: if ( !islower(ch) ) continue;
break;
case 7: if ( !isprint(ch) ) continue;
break;
case 8: if ( !ispunct(ch) ) continue;
break;
case 9: if ( !isspace(ch) ) continue;
break;
case 10: if ( !isupper(ch) ) continue;
break;
case 11: if ( !isxdigit(ch) ) continue;
break;
case 12: if ( !isblank(ch) ) continue;
}
(void) putc(ch, bf);
}
/* Final character is a blank when flagged */
if ( flag == -1 )
(void) putc(' ', bf);
(void) fclose(bf);
}
int
main(int argc, char *argv[])
{
/* Starting binary file: file2.bin1 */
genfile("file2.bin1", 0, 32, 0);
/* Binary file after translation: file2.bin2 */
genfile("file2.bin2", 128, 159, -1);
/* Binary file after translation of special characters */
(void) printf("Creating file file2.bin3\n");
if ( (bf = fopen("file2.bin3", "wb")) == NULL ) {
perror("Opening file file2.bin3");
}
else {
for (ch=0; ch<=32; ch++)
switch (ch) {
case '\a':
(void) putc('A', bf);
break;
case '\b':
(void) putc('B', bf);
break;
case '\t':
(void) putc('T', bf);
break;
case '\n':
(void) putc('N', bf);
break;
case '\v':
(void) putc('V', bf);
break;
case '\f':
(void) putc('F', bf);
break;
case '\r':
(void) putc('R', bf);
break;
default:
(void) putc(ch, bf);
}
(void) fclose(bf);
}
/* Full ASCII set: file3.full */
genfile("file3.full", 0, 127, 0);
/* Generate subsets that meet class criteria */
genfile("file3.alnum", 0, 127, 1);
genfile("file3.alpha", 0, 127, 2);
genfile("file3.cntrl", 0, 127, 3);
genfile("file3.digit", 0, 127, 4);
genfile("file3.graph", 0, 127, 5);
genfile("file3.lower", 0, 127, 6);
genfile("file3.print", 0, 127, 7);
genfile("file3.punct", 0, 127, 8);
genfile("file3.space", 0, 127, 9);
genfile("file3.upper", 0, 127, 10);
genfile("file3.xdigit", 0, 127, 11);
genfile("file3.blank", 0, 127, 12);
return 0;
}

304
usr.bin/tr/tr.1 Normal file
View File

@ -0,0 +1,304 @@
.\" Copyright (c) 1991, 1993
.\" The Regents of the University of California. All rights reserved.
.\"
.\" This code is derived from software contributed to Berkeley by
.\" the Institute of Electrical and Electronics Engineers, Inc.
.\"
.\" Redistribution and use in source and binary forms, with or without
.\" modification, are permitted provided that the following conditions
.\" are met:
.\" 1. Redistributions of source code must retain the above copyright
.\" notice, this list of conditions and the following disclaimer.
.\" 2. 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.
.\" 3. All advertising materials mentioning features or use of this software
.\" must display the following acknowledgement:
.\" This product includes software developed by the University of
.\" California, Berkeley and its contributors.
.\" 4. Neither the name of the University nor the names of its contributors
.\" may be used to endorse or promote products derived from this software
.\" without specific prior written permission.
.\"
.\" THIS SOFTWARE IS PROVIDED BY THE REGENTS 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 THE REGENTS OR CONTRIBUTORS 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.
.\"
.\" @(#)tr.1 8.1 (Berkeley) 6/6/93
.\"
.TH TR 1 "August 1997" "GNO" "Commands and Applications"
.SH NAME
.BR tr
\- translate characters
.SH SYNOPSIS
.BR tr " [" -cs ]
.IR "string1" " " "string2"
.PP
.BR tr " [" -c "] " -d
.I string1
.PP
.BR tr " [" -c "] " -s
.I string1
.PP
.BR tr " [" -c "] " -ds
.IR "string1" " " "string2"
.SH DESCRIPTION
The
.BR tr
utility copies the standard input to the standard output with substitution
or deletion of selected characters.
.LP
The following options are available:
.RS
.IP \fB-c\fR
Complements the set of characters in
.IR string1 ,
that is ``-c ab'' includes every character except for ``a'' and ``b''.
.IP \fB-d\fR
The
.B -d
option causes characters to be deleted from the input.
.IP \fB-s\fR
The
.B -s
option squeezes multiple occurrences of the characters listed in the last
operand (either
.IR string1
or
.IR string2 )
in the input into a single instance of the character.
This occurs after all deletion and translation is completed.
.RE
.PP
In the first synopsis form, the characters in
.IR string1
are translated into the characters in
.IR string2
where the first character in
.IR string1
is translated into the first character in
.IR string2
and so on.
If
.IR string1
is longer than
.IR string2 ,
the last character found in
.IR string2
is duplicated until
.IR string1
is exhausted.
.PP
In the second synopsis form, the characters in
.IR string1
are deleted from the input.
.PP
In the third synopsis form, the characters in
.IR string1
are compressed as described for the
.B -s
option.
.PP
In the fourth synopsis form, the characters in
.IR string1
are deleted from the input, and the characters in
.IR string2
are compressed as described for the
.B -s
option.
.PP
The following conventions can be used in
.IR string1
and
.IR string2
to specify sets of characters:
.RS
.IP character
Any character not described by one of the following conventions
represents itself.
.IP \fB\\\\\fRoctal
A backslash followed by 1, 2 or 3 octal digits represents a character
with that encoded value.
To follow an octal sequence with a digit as a character, left zero-pad
the octal sequence to the full 3 octal digits.
.IP \fB\\\\\fRcharacter
A backslash followed by certain special characters maps to special
values.
.sp
.RS
\fB\\a\fR <alert character>
.br
\fB\\b\fR <backspace>
.br
\fB\\f\fR <form-feed>
.br
\fB\\n\fR <newline>
.br
\fB\\r\fR <carriage return>
.br
\fB\\t\fR <tab>
.br
\fB\\v\fR <vertical tab>
.RE
.sp
A backslash followed by any other character maps to that character.
.IP \fIc1\fR-\fIc2\fR
Represents the range of characters between the range endpoints, inclusively.
.IP \fB[:\fRclass\fB:]\fR
Represents all characters belonging to the defined character class.
Class names are:
.sp
.RS
\fBalnum\fR <alphanumeric characters>
.br
\fBalpha\fR <alphabetic characters>
.br
\fBblank\fR <\\t, `` ''>
.br
\fBcntrl\fR <control characters>
.br
\fBdigit\fR <numeric characters>
.br
\fBgraph\fR <graphic characters>
.br
\fBlower\fR <lower-case alphabetic characters>
.br
\fBprint\fR <printable characters>
.br
\fBpunct\fR <punctuation characters>
.br
\fBspace\fR <\\t, \\n, \\v, \\f, \\r, `` ''>
.br
\fBupper\fR <upper-case characters>
.br
\fBxdigit\fR <hexadecimal characters>
.br
.RE
.PP
With the exception of the ``upper'' and ``lower'' classes, characters
in the classes are in unspecified order.
In the ``upper'' and ``lower'' classes, characters are entered in
ascending order.
.PP
For specific information as to which ASCII characters are included
in these classes, see
.IR ctype (3)
and related manual pages.
.IP \fB[=\fRequiv\fB=]\fR
Represents all characters or collating (sorting) elements belonging to
the same equivalence class as
.IR equiv .
If
there is a secondary ordering within the equivalence class, the characters
are ordered in ascending sequence.
Otherwise, they are ordered after their encoded values.
An example of an equivalence class might be ``c'' and ``ch'' in Spanish;
English has no equivalence classes.
Note: because the functions in
.IR locale.h
are not implemented for the Apple IIGS, English is the only supported
language.
.IP \fB[\fR#\fB*\fRn\fB]\fR
Represents
.IR n
repeated occurrences of the character represented by
.IR # .
This
expression is only valid when it occurs in
.IR string2 .
If
.IR n
is omitted or is zero, it is be interpreted as large enough to extend
.IR string2
sequence to the length of
.IR string1 .
If
.IR n
has a leading zero, it is interpreted as an octal value, otherwise,
it's interpreted as a decimal value.
.RE
.PP
The
.BR tr
utility exits 0 on success, and >0 if an error occurs.
.SH EXAMPLES
The following examples are shown as given to the shell:
.PP
Create a list of the words in file1, one per line, where a word is taken to
be a maximal string of letters.
.HP
tr -cs '[:alpha:]' '\\n' < file1
.PP
Translate the contents of file1 to upper-case.
.HP
tr '[:lower:]' '[:upper:]' < file1
.PP
Strip out non-printable characters from file1.
.HP
tr -cd '[:print:]' < file1
.SH COMPATIBILITY
System V has historically implemented character ranges using the syntax
``[c-c]'' instead of the ``c-c'' used by historic BSD implementations and
standardized by POSIX.
System V shell scripts should work under this implementation as long as
the range is intended to map in another range, i.e. the command
``tr [a-z] [A-Z]'' will work as it will map the ``['' character in
.IR string1
to the ``['' character in
.IR string2.
However, if the shell script is deleting or squeezing characters as in
the command ``tr -d [a-z]'', the characters ``['' and ``]'' will be
included in the deletion or compression list which would not have happened
under an historic System V implementation.
Additionally, any scripts that depended on the sequence ``a-z'' to
represent the three characters ``a'', ``-'' and ``z'' will have to be
rewritten as ``a\\-z''.
.PP
The
.BR tr
utility has historically not permitted the manipulation of NUL bytes in
its input and, additionally, stripped NUL's from its input stream.
This implementation has removed this behavior as a bug.
.PP
The
.BR tr
utility has historically been extremely forgiving of syntax errors,
for example, the
.B -c
and
.B -s
options were ignored unless two strings were specified.
This implementation will not permit illegal syntax.
.SH STANDARDS
The
.BR tr
utility is expected to be
.B POSIX.2
compatible.
It should be noted that the feature wherein the last character of
.IR string2
is duplicated if
.IR string2
has less characters than
.IR string1
is permitted by POSIX but is not required.
Shell scripts attempting to be portable to other POSIX systems should use
the ``[#*]'' convention instead of relying on this behavior.
.SH ATTRIBUTIONS
This command was ported from FreeBSD source code
for distribution with GNO/ME 2.0.6.
.SH HISTORY
Version 1.0 (November 3, 1994) of
.BR tr
was written by
Thomas. R. Wyant III
and distributed as a
separate package compatible with GNO and ORCA.

354
usr.bin/tr/tr.c Normal file
View File

@ -0,0 +1,354 @@
/*
* Copyright (c) 1988, 1993
* The Regents of the University of California. All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. 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.
* 3. All advertising materials mentioning features or use of this software
* must display the following acknowledgement:
* This product includes software developed by the University of
* California, Berkeley and its contributors.
* 4. Neither the name of the University nor the names of its contributors
* may be used to endorse or promote products derived from this software
* without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE REGENTS 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 THE REGENTS OR CONTRIBUTORS 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.
*/
/*
* Modified for GNO (Apple IIGS) by Dave Tribby, August 1997
*
* Constructs unacceptable to compiler are replaced using #ifndef __ORCAC__
*
* Changes not related to compiler are replaced using #ifndef __GNO__
*
* Added prototyped headers, surrounded by #ifndef __STDC__
*/
#ifndef __GNO__
#ifndef lint
static char copyright[] =
"@(#) Copyright (c) 1988, 1993\n\
The Regents of the University of California. All rights reserved.\n";
#endif /* not lint */
#ifndef lint
static char sccsid[] = "@(#)tr.c 8.2 (Berkeley) 5/4/95";
#endif /* not lint */
#endif
#ifndef __GNO__
#include <locale.h>
#endif
#include <sys/types.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include "extern.h"
static int string1[NCHARS] = {
0x00, 0x01, 0x02, 0x03, 0x04, 0x05, 0x06, 0x07, /* ASCII */
0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f,
0x10, 0x11, 0x12, 0x13, 0x14, 0x15, 0x16, 0x17,
0x18, 0x19, 0x1a, 0x1b, 0x1c, 0x1d, 0x1e, 0x1f,
0x20, 0x21, 0x22, 0x23, 0x24, 0x25, 0x26, 0x27,
0x28, 0x29, 0x2a, 0x2b, 0x2c, 0x2d, 0x2e, 0x2f,
0x30, 0x31, 0x32, 0x33, 0x34, 0x35, 0x36, 0x37,
0x38, 0x39, 0x3a, 0x3b, 0x3c, 0x3d, 0x3e, 0x3f,
0x40, 0x41, 0x42, 0x43, 0x44, 0x45, 0x46, 0x47,
0x48, 0x49, 0x4a, 0x4b, 0x4c, 0x4d, 0x4e, 0x4f,
0x50, 0x51, 0x52, 0x53, 0x54, 0x55, 0x56, 0x57,
0x58, 0x59, 0x5a, 0x5b, 0x5c, 0x5d, 0x5e, 0x5f,
0x60, 0x61, 0x62, 0x63, 0x64, 0x65, 0x66, 0x67,
0x68, 0x69, 0x6a, 0x6b, 0x6c, 0x6d, 0x6e, 0x6f,
0x70, 0x71, 0x72, 0x73, 0x74, 0x75, 0x76, 0x77,
0x78, 0x79, 0x7a, 0x7b, 0x7c, 0x7d, 0x7e, 0x7f,
0x80, 0x81, 0x82, 0x83, 0x84, 0x85, 0x86, 0x87,
0x88, 0x89, 0x8a, 0x8b, 0x8c, 0x8d, 0x8e, 0x8f,
0x90, 0x91, 0x92, 0x93, 0x94, 0x95, 0x96, 0x97,
0x98, 0x99, 0x9a, 0x9b, 0x9c, 0x9d, 0x9e, 0x9f,
0xa0, 0xa1, 0xa2, 0xa3, 0xa4, 0xa5, 0xa6, 0xa7,
0xa8, 0xa9, 0xaa, 0xab, 0xac, 0xad, 0xae, 0xaf,
0xb0, 0xb1, 0xb2, 0xb3, 0xb4, 0xb5, 0xb6, 0xb7,
0xb8, 0xb9, 0xba, 0xbb, 0xbc, 0xbd, 0xbe, 0xbf,
0xc0, 0xc1, 0xc2, 0xc3, 0xc4, 0xc5, 0xc6, 0xc7,
0xc8, 0xc9, 0xca, 0xcb, 0xcc, 0xcd, 0xce, 0xcf,
0xd0, 0xd1, 0xd2, 0xd3, 0xd4, 0xd5, 0xd6, 0xd7,
0xd8, 0xd9, 0xda, 0xdb, 0xdc, 0xdd, 0xde, 0xdf,
0xe0, 0xe1, 0xe2, 0xe3, 0xe4, 0xe5, 0xe6, 0xe7,
0xe8, 0xe9, 0xea, 0xeb, 0xec, 0xed, 0xee, 0xef,
0xf0, 0xf1, 0xf2, 0xf3, 0xf4, 0xf5, 0xf6, 0xf7,
0xf8, 0xf9, 0xfa, 0xfb, 0xfc, 0xfd, 0xfe, 0xff,
}, string2[NCHARS];
STR s1 = { STRING1, NORMAL, 0, OOBCH, { 0, OOBCH }, NULL, NULL };
STR s2 = { STRING2, NORMAL, 0, OOBCH, { 0, OOBCH }, NULL, NULL };
static void setup __P((int *, char *, STR *, int));
static void usage __P((void));
/* Interface to check on how much stack space a C program uses. */
#if defined(__GNO__) && defined(__STACK_CHECK__)
#ifndef _STDLIB_H_
#include <stdlib.h>
#endif
extern void begin_stack_check(void);
extern int end_stack_check(void);
static void report_stack(void)
{
fprintf(stderr,"\n ==> %d stack bytes used <== \n", end_stack_check());
}
#endif
int
#ifndef __STDC__
main(argc, argv)
int argc;
char **argv;
#else
main(int argc,
char *argv[])
#endif
{
register int ch, cnt, lastch, *p;
int cflag, dflag, sflag, isstring2;
#if defined(__GNO__) && defined(__STACK_CHECK__)
begin_stack_check();
atexit(report_stack);
#endif
#ifndef __GNO__
(void) setlocale(LC_CTYPE, "");
#endif
#ifdef __GNO__
/* Set binary mode for stdin and stdout */
stdin->_flags |= __SBIN;
stdout->_flags |= __SBIN;
#endif /* __GNO__ */
cflag = dflag = sflag = 0;
while ((ch = getopt(argc, argv, "cds")) != -1)
switch((char)ch) {
case 'c':
cflag = 1;
break;
case 'd':
dflag = 1;
break;
case 's':
sflag = 1;
break;
case '?':
default:
usage();
}
argc -= optind;
#ifndef __ORCAC__
argv += optind;
#else
argv = argv + optind;
#endif
switch(argc) {
case 0:
default:
usage();
/* NOTREACHED */
case 1:
isstring2 = 0;
break;
case 2:
isstring2 = 1;
break;
}
/*
* tr -ds [-c] string1 string2
* Delete all characters (or complemented characters) in string1.
* Squeeze all characters in string2.
*/
if (dflag && sflag) {
if (!isstring2)
usage();
setup(string1, argv[0], &s1, cflag);
setup(string2, argv[1], &s2, 0);
for (lastch = OOBCH; (ch = getchar()) != EOF;)
if (!string1[ch] && (!string2[ch] || lastch != ch)) {
lastch = ch;
(void)putchar(ch);
}
exit(0);
}
/*
* tr -d [-c] string1
* Delete all characters (or complemented characters) in string1.
*/
if (dflag) {
if (isstring2)
usage();
setup(string1, argv[0], &s1, cflag);
while ((ch = getchar()) != EOF)
if (!string1[ch])
(void)putchar(ch);
exit(0);
}
/*
* tr -s [-c] string1
* Squeeze all characters (or complemented characters) in string1.
*/
if (sflag && !isstring2) {
setup(string1, argv[0], &s1, cflag);
for (lastch = OOBCH; (ch = getchar()) != EOF;)
if (!string1[ch] || lastch != ch) {
lastch = ch;
(void)putchar(ch);
}
exit(0);
}
/*
* tr [-cs] string1 string2
* Replace all characters (or complemented characters) in string1 with
* the character in the same position in string2. If the -s option is
* specified, squeeze all the characters in string2.
*/
if (!isstring2)
usage();
s1.str = argv[0];
s2.str = argv[1];
if (cflag)
for (cnt = NCHARS, p = string1; cnt--;)
*p++ = OOBCH;
if (!next(&s2))
err("empty string2");
/* If string2 runs out of characters, use the last one specified. */
if (sflag)
while (next(&s1)) {
string1[s1.lastch] = ch = s2.lastch;
string2[ch] = 1;
(void)next(&s2);
}
else
while (next(&s1)) {
string1[s1.lastch] = ch = s2.lastch;
(void)next(&s2);
}
if (cflag)
for (cnt = 0, p = string1; cnt < NCHARS; ++p, ++cnt)
*p = *p == OOBCH ? ch : cnt;
if (sflag)
for (lastch = OOBCH; (ch = getchar()) != EOF;) {
ch = string1[ch];
if (!string2[ch] || lastch != ch) {
lastch = ch;
(void)putchar(ch);
}
}
else
while ((ch = getchar()) != EOF)
(void)putchar(string1[ch]);
exit (0);
}
static void
#ifndef __STDC__
setup(string, arg, str, cflag)
int *string;
char *arg;
STR *str;
int cflag;
#else
setup( int *string,
char *arg,
STR *str,
int cflag)
#endif
{
register int cnt, *p;
str->str = arg;
bzero(string, NCHARS * sizeof(int));
while (next(str))
string[str->lastch] = 1;
if (cflag)
for (p = string, cnt = NCHARS; cnt--; ++p)
*p = !*p;
}
static void
#ifndef __STDC__
usage()
#else
usage(void)
#endif
{
(void)fprintf(stderr, "usage: tr [-cs] string1 string2\n");
(void)fprintf(stderr, " tr [-c] -d string1\n");
(void)fprintf(stderr, " tr [-c] -s string1\n");
(void)fprintf(stderr, " tr [-c] -ds string1 string2\n");
exit(1);
}
#if __STDC__
#include <stdarg.h>
#else
#include <varargs.h>
#endif
void
#if __STDC__
err(const char *fmt, ...)
#else
err(fmt, va_alist)
char *fmt;
va_dcl
#endif
{
va_list ap;
#if __STDC__
va_start(ap, fmt);
#else
va_start(ap);
#endif
(void)fprintf(stderr, "tr: ");
(void)vfprintf(stderr, fmt, ap);
va_end(ap);
(void)fprintf(stderr, "\n");
exit(1);
/* NOTREACHED */
}

10
usr.bin/tr/tr.desc Normal file
View File

@ -0,0 +1,10 @@
Name: tr
Version: 2.0 (August 1997)
Shell: GNO
Author: Dave Tribby (from FreeBSD code)
Contact: tribby@cup.hp.com
Where: /bin/tr
FTP: ground.isca.uiowa.edu apple2.caltech.edu trenco.myrias.com
Translate characters in a file.

29
usr.bin/tr/tr.rez Normal file
View File

@ -0,0 +1,29 @@
/*
* Resources for version and comment
*/
#define PROG "tr"
#define DESC "Translate characters in a file."
#include "Types.rez"
/*
* Version
*/
resource rVersion (1, purgeable3) {
{ 2, 0, 0, /* Version 2.0.0 */
release, /* development|alpha|beta|final|release */
0 }, /* non-final release number */
verUS, /* Country */
PROG, /* Program name */
DESC " Released with GNO/ME."
};
/*
* Comment
*/
resource rComment (1, purgeable3) {
PROG " v2.0 (August 1997)\n"
"GNO utility: " DESC "\n"
"Ported from FreeBSD code by Dave Tribby."
};