HDTenEightyP/NetNews huggingface dataset:
From: bed_gdg@shsu.edu (George D. Greenwade)
Newsgroups: vmsnet.tpu
Subject: RE: Encryption??
Date: 26 Jan 93 13:39:55 GMT
Reply-To: "George D. Greenwade" <bed_gdg@SHSU.edu>
Organization: The Internet
Return-Path: <TPU-Mgr@SHSU.edu>
Errors-To: TPU-Mgr@SHSU.edu
X-Listname: Text Processing Utility (TPU) Language Discussion List
CC: info-tpu@SHSU.edu

On Tue, 26 Jan 1993 06:53:17 GMT, Bruce Jonathan Schuck
<schuck@fraser.sfu.ca> posted:
> Does anybody have an encription/decryption routine written in tpu?
>
> Nothing too complicated, just to make mail messages a little
> safer from prying eyes.

Ken Selvia wrote a great TPU-based encryption/decryption procedure which
allows for passwords to seed the crypt process (and you can multiply
encrypt a file).  You can retrieve the file via e-mail by including:
 SENDME TPU.CRYPT
in the body of a mail message to FILESERV@SHSU.BITNET (FILESERV@SHSU.edu).
Alternately, the file is available for anonymous ftp retrieval from
Niord.SHSU.edu (192.92.115.8) in [FILESERV.TPU].

Regards,   George
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
George D. Greenwade, Ph.D.                            Bitnet:  BED_GDG@SHSU
Department of Economics and Business Analysis         THEnet: SHSU::BED_GDG
College of Business Administration                    Voice: (409) 294-1266
P. O. Box 2118                                        FAX:   (409) 294-3612
Sam Houston State University              Internet:        bed_gdg@SHSU.edu
Huntsville, TX 77341                      bed_gdg%SHSU.decnet@relay.the.net
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
From: williams@ab.wvnet.edu
Newsgroups: vmsnet.tpu
Subject: TPU_CALLUSER
Date: 20 Jan 93 16:10:44 GMT
Reply-To: williams@ab.wvnet.edu
Organization: The Internet
Return-Path: <TPU-Mgr@SHSU.edu>
Errors-To: TPU-Mgr@SHSU.edu
X-Listname: Text Processing Utility (TPU) Language Discussion List
Return-Path: <!ab.wvnet.edu!williams@mccall.uucp>
Resent-Message-ID: <9301211545.AA22946@depot.cis.ksu.edu>
Resent-Date: Thu, 21 Jan 1993 09:43:10 CST
Resent-From: info-tpu-newsgate@mccall.com
Resent-To: info-tpu@shsu.edu
X-Envelope-To: info-tpu-newsgate@mccall.uucp
X-Vms-To: NET::"info-tpu-newsgate@mccall.uucp"
X-Vms-Cc: ME
Mime-Version: 1.0
Content-Transfer-Encoding: 7BIT

> From: WVNET::IN%"at913@cleveland.Freenet.Edu"
> Subj: What is TPU_CALLUSER?
>
> What is TPU_CALLUSER?  What does it do?
>
> Thanx
> --
> Mirko Vukovic
> University of Wisconsin -- Madison
> VUKOVIC@UWMFE.NEEP.WISC.EDU

          In TPU, there is a routine called CALL_USER, which allows
          you to run an external (non-TPU) subroutine that is
          user-written (well, actually, programmer-written) in a
          regular VAX programming language, such as FORTRAN, C, or
          BASIC.  The name of the external routine is TPU$CALLUSER.

          The TPU_CALLUSER package is a general-purpose implementation
          of the TPU$CALLUSER routine.  Instead of having one
          designated function, or a predeterminied set of functions,
          the TPU_CALLUSER package allows the TPU user to call
          subroutines in system libraries (or any other shareable
          image libraries) on the fly.

                                                -Tom Williams
                                                 Computer Center Manager
                                                 Alderson-Broaddus College
                                                 WILLIAMS@AB.WVNET.EDU
