Added <HARMONYCORE_CUSTOM_FIELD_DATATYPE> and <IF HARMONYCORE_CUSTOM_DATATYPE>.

Author: Steve Ives

HarmonyCoreExtensions/CustomFieldDataType.dbl

@@ -0,0 +1,64 @@
+
+import System
+import System.Collections.Generic
+import CodeGen.Engine
+import CodeGen.RepositoryAPI
+
+namespace HarmonyCoreExtensions
+
+    public class CustomFieldDataType implements IExpansionToken
+
+        public property TokenName, String
+            method get
+            proc
+                mreturn "HARMONYCORE_CUSTOM_FIELD_DATATYPE"
+            endmethod
+        endproperty
+
+        public property Description, String
+            method get
+            proc
+                mreturn "An example of a custom field loop token."
+            endmethod
+        endproperty
+
+        public property Validity, TokenValidity
+            method get
+            proc
+                mreturn TokenValidity.FieldLoop
+            endmethod
+        endproperty
+
+        public property TokenCase, TokenCaseMode
+            method get
+            proc
+                mreturn TokenCaseMode.UppercaseOnly
+            endmethod
+        endproperty
+
+        public method Expand, String
+            tkn, @Token
+            template, @FileNode 
+            loops, @IEnumerable<LoopNode>
+            endparams
+        proc
+            lambda doExpand(str, field)
+            begin
+                data textToSearch = field.LongDescription + field.UserText
+                if (field.LongDescription.Contains("HARMONYCORE_CUSTOM_FIELD_DATATYPE="))
+                begin
+                    data startPos = textToSearch.IndexOf("HARMONYCORE_CUSTOM_FIELD_DATATYPE=")
+                    data semiPos = -1
+                    if (startPos!=-1)
+                        semiPos = textToSearch.IndexOf(";",startPos)
+                    if ((startPos!=-1) && (semiPos!=-1) && (semiPos>(startPos+34)))
+                        mreturn textToSearch.SubString(startPos+34,semiPos-startPos-34)
+                end
+                mreturn field.SnType
+            end
+            mreturn TokenExpander.ExpandFieldLoopToken(tkn, template, loops, doExpand)
+        endmethod
+
+    endclass
+
+endnamespace

HarmonyCoreExtensions/CustomFieldType.dbl

@@ -6,7 +6,7 @@ import CodeGen.RepositoryAPI
 
 namespace HarmonyCoreExtensions
 
-    public class CustomFieldLoopToken implements IExpansionToken
+    public class CustomFieldType implements IExpansionToken
 
         public property TokenName, String
             method get

HarmonyCoreExtensions/HarmonyCoreExtensions.synproj

@@ -68,10 +68,12 @@
     <Reference Include="System.Core" />
   </ItemGroup>
   <ItemGroup>
+    <Compile Include="CustomFieldDataType.dbl" />
     <Compile Include="CustomFieldType.dbl" />
     <Compile Include="CustomRelationSpec.dbl" />
     <Compile Include="FieldProperty.dbl" />
     <Compile Include="FromRelationName.dbl" />
+    <Compile Include="HasCustomDataType.dbl" />
     <Compile Include="Helpers.dbl" />
     <Compile Include="IsCustomField.dbl" />
     <Compile Include="ManyToOneToMany.dbl" />

HarmonyCoreExtensions/HasCustomDataType.dbl

@@ -0,0 +1,57 @@
+
+import System
+import System.Collections.Generic
+import CodeGen.Engine
+import CodeGen.RepositoryAPI
+
+namespace HarmonyCoreExtensions
+
+    public class HasCustomDataType implements IExpressionToken
+
+        public property TokenName, String
+            method get
+            proc
+                mreturn "HARMONYCORE_CUSTOM_DATATYPE"
+            endmethod
+        endproperty
+
+        public property Description, String
+            method get
+            proc
+                mreturn "Does the field have a custom data type?"
+            endmethod
+        endproperty
+
+        public property Validity, TokenValidity
+            method get
+            proc
+                mreturn TokenValidity.FieldLoop
+            endmethod
+        endproperty
+
+        public method Evaluate, Boolean
+            tkn, @Token
+            template, @FileNode 
+            loops, @IEnumerable<LoopNode>
+            endparams
+        proc
+            lambda doEvaluate(str, field, index)
+            begin
+                data textToSearch = field.LongDescription + field.UserText
+                ;Add code here to determine the result of the expression, and return true or false
+                if (textToSearch.Contains("HARMONYCORE_CUSTOM_FIELD_DATATYPE="))
+                begin
+                    data startPos = textToSearch.IndexOf("HARMONYCORE_CUSTOM_FIELD_DATATYPE=")
+                    data semiPos = -1
+                    if (startPos!=-1)
+                        semiPos = textToSearch.IndexOf(";",startPos)
+                    mreturn (startPos!=-1) && (semiPos!=-1) && (semiPos>(startPos+34))
+                end
+                mreturn false
+            end
+            mreturn ExpressionEvaluator.EvaluateFieldLoopExpression(tkn, template, loops, doEvaluate)
+        endmethod
+
+    endclass
+
+endnamespace

HarmonyCoreExtensions/IsCustomField.dbl

@@ -6,7 +6,7 @@ import CodeGen.RepositoryAPI
 
 namespace HarmonyCoreExtensions
 
-    public class CustomFieldLoopExpression implements IExpressionToken
+    public class IsCustomField implements IExpressionToken
 
         public property TokenName, String
             method get