Source Code 1992 March

home *** CD-ROM | disk | FTP | other *** search

/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 2 / 2844 < prev next >

Wrap

Internet Message Format | 1991-02-24 | 49.7 KB

From: barnett@grymoire.crd.ge.com (Bruce Barnett) Newsgroups: alt.sources Subject: Ease 3.0: High Level Language for Sendmail (Part 2 of 6) Message-ID: <BARNETT.91Feb23021436@grymoire.crd.ge.com> Date: 23 Feb 91 07:14:36 GMT #! /bin/sh # This is a shell archive. Remove anything before this line, then unpack # it by saving it into a file and typing "sh file". To overwrite existing # files, type "sh file -c". You can also feed this as standard input via # unshar, or by typing "sh <file", e.g.. If this archive is complete, you # will see the following message at the end: # "End of archive 2 (of 6)." # Contents: doc/cfc.man src/Makefile src/errors.c src/idman.c # src/lexan.patch src/main.c src/symtab.c test/test.mc # Wrapped by barnett@grymoire on Sat Feb 23 01:13:52 1991 PATH=/bin:/usr/bin:/usr/ucb ; export PATH if test -f doc/cfc.man -a "${1}" != "-c" ; then echo shar: Will not over-write existing file \"doc/cfc.man\" else echo shar: Extracting \"doc/cfc.man\" $5708 characters$ sed "s/^X//" >doc/cfc.man <<'END_OF_doc/cfc.man' X... X... $Header: /home/kreskin/u0/barnett/Src/Ease/ease/doc/RCS/cfc.man,v 1.2 1990/04/04 15:42:51 jeff Exp barnett $ X... X... $Log: cfc.man,v $ X... Revision 1.2 1990/04/04 15:42:51 jeff X... Reformatted somewhat for readability. Added some bugs X... described by Bruce Barnett. X... X... Version 1.1 90/04/04 14:57:38 jeff X... Initial version X... X... Revision 2.0 88/06/15 15:17:36 arnold X... Baseline release for net posting. ADR. X... X... Revision 1.3 88/01/21 16:23:21 arnold X... Some typo fixes. X... X... Revision 1.2 87/04/08 10:21:47 arnold X... Small bug fixes, compatibility option added, also warnings for X... unrecognized flags and options. ADR. X... X... Revision 1.1 87/02/16 15:25:32 arnold X... Initial revision X... X... X.TH CFC local X.SH NAME Xcfc \- Sendmail cf file compiler X.SH SYNOPSIS X.B cfc X[ X.B \-s X] [ X.B \-i X] [ X.B \-d X] [ X.B \-c X] [ X.B \-u X] [ X.B \-C \fICLASSES\fP X] < X.I sendmail.cf-file X> X.I ease-source-file X.SH DESCRIPTION X.I Cfc Xis a filter that reads a raw X.IR sendmail (8) Xconfiguration file on its standard input, and produces almost useable X.IR ease (1) Xsource on its standard output. X.P XIt is designed as a conversion tool, to translate an existing X.B sendmail.cf Xfile into X.I ease Xwith the idea that all future work will be done in X.IR ease . X.P X.I Cfc Xpasses all comments through to the output, and converts all predefined X.I sendmail Xmacros, options, option values, and mailer flags into the names used by X.IR ease . X.P XIt is suggested you use X.I cfc Xto convert a X.I sendmail.cf Xfile into X.I ease Xformat, and then convert the X.I ease Xfile back into X.I sendmail Xformat. XYou may have to experiment with the right options and the right combinations Xbefore X.I ease Xwill generate an output file with no errors. XThen use the X.I cfdiff Xscript to compare the original X.I sendmail.cf Xfile to the output of X.IR ease . XYou should see some differences in formatting, as some X.I sendmail Xlines can be on one or two lines, and some options have more than one form. XOnce it is determined that these are the only difference, you should feel Xvery comfortable using X.I ease Xas a high level langauge for X.I sendmail Xfiles. XIf you are unable to make the two files identical, you may need to modify the X.I ease Xinput file so the output is correct. XIf necessary, you can use the X.IR asm () Xfunction in X.I ease Xto pass the characters, unchanged, to the output. X.P X.I Cfc Xisn't perfect. XYou may wish to modify the X.I ease Xfile for cosmetic reasons: X.IP X.I Cfc Xintroduces tabs on its own, as well as often passing through tabs Xfrom the X.I sendmail Xinput. XIt will also print a header for each different type of line, e.g. if the Xinput had seven X.B O X(option) lines, there will be seven option blocks. XThese are usually succesive, and can therefore be merged. X.IP XMove some comments. XThe block close on rulesets often comes after the comments that Xprecede the next ruleset or mailer specification. X X.RE X.P XIn short, X.I cfc Xdoes over 99% of the tedious work of translating a X.B sendmail.cf Xinto X.I ease Xformat. XSuprisingly, the combination of X.I cfc Xand X.I ease Xcan find bugs in a current X.B sendmail.cf Xfile! X.P X.I Cfc Xtakes five options. X.RS X.TP X.B \-c XIndicates that X.I cfc Xshould run in 4.2BSD compatibility mode. XIn this case, options and mailer flags which are new in the 4.3BSD Xversion of X.I sendmail Xwill not be recognized. X.TP X.B \-u X.I Cfc Xwill warn about the use of any undocumented options or mailer flags in Xthe 4.3BSD X.IR sendmail . XThe correct X.I ease Xoutput will still be produced. X.TP X.B \-s X.I Cfc Xwill assume the input file is for Sun's sendmail. XIt will produce a ruleset definition for rule number 30, which Sun uses Xin their standard configuration file, and older implementations Xcomplain about. It also adds some declarations that match Sun's Xadditions to sendmail, so errors won't occur. X.TP X.B \-d X.I Cfc Xwill cause some definitions to be added that will convert the Ultrix X.i sendmail.cf Xfile with fewer errors. X.TP X.B \-i X.I Cfc Xwill add some declarations that the IDA version of X.I sendmail Xlikes to see. X.TP X.B \-C X<LETTER><LETTER>... X.I Cfc Xwill add an additional header of the form X.I any_in_<LETTER> Xand X.I any_not_in_<LETTER> Xwhere X.I <LETTER> Xis a single character that specifes a class used in the sendmail file, Xbut not defined. XThis prevents X.I ease Xfrom complaining about undefined classes. X.RE X.P XWith the right compination of options and class definitions, it is Xeasy to convert a X.I sendmail Xfile into X.I ease , Xedit the file, and run X.I ease Xon the file, and install the output. X.\" .SH FILES X.SH SEE ALSO X.I "Sendmail Installation and Operation Guide" Xby Eric Allman X(SMM:7 in the 4.3 BSD UNIX System Manager's Manual), X.I "Ease: A Configuration Language for Sendmail" Xby James S. Schoner, amended by Jeff P. Stearns, Arnold D. Robbins, and Bruce G. Barnett. X.IR sendmail (8), X.IR ease (1). X.SH DIAGNOSTICS X``\c X.IR Routine : Xmalformed input line X.IR line : Xfatal error'' Xfor input it doesn't understand. X.I Routine Xis the name of the routine in X.I cfc Xwhich choked, and X.I line Xis the line number in the input. X.SH BUGS XOnly recognizes continuation lines (lines that begin with a \s-1TAB\s+1) Xfor header (H) and mailer (M) definitions. X.P XShould read from files on the command line, instead of being a pure filter. X.P XShould be a two pass program, and learn the classes which need Xdefining automatically. The X.B \-C Xoption is really a kludge. X.PP XIn some cases, you can use the X\fIasm(".......")\fP Xcommand to work around problems. X.SH AUTHOR X.nf XArnold Robbins XEmory University Computing Center Xarnold@emory.edu X XModifications by Bruce G. Barnett XGeneral Electric, Corporate Research and Development Xbarnett@crdgw1.ge.com X X.fi END_OF_doc/cfc.man if test 5708 -ne `wc -c <doc/cfc.man`; then echo shar: \"doc/cfc.man\" unpacked with wrong size! fi # end of overwriting check fi if test -f src/Makefile -a "${1}" != "-c" ; then echo shar: Will not over-write existing file \"src/Makefile\" else echo shar: Extracting \"src/Makefile\" $3877 characters$ sed "s/^X//" >src/Makefile <<'END_OF_src/Makefile' X# Makefile for Ease Translator (et). X# X# $Header: /home/kreskin/u0/barnett/Src/Ease/ease/src/RCS/Makefile,v 2.1 1990/01/30 13:54:13 jeff Exp barnett $ X# X# $Log: Makefile,v $ X# Revision 2.1 1990/01/30 13:54:13 jeff X# Updated for release 2.1 Aplha. X# X# Revision 2.0 88/06/15 14:47:35 root X# Baseline release for net posting. ADR. X# X# X# James S. Schoner, Purdue University Computing Center, X# West Lafayette, Indiana 47907 X# X# Copyright (c) 1985 by Purdue Research Foundation X# X# All rights reserved. X# X XINCLUDE = X X# where to install the binaries XBINDIR = ../bin X XOWNER = root XGROUP = staff XMODE = 755 X#INSTALL = install -c -m ${MODE} -o ${OWNER} -g ${GROUP} XINSTALL=cp X# define this for grammar debugging X#DEFS =-DYYDEBUG XDEFS = X# I had strange errors happen when I use SunOS Optimizer..... X# In particular, with SunOS 4.0.3, Sparc, and -O (-O2).... X# Maybe you better not use -O with SunOS XCFLAGS = -g ${DEFS} ${INCLUDE} X#CFLAGS = -O ${DEFS} ${INCLUDE} X XLP = lpr XLPFLAGS = -J"Ease Source" X XHDR = symtab.h XSRC = main.c emitcf.c errors.c idman.c strops.c symtab.c fixstrings.c XLST = Makefile lexan.l parser.y ${HDR} ${SRC} XDEP = parser.c lexan.c ${SRC} XOBJ = parser.o lexan.o main.o emitcf.o errors.o idman.o strops.o symtab.o \ X fixstrings.o XCFILES= $(SRC) $(DEP) X Xall: et X Xet: ${OBJ} X cc ${CFLAGS} -o et ${OBJ} -ll X Xclean: FRC X rm -f et *.o lexan.c parser.c y.output yacc.acts yacc.tmp \ X lexdefs.h y.tab.h errs Makefile.bak y.output y.tab.c y.tok.h X Xdepend: X ${CC} -M ${CFLAGS} ${CFILES} | \ X sed -e ':loop' \ X -e 's/\.\.\/[^ /]*\/\.\./../' \ X -e 't loop' | \ X awk ' { if ($$1 != prev) { print rec; rec = $$0; prev = $$1; } \ X else { if (length(rec $$2) > 78) { print rec; rec = $$0; } \ X else rec = rec " " $$2 } } ; \ X END { print rec } ' > makedep X echo '/^# DO NOT DELETE THIS LINE/+1,$$d' >eddep X echo '$$r makedep' >>eddep X echo 'w' >>eddep X cp Makefile Makefile.bak X ex - Makefile < eddep X rm eddep makedep X Xinstall: et FRC X ${INSTALL} et ${BINDIR} X ${INSTALL} ease.sh ${BINDIR}/ease X X Xlint: ${DEP} symtab.h FRC X lint -hxn ${DEP} X Xprint: ${LST} FRC X @pr -f ${LST} | ${LP} ${LPFLAGS} X Xspotless: clean FRC X rcsclean ${LST} X Xy.tab.h parser.c: parser.y X @rm -f parser.c X yacc -v -d parser.y X sed 's/=yylex/=yyyylex/' < y.tab.c >parser.c X X# the following dummy rule is because of the results of 'make depend' X# However, under SunOS Make - it complains. You may have to comment it out X./lexdefs.h: lexdefs.h X Xlexdefs.h: y.tab.h X -(cmp -s y.tab.h lexdefs.h || cp y.tab.h lexdefs.h) X Xlexan.c: lexan.l X Xparser.o: y.tok.h Xy.tok.h: y.tab.h X grep '^#.*define' y.tab.h |\ X sed 's/^# define $[^ ]*$ [^ ]*$$/ "\1",/' >y.tok.h X X${HDR} ${SRC} lexan.l parser.y: X co $@ X XFRC: X X# DO NOT DELETE THIS LINE -- make depend uses it X Xmain.o: main.c ./fixstrings.h /usr/include/stdio.h Xemitcf.o: emitcf.c /usr/include/stdio.h ./symtab.h ./fixstrings.h Xerrors.o: errors.c /usr/include/stdio.h ./fixstrings.h Xidman.o: idman.c /usr/include/stdio.h ./symtab.h ./fixstrings.h Xstrops.o: strops.c ./fixstrings.h /usr/include/stdio.h /usr/include/strings.h Xstrops.o: ./symtab.h Xsymtab.o: symtab.c ./fixstrings.h /usr/include/stdio.h /usr/include/ctype.h Xsymtab.o: ./symtab.h Xfixstrings.o: fixstrings.c /usr/include/strings.h Xparser.o: parser.c ./fixstrings.h /usr/include/stdio.h ./symtab.h Xlexan.o: lexan.c /usr/include/stdio.h ./fixstrings.h ./symtab.h ./lexdefs.h Xmain.o: main.c ./fixstrings.h /usr/include/stdio.h Xemitcf.o: emitcf.c /usr/include/stdio.h ./symtab.h ./fixstrings.h Xerrors.o: errors.c /usr/include/stdio.h ./fixstrings.h Xidman.o: idman.c /usr/include/stdio.h ./symtab.h ./fixstrings.h Xstrops.o: strops.c ./fixstrings.h /usr/include/stdio.h /usr/include/strings.h Xstrops.o: ./symtab.h Xsymtab.o: symtab.c ./fixstrings.h /usr/include/stdio.h /usr/include/ctype.h Xsymtab.o: ./symtab.h Xfixstrings.o: fixstrings.c /usr/include/strings.h END_OF_src/Makefile if test 3877 -ne `wc -c <src/Makefile`; then echo shar: \"src/Makefile\" unpacked with wrong size! fi # end of overwriting check fi if test -f src/errors.c -a "${1}" != "-c" ; then echo shar: Will not over-write existing file \"src/errors.c\" else echo shar: Extracting \"src/errors.c\" $4962 characters$ sed "s/^X//" >src/errors.c <<'END_OF_src/errors.c' X#ifdef FLUKE X# ifndef LINT X static char RCSid[] = "@(#)FLUKE $Header: /isis/usr2/share/src/local/tc/ease/src/RCS/errors.c,v 2.1 90/01/30 14:17:29 jeff Exp $"; X# endif LINT X#endif FLUKE X X/* X * errors.c -- Contains error initialization and reporting routines. X * X * author -- James S. Schoner, Purdue University Computing Center, X * West Lafayette, Indiana 47907 X * X * date -- July 9, 1985 X * X * Copyright (c) 1985 by Purdue Research Foundation X * X * All rights reserved. X * X * $Log: /isis/usr2/share/src/local/tc/ease/src/RCS/errors.c,v $ X * Version 2.1 90/01/30 14:17:29 jeff X * Bruce Barnett - extensions for SunOS/Ultrix. X * X * Revision 2.0 88/06/15 14:41:10 root X * Baseline release for net posting. ADR. X */ X X#include <stdio.h> X#include "fixstrings.h" X#include <ctype.h> Xextern int ErrorCount; /* error count */ Xextern char FNbuf[]; /* input file name */ Xextern int Lcount; /* line count */ XFILE *DIAGf = {stderr}; /* file for diagnostic output */ Xextern char yytext[]; /* current token */ Xextern int yyleng; /* and it's length */ Xextern int yylineno; /* current input line number */ Xextern char *infile; /* input file name */ Xstatic char *source; X X/* X * yywhere() -- input position for yyparse() X * from Schreiner and Friedman's book on compiler construction X */ Xvoid Xyywhere() /* position stamp */ X{ X char colon = 0; /* flag */ X if (source && *source && strcmp(source,"\"\"")) { X char *cp = source; X int len = strlen(source); X X if (*cp == '"') X ++cp, len -= 2; X if (strlen(cp, "./", 2) == 0) X cp += 2, len -= 2; X if (len > 0 ) X fprintf(DIAGf, "\"%.*s\"", len, cp); X colon = 1; X } else if (infile && strcmp(infile,"-")) { X fprintf(DIAGf, "\"%s\"",infile); X colon = 1; X } X if (yylineno > 0 ) { X if (colon) X fputs(", ",DIAGf); X fprintf(DIAGf, "line %d", X yylineno - (*yytext == '\n' || ! *yytext)); X colon = 1; X/* if ((yylineno - (*yytext == '\n' || ! *yytext)) != Lcount) X fprintf(DIAGf, "?%d:?", Lcount); */ X } X if (*yytext) { X register int i; X for (i=0;i<20;++i) X if (!yytext[i] || yytext[i] == '\n') X break; X if (i) { X if (colon) X putc(' ',DIAGf); X fprintf(DIAGf, "near \"%.*s\"",i,yytext); X colon = 1; X } X } X if (colon) X fputs(": ",DIAGf); X} X X X/* X * yymark - keep track of source file and line number X */ X Xvoid Xyymark() /* retreive from '# digit text' */ X{ X if (source) X cfree(source); X source = (char *) calloc(yyleng,sizeof(char)); X if (source) { X sscanf(yytext, "# %d%s",&yylineno, source); X/* fprintf(stderr,"source = '%s' on %s",source,yytext); */ X Lcount = yylineno; X if (strcmp(source,"\"\"")) X strcpy(FNbuf,source); X else if ( infile && strcmp(infile,"-")) X sprintf(FNbuf,"\"%s\"",infile); X/* fprintf(stderr,"FNbuf = '%s', infile = '%s'\n",FNbuf,infile); */ X X } X} X X X X/* X * yyerror () -- Prints source file name (FNbuf), line number (Lcount), X * and error message (sbErr) for each invokation. X * it also prints out a message where the error is. X * X */ Xvoid Xyyerror (sbErr) Xchar *sbErr; X{ X extern int yynerrs; X ++ErrorCount; X yywhere(); X/* fprintf(DIAGf, " %s\t[error %d]\n", sbErr, ErrorCount); */ X fprintf(DIAGf, " %s\n", sbErr); X/* yynerrs is the number of yacc errors, ErrorCount is larger */ X} X X X X/* X * ErrorReport () -- Prints source file name (FNbuf), line number (Lcount), X * and error message (sbErr) for each invokation. X * X */ Xvoid XErrorReport (sbErr) Xchar *sbErr; X{ X/* fprintf (DIAGf, "%s, line %d: %s", FNbuf, Lcount, sbErr); X ErrorCount++; */ X yyerror(sbErr); X} X X X/* X * FatalError () -- Translator fatal error routine which prints X * error message (sbErr) and an argument (sbArg). X * X */ Xvoid XFatalError (sbErr, sbArg) Xchar *sbErr, X *sbArg; X{ X fprintf (DIAGf, "%s, line %d: Fatal Error In Translator: %s %s\n", X FNbuf, Lcount, sbErr, sbArg); X exit (1); X} X X X/* X * PrintError () -- Prints source file name (FNbuf), line number X * (cline), error message (sbErr), and argument X * (sbArg) for each invokation. X * X */ Xvoid XPrintError (sbErr, sbArg) Xchar *sbErr; Xchar *sbArg; X{ X char Ebuffer[1000]; X sprintf(Ebuffer,sbErr,sbArg); X yyerror(Ebuffer); X/* fprintf (DIAGf, "%s, line %d: %s %s.\n", FNbuf, Lcount, sbErr, sbArg); X ErrorCount++; */ X} X X X/* X * PrintWarning () -- Prints a warning message with source file X * name (FNbuf), line number (Lcount), warning X * (sbWarn), and a possible identifier (sbID). X * X */ Xvoid XPrintWarning (sbWarn, sbID) Xchar *sbWarn; Xchar *sbID; X{ X/* fprintf (DIAGf, "%s, line %d: Warning: ", FNbuf, Lcount); */ X yywhere(); X fprintf(DIAGf,"Warning: "); X if (sbID != NULL) X fprintf (DIAGf, sbWarn, sbID); X else X fprintf (DIAGf, sbWarn); X} X X X/* X * InitError () -- Initialize line count (Lcount) to one and error count X * (ErrorCount) to zero. X * X */ Xvoid XInitError () X{ X Lcount = 1; X ErrorCount = 0; X} END_OF_src/errors.c if test 4962 -ne `wc -c <src/errors.c`; then echo shar: \"src/errors.c\" unpacked with wrong size! fi # end of overwriting check fi if test -f src/idman.c -a "${1}" != "-c" ; then echo shar: Will not over-write existing file \"src/idman.c\" else echo shar: Extracting \"src/idman.c\" $6609 characters$ sed "s/^X//" >src/idman.c <<'END_OF_src/idman.c' X#ifdef FLUKE X# ifndef LINT X static char RCSid[] = "@(#)FLUKE $Header: /tmp_mnt/home/kreskin/u0/barnett/Src/Ease/ease/src/RCS/idman.c,v 3.0 1991/02/22 18:50:27 barnett Exp $"; X# endif LINT X#endif FLUKE X X/* X * idman.c -- Contains routines for manipulating identifiers and their X * symbolic associations. X * X * author -- James S. Schoner, Purdue University Computing Center, X * West Lafayette, Indiana 47907 X * X * date -- July 9, 1985 X * X * Copyright (c) 1985 by Purdue Research Foundation X * X * All rights reserved. X * X * $Log: idman.c,v $ X * Revision 3.0 1991/02/22 18:50:27 barnett X * Added support for HP/UX and IDA sendmail. X * X * Revision 2.1 1990/01/30 14:33:52 jeff X * Bruce Barnett - changed UniqMac. X * X * Revision 2.0 88/06/15 14:42:14 root X * Baseline release for net posting. ADR. X */ X X#include <stdio.h> X#include <ctype.h> X#include "symtab.h" X#include "fixstrings.h" X Xextern struct he *LookupSymbol (); Xextern void FatalError (), X ErrorReport (), X PrintWarning (), X PrintError (); X X Xchar IDused[] = " "; /* 26 blanks */ X/* X * UniqMac () -- Assigns and returns a unique one-character macro X * name (upper-case) for an Ease macro name. X * X * Bruce Barnett: X * Special enhancement - if idval is a single character, X * and the corresponding letter has not been assigned, X * Make the idc character the same as the macro name X * X * This makes it nice to test cfc/ease completeness. X * Also makes reading the ease output easier. X * X */ Xchar XUniqMac (phe) Xstruct he *phe; /* symbol table entry for Ease macro */ X{ X short i; X X if ((strlen(phe->psb) == 1) && X isupper(*(phe->psb)) && X IDused[*(phe->psb) - 'A'] == ' ' ) { X IDused[*(phe->psb) - 'A'] = (phe->idval.idc) = *(phe->psb); X } else { X for (i=0;i<26 && IDused[i] != ' ';i++) X ; /* find first unused letter */ X if (i==26) FatalError ("Too many macro names (26 max)", (char *) NULL); X IDused[i] = X (phe->idval.idc) = X 'A' + i; X } X return (phe->idval.idc); X} X X X/* X * BindID () -- Binds either a ruleset or precedence identifier (phe) to X * an integer (vid). The id type distinction is passed in X * the parameter idt. X * X */ Xvoid XBindID (phe, vid, idt) Xregister struct he *phe; /* symbol table entry for an identifier */ Xint vid; /* value of the identifier */ Xunsigned idt; /* identifier type (ruleset or precedence) */ X{ X if (ISTYPED(phe->idtype)) { /* should be undefined */ X PrintWarning ("Redeclaration of %s.\n", phe->psb); X phe->idtype = ID_UNTYPED; X } X phe->idtype |= idt; /* make defined */ X if (ISRULESET(phe->idtype)) { X if (vid > VALRSNMAX) { X ErrorReport ("Ruleset number too large.\n"); X return; X } else if (vid < 0) { X ErrorReport ("Ruleset number must be non-negative.\n"); X return; X } X sprintf (phe->idval.rsn, "%d", vid); X } else X phe->idval.prec = vid; X} X X X/* X * CheckRS () -- Checks validity of a ruleset identifier (phe) and X * returns the ruleset string to which the identifier X * is bound. If the ruleset identifier is invalid, the X * null string is returned. X * X */ Xchar * XCheckRS (phe) Xstruct he *phe; /* symbol table entry for ruleset identifier */ X{ X if (!ISRULESET(phe->idtype)) { X if (!ISTYPED(phe->idtype)) X PrintError ("Ruleset identifier not bound to a number: %s", phe->psb); X else X PrintError ("Identifier not of ruleset type: %s", phe->psb); X return (NULL); X } else X return (phe->idval.rsn); X} X X X/* X * MakeMac () -- Declare a macro name (pmac) as a class and/or macro type X * (targtype) and return the unique cf character assigned X * to it. X * X */ Xchar XMakeMac (pmac, targtype) Xregister struct he *pmac; /* symbol table entry for macro identifier */ Xunsigned targtype; /* target declaration type for the macro */ X{ X /* X * An Ease macro may be declared as both a singular macro and X * a class macro. X * X */ X if (ISMACRO(pmac->idtype) || ISCLASS(pmac->idtype)) { X pmac->idtype |= targtype; X return (pmac->idval.idc); X } X if (ISTYPED(pmac->idtype)) { /* not a macro or class id */ X PrintError ("Redeclaring or using as macro or class: %s", pmac->psb); X return ('\0'); X } X pmac->idtype |= targtype; /* previously untyped; declare here */ X return (UniqMac (pmac)); X} X X X/* X * GetField () -- Returns a field type string given a field X * identifier (fid). X * X */ Xchar * XGetField (fid) Xregister struct he *fid; /* field identifier */ X{ X if (!ISFIELD(fid->idtype)) { X PrintError ("Field type not defined for %s", fid->psb); X return (NULL); X } else X return (fid->idval.fstring); X} X X X/* X * CheckMailer () -- Declares a mailer identifier (mid) as type mailer, X * checking that the identifier was not previously X * declared a different type. X * X */ Xchar * XCheckMailer (mid) Xregister struct he *mid; X{ X if (ISTYPED (mid->idtype) && !ISMAILER (mid->idtype)) { X PrintError ("Redeclaration as mailer: %s", mid->psb); X return (NULL); X } X mid->idtype |= ID_MAILER; X return (mid->psb); X} X X X/* X * AssignType () -- Assigns to each field identifier in fidlist the X * type (in string form) fidtype. This is accomplished X * by making each field identifier symbol table entry X * "point" to the type found in fidtype. X * X */ Xvoid XAssignType (fidlist, fidtype) Xregister char *fidlist; /* field identifier list, blank separated */ Xchar *fidtype; /* field identifier type string */ X{ X register struct he *fid; /* pointer to a field identifier */ X char *fres; /* field type result string */ X register char *srch; /* fidlist search pointer */ X char sep; /* fidlist separator character */ X X fres = (char *) malloc (strlen (fidtype) + 1); X if (fres == NULL) X FatalError ("System out of string space in AssignType ()", (char *) NULL); X strcpy (fres, fidtype); /* make clean copy of string type */ X X /* X * Search for all field identifiers and make the type assignment. X * X */ X srch = fidlist; X while (*srch != '\0') { X while ((*++srch != ' ') && (*srch != '\0')) X /* null */ ; X if (*fidlist != '\0') { /* found a field id */ X sep = *srch; X *srch = '\0'; X fid = LookupSymbol (fidlist); /* get symbol table entry */ X if (ISFIELD(fid->idtype)) { X if (strcmp (fid->idval.fstring, fres)) X PrintWarning ("Redefinition of field type for %s.\n", fid->psb); X } else if (ISTYPED(fid->idtype)) { X PrintError ("Redeclaration of identifier as a field: %s", fid->psb); X return; X } X fid->idtype |= ID_FIELD; /* type the identifier */ X fid->idval.fstring = fres; /* type the field */ X if ((*srch = sep) != '\0') X fidlist = ++srch; X } X } X} END_OF_src/idman.c if test 6609 -ne `wc -c <src/idman.c`; then echo shar: \"src/idman.c\" unpacked with wrong size! fi # end of overwriting check fi if test -f src/lexan.patch -a "${1}" != "-c" ; then echo shar: Will not over-write existing file \"src/lexan.patch\" else echo shar: Extracting \"src/lexan.patch\" $5320 characters$ sed "s/^X//" >src/lexan.patch <<'END_OF_src/lexan.patch' X*** /home/kreskin/u0/barnett/Src/ease/src/lexan.l Wed Mar 1 15:43:53 1989 X--- lexan.l Mon May 7 14:12:53 1990 X*************** X*** 59,78 **** X static char linbuf[BUFSIZ], *pc = linbuf; X char c; X X- X- X- X- X /* initialize buffer: first call only */ X if (*pc == '\0' && pc == linbuf) { X if (fgets(linbuf, BUFSIZ, yyin)==NULL) X return EOF; X! if (linbuf[0] == '#' ) X! fprintf(yyout, "%s", linbuf); /* echo input as comment */ X! else X! fprintf(yyout, "# %s", linbuf); /* echo input as comment */ X! X } X c = *pc++; X if (c == '\n') { X pc = linbuf; X--- 68,82 ---- X static char linbuf[BUFSIZ], *pc = linbuf; X char c; X X /* initialize buffer: first call only */ X if (*pc == '\0' && pc == linbuf) { X if (fgets(linbuf, BUFSIZ, yyin)==NULL) X return EOF; X! /* echo input as comment */ X! if (EchoInputAsComments) { X! fprintf(yyout, "%s%s", (linbuf[0] == '#' ? "" : "# "), linbuf); X } X+ } X c = *pc++; X if (c == '\n') { X pc = linbuf; X*************** X*** 79,90 **** X if (fgets(linbuf, BUFSIZ, yyin) == NULL) X *pc = EOF; X else X! /* echo input as comment except cpp comments */ X! if (linbuf[0] == '#' ) X! fprintf(yyout, "%s", linbuf); /* echo input as comment */ X! else X! fprintf(yyout, "# %s", linbuf); /* echo input as comment */ X } X return c; X } X X--- 83,94 ---- X if (fgets(linbuf, BUFSIZ, yyin) == NULL) X *pc = EOF; X else X! /* echo input as comment (except cpp comments) */ X! if (EchoInputAsComments) { X! fprintf(yyout, "%s%s", X! (linbuf[0] == '#' ? "" : "# "), linbuf); X } X+ } X return c; X } X X*************** X*** 103,109 **** X { "Path", MPATH }, X { "Recipient", MRECIPIENT }, X { "Sender", MSENDER }, X- { "asm", ASM }, X { "bind", BIND }, X { "canon", CANON }, X { "class", CLASS }, X--- 107,112 ---- X*************** X*** 112,121 **** X { "d_interactive", DOPTI }, X { "d_queue", DOPTQ }, X { "define", DEFINE }, X- { "eval", EVAL }, X { "f_addrw", CCFLAG }, X { "f_arpa", AAFLAG }, X- { "f_bsmtp", BBFLAG }, /* IDA */ X { "f_date", DDFLAG }, X { "f_dot", XXFLAG }, X { "f_escape", EEFLAG }, X--- 115,122 ---- X*************** X*** 125,136 **** X { "f_full", XFLAG }, X { "f_llimit", LLFLAG }, X { "f_locm", LFLAG }, X- { "f_mail11", HHFLAG }, X { "f_mesg", MMFLAG }, X { "f_mult", MFLAG }, X { "f_noreset", SSFLAG }, X { "f_noufrom", NFLAG }, X- { "f_relativize", VVFLAG }, X { "f_retsmtp", PFLAG }, X { "f_return", PPFLAG }, X { "f_rfrom", RFLAG }, X--- 126,135 ---- X*************** X*** 159,171 **** X { "match", MATCH }, X { "next", NEXT }, X { "o_alias", AAOPT }, X- { "o_aliasfile", YYOPT }, X { "o_bsub", BBOPT }, X { "o_checkpoint", CCOPT }, X { "o_delivery", DOPT }, X { "o_dmuid", UOPT }, X { "o_dnet", NNOPT }, X- { "o_envelope", SLOPT }, X { "o_ewait", AOPT }, X { "o_flog", SSOPT }, X { "o_fsmtp", HHOPT }, X--- 158,168 ---- X*************** X*** 174,183 **** X { "o_hformat", OOPT }, X { "o_loadnc", XXOPT }, X { "o_loadq", XOPT }, X- { "o_maxempty", BOPT }, X- { "o_maxhops", HOPT }, X { "o_newproc", YYOPT }, X- { "o_nfs", RROPT }, /* SunOS 4.0 */ X { "o_pmaster", PPOPT }, X { "o_prifactor", ZOPT }, X { "o_qdir", QQOPT }, X--- 171,177 ---- X*************** X*** 200,209 **** X { "o_wizpass", WWOPT }, X { "options", OPTIONS }, X { "precedence", PRECEDENCE }, X- { "quote", QUOTE }, X { "readclass", READCLASS }, X { "resolve", RESOLVE }, X- { "resolved", RESOLVED }, X { "retry", RETRY }, X { "return", RETURN }, X { "ruleset", RULESET }, X--- 194,201 ---- X*************** X*** 210,218 **** X { "trusted", TRUSTED }, X { "user", USER }, X { "while", IF }, X- { "ypalias", YPALIAS }, X- { "ypmap", YPMAP }, X- { "yppasswd", YPPASSWD }, X }; X %} X X--- 202,207 ---- X*************** X*** 221,231 **** X X [ \t\f]+ ; /* discard whitepsace */ X [\n] Lcount++; X! ^\#[ \t]*[0-9]+[ \t]*\".*\"[ \t]*.*[\n] { X! /* sscanf (yytext, "%*c%d%s", &Lcount, FNbuf); */ X! yymark(); X } X! [A-Za-z_][A-Za-z0-9_-]* { X register int l, h, m, r, c; X X l = 0; X--- 210,219 ---- X X [ \t\f]+ ; /* discard whitepsace */ X [\n] Lcount++; X! ^\#[ \t]*[0-9]+[ \t]*\".*\"[ \t]*[\n] { X! sscanf (yytext, "%*c%d%s", &Lcount, FNbuf); X } X! [A-Za-z][A-Za-z0-9_-]* { X register int l, h, m, r, c; X X l = 0; X*************** X*** 292,305 **** X INch = input (); X } X } X- "/" return (SLASH); X [\\]?. { X if (RMatch) { /* in rulesets, return literal character */ X yylval.ival = (yytext[0] == '\\') ? yytext[1] : yytext[0]; X return (SEPCHAR); X- X } else { X! PrintError ("Illegal delimiter character: (octal code) \\%03o", *yytext); X } X } X %% X--- 280,292 ---- X INch = input (); X } X } X [\\]?. { X if (RMatch) { /* in rulesets, return literal character */ X yylval.ival = (yytext[0] == '\\') ? yytext[1] : yytext[0]; X return (SEPCHAR); X } else { X! ErrorReport ("Illegal delimiter character"); X! printf (": (octal code) \\%03o\n", *yytext); X } X } X %% END_OF_src/lexan.patch if test 5320 -ne `wc -c <src/lexan.patch`; then echo shar: \"src/lexan.patch\" unpacked with wrong size! fi # end of overwriting check fi if test -f src/main.c -a "${1}" != "-c" ; then echo shar: Will not over-write existing file \"src/main.c\" else echo shar: Extracting \"src/main.c\" $7308 characters$ sed "s/^X//" >src/main.c <<'END_OF_src/main.c' X#ifdef FLUKE X# ifndef LINT X static char RCSid[] = "@(#)FLUKE $Header: /isis/usr2/share/src/local/tc/ease/src/RCS/main.c,v 2.2 90/05/07 11:14:02 jeff Exp $"; X# endif LINT X#endif FLUKE X X/* X * main.c -- Main procedure for Ease Translator. X * X * author -- James S. Schoner, Purdue University Computing Center X * West Lafayette, Indiana 47907 X * X * date -- July 9, 1985 X * X * Copyright (c) 1985 by Purdue Research Foundation X * X * All rights reserved. X * X * $Log: /isis/usr2/share/src/local/tc/ease/src/RCS/main.c,v $ X * Version 2.2 90/05/07 11:14:02 jeff X * Add support for the "-q" flag which controls whether input lines X * are passed through as comments in the output stream. X * X * Version 2.1 90/01/30 15:37:16 jeff X * Filter input file through cpp before processing it. X * X * Revision 2.0 88/06/15 14:42:41 root X * Baseline release for net posting. ADR. X * X */ X X X#ifndef CPP /* filename of preprocessor */ X# define CPP "/lib/cpp" X#endif CPP X X#ifndef CPPARGS /* valid arguments of preprocessor */ X#ifdef sun /* Sun's cpp has more options - I guess */ X# define CPPARGS "BCHpPRTDIUY" X#else X# define CPPARGS "CDEIPU" X#endif sun X#endif CPP X X#include "fixstrings.h" X#include <stdio.h> X#include <ctype.h> X Xextern FILE *DIAGf; /* diagnostic file */ Xchar *infile = 0; /* input file name */ Xchar *outfile = 0; /* output file name */ Xextern void InitError (), X InitSymbolTable (), X DefScan (), X FatalError (), X PreLoad (); X Xint EchoInputAsComments = 1; /* should input lines be echoed X * as comments? X */ Xint ErrorCount; /* translation error count */ Xvoid GetArgs (); /* gets arguments to "et" */ X X#ifdef YYDEBUG Xextern int yydebug; X#else Xstatic int yydebug; X#endif X X/* X * main () -- Main procedure for the Ease Translator et. If no files are X * given as arguments to et, stdin is translated and written to X * stdout. If one file is given, it is translated and written X * to stdout. If two files are given, the first is translated X * and written to the second. If the first filename is "-", X * standard input is assumed. A translation is performed on X * valid Ease input only, producing a regular sendmail X * configuration file. X * X */ Xvoid Xmain (argc, argv) Xint argc; /* argument count for "et" */ Xchar *argv[]; /* argument vector for "et" */ X{ X InitError (); /* initialize error conditions */ X InitSymbolTable (); /* initialize the symbol table */ X PreLoad (); /* preload special identifiers */ X GetArgs (argc, argv); /* set up argument files */ X (void) yyparse (); /* perform translation */ X if (fflush (stdout) == EOF) X FatalError ("Cannot flush output stream/file", (char *) NULL); X DefScan (); /* warn about undefined idents */ X if (ErrorCount) X fprintf (DIAGf, "\n\n*** %d error(s) detected.\n", ErrorCount); X exit (ErrorCount); X} X X X/* X * GetArgs () -- Processes arguments to the Ease translator "et". The X * arguments are files (margv) which may replace either/both X * of the files standard input and standard output. The X * following cases are possible: X * X * -- et f.e f.cf X * Translate Ease file f.e and write result X * to f.cf. X * X * -- et f.e X * Translate Ease file f.e and write result to X * standard output. X * X * -- et - f.cf X * Translate standard input and write result to X * f.cf. X * X * -- et X * Translate standard input and write result to X * standard output. X * X * et also accepts arguments. These include the /lib/cpp arguments X * and the -d argument for debugging grammars. X * X * Finally, a message indicating the volatility of the X * Ease output is written. X * X */ Xvoid XGetArgs (margc, margv) Xregister int margc; /* argument count */ Xregister char **margv; /* argument vector */ X{ X register char **argp; X int cppflags = 0; X int otherflags = 0; X int arg; X X for (arg = 1; arg < margc; ++arg) { /* scan arguments */ X if (margv[arg][0] == '-') { /* a flag?*/ X if (isalpha(margv[arg][1])) { /* yes - a flag */ X if (index(CPPARGS,margv[arg][1])) ++cppflags; /* one belonging to the CPP */ X else if (margv[arg][1] == 'd' ) yydebug = 1; X else if (margv[arg][1] == 'q' ) EchoInputAsComments = 0; X else ++otherflags; X } else if (! margv[arg][1]) { /* this argument is just a '-' */ X if ( (arg - yydebug - cppflags - otherflags) == 1 ) X infile = margv[arg]; X else if ( (arg - yydebug - cppflags - otherflags) == 2 ) X outfile = margv[arg]; X else X FatalError ("Usage: et [-%s] [infile [outfile]]", CPPARGS); X } else { X FatalError ("Usage: et [-%s] [infile [outfile]]", CPPARGS); X } /* end if a -argument */ X } else { /* a filename - i guess */ X if ( (arg - yydebug - cppflags - otherflags) == 1 ) X infile = margv[arg]; X else if ( (arg - yydebug - cppflags - otherflags) == 2 ) X outfile = margv[arg]; X else X FatalError ("Usage: et [-d] [-q] [-%s] [infile [outfile]]", CPPARGS); X } /* end if a filename argument */ X } /* done with parsing all of the arguments */ X if (otherflags) X FatalError ("Usage: et [-%s] [infile [outfile]]", CPPARGS); X if (infile && strcmp(infile,"-") ) X if (freopen (infile, "r", stdin) == NULL) X FatalError ("Cannot open input stream/file:", infile); X if (outfile && strcmp(outfile,"-") ) X if (freopen (outfile, "w", stdout) == NULL) X FatalError ("Cannot open output stream/file:", outfile); X if (cppflags && cpp(margc,margv)) X FatalError ("Cannot open preprocessor", CPP); X X printf ("###################################################\n"); X printf ("## ##\n"); X printf ("## WARNING: THIS FILE IS THE OUTPUT OF THE ##\n"); X printf ("## `EASE' PRECOMPILER FOR SENDMAIL ##\n"); X printf ("## CONFIGURATION FILES. ##\n"); X printf ("## ##\n"); X printf ("## MAKE MODIFICATIONS TO THE SOURCE ##\n"); X printf ("## FILE ONLY. CHANGES MADE DIRECTLY ##\n"); X printf ("## TO THIS FILE WILL DISAPPEAR THE ##\n"); X printf ("## NEXT TIME THAT EASE IS RUN. ##\n"); X printf ("## ##\n"); X printf ("###################################################\n"); X} X X/* cpp preprocessor code X * copied from Schreiner and Friedman's book: X * Introduction to Compiler Construction with Unix X * X * Bruce Barnett X */ X Xint cpp(argc,argv) X int argc; X char **argv; X{ X char **argp, *cmd; X extern FILE *yyin; /* for lex input */ X extern FILE *popen(); X int i; X X for (i = 0, argp = argv; *++argp; ) X if (**argp == '-' && X index(CPPARGS, (*argp)[1])) X i+=strlen(*argp) + 1; X if ( ! (cmd = (char *) calloc(i + sizeof CPP, sizeof(char)))) X return -1; /* no room */ X (void *) strcpy(cmd,CPP); X for (argp = argv; *++argp; ) X if (**argp == '-' && X index(CPPARGS, (*argp)[1])) X strcat(cmd, " "), strcat(cmd, *argp); X if (yyin = popen(cmd,"r")) X i = 0; /* all's well */ X else X i = -1; /* no preprocessor */ X cfree(cmd); X return i; X} END_OF_src/main.c if test 7308 -ne `wc -c <src/main.c`; then echo shar: \"src/main.c\" unpacked with wrong size! fi # end of overwriting check fi if test -f src/symtab.c -a "${1}" != "-c" ; then echo shar: Will not over-write existing file \"src/symtab.c\" else echo shar: Extracting \"src/symtab.c\" $6485 characters$ sed "s/^X//" >src/symtab.c <<'END_OF_src/symtab.c' X#ifdef FLUKE X# ifndef LINT X static char RCSid[] = "@(#)FLUKE $Header: /tmp_mnt/home/kreskin/u0/barnett/Src/Ease/ease/src/RCS/symtab.c,v 3.0 1991/02/22 18:50:27 barnett Exp $"; X# endif LINT X#endif FLUKE X X/* X * symtab.c -- Contains Ease Translator symbol table routines. X * X * author -- James S. Schoner, Purdue University Computing Center, X * West Lafayette, Indiana 47907 X * X * date -- July 9, 1985 X * X * Copyright (c) 1985 by Purdue Research Foundation X * X * All rights reserved. X * X * $Log: symtab.c,v $ X * Revision 3.0 1991/02/22 18:50:27 barnett X * Added support for HP/UX and IDA sendmail. X * X * Revision 2.1 1990/01/30 15:55:54 jeff X * SunOS/Ultrix/Ida additions Jan 25 1988 Bruce Barnett X * X * Revision 2.0 88/06/15 14:43:04 root X * Baseline release for net posting. ADR. X */ X X#include "fixstrings.h" X#include <stdio.h> X#include <ctype.h> X#include "symtab.h" X X#define ERRORMAILER "error" /* predefined error mailer name */ X Xextern void FatalError (), X PrintWarning (); X Xstruct he *LookupSymbol (); X Xstruct Defmac { /* predefined macro struct def */ X char *macname; X char macrep; X}; X Xstatic struct he *SymTab[SST]; /* hash table base array */ Xstatic struct Defmac MacDefs[] = { /* predefined macros */ X {"m_smtp", 'e'}, X {"m_oname", 'j'}, X {"m_uucpname", 'k'}, /* IDA */ X {"m_ufrom", 'l'}, X {"m_daemon", 'n'}, X {"m_domain", 'm'}, /* SunOS */ X {"m_addrops", 'o'}, X {"m_defaddr", 'q'}, X {"m_sitename", 'w'}, X {"m_odate", 'a'}, X {"m_adate", 'b'}, X {"m_hops", 'c'}, X {"m_udate", 'd'}, X {"m_saddr", 'f'}, X {"m_sreladdr", 'g'}, X {"m_rhost", 'h'}, X {"m_qid", 'i'}, X {"m_pid", 'p'}, X {"m_protocol", 'r'}, X {"m_shostname", 's'}, X {"m_ctime", 't'}, X {"m_ruser", 'u'}, X {"m_version", 'v'}, X {"m_sname", 'x'}, X {"m_stty", 'y'}, X {"m_rhdir", 'z'}, X {"sentinel", '\0'} X}; X X/* FLUKE jps 28-apr-86 - Install some wired-in class names */ Xstatic struct Defmac ClassDefs[] = { /* predefined classes */ X {"c_myname", 'w'}, X {"c_mydomain", 'm'}, X {"class_sentinel", '\0'} X}; X X/* X * DefScan () -- Scan symbol table to find macros, classes, mailers, X * and rulesets which have been referenced or declared, but X * not defined. A warning is printed for each such X * occurence. This routine is usually called at the end X * of a successful Ease translation. X * X */ Xvoid XDefScan () X{ X register int stindex; /* symbol table hash index */ X register struct he *hcsearch; /* hash chain search pointer */ X X for (stindex = 0; stindex < SST; stindex++) { X if ((hcsearch = SymTab[stindex]) != NULL) X while (hcsearch != NULL) { X if ((ISMACRO(hcsearch->idtype) && X isupper(hcsearch->idval.idc)) && X !ISMACRO(hcsearch->idd)) X PrintWarning ("Macro not defined: %s\n", hcsearch->psb); X#ifdef notdef X if (ISCLASS(hcsearch->idtype) && !ISCLASS(hcsearch->idd)) X#else X /* FLUKE jps 28-apr-86 */ X /* print warnings for UPPER CASE names only */ X if (ISCLASS(hcsearch->idtype) && X isupper(hcsearch->idval.idc) && X !ISCLASS(hcsearch->idd)) X#endif X PrintWarning ("Class not defined: %s\n", hcsearch->psb); X if (ISMAILER(hcsearch->idtype) && !ISMAILER(hcsearch->idd)) X PrintWarning ("Mailer not defined: %s\n", hcsearch->psb); X if (ISRULESET(hcsearch->idtype) && !ISRULESET(hcsearch->idd)) X PrintWarning ("Ruleset not defined: %s\n", hcsearch->psb); X hcsearch = hcsearch->phe; X } X } X} X X X/* X * InitSymbolTable () -- Invoked by main () to initialize the symbol table. X * X */ Xvoid XInitSymbolTable () X{ X int i; X X for (i = 0; i < SST; i++) /* initialize base array */ X SymTab[i] = NULL; X} X X X/* X * PreLoad () -- Invoked by main () to preload special macro names X * and mailer declarations. X * X */ Xvoid XPreLoad () X{ X struct Defmac *macptr; X struct he *symptr; X X /* preload special (lower-case) macros */ X for (macptr = &MacDefs[0]; (*macptr).macrep != '\0'; macptr++) { X symptr = LookupSymbol ((*macptr).macname); X symptr->idtype |= ID_MACRO; X symptr->idval.idc = (*macptr).macrep; X } X X /* preload special (lower-case) classes */ X for (macptr = &ClassDefs[0]; (*macptr).macrep != '\0'; macptr++) { X symptr = LookupSymbol ((*macptr).macname); X symptr->idtype |= ID_CLASS; X symptr->idval.idc = (*macptr).macrep; X } X X /* preload error mailer declaration */ X symptr = LookupSymbol (ERRORMAILER); X symptr->idtype |= ID_MAILER; X symptr->idd |= ID_MAILER; X} X X X/* X * LookupSymbol () -- Returns a pointer to the hash entry already X * existing, or newly created, which corresponds X * to string sb. X * X */ Xstruct he * XLookupSymbol (sb) Xchar sb[]; /* string buffer containing identifier */ X{ X struct he *phe; /* hash entry search pointer */ X int hc; /* hash code of sb identifier */ X extern char *malloc (); X X phe = SymTab[hc = HashCode (sb)]; X while (phe != NULL) /* find hash entry for sb */ X if (!strcmp (phe->psb, sb)) X return (phe); X else X phe = phe->phe; X /* make new symbol table entry */ X if ((phe = (struct he *) malloc (sizeof (struct he))) == NULL) X FatalError ("System out of space in LookupSymbol ()", (char *) NULL); X if ((phe->psb = (char *) malloc (strlen (sb) + 1)) == NULL) X FatalError ("System out of space in LookupSymbol ()", (char *) NULL); X strcpy (phe->psb, sb); X phe->idval.idc = '\0'; X phe->idtype = ID_UNTYPED; X phe->idd = ID_UNTYPED; X phe->phe = SymTab[hc]; X return (SymTab[hc] = phe); X} X X X/* X * RemoveSymbol () -- Removes the symbol table entry phe from the X * symbol table. X * X */ Xvoid XRemoveSymbol (phe) Xstruct he *phe; /* pointer to hash entry to be removed from symbol table */ X{ X int hc; /* hash code of entry phe */ X struct he *sphe; /* search pointer for entry phe */ X X if (phe == NULL) X return; X else { /* search and remove entry phe */ X sphe = SymTab[hc = HashCode (phe->psb)]; X free (phe->psb); X if (sphe == phe) X SymTab[hc] = phe->phe; X else X while (sphe != NULL) X if (sphe->phe == phe) { X sphe->phe = phe->phe; X return; X } else X sphe = sphe->phe; X } X} X X X/* X * HashCode () -- Returns the hash code of the string in sb by adding X * the character values and applying mod by the hash X * table size. X * X */ Xint XHashCode (sb) Xchar sb[]; X{ X int ccSum = 0; /* sum of char values in string sb */ X int i; X X for (i = 0; sb[i]; i++) /* add char codes for sb chars */ X ccSum += sb[i]; X return (ccSum % SST); /* return sum mod table size */ X} END_OF_src/symtab.c if test 6485 -ne `wc -c <src/symtab.c`; then echo shar: \"src/symtab.c\" unpacked with wrong size! fi # end of overwriting check fi if test -f test/test.mc -a "${1}" != "-c" ; then echo shar: Will not over-write existing file \"test/test.mc\" else echo shar: Extracting \"test/test.mc\" $4506 characters$ sed "s/^X//" >test/test.mc <<'END_OF_test/test.mc' X/* X * Sendmail configuration file for test rulesets X * X * Simon Kenyon November 20th, 1986 X */ X Xbind X EnvelopeTo = ruleset 0; X From = ruleset 1; X HeaderTo = ruleset 2; X Canonicalize = ruleset 3; X Externalize = ruleset 4; X X LocalHeaderFrom = ruleset 10; X UucpHeaderFrom = ruleset 11; X X LocalHeaderTo = ruleset 20; X UucpHeaderTo = ruleset 21; X Xmacro X Domain = "my_domain"; X Version = "ruleset tester V1.0"; X X m_sitename = "whatever"; X m_oname = "${m_sitename}.${Domain}"; X m_daemon = "MAILER-DAEMON"; X /*m_ufrom = "From ${m_sreladdr} ${m_udate} remote from ${m_sitename}";*/ X m_ufrom = "From ${m_sreladdr} ${m_udate}"; X m_addrops = ".:%@!^=/[]{}"; X m_defaddr = concat ( X ifset (m_sname, "${m_sname} <${m_sreladdr}>", X "${m_sreladdr}"), X "" X ); X m_smtp = "${m_oname} Sendmail ${m_version}/${Version} ready at ${m_adate}"; X Xoptions X o_alias = "/usr/lib/aliases"; X o_delivery = d_background; X o_dmuid = "1"; X o_flog = "/usr/lib/sendmail.st"; X o_fsmtp = "/usr/lib/sendmail.hf"; X o_gid = "1"; X o_hformat = ""; X o_qdir = "/usr/spool/mqueue"; X o_qtimeout = "3d"; X o_safe = ""; X o_slog = "9"; X o_timezone = "WET"; X o_tmode = "0644"; X o_tread = "r2h"; X o_wizpass = "*"; X Xprecedence X first-class = 0; X special-delivery = 100; X junk = -100; X Xtrusted X {root, daemon, uucp, network}; X {simon}; X Xheader X define ("a:", "The origination date in Arpanet format = ${m_odate}"); X define ("b:", "The current date in Arpanet format = ${m_adate}"); X define ("c:", "The hop count = ${m_hops}"); X define ("d:", "The date in UNIX (ctime) format = ${m_udate}"); X define ("e:", "The SMTP entry message = ${m_smtp}"); X define ("f:", "The sender (from) address = ${m_saddr}"); X define ("g:", "The sender address relative to the recipient = ${m_sreladdr}"); X define ("h:", "The recipient host = ${m_rhost}"); X define ("i:", "The queue id = ${m_qid}"); X define ("j:", "The official domain name for this site = ${m_oname}"); X define ("l:", "The format of the UNIX from line = ${m_ufrom}"); X define ("n:", "The name of the daemon (for error messages) = ${m_daemon}"); X define ("o:", "The set of operators in addresses = ${m_addrops}"); X define ("p:", "Sendmail's pid = ${m_pid}"); X define ("q:", "The default format of sender address = ${m_defaddr}"); X define ("r:", "Protocol used = ${m_protocol}"); X define ("s:", "Sender's host name = ${m_shostname}"); X define ("t:", "A numeric representation of the current time = ${m_ctime}"); X define ("u:", "The recipient user = ${m_ruser}"); X define ("v:", "The version number of sendmail = ${m_version}"); X define ("w:", "The hostname of this site = ${m_sitename}"); X define ("x:", "The full name of the sender = ${m_sname}"); X define ("y:", "The id of the sender's tty = ${m_stty}"); X define ("z:", "The home directory of the recipient = ${m_rhdir}"); X Xfield X path : match (1*); X Xruleset Canonicalize { X if (path) X next ("{3}" $1); X} X Xruleset EnvelopeTo { X if (path @ path) X resolve (mailer (uucp), X host ("{0_uucp}" $2), X user ("{0_uucp}" $1)); X if (path ! path) X resolve (mailer (uucp), X host ("{0_uucp}" $1), X user ("{0_uucp}" $2)); X if (path) X resolve (mailer (local), X user ("{0_local}" $1)); X} X Xruleset From { X if (path) X return ("{1}" $1); X} X Xruleset HeaderTo { X if (path) X return ("{2}" $1); X} X Xruleset Externalize { X if (path) X return ("{4}" $1); X} X Xruleset LocalHeaderFrom { X if (path) X return ("{S_local}" $1); X} X Xruleset LocalHeaderTo { X if (path) X return ("{R_local}" $1); X} X Xruleset UucpHeaderFrom { X if (path) X return ("{S_uucp}" $1); X} X Xruleset UucpHeaderTo { X if (path) X return ("{R_uucp}" $1); X} X Xmailer X local { X Path = "/usr/src/local/EUnet/ease/test/args", X Flags = {f_date, X f_from, X f_locm, X f_mesg, X f_mult, X f_noufrom, X f_rfrom, X f_strip}, X Sender = LocalHeaderFrom, X Recipient = LocalHeaderTo, X Argv = "args mail -d ${m_ruser}" X }; X prog { X Path = "/usr/src/local/EUnet/ease/test/args", X Flags = {f_date, X f_expensive, X f_from, X f_locm, X f_mesg, X f_noufrom, X f_strip}, X Sender = LocalHeaderFrom, X Recipient = LocalHeaderTo, X Argv = "args sh -c ${m_ruser}" X }; X uucp { X Path = "/usr/src/local/EUnet/ease/test/args", X Flags = {f_date, X f_from, X f_mesg, X f_strip, X f_ufrom, X f_upperh, X f_upperu}, X Sender = UucpHeaderFrom, X Recipient = UucpHeaderTo, X Maxsize = "65535", X Argv = "args uumail -h -oc -gA -f${m_sreladdr} ${m_rhost}!${m_ruser}" X }; END_OF_test/test.mc if test 4506 -ne `wc -c <test/test.mc`; then echo shar: \"test/test.mc\" unpacked with wrong size! fi # end of overwriting check fi echo shar: End of archive 2 $of 6$. cp /dev/null ark2isdone MISSING="" for I in 1 2 3 4 5 6 ; do if test ! -f ark${I}isdone ; then MISSING="${MISSING} ${I}" fi done if test "${MISSING}" = "" ; then echo You have unpacked all 6 archives. rm -f ark[1-9]isdone else echo You still need to unpack the following archives: echo " " ${MISSING} fi ## End of shell archive. exit 0 -- Bruce G. Barnett barnett@crd.ge.com uunet!crdgw1!barnett