Newsgroups: vmsnet.tpu
Newsgroups: vmsnet.tpu
Subject: Having EVE act as a WYSIWYG editor
From: Ken Selvia x3547 <ucs_kas@shsu.edu>
Date: Thu, 28 Jan 1993 09:00:25 CST
Reply-To: Ken Selvia x3547 <ucs_kas@SHSU.edu>
Organization: The Internet
Return-Path: <TPU-Mgr@SHSU.edu>
Errors-To: TPU-Mgr@SHSU.edu
X-Listname: Text Processing Utility (TPU) Language Discussion List

Hello,

This is not EVE or TPU, but if you have FMS you might find this little
.COM file useful.  FMS has lots of nifty keyboard and display functions
for VTxxx terminals.  This .COM file will startup FMS, let you design
a screen, then export the form to a file containing ASCII escape sequences.
You could use that output in any way you wanted.  You could even spawn
a process in eve to start this .COM file and read in the output when
you return to EVE if you really had to edit it.

Regards, Ken Selvia.
Kenneth Selvia                 Internet : ucs_kas@shsu.edu
Unix Systems Coordinator       BITNET : UCS_KAS@SHSU.BITNET
Sam Houston State University   MaBell : (409)294-3547
Huntsville, TX 77341                    [INFO-TPU list owner]
$!---------------------------------cut here---------------------------
$   write sys$output "[2H[2J"
$   write sys$output " "
$   write sys$output "#3       Message MAKER!"
$   write sys$output "#4       Message MAKER!"
$   write sys$output " "
$   msg = p1
$   if msg .eqs. "" then read/prompt="Message name?: " sys$command msg
$   ASSIGN/USER SYS$COMMAND SYS$INPUT
$   FMS/EDIT sys$login:'MSG'
$   if f$search("sys$login:msg.flb") .nes. "" then goto replace
$   FMS/LIB/CREATE sys$login:msg sys$login:'msg'
$   goto list
$replace:
$   fms/LIB/replace sys$login:msg sys$login:'msg'
$list:
$   fms/desc/disp=escape/out=sys$login:'msg'.lis sys$login:msg /form='msg'
$   read/prompt="Clear screen before displaying this message? (Y/N): " -
        sys$command clr_yn
