home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / pub / scripts / ckermit / merge < prev    next >
Encoding:
Text File  |  2020-01-01  |  2.9 KB  |  66 lines
  1. #!/usr/local/bin/kermit +
  2. ;
  3. ; m e r g e
  4. ; 
  5. ; Merges any number of files, each of which is already sorted in ascending
  6. ; order, into a new file that is also sorted in ascending order.  Blank
  7. ; lines are discarded.  The result file is sent to standard output.  The
  8. ; files may be of different lengths, including empty.  UNIX usage, in which
  9. ; standard output is redirected to a file:
  10. ;
  11. ;   merge file1 file2 file3 ... > output-file
  12. ;
  13. ; Requires:    C-Kermit 7.0 or later.
  14. ; Illustrates: FOPEN/FREAD/FCLOSE operating on multiple files at once.
  15. ;
  16. ; Note syntax of comparison at bottom of FOR loop.  The record array
  17. ; reference is accessed through \fcontents() to prevent unwanted processing
  18. ; of backslashes in the record, and enclosed in braces to preserve leading
  19. ; and trailing spaces.
  20. ;
  21. ; In this example, the sort key is the whole record.  To use other sort keys
  22. ; or orders, modify the comparison statement accordingly.  Other modifications
  23. ; would be needed for discarding duplicate records, flagging sequence errors
  24. ; in source files, etc.
  25. ;
  26. ; Author: F. da Cruz, the Kermit Project, Columbia University, July 1999
  27. ;
  28. local \%i \%n \&c[] \&r[]             ; Local variables
  29.  
  30. .\%n ::= (\v(argc)-1)                 ; Number of files from command line
  31.  
  32. dcl \&c[\%n]                          ; Channel numbers for each file
  33. dcl \&r[\%n]                          ; Current record from each file
  34.  
  35. for \%i 1 \%n 1 {                     ; Loop through command-line arguments
  36.     .\&c[\%i] = -1                    ; Remember which files are not open
  37.     fopen /read \&c[\%i] \&_[\%i]     ; Try to open this one
  38. }
  39. while 1 {                             ; Loop till done
  40.     .\%k = -1                         ; Index of next output record
  41.     set flag off                      ; No records yet
  42.     for \%i 1 \%n 1 {                 ; For each file...
  43.         if < \&c[\%i] 0 continue      ; Skip this one if it's not open
  44.     while not def \&r[\%i] {      ; Skip blank lines
  45.             if \f_eof(\&c[\%i]) {     ; If at end of file
  46.                 fclose \&c[\%i]       ; close this file
  47.                 .\&c[\%i] = -1        ; and mark it as closed
  48.                 break
  49.             }
  50.             fread \&c[\%i] \&r[\%i]   ; Otherwise read a record
  51.         }    
  52.         if < \&c[\%i] 0 continue      ; Next file if this file closed above
  53.         if not flag {                 ; First record this round
  54.             .\%k := \%i               ; Remember its index
  55.             set flag on               ; Not first record any more
  56.             continue                  ; On to next file
  57.         }
  58.         ; Lexically compare this record with the current smallest record
  59.     if ( llt {\fcont(\&r[\%i])} {\fcont(\&r[\%k])} ) .\%k := \%i
  60.     }
  61.     if ( < \%k 0 ) break              ; If no more records we're done.
  62.     echo \&r[\%k]                     ; Otherwise output this record
  63.     undef \&r[\%k]                    ; and force it to be replaced.
  64. }
  65. exit 0
  66.