Брайан Керниган - UNIX — универсальная среда программирования

error("can't cd to %s", maildir);

for (;;) {

if (stat(name, &buf) == -1) /* no mailbox */

buf.st_size = 0;

if (buf.st_size > lastsize)

fprintf(stderr, "\nYou have mail\007\n");

lastsize = buf.st_size;

sleep(60);

}

}

#include "error.c"

# checkmail: watch mailbox for growth

PATH=/bin:/usr/bin

MAIL=/usr/spool/mail/`getname` # system dependent

t=${1-60}

x="`ls -l $MAIL`"

while :

do

y="`ls -l $MAIL`"

echo $x $y x="$y"

sleep $t

done | awk '$4 < $12 { print "You have mail" }'

/* cp: minimal version */

#include

#define PERMS 0644 /* RW for owner, R for group, others */

char *progname;

main(argc, argv) /* cp: copy f1 to f2 */

int argc;

char *argv[];

{

char buf[BUFSIZ];

progname = argv[0];

if (argc != 3)

error("Usage: %s from to", progname);

if ((f1 = open(argv[1], 0)) == -1)

error("can't open %s", argv[1]);

if ((f2 = creat(argv[2] , PERMS)) == -1)

error("can't create %s", argv[2]);

while ((n = read(f1, buf, BUFSIZ)) > 0)

if (write(f2, buf, n) != n)

error("write error", (char*)0);

exit(0);

}

#include "error.c"

# doctype: synthesize proper command line for troff

echo -n "cat $* | "

egrep -h '^\.(EQ|TS|\[|PS|IS|PP)' $* |

sort -u | awk '

/^\.PP/ { ms++ }

/^\.EQ/ { eqn++ }

/^\.TS/ { tbl++ }

/^\.PS/ { pic++ }

/^\.IS/ { ideal++ }

/^\.\[/ { refer++ }

END {

if (refer > 0) printf "refer | "

if (pic > 0) printf "pic | "

if (ideal > 0) printf "ideal | "

if (tbl > 0) printf "tbl | "

if (eqn > 0) printf "eqn | "

printf "troff "

if (ms > 0) printf "-ms"

printf "\n"

}'

awk '

FILENAME != prevfile { # new file

NR = 1 # reset line number

prevfile = FILENAME

}

NF > 0 {

if ($1 == lastword)

printf "double %s, file %s, line %d\n" ,$1,FILENAME,NR

for (i = 2; i <= NF; i++)

if ($i == $(i-1))

printf "double %s, file %s, line %d\n" ,$i, FILENAME ,NR

if (NF > 0)

lastword = $NF

}' $*

FILE *efopen(file, mode) /* fopen file, die if can't */

char *file, *mode;

{

FILE *fp, *fopen();

extern char *progname;

if ((fp = fopen(file, mode)) != NULL)

return fp;

fprintf (stderr, "%s: can't open file %s mode %s\n",

progname, file, mode);

exit(1);

}

error(s1, s2) /* print error message and die */

char *s1, *s2;

{

extern int errno, sys_nerr;

extern char *sys_errlist[], *progname;

if (progname)

fprintf(stderr, "%s: ", progname);

fprintf(stderr, s1, s2);

if (errno > 0 && errno < sys_nerr)

fprintf (stderr, " (%s)", sys_errlist[errno]);

fprintf(stderr, "\n");

exit(1);

}

awk '{ print $'$1' }'

awk "{ print \$$1 }"

# fold: fold long lines

sed 's/\(->/ /g' $* | # convert tabs to spaces

awk '

BEGIN {

N = 80 # folds at column 80

for (i = 1; i <= N; i++) # make a string of blanks

blanks = blanks " "

}

{ if ((n = length($0)) <= N)

print

else {

for (i = 1; n > N; n -= N) {

printf "%s\\\n", substr($0, i ,N)

i += N;

}

printf "%s%s\n", substr(blanks, 1, N-n), substr($0, i)

}

} '

cat $* |

tr -sc A-Za-z '\012' |

sort |

uniq -с |

sort -n |

tail |

5

sed 's/[ \(->][ \(->]*/\

/g' $* | sort | uniq -с | sort -nr | sed 10q

# get: extract file from history

PATH=/bin:/usr/bin

VERSION=0

while test "$1" != ""

do

case "$1" in

-i) INPUT=$2; shift ;;

-o) OUTPUT=$2; shift ;;