$   if .not. clr_yn then goto no_clr
$   RENAME/NOLOG SYS$LOGIN:'MSG'.LIS SYS$LOGIN:'MSG'.TMP_01
$   copy/nolog sys$input, SYS$LOGIN:'MSG'.TMP_01 SYS$LOGIN:'MSG'.LIS
[2H[2J
$   delete/nolog/noconf SYS$LOGIN:'MSG'.TMP_01.*
$no_clr:
$   write sys$output "[2H[2J"
$   type sys$login:'msg'.lis
$   write sys$output "THATS IT. ITS CALLED ''MSG'.LIS IN YOUR HOME DIRECTORY"
$   WRITE SYS$OUTPUT "ENTER ""$TYPE SYS$LOGIN:''MSG'"" TO SEE IT ANYTIME."
Newsgroups: vmsnet.tpu
Subject: Has anything like this ever been done before?
From: <92adams@hanna2.nlu.edu>
Date: Sat, 23 Jan 1993 14:12:03 -0600 (CST)
Reply-To: <92ADAMS@HANNA2.NLU.EDU>
Organization: The Internet
Return-Path: <TPU-Mgr@SHSU.edu>
Errors-To: TPU-Mgr@SHSU.edu
X-Listname: Text Processing Utility (TPU) Language Discussion List
X-Vmsmail-To: SMTP%"info-tpu@shsu.edu"

Hello tpu.gurus!

	I've got a series of things that I would like Eve/TPU to do for me.
From everything that I have read and/or seen, TPU can do it for me.  What I'd
like to know is has someone else ever written something like this?  If not,
then where and at what should I start with in the TPU manual?

	I'd like it to do:

  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.

  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:'

	Basically a 'poor mans newsreader.'

  	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 :)

	Thanks for any help/ideas in advance!


                                         Erek Adams

+-------------------------------------+---------------------------------------+
|  Erek Adams, Student Programmer     |  Internet:  92adams@hanna2.nlu.edu    |
|  Northeast Louisiana University     |  SnailMail: 5330 DeSiard, #43         |
|  Monroe, Louisiana  71202           |             Monroe, LA  71202         |
|                                     |  Home Phone: (318)-343-4729           |
+-------------------------------------+---------------------------------------+
Newsgroups: vmsnet.tpu
Subject: RE: Has anything like this ever been done before?
From: "(Michael
Date: Sat, 23 Jan 1993 20:39:29 -0600 (CST)
Reply-To: "(Michael Lemke, Astronomy UT Austin, Phone: +1-(512)-471-1483)"
Organization: The Internet
Return-Path: <TPU-Mgr@SHSU.edu>
Errors-To: TPU-Mgr@SHSU.edu
X-Listname: Text Processing Utility (TPU) Language Discussion List
X-Vmsmail-To: SMTP%"92ADAMS@HANNA2.NLU.EDU"

In a message of Sat, 23 Jan 1993 14:12:03 -0600 (CST)
Received on 23 Jan 1993, 20:30 GMT

Erek Adams <92ADAMS@HANNA2.NLU.EDU> wrote
to: Text Processing Utility (TPU) Language Discussion List <INFO-TPU@SHSU.edu>

>Hello tpu.gurus!
>
>	I've got a series of things that I would like Eve/TPU to do for me.
>From everything that I have read and/or seen, TPU can do it for me.  What I'd
>like to know is has someone else ever written something like this?  If not,
>then where and at what should I start with in the TPU manual?
>
>	I'd like it to do:
>
>  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.

       I don't know if someone  has  done  this  but for a start look at
       HELP  TPU CREATE_PROCESS in EVE/TPU.  You probably don't want  to
       create a new process for every procedure you execute so some more
       code would porbably be required to make it efficient.


>
>  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:'
>
>	Basically a 'poor mans newsreader.'
>

       Get Peter  Galbraith's  PEVE_MAILQUOTE.TPU.   Does  even more and
       works  really great.  Um...  I still have check a fix he sent  me
       over a week ago...


       Michael

--
Michael Lemke
Astronomy, UT Austin, Texas
(michael@io.as.utexas.edu or UTSPAN::UTADNX::IO::MICHAEL [SPAN])
From: acs_mn@rivers.acc.uwrf.edu
Newsgroups: vmsnet.tpu
Subject: Anyway to have Eve act like a simple WYSIWYG editor?
Date: 27 Jan 93 11:50:51 -0600
Organization: University of Wisconsin - River Falls

    I was wondering if anyone has written anything in TPU as an extension to
Eve which would make Eve act like a very basic WYSIWYG editor?

    I have an application program which will display text files and this
program understands basic VTxxx escape sequences to do such things as bold,
underline, etc. Right now, it is somewhat painful to create these files since
the person creating the file must insert the various escape sequences
manually.  I have considered defining keys that insert the right codes - and
this would definitely be better - but what I really would like is to have Eve
interpret the code and show the word in reverse video, etc.  Right now, the
person has to save their file, get out of Eve and run the application program
to display the file just to figure out if they have all the bold codes, etc.
correct.  It would be so much nicer to have Eve do this.

    I did a little experimentation with the SET(TEXT,window,NO_TRANSLATE)
option and this does allow Eve to show the video attributes but then editing
the text lines containing the escape sequences is difficult because the cursor
movement and the text on the screen aren't in sync.

    Software version info: VMS 5.5-2 with VAXTPU V2.6.

    Has anybody attempted to do something like this using TPU? Any and all
ideas appreciated.  Thanks.

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Marlys A. Nelson			System Manager, Systems Programmer,
Academic Computing			Network Manager, etc., etc.
Univ. of WI - River Falls
Internet: Marlys.A.Nelson@uwrf.edu
Newsgroups: vmsnet.tpu
From: fairfield@umahe1.slac.stanford.edu
Subject: KHF$FORMAT.0-OF-3, V2.2  (EVE Justify/Unjustify)
Organization: Stanford Linear Accelerator Center
Date: Mon, 25 Jan 1993 23:08:09 GMT

        Just before Christmas  of  last  year  I  posted  an EVE module,
    KHF$FORMAT.TPU,  which  implements  paragraph, range  and  box-range
    justification and unjustification.  Much to my surprise and disgust,
    I  discovered  a  bug  in   the   basic   justification   procedure,
    Khf$Justify.

        I've corrected the bug  in  this  version, V02-002.  I'm posting
    the  entire  module  along with a README file in  three  VMS_SHARE'd
    parts because I'm not really fond of patches and I'd  like  to  make
    life  easier  for  any  of  you file server or ftp site managers (Hi
    Andy!).  For those of  you  who  have  modified the original to suit
    your  taste  (Hi  John!),  you  need only look  at  the  changes  to
    Khf$Justify.  For those of you who suggested added functionality (Hi
    Rob!), I'm sorry to disappoint but I wasn't able to come up  with  a
    nice way to do what you asked for.

        For those of you who missed  the Christmas posting, take a quick
    read  through  of the README file and then give JUSTIFY/UNJUSTIFY  a
    try.  I think you'll like it!

        As  always,  comments,  suggests  and/or  complaints  are hereby
    solicited.
    	
    		-Ken
--
 Dr. Kenneth H. Fairfield    |  Internet: Fairfield@Slac.Stanford.Edu
 SLAC, P.O.Box 4349, MS 98   |  DECnet:   45537::FAIRFIELD (45537=SLACVX)
 Stanford, CA   94309        |  BITNET    Fairfield@Slacvx
 ----------------------------------------------------------------------------
 These opinions are mine, not SLAC's, Stanford's, nor the DOE's...
-- 
 Dr. Kenneth H. Fairfield    |  Internet: Fairfield@Slac.Stanford.Edu
 SLAC, P.O.Box 4349, MS 98   |  DECnet:   45537::FAIRFIELD (45537=SLACVX)
 Stanford, CA   94309        |  BITNET    Fairfield@Slacvx
 ----------------------------------------------------------------------------
 These opinions are mine, not SLAC's, Stanford's, nor the DOE's...
From: r_coop@icrf.icnet.uk
Newsgroups: vmsnet.tpu
Subject: Changes to FB_autojustify/Squish_tpu
Date: 22 Jan 93 13:27:52 GMT
Organization: Imperial Cancer Research Fund, London, UK
NNTP-Posting-Host: bonnie.lif.icnet.uk


I have made use of FB_autojustify (Franco Brunetta :franco@uduniv.cineca.it)
along with Hunter Goatley's eve_squish and eve_justify for auto justifying TPU 
text as it is typed.

However when    using   them   I   found   that   with   justification enabled
its behavior   was   erratic   when   the    keystroke    upon RIGHT_MARGIN_
ACTION   was   a  space.  It  would  refuse  to accept the space  and  start 
a  newline  or  would  concatenate   the words around the space and place these
on the new line.

I have edited   the  following  files  to  eradicate  this behaviour.

If this helps anyone let me know,


Richard Coop,
Systems Support,
Imperial Cancer Research Fund,
LONDON 




------------------------------------------------------------------------------
Squish_tpu (Author - Hunter Goatley)
----------

Line 82:

     if current_offset <> length(current_line) then    !If not at end of line
        copy_text (substr("  ",1,numblanks));   ! Copy in the right # of blanks
+    else
+       copy_text(" ");
     endif;                                    !...
   endloop;                                     !Loop...
   hg$set_text_mode (mode);                     !Reset text mode to original
   position (save_pos);                         !Move back to original position
EndProcedure;           !hg$squish_range


FB_Autojustify (Author - Franco Brunetta : franco@uduniv.cineca.it)
--------------

Line 139:

IF beginning_paragraph = mark (NONE)
then
)    eve$message (EVE$_NOFILL);
    position (Previous_position);
    eve$learn_abort;
    return (FALSE);
