Aded <HARMONYCORE_BRIDGE_PARAMETER_DEFINITION>.

Author: SteveIves

Documentation/CodeGen.chm

@@ -74,6 +74,7 @@
     <Compile Include="FieldDataType.dbl" />
     <Compile Include="CustomFieldType.dbl" />
     <Compile Include="CustomRelationSpec.dbl" />
+    <Compile Include="ParameterBridgeDefinition.dbl" />
     <Compile Include="SegmentDataType.dbl" />
     <Compile Include="FieldProperty.dbl" />
     <Compile Include="FromRelationName.dbl" />

Documentation/CodeGen.hsm

@@ -0,0 +1,129 @@
+;;*****************************************************************************
+;;
+;; Title:       ParameterBridgeDefinition.dbl
+;;
+;; Type:        Class
+;;
+;; Description: A custom parameter loop expansion token for use with Harmony Core
+;;
+;; Date:        9th November 2020
+;;
+;;*****************************************************************************
+;;
+;; Copyright (c) 2020, 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.MethodCatalogAPI
+import CodeGen.RepositoryAPI
+import System.IO
+import Newtonsoft.Json
+import System.Linq
+import Newtonsoft.Json.Linq
+
+namespace HarmonyCoreExtensions
+
+    public class ParameterBridgeDefinition implements IExpansionToken
+
+        public property TokenName, String
+            method get
+            proc
+                mreturn "HARMONYCORE_BRIDGE_PARAMETER_DEFINITION"
+            endmethod
+        endproperty
+
+        public property Description, String
+            method get
+            proc
+                mreturn "Generates a Synergy data type definition for a method parameter for use with Harmony Core Traditional Bridge."
+            endmethod
+        endproperty
+
+        public property Validity, TokenValidity
+            method get
+            proc
+                mreturn TokenValidity.ParameterLoop
+            endmethod
+        endproperty
+
+        public property TokenCase, TokenCaseMode
+            method get
+            proc
+                mreturn TokenCaseMode.AllCasingOptions
+            endmethod
+        endproperty
+
+        public method Expand, String
+            tkn, @Token
+            template, @FileNode 
+            loops, @IEnumerable<LoopNode>
+        proc
+            lambda doExpand(catalog,iface,meth,param)
+            begin
+                using param.Type select
+                (ParameterType.Alpha),
+                begin
+                    mreturn String.Format("A{0}",param.Size)
+                end
+                (ParameterType.Decimal),
+                begin
+                    mreturn String.Format("D{0}",param.Size)
+                end
+                (ParameterType.Enumeration),
+                begin
+                    mreturn param.EnumName
+                end
+                (ParameterType.Handle, ParameterType.BinaryHandle),
+                begin
+                    mreturn "D_HANDLE"
+                end
+                (ParameterType.ImpliedDecimal),
+                begin
+                    mreturn String.Format("D{0}.{1}",param.Size==param.Precision?param.Size+1:param.Size,param.Precision)
+                end
+                (ParameterType.Integer),
+                begin
+                    mreturn String.Format("I{0}",param.Size)
+                end
+                (ParameterType.String),
+                begin
+                    mreturn "STRING"
+                end
+                (ParameterType.Structure),
+                begin
+                    mreturn String.Format(param.StructureName)
+                end
+                endusing
+            end
+            mreturn TokenExpander.ExpandParameterLoopToken(tkn, template, loops, doExpand)
+        endmethod
+
+    endclass
+
+endnamespace