Daemon: ObjectIdentifierMaxLength added to default options

esa · Jan 27, 2020 · 1ac3999 · 1ac3999
1 parent 3f0babb
commit 1ac3999
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/Service.Implementation/Asn1Service.fs b/Service.Implementation/Asn1Service.fs
@@ -22,6 +22,7 @@ type Asn1Service() =
         Dto.GenerationOptions.TypePrefix = ""
         Dto.GenerationOptions.FieldPrefix = CommonTypes.FieldPrefixAuto
         Dto.GenerationOptions.RenamePolicy = CommonTypes.EnumRenamePolicy.SelectiveEnumerants
+        Dto.GenerationOptions.ObjectIdentifierMaxLength = 8
     }
 
     interface IAsn1Service with
@@ -79,8 +80,7 @@ type Asn1Service() =
             custom_Stg_Ast_Version = 1
             fieldPrefix = match box options.FieldPrefix with | null -> None | _ -> Some(options.FieldPrefix)
             targetLanguages = match box options.TargetLanguage with | null -> [defaultOptions.TargetLanguage] | _ -> [options.TargetLanguage]
-            floatingPointSizeInBytes = 8I
-            objectIdentifierMaxLength = 8I
+            objectIdentifierMaxLength = bigint(match options.ObjectIdentifierMaxLength with | 0 -> defaultOptions.ObjectIdentifierMaxLength | _ -> options.ObjectIdentifierMaxLength)
         }
 
     member private this.ConvertInput (input:Dto.FileData) : CommonTypes.Input =

diff --git a/Service/Dto.fs b/Service/Dto.fs
@@ -10,6 +10,7 @@ type GenerationOptions = {
     TypePrefix: string
     FieldPrefix: CommonTypes.FieldPrefix
     RenamePolicy: CommonTypes.EnumRenamePolicy
+    ObjectIdentifierMaxLength: int
 }
 
 type FileData = {