Added a new field loop expansion token <FIELD_DBL_NET_CONVERTER>.

Synergex · Apr 1, 2024 · 805a216 · 805a216
1 parent 2e61636
commit 805a216
Show file tree

Hide file tree

Showing 8 changed files with 325 additions and 3 deletions.
diff --git a/CodeGen.sln b/CodeGen.sln
@@ -42,6 +42,7 @@ Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "SampleTemplates", "SampleTe
 		SampleTemplates\DatabaseTableConnection.tpl = SampleTemplates\DatabaseTableConnection.tpl
 		SampleTemplates\DatabaseTableMapped.tpl = SampleTemplates\DatabaseTableMapped.tpl
 		SampleTemplates\DatabaseTableTest.tpl = SampleTemplates\DatabaseTableTest.tpl
+		SampleTemplates\DblNetConverter.dbl = SampleTemplates\DblNetConverter.dbl
 		SampleTemplates\DecimalToMDYString.dbl = SampleTemplates\DecimalToMDYString.dbl
 		SampleTemplates\DecimalToTimeString.dbl = SampleTemplates\DecimalToTimeString.dbl
 		SampleTemplates\IsDate.dbl = SampleTemplates\IsDate.dbl

diff --git a/CodeGenEngine/TokenExpanders/TokenExpanderFieldLoop.dbl b/CodeGenEngine/TokenExpanders/TokenExpanderFieldLoop.dbl
@@ -76,6 +76,7 @@ namespace CodeGen.Engine
             fieldLoopTokenExpanders.Add("FIELD_CUSTOM_SQL_TYPE", expandFieldCustomSqlType)
             fieldLoopTokenExpanders.Add("FIELD_CUSTOM_CONVERT_FUNCTION", expandFieldCustomConvertFunction)
             fieldLoopTokenExpanders.Add("FIELD_CUSTOM_STRING_FUNCTION", expandFieldCustomStringFunction)
+            fieldLoopTokenExpanders.Add("FIELD_DBL_NET_CONVERTER", expandFieldDblNetConverterer)
             fieldLoopTokenExpanders.Add("FIELD_DEFAULT", expandFieldDefault)
             fieldLoopTokenExpanders.Add("FIELD_DESC", expandFieldDescription)
             fieldLoopTokenExpanders.Add("FIELD_DESC_DOUBLE", expandFieldDescriptionDouble)
@@ -482,6 +483,16 @@ namespace CodeGen.Engine
             mreturn ExpandFieldLoopToken(tkn, template, loops, doExpand)
         endmethod
 
+        private static method expandFieldDblNetConverterer, string
+            tkn, @Token 
+            template, @FileNode 
+            loops, @IEnumerable<LoopNode> 
+            endparams
+        proc
+            lambda doExpand(str, field) field.DblNetConverterer
+            mreturn ExpandFieldLoopToken(tkn, template, loops, doExpand)
+        endmethod
+
         private static method expandFieldDefault, string
             tkn, @Token 
             template, @FileNode 

diff --git a/CodeGenEngine/Tokenizer.dbl b/CodeGenEngine/Tokenizer.dbl
@@ -313,6 +313,7 @@ namespace CodeGen.Engine
             &    { new TokenMeta() {Name = "FIELD_CUSTOM_SQL_TYPE", TypeOfToken = TokenType.FieldLoop, IsPaired = false, Validity = TokenValidity.FieldLoop | TokenValidity.KeySegmentLoop | TokenValidity.RelationSegmentLoop, RequiresRepository = true} }, 
             &    { new TokenMeta() {Name = "FIELD_CUSTOM_CONVERT_FUNCTION", TypeOfToken = TokenType.FieldLoop, IsPaired = false, Validity = TokenValidity.FieldLoop | TokenValidity.KeySegmentLoop | TokenValidity.RelationSegmentLoop, RequiresRepository = true} }, 
             &    { new TokenMeta() {Name = "FIELD_CUSTOM_STRING_FUNCTION", TypeOfToken = TokenType.FieldLoop, IsPaired = false, Validity = TokenValidity.FieldLoop | TokenValidity.KeySegmentLoop | TokenValidity.RelationSegmentLoop, RequiresRepository = true} }, 
+            &    { new TokenMeta() {Name = "FIELD_DBL_NET_CONVERTER", TypeOfToken = TokenType.FieldLoop, IsPaired = false, Validity = TokenValidity.FieldLoop | TokenValidity.KeySegmentLoop | TokenValidity.RelationSegmentLoop, RequiresRepository = true} }, 
             &    { new TokenMeta() {Name = "FIELD_DEFAULT", TypeOfToken = TokenType.FieldLoop, IsPaired = false, Validity = TokenValidity.FieldLoop | TokenValidity.KeySegmentLoop | TokenValidity.RelationSegmentLoop, RequiresRepository = true} }, 
             &    { new TokenMeta() {Name = "FIELD_DESC", TypeOfToken = TokenType.FieldLoop, IsPaired = false, Validity = TokenValidity.FieldLoop | TokenValidity.KeySegmentLoop | TokenValidity.RelationSegmentLoop, RequiresRepository = true} }, 
             &    { new TokenMeta() {Name = "FIELD_DESC_DOUBLE", TypeOfToken = TokenType.FieldLoop, IsPaired = false, Validity = TokenValidity.FieldLoop | TokenValidity.KeySegmentLoop | TokenValidity.RelationSegmentLoop, RequiresRepository = true} }, 

diff --git a/CodeGenSetup/Product.wxs b/CodeGenSetup/Product.wxs
@@ -703,6 +703,9 @@
       <Component Id="CanOpenFile.dbl" Guid="{B4B035DD-11AD-4FDD-9B5A-B5767E89F5A1}">
         <File Id="CanOpenFile.dbl" KeyPath="yes" Source="..\SampleTemplates\CanOpenFile.dbl" />
       </Component>
+      <Component Id="DblNetConverter.dbl" Guid="{B42AB98F-AF10-4DFE-94AA-3E17D251A3C2}">
+        <File Id="DblNetConverter.dbl" KeyPath="yes" Source="..\SampleTemplates\DblNetConverter.dbl" />
+      </Component>
       <Component Id="DecimalToMDYString.dbl" Guid="{7CB9A496-9DB2-4965-9383-CF4CBAC28DDD}">
         <File Id="DecimalToMDYString.dbl" KeyPath="yes" Source="..\SampleTemplates\DecimalToMDYString.dbl" />
       </Component>
@@ -946,6 +949,7 @@
 
         <ComponentRef Id="CamelCase.dbl" />
         <ComponentRef Id="CanOpenFile.dbl" />
+        <ComponentRef Id="DblNetConverter.dbl" />
         <ComponentRef Id="DecimalToMDYString.dbl" />
         <ComponentRef Id="DecimalToTimeString.dbl" />
         <ComponentRef Id="IsDate.dbl" />

diff --git a/Documentation/CodeGen.chm b/Documentation/CodeGen.chm
diff --git a/Documentation/CodeGen.hsmx b/Documentation/CodeGen.hsmx