# | Line 1 | Line 1 | |
---|---|---|
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 | |
# | Line 37 | Line 21 | sub new { | |
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 | # | |
# | Line 2453 | Line 2437 | sub Module{ | |
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__'); | |
# | Line 2474 | Line 2459 | sub Use{ | |
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"; | |
# | Line 2491 | Line 2477 | Filepp::AddKeyword("include", "Filepp::Include"); | |
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 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |