🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: vmsnet.tpu
Article #131

Re: Has anything like this ever been done before?

#131
From: Carl J Lydick
Date: Sat, 23 Jan 1993 23:00
48 lines
2416 bytes
In article <930123141203.25003b75@HANNA2.NLU.EDU>, <92adams@hanna2.nlu.edu> writes:
>  1)  Run a DCL command file, and capture the output into another buffer.
>
>	Yes, I know that can be done with DCL etc.., but I wanted a more
>'elegant' solution to it.  I'd like it all automatic.  Minimal user effort
>required.

This is rather vague.  The TPU primitives for such an operation are
create_process(), send(), and send_eof().  If you'd been more specific about
what you wanted, I might've been able to post an example for you.

>  2)  Have it look for the 'From:' line in a message, extract the persons
>name/address and put it into a format like '*Name/Addr just extracted* wrote:'

PROCEDURE WHOFROM
	LOCAL R, M;
	ON_ERROR
		POSITION(M);
	ENDON_ERROR;

	M:=MARK(NONE);
	POSITION(BUFFER_BEGIN);
	R:=SEARCH(LINE_BEGIN & 'From:' & SPAN(' 	'), FORWARD);
	POSITION(END_OF(R));
	MOVE_HORIZONTAL(1);
	R:=SEARCH(REMAIN,FORWARD);
	R:=SUBSTR(R, 1, LENGTH(R));
	POSITION(BUFFER_BEGIN);
	COPY_TEXT(R + " wrote:");
	SPLIT_LINE;
	POSITION(M);
ENDPROCEDURE;

>  	That's all the 'wants' that I have at the moment.  ;-)  If no such
>animals exist now, can someone tell me where I'd need to start at?  (Yes, I am
>a TPU newbie :)

You can start by reading the TPU manual, or by issuing the command:
	<DO>HELP TPU<RET>
from within EVE.
--------------------------------------------------------------------------------
Carl J Lydick | INTERnet: CARL@SOL1.GPS.CALTECH.EDU | NSI/HEPnet: SOL1::CARL

Disclaimer:  Hey, I understand VAXen and VMS.  That's what I get paid for.  My
understanding of astronomy is purely at the amateur level (or below).  So
unless what I'm saying is directly related to VAX/VMS, don't hold me or my
organization responsible for it.  If it IS related to VAX/VMS, you can try to
hold me responsible for it, but my organization had nothing to do with it.
Technical Details
Message-ID: <1jsimnINNgce@gap.caltech.edu>
Path: arc1-ca.pugleaf.net!sparky!uunet!elroy.jpl.nasa.gov!nntp-server.caltech.edu!SOL1.GPS.CALTECH.EDU!CARL
References: <930123141203.25003b75@HANNA2.NLU.EDU>

Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!sparky!uunet!elroy.jpl.nasa.gov!nntp-server.caltech.edu!SOL1.GPS.CALTECH.EDU!CARL
From: carl@SOL1.GPS.CALTECH.EDU (Carl J Lydick)
Newsgroups: vmsnet.tpu
Subject: Re: Has anything like this ever been done before?
Date: 23 Jan 1993 23:00:39 GMT
Organization: HST Wide Field/Planetary Camera
Lines: 48
Distribution: world
Message-ID: <1jsimnINNgce@gap.caltech.edu>
References: <930123141203.25003b75@HANNA2.NLU.EDU>
Reply-To: carl@SOL1.GPS.CALTECH.EDU
NNTP-Posting-Host: sol1.gps.caltech.edu