HDTenEightyP/NetNews huggingface dataset:
From: twhlai@watdragon.waterloo.edu (Tony Lai)
Subject: Re: why modula3?
Organization: University of Waterloo
Date: Mon, 6 Apr 1992 20:05:15 GMT

In article <=q9H4j2i6@cs.psu.edu> schwartz@groucho.cs.psu.edu (Scott Schwartz) writes:
>Elsewhere, people will recognize that it explicitly admits that there
>is a very serious problem with m3, one which requires complex and
>expensive tools to work around.  Many of those people will walk away
>from m3 forever, never giving it a fair chance, thinking to
>themselves, 'Upper case identifiers...  must be a toy language.'
[stuff deleted]

Are uppercase keywords really so bad?  It is simple to write a program
to convert one's favorite lowercase keywords to proper uppercase keywords.
Newsgroups: comp.lang.modula3
From: muller@src.dec.com (Eric Muller)
Subject: archive of comp.lang.modula3 for March 1992
Reply-To: muller@src.dec.com (Eric Muller)
Organization: DEC Systems Research Center
Date: Mon, 6 Apr 92 13:25:45 PDT

The archive of the messages sent to comp.lang.modula3 in March 1992
is now available in:

	gatekeeper.dec.com:pub/DEC/Modula-3/comp.lang.modula3/92-03.Z

Achives for the previous months are available in the same directory.

----
Eric.
From: pfrants@cs.vu.nl (Frants P)
Newsgroups: comp.lang.modula3
Subject: GATEKEEPER!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Date: 6 Apr 92 09:19:01 GMT
Organization: Fac. Wiskunde & Informatica, Vrije Universiteit, Amsterdam

Why does gatekeeper.dec.com not recognize "anonymous"?


When will this problem be out of this world???????
Newsgroups: comp.lang.modula3
From: David Nichols <nichols@parc.xerox.com>
Subject: SunRPC implementation available
To: m3
Date: Tue, 7 Apr 1992 11:19:21 PDT

[I tried posting this from my news reader, but doesn't seem to have made
it outside of PARC.  My apologies if you see it twice.]

Our Modula-3 implementation of Sun RPC is now available for anonymous
ftp.  It consists of a stub compiler (based on rpcgen) that produces
object-oriented Modula-3 stubs and a runtime that is thread-safe
(although clients have some synchronization responsibilities).  There is
no support for authentication yet.  It has received some testing and use
here, but has not been used extensively.

The code is available on parcftp.xerox.com as "pub/m3/m3rpc.tar.Z".  For
your one-stop shopping convenience, I have also placed in that directory
a copy of the Modula-3 tags package David Goldberg announced recently.

Please send any bugs, comments, etc. to me (nichols@parc.xerox.com).

	David
From: dagenais@vlsi.polymtl.ca (Michel Dagenais)
Newsgroups: comp.lang.modula3
Subject: RPCVBT imports RPC in Trestle?
Date: 13 Apr 92 14:57:06 GMT
Organization: Ecole Polytechnique de Montreal, Canada

The interface RPCVBT in Trestle imports RPC in order to have a Trestle
application distributed among many processes. We are directly interested
in such applications and tried without success to find the RPC interface.
Indeed, it probably defines how the processes find themselves and send and
receive messages. Is it there somewhere but not installed in the usual
place or is it missing?
--
---------------------------------------------------------------------

Prof. Michel Dagenais			    dagenais@vlsi.polymtl.ca
Dept of Electrical and Computer Eng.
Ecole Polytechnique de Montreal		    tel: (514) 340-4029

---------------------------------------------------------------------
From: msm@.dec.com (Mark S. Manasse)
Newsgroups: comp.lang.modula3
Subject: Re: RPCVBT imports RPC in Trestle?
Date: 14 Apr 92 13:32:27 GMT
Article-I.D.: src.1992Apr14.063227.11740
Organization: DEC Systems Research Center


Regrettably, that interface doesn't currently have a Modula-3 implementation.

In addition to the Modula-3 Trestle, Greg, Steve, and I were maintaining
a Modula-2+ version, where RPC was real.  Even for those parts of the
system that we couldn't (yet) build in M3, we did the design in M3.  RPCVBT
is such a stub.

