| 21 |
|
# Filename : $RCSfile: filepp,v $ |
| 22 |
|
# Author : $Author: tim $ |
| 23 |
|
# Maintainer : Darren Miller: darren@cabaret.demon.co.uk |
| 24 |
< |
# File version : $Revision: 1.3 $ |
| 25 |
< |
# Last changed : $Date: 2004-10-06 22:19:33 $ |
| 24 |
> |
# File version : $Revision: 1.4 $ |
| 25 |
> |
# Last changed : $Date: 2004-10-11 14:51:57 $ |
| 26 |
|
# Description : Main program |
| 27 |
|
# Licence : GNU copyleft |
| 28 |
|
# |
| 32 |
|
|
| 33 |
|
use strict "vars"; |
| 34 |
|
use strict "subs"; |
| 35 |
– |
#use Graph; |
| 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; |
| 37 |
> |
#use bytes; |
| 38 |
|
|
| 39 |
|
# version number of program |
| 40 |
|
my $VERSION = '1.7.1'; |
| 41 |
|
|
| 42 |
|
# list of paths to search for modules, normal Perl list + module dir |
| 43 |
< |
push(@INC, "/home/maul/gezelter/tim/code/OOPSE-2.0/scripts/filepp-1.7.1/modules/f90dpend/"); |
| 43 |
> |
#push(@INC, "/home/maul/gezelter/tim/code/OOPSE-2.0/scripts/filepp-1.7.1/modules/f90dpend/"); |
| 44 |
|
|
| 45 |
|
# index of keywords supported and functions to deal with them |
| 46 |
|
my %Keywords = ( |
