Commit e040ff21 authored by Maxime Perrotin's avatar Maxime Perrotin

Update stg files with latest templates

parent 6c9ee7f1
......@@ -66,10 +66,10 @@ $sSubType$
see MinMaxType2 and SequenceOf
sName may be Generic_Integer or Generic_Real
*/
MinMaxType(sName, sMin, sMax, bFixedSize) ::= <<
MinMaxType(sName, sMin, sMax, bFixedSize, bIsUnsigned, bIsRealType) ::= <<
function Image(Elm: ASN1_Type) return String is (Elm'Img);
procedure To_ASN1(from: Interfaces.Integer_64; to: out ASN1_Type) is
procedure To_ASN1(from: Interfaces.$if(bIsUnsigned)$Unsigned_64$else$$if(bIsRealType)$Long_Float$else$Integer_64$endif$$endif$; to: out ASN1_Type) is
begin
to := from;
>>
......
......@@ -88,10 +88,10 @@ $sSubType$
see MinMaxType2 and SequenceOf
sName may be Generic_Integer or Generic_Real
*/
MinMaxType(sName, sMin, sMax, bFixedSize) ::= <<
MinMaxType(sName, sMin, sMax, bFixedSize, bIsUnsigned, bIsRealType) ::= <<
Generic_$sName$ (Min => $sMin$, Max => $sMax$);
package It renames Inner.It;
procedure To_ASN1(from: Interfaces.Integer_64; to: out ASN1_Type);
procedure To_ASN1(from: Interfaces.$if(bIsUnsigned)$Unsigned_64$else$$if(bIsRealType)$Long_Float$else$Integer_64$endif$$endif$; to: out ASN1_Type);
>>
......
......@@ -44,7 +44,7 @@ ImportedMod(sName, sCName, arrsTypes, arrsVars) ::= ""
TasXml(sName, nLine, nPos, sType, sCName, sAssigOp, sContract) ::= ""
VasXml(sName, nLine, nPos, sType, sValue, sCName) ::= ""
TypeGeneric(nLine, nPos, sAsnFile, sSubType) ::= ""
MinMaxType(sName, sMin, sMax, bFixedSize) ::= ""
MinMaxType(sName, sMin, sMax, bFixedSize, bIsUnsigned, bIsRealType) ::= ""
MinMaxType2(sName, sMin, sMax, bFixedSize) ::= ""
BooleanType () ::= ""
NullType () ::= ""
......
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