HDTenEightyP/NetNews huggingface dataset:
From: muller@bismol.pa.dec.com (Eric Muller)
Subject: Re: Public domain M3 wanted
Keywords: Modula3
Organization: DEC Systems Research Center
Date: Fri, 21 Aug 92 17:03:49 GMT

In article <leander.714421288@rkw-risc>, leander@rkw-risc.cs.up.ac.za (Leander Conradie) writes:
|> Does anybody know about a public domain version for Modula3, for either Unix or DOS? Any help will be greatly appreciated. 

There is no public domain implementation, but there a freely available
implementation of Modula-3, available via anonymous ftp from
gatekeeper.dec.com, in pub/DEC/Modula-3.

-- 
Eric.
From: jjw1@barney.gte.com (Jim Walker)
Newsgroups: comp.lang.modula3
Subject: Re: SRC Modula-3 compiler on HP Series 700
Date: 12 Aug 92 13:26:39 GMT
Organization: GTE Laboratories, Incorporated

In article <1048@ceylon.gte.com> Jim Walker writes:
|> I know there has been great interest expressed in this group regarding a
|> port of the DEC SRC Modula-3 compiler to the HP 9000/Series 700's.  Well,
|> the good news is that I have version 2.07 of the compiler and runtime up
|> and running!  ...

I knew that I forgot to mention something in my previous post...

Many, many, many thanks to the folks at DEC SRC, not only for all of their
help in getting me through this port (which, by the way, did/does include
changing source on their part as well), but also for giving us all Modula-3
to begin with.  Lotsa' pats on the backs, guys.

Back to work on finishing up the details...
...Walker

--------
James Walker  <jjw1@gte.com>
GTE Laboratories, Waltham, MA
Newsgroups: comp.lang.modula3
From: laverman@cs.rug.nl (Bert Laverman)
Subject: Problems with vbtapps...
Originator: laverman@rug16
Organization: Dept. of Computing Science, Groningen University
Date: Tue, 18 Aug 1992 12:46:24 GMT


(This is about the SPARC 2.07 version of SRC-m3)

Having recently managed to find a machine with enough memory to build
the vbtkit and formsvbt libraries, I then tried to build the vbtapps.
Alas, though they compiled ok, I have not managed to run any of the
programs. They all abort before doing anything visible with:

***
*** runtime error:
***    Bus error - possible thread stack overflow
***    pc = 0xf7ffe820 = YPQ.YPQFromRGB + 0x98c8b8
***

This particular message came from Cube, but Calculator, miniformsedit,
etc. all produce this problem.

YPQ appears not to be a vbtkit or formsvbt routine, but its interface
is in the standard include directory. Since I can't keep all sources
online, I don't know where this error comes from. Is _this_ one of the
optimization problems (I used -O for libm3, X, and trestle)?

Greetings, Bert
-- 
#include <std/disclaimer>

  Bert Laverman,  Dept. of Computing Science, Groningen University
  Friendly mail to: laverman@cs.rug.nl      The rest to: /dev/null
Newsgroups: comp.lang.modula3
From: leander@rkw-risc.cs.up.ac.za (Leander Conradie)
Subject: Public domain M3 wanted
Summary: Public Domain Modula3 wanted
Date: 21 Aug 92 18:21:28 GMT
Organization: University of Pretoria, South Africa
Keywords: Modula3

Does anybody know about a public domain version for Modula3, for either Unix or DOS? Any help will be greatly appreciated. 

Leander Conradie
----------------->
leander@up.ac.za
From: wyant@centerline.com
Newsgroups: comp.lang.modula3
Subject: Should linker warn about unimplemented methods ?
Date: 12 Aug 92 15:48:58 GMT
To: m3

I just spent some time tracking down a crash which caused
by my failure to add an method override connecting an
abstract operation in an opaque type to the corresponding
implementation method. I had written the method, I had merely
forgotten to add it to the "OVERRIDES".

Is the lack to provide overrides for methods in opaque types
soemthing the prelinker could check for ? Is this a bug that
that typically occurs once for most people and never again ?

--geoff
Newsgroups: comp.lang.modula3
From: Mike_Spreitzer.PARC@xerox.com
Subject: Type dependency analyzer
To: m3
X-Ns-Transport-Id: 0000AA007B74C9A42E3E
Cc: Mike_Spreitzer.PARC@xerox.com
Date: Thu, 13 Aug 1992 09:51:22 PDT