I don't know whether it would be easy to use PARC's port of Sun RPC to
do this.

Mark
Newsgroups: comp.lang.modula3
From: mday@jukebox.lcs.mit.edu (Mark Day)
Subject: Re: C++ Critique in comp.lang.c++
Organization: /u/mday/.organization
	<1992Apr16.053750.17955@syacus.acus.oz.au>
Date: Thu, 16 Apr 1992 16:23:57 GMT

   ian@syacus.acus.oz.au (Ian Joyner) writes:

   >msm@src.dec.com (Mark S. Manasse) writes:

   >Ian argues that 0-ary procedures shouldn't need parentheses, just as
   >variables don't.  Well, maybe, but procedure calls don't have
   >L-values.  That is, it's an abuse of mathematical thinking to think of
   >variables as 0-ary functions.

   No, I think the abuse to mathematical thinking is the assignment
   statement.

No, I think the abuse to computational thinking is trying to squeeze
it into a framework of mathematical thinking.

I think you are both making reasonable points about language design
elsewhere in your articles, but I don't think very highly of this
implicit assumption that a programming language is better as it comes
nearer to mathematical thinking.  

--Mark Day

mday@lcs.mit.edu
From: David Nichols <nichols@parc.xerox.com>
Subject: new m3rpc
To: m3
Date: Wed, 8 Apr 1992 11:32:04 PDT

I've placed a new copy of our RPC code on
parcftp.xerox.com:pub/m3/m3rpc.tar.Z.  This version fixes two problems
in the stub compiler: 1) strdup should no longer appear as an undef, and
2) a situation where a non-compiling stub was generated has been fixed. 
This could only happen if there was no program defined in the .x file.

The new version looks like this:

-rw-r--r--  1 nichols  parc       114065 Apr  8 11:26 m3rpc.tar.Z

Bugs, etc. to me at nichols@parc.xerox.com.

	David
Newsgroups: comp.lang.modula3
From: muller@src.dec.com (Eric Muller)
Subject: Re: GATEKEEPER!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Reply-To: muller@src.dec.com (Eric Muller)
Organization: DEC Systems Research Center
Date: Mon, 6 Apr 92 16:04:42 PDT

In article <1992Apr6.124607.20513@rhrk.uni-kl.de>, weber@rhrk.uni-kl.de (Christoph Weber-Fahr [KIT]) writes:

> It's not gatekeeper.dec... they seem to have a problem in one of the 
> top-level-nameservers, so that you don't get dec's gatekeeper.
> Try the numerical address, that should work.

Until the fix propagates from NIC, you can use the numerical address 16.1.0.2.

-- 
Eric.
From: fn00@gte.com (Farshad Nayeri)
Newsgroups: comp.lang.modula3
Subject: Summer Opportunity for Modula-3 Programmer
Date: 10 Apr 92 05:09:02 GMT
Organization: GTE Laboratories, Waltham, Massachusetts, USA


Hi Folks. I would just like to remind our enthusiastic Modula-3 crowd
that we happen to have a summer position open for a full-time Modula-3
programmer. The position involves building nice front ends for our
Distributed Object Manager prototype using Trestle (most probably
FormsVBT when it comes out :-) and of course Modula-3 (and getting
paid on top it :-).  The full description is available from
misc.jobs.offered.  I will be happy to send you a copy, in case you
don't have access to that newsgroup.

--farshad

P.S., I hope that the USENET thought police doesn't take away my posting
privilages because of this posting. ;-) 


--
Farshad Nayeri                Intelligent Database Systems
fn00@gte.com                  Computer and Intelligent Systems Laboratory
(617)466-2473                 GTE Laboratories, Waltham, MA
From: qs101@cl.cam.ac.uk (Quentin Stafford-Fraser)
Newsgroups: comp.lang.modula3
Subject: Gatekeeper
Date: 6 Apr 92 07:19:12 GMT
Reply-To: qs101@cl.cam.ac.uk (Quentin Stafford-Fraser)
Organization: U of Cambridge Computer Lab, UK


Gatekeeper is now giving me 'User anonymous unknown' messages.
Should I be getting things from somewhere else now?


