Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!umich!samsung!brutus.cs.uiuc.edu!psuvax1!psuvm!NSFNET-RELAY!MAIL_SYSTEM
From: Mail_System%vaxb.york.ac.uk@NSFNET-RELAY.AC.UK
Newsgroups: bit.listserv.minix-l
Subject: %% Undelivered Mail %%
Message-ID: <MINIX-L%90011713502453@NDSUVM1.BITNET>
Date: 16 Jan 90 23:50:00 GMT
Sender: Minix operating system <MINIX-L@NDSUVM1>
Reply-To: INFO-MINIX@UDEL.EDU
Lines: 344
Approved: NETNEWS@PSUVM Gateway
Comments: To: MINIX-L@vm1.nodak.edu

Your mail was not delivered as follows:
%MAIL-E-SENDERR, error sending to user ACB5
%MAIL-E-OPENOUT, error opening !AS as output
-RMS-E-CRE, ACP file create failed
-SYSTEM-F-EXDISKQUOTA, disk quota exceeded
%MAIL-E-SENDERR, error sending to user ACB5
-MAIL-E-OPENOUT, error opening !AS as output
-RMS-E-CRE, ACP file create failed
-SYSTEM-F-EXDISKQUOTA, disk quota exceeded

Your original mail header and message follow.

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Via: UK.AC.NSFNET-RELAY; Tue, 16 Jan 90  23:50 GMT
Received: from vax.nsfnet-relay.ac.uk by sun.NSFnet-Relay.AC.UK
           Via Ethernet with SMTP  id aa15954; 16 Jan 90 23:43 GMT
Received: from cunyvm.cuny.edu by vax.NSFnet-Relay.AC.UK   via NSFnet with SMTP
           id aa29139; 16 Jan 90 23:27 GMT
Received: from VM1.NoDak.EDU by CUNYVM.CUNY.EDU (IBM VM SMTP R1.2.2MX) with TCP;
 Tue, 16 Jan 90 18:30:31 EDT
Received: from NDSUVM1.BITNET by VM1.NoDak.EDU (IBM VM SMTP R1.2.1MX) with BSMTP
 id 8709; Tue, 16 Jan 90 17:28:43 CST
Received: from NDSUVM1.BITNET by NDSUVM1.BITNET (Mailer R2.03B) with BSMTP id
 8695; Tue, 16 Jan 90 17:28:40 CST
Date:         Tue, 16 Jan 90 16:02:06 GMT
Reply-To:     INFO-MINIX <INFO-MINIX%edu.udel.louie@edu.nodak.vm1>
Original-Sender:       Minix operating system <MINIX-L@edu.nodak.vm1>
Comments:     Warning -- original Sender: tag was info-minix-request@UDEL.EDU
From:         Norbert Schlenker <nfs%edu.princeton.notecnirp@edu.nodak.vm1>
Subject:      Re: 1.5.0 /usr/src/lib/string
Comments: To: info-minix@udel.edu
To:           Multiple recipients of list MINIX-L <MINIX-L@ndsuvm1>
Sender: MINIX-L%edu.nodak.vm1@edu.cuny.cunyvm

In article <1753@cod.NOSC.MIL> hall@cod.NOSC.MIL (Robert R. Hall) writes:
>My system (an XT with 640k memory)  must be what some people are referring
>to as small systems, because I was unable have all the files required by
>Makefile for /usr/src/lib/string to fit in memory all at the same time.
>To get the makfile to run I had to split the pipe string into separate
>statements. See enclosed patch for Makefile.
>
>Robert R. Hall
>hall@nosc.mil

I have had a few email comments about this, so thought I should post this.
The /usr/src/lib/string Makefile was written to use sed because (1) the
existing libpack doesn't remove blank lines from the files it packs and
(2) the 1.3 grep binary (direct from P-H) is broken with respect to blank
lines (i.e. regular expressions of the form '^$' don't necessarily work -
this problem disappears if grep.c is recompiled).

With large binaries in the pipeline (both /usr/lib/cpp and /usr/bin/sed
qualify), the pipe is a bit hard to run on a small system.  Here is an
alternative:  a version of libpack that gets rid of its own blank lines.
With this version, the sed can be pulled out of the pipeline (the Makefile
has provision for using this version of libpack - look at its macros).

