[comp.sources.misc] Dbug package

allbery@ncoast.UUCP (09/24/87)

>From noao!cfa!harvard!ll-xn!scubed!MAILER-DAEMON Tue Sep 22 23:30:58 1987
Return-Path: <noao!cfa!harvard!ll-xn!scubed!MAILER-DAEMON>
Received: by noname.uucp (3.2/SMI-3.2)
	id AA00979; Tue, 22 Sep 87 23:30:54 MST
Received: by noao.arizona.edu (5.51/SAG.7)
	id AA09998; Tue, 22 Sep 87 21:23:58 MST
Received: from husc6.harvard.edu (husc6.ARPA) by cfa.HARVARD.EDU; Wed, 23 Sep 87 00:06:52 edt
Received: by husc6.harvard.edu; Wed, 23 Sep 87 00:00:03 EDT
Received: by harvard.harvard.edu; Wed, 23 Sep 87 00:08:08 EDT
Received:  by XN.LL.MIT.EDU; Tue, 22 Sep 87 23:58:47 EDT
Posted-Date: Wed, 9 Sep 87 10:35:26 MST
Received: by SCUBED.ARPA (1.2/5.20b)
	id AA07301; Tue, 22 Sep 87 20:42:56 pdt
Date: Wed, 9 Sep 87 10:35:26 MST
From: noao!cfa!harvard!ll-xn!scubed!MAILER-DAEMON (Mail Delivery Subsystem)
Subject: Returned mail: Host unknown
Message-Id: <8709230342.AA07301@SCUBED.ARPA>
To: ll-xn!ames!NOAO.ARIZONA.EDU!mcdsun!fnf@scubed
Status: R

   ----- Transcript of session follows -----
550 noao.arizona.edu.tcp... 550 Host unknown
550 seismo!adelie!necntc!ncoast!allbery@NOAO.ARIZONA.EDU... Host unknown

   ----- Unsent message follows -----
Received: by SCUBED.ARPA (1.2/5.20b)
	id AA07273; Tue, 22 Sep 87 20:42:56 pdt
Received: by SCUBED.ARPA (1.2/5.20b)
	id AA00835; Wed, 9 Sep 87 11:18:47 pdt
Received:  by XN.LL.MIT.EDU; Wed, 9 Sep 87 13:57:16 EDT
Posted-Date: Wed, 9 Sep 87 10:35:26 MST
Received: Wed, 9 Sep 87 10:59:59 PDT from HAO.UCAR.EDU by ames.arpa (5.58/1.2)
Received: by hao.UCAR.EDU (5.54/1.00.UUCP-MOD.8-11-85)
	id AA15475; Wed, 9 Sep 87 11:49:43 MDT
Received: by noao.arizona.edu (5.51/SAG.7)
	id AA04818; Wed, 9 Sep 87 10:51:44 MST
Received: by noname.uucp (3.2/SMI-3.2)
	id AA14017; Wed, 9 Sep 87 10:35:26 MST
Date: Wed, 9 Sep 87 10:35:26 MST
From: ll-xn!ames!NOAO.ARIZONA.EDU!mcdsun!fnf@scubed.scubed.arpa (Fred Fish)
Message-Id: <8709091735.AA14017@noname.uucp>
To: adelie!necntc!ncoast!allbery@NOAO.ARIZONA.EDU
Subject: My macro based C debugging package (1 of 3)


