From 2b471273798ec4a698eca6783f2de9057ca6584f Mon Sep 17 00:00:00 2001
From: eschnett <eschnett@17b73243-c579-4c4c-a9d2-2d5706c11dac>
Date: Sun, 16 Sep 2012 23:33:36 +0000
Subject: Enforce that arrangement names are legal C identifiers

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

(limited to 'lib')

diff --git a/lib/sbin/CST b/lib/sbin/CST
index cc19aa7c..1f407dcc 100644
--- a/lib/sbin/CST
+++ b/lib/sbin/CST
@@ -231,6 +231,15 @@ sub CreateThornList
       $package = $1;
       $thorn_name = $2;
 
+      # Check valid arrangement name
+      if (!TestName(1,$package))
+      {
+        &CST_error(0, "Arrangement name $package is not valid",
+                   'Arrangement names must begin with a letter, can only contain ' .
+                   'letters, numbers and underscores, and must contain at most 27 ' .
+                   'characters', __LINE__, __FILE__);
+      }
+
       # Check valid thornname
       if (!TestName(1,$thorn_name))
       {
-- 
cgit v1.2.3