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 = ( |