Commit e040ff21 authored by Maxime Perrotin's avatar Maxime Perrotin

Update stg files with latest templates

parent 6c9ee7f1
/*
* 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() ::= ""
/*
* 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, bIsUnsigned, bIsRealType) ::= ""
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