diff options
author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-07-26 12:00:56 +0000 |
---|---|---|
committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-07-26 12:00:56 +0000 |
commit | 0d52d6509f7cf5a18ce66de91d6b732c38769247 (patch) | |
tree | 8446d71ae3064214dcf8e1e7b8ffaba81d1ff5c7 /lib/sbin/f_file_processor.pl | |
parent | f55d83fdd1a810971008e384676d7413fa873955 (diff) |
Get rid of ! Fortran comments in the first coloum
git-svn-id: http://svn.cactuscode.org/flesh/trunk@788 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/f_file_processor.pl')
-rw-r--r-- | lib/sbin/f_file_processor.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/sbin/f_file_processor.pl b/lib/sbin/f_file_processor.pl index a4cbbe07..8e8c89e8 100644 --- a/lib/sbin/f_file_processor.pl +++ b/lib/sbin/f_file_processor.pl @@ -35,8 +35,8 @@ while (<>) { s/\&\&\s*/\n /g; s/\&\!\s*/\n/g; - # Get rid of standard c C comments - s/^[cC].*$/\n/g; + # Get rid of standard c C, or even ! comments + s/^[cC!].*$/\n/g; # Get rid of ! comments : a bit tricky as ! may appear inside strings s/(.)![^'"]*$/\1\n/g; |