rundiff (404:9d95995db57c) rundiff (408:d4c111599758)
1#! /usr/bin/env perl
2
3# Copyright (c) 2003 The Regents of The University of Michigan
4# All rights reserved.
5#
6# Redistribution and use in source and binary forms, with or without
7# modification, are permitted provided that the following conditions are
8# met: redistributions of source code must retain the above copyright

--- 73 unchanged lines hidden (view full) ---

82my $file2 = $ARGV[1];
83
84die "Need two args." if (!(defined($file1) && defined($file2)));
85
86my ($fh1, $fh2);
87open($fh1, $file1) or die "Can't open $file1";
88open($fh2, $file2) or die "Can't open $file2";
89
1#! /usr/bin/env perl
2
3# Copyright (c) 2003 The Regents of The University of Michigan
4# All rights reserved.
5#
6# Redistribution and use in source and binary forms, with or without
7# modification, are permitted provided that the following conditions are
8# met: redistributions of source code must retain the above copyright

--- 73 unchanged lines hidden (view full) ---

82my $file2 = $ARGV[1];
83
84die "Need two args." if (!(defined($file1) && defined($file2)));
85
86my ($fh1, $fh2);
87open($fh1, $file1) or die "Can't open $file1";
88open($fh2, $file2) or die "Can't open $file2";
89
90# print files to output so we know which is which
91print "-$file1\n";
92print "+$file2\n";
93
90# buffer of matching lines for pre-diff context
91my @precontext = ();
92# number of post-diff matching lines remaining to print
93my $postcontext = 0;
94
95# lookahead buffers for $file1 and $file2 respectively
96my @lines1 = ();
97my @lines2 = ();

--- 209 unchanged lines hidden --- 		94# buffer of matching lines for pre-diff context
95my @precontext = ();
96# number of post-diff matching lines remaining to print
97my $postcontext = 0;
98
99# lookahead buffers for $file1 and $file2 respectively
100my @lines1 = ();
101my @lines2 = ();

--- 209 unchanged lines hidden ---