allow underscores in ship/port names

diff --git a/fleet.g b/fleet.g
index 7a5b16c..85ce537 100644 (file)
--- a/fleet.g
+++ b/fleet.g
@@ -43,7 +43,7 @@ CodeBag        = CodeBagRef:: CodeBagName
 CodeBagName    = name &~ Opcode
 shipname       = name &~ Opcode
 portname       = name &~ Opcode
-name           = Name:: [A-Za-z] [A-Za-z0-9\[\]]**
+name           = Name:: [A-Za-z] [A-Za-z0-9\[\]_]**
 index          = "[" [0-9]+ "]" | [0-9]+
 int            = [\-0-9]++