v06i022: Manual page for context program (context.1)

[sources-request at mirror.UUCP]

Submitted by: cbosgd!pegasus!hansen
Mod.sources: Volume 6, Issue 22
Archive-name: context.1

[ Tony Hansen sent me article <728 at ncoast.UUCP> from net.sources, a
  manual page for the recently-posted context program.  It was
  written by Jyrki Yli-Nokari (...!mcvax!enea!tut!jty).  Tony
  also rightly takes me to task for letting things out without
  any manpages.  He's right ("a little quality control goes a long
  way"); it won't happen again.  --r$]

--------------------CUT HERE--------------------
#!/bin/sh
# This is a shell archive.  Remove anything before this line,
# then unpack it by saving it in a file and typing "sh file".
# Contents:  context.1
 
echo x - context.1
sed 's/^XX//' > "context.1" <<'@//E*O*F context.1//'
XX.TH CONTEXT 1 "6 June 1985"
XX.\" $Header: context.c,v 1.4 85/05/27 21:51:34 bsa Exp $
XX.SH NAME
XXcontext \- find context of lines
XX.SH SYNOPSIS
XX.B context
XX[
XX.B nr_of_lines
XX]
XX.PP
XX.SH DESCRIPTION
XX.I Context
XXfinds the context of located text. It accepts for example
XXcc(1) diagnostics as standard input and gives you the context.
XX.SH OPTIONS
XXIf the optional argument; a number `nr_of_lines' is given,
XXcontext(1) prints that much context before
XXand after the line in question.
XX.SH EXAMPLES
XX.nf
XX% cc foo.c |& context
XX**************
XX* "foo.c", line 5: warning: old-fashioned initialization: use =
XX*****
XX  
XX  main() {
XX  	int i;
XX* 	long ix.v;
XX  	
XX  	i = getpid();
XX  	if (ix_v = getchar() == EOF)

XX**************
XX* "foo.c", line 5: syntax error
XX*****
XX  
XX  main() {
XX  	int i;
XX* 	long ix.v;
XX  	
XX  	i = getpid();
XX  	if (ix_v = getchar() == EOF)

XX**************
XX* "foo.c", line 5: warning: old-fashioned initialization: use =
XX*****
XX  
XX  main() {
XX  	int i;
XX* 	long ix.v;
XX  	
XX  	i = getpid();
XX  	if (ix_v = getchar() == EOF)

XX**************
XX* "foo.c", line 5: v undefined
XX*****
XX  
XX  main() {
XX  	int i;
XX* 	long ix.v;
XX  	
XX  	i = getpid();
XX  	if (ix_v = getchar() == EOF)

XX**************
XX* "foo.c", line 8: ix_v undefined
XX*****
XX  	long ix.v;
XX  	
XX  	i = getpid();
XX* 	if (ix_v = getchar() == EOF)
XX  		exit(1);
XX  	exit(0);
XX  }


XX%
XX.fi
XX.SH "SEE ALSO"
XXcc(1), grep(1)
XX.SH AUTHOR
XXCopyright (C) 1985 by North Coast Programming.

XXThis program, and any documentation for it, is copyrighted by North Coast
XXProgramming.  It may be copied for non-commercial use only, provided that
XXany and all copyright notices are preserved.

XXPlease report any bugs and/or fixes to:

XX.nf
XXNorth Coast Programming
XX6504 Chestnut Road
XXIndependence, OH 44131

XX\&...decvax!cwruecmp!ncoast!bsa
XXncoast!bsa at Case.CSNet

XXThis manual page by ...!mcvax!enea!tut!jty (Jyrki Yli-Nokari), to
XXwhom I give many thanks.
@//E*O*F context.1//
chmod u=rw,g=rw,o=rw context.1
 
echo Inspecting for damage in transit...
temp=/tmp/sharin$$; dtemp=/tmp/sharout$$
trap "rm -f $temp $dtemp; exit" 0 1 2 3 15
cat > $temp <<\!!!
     100     290    1850 context.1
!!!
wc  context.1 | sed 's=[^ ]*/==' | diff -b $temp - >$dtemp
if test -s $dtemp
then echo "Ouch [diff of wc output]:" ; cat $dtemp
else echo "No problems found."
fi
exit 0