#--------CUT---------CUT---------CUT---------CUT--------#
#########################################################
#                                                       #
# This is a shell archive file.  To extract files:      #
#                                                       #
#    1)	Make a directory for the files.                 #
#    2) Write a file, such as "file.shar", containing   #
#       this archive file into the directory.           #
#    3) Type "sh file.shar".  Do not use csh.           #
#                                                       #
#########################################################
#
#
echo Extracting dbug.h:
sed 's/^Z//' >dbug.h <<\STUNKYFLUFF
Z/******************************************************************************
Z *									      *
Z *	                           N O T I C E				      *
Z *									      *
Z *	              Copyright Abandoned, 1987, Fred Fish		      *
Z *									      *
Z *									      *
Z *	This previously copyrighted work has been placed into the  public     *
Z *	domain  by  the  author  and  may be freely used for any purpose,     *
Z *	private or commercial.						      *
Z *									      *
Z *	Because of the number of inquiries I was receiving about the  use     *
Z *	of this product in commercially developed works I have decided to     *
Z *	simply make it public domain to further its unrestricted use.   I     *
Z *	specifically  would  be  most happy to see this material become a     *
Z *	part of the standard Unix distributions by AT&T and the  Berkeley     *
Z *	Computer  Science  Research Group, and a standard part of the GNU     *
Z *	system from the Free Software Foundation.			      *
Z *									      *
Z *	I would appreciate it, as a courtesy, if this notice is  left  in     *
Z *	all copies and derivative works.  Thank you.			      *
Z *									      *
Z *	The author makes no warranty of any kind  with  respect  to  this     *
Z *	product  and  explicitly disclaims any implied warranties of mer-     *
Z *	chantability or fitness for any particular purpose.		      *
Z *									      *
Z ******************************************************************************
Z */
Z
Z
Z/*
Z *  FILE
Z *
Z *	dbug.h    user include file for programs using the dbug package
Z *
Z *  SYNOPSIS
Z *
Z *	#include <local/dbug.h>
Z *
Z *  SCCS ID
Z *
Z *	@(#)dbug.h	1.11 9/5/87
Z *
Z *  DESCRIPTION
Z *
Z *	Programs which use the dbug package must include this file.
Z *	It contains the appropriate macros to call support routines
Z *	in the dbug runtime library.
Z *
Z *	To disable compilation of the macro expansions define the
Z *	preprocessor symbol "DBUG_OFF".  This will result in null
Z *	macros expansions so that the resulting code will be smaller
Z *	and faster.  (The difference may be smaller than you think
Z *	so this step is recommended only when absolutely necessary).
Z *	In general, tradeoffs between space and efficiency are
Z *	decided in favor of efficiency since space is seldom a
Z *	problem on the new machines).
Z *
Z *	All externally visible symbol names follow the pattern
Z *	"_db_xxx..xx_" to minimize the possibility of a dbug package
Z *	symbol colliding with a user defined symbol.
Z *	
Z *	The DBUG_<N> style macros are obsolete and should not be used
Z *	in new code.  Macros to map them to instances of DBUG_PRINT
Z *	are provided for compatibility with older code.  They may go
Z *	away completely in subsequent releases.
Z *
Z *  AUTHOR
Z *
Z *	Fred Fish
Z *	(Currently employed by Motorola Computer Division, Tempe, Az.)
Z *	hao!noao!mcdsun!fnf
Z *	(602) 438-3614
Z *
Z */
Z
Z
Z/*
Z *	Internally used dbug variables which must be global.
Z */
Z
Z#ifndef DBUG_OFF
Z    extern int _db_on_;			/* TRUE if debug currently enabled */
Z    extern FILE *_db_fp_;		/* Current debug output stream */
Z    extern char *_db_process_;		/* Name of current process */
Z    extern int _db_keyword_ ();		/* Accept/reject keyword */
Z    extern void _db_push_ ();		/* Push state, set up new state */
Z    extern void _db_pop_ ();		/* Pop previous debug state */
Z    extern void _db_enter_ ();		/* New user function entered */
Z    extern void _db_return_ ();		/* User function return */
Z    extern void _db_pargs_ ();		/* Remember args for line */
Z    extern void _db_doprnt_ ();		/* Print debug output */
Z    extern void _db_setjmp_ ();		/* Save debugger environment */
Z    extern void _db_longjmp_ ();	/* Restore debugger environment */
Z# endif
Z
Z
Z/*
Z *	These macros provide a user interface into functions in the
Z *	dbug runtime support library.  They isolate users from changes
Z *	in the MACROS and/or runtime support.
Z *
Z *	The symbols "__LINE__" and "__FILE__" are expanded by the
Z *	preprocessor to the current source file line number and file
Z *	name respectively.
Z *
Z *	WARNING ---  Because the DBUG_ENTER macro allocates space on
Z *	the user function's stack, it must precede any executable
Z *	statements in the user function.
Z *
Z */
Z
Z# ifdef DBUG_OFF
Z#    define DBUG_ENTER(a1)
Z#    define DBUG_RETURN(a1) return(a1)
Z#    define DBUG_VOID_RETURN return
Z#    define DBUG_EXECUTE(keyword,a1)
Z#    define DBUG_PRINT(keyword,arglist)
Z#    define DBUG_2(keyword,format)		/* Obsolete */
Z#    define DBUG_3(keyword,format,a1)		/* Obsolete */
Z#    define DBUG_4(keyword,format,a1,a2)	/* Obsolete */
Z#    define DBUG_5(keyword,format,a1,a2,a3)	/* Obsolete */
Z#    define DBUG_PUSH(a1)
Z#    define DBUG_POP()
Z#    define DBUG_PROCESS(a1)
Z#    define DBUG_FILE (stderr)
Z#    define DBUG_SETJMP setjmp
Z#    define DBUG_LONGJMP longjmp
Z# else
Z#    define DBUG_ENTER(a) \
Z	auto char *_db_func_, *_db_file_; \
Z	int _db_level_; \
Z	_db_enter_ (a,__FILE__,__LINE__,&_db_func_,&_db_file_,&_db_level_)
Z#    define DBUG_LEAVE \
Z	(_db_return_ (__LINE__, &_db_func_, &_db_file_, &_db_level_))
Z#    define DBUG_RETURN(a1) return (DBUG_LEAVE, (a1))
Z/*   define DBUG_RETURN(a1) {DBUG_LEAVE; return(a1);}  Alternate form */
Z#    define DBUG_VOID_RETURN {DBUG_LEAVE; return;}
Z#    define DBUG_EXECUTE(keyword,a1) \
Z	{if (_db_on_) {if (_db_keyword_ (keyword)) { a1 }}}
Z#    define DBUG_PRINT(keyword,arglist) \
Z	{if (_db_on_) {_db_pargs_(__LINE__,keyword); _db_doprnt_ arglist;}}
Z#    define DBUG_2(keyword,format) \
Z	DBUG_PRINT(keyword,(format))		/* Obsolete */
Z#    define DBUG_3(keyword,format,a1) \
Z	DBUG_PRINT(keyword,(format,a1))		/* Obsolete */
Z#    define DBUG_4(keyword,format,a1,a2) \
Z	DBUG_PRINT(keyword,(format,a1,a2))	/* Obsolete */
Z#    define DBUG_5(keyword,format,a1,a2,a3) \
Z	DBUG_PRINT(keyword,(format,a1,a2,a3))	/* Obsolete */
Z#    define DBUG_PUSH(a1) _db_push_ (a1)
Z#    define DBUG_POP() _db_pop_ ()
Z#    define DBUG_PROCESS(a1) (_db_process_ = a1)
Z#    define DBUG_FILE (_db_fp_)
Z#    define DBUG_SETJMP(a1) (_db_setjmp_ (), setjmp (a1))
Z#    define DBUG_LONGJMP(a1,a2) (_db_longjmp_ (), longjmp (a1, a2))
Z# endif
STUNKYFLUFF
set `sum dbug.h`
if test 04698 != $1
then
echo dbug.h: Checksum error. Is: $1, should be: 04698.
fi
#
#
echo Extracting dbug.c:
sed 's/^Z//' >dbug.c <<\STUNKYFLUFF
Z/******************************************************************************
Z *									      *
Z *	                           N O T I C E				      *
Z *									      *
Z *	              Copyright Abandoned, 1987, Fred Fish		      *
Z *									      *
Z *									      *
Z *	This previously copyrighted work has been placed into the  public     *
Z *	domain  by  the  author  and  may be freely used for any purpose,     *
Z *	private or commercial.						      *
Z *									      *
Z *	Because of the number of inquiries I was receiving about the  use     *
Z *	of this product in commercially developed works I have decided to     *
Z *	simply make it public domain to further its unrestricted use.   I     *
Z *	specifically  would  be  most happy to see this material become a     *
Z *	part of the standard Unix distributions by AT&T and the  Berkeley     *
Z *	Computer  Science  Research Group, and a standard part of the GNU     *
Z *	system from the Free Software Foundation.			      *
Z *									      *
Z *	I would appreciate it, as a courtesy, if this notice is  left  in     *
Z *	all copies and derivative works.  Thank you.			      *
Z *									      *
Z *	The author makes no warranty of any kind  with  respect  to  this     *
Z *	product  and  explicitly disclaims any implied warranties of mer-     *
Z *	chantability or fitness for any particular purpose.		      *
Z *									      *
Z ******************************************************************************
Z */
Z
Z
Z/*
Z *  FILE
Z *
Z *	dbug.c   runtime support routines for dbug package
Z *
Z *  SCCS
Z *
Z *	@(#)dbug.c	1.19 9/5/87
Z *
Z *  DESCRIPTION
Z *
Z *	These are the runtime support routines for the dbug package.
Z *	The dbug package has two main components; the user include
Z *	file containing various macro definitions, and the runtime
Z *	support routines which are called from the macro expansions.
Z *
Z *	Externally visible functions in the runtime support module
Z *	use the naming convention pattern "_db_xx...xx_", thus
Z *	they are unlikely to collide with user defined function names.
Z *
Z *  AUTHOR(S)
Z *
Z *	Fred Fish		(base code)
Z *	(Currently at Motorola Computer Division, Tempe, Az.)
Z *	hao!noao!mcdsun!fnf
Z *	(602) 438-3614
Z *
Z *	Binayak Banerjee	(profiling enhancements)
Z *	seismo!bpa!sjuvax!bbanerje
Z */
Z
Z
Z#include <stdio.h>
Z
Z#ifdef AMIGA
Z#define HZ (50)			/* Probably in some header somewhere */
Z#endif
Z
Z/*
Z *	Manifest constants that should not require any changes.
Z */
Z
Z#define FALSE		0	/* Boolean FALSE */
Z#define TRUE		1	/* Boolean TRUE */
Z#define EOS		'\000'	/* End Of String marker */
Z
Z/*
Z *	Manifest constants which may be "tuned" if desired.
Z */
Z
Z#define PRINTBUF	1024	/* Print buffer size */
Z#define INDENT		4	/* Indentation per trace level */
Z#define MAXDEPTH	200	/* Maximum trace depth default */
Z
Z/*
Z *	The following flags are used to determine which
Z *	capabilities the user has enabled with the state
Z *	push macro.
Z */
Z
Z#define TRACE_ON	000001	/* Trace enabled */
Z#define DEBUG_ON	000002	/* Debug enabled */
Z#define FILE_ON 	000004	/* File name print enabled */
Z#define LINE_ON		000010	/* Line number print enabled */
Z#define DEPTH_ON	000020	/* Function nest level print enabled */
Z#define PROCESS_ON	000040	/* Process name print enabled */
Z#define NUMBER_ON	000100	/* Number each line of output */
Z#define PROFILE_ON	000200	/* Print out profiling code */
Z
Z#define TRACING (stack -> flags & TRACE_ON)
Z#define DEBUGGING (stack -> flags & DEBUG_ON)
Z#define PROFILING (stack -> flags & PROFILE_ON)
Z#define STREQ(a,b) (strcmp(a,b) == 0)
Z
Z/*
Z *	Typedefs to make things more obvious.
Z */
Z
Z#define VOID void		/* Can't use typedef for most compilers */
Ztypedef int BOOLEAN;
Z
Z/*
Z *	Make it easy to change storage classes if necessary.
Z */
Z
Z#define LOCAL static		/* Names not needed by outside world */
Z#define IMPORT extern		/* Names defined externally */
Z#define EXPORT			/* Allocated here, available globally */
Z#define AUTO auto		/* Names to be allocated on stack */
Z#define REGISTER register	/* Names to be placed in registers */
Z
Z/*
Z *	The following define is for the variable arguments kluge, see
Z *	the comments in _db_doprnt_().
Z *
Z *	Also note that the longer this list, the less prone to failing
Z *	on long argument lists, but the more stuff that must be moved
Z *	around for each call to the runtime support routines.  The
Z *	length may really be critical if the machine convention is
Z *	to pass arguments in registers.
Z *
Z *	Note that the default define allows up to 16 integral arguments,
Z *	or 8 floating point arguments (doubles), on most machines.
Z *
Z *	Someday this may be replaced with true varargs support, when
Z *	ANSI C has had time to take root.
Z */
Z
Z#define ARGLIST a0,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15
Z
Z/*
Z * The default file for profiling.  Could also add another flag
Z * (G?) which allowed the user to specify this.
Z */
Z
Z#define PROF_FILE	"dbugmon.out"
Z
Z/*
Z *	Variables which are available externally but should only
Z *	be accessed via the macro package facilities.
Z */
Z
ZEXPORT FILE *_db_fp_ = stderr;		/* Output stream, default stderr */
ZEXPORT FILE *_db_pfp_ = (FILE *)0;	/* Profile stream, 'dbugmon.out' */
ZEXPORT char *_db_process_ = "dbug";	/* Pointer to process name; argv[0] */
ZEXPORT BOOLEAN _db_on_ = FALSE;		/* TRUE if debugging currently on */
ZEXPORT BOOLEAN _db_pon_ = FALSE;	/* TRUE if debugging currently on */
Z
Z/*
Z *	Externally supplied functions.
Z */
Z
Z#ifdef unix			/* Only needed for unix */
ZIMPORT VOID perror ();		/* Print system/library error */
ZIMPORT int chown ();		/* Change owner of a file */
ZIMPORT int getgid ();		/* Get real group id */
ZIMPORT int getuid ();		/* Get real user id */
ZIMPORT int access ();		/* Test file for access */
Z#else
Z#if !(AMIGA && LATTICE)
ZLOCAL VOID perror ();		/* Fake system/library error print routine */
Z#endif
Z#endif
Z
Z# if BSD4_3 || sun
ZIMPORT int getrusage ();
Z#endif
Z
ZIMPORT int atoi ();		/* Convert ascii to integer */
ZIMPORT VOID exit ();		/* Terminate execution */
ZIMPORT int fclose ();		/* Close a stream */
ZIMPORT FILE *fopen ();		/* Open a stream */
ZIMPORT int fprintf ();		/* Formatted print on file */
ZIMPORT VOID free ();
ZIMPORT char *malloc ();		/* Allocate memory */
ZIMPORT int strcmp ();		/* Compare strings */
ZIMPORT char *strcpy ();		/* Copy strings around */
ZIMPORT int strlen ();		/* Find length of string */
Z
Z#ifndef fflush			/* This is sometimes a macro */
ZIMPORT int fflush ();		/* Flush output for stream */
Z#endif
Z
Z
Z/*
Z *	The user may specify a list of functions to trace or 
Z *	debug.  These lists are kept in a linear linked list,
Z *	a very simple implementation.
Z */
Z
Zstruct link {
Z    char *string;		/* Pointer to link's contents */
Z    struct link *next_link;	/* Pointer to the next link */
Z};
Z
Z
Z/*
Z *	Debugging states can be pushed or popped off of a
Z *	stack which is implemented as a linked list.  Note
Z *	that the head of the list is the current state and the
Z *	stack is pushed by adding a new state to the head of the
Z *	list or popped by removing the first link.
Z */
Z
Zstruct state {
Z    int flags;				/* Current state flags */
Z    int maxdepth;			/* Current maximum trace depth */
Z    unsigned int delay;			/* Delay after each output line */
Z    int level;				/* Current function nesting level */
Z    FILE *out_file;			/* Current output stream */
Z    FILE *prof_file;			/* Current profiling stream */
Z    struct link *functions;		/* List of functions */
Z    struct link *p_functions;		/* List of profiled functions */
Z    struct link *keywords;		/* List of debug keywords */
Z    struct link *processes;		/* List of process names */
Z    struct state *next_state;		/* Next state in the list */
Z};
Z
ZLOCAL struct state *stack = NULL;	/* Linked list of stacked states */
Z
Z/*
Z *	Local variables not seen by user.
Z */
Z
ZLOCAL int lineno = 0;		/* Current debugger output line number */
ZLOCAL char *func = "?func";	/* Name of current user function */
ZLOCAL char *file = "?file";	/* Name of current user file */
ZLOCAL BOOLEAN init_done = FALSE;/* Set to TRUE when initialization done */
Z
Z#if unix || AMIGA
ZLOCAL int jmplevel;		/* Remember nesting level at setjmp () */
ZLOCAL char *jmpfunc;		/* Remember current function for setjmp */
ZLOCAL char *jmpfile;		/* Remember current file for setjmp */
Z#endif
Z
ZLOCAL struct link *ListParse ();/* Parse a debug command string */
ZLOCAL char *StrDup ();		/* Make a fresh copy of a string */
ZLOCAL VOID OpenFile ();		/* Open debug output stream */
ZLOCAL VOID OpenProfile ();	/* Open profile output stream */
ZLOCAL VOID CloseFile ();	/* Close debug output stream */
ZLOCAL VOID PushState ();	/* Push current debug state */
ZLOCAL VOID ChangeOwner ();	/* Change file owner and group */
ZLOCAL BOOLEAN DoTrace ();	/* Test for tracing enabled */
ZLOCAL BOOLEAN Writable ();	/* Test to see if file is writable */
ZLOCAL unsigned long Clock ();	/* Return current user time (ms) */
ZLOCAL char *DbugMalloc ();	/* Allocate memory for runtime support */
ZLOCAL char *BaseName ();	/* Remove leading pathname components */
ZLOCAL VOID DoPrefix ();		/* Print debugger line prefix */
ZLOCAL VOID FreeList ();		/* Free memory from linked list */
ZLOCAL VOID Indent ();		/* Indent line to specified indent */
Z
Z				/* Supplied in Sys V runtime environ */
ZLOCAL char *strtok ();		/* Break string into tokens */
ZLOCAL char *strrchr ();		/* Find last occurance of char */
Z
Z/*
Z *	The following local variables are used to hold the state information
Z *	between the call to _db_pargs_() and _db_doprnt_(), during
Z *	expansion of the DBUG_PRINT macro.  This is the only macro
Z *	that currently uses these variables.  The DBUG_PRINT macro
Z *	and the new _db_doprnt_() routine replace the older DBUG_N macros
Z *	and their corresponding runtime support routine _db_printf_().
Z *
Z *	These variables are currently used only by _db_pargs_() and
Z *	_db_doprnt_().
Z */
Z
ZLOCAL int u_line = 0;		/* User source code line number */
ZLOCAL char *u_keyword = "?";	/* Keyword for current macro */
Z
Z/*
Z *	Miscellaneous printf format strings.
Z */
Z 
Z#define ERR_MISSING_RETURN "%s: missing DBUG_RETURN or DBUG_VOID_RETURN macro in function \"%s\"\n"
Z#define ERR_OPEN "%s: can't open debug output stream \"%s\": "
Z#define ERR_CLOSE "%s: can't close debug file: "
Z#define ERR_ABORT "%s: debugger aborting because %s\n"
Z#define ERR_CHOWN "%s: can't change owner/group of \"%s\": "
Z#define ERR_PRINTF "%s: obsolete object file for '%s', please recompile!\n"
Z
Z/*
Z *	Macros and defines for testing file accessibility under UNIX.
Z */
Z
Z#ifdef unix
Z#  define A_EXISTS	00		/* Test for file existance */
Z#  define A_EXECUTE	01		/* Test for execute permission */
Z#  define A_WRITE	02		/* Test for write access */
Z#  define A_READ	03		/* Test for read access */
Z#  define EXISTS(pathname) (access (pathname, A_EXISTS) == 0)
Z#  define WRITABLE(pathname) (access (pathname, A_WRITE) == 0)
Z#else
Z#  define EXISTS(pathname) (FALSE)	/* Assume no existance */
Z#endif
Z
Z/*
Z *	Translate some calls among different systems.
Z */
Z
Z#ifdef unix
Z# define Delay sleep
ZIMPORT unsigned int sleep ();	/* Pause for given number of seconds */
Z#endif
Z
Z#ifdef AMIGA
ZIMPORT int Delay ();		/* Pause for given number of ticks */
Z#endif
Z
Z
Z/*
Z *  FUNCTION
Z *
Z *	_db_push_    push current debugger state and set up new one
Z *
Z *  SYNOPSIS
Z *
Z *	VOID _db_push_ (control)
Z *	char *control;
Z *
Z *  DESCRIPTION
Z *
Z *	Given pointer to a debug control string in "control", pushes
Z *	the current debug state, parses the control string, and sets
Z *	up a new debug state.
Z *
Z *	The only attribute of the new state inherited from the previous
Z *	state is the current function nesting level.  This can be
Z *	overridden by using the "r" flag in the control string.
Z *
Z *	The debug control string is a sequence of colon separated fields
Z *	as follows:
Z *
Z *		<field_1>:<field_2>:...:<field_N>
Z *
Z *	Each field consists of a mandatory flag character followed by
Z *	an optional "," and comma separated list of modifiers:
Z *
Z *		flag[,modifier,modifier,...,modifier]
Z *
Z *	The currently recognized flag characters are:
Z *
Z *		d	Enable output from DBUG_<N> macros for
Z *			for the current state.  May be followed
Z *			by a list of keywords which selects output
Z *			only for the DBUG macros with that keyword.
Z *			A null list of keywords implies output for
Z *			all macros.
Z *
Z *		D	Delay after each debugger output line.
Z *			The argument is the number of tenths of seconds
Z *			to delay, subject to machine capabilities.
Z *			I.E.  -#D,20 is delay two seconds.
Z *
Z *		f	Limit debugging and/or tracing, and profiling to the
Z *			list of named functions.  Note that a null list will
Z *			disable all functions.  The appropriate "d" or "t"
Z *			flags must still be given, this flag only limits their
Z *			actions if they are enabled.
Z *
Z *		F	Identify the source file name for each
Z *			line of debug or trace output.
Z *
Z *		g	Enable profiling.  Create a file called 'dbugmon.out'
Z *			containing information that can be used to profile
Z *			the program.  May be followed by a list of keywords
Z *			that select profiling only for the functions in that
Z *			list.  A null list implies that all functions are
Z *			considered.
Z *
Z *		L	Identify the source file line number for
Z *			each line of debug or trace output.
Z *
Z *		n	Print the current function nesting depth for
Z *			each line of debug or trace output.
Z *	
Z *		N	Number each line of dbug output.
Z *
Z *		p	Limit debugger actions to specified processes.
Z *			A process must be identified with the
Z *			DBUG_PROCESS macro and match one in the list
Z *			for debugger actions to occur.
Z *
Z *		P	Print the current process name for each
Z *			line of debug or trace output.
Z *
Z *		r	When pushing a new state, do not inherit
Z *			the previous state's function nesting level.
Z *			Useful when the output is to start at the
Z *			left margin.
Z *
Z *		t	Enable function call/exit trace lines.
Z *			May be followed by a list (containing only
Z *			one modifier) giving a numeric maximum
Z *			trace level, beyond which no output will
Z *			occur for either debugging or tracing
Z *			macros.  The default is a compile time
Z *			option.
Z *
Z *	Some examples of debug control strings which might appear
Z *	on a shell command line (the "-#" is typically used to
Z *	introduce a control string to an application program) are:
Z *
Z *		-#d:t
Z *		-#d:f,main,subr1:F:L:t,20
Z *		-#d,input,output,files:n
Z *
Z *	For convenience, any leading "-#" is stripped off.
Z *
Z */
Z
Z
ZVOID _db_push_ (control)
Zchar *control;
Z{
Z    REGISTER char *scan;
Z    REGISTER struct link *temp;
Z
Z    if (control && *control == '-') {
Z	if (*++control == '#') {
Z	    control++;
Z	}	
Z    }
Z    control = StrDup (control);
Z    PushState ();
Z    scan = strtok (control, ":");
Z    for (; scan != NULL; scan = strtok ((char *)NULL, ":")) {
Z	switch (*scan++) {
Z	    case 'd': 
Z		_db_on_ = TRUE;
Z		stack -> flags |= DEBUG_ON;
Z		if (*scan++ == ',') {
Z		    stack -> keywords = ListParse (scan);
Z		}
Z	    	break;
Z	    case 'D': 
Z		stack -> delay = 0;
Z		if (*scan++ == ',') {
Z		    temp = ListParse (scan);
Z		    stack -> delay = DelayArg (atoi (temp -> string));
Z		    FreeList (temp);
Z		}
Z		break;
Z	    case 'f': 
Z		if (*scan++ == ',') {
Z		    stack -> functions = ListParse (scan);
Z		}
Z		break;
Z	    case 'F': 
Z		stack -> flags |= FILE_ON;
Z		break;
Z	    case 'g': 
Z		_db_pon_ = TRUE;
Z		OpenProfile(PROF_FILE);
Z		stack -> flags |= PROFILE_ON;
Z		if (*scan++ == ',') {
Z		    stack -> p_functions = ListParse (scan);
Z		}
Z		break;
Z	    case 'L': 
Z		stack -> flags |= LINE_ON;
Z		break;
Z	    case 'n': 
Z		stack -> flags |= DEPTH_ON;
Z		break;
Z	    case 'N':
Z		stack -> flags |= NUMBER_ON;
Z		break;
Z	    case 'o': 
Z		if (*scan++ == ',') {
Z		    temp = ListParse (scan);
Z		    OpenFile (temp -> string);
Z		    FreeList (temp);
Z		} else {
Z		    OpenFile ("-");
Z		}
Z		break;
Z	    case 'p':
Z		if (*scan++ == ',') {
Z		    stack -> processes = ListParse (scan);
Z		}
Z		break;
Z	    case 'P': 
Z		stack -> flags |= PROCESS_ON;
Z		break;
Z	    case 'r': 
Z		stack -> level = 0;
Z		break;
Z	    case 't': 
Z		stack -> flags |= TRACE_ON;
Z		if (*scan++ == ',') {
Z		    temp = ListParse (scan);
Z		    stack -> maxdepth = atoi (temp -> string);
Z		    FreeList (temp);
Z		}
Z		break;
Z	}
Z    }
Z    free (control);
Z}
Z
Z
Z
Z/*
Z *  FUNCTION
Z *
Z *	_db_pop_    pop the debug stack
Z *
Z *  DESCRIPTION
Z *
Z *	Pops the debug stack, returning the debug state to its
Z *	condition prior to the most recent _db_push_ invocation.
Z *	Note that the pop will fail if it would remove the last
Z *	valid state from the stack.  This prevents user errors
Z *	in the push/pop sequence from screwing up the debugger.
Z *	Maybe there should be some kind of warning printed if the
Z *	user tries to pop too many states.
Z *
Z */
Z
ZVOID _db_pop_ ()
Z{
Z    REGISTER struct state *discard;
Z
Z    discard = stack;
Z    if (discard != NULL && discard -> next_state != NULL) {
Z	stack = discard -> next_state;
Z	_db_fp_ = stack -> out_file;
Z	_db_pfp_ = stack -> prof_file;
Z	if (discard -> keywords != NULL) {
Z	    FreeList (discard -> keywords);
Z	}
Z	if (discard -> functions != NULL) {
Z	    FreeList (discard -> functions);
Z	}
Z	if (discard -> processes != NULL) {
Z	    FreeList (discard -> processes);
Z	}
Z	if (discard -> p_functions != NULL) {
Z	    FreeList (discard -> p_functions);
Z	}
Z	CloseFile (discard -> out_file);
Z	CloseFile (discard -> prof_file);
Z	free ((char *) discard);
Z    }
Z}
Z
Z
Z/*
Z *  FUNCTION
Z *
Z *	_db_enter_    process entry point to user function
Z *
Z *  SYNOPSIS
Z *
Z *	VOID _db_enter_ (_func_, _file_, _line_, _sfunc_, _sfile_, _slevel_)
Z *	char *_func_;		points to current function name
Z *	char *_file_;		points to current file name
Z *	int _line_;		called from source line number
Z *	char **_sfunc_;		save previous _func_
Z *	char **_sfile_;		save previous _file_
Z *	int *_slevel_;		save previous nesting level
Z *
Z *  DESCRIPTION
Z *
Z *	Called at the beginning of each user function to tell
Z *	the debugger that a new function has been entered.
Z *	Note that the pointers to the previous user function
Z *	name and previous user file name are stored on the
Z *	caller's stack (this is why the ENTER macro must be
Z *	the first "executable" code in a function, since it
Z *	allocates these storage locations).  The previous nesting
Z *	level is also stored on the callers stack for internal
Z *	self consistency checks.
Z *
Z *	Also prints a trace line if tracing is enabled and
Z *	increments the current function nesting depth.
Z *
Z *	Note that this mechanism allows the debugger to know
Z *	what the current user function is at all times, without
Z *	maintaining an internal stack for the function names.
Z *
Z */
Z
ZVOID _db_enter_ (_func_, _file_, _line_, _sfunc_, _sfile_, _slevel_)
Zchar *_func_;
Zchar *_file_;
Zint _line_;
Zchar **_sfunc_;
Zchar **_sfile_;
Zint *_slevel_;
Z{
Z    if (!init_done) {
Z	_db_push_ ("");
Z    }
Z    *_sfunc_ = func;
Z    *_sfile_ = file;
Z    func = _func_;
Z    file = BaseName (_file_);
Z    stack -> level++;
Z    *_slevel_ = stack -> level;
Z    if (DoProfile ()) {
Z	(VOID) fprintf (_db_pfp_, "%s\tE\t%ld\n",func, Clock());
Z	(VOID) fflush (_db_pfp_);
Z    }
Z    if (DoTrace ()) {
Z	DoPrefix (_line_);
Z	Indent (stack -> level);
Z	(VOID) fprintf (_db_fp_, ">%s\n", func);
Z	(VOID) fflush (_db_fp_);
Z	(VOID) Delay (stack -> delay);
Z    }
Z}
Z
Z
Z/*
Z *  FUNCTION
Z *
Z *	_db_return_    process exit from user function
Z *
Z *  SYNOPSIS
Z *
Z *	VOID _db_return_ (_line_, _sfunc_, _sfile_, _slevel_)
Z *	int _line_;		current source line number
Z *	char **_sfunc_;		where previous _func_ is to be retrieved
Z *	char **_sfile_;		where previous _file_ is to be retrieved
Z *	int *_slevel_;		where previous level was stashed
Z *
Z *  DESCRIPTION
Z *
Z *	Called just before user function executes an explicit or implicit
Z *	return.  Prints a trace line if trace is enabled, decrements
Z *	the current nesting level, and restores the current function and
Z *	file names from the defunct function's stack.
Z *
Z */
Z
ZVOID _db_return_ (_line_, _sfunc_, _sfile_, _slevel_)
Zint _line_;
Zchar **_sfunc_;
Zchar **_sfile_;
Zint *_slevel_;
Z{
Z    if (!init_done) {
Z	_db_push_ ("");
Z    }
Z    if (stack -> level != *_slevel_ && (TRACING || DEBUGGING || PROFILING)) {
Z	(VOID) fprintf (_db_fp_, ERR_MISSING_RETURN, _db_process_, func);
Z    } else if (DoProfile ()) {
Z	(VOID) fprintf (_db_pfp_, "%s\tX\t%ld\n", func, Clock());
Z    } else if (DoTrace ()) {
Z	DoPrefix (_line_);
Z	Indent (stack -> level);
Z	(VOID) fprintf (_db_fp_, "<%s\n", func);
Z    }
Z    (VOID) fflush (_db_fp_);
Z    (VOID) Delay (stack -> delay);
Z    stack -> level = *_slevel_ - 1;
Z    func = *_sfunc_;
Z    file = *_sfile_;
Z}
Z
Z
Z/*
Z *  FUNCTION
Z *
Z *	_db_pargs_    log arguments for subsequent use by _db_doprnt_()
Z *
Z *  SYNOPSIS
Z *
Z *	VOID _db_pargs_ (_line_, keyword)
Z *	int _line_;
Z *	char *keyword;
Z *
Z *  DESCRIPTION
Z *
Z *	The new universal printing macro DBUG_PRINT, which replaces
Z *	all forms of the DBUG_N macros, needs two calls to runtime
Z *	support routines.  The first, this function, remembers arguments
Z *	that are used by the subsequent call to _db_doprnt_().
Z*
Z */
Z
ZVOID _db_pargs_ (_line_, keyword)
Zint _line_;
Zchar *keyword;
Z{
Z    u_line = _line_;
Z    u_keyword = keyword;
Z}
Z
Z
Z/*
Z *  FUNCTION
Z *
Z *	_db_doprnt_    handle print of debug lines
Z *
Z *  SYNOPSIS
Z *
Z *	VOID _db_doprnt_ (format, ARGLIST)
Z *	char *format;
Z *	long ARGLIST;
Z *
Z *  DESCRIPTION
Z *
Z *	When invoked via one of the DBUG macros, tests the current keyword
Z *	set by calling _db_pargs_() to see if that macro has been selected
Z *	for processing via the debugger control string, and if so, handles
Z *	printing of the arguments via the format string.  The line number
Z *	of the DBUG macro in the source is found in u_line.
Z *
Z *	Note that the format string SHOULD NOT include a terminating
Z *	newline, this is supplied automatically.
Z *
Z *  NOTES
Z *
Z *	This runtime support routine replaces the older _db_printf_()
Z *	routine which is temporarily kept around for compatibility.
Z *
Z *	The rather ugly argument declaration is to handle some
Z *	magic with respect to the number of arguments passed
Z *	via the DBUG macros.  The current maximum is 3 arguments
Z *	(not including the keyword and format strings).
Z *
Z *	The new <varargs.h> facility is not yet common enough to
Z *	convert to it quite yet...
Z *
Z */
Z
Z/*VARARGS1*/
ZVOID _db_doprnt_ (format, ARGLIST)
Zchar *format;
Zlong ARGLIST;
Z{
Z    if (_db_keyword_ (u_keyword)) {
Z	DoPrefix (u_line);
Z	if (TRACING) {
Z	    Indent (stack -> level + 1);
Z	} else {
Z	    (VOID) fprintf (_db_fp_, "%s: ", func);
Z	}
Z	(VOID) fprintf (_db_fp_, "%s: ", u_keyword);
Z	(VOID) fprintf (_db_fp_, format, ARGLIST);
Z	(VOID) fprintf (_db_fp_, "\n");
Z	(VOID) fflush (_db_fp_);
Z	(VOID) Delay (stack -> delay);
Z    }
Z}
Z
Z/*
Z *	The following routine is kept around temporarily for compatibility
Z *	with older objects that were compiled with the DBUG_N macro form
Z *	of the print routine.  It will print a warning message on first
Z *	usage.  It will go away in subsequent releases...
Z */
Z
Z/*VARARGS3*/
ZVOID _db_printf_ (_line_, keyword, format, ARGLIST)
Zint _line_;
Zchar *keyword,  *format;
Zlong ARGLIST;
Z{
Z    static BOOLEAN firsttime = TRUE;
Z
Z    if (firsttime) {
Z	(VOID) fprintf (stderr, ERR_PRINTF, _db_process_, file);
Z	firsttime = FALSE;
Z    }
Z    _db_pargs_ (_line_, keyword);
Z    _db_doprnt_ (format, ARGLIST);
Z}
Z
Z
Z/*
Z *  FUNCTION
Z *
Z *	ListParse    parse list of modifiers in debug control string
Z *
Z *  SYNOPSIS
Z *
Z *	LOCAL struct link *ListParse (ctlp)
Z *	char *ctlp;
Z *
Z *  DESCRIPTION
Z *
Z *	Given pointer to a comma separated list of strings in "cltp",
Z *	parses the list, building a list and returning a pointer to it.
Z *	The original comma separated list is destroyed in the process of
Z *	building the linked list, thus it had better be a duplicate
Z *	if it is important.
Z *
Z *	Note that since each link is added at the head of the list,
Z *	the final list will be in "reverse order", which is not
Z *	significant for our usage here.
Z *
Z */
Z
ZLOCAL struct link *ListParse (ctlp)
Zchar *ctlp;
Z{
Z    REGISTER char *start;
Z    REGISTER struct link *new;
Z    REGISTER struct link *head;
Z
Z    head = NULL;
Z    while (*ctlp != EOS) {
Z	start = ctlp;
Z	while (*ctlp != EOS && *ctlp != ',') {
Z	    ctlp++;
Z	}
Z	if (*ctlp == ',') {
Z	    *ctlp++ = EOS;
Z	}
Z	new = (struct link *) DbugMalloc (sizeof (struct link));
Z	new -> string = StrDup (start);
Z	new -> next_link = head;
Z	head = new;
Z    }
Z    return (head);
Z}
Z
Z
Z/*
Z *  FUNCTION
Z *
Z *	InList    test a given string for member of a given list
Z *
Z *  SYNOPSIS
Z *
Z *	LOCAL BOOLEAN InList (linkp, cp)
Z *	struct link *linkp;
Z *	char *cp;
Z *
Z *  DESCRIPTION
Z *
Z *	Tests the string pointed to by "cp" to determine if it is in
Z *	the list pointed to by "linkp".  Linkp points to the first
Z *	link in the list.  If linkp is NULL then the string is treated
Z *	as if it is in the list (I.E all strings are in the null list).
Z *	This may seem rather strange at first but leads to the desired
Z *	operation if no list is given.  The net effect is that all
Z *	strings will be accepted when there is no list, and when there
Z *	is a list, only those strings in the list will be accepted.
Z *
Z */
Z
ZLOCAL BOOLEAN InList (linkp, cp)
Zstruct link *linkp;
Zchar *cp;
Z{
Z    REGISTER struct link *scan;
Z    REGISTER BOOLEAN accept;
Z
Z    if (linkp == NULL) {
Z	accept = TRUE;
Z    } else {
Z	accept = FALSE;
Z	for (scan = linkp; scan != NULL; scan = scan -> next_link) {
Z	    if (STREQ (scan -> string, cp)) {
Z		accept = TRUE;
Z		break;
Z	    }
Z	}
Z    }
Z    return (accept);
Z}
Z
Z
Z/*
Z *  FUNCTION
Z *
Z *	PushState    push current state onto stack and set up new one
Z *
Z *  SYNOPSIS
Z *
Z *	LOCAL VOID PushState ()
Z *
Z *  DESCRIPTION
Z *
Z *	Pushes the current state on the state stack, and initializes
Z *	a new state.  The only parameter inherited from the previous
Z *	state is the function nesting level.  This action can be
Z *	inhibited if desired, via the "r" flag.
Z *
Z *	The state stack is a linked list of states, with the new
Z *	state added at the head.  This allows the stack to grow
Z *	to the limits of memory if necessary.
Z *
Z */
Z
ZLOCAL VOID PushState ()
Z{
Z    REGISTER struct state *new;
Z
Z    new = (struct state *) DbugMalloc (sizeof (struct state));
Z    new -> flags = 0;
Z    new -> delay = 0;
Z    new -> maxdepth = MAXDEPTH;
Z    if (stack != NULL) {
Z	new -> level = stack -> level;
Z    } else {
Z	new -> level = 0;
Z    }
Z    new -> out_file = stderr;
Z    new -> functions = NULL;
Z    new -> p_functions = NULL;
Z    new -> keywords = NULL;
Z    new -> processes = NULL;
Z    new -> next_state = stack;
Z    stack = new;
Z    init_done = TRUE;
Z}
Z
Z
Z/*
Z *  FUNCTION
Z *
Z *	DoTrace    check to see if tracing is current enabled
Z *
Z *  SYNOPSIS
Z *
Z *	LOCAL BOOLEAN DoTrace ()
Z *
Z *  DESCRIPTION
Z *
Z *	Checks to see if tracing is enabled based on whether the
Z *	user has specified tracing, the maximum trace depth has
Z *	not yet been reached, the current function is selected,
Z *	and the current process is selected.  Returns TRUE if
Z *	tracing is enabled, FALSE otherwise.
Z *
Z */
Z
ZLOCAL BOOLEAN DoTrace ()
Z{
Z    REGISTER BOOLEAN trace;
Z
Z    trace = FALSE;
Z    if (TRACING) {
Z	if (stack -> level <= stack -> maxdepth) {
Z	    if (InList (stack -> functions, func)) {
Z		if (InList (stack -> processes, _db_process_)) {
Z		    trace = TRUE;
Z		}
Z	    }
Z	}
Z    }
Z    return (trace);
Z}
Z
Z
Z/*
Z *  FUNCTION
Z *
Z *	DoProfile    check to see if profiling is current enabled
Z *
Z *  SYNOPSIS
Z *
Z *	LOCAL BOOLEAN DoProfile ()
Z *
Z *  DESCRIPTION
Z *
Z *	Checks to see if profiling is enabled based on whether the
Z *	user has specified profiling, the maximum trace depth has
Z *	not yet been reached, the current function is selected,
Z *	and the current process is selected.  Returns TRUE if
Z *	profiling is enabled, FALSE otherwise.
Z *
Z */
Z
ZLOCAL BOOLEAN DoProfile ()
Z{
Z    REGISTER BOOLEAN profile;
Z
Z    profile = FALSE;
Z    if (PROFILING) {
Z	if (stack -> level <= stack -> maxdepth) {
Z	    if (InList (stack -> p_functions, func)) {
Z		if (InList (stack -> processes, _db_process_)) {
Z		    profile = TRUE;
Z		}
Z	    }
Z	}
Z    }
Z    return (profile);
Z}
Z
Z
Z/*
Z *  FUNCTION
Z *
Z *	_db_keyword_    test keyword for member of keyword list
Z *
Z *  SYNOPSIS
Z *
Z *	BOOLEAN _db_keyword_ (keyword)
Z *	char *keyword;
Z *
Z *  DESCRIPTION
Z *
Z *	Test a keyword to determine if it is in the currently active
Z *	keyword list.  As with the function list, a keyword is accepted
Z *	if the list is null, otherwise it must match one of the list
Z *	members.  When debugging is not on, no keywords are accepted.
Z *	After the maximum trace level is exceeded, no keywords are
Z *	accepted (this behavior subject to change).  Additionally,
Z *	the current function and process must be accepted based on
Z *	their respective lists.
Z *
Z *	Returns TRUE if keyword accepted, FALSE otherwise.
Z *
Z */
Z
ZBOOLEAN _db_keyword_ (keyword)
Zchar *keyword;
Z{
Z    REGISTER BOOLEAN accept;
Z
Z    if (!init_done) {
Z	_db_push_ ("");
Z    }
Z    accept = FALSE;
Z    if (DEBUGGING) {
Z	if (stack -> level <= stack -> maxdepth) {
Z	    if (InList (stack -> functions, func)) {
Z		if (InList (stack -> keywords, keyword)) {
Z		    if (InList (stack -> processes, _db_process_)) {
Z			accept = TRUE;
Z		    }
Z		}
Z	    }
Z	}
Z    }
Z    return (accept);
Z}
Z
Z
Z/*
Z *  FUNCTION
Z *
Z *	Indent    indent a line to the given indentation level
Z *
Z *  SYNOPSIS
Z *
Z *	LOCAL VOID Indent (indent)
Z *	int indent;
Z *
Z *  DESCRIPTION
Z *
Z *	Indent a line to the given level.  Note that this is
Z *	a simple minded but portable implementation.
Z *	There are better ways.
Z *
Z *	Also, the indent must be scaled by the compile time option
Z *	of character positions per nesting level.
Z *
Z */
Z
ZLOCAL VOID Indent (indent)
Zint indent;
Z{
Z    REGISTER int count;
Z    AUTO char buffer[PRINTBUF];
Z
Z    indent *= INDENT;
Z    for (count = 0; (count < (indent - INDENT)) && (count < (PRINTBUF - 1)); count++) {
Z	if ((count % INDENT) == 0) {
Z	    buffer[count] = '|';
Z	} else {
Z	    buffer[count] = ' ';
Z	}
Z    }
Z    buffer[count] = EOS;
Z    (VOID) fprintf (_db_fp_, buffer);
Z    (VOID) fflush (_db_fp_);
Z}
Z
Z
Z/*
Z *  FUNCTION
Z *
Z *	FreeList    free all memory associated with a linked list
Z *
Z *  SYNOPSIS
Z *
Z *	LOCAL VOID FreeList (linkp)
Z *	struct link *linkp;
Z *
Z *  DESCRIPTION
Z *
Z *	Given pointer to the head of a linked list, frees all
Z *	memory held by the list and the members of the list.
Z *
Z */
Z
ZLOCAL VOID FreeList (linkp)
Zstruct link *linkp;
Z{
Z    REGISTER struct link *old;
Z
Z    while (linkp != NULL) {
Z	old = linkp;
Z	linkp = linkp -> next_link;
Z	if (old -> string != NULL) {
Z	    free (old -> string);
Z	}
Z	free ((char *) old);
Z    }
Z}
Z
Z
Z/*
Z *  FUNCTION
Z *
Z *	StrDup   make a duplicate of a string in new memory
Z *
Z *  SYNOPSIS
Z *
Z *	LOCAL char *StrDup (string)
Z *	char *string;
Z *
Z *  DESCRIPTION
Z *
Z *	Given pointer to a string, allocates sufficient memory to make
Z *	a duplicate copy, and copies the string to the newly allocated
Z *	memory.  Failure to allocated sufficient memory is immediately
Z *	fatal.
Z *
Z */
Z
Z
ZLOCAL char *StrDup (string)
Zchar *string;
Z{
Z    REGISTER char *new;
Z
Z    new = DbugMalloc (strlen (string) + 1);
Z    (VOID) strcpy (new, string);
Z    return (new);
Z}
Z
Z
Z/*
Z *  FUNCTION
Z *
Z *	DoPrefix    print debugger line prefix prior to indentation
Z *
Z *  SYNOPSIS
Z *
Z *	LOCAL VOID DoPrefix (_line_)
Z *	int _line_;
Z *
Z *  DESCRIPTION
Z *
Z *	Print prefix common to all debugger output lines, prior to
Z *	doing indentation if necessary.  Print such information as
Z *	current process name, current source file name and line number,
Z *	and current function nesting depth.
Z *
Z */
Z  
Z 
ZLOCAL VOID DoPrefix (_line_)
Zint _line_;
Z{
Z    lineno++;
Z    if (stack -> flags & NUMBER_ON) {
Z	(VOID) fprintf (_db_fp_, "%5d: ", lineno);
Z    }
Z    if (stack -> flags & PROCESS_ON) {
Z	(VOID) fprintf (_db_fp_, "%s: ", _db_process_);
Z    }
Z    if (stack -> flags & FILE_ON) {
Z	(VOID) fprintf (_db_fp_, "%14s: ", file);
Z    }
Z    if (stack -> flags & LINE_ON) {
Z	(VOID) fprintf (_db_fp_, "%5d: ", _line_);
Z    }
Z    if (stack -> flags & DEPTH_ON) {
Z	(VOID) fprintf (_db_fp_, "%4d: ", stack -> level);
Z    }
Z    (VOID) fflush (_db_fp_);
Z}
Z
Z
Z/*
Z *  FUNCTION
Z *
Z *	OpenFile    open new output stream for debugger output
Z *
Z *  SYNOPSIS
Z *
Z *	LOCAL VOID OpenFile (name)
Z *	char *name;
Z *
Z *  DESCRIPTION
Z *
Z *	Given name of a new file (or "-" for stdout) opens the file
Z *	and sets the output stream to the new file.
Z *
Z */
Z
ZLOCAL VOID OpenFile (name)
Zchar *name;
Z{
Z    REGISTER FILE *fp;
Z    REGISTER BOOLEAN newfile;
Z
Z    if (name != NULL) {
Z	if (strcmp (name, "-") == 0) {
Z	    _db_fp_ = stdout;
Z	    stack -> out_file = _db_fp_;
Z	} else {
Z	    if (!Writable (name)) {
Z		(VOID) fprintf (_db_fp_, ERR_OPEN, _db_process_, name);
Z		perror ("");
Z		(VOID) fflush (_db_fp_);
Z		(VOID) Delay (stack -> delay);
Z	    } else {
Z		if (EXISTS (name)) {
Z		    newfile = FALSE;
Z		} else {
Z		    newfile = TRUE;
Z		}
Z		fp = fopen (name, "a");
Z		if (fp == NULL) {
Z 		    (VOID) fprintf (_db_fp_, ERR_OPEN, _db_process_, name);
Z		    perror ("");
Z		    (VOID) fflush (_db_fp_);
Z		    (VOID) Delay (stack -> delay);
Z		} else {
Z		    _db_fp_ = fp;
Z		    stack -> out_file = fp;
Z		    if (newfile) {
Z			ChangeOwner (name);
Z		    }
Z		}
Z	    }
Z	}
Z    }
Z}
Z
Z
Z/*
Z *  FUNCTION
Z *
Z *	OpenProfile    open new output stream for profiler output
Z *
Z *  SYNOPSIS
Z *
Z *	LOCAL VOID OpenProfile (name)
Z *	char *name;
Z *
Z *  DESCRIPTION
Z *
Z *	Given name of a new file, opens the file
Z *	and sets the profiler output stream to the new file.
Z *
Z *	It is currently unclear whether the prefered behavior is
Z *	to truncate any existing file, or simply append to it.
Z *	The latter behavior would be desirable for collecting
Z *	accumulated runtime history over a number of separate
Z *	runs.  It might take some changes to the analyzer program
Z *	though, and the notes that Binayak sent with the profiling
Z *	diffs indicated that append was the normal mode, but this
Z *	does not appear to agree with the actual code. I haven't
Z *	investigated at this time [fnf; 24-Jul-87].
Z */
Z
ZLOCAL VOID OpenProfile (name)
Zchar *name;
Z{
Z    REGISTER FILE *fp;
Z    REGISTER BOOLEAN newfile;
Z
Z    if (name != NULL) {
Z	if (!Writable (name)) {
Z	    (VOID) fprintf (_db_fp_, ERR_OPEN, _db_process_, name);
Z	    perror ("");
Z	    (VOID) fflush (_db_fp_);
Z	    (VOID) Delay (stack -> delay);
Z	} else {
Z	    if (EXISTS (name)) {
Z		newfile = FALSE;
Z	    } else {
Z		newfile = TRUE;
Z	    }
Z	    fp = fopen (name, "w");
Z	    if (fp == NULL) {
Z		(VOID) fprintf (_db_fp_, ERR_OPEN, _db_process_, name);
Z		perror ("");
Z		(VOID) fflush (_db_fp_);
Z		(VOID) Delay (stack -> delay);
Z	    } else {
Z		_db_pfp_ = fp;
Z		stack -> prof_file = fp;
Z		if (newfile) {
Z		    ChangeOwner (name);
Z		}
Z	    }
Z	}
Z    }
Z}
Z
Z
Z/*
Z *  FUNCTION
Z *
Z *	CloseFile    close the debug output stream
Z *
Z *  SYNOPSIS
Z *
Z *	LOCAL VOID CloseFile (fp)
Z *	FILE *fp;
Z *
Z *  DESCRIPTION
Z *
Z *	Closes the debug output stream unless it is standard output
Z *	or standard error.
Z *
Z */
Z
ZLOCAL VOID CloseFile (fp)
ZFILE *fp;
Z{
Z    if (fp != stderr && fp != stdout) {
Z	if (fclose (fp) == EOF) {
Z	    (VOID) fprintf (stderr, ERR_CLOSE, _db_process_);
Z	    perror ("");
Z	    (VOID) fflush (stderr);
Z	    (VOID) Delay (stack -> delay);
Z	}
Z    }
Z}
Z
Z
Z/*
Z *  FUNCTION
Z *
Z *	DbugExit    print error message and exit
Z *
Z *  SYNOPSIS
Z *
Z *	LOCAL VOID DbugExit (why)
Z *	char *why;
Z *
Z *  DESCRIPTION
Z *
Z *	Prints error message using current process name, the reason for
Z *	aborting (typically out of memory), and exits with status 1.
Z *	This should probably be changed to use a status code
Z *	defined in the user's debugger include file.
Z *
Z */
Z 
ZLOCAL VOID DbugExit (why)
Zchar *why;
Z{
Z    (VOID) fprintf (stderr, ERR_ABORT, _db_process_, why);
Z    (VOID) fflush (stderr);
Z    (VOID) Delay (stack -> delay);
Z    exit (1);
Z}
Z
Z
Z/*
Z *  FUNCTION
Z *
Z *	DbugMalloc    allocate memory for debugger runtime support
Z *
Z *  SYNOPSIS
Z *
Z *	LOCAL char *DbugMalloc (size)
Z *	int size;
Z *
Z *  DESCRIPTION
Z *
Z *	Allocate more memory for debugger runtime support functions.
Z *	Failure to to allocate the requested number of bytes is
Z *	immediately fatal to the current process.  This may be
Z *	rather unfriendly behavior.  It might be better to simply
Z *	print a warning message, freeze the current debugger state,
Z *	and continue execution.
Z *
Z */
Z 
ZLOCAL char *DbugMalloc (size)
Zint size;
Z{
Z    register char *new;
Z
Z    new = malloc ((unsigned int) size);
Z    if (new == NULL) {
Z	DbugExit ("out of memory");
Z    }
Z    return (new);
Z}
Z
Z
Z/*
Z *	This function may be eliminated when strtok is available
Z *	in the runtime environment (missing from BSD4.1).
Z */
Z
ZLOCAL char *strtok (s1, s2)
Zchar *s1, *s2;
Z{
Z    static char *end = NULL;
Z    REGISTER char *rtnval;
Z
Z    rtnval = NULL;
Z    if (s2 != NULL) {
Z	if (s1 != NULL) {
Z	    end = s1;
Z	    rtnval = strtok ((char *) NULL, s2);
Z	} else if (end != NULL) {
Z	    if (*end != EOS) {
Z		rtnval = end;
Z		while (*end != *s2 && *end != EOS) {end++;}
Z		if (*end != EOS) {
Z		    *end++ = EOS;
Z		}
Z	    }
Z	}
Z    }
Z    return (rtnval);
Z}
Z
Z
Z/*
Z *  FUNCTION
Z *
Z *	BaseName    strip leading pathname components from name
Z *
Z *  SYNOPSIS
Z *
Z *	LOCAL char *BaseName (pathname)
Z *	char *pathname;
Z *
Z *  DESCRIPTION
Z *
Z *	Given pointer to a complete pathname, locates the base file
Z *	name at the end of the pathname and returns a pointer to
Z *	it.
Z *
Z */
Z
ZLOCAL char *BaseName (pathname)
Zchar *pathname;
Z{
Z    register char *base;
Z
Z    base = strrchr (pathname, '/');
Z    if (base++ == NULL) {
Z	base = pathname;
Z    }
Z    return (base);
Z}
Z
Z
Z/*
Z *  FUNCTION
Z *
Z *	Writable    test to see if a pathname is writable/creatable
Z *
Z *  SYNOPSIS
Z *
Z *	LOCAL BOOLEAN Writable (pathname)
Z *	char *pathname;
Z *
Z *  DESCRIPTION
Z *
Z *	Because the debugger might be linked in with a program that
Z *	runs with the set-uid-bit (suid) set, we have to be careful
Z *	about opening a user named file for debug output.  This consists
Z *	of checking the file for write access with the real user id,
Z *	or checking the directory where the file will be created.
Z *
Z *	Returns TRUE if the user would normally be allowed write or
Z *	create access to the named file.  Returns FALSE otherwise.
Z *
Z */
Z
ZLOCAL BOOLEAN Writable (pathname)
Zchar *pathname;
Z{
Z    REGISTER BOOLEAN granted;
Z#ifdef unix
Z    REGISTER char *lastslash;
Z#endif
Z
Z#ifndef unix
Z    granted = TRUE;
Z#else
Z    granted = FALSE;
Z    if (EXISTS (pathname)) {
Z	if (WRITABLE (pathname)) {
Z	    granted = TRUE;
Z	}
Z    } else {
Z	lastslash = strrchr (pathname, '/');
Z	if (lastslash != NULL) {
Z	    *lastslash = EOS;
Z	} else {
Z	    pathname = ".";
Z	}
Z	if (WRITABLE (pathname)) {
Z	    granted = TRUE;
Z	}
Z	if (lastslash != NULL) {
Z	    *lastslash = '/';
Z	}
Z    }
Z#endif
Z    return (granted);
Z}
Z
Z
Z/*
Z *	This function may be eliminated when strrchr is available
Z *	in the runtime environment (missing from BSD4.1).
Z *	Alternately, you can use rindex() on BSD systems.
Z */
Z
ZLOCAL char *strrchr (s, c)
Zchar *s;
Zchar c;
Z{
Z    REGISTER char *scan;
Z
Z    for (scan = s; *scan != EOS; scan++) {;}
Z    while (scan > s && *--scan != c) {;}
Z    if (*scan != c) {
Z	scan = NULL;
Z    }
Z    return (scan);
Z}
Z
Z
Z/*
Z *  FUNCTION
Z *
Z *	ChangeOwner    change owner to real user for suid programs
Z *
Z *  SYNOPSIS
Z *
Z *	LOCAL VOID ChangeOwner (pathname)
Z *
Z *  DESCRIPTION
Z *
Z *	For unix systems, change the owner of the newly created debug
Z *	file to the real owner.  This is strictly for the benefit of
Z *	programs that are running with the set-user-id bit set.
Z *
Z *	Note that at this point, the fact that pathname represents
Z *	a newly created file has already been established.  If the
Z *	program that the debugger is linked to is not running with
Z *	the suid bit set, then this operation is redundant (but
Z *	harmless).
Z *
Z */
Z
ZLOCAL VOID ChangeOwner (pathname)
Zchar *pathname;
Z{
Z#ifdef unix
Z    if (chown (pathname, getuid (), getgid ()) == -1) {
Z	(VOID) fprintf (stderr, ERR_CHOWN, _db_process_, pathname);
Z	perror ("");
Z	(VOID) fflush (stderr);
Z	(VOID) Delay (stack -> delay);
Z    }
Z#endif
Z}
Z
Z
Z/*
Z *  FUNCTION
Z *
Z *	_db_setjmp_    save debugger environment
Z *
Z *  SYNOPSIS
Z *
Z *	VOID _db_setjmp_ ()
Z *
Z *  DESCRIPTION
Z *
Z *	Invoked as part of the user's DBUG_SETJMP macro to save
Z *	the debugger environment in parallel with saving the user's
Z *	environment.
Z *
Z */
Z
ZVOID _db_setjmp_ ()
Z{
Z   jmplevel = stack -> level;
Z   jmpfunc = func;
Z   jmpfile = file;
Z}
Z
Z
Z/*
Z *  FUNCTION
Z *
Z *	_db_longjmp_    restore previously saved debugger environment
Z *
Z *  SYNOPSIS
Z *
Z *	VOID _db_longjmp_ ()
Z *
Z *  DESCRIPTION
Z *
Z *	Invoked as part of the user's DBUG_LONGJMP macro to restore
Z *	the debugger environment in parallel with restoring the user's
Z *	previously saved environment.
Z *
Z */
Z
ZVOID _db_longjmp_ ()
Z{
Z    stack -> level = jmplevel;
Z    if (jmpfunc) {
Z	func = jmpfunc;
Z    }
Z    if (jmpfile) {
Z	file = jmpfile;
Z    }
Z}
Z
Z
Z/*
Z *  FUNCTION
Z *
Z *	DelayArg   convert D flag argument to appropriate value
Z *
Z *  SYNOPSIS
Z *
Z *	LOCAL int DelayArg (value)
Z *	int value;
Z *
Z *  DESCRIPTION
Z *
Z *	Converts delay argument, given in tenths of a second, to the
Z *	appropriate numerical argument used by the system to delay
Z *	that that many tenths of a second.  For example, on the
Z *	AMIGA, there is a system call "Delay()" which takes an
Z *	argument in ticks (50 per second).  On unix, the sleep
Z *	command takes seconds.  Thus a value of "10", for one
Z *	second of delay, gets converted to 50 on the amiga, and 1
Z *	on unix.  Other systems will need to use a timing loop.
Z *
Z */
Z
ZLOCAL int DelayArg (value)
Zint value;
Z{
Z    int delayarg = 0;
Z    
Z#ifdef unix
Z    delayarg = value / 10;		/* Delay is in seconds for sleep () */
Z#endif
Z#ifdef AMIGA
Z    delayarg = (HZ * value) / 10;	/* Delay in ticks for Delay () */
Z#endif
Z    return (delayarg);
Z}
Z
Z
Z/*
Z *	A dummy delay stub for systems that do not support delays.
Z *	With a little work, this can be turned into a timing loop.
Z */
Z
Z#ifndef unix
Z#ifndef AMIGA
ZDelay ()
Z{
Z}
Z#endif
Z#endif
Z
Z
Z/*
Z *  FUNCTION
Z *
Z *	perror    perror simulation for systems that don't have it
Z *
Z *  SYNOPSIS
Z *
Z *	LOCAL VOID perror (s)
Z *	char *s;
Z *
Z *  DESCRIPTION
Z *
Z *	Perror produces a message on the standard error stream which
Z *	provides more information about the library or system error
Z *	just encountered.  The argument string s is printed, followed
Z *	by a ':', a blank, and then a message and a newline.
Z *
Z *	An undocumented feature of the unix perror is that if the string
Z *	's' is a null string (NOT a NULL pointer!), then the ':' and
Z *	blank are not printed.
Z *
Z *	This version just complains about an "unknown system error".
Z *
Z */
Z
Z#if !unix && !(AMIGA && LATTICE)
ZLOCAL VOID perror (s)
Zchar *s;
Z{
Z    if (s && *s != EOS) {
Z	(VOID) fprintf (stderr, "%s: ", s);
Z    }
Z    (VOID) fprintf (stderr, "<unknown system error>\n");
Z}
Z#endif	/* !unix && !(AMIGA && LATTICE) */
Z
Z/*
Z * Here we need the definitions of the clock routine.  Add your
Z * own for whatever system that you have.
Z */
Z
Z#if unix
Z
Z# include <sys/param.h>
Z# if BSD4_3 || sun
Z
Z/*
Z * Definition of the Clock() routine for 4.3 BSD.
Z */
Z
Z#include <sys/time.h>
Z#include <sys/resource.h>
Z
Z/*
Z * Returns the user time in milliseconds used by this process so
Z * far.
Z */
Z
ZLOCAL unsigned long Clock ()
Z{
Z    struct rusage ru;
Z
Z    (VOID) getrusage (RUSAGE_SELF, &ru);
Z    return ((ru.ru_utime.tv_sec * 1000) + (ru.ru_utime.tv_usec / 1000));
Z}
Z
Z#else
Z
ZLOCAL unsigned long Clock ()
Z{
Z    return (0);
Z}
Z
Z# endif
Z
Z#else
Z
Z#if AMIGA
Z
Zstruct DateStamp {		/* Yes, this is a hack, but doing it right */
Z	long ds_Days;		/* is incredibly ugly without splitting this */
Z	long ds_Minute;		/* off into a separate file */
Z	long ds_Tick;
Z};
Z
Zstatic int first_clock = TRUE;
Zstatic struct DateStamp begin;
Zstatic struct DateStamp elapsed;
Z
ZLOCAL unsigned long Clock ()
Z{
Z    register struct DateStamp *now;
Z    register unsigned long millisec = 0;
Z    extern VOID *AllocMem ();
Z
Z    now = (struct DateStamp *) AllocMem ((long) sizeof (struct DateStamp), 0L);
Z    if (now != NULL) {
Z	if (first_clock == TRUE) {
Z	    first_clock = FALSE;
Z	    (VOID) DateStamp (now);
Z	    begin = *now;
Z	}
Z	(VOID) DateStamp (now);
Z	millisec = 24 * 3600 * (1000 / HZ) * (now -> ds_Days - begin.ds_Days);
Z	millisec += 60 * (1000 / HZ) * (now -> ds_Minute - begin.ds_Minute);
Z	millisec += (1000 / HZ) * (now -> ds_Tick - begin.ds_Tick);
Z	(VOID) FreeMem (now, (long) sizeof (struct DateStamp));
Z    }
Z    return (millisec);
Z}
Z
Z#endif	/* AMIGA */
Z#endif	/* unix */
STUNKYFLUFF
set `sum dbug.c`
if test 10401 != $1
then
echo dbug.c: Checksum error. Is: $1, should be: 10401.
fi
echo ALL DONE BUNKY!
exit 0

allbery@ncoast.UUCP (09/24/87)

>From noao!cfa!harvard!ll-xn!scubed!MAILER-DAEMON Tue Sep 22 23:30:34 1987
Return-Path: <noao!cfa!harvard!ll-xn!scubed!MAILER-DAEMON>
Received: by noname.uucp (3.2/SMI-3.2)
	id AA00968; Tue, 22 Sep 87 23:30:28 MST
Received: by noao.arizona.edu (5.51/SAG.7)
	id AA09968; Tue, 22 Sep 87 21:21:45 MST
Received: from husc6.harvard.edu (husc6.ARPA) by cfa.HARVARD.EDU; Wed, 23 Sep 87 00:05:15 edt
Received: by husc6.harvard.edu; Tue, 22 Sep 87 23:58:35 EDT
Received: by harvard.harvard.edu; Wed, 23 Sep 87 00:06:22 EDT
Received:  by XN.LL.MIT.EDU; Tue, 22 Sep 87 23:57:03 EDT
Posted-Date: Wed, 9 Sep 87 10:36:04 MST
Received: by SCUBED.ARPA (1.2/5.20b)
	id AA07221; Tue, 22 Sep 87 20:41:20 pdt
Date: Wed, 9 Sep 87 10:36:04 MST
From: noao!cfa!harvard!ll-xn!scubed!MAILER-DAEMON (Mail Delivery Subsystem)
Subject: Returned mail: Host unknown
Message-Id: <8709230341.AA07221@SCUBED.ARPA>
To: ll-xn!ames!NOAO.ARIZONA.EDU!mcdsun!fnf@scubed
Status: R

   ----- Transcript of session follows -----
550 noao.arizona.edu.tcp... 550 Host unknown
550 seismo!adelie!necntc!ncoast!allbery@NOAO.ARIZONA.EDU... Host unknown

   ----- Unsent message follows -----
Received: by SCUBED.ARPA (1.2/5.20b)
	id AA07217; Tue, 22 Sep 87 20:41:20 pdt
Received: by SCUBED.ARPA (1.2/5.20b)
	id AA00771; Wed, 9 Sep 87 11:15:45 pdt
Received:  by XN.LL.MIT.EDU; Wed, 9 Sep 87 13:55:20 EDT
Posted-Date: Wed, 9 Sep 87 10:36:04 MST
Received: Wed, 9 Sep 87 11:00:10 PDT from HAO.UCAR.EDU by ames.arpa (5.58/1.2)
Received: by hao.UCAR.EDU (5.54/1.00.UUCP-MOD.8-11-85)
	id AA15483; Wed, 9 Sep 87 11:49:57 MDT
