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

1. H would like permission

(which has already been granted by publisher) to

use HUC 6 program — commercial software.

2. Is the listing available on floppy disk?

3. Thank you for a very interesting and useful book.

4. He left his fax # and telephone #. He wasn't sure of the country code.

He would appreciate hearing from you via fax.

sub 11276

#include "hoc.h"

#include "y.tab.h"

static Symbol *symlist =0; /* symbol table: linked list */

Symbol *lookup(s) /* find s in symbol table */

char *s;

{

Symbol *sp;

for (sp = symlist; sp != (Symbol*)0; sp = sp->next)

if (strcmp(sp->name, s) == 0)

return sp;

return 0; /* 0 ==> not found */

}

Symbol *install(s, t, d) /* install s in symbol table */

char *s;

int t;

double d;

{

Symbol *sp;

char *emalloc();

sp = (Symbol*)emalloc(sizeof(Symbol));

sp->name = emalloc(strlen(s)+1); /* +1 for '\0' */

strcpy(sp->name, s);

sp->type = t;

sp->u.val = d;

sp->next = symlist; /* put at front of list */

symlist = sp;

return sp;

}

char *emalloc(n) /* check return from malloc */

unsigned n;

{

char *p, *malloc();

p = malloc(n);

if (p == 0)

execerror("out of memory", (char*)0);

return p;

}

awk '{ s += $'$1' }

END { print s }'

awk '

BEGIN { n = '$1' }

{ for (i = 1; i <= n; i++)

sum[i] += $i

}

END { for (i = 1; i <= n; i++) {

printf "%6g ", sum[i]

total += sum[i]

}

printf "; total = %6g\n", total

}'

push -v panther $* /usr/bwk/eff/Code

# backwards: print input in backward line order

awk ' { line[NR] = $0 }

END { for (i = NR; i > 0; i--) print line[i] } ' $*

pick(s) /* offer choice of s */

char *s;

{

fprintf("%s? ", s);

if (ttyin() == 'y')

printf("%s\n", s);

}

# bundle: group files into distribution package

echo '# To unbundle, sh this file'

for i

do

echo "echo $i 1>&2"

echo "cat >$i <<'End of $i'"

cat $i

echo "End of $i"

done

# cal: nicer interface to /usr/bin/cal

case $# in

0) set `date`; m=$2; y=$6 ;; # no args: use today

1) m=$1; set `date`; y=$6 ;; #1 arg: use this year

*) m=$1; y=$2 ;; #2 args: month and year

esac

case $m in

jan*|Jan*) m=1 ;;

feb*|Feb*) m=2 ;;

mar*|Mar*) m=3 ;;

apr*|Apr*) m=4 ;;

may*|May*) m=5 ;;

jun*|Jun*) m=6 ;;

jul*|Jul*) m=7 ;;

aug*|Aug*) m=8 ;;

sep*|Sep*) m=9 ;;

oct*|Oct*) m=10 ;;

nov*|Nov*) m=11 ;;

dec*|Dec*) m=12 ;;

[1-9]|10|11|12) ;; # numeric month

*) y=$m; m="" ;; # plain year

esac

/usr/bin/cal $m $y # run the real one

# calendar: version 1 -- today only

awk <$HOME/calendar '

BEGIN { split("'"`date`"'", date) }

$1 == date[2] && $2 == date[3]

' | mail $NAME

# calendar: version 2 -- today only, no quotes

(date; cat $HOME/calendar) |

awk '

NR == 1 { mon = $2; day = $3 } # set the date

NR > 1 && $1 == mon && $2 == day # print calendar lines

' | mail $NAME

# calendar: version 3 -- today and tomorrow

awk <$HOME/calendar '

BEGIN {

x = "Jan 31 Feb 28 Mar 31 Apr 30 May 31 Jun 30 " \

"Jul 31 Aug 31 Sep 30 Oct 31 Nov 30 Dec 31 Jan 31"

split(x, data)

for (i = 1; i < 24; i += 2) {

days[data[i]] = data[i+1]

nextmon[data[i]] = data[i+2]

}

split("'"`date`"'", date)

mon1 = date[2]; day1 = date[3]

mon2 = mon1; day2 = day1 + 1

if (day1 >= days[mon1]) {

day2 = 1

mon2 = nextmon[mon1]

}

}

$1 == mon1 && $2 == day1 || $1 == mon2 && $2 == day2

' | mail $NAME

/* cat: minimal version */

#define SIZE 512 /* arbitrary */

main() {

char buf[SIZE];

int n;

while ((n = read(0, buf, sizeof buf)) > 0)

write(1, buf, n);

exit(0);

}

/* checkmail: watch user's mailbox */

#include

#include

#include

char *progname;

char *maildir = "/usr/spool/mail"; /* system dependent */

main(argc, argv)

int argc;

char *argv[];

{

struct stat buf;

char *name, *getlogin();

int lastsize = 0;

progname = argv[0];

if ((name = getlogin()) == NULL)

error("can't get login name", (char*)0);

if (chdir(maildir) == -1)

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"