Quentin

 -----------------------------------
 Quentin Stafford-Fraser            
 Cambridge University Computer Lab  
 qs101@cl.cam.ac.uk
 Tel +44 223 334645
 -----------------------------------
Newsgroups: comp.lang.perl
From: chare@unilabs.uucp (Chris Hare)
Subject: help with cacheout.pl
Organization: None: Just Me, Chris Hare
Date: Sun, 12 Apr 1992 20:58:10 GMT

Maybe I'm being stupid.  (No comments on that please.)
Can someone please lend me a hand with using cacehout.

I think I see that it looks for a filename in the call ot it 

		$ret = &cacheout( "file" );

and that it returns a file handle to write to.

If the file is already open, should it not return the previously assigned 
file handle?

Thanks - any useful examples would be nice.


-- 
+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
Chris Hare				UUCP : uunet.ca!choreo!unilabs!chare
SCO Authorized Instructor		Choreo Systems Inc., Ottawa Canada
*** STANDARD DISCLAIMER APPLIES ***	DOMAIN: chare@choreo.ca
From: spaf@cs.purdue.EDU (Gene Spafford)
Newsgroups: comp.lang.perl
Subject: Re: novice q: finding unique words in a list
Date: 9 Apr 92 01:17:56 GMT
	<1992Apr7.222504.5891@cs.ruu.nl> <JGD.92Apr8175246@kodiak.acl.lanl.gov>
Organization: Department of Computer Science, Purdue University

Why not:

sub uniq {
    local(%unique);

    grep(!$unique{$_}++, @_);
}
-- 
Gene Spafford
Software Engineering Research Center & Dept. of Computer Sciences
Purdue University, W. Lafayette IN 47907-1398
Internet:  spaf@cs.purdue.edu	phone:  (317) 494-7825
Newsgroups: comp.lang.perl
From: scp@acl.lanl.gov (Stephen C. Pope)
Subject: Arrays and Assoc Arrays as user defined magic variables
Reply-To: Stephen C. Pope <scp@acl.lanl.gov>
Organization: Advanced Computing Lab, LANL, NM
Date: Thu, 9 Apr 1992 17:59:26 GMT


I'm doing some extensions to perl via the usub mechanism
(magicname()), and am wondering how to make a magic array or magic
assoc array.  I've had no trouble doing scalars, but can't seem to
find any examples of how to do arrays.  A few hours of perusing the
perl source has not made things too much clearer; all the builtin
magic arrays (ARGV,ENV,SIG, etc) all work via mechanisms inappropriate
for the mechanisms outlined in the usub subdirectory.

Any bits of working userinit() and associated code would be appreciated!

stephen pope
advanced computing lab
los alamos
scp@acl.lanl.gov
From: lwall@netlabs.com (Larry Wall)
Newsgroups: comp.lang.perl
Subject: Re: looking for a C parser
Date: 10 Apr 92 00:26:26 GMT
Organization: NetLabs, Inc.

In article <DRW.92Apr8172620@nevanlinna.mit.edu> drw@nevanlinna.mit.edu (Dale R. Worley) writes:
: Of course, the best way to defend an indefensible position is to announce
: loudly that it should be above attack.	-- greg@phoenix.princeton.edu   

No, the best way is to surrender and then subvert the occupying force.  :-)

Larry
From: joel@abigale.UUCP (Joel Rosi-Schwartz)
Newsgroups: comp.lang.perl
Subject: Re: texinfo version of perl man page?
Date: 8 Apr 92 22:17:31 GMT
Organization: Techne Research, Finchampstead, Berkshire (UK)

In article <1992Apr8.051144.6398@colorado.edu> millert@kinglear.cs.colorado.edu (Todd C. Miller) writes:
>Quite some time ago someone posted that they had done a texinfo version of the
>perl man page, can anyone give me a pointer as to hwere i can ftp it from?
>
> - todd
>-- 
>Todd C. Miller                    | "But all the politiCIAns now
>millert@cs.Colorado.EDU           |  They have no excuse
>al804@cleveland.Freenet.Edu       |  They just hide behind their power
>University of Colorado @ Boulder  |  And keep us from the truth" - Roger McGuinn

