home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / comp / os / vms / 19823 < prev    next >
Encoding:
Internet Message Format  |  1992-12-24  |  1.3 KB
  1. Path: sparky!uunet!gatech!destroyer!cs.ubc.ca!mala.bc.ca!epp
  2. From: epp@mala.bc.ca (Lorne Epp)
  3. Newsgroups: comp.os.vms
  4. Subject: Re: TPU:  proc to delete trailing spaces
  5. Message-ID: <1992Dec23.204901.1150@mala.bc.ca>
  6. Date: 23 Dec 92 20:49:01 -0700
  7. References: <1992Dec23.062138.3034@hubcap.clemson.edu>
  8. Organization: Malaspina College
  9. Lines: 30
  10.  
  11. In article <1992Dec23.062138.3034@hubcap.clemson.edu>, rsimms@hubcap.clemson.edu (Robert Simms) writes:
  12. > Together with a friend, I came up with the following procedure
  13. > that I keep in my tpu$command file:
  14. > 
  15. > procedure eve_erase_trailing_spaces
  16. >    local count, kill_range;
  17. >    count := 0;
  18. >    loop exitif 0 = search_quietly ( (span(" ")@ kill_range) & line_end,
  19. >                         forward);
  20. >         position (kill_range);
  21. >         erase (kill_range);
  22. >         count := count +1;
  23. >    endloop;
  24. >    if count = 0
  25. >    then
  26. >       message('No trailing spaces found.');
  27. >    else
  28. >       message('Trailing spaces removed from '+str(count)+' lines.');
  29. >    endif;
  30. > endprocedure;
  31. > 
  32.  
  33. You could have got away with:
  34.  
  35.     procedure eve_erase_trailing_spaces
  36.     eve$trim_buffer( current_buffer );
  37.     endprocedure
  38.     
  39. ----------------------------------------------------------------------
  40. Lorne Epp                                               epp@mala.bc.ca
  41.