Commit 6c9ee7f1 authored by Maxime Perrotin's avatar Maxime Perrotin

Update stg to be compliant with ASN1SCC_V4

parent 119bf0b8
......@@ -56,7 +56,7 @@ end;
VasXml(sName, nLine, nPos, sType, sValue, sCName) ::= <<
>>
TypeGeneric(nLine, nPos, sSubType) ::= <<
TypeGeneric(nLine, nPos, sAsnFile, sSubType) ::= <<
$sSubType$
>>
......@@ -171,7 +171,7 @@ SequenceType(arrsChildren) ::= <<
/* Sequence of (array) */
SequenceOfType(sMin, sMax, sChild) ::= <<
SequenceOfType(sMin, sMax, sChild, bFixedSize) ::= <<
procedure To_ASN1(from: Inner.MySeqOf; to: out ASN1_Type) is
begin
for idx in 1..from.length loop
......@@ -181,7 +181,7 @@ begin
/* RefTypeMinMax, eg. in SEQUENCE OF INTEGER (0..5) */
RefTypeMinMax(sMin, sMax, sName, sModName, sCName, sCModName) ::= <<
RefTypeMinMax(sMin, sMax, sName, sModName, sCName, sCModName, bFixedSize) ::= <<
$if(sModName)$$sCModName$.$endif$$sCName$
>>
......
......@@ -78,7 +78,7 @@ end;
VasXml(sName, nLine, nPos, sType, sValue, sCName) ::= <<
>>
TypeGeneric(nLine, nPos, sSubType) ::= <<
TypeGeneric(nLine, nPos, sAsnFile, sSubType) ::= <<
$sSubType$
>>
......@@ -191,7 +191,7 @@ SequenceType(arrsChildren) ::= <<
/* Sequence of (array) */
SequenceOfType(sMin, sMax, sChild) ::= <<
SequenceOfType(sMin, sMax, sChild, bFixedSize) ::= <<
Generic_SeqOf (Min => $sMin$, Max => $sMax$, Basic => $sChild$_Pkg.It);
use $sChild$_Pkg;
procedure To_ASN1(from: Inner.MySeqOf; to: out ASN1_Type);
......@@ -199,7 +199,7 @@ Generic_SeqOf (Min => $sMin$, Max => $sMax$, Basic => $sChild$_Pkg.It);
/* RefTypeMinMax, eg. in SEQUENCE OF INTEGER (0..5) */
RefTypeMinMax(sMin, sMax, sName, sModName, sCName, sCModName) ::= <<
RefTypeMinMax(sMin, sMax, sName, sModName, sCName, sCModName, bFixedSize) ::= <<
$if(sModName)$$sCModName$.$endif$$sCName$
>>
......
......@@ -43,7 +43,7 @@ pragma Unreferenced($sCName$);
ImportedMod(sName, sCName, arrsTypes, arrsVars) ::= ""
TasXml(sName, nLine, nPos, sType, sCName, sAssigOp, sContract) ::= ""
VasXml(sName, nLine, nPos, sType, sValue, sCName) ::= ""
TypeGeneric(nLine, nPos, sSubType) ::= ""
TypeGeneric(nLine, nPos, sAsnFile, sSubType) ::= ""
MinMaxType(sName, sMin, sMax, bFixedSize) ::= ""
MinMaxType2(sName, sMin, sMax, bFixedSize) ::= ""
BooleanType () ::= ""
......@@ -62,8 +62,8 @@ ChoiceChild(sName, sCName, nLine, nPos, sChildContent, sNamePresent ) ::= ""
ChoiceType(arrsChildren) ::= ""
SequenceChild(sName, sCName, bOptional, sDefVal, nLine, nPos, sChildContent ) ::= ""
SequenceType(arrsChildren) ::= ""
SequenceOfType(sMin, sMax, sChild) ::= ""
RefTypeMinMax(sMin, sMax, sName, sModName, sCName, sCModName) ::= ""
SequenceOfType(sMin, sMax, sChild, bFixedSize) ::= ""
RefTypeMinMax(sMin, sMax, sName, sModName, sCName, sCModName, bFixedSize) ::= ""
RefType(sName, sModName, sCName, sCModName) ::= ""
Contract(sTypePattern, sExpr) ::= ""
TypePatternCommonTypes() ::= ""
......
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