Hi,
I just got it a couple of weeks ago.  It is current at 4.019 and looks
great.  Here is the info to get it:

:  Yep, the current perl.texinfo matches Perl version 4.019 and is available
:  via anonymous ftp from the chem.bu.edu:/pub/perl-manual directory.
:  
:  Enjoy!
:  
: 			-jeff
: 
: Jeff Kellem
: Internet: composer@Beyond.Dreams.ORG
:       or  composer@chem.bu.edu
:
: chem.bu.edu    128.197.30.18 anonymous/your-email-address

Cheers.
joel
-- 
     ==================================================================
     ||               T E C H N E   R E S E A R C H                  ||
     ||  ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++  ||
     ||                     Joel Rosi-Schwartz                       ||
     ||   Hildorien House            +   Email: joel@abigale.UUCP    ||
     ||   12 Waverley Way            +   Phone: +44 (734) 730.260    ||
     ||   Finchampstead, Wokingham   +   Fax:   +44 (734) 730.272    ||
     ||   Berkshire RG11 4YD (UK)    +                               ||
     ==================================================================
From: garyb@abekrd.co.uk (Gary Bartlett)
Newsgroups: comp.lang.perl
Subject: Highlit fields in 'format' fields
Date: 16 Apr 92 09:24:21 GMT
Organization: Abekas Video Systems, Reading, UK.

This  may have come up before; if it has will someone please forward any
previous discussion/fixes about it to me.

I  am  using  format/write  for a report I am generating and I would now
like to highlight certain fields using the man/more/less `convention' of
using backspace sequences,

	e.g.	Bold text:	B\bBO\bOL\bLD\bD
		Underlined:	_\bU_\bn_\bd_\be_\br

Strings that have had this highlighting applied to them triple in length
but  the  space  taken up on screen remains the same (and certain pagers
convert  this  information  into  different fonts).  Unfortunately, perl
does  not  take into account the length on screen of these fields (which
may  or  may  not  be a good thing) and so the following two results are
seen.   Firstly, if the highlit field is longer than the field width the
field  is  truncated  and secondly the following fields on the same line
end up shifted to the left due to the backspaces.

	e.g.	This is an example:

	#-------------------------------
	format =
		@<<<<< @<<<<< @<<<<<
		$a,    $a,    $a
	.

	$a = 'norm';
	write;
	$a = "B\bBO\bOL\bLD\bD";
	write;
	#-------------------------------

	which produces this output:

		norm   norm   norm
		BO BO BO


	The  `BO'  fields  are  displayed  in bold when passed through a
	suitable  pager.   The  first  six  characters of $a are printed
	and  then a space.  This gives a screen length of two characters
	followed by a space so that subsequent fields are offset.

I  would  really appreciate a temporary fix for this and would hope that
this might be supported in a future release of Perl.

Thanks,
Gary
------------------------------------------------------------------------------
Gary C. Bartlett               NET: Gary.Bartlett@abekrd.co.uk
Abekas Video Systems Ltd.     UUCP: ...!uunet!mcsun!uknet!abekrd!Gary.Bartlett
12 Portman Rd,   Reading,    PHONE: +44 734 585421
Berkshire.       RG3 1EA.      FAX: +44 734 567904
United Kingdom.              TELEX: 847579
From: michaelc@obmarket (Michael Campbell)
Newsgroups: comp.lang.perl
Subject: Perl 4.xxx for PC clones
Date: 7 Apr 92 00:54:20 GMT
Organization: Mikes private machine

Can  someone  direct  me  to the latest	version	of Perl	compiled for the
PC architecture?  Ftp site, and	directory, if possible.	 Thanks!
From: lwall@netlabs.com (Larry Wall)
Newsgroups: comp.lang.perl
Subject: Re: alternate search space
Keywords: s//g $_
Date: 10 Apr 92 18:17:41 GMT
Article-I.D.: netlabs.1992Apr10.181741.10611
Organization: NetLabs, Inc.

In article <1693@toro.MTS.ML.COM> scott@toro.MTS.ML.COM (Scott Strool) writes:
: How do you specify a different search variable other than setting $_ to
: the variable you want to search. I saw =~ and !~ but can't see how to use
: them. I want to search and replace a substring and return the replaced string
: into the same variable that was searched.

