Assume that if a line in schedule.ccl isn't the right format for a storage line, but

starts with "STOR" that is must be a formatting error.


git-svn-id: http://svn.cactuscode.org/flesh/trunk@2826 17b73243-c579-4c4c-a9d2-2d5706c11dac

1 files changed, 7 insertions, 0 deletions

diff --git a/lib/sbin/ScheduleParser.pl b/lib/sbin/ScheduleParser.pl
index 8b76076d..df6313d4 100644
--- a/lib/sbin/ScheduleParser.pl
+++ b/lib/sbin/ScheduleParser.pl
@@ -118,6 +118,13 @@ sub parse_schedule_ccl
       $buffer .= "\@STATEMENT\@$n_statements\n";
       $n_statements++;
     }
+    elsif($data[$line_number] =~ m/^\s*(STOR|COMM).*/i)
+    {
+      $hint = "Line should be of format STORAGE: <group>, <group>";
+      $message = "Format error in STORAGE statement of $thorn\nLine is: $data[$line_number]";
+      &CST_error(0,$message,$hint,__LINE__,__FILE__);
+	
+    }
     else
     {
       $buffer .= "$data[$line_number]\n";