else
+   move_horizontal(-2);
+   if current_character = " "
+   then
+      copy_text(" ");
+   endif;
+   move_horizontal(+2);
    eve_justify;
    position(Previous_position);
endif;
endprocedure            ! FB_Autojustify
------------------------------------------------------------------------------
From: davis@pacific.mps.ohio-state.edu ("John E. Davis")
Subject: Re: Anyway to have Eve act like a simple WYSIWYG editor?
Reply-To: davis@pacific.mps.ohio-state.edu  (John E. Davis)
Organization: "Dept. of Physics, The Ohio State University"
	<1993Jan27.160525.1@slacvx.slac.stanford.edu>
Date: Thu, 28 Jan 1993 07:15:15 GMT

In article <1993Jan27.160525.1@slacvx.slac.stanford.edu>
fairfield@slacvx.slac.stanford.edu writes: 

           I've done  it  (editing  these  things,  that  is),  but nothing
       special  is  required.  Just use EVE and split the screen  into  two
       windows.  Set one to  NO_TRANSLATE  and  edit  in  the  other.   The
       NO_TRANSLATE  window  gives  you a "real-time" picture of your edits
       while the normal, BLANK_TABS window keeps  the editing point in sync
       with the cursor.


Although I have no reason to doubt that the above is true, I find it hard to
believe that it works well.  Suppose I insert an escape char into the buffer
in the manner described above.  Then in the ``editing'' window, I will see a
displayable representation for the character, e.g., as ^[.  Then I would
suppose that the editor would move to the apporpriate row and column on the
terminal where the escape is to be ``displayed'' (in the other window) and
output it at that point without translation.  The the editor should move the
terminal cursor back to the editing window.  So, a simple insert of an escape
char in row 1 column 1 would result in the following sent to the terminal:

    ^[[1;1H  (position cursor at 1,1
    ^ [      (output two char displayable sequence )
    ^[13;1H  (goto row 13,1 of second window)
    ^[       (literal escape character)
    ^[[1;3H  (move cursor to next position and wait for more user input)

The point is, the terminal will see an escape two back to back escapes and
will not know what to do with it and leave the cursor at  13,1.

Of course, I am making alot of assumptions about how I think the editor works
so the above scenario may be totally wrong.

Instead, I would define strings like

   @b  bold
   @r  reverse video
   @n  normal video
   @u  underline
   @l  blink
   etc...

Then my  file would look like:

   This is @bbold text@n and this is @lblinking text@n etc....

Then I would simply do a replace:  @b  --> ^[[5m, etc....
Of course this still presents a problem with formatting, etc, but I at least
it is more readable.

   
--
     _____________
#___/John E. Davis\_________________________________________________________
#
# internet: davis@amy.tch.harvard.edu
#   bitnet: davis@ohstpy
#   office: 617-735-6746
#
Newsgroups: vmsnet.tpu
From: schuck@fraser.sfu.ca (Bruce Jonathan Schuck)
Subject: Encryption??
Reply-To: Bruce_Schuck@sfu.ca
Organization: Simon Fraser University, Burnaby, B.C., Canada
Date: Tue, 26 Jan 1993 06:53:17 GMT

Does anybody have an encription/decryption routine written in tpu?

Nothing too complicated, just to make mail messages a little
safer from prying eyes.

-- 
......
From: williams@ab.wvnet.edu
Newsgroups: vmsnet.tpu
Subject: Re: Encryption
Date: 26 Jan 93 13:08:30 GMT
Reply-To: williams@ab.wvnet.edu
Organization: The Internet
Return-Path: <TPU-Mgr@SHSU.edu>
Errors-To: TPU-Mgr@SHSU.edu
X-Listname: Text Processing Utility (TPU) Language Discussion List
Return-Path: <!ab.wvnet.edu!williams@mccall.uucp>
Resent-Message-ID: <9301261404.AA07912@depot.cis.ksu.edu>
Resent-Date: Tue, 26 Jan 1993 08:00:35 CST
Resent-From: info-tpu-newsgate@mccall.com
Resent-To: info-tpu@shsu.edu
X-Envelope-To: info-tpu-newsgate@mccall.uucp
X-Vms-To: NET::"info-tpu-newsgate@mccall.uucp"
X-Vms-Cc: ME
Mime-Version: 1.0
Content-Transfer-Encoding: 7BIT

> From: WVNET::IN%"schuck@fraser.sfu.ca" 26-JAN-1993 05:19:57.60
>
> Does anybody have an encription/decryption routine written in tpu?
>
> Nothing too complicated, just to make mail messages a little
> safer from prying eyes.

          Would a rot13 cipher be too simple?

                                                -Tom Williams
                                                 Computer Center Manager
                                                 Alderson-Broaddus College
                                                 WILLIAMS@AB.WVNET.EDU
From: carl@SOL1.GPS.CALTECH.EDU (Carl J Lydick)
Newsgroups: vmsnet.tpu
Subject: Re: What is TPU_CALLUSER?
Date: 22 Jan 1993 09:38:43 GMT
Organization: HST Wide Field/Planetary Camera
Reply-To: carl@SOL1.GPS.CALTECH.EDU
NNTP-Posting-Host: sol1.gps.caltech.edu

In article <1jjngtINN1er@usenet.INS.CWRU.Edu>, at913@cleveland.Freenet.Edu (Mirko Vukovic) writes:
>What is TPU_CALLUSER?  What does it do?

TPU_CALLUSER isn't anything (except a string of characters you've put
together).  The CALL_USER primitive in TPU is a function that allow you to call
you own routine* and have it perform a task for you.  Since you're evidently
incapable of using the HELP facility, here's the on-line help for the primitive:

  CALL_USER

      Calls a program written in another language from within VAXTPU.
      CALL_USER parameters are passed to the external program exactly as you
      enter them; VAXTPU does not process them in any way.

   Syntax

      string2 := CALL_USER (integer, string1)

   Parameters

      integer    The integer passed to the external program by reference.

      string1    The string passed to the external program by descriptor.

   Note:  For an example of how to use CALL_USER with a BASIC program, see
          the VAX Text Processing Utility Manual.

Now, a bit more information, assuming you're capable of assimilating it:
	CALL_USER calls a subroutine (TPU$CALLUSER) in an executable (by
default SYS$SHARE:TPU$CALLUSER.EXE) with three arguments:
	1)  A read-only number passed by reference;
	2)  A read-only string, passed by descriptor;
	3)  A write-only dynamic string, passed by descriptor.
You can change the image used by defining the logical name TPU$CALLUSER.
An example of a CALL_USER routine (which returns the translation of the string
passed in the second argument) follows:

$ CREATE CALLUSER.C
#include descrip

long tpu$calluser(int *number, struct dsc$descriptor *string, struct
	dsc$descriptor *retval)
{	LIB$GET_SYMBOL(string, retval);
	return(1);
}
$ CC CALLUSER
$ LINK CALLUSER,SYS$INPUT:/OPT
UNIVERSAL=TPU$CALLUSER

--------------------------------------------------------------------------------
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.
Newsgroups: vmsnet.tpu