home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / vmsnet / tpu / 604 < prev    next >
Encoding:
Internet Message Format  |  1993-01-24  |  2.3 KB
  1. Path: sparky!uunet!elroy.jpl.nasa.gov!nntp-server.caltech.edu!SOL1.GPS.CALTECH.EDU!CARL
  2. From: carl@SOL1.GPS.CALTECH.EDU (Carl J Lydick)
  3. Newsgroups: vmsnet.tpu
  4. Subject: Re: Has anything like this ever been done before?
  5. Date: 23 Jan 1993 23:00:39 GMT
  6. Organization: HST Wide Field/Planetary Camera
  7. Lines: 48
  8. Distribution: world
  9. Message-ID: <1jsimnINNgce@gap.caltech.edu>
  10. References: <930123141203.25003b75@HANNA2.NLU.EDU>
  11. Reply-To: carl@SOL1.GPS.CALTECH.EDU
  12. NNTP-Posting-Host: sol1.gps.caltech.edu
  13.  
  14. In article <930123141203.25003b75@HANNA2.NLU.EDU>, <92adams@hanna2.nlu.edu> writes:
  15. >  1)  Run a DCL command file, and capture the output into another buffer.
  16. >
  17. >    Yes, I know that can be done with DCL etc.., but I wanted a more
  18. >'elegant' solution to it.  I'd like it all automatic.  Minimal user effort
  19. >required.
  20.  
  21. This is rather vague.  The TPU primitives for such an operation are
  22. create_process(), send(), and send_eof().  If you'd been more specific about
  23. what you wanted, I might've been able to post an example for you.
  24.  
  25. >  2)  Have it look for the 'From:' line in a message, extract the persons
  26. >name/address and put it into a format like '*Name/Addr just extracted* wrote:'
  27.  
  28. PROCEDURE WHOFROM
  29.     LOCAL R, M;
  30.     ON_ERROR
  31.         POSITION(M);
  32.     ENDON_ERROR;
  33.  
  34.     M:=MARK(NONE);
  35.     POSITION(BUFFER_BEGIN);
  36.     R:=SEARCH(LINE_BEGIN & 'From:' & SPAN('     '), FORWARD);
  37.     POSITION(END_OF(R));
  38.     MOVE_HORIZONTAL(1);
  39.     R:=SEARCH(REMAIN,FORWARD);
  40.     R:=SUBSTR(R, 1, LENGTH(R));
  41.     POSITION(BUFFER_BEGIN);
  42.     COPY_TEXT(R + " wrote:");
  43.     SPLIT_LINE;
  44.     POSITION(M);
  45. ENDPROCEDURE;
  46.  
  47. >      That's all the 'wants' that I have at the moment.  ;-)  If no such
  48. >animals exist now, can someone tell me where I'd need to start at?  (Yes, I am
  49. >a TPU newbie :)
  50.  
  51. You can start by reading the TPU manual, or by issuing the command:
  52.     <DO>HELP TPU<RET>
  53. from within EVE.
  54. --------------------------------------------------------------------------------
  55. Carl J Lydick | INTERnet: CARL@SOL1.GPS.CALTECH.EDU | NSI/HEPnet: SOL1::CARL
  56.  
  57. Disclaimer:  Hey, I understand VAXen and VMS.  That's what I get paid for.  My
  58. understanding of astronomy is purely at the amateur level (or below).  So
  59. unless what I'm saying is directly related to VAX/VMS, don't hold me or my
  60. organization responsible for it.  If it IS related to VAX/VMS, you can try to
  61. hold me responsible for it, but my organization had nothing to do with it.
  62.