This libpack has the following advantages as well:
  - it deletes trailing spaces on lines, making .s files slightly smaller
  - if you specify a filename, libpack writes into it rather than onto
    standard output (particularly useful for people like me who always
    type "libpack file" instead of "libpack >file"
  - it uses <stdio>, so there is no limit on the size of the file being
    packed, and all that crufty buffering code has disappeared

It has the following disadvantage:
  - it uses <stdio>: if you are using the vanilla <stdio>, performance
    will be much poorer than the existing version.  Upgrade to either
    Earl Chew's or my package.

--------------------------------- Cut here -------------------------------
/* libpack - pack ASCII assembly code */
/* Packs common strings found in PC Minix assembly code into single	*/
/* byte abbreviations.  The abbreviations all have their high bit set.	*/
/* Do not alter the order of the entries in "table"; asld depends on it.*/

/* External interfaces */
#include <ctype.h>
#include <errno.h>
#include <stdio.h>
#include <string.h>

/* Constants */
#define MAXLINE	256			/* maximum input line length */
#define ABBREVS	128			/* number of abbreviations */
#define COMMENT '|'			/* comment character */

/* Structures and types */
struct node {
  char *string;				/* pointer to original string */
  size_t length;			/* length of original string */
  struct node *next;			/* next node with same hash value */
};
typedef unsigned short TWOBYTES;	/* CHEAT - used to return two bytes */

/* Local interfaces */
static void error_exit(/* int rc, char *msg */);
static void hash_init(/* void */);		/* initializes hash table */
static void pack_line(/* char *line */);	/* packs an input line */
static TWOBYTES abbreviate_string(/* char *s */); /* abbreviates a string */

/* Macros */
#define HASH(word) ((*(word) + *((word) + 1)) & 0x7f)
#define HIBYTE(n)  ((n) >> 8)
#define LOBYTE(n)  ((n) & 0xff)
#define MAKETWOBYTES(hi, lo)  ((((hi) & 0xff) << 8) | ((lo) & 0xff))

/* Static storage */
static char *table[] = {
"push ax",
"ret",
"mov bp,sp",
"push bp",
"pop bp",
"mov sp,bp",
".text",
"xor ax,ax",
"push 4(bp)",
"pop bx",
"pop si",
"cbw",
"movb al,(bx)",
"pop ax",
"xorb ah,ah",
"mov ax,#1",
"call _callm1",
"add sp,#16",
"mov bx,4(bp)",
"push 6(bp)",
"mov -2(bp),ax",
"I0013:",
"call .cuu",
"mov ax,-2(bp)",
"add 4(bp),#1",
"or ax,ax",
"jmp I0011",
"mov bx,8(bp)",
"push dx",
"mov cx,#2",
"mov bx,#2",
"I0011:",
"I0012:",
"push -2(bp)",
"mov ax,4(bp)",
"mov ax,-4(bp)",
"add sp,#6",
"and ax,#255",
"push bx",
"mov bx,-2(bp)",
"loop 2b",
"jcxz 1f",
".word 4112",
"mov ax,(bx)",
"mov -4(bp),ax",
"jmp I0013",
".data",
"mov bx,6(bp)",
"mov (bx),ax",
"je I0012",
".word 8224",
".bss",
"mov ax,#2",
"call _len",
"call _callx",
".word 28494",
".word 0",
"push -4(bp)",
"movb (bx),al",
"mov bx,ax",
"mov -2(bp),#0",
"I0016:",
".word 514",
".word 257",
"mov ",
"push ",
".word ",
"pop ",
"add ",
"4(bp)",
"-2(bp)",
"(bx)",
".define ",
".globl ",
"movb ",
"xor ",
"jmp ",
"cmp ",
"6(bp)",
"-4(bp)",
"-6(bp)",
"#16",
"_callm1",
"call ",
"8(bp)",
"xorb ",
"and ",
"sub ",
"-8(bp)",
"jne ",
".cuu",
"lea ",
"inc ",
"_M+10",
"#255",
"loop",
"jcxz",
"ax,#",
"bx,#",
"cx,#",
"ax,",
"bx,",
"cx,",
"dx,",
"si,",
"di,",
"bp,",
"ax",
"bx",
"cx",
"dx",
"si",
"di",
"bp",
"sp",
"dec ",
"neg ",
"_execve",
",#0",
NULL
};

/* This table is used to look up strings.  */

struct node node[ABBREVS];

struct node *hash[ABBREVS];		/* hash table */

/* Code */
int main(argc, argv)
int argc;
char *argv[];
{
  char line[MAXLINE];

  switch (argc) {
  case 1:
	break;
  case 2:
	if (freopen(argv[1], "r", stdin) == NULL)
		error_exit(ENOENT, "libpack: could not open file\n");
	break;
  default:
	error_exit(EINVAL, "Usage: libpack [file]\n");
  }

  hash_init();
  while (fgets(line, MAXLINE, stdin) != NULL) {
	pack_line(line);
	fputs(line, stdout);
  }

  exit(0);
}

static void error_exit(rc, msg)
int rc;
char *msg;
{
  fputs(msg, stderr);
  exit(rc);
}

static void hash_init()
{
  int i;
  register char **p;
  register struct node *np;

  for (i = 0, p = table; i < ABBREVS && *p != NULL; i++, p++) {
  	if (hash[HASH(*p)] == NULL) {
		hash[HASH(*p)] = &node[i];
	} else {
		for (np = hash[HASH(*p)]; np->next != NULL; np = np->next)
			;
		np->next = &node[i];
	}
	np = &node[i];
  	np->string = *p;
	np->length = strlen(*p);
  	np->next = NULL;
  }
}

static void pack_line(line)
char *line;
{
  register char *ip;
  register char *op;
  int in_white;
  TWOBYTES n;

  for (ip = line; *ip != '\0'; ++ip)		/* translate tabs */
	if (*ip == '\t') *ip = ' ';

  op = line;
  in_white = 1;
  for (ip = line; *ip != '\0'; ++ip) {		/* pack strings in line */
	if (*ip == COMMENT)
		break;
	if (isspace(*ip)) {
		if (!in_white) {
			*op++ = ' ';
			in_white = 1;
		}
		continue;
	}
	in_white = 0;
	n = abbreviate_string(ip);
	*op++ = LOBYTE(n);
	ip += HIBYTE(n);
  }

  if (op != line) {				/* finish nicely */
	if (op[-1] == ' ')
		--op;
	*op++ = '\n';
  }
  *op = '\0';
}

static TWOBYTES abbreviate_string(ip)
register char *ip;
{
  register struct node *np;

  for (np = hash[HASH(ip)]; np != NULL; np = np->next)
	if (strncmp(ip, np->string, np->length) == 0)
		return MAKETWOBYTES(np->length - 1, 128 + (np - node));

  return MAKETWOBYTES(0, *ip);
}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
End of returned mail