added reserved word expression token

Author: hippiehunter

DotNetCore/HarmonyCoreExtensions/HarmonyCoreExtensions.synproj

@@ -71,6 +71,7 @@
     <Compile Include="..\..\HarmonyCoreExtensions\RelationValidationEnabled.dbl" />
     <Compile Include="..\..\HarmonyCoreExtensions\RelationValidationNone.dbl" />
     <Compile Include="..\..\HarmonyCoreExtensions\RelationValidationValuePresent.dbl" />
+    <Compile Include="..\..\HarmonyCoreExtensions\ReservedWord.dbl" />
     <Compile Include="..\..\HarmonyCoreExtensions\ReturnValueBridgeType.dbl" />
     <Compile Include="..\..\HarmonyCoreExtensions\SegmentDataType.dbl" />
     <Compile Include="..\..\HarmonyCoreExtensions\SegmentHasCustomDataType.dbl" />

HarmonyCoreExtensions/HarmonyCoreExtensions.synproj

@@ -102,6 +102,7 @@
     <Compile Include="OneToMany.dbl" />
     <Compile Include="OneToManyToOne.dbl" />
     <Compile Include="OneToOne.dbl" />
+    <Compile Include="ReservedWord.dbl" />
     <Compile Include="OneToOneToOne.dbl" />
     <Compile Include="ParameterBridgeType.dbl" />
     <Compile Include="Properties\AssemblyInfo.dbl" />

HarmonyCoreExtensions/ReservedWord.dbl

@@ -0,0 +1,92 @@
+;;*****************************************************************************
+;;
+;; Title:       OneToMany.dbl
+;;
+;; Type:        Class
+;;
+;; Description: A custom relation loop expression token for use with Harmony Core
+;;
+;; Date:        21st August 2019
+;;
+;; Author:      Steve Ives, Synergex Professional Services Group
+;;              http://www.synergex.com
+;;
+;;*****************************************************************************
+;;
+;; Copyright (c) 2019, Synergex International, Inc.
+;; All rights reserved.
+;;
+;; Redistribution and use in source and binary forms, with or without
+;; modification, are permitted provided that the following conditions are met:
+;;
+;; * Redistributions of source code must retain the above copyright notice,
+;;   this list of conditions and the following disclaimer.
+;;
+;; * Redistributions in binary form must reproduce the above copyright notice,
+;;   this list of conditions and the following disclaimer in the documentation
+;;   and/or other materials provided with the distribution.
+;;
+;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+;; AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+;; IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+;; ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
+;; LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+;; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+;; SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+;; INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+;; CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+;; POSSIBILITY OF SUCH DAMAGE.
+;;
+;;*****************************************************************************
+
+import System
+import System.Collections.Generic
+import CodeGen.Engine
+import CodeGen.RepositoryAPI
+
+namespace HarmonyCoreExtensions
+
+    public class IsFieldReserved implements IExpressionToken
+
+        public property TokenName, String
+            method get
+            proc
+                mreturn "IS_FIELD_RESERVED"
+            endmethod
+        endproperty
+
+        public property Description, String
+            method get
+            proc
+                mreturn "Determines if a field name is a reserved word"
+            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>
+        proc
+            lambda doEvaluate(str, field, index)
+            begin
+                mreturn string.Compare(field.Name, "globalrfa", true) == 0 ||
+                &    string.Compare(field.Name, "synergyrecord", true) == 0 || 
+                &    string.Compare(field.Name, "metadata", true) == 0 || 
+                &    string.Compare(field.Name, "iriginalsynergyrecord", true) == 0
+            end
+
+            mreturn ExpressionEvaluator.EvaluateFieldLoopExpression(tkn, template, loops, doEvaluate)
+
+        endmethod
+
+    endclass
+
+endnamespace