home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / comp / os / vms / 19766 < prev    next >
Encoding:
Internet Message Format  |  1992-12-23  |  2.5 KB
  1. Xref: sparky comp.os.vms:19766 vmsnet.tpu:553
  2. Path: sparky!uunet!news.claremont.edu!nntp-server.caltech.edu!SOL1.GPS.CALTECH.EDU!CARL
  3. From: carl@SOL1.GPS.CALTECH.EDU (Carl J Lydick)
  4. Newsgroups: comp.os.vms,vmsnet.tpu
  5. Subject: Re: Help on "simple" EVE/TPU procedure
  6. Date: 23 Dec 1992 10:46:08 GMT
  7. Organization: HST Wide Field/Planetary Camera
  8. Lines: 45
  9. Distribution: world
  10. Message-ID: <1h9g1gINN1c9@gap.caltech.edu>
  11. References: <BzKtA4.D67@news.cso.uiuc.edu> <1992Dec21.184230.14735@miavx1.acs.muohio.edu>,<1992Dec22.145106.18049@nntpd.lkg.dec.com>
  12. Reply-To: carl@SOL1.GPS.CALTECH.EDU
  13. NNTP-Posting-Host: sol1.gps.caltech.edu
  14.  
  15. In article <1992Dec22.145106.18049@nntpd.lkg.dec.com>, reinig@augie.enet.dec.com (August Reinig) writes:
  16. >Untested, but the following should truncate each line in the file 
  17. >to 72 characters and then remove any trailing blanks.  With a small
  18. >modification, the truncate count could be a parameter to the routine
  19. >but I can't remember the EVE syntax for this off the top of my head.
  20. >Perhaps Bill will oblige.
  21.  
  22. Could I ask a question, please?
  23.  
  24. Why are you (apparently a DEC employee) posting an "untested" procedure?  Or by
  25. "untested" did you mean that you'd tested it on a number of files, but hadn't
  26. subjected it to use by idiots (as in, "You can't make anything idiot-proof; 
  27. Idiots are too ingeniosu!")
  28.  
  29. >This routine won't work if there are tabs in the sources.  There
  30. >are EVE routines to change tabs to spaces which you should use 
  31. >first if tabs are present.
  32.  
  33. You're wrong about the tabs.  VAX FORTRAN considers a tab to be a single
  34. character.  So your procedure WILL work if there are tabs in the source, it the
  35. program is to be compiled by VAX FORTRAN.  Don't disparage your efforts
  36. unnecessarily!
  37.  
  38. Proof:
  39.  
  40.     $ TAB :=
  41.     $ TAB[0,8] = 9
  42.     $ COPY NL: FOO.FOR
  43.     $ OPEN/APPEND FILE FOO.FOR
  44.     $ WRITE FILE TAB,"TYPE 10"
  45.     $ WRITE FILE "10", TAB, "FORMAT(1X,'", -
  46.     "01234567890123456789012345678901234567890123456789012345')"
  47.     $ WRITE FILE TAB, "END"
  48.     $ CLOSE FILE
  49.     $ FOR FOO
  50.     $ LIN FOO
  51.     $ RUN FOO
  52. --------------------------------------------------------------------------------
  53. Carl J Lydick | INTERnet: CARL@SOL1.GPS.CALTECH.EDU | NSI/HEPnet: SOL1::CARL
  54.  
  55. Disclaimer:  Hey, I understand VAXen and VMS.  That's what I get paid for.  My
  56. understanding of astronomy is purely at the amateur level (or below).  So
  57. unless what I'm saying is directly related to VAX/VMS, don't hold me or my
  58. organization responsible for it.  If it IS related to VAX/VMS, you can try to
  59. hold me responsible for it, but my organization had nothing to do with it.
  60.