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

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;
         }
       }
     }