Lines Matching refs:lines
47 print " lines get mixed up if a copyright statement extends to\n";
51 print " lines. default: $min_merge\n";
415 # return the number of lines in str
438 # Args: references to lists of strings (lines of the texts)
440 # ml1: lines from the first text already processed
441 # l1: remaining lines of the 1st text
442 # nl1: remaining normalised lines of the 1st text
443 # l2: remaining lines of the 2nd text
444 # nl2: remaining normalised lines of the 1st text
446 # Return: list of merged lines
472 print "DEBUG: lines already processed from 1st text:\n";
503 # first save the lines only appearing in lines1,
504 # stop at the first 2 common lines that are not empty
516 # now save the lines appearing in lines2 before the common line
539 # no common lines were found
540 # lines1 should be empty, all lines moved to mlines1
545 # save all common lines
553 print "DEBUG: no more common lines.\n";
570 # only merge if the number of common lines is at least $min_merge
577 print "DEBUG: common lines:\n";
583 # first the lines from the 1st text
585 # then the lines from the 2nd text
587 # finally the common lines
592 # add the common lines to the processed part of the 1st text
595 # add the common lines back to the unprocessed part of the 2nd text
597 # add the lines before the common lines back to the unprocessed
600 # add the normalised common lines back to
603 # add the normalised lines before the common lines back to
607 # add the normalised common lines back to
620 # repeat the process for the remaining lines
717 # if more than 10 lines or more than 25% saved then