Added and documented a key loop expression token named \<IF LITERAL_SEGMENTS\> that indicates whether the key being processed in a key loop includes one or more literal value segments.

Author: SteveIves

CodeGenEngine/ExpressionEvaluators/ExpressionEvaluatorKeyLoop.dbl

@@ -73,6 +73,7 @@ namespace CodeGen.Engine
             keyLoopExpressionEvaluators.Add("DUPLICATESATFRONT", evaluateKeyDuplicatesAtFront)
             keyLoopExpressionEvaluators.Add("FIRST_SEG_NOCASE", evaluateKeyFirstSegNoCase)
             keyLoopExpressionEvaluators.Add("FIRST_UNIQUE_KEY", evaluateKeyFirstUnique)
+            keyLoopExpressionEvaluators.Add("LITERAL_SEGMENTS", evaluateKeyLiteralSegments)
             keyLoopExpressionEvaluators.Add("MULTIPLE_SEGMENTS", evaluateKeyMultipleSegments)
             keyLoopExpressionEvaluators.Add("NOCHANGES", evaluateKeyNoChanges)
             keyLoopExpressionEvaluators.Add("NODUPLICATES", evaluateKeyNoDuplicates)
@@ -241,6 +242,16 @@ namespace CodeGen.Engine
             mreturn EvaluateKeyLoopExpression(tkn, template, loops, doEvaluate)
         endmethod
 
+        private static method evaluateKeyLiteralSegments, boolean
+            tkn, @Token 
+            template, @FileNode 
+            loops, @IEnumerable<LoopNode> 
+            endparams
+        proc
+            lambda doEvaluate(str, ky, index, loop) (ky.Segments.FirstOrDefault(lambda(s) { s.SegmentType == RpsKeySegmentType.Literal }) != ^null)
+            mreturn EvaluateKeyLoopExpression(tkn, template, loops, doEvaluate)
+        endmethod
+
         private static method evaluateKeyNoChanges, boolean
             tkn, @Token 
             template, @FileNode 

CodeGenEngine/Tokenizer.dbl

@@ -850,6 +850,7 @@ namespace CodeGen.Engine
             expressions.Add("LAST",                             TokenValidity.FieldLoop | TokenValidity.FieldSelectionLoop | TokenValidity.TagLoop)
             expressions.Add("LEAVE",                            TokenValidity.FieldLoop | TokenValidity.KeySegmentLoop | TokenValidity.RelationSegmentLoop)
             expressions.Add("LENGTH_OVER_8",                    TokenValidity.FieldLoop | TokenValidity.KeySegmentLoop | TokenValidity.RelationSegmentLoop)
+            expressions.Add("LITERAL_SEGMENTS",                 TokenValidity.KeyLoop)
             expressions.Add("LONG_DESCRIPTION",                 TokenValidity.EnumLoop)
             expressions.Add("LONGDESC",                         TokenValidity.FieldLoop | TokenValidity.KeySegmentLoop | TokenValidity.RelationSegmentLoop)
             expressions.Add("MAPPED",                           TokenValidity.FieldLoop | TokenValidity.KeySegmentLoop | TokenValidity.RelationSegmentLoop)