gps_pvt 0.10.1 → 0.10.2

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: dc12b7e4590d91b7afacd099d36852acdde54d11e8418ff0c99386ac17e68ca4
-  data.tar.gz: f3286d74e35a744a2c451768f8785c259f36f5d6a94d04daaad71857f472429a
+  metadata.gz: 291357170b42fbbecccdac288a218cd8a1b0730db5b93e9adb43c4635674a386
+  data.tar.gz: 2b7da00981f6a55db29dbfc88083eb6806ea744bbc0cc0b1a97fd2939bc95496
 SHA512:
-  metadata.gz: 0611b095f8e2ccb80baa1dc9ba98291b6a5091dcbb14479b64058541260e5ccfd8ee1589aa40fc73393837b638f23633ac3dcfaa8fe23b396c1edfb960d47d75
-  data.tar.gz: 90731b787b1a62c718a49da481adc87bdedd26d57c207f29d69b35dffb0859bdaf185a6fe739060be68370cf66587feb26ffd18f01a2ed6037900a6c9527e35b
+  metadata.gz: bc697b14d15e9ebb4d445e076284c97bf349df98c4f146f4ac96ff1875f1a6c9cac328e26af533a8abca89ae792b6ad70e1ce1172f0e97117c5dc28518105d35
+  data.tar.gz: 0536ce452ad85fe1e460e7c6e1dd577c63148505e275a4fa5bcb749d457c7fb80315833151d2aab54bd8f5a92b4b59941d7818d903de676823501d16d0d2a930

data/README.md

@@ -172,7 +172,7 @@ Utility to get and dump GPS files. After installation of gps_pvt, to type
 
     $ gps_get file_or_URI(s) (options) > output_file
 
-saves data into output_file by using redirection. http(s), ftp, ntrip, and supl can be used as scheme of URI. Serial port is also supported. Note that compressed data is automatically decompressed before output. The following options are available.
+saves data into output_file by using redirection. http(s), ftp, ntrip, and supl can be used as scheme of URI. Serial port is also supported. Note that compressed data is automatically decompressed before output. It is also noted that supl received data are filtered to its LPP/RRLP content, and printed in JSON format. The following options are available.
 
 | key | value | comment | since |
 ----|----|----|----

data/lib/gps_pvt/asn1/asn1.rb

@@ -1,3 +1,5 @@
+require 'set'
+
 module GPS_PVT
 end
 
@@ -261,10 +263,10 @@ resolve_tree = proc{|root|
     res
   }
   