I'd like to build a tool that finds all the places in a corpus of code that
depend on CHAR having only 256 elements.  I'd like to build this tool on top of
the most functional substrate available.  As far as I know, m3tk is the
substrate that provides more of what I need than any other available substrate.
Does anyone have anything better (or perhaps the tool I'm looking for)?

Mike
From: rickb@farfle.farfle.asd.sgi.com (Rick Braumoeller)
Newsgroups: comp.lang.perl
Subject: write/format bug
Date: 13 Aug 92 01:38:51 GMT
Distribution: comp
Organization: Silicon Graphics, Inc.

A Perl script that I use goes into several directories and
collects information about the files in them.  It then summarizes
using "write".  Sometimes the information can be multi-lined,
so I'd like to get output like this:

Directory  |  Comments
-----------+----------------------------------
dir1       |  This and that
foo        |  A longer comment, that spans two
           |  lines

For this, I am using the following format:

format STDOUT =
@<<<<<<<<< |  ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$dir,         $results{$dir}
~~         |  ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
              $results{$dir}
.

However, when I run with this format, Perl goes into some kind
of infinite loop when I do the first 'write' - slowly
consuming memory.  If I get rid of the | from the continuation
line, like this,

format STDOUT =
@<<<<<<<<< |  ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$dir,         $results{$dir}
~~            ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
              $results{$dir}
.

everything works fine, but my output isn't as nice.

Have I stumbled on something?  If you can't reproduce this
behavior, I'll gladly forward my script to you.

Insight greatly appreciated... 

(BTW, using Patch level: 35)
From: jburney@seamis1.gsfc.nasa.gov (Jeff Burney)
Newsgroups: comp.lang.perl
Subject: Please send me a sample ftp.pl command line
Summary: Need help with ftp.pl
Keywords: ftp.pl
Date: 17 Aug 92 15:07:48 GMT
Distribution: na
Organization: Goddard Space Flight Center

perl is completely foreign to me and although I have been FTFMing
I can't figure out how to run the ftp.pl script.

I have tried:
	perl ftp.pl
	ftp.pl with #!/usr/bin/perl 
	perl ftp.pl <host to connect to>

Please e-mail me an example.  I seem to have everything needed but
the proper format for calling this routine.

Thanks inadvance,

--
Jeff Burney                     | Icky, Icky, Icky, Icky, Ptang,
jburney@seamis1.gsfc.nasa.gov   | Loomfong, Zowzing.
SES, Inc.  301-439-6617         |		- Holy Grail
NASA/Goddard Space Flight Center| 
Newsgroups: comp.lang.perl
From: ckd@eff.org (Christopher Davis)
Subject: another semi-useful 10-minute hack
Organization: Electronic Frontier Foundation Tech Central
Date: Fri, 14 Aug 1992 16:02:02 GMT

This is just another perlvangelistic posting showing how you can easily
toss together a bit of perl code to do something useful.

this will print the lastlog entry for a user, or you if you don't specify.

took about 10 minutes; the main "problem" was a typo ($llty for $lltty)
which -w caught nicely.

#!/usr/bin/perl -- # -*- Perl -*-

# based on lastlog.h, so change it if you must
# assumes Sun format, time_t is a 4byte long, line is 8 chars, host is 16 chars
# should use c2ph or something to do this right, it's a hack
require 'ctime.pl';

$lastlogfile = "/usr/adm/lastlog";
$lastlogfmt = "La8a16";
$lastlogsize = 28;

$username = shift(@ARGV) || getlogin;
$userid = (getpwnam($username))[2];

open(LASTLOG,"<$lastlogfile");

seek(LASTLOG,$lastlogsize*$userid,0);

read(LASTLOG,$lastlogentry,$lastlogsize);

($lltime,$lltty,$llhost) = unpack($lastlogfmt,$lastlogentry);

chop($lldate = &ctime($lltime));

print "last login for $username: $lldate on line $lltty";
print " from host $llhost" if $llhost;
print "\n";
--
Christopher Davis * ckd@eff.org * System Administrator, EFF * +1 617 864 0665
            ``Ed Gruberman, you fail to grasp Ti Kwan Leep.
            Approach me that you might see.'' -- The Master
Newsgroups: comp.lang.perl
From: loew@rtsg.mot.com (Dean R. Loew)
Subject: tcl vs. perl - Please help
Organization: Motorola Inc., Cellular Infrastructure Group
Date: Wed, 12 Aug 1992 17:56:26 GMT

I am brand new to this group - if this has been asked, please -
		Flame me not.

A while back I read an article (cant remember from what group)
which compared perl against several other languages, including

	tcl, python, C

This article was very pro-tcl, anti-perl.  I like perl very much
from the few months I have used it, and would like a 
comparison of perl and tcl (especially some of the features
perl has which tcl does not).

Any help would be great.

Dean Loew
Motorola Inc.
708-632-6774
Newsgroups: comp.lang.perl
From: daves@techmpc.csg.gss.mot.com (Dave Schmitt)
Subject: Re: #! Emulation in MSDOS _AND_ UNIX
Organization: Motorola Cellular Subscriber Group MIS
Date: Thu, 13 Aug 1992 19:30:08 GMT
Summary: Can it be done?

markd@silogic.uucp (Mark C. DiVecchio (K3FWT)) writes:

>In a recent posting, I saw a reference to #! emulation in MSDOS.  The
>posting showed a code fragment which was to be place at the front of the
>file:

I missed the earlier posting.  I wonder, has anyone figured out how to
combine the MSDOS hack with the sh/csh work-around for Unices without #! ?
(a universal code fragment for _truly_ portable Perl scripts :-).




-- 
David Schmitt, Database/Systems Administrator	Voice: (708)632-5562
Cellular Subscriber Group MIS			FAX:   (708)632-4421
Motorola, Inc., Room S356			Email: daves@csg.gss.mot.com
1475 W. Shure Dr., Arlington Hts, IL 60004
From: lwall@netlabs.com (Larry Wall)
Newsgroups: comp.lang.perl
Subject: Re: open(lockfile, O_CREAT|O_WRONLY|O_EXCL, 0444) in perl?
Keywords: lock file
Date: 19 Aug 92 17:31:04 GMT
Organization: NetLabs, Inc.

In article <1992Aug19.082244.61337@ilx018.intel.com> steed@ilws14 (Ze'ev Shtadler) writes:
: I'd like to have a perl script that uses a lock file as a semaphore
: across NFS of diverse hardware platforms and operating systems.  I was
: told, this is the only "real safe" way to ensure exclusive access
: between processes on different machines (I know this does not apply to
: processes not bothering to lock :-).  Can that be done from within
: perl?

Certainly.

    open(MYFILE,">$LOCKDIR/LOCK.$$"); print MYFILE $$,"\n"; close MYFILE;
    while (!link("$LOCKDIR/LOCK.$$", "$LOCKDIR/LOCK")) {
	print "WAITING FOR THE STUPID LOCK!!!!!\n";
	sleep 17;
    }

    ...

    unlink "$LOCKDIR/LOCK.$$", "$LOCKDIR/LOCK";

Larry
From: tmhoff@oogoody.Corp.Sun.COM (Todd Hoff)
Newsgroups: comp.lang.perl
Subject: What's the best idiom for storing keyed records?
Date: 17 Aug 1992 23:09:09 GMT
Organization: Sun Microsystems, Inc.
Distribution: world
Reply-To: tmhoff@oogoody.Corp.Sun.COM
NNTP-Posting-Host: oogoody.corp.sun.com


How in the heck do I store a list in an associative array?
I want to store a datbase record in an array, but it seems
an associative array only stores strings. This must be
a common problem. I would like to see how others have solved it.

I can think of creating an array for every record field, but this
seems crude.


Thanx
From: ram@eiffel.com (Raphael Manfredi)
Newsgroups: comp.lang.perl
Subject: When did $/ behaviour appear?
Date: 12 Aug 92 16:09:10 GMT
Followup-To: poster
Organization: Interactive Software Engineering, Santa Barbara CA

I'd like to know when (i.e. base revision plus patchlevel) perl
did get the following $/ behaviour:

	$/ = "}\n";
	$perl_function = <FILE>;

The above is trying to read in a single pass a whole perl function.
It works of course for 4.0 PL35, but I found out that it does not
work with 3.0 PL44. The answer lies somewhere between....

Thank you.
-- 
Raphael Manfredi <ram@eiffel.com>
Interactive Software Engineering Inc.
270 Storke Road, Suite #7                      / Tel +1 (805) 685-1006 \
Goleta, California 93117, USA                  \ Fax +1 (805) 685-6869 /
Newsgroups: comp.lang.perl
From: ccechk@nuscc.nus.sg (Heng Kek)
Subject: Re: Applauds for Mr. Wall (LOUD)
Organization: National University of Singapore
Date: Thu, 20 Aug 1992 01:05:59 GMT

With regards to this thread, I, too, would like to add my vote of
superlative gratitude to the Perl Greats: Larry, Tom, Randal, 
and many others (including Perl's maternal uncle :) and Raymond)
who've helped me in some way or other.

I picked up Perl in May this year following the suggestion of a
colleague, and I've been hooked to it ever since.  Although still a
relative neophyte in Perl, my progress is speedier with this
newsgroup.  The contributions to this group make me feel that Perl
users are like a close-knit family, complete with uncles,
grandfathers and many children :).  I like it.  Although some of my
questions don't get answered at all, I assure myself that the Perl
Greats are hinting to me that "that's a stupid question, go RTFM or
get a clue from other postings/followups.." :)

I hope someday, I'll be able to answer questions in the newsgroup
rather than always asking them.

Thank you, thank you, thank you.

Heng Kek
Programmer
National University of Singapore
"I think I'm the 1st Perl programmer on this site."
From: anderson@zymurgy.bms.com (Jay Anderson)
Newsgroups: comp.lang.perl
Subject: help with ftp.pl/chat2.pl
Date: 12 Aug 92 22:59:26 GMT
Distribution: comp.lang.perl
Organization: BMS Pharmaceutical Research Institute

I'm trying to use ftp.pl without too much success.  I keep getting bombed out in
the eval of the following loop (really from chat2.pl).  Any ideas of what's going
awry?


&ftp'open( some_real_site.on.the.net, 21, 1, 1 )
sub expectloop000001 {
	LOOP: {
		if (0) { ; }
		elsif ($S =~ /^(221 .*)\015\n/) {
			$S = $';
		 	package ftp;
			&ftp'expectgot( $1, 0 ); 1;
		}
		elsif ($S =~ /^(500 .*)\015\n/) {
			$S = $';
		 	package ftp;
			&ftp'expectgot( $1, 0 ); 0;
		}
		elsif ($S =~ /^(.*)\015\n/) {
			$S = $';
		 	package ftp;
			&ftp'expectgot( $1, 0 ); 100;
		}
		elsif ($timeout) {
		 	package ftp;
			&ftp'expectgot( "timed out", 1 ); 0;
		}
		elsif ($eof) {
	 		package ftp;
			&ftp'expectgot( "remote server gone away", 1 ); 0;
		}
		else {
			$rmask = "";
			vec($rmask,fileno(S),1) = 1;
			($nfound, $rmask) =
		 		select($rmask, undef, undef, $endtime - time);
			if ($nfound) {
				$nread = sysread(S, $thisbuf, 1024);
				if ($nread > 0) {
					$S .= $thisbuf;
				} else {
					$eof++, redo LOOP; # any error is also eof
				}
			} else {
				$timeout++, redo LOOP; # timeout
			}
			redo LOOP;
		}
	}
}
:
syntax error in file (eval) at line 2, next 2 tokens "LOOP:"
syntax error in file (eval) at line 4, next 2 tokens "}
		elsif"
syntax error in file (eval) at line 8, next 2 tokens "}"
syntax error in file (eval) at line 13, next 2 tokens "}"
syntax error in file (eval) at line 18, next 2 tokens "}"
syntax error in file (eval) at line 22, next 2 tokens "}"
syntax error in file (eval) at line 26, next 2 tokens "}"
syntax error in file (eval) at line 43, next 2 tokens "}"





--
+---------------------------------------------------------------------+
| Jay Anderson - N3JMC          Internet: anderson@optical.bms.com    |
| Bristol-Myers Squibb Company      Work: (609)-252-6039              |
| Princeton, NJ 08543               Home: (215)-836-1225              |
| I have a dinosaur for a representative, he has a small brain and    |
|    refuses to learn.                                                |
+=====================================================================+
From: lwall@netlabs.com (Larry Wall)
Newsgroups: comp.lang.perl
Subject: Re: perl -de 0 question
Date: 18 Aug 92 17:01:52 GMT
Organization: NetLabs, Inc.

In article <1992Aug18.063546.27061@cactus.org> cheselka@cactus.org (Michael R. M. Cheselka) writes:
: I know how to get perl up and running in an interactive mode.  However, how
: can I save my work when I am done?

You could probably cobble up something using dumpvar.pl to save all your
variables, but it'd be gory.

: Also, can I "set ignoreeof"?  I seem to get droped out of perl alot.

You could make your own private perldb.pl and change the line that reads

	$cmd eq '' && exit 0;

to

	$cmd eq '' && (seek(IN, 0, 1), next CMD);

: Finally, does anyone have a simple program in
: perl that uses termcap?  I am looking for some kind of emacs style text
: entry example, esp. moving back and forth between lines( C^n and C^p) with
: a menu.

Check out Tom's Christiansen's plum program.  I don't know as I'd call it
"simple", but you can find a lot of good stuff in it.

Larry
Newsgroups: comp.lang.perl
From: rsnyder@atl.ge.com (Bob Snyder)
Newsgroups: comp.lang.perl
Subject: Perl "mail munger"
Date: 20 Aug 92 22:27:28 GMT
Organization: GE Aerospace, Advanced Technology Labs

Does anyone have a perl "mail munger" that goes thorugh the mail spool
directory, and chops up a user's mail file if it is too large, and moves
that piece someplace else?

This seems like something perl should be good at (I'm learning perl slowly, and
disecting a script like this would be beneficial).

Thanks...

Bob
-- 
Bob Snyder, Computing Services, GE Aerospace, Advanced Technology Labs
rsnyder@atl.ge.com, (609) 866-6672, FAX: (609) 866-6397, DialComm 8*777-6672
Newsgroups: comp.lang.perl
From: lezz@merlin.dev.cdx.mot.com (Lezz Giles)
Subject: Re: die hook
Reply-To: lezz@merlin.dev.cdx.mot.com (Lezz Giles)
Organization: Motorola Codex, Canton, MA
Date: Fri, 14 Aug 1992 15:35:25 GMT

In article <Aug.13.17.56.21.1992.22441@piecomputer.rutgers.edu>, mende@piecomputer.rutgers.edu (Bob Mende Pie) writes:
|>   I am currently working on a set of programs that use common "required"
|>packages.  I use the die command in many of the different monules and
|>packages.  Depending on what main program I use to invoke the program, I
|>would possibly like to add a "hook" to the die command that would run a
|>subroutine before exiting.  It could be used for cleaning up lockfiles,
|>saving the state of arrays, whatever.  Since I can not be sure how my
|>modules will be called this hook may or not be in existance.   Is there a
|>subroutine that die will try to call when it is invoked.   If not this
|>would be a useful addition.   It could be as simple as the perl code:
|>	&'die if defined &'die;

I have a similar situation in one of my tools - I simply always have
a subroutine (I call it &exit(), but it sounds like you should call
yours &die()) which does everything I want when the program is about
to finish.  You could put this die subroutine in yet another module
and have lots of 'require "die.pl";' statements scattered all over the
place.

As a side comment, it's interesting that as I get deeper and deeper into
Perl I find that often the builtin functions don't quite do what I want (e.g.
exit() doesn't tidy things up the way I want, system() doesn't handle
signals and stdout/stderr the way I want, etc. etc.), but I also find
that Perl is so flexible and powerful that I can almost always write
replacements that will do precisely what I want.  The only exceptions
that I've found so far, where I've had to drop down to C code programs
called via system(), are to find out the current action associated with
a signal (why, in Grod's name, isn't %SIG initialized at the beginning?),
and to find out full a filesystem is (which is probably pretty OS-dependent).

Lezz "learning to be yaph...." Giles
From: lwall@netlabs.com (Larry Wall)
Newsgroups: comp.lang.perl
Subject: Re: die hook
Date: 15 Aug 92 20:08:17 GMT
Organization: NetLabs, Inc.

In article <1992Aug14.153525.18568@merlin.dev.cdx.mot.com> lezz@merlin.dev.cdx.mot.com (Lezz Giles) writes:
: As a side comment, it's interesting that as I get deeper and deeper into
: Perl I find that often the builtin functions don't quite do what I want (e.g.
: exit() doesn't tidy things up the way I want, system() doesn't handle
: signals and stdout/stderr the way I want, etc. etc.), but I also find
: that Perl is so flexible and powerful that I can almost always write
: replacements that will do precisely what I want.  The only exceptions
: that I've found so far, where I've had to drop down to C code programs
: called via system(), are to find out the current action associated with
: a signal (why, in Grod's name, isn't %SIG initialized at the beginning?),
: and to find out full a filesystem is (which is probably pretty OS-dependent).

