home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD1.bin / new / util / edit / polyed / macros / format.ped < prev    next >
Text File  |  1994-09-22  |  4KB  |  116 lines
  1. /*
  2. ** $VER: format.ped 1.0 (24.8.94) written by Robert Brandner
  3. **
  4. ** This macro formats leftaligned the current paragraph
  5. ** (from the current line to the next empty line).
  6. */
  7.  
  8. OPTIONS RESULTS
  9.  
  10. /* first we get the desired width
  11. ** from the application's settings.
  12. */
  13.  
  14. 'GETATTR' APPLICATION FIELD VAR_RIGHTBORDER VAR WIDTH
  15.  
  16. /* now we get the current line, strip trailing spaces and tabs,
  17. ** and compute it's length
  18. */
  19.  
  20. 'GETLINE' VAR 'LINE'                                 
  21. LINE = strip(LINE, T, " "||'09'X)                    
  22. len = length(LINE)                                   
  23.  
  24. /* prevlen is needed for the while-condition
  25. ** When we join a line with an empty line, len and prevlen
  26. ** will be the same, in which case we stop, as that means,
  27. ** that we reached the end of the paragraph.
  28. */
  29.  
  30. prevlen = 0                                          
  31.  
  32. /* the while-loop:
  33. ** We will leave the loop, when len not greater than prevlen,
  34. ** which means, that we reached an empty line
  35. */
  36.  
  37. do while len > prevlen
  38.  
  39.         /* This loop splits the current line until we get
  40.         ** a line shorter than the desired width.
  41.         */
  42.         
  43.     do while len > WIDTH                         
  44.  
  45.                 /* We move the cursor to the desired right border,
  46.                 ** and go to the beginning of the word we find there,
  47.                 ** as we don't want to split words.
  48.                 */
  49.  
  50.         'GOTOCOLUMN' WIDTH+1                 
  51.         'POSITION EOW'
  52.         'POSITION SOW'                     
  53.  
  54.                 /* Now we look where we are. If we are at the very 
  55.                 ** left of the line, this means that there were only
  56.                 ** one word from the beginning to column <width>.
  57.                 ** In that case, we go to the end of this word, which
  58.                 ** leads to a line that is too long, but it is better
  59.                 ** than splitting the word.
  60.                 */
  61.  
  62.         'GETCURSORPOS' STEM CPOS.             
  63.         if CPOS.COLUMN <= 1 then 'POSITION EOW'
  64.  
  65.                 /* Now we split the line at the current column, which
  66.                 ** results in a line, shorter than <width> (except for 
  67.                 ** the case with the very long words) and new line 
  68.                 ** with the rest of the old line.
  69.                 ** The cursor is allready at the beginning of this 
  70.                 ** new line (due to TEXT NEWLINE)
  71.                 */
  72.  
  73.         'TEXT NEWLINE'                         
  74.  
  75.                 /* Now we get this new line again (could possibly be made in 
  76.                 ** an other way too), strip spaces off, and compute 
  77.                 ** it's length.
  78.                 */
  79.  
  80.         'GETLINE' VAR 'LINE'
  81.         LINE = strip(LINE, T, " ")
  82.         len = length(LINE)         
  83.     end
  84.  
  85.         /* Here we check if the line is empty, which may happen as a 
  86.         ** result of the previous while-loop, and if it's empty, we
  87.         ** leave the outer while-loop immediately.
  88.         */
  89.  
  90.     if len == 0 then leave
  91.         
  92.         /* We remember the length of the current line in <prevlen>.
  93.         ** Now we join the current line (which is shorter than <width>)
  94.         ** and the next line. We insert one blank between the 
  95.         ** last word of the current, and the first of the next line.
  96.         ** Then we get this joined line, strip the spaces off, and 
  97.         ** compute it's length. If the length is the same as <prevlen>
  98.         ** we know that the following line was empty.
  99.         ** In that case we split the lines again, to keep the empty
  100.         ** line. The while-loop will end in this case too.
  101.         */
  102.  
  103.     prevlen = len
  104.     'POSITION EOL'
  105.     'DELETE'
  106.     'TEXT " "'
  107.     'GETLINE VAR LINE'
  108.     LINE = strip(LINE, T, " ")
  109.     len = length(LINE)
  110.     if prevlen == len then 'TEXT NEWLINE'
  111. end
  112.  
  113. /* And here we are! The paragraph is formated and that's the end of 
  114. ** this macro.
  115. */
  116.