| 1 |
|
#!/usr/bin/perl -w |
| 2 |
– |
|
| 3 |
– |
package FileEntry; |
| 4 |
– |
|
| 5 |
– |
sub new { |
| 6 |
– |
my $type = shift; |
| 7 |
– |
my $filename = shift; |
| 8 |
– |
my $path = shift; |
| 9 |
– |
my $self = {}; |
| 10 |
– |
$self->{'source_file'} = $filename; |
| 11 |
– |
$self->{'filepath'} = $path; |
| 12 |
– |
$self->{'includes'} = {}; |
| 13 |
– |
$self->{'uses'} = {}; |
| 14 |
– |
$self->{'modules'} = {}; |
| 15 |
– |
bless $self; |
| 16 |
– |
} |
| 17 |
– |
|
| 2 |
|
######################################################################## |
| 3 |
|
# |
| 4 |
|
# filepp is free software; you can redistribute it and/or modify |
| 21 |
|
# Filename : $RCSfile: filepp,v $ |
| 22 |
|
# Author : $Author: tim $ |
| 23 |
|
# Maintainer : Darren Miller: darren@cabaret.demon.co.uk |
| 24 |
< |
# File version : $Revision: 1.1 $ |
| 25 |
< |
# Last changed : $Date: 2004-10-01 21:11:29 $ |
| 24 |
> |
# File version : $Revision: 1.2 $ |
| 25 |
> |
# Last changed : $Date: 2004-10-02 04:40:48 $ |
| 26 |
|
# Description : Main program |
| 27 |
|
# Licence : GNU copyleft |
| 28 |
|
# |
| 2437 |
|
my $file; |
| 2438 |
|
if ($modulename !~ /^procedure/){ |
| 2439 |
|
|
| 2440 |
+ |
$modulename =~ s/\s+$//; |
| 2441 |
|
$parsedModList{uc($modulename) . ".mod"} = Filepp::GetDefine('__FILE__'); |
| 2442 |
|
|
| 2443 |
|
#$modulefile = Filepp::GetDefine('__BASE_FILE__'); |
| 2459 |
|
my $line = shift; |
| 2460 |
|
$line =~ /^(\w+).*/; |
| 2461 |
|
my $f90module = $1; |
| 2462 |
+ |
$f90module =~ s/\s+$//; |
| 2463 |
|
$f90module = uc($f90module); |
| 2464 |
|
|
| 2465 |
|
print " " . $objDir . $f90module . '.mod \\', "\n"; |
| 2477 |
|
Filepp::AddKeyword("include", "Filepp::Include"); |
| 2478 |
|
|
| 2479 |
|
############################################################################## |
| 2480 |
< |
# add RecordFileInfo info Filepp. Every time a file is opened, an entry |
| 2495 |
< |
# of this file is created |
| 2480 |
> |
# test whether a file is visited or not |
| 2481 |
|
############################################################################## |
| 2497 |
– |
|
| 2498 |
– |
sub RecordFileInfo{ |
| 2499 |
– |
my $file = Filepp::GetDefine('__FILE__'); |
| 2500 |
– |
# dependenyGraph->add_vertex(new ); |
| 2501 |
– |
|
| 2502 |
– |
#if it is not base file, we need to add an edge |
| 2503 |
– |
if ($include_level > 0) { |
| 2504 |
– |
|
| 2505 |
– |
} |
| 2506 |
– |
|
| 2507 |
– |
} |
| 2508 |
– |
|
| 2509 |
– |
Filepp::AddOpenInputFunc("Filepp::RecordFileInfo"); |
| 2510 |
– |
|
| 2482 |
|
sub IsVisited { |
| 2483 |
|
my $fullfile = shift; |
| 2484 |
|
|