Loading up %SIG takes a significant number of system calls, which is a
lot of unnecessary overhead for the many programs that don't care.  I
suppose I could do it lazily though, and just make it look as though it
were that way from the start.  If you sent me a patch to do it that way,
I'd probably include it.

Filesystem crud is very much OS-dependent.  Your best bet is to try to
parse the output of df.  You can almost always depend on finding a %
character on the percentage-full field, but the real trick is to find
out which filesystem it applies to.  Unfortunately, many versions of
df don't work on any arbitrary file, you have to point them explicitly
at the mount point.  This is silly, since every inode knows the device
it's in.

The other silly thing is that df is one of those programs (along with
ps and ESPECIALLY nm) whose output format is CONTINUALLY being screwed
around with because CERTAIN so-called developers think that these
programs' output is to be read only by humans.  Would somebody PLEASE
give these danglesockets a CLUE about how Unix works?  Excuse me, how
Unix OUGHT to work...

[Whew.  That feels much better.  But go look at Configure someday, and
count how many ways there are to extract the names of functions from a
library.  Be sure to count the variants that are handled by tricky
little regular expressions and optional switches.  You should get
an answer somewhere between 15 and 30.  I think I'm starting to feel
worse again...]

Larry
From: merlyn@romulus.reed.edu (Randal L. Schwartz)
Newsgroups: comp.lang.perl
Subject: Re: Q: nroff output to Epson-like printer conversion
Date: 12 Aug 92 14:03:41 GMT
Article-I.D.: romulus.MERLYN.92Aug12070337
Organization: Reed College