-[0-9]) VERSION=$1 ;;

-*) echo "get: Unknown argument $i" 1>&2; exit 1 ;;

*) case "$OUTPUT" in

"") OUTPUT=$1 ;;

*) INPUT=$1.H ;;

esac

esac

shift

done

OUTPUT=${OUTPUT?"Usage: get [-o outfile] [-i file.H] file"}

INPUT=${INPUT-$OUTPUT.H}

test -r $INPUT || { echo "get: no file $INPUT" 1>&2; exit 1; }

trap 'rm -f /tmp/get.[ab]$$; exit 1' 1 2 15

# split into current version and editing commands

sed <$INPUT -n '1,/^@@@/w /tmp/get.a'$$'

/^@@@/,$w /tmp/get.b'$$

# perform the edits

awk

/^@@@/ { count++ }

!/^@@@/ && count > 0 && count <= - '$VERSION'

END { print "$d"; print "w", "'$OUTPUT'" }

' | ed - /tmp/get.a$$

rm -f /tmp/get.[ab]$$

get(fd, pos, buf, n) /* read n bytes from position pos */

int fd, n;

long pos;

char *buf;

{

if (lseek(fd, pos, 0) == -1) /* get to pos */

return -1;

return read(fd, buf, n);

}

who am i | sed 's/ .*//'

/* idiff: interactive diff */

#include

#include

char *progname;

#define HUGE 10000 /* large number of lines */

main(argc, argv)

int argc;

char *argv[];

{

FILE *fin, *fout, *f1, *f2, *efopen();

char buf[BUFSIZ], *mktemp();

char *diffout = "idiff.XXXXXX";

progname = argv[0];

if (argc != 3) {

fprintf(stderr, "Usage: idiff file1 file2\n");

exit(1);

}

f1 = efopen(argv[1], "r");

f2 = efopen(argv[2], "r");

fout = efopen("idiff.out", "w");

mktemp(diffout);

sprintf(buf, "diff %s %s >%s", argv[1], argv[2], diffout);

system(buf);

fin = efopen(diffout, "r");

idiff(f1, f2, fin, fout); unlink(diffout);

printf("%s output in file idiff.out\n", progname);

exit(0);

}

idiff(f1, f2, fin, fout) /* process diffs */

FILE *f1, *f2, *fin, *fout;

{

char *tempfile = "idiff.XXXXXX";

char buf[BUFSIZ], buf2[BUFSIZ], *mktemp();

FILE *ft, *efopen();

int cmd, n, from1, to1, from2, to2, nf1, nf2;

mktemp(tempfile);

nf1 = nf2 = 0;

while (fgets(buf, sizeof buf, fin) != NULL) {

parse(buf, &from1, &to1, &cmd, &from2, &to2);

n = to1-from1 + to2-from2 + 1; /* #lines from diff */

if (cmd == 'c')

n += 2;

else if (cmd == 'a')

from1++;

else if (cmd == 'd')

from2++;

printf("%s", buf);

while (n-- > 0) {

fgets(buf, sizeof buf, fin);

printf("%s", buf);

}

do {

printf("? ");

fflush(stdout);

fgets(buf, sizeof buf, stdin);

switch (buf[0]) {

case '>':

nskip(f1, to1-nf1);

ncopy(f2, to2-nf2, fout);

break;

case '<':

nskip(f2, to2-nf2);

ncopy(f1, to1-nf1, fout);

break;

case 'e':

ncopy(f1, from1-1-nf1, fout);

nskip(f2, from2-1-nf2);

ft = efopen(tempfile, "w");

ncopy(f1, to1+1-from1, ft);

fprintf(ft, "--- \n");

ncopy(f2, to2+1-from2, ft);

fclose(ft);

sprintf(buf2, "ed %s", tempfile);

system(buf2);

ft = efopen(tempfile, "r");

ncopy(ft, HUGE, fout);

fclose(ft);

break;

case '!':

system(buf+1);

printf("!\n");

break;

default:

printf("< or > or e or !\n");

break;

}

} while (buf[0]!= '<' && buf[0]!= '>' && buf[0]! = 'e');

nf1 = to1;

nf2 = to2;

}

ncopy(f1, HUGE, fout); /* can fail on very long files */

unlink(tempfile);

}

parse(s, pfrom1, pto1, pcmd, pfrom2, pto2)

char *s;

int *pcmd, *pfrom1, *pto1, *pfrom2, *pto2;