From acc1530ee84bab1e0288e64fba8a581002bdae16 Mon Sep 17 00:00:00 2001
From: eschnett <eschnett@17b73243-c579-4c4c-a9d2-2d5706c11dac>
Date: Wed, 2 May 2012 23:16:11 +0000
Subject: Handle BEGIN/END INCLUDE in configuration.ccl script output

Translate BEGIN INCLUDE...END INCLUDE into include statements.


git-svn-id: http://svn.cactuscode.org/flesh/trunk@4809 17b73243-c579-4c4c-a9d2-2d5706c11dac
---
 lib/sbin/ConfigScriptParser.pl | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'lib/sbin')

diff --git a/lib/sbin/ConfigScriptParser.pl b/lib/sbin/ConfigScriptParser.pl
index 1b88a5e8..25e7d36b 100644
--- a/lib/sbin/ConfigScriptParser.pl
+++ b/lib/sbin/ConfigScriptParser.pl
@@ -57,6 +57,20 @@ sub ParseConfigScript
 
       }
     }
+    elsif($line =~ m/^\s*BEGIN\s+INCLUDE\s*/i)
+    {
+      $line_number++;
+      $line = $data[$line_number];
+      chomp $line;
+      while($line !~ m/^\s*END\s+INCLUDE\s*/i)
+      {
+        $cfg->{"\U$thorn $provides\E INCLUDE"} .= $line . "\n";
+        $line_number++;
+        $line = $data[$line_number];
+        chomp $line;
+
+      }
+    }
     elsif($line =~ m/^\s*BEGIN\s+ERROR\s*/i)
     {
       $line_number++;
-- 
cgit v1.2.3