- (!ws ";")?
-
-Port = Port:: shipname ("." portname)*
-shipname = ShipName:: name index?
-portname = PortName:: name index?
-name = [A-Za-z0-9\[\]\.]**
+ (ws! ";")?!
+
+//Port = Port:: shipname ("." portname)*
+Port = Port:: shipname "." portname
+ | Port:: shipname
+shipname = ShipName:: name (index?)
+portname = PortName:: name (index?)
+name = [A-Za-z0-9\[\]]**