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

Update stg to be compliant with ASN1SCC_V4

parent 119bf0b8
...@@ -78,7 +78,7 @@ end; ...@@ -78,7 +78,7 @@ end;
VasXml(sName, nLine, nPos, sType, sValue, sCName) ::= << VasXml(sName, nLine, nPos, sType, sValue, sCName) ::= <<
>> >>
TypeGeneric(nLine, nPos, sSubType) ::= << TypeGeneric(nLine, nPos, sAsnFile, sSubType) ::= <<
$sSubType$ $sSubType$
>> >>
...@@ -191,7 +191,7 @@ SequenceType(arrsChildren) ::= << ...@@ -191,7 +191,7 @@ SequenceType(arrsChildren) ::= <<
/* Sequence of (array) */ /* Sequence of (array) */
SequenceOfType(sMin, sMax, sChild) ::= << SequenceOfType(sMin, sMax, sChild, bFixedSize) ::= <<
Generic_SeqOf (Min => $sMin$, Max => $sMax$, Basic => $sChild$_Pkg.It); Generic_SeqOf (Min => $sMin$, Max => $sMax$, Basic => $sChild$_Pkg.It);
use $sChild$_Pkg; use $sChild$_Pkg;
procedure To_ASN1(from: Inner.MySeqOf; to: out ASN1_Type); procedure To_ASN1(from: Inner.MySeqOf; to: out ASN1_Type);
...@@ -199,7 +199,7 @@ Generic_SeqOf (Min => $sMin$, Max => $sMax$, Basic => $sChild$_Pkg.It); ...@@ -199,7 +199,7 @@ Generic_SeqOf (Min => $sMin$, Max => $sMax$, Basic => $sChild$_Pkg.It);
/* RefTypeMinMax, eg. in SEQUENCE OF INTEGER (0..5) */ /* 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$ $if(sModName)$$sCModName$.$endif$$sCName$
>> >>
......
/* /*
* Copyright (c) 2016 European Space Agency * Copyright (c) 2016 European Space Agency
* *
* This file is a custom backend to be used with the ASN1SCC tool. * This file is a custom backend to be used with the ASN1SCC tool.
* It generates an Ada package with iterators that compute all possible values * It generates an Ada package with iterators that compute all possible values
* of all ASN.1 types. * of all ASN.1 types.
* *
* Licensed under the terms of GNU General Public Licence as published by * Licensed under the terms of GNU General Public Licence as published by
* the Free Software Foundation. * the Free Software Foundation.
* *
*/ */
group ada_iterators; group ada_iterators;
//delimiters "$", "$" //delimiters "$", "$"
/* Header of the file */ /* Header of the file */
RootXml(arrsFiles) ::= << RootXml(arrsFiles) ::= <<
-- This file was generated automatically by TASTE: DO NOT EDIT -- This file was generated automatically by TASTE: DO NOT EDIT
-- Dummy package that is used to "with" the ASN.1 modules -- Dummy package that is used to "with" the ASN.1 modules
$arrsFiles;separator="\n"$ $arrsFiles;separator="\n"$
package ASN1_Ada_Iterators is package ASN1_Ada_Iterators is
end; end;
>> >>
/* sFileName is a string with the current file name */ /* sFileName is a string with the current file name */
FileXml(sFileName, arrsModules) ::= << FileXml(sFileName, arrsModules) ::= <<
-- ASN.1 File $sFileName$ -- ASN.1 File $sFileName$
$arrsModules;separator="\n"$ $arrsModules;separator="\n"$
>> >>
ModuleXml(sName, sCName, arrsImportedModules, arrsExpTypes, arrsExpVars, arrsTases, arrsVases) ::=<< ModuleXml(sName, sCName, arrsImportedModules, arrsExpTypes, arrsExpVars, arrsTases, arrsVases) ::=<<
with $sCName$; with $sCName$;
use $sCName$; use $sCName$;
pragma Unreferenced($sCName$); pragma Unreferenced($sCName$);
>> >>
ImportedMod(sName, sCName, arrsTypes, arrsVars) ::= "" ImportedMod(sName, sCName, arrsTypes, arrsVars) ::= ""
TasXml(sName, nLine, nPos, sType, sCName, sAssigOp, sContract) ::= "" TasXml(sName, nLine, nPos, sType, sCName, sAssigOp, sContract) ::= ""
VasXml(sName, nLine, nPos, sType, sValue, sCName) ::= "" VasXml(sName, nLine, nPos, sType, sValue, sCName) ::= ""
TypeGeneric(nLine, nPos, sSubType) ::= "" TypeGeneric(nLine, nPos, sAsnFile, sSubType) ::= ""
MinMaxType(sName, sMin, sMax, bFixedSize) ::= "" MinMaxType(sName, sMin, sMax, bFixedSize) ::= ""
MinMaxType2(sName, sMin, sMax, bFixedSize) ::= "" MinMaxType2(sName, sMin, sMax, bFixedSize) ::= ""
BooleanType () ::= "" BooleanType () ::= ""
NullType () ::= "" NullType () ::= ""
IntegerType () ::= "" IntegerType () ::= ""
RealType () ::= "" RealType () ::= ""
BitStringType () ::= "" BitStringType () ::= ""
OctetStringType () ::= "" OctetStringType () ::= ""
IA5StringType () ::= "" IA5StringType () ::= ""
NumericStringType () ::= "" NumericStringType () ::= ""
AssigOpNormalType () ::= "" AssigOpNormalType () ::= ""
AssigOpSpecialType () ::= "" AssigOpSpecialType () ::= ""
EnumItem (sName, sCName, nVal, nLine, nPos, sCID) ::= "" EnumItem (sName, sCName, nVal, nLine, nPos, sCID) ::= ""
EnumType(arrsItems) ::= "" EnumType(arrsItems) ::= ""
ChoiceChild(sName, sCName, nLine, nPos, sChildContent, sNamePresent ) ::= "" ChoiceChild(sName, sCName, nLine, nPos, sChildContent, sNamePresent ) ::= ""
ChoiceType(arrsChildren) ::= "" ChoiceType(arrsChildren) ::= ""
SequenceChild(sName, sCName, bOptional, sDefVal, nLine, nPos, sChildContent ) ::= "" SequenceChild(sName, sCName, bOptional, sDefVal, nLine, nPos, sChildContent ) ::= ""
SequenceType(arrsChildren) ::= "" SequenceType(arrsChildren) ::= ""
SequenceOfType(sMin, sMax, sChild) ::= "" SequenceOfType(sMin, sMax, sChild, bFixedSize) ::= ""
RefTypeMinMax(sMin, sMax, sName, sModName, sCName, sCModName) ::= "" RefTypeMinMax(sMin, sMax, sName, sModName, sCName, sCModName, bFixedSize) ::= ""
RefType(sName, sModName, sCName, sCModName) ::= "" RefType(sName, sModName, sCName, sCModName) ::= ""
Contract(sTypePattern, sExpr) ::= "" Contract(sTypePattern, sExpr) ::= ""
TypePatternCommonTypes() ::= "" TypePatternCommonTypes() ::= ""
TypePatternSequence(sName, sCName, arrsChildren) ::= "" TypePatternSequence(sName, sCName, arrsChildren) ::= ""
SequencePatternChild(sName, sCName) ::= "" SequencePatternChild(sName, sCName) ::= ""
ContractExprMinMax(sPattern, sMin, sMax, bFixedSize) ::= "" ContractExprMinMax(sPattern, sMin, sMax, bFixedSize) ::= ""
ContractExprSize(sPattern, sMin, sMax, bFixedSize) ::= "" ContractExprSize(sPattern, sMin, sMax, bFixedSize) ::= ""
ContractExprSequence(arrsChildren) ::= "" ContractExprSequence(arrsChildren) ::= ""
Print_IntegerValue(nVal) ::= "" Print_IntegerValue(nVal) ::= ""
Print_RealValue(dVal) ::= "" Print_RealValue(dVal) ::= ""
Print_StringValue(v) ::= "" Print_StringValue(v) ::= ""
Print_TrueValue() ::= "" Print_TrueValue() ::= ""
Print_FalseValue() ::= "" Print_FalseValue() ::= ""
Print_BitStringValue(v) ::= "" Print_BitStringValue(v) ::= ""
Print_OctetStringValue(arruOctets) ::= "" Print_OctetStringValue(arruOctets) ::= ""
Print_RefValue(sName) ::= "" Print_RefValue(sName) ::= ""
Print_SeqOfValue(arrsValues) ::= "" Print_SeqOfValue(arrsValues) ::= ""
Print_SeqValue_Child(sName, sChildValue) ::= "" Print_SeqValue_Child(sName, sChildValue) ::= ""
Print_SeqValue(arrsValues) ::= "" Print_SeqValue(arrsValues) ::= ""
Print_ChValue(sAltName,sAltValue) ::= "" Print_ChValue(sAltName,sAltValue) ::= ""
Print_NullValue() ::= "" Print_NullValue() ::= ""
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