| 21 |
|
# Filename : $RCSfile: filepp,v $ |
| 22 |
|
# Author : $Author: tim $ |
| 23 |
|
# Maintainer : Darren Miller: darren@cabaret.demon.co.uk |
| 24 |
< |
# File version : $Revision: 1.5 $ |
| 25 |
< |
# Last changed : $Date: 2004-10-11 21:10:28 $ |
| 24 |
> |
# File version : $Revision: 1.6 $ |
| 25 |
> |
# Last changed : $Date: 2004-10-11 21:54:35 $ |
| 26 |
|
# Description : Main program |
| 27 |
|
# Licence : GNU copyleft |
| 28 |
|
# |
| 2542 |
|
my $objname; |
| 2543 |
|
print "\n"; |
| 2544 |
|
foreach $modname (keys %parsedModList) { |
| 2545 |
< |
$objname = GetObjFile($parsedModList{$modname}); |
| 2545 |
> |
$objname = GetObjFile($modname); |
| 2546 |
|
print $objDir . $modname . " : " . $objDir . $objname . "\n"; |
| 2547 |
|
} |
| 2548 |
|
} |
| 2556 |
|
my $filename; |
| 2557 |
|
my $dir; |
| 2558 |
|
my $suffix; |
| 2559 |
+ |
|
| 2560 |
|
($filename, $dir, $suffix) = fileparse($fullname, '\.[^.]*'); |
| 2561 |
|
return $filename . $objExt; |
| 2562 |
|
} |
| 2945 |
|
} |
| 2946 |
|
|
| 2947 |
|
#clean visitedTable |
| 2948 |
< |
cleanVisited(); |
| 2948 |
> |
%visitedTable = (); |
| 2949 |
|
|
| 2950 |
|
#clear all define |
| 2951 |
|
UndefAll(); |
