diff options
author | schnetter <schnetter@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2006-07-05 19:01:27 +0000 |
---|---|---|
committer | schnetter <schnetter@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2006-07-05 19:01:27 +0000 |
commit | 84b5387be42d4e209988926341bc98a67ce06846 (patch) | |
tree | c70e6a355a88a8248e0bdffec2fe3eaf27dac1a5 /lib/sbin/f_file_processor.pl | |
parent | fc99697e4760b877e4321a5c5dc5e28e9c9242cb (diff) |
Add some comments.
Set the current file name together with the current line number when a
"#" statement is encountered.
git-svn-id: http://svn.cactuscode.org/flesh/trunk@4344 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/f_file_processor.pl')
-rw-r--r-- | lib/sbin/f_file_processor.pl | 18 |
1 files changed, 12 insertions, 6 deletions
diff --git a/lib/sbin/f_file_processor.pl b/lib/sbin/f_file_processor.pl index 2b34aadc..4601b63d 100644 --- a/lib/sbin/f_file_processor.pl +++ b/lib/sbin/f_file_processor.pl @@ -10,19 +10,23 @@ # # removes all comments # replaces && with newline and tab to col 7 -# replaces &! with newline at col 0 -# replaces \ at end of line with proper Fortran continuation lines -# (depending on -free_format) -# Breaks lines greater than 72 cols +# Breaks lines greater than 72 or 132 cols +# (depending on fixed or free format) # Does this using multi-line matching! # -# If run with -free_format, chooses free-format -# line splitting. +# If run with -free_format, chooses free-format line splitting. # # @enddesc # @version $Header$ #@@*/ +# Possible command line options: +# -free-format +# -line_directives=[yes|no] +# -source_file_name=[filename] +# Reads input from stdin. +# The result will be printed to stdout. + $MULTILINE_MATCHING = 1; # Multi-line is on! # Do we want line directives? @@ -298,8 +302,10 @@ sub printline ++$autoline; } } else { + # print "# $line \"$file\"\n"; print "# $line\n"; $autoline = $line; + $autofile = $file; } } } |