Added a new Harmony Core custom field loop expression <HARMONYCORE_CUSTOM_FIELD_TYPE_type> that makes it possible to detect specific custom field types.

Author: SteveIves

CodeGenEngine/ExpressionEvaluators/ExpressionEvaluator.dbl

@@ -184,9 +184,13 @@ namespace CodeGen.Engine
                     if (template.Context.CurrentTask.Tweaks != ^null) then
                         mreturn template.Context.CurrentTask.Tweaks.Contains(expression.Value.Value.Replace("TWEAK_",""))
                     else
-                        mreturn false                   
+                        mreturn false
                 end
 
+                ;;HARMONYCORE_CUSTOM_FIELD_TYPE_
+                else if ((currentContext == TokenType.FieldLoop) && expression.Value.Value.StartsWith("HARMONYCORE_CUSTOM_FIELD_TYPE_")) then
+                    mreturn evaluateFieldHcCustomType(expression.Value, template, loops)
+
                 ;;COUNTER_
                 else if ((expression.Value.Value.StartsWith("COUNTER_1_")
                 &    ||   expression.Value.Value.StartsWith("COUNTER_2_")) 

CodeGenEngine/ExpressionEvaluators/ExpressionEvaluatorFieldLoop.dbl

@@ -2898,6 +2898,33 @@ namespace CodeGen.Engine
 
         endmethod
 
+        private static method evaluateFieldHcCustomType, boolean
+            tkn, @Token 
+            template, @FileNode 
+            loops, @IEnumerable<LoopNode> 
+        proc
+            lambda doEvaluate(str, field, index)
+            begin
+                ;; Extract the search text from the token
+                data searchText, string, tkn.Value.ToUpper().Replace("HARMONYCORE_CUSTOM_FIELD_TYPE_", "")
+
+                ;; Make sure we have search text
+                if (String.IsNullOrWhiteSpace(searchText))
+                    throw new ApplicationException(String.Format("Invalid custom field expression token {0} at line {1} in template {2}", tkn.Value, tkn.StartLineNumber, template.Context.CurrentTemplateBaseName))
+
+                ;Expand it to the full sting that we're looking for
+                searchText = String.Format("HARMONYCORE_CUSTOM_FIELD_TYPE={0};",searchText).ToUpper()
+
+                ;Is it there? Return the result
+                mreturn ((field.UserText.ToUpper().Contains(searchText)) || (field.LongDescription.ToUpper().Contains(searchText)))
+            end
+
+            ;; We get here for any field loop expression <IF CUSTOM_xxx> or <IF_CUSTOM_NOT_xxx> and we are
+            ;; looking for text to be or not to be present in the current fields user text or long description.
+            mreturn EvaluateFieldLoopExpression(tkn, template, loops, doEvaluate)
+
+        endmethod
+
     endclass
 
 endnamespace

CodeGenEngine/Tokenizer.dbl

@@ -85,6 +85,7 @@ namespace CodeGen.Engine
         private customExpressionValidity, @List<TokenValidity>
         private userTokenValidity, @List<TokenValidity>
         private loopUtilityTokenValidity, @List<TokenValidity>
+        private hcFieldExpressionValidity, @List<TokenValidity>
 
         private context, @CodeGenContext
         private errorsReported, boolean, false
@@ -111,6 +112,10 @@ namespace CodeGen.Engine
             customExpressionValidity.Add(TokenValidity.MethodLoop)
             customExpressionValidity.Add(TokenValidity.ParameterLoop)
 
+            ;;Define where <IF HARMONYCORE_CUSTOM_FIELD_TYPE_ expressions may be used
+            hcFieldExpressionValidity = new List<TokenValidity>()
+            hcFieldExpressionValidity.Add(TokenValidity.FieldLoop)
+
             userTokenValidity = new List<TokenValidity>()
             userTokenValidity.Add(TokenValidity.Anywhere)
 
@@ -2050,6 +2055,10 @@ namespace CodeGen.Engine
                         begin
                             mreturn Tuple.Create(startedTokenIndex, ix, userTokenValidity)
                         end
+                        else if (expstring.StartsWith("HARMONYCORE_CUSTOM_FIELD_TYPE_")) then
+                        begin
+                            mreturn Tuple.Create(startedTokenIndex, ix, hcFieldExpressionValidity)
+                        end
                         else if (
                         &    (  expstring.StartsWith("COUNTER_1_") 
                         &    || expstring.StartsWith("COUNTER_2_"))