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;
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$
>>
......
/*
* Copyright (c) 2016 European Space Agency
*
* 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
* of all ASN.1 types.
*
* Licensed under the terms of GNU General Public Licence as published by
* the Free Software Foundation.
*
*/
group ada_iterators;
//delimiters "$", "$"
/* Header of the file */
RootXml(arrsFiles) ::= <<
-- This file was generated automatically by TASTE: DO NOT EDIT
-- Dummy package that is used to "with" the ASN.1 modules
$arrsFiles;separator="\n"$
package ASN1_Ada_Iterators is
end;
>>
/* sFileName is a string with the current file name */
FileXml(sFileName, arrsModules) ::= <<
-- ASN.1 File $sFileName$
$arrsModules;separator="\n"$
>>
ModuleXml(sName, sCName, arrsImportedModules, arrsExpTypes, arrsExpVars, arrsTases, arrsVases) ::=<<
with $sCName$;
use $sCName$;
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) ::= ""
MinMaxType(sName, sMin, sMax, bFixedSize) ::= ""
MinMaxType2(sName, sMin, sMax, bFixedSize) ::= ""
BooleanType () ::= ""
NullType () ::= ""
IntegerType () ::= ""
RealType () ::= ""
BitStringType () ::= ""
OctetStringType () ::= ""
IA5StringType () ::= ""
NumericStringType () ::= ""
AssigOpNormalType () ::= ""
AssigOpSpecialType () ::= ""
EnumItem (sName, sCName, nVal, nLine, nPos, sCID) ::= ""
EnumType(arrsItems) ::= ""
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) ::= ""
RefType(sName, sModName, sCName, sCModName) ::= ""
Contract(sTypePattern, sExpr) ::= ""
TypePatternCommonTypes() ::= ""
TypePatternSequence(sName, sCName, arrsChildren) ::= ""
SequencePatternChild(sName, sCName) ::= ""
ContractExprMinMax(sPattern, sMin, sMax, bFixedSize) ::= ""
ContractExprSize(sPattern, sMin, sMax, bFixedSize) ::= ""
ContractExprSequence(arrsChildren) ::= ""
Print_IntegerValue(nVal) ::= ""
Print_RealValue(dVal) ::= ""
Print_StringValue(v) ::= ""
Print_TrueValue() ::= ""
Print_FalseValue() ::= ""
Print_BitStringValue(v) ::= ""
Print_OctetStringValue(arruOctets) ::= ""
Print_RefValue(sName) ::= ""
Print_SeqOfValue(arrsValues) ::= ""
Print_SeqValue_Child(sName, sChildValue) ::= ""
Print_SeqValue(arrsValues) ::= ""
Print_ChValue(sAltName,sAltValue) ::= ""
Print_NullValue() ::= ""
/*
* Copyright (c) 2016 European Space Agency
*
* 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
* of all ASN.1 types.
*
* Licensed under the terms of GNU General Public Licence as published by
* the Free Software Foundation.
*
*/
group ada_iterators;
//delimiters "$", "$"
/* Header of the file */
RootXml(arrsFiles) ::= <<
-- This file was generated automatically by TASTE: DO NOT EDIT
-- Dummy package that is used to "with" the ASN.1 modules
$arrsFiles;separator="\n"$
package ASN1_Ada_Iterators is
end;
>>
/* sFileName is a string with the current file name */
FileXml(sFileName, arrsModules) ::= <<
-- ASN.1 File $sFileName$
$arrsModules;separator="\n"$
>>
ModuleXml(sName, sCName, arrsImportedModules, arrsExpTypes, arrsExpVars, arrsTases, arrsVases) ::=<<
with $sCName$;
use $sCName$;
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, sAsnFile, sSubType) ::= ""
MinMaxType(sName, sMin, sMax, bFixedSize) ::= ""
MinMaxType2(sName, sMin, sMax, bFixedSize) ::= ""
BooleanType () ::= ""
NullType () ::= ""
IntegerType () ::= ""
RealType () ::= ""
BitStringType () ::= ""
OctetStringType () ::= ""
IA5StringType () ::= ""
NumericStringType () ::= ""
AssigOpNormalType () ::= ""
AssigOpSpecialType () ::= ""
EnumItem (sName, sCName, nVal, nLine, nPos, sCID) ::= ""
EnumType(arrsItems) ::= ""
ChoiceChild(sName, sCName, nLine, nPos, sChildContent, sNamePresent ) ::= ""
ChoiceType(arrsChildren) ::= ""
SequenceChild(sName, sCName, bOptional, sDefVal, nLine, nPos, sChildContent ) ::= ""
SequenceType(arrsChildren) ::= ""
SequenceOfType(sMin, sMax, sChild, bFixedSize) ::= ""
RefTypeMinMax(sMin, sMax, sName, sModName, sCName, sCModName, bFixedSize) ::= ""
RefType(sName, sModName, sCName, sCModName) ::= ""
Contract(sTypePattern, sExpr) ::= ""
TypePatternCommonTypes() ::= ""
TypePatternSequence(sName, sCName, arrsChildren) ::= ""
SequencePatternChild(sName, sCName) ::= ""
ContractExprMinMax(sPattern, sMin, sMax, bFixedSize) ::= ""
ContractExprSize(sPattern, sMin, sMax, bFixedSize) ::= ""
ContractExprSequence(arrsChildren) ::= ""
Print_IntegerValue(nVal) ::= ""
Print_RealValue(dVal) ::= ""
Print_StringValue(v) ::= ""
Print_TrueValue() ::= ""
Print_FalseValue() ::= ""
Print_BitStringValue(v) ::= ""
Print_OctetStringValue(arruOctets) ::= ""
Print_RefValue(sName) ::= ""
Print_SeqOfValue(arrsValues) ::= ""
Print_SeqValue_Child(sName, sChildValue) ::= ""
Print_SeqValue(arrsValues) ::= ""
Print_ChValue(sAltName,sAltValue) ::= ""
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