#!/usr/local/bin/perl

require "find.pl";

# Traverse desired filesystems
chop($cdir = `pwd`);

$dcldir = $ENV{'DCLDIR'};
if ($dcldir eq "") { die "DCLDIR is not defined\n"; }
$docdir = "$dcldir/doc";

&find("$docdir");

exit;

sub wanted {
    if(/^.*\.tex$/) {
       $link = $name; $link =~ s/^$docdir/$cdir/;
       print("$name -> $link\n");
      system "ln -s $name $link";
    }
    if(/^.*\.f$/) {
       $link = $name; $link =~ s/^$docdir/$cdir/;
       print("$name -> $link\n");
       system("ln -s $name $link");
    }
}

