Commit 43bca318 authored by Maxime Perrotin's avatar Maxime Perrotin

Improve the rendering of Enumerated

strip the asn1scc prefix and lowercase the string
parent 7ec8bc4d
...@@ -128,7 +128,8 @@ EnumItem (sName, sCName, nVal, nLine, nPos, sCID) ::= << ...@@ -128,7 +128,8 @@ EnumItem (sName, sCName, nVal, nLine, nPos, sCID) ::= <<
/* Enumerated type: arrsItems is an array of EnumItem */ /* Enumerated type: arrsItems is an array of EnumItem */
EnumType(arrsItems) ::= << EnumType(arrsItems) ::= <<
function Image (Elm : ASN1_Type) return String is (To_Lower (Elm'Img)); function Image (Elm : ASN1_Type) return String is
(Delete (To_Lower (Elm'Img), From => 1, Through => 7)); -- remove "asn1scc" prefix
>> >>
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment