| 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.7 $ |
| 25 |
> |
# Last changed : $Date: 2005-03-09 17:58:33 $ |
| 26 |
|
# Description : Main program |
| 27 |
|
# Licence : GNU copyleft |
| 28 |
|
# |
| 31 |
|
package Filepp; |
| 32 |
|
|
| 33 |
|
use strict "vars"; |
| 34 |
< |
use strict "subs"; |
| 34 |
> |
#use strict "subs"; |
| 35 |
|
# Used to all filepp to work with any char, not just ascii, |
| 36 |
|
# feel free to remove this if it causes you problems |
| 37 |
|
#use bytes; |
| 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(); |
