#!/usr/local/bin/perl -w
use strict "subs";

# $Id: tsortdepend1,v 1.2 2000/05/29 09:18:26 freek Exp $

while (<>)
{
  s/\n/ /;
  next if !s/^([^ ]*)\.vo: +//;
  $v = $1;
  print "$v.v $v.v\n";
  die $_ if !s/^([^ ]*)\.v +//;
  while (s/^([^ ]*)\.vo +//)
  {
    print "$1.v $v.v\n";
  }
  die $_ if $_ ne "";
}
