home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / AP / JED / JED097-1.TAR / jed / lib / sortmisc.sl < prev    next >
Encoding:
Text File  |  1994-12-12  |  783 b   |  54 lines
  1. % This function sorts a region of lines of the form:
  2. %    keyname
  3. %     text...
  4. %    delimeter string
  5. %    keyname
  6. %     text...
  7. %    delimeter string
  8.  
  9. define sort_region_internal (line_break_str, delim)
  10. {
  11.    check_region (0);
  12.    narrow (); 
  13.    
  14.    bob ();
  15.  
  16.    do
  17.      {
  18.     push_mark ();
  19.     !if (bol_fsearch (delim)) eob ();
  20.     narrow ();
  21.     ERROR_BLOCK
  22.       {
  23.          widen(); widen ();
  24.       }
  25.     
  26.     bob ();
  27.     while (eol(), not(eobp()))
  28.       {
  29.          del (); insert (line_break_str);
  30.       }
  31.     widen ();
  32.      }
  33.    while (down (1));
  34.    
  35.    bob ();
  36.    push_mark ();
  37.    eob ();
  38.    goto_column (32);
  39.    
  40.    ERROR_BLOCK
  41.      {
  42.     variable len = strlen (line_break_str);
  43.     bob ();
  44.     while (fsearch (line_break_str)) 
  45.       {
  46.          deln (len); newline ();
  47.       }
  48.     widen ();
  49.      }
  50.    
  51.    sort ();
  52.    EXECUTE_ERROR_BLOCK;
  53. }
  54.