diff options
-rw-r--r-- | doc/UsersGuide/ThornWriters.tex | 4 | ||||
-rwxr-xr-x | lib/make/new_thorn.pl | 6 | ||||
-rw-r--r-- | lib/sbin/CSTUtils.pl | 6 |
3 files changed, 14 insertions, 2 deletions
diff --git a/doc/UsersGuide/ThornWriters.tex b/doc/UsersGuide/ThornWriters.tex index 2bf2b3e1..cc6655a8 100644 --- a/doc/UsersGuide/ThornWriters.tex +++ b/doc/UsersGuide/ThornWriters.tex @@ -52,8 +52,8 @@ configuration files which are parsed at compile time and used to generate glue code which encapsulates the external appearence of a thorn. Thorn names must be (case independently) unique, must start with a letter, -and can only contain -letters, numbers or underscores. +can only contain +letters, numbers or underscores, and must contain 27 characters or less. In addition, a thorn cannot have the name {\t doc}, this is reserved for arrangement documentation. Arrangement names which start with a `\#', or finish with `\~{}' or `.bak' will be ignored. diff --git a/lib/make/new_thorn.pl b/lib/make/new_thorn.pl index 41042c70..05ec24b7 100755 --- a/lib/make/new_thorn.pl +++ b/lib/make/new_thorn.pl @@ -285,6 +285,12 @@ sub TestName $valid = 0; } + if ($thorn && length($name)>27) + { + print STDERR "Thorn names must be 27 characters or less!\n\n"; + $valid = 0; + } + if ($thorn && $name eq "doc") { print STDERR "Thorn name doc is not allowed!\n\n"; diff --git a/lib/sbin/CSTUtils.pl b/lib/sbin/CSTUtils.pl index c7b899dd..7815e4d4 100644 --- a/lib/sbin/CSTUtils.pl +++ b/lib/sbin/CSTUtils.pl @@ -248,6 +248,12 @@ sub TestName $valid = 0; } + if ($thorn && length($name)>27) + { + print STDERR "Thorn names must be 27 characters or less!\n\n"; + $valid = 0; + } + if ($thorn && $name eq "doc") { print STDERR "Thorn name doc is not allowed!\n\n"; |