$string_to_be_modified =~ s/old/new/;

Think of =~ as something which replaces the default $_ variable with
some other variable.  (Linguistically speaking, it functions as a
topicalizer, and so should be out in front of the operation for
visibility, contrary to the opinions of certain computer scientists who
feel that all optional arguments should come at the end.  It's like the
difference between "Shove this job", and "Take this job and shove it."
So read the above as "Take this string and do a substitution on it.")

Larry
Newsgroups: comp.lang.perl
From: rbj@uunet.uu.net (Root Boy Jim)
Subject: Re: Syntax of delete
Organization: UUNET Technologies Inc, Falls Church, VA
Date: Sun, 12 Apr 1992 03:02:40 GMT

krab@iesd.auc.dk (Kresten Krab Thorup) writes:
?Root Boy Jim wrote:
?
?	I tried to write "delete($foo{'bar'});"
?	
?	Perl complained about the parens. Why?
?
?The delete operation expects an lvalue as it's operand.  By enclosing
?the $foo{'bar'} in parenthesis, you make it an rvalue, namely a list
?with one element in it, the value of $foo{'bar'}.
?	This list will be anonymous, ie only live on the runtime
?stack, and hence, it makes no sense to delete it.

Sorry, I don't buy that. Then why does "chop($foo = $bar);" work?
Or "($foo = $bar) =~ s/qaz/wsx/;"

Either way you answer, perl is inconsistent.

Are there any other 'functions' that forbid parens?
-- 
		Desolation Row Jimmy <rbj@uunet.uu.net>
		Drawing Crazy Patterns on Your Screen
From: lwall@netlabs.com (Larry Wall)
Newsgroups: comp.lang.perl
Subject: Re: Help: searching, translating chars.
Date: 10 Apr 92 17:59:09 GMT
Article-I.D.: netlabs.1992Apr10.175909.10398
Organization: NetLabs, Inc.

In article <1992Apr10.033719.15486@nuscc.nus.sg> ccechk@nuscc.nus.sg (Heng Kek) writes:
: Hello,
: 	Here are 2 questions from a novice Perlite:
: 
: - Question 1:
: What is the quickest code to translate a given string to one
: which has a capitalised first letter?  (the 'string' is actually
: a word.)  For e.g. 'january' or 'JANUARY' or 'jANuarY' or
: 'JaNUaRy' should translate to 'January'.

Probably

    $Month = "\u\L$month";

although on some architectures it's possible that

    $month =~ tr/A-Z/a-z/;
    substr($month,0,1) =~ tr/a-z/A-Z/;

will run faster.  It definitely takes more storage, though.

: - Question 2:
: When doing a pattern search, is it quicker to match a shorter
: pattern than a long one?  For e.g. if a searched line is:
: "the rain in Spain falls mainly on the plain" 
: will '/nly/' match faster than '/falls mainly on the/'?

In general, the longer pattern will match faster because of the way
Boyer-Moore matching works.  More to the point, the longer pattern
will FAIL to match faster than the shorter one, as long as the string
to be searched isn't pathological.

If you've done a study, it doesn't use Boyer-Moore.  It's still
likelier that the longer pattern match or not match faster because the
longer pattern is likelier to have a rarely occuring character in it.
Now, as it happens, you've chosen a pathological pair of patterns,
because they both have "y" as the rarest character, and so would run at
approximately the same speed.  The longer pattern would run a trifle
slower on successful matches because it has more to verify.

Larry
Newsgroups: comp.lang.perl
From: pvogel@convex.com (Peter A. Vogel)
Subject: Re: Daylight Savings Time and timelocal()
Organization: Engineering, CONVEX Computer Corp., Richardson, Tx., USA
Date: Thu, 9 Apr 1992 20:42:00 GMT
X-Disclaimer: This message was written by a user at CONVEX Computer
              Corp. The opinions expressed are those of the user and
              not necessarily those of CONVEX.


