Path: utzoo!utgpu!jarvis.csri.toronto.edu!cs.utexas.edu!swrinde!zaphod.mps.ohio-state.edu!wuarchive!kuhub.cc.ukans.edu!anu-news!list From: root@NSFNET-RELAY.AC.UK Newsgroups: news.software.anu-news Subject: Mail Delivery Failure to uk.ac.king - Rejected Message-ID: Date: 2 Jan 90 07:57:48 GMT Sender: ANU-NEWS Discussion Reply-To: root@NSFNET-RELAY.AC.UK Lines: 175 Via: 000040010180.FTP.MAIL; 2 JAN 90 8:02:09 GMT The NIFTP process was unable to deliver your mail to host uk.ac.king over janet. The reason given by the remote host was: Invalid value in command: invalid attribute - filename "FTP$NETWELL:MAILTMP.TMP". File open failure reason - device full (insufficient space for allocation). Secondary reason - device full - allocation failure. Username ignored. VAX/VMS FTP (80) Version 5.0. Your message was not delivered to the following addresses: GPKING@uk.ac.kingston Your message begins as follows: Received: from vax.nsfnet-relay.ac.uk by sun.NSFnet-Relay.AC.UK Via Ethernet with SMTP id ae00536; 2 Jan 90 7:53 GMT Received: from sun.nsfnet-relay.ac.uk by vax.NSFnet-Relay.AC.UK via Janet with NIFTP id aa00535; 2 Jan 90 7:43 GMT Received: from UKACRL by UK.AC.RL.IB (Mailer X1.25) with BSMTP id 4053; Tue, 02 Jan 90 07:50:42 GM Received: from NDSUVM1.BITNET by UKACRL.BITNET (Mailer X1.25) with BSMTP id 0327; Tue, 02 Jan 90 07:50:42 G Received: from NDSUVM1.BITNET by NDSUVM1.BITNET (Mailer R2.03B) with BSMTP id 6135; Tue, 02 Jan 90 01:37:55 C Date: Tue, 2 Jan 90 07:20:42 GMT Reply-To: root@uk.ac.nsfnet-relay Original-Sender: ANU-NEWS Discussion From: root@uk.ac.nsfnet-relay Subject: Mail Delivery Failure to uk.ac.king - Rejected To: Multiple recipients of list ANU-NEWS Sender: ANU-NEWS%earn.ndsuvm1@uk.ac.earn-relay The NIFTP process was unable to deliver your mail to host uk.ac.king over janet. The reason given by the remote host was: Invalid value in command: invalid attribute - filename "FTP$NETWELL:MAILTMP.TMP". File open failure reason - device full (insufficient space for allocation). Secondary reason - device full - allocation failure. Username ignored. VAX/VMS FTP (80) Version 5.0. Your message was not delivered to the following addresses: GPKING@uk.ac.kingston Your message begins as follows: Received: from vax.nsfnet-relay.ac.uk by sun.NSFnet-Relay.AC.UK Via Ethernet with SMTP id aa01223; 30 Dec 89 9:04 GMT Received: from sun.nsfnet-relay.ac.uk by vax.NSFnet-Relay.AC.UK via Janet with NIFTP id aa00908; 30 Dec 89 8:54 GMT Received: from UKACRL by UK.AC.RL.IB (Mailer X1.25) with BSMTP id 1257; Sat, 30 Dec 89 08:59:55 GM Received: from NDSUVM1.BITNET by UKACRL.BITNET (Mailer X1.25) with BSMTP id 8753; Sat, 30 Dec 89 08:59:55 G Received: from NDSUVM1.BITNET by NDSUVM1.BITNET (Mailer R2.03B) with BSMTP id 7323; Sat, 30 Dec 89 02:57:50 C Date: Sat, 30 Dec 89 08:49:41 GMT Reply-To: root@uk.ac.nsfnet-relay Original-Sender: ANU-NEWS Discussion From: root@uk.ac.nsfnet-relay Subject: Mail Delivery Failure to uk.ac.king - Timeout To: Multiple recipients of list ANU-NEWS Sender: ANU-NEWS%earn.ndsuvm1@uk.ac.earn-relay The NIFTP process was unable to deliver your mail to host uk.ac.king over janet. The reason given by the local host was: The NIFTP process gave up after 114 attempts over 169 hours Your message was not delivered to the following addresses: GPKING@uk.ac.kingston Your message begins as follows: Received: from vax.nsfnet-relay.ac.uk by sun.NSFnet-Relay.AC.UK Via Ethernet with SMTP id ah00202; 23 Dec 89 7:05 GMT Received: from sun.nsfnet-relay.ac.uk by vax.NSFnet-Relay.AC.UK via Janet with NIFTP id aa00309; 23 Dec 89 7:00 GMT Received: from UKACRL by UK.AC.RL.IB (Mailer X1.25) with BSMTP id 3364; Sat, 23 Dec 89 06:58:47 GM Received: from NDSUVM1.BITNET by UKACRL.BITNET (Mailer X1.25) with BSMTP id 0318; Sat, 23 Dec 89 06:58:45 G Received: from NDSUVM1.BITNET by NDSUVM1.BITNET (Mailer R2.03B) with BSMTP id 8455; Fri, 22 Dec 89 22:51:15 C Date: Fri, 22 Dec 89 18:22:41 GMT Reply-To: Earle Ake Original-Sender: ANU-NEWS Discussion From: Earle Ake Subject: Re: RE: rot13 utility in DCL. (TPU solution!) To: Multiple recipients of list ANU-NEWS Sender: ANU-NEWS%earn.ndsuvm1@uk.ac.earn-relay In article <3286.2590eeeb@fps.mcw.edu>, brodie@fps.mcw.edu writes: > In article <8912200842.AA22375@uunet.uu.net>, munnari!csc.anu.oz.au!gih900@UUN ET.UU.NET (Geoff Huston) writes: > >> Wouldn't it be better to have a TPU edit procedure called rot13 to allow you >> to rot the necessary bits?? >> (said he trying to avoid having to add the code) I wasn't doing much today so I took out the TPU manual and discovered that TPU has a function called TRANSLATE which will do what I wanted. The example even shows a way to use it to rotate every character by 13 to 'encrypt' them! Sounds like just what I have been looking for. I am using Ted Nieland's EDT-Plus editor so the procedure will have to be modified slightly for use with an other TPU based editor. I started with the procedure that changes the case of the letters either one at a time or those within the select range. Instead of using the change_case function, I made it the TRANSLATE function. I have defined the key to be GOLD-T as that was not being used. Let me know what you think. -- _____________________________________________________________________________ ____ ____ ___ Earle Ake /___ /___/ / / Science Applications International Corporation ____// / / /__ Dayton, Ohio ----------------------------------------------------------------------------- Internet: fac2%dayton.saic.com@uunet.uu.net uucp: uunet!dayvb!fac2 !EDTP ROT13 ! PROCEDURE EDTP$rot13 !gold r (rot13) LOCAL character ; !check for active select EDTP$select_range; if EDTP$x_select_range <> 0 then TRANSLATE (EDTP$x_select_range, "NOPQRSTUVWXYZABCDEFGHIJKLMnopqrstuvwxyzabcdefghijklm", "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"); EDTP$x_select_range:=0; return; endif; !change case of current character if current_character <> EDTP$x_empty then character :=current_character; TRANSLATE (character, "NOPQRSTUVWXYZABCDEFGHIJKLMnopqrstuvwxyzabcdefghijklm", "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"); erase_character(1); copy_text(character); if current_direction <> forward then move_horizontal(-2); endif; return endif; ENDPROCEDURE DEFINE_KEY('EDTP$rot13',key_name('T',shift_key),"rot13"); ! rot13