Received: by noao.arizona.edu (5.51/SAG.7)
	id AA04829; Wed, 9 Sep 87 10:52:25 MST
Received: by noname.uucp (3.2/SMI-3.2)
	id AA14024; Wed, 9 Sep 87 10:36:04 MST
Date: Wed, 9 Sep 87 10:36:04 MST
From: ll-xn!ames!NOAO.ARIZONA.EDU!mcdsun!fnf@scubed.scubed.arpa (Fred Fish)
Message-Id: <8709091736.AA14024@noname.uucp>
To: adelie!necntc!ncoast!allbery@NOAO.ARIZONA.EDU
Subject: My macro based C debugging package (2 of 3)


#--------CUT---------CUT---------CUT---------CUT--------#
#########################################################
#                                                       #
# This is a shell archive file.  To extract files:      #
#                                                       #
#    1)	Make a directory for the files.                 #
#    2) Write a file, such as "file.shar", containing   #
#       this archive file into the directory.           #
#    3) Type "sh file.shar".  Do not use csh.           #
#                                                       #
#########################################################
#
#
echo Extracting Makefile:
sed 's/^Z//' >Makefile <<\STUNKYFLUFF
Z#
Z#  FILE
Z#
Z#	Makefile    Makefile for dbug package
Z#
Z#  SCCS ID
Z#
Z#	@(#)Makefile	1.11 9/9/87
Z#
Z#  DESCRIPTION
Z#
Z#	Makefile for the dbug package (under UNIX system V or 4.2BSD).
Z#
Z#	Interesting things to make are:
Z#
Z#	lib	=>	Makes the runtime support library in the
Z#			current directory.
Z#
Z#	lintlib	=>	Makes the lint library in the current directory.
Z#
Z#	install	=>	Install pieces from current directory to
Z#			where they belong.
Z#
Z#	doc	=>	Makes the documentation in the current
Z#			directory.
Z#
Z#	clean	=>	Remove objects, temporary files, etc from
Z#			current directory.
Z#
Z#	superclean =>	Remove everything except sccs source files.
Z#			Uses interactive remove for verification.
Z
ZAR =		ar
ZRM =		rm
ZCFLAGS =	-O
ZGFLAGS =	-s
ZINSTALL =	./install.sh
ZCHMOD =		chmod
ZMAKE =		make
ZINC =		/usr/include/local
ZLIB =		/usr/lib
ZRANLIB =	./ranlib.sh
ZMODE =		664
Z
Z# The following is provided for example only, it is set by "doinstall.sh".
ZLLIB =		/usr/lib
Z
Z.SUFFIXES:	.r .r~ .c .c~
Z
Z.c~.c:
Z		$(GET) $(GFLAGS) -p $< >$*.c
Z
Z.r~.r:
Z		$(GET) $(GFLAGS) -p $< >$*.r
Z
Z.c~.r:
Z		$(GET) $(GFLAGS) -p $< >$*.c
Z		sed "s/\\\/\\\e/" <$*.c >$*.r
Z		$(RM) -f $*.c
Z
Z.c.r:
Z		sed "s/\\\/\\\e/" <$< >$*.r
Z
ZEXAMPLES =	example1.r example2.r example3.r
ZOUTPUTS =	output1.r output2.r output3.r output4.r output5.r
Z
ZNROFF_INC =	main.r factorial.r $(OUTPUTS) $(EXAMPLES)
Z
Z
Z#
Z#	The default thing to do is remake the local runtime support
Z#	library, local lint library, and local documentation as
Z#	necessary.
Z#
Z
Zall :		scripts lib lintlib analyze doc
Z
Zlib :		libdbug.a
Z
Zlintlib :	llib-ldbug.ln
Z
Zdoc :		factorial user.t
Z
Z#
Z#	Make the local runtime support library "libdbug.a" from
Z#	sources.
Z#
Z
Zlibdbug.a :	dbug.o
Z		rm -f $@
Z		$(AR) cr $@ $?
Z		$(RANLIB) $@
Z
Z#
Z#	Clean up the local directory.
Z#
Z
Zclean :
Z		$(RM) -f *.o *.ln *.a *.BAK nohup.out factorial $(NROFF_INC)
Z
Zsuperclean :
Z		$(RM) -i ?[!.]*
Z
Z#
Z#	Install the new header and library files.  Since things go in
Z#	different places depending upon the system (lint libraries
Z#	go in /usr/lib under SV and /usr/lib/lint under BSD for example),
Z#	the shell script "doinstall.sh" figures out the environment and
Z#	does a recursive make with the appropriate pathnames set.
Z#
Z
Zinstall :		scripts
Z			./doinstall.sh $(MAKE) sysinstall
Z
Zsysinstall:		$(INC) $(INC)/dbug.h $(LIB)/libdbug.a \
Z			$(LLIB)/llib-ldbug.ln $(LLIB)/llib-ldbug
Z
Z$(INC) :
Z			-if test -d $@ ;then true ;else mkdir $@ ;fi
Z
Z$(INC)/dbug.h :		dbug.h
Z			$(INSTALL) $? $@
Z			$(CHMOD) $(MODE) $@
Z
Z$(LIB)/libdbug.a :	libdbug.a
Z			$(INSTALL) $? $@
Z			$(CHMOD) $(MODE) $@
Z
Z$(LLIB)/llib-ldbug.ln :	llib-ldbug.ln
Z			$(INSTALL) $? $@
Z			$(CHMOD) $(MODE) $@
Z
Z$(LLIB)/llib-ldbug :	llib-ldbug
Z			$(INSTALL) $? $@
Z			$(CHMOD) $(MODE) $@
Z
Z#
Z#	Make the local lint library.
Z#
Z
Zllib-ldbug.ln : 	llib-ldbug
Z			./mklintlib.sh $? $@
Z
Z#
Z#	Make the test/example program "factorial".
Z#
Z#	Note that the objects depend on the LOCAL dbug.h file and
Z#	the compilations are set up to find dbug.h in the current
Z#	directory even though the sources have "#include <dbug.h>".
Z#	This allows the examples to look like the code a user would
Z#	write but still be used as test cases for new versions
Z#	of dbug.
Z
Zfactorial :	main.o factorial.o libdbug.a
Z		$(CC) -o $@ main.o factorial.o libdbug.a
Z
Zmain.o :	main.c dbug.h
Z		$(CC) $(CFLAGS) -c -I. main.c
Z
Zfactorial.o :	factorial.c dbug.h
Z		$(CC) $(CFLAGS) -c -I. factorial.c
Z
Z
Z#
Z#	Make the analyze program for runtime profiling support.
Z#
Z
Zanalyze :	analyze.o libdbug.a
Z		$(CC) -o $@ analyze.o libdbug.a
Z
Zanalyze.o :	analyze.c useful.h dbug.h
Z		$(CC) $(CFLAGS) -c -I. analyze.c
Z
Z#
Z#	Rebuild the documentation
Z#
Z
Zuser.t :	user.r $(NROFF_INC)
Z		nroff -cm user.r >$@
Z
Z#
Z#	Run the factorial program to produce the sample outputs.
Z#
Z
Zoutput1.r:	factorial
Z		factorial 1 2 3 4 5 >$@
Z
Zoutput2.r:	factorial
Z		factorial -#t:o 2 3 >$@
Z
Zoutput3.r:	factorial
Z		factorial -#d:t:o 3 >$@
Z
Zoutput4.r:	factorial
Z		factorial -#d,result:o 4 >$@
Z
Zoutput5.r:	factorial
Z		factorial -#d:f,factorial:F:L:o 3 >$@
Z
Z#
Z#	All files included by user.r depend on user.r, thus
Z#	forcing them to be remade if user.r changes.
Z#
Z
Z$(NROFF_INC) :	user.r
Z
Z#
Z#	Make scripts executable (safeguard against forgetting to do it
Z#	when extracting scripts from a source code control system.
Z#
Z
Zscripts:
Z		chmod a+x *.sh
Z
STUNKYFLUFF
set `sum Makefile`
if test 43870 != $1
then
echo Makefile: Checksum error. Is: $1, should be: 43870.
fi
#
#
echo Extracting README.prof:
sed 's/^Z//' >README.prof <<\STUNKYFLUFF
ZHi,
Z
ZI'm sending you the modifications I made to your Dbug routines to
Zallow profiling in a (relatively) machine independent fashion.
ZI use your Dbug routines fairly extensively.  Unfortunately, it's
Za royal pain to have to keep profiled versions of various libraries
Zaround.  The modifications allow profiling without the need for this.
Z
ZHow it works.
Z------------
Z
ZBasically, I just added code in the dbug routines to write out a file
Zcalled dbugmon.out (by default).  This is an ascii file containing lines
Zof the form:
Z
Z<function-name> E <time-entered>
Z<function-name> X <time-exited>
Z
ZA second program (analyze) reads this file, and produces a report on
Zstandard output.
Z
ZProfiling is enabled through the `g' flag.  It can take a list of
Zprocedure names for which profiling is enabled.  By default, it
Zprofiles all procedures.
Z
ZThe code in ``dbug.c'' opens the profile file for appending.  This
Zis in order that one can run a program several times, and get the
Zsum total of all the times, etc.
Z
ZThe only system dependent part that I'm aware of is the routine
ZClock() at the end of dbug.c.  This returns the elapsed user time
Zin milliseconds.  The version which I have is for 4.3 BSD.  As I
Zdon't have access to other systems, I'm not certain how this would
Zchange.
Z
ZAn example of the report generated follows:
Z
Z		Profile of Execution
Z		Execution times are in milliseconds
Z
Z		    Calls			    Time
Z		    -----			    ----
Z		Times	Percentage	Time Spent	Percentage
ZFunction	Called	of total	in Function	of total    Importance
Z========	======	==========	===========	==========  ==========
Zfactorial      	     5	     83.33	         30	    100.00        8333
Zmain           	     1	     16.67	          0	      0.00           0
Z========	======	==========	===========	==========
ZTotals         	     6	    100.00	         30	    100.00
Z
Z
ZAs you can see, it's quite self-evident.  The ``Importance'' column is a
Zmetric obtained by multiplying the percentage of the calls and the percentage
Zof the time.  Functions with higher 'importance' benefit the most from
Zbeing sped up.
Z
ZI'm really not certain how to add support for setjmp/longjmp, or for
Zchild processes, so I've ignored that for the time being.  In most of
Zthe code that I write, it isn't necessary.  If you have any good ideas,
Zfeel free to add them.
Z
ZThis has been very useful to me.  If you can use it as part of your
Zdbug distribution, please feel free to do so.
Z
ZRegards,
Z
Z				Binayak Banerjee
Z		{allegra | astrovax | bpa | burdvax}!sjuvax!bbanerje
Z			bbanerje%sjuvax.sju.edu@relay.cs.net
Z				July 9, 1987
STUNKYFLUFF
set `sum README.prof`
if test 29706 != $1
then
echo README.prof: Checksum error. Is: $1, should be: 29706.
fi
#
#
echo Extracting analyze.c:
sed 's/^Z//' >analyze.c <<\STUNKYFLUFF
Z/*
Z * Analyze the profile file (cmon.out) written out by the dbug
Z * routines with profiling enabled.
Z *
Z * Copyright June 1987, Binayak Banerjee
Z * All rights reserved.
Z *
Z * This program may be freely distributed under the same terms and
Z * conditions as Fred Fish's Dbug package.
Z *
Z * Compile with -- cc -O -s -o %s analyze.c
Z *
Z * Analyze will read an trace file created by the dbug package
Z * (when run with traceing enabled).  It will then produce a
Z * summary on standard output listing the name of each traced
Z * function, the number of times it was called, the percentage
Z * of total calls, the time spent executing the function, the
Z * proportion of the total time and the 'importance'.  The last
Z * is a metric which is obtained by multiplying the proportions
Z * of calls and the proportions of time for each function.  The
Z * greater the importance, the more likely it is that a speedup
Z * could be obtained by reducing the time taken by that function.
Z *
Z * Note that the timing values that you obtain are only rough
Z * measures.  The overhead of the dbug package is included
Z * within.  However, there is no need to link in special profiled
Z * libraries and the like.
Z *
Z * CHANGES:
Z *
Z *	24-Jul-87: fnf
Z *	Because I tend to use functions names like
Z *	"ExternalFunctionDoingSomething", I've rearranged the
Z *	printout to put the function name last in each line, so
Z *	long names don't screw up the formatting unless they are
Z *	*very* long and wrap around the screen width...
Z *
Z *	24-Jul-87: fnf
Z *	Modified to put out table very similar to Unix profiler
Z *	by default, but also puts out original verbose table
Z *	if invoked with -v flag.
Z */
Z
Z# include <stdio.h>
Z# include "useful.h"
Z
Zchar *my_name;
Zint verbose;
Z
Z/*
Z * Structure of the stack.
Z */
Z
Z# define PRO_FILE	"dbugmon.out" /* Default output file name */
Z# define STACKSIZ	100	/* Maximum function nesting */
Z# define MAXPROCS	1000	/* Maximum number of function calls */
Z
Zstruct stack_t {
Z	unsigned int pos;		/* which function? */
Z	unsigned long time;		/* Time that this was entered */
Z	unsigned long children;		/* Time spent in called funcs */
Z}
Z	fn_stack[STACKSIZ+1];
Z
Zunsigned int stacktop = 0;	/* Lowest stack position is a dummy */
Z
Z/*
Z * top() returns a pointer to the top item on the stack.
Z * (was a function, now a macro)
Z */
Z
Z# define top()	&fn_stack[stacktop]
Z
Z/*
Z * Push - Push the given record on the stack.
Z */
Z
Zvoid
Zpush(name_pos,time_entered)
Zregister unsigned int name_pos;
Zregister unsigned long time_entered;
Z{
Z	register struct stack_t *t;
Z
Z	DBUG_ENTER("push");
Z	if (++stacktop > STACKSIZ)
Z	 {
Z		fprintf(DBUG_FILE,"%s: stack overflow (%s:%d)\n",
Z			my_name,__FILE__,__LINE__);
Z		exit(EX_SOFTWARE);
Z	 }
Z
Z	DBUG_PRINT("push",("%d %ld",name_pos,time_entered));
Z	t = &fn_stack[stacktop];
Z	t->pos = name_pos;
Z	t->time = time_entered;
Z	t->children = 0;
Z
Z	DBUG_VOID_RETURN;
Z}
Z
Z/*
Z * Pop - pop the top item off the stack, assigning the field values
Z * to the arguments. Returns 0 on stack underflow, or on popping first
Z * item off stack.
Z */
Z
Zunsigned int
Zpop(name_pos, time_entered, child_time)
Zregister unsigned int *name_pos;
Zregister unsigned long *time_entered;
Zregister unsigned long *child_time;
Z{
Z	register struct stack_t *temp;
Z
Z	DBUG_ENTER("pop");
Z
Z	if (stacktop < 1)
Z		DBUG_RETURN(0);
Z	
Z	temp =  &fn_stack[stacktop];
Z	*name_pos = temp->pos;
Z	*time_entered = temp->time;
Z	*child_time = temp->children;
Z
Z	DBUG_PRINT("pop",("%d %d %d",*name_pos,*time_entered,*child_time));
Z	DBUG_RETURN(stacktop--);
Z}
Z
Z/*
Z * We keep the function info in another array (serves as a simple
Z * symbol table)
Z */
Z
Zstruct module_t {
Z	char *name;
Z	unsigned long m_time;
Z	unsigned long m_calls;
Z}
Z	modules[MAXPROCS];
Z
Z/*
Z * We keep a binary search tree in order to look up function names
Z * quickly (and sort them at the end.
Z */
Z
Zstruct {
Z	unsigned int lchild;	/* Index of left subtree */
Z	unsigned int rchild;	/* Index of right subtree */
Z	unsigned int pos;	/* Index of module_name entry */
Z}
Z	s_table[MAXPROCS];
Z
Zunsigned int n_items = 0;	/* No. of items in the array so far */
Z
Z/*
Z * Need a function to allocate space for a string and squirrel it away.
Z */
Z
Zchar *
Zstrsave(s)
Zchar *s;
Z{
Z	register char *retval;
Z	register unsigned int len;
Z	extern char *malloc ();
Z
Z	DBUG_ENTER("strsave");
Z	DBUG_PRINT("strsave",("%s",s));
Z	if (s == Nil(char) || (len = strlen(s)) == 0)
Z		DBUG_RETURN(Nil(char));
Z
Z	MALLOC(retval, ++len, char);
Z	strcpy(retval,s);
Z	DBUG_RETURN(retval);
Z}
Z
Z/*
Z * add() - adds m_name to the table (if not already there), and returns
Z * the index of its location in the table.  Checks s_table (which is a
Z * binary search tree) to see whether or not it should be added.
Z */
Z
Zunsigned int
Zadd(m_name)
Zchar *m_name;
Z{
Z	register unsigned int ind = 0;
Z	register int cmp;
Z
Z	DBUG_ENTER("add");
Z	if (n_items == 0)	/* First item to be added */
Z	 {
Z		s_table[0].pos = ind;
Z		s_table[0].lchild = s_table[0].rchild = MAXPROCS;
Zaddit:
Z		modules[n_items].name = strsave(m_name);
Z		modules[n_items].m_time = modules[n_items].m_calls = 0;
Z		DBUG_RETURN(n_items++);
Z	 }
Z	while (cmp = strcmp(m_name,modules[ind].name)) {
Z		if (cmp < 0) {	/* In left subtree */
Z			if (s_table[ind].lchild == MAXPROCS) {
Z				/* Add as left child */
Z				if (n_items >= MAXPROCS) {
Z					fprintf(DBUG_FILE,
Z					 "%s: Too many functions being profiled\n",
Z						my_name);
Z					exit(EX_SOFTWARE);
Z				}
Z				s_table[n_items].pos =
Z					s_table[ind].lchild = n_items;
Z				s_table[n_items].lchild =
Z					s_table[n_items].rchild = MAXPROCS;
Z# ifdef notdef
Z				modules[n_items].name = strsave(m_name);
Z				modules[n_items].m_time = modules[n_items].m_calls = 0;
Z				DBUG_RETURN(n_items++);
Z# else
Z				goto addit;
Z# endif
Z
Z			}
Z			ind = s_table[ind].lchild; /* else traverse l-tree */
Z		} else {
Z			if (s_table[ind].rchild == MAXPROCS) {
Z				/* Add as right child */
Z				if (n_items >= MAXPROCS) {
Z				     fprintf(DBUG_FILE,
Z				      "%s: Too many functions being profiled\n",
Z						my_name);
Z					exit(EX_SOFTWARE);
Z				}
Z				s_table[n_items].pos =
Z					s_table[ind].rchild = n_items;
Z				s_table[n_items].lchild =
Z					s_table[n_items].rchild = MAXPROCS;
Z# ifdef notdef
Z				modules[n_items].name = strsave(m_name);
Z				modules[n_items].m_time = modules[n_items].m_calls = 0;
Z				DBUG_RETURN(n_items++);
Z# else
Z				goto addit;
Z# endif
Z
Z			}
Z			ind = s_table[ind].rchild; /* else traverse r-tree */
Z		}
Z	}
Z	DBUG_RETURN(ind);
Z}
Z
Zunsigned long int tot_time = 0;
Zunsigned long int tot_calls = 0;
Z
Z/*
Z * process() - process the input file, filling in the modules table.
Z */
Z
Zvoid
Zprocess(inf)
ZFILE *inf;
Z{
Z	char buf[BUFSIZ];
Z	char fn_name[25];	/* Max length of fn_name */
Z	char fn_what[2];
Z	unsigned long fn_time;
Z	unsigned int pos;
Z	unsigned long time;
Z	unsigned int oldpos;
Z	unsigned long oldtime;
Z	unsigned long oldchild;
Z	struct stack_t *t;
Z
Z	DBUG_ENTER("process");
Z	while (fgets(buf,BUFSIZ,inf) != NULL)
Z	 {
Z		sscanf(buf,"%24s %1s %ld", fn_name, fn_what, &fn_time);
Z		pos = add(fn_name);
Z		DBUG_PRINT("enter",("%s %s %d",fn_name,fn_what,fn_time));
Z		if (fn_what[0] == 'E')
Z			push(pos,fn_time);
Z		else {
Z			/*
Z			 * An exited function implies that all stacked
Z			 * functions are also exited, until the matching
Z			 * function is found on the stack.
Z			 */
Z			while( pop(&oldpos, &oldtime, &oldchild) ) {
Z				DBUG_PRINT("popped",("%d %d",oldtime,oldchild));
Z				time = fn_time - oldtime;
Z				t = top();
Z				t -> children += time;
Z				DBUG_PRINT("update",("%s",modules[t->pos].name));
Z				DBUG_PRINT("update",("%d",t->children));
Z				time -= oldchild;
Z				modules[oldpos].m_time += time;
Z				modules[oldpos].m_calls++;
Z				tot_time += time;
Z				tot_calls++;
Z				if (pos == oldpos)
Z					goto next_line;	/* Should be a break2 */
Z			}
Z
Z			/*
Z			 * Assume that item seen started at time 0.
Z			 * (True for function main).  But initialize
Z			 * it so that it works the next time too.
Z			 */
Z			t = top();
Z			time = fn_time - t->time - t->children;
Z			t->time = fn_time; t->children = 0;
Z			modules[pos].m_time += time;
Z			modules[pos].m_calls++;
Z			tot_time += time;
Z			tot_calls++;
Z		}
Z		next_line:;
Z	 }
Z
Z	/*
Z	 * Now, we've hit eof.  If we still have stuff stacked, then we
Z	 * assume that the user called exit, so give everything the exited
Z	 * time of fn_time.
Z	 */
Z	while (pop(&oldpos,&oldtime,&oldchild))
Z	 {
Z		time = fn_time - oldtime;
Z		t = top();
Z		t->children += time;
Z		time -= oldchild;
Z		modules[oldpos].m_time += time;
Z		modules[oldpos].m_calls++;
Z		tot_time += time;
Z		tot_calls++;
Z	 }
Z
Z	DBUG_VOID_RETURN;
Z}
Z
Z/*
Z * out_header() -- print out the header of the report.
Z */
Z
Zvoid
Zout_header(outf)
ZFILE *outf;
Z{
Z	DBUG_ENTER("out_header");
Z	if (verbose) {
Z		fprintf(outf,"Profile of Execution\n");
Z		fprintf(outf,"Execution times are in milliseconds\n\n");
Z		fprintf(outf,"    Calls\t\t\t    Time\n");
Z		fprintf(outf,"    -----\t\t\t    ----\n");
Z		fprintf(outf,"Times\tPercentage\tTime Spent\tPercentage\n");
Z		fprintf(outf,"Called\tof total\tin Function\tof total    Importance\tFunction\n");
Z		fprintf(outf,"======\t==========\t===========\t==========  ==========\t========\t\n");
Z	} else {
Z		fprintf(outf,"   %%time     sec   #call ms/call  %%calls  weight  name\n");
Z	}
Z	DBUG_VOID_RETURN;
Z}
Z
Z/*
Z * out_trailer() - writes out the summary line of the report.
Z */
Zvoid
Zout_trailer(outf,sum_calls,sum_time)
ZFILE *outf;
Zunsigned long int sum_calls, sum_time;
Z{
Z	DBUG_ENTER("out_trailer");
Z	if (verbose) {
Z		fprintf(outf,"======\t==========\t===========\t==========\t========\n");
Z		fprintf(outf,"%6d\t%10.2f\t%11d\t%10.2f\t\t%-15s\n",
Z			sum_calls,100.0,sum_time,100.0,"Totals");
Z	}
Z	DBUG_VOID_RETURN;
Z}
Z
Z/*
Z * out_item() - prints out the output line for a single entry,
Z * and sets the calls and time fields appropriately.
Z */
Z
Zvoid
Zout_item(outf,m,called,timed)
ZFILE *outf;
Zregister struct module_t *m;
Zunsigned long int *called, *timed;
Z{
Z	char *name = m->name;
Z	register unsigned int calls = m->m_calls;
Z	register unsigned long time = m->m_time;
Z	unsigned int import;
Z	double per_time = 0.0;
Z	double per_calls = 0.0; 
Z	double ms_per_call, ftime;
Z
Z	DBUG_ENTER("out_item");
Z
Z	if (tot_time > 0) {
Z		per_time = (double) (time * 100) / (double) tot_time;
Z	}
Z	if (tot_calls > 0) {
Z		per_calls = (double) (calls * 100) / (double) tot_calls;
Z	}
Z	import = (unsigned int) (per_time * per_calls);
Z
Z	if (verbose) {
Z		fprintf(outf,"%6d\t%10.2f\t%11d\t%10.2f  %10d\t%-15s\n",
Z			calls, per_calls, time, per_time, import, name);
Z	} else {
Z		ms_per_call = time;
Z		ms_per_call /= calls;
Z		ftime = time;
Z		ftime /= 1000;
Z		fprintf(outf,"%8.2f%8.3f%8u%8.3f%8.2f%8u  %-s\n",
Z			per_time, ftime, calls, ms_per_call, per_calls, import, name);
Z	}
Z	*called = calls; *timed = time;
Z	DBUG_VOID_RETURN;
Z}
Z
Z/*
Z * out_body(outf,root,s_calls,s_time) -- Performs an inorder traversal
Z * on the binary search tree (root).  Calls out_item to actually print
Z * the item out.
Z */
Z
Zvoid
Zout_body(outf,root,s_calls,s_time)
ZFILE *outf;
Zregister unsigned int root;
Zregister unsigned long int *s_calls, *s_time;
Z{
Z	unsigned long int calls, time;
Z
Z	DBUG_ENTER("out_body");
Z	DBUG_PRINT("out_body",("%d,%d",*s_calls,*s_time));
Z	if (root == MAXPROCS) {
Z		DBUG_PRINT("out_body",("%d,%d",*s_calls,*s_time));
Z		DBUG_VOID_RETURN;
Z	}
Z
Z	while (root != MAXPROCS) {
Z		out_body(outf,s_table[root].lchild,s_calls,s_time);
Z		out_item(outf,&modules[s_table[root].pos],&calls,&time);
Z		DBUG_PRINT("out_body",("-- %d -- %d --", calls, time));
Z		*s_calls += calls;
Z		*s_time += time;
Z		root = s_table[root].rchild;
Z	}
Z
Z	DBUG_PRINT("out_body",("%d,%d",*s_calls,*s_time));
Z	DBUG_VOID_RETURN;
Z}
Z/*
Z * output() - print out a nice sorted output report on outf.
Z */
Z
Zvoid
Zoutput(outf)
ZFILE *outf;
Z{
Z	unsigned long int sum_calls = 0;
Z	unsigned long int sum_time = 0;
Z
Z	DBUG_ENTER("output");
Z	if (n_items == 0)
Z	 {
Z		fprintf(outf,"%s: No functions to trace\n",my_name);
Z		exit(EX_DATAERR);
Z	 }
Z	out_header(outf);
Z	out_body(outf,0,&sum_calls,&sum_time);
Z	out_trailer(outf,sum_calls,sum_time);
Z	DBUG_VOID_RETURN;
Z}
Z
Z
Z# define usage() fprintf(DBUG_FILE,"Usage: %s [-v] [prof-file]\n",my_name)
Z
Zmain(argc, argv, environ)
Zint argc;
Zchar *argv[], *environ[];
Z{
Z	extern int optind, getopt();
Z	extern char *optarg;
Z	register int c;
Z	int badflg = 0;
Z	FILE *infile;
Z	FILE *outfile = {stdout};
Z
Z	DBUG_ENTER("main");
Z	DBUG_PROCESS(argv[0]);
Z	my_name = argv[0];
Z
Z	while ((c = getopt(argc,argv,"#:v")) != EOF)
Z	 {
Z		switch (c)
Z		 {
Z			case '#': /* Debugging Macro enable */
Z				DBUG_PUSH(optarg);
Z				break;
Z
Z			case 'v': /* Verbose mode */
Z				verbose++;
Z				break;
Z
Z			default:
Z				badflg++;
Z				break;
Z		 }
Z	 }
Z	
Z	if (badflg)
Z	 {
Z		usage();
Z		DBUG_RETURN(EX_USAGE);
Z	 }
Z
Z	if (optind < argc)
Z		FILEOPEN(infile,argv[optind],"r");
Z	else
Z		FILEOPEN(infile,PRO_FILE,"r");
Z	
Z	process(infile);
Z	output(outfile);
Z	DBUG_RETURN(EX_OK);
Z}
STUNKYFLUFF
set `sum analyze.c`
if test 22754 != $1
then
echo analyze.c: Checksum error. Is: $1, should be: 22754.
fi
#
#
echo Extracting doinstall.sh:
sed 's/^Z//' >doinstall.sh <<\STUNKYFLUFF
Z
Z# Warning - first line left blank for sh/csh/ksh compatibility.  Do not
Z# remove it.  fnf@Unisoft
Z
Z# doinstall.sh --- figure out environment and do recursive make with
Z# appropriate pathnames.  Works under SV or BSD.
Z
Zif [ -r /usr/include/search.h ]
Zthen
Z	# System V
Z	$* LLIB=/usr/lib
Zelse
Z	# 4.2 BSD
Z	$* LLIB=/usr/lib/lint
Zfi
STUNKYFLUFF
set `sum doinstall.sh`
if test 16801 != $1
then
echo doinstall.sh: Checksum error. Is: $1, should be: 16801.
fi
#
#
echo Extracting example1.c:
sed 's/^Z//' >example1.c <<\STUNKYFLUFF
Z#include <stdio.h>
Z
Zmain (argc, argv)
Zint argc;
Zchar *argv[];
Z{
Z    printf ("argv[0] = %d\n", argv[0]);
Z    /*
Z     *  Rest of program
Z     */
Z    printf ("== done ==\n");
Z}
STUNKYFLUFF
set `sum example1.c`
if test 55211 != $1
then
echo example1.c: Checksum error. Is: $1, should be: 55211.
fi
#
#
echo Extracting example2.c:
sed 's/^Z//' >example2.c <<\STUNKYFLUFF
Z#include <stdio.h>
Z
Zint debug = 0;
Z
Zmain (argc, argv)
Zint argc;
Zchar *argv[];
Z{
Z    /* printf ("argv = %x\n", argv) */
Z    if (debug) printf ("argv[0] = %d\n", argv[0]);
Z    /*
Z     *  Rest of program
Z     */
Z#ifdef DEBUG
Z    printf ("== done ==\n");
Z#endif
Z}
STUNKYFLUFF
set `sum example2.c`
if test 55108 != $1
then
echo example2.c: Checksum error. Is: $1, should be: 55108.
fi
#
#
echo Extracting example3.c:
sed 's/^Z//' >example3.c <<\STUNKYFLUFF
Z#include <stdio.h>
Z
Zmain (argc, argv)
Zint argc;
Zchar *argv[];
Z{
Z#   ifdef DEBUG
Z    printf ("argv[0] = %d\n", argv[0]);
Z#   endif
Z    /*
Z     *  Rest of program
Z     */
Z#   ifdef DEBUG
Z    printf ("== done ==\n");
Z#   endif
Z}
STUNKYFLUFF
set `sum example3.c`
if test 54881 != $1
then
echo example3.c: Checksum error. Is: $1, should be: 54881.
fi
#
#
echo Extracting factorial.c:
sed 's/^Z//' >factorial.c <<\STUNKYFLUFF
Z#include <stdio.h>
Z/* User programs should use <local/dbug.h> */
Z#include "dbug.h"
Z
Zint factorial (value)
Zregister int value;
Z{
Z    DBUG_ENTER ("factorial");
Z    DBUG_PRINT ("find", ("find %d factorial", value));
Z    if (value > 1) {
Z        value *= factorial (value - 1);
Z    }
Z    DBUG_PRINT ("result", ("result is %d", value));
Z    DBUG_RETURN (value);
Z}
STUNKYFLUFF
set `sum factorial.c`
if test 15834 != $1
then
echo factorial.c: Checksum error. Is: $1, should be: 15834.
fi
#
#
echo Extracting install.sh:
sed 's/^Z//' >install.sh <<\STUNKYFLUFF
Z
Z#	WARNING -- first line intentionally left blank for sh/csh/ksh
Z#	compatibility.  Do not remove it!  FNF, UniSoft Systems.
Z#
Z#	Usage is:
Z#			install <from> <to>
Z#
Z#	The file <to> is replaced with the file <from>, after first
Z#	moving <to> to a backup file.  The backup file name is created
Z#	by prepending the filename (after removing any leading pathname
Z#	components) with "OLD".
Z#
Z#	This script is currently not real robust in the face of signals
Z#	or permission problems.  It also does not do (by intention) all
Z#	the things that the System V or BSD install scripts try to do
Z#
Z
Zif [ $# -ne 2 ]
Zthen
Z	echo  "usage: $0 <from> <to>"
Z	exit 1
Zfi
Z
Z# Now extract the dirname and basename components.  Unfortunately, BSD does
Z# not have dirname, so we do it the hard way.
Z
Zfd=`expr $1'/' : '\(/\)[^/]*/$' \| $1'/' : '\(.*[^/]\)//*[^/][^/]*//*$' \| .`
Zff=`basename $1`
Ztd=`expr $2'/' : '\(/\)[^/]*/$' \| $2'/' : '\(.*[^/]\)//*[^/][^/]*//*$' \| .`
Ztf=`basename $2`
Z
Z# Now test to make sure that they are not the same files.
Z
Zif [ $fd/$ff = $td/$tf ]
Zthen
Z	echo "install: input and output are same files"
Z	exit 2
Zfi
Z
Z# Save a copy of the "to" file as a backup.
Z
Zif test -f $td/$tf
Zthen
Z	if test -f $td/OLD$tf
Z	then
Z		rm -f $td/OLD$tf
Z	fi
Z	mv $td/$tf $td/OLD$tf
Z	if [ $? != 0 ]
Z	then
Z		exit 3
Z	fi
Zfi
Z
Z# Now do the copy and return appropriate status
Z
Zcp $fd/$ff $td/$tf
Zif [ $? != 0 ]
Zthen
Z	exit 4
Zelse
Z	exit 0
Zfi
Z
STUNKYFLUFF
set `sum install.sh`
if test 30596 != $1
then
echo install.sh: Checksum error. Is: $1, should be: 30596.
fi
#
#
echo Extracting llib-ldbug:
sed 's/^Z//' >llib-ldbug <<\STUNKYFLUFF
Z/*
Z ******************************************************************************
Z *									      *
Z *	                           N O T I C E				      *
Z *									      *
Z *	              Copyright Abandoned, 1987, Fred Fish		      *
Z *									      *
Z *									      *
Z *	This previously copyrighted work has been placed into the  public     *
Z *	domain  by  the  author  and  may be freely used for any purpose,     *
Z *	private or commercial.						      *
Z *									      *
Z *	Because of the number of inquiries I was receiving about the  use     *
Z *	of this product in commercially developed works I have decided to     *
Z *	simply make it public domain to further its unrestricted use.   I     *
Z *	specifically  would  be  most happy to see this material become a     *
Z *	part of the standard Unix distributions by AT&T and the  Berkeley     *
Z *	Computer  Science  Research Group, and a standard part of the GNU     *
Z *	system from the Free Software Foundation.			      *
Z *									      *
Z *	I would appreciate it, as a courtesy, if this notice is  left  in     *
Z *	all copies and derivative works.  Thank you.			      *
Z *									      *
Z *	The author makes no warranty of any kind  with  respect  to  this     *
Z *	product  and  explicitly disclaims any implied warranties of mer-     *
Z *	chantability or fitness for any particular purpose.		      *
Z *									      *
Z ******************************************************************************
Z */
Z
Z
Z/*
Z *  FILE
Z *
Z *	llib-ldbug    lint library source for debugging package
Z *
Z *  SCCS ID
Z *
Z *	@(#)llib-ldbug	1.8 9/9/87
Z *
Z *  DESCRIPTION
Z *
Z *	Function definitions for use in building lint library.
Z *	Note that these must stay in syncronization with actual
Z *	declarations in "dbug.c".
Z *
Z */
Z
Z
Z/*LINTLIBRARY*/
Z
Z#include <stdio.h>
Z
Z#define VOID void
Ztypedef int BOOLEAN;
Z#define FALSE 0
Z#define ARGLIST a0,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15
Z
Zint _db_on_ = FALSE;
Zint _db_pon_ = FALSE;
ZFILE *_db_fp_ = stderr;
ZFILE *_db_pfp_ = stderr;
Zchar *_db_process_ = "dbug";
Z
ZVOID _db_push_ (control)
Zchar *control;
Z{
Z}
Z
ZVOID _db_pop_ ()
Z{
Z}
Z
ZVOID _db_enter_ (_func_, _file_, _line_, _sfunc_, _sfile_, _slevel_)
Zchar *_func_;
Zchar *_file_;
Zint _line_;
Zchar **_sfunc_;
Zchar **_sfile_;
Zint *_slevel_;
Z{
Z}
Z
ZVOID _db_return_ (_line_, _sfunc_, _sfile_, _slevel_)
Zint _line_;
Zchar **_sfunc_;
Zchar **_sfile_;
Zint *_slevel_;
Z{
Z}
Z
ZVOID _db_pargs_ (_line_, keyword)
Zint _line_;
Zchar *keyword;
Z{
Z}
Z
Z/*VARARGS1*/
ZVOID _db_doprnt_ (format, ARGLIST)
Zchar *format;
Zlong ARGLIST;
Z{
Z}
Z
Z/* WARNING -- the following function is obsolete and may not be supported */
Z/* in future releases... */
Z
Z/*VARARGS3*/
ZVOID _db_printf_ (_line_, keyword, format, ARGLIST)
Zint _line_;
Zchar *keyword,  *format;
Zlong ARGLIST;
Z{
Z}
Z
ZBOOLEAN _db_keyword_ (keyword)
Zchar *keyword;
Z{
Z	return (0);
Z}
Z
ZVOID _db_longjmp_ ()
Z{
Z}
Z
ZVOID _db_setjmp_ ()
Z{
Z}
STUNKYFLUFF
set `sum llib-ldbug`
if test 37792 != $1
then
echo llib-ldbug: Checksum error. Is: $1, should be: 37792.
fi
#
#
echo Extracting main.c:
sed 's/^Z//' >main.c <<\STUNKYFLUFF
Z#include <stdio.h>
Z/* User programs should use <local/dbug.h> */
Z#include "dbug.h"
Z
Zmain (argc, argv)
Zint argc;
Zchar *argv[];
Z{
Z    register int result, ix;
Z    extern int factorial (), atoi ();
Z
Z    DBUG_ENTER ("main");
Z    DBUG_PROCESS (argv[0]);
Z    for (ix = 1; ix < argc && argv[ix][0] == '-'; ix++) {
Z	switch (argv[ix][1]) {
Z	    case '#':
Z		DBUG_PUSH (&(argv[ix][2]));
Z		break;
Z	}
Z    }
Z    for (; ix < argc; ix++) {
Z	DBUG_PRINT ("args", ("argv[%d] = %s", ix, argv[ix]));
Z	result = factorial (atoi (argv[ix]));
Z	printf ("%d\n", result);
Z    }
Z    DBUG_RETURN (0);
Z}
STUNKYFLUFF
set `sum main.c`
if test 63585 != $1
then
echo main.c: Checksum error. Is: $1, should be: 63585.
fi
#
#
echo Extracting mklintlib.sh:
sed 's/^Z//' >mklintlib.sh <<\STUNKYFLUFF
Z
Z# Warning - first line left blank for sh/csh/ksh compatibility.  Do not
Z# remove it.  fnf@Unisoft
Z
Z# mklintlib --- make a lint library, under either System V or 4.2 BSD
Z#
Z# usage:  mklintlib <infile> <outfile>
Z#
Z
Zif test $# -ne 2
Zthen
Z	echo "usage: mklintlib <infile> <outfile>"
Z	exit 1
Zfi
Z
Zif grep SIGTSTP /usr/include/signal.h >/dev/null
Zthen							# BSD
Z	if test -r /usr/include/whoami.h		# 4.1
Z	then
Z		/lib/cpp -C -Dlint $1 >hlint
Z		(/usr/lib/lint/lint1 <hlint >$2) 2>&1 | grep -v warning
Z	else						# 4.2
Z		lint -Cxxxx $1
Z		mv llib-lxxxx.ln $2
Z	fi
Zelse							# USG
Z	cc -E -C -Dlint $1 | /usr/lib/lint1 -vx -Hhlint >$2
Z	rm -f hlint
Zfi
Zexit 0							# don't kill make
STUNKYFLUFF
set `sum mklintlib.sh`
if test 51735 != $1
then
echo mklintlib.sh: Checksum error. Is: $1, should be: 51735.
fi
#
#
echo Extracting ranlib.sh:
sed 's/^Z//' >ranlib.sh <<\STUNKYFLUFF
Z
Z# Warning - first line left blank for sh/csh/ksh compatibility.  Do not
Z# remove it.  fnf@Unisoft
Z
Z# ranlib --- do a ranlib if necessary
Z
Zif [ -r /usr/bin/ranlib ]
Zthen
Z	/usr/bin/ranlib $*
Zelif [ -r /bin/ranlib ]
Zthen
Z	/bin/ranlib $*
Zelse
Z	:
Zfi
STUNKYFLUFF
set `sum ranlib.sh`
if test 13298 != $1
then
echo ranlib.sh: Checksum error. Is: $1, should be: 13298.
fi
#
#
echo Extracting useful.h:
sed 's/^Z//' >useful.h <<\STUNKYFLUFF
Z/*
Z * Copyright June 1987, Binayak Banerjee
Z * All rights reserved.
Z *
Z * This program may be freely distributed under the same terms and
Z * conditions as Fred Fish's Dbug package.
Z *
Z * Useful macros which I use a lot.
Z *
Z * Conditionally include some useful files.
Z */
Z
Z# ifndef EOF
Z#	include <stdio.h>
Z# endif
Z
Z/*
Z *	For BSD systems, you can include <sysexits.h> for more detailed
Z *	exit information.  For non-BSD systems (which also includes
Z *	non-unix systems) just map everything to "failure" = 1 and
Z *	"success" = 0.		-Fred Fish 9-Sep-87
Z */
Z
Z# ifdef BSD
Z#	include <sysexits.h>
Z# else
Z#	define EX_SOFTWARE 1
Z#	define EX_DATAERR 1
Z#	define EX_USAGE 1
Z#	define EX_OSERR 1
Z#	define EX_IOERR 1
Z#	define EX_OK 0
Z# endif
Z
Z
Z/*
Z * Fred Fish's debugging stuff.  Define DBUG_OFF in order to disable if
Z * you don't have these.
Z */
Z
Z# ifndef DBUG_OFF
Z#	include "dbug.h"		/* Use local version */
Z# else
Z#	define DBUG_ENTER(a1)
Z#	define DBUG_RETURN(a1) return(a1)
Z#	define DBUG_VOID_RETURN return
Z#	define DBUG_EXECUTE(keyword,a1)
Z#	define DBUG_2(keyword,format)
Z#	define DBUG_3(keyword,format,a1)
Z#	define DBUG_4(keyword,format,a1,a2)
Z#	define DBUG_5(keyword,format,a1,a2,a3)
Z#	define DBUG_PUSH(a1)
Z#	define DBUG_POP()
Z#	define DBUG_PROCESS(a1)
Z#	define DBUG_PRINT(x,y)
Z#	define DBUG_FILE (stderr)
Z# endif
Z
Z#define __MERF_OO_ "%s: Malloc Failed in %s: %d\n"
Z
Z#define Nil(Typ)	((Typ *) 0)	/* Make Lint happy */
Z
Z#define MALLOC(Ptr,Num,Typ) do	/* Malloc w/error checking & exit */ \
Z	if ((Ptr = (Typ *)malloc((Num)*(sizeof(Typ)))) == Nil(Typ)) \
Z		{fprintf(stderr,__MERF_OO_,my_name,__FILE__,__LINE__);\
Z		exit(EX_OSERR);} while(0)
Z
Z#define Malloc(Ptr,Num,Typ) do	/* Weaker version of above */\
Z	if ((Ptr = (Typ *)malloc((Num)*(sizeof(Typ)))) == Nil(Typ)) \
Z		fprintf(stderr,__MERF_OO_,my_name,__FILE__,__LINE__);\
Z		 while(0)
Z
Z#define FILEOPEN(Fp,Fn,Mod) do	/* File open with error exit */ \
Z	if((Fp = fopen(Fn,Mod)) == Nil(FILE))\
Z		{fprintf(stderr,"%s: Couldn't open %s\n",my_name,Fn);\
Z		exit(EX_IOERR);} while(0)
Z
Z#define Fileopen(Fp,Fn,Mod) do	/* Weaker version of above */ \
Z	if((Fp = fopen(Fn,Mod)) == Nil(FILE)) \
Z		fprintf(stderr,"%s: Couldn't open %s\n",my_name,Fn);\
Z	while(0)
Z
Z
Zextern char *my_name;	/* The name that this was called as */
STUNKYFLUFF
set `sum useful.h`
if test 28861 != $1
then
echo useful.h: Checksum error. Is: $1, should be: 28861.
fi
#
#
echo Extracting user.r:
sed 's/^Z//' >user.r <<\STUNKYFLUFF
Z.\"	@(#)user.r	1.15 7/27/87
Z.\"
Z.\"	DBUG (Macro Debugger Package) nroff source
Z.\"
Z.\"	nroff -mm user.r >user.t
Z.\"
Z.\" ===================================================
Z.\"
Z.\"	=== Some sort of black magic, but I forget...
Z.tr ~
Z.\"	=== Hyphenation control (1 = on)
Z.\".nr Hy 1
Z.\"	=== Force all first level headings to start on new page
Z.nr Ej 1
Z.\"	=== Set for breaks after headings for levels 1-3
Z.nr Hb 3
Z.\"	=== Set for space after headings for levels 1-3
Z.nr Hs 3
Z.\"	=== Set standard indent for one/half inch
Z.nr Si 10
Z.\"	=== Set page header
Z.PH "/DBUG User Manual//\*(DT/"
Z.\"	=== Set page footer
Z.PF "// - % - //"
Z.\"	=== Set page offset
Z.\".po 0.60i
Z.\"	=== Set line length
Z.\".ll 6.5i
Z.TL
ZD B U G
Z.P 0
ZC Program Debugging Package
Z.P 0
Zby
Z.AU "Fred Fish"
Z.AF ""
Z.SA 1
Z.\"	=== All paragraphs indented.
Z.nr Pt 1
Z.AS 1
ZThis document introduces
Z.I dbug ,
Za macro based C debugging
Zpackage which has proven to be a very flexible and useful tool
Zfor debugging, testing, and porting C programs.
Z
Z.P
ZAll of the features of the
Z.I dbug
Zpackage can be enabled or disabled dynamically at execution time.
ZThis means that production programs will run normally when
Zdebugging is not enabled, and eliminates the need to maintain two
Zseparate versions of a program.
Z
Z.P
ZMany of the things easily accomplished with conventional debugging
Ztools, such as symbolic debuggers, are difficult or impossible with this
Zpackage, and vice versa.
ZThus the
Z.I dbug
Zpackage should 
Z.I not
Zbe thought of as a replacement or substitute for
Zother debugging tools, but simply as a useful
Z.I addition
Zto the
Zprogram development and maintenance environment.
Z
Z.AE
Z.MT 4
Z.SK
Z.B
ZINTRODUCTION
Z.R
Z
Z.P
ZAlmost every program development environment worthy of the name
Zprovides some sort of debugging facility.
ZUsually this takes the form of a program which is capable of
Zcontrolling execution of other programs and examining the internal
Zstate of other executing programs.
ZThese types of programs will be referred to as external debuggers
Zsince the debugger is not part of the executing program.
ZExamples of this type of debugger include the
Z.B adb
Zand
Z.B sdb
Zdebuggers provided with the 
Z.B UNIX\*F
Z.FS
ZUNIX is a trademark of AT&T Bell Laboratories.
Z.FE
Zoperating system.
Z
Z.P
ZOne of the problems associated with developing programs in an environment
Zwith good external debuggers is that developed programs tend to have 
Zlittle or no internal instrumentation.
ZThis is usually not a problem for the developer since he is,
Zor at least should be, intimately familiar with the internal organization,
Zdata structures, and control flow of the program being debugged.
ZIt is a serious problem for maintenance programmers, who
Zare unlikely to have such familiarity with the program being
Zmaintained, modified, or ported to another environment.
ZIt is also a problem, even for the developer, when the program is
Zmoved to an environment with a primitive or unfamiliar debugger,
Zor even no debugger.
Z
Z.P
ZOn the other hand,
Z.I dbug
Zis an example of an internal debugger.
ZBecause it requires internal instrumentation of a program,
Zand its usage does not depend on any special capabilities of
Zthe execution environment, it is always available and will
Zexecute in any environment that the program itself will
Zexecute in.
ZIn addition, since it is a complete package with a specific
Zuser interface, all programs which use it will be provided
Zwith similar debugging capabilities.
ZThis is in sharp contrast to other forms of internal instrumentation
Zwhere each developer has their own, usually less capable, form
Zof internal debugger.
ZIn summary,
Zbecause 
Z.I dbug
Zis an internal debugger it provides consistency across operating
Zenvironments, 
Zand because it is available to all developers it provides
Zconsistency across all programs in the same environment.
Z
Z.P
ZThe
Z.I dbug
Zpackage imposes only a slight speed penalty on executing
Zprograms, typically much less than 10 percent, and a modest size
Zpenalty, typically 10 to 20 percent.
ZBy defining a specific C preprocessor symbol both of these
Zcan be reduced to zero with no changes required to the
Zsource code.
Z
Z.P
ZThe following list is a quick summary of the capabilities
Zof the
Z.I dbug
Zpackage.
ZEach capability can be individually enabled or disabled
Zat the time a program is invoked by specifying the appropriate
Zcommand line arguments.
Z.SP 1
Z.ML o 1i
Z.LI
ZExecution trace showing function level control flow in a
Zsemi-graphically manner using indentation to indicate nesting
Zdepth.
Z.LI
ZOutput the values of all, or any subset of, key internal variables.
Z.LI
ZLimit actions to a specific set of named functions.
Z.LI
ZLimit function trace to a specified nesting depth.
Z.LI
ZLabel each output line with source file name and line number.
Z.LI
ZLabel each output line with name of current process.
Z.LI
ZPush or pop internal debugging state to allow execution with
Zbuilt in debugging defaults.
Z.LI
ZRedirect the debug output stream to standard output (stdout)
Zor a named file.
ZThe default output stream is standard error (stderr).
ZThe redirection mechanism is completely independent of
Znormal command line redirection to avoid output conflicts.
Z.LE
Z
Z.SK
Z.B
ZPRIMITIVE DEBUGGING TECHNIQUES
Z.R
Z
Z.P
ZInternal instrumentation is already a familiar concept
Zto most programmers, since it is usually the first debugging
Ztechnique learned.
ZTypically, "print\ statements" are inserted in the source
Zcode at interesting points, the code is recompiled and executed,
Zand the resulting output is examined in an attempt to determine
Zwhere the problem is.
Z
ZThe procedure is iterative, with each iteration yielding more
Zand more output, and hopefully the source of the problem is
Zdiscovered before the output becomes too large to deal with
Zor previously inserted statements need to be removed.
ZFigure 1 is an example of this type of primitive debugging
Ztechnique.
Z.DS I N
Z.SP 2
Z.so example1.r
Z.SP 2
Z.ll -5
Z.ce
ZFigure 1
Z.ce
ZPrimitive Debugging Technique
Z.ll +5
Z.SP 2
Z.DE
Z
Z.P
ZEventually, and usually after at least several iterations, the
Zproblem will be found and corrected.
ZAt this point, the newly inserted print statements must be 
Zdealt with.
ZOne obvious solution is to simply delete them all.
ZBeginners usually do this a few times until they have to
Zrepeat the entire process every time a new bug pops up.
ZThe second most obvious solution is to somehow disable
Zthe output, either through the source code comment facility,
Zcreation of a debug variable to be switched on or off, or by using the
ZC preprocessor.
ZFigure 2 is an example of all three techniques.
Z.DS I N
Z.SP 2
Z.so example2.r
Z.SP 2
Z.ll -5
Z.ce
ZFigure 2
Z.ce
ZDebug Disable Techniques
Z.ll +5
Z.SP 2
Z.DE
Z
Z.P
ZEach technique has its advantages and disadvantages with respect
Zto dynamic vs static activation, source code overhead, recompilation
Zrequirements, ease of use, program readability, etc.
ZOveruse of the preprocessor solution quickly leads to problems with
Zsource code readability and maintainability when multiple 
Z.B #ifdef
Zsymbols are to be defined or undefined based on specific types
Zof debug desired.
ZThe source code can be made slightly more readable by suitable indentation
Zof the 
Z.B #ifdef
Zarguments to match the indentation of the code, but
Znot all C preprocessors allow this.
ZThe only requirement for the standard 
Z.B UNIX
ZC preprocessor is for the '#' character to appear
Zin the first column, but even this seems
Zlike an arbitrary and unreasonable restriction.
ZFigure 3 is an example of this usage.
Z.DS I N
Z.SP 2
Z.so example3.r
Z.SP 2
Z.ll -5
Z.ce
ZFigure 3
Z.ce
ZMore Readable Preprocessor Usage
Z.ll +5
Z.SP 2
Z.DE
Z
Z.SK
Z.B
ZFUNCTION TRACE EXAMPLE
Z.R
Z
Z.P
ZWe will start off learning about the capabilities of the
Z.I dbug
Zpackage by using a simple minded program which computes the
Zfactorial of a number.
ZIn order to better demonstrate the function trace mechanism, this
Zprogram is implemented recursively.
ZFigure 4 is the main function for this factorial program.
Z.DS I N
Z.SP 2
Z.so main.r
Z.SP 2
Z.ll -5
Z.ce
ZFigure 4
Z.ce
ZFactorial Program Mainline
Z.ll +5
Z.SP 2
Z.DE
Z
Z.P
ZThe 
Z.B main
Zfunction is responsible for processing any command line
Zoption arguments and then computing and printing the factorial of
Zeach non-option argument.
Z.P
ZFirst of all, notice that all of the debugger functions are implemented
Zvia preprocessor macros.
ZThis does not detract from the readability of the code and makes disabling
Zall debug compilation trivial (a single preprocessor symbol, 
Z.B DBUG_OFF ,
Zforces the macro expansions to be null).
Z.P
ZAlso notice the inclusion of the header file
Z.B dbug.h
Zfrom the local header file directory.
Z(The version included here is the test version in the dbug source
Zdistribution directory).
ZThis file contains all the definitions for the debugger macros, which
Zall have the form 
Z.B DBUG_XX...XX .
Z
Z.P
ZThe 
Z.B DBUG_ENTER 
Zmacro informs that debugger that we have entered the
Zfunction named 
Z.B main .
ZIt must be the very first "executable" line in a function, after
Zall declarations and before any other executable line.
ZThe 
Z.B DBUG_PROCESS
Zmacro is generally used only once per program to
Zinform the debugger what name the program was invoked with.
ZThe
Z.B DBUG_PUSH
Zmacro modifies the current debugger state by
Zsaving the previous state and setting a new state based on the
Zcontrol string passed as its argument.
ZThe
Z.B DBUG_PRINT
Zmacro is used to print the values of each argument
Zfor which a factorial is to be computed.
ZThe 
Z.B DBUG_RETURN
Zmacro tells the debugger that the end of the current
Zfunction has been reached and returns a value to the calling
Zfunction.
ZAll of these macros will be fully explained in subsequent sections.
Z.P
ZTo use the debugger, the factorial program is invoked with a command
Zline of the form:
Z.DS CB N
Zfactorial -#d:t 1 2 3
Z.DE
ZThe 
Z.B main
Zfunction recognizes the "-#d:t" string as a debugger control
Zstring, and passes the debugger arguments ("d:t") to the 
Z.I dbug
Zruntime support routines via the
Z.B DBUG_PUSH 
Zmacro.
ZThis particular string enables output from the
Z.B DBUG_PRINT
Zmacro with the 'd' flag and enables function tracing with the 't' flag.
ZThe factorial function is then called three times, with the arguments
Z"1", "2", and "3".
ZNote that the DBUG_PRINT takes exactly
Z.B two
Zarguments, with the second argument (a format string and list
Zof printable values) enclosed in parenthesis.
Z.P
ZDebug control strings consist of a header, the "-#", followed
Zby a colon separated list of debugger arguments.
ZEach debugger argument is a single character flag followed
Zby an optional comma separated list of arguments specific
Zto the given flag.
ZSome examples are:
Z.DS CB N
Z-#d:t:o
Z-#d,in,out:f,main:F:L
Z.DE
ZNote that previously enabled debugger actions can be disabled by the
Zcontrol string "-#".
Z
Z.P
ZThe definition of the factorial function, symbolized as "N!", is
Zgiven by:
Z.DS CB N
ZN! = N * N-1 * ... 2 * 1
Z.DE
ZFigure 5 is the factorial function which implements this algorithm
Zrecursively.
ZNote that this is not necessarily the best way to do factorials
Zand error conditions are ignored completely.
Z.DS I N
Z.SP 2
Z.so factorial.r
Z.SP 2
Z.ll -5
Z.ce
ZFigure 5
Z.ce
ZFactorial Function
Z.ll +5
Z.SP 2
Z.DE
Z
Z.P
ZOne advantage (some may not consider it so) to using the
Z.I dbug
Zpackage is that it strongly encourages fully structured coding
Zwith only one entry and one exit point in each function.
ZMultiple exit points, such as early returns to escape a loop,
Zmay be used, but each such point requires the use of an
Zappropriate 
Z.B DBUG_RETURN
Zor
Z.B DBUG_VOID_RETURN
Zmacro.
Z
Z.P
ZTo build the factorial program on a 
Z.B UNIX
Zsystem, compile and
Zlink with the command:
Z.DS CB N
Zcc -o factorial main.c factorial.c -ldbug
Z.DE
ZThe "-ldbug" argument tells the loader to link in the
Zruntime support modules for the
Z.I dbug
Zpackage.
ZExecuting the factorial program with a command of the form:
Z.DS CB N
Zfactorial 1 2 3 4 5
Z.DE
Zgenerates the output shown in figure 6.
Z.DS I N
Z.SP 2
Z.so output1.r
Z.SP 2
Z.ll -5
Z.ce
ZFigure 6
Z.ce
Zfactorial 1 2 3 4 5
Z.ll +5
Z.SP 2
Z.DE
Z
Z.P
ZFunction level tracing is enabled by passing the debugger
Zthe 't' flag in the debug control string.
ZFigure 7 is the output resulting from the command
Z"factorial\ -#t:o\ 3\ 2".
Z.DS I N
Z.SP 2
Z.so output2.r
Z.SP 2
Z.ll -5
Z.ce
ZFigure 7
Z.ce
Zfactorial -#t:o 3 2
Z.ll +5
Z.SP 2
Z.DE
Z
Z.P
ZEach entry to or return from a function is indicated by '>' for the
Zentry point and '<' for the exit point, connected by
Zvertical bars to allow matching points to be easily found
Zwhen separated by large distances.
Z
Z.P
ZThis trace output indicates that there was an initial call
Zto factorial from main (to compute 2!), followed by
Za single recursive call to factorial to compute 1!.
ZThe main program then output the result for 2! and called the
Zfactorial function again with the second argument, 3.
ZFactorial called itself recursively to compute 2! and 1!, then
Zreturned control to main, which output the value for 3! and exited.
Z
Z.P
ZNote that there is no matching entry point "main>" for the
Zreturn point "<main" because at the time the 
Z.B DBUG_ENTER
Zmacro was reached in main, tracing was not enabled yet.
ZIt was only after the macro
Z.B DBUG_PUSH
Zwas executing that tracing became enabled.
ZThis implies that the argument list should be processed as early as
Zpossible since all code preceding the first call to
Z.B DBUG_PUSH 
Zis
Zessentially invisible to 
Z.B dbug
Z(this can be worked around by
Zinserting a temporary 
Z.B DBUG_PUSH(argv[1])
Zimmediately after the
Z.B DBUG_ENTER("main")
Zmacro.
Z
Z.P
ZOne last note,
Zthe trace output normally comes out on the standard error.
ZSince the factorial program prints its result on the standard
Zoutput, there is the possibility of the output on the terminal
Zbeing scrambled if the two streams are not synchronized.
ZThus the debugger is told to write its output on the standard
Zoutput instead, via the 'o' flag character.
ZNote that no 'o' implies the default (standard error), a 'o' 
Zwith no arguments means standard output, and a 'o' 
Zwith an argument means used the named file.
ZI.E, "factorial\ -#t:o,logfile\ 3\ 2" would write the trace
Zoutput in "logfile".
ZBecause of 
Z.B UNIX
Zimplementation details, programs usually run
Zfaster when writing to stdout rather than stderr, though this
Zis not a prime consideration in this example.
Z
Z.SK
Z.B
ZUSE OF DBUG_PRINT MACRO
Z.R
Z
Z.P
ZThe mechanism used to produce "printf" style output is the
Z.B DBUG_PRINT
Zmacro.
Z
Z.P
ZTo allow selection of output from specific macros, the first argument
Zto every 
Z.B DBUG_PRINT
Zmacro is a 
Z.I dbug
Zkeyword.
ZWhen this keyword appears in the argument list of the 'd' flag in
Za debug control string, as in "-#d,keyword1,keyword2,...:t",
Zoutput from the corresponding macro is enabled.
ZThe default when there is no 'd' flag in the control string is to
Zenable output from all 
Z.B DBUG_PRINT
Zmacros.
Z
Z.P
ZTypically, a program will be run once, with no keywords specified,
Zto determine what keywords are significant for the current problem
Z(the keywords are printed in the macro output line).
ZThen the program will be run again, with the desired keywords,
Zto examine only specific areas of interest.
Z
Z.P
ZThe second argument to a
Z.B DBUG_PRINT 
Zmacro is a standard printf style
Zformat string and one or more arguments to print, all
Zenclosed in parenthesis so that they collectively become a single macro
Zargument.
ZThis is how variable numbers of printf arguments are supported.
ZAlso note that no explicit newline is required at the end of the format string.
ZAs a matter of style, two or three small 
Z.B DBUG_PRINT
Zmacros are preferable
Zto a single macro with a huge format string.
ZFigure 8 shows the output for default tracing and debug.
Z.DS I N
Z.SP 2
Z.so output3.r
Z.SP 2
Z.ll -5
Z.ce
ZFigure 8
Z.ce
Zfactorial -#d:t:o 3
Z.ll +5
Z.SP 2
Z.DE
Z
Z.P
ZThe output from the 
Z.B DBUG_PRINT
Zmacro is indented to match the trace output
Zfor the function in which the macro occurs.
ZWhen debugging is enabled, but not trace, the output starts at the left
Zmargin, without indentation.
Z
Z.P
ZTo demonstrate selection of specific macros for output, figure
Z9 shows the result when the factorial program is invoked with
Zthe debug control string "-#d,result:o".
Z.DS I N
Z.SP 2
Z.so output4.r
Z.SP 2
Z.ll -5
Z.ce
ZFigure 9
Z.ce
Zfactorial -#d,result:o 4
Z.ll +5
Z.SP 2
Z.DE
Z
Z.P
ZIt is sometimes desirable to restrict debugging and trace actions
Zto a specific function or list of functions.
ZThis is accomplished with the 'f' flag character in the debug
Zcontrol string.
ZFigure 10 is the output of the factorial program when run with the
Zcontrol string "-#d:f,factorial:F:L:o".
ZThe 'F' flag enables printing of the source file name and the 'L'
Zflag enables printing of the source file line number.
Z.DS I N
Z.SP 2
Z.so output5.r
Z.SP 2
Z.ll -5
Z.ce
ZFigure 10
Z.ce
Zfactorial -#d:f,factorial:F:L:o 3
Z.ll +5
Z.SP 2
Z.DE
Z
Z.P
ZThe output in figure 10 shows that the "find" macro is in file
Z"factorial.c" at source line 8 and the "result" macro is in the same
Zfile at source line 12.
Z
Z.SK
Z.B
ZSUMMARY OF MACROS
Z.R
Z
Z.P
ZThis section summarizes the usage of all currently defined macros
Zin the 
Z.I dbug
Zpackage.
ZThe macros definitions are found in the user include file
Z.B dbug.h
Zfrom the standard include directory.
Z
Z.SP 2
Z.BL 20
Z.LI DBUG_ENTER\ 
ZUsed to tell the runtime support module the name of the function
Zbeing entered.
ZThe argument must be of type "pointer to character".
ZThe 
ZDBUG_ENTER
Zmacro must precede all executable lines in the
Zfunction just entered, and must come after all local declarations.
ZEach 
ZDBUG_ENTER
Zmacro must have a matching 
ZDBUG_RETURN 
Zor
ZDBUG_VOID_RETURN
Zmacro 
Zat the function exit points.
ZDBUG_ENTER 
Zmacros used without a matching 
ZDBUG_RETURN 
Zor 
ZDBUG_VOID_RETURN
Zmacro 
Zwill cause warning messages from the 
Z.I dbug
Zpackage runtime support module.
Z.SP 1
ZEX:\ DBUG_ENTER\ ("main");
Z.SP 1
Z.LI DBUG_RETURN\ 
ZUsed at each exit point of a function containing a 
ZDBUG_ENTER 
Zmacro
Zat the entry point.
ZThe argument is the value to return.
ZFunctions which return no value (void) should use the 
ZDBUG_VOID_RETURN
Zmacro.
ZIt 
Zis an error to have a 
ZDBUG_RETURN 
Zor 
ZDBUG_VOID_RETURN 
Zmacro in a function
Zwhich has no matching 
ZDBUG_ENTER 
Zmacro, and the compiler will complain
Zif the macros are actually used (expanded).
Z.SP 1
ZEX:\ DBUG_RETURN\ (value);
Z.br
ZEX:\ DBUG_VOID_RETURN;
Z.SP 1
Z.LI DBUG_PROCESS\ 
ZUsed to name the current process being executed.
ZA typical argument for this macro is "argv[0]", though
Zit will be perfectly happy with any other string.
Z.SP 1
ZEX:\ DBUG_PROCESS\ (argv[0]);
Z.SP 1
Z.LI DBUG_PUSH\ 
ZSets a new debugger state by pushing the current
Z.B dbug
Zstate onto an
Zinternal stack and setting up the new state using the debug control
Zstring passed as the macro argument.
ZThe most common usage is to set the state specified by a debug
Zcontrol string retrieved from the argument list.
ZNote that the leading "-#" in a debug control string specified
Zas a command line argument must
Z.B not
Zbe passed as part of the macro argument.
ZThe proper usage is to pass a pointer to the first character
Z.B after
Zthe "-#" string.
Z.SP 1
ZEX:\ DBUG_PUSH\ (\&(argv[i][2]));
Z.br
ZEX:\ DBUG_PUSH\ ("d:t");
Z.br
ZEX:\ DBUG_PUSH\ ("");
Z.SP 1
Z.LI DBUG_POP\ 
ZRestores the previous debugger state by popping the state stack.
ZAttempting to pop more states than pushed will be ignored and no
Zwarning will be given.
ZThe 
ZDBUG_POP 
Zmacro has no arguments.
Z.SP 1
ZEX:\ DBUG_POP\ ();
Z.SP 1
Z.LI DBUG_FILE\ 
ZThe 
ZDBUG_FILE 
Zmacro is used to do explicit I/O on the debug output
Zstream.
ZIt is used in the same manner as the symbols "stdout" and "stderr"
Zin the standard I/O package.
Z.SP 1
ZEX:\ fprintf\ (DBUG_FILE,\ "Doing my own I/O!\n");
Z.SP 1
Z.LI DBUG_EXECUTE\ 
ZThe DBUG_EXECUTE macro is used to execute any arbitrary C code.
ZThe first argument is the debug keyword, used to trigger execution
Zof the code specified as the second argument.
ZThis macro must be used cautiously because, like the 
ZDBUG_PRINT 
Zmacro,
Zit is automatically selected by default whenever the 'd' flag has
Zno argument list (I.E., a "-#d:t" control string).
Z.SP 1
ZEX:\ DBUG_EXECUTE\ ("abort",\ abort\ ());
Z.SP 1
Z.LI DBUG_N\ 
ZThese macros, where N is in the range 2-5, are currently obsolete
Zand will be removed in a future release.
ZUse the new DBUG_PRINT macro.
Z.LI DBUG_PRINT\ 
ZUsed to do printing via the "fprintf" library function on the
Zcurrent debug stream,
ZDBUG_FILE.
ZThe first argument is a debug keyword, the second is a format string
Zand the corresponding argument list.
ZNote that the format string and argument list are all one macro argument
Zand
Z.B must
Zbe enclosed in parenthesis.
Z.SP 1
ZEX:\ DBUG_PRINT\ ("eof",\ ("end\ of\ file\ found"));
Z.br
ZEX:\ DBUG_PRINT\ ("type",\ ("type\ is\ %x", type));
Z.br
ZEX:\ DBUG_PRINT\ ("stp",\ ("%x\ ->\ %s", stp, stp\ ->\ name));
Z.LI DBUG_SETJMP\ 
ZUsed in place of the setjmp() function to first save the current
Zdebugger state and then execute the standard setjmp call.
ZThis allows the debugger to restore its state when the
ZDBUG_LONGJMP macro is used to invoke the standard longjmp() call.
ZCurrently all instances of DBUG_SETJMP must occur within the
Zsame function and at the same function nesting level.
Z.SP 1
ZEX:\ DBUG_SETJMP\ (env);
Z.LI DBUG_LONGJMP\ 
ZUsed in place of the longjmp() function to first restore the
Zprevious debugger state at the time of the last DBUG_SETJMP
Zand then execute the standard longjmp() call.
ZNote that currently all DBUG_LONGJMP macros restore the state
Zat the time of the last DBUG_SETJMP.
ZIt would be possible to maintain separate DBUG_SETJMP and DBUG_LONGJMP
Zpairs by having the debugger runtime support module use the first
Zargument to differentiate the pairs.
Z.SP 1
ZEX:\ DBUG_LONGJMP\ (env,val);
Z.LE
Z
Z.SK
Z.B
ZDEBUG CONTROL STRING
Z.R
Z
Z.P
ZThe debug control string is used to set the state of the debugger
Zvia the 
Z.B DBUG_PUSH 
Zmacro.
ZThis section summarizes the currently available debugger options
Zand the flag characters which enable or disable them.
ZArgument lists enclosed in '[' and ']' are optional.
Z.SP 2
Z.BL 22
Z.LI d[,keywords]
ZEnable output from macros with specified keywords.
ZA null list of keywords implies that all keywords are selected.
Z.LI D[,time]
ZDelay for specified time after each output line, to let output drain.
ZTime is given in tenths of a second (value of 10 is one second).
ZDefault is zero.
Z.LI f[,functions]
ZLimit debugger actions to the specified list of functions.
ZA null list of functions implies that all functions are selected.
Z.LI F
ZMark each debugger output line with the name of the source file
Zcontaining the macro causing the output.
Z.LI g
ZTurn on machine independent profiling.
ZA profiling data collection file, named dbugmon.out, will be written
Zfor postprocessing by the "analyze" program.
ZThe accuracy of this feature is relatively unknown at this time.
Z.LI L
ZMark each debugger output line with the source file line number of
Zthe macro causing the output.
Z.LI n
ZMark each debugger output line with the current function nesting depth.
Z.LI N
ZSequentially number each debugger output line starting at 1.
ZThis is useful for reference purposes when debugger output is
Zinterspersed with program output.
Z.LI o[,file]
ZRedirect the debugger output stream to the specified file.
ZThe default output stream is stderr.
ZA null argument list causes output to be redirected to stdout.
Z.LI p[,processes]
ZLimit debugger actions to the specified processes.
ZA null list implies all processes.
ZThis is useful for processes which run child processes.
ZNote that each debugger output line can be marked with the name of
Zthe current process via the 'P' flag.
ZThe process name must match the argument passed to the
Z.B DBUG_PROCESS
Zmacro.
Z.LI P
ZMark each debugger output line with the name of the current process.
ZMost useful when used with a process which runs child processes that
Zare also being debugged.
ZNote that the parent process must arrange for the debugger control
Zstring to be passed to the child processes.
Z.LI r
ZUsed in conjunction with the 
Z.B DBUG_PUSH 
Zmacro to reset the current
Zindentation level back to zero.
ZMost useful with 
Z.B DBUG_PUSH 
Zmacros used to temporarily alter the
Zdebugger state.
Z.LI t[,N]
ZEnable function control flow tracing.
ZThe maximum nesting depth is specified by N, and defaults to
Z200.
Z.LE
Z.SK
Z.B
ZHINTS AND MISCELLANEOUS
Z.R
Z
Z.P
ZOne of the most useful capabilities of the 
Z.I dbug 
Zpackage is to compare the executions of a given program in two
Zdifferent environments.
ZThis is typically done by executing the program in the environment
Zwhere it behaves properly and saving the debugger output in a
Zreference file.
ZThe program is then run with identical inputs in the environment where 
Zit misbehaves and the output is again captured in a reference file.
ZThe two reference files can then be differentially compared to
Zdetermine exactly where execution of the two processes diverges.
Z
Z.P
ZA related usage is regression testing where the execution of a current
Zversion is compared against executions of previous versions.
ZThis is most useful when there are only minor changes.
Z
Z.P
ZIt is not difficult to modify an existing compiler to implement
Zsome of the functionality of the 
Z.I dbug
Zpackage automatically, without source code changes to the
Zprogram being debugged.
ZIn fact, such changes were implemented in a version of the
ZPortable C Compiler by the author in less than a day.
ZHowever, it is strongly encouraged that all newly
Zdeveloped code continue to use the debugger macros
Zfor the portability reasons noted earlier.
ZThe modified compiler should be used only for testing existing
Zprograms.
Z
Z.SK
Z.B
ZCAVEATS
Z.R
Z
Z.P
ZThe 
Z.I dbug
Zpackage works best with programs which have "line\ oriented"
Zoutput, such as text processors, general purpose utilities, etc.
ZIt can be interfaced with screen oriented programs such as
Zvisual editors by redefining the appropriate macros to call
Zspecial functions for displaying the debugger results.
ZOf course, this caveat is not applicable if the debugger output
Zis simply dumped into a file for post-execution examination.
Z
Z.P
ZPrograms which use memory allocation functions other than
Z.B malloc
Zwill usually have problems using the standard
Z.I dbug
Zpackage.
ZThe most common problem is multiply allocated memory.
Z.SP 2
Z.CS
STUNKYFLUFF
set `sum user.r`
if test 36933 != $1
then
echo user.r: Checksum error. Is: $1, should be: 36933.
fi
echo ALL DONE BUNKY!
exit 0

allbery@ncoast.UUCP (09/24/87)

>From noao!cfa!harvard!ll-xn!scubed!MAILER-DAEMON Tue Sep 22 23:30:21 1987
Return-Path: <noao!cfa!harvard!ll-xn!scubed!MAILER-DAEMON>
Received: by noname.uucp (3.2/SMI-3.2)
	id AA00956; Tue, 22 Sep 87 23:30:13 MST
Received: by noao.arizona.edu (5.51/SAG.7)
	id AA09903; Tue, 22 Sep 87 21:16:51 MST
Received: from husc6.harvard.edu (husc6.ARPA) by cfa.HARVARD.EDU; Wed, 23 Sep 87 00:05:34 edt
Received: by husc6.harvard.edu; Tue, 22 Sep 87 23:59:08 EDT
Received: by harvard.harvard.edu; Wed, 23 Sep 87 00:07:19 EDT
Received:  by XN.LL.MIT.EDU; Tue, 22 Sep 87 23:57:52 EDT
Posted-Date: Wed, 9 Sep 87 10:36:31 MST
Received: by SCUBED.ARPA (1.2/5.20b)
	id AA07263; Tue, 22 Sep 87 20:41:58 pdt
Date: Wed, 9 Sep 87 10:36:31 MST
From: noao!cfa!harvard!ll-xn!scubed!MAILER-DAEMON (Mail Delivery Subsystem)
Subject: Returned mail: Host unknown
Message-Id: <8709230341.AA07263@SCUBED.ARPA>
To: ll-xn!ames!NOAO.ARIZONA.EDU!mcdsun!fnf@scubed
Status: R

   ----- Transcript of session follows -----
550 noao.arizona.edu.tcp... 550 Host unknown
550 seismo!adelie!necntc!ncoast!allbery@NOAO.ARIZONA.EDU... Host unknown

   ----- Unsent message follows -----
Received: by SCUBED.ARPA (1.2/5.20b)
	id AA07233; Tue, 22 Sep 87 20:41:58 pdt
Received: by SCUBED.ARPA (1.2/5.20b)
	id AA00783; Wed, 9 Sep 87 11:16:18 pdt
Received:  by XN.LL.MIT.EDU; Wed, 9 Sep 87 13:56:39 EDT
Posted-Date: Wed, 9 Sep 87 10:36:31 MST
Received: Wed, 9 Sep 87 11:00:37 PDT from HAO.UCAR.EDU by ames.arpa (5.58/1.2)
Received: by hao.UCAR.EDU (5.54/1.00.UUCP-MOD.8-11-85)
	id AA15503; Wed, 9 Sep 87 11:50:17 MDT
Received: by noao.arizona.edu (5.51/SAG.7)
	id AA04840; Wed, 9 Sep 87 10:53:11 MST
Received: by noname.uucp (3.2/SMI-3.2)
	id AA14030; Wed, 9 Sep 87 10:36:31 MST
Date: Wed, 9 Sep 87 10:36:31 MST
From: ll-xn!ames!NOAO.ARIZONA.EDU!mcdsun!fnf@scubed.scubed.arpa (Fred Fish)
Message-Id: <8709091736.AA14030@noname.uucp>
To: adelie!necntc!ncoast!allbery@NOAO.ARIZONA.EDU
Subject: My macro based C debugging package (3 of 3)


#--------CUT---------CUT---------CUT---------CUT--------#
#########################################################
#                                                       #
# This is a shell archive file.  To extract files:      #
#                                                       #
#    1)	Make a directory for the files.                 #
#    2) Write a file, such as "file.shar", containing   #
#       this archive file into the directory.           #
#    3) Type "sh file.shar".  Do not use csh.           #
#                                                       #
#########################################################
#
#
echo Extracting user.t.uue:
sed 's/^Z//' >user.t.uue <<\STUNKYFLUFF
Zbegin 666 user.t
ZM"@H*(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @1"!"(%4@1PH*
ZM(" @(" @(" @(" @(" @(" @(" @("!#(%!R;V=R86T@1&5B=6=G:6YG(%!A
ZM8VMA9V4*"B @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(&)Y
ZM"@H@(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @($9R960@1FES: H*
ZM"@H*(" @(" @($D(20A)"$E."$X(3@A.5 A4"%0(5%((4@A2"%)/"$\(3PA/
ZM1 A$"$0(1%4(50A5"%5#"$,(0PA#5 A4"%0(5$D(20A)"$E/"$\(3PA/3@A.
ZM"$X(3@H*"B @(" @(" @(" @($%L;6]S="!E=F5R>2!P<F]G<F%M(&1E=F5L
ZM;W!M96YT(&5N=FER;VYM96YT('=O<G1H>2 @;V8*(" @(" @('1H92 @;F%M
ZM92!P<F]V:61E<R!S;VUE('-O<G0@;V8@9&5B=6=G:6YG(&9A8VEL:71Y+B @
ZM57-U86QL>0H@(" @(" @=&AI<R!T86ME<R!T:&4@(&9O<FT@(&]F("!A("!P
ZM<F]G<F%M("!W:&EC:" @:7,@(&-A<&%B;&4@(&]F"B @(" @("!C;VYT<F]L
ZM;&EN9R @97AE8W5T:6]N("!O9B @;W1H97(@<')O9W)A;7,@86YD(&5X86UI
ZM;FEN9R!T:&4*(" @(" @(&EN=&5R;F%L('-T871E(&]F(&]T:&5R(&5X96-U
ZM=&EN9R!P<F]G<F%M<RX@(%1H97-E('1Y<&5S("!O9@H@(" @(" @<')O9W)A
ZM;7,@=VEL;"!B92!R969E<G)E9"!T;R!A<R!E>'1E<FYA;"!D96)U9V=E<G,@
ZM<VEN8V4@=&AE"B @(" @("!D96)U9V=E<B!I<R!N;W0@<&%R="!O9B!T:&4@
ZM97AE8W5T:6YG('!R;V=R86TN("!%>&%M<&QE<R @;V8*(" @(" @('1H:7,@
ZM('1Y<&4@(&]F("!D96)U9V=E<B @:6YC;'5D92 @=&AE(&$(80AA"&%D"&0(
ZM9 AD8@AB"&((8B!A;F0@<PAS"',(<V0(9 AD"&1B"&((8@AB(&1E8G5G9V5R
ZM<PH@(" @(" @<')O=FED960@=VET:"!T:&4@50A5"%4(54X(3@A."$Y)"$D(
ZM20A)6 A8"%@(6!LX,0@Q"#$(,1LY(&]P97)A=&EN9R!S>7-T96TN"@H*(" @
ZM(" @(" @(" @3VYE(&]F('1H92!P<F]B;&5M<R!A<W-O8VEA=&5D('=I=&@@
ZM9&5V96QO<&EN9R!P<F]G<F%M<PH@(" @(" @:6X@(&%N("!E;G9I<F]N;65N
ZM=" @=VET:" @9V]O9" @97AT97)N86P@(&1E8G5G9V5R<R!I<R!T:&%T"B @
ZM(" @("!D979E;&]P960@<')O9W)A;7,@('1E;F0@('1O("!H879E("!L:71T
ZM;&4@(&]R("!N;R @:6YT97)N86P*(" @(" @(&EN<W1R=6UE;G1A=&EO;BX@
ZM("!4:&ES("!I<R @=7-U86QL>2 @;F]T("!A('!R;V)L96T@9F]R('1H90H@
ZM(" @(" @9&5V96QO<&5R('-I;F-E(&AE(&ES+"!O<B!A=" @;&5A<W0@('-H
ZM;W5L9" @8F4L("!I;G1I;6%T96QY"B @(" @("!F86UI;&EA<B @=VET:" @
ZM=&AE("!I;G1E<FYA;"!O<F=A;FEZ871I;VXL(&1A=&$@<W1R=6-T=7)E<RP*
ZM(" @(" @(&%N9"!C;VYT<F]L(&9L;W<@;V8@=&AE('!R;V=R86T@8F5I;F<@
ZM(&1E8G5G9V5D+B @($ET("!I<R @80H@(" @(" @<V5R:6]U<R @('!R;V)L
ZM96T@("!F;W(@(&UA:6YT96YA;F-E("!P<F]G<F%M;65R<RP@('=H;R @87)E
ZM"B @(" @("!U;FQI:V5L>2!T;R!H879E('-U8V@@9F%M:6QI87)I='D@('=I
ZM=&@@('1H92 @<')O9W)A;2 @8F5I;F<*(" @(" @(&UA:6YT86EN960L("!M
ZM;V1I9FEE9"P@;W(@<&]R=&5D('1O(&%N;W1H97(@96YV:7)O;FUE;G0N("!)
ZM= H@(" @(" @:7,@86QS;R!A('!R;V)L96TL(&5V96X@9F]R('1H92!D979E
ZM;&]P97(L('=H96X@=&AE("!P<F]G<F%M"B @(" @("!I<R @;6]V960@('1O
ZM("!A;B!E;G9I<F]N;65N="!W:71H(&$@<')I;6ET:79E(&]R('5N9F%M:6QI
ZM87(*(" @(" @(&1E8G5G9V5R+"!O<B!E=F5N(&YO(&1E8G5G9V5R+@H*"B @
ZM(" @(" @(" @($]N('1H92!O=&AE<B!H86YD+"!?"&1?"&)?"'5?"&<@:7,@
ZM86X@97AA;7!L92 @;V8@(&%N("!I;G1E<FYA; H@(" @(" @9&5B=6=G97(N
ZM("!"96-A=7-E(&ET(')E<75I<F5S(&EN=&5R;F%L(&EN<W1R=6UE;G1A=&EO
ZM;B!O9B!A"B @(" @("!P<F]G<F%M+"!A;F0@:71S("!U<V%G92 @9&]E<R @
ZM;F]T("!D97!E;F0@(&]N("!A;GD@('-P96-I86P*(" @(" @(&-A<&%B:6QI
ZM=&EE<R @;V8@('1H92 @97AE8W5T:6]N("!E;G9I<F]N;65N="P@(&ET(&ES
ZM(&%L=V%Y<PH@(" @(" @879A:6QA8FQE(&%N9"!W:6QL("!E>&5C=71E("!I
ZM;B @86YY("!E;G9I<F]N;65N=" @=&AA=" @=&AE"B @(" @("!P<F]G<F%M
ZM("!I='-E;&8@=VEL;"!E>&5C=71E(&EN+B @26X@861D:71I;VXL('-I;F-E
ZM(&ET(&ES(&$*(" @(" @(&-O;7!L971E("!P86-K86=E("!W:71H("!A("!S
ZM<&5C:69I8R @=7-E<B @:6YT97)F86-E+" @(&%L; H@(" @(" @<')O9W)A
ZM;7,@("!W:&EC:" @=7-E("!I=" @=VEL;" @8F4@('!R;W9I9&5D("!W:71H
ZM("!S:6UI;&%R"B @(" @("!D96)U9V=I;F<@8V%P86)I;&ET:65S+B @5&AI
ZM<R!I<R!I;B!S:&%R<"!C;VYT<F%S="!T;R @;W1H97(*"@H@(" @(" @7U]?
ZM7U]?7U]?7PH*(" @(" @(" Q+B!53DE8(&ES(&$@=')A9&5M87)K(&]F($%4
ZM)E0@0F5L;"!,86)O<F%T;W)I97,N"@H*"@H@(" @(" @(" @(" @(" @(" @
ZM(" @(" @(" @(" @(" @+2 Q("T*"@H*"@H*"B @(" @("!$0E5'(%5S97(@
ZM36%N=6%L(" @(" @(" @(" @(" @(" @(" @(" @(" @4V5P=&5M8F5R(#DL
ZM(#$Y.#<*"@H*(" @(" @(&9O<FUS(&]F(&EN=&5R;F%L(&EN<W1R=6UE;G1A
ZM=&EO;B!W:&5R92!E86-H("!D979E;&]P97(@(&AA<PH@(" @(" @=&AE:7(@
ZM(&]W;BP@=7-U86QL>2!L97-S(&-A<&%B;&4L(&9O<FT@;V8@:6YT97)N86P@
ZM9&5B=6=G97(N"B @(" @("!);B!S=6UM87)Y+"!B96-A=7-E(%\(9%\(8E\(
ZM=5\(9R!I<R!A;B!I;G1E<FYA;"!D96)U9V=E<B!I="!P<F]V:61E<PH@(" @
ZM(" @8V]N<VES=&5N8WD@86-R;W-S(&]P97)A=&EN9R!E;G9I<F]N;65N=',L
ZM(&%N9"!B96-A=7-E(&ET(&ES"B @(" @("!A=F%I;&%B;&4@=&\@86QL(&1E
ZM=F5L;W!E<G,@:70@<')O=FED97,@(&-O;G-I<W1E;F-Y("!A8W)O<W,*(" @
ZM(" @(&%L;"!P<F]G<F%M<R!I;B!T:&4@<V%M92!E;G9I<F]N;65N="X*"@H@
ZM(" @(" @(" @("!4:&4@7PAD7PAB7PAU7PAG('!A8VMA9V4@:6UP;W-E<R!O
ZM;FQY(&$@<VQI9VAT('-P965D('!E;F%L='D@;VX*(" @(" @(&5X96-U=&EN
ZM9R!P<F]G<F%M<RP@='EP:6-A;&QY(&UU8V@@;&5S<R!T:&%N(#$P('!E<F-E
ZM;G0L(&%N9 H@(" @(" @82!M;V1E<W0@<VEZ92!P96YA;'1Y+" @='EP:6-A
ZM;&QY(" Q," @=&\@(#(P("!P97)C96YT+B @($)Y"B @(" @("!D969I;FEN
ZM9R @82!S<&5C:69I8R!#('!R97!R;V-E<W-O<B!S>6UB;VP@8F]T:"!O9B!T
ZM:&5S92!C86X*(" @(" @(&)E(')E9'5C960@=&\@>F5R;R!W:71H(&YO(&-H
ZM86YG97,@<F5Q=6ER960@('1O("!T:&4@('-O=7)C90H@(" @(" @8V]D92X*
ZM"@H@(" @(" @(" @("!4:&4@(&9O;&QO=VEN9R @;&ES=" @:7,@(&$@('%U
ZM:6-K(" @<W5M;6%R>2 @(&]F(" @=&AE"B @(" @("!C87!A8FEL:71I97,@
ZM(&]F("!T:&4@(%\(9%\(8E\(=5\(9R!P86-K86=E+B @16%C:"!C87!A8FEL
ZM:71Y(&-A;B!B90H@(" @(" @:6YD:79I9'5A;&QY(&5N86)L960@;W(@9&ES
ZM86)L960@870@=&AE('1I;64@(&$@('!R;V=R86T@(&ES"B @(" @("!I;G9O
ZM:V5D(" @8GD@("!S<&5C:69Y:6YG(" @=&AE(" @87!P<F]P<FEA=&4@(&-O
ZM;6UA;F0@(&QI;F4*(" @(" @(&%R9W5M96YT<RX*"B @(" @(" @(" @(" @
ZM(&\@17AE8W5T:6]N('1R86-E("!S:&]W:6YG("!F=6YC=&EO;B @;&5V96P@
ZM(&-O;G1R;VP*(" @(" @(" @(" @(" @("!F;&]W(" @(&EN(" @82 @('-E
ZM;6DM9W)A<&AI8V%L;'D@("!M86YN97(@("!U<VEN9PH@(" @(" @(" @(" @
ZM(" @(&EN9&5N=&%T:6]N('1O(&EN9&EC871E(&YE<W1I;F<@9&5P=&@N"@H@
ZM(" @(" @(" @(" @("!O($]U='!U="!T:&4@=F%L=65S(&]F(&%L;"P@;W(@
ZM86YY("!S=6)S970@(&]F+" @:V5Y"B @(" @(" @(" @(" @(" @:6YT97)N
ZM86P@=F%R:6%B;&5S+@H*(" @(" @(" @(" @(" @;R!,:6UI=" @86-T:6]N
ZM<R @=&\@(&$@('-P96-I9FEC(" @<V5T(" @;V8@("!N86UE9 H@(" @(" @
ZM(" @(" @(" @(&9U;F-T:6]N<RX*"B @(" @(" @(" @(" @(&\@3&EM:70@
ZM9G5N8W1I;VX@=')A8V4@=&\@82!S<&5C:69I960@;F5S=&EN9R!D97!T:"X*
ZM"B @(" @(" @(" @(" @(&\@3&%B96P@96%C:"!O=71P=70@;&EN92!W:71H
ZM('-O=7)C92!F:6QE("!N86UE("!A;F0*(" @(" @(" @(" @(" @("!L:6YE
ZM(&YU;6)E<BX*"B @(" @(" @(" @(" @(&\@3&%B96P@(&5A8V@@(&]U='!U
ZM=" @;&EN92 @=VET:" @;F%M92 @;V8@(&-U<G)E;G0*(" @(" @(" @(" @
ZM(" @("!P<F]C97-S+@H*(" @(" @(" @(" @(" @;R!0=7-H(&]R('!O<" @
ZM:6YT97)N86P@(&1E8G5G9VEN9R @<W1A=&4@('1O("!A;&QO=PH@(" @(" @
ZM(" @(" @(" @(&5X96-U=&EO;B!W:71H(&)U:6QT(&EN(&1E8G5G9VEN9R!D
ZM969A=6QT<RX*"B @(" @(" @(" @(" @(&\@4F5D:7)E8W0@('1H92 @9&5B
ZM=6<@(&]U='!U=" @<W1R96%M("!T;R @<W1A;F1A<F0*(" @(" @(" @(" @
ZM(" @("!O=71P=70@("AS=&1O=70I("!O<B @82 @;F%M960@(&9I;&4N("!4
ZM:&4@9&5F875L= H@(" @(" @(" @(" @(" @(&]U='!U="!S=')E86T@:7,@
ZM('-T86YD87)D("!E<G)O<B @*'-T9&5R<BDN(" @5&AE"B @(" @(" @(" @
ZM(" @(" @<F5D:7)E8W1I;VX@;65C:&%N:7-M(&ES(&-O;7!L971E;'D@:6YD
ZM97!E;F1E;G0@;V8*(" @(" @(" @(" @(" @("!N;W)M86P@8V]M;6%N9"!L
ZM:6YE(')E9&ER96-T:6]N("!T;R @879O:60@(&]U='!U= H@(" @(" @(" @
ZM(" @(" @(&-O;F9L:6-T<RX*"@H*"@H@(" @(" @(" @(" @(" @(" @(" @
ZM(" @(" @(" @(" @+2 R("T*"@H*"@H*"B @(" @("!$0E5'(%5S97(@36%N
ZM=6%L(" @(" @(" @(" @(" @(" @(" @(" @(" @4V5P=&5M8F5R(#DL(#$Y
ZM.#<*"@H*(" @(" @(% (4 A0"%!2"%((4@A220A)"$D(24T(30A-"$U)"$D(
ZM20A)5 A4"%0(5$D(20A)"$E6"%8(5@A610A%"$4(12!$"$0(1 A$10A%"$4(
ZM14((0@A""$)5"%4(50A51PA'"$<(1T<(1PA'"$=)"$D(20A)3@A."$X(3D<(
ZM1PA'"$<@5 A4"%0(5$4(10A%"$5#"$,(0PA#2 A("$@(2$X(3@A."$Y)"$D(
ZM20A)40A1"%$(454(50A5"%5%"$4(10A%4PA3"%,(4PH*"B @(" @(" @(" @
ZM($EN=&5R;F%L(&EN<W1R=6UE;G1A=&EO;B!I<R!A;')E861Y(&$@9F%M:6QI
ZM87(@(&-O;F-E<'0*(" @(" @('1O(&UO<W0@<')O9W)A;6UE<G,L('-I;F-E
ZM(&ET(&ES('5S=6%L;'D@=&AE(&9I<G-T(&1E8G5G9VEN9PH@(" @(" @=&5C
ZM:&YI<75E("!L96%R;F5D+B @("!4>7!I8V%L;'DL(" @(G!R:6YT('-T871E
ZM;65N=',B(" @87)E"B @(" @("!I;G-E<G1E9" @:6X@=&AE('-O=7)C92!C
ZM;V1E(&%T(&EN=&5R97-T:6YG('!O:6YT<RP@=&AE(&-O9&4*(" @(" @(&ES
ZM(')E8V]M<&EL960@86YD(&5X96-U=&5D+" @86YD("!T:&4@(')E<W5L=&EN
ZM9R @;W5T<'5T("!I<PH@(" @(" @97AA;6EN960@:6X@86X@871T96UP="!T
ZM;R!D971E<FUI;F4@=VAE<F4@=&AE('!R;V)L96T@:7,N"@H@(" @(" @5&AE
ZM('!R;V-E9'5R92!I<R!I=&5R871I=F4L("!W:71H("!E86-H("!I=&5R871I
ZM;VX@('EI96QD:6YG"B @(" @("!M;W)E("!A;F0@(&UO<F4@(&]U='!U="P@
ZM(&%N9" @:&]P969U;&QY("!T:&4@('-O=7)C92!O9B!T:&4*(" @(" @('!R
ZM;V)L96T@:7,@9&ES8V]V97)E9"!B969O<F4@=&AE(&]U='!U="!B96-O;65S
ZM('1O;R!L87)G92!T;PH@(" @(" @9&5A;" @=VET:" @;W(@('!R979I;W5S
ZM;'D@(&EN<V5R=&5D("!S=&%T96UE;G1S("!N965D('1O(&)E"B @(" @("!R
ZM96UO=F5D+B @1FEG=7)E(#$@:7,@86X@97AA;7!L92!O9B!T:&ES('1Y<&4@
ZM(&]F("!P<FEM:71I=F4*(" @(" @(&1E8G5G9VEN9R!T96-H;FEQ=64N"@H*
ZM"B @(" @(" @(" @(" @(" @(VEN8VQU9&4@/'-T9&EO+F@^"@H@(" @(" @
ZM(" @(" @(" @(&UA:6X@*&%R9V,L(&%R9W8I"B @(" @(" @(" @(" @(" @
ZM:6YT(&%R9V,["B @(" @(" @(" @(" @(" @8VAA<B J87)G=EM=.PH@(" @
ZM(" @(" @(" @(" @('L*(" @(" @(" @(" @(" @(" @(" @<')I;G1F("@B
ZM87)G=ELP72 ]("5D7&XB+"!A<F=V6S!=*3L*(" @(" @(" @(" @(" @(" @
ZM(" @+RH*(" @(" @(" @(" @(" @(" @(" @("H@(%)E<W0@;V8@<')O9W)A
ZM;0H@(" @(" @(" @(" @(" @(" @(" @*B\*(" @(" @(" @(" @(" @(" @
ZM(" @<')I;G1F("@B/3T@9&]N92 ]/5QN(BD["B @(" @(" @(" @(" @(" @
ZM?0H*"B @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @1FEG=7)E
ZM(#$*(" @(" @(" @(" @(" @(" @(" @(" @(%!R:6UI=&EV92!$96)U9V=I
ZM;F<@5&5C:&YI<75E"@H*"@H*(" @(" @(" @(" @179E;G1U86QL>2P@(&%N
ZM9" @=7-U86QL>2 @869T97(@("!A=" @(&QE87-T(" @<V5V97)A; H@(" @
ZM(" @:71E<F%T:6]N<RP@('1H92 @<')O8FQE;2 @=VEL;" @8F4@9F]U;F0@
ZM86YD(&-O<G)E8W1E9"X@($%T"B @(" @("!T:&ES('!O:6YT+"!T:&4@;F5W
ZM;'D@(&EN<V5R=&5D("!P<FEN=" @<W1A=&5M96YT<R @;75S=" @8F4*(" @
ZM(" @(&1E86QT("!W:71H+B @($]N92!O8G9I;W5S('-O;'5T:6]N(&ES('1O
ZM('-I;7!L>2!D96QE=&4@=&AE;0H@(" @(" @86QL+B @0F5G:6YN97)S('5S
ZM=6%L;'D@9&\@=&AI<R!A(&9E=R!T:6UE<R!U;G1I;"!T:&5Y("!H879E"B @
ZM(" @("!T;R @<F5P96%T("!T:&4@96YT:7)E('!R;V-E<W,@979E<GD@=&EM
ZM92!A(&YE=R!B=6<@<&]P<R!U<"X*(" @(" @(%1H92!S96-O;F0@;6]S="!O
ZM8G9I;W5S('-O;'5T:6]N(&ES('1O('-O;65H;W<@(&1I<V%B;&4@('1H90H@
ZM(" @(" @;W5T<'5T+" @96ET:&5R("!T:')O=6=H("!T:&4@('-O=7)C92!C
ZM;V1E(&-O;6UE;G0@9F%C:6QI='DL"B @(" @("!C<F5A=&EO;B!O9B!A(&1E
ZM8G5G('9A<FEA8FQE('1O(&)E('-W:71C:&5D(&]N(&]R(&]F9BP@;W(@8GD*
ZM(" @(" @('5S:6YG("!T:&4@($,@('!R97!R;V-E<W-O<BX@("!&:6=U<F4@
ZM,B!I<R!A;B!E>&%M<&QE(&]F(&%L; H@(" @(" @=&AR964@=&5C:&YI<75E
ZM<RX*"@H*(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @("T@,R M
ZM"@H*"@H*"@H@(" @(" @1$)51R!5<V5R($UA;G5A;" @(" @(" @(" @(" @
ZM(" @(" @(" @(" @(%-E<'1E;6)E<B Y+" Q.3@W"@H*"@H*(" @(" @(" @
ZM(" @(" @(" C:6YC;'5D92 \<W1D:6\N:#X*"B @(" @(" @(" @(" @(" @
ZM:6YT(&1E8G5G(#T@,#L*"B @(" @(" @(" @(" @(" @;6%I;B H87)G8RP@
ZM87)G=BD*(" @(" @(" @(" @(" @("!I;G0@87)G8SL*(" @(" @(" @(" @
ZM(" @("!C:&%R("IA<F=V6UT["B @(" @(" @(" @(" @(" @>PH@(" @(" @
ZM(" @(" @(" @(" @(" O*B!P<FEN=&8@*")A<F=V(#T@)7A<;B(L(&%R9W8I
ZM("HO"B @(" @(" @(" @(" @(" @(" @(&EF("AD96)U9RD@<')I;G1F("@B
ZM87)G=ELP72 ]("5D7&XB+"!A<F=V6S!=*3L*(" @(" @(" @(" @(" @(" @
ZM(" @+RH*(" @(" @(" @(" @(" @(" @(" @("H@(%)E<W0@;V8@<')O9W)A
ZM;0H@(" @(" @(" @(" @(" @(" @(" @*B\*(" @(" @(" @(" @(" @(" C
ZM:69D968@1$5"54<*(" @(" @(" @(" @(" @(" @(" @<')I;G1F("@B/3T@
ZM9&]N92 ]/5QN(BD["B @(" @(" @(" @(" @(" @(V5N9&EF"B @(" @(" @
ZM(" @(" @(" @?0H*"B @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @
ZM(" @1FEG=7)E(#(*(" @(" @(" @(" @(" @(" @(" @(" @(" @1&5B=6<@
ZM1&ES86)L92!496-H;FEQ=65S"@H*"@H*(" @(" @(" @(" @16%C:"!T96-H
ZM;FEQ=64@:&%S("!I=',@(&%D=F%N=&%G97,@(&%N9" @9&ES861V86YT86=E
ZM<PH@(" @(" @=VET:" @<F5S<&5C=" @=&\@(&1Y;F%M:6,@=G,@<W1A=&EC
ZM(&%C=&EV871I;VXL('-O=7)C92!C;V1E"B @(" @("!O=F5R:&5A9"P@<F5C
ZM;VUP:6QA=&EO;B!R97%U:7)E;65N=',L(&5A<V4@;V8@('5S92P@('!R;V=R
ZM86T*(" @(" @(')E861A8FEL:71Y+" @971C+B @($]V97)U<V4@(&]F("!T
ZM:&4@('!R97!R;V-E<W-O<B!S;VQU=&EO;@H@(" @(" @<75I8VML>2!L96%D
ZM<R!T;R!P<F]B;&5M<R!W:71H('-O=7)C92!C;V1E("!R96%D86)I;&ET>2 @
ZM86YD"B @(" @("!M86EN=&%I;F%B:6QI='D@('=H96X@(&UU;'1I<&QE(" C
ZM"",((P@C:0AI"&D(:68(9@AF"&9D"&0(9 AD90AE"&4(968(9@AF"&8@('-Y
ZM;6)O;',@(&%R92 @=&\@8F4*(" @(" @(&1E9FEN960@;W(@('5N9&5F:6YE
ZM9" @8F%S960@(&]N("!S<&5C:69I8R @='EP97,@(&]F("!D96)U9PH@(" @
ZM(" @9&5S:7)E9"X@(%1H92!S;W5R8V4@8V]D92!C86X@8F4@;6%D92!S;&EG
ZM:'1L>2!M;W)E(')E861A8FQE"B @(" @("!B>2!S=6ET86)L92!I;F1E;G1A
ZM=&EO;B!O9B!T:&4@(P@C"",((VD(:0AI"&EF"&8(9@AF9 AD"&0(9&4(90AE
ZM"&5F"&8(9@AF(&%R9W5M96YT<R!T;R!M871C:"!T:&4*(" @(" @(&EN9&5N
ZM=&%T:6]N("!O9B @=&AE(&-O9&4L(&)U="!N;W0@86QL($,@<')E<')O8V5S
ZM<V]R<R!A;&QO=PH@(" @(" @=&AI<RX@("!4:&4@(&]N;'D@(')E<75I<F5M
ZM96YT("!F;W(@('1H92 @<W1A;F1A<F0@(%4(50A5"%5."$X(3@A.20A)"$D(
ZM25@(6 A8"%@@("!#"B @(" @("!P<F5P<F]C97-S;W(@:7,@9F]R('1H92 G
ZM(R<@8VAA<F%C=&5R('1O(&%P<&5A<B!I;B!T:&4@9FER<W0*(" @(" @(&-O
ZM;'5M;BP@(&)U=" @979E;B @=&AI<R @<V5E;7,@(&QI:V4@("!A;B @(&%R
ZM8FET<F%R>2 @(&%N9 H@(" @(" @=6YR96%S;VYA8FQE("!R97-T<FEC=&EO
ZM;BX@("!&:6=U<F4@(#,@:7,@86X@97AA;7!L92!O9B!T:&ES"B @(" @("!U
ZM<V%G92X*"@H*"@H*"@H*"@H@(" @(" @(" @(" @(" @(" @(" @(" @(" @
ZM(" @(" @+2 T("T*"@H*"@H*"B @(" @("!$0E5'(%5S97(@36%N=6%L(" @
ZM(" @(" @(" @(" @(" @(" @(" @(" @4V5P=&5M8F5R(#DL(#$Y.#<*"@H*
ZM"@H@(" @(" @(" @(" @(" @("-I;F-L=61E(#QS=&1I;RYH/@H*(" @(" @
ZM(" @(" @(" @("!M86EN("AA<F=C+"!A<F=V*0H@(" @(" @(" @(" @(" @
ZM(&EN="!A<F=C.PH@(" @(" @(" @(" @(" @(&-H87(@*F%R9W9;73L*(" @
ZM(" @(" @(" @(" @("!["B @(" @(" @(" @(" @(" @(R @(&EF9&5F($1%
ZM0E5'"B @(" @(" @(" @(" @(" @(" @('!R:6YT9B H(F%R9W9;,%T@/2 E
ZM9%QN(BP@87)G=ELP72D["B @(" @(" @(" @(" @(" @(R @(&5N9&EF"B @
ZM(" @(" @(" @(" @(" @(" @("\J"B @(" @(" @(" @(" @(" @(" @(" J
ZM("!297-T(&]F('!R;V=R86T*(" @(" @(" @(" @(" @(" @(" @("HO"B @
ZM(" @(" @(" @(" @(" @(R @(&EF9&5F($1%0E5'"B @(" @(" @(" @(" @
ZM(" @(" @('!R:6YT9B H(CT](&1O;F4@/3U<;B(I.PH@(" @(" @(" @(" @
ZM(" @(",@("!E;F1I9@H@(" @(" @(" @(" @(" @('T*"@H@(" @(" @(" @
ZM(" @(" @(" @(" @(" @(" @(" @(" @($9I9W5R92 S"B @(" @(" @(" @
ZM(" @(" @(" @(" @36]R92!296%D86)L92!0<F5P<F]C97-S;W(@57-A9V4*
ZM"@H*"@H*"@H*"@H*"@H*"@H*"@H*"@H*"@H*"@H*"@H@(" @(" @(" @(" @
ZM(" @(" @(" @(" @(" @(" @(" @+2 U("T*"@H*"@H*"B @(" @("!$0E5'
ZM(%5S97(@36%N=6%L(" @(" @(" @(" @(" @(" @(" @(" @(" @4V5P=&5M
ZM8F5R(#DL(#$Y.#<*"@H*(" @(" @($8(1@A&"$95"%4(50A53@A."$X(3D,(
ZM0PA#"$-4"%0(5 A420A)"$D(24\(3PA/"$]."$X(3@A.(%0(5 A4"%12"%((
ZM4@A200A!"$$(04,(0PA#"$-%"$4(10A%($4(10A%"$58"%@(6 A800A!"$$(
ZM04T(30A-"$U0"% (4 A03 A,"$P(3$4(10A%"$4*"@H@(" @(" @(" @("!7
ZM92!W:6QL('-T87)T(&]F9B!L96%R;FEN9R!A8F]U=" @=&AE("!C87!A8FEL
ZM:71I97,@(&]F"B @(" @("!T:&4@(%\(9%\(8E\(=5\(9R @<&%C:V%G92 @
ZM8GD@('5S:6YG("!A('-I;7!L92!M:6YD960@<')O9W)A;2!W:&EC: H@(" @
ZM(" @8V]M<'5T97,@=&AE(&9A8W1O<FEA;"!O9B!A("!N=6UB97(N(" @26X@
ZM(&]R9&5R("!T;R @8F5T=&5R"B @(" @("!D96UO;G-T<F%T92 @=&AE("!F
ZM=6YC=&EO;B @=')A8V4@;65C:&%N:7-M+"!T:&ES('!R;V=R86T@:7,*(" @
ZM(" @(&EM<&QE;65N=&5D(')E8W5R<VEV96QY+B @1FEG=7)E(#0@:7,@=&AE
ZM(&UA:6X@9G5N8W1I;VX@(&9O<@H@(" @(" @=&AI<R!F86-T;W)I86P@<')O
ZM9W)A;2X*"@H*(" @(" @(" @(" @(" @(" C:6YC;'5D92 \<W1D:6\N:#X*
ZM(" @(" @(" @(" @(" @(" O*B!5<V5R('!R;V=R86US('-H;W5L9"!U<V4@
ZM/&QO8V%L+V1B=6<N:#X@*B\*(" @(" @(" @(" @(" @(" C:6YC;'5D92 B
ZM9&)U9RYH(@H*(" @(" @(" @(" @(" @("!M86EN("AA<F=C+"!A<F=V*0H@
ZM(" @(" @(" @(" @(" @(&EN="!A<F=C.PH@(" @(" @(" @(" @(" @(&-H
ZM87(@*F%R9W9;73L*(" @(" @(" @(" @(" @("!["B @(" @(" @(" @(" @
ZM(" @(" @(')E9VES=&5R(&EN="!R97-U;'0L(&EX.PH@(" @(" @(" @(" @
ZM(" @(" @("!E>'1E<FX@:6YT(&9A8W1O<FEA;" H*2P@871O:2 H*3L*"B @
ZM(" @(" @(" @(" @(" @(" @($1"54=?14Y415(@*")M86EN(BD["B @(" @
ZM(" @(" @(" @(" @(" @($1"54=?4%)/0T534R H87)G=ELP72D["B @(" @
ZM(" @(" @(" @(" @(" @(&9O<B H:7@@/2 Q.R!I>" \(&%R9V,@)B8@87)G
ZM=EMI>%U;,%T@/3T@)RTG.R!I>"LK*2!["B @(" @(" @(" @(" @(" @(" @
ZM(" @("!S=VET8V@@*&%R9W9;:7A=6S%=*2!["B @(" @(" @(" @(" @(" @
ZM(" @(" @(" @(" @8V%S92 G(R<Z"B @(" @(" @(" @(" @(" @(" @(" @
ZM(" @(" @(" @($1"54=?4%532" H)BAA<F=V6VEX75LR72DI.PH@(" @(" @
ZM(" @(" @(" @(" @(" @(" @(" @(" @("!B<F5A:SL*(" @(" @(" @(" @
ZM(" @(" @(" @(" @('T*(" @(" @(" @(" @(" @(" @(" @?0H@(" @(" @
ZM(" @(" @(" @(" @("!F;W(@*#L@:7@@/"!A<F=C.R!I>"LK*2!["B @(" @
ZM(" @(" @(" @(" @(" @(" @("!$0E5'7U!224Y4("@B87)G<R(L("@B87)G
ZM=ELE9%T@/2 E<R(L(&EX+"!A<F=V6VEX72DI.PH@(" @(" @(" @(" @(" @
ZM(" @(" @(" @<F5S=6QT(#T@9F%C=&]R:6%L("AA=&]I("AA<F=V6VEX72DI
ZM.PH@(" @(" @(" @(" @(" @(" @(" @(" @<')I;G1F("@B)61<;B(L(')E
ZM<W5L="D["B @(" @(" @(" @(" @(" @(" @('T*(" @(" @(" @(" @(" @
ZM(" @(" @1$)51U]215154DX@*# I.PH@(" @(" @(" @(" @(" @('T*"@H@
ZM(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @($9I9W5R92 T"B @
ZM(" @(" @(" @(" @(" @(" @(" @(" @1F%C=&]R:6%L(%!R;V=R86T@36%I
ZM;FQI;F4*"@H*"@H@(" @(" @(" @("!4:&4@;0AM"&T(;6$(80AA"&%I"&D(
ZM:0AI;@AN"&X(;B!F=6YC=&EO;B!I<R @<F5S<&]N<VEB;&4@(&9O<B @<')O
ZM8V5S<VEN9R @86YY"B @(" @("!C;VUM86YD(" @;&EN92 @;W!T:6]N("!A
ZM<F=U;65N=',@(&%N9" @=&AE;B @8V]M<'5T:6YG("!A;F0*(" @(" @('!R
ZM:6YT:6YG('1H92!F86-T;W)I86P@;V8@96%C:"!N;VXM;W!T:6]N(&%R9W5M
ZM96YT+@H*"@H@(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @+2 V
ZM("T*"@H*"@H*"B @(" @("!$0E5'(%5S97(@36%N=6%L(" @(" @(" @(" @
ZM(" @(" @(" @(" @(" @4V5P=&5M8F5R(#DL(#$Y.#<*"@H*(" @(" @(" @
ZM(" @1FER<W0@;V8@86QL+"!N;W1I8V4@=&AA="!A;&P@;V8@=&AE(&1E8G5G
ZM9V5R(&9U;F-T:6]N<PH@(" @(" @87)E("!I;7!L96UE;G1E9" @=FEA("!P
ZM<F5P<F]C97-S;W(@(&UA8W)O<RX@("!4:&ES(&1O97,@;F]T"B @(" @("!D
ZM971R86-T(&9R;VT@=&AE(')E861A8FEL:71Y(&]F('1H92!C;V1E(&%N9"!M
ZM86ME<R!D:7-A8FQI;F<*(" @(" @(&%L;"!D96)U9R!C;VUP:6QA=&EO;B!T
ZM<FEV:6%L("AA('-I;F=L92!P<F5P<F]C97-S;W(@<WEM8F]L+ H@(" @(" @
ZM1 A$"$0(1$((0@A""$)5"%4(50A51PA'"$<(1U\(7PA?"%]/"$\(3PA/1@A&
ZM"$8(1D8(1@A&"$8L(&9O<F-E<R!T:&4@;6%C<F\@97AP86YS:6]N<R!T;R!B
ZM92!N=6QL*2X*"B @(" @(" @(" @($%L<V\@;F]T:6-E('1H92!I;F-L=7-I
ZM;VX@;V8@('1H92 @:&5A9&5R("!F:6QE("!D"&0(9 AD8@AB"&((8G4(=0AU
ZM"'5G"&<(9PAG+@@N""X(+F@(: AH"&@*(" @(" @(&9R;VT@=&AE(&QO8V%L
ZM(&AE861E<B!F:6QE(&1I<F5C=&]R>2X@("A4:&4@=F5R<VEO;B!I;F-L=61E
ZM9 H@(" @(" @:&5R92!I<R!T:&4@=&5S="!V97)S:6]N(&EN("!T:&4@(&1B
ZM=6<@('-O=7)C92 @9&ES=')I8G5T:6]N"B @(" @("!D:7)E8W1O<GDI+B @
ZM(%1H:7,@9FEL92!C;VYT86EN<R!A;&P@=&AE(&1E9FEN:71I;VYS(&9O<B!T
ZM:&4*(" @(" @(&1E8G5G9V5R(&UA8W)O<RP@=VAI8V@@86QL(&AA=F4@=&AE
ZM(&9O<FT@1 A$"$0(1$((0@A""$)5"%4(50A51PA'"$<(1U\(7PA?"%]8"%@(
ZM6 A86 A8"%@(6"X(+@@N""XN""X(+@@N+@@N""X(+E@(6 A8"%A8"%@(6 A8
ZM+@H*"B @(" @(" @(" @(%1H92!$"$0(1 A$0@A""$((0E4(50A5"%5'"$<(
ZM1PA'7PA?"%\(7T4(10A%"$5."$X(3@A.5 A4"%0(5$4(10A%"$52"%((4@A2
ZM(&UA8W)O(&EN9F]R;7,@=&AA="!D96)U9V=E<B!T:&%T('=E(&AA=F4*(" @
ZM(" @(&5N=&5R960@('1H92!F=6YC=&EO;B!N86UE9"!M"&T(;0AM80AA"&$(
ZM86D(:0AI"&EN"&X(;@AN+B @270@;75S="!B92!T:&4@=F5R>2!F:7)S= H@
ZM(" @(" @(F5X96-U=&%B;&4B(&QI;F4@:6X@82!F=6YC=&EO;BP@869T97(@
ZM86QL(&1E8VQA<F%T:6]N<R @86YD"B @(" @("!B969O<F4@86YY(&]T:&5R
ZM(&5X96-U=&%B;&4@;&EN92X@(%1H92!$"$0(1 A$0@A""$((0E4(50A5"%5'
ZM"$<(1PA'7PA?"%\(7U (4 A0"%!2"%((4@A23PA/"$\(3T,(0PA#"$-%"$4(
ZM10A%4PA3"%,(4U,(4PA3"%,@;6%C<F\@:7,*(" @(" @(&=E;F5R86QL>2!U
ZM<V5D(&]N;'D@;VYC92!P97(@<')O9W)A;2!T;R!I;F9O<FT@=&AE("!D96)U
ZM9V=E<@H@(" @(" @=VAA="!N86UE('1H92!P<F]G<F%M('=A<R!I;G9O:V5D
ZM('=I=&@N("!4:&4@1 A$"$0(1$((0@A""$)5"%4(50A51PA'"$<(1U\(7PA?
ZM"%]0"% (4 A050A5"%4(55,(4PA3"%-("$@(2 A((&UA8W)O"B @(" @("!M
ZM;V1I9FEE<R!T:&4@8W5R<F5N="!D96)U9V=E<B!S=&%T92!B>2!S879I;F<@
ZM('1H92 @<')E=FEO=7,*(" @(" @('-T871E("!A;F0@('-E='1I;F<@(&$@
ZM;F5W('-T871E(&)A<V5D(&]N('1H92!C;VYT<F]L('-T<FEN9PH@(" @(" @
ZM<&%S<V5D(&%S(&ET<R!A<F=U;65N="X@(%1H92!$"$0(1 A$0@A""$((0E4(
ZM50A5"%5'"$<(1PA'7PA?"%\(7U (4 A0"%!2"%((4@A220A)"$D(24X(3@A.
ZM"$Y4"%0(5 A4("!M86-R;R @:7,@('5S960@('1O"B @(" @("!P<FEN=" @
ZM=&AE("!V86QU97,@;V8@96%C:"!A<F=U;65N="!F;W(@=VAI8V@@82!F86-T
ZM;W)I86P@:7,*(" @(" @('1O(&)E(&-O;7!U=&5D+B @5&AE($0(1 A$"$1"
ZM"$((0@A"50A5"%4(54<(1PA'"$=?"%\(7PA?4@A2"%((4D4(10A%"$54"%0(
ZM5 A450A5"%4(55((4@A2"%)."$X(3@A.(&UA8W)O("!T96QL<R @=&AE("!D
ZM96)U9V=E<@H@(" @(" @=&AA=" @=&AE("!E;F0@(&]F('1H92!C=7)R96YT
ZM(&9U;F-T:6]N(&AA<R!B965N(')E86-H960@86YD"B @(" @("!R971U<FYS
ZM(&$@=F%L=64@=&\@('1H92 @8V%L;&EN9R @9G5N8W1I;VXN(" @06QL("!O
ZM9B @=&AE<V4*(" @(" @(&UA8W)O<R!W:6QL(&)E(&9U;&QY(&5X<&QA:6YE
ZM9"!I;B!S=6)S97%U96YT('-E8W1I;VYS+@H*(" @(" @(" @(" @5&\@=7-E
ZM('1H92!D96)U9V=E<BP@=&AE(&9A8W1O<FEA;"!P<F]G<F%M("!I<R @:6YV
ZM;VME9 H@(" @(" @=VET:"!A(&-O;6UA;F0@;&EN92!O9B!T:&4@9F]R;3H*
ZM"B @(" @(" @(" @(" @(" @(" @(" @(" @9F%C=&]R:6%L("TC9#IT(#$@
ZM,B S"@H@(" @(" @5&AE("!M"&T(;0AM80AA"&$(86D(:0AI"&EN"&X(;@AN
ZM("!F=6YC=&EO;B @<F5C;V=N:7IE<R @=&AE(" B+2-D.G0B("!S=')I;F<@
ZM(&%S("!A"B @(" @("!D96)U9V=E<B @8V]N=')O;" @<W1R:6YG+"!A;F0@
ZM<&%S<V5S('1H92!D96)U9V=E<B!A<F=U;65N=',*(" @(" @("@B9#IT(BD@
ZM('1O("!T:&4@(%\(9%\(8E\(=5\(9R @<G5N=&EM92 @<W5P<&]R=" @<F]U
ZM=&EN97,@('9I82 @=&AE"B @(" @("!$"$0(1 A$0@A""$((0E4(50A5"%5'
ZM"$<(1PA'7PA?"%\(7U (4 A0"%!5"%4(50A54PA3"%,(4T@(2 A("$@@;6%C
ZM<F\N("!4:&ES('!A<G1I8W5L87(@<W1R:6YG(&5N86)L97,@;W5T<'5T(&9R
ZM;VT*(" @(" @('1H92!$"$0(1 A$0@A""$((0E4(50A5"%5'"$<(1PA'7PA?
ZM"%\(7U (4 A0"%!2"%((4@A220A)"$D(24X(3@A."$Y4"%0(5 A4(&UA8W)O
ZM('=I=&@@=&AE("=D)R!F;&%G(&%N9"!E;F%B;&5S("!F=6YC=&EO;@H@(" @
ZM(" @=')A8VEN9R @=VET:" @=&AE("=T)R!F;&%G+B @5&AE(&9A8W1O<FEA
ZM;"!F=6YC=&EO;B!I<R!T:&5N"B @(" @("!C86QL960@=&AR964@=&EM97,L
ZM('=I=&@@=&AE(&%R9W5M96YT<R B,2(L(" B,B(L("!A;F0@("(S(BX*(" @
ZM(" @($YO=&4@('1H870@('1H92!$0E5'7U!224Y4('1A:V5S(&5X86-T;'D@
ZM= AT"'0(='<(=PAW"'=O"&\(;PAO(&%R9W5M96YT<RP@=VET: H@(" @(" @
ZM=&AE('-E8V]N9"!A<F=U;65N=" H82!F;W)M870@<W1R:6YG(&%N9"!L:7-T
ZM("!O9B @<')I;G1A8FQE"B @(" @("!V86QU97,I(&5N8VQO<V5D(&EN('!A
ZM<F5N=&AE<VES+@H*(" @(" @(" @(" @1&5B=6<@8V]N=')O;"!S=')I;F=S
ZM(&-O;G-I<W0@;V8@82 @:&5A9&5R+" @=&AE(" B+2,B+ H@(" @(" @9F]L
ZM;&]W960@(&)Y("!A("!C;VQO;B!S97!A<F%T960@;&ES="!O9B!D96)U9V=E
ZM<B!A<F=U;65N=',N"B @(" @("!%86-H(&1E8G5G9V5R(&%R9W5M96YT(&ES
ZM(&$@<VEN9VQE(&-H87)A8W1E<B @9FQA9R @9F]L;&]W960*(" @(" @(&)Y
ZM(&%N(&]P=&EO;F%L(&-O;6UA('-E<&%R871E9"!L:7-T(&]F(&%R9W5M96YT
ZM<R!S<&5C:69I8R!T;PH@(" @(" @=&AE(&=I=F5N(&9L86<N("!3;VUE(&5X
ZM86UP;&5S(&%R93H*"@H*"@H@(" @(" @(" @(" @(" @(" @(" @(" @(" @
ZM(" @(" @+2 W("T*"@H*"@H*"B @(" @("!$0E5'(%5S97(@36%N=6%L(" @
ZM(" @(" @(" @(" @(" @(" @(" @(" @4V5P=&5M8F5R(#DL(#$Y.#<*"@H*
ZM(" @(" @(" @(" @(" @(" @(" @(" @(" M(V0Z=#IO"B @(" @(" @(" @
ZM(" @(" @(" @(" @(" @+2-D+&EN+&]U=#IF+&UA:6XZ1CI,"@H@(" @(" @
ZM3F]T92 @=&AA=" @<')E=FEO=7-L>2 @96YA8FQE9" @9&5B=6=G97(@(&%C
ZM=&EO;G,@(&-A;B @(&)E"B @(" @("!D:7-A8FQE9"!B>2!T:&4@8V]N=')O
ZM;"!S=')I;F<@(BTC(BX*"@H@(" @(" @(" @("!4:&4@9&5F:6YI=&EO;B!O
ZM9B!T:&4@9F%C=&]R:6%L(&9U;F-T:6]N+"!S>6UB;VQI>F5D(&%S"B @(" @
ZM(" B3B$B+"!I<R!G:79E;B!B>3H*"B @(" @(" @(" @(" @(" @(" @(" @
ZM("!.(2 ]($X@*B!.+3$@*B N+BX@,B J(#$*"B @(" @("!&:6=U<F4@-2!I
ZM<R!T:&4@9F%C=&]R:6%L("!F=6YC=&EO;B @=VAI8V@@(&EM<&QE;65N=',@
ZM('1H:7,*(" @(" @(&%L9V]R:71H;2 @<F5C=7)S:79E;'DN(" @3F]T92 @
ZM=&AA="!T:&ES(&ES(&YO="!N96-E<W-A<FEL>0H@(" @(" @=&AE(&)E<W0@
ZM=V%Y('1O("!D;R @9F%C=&]R:6%L<R @86YD("!E<G)O<B @8V]N9&ET:6]N
ZM<R @87)E"B @(" @("!I9VYO<F5D(&-O;7!L971E;'DN"@H*"B @(" @(" @
ZM(" @(" @(" @(VEN8VQU9&4@/'-T9&EO+F@^"B @(" @(" @(" @(" @(" @
ZM+RH@57-E<B!P<F]G<F%M<R!S:&]U;&0@=7-E(#QL;V-A;"]D8G5G+F@^("HO
ZM"B @(" @(" @(" @(" @(" @(VEN8VQU9&4@(F1B=6<N:"(*"B @(" @(" @
ZM(" @(" @(" @:6YT(&9A8W1O<FEA;" H=F%L=64I"B @(" @(" @(" @(" @
ZM(" @<F5G:7-T97(@:6YT('9A;'5E.PH@(" @(" @(" @(" @(" @('L*(" @
ZM(" @(" @(" @(" @(" @(" @1$)51U]%3E1%4B H(F9A8W1O<FEA;"(I.PH@
ZM(" @(" @(" @(" @(" @(" @("!$0E5'7U!224Y4("@B9FEN9"(L("@B9FEN
ZM9" E9"!F86-T;W)I86PB+"!V86QU92DI.PH@(" @(" @(" @(" @(" @(" @
ZM("!I9B H=F%L=64@/B Q*2!["B @(" @(" @(" @(" @(" @(" @(" @("!V
ZM86QU92 J/2!F86-T;W)I86P@*'9A;'5E("T@,2D["B @(" @(" @(" @(" @
ZM(" @(" @('T*(" @(" @(" @(" @(" @(" @(" @1$)51U]04DE.5" H(G)E
ZM<W5L="(L("@B<F5S=6QT(&ES("5D(BP@=F%L=64I*3L*(" @(" @(" @(" @
ZM(" @(" @(" @1$)51U]215154DX@*'9A;'5E*3L*(" @(" @(" @(" @(" @
ZM("!]"@H*(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @("!&:6=U
ZM<F4@-0H@(" @(" @(" @(" @(" @(" @(" @(" @(" @("!&86-T;W)I86P@
ZM1G5N8W1I;VX*"@H*"@H@(" @(" @(" @("!/;F4@861V86YT86=E("AS;VUE
ZM(&UA>2!N;W0@8V]N<VED97(@:70@('-O*2 @=&\@('5S:6YG"B @(" @("!T
ZM:&4@(%\(9%\(8E\(=5\(9R @<&%C:V%G92 @:7,@('1H870@(&ET("!S=')O
ZM;F=L>2 @96YC;W5R86=E<R!F=6QL>0H@(" @(" @<W1R=6-T=7)E9"!C;V1I
ZM;F<@=VET:"!O;FQY(&]N92!E;G1R>2!A;F0@;VYE(&5X:70@<&]I;G0@(&EN
ZM"B @(" @("!E86-H("!F=6YC=&EO;BX@($UU;'1I<&QE(&5X:70@<&]I;G1S
ZM+"!S=6-H(&%S(&5A<FQY(')E='5R;G,*(" @(" @('1O(&5S8V%P92!A(&QO
ZM;W L(&UA>2!B92!U<V5D+"!B=70@96%C:"!S=6-H('!O:6YT("!R97%U:7)E
ZM<PH@(" @(" @=&AE("!U<V4@(&]F("!A;B!A<'!R;W!R:6%T92!$"$0(1 A$
ZM0@A""$((0E4(50A5"%5'"$<(1PA'7PA?"%\(7U((4@A2"%)%"$4(10A%5 A4
ZM"%0(5%4(50A5"%52"%((4@A23@A."$X(3B!O<B!$"$0(1 A$0@A""$((0E4(
ZM50A5"%5'"$<(1PA'7PA?"%\(7U8(5@A6"%9/"$\(3PA/20A)"$D(240(1 A$
ZM"$1?"%\(7PA?4@A2"%((4D4(10A%"$54"%0(5 A450A5"%4(55((4@A2"%).
ZM"$X(3@A."B @(" @("!M86-R;RX*"@H*"B @(" @(" @(" @(" @(" @(" @
ZM(" @(" @(" @(" @(" M(#@@+0H*"@H*"@H*(" @(" @($1"54<@57-E<B!-
ZM86YU86P@(" @(" @(" @(" @(" @(" @(" @(" @("!397!T96UB97(@.2P@
ZM,3DX-PH*"@H@(" @(" @(" @("!4;R!B=6EL9" @=&AE("!F86-T;W)I86P@
ZM('!R;V=R86T@(&]N("!A("!5"%4(50A53@A."$X(3DD(20A)"$E8"%@(6 A8
ZM("!S>7-T96TL"B @(" @("!C;VUP:6QE(&%N9"!L:6YK('=I=&@@=&AE(&-O
ZM;6UA;F0Z"@H@(" @(" @(" @(" @(" @8V,@+6\@9F%C=&]R:6%L(&UA:6XN
ZM8R!F86-T;W)I86PN8R M;&1B=6<*"B @(" @("!4:&4@(BUL9&)U9R(@87)G
ZM=6UE;G0@('1E;&QS("!T:&4@(&QO861E<B @=&\@(&QI;FL@(&EN("!T:&4*
ZM(" @(" @(')U;G1I;64@<W5P<&]R="!M;V1U;&5S(&9O<B!T:&4@7PAD7PAB
ZM7PAU7PAG('!A8VMA9V4N("!%>&5C=71I;F<@=&AE"B @(" @("!F86-T;W)I
ZM86P@<')O9W)A;2!W:71H(&$@8V]M;6%N9"!O9B!T:&4@9F]R;3H*"B @(" @
ZM(" @(" @(" @(" @(" @(" @(" @(&9A8W1O<FEA;" Q(#(@,R T(#4*"B @
ZM(" @("!G96YE<F%T97,@=&AE(&]U='!U="!S:&]W;B!I;B!F:6=U<F4@-BX*
ZM"@H*(" @(" @(" @(" @(" @(" Q"B @(" @(" @(" @(" @(" @,@H@(" @
ZM(" @(" @(" @(" @(#8*(" @(" @(" @(" @(" @(" R- H@(" @(" @(" @
ZM(" @(" @(#$R, H*"B @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @
ZM(" @1FEG=7)E(#8*(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @9F%C
ZM=&]R:6%L(#$@,B S(#0@-0H*"@H*"B @(" @(" @(" @($9U;F-T:6]N("!L
ZM979E;" @=')A8VEN9R @:7,@(&5N86)L960@(&)Y("!P87-S:6YG("!T:&4*
ZM(" @(" @(&1E8G5G9V5R('1H92 G="<@9FQA9R!I;B!T:&4@9&5B=6<@8V]N
ZM=')O;"!S=')I;F<N("!&:6=U<F4@-PH@(" @(" @:7,@('1H92 @;W5T<'5T
ZM("!R97-U;'1I;F<@(&9R;VT@('1H92 @8V]M;6%N9" @(F9A8W1O<FEA;" M
ZM"B @(" @(" C=#IO(#,@,B(N"@H*"@H*"@H*"@H*"@H*"@H*"@H*"B @(" @
ZM(" @(" @(" @(" @(" @(" @(" @(" @(" @(" M(#D@+0H*"@H*"@H*(" @
ZM(" @($1"54<@57-E<B!-86YU86P@(" @(" @(" @(" @(" @(" @(" @(" @
ZM("!397!T96UB97(@.2P@,3DX-PH*"@H*"B @(" @(" @(" @(" @(" @?" @
ZM(#YF86-T;W)I86P*(" @(" @(" @(" @(" @("!\(" @?" @(#YF86-T;W)I
ZM86P*(" @(" @(" @(" @(" @("!\(" @?" @(#QF86-T;W)I86P*(" @(" @
ZM(" @(" @(" @("!\(" @/&9A8W1O<FEA; H@(" @(" @(" @(" @(" @(#(*
ZM(" @(" @(" @(" @(" @("!\(" @/F9A8W1O<FEA; H@(" @(" @(" @(" @
ZM(" @('P@("!\(" @/F9A8W1O<FEA; H@(" @(" @(" @(" @(" @('P@("!\
ZM(" @?" @(#YF86-T;W)I86P*(" @(" @(" @(" @(" @("!\(" @?" @('P@
ZM(" \9F%C=&]R:6%L"B @(" @(" @(" @(" @(" @?" @('P@(" \9F%C=&]R
ZM:6%L"B @(" @(" @(" @(" @(" @?" @(#QF86-T;W)I86P*(" @(" @(" @
ZM(" @(" @(" V"B @(" @(" @(" @(" @(" @/&UA:6X*"@H@(" @(" @(" @
ZM(" @(" @(" @(" @(" @(" @(" @(" @($9I9W5R92 W"B @(" @(" @(" @
ZM(" @(" @(" @(" @(" @(" @(&9A8W1O<FEA;" M(W0Z;R S(#(*"@H*"@H@
ZM(" @(" @(" @("!%86-H(&5N=')Y('1O(&]R(')E='5R;B!F<F]M(&$@9G5N
ZM8W1I;VX@:7,@:6YD:6-A=&5D(&)Y"B @(" @(" G/B<@(&9O<B @=&AE("!E
ZM;G1R>2 @<&]I;G0@(&%N9" @)SPG("!F;W(@('1H92 @97AI="!P;VEN="P*
ZM(" @(" @(&-O;FYE8W1E9"!B>2!V97)T:6-A;"!B87)S('1O(&%L;&]W(&UA
ZM=&-H:6YG("!P;VEN=',@('1O("!B90H@(" @(" @96%S:6QY(&9O=6YD('=H
ZM96X@<V5P87)A=&5D(&)Y(&QA<F=E(&1I<W1A;F-E<RX*"@H@(" @(" @(" @
ZM("!4:&ES('1R86-E(&]U='!U="!I;F1I8V%T97,@=&AA="!T:&5R92!W87,@
ZM(&%N("!I;FET:6%L"B @(" @("!C86QL("!T;R @9F%C=&]R:6%L(&9R;VT@
ZM;6%I;B H=&\@8V]M<'5T92 R(2DL(&9O;&QO=V5D(&)Y(&$*(" @(" @('-I
ZM;F=L92!R96-U<G-I=F4@8V%L;"!T;R!F86-T;W)I86P@=&\@8V]M<'5T92 Q
ZM(2X@(%1H92 @;6%I;@H@(" @(" @<')O9W)A;2 @=&AE;B @;W5T<'5T("!T
ZM:&4@(')E<W5L=" @9F]R(" R(2 @86YD("!C86QL960@=&AE"B @(" @("!F
ZM86-T;W)I86P@(&9U;F-T:6]N("!A9V%I;B @=VET:" @=&AE("!S96-O;F0@
ZM(&%R9W5M96YT+" @,RX*(" @(" @($9A8W1O<FEA;" @8V%L;&5D("!I='-E
ZM;&8@(')E8W5R<VEV96QY('1O(&-O;7!U=&4@,B$@86YD(#$A+ H@(" @(" @
ZM=&AE;B!R971U<FYE9"!C;VYT<F]L('1O(&UA:6XL('=H:6-H(&]U='!U="!T
ZM:&4@=F%L=64@9F]R(#,A"B @(" @("!A;F0@97AI=&5D+@H*"B @(" @(" @
ZM(" @($YO=&4@=&AA="!T:&5R92!I<R!N;R!M871C:&EN9R!E;G1R>2!P;VEN
ZM=" B;6%I;CXB("!F;W(*(" @(" @('1H92 @<F5T=7)N('!O:6YT("(\;6%I
ZM;B(@8F5C875S92!A="!T:&4@=&EM92!T:&4@1 A$"$0(1$((0@A""$)5"%4(
ZM50A51PA'"$<(1U\(7PA?"%]%"$4(10A%3@A."$X(3E0(5 A4"%1%"$4(10A%
ZM4@A2"%((4@H@(" @(" @;6%C<F\@=V%S(')E86-H960@:6X@;6%I;BP@=')A
ZM8VEN9R!W87,@;F]T(&5N86)L960@>65T+B @($ET"B @(" @("!W87,@(&]N
ZM;'D@(&%F=&5R("!T:&4@(&UA8W)O("!$"$0(1 A$0@A""$((0E4(50A5"%5'
ZM"$<(1PA'7PA?"%\(7U (4 A0"%!5"%4(50A54PA3"%,(4T@(2 A("$@@('=A
ZM<R @97AE8W5T:6YG('1H870*(" @(" @('1R86-I;F<@8F5C86UE(&5N86)L
ZM960N("!4:&ES(&EM<&QI97,@=&AA="!T:&4@87)G=6UE;G0@;&ES= H@(" @
ZM(" @<VAO=6QD("!B92 @<')O8V5S<V5D("!A<R @96%R;'D@(&%S('!O<W-I
ZM8FQE('-I;F-E(&%L;"!C;V1E"B @(" @("!P<F5C961I;F<@('1H92 @9FER
ZM<W0@(&-A;&P@('1O("!$"$0(1 A$0@A""$((0E4(50A5"%5'"$<(1PA'7PA?
ZM"%\(7U (4 A0"%!5"%4(50A54PA3"%,(4T@(2 A("$@@(&ES(" @97-S96YT
ZM:6%L;'D*(" @(" @(&EN=FES:6)L92 @=&\@9 AD"&0(9&((8@AB"&)U"'4(
ZM=0AU9PAG"&<(9R H=&AI<R!C86X@8F4@=V]R:V5D(&%R;W5N9"!B>2!I;G-E
ZM<G1I;F<@80H@(" @(" @=&5M<&]R87)Y(" @1 A$"$0(1$((0@A""$)5"%4(
ZM50A51PA'"$<(1U\(7PA?"%]0"% (4 A050A5"%4(55,(4PA3"%-("$@(2 A(
ZM* @H""@(*&$(80AA"&%R"'((<@AR9PAG"&<(9W8(=@AV"'9;"%L(6PA;,0@Q
ZM"#$(,5T(70A="%TI""D(*0@I(" @:6UM961I871E;'D@(" @869T97(@(" @
ZM=&AE"B @(" @("!$"$0(1 A$0@A""$((0E4(50A5"%5'"$<(1PA'7PA?"%\(
ZM7T4(10A%"$5."$X(3@A.5 A4"%0(5$4(10A%"$52"%((4@A2* @H""@(*"((
ZM(@@B"")M"&T(;0AM80AA"&$(86D(:0AI"&EN"&X(;@AN(@@B""(((BD(*0@I
ZM""D@;6%C<F\N"@H*"@H@(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @
ZM(" @+2 Q," M"@H*"@H*"@H@(" @(" @1$)51R!5<V5R($UA;G5A;" @(" @
ZM(" @(" @(" @(" @(" @(" @(" @(%-E<'1E;6)E<B Y+" Q.3@W"@H*"B @
ZM(" @(" @(" @($]N92!L87-T(&YO=&4L('1H92!T<F%C92!O=71P=70@;F]R
ZM;6%L;'D@8V]M97,@(&]U=" @;VX*(" @(" @('1H92 @<W1A;F1A<F0@97)R
ZM;W(N("!3:6YC92!T:&4@9F%C=&]R:6%L('!R;V=R86T@<')I;G1S(&ET<PH@
ZM(" @(" @<F5S=6QT(&]N('1H92!S=&%N9&%R9"!O=71P=70L('1H97)E(&ES
ZM('1H92 @<&]S<VEB:6QI='D@(&]F"B @(" @("!T:&4@(&]U='!U=" @;VX@
ZM('1H92 @=&5R;6EN86P@(&)E:6YG("!S8W)A;6)L960@(&EF('1H92!T=V\*
ZM(" @(" @('-T<F5A;7,@87)E(&YO="!S>6YC:')O;FEZ960N("!4:'5S('1H
ZM92!D96)U9V=E<B!I<R!T;VQD("!T;PH@(" @(" @=W)I=&4@:71S(&]U='!U
ZM="!O;B!T:&4@<W1A;F1A<F0@;W5T<'5T(&EN<W1E860L('9I82!T:&4@)V\G
ZM"B @(" @("!F;&%G(&-H87)A8W1E<BX@("!.;W1E("!T:&%T("!N;R @)V\G
ZM("!I;7!L:65S("!T:&4@(&1E9F%U;'0*(" @(" @("AS=&%N9&%R9" @97)R
ZM;W(I+" @82 @)V\G("!W:71H(&YO(&%R9W5M96YT<R!M96%N<R!S=&%N9&%R
ZM9 H@(" @(" @;W5T<'5T+"!A;F0@82 G;R<@=VET:"!A;B @87)G=6UE;G0@
ZM(&UE86YS("!U<V5D("!T:&4@(&YA;65D"B @(" @("!F:6QE+B @($DN12P@
ZM(")F86-T;W)I86P@+2-T.F\L;&]G9FEL92 S(#(B("!W;W5L9"!W<FET92!T
ZM:&4*(" @(" @('1R86-E(&]U='!U="!I;B B;&]G9FEL92(N("!"96-A=7-E
ZM(&]F("!5"%4(50A53@A."$X(3DD(20A)"$E8"%@(6 A8("!I;7!L96UE;G1A
ZM=&EO;@H@(" @(" @9&5T86EL<RP@('!R;V=R86US('5S=6%L;'D@<G5N(&9A
ZM<W1E<B!W:&5N('=R:71I;F<@=&\@<W1D;W5T"B @(" @("!R871H97(@=&AA
ZM;B!S=&1E<G(L('1H;W5G:"!T:&ES(&ES(&YO="!A('!R:6UE(&-O;G-I9&5R
ZM871I;VX*(" @(" @(&EN('1H:7,@97AA;7!L92X*"@H*"@H*"@H*"@H*"@H*
ZM"@H*"@H*"@H*"@H*"@H*"@H*"@H*"@H*"B @(" @(" @(" @(" @(" @(" @
ZM(" @(" @(" @(" @(" M(#$Q("T*"@H*"@H*"B @(" @("!$0E5'(%5S97(@
ZM36%N=6%L(" @(" @(" @(" @(" @(" @(" @(" @(" @4V5P=&5M8F5R(#DL
ZM(#$Y.#<*"@H*(" @(" @(%4(50A5"%53"%,(4PA310A%"$4(12!/"$\(3PA/
ZM1@A&"$8(1B!$"$0(1 A$0@A""$((0E4(50A5"%5'"$<(1PA'7PA?"%\(7U (
ZM4 A0"%!2"%((4@A220A)"$D(24X(3@A."$Y4"%0(5 A4($T(30A-"$U!"$$(
ZM00A!0PA#"$,(0U((4@A2"%)/"$\(3PA/"@H*(" @(" @(" @(" @5&AE(&UE
ZM8VAA;FES;2!U<V5D('1O('!R;V1U8V4@(G!R:6YT9B(@<W1Y;&4@;W5T<'5T
ZM("!I<PH@(" @(" @=&AE($0(1 A$"$1""$((0@A"50A5"%4(54<(1PA'"$=?
ZM"%\(7PA?4 A0"% (4%((4@A2"%))"$D(20A)3@A."$X(3E0(5 A4"%0@;6%C
ZM<F\N"@H*(" @(" @(" @(" @5&\@86QL;W<@<V5L96-T:6]N(&]F(&]U='!U
ZM="!F<F]M('-P96-I9FEC(&UA8W)O<RP@('1H90H@(" @(" @9FER<W0@(&%R
ZM9W5M96YT('1O(&5V97)Y($0(1 A$"$1""$((0@A"50A5"%4(54<(1PA'"$=?
ZM"%\(7PA?4 A0"% (4%((4@A2"%))"$D(20A)3@A."$X(3E0(5 A4"%0@;6%C
ZM<F\@:7,@82!?"&1?"&)?"'5?"&<@:V5Y=V]R9"X*(" @(" @(%=H96X@=&AI
ZM<R!K97EW;W)D(&%P<&5A<G,@:6X@=&AE(&%R9W5M96YT(&QI<W0@(&]F("!T
ZM:&4@("=D)PH@(" @(" @9FQA9R @("!I;B @("!A(" @(&1E8G5G(" @(&-O
ZM;G1R;VP@("!S=')I;F<L(" @87,@("!I;B @("(M"B @(" @(" C9"QK97EW
ZM;W)D,2QK97EW;W)D,BPN+BXZ="(L(&]U='!U="!F<F]M("!T:&4@(&-O<G)E
ZM<W!O;F1I;F<*(" @(" @(&UA8W)O("!I<R!E;F%B;&5D+B @5&AE(&1E9F%U
ZM;'0@=VAE;B!T:&5R92!I<R!N;R G9"<@9FQA9R!I;@H@(" @(" @=&AE(&-O
ZM;G1R;VP@<W1R:6YG(&ES('1O(&5N86)L92!O=71P=70@9G)O;2 @86QL("!$
ZM"$0(1 A$0@A""$((0E4(50A5"%5'"$<(1PA'7PA?"%\(7U (4 A0"%!2"%((
ZM4@A220A)"$D(24X(3@A."$Y4"%0(5 A4"B @(" @("!M86-R;W,N"@H*(" @
ZM(" @(" @(" @5'EP:6-A;&QY+"!A('!R;V=R86T@=VEL;"!B92!R=6X@;VYC
ZM92P@=VET:"!N;R!K97EW;W)D<PH@(" @(" @<W!E8VEF:65D+" @=&\@(&1E
ZM=&5R;6EN92 @=VAA="!K97EW;W)D<R!A<F4@<VEG;FEF:6-A;G0@9F]R"B @
ZM(" @("!T:&4@8W5R<F5N="!P<F]B;&5M("AT:&4@:V5Y=V]R9',@87)E('!R
ZM:6YT960@:6X@('1H92 @;6%C<F\*(" @(" @(&]U='!U=" @;&EN92DN("!4
ZM:&5N('1H92!P<F]G<F%M('=I;&P@8F4@<G5N(&%G86EN+"!W:71H('1H90H@
ZM(" @(" @9&5S:7)E9" @:V5Y=V]R9',L("!T;R @97AA;6EN92 @;VYL>2 @
ZM<W!E8VEF:6,@("!A<F5A<R @(&]F"B @(" @("!I;G1E<F5S="X*"@H@(" @
ZM(" @(" @("!4:&4@<V5C;VYD(&%R9W5M96YT('1O(&$@1 A$"$0(1$((0@A"
ZM"$)5"%4(50A51PA'"$<(1U\(7PA?"%]0"% (4 A04@A2"%((4DD(20A)"$E.
ZM"$X(3@A.5 A4"%0(5"!M86-R;R!I<R!A('-T86YD87)D"B @(" @("!P<FEN
ZM=&8@('-T>6QE("!F;W)M870@('-T<FEN9R @86YD("!O;F4@;W(@;6]R92!A
ZM<F=U;65N=',@=&\*(" @(" @('!R:6YT+"!A;&P@96YC;&]S960@:6X@<&%R
ZM96YT:&5S:7,@<V\@=&AA="!T:&5Y(&-O;&QE8W1I=F5L>0H@(" @(" @8F5C
ZM;VUE("!A("!S:6YG;&4@(&UA8W)O("!A<F=U;65N="X@("!4:&ES("!I<R @
ZM:&]W('9A<FEA8FQE"B @(" @("!N=6UB97)S(&]F('!R:6YT9B!A<F=U;65N
ZM=',@87)E('-U<'!O<G1E9"X@($%L<V\@(&YO=&4@('1H870*(" @(" @(&YO
ZM("!E>'!L:6-I=" @;F5W;&EN92 @:7,@(')E<75I<F5D(&%T('1H92!E;F0@
ZM;V8@=&AE(&9O<FUA= H@(" @(" @<W1R:6YG+B @07,@82!M871T97(@;V8@
ZM<W1Y;&4L('1W;R!O<B!T:')E92!S;6%L;"!$"$0(1 A$0@A""$((0E4(50A5
ZM"%5'"$<(1PA'7PA?"%\(7U (4 A0"%!2"%((4@A220A)"$D(24X(3@A."$Y4
ZM"%0(5 A4"B @(" @("!M86-R;W,@(&%R92 @<')E9F5R86)L92!T;R!A('-I
ZM;F=L92!M86-R;R!W:71H(&$@:'5G92!F;W)M870*(" @(" @('-T<FEN9RX@
ZM($9I9W5R92 X('-H;W=S('1H92!O=71P=70@9F]R(&1E9F%U;'0@('1R86-I
ZM;F<@(&%N9 H@(" @(" @9&5B=6<N"@H*"@H*"@H*"@H*"@H*"@H*"@H@(" @
ZM(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @+2 Q,B M"@H*"@H*"@H@
ZM(" @(" @1$)51R!5<V5R($UA;G5A;" @(" @(" @(" @(" @(" @(" @(" @
ZM(" @(%-E<'1E;6)E<B Y+" Q.3@W"@H*"@H*(" @(" @(" @(" @(" @("!\
ZM(" @87)G<SH@87)G=ELR72 ](#,*(" @(" @(" @(" @(" @("!\(" @/F9A
ZM8W1O<FEA; H@(" @(" @(" @(" @(" @('P@("!\(" @9FEN9#H@9FEN9" S
ZM(&9A8W1O<FEA; H@(" @(" @(" @(" @(" @('P@("!\(" @/F9A8W1O<FEA
ZM; H@(" @(" @(" @(" @(" @('P@("!\(" @?" @(&9I;F0Z(&9I;F0@,B!F
ZM86-T;W)I86P*(" @(" @(" @(" @(" @("!\(" @?" @('P@(" ^9F%C=&]R
ZM:6%L"B @(" @(" @(" @(" @(" @?" @('P@("!\(" @?" @(&9I;F0Z(&9I
ZM;F0@,2!F86-T;W)I86P*(" @(" @(" @(" @(" @("!\(" @?" @('P@("!\
ZM(" @<F5S=6QT.B!R97-U;'0@:7,@,0H@(" @(" @(" @(" @(" @('P@("!\
ZM(" @?" @(#QF86-T;W)I86P*(" @(" @(" @(" @(" @("!\(" @?" @('P@
ZM("!R97-U;'0Z(')E<W5L="!I<R R"B @(" @(" @(" @(" @(" @?" @('P@
ZM(" \9F%C=&]R:6%L"B @(" @(" @(" @(" @(" @?" @('P@("!R97-U;'0Z
ZM(')E<W5L="!I<R V"B @(" @(" @(" @(" @(" @?" @(#QF86-T;W)I86P*
ZM(" @(" @(" @(" @(" @(" V"B @(" @(" @(" @(" @(" @/&UA:6X*"@H@
ZM(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @($9I9W5R92 X"B @
ZM(" @(" @(" @(" @(" @(" @(" @(" @(" @(&9A8W1O<FEA;" M(V0Z=#IO
ZM(#,*"@H*"@H@(" @(" @(" @("!4:&4@;W5T<'5T(&9R;VT@=&AE($0(1 A$
ZM"$1""$((0@A"50A5"%4(54<(1PA'"$=?"%\(7PA?4 A0"% (4%((4@A2"%))
ZM"$D(20A)3@A."$X(3E0(5 A4"%0@(&UA8W)O("!I<R @:6YD96YT960@('1O
ZM"B @(" @("!M871C:" @=&AE("!T<F%C92!O=71P=70@9F]R('1H92!F=6YC
ZM=&EO;B!I;B!W:&EC:"!T:&4@;6%C<F\*(" @(" @(&]C8W5R<RX@(%=H96X@
ZM9&5B=6=G:6YG("!I<R @96YA8FQE9"P@(&)U=" @;F]T("!T<F%C92P@('1H
ZM90H@(" @(" @;W5T<'5T('-T87)T<R!A="!T:&4@;&5F="!M87)G:6XL('=I
ZM=&AO=70@:6YD96YT871I;VXN"@H*(" @(" @(" @(" @5&\@9&5M;VYS=')A
ZM=&4@<V5L96-T:6]N(&]F('-P96-I9FEC(&UA8W)O<R!F;W(@;W5T<'5T+ H@
ZM(" @(" @9FEG=7)E(" Y("!S:&]W<R @=&AE("!R97-U;'0@('=H96X@=&AE
ZM(&9A8W1O<FEA;"!P<F]G<F%M(&ES"B @(" @("!I;G9O:V5D('=I=&@@=&AE
ZM(&1E8G5G(&-O;G1R;VP@<W1R:6YG("(M(V0L<F5S=6QT.F\B+@H*"@H@(" @
ZM(" @(" @(" @(" @(&9A8W1O<FEA;#H@<F5S=6QT.B!R97-U;'0@:7,@,0H@
ZM(" @(" @(" @(" @(" @(&9A8W1O<FEA;#H@<F5S=6QT.B!R97-U;'0@:7,@
ZM,@H@(" @(" @(" @(" @(" @(&9A8W1O<FEA;#H@<F5S=6QT.B!R97-U;'0@
ZM:7,@-@H@(" @(" @(" @(" @(" @(&9A8W1O<FEA;#H@<F5S=6QT.B!R97-U
ZM;'0@:7,@,C0*(" @(" @(" @(" @(" @(" R- H*"B @(" @(" @(" @(" @
ZM(" @(" @(" @(" @(" @(" @(" @1FEG=7)E(#D*(" @(" @(" @(" @(" @
ZM(" @(" @(" @(" @9F%C=&]R:6%L("TC9"QR97-U;'0Z;R T"@H*"@H*"@H@
ZM(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @+2 Q,R M"@H*"@H*
ZM"@H@(" @(" @1$)51R!5<V5R($UA;G5A;" @(" @(" @(" @(" @(" @(" @
ZM(" @(" @(%-E<'1E;6)E<B Y+" Q.3@W"@H*"B @(" @(" @(" @($ET(&ES
ZM('-O;65T:6UE<R!D97-I<F%B;&4@('1O("!R97-T<FEC=" @9&5B=6=G:6YG
ZM("!A;F0*(" @(" @('1R86-E("!A8W1I;VYS("!T;R!A('-P96-I9FEC(&9U
ZM;F-T:6]N(&]R(&QI<W0@;V8@9G5N8W1I;VYS+@H@(" @(" @5&AI<R!I<R!A
ZM8V-O;7!L:7-H960@=VET:"!T:&4@("=F)R @9FQA9R @8VAA<F%C=&5R("!I
ZM;B @=&AE"B @(" @("!D96)U9R @8V]N=')O;" @<W1R:6YG+B @($9I9W5R
ZM92 @,3 @(&ES("!T:&4@(&]U='!U="!O9B!T:&4*(" @(" @(&9A8W1O<FEA
ZM;"!P<F]G<F%M("!W:&5N("!R=6X@('=I=&@@('1H92 @8V]N=')O;" @<W1R
ZM:6YG(" B+0H@(" @(" @(V0Z9BQF86-T;W)I86PZ1CI,.F\B+B @5&AE("=&
ZM)R!F;&%G(&5N86)L97,@<')I;G1I;F<@;V8@=&AE"B @(" @("!S;W5R8V4@
ZM9FEL92!N86UE(&%N9"!T:&4@)TPG(&9L86<@96YA8FQE<R @<')I;G1I;F<@
ZM(&]F("!T:&4*(" @(" @('-O=7)C92!F:6QE(&QI;F4@;G5M8F5R+@H*"@H@
ZM(" @(" @(" @(" @(" @(" @(&9A8W1O<FEA;"YC.B @(" @.3H@9F%C=&]R
ZM:6%L.B!F:6YD.B!F:6YD(#,@9F%C=&]R:6%L"B @(" @(" @(" @(" @(" @
ZM(" @9F%C=&]R:6%L+F,Z(" @(" Y.B!F86-T;W)I86PZ(&9I;F0Z(&9I;F0@
ZM,B!F86-T;W)I86P*(" @(" @(" @(" @(" @(" @("!F86-T;W)I86PN8SH@
ZM(" @(#DZ(&9A8W1O<FEA;#H@9FEN9#H@9FEN9" Q(&9A8W1O<FEA; H@(" @
ZM(" @(" @(" @(" @(" @(&9A8W1O<FEA;"YC.B @(" Q,SH@9F%C=&]R:6%L
ZM.B!R97-U;'0Z(')E<W5L="!I<R Q"B @(" @(" @(" @(" @(" @(" @9F%C
ZM=&]R:6%L+F,Z(" @(#$S.B!F86-T;W)I86PZ(')E<W5L=#H@<F5S=6QT(&ES
ZM(#(*(" @(" @(" @(" @(" @(" @("!F86-T;W)I86PN8SH@(" @,3,Z(&9A
ZM8W1O<FEA;#H@<F5S=6QT.B!R97-U;'0@:7,@-@H@(" @(" @(" @(" @(" @
ZM(#8*"@H@(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @($9I9W5R
ZM92 Q, H@(" @(" @(" @(" @(" @(" @(" @(&9A8W1O<FEA;" M(V0Z9BQF
ZM86-T;W)I86PZ1CI,.F\@,PH*"@H*"B @(" @(" @(" @(%1H92!O=71P=70@
ZM:6X@9FEG=7)E(#$P('-H;W=S('1H870@=&AE(")F:6YD(B!M86-R;R @:7,*
ZM(" @(" @(&EN("!F:6QE(" B9F%C=&]R:6%L+F,B("!A=" @<V]U<F-E("!L
ZM:6YE(#@@86YD('1H92 B<F5S=6QT(@H@(" @(" @;6%C<F\@:7,@:6X@=&AE
ZM('-A;64@9FEL92!A="!S;W5R8V4@;&EN92 Q,BX*"@H*"@H*"@H*"@H*"@H*
ZM"@H*"@H*"@H*(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @("T@
ZM,30@+0H*"@H*"@H*(" @(" @($1"54<@57-E<B!-86YU86P@(" @(" @(" @
ZM(" @(" @(" @(" @(" @("!397!T96UB97(@.2P@,3DX-PH*"@H@(" @(" @
ZM4PA3"%,(4U4(50A5"%5-"$T(30A-30A-"$T(34$(00A!"$%2"%((4@A260A9
ZM"%D(62!/"$\(3PA/1@A&"$8(1B!-"$T(30A-00A!"$$(04,(0PA#"$-2"%((
ZM4@A23PA/"$\(3U,(4PA3"%,*"@H@(" @(" @(" @("!4:&ES('-E8W1I;VX@
ZM<W5M;6%R:7IE<R @=&AE("!U<V%G92 @;V8@(&%L;" @8W5R<F5N=&QY"B @
ZM(" @("!D969I;F5D("!M86-R;W,@:6X@=&AE(%\(9%\(8E\(=5\(9R!P86-K
ZM86=E+B @5&AE(&UA8W)O<R!D969I;FET:6]N<PH@(" @(" @87)E(&9O=6YD
ZM(&EN('1H92!U<V5R(&EN8VQU9&4@9FEL92!D"&0(9 AD8@AB"&((8G4(=0AU
ZM"'5G"&<(9PAG+@@N""X(+F@(: AH"&@@9G)O;2!T:&4@('-T86YD87)D"B @
ZM(" @("!I;F-L=61E(&1I<F5C=&]R>2X*"@H*(" @(" @(" @(" @(" @1$)5
ZM1U]%3E1%4B @57-E9"!T;R!T96QL('1H92!R=6YT:6UE('-U<'!O<G0@(&UO
ZM9'5L90H@(" @(" @(" @(" @(" @(" @(" @(" @("!T:&4@(&YA;64@;V8@
ZM=&AE(&9U;F-T:6]N(&)E:6YG(&5N=&5R960N"B @(" @(" @(" @(" @(" @
ZM(" @(" @(" @(%1H92!A<F=U;65N="!M=7-T(&)E(&]F('1Y<&4@(G!O:6YT
ZM97(@=&\*(" @(" @(" @(" @(" @(" @(" @(" @(" @8VAA<F%C=&5R(BX@
ZM("!4:&4@($1"54=?14Y415(@;6%C<F\@;75S= H@(" @(" @(" @(" @(" @
ZM(" @(" @(" @("!P<F5C961E("!A;&P@(&5X96-U=&%B;&4@(&QI;F5S("!I
ZM;B @=&AE"B @(" @(" @(" @(" @(" @(" @(" @(" @(&9U;F-T:6]N("!J
ZM=7-T("!E;G1E<F5D+" @86YD("!M=7-T(&-O;64*(" @(" @(" @(" @(" @
ZM(" @(" @(" @(" @869T97(@(&%L;" @;&]C86P@(&1E8VQA<F%T:6]N<RX@
ZM(" @16%C: H@(" @(" @(" @(" @(" @(" @(" @(" @("!$0E5'7T5.5$52
ZM("!M86-R;R @;75S=" @:&%V92!A(&UA=&-H:6YG"B @(" @(" @(" @(" @
ZM(" @(" @(" @(" @($1"54=?4D5455).(&]R($1"54=?5D])1%]215154DX@
ZM;6%C<F\@870*(" @(" @(" @(" @(" @(" @(" @(" @(" @=&AE("!F=6YC
ZM=&EO;B @97AI=" @<&]I;G1S+B @1$)51U]%3E1%4@H@(" @(" @(" @(" @
ZM(" @(" @(" @(" @("!M86-R;W,@("!U<V5D(" @=VET:&]U=" @("!A(" @
ZM(&UA=&-H:6YG"B @(" @(" @(" @(" @(" @(" @(" @(" @($1"54=?4D54
ZM55).("!O<B @1$)51U]63TE$7U)%5%523B @;6%C<F\*(" @(" @(" @(" @
ZM(" @(" @(" @(" @(" @=VEL;"!C875S92 @=V%R;FEN9R @;65S<V%G97,@
ZM(&9R;VT@('1H90H@(" @(" @(" @(" @(" @(" @(" @(" @("!?"&1?"&)?
ZM"'5?"&<@<&%C:V%G92!R=6YT:6UE('-U<'!O<G0@;6]D=6QE+@H*(" @(" @
ZM(" @(" @(" @(" @(" @(" @(" @15@Z($1"54=?14Y415(@*")M86EN(BD[
ZM"@H@(" @(" @(" @(" @($1"54=?4D5455).("!5<V5D(&%T(&5A8V@@97AI
ZM="!P;VEN=" @;V8@(&$@(&9U;F-T:6]N"B @(" @(" @(" @(" @(" @(" @
ZM(" @(" @(&-O;G1A:6YI;F<@(&$@($1"54=?14Y415(@(&UA8W)O("!A="!T
ZM:&4*(" @(" @(" @(" @(" @(" @(" @(" @(" @96YT<GD@<&]I;G0N("!4
ZM:&4@87)G=6UE;G0@:7,@=&AE("!V86QU90H@(" @(" @(" @(" @(" @(" @
ZM(" @(" @("!T;R @<F5T=7)N+B @($9U;F-T:6]N<R @=VAI8V@@<F5T=7)N
ZM(&YO"B @(" @(" @(" @(" @(" @(" @(" @(" @('9A;'5E(" @("AV;VED
ZM*2 @("!S:&]U;&0@(" @=7-E(" @("!T:&4*(" @(" @(" @(" @(" @(" @
ZM(" @(" @(" @1$)51U]63TE$7U)%5%523B @;6%C<F\N("!)="!I<R!A;B!E
ZM<G)O<@H@(" @(" @(" @(" @(" @(" @(" @(" @("!T;R @(" @:&%V92 @
ZM(" @82 @(" @1$)51U]215154DX@(" @(&]R"B @(" @(" @(" @(" @(" @
ZM(" @(" @(" @($1"54=?5D])1%]215154DX@(&UA8W)O("!I;B @82 @9G5N
ZM8W1I;VX*(" @(" @(" @(" @(" @(" @(" @(" @(" @=VAI8V@@:&%S(&YO
ZM(&UA=&-H:6YG($1"54=?14Y415(@(&UA8W)O+ H@(" @(" @(" @(" @(" @
ZM(" @(" @(" @("!A;F0@('1H92 @8V]M<&EL97(@('=I;&P@8V]M<&QA:6X@
ZM:68@=&AE"B @(" @(" @(" @(" @(" @(" @(" @(" @(&UA8W)O<R!A<F4@
ZM86-T=6%L;'D@=7-E9" H97AP86YD960I+@H*(" @(" @(" @(" @(" @(" @
ZM(" @(" @(" @15@Z($1"54=?4D5455).("AV86QU92D["B @(" @(" @(" @
ZM(" @(" @(" @(" @(" @($58.B!$0E5'7U9/241?4D5455)..PH*(" @(" @
ZM(" @(" @($1"54=?4%)/0T534R @57-E9"!T;R!N86UE('1H92!C=7)R96YT
ZM("!P<F]C97-S("!B96EN9PH@(" @(" @(" @(" @(" @(" @(" @(" @("!E
ZM>&5C=71E9"X@("!!("!T>7!I8V%L(&%R9W5M96YT(&9O<B!T:&ES"B @(" @
ZM(" @(" @(" @(" @(" @(" @(" @(&UA8W)O(&ES(")A<F=V6S!=(BP@=&AO
ZM=6=H("!I=" @=VEL;" @8F4*(" @(" @(" @(" @(" @(" @(" @(" @(" @
ZM<&5R9F5C=&QY(&AA<'!Y('=I=&@@86YY(&]T:&5R('-T<FEN9RX*"B @(" @
ZM(" @(" @(" @(" @(" @(" @(" @($58.B!$0E5'7U!23T-%4U,@*&%R9W9;
ZM,%TI.PH*(" @(" @(" @(" @(" @($1"54=?4%532" @4V5T<R!A(&YE=R!D
ZM96)U9V=E<B!S=&%T92!B>2!P=7-H:6YG('1H90H@(" @(" @(" @(" @(" @
ZM(" @(" @(" @("!C=7)R96YT("!D"&0(9 AD8@AB"&((8G4(=0AU"'5G"&<(
ZM9PAG("!S=&%T92 @;VYT;R @86X@(&EN=&5R;F%L"@H*"B @(" @(" @(" @
ZM(" @(" @(" @(" @(" @(" @(" @(" M(#$U("T*"@H*"@H*"B @(" @("!$
ZM0E5'(%5S97(@36%N=6%L(" @(" @(" @(" @(" @(" @(" @(" @(" @4V5P
ZM=&5M8F5R(#DL(#$Y.#<*"@H*(" @(" @(" @(" @(" @(" @(" @(" @(" @
ZM<W1A8VL@86YD('-E='1I;F<@=7 @=&AE(&YE=R!S=&%T92!U<VEN9PH@(" @
ZM(" @(" @(" @(" @(" @(" @(" @("!T:&4@(&1E8G5G("!C;VYT<F]L('-T
ZM<FEN9R!P87-S960@87,@=&AE"B @(" @(" @(" @(" @(" @(" @(" @(" @
ZM(&UA8W)O(&%R9W5M96YT+B @5&AE(&UO<W0@(&-O;6UO;B @=7-A9V4*(" @
ZM(" @(" @(" @(" @(" @(" @(" @(" @:7,@=&\@<V5T('1H92!S=&%T92!S
ZM<&5C:69I960@8GD@82!D96)U9PH@(" @(" @(" @(" @(" @(" @(" @(" @
ZM("!C;VYT<F]L("!S=')I;F<@("!R971R:65V960@("!F<F]M(" @=&AE"B @
ZM(" @(" @(" @(" @(" @(" @(" @(" @(&%R9W5M96YT("!L:7-T+B @($YO
ZM=&4@('1H870@=&AE(&QE861I;F<*(" @(" @(" @(" @(" @(" @(" @(" @
ZM(" @(BTC(B!I;B!A(&1E8G5G(&-O;G1R;VP@<W1R:6YG('-P96-I9FEE9 H@
ZM(" @(" @(" @(" @(" @(" @(" @(" @("!A<R @82 @8V]M;6%N9"!L:6YE
ZM(&%R9W5M96YT(&UU<W0@;@AN"&X(;F\(;PAO"&]T"'0(= AT(&)E"B @(" @
ZM(" @(" @(" @(" @(" @(" @(" @('!A<W-E9"!A<R!P87)T(&]F("!T:&4@
ZM(&UA8W)O("!A<F=U;65N="X*(" @(" @(" @(" @(" @(" @(" @(" @(" @
ZM5&AE('!R;W!E<B!U<V%G92!I<R!T;R!P87-S(&$@<&]I;G1E<B!T;PH@(" @
ZM(" @(" @(" @(" @(" @(" @(" @("!T:&4@(&9I<G-T("!C:&%R86-T97(@
ZM(&$(80AA"&%F"&8(9@AF= AT"'0(=&4(90AE"&5R"'((<@AR("!T:&4@(" B
ZM+2,B"B @(" @(" @(" @(" @(" @(" @(" @(" @('-T<FEN9RX*"B @(" @
ZM(" @(" @(" @(" @(" @(" @(" @($58.B!$0E5'7U!54T@@*"AA<F=V6VE=
ZM6S)=*2D["B @(" @(" @(" @(" @(" @(" @(" @(" @($58.B!$0E5'7U!5
ZM4T@@*")D.G0B*3L*(" @(" @(" @(" @(" @(" @(" @(" @(" @15@Z($1"
ZM54=?4%532" H(B(I.PH*(" @(" @(" @(" @(" @("!$0E5'7U!/4" @4F5S
ZM=&]R97,@=&AE('!R979I;W5S(&1E8G5G9V5R('-T871E("!B>0H@(" @(" @
ZM(" @(" @(" @(" @(" @(" @("!P;W!P:6YG("!T:&4@<W1A=&4@<W1A8VLN
ZM("!!='1E;7!T:6YG('1O"B @(" @(" @(" @(" @(" @(" @(" @(" @('!O
ZM<"!M;W)E("!S=&%T97,@('1H86X@('!U<VAE9" @=VEL;" @8F4*(" @(" @
ZM(" @(" @(" @(" @(" @(" @(" @:6=N;W)E9" @86YD("!N;R @=V%R;FEN
ZM9R!W:6QL(&)E(&=I=F5N+@H@(" @(" @(" @(" @(" @(" @(" @(" @("!4
ZM:&4@1$)51U]03U @;6%C<F\@:&%S(&YO(&%R9W5M96YT<RX*"B @(" @(" @
ZM(" @(" @(" @(" @(" @(" @($58.B!$0E5'7U!/4" H*3L*"B @(" @(" @
ZM(" @(" @("!$0E5'7T9)3$4@(%1H92 @1$)51U]&24Q%("!M86-R;R @:7,@
ZM('5S960@('1O(" @9&\*(" @(" @(" @(" @(" @(" @(" @(" @(" @97AP
ZM;&EC:70@22]/(&]N('1H92!D96)U9R!O=71P=70@<W1R96%M+@H@(" @(" @
ZM(" @(" @(" @(" @(" @(" @("!)="!I<R!U<V5D(&EN('1H92 @<V%M92 @
ZM;6%N;F5R("!A<R @=&AE"B @(" @(" @(" @(" @(" @(" @(" @(" @('-Y
ZM;6)O;',@(")S=&1O=70B("!A;F0@(")S=&1E<G(B("!I;B!T:&4*(" @(" @
ZM(" @(" @(" @(" @(" @(" @(" @<W1A;F1A<F0@22]/('!A8VMA9V4N"@H@
ZM(" @(" @(" @(" @(" @(" @(" @(" @("!%6#H@9G!R:6YT9B H1$)51U]&
ZM24Q%+" B1&]I;F<@(&UY(" @;W=N"B @(" @(" @(" @(" @(" @(" @(" @
ZM(" @($DO3R$P*3L*"B @(" @(" @(" @("!$0E5'7T5814-55$4@(%1H92 @
ZM1$)51U]%6$5#551%("!M86-R;R @:7,@("!U<V5D(" @=&\*(" @(" @(" @
ZM(" @(" @(" @(" @(" @(" @97AE8W5T92!A;GD@87)B:71R87)Y($,@8V]D
ZM92X@(%1H92!F:7)S= H@(" @(" @(" @(" @(" @(" @(" @(" @("!A<F=U
ZM;65N="!I<R!T:&4@9&5B=6<@:V5Y=V]R9"P@('5S960@('1O"B @(" @(" @
ZM(" @(" @(" @(" @(" @(" @('1R:6=G97(@(&5X96-U=&EO;B!O9B!T:&4@
ZM8V]D92!S<&5C:69I960*(" @(" @(" @(" @(" @(" @(" @(" @(" @87,@
ZM=&AE('-E8V]N9"!A<F=U;65N="X@(%1H:7,@;6%C<F\@;75S= H@(" @(" @
ZM(" @(" @(" @(" @(" @(" @("!B92 @=7-E9" @8V%U=&EO=7-L>2 @8F5C
ZM875S92P@(&QI:V4@=&AE"B @(" @(" @(" @(" @(" @(" @(" @(" @($1"
ZM54=?4%))3E0@;6%C<F\L("!I=" @:7,@(&%U=&]M871I8V%L;'D*(" @(" @
ZM(" @(" @(" @(" @(" @(" @(" @<V5L96-T960@(&)Y("!D969A=6QT("!W
ZM:&5N979E<B @=&AE("=D)PH@(" @(" @(" @(" @(" @(" @(" @(" @("!F
ZM;&%G(&AA<R!N;R!A<F=U;65N="!L:7-T(" H22Y%+BP@(&$@("(M"B @(" @
ZM(" @(" @(" @(" @(" @(" @(" @("-D.G0B(&-O;G1R;VP@<W1R:6YG*2X*
ZM"B @(" @(" @(" @(" @(" @(" @(" @(" @($58.B!$0E5'7T5814-55$4@
ZM*")A8F]R="(L(&%B;W)T("@I*3L*"B @(" @(" @(" @(" @(" @("!$0E5'
ZM7TX@(%1H97-E(&UA8W)O<RP@=VAE<F4@3B!I<R @:6X@('1H92 @<F%N9V4*
ZM(" @(" @(" @(" @(" @(" @(" @(" @(" @,BTU+" @87)E(&-U<G)E;G1L
ZM>2!O8G-O;&5T92!A;F0@=VEL;"!B90H@(" @(" @(" @(" @(" @(" @(" @
ZM(" @("!R96UO=F5D(&EN(&$@9G5T=7)E("!R96QE87-E+B @(%5S92 @=&AE
ZM"B @(" @(" @(" @(" @(" @(" @(" @(" @(&YE=R!$0E5'7U!224Y4(&UA
ZM8W)O+@H*"@H@(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @+2 Q
ZM-B M"@H*"@H*"@H@(" @(" @1$)51R!5<V5R($UA;G5A;" @(" @(" @(" @
ZM(" @(" @(" @(" @(" @(%-E<'1E;6)E<B Y+" Q.3@W"@H*"B @(" @(" @
ZM(" @(" @($1"54=?4%))3E0@(%5S960@=&\@9&\@<')I;G1I;F<@('9I82 @
ZM=&AE(" B9G!R:6YT9B(*(" @(" @(" @(" @(" @(" @(" @(" @(" @;&EB
ZM<F%R>2 @9G5N8W1I;VX@(&]N("!T:&4@8W5R<F5N="!D96)U9PH@(" @(" @
ZM(" @(" @(" @(" @(" @(" @("!S=')E86TL($1"54=?1DE,12X@(%1H92 @
ZM9FER<W0@(&%R9W5M96YT"B @(" @(" @(" @(" @(" @(" @(" @(" @(&ES
ZM("!A("!D96)U9R @:V5Y=V]R9"P@('1H92 @<V5C;VYD(&ES(&$*(" @(" @
ZM(" @(" @(" @(" @(" @(" @(" @9F]R;6%T("!S=')I;F<@(&%N9" @=&AE
ZM(" @8V]R<F5S<&]N9&EN9PH@(" @(" @(" @(" @(" @(" @(" @(" @("!A
ZM<F=U;65N=" @;&ES="X@("!.;W1E("!T:&%T("!T:&4@9F]R;6%T"B @(" @
ZM(" @(" @(" @(" @(" @(" @(" @('-T<FEN9R!A;F0@87)G=6UE;G0@(&QI
ZM<W0@(&%R92 @86QL("!O;F4*(" @(" @(" @(" @(" @(" @(" @(" @(" @
ZM;6%C<F\@(&%R9W5M96YT("!A;F0@;0AM"&T(;74(=0AU"'5S"',(<PAS= AT
ZM"'0(="!B92!E;F-L;W-E9"!I;@H@(" @(" @(" @(" @(" @(" @(" @(" @
ZM("!P87)E;G1H97-I<RX*"B @(" @(" @(" @(" @(" @(" @(" @(" @($58
ZM.B!$0E5'7U!224Y4("@B96]F(BP@*")E;F0@;V8@9FEL92!F;W5N9"(I*3L*
ZM(" @(" @(" @(" @(" @(" @(" @(" @(" @15@Z($1"54=?4%))3E0@*")T
ZM>7!E(BP@*")T>7!E(&ES("5X(BP*(" @(" @(" @(" @(" @(" @(" @(" @
ZM(" @='EP92DI.PH@(" @(" @(" @(" @(" @(" @(" @(" @("!%6#H@1$)5
ZM1U]04DE.5" H(G-T<"(L("@B)7@@+3X@)7,B+"!S=' L"B @(" @(" @(" @
ZM(" @(" @(" @(" @(" @('-T<" M/B!N86UE*2D["@H@(" @(" @(" @(" @
ZM($1"54=?4T542DU0("!5<V5D(&EN('!L86-E(&]F('1H92 @<V5T:FUP*"D@
ZM(&9U;F-T:6]N"B @(" @(" @(" @(" @(" @(" @(" @(" @('1O(&9I<G-T
ZM('-A=F4@=&AE(&-U<G)E;G0@9&5B=6=G97(@<W1A=&4*(" @(" @(" @(" @
ZM(" @(" @(" @(" @(" @86YD('1H96X@(&5X96-U=&4@('1H92 @<W1A;F1A
ZM<F0@('-E=&IM< H@(" @(" @(" @(" @(" @(" @(" @(" @("!C86QL+B @
ZM("!4:&ES("!A;&QO=W,@('1H92 @9&5B=6=G97(@('1O"B @(" @(" @(" @
ZM(" @(" @(" @(" @(" @(')E<W1O<F4@:71S('-T871E('=H96X@=&AE("!$
ZM0E5'7TQ/3D=*35 *(" @(" @(" @(" @(" @(" @(" @(" @(" @;6%C<F\@
ZM(&ES("!U<V5D("!T;R @:6YV;VME('1H92!S=&%N9&%R9 H@(" @(" @(" @
ZM(" @(" @(" @(" @(" @("!L;VYG:FUP*"D@8V%L;"X@($-U<G)E;G1L>2!A
ZM;&P@:6YS=&%N8V5S"B @(" @(" @(" @(" @(" @(" @(" @(" @(&]F("!$
ZM0E5'7U-%5$I-4" @;75S=" @;V-C=7(@('=I=&AI;B!T:&4*(" @(" @(" @
ZM(" @(" @(" @(" @(" @(" @<V%M92!F=6YC=&EO;B!A;F0@870@=&AE("!S
ZM86UE("!F=6YC=&EO;@H@(" @(" @(" @(" @(" @(" @(" @(" @("!N97-T
ZM:6YG(&QE=F5L+@H*(" @(" @(" @(" @(" @(" @(" @(" @(" @15@Z($1"
ZM54=?4T542DU0("AE;G8I.PH*(" @(" @(" @(" @($1"54=?3$].1TI-4" @
ZM57-E9"!I;B!P;&%C92!O9B!T:&4@;&]N9VIM<"@I("!F=6YC=&EO;@H@(" @
ZM(" @(" @(" @(" @(" @(" @(" @("!T;R @9FER<W0@(')E<W1O<F4@=&AE
ZM('!R979I;W5S(&1E8G5G9V5R"B @(" @(" @(" @(" @(" @(" @(" @(" @
ZM('-T871E("!A=" @('1H92 @('1I;64@("!O9B @('1H92 @(&QA<W0*(" @
ZM(" @(" @(" @(" @(" @(" @(" @(" @1$)51U]3151*35 @("!A;F0@("!T
ZM:&5N(" @97AE8W5T92 @('1H90H@(" @(" @(" @(" @(" @(" @(" @(" @
ZM("!S=&%N9&%R9" @;&]N9VIM<"@I("!C86QL+B @($YO=&4@("!T:&%T"B @
ZM(" @(" @(" @(" @(" @(" @(" @(" @(&-U<G)E;G1L>2 @("!A;&P@("!$
ZM0E5'7TQ/3D=*35 @("!M86-R;W,*(" @(" @(" @(" @(" @(" @(" @(" @
ZM(" @<F5S=&]R92!T:&4@<W1A=&4@870@('1H92 @=&EM92 @;V8@('1H90H@
ZM(" @(" @(" @(" @(" @(" @(" @(" @("!L87-T("!$0E5'7U-%5$I-4"X@
ZM($ET('=O=6QD(&)E('!O<W-I8FQE"B @(" @(" @(" @(" @(" @(" @(" @
ZM(" @('1O("!M86EN=&%I;B @<V5P87)A=&4@($1"54=?4T542DU0("!A;F0*
ZM(" @(" @(" @(" @(" @(" @(" @(" @(" @1$)51U],3TY'2DU0(" @<&%I
ZM<G,@("!B>2 @(&AA=FEN9R @('1H90H@(" @(" @(" @(" @(" @(" @(" @
ZM(" @("!D96)U9V=E<B!R=6YT:6UE('-U<'!O<G0@;6]D=6QE('5S92 @=&AE
ZM"B @(" @(" @(" @(" @(" @(" @(" @(" @(&9I<G-T(" @87)G=6UE;G0@
ZM('1O("!D:69F97)E;G1I871E("!T:&4*(" @(" @(" @(" @(" @(" @(" @
ZM(" @(" @<&%I<G,N"@H@(" @(" @(" @(" @(" @(" @(" @(" @("!%6#H@
ZM1$)51U],3TY'2DU0("AE;G8L=F%L*3L*"@H*"@H*"@H*"B @(" @(" @(" @
ZM(" @(" @(" @(" @(" @(" @(" @(" M(#$W("T*"@H*"@H*"B @(" @("!$
ZM0E5'(%5S97(@36%N=6%L(" @(" @(" @(" @(" @(" @(" @(" @(" @4V5P
ZM=&5M8F5R(#DL(#$Y.#<*"@H*(" @(" @($0(1 A$"$1%"$4(10A%0@A""$((
ZM0E4(50A5"%5'"$<(1PA'($,(0PA#"$-/"$\(3PA/3@A."$X(3E0(5 A4"%12
ZM"%((4@A23PA/"$\(3TP(3 A,"$P@4PA3"%,(4U0(5 A4"%12"%((4@A220A)
ZM"$D(24X(3@A."$Y'"$<(1PA'"@H*(" @(" @(" @(" @5&AE(&1E8G5G(&-O
ZM;G1R;VP@<W1R:6YG(&ES('5S960@=&\@<V5T("!T:&4@('-T871E("!O9@H@
ZM(" @(" @=&AE(" @9&5B=6=G97(@("!V:6$@('1H92 @1 A$"$0(1$((0@A"
ZM"$)5"%4(50A51PA'"$<(1U\(7PA?"%]0"% (4 A050A5"%4(55,(4PA3"%-(
ZM"$@(2 A(("!M86-R;RX@("!4:&ES("!S96-T:6]N"B @(" @("!S=6UM87)I
ZM>F5S('1H92!C=7)R96YT;'D@879A:6QA8FQE(&1E8G5G9V5R(&]P=&EO;G,@
ZM86YD("!T:&4*(" @(" @(&9L86<@(&-H87)A8W1E<G,@('=H:6-H("!E;F%B
ZM;&4@(&]R("!D:7-A8FQE('1H96TN("!!<F=U;65N= H@(" @(" @;&ES=',@
ZM96YC;&]S960@:6X@)ULG(&%N9" G72<@87)E(&]P=&EO;F%L+@H*"B @(" @
ZM(" @(" @(" @("!D6RQK97EW;W)D<UT@16YA8FQE(" @;W5T<'5T(" @9G)O
ZM;2 @(&UA8W)O<R @('=I=&@*(" @(" @(" @(" @(" @(" @(" @(" @(" @
ZM("!S<&5C:69I960@(&ME>7=O<F1S+B @($$@(&YU;&P@;&ES="!O9@H@(" @
ZM(" @(" @(" @(" @(" @(" @(" @(" @(&ME>7=O<F1S(&EM<&QI97,@=&AA
ZM="!A;&P@:V5Y=V]R9',@87)E"B @(" @(" @(" @(" @(" @(" @(" @(" @
ZM(" @<V5L96-T960N"@H@(" @(" @(" @(" @(" @(" @($1;+'1I;65=($1E
ZM;&%Y(&9O<B!S<&5C:69I960@('1I;64@(&%F=&5R("!E86-H"B @(" @(" @
ZM(" @(" @(" @(" @(" @(" @(" @;W5T<'5T("!L:6YE+" @=&\@(&QE=" @
ZM;W5T<'5T("!D<F%I;BX*(" @(" @(" @(" @(" @(" @(" @(" @(" @("!4
ZM:6UE(&ES(&=I=F5N(&EN('1E;G1H<R @;V8@(&$@('-E8V]N9 H@(" @(" @
ZM(" @(" @(" @(" @(" @(" @(" @("AV86QU92 @;V8@,3 @:7,@;VYE('-E
ZM8V]N9"DN("!$969A=6QT"B @(" @(" @(" @(" @(" @(" @(" @(" @(" @
ZM:7,@>F5R;RX*"B @(" @(" @(" @(" @(&9;+&9U;F-T:6]N<UT@3&EM:70@
ZM("!D96)U9V=E<B @(&%C=&EO;G,@("!T;R @("!T:&4*(" @(" @(" @(" @
ZM(" @(" @(" @(" @(" @("!S<&5C:69I960@(&QI<W0@(&]F(&9U;F-T:6]N
ZM<RX@($$@;G5L; H@(" @(" @(" @(" @(" @(" @(" @(" @(" @(&QI<W0@
ZM;V8@(&9U;F-T:6]N<R @:6UP;&EE<R @=&AA=" @86QL"B @(" @(" @(" @
ZM(" @(" @(" @(" @(" @(" @9G5N8W1I;VYS(&%R92!S96QE8W1E9"X*"B @
ZM(" @(" @(" @(" @(" @(" @(" @(" @($8@36%R:R!E86-H(&1E8G5G9V5R
ZM("!O=71P=70@(&QI;F4@('=I=&@*(" @(" @(" @(" @(" @(" @(" @(" @
ZM(" @("!T:&4@;F%M92!O9B!T:&4@<V]U<F-E(&9I;&4@8V]N=&%I;FEN9PH@
ZM(" @(" @(" @(" @(" @(" @(" @(" @(" @('1H92!M86-R;R!C875S:6YG
ZM('1H92!O=71P=70N"@H@(" @(" @(" @(" @(" @(" @(" @(" @("!G(%1U
ZM<FX@;VX@;6%C:&EN92!I;F1E<&5N9&5N="!P<F]F:6QI;F<N"B @(" @(" @
ZM(" @(" @(" @(" @(" @(" @(" @02 @('!R;V9I;&EN9R @9&%T82 @8V]L
ZM;&5C=&EO;B @9FEL92P*(" @(" @(" @(" @(" @(" @(" @(" @(" @("!N
ZM86UE9"!D8G5G;6]N+F]U="P@=VEL;"!B92!W<FET=&5N(&9O<@H@(" @(" @
ZM(" @(" @(" @(" @(" @(" @(" @('!O<W1P<F]C97-S:6YG(" @(&)Y(" @
ZM=&AE(" @(F%N86QY>F4B"B @(" @(" @(" @(" @(" @(" @(" @(" @(" @
ZM<')O9W)A;2X@(%1H92!A8V-U<F%C>2!O9B!T:&ES(&9E871U<F4*(" @(" @
ZM(" @(" @(" @(" @(" @(" @(" @("!I<R!R96QA=&EV96QY('5N:VYO=VX@
ZM870@=&AI<R!T:6UE+@H*(" @(" @(" @(" @(" @(" @(" @(" @(" @3"!-
ZM87)K(&5A8V@@9&5B=6=G97(@(&]U='!U=" @;&EN92 @=VET: H@(" @(" @
ZM(" @(" @(" @(" @(" @(" @(" @('1H92 @<V]U<F-E("!F:6QE("!L:6YE
ZM("!N=6UB97(@;V8@=&AE"B @(" @(" @(" @(" @(" @(" @(" @(" @(" @
ZM;6%C<F\@8V%U<VEN9R!T:&4@;W5T<'5T+@H*(" @(" @(" @(" @(" @(" @
ZM(" @(" @(" @;B!-87)K(&5A8V@@9&5B=6=G97(@(&]U='!U=" @;&EN92 @
ZM=VET: H@(" @(" @(" @(" @(" @(" @(" @(" @(" @('1H92!C=7)R96YT
ZM(&9U;F-T:6]N(&YE<W1I;F<@9&5P=&@N"@H@(" @(" @(" @(" @(" @(" @
ZM(" @(" @("!.(%-E<75E;G1I86QL>2 @;G5M8F5R(" @96%C:" @(&1E8G5G
ZM9V5R"B @(" @(" @(" @(" @(" @(" @(" @(" @(" @;W5T<'5T("!L:6YE
ZM("!S=&%R=&EN9R @870@,2X@(%1H:7,@:7,*(" @(" @(" @(" @(" @(" @
ZM(" @(" @(" @("!U<V5F=6P@(&9O<B @<F5F97)E;F-E("!P=7)P;W-E<R @
ZM=VAE;@H@(" @(" @(" @(" @(" @(" @(" @(" @(" @(&1E8G5G9V5R("!O
ZM=71P=70@(&ES(&EN=&5R<W!E<G-E9"!W:71H"B @(" @(" @(" @(" @(" @
ZM(" @(" @(" @(" @<')O9W)A;2!O=71P=70N"@H*"@H*(" @(" @(" @(" @
ZM(" @(" @(" @(" @(" @(" @(" @("T@,3@@+0H*"@H*"@H*(" @(" @($1"
ZM54<@57-E<B!-86YU86P@(" @(" @(" @(" @(" @(" @(" @(" @("!397!T
ZM96UB97(@.2P@,3DX-PH*"@H@(" @(" @(" @(" @(" @(" @(&];+&9I;&5=
ZM(%)E9&ER96-T('1H92!D96)U9V=E<B!O=71P=70@<W1R96%M('1O"B @(" @
ZM(" @(" @(" @(" @(" @(" @(" @(" @=&AE(" @<W!E8VEF:65D(" @9FEL
ZM92X@("!4:&4@(&1E9F%U;'0*(" @(" @(" @(" @(" @(" @(" @(" @(" @
ZM("!O=71P=70@('-T<F5A;2 @:7,@('-T9&5R<BX@("!!(" @;G5L; H@(" @
ZM(" @(" @(" @(" @(" @(" @(" @(" @(&%R9W5M96YT("!L:7-T("!C875S
ZM97,@(&]U='!U=" @=&\@(&)E"B @(" @(" @(" @(" @(" @(" @(" @(" @
ZM(" @<F5D:7)E8W1E9"!T;R!S=&1O=70N"@H@(" @(" @(" @(" @("!P6RQP
ZM<F]C97-S97-=($QI;6ET(" @9&5B=6=G97(@("!A8W1I;VYS(" @=&\@(" @
ZM=&AE"B @(" @(" @(" @(" @(" @(" @(" @(" @(" @<W!E8VEF:65D(" @
ZM<')O8V5S<V5S+B @($$@(&YU;&P@(&QI<W0*(" @(" @(" @(" @(" @(" @
ZM(" @(" @(" @("!I;7!L:65S(&%L;"!P<F]C97-S97,N("!4:&ES(&ES('5S
ZM969U; H@(" @(" @(" @(" @(" @(" @(" @(" @(" @(&9O<B @("!P<F]C
ZM97-S97,@("!W:&EC:" @(')U;B @(&-H:6QD"B @(" @(" @(" @(" @(" @
ZM(" @(" @(" @(" @<')O8V5S<V5S+B @3F]T92 @=&AA=" @96%C:" @9&5B
ZM=6=G97(*(" @(" @(" @(" @(" @(" @(" @(" @(" @("!O=71P=70@(&QI
ZM;F4@(&-A;B @8F4@(&UA<FME9"!W:71H('1H90H@(" @(" @(" @(" @(" @
ZM(" @(" @(" @(" @(&YA;64@;V8@=&AE(&-U<G)E;G0@('!R;V-E<W,@('9I
ZM82 @=&AE"B @(" @(" @(" @(" @(" @(" @(" @(" @(" @)U G(&9L86<N
ZM("!4:&4@<')O8V5S<R!N86UE(&UU<W0@;6%T8V@*(" @(" @(" @(" @(" @
ZM(" @(" @(" @(" @("!T:&4@(" @87)G=6UE;G0@(" @<&%S<V5D(" @('1O
ZM(" @('1H90H@(" @(" @(" @(" @(" @(" @(" @(" @(" @($0(1 A$"$1"
ZM"$((0@A"50A5"%4(54<(1PA'"$=?"%\(7PA?4 A0"% (4%((4@A2"%)/"$\(
ZM3PA/0PA#"$,(0T4(10A%"$53"%,(4PA34PA3"%,(4R!M86-R;RX*"B @(" @
ZM(" @(" @(" @(" @(" @(" @(" @(% @36%R:R!E86-H(&1E8G5G9V5R("!O
ZM=71P=70@(&QI;F4@('=I=&@*(" @(" @(" @(" @(" @(" @(" @(" @(" @
ZM("!T:&4@;F%M92!O9B!T:&4@8W5R<F5N="!P<F]C97-S+B @36]S= H@(" @
ZM(" @(" @(" @(" @(" @(" @(" @(" @('5S969U;"!W:&5N('5S960@=VET
ZM:"!A('!R;V-E<W,@('=H:6-H"B @(" @(" @(" @(" @(" @(" @(" @(" @
ZM(" @<G5N<R @8VAI;&0@('!R;V-E<W-E<R @=&AA=" @87)E(&%L<V\*(" @
ZM(" @(" @(" @(" @(" @(" @(" @(" @("!B96EN9R!D96)U9V=E9"X@($YO
ZM=&4@=&AA="!T:&4@('!A<F5N= H@(" @(" @(" @(" @(" @(" @(" @(" @
ZM(" @('!R;V-E<W,@(&UU<W0@87)R86YG92!F;W(@=&AE(&1E8G5G9V5R"B @
ZM(" @(" @(" @(" @(" @(" @(" @(" @(" @8V]N=')O;"!S=')I;F<@=&\@
ZM(&)E("!P87-S960@('1O("!T:&4*(" @(" @(" @(" @(" @(" @(" @(" @
ZM(" @("!C:&EL9"!P<F]C97-S97,N"@H@(" @(" @(" @(" @(" @(" @(" @
ZM(" @("!R(%5S960@:6X@8V]N:G5N8W1I;VX@=VET:"!T:&4@1 A$"$0(1$((
ZM0@A""$)5"%4(50A51PA'"$<(1U\(7PA?"%]0"% (4 A050A5"%4(55,(4PA3
ZM"%-("$@(2 A("B @(" @(" @(" @(" @(" @(" @(" @(" @(" @;6%C<F\@
ZM=&\@<F5S970@=&AE(&-U<G)E;G0@:6YD96YT871I;VX*(" @(" @(" @(" @
ZM(" @(" @(" @(" @(" @("!L979E;"!B86-K('1O('IE<F\N("!-;W-T('5S
ZM969U;" @=VET: H@(" @(" @(" @(" @(" @(" @(" @(" @(" @($0(1 A$
ZM"$1""$((0@A"50A5"%4(54<(1PA'"$=?"%\(7PA?4 A0"% (4%4(50A5"%53
ZM"%,(4PA32 A("$@(2" @;6%C<F]S("!U<V5D('1O('1E;7!O<F%R:6QY"B @
ZM(" @(" @(" @(" @(" @(" @(" @(" @(" @86QT97(@=&AE(&1E8G5G9V5R
ZM('-T871E+@H*(" @(" @(" @(" @(" @(" @(" @("!T6RQ.72!%;F%B;&4@
ZM9G5N8W1I;VX@8V]N=')O;"!F;&]W("!T<F%C:6YG+@H@(" @(" @(" @(" @
ZM(" @(" @(" @(" @(" @(%1H92!M87AI;75M(&YE<W1I;F<@9&5P=&@@:7,@
ZM<W!E8VEF:65D"B @(" @(" @(" @(" @(" @(" @(" @(" @(" @8GD@3BP@
ZM86YD(&1E9F%U;'1S('1O(#(P,"X*"@H*"@H*"@H*"@H*"@H*"@H*"B @(" @
ZM(" @(" @(" @(" @(" @(" @(" @(" @(" @(" M(#$Y("T*"@H*"@H*"B @
ZM(" @("!$0E5'(%5S97(@36%N=6%L(" @(" @(" @(" @(" @(" @(" @(" @
ZM(" @4V5P=&5M8F5R(#DL(#$Y.#<*"@H*(" @(" @($@(2 A("$A)"$D(20A)
ZM3@A."$X(3E0(5 A4"%13"%,(4PA3($$(00A!"$%."$X(3@A.1 A$"$0(1"!-
ZM"$T(30A-20A)"$D(25,(4PA3"%-#"$,(0PA#10A%"$4(14P(3 A,"$Q,"$P(
ZM3 A,00A!"$$(04X(3@A."$Y%"$4(10A%3PA/"$\(3U4(50A5"%53"%,(4PA3
ZM"@H*(" @(" @(" @(" @3VYE(&]F('1H92!M;W-T('5S969U;"!C87!A8FEL
ZM:71I97,@;V8@=&AE(%\(9%\(8E\(=5\(9R!P86-K86=E"B @(" @("!I<R @
ZM=&\@(&-O;7!A<F4@('1H92 @97AE8W5T:6]N<R @;V8@(&$@9VEV96X@<')O
ZM9W)A;2!I;B!T=V\*(" @(" @(&1I9F9E<F5N="!E;G9I<F]N;65N=',N("!4
ZM:&ES(&ES('1Y<&EC86QL>2!D;VYE(&)Y(&5X96-U=&EN9PH@(" @(" @=&AE
ZM('!R;V=R86T@:6X@=&AE(&5N=FER;VYM96YT('=H97)E(&ET(&)E:&%V97,@
ZM<')O<&5R;'D@86YD"B @(" @("!S879I;F<@=&AE(&1E8G5G9V5R(&]U='!U
ZM="!I;B!A(')E9F5R96YC92!F:6QE+B @5&AE('!R;V=R86T*(" @(" @(&ES
ZM("!T:&5N("!R=6X@=VET:"!I9&5N=&EC86P@:6YP=71S(&EN('1H92!E;G9I
ZM<F]N;65N="!W:&5R90H@(" @(" @:70@(&UI<V)E:&%V97,@(&%N9" @=&AE
ZM("!O=71P=70@(&ES("!A9V%I;B @8V%P='5R960@(&EN("!A"B @(" @("!R
ZM969E<F5N8V4@(&9I;&4N(" @5&AE("!T=V\@(')E9F5R96YC92 @9FEL97,@
ZM(&-A;B @=&AE;B @8F4*(" @(" @(&1I9F9E<F5N=&EA;&QY(&-O;7!A<F5D
ZM('1O(&1E=&5R;6EN92!E>&%C=&QY('=H97)E(&5X96-U=&EO;@H@(" @(" @
ZM;V8@=&AE('1W;R!P<F]C97-S97,@9&EV97)G97,N"@H*(" @(" @(" @(" @
ZM02 @<F5L871E9" @=7-A9V4@(&ES("!R96=R97-S:6]N("!T97-T:6YG("!W
ZM:&5R92 @('1H90H@(" @(" @97AE8W5T:6]N(" @;V8@("!A(" @8W5R<F5N
ZM=" @=F5R<VEO;B @:7,@(&-O;7!A<F5D("!A9V%I;G-T"B @(" @("!E>&5C
ZM=71I;VYS(&]F('!R979I;W5S('9E<G-I;VYS+B @5&AI<R!I<R!M;W-T("!U
ZM<V5F=6P@('=H96X*(" @(" @('1H97)E(&%R92!O;FQY(&UI;F]R(&-H86YG
ZM97,N"@H*(" @(" @(" @(" @270@:7,@;F]T(&1I9F9I8W5L="!T;R!M;V1I
ZM9GD@86X@97AI<W1I;F<@(&-O;7!I;&5R("!T;PH@(" @(" @:6UP;&5M96YT
ZM("!S;VUE("!O9B @=&AE("!F=6YC=&EO;F%L:71Y("!O9B!T:&4@7PAD7PAB
ZM7PAU7PAG('!A8VMA9V4*(" @(" @(&%U=&]M871I8V%L;'DL('=I=&AO=70@
ZM<V]U<F-E(&-O9&4@8VAA;F=E<R @=&\@('1H92 @<')O9W)A;0H@(" @(" @
ZM8F5I;F<@9&5B=6=G960N("!);B!F86-T+"!S=6-H(&-H86YG97,@=V5R92!I
ZM;7!L96UE;G1E9"!I;B!A"B @(" @("!V97)S:6]N(&]F('1H92!0;W)T86)L
ZM92!#($-O;7!I;&5R(&)Y("!T:&4@(&%U=&AO<B @:6X@(&QE<W,*(" @(" @
ZM('1H86X@(&$@(&1A>2X@("!(;W=E=F5R+" @:70@:7,@<W1R;VYG;'D@96YC
ZM;W5R86=E9"!T:&%T(&%L; H@(" @(" @;F5W;'D@9&5V96QO<&5D(&-O9&4@
ZM8V]N=&EN=64@=&\@=7-E('1H92!D96)U9V=E<B!M86-R;W,@9F]R"B @(" @
ZM("!T:&4@("!P;W)T86)I;&ET>2 @(')E87-O;G,@(&YO=&5D("!E87)L:65R
ZM+B @(%1H92 @;6]D:69I960*(" @(" @(&-O;7!I;&5R('-H;W5L9"!B92!U
ZM<V5D(&]N;'D@9F]R('1E<W1I;F<@97AI<W1I;F<@<')O9W)A;7,N"@H*"@H*
ZM"@H*"@H*"@H*"@H*"@H*"@H*"B @(" @(" @(" @(" @(" @(" @(" @(" @
ZM(" @(" @(" M(#(P("T*"@H*"@H*"B @(" @("!$0E5'(%5S97(@36%N=6%L
ZM(" @(" @(" @(" @(" @(" @(" @(" @(" @4V5P=&5M8F5R(#DL(#$Y.#<*
ZM"@H*(" @(" @($,(0PA#"$-!"$$(00A!5@A6"%8(5D4(10A%"$5!"$$(00A!
ZM5 A4"%0(5%,(4PA3"%,*"@H@(" @(" @(" @("!4:&4@7PAD7PAB7PAU7PAG
ZM('!A8VMA9V4@=V]R:W,@8F5S="!W:71H("!P<F]G<F%M<R @=VAI8V@@(&AA
ZM=F4*(" @(" @(")L:6YE(&]R:65N=&5D(B @;W5T<'5T+" @<W5C:" @87,@
ZM('1E>'0@<')O8V5S<V]R<RP@9V5N97)A; H@(" @(" @<'5R<&]S92!U=&EL
ZM:71I97,L(&5T8RX@($ET(&-A;B!B92 @:6YT97)F86-E9" @=VET:" @<V-R
ZM965N"B @(" @("!O<FEE;G1E9" @<')O9W)A;7,@('-U8V@@87,@=FES=6%L
ZM(&5D:71O<G,@8GD@<F5D969I;FEN9R!T:&4*(" @(" @(&%P<')O<')I871E
ZM(&UA8W)O<R!T;R!C86QL('-P96-I86P@9G5N8W1I;VYS(&9O<B @9&ES<&QA
ZM>6EN9PH@(" @(" @=&AE("!D96)U9V=E<B @<F5S=6QT<RX@("!/9B @8V]U
ZM<G-E+" @=&AI<R @8V%V96%T("!I<R @;F]T"B @(" @("!A<'!L:6-A8FQE
ZM(&EF('1H92!D96)U9V=E<B!O=71P=70@:7,@<VEM<&QY("!D=6UP960@(&EN
ZM=&\@(&$*(" @(" @(&9I;&4@9F]R('!O<W0M97AE8W5T:6]N(&5X86UI;F%T
ZM:6]N+@H*"B @(" @(" @(" @(%!R;V=R86US('=H:6-H('5S92!M96UO<GD@
ZM(&%L;&]C871I;VX@(&9U;F-T:6]N<R @;W1H97(*(" @(" @('1H86X@(&T(
ZM;0AM"&UA"&$(80AA; AL"&P(;&P(; AL"&QO"&\(;PAO8PAC"&,(8R @=VEL
ZM;" @=7-U86QL>2!H879E('!R;V)L96US('5S:6YG('1H92!S=&%N9&%R9 H@
ZM(" @(" @7PAD7PAB7PAU7PAG('!A8VMA9V4N("!4:&4@;6]S="!C;VUM;VX@
ZM<')O8FQE;2!I<R!M=6QT:7!L>2!A;&QO8V%T960*(" @(" @(&UE;6]R>2X*
ZM"@H*"@H*"@H*"@H*"@H*"@H*"@H*"@H*"@H*"@H*"@H*"@H*"B @(" @(" @
ZM(" @(" @(" @(" @(" @(" @(" @(" @(" M(#(Q("T*"@H*"@H*"@H*(" @
ZM(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @1"!"(%4@1PH*(" @(" @
ZM(" @(" @(" @(" @(" @("!#(%!R;V=R86T@1&5B=6=G:6YG(%!A8VMA9V4*
ZM"B @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(&)Y"ALY"B @
ZM(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @1G)E9"!&:7-H"ALY"@H*
ZM(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @7PA!7PA"7PA37PA4
ZM7PA27PA!7PA#7PA4"@H*"B @(" @("!4:&ES(&1O8W5M96YT(&EN=')O9'5C
ZM97,@7PAD7PAB7PAU7PAG+"!A("!M86-R;R @8F%S960@($,@(&1E8G5G9VEN
ZM9PH@(" @(" @<&%C:V%G92 @=VAI8V@@(&AA<R @<')O=F5N('1O(&)E(&$@
ZM=F5R>2!F;&5X:6)L92!A;F0@=7-E9G5L"B @(" @("!T;V]L(&9O<B!D96)U
ZM9V=I;F<L('1E<W1I;F<L(&%N9"!P;W)T:6YG($,@<')O9W)A;7,N"@H*(" @
ZM(" @(" @(" @06QL(&]F('1H92!F96%T=7)E<R!O9B!T:&4@7PAD7PAB7PAU
ZM7PAG('!A8VMA9V4@8V%N(&)E("!E;F%B;&5D"B @(" @("!O<B @9&ES86)L
ZM960@9'EN86UI8V%L;'D@870@97AE8W5T:6]N('1I;64N("!4:&ES(&UE86YS
ZM('1H870*(" @(" @('!R;V1U8W1I;VX@<')O9W)A;7,@=VEL;"!R=6X@;F]R
ZM;6%L;'D@=VAE;B!D96)U9V=I;F<@:7,@(&YO= H@(" @(" @96YA8FQE9"P@
ZM(&%N9" @96QI;6EN871E<R @=&AE(&YE960@=&\@;6%I;G1A:6X@='=O('-E
ZM<&%R871E"B @(" @("!V97)S:6]N<R!O9B!A('!R;V=R86TN"@H*(" @(" @
ZM(" @(" @36%N>2 @(&]F(" @=&AE(" @=&AI;F=S(" @96%S:6QY(" @86-C
ZM;VUP;&ES:&5D(" @=VET: H@(" @(" @8V]N=F5N=&EO;F%L("!D96)U9V=I
ZM;F<@('1O;VQS+" @<W5C:"!A<R!S>6UB;VQI8R!D96)U9V=E<G,L"B @(" @
ZM("!A<F4@9&EF9FEC=6QT(&]R(&EM<&]S<VEB;&4@('=I=&@@('1H:7,@('!A
ZM8VMA9V4L("!A;F0@('9I8V4*(" @(" @('9E<G-A+B @(%1H=7,@=&AE(%\(
ZM9%\(8E\(=5\(9R!P86-K86=E('-H;W5L9"!?"&Y?"&]?"'0@8F4@=&AO=6=H
ZM="!O9B!A<R!A"B @(" @("!R97!L86-E;65N="!O<B!S=6)S=&ET=71E(&9O
ZM<B @;W1H97(@(&1E8G5G9VEN9R @=&]O;',L("!B=70*(" @(" @('-I;7!L
ZM>2 @87,@(&$@=7-E9G5L(%\(85\(9%\(9%\(:5\(=%\(:5\(;U\(;B!T;R!T
ZM:&4@<')O9W)A;2!D979E;&]P;65N="!A;F0*(" @(" @(&UA:6YT96YA;F-E
ZL(&5N=FER;VYM96YT+@H*"@H*"@H*"@H*"@H*"@H*"@H*&SD;.0H*"@H*"@IE
Z 
Zend
STUNKYFLUFF
set `sum user.t.uue`
if test 62988 != $1
then
echo user.t.uue: Checksum error. Is: $1, should be: 62988.
fi
echo ALL DONE BUNKY!
exit 0