Note that the ninth argument to timelocal() is $isdst, which tells it
whether the time you are converting is DST or not.  If you are taking a
date from the command line, converting to seconds and then back to
human-readable, you need to do something like this (which is not perfect,
it has a one-hour possibility of being wrong, if the hour falls in the
DST/STD time switch).  

$date = timelocal(@datefromcmdline);
@temp = localtime($date);
$date = timelocal(@temp);

What this does is get a first approximation of the seconds since 1970 for
the date given on the cmd line, then converts it back to the date array
where the isdst value is set according to the approximation, and we convert the
result back to a seconds since 1970 value that you can work with.

Tom Christiansen probably has a better way, but this works for me.

-Peter

-- 
-----------------------------------------------------------------------------
Peter A. Vogel       | pvogel@convex.COM  | I'm takin' what they're givin'
#include <stddisclaimer.h>                | 'cause I'm workin' for a livin'
Pardon our dust, .sig under construction  |            -Huey Lewis & The News
From: mooring@grimoire.tymnet.com (Ed Mooring)
Newsgroups: comp.lang.perl
Subject: Re: full-page grep
Date: 7 Apr 92 00:30:47 GMT
Distribution: usa
Organization: BT Tymnet Bit Bucket Brigade

In article <Apr.6.19.37.56.1992.19956@pilot.njin.net> pfaffman@pilot.njin.net (Jay Pfaffman) writes:
>
>I'm new to perl and want a script to spit out pages containing a
>string.  Pages delimited by ^L's of course.  If someone could mail me
>a script, I'd appreciate it.
perl -014 -ne 'print if /pattern/'

Just another perl manual reader...


Regards,
Ed Mooring (mooring@tymix.tymnet.com 408-922-7504)
From: drw@nevanlinna.mit.edu (Dale R. Worley)
Newsgroups: comp.lang.perl
Subject: Re: novice q: finding unique words in a list
Date: 8 Apr 92 22:28:13 GMT
	<1992Apr7.222504.5891@cs.ruu.nl>
Organization: MIT Dept. of Tetrapilotomy, Cambridge, MA, USA

In article <1992Apr7.222504.5891@cs.ruu.nl> henkp@cs.ruu.nl (Henk Penning) writes:
     Next to grep and sort, uniq should be a Perl primitive.

Why?  Implementing grep and sort is pretty tricky, but uniq is a
one-liner or so.

Dale Worley		Dept. of Math., MIT		drw@math.mit.edu
--
Warning: Do not look into laser with remaining eye.
Newsgroups: comp.lang.perl
From: Tom Christiansen <tchrist@convex.COM>
Subject: Re: A script to find the most reliable return address from email
Originator: tchrist@pixel.convex.com
Reply-To: tchrist@convex.COM (Tom Christiansen)
Organization: CONVEX Realtime Development, Colorado Springs, CO
Distribution: comp
Date: Thu, 9 Apr 1992 17:54:43 GMT
X-Disclaimer: This message was written by a user at CONVEX Computer
              Corp. The opinions expressed are those of the user and
              not necessarily those of CONVEX.

From the keyboard of deng@bnl.gov (dp):
:I am looking for a perl that can find the most reliable return addresses from
:email messages. Is there such a beast?

Nope -- you are at the mercy of your mail transport agent.  There's
no real way to guarantee a reliable return address.

However, what I often do is something a bit slipshod like this:


	local($_, $file);
	local($*, $/, %headers);


	$* = 1;
	$/ = '';

	# some code deleted
	# assume $file is a handle to the message file

        $_ = <$file>;

        s/\n\s/ /g;             # splice continuation lines
        s/^[^:]+/\L$&/g;        # canonicalize headers to lower case

        # we clobber dup headers here, but tough noogies

        %headers =  (JUNK, split(/^([^:]+):\s*/));
        delete $headers{JUNK};

        $_ = $headers{"from"}
          || $headers{"resent-from"}
          || $headers{"sender"}
          || $headers{"resent-sender"}
          || $headers{"return-path"}
          || $headers{"reply-to"};


        # shoddy attempt to reduce to an mbox
        s/,\s*$//;
        s/[^<]*<//;
        s/>\s*$//;
        # s/\@.*//;
        s/.*!//;
        s/\(.*\)//;
        s/ //;

	return $_;

--tom