-  # This proc is useless because assumed automatic tagging 
-  # does not require to re-order based on manual tags or class numbers
+  # This proc is used to re-order for non-automatic tagging transformation
   # @see https://stackoverflow.com/a/31450137
   get_universal_class_number = proc{|type|
+    # TODO where is CHOICE class number definition?
     next get_universal_class_number.call(type[1][:root][0][:type]) if type[0] == :CHOICE
     { # @see Table.1 unless any comment
       :BOOLEAN => 1,
@@ -274,6 +276,9 @@ resolve_tree = proc{|root|
       :NULL => 5,
       :ENUMERATED => 10,
       :SEQUENCE => 16,
+      :SEQUENCE_OF => 16,
+      :SET => 17,
+      :SET_OF => 17,
       :NumericString => 18, # @see Table.6
       :PrintableString => 19, # @see Table.6
       :IA5String => 22, # @see Table.6
@@ -281,6 +286,23 @@ resolve_tree = proc{|root|
       :UTCTime => 23, # @see 43.3
     }[type[0]]
   }
+
+  reorder_children = proc{|type_opts|
+    # reordering when automatic tagging transformation is not selected
+    tags = Set[]
+    [type_opts[:root], type_opts[:extension]].compact.each{|items|
+      items.collect!{|v|
+        tag = v[:type][1][:tag]
+        tag_class_num = case tag
+        when Array; [{"APPLICATION" => 1, "PRIVATE" => 3}[tag[0]], tag[1]]
+        when Integer; [2, tag] # (Context-specific) 
+        else; [0, get_universal_class_number.call(v[:type])] # UNIVERSAL
+        end
+        raise unless tags.add?(tag_class_num) # Identical tag is already existed!
+        [v, tag_class_num]
+      }.sort!{|a, b| a[1] <=> b[1]}.collect!{|v| v[0]}
+    }
+  }
   
   prepare_coding = proc{|tree|
     next tree.each{|k, v|
@@ -313,7 +335,8 @@ resolve_tree = proc{|root|
       }
     when :BIT_STRING, :OCTET_STRING
       opts[:size_range] = find_range.call(opts, :size)
-    when :SEQUENCE
+    when :SEQUENCE, :SET
+      reorder_children.call(opts) if (opts[:automatic_tagging] == false) # only for SET
       (opts[:root] + (opts[:extension] || [])).each.with_index{|v, i|
         v[:name] = v[:name] ? v[:name].to_sym : i
         v[:type][1][:typename] ||= v[:name] if v[:name].kind_of?(Symbol) && v[:type] # for debugger
@@ -325,11 +348,11 @@ resolve_tree = proc{|root|
           v2[:name]
         } if v[:group]
       }
-    when :SEQUENCE_OF
+    when :SEQUENCE_OF, :SET_OF
       opts[:size_range] = find_range.call(opts, :size)
       prepare_coding.call(opts)
     when :CHOICE
-      # Skip reordering based on automatic tagging assumption
+      reorder_children.call(opts) if (opts[:automatic_tagging] == false)
       opts[:extension] = opts[:extension].collect{|v|
         v[:group] || [v] # 22. Note says "Version brackets have no effect"
       }.flatten(1) if opts[:extension]
@@ -372,7 +395,7 @@ generate_skeleton = proc{|tree, data|
     when :BIT_STRING, :OCTET_STRING
       data || ({:BIT_STRING => [0], :OCTET_STRING => [0xFF]}[type] \
           * (opts[:size_range][:root].first rescue 0))
-    when :SEQUENCE
+    when :SEQUENCE, :SET
       data ||= {}
       Hash[*((opts[:root] + (opts[:extension] || [])).collect{|v|
         if v[:group] then
@@ -386,7 +409,7 @@ generate_skeleton = proc{|tree, data|
           end
         end
       }.compact.flatten(2))]
-    when :SEQUENCE_OF
+    when :SEQUENCE_OF, :SET_OF
       next data.collect{|v| generate_skeleton.call(opts, v)} if data
       v = Marshal::dump(generate_skeleton.call(opts))
       (opts[:size_range][:root].first rescue 0).times.collect{
@@ -488,7 +511,7 @@ encode = proc{|tree, data|
         end
       end
       res += data.collect{|v| "%0#{bits}b"%[v]}.join
-    when :SEQUENCE
+    when :SEQUENCE, :SET
       opt_def_flags, root_encoded = opts[:root].collect{|v| # 18.2
         has_elm = data.include?(v[:name])
         elm = data[v[:name]]
@@ -532,7 +555,7 @@ encode = proc{|tree, data|
       end
 
       "#{ext_bit}#{opt_def_flags.join}#{root_encoded.join}#{ext_encoded}"
-    when :SEQUENCE_OF
+    when :SEQUENCE_OF, :SET_OF
       ext_bit, len_enc = case (cat = opts[:size_range].belong_to(data.size))
       when :additional
         # 19.4 -> 10.9.4.2(semi_constrained_whole_number)
@@ -691,7 +714,7 @@ decode = proc{|tree, str|
         end
       end
       str.slice!(0, bits * len).scan(/.{#{bits}}/).collect{|chunk| chunk.to_i(2)}
-    when :SEQUENCE
+    when :SEQUENCE, :SET
       has_extension = (opts[:extension] && (str.slice!(0) == '1'))
       data = Hash[*(
         opts[:root].collect{|v| [v[:name], v[:default]] if v[:default]}.compact.flatten(1)
@@ -709,7 +732,7 @@ decode = proc{|tree, str|
             v[:group] ? decoded.to_a : [[v[:name], decoded]]
           }.compact.flatten(2))]) if has_extension
       data
-    when :SEQUENCE_OF
+    when :SEQUENCE_OF, :SET_OF
       len_dec = if opts[:size_range][:additional] && (str.slice!(0) == '1') then
         # 19.4 -> 10.9.4.2(semi_constrained_whole_number)
         :length_otherwise

data/lib/gps_pvt/asn1/asn1.y

@@ -46,10 +46,10 @@ rule
   DefinitiveNameAndNumberForm : identifier LCBRACE DefinitiveNumberForm RCBRACE
   
   TagDefault :
-      EXPLICIT TAGS {raise} # not supported
-      | IMPLICIT TAGS {raise} # not supported
-      | AUTOMATIC TAGS
-      | {raise} # not supported
+      EXPLICIT TAGS {@tags = val[0]}
+      | IMPLICIT TAGS {@tags = val[0]}
+      | AUTOMATIC TAGS {@tags = val[0]} # 12.3
+      | {@tags = :EXPLICIT} # 12.2
   
   ExtensionDefault :
       EXTENSIBILITY IMPLIED
@@ -179,8 +179,8 @@ rule
       #| RelativeOIDType
       | SequenceType
       | SequenceOfType
-      #| SetType
-      #| SetOfType
+      | SetType
+      | SetOfType
       | TaggedType
       | UTCTime # 43. Universal time
 
@@ -199,32 +199,34 @@ rule
       | ObjectClassFieldValue
 
   BuiltinValue : # 16.9
-      BitStringValue
-      | BooleanValue
-      | CharacterStringValue
-      | ChoiceValue
+      BitStringValue # String, Array, Hash (possible returned value, same below)
+      | BooleanValue # true/false
+      | CharacterStringValue # String, Array, Hash
+      | ChoiceValue # Hash
       #| EmbeddedPDVValue
-      | EnumeratedValue
+      | EnumeratedValue # String
       #| ExternalValue
       #| InstanceOfValue
-      | IntegerValue
-      | NullValue
-      | ObjectIdentifierValue
-      | OctetStringValue
-      | RealValue
+      | IntegerValue # Number, String
+      | NullValue # nil
+      | ObjectIdentifierValue # Array
+      | OctetStringValue # String, Hash
+      | RealValue # Number, Hash(M * B^E), String([PLUS|MINUS]_INFINITY)
       #| RelativeOIDValue
-      | SequenceValue
-      | SequenceOfValue
-      #| SetValue
-      #| SetOfValue
+      | SequenceValue # Hash
+      | SequenceOfValue # Array, Hash
+      | SetValue # Hash
+      | SetOfValue # Array, Hash
       #| TaggedValue
 
   #ReferencedValue : DefinedValue | ValueFromObject # 16.11
   #ReferencedValue : identifier
   
+  NamedValue : identifier Value {result = {val[0] => val[1]}} # 16.13
+  
   # 17. Notation for the boolean type
   BooleanType : BOOLEAN
-  BooleanValue : TRUE | FALSE
+  BooleanValue : TRUE {result = true} | FALSE {result = false}
   
   # 18. Notation for the integer type
   IntegerType :
@@ -240,7 +242,7 @@ rule
       number
       | MINUS number {result = -val[1]}
       
-  IntegerValue :
+  IntegerValue : # returning Number or String
       SignedNumber
       | identifier
 
@@ -299,13 +301,13 @@ rule
   # 20. Notation for the real type
   RealType : REAL
   
-  RealValue :
+  RealValue : # returning Number, Hash (M * B^E) or String ([PLUS|MINUS]_INFINITY)
       NumericRealValue
       | SpecialRealValue
   NumericRealValue :
       realnumber 
-      | MINUS realnumber
-      | SequenceValue
+      | MINUS realnumber {result = -val[1]}
+      | SequenceValue # 20.3 in M * B^E format
   SpecialRealValue : PLUS_INFINITY | MINUS_INFINITY
   
   # 21. Notation for the bitstring
@@ -319,22 +321,22 @@ rule
       identifier LCBRACE number RCBRACE {result = {val[0] => val[2]}}
       | identifier LCBRACE DefinedValue RCBRACE {result = {val[0] => val[2]}}
   
-  BitStringValue :
+  BitStringValue : # returning String, Array or Hash
       bstring
       | hstring
-      | LBRACE IdentifierList RBRACE
-      | LBRACE RBRACE
-      | CONTAINING Value
+      | LBRACE IdentifierList RBRACE {result = val[1]}
+      | LBRACE RBRACE {result = []}
+      | CONTAINING Value {result = {:containing => val[1]}}
   IdentifierList :
-      identifier
-      | IdentifierList COMMA identifier
+      identifier {result = [val[0]]}
+      | IdentifierList COMMA identifier  {result << val[2]}
   
   # 22. Notation for the octetstring type
   OctetStringType : OCTET STRING {result = {:type => :OCTET_STRING}}
-  OctetStringValue :
+  OctetStringValue : # returning String or Hash
       bstring
       | hstring
-      | CONTAINING Value
+      | CONTAINING Value {result = {:containing => val[1]}}
   
   # 23. Notation for the null type
   NullType : NULL
@@ -409,12 +411,12 @@ rule
       | NamedType DEFAULT Value {result = val[0].merge({:default => val[2]})}
       | COMPONENTS OF Type {result = val[2]; raise} /* TODO 24.4 says only root components of SEQUENCE are included */
   
-  SequenceValue :
-      LBRACE ComponentValueList RBRACE
-      | LBRACE RBRACE
+  SequenceValue : # returning Hash
+      LBRACE ComponentValueList RBRACE {result = val[1]}
+      | LBRACE RBRACE {result = {}}
   ComponentValueList :
-      NamedValue
-      | ComponentValueList COMMA NamedValue
+      NamedValue {result = val[0]}
+      | ComponentValueList COMMA NamedValue {result = val[0].merge(val[2])}
 
   # 25 Notation for sequence-of types
   SequenceOfType :
@@ -423,19 +425,50 @@ rule
       }
   SequenceOfType_t : Type | NamedType
   
-  SequenceOfValue :
-      LBRACE ValueList RBRACE 
-      | LBRACE NamedValueList RBRACE
-      | LBRACE RBRACE
+  SequenceOfValue : # returning Array or Hash
+      LBRACE ValueList RBRACE {result = val[1]}
+      | LBRACE NamedValueList RBRACE {result = val[1]}
+      | LBRACE RBRACE {result = {}}
   ValueList :
-      Value 
-      | ValueList COMMA Value
+      Value {result = [val[0]]}
+      | ValueList COMMA Value {result << val[2]}
   NamedValueList :
-      NamedValue
-      | NamedValueList COMMA NamedValue
+      NamedValue {result = val[0]}
+      | NamedValueList COMMA NamedValue {result = val[0].merge(val[2])}
+
+  # 26. Notation for set types
+  SetType :
+      /*SET LBRACE RBRACE
+      | SET LBRACE ExtensionAndException OptionalExtensionMarker RBRACE
+      |*/ SET LBRACE ComponentTypeLists RBRACE {
+        # 26.3
+        val[2].merge!({:automatic_tagging => false}) \
+            if (@tags != :AUTOMATIC) \
+              || (val[2][:root] + (val[2][:extension] || [])).any?{|v|
+                v[:type][1][:tag] rescue false
+              }
+        result = {:type => [val[0], val[2]]}
+      }
+
+  SetValue : SequenceValue # returning Hash
+
+  # 27. Notation for set-of types
+  SetOfType :
+      SET OF SetOfType_t {
+        result = {:type => ["#{val[0]}_#{val[1]}".to_sym, val[2]]}
+      }
+  SetOfType_t : Type | NamedType
+  
+  SetOfValue : SequenceOfValue # returning Array or Hash
 
   # 28. Notation for choice types
   ChoiceType : CHOICE LBRACE AlternativeTypeLists RBRACE {
+    # 28.2
+    val[2].merge!({:automatic_tagging => false}) \
+        if (@tags != :AUTOMATIC) \
+          || (val[2][:root] + (val[2][:extension] || [])).any?{|v|
+            v[:type][1][:tag] rescue false
+          }
     result = {:type => [val[0], val[2]]}
   }
   /*
@@ -472,14 +505,30 @@ rule
       NamedType {result = [val[0]]}
       | AlternativeTypeList COMMA NamedType {result << val[2]}
   
-  ChoiceValue : identifier COLON Value
+  ChoiceValue : # returning Hash
+      identifier COLON Value {result = {val[0] => val[2]}}
   
   # 30. Notation for tagged types
-  TaggedType :
+  /*TaggedType :
       Tag Type
       | Tag IMPLICIT Type
-      | Tag EXPLICIT Type
-  Tag : LBRACKET Class ClassNumber RBRACKET
+      | Tag EXPLICIT Type*/
+  TaggedType :
+      Tag TaggingConstruction Type {
+        result = val[2] # => {} having :type or :typeref keys
+        result[:type] = [result[:type]].flatten(1)
+        (result[:type][1] ||= {}).merge!({:tag => val[0]})
+        # TODO 30.6 c) to check whether Type is an untagged CHOICE after extraction of ReferencedType 
+        result[:type][1].merge!({:tag_cnstr => val[1]}) if val[1]
+      }
+  TaggingConstruction :
+      IMPLICIT {result = nil}
+      | EXPLICIT # 30.6 a)
+      | {result = :EXPLICIT if @tags == :EXPLICIT} # 30.6 b)
+  Tag : 
+      LBRACKET Class ClassNumber RBRACKET
+          {result = val[1] ? val[1..2] : val[2]}
+          # if class specified, array is returned; otherwise, integer.
   ClassNumber :
       number
       | DefinedValue
@@ -494,12 +543,12 @@ rule
   # 31. Notation for the object identifier type
   ObjectIdentifierType : OBJECT IDENTIFIER
   
-  ObjectIdentifierValue :
-      LBRACE ObjIdComponentsList RBRACE
-      | LBRACKET DefinedValue ObjIdComponentsList RBRACKET
+  ObjectIdentifierValue : # returning Array
+      LBRACE ObjIdComponentsList RBRACE {result = val[1]}
+      | LBRACKET DefinedValue ObjIdComponentsList RBRACKET {result = [val[1]] + val[2]}
   ObjIdComponentsList :
-      ObjIdComponents
-      | ObjIdComponentsList ObjIdComponents
+      ObjIdComponents {result = [val[0]]}
+      | ObjIdComponentsList ObjIdComponents {result << val[1]}
   ObjIdComponents :
       NameForm
       | NumberForm
@@ -509,13 +558,13 @@ rule
   NumberForm :
       number
       | DefinedValue
-  NameAndNumberForm : identifier LCBRACE NumberForm RCBRACE
+  NameAndNumberForm : identifier LCBRACE NumberForm RCBRACE {result = val.values_at(0, 2)}
   
   # 36. Notation for character string types
   CharacterStringType :
       RestrictedCharacterStringType
       | UnrestrictedCharacterStringType
-  CharacterStringValue :
+  CharacterStringValue : # returning String, Array or Hash
       RestrictedCharacterStringValue
       | UnrestrictedCharacterStringValue
   
@@ -535,26 +584,26 @@ rule
       | VideotexString*/
       | VisibleString
       
-  RestrictedCharacterStringValue :
+  RestrictedCharacterStringValue : # returning String or Array
       cstring
       | CharacterStringList
       | Quadruple
       | Tuple
-  CharacterStringList : LBRACE CharSyms RBRACE
+  CharacterStringList : LBRACE CharSyms RBRACE {result = val[1]}
   CharSyms :
-      CharsDefn
-      | CharSyms COMMA CharsDefn
+      CharsDefn {result = [val[0]]}
+      | CharSyms COMMA CharsDefn {result << val[2]}
   CharsDefn :
       cstring
       | Quadruple
       | Tuple
       | DefinedValue
-  Quadruple : LBRACE Group COMMA Plane COMMA Row COMMA Cell RBRACE
+  Quadruple : LBRACE Group COMMA Plane COMMA Row COMMA Cell RBRACE {result = val.values_at(1, 3, 5, 7)}
   Group : number
   Plane : number
   Row : number
   Cell : number
-  Tuple : LBRACE TableColumn COMMA TableRow RBRACE
+  Tuple : LBRACE TableColumn COMMA TableRow RBRACE {result = val.values_at(1, 3)}
   TableColumn : number
   TableRow : number
   

data/lib/gps_pvt/upl/MAP-LCS-DataTypes-V17_4_0-Release17.asn

@@ -0,0 +1,740 @@
+MAP-LCS-DataTypes {
+  itu-t identified-organization (4) etsi (0) mobileDomain (0)
+  gsm-Network (1) modules (3) map-LCS-DataTypes (25) version20 (20)}
+
+DEFINITIONS
+IMPLICIT TAGS
+::=
+BEGIN
+
+EXPORTS
+  RoutingInfoForLCS-Arg,
+  RoutingInfoForLCS-Res,
+  ProvideSubscriberLocation-Arg,
+  ProvideSubscriberLocation-Res,
+  SubscriberLocationReport-Arg,
+  SubscriberLocationReport-Res,
+  LocationType,
+  DeferredLocationEventType,
+  LCSClientName,
+  LCS-QoS,
+  Horizontal-Accuracy,
+  ResponseTime,
+  Ext-GeographicalInformation,
+  VelocityEstimate,
+  SupportedGADShapes,
+  Add-GeographicalInformation,
+  LCSRequestorID,
+  LCS-ReferenceNumber,
+  LCSCodeword,
+  AreaEventInfo,
+  ReportingPLMNList,
+  PeriodicLDRInfo,
+  SequenceNumber,
+  LCSClientType,
+  LCS-Priority,
+  OccurrenceInfo,
+  IntervalTime
+;
+
+IMPORTS
+  AddressString,
+  ISDN-AddressString,
+  IMEI,
+  IMSI,
+  LMSI,
+  SubscriberIdentity,
+  AgeOfLocationInformation,
+  LCSClientExternalID,
+  LCSClientInternalID,
+  LCSServiceTypeID,
+  CellGlobalIdOrServiceAreaIdOrLAI,
+  PLMN-Id,
+  GSN-Address,
+  DiameterIdentity
+FROM MAP-CommonDataTypes {
+  itu-t identified-organization (4) etsi (0) mobileDomain (0)
+  gsm-Network (1) modules (3) map-CommonDataTypes (18) version20 (20)}
+
+  ExtensionContainer,
+  SLR-ArgExtensionContainer
+FROM MAP-ExtensionDataTypes {
+  itu-t identified-organization (4) etsi (0) mobileDomain (0)
+  gsm-Network (1) modules (3) map-ExtensionDataTypes (21) version20 (20)}
+
+  USSD-DataCodingScheme,
+  USSD-String
+FROM MAP-SS-DataTypes {
+  itu-t identified-organization (4) etsi (0) mobileDomain (0) gsm-Network (1) modules (3)
+  map-SS-DataTypes (14) version20 (20)}
+
+  APN,
+  SupportedLCS-CapabilitySets
+FROM MAP-MS-DataTypes {
+  itu-t identified-organization (4) etsi (0) mobileDomain (0)
+  gsm-Network (1) modules (3) map-MS-DataTypes (11) version20 (20)}
+
+  Additional-Number
+FROM MAP-SM-DataTypes {
+  itu-t identified-organization (4) etsi (0) mobileDomain (0)
+  gsm-Network (1) modules (3) map-SM-DataTypes (16) version20 (20)}
+;
+
+
+RoutingInfoForLCS-Arg ::= SEQUENCE {
+    mlcNumber [0] ISDN-AddressString,
+    targetMS [1] SubscriberIdentity,
+    extensionContainer [2] ExtensionContainer OPTIONAL,
+    ...}
+
+RoutingInfoForLCS-Res ::= SEQUENCE {
+    targetMS [0] SubscriberIdentity,
+    lcsLocationInfo [1] LCSLocationInfo,
+    extensionContainer [2] ExtensionContainer OPTIONAL,
+    ...,
+    v-gmlc-Address [3] GSN-Address OPTIONAL,
+    h-gmlc-Address [4] GSN-Address OPTIONAL,
+    ppr-Address [5] GSN-Address OPTIONAL,
+    additional-v-gmlc-Address [6] GSN-Address OPTIONAL }
+  
+LCSLocationInfo ::= SEQUENCE {
+    networkNode-Number ISDN-AddressString,
+    -- NetworkNode-number can be msc-number, sgsn-number or a dummy value of "0"
+    lmsi [0] LMSI OPTIONAL,
+    extensionContainer [1] ExtensionContainer OPTIONAL,
+    ... ,
+    gprsNodeIndicator [2] NULL OPTIONAL,
+    -- gprsNodeIndicator is set only if the SGSN number is sent as the Network Node Number
+    additional-Number [3] Additional-Number OPTIONAL,
+    supportedLCS-CapabilitySets [4] SupportedLCS-CapabilitySets OPTIONAL,
+    additional-LCS-CapabilitySets [5] SupportedLCS-CapabilitySets OPTIONAL,
+    mme-Name [6] DiameterIdentity OPTIONAL,
+    aaa-Server-Name [8] DiameterIdentity OPTIONAL,
+    sgsn-Name [9] DiameterIdentity OPTIONAL,
+    sgsn-Realm [10] DiameterIdentity OPTIONAL
+    }
+
+ProvideSubscriberLocation-Arg ::= SEQUENCE {
+    locationType LocationType,
+    mlc-Number ISDN-AddressString,
+    lcs-ClientID [0] LCS-ClientID OPTIONAL,
+    privacyOverride [1] NULL OPTIONAL,
+    imsi [2] IMSI OPTIONAL,
+    msisdn [3] ISDN-AddressString OPTIONAL,
+    lmsi [4] LMSI OPTIONAL,
+    imei [5] IMEI OPTIONAL,
+    lcs-Priority [6] LCS-Priority OPTIONAL,
+    lcs-QoS [7] LCS-QoS OPTIONAL,
+    extensionContainer [8] ExtensionContainer OPTIONAL,
+    ... ,
+    supportedGADShapes [9] SupportedGADShapes OPTIONAL,
+    lcs-ReferenceNumber [10] LCS-ReferenceNumber OPTIONAL,
+    lcsServiceTypeID [11] LCSServiceTypeID OPTIONAL,
+    lcsCodeword [12] LCSCodeword OPTIONAL,
+    lcs-PrivacyCheck [13] LCS-PrivacyCheck OPTIONAL,
+    areaEventInfo [14] AreaEventInfo OPTIONAL,
+    h-gmlc-Address [15] GSN-Address OPTIONAL,
+    mo-lrShortCircuitIndicator [16] NULL OPTIONAL,
+    periodicLDRInfo [17] PeriodicLDRInfo OPTIONAL,
+    reportingPLMNList [18] ReportingPLMNList OPTIONAL }
+
+    -- one of imsi or msisdn is mandatory
+    -- If a location estimate type indicates activate deferred location or cancel deferred
+    -- location, a lcs-Reference number shall be included.
+
+LocationType ::= SEQUENCE {
+    locationEstimateType [0] LocationEstimateType,
+    ...,
+    deferredLocationEventType [1] DeferredLocationEventType OPTIONAL }
+
+LocationEstimateType ::= ENUMERATED {
+    currentLocation (0),
+    currentOrLastKnownLocation (1),
+    initialLocation (2),
+    ...,
+    activateDeferredLocation (3),
+    cancelDeferredLocation (4) ,
+    notificationVerificationOnly (5) }
+-- exception handling:
+-- a ProvideSubscriberLocation-Arg containing an unrecognized LocationEstimateType
+-- shall be rejected by the receiver with a return error cause of unexpected data value
+
+DeferredLocationEventType ::= BIT STRING {
+    msAvailable (0) ,
+    enteringIntoArea (1),
+    leavingFromArea (2),
+    beingInsideArea (3) ,
+    periodicLDR (4) } (SIZE (1..16))
+-- beingInsideArea is always treated as oneTimeEvent regardless of the possible value
+-- of occurrenceInfo inside areaEventInfo.
+-- exception handling:
+-- a ProvideSubscriberLocation-Arg containing other values than listed above in
+-- DeferredLocationEventType shall be rejected by the receiver with a return error cause of
+-- unexpected data value.
+
+LCS-ClientID ::= SEQUENCE {
+    lcsClientType [0] LCSClientType,
+    lcsClientExternalID [1] LCSClientExternalID OPTIONAL,
+    lcsClientDialedByMS [2] AddressString OPTIONAL,
+    lcsClientInternalID [3] LCSClientInternalID OPTIONAL,
+    lcsClientName [4] LCSClientName OPTIONAL,
+    ...,
+    lcsAPN [5] APN OPTIONAL,
+    lcsRequestorID [6] LCSRequestorID OPTIONAL }
+
+LCSClientType ::= ENUMERATED {
+    emergencyServices (0),
+    valueAddedServices (1),
+    plmnOperatorServices (2),
+    lawfulInterceptServices (3),
+    ... }
+    -- exceptionhandling:
+    -- unrecognized values may be ignored if the LCS client uses the privacy override
+    -- otherwise, an unrecognized value shall be treated as unexpected data by a receiver
+    -- a return error shall then be returned if received in a MAP invoke
+
+LCSClientName ::= SEQUENCE {
+    dataCodingScheme [0] USSD-DataCodingScheme,
+    nameString [2] NameString,
+    ...,
+    lcs-FormatIndicator [3] LCS-FormatIndicator OPTIONAL }
+
+-- The USSD-DataCodingScheme shall indicate use of the default alphabet through the
+-- following encoding
+-- bit 7 6 5 4 3 2 1 0
+-- 0 0 0 0 1 1 1 1
+
+NameString ::= USSD-String (SIZE (1..maxNameStringLength))
+
+maxNameStringLength INTEGER ::= 63
+
+LCSRequestorID ::= SEQUENCE {
+    dataCodingScheme [0] USSD-DataCodingScheme,
+    requestorIDString [1] RequestorIDString,
+    ...,
+    lcs-FormatIndicator [2] LCS-FormatIndicator OPTIONAL }
+
+RequestorIDString ::= USSD-String (SIZE (1..maxRequestorIDStringLength))
+
+maxRequestorIDStringLength INTEGER ::= 63
+
+LCS-FormatIndicator ::= ENUMERATED {
+    logicalName (0),
+    e-mailAddress (1),
+    msisdn (2),
+    url (3),
+    sipUrl (4),
+    ... }
+
+LCS-Priority ::= OCTET STRING (SIZE (1))
+    -- 0 = highest priority
+    -- 1 = normal priority
+    -- all other values treated as 1
+
+LCS-QoS ::= SEQUENCE {
+    horizontal-accuracy [0] Horizontal-Accuracy OPTIONAL,
+    verticalCoordinateRequest [1] NULL OPTIONAL,
+    vertical-accuracy [2] Vertical-Accuracy OPTIONAL,
+    responseTime [3] ResponseTime OPTIONAL,
+    extensionContainer [4] ExtensionContainer OPTIONAL,
+    ...,
+    velocityRequest [5] NULL OPTIONAL,
+    lcs-qos-class [6] LCS-QoS-Class OPTIONAL
+}
+-- lcs-qos-class may only be included in MO-LR request sent by the UE to the network.
+
+
+Horizontal-Accuracy ::= OCTET STRING (SIZE (1))
+    -- bit 8 = 0
+    -- bits 7-1 = 7 bit Uncertainty Code defined in 3GPP TS 23.032. The horizontal location
+    -- error should be less than the error indicated by the uncertainty code with 67%
+    -- confidence.
+
+Vertical-Accuracy ::= OCTET STRING (SIZE (1))
+    -- bit 8 = 0
+    -- bits 7-1 = 7 bit Vertical Uncertainty Code defined in 3GPP TS 23.032.
+    -- The vertical location error should be less than the error indicated
+    -- by the uncertainty code with 67% confidence.
+
+ResponseTime ::= SEQUENCE {
+    responseTimeCategory ResponseTimeCategory,
+    ...}
+-- note: an expandable SEQUENCE simplifies later addition of a numeric response time.
+
+ResponseTimeCategory ::= ENUMERATED {
+    lowdelay (0),
+    delaytolerant (1),
+    ... }
+-- exception handling:
+-- an unrecognized value shall be treated the same as value 1 (delaytolerant)
+
+LCS-QoS-Class ::= ENUMERATED {
+    bestEffort (0),
+    assured (1),
+    ... }
+-- exception handling:
+-- an unrecognized value shall be treated the same as value 0 (bestEffort)
+
+SupportedGADShapes ::= BIT STRING {
+    ellipsoidPoint (0),
+    ellipsoidPointWithUncertaintyCircle (1),
+    ellipsoidPointWithUncertaintyEllipse (2),
+    polygon (3),
+    ellipsoidPointWithAltitude (4),
+    ellipsoidPointWithAltitudeAndUncertaintyElipsoid (5),
+    ellipsoidArc (6) } (SIZE (7..16))
+-- A node shall mark in the BIT STRING all Shapes defined in 3GPP TS 23.032 it supports.
+-- exception handling: bits 7 to 15 shall be ignored if received.
+
+LCS-ReferenceNumber::= OCTET STRING (SIZE(1))
+
+LCSCodeword ::= SEQUENCE {
+    dataCodingScheme [0] USSD-DataCodingScheme,
+    lcsCodewordString [1] LCSCodewordString,
+    ...}
+
+LCSCodewordString ::= USSD-String (SIZE (1..maxLCSCodewordStringLength))
+
+maxLCSCodewordStringLength INTEGER ::= 20
+
+LCS-PrivacyCheck ::= SEQUENCE {
+    callSessionUnrelated [0] PrivacyCheckRelatedAction,
+    callSessionRelated [1] PrivacyCheckRelatedAction OPTIONAL,
+    ...}
+
+PrivacyCheckRelatedAction ::= ENUMERATED {
+    allowedWithoutNotification (0),
+    allowedWithNotification (1),
+    allowedIfNoResponse (2),
+    restrictedIfNoResponse (3),
+    notAllowed (4),
+    ...}
+-- exception handling:
+-- a ProvideSubscriberLocation-Arg containing an unrecognized PrivacyCheckRelatedAction
+-- shall be rejected by the receiver with a return error cause of unexpected data value
+
+AreaEventInfo ::= SEQUENCE {
+    areaDefinition [0] AreaDefinition,
+    occurrenceInfo [1] OccurrenceInfo OPTIONAL,
+    intervalTime [2] IntervalTime OPTIONAL,
+    ...}
+
+AreaDefinition ::= SEQUENCE {
+    areaList [0] AreaList,
+    ...}
+
+AreaList ::= SEQUENCE SIZE (1..maxNumOfAreas) OF Area
+
+maxNumOfAreas INTEGER ::= 10
+
+Area ::= SEQUENCE {
+    areaType [0] AreaType,
+    areaIdentification [1] AreaIdentification,
+    ...}
+
+AreaType ::= ENUMERATED {
+    countryCode (0),
+    plmnId (1),
+    locationAreaId (2),
+    routingAreaId (3),
+    cellGlobalId (4),
+    ...,
+    utranCellId (5) }
+
+AreaIdentification ::= OCTET STRING (SIZE (2..7))
+    -- The internal structure is defined as follows:
+    -- octet 1 bits 4321 Mobile Country Code 1st digit
+    -- bits 8765 Mobile Country Code 2nd digit
+    -- octet 2 bits 4321 Mobile Country Code 3rd digit
+    -- bits 8765 Mobile Network Code 3rd digit if 3 digit MNC included
+    -- or filler (1111)
+    -- octet 3 bits 4321 Mobile Network Code 1st digit
+    -- bits 8765 Mobile Network Code 2nd digit
+    -- octets 4 and 5 Location Area Code (LAC) for Local Area Id,
+    -- Routing Area Id and Cell Global Id
+    -- octet 6 Routing Area Code (RAC) for Routing Area Id
+    -- octets 6 and 7 Cell Identity (CI) for Cell Global Id
+    -- octets 4 until 7 Utran Cell Identity (UC-Id) for Utran Cell Id
+
+OccurrenceInfo ::= ENUMERATED {
+    oneTimeEvent (0),
+    multipleTimeEvent (1),
+    ...}
+
+IntervalTime ::= INTEGER (1..32767)
+    -- minimum interval time between area reports in seconds
+
+PeriodicLDRInfo ::= SEQUENCE {
+    reportingAmount ReportingAmount,
+    reportingInterval ReportingInterval,
+    ...,
+    reportingOptionMilliseconds [0] ReportingOptionMilliseconds OPTIONAL
+    }
+-- reportingInterval x reportingAmount shall not exceed 8639999 (99 days, 23 hours,
+-- 59 minutes and 59 seconds) for compatibility with OMA MLP and RLP
+-- When reportingOptionMilliseconds is provided and supported, reportingInterval &
+-- reportingAmount shall be ignored.
+
+ReportingAmount ::= INTEGER (1..maxReportingAmount)
+
+maxReportingAmount INTEGER ::= 8639999
+
+ReportingInterval ::= INTEGER (1..maxReportingInterval)
+-- ReportingInterval is in seconds
+
+maxReportingInterval INTEGER ::= 8639999
+
+ReportingOptionMilliseconds ::= SEQUENCE {
+    reportingAmountMilliseconds ReportingAmountMilliseconds,
+    reportingIntervalMilliseconds ReportingIntervalMilliseconds,
+    ...}
+-- reportingAmountMilliseconds x reportingIntervalMilliseconds shall not exceed 8639999000
+-- (99 days, 23 hours, 59 minutes and 59 seconds) for compatibility with OMA MLP and RLP
+
+ReportingAmountMilliseconds ::= INTEGER (1..maxReportingAmountMilliseconds)
+
+maxReportingAmountMilliseconds INTEGER ::= 8639999000
+
+ReportingIntervalMilliseconds ::= INTEGER (1..maxReportingIntervalMilliseconds)
+
+maxReportingIntervalMilliseconds INTEGER ::= 999
+
+ReportingPLMNList::= SEQUENCE {
+    plmn-ListPrioritized [0] NULL OPTIONAL,
+    plmn-List [1] PLMNList,
+    ...}
+
+PLMNList::= SEQUENCE SIZE (1..maxNumOfReportingPLMN) OF
+    ReportingPLMN
+
+maxNumOfReportingPLMN INTEGER ::= 20
+
+ReportingPLMN::= SEQUENCE {
+    plmn-Id [0] PLMN-Id,
+    ran-Technology [1] RAN-Technology OPTIONAL,
+    ran-PeriodicLocationSupport [2] NULL OPTIONAL,
+    ...}
+
+RAN-Technology ::= ENUMERATED {
+    gsm (0),
+    umts (1),
+    ...}
+
+ProvideSubscriberLocation-Res ::= SEQUENCE {
+    locationEstimate Ext-GeographicalInformation,
+    ageOfLocationEstimate [0] AgeOfLocationInformation OPTIONAL,
+    extensionContainer [1] ExtensionContainer OPTIONAL,
+    ... ,
+    add-LocationEstimate [2] Add-GeographicalInformation OPTIONAL,
+    deferredmt-lrResponseIndicator [3] NULL OPTIONAL,
+    geranPositioningData [4] PositioningDataInformation OPTIONAL,
+    utranPositioningData [5] UtranPositioningDataInfo OPTIONAL,
+    cellIdOrSai [6] CellGlobalIdOrServiceAreaIdOrLAI OPTIONAL,
+    sai-Present [7] NULL OPTIONAL,
+    accuracyFulfilmentIndicator [8] AccuracyFulfilmentIndicator OPTIONAL,
+    velocityEstimate [9] VelocityEstimate OPTIONAL,
+    mo-lrShortCircuitIndicator [10] NULL OPTIONAL,
+    geranGANSSpositioningData [11] GeranGANSSpositioningData OPTIONAL,
+    utranGANSSpositioningData [12] UtranGANSSpositioningData OPTIONAL,
+    targetServingNodeForHandover [13] ServingNodeAddress OPTIONAL,
+    utranAdditionalPositioningData [14] UtranAdditionalPositioningData OPTIONAL,
+    utranBaroPressureMeas [15] UtranBaroPressureMeas OPTIONAL,
+    utranCivicAddress [16] UtranCivicAddress OPTIONAL }
+
+-- if deferredmt-lrResponseIndicator is set, locationEstimate is ignored.
+
+-- the add-LocationEstimate parameter shall not be sent to a node that did not indicate the
+-- geographic shapes supported in the ProvideSubscriberLocation-Arg
+-- The locationEstimate and the add-locationEstimate parameters shall not be sent if
+-- the supportedGADShapes parameter has been received in ProvideSubscriberLocation-Arg
+-- and the shape encoded in locationEstimate or add-LocationEstimate is not marked
+-- as supported in supportedGADShapes. In such a case ProvideSubscriberLocation
+-- shall be rejected with error FacilityNotSupported with additional indication
+-- shapeOfLocationEstimateNotSupported.
+-- sai-Present indicates that the cellIdOrSai parameter contains a Service Area Identity.
+
+AccuracyFulfilmentIndicator ::= ENUMERATED {
+    requestedAccuracyFulfilled (0),
+    requestedAccuracyNotFulfilled (1),
+    ... }
+
+Ext-GeographicalInformation ::= OCTET STRING (SIZE (1..maxExt-GeographicalInformation))
+    -- Refers to geographical Information defined in 3GPP TS 23.032.
+    -- This is composed of 1 or more octets with an internal structure according to
+    -- 3GPP TS 23.032
+    -- Octet 1: Type of shape, only the following shapes in 3GPP TS 23.032 are allowed:
+    -- (a) Ellipsoid point with uncertainty circle
+    -- (b) Ellipsoid point with uncertainty ellipse
+    -- (c) Ellipsoid point with altitude and uncertainty ellipsoid
+    -- (d) Ellipsoid Arc
+    -- (e) Ellipsoid Point
+    -- Any other value in octet 1 shall be treated as invalid
+    -- Octets 2 to 8 for case (a) - Ellipsoid point with uncertainty circle
+    -- Degrees of Latitude 3 octets
+    -- Degrees of Longitude 3 octets
+    -- Uncertainty code 1 octet
+    -- Octets 2 to 11 for case (b) - Ellipsoid point with uncertainty ellipse:
+    -- Degrees of Latitude 3 octets
+    -- Degrees of Longitude 3 octets
+    -- Uncertainty semi-major axis 1 octet
+    -- Uncertainty semi-minor axis 1 octet
+    -- Angle of major axis 1 octet
+    -- Confidence 1 octet
+    -- Octets 2 to 14 for case (c) - Ellipsoid point with altitude and uncertainty ellipsoid
+    -- Degrees of Latitude 3 octets
+    -- Degrees of Longitude 3 octets
+    -- Altitude 2 octets
+    -- Uncertainty semi-major axis 1 octet
+    -- Uncertainty semi-minor axis 1 octet
+    -- Angle of major axis 1 octet
+    -- Uncertainty altitude 1 octet
+    -- Confidence 1 octet
+    -- Octets 2 to 13 for case (d) - Ellipsoid Arc
+    -- Degrees of Latitude 3 octets
+    -- Degrees of Longitude 3 octets
+    -- Inner radius 2 octets
+    -- Uncertainty radius 1 octet
+    -- Offset angle 1 octet
+    -- Included angle 1 octet
+    -- Confidence 1 octet
+    -- Octets 2 to 7 for case (e) - Ellipsoid Point
+    -- Degrees of Latitude 3 octets
+    -- Degrees of Longitude 3 octets
+    
+    --
+    -- An Ext-GeographicalInformation parameter comprising more than one octet and
+    -- containing any other shape or an incorrect number of octets or coding according
+    -- to 3GPP TS 23.032 shall be treated as invalid data by a receiver.
+    --
+    -- An Ext-GeographicalInformation parameter comprising one octet shall be discarded
+    -- by the receiver if an Add-GeographicalInformation parameter is received
+    -- in the same message.
+    --
+    -- An Ext-GeographicalInformation parameter comprising one octet shall be treated as
+    -- invalid data by the receiver if an Add-GeographicalInformation parameter is not
+    -- received in the same message.
+
+maxExt-GeographicalInformation INTEGER ::= 20
+    -- the maximum length allows for further shapes in 3GPP TS 23.032 to be included in later
+    -- versions of 3GPP TS 29.002
+
+VelocityEstimate ::= OCTET STRING (SIZE (4..7))
+    -- Refers to Velocity description defined in 3GPP TS 23.032.
+    -- This is composed of 4 or more octets with an internal structure according to
+    -- 3GPP TS 23.032
+    -- Octet 1: Type of velocity, only the following types in 3GPP TS 23.032 are allowed:
+    -- (a) Horizontal Velocity
+    -- (b) Horizontal with Vertical Velocity
+    -- (c) Horizontal Velocity with Uncertainty
+    -- (d) Horizontal with Vertical Velocity and Uncertainty
+    -- For types Horizontal with Vertical Velocity and Horizontal with Vertical Velocity
+    -- and Uncertainty, the direction of the Vertical Speed is also included in Octet 1
+    -- Any other value in octet 1 shall be treated as invalid
+    -- Octets 2 to 4 for case (a) Horizontal velocity:
+    -- Bearing 1 octet
+    -- Horizontal Speed 2 octets
+    -- Octets 2 to 5 for case (b) - Horizontal with Vertical Velocity:
+    -- Bearing 1 octet
+    -- Horizontal Speed 2 octets
+    -- Vertical Speed 1 octet
+    -- Octets 2 to 5 for case (c) - Horizontal velocity with Uncertainty:
+    -- Bearing 1 octet
+    -- Horizontal Speed 2 octets
+    -- Uncertainty Speed 1 octet
+    -- Octets 2 to 7 for case (d) - Horizontal with Vertical Velocity and Uncertainty:
+    -- Bearing 1 octet
+    -- Horizontal Speed 2 octets
+    -- Vertical Speed 1 octet
+    -- Horizontal Uncertainty Speed 1 octet
+    -- Vertical Uncertainty Speed 1 octet
+
+PositioningDataInformation ::= OCTET STRING (SIZE (2..maxPositioningDataInformation))
+    -- Refers to the Positioning Data defined in 3GPP TS 49.031.
+    -- This is composed of 2 or more octets with an internal structure according to
+    -- 3GPP TS 49.031.
+
+maxPositioningDataInformation INTEGER ::= 10
+    --
+
+UtranPositioningDataInfo ::= OCTET STRING (SIZE (3..maxUtranPositioningDataInfo))
+    -- Refers to the Position Data defined in 3GPP TS 25.413.
+    -- This is composed of the positioningDataDiscriminator and the positioningDataSet
+    -- included in positionData as defined in 3GPP TS 25.413.
+
+maxUtranPositioningDataInfo INTEGER ::= 11
+    --
+
+GeranGANSSpositioningData ::= OCTET STRING (SIZE (2..maxGeranGANSSpositioningData))
+    -- Refers to the GANSS Positioning Data defined in 3GPP TS 49.031.
+    -- This is composed of 2 or more octets with an internal structure according to
+    -- 3GPP TS 49.031.
+
+maxGeranGANSSpositioningData INTEGER ::= 10
+    --
+
+UtranGANSSpositioningData ::= OCTET STRING (SIZE (1..maxUtranGANSSpositioningData))
+    -- Refers to the Position Data defined in 3GPP TS 25.413.
+    -- This is composed of the GANSS-PositioningDataSet only, included in PositionData
+    -- as defined in 3GPP TS 25.413.
+
+maxUtranGANSSpositioningData INTEGER ::= 9
+    --
+
+UtranAdditionalPositioningData ::= OCTET STRING (SIZE (1..maxUtranAdditionalPositioningData))
+    -- Refers to the Position Data defined in 3GPP TS 25.413.
+    -- This is composed of the Additional-PositioningDataSet only, included in PositionData
+    -- as defined in 3GPP TS 25.413.
+
+maxUtranAdditionalPositioningData INTEGER ::= 8
+    --
+
+UtranBaroPressureMeas ::= INTEGER (30000..115000)
+    -- Refers to the barometric pressure measurement defined in 3GPP TS 25.413.
+    -- This is composed of the BarometricPressureMeasurement only as defined in 3GPP TS
+    -- 25.413.
+
+UtranCivicAddress ::= OCTET STRING
+    -- Refers to the civic address defined in 3GPP TS 25.413.
+    -- This is composed of the CivicAddress only as defined in 3GPP TS 25.413.
+
+Add-GeographicalInformation ::= OCTET STRING (SIZE (1..maxAdd-GeographicalInformation))
+    -- Refers to geographical Information defined in 3GPP TS 23.032.
+    -- This is composed of 1 or more octets with an internal structure according to
+    -- 3GPP TS 23.032
+    -- Octet 1: Type of shape, all the shapes defined in 3GPP TS 23.032 are allowed:
+    -- Octets 2 to n (where n is the total number of octets necessary to encode the shape
+    -- according to 3GPP TS 23.032) are used to encode the shape itself in accordance with
+    -- the
+    -- encoding defined in 3GPP TS 23.032
+    --
+    -- An Add-GeographicalInformation parameter, whether valid or invalid, received
+    -- together with a valid Ext-GeographicalInformation parameter in the same message
+    -- shall be discarded.
+    --
+    -- An Add-GeographicalInformation parameter containing any shape not defined in
+    -- 3GPP TS 23.032 or an incorrect number of octets or coding according to
+    -- 3GPP TS 23.032 shall be treated as invalid data by a receiver if not received
+    -- together with a valid Ext-GeographicalInformation parameter in the same message.
+
+maxAdd-GeographicalInformation INTEGER ::= 91
+    -- the maximum length allows support for all the shapes currently defined in 3GPP TS
+    -- .032
+
+SubscriberLocationReport-Arg ::= SEQUENCE {
+    lcs-Event LCS-Event,
+    lcs-ClientID LCS-ClientID,
+    lcsLocationInfo LCSLocationInfo,
+    msisdn [0] ISDN-AddressString OPTIONAL,
+    imsi [1] IMSI OPTIONAL,
+    imei [2] IMEI OPTIONAL,
+    na-ESRD [3] ISDN-AddressString OPTIONAL,
+    na-ESRK [4] ISDN-AddressString OPTIONAL,
+    locationEstimate [5] Ext-GeographicalInformation OPTIONAL,
+    ageOfLocationEstimate [6] AgeOfLocationInformation OPTIONAL,
+    slr-ArgExtensionContainer [7] SLR-ArgExtensionContainer OPTIONAL,
+    ... ,
+    add-LocationEstimate [8] Add-GeographicalInformation OPTIONAL,
+    deferredmt-lrData [9] Deferredmt-lrData OPTIONAL,
+    lcs-ReferenceNumber [10] LCS-ReferenceNumber OPTIONAL,
+    geranPositioningData [11] PositioningDataInformation OPTIONAL,
+    utranPositioningData [12] UtranPositioningDataInfo OPTIONAL,
+    cellIdOrSai [13] CellGlobalIdOrServiceAreaIdOrLAI OPTIONAL,
+    h-gmlc-Address [14] GSN-Address OPTIONAL,
+    lcsServiceTypeID [15] LCSServiceTypeID OPTIONAL,
+    sai-Present [17] NULL OPTIONAL,
+    pseudonymIndicator [18] NULL OPTIONAL,
+    accuracyFulfilmentIndicator [19] AccuracyFulfilmentIndicator OPTIONAL,
+    velocityEstimate [20] VelocityEstimate OPTIONAL,
+    sequenceNumber [21] SequenceNumber OPTIONAL,
+    periodicLDRInfo [22] PeriodicLDRInfo OPTIONAL,
+    mo-lrShortCircuitIndicator [23] NULL OPTIONAL,
+    geranGANSSpositioningData [24] GeranGANSSpositioningData OPTIONAL,
+    utranGANSSpositioningData [25] UtranGANSSpositioningData OPTIONAL,
+    targetServingNodeForHandover [26] ServingNodeAddress OPTIONAL,
+    utranAdditionalPositioningData [27] UtranAdditionalPositioningData OPTIONAL,
+    utranBaroPressureMeas [28] UtranBaroPressureMeas OPTIONAL,
+    utranCivicAddress [29] UtranCivicAddress OPTIONAL }
+
+    -- one of msisdn or imsi is mandatory
+    -- a location estimate that is valid for the locationEstimate parameter should
+    -- be transferred in this parameter in preference to the add-LocationEstimate.
+    -- the deferredmt-lrData parameter shall be included if and only if the lcs-Event
+    -- indicates a deferredmt-lrResponse.
+    -- if the lcs-Event indicates a deferredmt-lrResponse then the locationEstimate
+    -- and the add-locationEstimate parameters shall not be sent if the
+    -- supportedGADShapes parameter had been received in ProvideSubscriberLocation-Arg
+    -- and the shape encoded in locationEstimate or add-LocationEstimate was not marked
+    -- as supported in supportedGADShapes. In such a case terminationCause
+    -- in deferredmt-lrData shall be present with value
+    -- shapeOfLocationEstimateNotSupported.
+    -- If a lcs event indicates deferred mt-lr response, the lcs-Reference number shall be
+    -- included.
+    -- sai-Present indicates that the cellIdOrSai parameter contains a Service Area Identity.
+
+Deferredmt-lrData ::= SEQUENCE {
+    deferredLocationEventType DeferredLocationEventType,
+    terminationCause [0] TerminationCause OPTIONAL,
+    lcsLocationInfo [1] LCSLocationInfo OPTIONAL,
+    ...}
+    -- lcsLocationInfo may be included only if a terminationCause is present
+    -- indicating mt-lrRestart.
+
+LCS-Event ::= ENUMERATED {
+    emergencyCallOrigination (0),
+    emergencyCallRelease (1),
+    mo-lr (2),
+    ...,
+    deferredmt-lrResponse (3) ,
+    deferredmo-lrTTTPInitiation (4),
+    emergencyCallHandover (5) }
+    -- deferredmt-lrResponse is applicable to the delivery of a location estimate
+    -- for an LDR initiated earlier by either the network (via an MT-LR activate deferred
+    -- location) or the UE (via a deferred MO-LR TTTP initiation)
+    -- exception handling:
+    -- a SubscriberLocationReport-Arg containing an unrecognized LCS-Event
+    -- shall be rejected by a receiver with a return error cause of unexpected data value
+
+TerminationCause ::= ENUMERATED {
+    normal (0),
+    errorundefined (1),
+    internalTimeout (2),
+    congestion (3),
+    mt-lrRestart (4),
+    privacyViolation (5),
+    ...,
+    shapeOfLocationEstimateNotSupported (6) ,
+    subscriberTermination (7),
+    uETermination (8),
+    networkTermination (9) }
+-- mt-lrRestart shall be used to trigger the GMLC to restart the location procedure,
+-- either because the sending node knows that the terminal has moved under coverage
+-- of another MSC or SGSN (e.g. Send Identification received), or because the subscriber
+-- has been deregistered due to a Cancel Location received from HLR.
+--
+-- exception handling
+-- an unrecognized value shall be treated the same as value 1 (errorundefined)
+
+SequenceNumber ::= INTEGER (1..maxReportingAmount)
+
+ServingNodeAddress ::= CHOICE {
+    msc-Number [0] ISDN-AddressString,
+    sgsn-Number [1] ISDN-AddressString,
+    mme-Number [2] DiameterIdentity }
+
+SubscriberLocationReport-Res ::= SEQUENCE {
+    extensionContainer ExtensionContainer OPTIONAL,
+    ...,
+    na-ESRK [0] ISDN-AddressString OPTIONAL,
+    na-ESRD [1] ISDN-AddressString OPTIONAL,
+    h-gmlc-Address [2] GSN-Address OPTIONAL,
+    mo-lrShortCircuitIndicator [3] NULL OPTIONAL,
+    reportingPLMNList [4] ReportingPLMNList OPTIONAL,
+    lcs-ReferenceNumber [5] LCS-ReferenceNumber OPTIONAL }
+
+-- na-ESRK and na-ESRD are mutually exclusive
+--
+-- exception handling
+-- receipt of both na-ESRK and na-ESRD shall be treated the same as a return error
+
+
+END

data/lib/gps_pvt/upl/RRLP-V17_0_0-Release17.asn

@@ -1191,7 +1191,12 @@ GANSSRefTimeInfo ::= SEQUENCE {
 GANSSTOD ::= INTEGER (0 .. 86399) 
 
 -- GANSS TOD uncertainty 
-GANSSTODUncertainty ::= INTEGER (0 .. 127) -- Coding according to Annex 
+GANSSTODUncertainty ::= INTEGER (0 .. 127) -- Coding according to Annex
+
+-- GANSS Reference Time Rel-10 Extension:
+GANSSReferenceTime-R10-Ext ::= SEQUENCE {
+  ganssDayCycleNumber INTEGER(0..7) -- coding according to annex
+}
 
 -- GANSS TOD-GSM Time association 
 GANSSTOD-GSMTimeAssociation ::= SEQUENCE { 

data/lib/gps_pvt/upl/upl.rb

@@ -26,6 +26,54 @@ ASN1::dig(upl, :ULP, :"ULP-PDU", :message, :msSUPLPOS, :posPayLoad, :rrlpPayload
   },
 })
 
+ASN1::dig(upl, :"MAP-LCS-DataTypes", :"Ext-GeographicalInformation")[:type][1].merge!({
+  :hook_decode => proc{
+    gen_ut = proc{|c, x| proc{|k| ((x + 1) ** k - 1) * c} }
+    tbl_task = {
+      :lat => [3, proc{|v| Rational((v & 0x7FFFFF) * 90, 1 << 23).to_f * (((v >> 23) == 1) ? -1 : 1)}],
+      :lng => [3, proc{|v| Rational((v >= (1 << 23) ? v - (1 << 24) : v) * 180, 1 << 23).to_f}],
+      :ucode => 1,
+      :usmaj => [1, gen_ut.call(10, 0.1)],
+      :usmin => [1, gen_ut.call(10, 0.1)],
+      :omaj => 1,
+      :cnf => 1,
+      :alt => [2, proc{|v| (v & 0x7FFF) * (((v >> 15) == 1) ? -1 : 1)}],
+      :ualt => [1, gen_ut.call(45, 0.025)],
+      :irad => [2, proc{|v| v * 5}],
+      :urad => [1, gen_ut.call(10, 0.1)],
+      :oang => [1, proc{|v| v * 2}],
+      :iang => [1, proc{|v| (v + 1) * 2}],
+    }
+    tbl_item = { # 7.2 Table 2a in 3GPP TS 23.032
+      # (a) 7.3.2 Ellipsoid point with uncertainty Circle
+      1 => [8, :lat, :lng, :ucode],
+      # (b) 7.3.3 Ellipsoid point with uncertainty Ellipse
+      3 => [11, :lat, :lng, :usmaj, :usmin, :omaj, :cnf],
+      # (c) 7.3.6 Ellipsoid point with altitude and uncertainty Ellipsoid
+      9 => [14, :lat, :lng, :alt, :usmaj, :usmin, :omaj, :ualt, :cnf],
+      # (d) 7.3.7 Ellipsoid Arc 
+      10 => [13, :lat, :lng, :irad, :urad, :oang, :iang, :cnf],
+      # (e) 7.3.1 Ellipsoid Point
+      0 => [7, :lat, :lng],
+    }
+    proc{|data|
+      data.define_singleton_method(:decode){
+        len, *items = tbl_item[self[0] >> 4]
+        next nil unless self.length == len
+        offset = 1
+        Hash[*(items.collect{|k|
+          len2, task = tbl_task[k]
+          v = self.slice(offset, len2).inject(0){|res, v2| (res << 8) + v2}
+          v = task.call(v) if task
+          offset += len2
+          [k, v]
+        }.flatten(1))]
+      }
+      data
+    }
+  }.call,
+})
+
 # LPP payload conversion
 ASN1::dig(upl, :ULP, :"ULP-PDU", :message, :msSUPLPOS, :posPayLoad, :"ver2-PosPayLoad-extension", :lPPPayload)[:type][1].merge!({
   :hook_encode => proc{|data|

data/lib/gps_pvt/version.rb

@@ -1,7 +1,7 @@
 # frozen_string_literal: true
 
 module GPS_PVT
-  VERSION = "0.10.1"
+  VERSION = "0.10.2"
   
   def GPS_PVT.version_compare(a, b)
     Gem::Version::new(a) <=> Gem::Version::new(b)

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: gps_pvt
 version: !ruby/object:Gem::Version
-  version: 0.10.1
+  version: 0.10.2
 platform: ruby
 authors:
 - fenrir(M.Naruoka)
 autorequire: 
 bindir: exe
 cert_chain: []
-date: 2024-03-28 00:00:00.000000000 Z
+date: 2024-04-02 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: rubyserial
@@ -174,6 +174,7 @@ files:
 - lib/gps_pvt/supl.rb
 - lib/gps_pvt/ubx.rb
 - lib/gps_pvt/upl/LPP-V17_5_0-Release17.asn
+- lib/gps_pvt/upl/MAP-LCS-DataTypes-V17_4_0-Release17.asn
 - lib/gps_pvt/upl/RRLP-V17_0_0-Release17.asn
 - lib/gps_pvt/upl/ULP-V2_0_6-20200720-D.asn
 - lib/gps_pvt/upl/upl.json.gz