In article <1992Aug12.074509.703@irfu.se> jhd@irfu.se (Jan D.) writes:
   How about

	   # Assuming one line of nroff output in $_
	   while (/((.\010_)+)/){
		   local($old, $word) = $1;
		   ($word = $old) =~ s/\010_//g;
		   s/$old/$begin_uline$word$end_uline/;
	   }

That looks like a lot of work.  How about:

	s/(.)\010_/$begin_uline$1$end_uline/g;
	s/$end_uline$begin_uline//g;

You could also do bold like:

	s/(.)\010\1/$begin_bold$1$end_bold/g;
	s/$end_bold$begin_bold//g;

presuming bolding is done by putting the same character twice in the
same spot.  (If not, consider this merely a training exercise. :-)

@a=("1Perl ","3Just ","0hacker,","2another ");for(@a[@a]){s/.//;print;}
--
Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
merlyn@reed.edu (guest account) merlyn@ora.com (better for permanent record)
cute quote: "Welcome to Portland, Oregon -- home of the California Raisins!"
Newsgroups: comp.lang.perl
From: mark@drd.com (Resident.Alien)
Subject: Re: What's the best idiom for storing keyed records?
Organization: DRD Corporation
Date: Thu, 20 Aug 1992 20:16:40 GMT

Tom C. wrote:
  is the name of that person's parent.  Make sure you remember that
  $parent{'adam'} is 'adam'. :-) With a little care, this approach can

jhd@irfu.se (Jan D.) wrote:
  $parent{'adam'} is 'god' and $parent{'god'} is 'god', no? :-)

In article <mcook.714235574@fendahl.dev.cdx.mot.com> mcook@fendahl.dev.cdx.mot.com (Michael Cook) writes:
  I think Voltaire said that $parent{'god'} is 'man'. :-)

and when he died, he stayed dead.  So much for his credibility.
-- 
mark.lawrence@drd.com                                     (918)743-3013
DRD Corp., 5506 South Lewis Ave., Tulsa, OK 74105         (918)745-9037 fax