Subversion Repositories openrisc

#! /usr/bin/perl -wi

#! /usr/bin/perl -wi

# Fix up the output of cvs diff -c so that it works with patch.

# Fix up the output of cvs diff -c so that it works with patch.

# We do this by propagating the full pathname from the Index: line

# We do this by propagating the full pathname from the Index: line

# into the diff itself.

# into the diff itself.

#

#

# Thrown together by Jason Merrill 

# Thrown together by Jason Merrill 

while (<>)

while (<>)

{

{

  if (/^Index: (.*)/)

  if (/^Index: (.*)/)

    {

    {

      $full = $1;

      $full = $1;

      print;

      print;

      for (1..7)

      for (1..7)

        {

        {

          $_ = <>;

          $_ = <>;

          s/^([-+*]{3}) [^\t]+\t/$1 $full\t/

          s/^([-+*]{3}) [^\t]+\t/$1 $full\t/

            unless m{ /dev/null\t};

            unless m{ /dev/null\t};

          print;

          print;

        }

        }

    }

    }

  else

  else

    {

    {

      print;

      print;

    }

    }

}

}