home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / vmsnet / tpu / 545 next >
Encoding:
Internet Message Format  |  1992-12-21  |  2.2 KB
  1. Path: sparky!uunet!europa.asd.contel.com!darwin.sura.net!spool.mu.edu!umn.edu!The-Star.honeywell.com!news.dasd.honeywell.com!madre.dasd.honeywell.com!tas
  2. Newsgroups: vmsnet.tpu
  3. Subject: Re: Help on "simple" EVE/TPU procedure
  4. Message-ID: <1992Dec21.105158.1@madre.dasd.honeywell.com>
  5. From: tas@madre.dasd.honeywell.com (Todd A Sorensen)
  6. Date: 21 Dec 92 10:51:58 MST
  7. References: <BzKtA4.D67@news.cso.uiuc.edu>
  8. Organization: Honeywell Flight Management Systems
  9. Nntp-Posting-Host: madre
  10. Nntp-Posting-User: tas
  11. Lines: 47
  12.  
  13. In article <BzKtA4.D67@news.cso.uiuc.edu>, ritley@uimrl7.mrl.uiuc.edu () writes:
  14. > 
  15. > I am trying to clean up large amounts of Fortran code which
  16. > contains "junk" in each record of each file, beyond the
  17. > 72-nd character position in each record.
  18. > 
  19. > 
  20. -- 
  21.  
  22. Here is a simple procedure to do that, but I might use a learn sequence if I
  23. knew what the file looked like, since that is usually faster than writing a TPU
  24. procedure and debugging it, and then running it on the file.
  25.  
  26. For the most part, I use LSE since I do embedded stuff, but I think you can
  27. compile this with "extend this" and save your section file.  The procedure can
  28. be invoked with "tpu d72".  The way I determine end of buffer might be
  29. cumbersome, so I am open to suggestions from the "pros".
  30.  
  31.  
  32. -----cut here---------------------------------------------------------------
  33. procedure d72
  34.  
  35. !  Mark end of buffer
  36.  
  37.   position(buffer_end);
  38.   eob := mark(none);
  39.   position(buffer_begin);
  40.  
  41.   loop          
  42.     position(line_begin);
  43.     eob1 := mark(none);     ! mark current position
  44.     exitif (eob1=eob);      ! exit if end of buffer
  45.     col72 := cursor_horizontal(72);   ! move to col 72
  46.     erase_character(length(current_line) - 72);  ! erase to eol
  47.     move_vertical(1);
  48.   endloop
  49.  
  50. endprocedure;
  51.  
  52. -----cut here---------------------------------------------------------------
  53.  
  54. -------------------------------------------------------------------------------
  55. Todd A Sorensen               Honeywell Defense Avionics Systems Division
  56. (505) 828-5611                internet: tas@dasd.honeywell.com
  57.                               fax: (505) 828-5500
  58. ------------------------------------------------------------------------------- 
  59. Why celebrate CHRISTmas if you don't believe in Him?
  60.