开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 多媒体 > IP电话/视频会议 > 查看源码
asn_grammar.y
资源名称：pwlib_1.1pl17.zip　[点击查看]
上传用户：hzhsqp
上传日期：2007-01-06
资源大小：1600k
文件大小：48k
源码类别：

IP电话/视频会议

开发平台：

Visual C++

asn_grammar.y：源码内容
  1. %expect 14
  3. %{
  5. /*
  6.  * asn_grammar.y
  7.  *
  8.  * ASN grammar file
  9.  *
  10.  * ASN.1 compiler to produce C++ classes.
  11.  *
  12.  * Copyright (c) 1997-1999 Equivalence Pty. Ltd.
  13.  *
  14.  * The contents of this file are subject to the Mozilla Public License
  15.  * Version 1.0 (the "License"); you may not use this file except in
  16.  * compliance with the License. You may obtain a copy of the License at
  17.  * http://www.mozilla.org/MPL/
  18.  *
  19.  * Software distributed under the License is distributed on an "AS IS"
  20.  * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
  21.  * the License for the specific language governing rights and limitations
  22.  * under the License.
  23.  *
  24.  * The Original Code is ASN Parser.
  25.  *
  26.  * The Initial Developer of the Original Code is Equivalence Pty. Ltd.
  27.  *
  28.  * Portions of this code were written with the assisance of funding from
  29.  * Vovida Networks, Inc. http://www.vovida.com.
  30.  *
  31.  * Portions are Copyright (C) 1993 Free Software Foundation, Inc.
  32.  * All Rights Reserved.
  33.  *
  34.  * Contributor(s): ______________________________________.
  35.  *
  36.  * $Log: asn_grammar.y,v $
  37.  * Revision 1.10  2000/05/08 08:55:44  robertj
  38.  * Fixed production error for ValueSet, thanks Huang-Ming Huang
  39.  *
  40.  * Revision 1.9  2000/01/19 12:33:07  robertj
  41.  * Fixed parsing of OID's in IMPORTS section.
  42.  *
  43.  * Revision 1.8  2000/01/19 03:38:12  robertj
  44.  * Fixed support for parsing multiple IMPORTS
  45.  *
  46.  * Revision 1.7  1999/07/22 06:48:54  robertj
  47.  * Added comparison operation to base ASN classes and compiled ASN code.
  48.  * Added support for ANY type in ASN parser.
  49.  *
  50.  * Revision 1.6  1999/06/09 06:58:08  robertj
  51.  * Adjusted heading comments.
  52.  *
  53.  * Revision 1.5  1999/06/07 01:56:25  robertj
  54.  * Added header comment on license.
  55.  *
  56.  * Revision 1.4  1999/06/06 05:30:28  robertj
  57.  * Support for parameterised types and type-dentifier types.
  58.  * Added ability to output multiple .cxx files.
  59.  *
  60.  * Revision 1.3  1998/12/14 06:47:55  robertj
  61.  * New memory check code support.
  62.  *
  63.  * Revision 1.2  1998/05/21 04:21:46  robertj
  64.  * Implementing more of the ASN spec.
  65.  *
  66.  * Revision 1.1  1997/12/13 09:17:47  robertj
  67.  * Initial revision
  68.  *
  69.  */
  71. #include <ptlib.h>
  73. #undef malloc
  74. #undef calloc
  75. #undef realloc
  76. #undef free
  78. #include "main.h"
  80. extern int yylex();
  82. extern int ReferenceTokenContext;
  83. extern int IdentifierTokenContext;
  84. extern int BraceTokenContext;
  85. extern int NullTokenContext;
  86. extern int InMacroContext;
  87. extern int HasObjectTypeMacro;
  88. extern int InMIBContext;
  89. extern TypesList * CurrentImportList;
  91. static int UnnamedFieldCount = 1;
  92. static PStringList * DummyParameters;
  94. static PString * ConcatNames(PString * s1, char c, PString * s2)
  95. {
  96.   *s1 += c;
  97.   *s1 += *s2;
  98.   delete s2;
  99.   return s1;
  100. }
  102. #ifdef _MSC_VER
  103. #pragma warning(disable:4701)
  104. #endif
  106. %}
  108. %token IDENTIFIER
  109. %token BIT_IDENTIFIER
  110. %token OID_IDENTIFIER
  111. %token IMPORT_IDENTIFIER
  112. %token MODULEREFERENCE
  113. %token TYPEREFERENCE
  114. %token OBJECTCLASSREFERENCE
  115. %token TYPEFIELDREFERENCE
  116. %token VALUEFIELDREFERENCE
  117. %token VALUESETFIELDREFERENCE
  118. %token OBJECTFIELDREFERENCE
  119. %token OBJECTSETFIELDREFERENCE
  120. %token OBJECTREFERENCE
  121. %token OBJECTSETREFERENCE
  122. %token INTEGER
  124. %token CSTRING
  125. %token OS_BSTRING
  126. %token BS_BSTRING
  127. %token OS_HSTRING
  128. %token BS_HSTRING
  130. %token STRING_BRACE
  131. %token BITSTRING_BRACE
  132. %token OID_BRACE
  134. %token ABSENT           
  135. %token ABSTRACT_SYNTAX  
  136. %token ALL              
  137. %token ANY
  138. %token APPLICATION      
  139. %token ASSIGNMENT
  140. %token AUTOMATIC        
  141. %token BEGIN_t
  142. %token BIT              
  143. %token BMPString
  144. %token BOOLEAN_t
  145. %token BY
  146. %token CHARACTER        
  147. %token CHOICE           
  148. %token CLASS            
  149. %token COMPONENT        
  150. %token COMPONENTS       
  151. %token CONSTRAINED      
  152. %token DEFAULT          
  153. %token DEFINED
  154. %token DEFINITIONS      
  155. %token EMBEDDED         
  156. %token END
  157. %token ENUMERATED       
  158. %token EXCEPT           
  159. %token EXPLICIT         
  160. %token EXPORTS          
  161. %token EXTERNAL         
  162. %token FALSE_t           
  163. %token FROM             
  164. %token GeneralString    
  165. %token GraphicString    
  166. %token IA5String        
  167. %token TYPE_IDENTIFIER 
  168. %token IDENTIFIER_t
  169. %token IMPLICIT         
  170. %token IMPORTS          
  171. %token INCLUDES         
  172. %token INSTANCE         
  173. %token INTEGER_t        
  174. %token INTERSECTION     
  175. %token ISO646String
  176. %token MACRO
  177. %token MAX              
  178. %token MIN              
  179. %token MINUS_INFINITY
  180. %token NOTATION
  181. %token NULL_VALUE
  182. %token NULL_TYPE
  183. %token NumericString    
  184. %token OBJECT           
  185. %token OCTET            
  186. %token OF_t              
  187. %token OPTIONAL_t
  188. %token PDV              
  189. %token PLUS_INFINITY    
  190. %token PRESENT          
  191. %token PrintableString  
  192. %token PRIVATE          
  193. %token REAL             
  194. %token SEQUENCE         
  195. %token SET              
  196. %token SIZE_t            
  197. %token STRING           
  198. %token SYNTAX           
  199. %token T61String        
  200. %token TAGS             
  201. %token TeletexString    
  202. %token TRUE_t
  203. %token TYPE_t
  204. %token UNION            
  205. %token UNIQUE           
  206. %token UNIVERSAL        
  207. %token UniversalString  
  208. %token VideotexString   
  209. %token VisibleString    
  210. %token GeneralizedTime
  211. %token UTCTime
  212. %token VALUE
  213. %token WITH
  214. %token string_t
  215. %token identifier_t
  216. %token number_t
  217. %token empty_t
  218. %token type_t
  219. %token value_t
  220. %token OBJECT_TYPE
  221. %token TRAP_TYPE
  222. %token ACCESS
  223. %token STATUS
  224. %token read_only_t
  225. %token read_write_t
  226. %token write_only_t
  227. %token not_accessible_t
  228. %token mandatory_t
  229. %token optional_t
  230. %token obsolete_t
  231. %token deprecated_t
  232. %token DESCRIPTION_t
  233. %token REFERENCE_t
  234. %token INDEX_t
  235. %token DEFVAL_t
  236. %token ENTERPRISE
  237. %token VARIABLES
  239. %token ObjectDescriptor_t
  242. %type <ival> INTEGER
  243. %type <ival> TagDefault
  244. %type <ival> SignedNumber
  245. %type <ival> ObjectTypeAccess ObjectTypeStatus
  246. %type <ival> Class ClassNumber
  247. %type <ival> PresenceConstraint
  249. %type <sval> CSTRING
  250. %type <sval> BS_BSTRING
  251. %type <sval> OS_BSTRING
  252. %type <sval> BS_HSTRING
  253. %type <sval> OS_HSTRING
  254. %type <sval> IDENTIFIER
  255. %type <sval> BIT_IDENTIFIER
  256. %type <sval> OID_IDENTIFIER
  257. %type <sval> IMPORT_IDENTIFIER
  258. %type <sval> TYPEREFERENCE
  259. %type <sval> MODULEREFERENCE
  260. %type <sval> OBJECTCLASSREFERENCE
  261. %type <sval> TYPEFIELDREFERENCE
  262. %type <sval> VALUEFIELDREFERENCE
  263. %type <sval> VALUESETFIELDREFERENCE
  264. %type <sval> OBJECTFIELDREFERENCE
  265. %type <sval> OBJECTSETFIELDREFERENCE
  266. %type <sval> OBJECTREFERENCE
  267. %type <sval> OBJECTSETREFERENCE
  268. %type <sval> DefinitiveObjIdComponent
  269. %type <sval> DefinitiveNameAndNumberForm
  270. %type <sval> GlobalModuleReference
  271. %type <sval> Reference
  272. %type <sval> ExternalTypeReference ExternalValueReference
  273. %type <sval> ObjIdComponent
  274. %type <sval> NumberForm
  275. %type <sval> SimpleDefinedType
  276. %type <sval> ComponentIdList
  277. %type <sval> CharsDefn
  278. %type <sval> SimpleDefinedValue
  279. %type <sval> FieldName PrimitiveFieldName
  280. %type <sval> DefinedObjectClass
  281. %type <sval> ExternalObjectClassReference
  282. %type <sval> UsefulObjectClassReference
  283. %type <sval> Parameter
  284. %type <sval> MibIndexType MibDescrPart MibReferPart
  286. %type <slst> DefinitiveIdentifier
  287. %type <slst> DefinitiveObjIdComponentList
  288. %type <slst> ObjIdComponentList
  289. %type <slst> BitIdentifierList
  290. %type <slst> CharSyms
  291. %type <slst> ParameterList Parameters
  292. %type <slst> MibIndexTypes MibIndexPart
  294. %type <tval> Type BuiltinType ReferencedType NamedType
  295. %type <tval> DefinedType
  296. %type <tval> ConstrainedType
  297. %type <tval> TypeWithConstraint
  298. %type <tval> BitStringType
  299. %type <tval> BooleanType
  300. %type <tval> CharacterStringType 
  301. %type <tval> RestrictedCharacterStringType
  302. %type <tval> UnrestrictedCharacterStringType
  303. %type <tval> ChoiceType AlternativeTypeLists
  304. %type <tval> EmbeddedPDVType
  305. %type <tval> EnumeratedType Enumerations
  306. %type <tval> ExternalType
  307. %type <tval> AnyType
  308. %type <tval> IntegerType
  309. %type <tval> NullType
  310. %type <tval> ObjectClassFieldType
  311. %type <tval> ObjectIdentifierType
  312. %type <tval> OctetStringType 
  313. %type <tval> RealType
  314. %type <tval> SequenceType ComponentType ComponentTypeLists
  315. %type <tval> SequenceOfType
  316. %type <tval> SetType
  317. %type <tval> SetOfType
  318. %type <tval> TaggedType
  319. %type <tval> ParameterizedType
  320. %type <tval> SelectionType
  321. %type <tval> UsefulType
  322. %type <tval> TypeFromObject
  323. %type <tval> ContainedSubtype
  324. %type <tval> ActualParameter
  325. %type <tval> UserDefinedConstraintParameter
  326. %type <tval> Symbol
  327. %type <tval> ParameterizedReference
  329. %type <tlst> AlternativeTypeList
  330. %type <tlst> ComponentTypeList
  331. %type <tlst> ActualParameterList ActualParameters
  332. %type <tlst> UserDefinedConstraintParameters
  333. %type <tlst> SymbolList
  335. %type <vval> Value BuiltinValue
  336. %type <vval> AssignedIdentifier
  337. %type <vval> DefinedValue DefinedValue_Import
  338. %type <vval> ObjectIdentifierValue
  339. %type <vval> OctetStringValue
  340. %type <vval> BitStringValue
  341. %type <vval> ExceptionSpec
  342. %type <vval> ExceptionIdentification
  343. %type <vval> MibDefValPart
  344. %type <vval> LowerEndpoint LowerEndValue UpperEndpoint UpperEndValue
  345. %type <vval> ReferencedValue
  346. %type <vval> BooleanValue
  347. %type <vval> CharacterStringValue RestrictedCharacterStringValue
  348. %type <vval> CharacterStringList Quadruple Tuple
  349. %type <vval> ChoiceValue
  350. %type <vval> NullValue
  351. %type <vval> RealValue NumericRealValue SpecialRealValue 
  352. %type <vval> SequenceValue NamedValue
  353. /*!!!! %type <vval> SequenceOfValue */
  354. %type <vval> ParameterizedValue
  356. %type <vlst> ComponentValueList
  357. %type <vlst> MibVarPart MibVarTypes
  359. %type <nval> NamedBit
  360. %type <nval> EnumerationItem
  361. %type <nval> NamedNumber
  363. %type <nlst> NamedBitList
  364. %type <nlst> Enumeration
  365. %type <nlst> NamedNumberList
  367. %type <elmt> IntersectionElements
  368. %type <elmt> Elements
  369. %type <elmt> Exclusions
  370. %type <elmt> SubtypeElements
  371. %type <elmt> ObjectSetElements
  372. %type <elmt> ValueRange
  373. %type <elmt> PermittedAlphabet
  374. %type <elmt> InnerTypeConstraints
  375. %type <elmt> MultipleTypeConstraints
  376. %type <elmt> SizeConstraint
  377. %type <elmt> UserDefinedConstraintParameterList
  378. %type <elmt> NamedConstraint
  380. %type <elst> ElementSetSpec Unions Intersections TypeConstraints
  382. %type <cons> Constraint
  383. %type <cons> ConstraintSpec
  384. %type <cons> ElementSetSpecs 
  385. %type <cons> GeneralConstraint
  386. %type <cons> UserDefinedConstraint
  387. %type <cons> TableConstraint
  388. %type <cons> ComponentRelationConstraint
  389. %type <cons> ObjectSet
  391. %type <tagv> Tag
  394. %union {
  395.   PInt64           ival;
  396.   PString         * sval;
  397.   PStringList         * slst;
  398.   TypeBase         * tval;
  399.   TypesList         * tlst;
  400.   ValueBase         * vval;
  401.   ValuesList            * vlst;
  402.   NamedNumber         * nval;
  403.   NamedNumberList       * nlst;
  404.   Constraint            * cons;
  405.   ConstraintElementList * elst;
  406.   ConstraintElementBase * elmt;
  407.   struct {
  408.     Tag::Type tagClass;
  409.     unsigned tagNumber;
  410.   } tagv;
  411. }
  414. %%
  416. ModuleDefinition
  417.   : MODULEREFERENCE DefinitiveIdentifier DEFINITIONS TagDefault ASSIGNMENT BEGIN_t
  418.       {
  419. Module = new ModuleDefinition($1, $2, (Tag::Mode)$4);
  420. ReferenceTokenContext = TYPEREFERENCE;
  421.       }
  422.     ModuleBody END
  423.   ;
  425. DefinitiveIdentifier
  426.   : '{' DefinitiveObjIdComponentList '}'
  427. {
  428.   $$ = $2;
  429. }
  430.   | /* empty */
  431. {
  432.   $$ = new PStringList;
  433. }
  434.   ;
  436. DefinitiveObjIdComponentList
  437.   : DefinitiveObjIdComponent
  438.       {
  439. $$ = new PStringList;
  440. $$->Append($1);
  441.       }
  442.   | DefinitiveObjIdComponent DefinitiveObjIdComponentList
  443.       {
  444. $2->InsertAt(0, $1);
  445. $$ = $2;
  446.       }
  447.   ;
  449. DefinitiveObjIdComponent
  450.   : IDENTIFIER
  451.   | INTEGER
  452.       {
  453. $$ = new PString(PString::Unsigned, (int)$1);
  454.       }
  455.   | DefinitiveNameAndNumberForm
  456.   ;
  458. DefinitiveNameAndNumberForm
  459.   : IDENTIFIER '(' INTEGER ')'
  460.       {
  461. delete $1;
  462. $$ = new PString(PString::Unsigned, (int)$3);
  463.       }
  464.   ;
  466. TagDefault
  467.   : EXPLICIT TAGS
  468.       {
  469. $$ = Tag::Explicit;
  470.       }
  471.   | IMPLICIT TAGS 
  472.       {
  473. $$ = Tag::Implicit;
  474.       }
  475.   | AUTOMATIC TAGS 
  476.       {
  477. $$ = Tag::Automatic;
  478.       }
  479.   | /* empty */
  480.       {
  481. $$ = Tag::Explicit;
  482.       }
  483.   ;
  486. /*************************************/
  488. ModuleBody
  489.   : Exports Imports AssignmentList
  490.   | /* empty */
  491.   ;
  494. Exports
  495.   : EXPORTS SymbolsExported ';'
  496.   | /* empty */
  497.   ;
  500. SymbolsExported
  501.   : SymbolList
  502.       {
  503. Module->SetExports($1);
  504.       }
  505.   | /* empty */
  506.       {
  507. Module->SetExportAll();
  508.       }
  509.   ;
  512. Imports
  513.   : IMPORTS SymbolsImported ';' 
  514.   | /* empty */
  515.   ;
  518. SymbolsImported
  519.   : SymbolsFromModuleList
  520.   | /* empty */
  521.   ;
  523. SymbolsFromModuleList
  524.   : SymbolsFromModule
  525.   | SymbolsFromModuleList SymbolsFromModule
  526.   ;
  529. SymbolsFromModule
  530.   : SymbolList FROM
  531.       {
  532. CurrentImportList = $1;
  533. ReferenceTokenContext = MODULEREFERENCE;
  534.       }
  535.     GlobalModuleReference
  536.       {
  537. if (!HasObjectTypeMacro) {
  538.   HasObjectTypeMacro = $1->GetValuesIndex(SearchType("OBJECT-TYPE")) != P_MAX_INDEX;
  539.   if (HasObjectTypeMacro)
  540.     PError << "Info: including OBJECT-TYPE macro" << endl;
  541. }
  542. Module->AddImport(new ImportModule($4, $1));
  543. ReferenceTokenContext = TYPEREFERENCE;
  544. CurrentImportList = NULL;
  545.       }
  546.   ;
  549. GlobalModuleReference
  550.   : MODULEREFERENCE
  551.       {
  552. ReferenceTokenContext = TYPEREFERENCE;
  553.         BraceTokenContext = OID_BRACE;
  554.       }
  555.     AssignedIdentifier
  556.       {
  557.         BraceTokenContext = '{';
  558. delete $3;
  559.       }
  560.   ;
  563. AssignedIdentifier
  564.   : DefinedValue_Import
  565.   | ObjectIdentifierValue
  566.   | /* empty */
  567.       {
  568. $$ = NULL;
  569.       }
  570.   ;
  572. DefinedValue_Import
  573.   : ExternalValueReference
  574.       {
  575. $$ = new DefinedValue($1);
  576.       }
  577.   | IMPORT_IDENTIFIER
  578.       {
  579. $$ = new DefinedValue($1);
  580.       }
  581.   ;
  585. SymbolList
  586.   : Symbol
  587.       {
  588. $$ = new TypesList;
  589. $$->Append($1);
  590.       }
  591.   | Symbol ',' SymbolList
  592.       {
  593. $3->Append($1);
  594. $$ = $3;
  595.       }
  596.   ;
  599. Symbol
  600.   : Reference
  601.       {
  602. $$ = new ImportedType($1, FALSE);
  603.       }
  604.   | ParameterizedReference    /* only required for X.683 */
  605.   ;
  608. /*************************************/
  610. AssignmentList: Assignment 
  611.   | AssignmentList Assignment
  612.   ;
  615. Assignment
  616.   : TypeAssignment
  617.   | ValueAssignment
  618.   | ValueSetTypeAssignment 
  619.   | ObjectClassAssignment
  620.   | ObjectAssignment
  621.   | ObjectSetAssignment
  622.   | ParameterizedAssignment
  623.   /* We do not have "real" macros, so fake MIB ones */
  624.   | MacroDefinition
  625.   | ObjectTypeDefinition
  626.   | TrapTypeDefinition
  627.   ;
  630. ValueSetTypeAssignment
  631.   : TYPEREFERENCE Type
  632.       {
  633. $2->SetName($1);
  634. Module->AddType($2);
  635. IdentifierTokenContext = $2->GetIdentifierTokenContext();
  636. BraceTokenContext = $2->GetBraceTokenContext();
  637.       }
  638.     ASSIGNMENT ValueSet
  639.       {
  640. IdentifierTokenContext = IDENTIFIER;
  641. BraceTokenContext = '{';
  642.       }
  643.   ;
  648. /********/
  650. TypeAssignment
  651.   : TYPEREFERENCE ASSIGNMENT Type
  652.       {
  653. $3->SetName($1);
  654. Module->AddType($3);
  655.       }
  656.   ;
  659. Type
  660.   : ConstrainedType
  661.   | ReferencedType
  662.   | BuiltinType
  663.   ;
  666. BuiltinType
  667.   : BitStringType
  668.   | BooleanType 
  669.   | CharacterStringType 
  670.   | ChoiceType 
  671.   | EmbeddedPDVType 
  672.   | EnumeratedType 
  673.   | ExternalType 
  674.   | AnyType 
  675.   | InstanceOfType
  676.     { }
  677.   | IntegerType 
  678.   | NullType 
  679.   | ObjectClassFieldType
  680.   | ObjectIdentifierType 
  681.   | OctetStringType 
  682.   | RealType 
  683.   | SequenceType 
  684.   | SequenceOfType 
  685.   | SetType 
  686.   | SetOfType 
  687.   | TaggedType
  688.   ;
  691. ReferencedType
  692.   : DefinedType
  693.   | UsefulType
  694.   | SelectionType
  695.   | TypeFromObject
  696. /*!!! syntactically identical to TypeFromObject
  697.   | ValueSetFromObjects
  698. */
  699.   ;
  702. DefinedType
  703.   : ExternalTypeReference
  704.       {
  705. $$ = new DefinedType($1, FALSE);
  706.       }
  707.   | TYPEREFERENCE 
  708.       {
  709. $$ = new DefinedType($1,
  710.      DummyParameters != NULL &&
  711.      DummyParameters->GetValuesIndex(*$1) != P_MAX_INDEX);
  712.       }
  713.   | ParameterizedType
  714. /*| ParameterizedValueSetType synonym for ParameterizedType */
  715.   ;
  718. ExternalTypeReference
  719.   : MODULEREFERENCE '.' TYPEREFERENCE
  720.       {
  721. *$1 += *$3;
  722. delete $3;
  723.       }
  724.   ;
  727. BitStringType
  728.   : BIT STRING 
  729.       {
  730. $$ = new BitStringType;
  731.       }
  732.   | BIT STRING '{' NamedBitList '}'
  733.       {
  734. $$ = new BitStringType($4);
  735.       }
  736.   ;
  739. NamedBitList
  740.   : NamedBit 
  741.       {
  742. $$ = new NamedNumberList;
  743. $$->Append($1);
  744.       }
  745.   | NamedBitList ',' NamedBit
  746.       {
  747. $1->InsertAt(0, $3);
  748.       }
  749.   ;
  751. NamedBit
  752.   : IDENTIFIER '(' INTEGER ')' 
  753.       {
  754. $$ = new NamedNumber($1, (int)$3);
  755.       }
  756.   | IDENTIFIER '(' DefinedValue ')'
  757.       {
  758. $$ = new NamedNumber($1, ((DefinedValue*)$3)->GetReference());
  759. delete $3;
  760.       }
  761.   ;
  764. BooleanType
  765.   : BOOLEAN_t
  766.       {
  767. $$ = new BooleanType;
  768.       }
  769.   ;
  772. CharacterStringType
  773.   : RestrictedCharacterStringType
  774.   | UnrestrictedCharacterStringType
  775.   ;
  777. RestrictedCharacterStringType
  778.   : BMPString
  779.       {
  780. $$ = new BMPStringType;
  781.       }
  782.   | GeneralString
  783.       {
  784. $$ = new GeneralStringType;
  785.       }
  786.   | GraphicString
  787.       {
  788. $$ = new GraphicStringType;
  789.       }
  790.   | IA5String
  791.       {
  792. $$ = new IA5StringType;
  793.       }
  794.   | ISO646String
  795.       {
  796. $$ = new ISO646StringType;
  797.       }
  798.   | NumericString
  799.       {
  800. $$ = new NumericStringType;
  801.       }
  802.   | PrintableString
  803.       {
  804. $$ = new PrintableStringType;
  805.       }
  806.   | TeletexString
  807.       {
  808. $$ = new TeletexStringType;
  809.       }
  810.   | T61String
  811.       {
  812. $$ = new T61StringType;
  813.       }
  814.   | UniversalString
  815.       {
  816. $$ = new UniversalStringType;
  817.       }
  818.   | VideotexString
  819.       {
  820. $$ = new VideotexStringType;
  821.       }
  822.   | VisibleString
  823.       {
  824. $$ = new VisibleStringType;
  825.       }
  826.   ;
  829. UnrestrictedCharacterStringType
  830.   : CHARACTER STRING
  831.       {
  832. $$ = new UnrestrictedCharacterStringType;
  833.       }
  834.   ;
  837. ChoiceType
  838.   : CHOICE '{' AlternativeTypeLists '}'
  839.       {
  840. $$ = $3;
  841.       }
  842.   ;
  844. AlternativeTypeLists
  845.   : AlternativeTypeList
  846.       {
  847. $$ = new ChoiceType($1);
  848.       }
  849.   | AlternativeTypeList ',' ExtensionAndException
  850.       {
  851. $$ = new ChoiceType($1, TRUE);
  852.       }
  853.   | AlternativeTypeList ',' ExtensionAndException  ','  AlternativeTypeList
  854.       {
  855. $$ = new ChoiceType($1, TRUE, $5);
  856.       }
  857.   ;
  859. AlternativeTypeList
  860.   : NamedType
  861.       {
  862. $$ = new TypesList;
  863. $$->Append($1);
  864.       }
  865.   | AlternativeTypeList ',' NamedType
  866.       {
  867. $1->Append($3);
  868.       }
  869.   ;
  872. ExtensionAndException
  873.   : '.' '.' '.' ExceptionSpec
  874.   ;
  877. NamedType
  878.   : IDENTIFIER Type
  879.       {
  880. $2->SetName($1);
  881. $$ = $2;
  882.       }
  883.   | Type      /* ITU-T Rec. X.680 Appendix H.1 */
  884.       {
  885. PError << StdError(Warning) << "unnamed field." << endl;
  886. $1->SetName(new PString(PString::Printf, "_unnamed%u", UnnamedFieldCount++));
  887.       }
  888. /*| SelectionType    /* Unnecessary as have rule in Type for this */
  889.   ;
  892. EmbeddedPDVType
  893.   : EMBEDDED PDV
  894.       {
  895. $$ = new EmbeddedPDVType;
  896.       }
  897.   ;
  900. EnumeratedType
  901.   : ENUMERATED '{' Enumerations '}'
  902.       {
  903. $$ = $3;
  904.       }
  905.   ;
  907. Enumerations
  908.   : Enumeration
  909.       {
  910. $$ = new EnumeratedType($1, FALSE, NULL);
  911.       }
  912.   | Enumeration  ',' '.' '.' '.'
  913.       {
  914. $$ = new EnumeratedType($1, TRUE, NULL);
  915.       }
  916.   | Enumeration  ',' '.' '.' '.' ',' Enumeration
  917.       {
  918. $$ = new EnumeratedType($1, TRUE, $7);
  919.       }
  920.   ;
  922. Enumeration
  923.   : EnumerationItem
  924.       {
  925. $$ = new NamedNumberList;
  926. $$->Append($1);
  927.       }
  928.   | Enumeration ',' EnumerationItem
  929.       {
  930. $1->Append($3);
  931. $3->SetAutoNumber((*$1)[1]);
  932. $$ = $1;
  933.       }
  934.   ;
  936. EnumerationItem
  937.   : IDENTIFIER
  938.       {
  939. $$ = new NamedNumber($1);
  940.       }
  941.   | NamedNumber
  942.   ;
  945. ExternalType
  946.   : EXTERNAL
  947.       {
  948. $$ = new ExternalType;
  949.       }
  950.   ;
  953. AnyType
  954.   : ANY
  955.       {
  956. $$ = new AnyType(NULL);
  957.       }
  958.   | ANY DEFINED BY IDENTIFIER
  959.       {
  960. $$ = new AnyType($4);
  961.       }
  962.   ;
  965. InstanceOfType
  966.   : INSTANCE OF_t DefinedObjectClass
  967.   ;
  970. IntegerType
  971.   : INTEGER_t
  972.       {
  973. $$ = new IntegerType;
  974.       }
  975.   | INTEGER_t '{' NamedNumberList '}'
  976.       {
  977. $$ = new IntegerType($3);
  978.       }
  979.   ;
  982. NullType
  983.   : NULL_TYPE
  984.       {
  985. $$ = new NullType;
  986.       }
  987.   ;
  990. ObjectClassFieldType
  991.   : DefinedObjectClass '.' FieldName
  992.       {
  993. $$ = new ObjectClassFieldType($1, $3);
  994.       }
  995.   ;
  998. ObjectIdentifierType
  999.   : OBJECT IDENTIFIER_t
  1000.       {
  1001. $$ = new ObjectIdentifierType;
  1002.       }
  1003.   ;
  1005. OctetStringType
  1006.   : OCTET STRING
  1007.       {
  1008. $$ = new OctetStringType;
  1009.       }
  1010.   ;
  1013. RealType
  1014.   : REAL
  1015.       {
  1016. $$ = new RealType;
  1017.       }
  1018.   ;
  1021. SequenceType
  1022.   : SEQUENCE '{' ComponentTypeLists '}'
  1023.       {
  1024. $$ = $3;
  1025.       }
  1026.   | SEQUENCE '{'  '}'
  1027.       {
  1028. $$ = new SequenceType(NULL, FALSE, NULL);
  1029.       }
  1030.   | SEQUENCE '{' ExtensionAndException '}'
  1031.       {
  1032. $$ = new SequenceType(NULL, TRUE, NULL);
  1033.       }
  1034.   ;
  1036. ComponentTypeLists
  1037.   : ComponentTypeList
  1038.       {
  1039. $$ = new SequenceType($1, FALSE, NULL);
  1040.       }
  1041.   | ComponentTypeList ',' ExtensionAndException
  1042.       {
  1043. $$ = new SequenceType($1, TRUE, NULL);
  1044.       }
  1045.   | ComponentTypeList ',' ExtensionAndException ',' ComponentTypeList
  1046.       {
  1047. $$ = new SequenceType($1, TRUE, $5);
  1048.       }
  1049.   | ExtensionAndException ',' ComponentTypeList
  1050.       {
  1051. $$ = new SequenceType(NULL, TRUE, $3);
  1052.       }
  1053.   ;
  1055. ComponentTypeList
  1056.   : ComponentType
  1057.       {
  1058. $$ = new TypesList;
  1059. $$->Append($1);
  1060.       }
  1061.   | ComponentTypeList ',' ComponentType
  1062.       {
  1063. $1->Append($3);
  1064.       }
  1065.   ;
  1067. ComponentType
  1068.   : NamedType
  1069.   | NamedType OPTIONAL_t
  1070.       {
  1071. $1->SetOptional();
  1072.       }
  1073.   | NamedType DEFAULT
  1074.       {
  1075. IdentifierTokenContext = $1->GetIdentifierTokenContext();
  1076.       }
  1077.     Value   
  1078.       {
  1079. IdentifierTokenContext = IDENTIFIER;
  1080. $1->SetDefaultValue($4);
  1081.       }
  1082.   | COMPONENTS OF_t Type
  1083.       {
  1084. $$ = $3;
  1085.       }
  1086.   ;
  1089. SequenceOfType
  1090.   : SEQUENCE OF_t Type
  1091.       {
  1092. $$ = new SequenceOfType($3, NULL);
  1093.       }
  1094.   ;
  1097. SetType
  1098.   : SET '{' ComponentTypeLists '}' 
  1099.       {
  1100. $$ = new SetType((SequenceType*)$3);
  1101.       }
  1102.   | SET '{'  '}'
  1103.       {
  1104. $$ = new SetType;
  1105.       }
  1106.   ;
  1109. SetOfType
  1110.   : SET OF_t Type
  1111.       {
  1112. $$ = new SetOfType($3, NULL);
  1113.       }
  1114.   ;
  1117. TaggedType
  1118.   : Tag Type
  1119.       {
  1120. $2->SetTag($1.tagClass, $1.tagNumber, Module->GetDefaultTagMode());
  1121. $$ = $2;
  1122.       }
  1123.   | Tag IMPLICIT Type  
  1124.       {
  1125. $3->SetTag($1.tagClass, $1.tagNumber, Tag::Implicit);
  1126. $$ = $3;
  1127.       }
  1128.   | Tag EXPLICIT Type
  1129.       {
  1130. $3->SetTag($1.tagClass, $1.tagNumber, Tag::Explicit);
  1131. $$ = $3;
  1132.       }
  1133.   ;
  1135. Tag
  1136.   : '[' Class ClassNumber ']'
  1137.       {
  1138. $$.tagClass = (Tag::Type)$2;
  1139. $$.tagNumber = (int)$3;
  1140.       }
  1141.   ;
  1143. ClassNumber
  1144.   : INTEGER 
  1145.   | DefinedValue
  1146.       {
  1147. if ($1->IsDescendant(IntegerValue::Class()))
  1148.   $$ = *(IntegerValue*)$1;
  1149. else
  1150.   PError << StdError(Fatal) << "incorrect value type." << endl;
  1151.       }
  1152.   ;
  1154. Class
  1155.   : UNIVERSAL
  1156.       {
  1157. $$ = Tag::Universal;
  1158.       }
  1159.   | APPLICATION
  1160.       {
  1161. $$ = Tag::Application;
  1162.       }
  1163.   | PRIVATE
  1164.       {
  1165. $$ = Tag::Private;
  1166.       }
  1167.   | /* empty */
  1168.       {
  1169. $$ = Tag::ContextSpecific;
  1170.       }
  1171.   ;
  1174. SelectionType
  1175.   : IDENTIFIER '<' Type
  1176.       {
  1177. $$ = new SelectionType($1, $3);
  1178.       }
  1179.   ;
  1182. UsefulType
  1183.   : GeneralizedTime
  1184.       {
  1185. $$ = new GeneralizedTimeType;
  1186.       }
  1187.   | UTCTime
  1188.       {
  1189. $$ = new UTCTimeType;
  1190.       }
  1191.   | ObjectDescriptor_t
  1192.       {
  1193. $$ = new ObjectDescriptorType;
  1194.       }
  1195.   ;
  1198. TypeFromObject
  1199.   : ReferencedObjects '.' FieldName
  1200.     { }
  1201.   ;
  1203. /*!!!
  1204. ValueSetFromObjects
  1205.   : ReferencedObjects '.' FieldName
  1206.   ;
  1207. */
  1209. ReferencedObjects
  1210.   : DefinedObject
  1211.   | ParameterizedObject
  1212.   | DefinedObjectSet
  1213.     { }
  1214.   | ParameterizedObjectSet
  1215.     { }
  1216.   ;
  1218. ParameterizedObject
  1219.   : DefinedObject ActualParameterList
  1220.   ;
  1224. /********/
  1226. ConstrainedType
  1227.   : Type Constraint
  1228.       {
  1229. $1->AddConstraint($2);
  1230.       }
  1231.   | TypeWithConstraint
  1232.   ;
  1234. TypeWithConstraint
  1235.   : SET Constraint OF_t Type
  1236.       {
  1237. $$ = new SetOfType($4, $2);
  1238.       }
  1239.   | SET SizeConstraint OF_t Type
  1240.       {
  1241. $$ = new SetOfType($4, new Constraint($2));
  1242.       }
  1243.   | SEQUENCE Constraint OF_t Type
  1244.       {
  1245. $$ = new SequenceOfType($4, $2);
  1246.       }
  1247.   | SEQUENCE SizeConstraint OF_t Type
  1248.       {
  1249. $$ = new SequenceOfType($4, new Constraint($2));
  1250.       }
  1251.   ;
  1253. Constraint
  1254.   : '(' ConstraintSpec ExceptionSpec ')'
  1255.       {
  1256. $$ = $2;
  1257.       }
  1258.   ;
  1260. ConstraintSpec
  1261.   : ElementSetSpecs
  1262.   | GeneralConstraint
  1263.   ;
  1266. ExceptionSpec
  1267.   : '!' ExceptionIdentification 
  1268.       {
  1269. $$ = $2;
  1270.       }
  1271.   | /* empty */
  1272.       {
  1273. $$ = NULL;
  1274.       }
  1275.   ;
  1278. ExceptionIdentification
  1279.   : SignedNumber
  1280.       {
  1281. $$ = new IntegerValue($1);
  1282.       }
  1283.   | DefinedValue
  1284.   | Type ':' Value
  1285.       {
  1286. delete $1;
  1287.         PError << StdError(Warning) << "Typed exception unsupported" << endl;
  1288. $$ = $3;
  1289.       }
  1290.   ;
  1293. ElementSetSpecs
  1294.   : ElementSetSpec
  1295.       {
  1296. $$ = new Constraint($1, FALSE, NULL);
  1297.       }
  1298.   | ElementSetSpec  ',' '.' '.' '.'
  1299.       {
  1300. $$ = new Constraint($1, TRUE, NULL);
  1301.       }
  1302.   | '.' '.' '.' ',' ElementSetSpec
  1303.       {
  1304. $$ = new Constraint(NULL, TRUE, $5);
  1305.       }
  1306.   | ElementSetSpec  ',' '.' '.' '.' ElementSetSpec
  1307.       {
  1308. $$ = new Constraint($1, TRUE, $6);
  1309.       }
  1310.   ;
  1313. ElementSetSpec
  1314.   : Unions
  1315.   | ALL Exclusions
  1316.       {
  1317. $$ = new ConstraintElementList;
  1318. $$->Append(new ConstrainAllConstraintElement($2));
  1319.       }
  1320.   ;
  1323. Unions
  1324.   : Intersections
  1325.       {
  1326. $$ = new ConstraintElementList;
  1327. $$->Append(new ElementListConstraintElement($1));
  1328.       }
  1329.   | Unions UnionMark Intersections
  1330.       {
  1331. $1->Append(new ElementListConstraintElement($3));
  1332.       }
  1333.   ;
  1335. Intersections
  1336.   : IntersectionElements 
  1337.       {
  1338. $$ = new ConstraintElementList;
  1339. $$->Append($1);
  1340.       }
  1341.   | Intersections IntersectionMark IntersectionElements
  1342.       {
  1343. $1->Append($3);
  1344.       }
  1345.   ;
  1347. IntersectionElements
  1348.   : Elements 
  1349.   | Elements Exclusions
  1350.       {
  1351. $1->SetExclusions($2);
  1352.       }
  1353.   ;
  1355. Exclusions
  1356.   : EXCEPT Elements
  1357.       {
  1358. $$ = $2;
  1359.       }
  1360.   ;
  1362. UnionMark
  1363.   : '|'
  1364.   | UNION
  1365.   ;
  1367. IntersectionMark
  1368.   : '^'
  1369.   | INTERSECTION
  1370.   ;
  1372. Elements
  1373.   : SubtypeElements
  1374.   | ObjectSetElements
  1375.   | '(' ElementSetSpec ')'
  1376.       {
  1377. $$ = new ElementListConstraintElement($2);
  1378.       }
  1379.   ;
  1382. SubtypeElements
  1383.   : Value
  1384.       {
  1385. $$ = new SingleValueConstraintElement($1);
  1386.       }
  1387.   | ContainedSubtype
  1388.       {
  1389. $$ = new SubTypeConstraintElement($1);
  1390.       }
  1391.   | ValueRange
  1392.   | PermittedAlphabet
  1393.   | SizeConstraint
  1394. /*| TypeConstraint  This is really Type and causes ambiguity with ContainedSubtype */
  1395.   | InnerTypeConstraints
  1396.   ;
  1398. ValueRange
  1399.   : LowerEndpoint '.' '.' UpperEndpoint
  1400.       {
  1401. $$ = new ValueRangeConstraintElement($1, $4);
  1402.       }
  1403.   ;
  1405. LowerEndpoint
  1406.   : LowerEndValue
  1407.   | LowerEndValue '<'
  1408.   ;
  1410. UpperEndpoint
  1411.   : UpperEndValue
  1412.   | '<' UpperEndValue
  1413.       {
  1414. $$ = $2;
  1415.       }
  1416.   ;
  1418. LowerEndValue
  1419.   : Value 
  1420.   | MIN
  1421.       {
  1422. $$ = new MinValue;
  1423.       }
  1424.   ;
  1426. UpperEndValue
  1427.   : Value 
  1428.   | MAX
  1429.       {
  1430. $$ = new MaxValue;
  1431.       }
  1432.   ;
  1434. PermittedAlphabet
  1435.   : FROM Constraint
  1436.       {
  1437. $$ = new FromConstraintElement($2);
  1438.       }
  1439.   ;
  1441. ContainedSubtype
  1442.   : INCLUDES Type
  1443.       {
  1444. $$ = $2;
  1445.       }
  1446. /*| Type  Actual grammar has INCLUDES keyword optional but this is
  1447.  horribly ambiguous, so only support  a few specific Type
  1448.  definitions */
  1449.   | ConstrainedType
  1450.   | BuiltinType
  1451.   | DefinedType
  1452.   | UsefulType
  1453.   ;
  1456. SizeConstraint
  1457.   : SIZE_t Constraint
  1458.       {
  1459. $$ = new SizeConstraintElement($2);
  1460.       }
  1461.   ;
  1464. InnerTypeConstraints
  1465.   : WITH COMPONENT Constraint
  1466.       {
  1467. $$ = new WithComponentConstraintElement(NULL, $3, WithComponentConstraintElement::Default);
  1468.       }
  1469.   | WITH COMPONENTS MultipleTypeConstraints
  1470.       {
  1471. $$ = $3;
  1472.       }
  1473.   ;
  1475. MultipleTypeConstraints
  1476.   : '{' TypeConstraints '}' /* FullSpecification */
  1477.       {
  1478. $$ = new InnerTypeConstraintElement($2, FALSE);
  1479.       }
  1480.   | '{'  '.' '.' '.' ',' TypeConstraints '}' /* PartialSpecification */
  1481.       {
  1482. $$ = new InnerTypeConstraintElement($6, TRUE);
  1483.       }
  1484.   ;
  1486. TypeConstraints
  1487.   : NamedConstraint
  1488.       {
  1489. $$ = new ConstraintElementList;
  1490. $$->Append($1);
  1491.       }
  1492.   | NamedConstraint ',' TypeConstraints
  1493.       {
  1494. $3->Append($1);
  1495. $$ = $3;
  1496.       }
  1497.   ;
  1499. NamedConstraint
  1500.   : IDENTIFIER PresenceConstraint
  1501.       {
  1502. $$ = new WithComponentConstraintElement($1, NULL, (int)$2);
  1503.       }
  1504.   | IDENTIFIER Constraint PresenceConstraint 
  1505.       {
  1506. $$ = new WithComponentConstraintElement($1, $2, (int)$3);
  1507.       }
  1508.   ;
  1510. PresenceConstraint
  1511.   : PRESENT
  1512.       {
  1513. $$ = WithComponentConstraintElement::Present;
  1514.       }
  1515.   | ABSENT 
  1516.       {
  1517. $$ = WithComponentConstraintElement::Absent;
  1518.       }
  1519.   | OPTIONAL_t
  1520.       {
  1521. $$ = WithComponentConstraintElement::Optional;
  1522.       }
  1523.   | /* empty */
  1524.       {
  1525. $$ = WithComponentConstraintElement::Default;
  1526.       }
  1527.   ;
  1530. GeneralConstraint
  1531.   : UserDefinedConstraint
  1532.   | TableConstraint
  1533.   ;
  1535. UserDefinedConstraint
  1536.   : CONSTRAINED BY '{' UserDefinedConstraintParameterList '}'
  1537.     {
  1538.       $$ = new Constraint($4);
  1539.     }
  1540.   ;
  1542. UserDefinedConstraintParameterList
  1543.   : /* empty */
  1544.       {
  1545. $$ = new UserDefinedConstraintElement(NULL);
  1546.       }
  1547.   | UserDefinedConstraintParameters
  1548.       {
  1549. $$ = new UserDefinedConstraintElement($1);
  1550.       }
  1551.   ;
  1552.  
  1553. UserDefinedConstraintParameters
  1554.   : UserDefinedConstraintParameter ',' UserDefinedConstraintParameters
  1555.       {
  1556. $3->Append($1);
  1557. $$ = $3;
  1558.       }
  1559.   | UserDefinedConstraintParameter
  1560.       {
  1561. $$ = new TypesList;
  1562. $$->Append($1);
  1563.       }
  1564.   ;
  1566. UserDefinedConstraintParameter
  1567.   : Governor ':' ActualParameter
  1568.       {
  1569. $$ = $3;
  1570.       }
  1571.   | ActualParameter
  1572.   ;
  1575. TableConstraint
  1576.   : ObjectSet /* SimpleTableConstraint */
  1577.   | ComponentRelationConstraint
  1578.   ;
  1580. ComponentRelationConstraint
  1581.   : '{' DefinedObjectSet '}' '{' AtNotations '}'
  1582.     { $$ = NULL; }
  1583.   ;
  1585. AtNotations
  1586.   : AtNotations ',' AtNotation
  1587.   | AtNotation
  1588.   ;
  1590. AtNotation
  1591.   : '@' ComponentIdList
  1592.   | '@' '.' ComponentIdList
  1593.   ;
  1595. ComponentIdList
  1596.   : ComponentIdList '.' IDENTIFIER
  1597.   | IDENTIFIER
  1598.   ;
  1601. /********/
  1603. ObjectClassAssignment
  1604.   : OBJECTCLASSREFERENCE ASSIGNMENT ObjectClass
  1605.     { }
  1606.   ;
  1608. ObjectAssignment
  1609.   : OBJECTREFERENCE DefinedObjectClass ASSIGNMENT Object
  1610.     { }
  1611.   ;
  1613. ObjectSetAssignment
  1614.   : OBJECTSETREFERENCE DefinedObjectClass ASSIGNMENT ObjectSet
  1615.     { }
  1616.   ;
  1619. ObjectClass
  1620.   : DefinedObjectClass
  1621.     { }
  1622.   | ObjectClassDefn 
  1623.   | ParameterizedObjectClass
  1624.   ;
  1626. DefinedObjectClass
  1627.   : ExternalObjectClassReference
  1628.   | OBJECTCLASSREFERENCE
  1629.   | UsefulObjectClassReference
  1630.   ;
  1633. ExternalObjectClassReference
  1634.   : MODULEREFERENCE '.' OBJECTCLASSREFERENCE
  1635.       {
  1636. $$ = ConcatNames($1, '.', $3);
  1637.       }
  1638.   ;
  1640. UsefulObjectClassReference
  1641.   : TYPE_IDENTIFIER
  1642.       {
  1643. $$ = new PString("TYPE-IDENTIFIER");
  1644.       }
  1645.   | ABSTRACT_SYNTAX
  1646.       {
  1647. $$ = new PString("ABSTRACT-SYNTAX");
  1648.       }
  1649.   ;
  1652. ObjectClassDefn
  1653.   : CLASS  '{'  FieldSpecs '}'  WithSyntaxSpec
  1654.   ;
  1656. FieldSpecs
  1657.   : FieldSpecs ',' FieldSpec
  1658.   | FieldSpec
  1659.   ;
  1661. FieldSpec
  1662.   : TypeFieldSpec
  1663.   | FixedTypeValueFieldSpec
  1664.   | VariableTypeValueFieldSpec
  1665.   | FixedTypeValueSetFieldSpec
  1666.   | VariableTypeValueSetFieldSpec
  1667.   | ObjectFieldSpec
  1668.   | ObjectSetFieldSpec
  1669.   ;
  1671. TypeFieldSpec
  1672.   : TYPEFIELDREFERENCE TypeOptionalitySpec
  1673.     { }
  1674.   ;
  1676. TypeOptionalitySpec
  1677.   : OPTIONAL_t
  1678.   | DEFAULT Type
  1679.   | /* empty */
  1680.   ;
  1682. FixedTypeValueFieldSpec
  1683.   : VALUEFIELDREFERENCE Type Unique ValueOptionalitySpec
  1684.     { }
  1685.   ;
  1687. Unique
  1688.   : UNIQUE
  1689.   | /* empty */
  1690.   ;
  1692. ValueOptionalitySpec
  1693.   : OPTIONAL_t
  1694.   | DEFAULT Value
  1695.   | /* empty */
  1696.   ;
  1698. VariableTypeValueFieldSpec
  1699.   : VALUEFIELDREFERENCE FieldName ValueOptionalitySpec
  1700.     { }
  1701.   ;
  1703. FixedTypeValueSetFieldSpec
  1704.   : VALUESETFIELDREFERENCE Type ValueSetOptionalitySpec
  1705.     { }
  1706.   ;
  1708. ValueSetOptionalitySpec
  1709.   : OPTIONAL_t
  1710.   | DEFAULT ValueSet
  1711.   | /* empty */
  1712.   ;
  1714. VariableTypeValueSetFieldSpec
  1715.   : VALUESETFIELDREFERENCE FieldName ValueSetOptionalitySpec
  1716.     { }
  1717.   ;
  1719. ObjectFieldSpec
  1720.   : OBJECTFIELDREFERENCE DefinedObjectClass ObjectOptionalitySpec
  1721.     { }
  1722.   ;
  1724. ObjectOptionalitySpec
  1725.   : OPTIONAL_t
  1726.   | DEFAULT Object
  1727.   | /* empty */
  1728.   ;
  1730. ObjectSetFieldSpec
  1731.   : OBJECTSETFIELDREFERENCE DefinedObjectClass ObjectSetOptionalitySpec
  1732.     { }
  1733.   ;
  1735. ObjectSetOptionalitySpec
  1736.   : OPTIONAL_t
  1737.   | DEFAULT ObjectSet
  1738.   | /* empty */
  1739.   ;
  1741. WithSyntaxSpec
  1742.   : WITH SYNTAX SyntaxList
  1743.   | /* empty */
  1744.   ;
  1746. SyntaxList
  1747.   : '{' TokenOrGroupSpecs '}'
  1748.   | '{' '}'
  1749.   ;
  1751. TokenOrGroupSpecs
  1752.   : TokenOrGroupSpecs TokenOrGroupSpec
  1753.   | TokenOrGroupSpec
  1754.   ;
  1756. TokenOrGroupSpec
  1757.   : RequiredToken
  1758.   | OptionalGroup
  1759.   ;
  1761. OptionalGroup
  1762.   : '[' TokenOrGroupSpecs ']'
  1763.   ;
  1765. RequiredToken
  1766.   : Literal
  1767.   | PrimitiveFieldName
  1768.     { }
  1769.   ;
  1771. Literal
  1772.   : BIT
  1773.   | BOOLEAN_t
  1774.   | CHARACTER
  1775.   | CHOICE
  1776.   | EMBEDDED
  1777.   | END
  1778.   | ENUMERATED
  1779.   | EXTERNAL
  1780.   | FALSE_t
  1781.   | INSTANCE
  1782.   | INTEGER
  1783.     { }
  1784.   | INTERSECTION
  1785.   | MINUS_INFINITY
  1786.   | NULL_TYPE
  1787.   | OBJECT
  1788.   | OCTET
  1789.   | PLUS_INFINITY
  1790.   | REAL
  1791.   | SEQUENCE
  1792.   | SET
  1793.   | TRUE_t
  1794.   | UNION
  1795.   | ','
  1796.   ;
  1799. DefinedObject
  1800.   : ExternalObjectReference
  1801.   | OBJECTREFERENCE
  1802.     { }
  1803.   ;
  1805. ExternalObjectReference
  1806.   : MODULEREFERENCE '.' OBJECTREFERENCE
  1807.     { }
  1808.   ;
  1811. ParameterizedObjectClass
  1812.   : DefinedObjectClass ActualParameterList
  1813.     { }
  1814.   ;
  1817. DefinedObjectSet
  1818.   : ExternalObjectSetReference
  1819.     { }
  1820.   | OBJECTSETREFERENCE
  1821.     { }
  1822.   ;
  1824. ExternalObjectSetReference
  1825.   : MODULEREFERENCE '.' OBJECTSETREFERENCE
  1826.     { }
  1827.   ;
  1830. ParameterizedObjectSet
  1831.   : DefinedObjectSet ActualParameterList
  1832.   ;
  1835. FieldName
  1836.   : FieldName '.' PrimitiveFieldName
  1837.       {
  1838. $$ = ConcatNames($1, '.', $3);
  1839.       }
  1840.   | PrimitiveFieldName
  1841.   ;
  1844. PrimitiveFieldName
  1845.   : TYPEFIELDREFERENCE
  1846.   | VALUEFIELDREFERENCE
  1847.   | VALUESETFIELDREFERENCE
  1848.   | OBJECTFIELDREFERENCE
  1849.   | OBJECTSETFIELDREFERENCE
  1850.   ;
  1853. Object
  1854.   : DefinedObject
  1855.     { }
  1856. /*!!!
  1857.   | ObjectDefn
  1858.     { }
  1859. */
  1860.   | ObjectFromObject
  1861.     { }
  1862.   | ParameterizedObject
  1863.     { }
  1864.   ;
  1867. /*!!!!
  1868. ObjectDefn
  1869.   : DefaultSyntax
  1870.   | DefinedSyntax
  1871.   ;
  1873. DefaultSyntax
  1874.   : '{' FieldSettings '}
  1875.   : '{' '}
  1876.   ;
  1878. FieldSettings
  1879.   : FieldSettings ',' FieldSetting
  1880.   | FieldSetting
  1881.   ;
  1883. FieldSetting
  1884.   : PrimitiveFieldName Setting
  1885.   ;
  1887. DefinedSyntax
  1888.   : '{' DefinedSyntaxTokens '}'
  1889.   '
  1891. DefinedSyntaxTokens
  1892.   : DefinedSyntaxTokens DefinedSyntaxToken
  1893.   | /* empty *//*
  1894.   ;
  1896. DefinedSyntaxToken
  1897.   : Literal
  1898.   | Setting
  1899.   ;
  1901. Setting
  1902.   : Type
  1903.   | Value
  1904.   | ValueSet
  1905.   | Object
  1906.   | ObjectSet
  1907.   ;
  1908. */
  1911. ObjectSet
  1912.   : '{' ElementSetSpec '}'
  1913.     { }
  1914.   ;
  1917. ObjectFromObject
  1918.   : ReferencedObjects '.' FieldName
  1919.   ;
  1922. ObjectSetElements
  1923.   : Object
  1924.     { }
  1925.   | DefinedObjectSet
  1926.     { }
  1927. /*!!!
  1928.   | ObjectSetFromObjects
  1929. */
  1930.   | ParameterizedObjectSet
  1931.     { }
  1932.   ;
  1934. /*!!!
  1935. ObjectSetFromObjects
  1936.   : ReferencedObjects '.' FieldName
  1937.   ;
  1938. */
  1942. /********/
  1944. ParameterizedAssignment
  1945.   : ParameterizedTypeAssignment
  1946.   | ParameterizedValueAssignment
  1947.   | ParameterizedValueSetTypeAssignment
  1948.   | ParameterizedObjectClassAssignment
  1949.   | ParameterizedObjectAssignment
  1950.   | ParameterizedObjectSetAssignment
  1951.   ;
  1953. ParameterizedTypeAssignment
  1954.   : TYPEREFERENCE ParameterList
  1955.       {
  1956. DummyParameters = $2;
  1957.       }
  1958.     ASSIGNMENT Type
  1959.       {
  1960. DummyParameters = NULL;
  1961. $5->SetName($1);
  1962. $5->SetParameters($2);
  1963. Module->AddType($5);
  1964.       }
  1965.   ;
  1967. ParameterizedValueAssignment
  1968.   : IDENTIFIER ParameterList Type ASSIGNMENT Value
  1969.     { }
  1970.   ;
  1972. ParameterizedValueSetTypeAssignment
  1973.   : TYPEREFERENCE ParameterList Type ASSIGNMENT ValueSet
  1974.     { }
  1975.   ;
  1977. ParameterizedObjectClassAssignment
  1978.   : OBJECTCLASSREFERENCE ParameterList ASSIGNMENT ObjectClass
  1979.     { }
  1980.   ;
  1982. ParameterizedObjectAssignment
  1983.   : OBJECTREFERENCE ParameterList DefinedObjectClass ASSIGNMENT Object
  1984.     { }
  1985.   ;
  1987. ParameterizedObjectSetAssignment
  1988.   : OBJECTSETREFERENCE ParameterList DefinedObjectClass ASSIGNMENT ObjectSet
  1989.     { }
  1990.   ;
  1992. ParameterList
  1993.   : '{' Parameters '}'
  1994.       {
  1995. $$ = $2;
  1996.       }
  1997.   ;
  1999. Parameters
  2000.   : Parameters ',' Parameter
  2001.       {
  2002. $$ = $1;
  2003. $$->Append($3);
  2004.       }
  2005.   | Parameter
  2006.       {
  2007. $$ = new PStringList;
  2008. $$->Append($1);
  2009.       }
  2010.   ;
  2012. Parameter
  2013.   : Governor ':' Reference
  2014.       {
  2015. $$ = $3;
  2016.       }
  2017.   | Reference
  2018.   ;
  2020. Governor
  2021.   : Type
  2022.     { }
  2023.   | DefinedObjectClass
  2024.     { }
  2025.   ;
  2028. ParameterizedType
  2029.   : SimpleDefinedType ActualParameterList
  2030.       {
  2031. $$ = new ParameterizedType($1, $2);
  2032.       }
  2033.   ;
  2035. SimpleDefinedType
  2036.   : ExternalTypeReference
  2037.   | TYPEREFERENCE
  2038.   ;
  2041. ActualParameterList
  2042.   : '{' ActualParameters '}'
  2043.       {
  2044. $$ = $2;
  2045.       }
  2046.   ;
  2048. ActualParameters
  2049.   : ActualParameters ',' ActualParameter
  2050.       {
  2051. $1->Append($3);
  2052. $$ = $1;
  2053.       }
  2054.   | ActualParameter
  2055.       {
  2056. $$ = new TypesList;
  2057. $$->Append($1);
  2058.       }
  2059.   ;
  2061. ActualParameter
  2062.   : Type
  2063.   | Value
  2064.     { }
  2065.   | ValueSet
  2066.     { }
  2067.   | DefinedObjectClass
  2068.     { }
  2069. /*!!!
  2070.   | Object
  2071.     { }
  2072.   | ObjectSet
  2073. */
  2074.   ;
  2078. /********/
  2080. ValueAssignment 
  2081.   : IDENTIFIER Type
  2082.       {
  2083. IdentifierTokenContext = $2->GetIdentifierTokenContext();
  2084. BraceTokenContext = $2->GetBraceTokenContext();
  2085. NullTokenContext = NULL_VALUE;
  2086.       }
  2087.     ASSIGNMENT Value
  2088.       {
  2089. $5->SetValueName($1);
  2090. Module->AddValue($5);
  2091. IdentifierTokenContext = IDENTIFIER;
  2092. BraceTokenContext = '{';
  2093. NullTokenContext = NULL_TYPE;
  2094.       }
  2095.   ;
  2098. Value
  2099.   : BuiltinValue
  2100.   | ReferencedValue
  2101.   ;
  2104. BuiltinValue
  2105.   : BitStringValue 
  2106.   | BooleanValue 
  2107.   | CharacterStringValue 
  2108.   | ChoiceValue 
  2109. /*| EmbeddedPDVValue  synonym to SequenceValue */
  2110. /*| EnumeratedValue   synonym to IDENTIFIER    */
  2111. /*| ExternalValue     synonym to SequenceValue */
  2112. /*| InstanceOfValue   synonym to Value */
  2113.   | SignedNumber      /* IntegerValue */
  2114.       {
  2115. $$ = new IntegerValue($1);
  2116.       }
  2117.   | NullValue 
  2118. /*!!!
  2119.   | ObjectClassFieldValue
  2120. */
  2121.   | ObjectIdentifierValue
  2122.   | OctetStringValue
  2123.   | RealValue 
  2124.   | SequenceValue 
  2125. /*!!!! 
  2126.   | SequenceOfValue
  2127. */
  2128. /*| SetValue       synonym to SequenceValue */
  2129. /*| SetOfValue       synonym to SequenceOfValue */
  2130. /*| TaggedValue       synonym to Value */
  2131.   ;
  2134. DefinedValue
  2135.   : ExternalValueReference
  2136.       {
  2137. $$ = new DefinedValue($1);
  2138.       }
  2139.   | IDENTIFIER
  2140.       {
  2141. $$ = new DefinedValue($1);
  2142.       }
  2143.   | ParameterizedValue
  2144.   ;
  2147. ExternalValueReference
  2148.   : MODULEREFERENCE '.' IDENTIFIER
  2149.       {
  2150. *$1 += *$3;
  2151. delete $3;
  2152.       }
  2153.   ;
  2156. ObjectIdentifierValue
  2157.   : OID_BRACE
  2158.       {
  2159.         IdentifierTokenContext = OID_IDENTIFIER;
  2160.       }
  2161.     ObjIdComponentList '}'
  2162.       {
  2163. $$ = new ObjectIdentifierValue($3);
  2164. IdentifierTokenContext = IDENTIFIER;
  2165.       }
  2166. /*!!!
  2167.   | '{' DefinedValue_OID ObjIdComponentList '}'
  2168.       {
  2169. $$ = new ObjectIdentifierValue($2);
  2170.       }
  2171. */
  2172.   ;
  2175. ObjIdComponentList
  2176.   : ObjIdComponent
  2177.       {
  2178. $$ = new PStringList;
  2179. $$->Append($1);
  2180.       }
  2181.   | ObjIdComponent ObjIdComponentList
  2182.       {
  2183. $2->InsertAt(0, $1);
  2184. $$ = $2;
  2185.       }
  2186.   ;
  2188. ObjIdComponent
  2189.   : OID_IDENTIFIER
  2190.   | INTEGER
  2191.       {
  2192. $$ = new PString(PString::Unsigned, (int)$1);
  2193.       }
  2194.   | OID_IDENTIFIER '(' NumberForm ')'
  2195.       {
  2196. delete $1;
  2197. $$ = $3;
  2198.       }
  2199.   ;
  2201. NumberForm
  2202.   : INTEGER
  2203.       {
  2204. $$ = new PString(PString::Unsigned, (int)$1);
  2205.       }
  2206.   | ExternalValueReference
  2207.   | OID_IDENTIFIER
  2208.   ;
  2211. OctetStringValue
  2212.   : OS_BSTRING
  2213.       {
  2214. $$ = new OctetStringValue($1);
  2215.       }
  2216.   | OS_HSTRING
  2217.       {
  2218. $$ = new OctetStringValue($1);
  2219.       }
  2220.   ;
  2222. BitStringValue
  2223.   : BS_BSTRING
  2224.       {
  2225. $$ = new BitStringValue($1);
  2226.       }
  2227.   | BS_HSTRING
  2228.       {
  2229. $$ = new BitStringValue($1);
  2230.       }
  2231.   | BITSTRING_BRACE BitIdentifierList '}' 
  2232.       {
  2233. $$ = new BitStringValue($2);
  2234.       }
  2235.   | BITSTRING_BRACE  '}'
  2236.       {
  2237. $$ = new BitStringValue;
  2238.       }
  2239.   ;
  2242. BitIdentifierList
  2243.   : BIT_IDENTIFIER
  2244.       {
  2245. $$ = new PStringList;
  2246.       }
  2247.   | BitIdentifierList ',' BIT_IDENTIFIER
  2248.       {
  2249. // Look up $3
  2250. $1->SetAt($1->GetSize(), 0);
  2251.       }
  2252.   ;
  2255. BooleanValue
  2256.   : TRUE_t
  2257.       {
  2258. $$ = new BooleanValue(TRUE);
  2259.       }
  2260.   | FALSE_t
  2261.       {
  2262. $$ = new BooleanValue(FALSE);
  2263.       }
  2264.   ;
  2267. CharacterStringValue
  2268.   : RestrictedCharacterStringValue
  2269. /*!!!
  2270.   | UnrestrictedCharacterStringValue
  2271. */
  2272.   ;
  2274. RestrictedCharacterStringValue
  2275.   : CSTRING
  2276.       {
  2277. $$ = new CharacterStringValue($1);
  2278.       }
  2279.   | CharacterStringList
  2280.   | Quadruple
  2281.   | Tuple
  2282.   ;
  2284. CharacterStringList
  2285.   : STRING_BRACE CharSyms '}'
  2286.       {
  2287. $$ = new CharacterStringValue($2);
  2288.       }
  2289.   ;
  2291. CharSyms
  2292.   : CharsDefn
  2293.       {
  2294. $$ = new PStringList;
  2295. $$->Append($1);
  2296.       }
  2297.   | CharSyms ',' CharsDefn
  2298.       {
  2299. $1->Append($3);
  2300.       }
  2301.   ;
  2303. CharsDefn
  2304.   : CSTRING 
  2305.   | DefinedValue
  2306.       {
  2307. PError << StdError(Warning) << "DefinedValue in string unsupported" << endl;
  2308.       }
  2309.   ;
  2311. Quadruple
  2312.   :  STRING_BRACE  INTEGER  ','  INTEGER  ','  INTEGER  ','  INTEGER '}'
  2313.       {
  2314. if ($2 != 0 || $4 != 0 || $6 > 255 || $8 > 255)
  2315.   PError << StdError(Warning) << "Illegal value in Character Quadruple" << endl;
  2316. $$ = new CharacterValue((BYTE)$2, (BYTE)$4, (BYTE)$6, (BYTE)$8);
  2317.       }
  2318.   ;
  2320. Tuple
  2321.   :  STRING_BRACE INTEGER ',' INTEGER '}'
  2322.       {
  2323. if ($2 > 255 || $4 > 255)
  2324.   PError << StdError(Warning) << "Illegal value in Character Tuple" << endl;
  2325. $$ = new CharacterValue((BYTE)$2, (BYTE)$4);
  2326.       }
  2327.   ;
  2330. ChoiceValue
  2331.   : IDENTIFIER ':' Value
  2332.       {
  2333. $3->SetValueName($1);
  2334. $$ = $3;
  2335.       }
  2336.   ;
  2339. NullValue
  2340.   : NULL_VALUE
  2341.       {
  2342. $$ = new NullValue;
  2343.       }
  2344.   ;
  2347. RealValue
  2348.   : NumericRealValue 
  2349.   | SpecialRealValue
  2350.   ;
  2352. NumericRealValue
  2353.   :  '0'
  2354.       {
  2355. $$ = new RealValue(0);
  2356.       }
  2357. /*!!!
  2358.   | SequenceValue
  2359. */
  2360.   ;
  2362. SpecialRealValue
  2363.   : PLUS_INFINITY
  2364.       {
  2365. $$ = new RealValue(0);
  2366.       }
  2367.   | MINUS_INFINITY
  2368.       {
  2369. $$ = new RealValue(0);
  2370.       }
  2371.   ;
  2374. SequenceValue
  2375.   : '{' ComponentValueList '}' 
  2376.       {
  2377. $$ = new SequenceValue($2);
  2378.       }
  2379.   | '{'  '}'
  2380.       {
  2381. $$ = new SequenceValue;
  2382.       }
  2383.   ;
  2385. ComponentValueList
  2386.   : NamedValue
  2387.       {
  2388. $$ = new ValuesList;
  2389. $$->Append($1);
  2390.       }
  2391.   | ComponentValueList ',' NamedValue
  2392.       {
  2393. $1->Append($3);
  2394.       }
  2395.   ;
  2397. NamedValue
  2398.   : IDENTIFIER Value
  2399.       {
  2400. $2->SetValueName($1);
  2401. $$ = $2;
  2402.       }
  2403.   ;
  2406. /*!!!! 
  2407. SequenceOfValue
  2408.   : '{' ValueList '}' 
  2409.       {
  2410. $$ = NULL;
  2411.       }
  2412.   | '{'  '}'
  2413.       {
  2414. $$ = NULL;
  2415.       }
  2416.   ;
  2418. ValueList
  2419.   : Value
  2420.       { }
  2421.   | ValueList ',' Value
  2422.       { }
  2423.   ;
  2424. */ 
  2427. /*!!!
  2428. ObjectClassFieldValue
  2429.   : OpenTypeFieldVal
  2430.   | Value
  2431.   ;
  2433. OpenTypeFieldVal
  2434.   : Type ':' Value
  2435.   ;
  2436. */
  2439. ReferencedValue
  2440.   : DefinedValue
  2441. /*!!!!
  2442.   | ValueFromObject
  2443. */
  2444.   ;
  2446. /*!!!!
  2447. ValueFromObject
  2448.   : ReferencedObjects '.' FieldName
  2449.     { }
  2450.   ;
  2451. */
  2454. ParameterizedValue
  2455.   : SimpleDefinedValue ActualParameterList
  2456.     { }
  2457.   ;
  2459. SimpleDefinedValue
  2460.   : ExternalValueReference
  2461.   | IDENTIFIER
  2462.   ;
  2466. /********/
  2468. ValueSet
  2469.   : '{' ElementSetSpecs '}'
  2470.   ;
  2473. /********/
  2475. MacroDefinition
  2476.   : TYPEREFERENCE MACRO ASSIGNMENT MacroSubstance
  2477.       {
  2478. PError << StdError(Warning) << "MACRO unsupported" << endl;
  2479.       }
  2480.   ;
  2482. MacroSubstance
  2483.   : BEGIN_t
  2484.       {
  2485. InMacroContext = TRUE;
  2486.       }
  2487.     MacroBody END
  2488.       {
  2489. InMacroContext = FALSE;
  2490.       }
  2491.   | TYPEREFERENCE
  2492.       {}
  2493.   | TYPEREFERENCE '.' TYPEREFERENCE
  2494.       {}
  2495.   ;
  2497. MacroBody
  2498.   : TypeProduction ValueProduction /*SupportingProductions*/
  2499.   ;
  2501. TypeProduction
  2502.   : TYPE_t NOTATION ASSIGNMENT MacroAlternativeList
  2503.   ;
  2505. ValueProduction
  2506.   : VALUE NOTATION ASSIGNMENT MacroAlternativeList
  2507.   ;
  2510. /*
  2511. SupportingProductions
  2512.   : ProductionList
  2513.   | /* empty *//*
  2514.   ;
  2516. ProductionList
  2517.   : Production
  2518.   | ProductionList Production
  2519.   ;
  2521. Production
  2522.   : TYPEREFERENCE ASSIGNMENT MacroAlternativeList
  2524.   ;
  2525. */
  2527. MacroAlternativeList
  2528.   : MacroAlternative
  2529.   | MacroAlternative '|' MacroAlternativeList
  2530.   ;
  2532. MacroAlternative
  2533.   : SymbolElement
  2534.   | SymbolElement MacroAlternative
  2535.   ;
  2537. SymbolElement
  2538.   : SymbolDefn
  2539.   | EmbeddedDefinitions
  2540.   ;
  2542. SymbolDefn
  2543.   : CSTRING
  2544.       {}
  2545.   | TYPEREFERENCE
  2546.       {}
  2547.   | TYPEREFERENCE ASSIGNMENT
  2548.       {}
  2549.   | string_t
  2550.   | identifier_t
  2551.   | number_t
  2552.   | empty_t
  2553.   | type_t
  2554.   | type_t '(' TYPE_t TYPEREFERENCE ')'
  2555.   | value_t '(' Type ')'
  2556.   | value_t '(' IDENTIFIER Type ')'
  2557.   | value_t '(' VALUE Type ')'
  2558.   ;
  2560. EmbeddedDefinitions
  2561.   : '<' EmbeddedDefinitionList '>'
  2562.   ;
  2564. EmbeddedDefinitionList
  2565.   : EmbeddedDefinition
  2566.   | EmbeddedDefinitionList EmbeddedDefinition
  2567.   ;
  2569. EmbeddedDefinition
  2570.   : LocalTypeAssignment
  2571.   | LocalValueAssignment
  2572.   ;
  2574. LocalTypeAssignment
  2575.   : TYPEREFERENCE ASSIGNMENT Type
  2576.       {}
  2577.   ;
  2579. LocalValueAssignment
  2580.   : IDENTIFIER Type ASSIGNMENT Value
  2581.       {}
  2582.   ;
  2585. /********/
  2587. ObjectTypeDefinition
  2588.   : IDENTIFIER OBJECT_TYPE
  2589.       {
  2590. InMIBContext = TRUE;
  2591.       }
  2592.     SYNTAX Type
  2593.     ACCESS ObjectTypeAccess
  2594.     STATUS ObjectTypeStatus
  2595.     MibDescrPart
  2596.     MibReferPart
  2597.     MibIndexPart
  2598.     MibDefValPart
  2599.       {
  2600. IdentifierTokenContext = OID_IDENTIFIER;
  2601.       }
  2602.     ASSIGNMENT Value
  2603.       {
  2604. Module->AddMIB(new MibObject($1, $5, (MibObject::Access)$7, (MibObject::Status)$9, $10, $11, $12, $13, $16));
  2605. InMIBContext = FALSE;
  2606. IdentifierTokenContext = IDENTIFIER;
  2607.       }
  2608.   ;
  2610. ObjectTypeAccess
  2611.   : read_only_t
  2612.       {
  2613. $$ = MibObject::read_only;
  2614.       }
  2615.   | read_write_t
  2616.       {
  2617. $$ = MibObject::read_write;
  2618.       }
  2619.   | write_only_t
  2620.       {
  2621. $$ = MibObject::write_only;
  2622.       }
  2623.   | not_accessible_t
  2624.       {
  2625. $$ = MibObject::not_accessible;
  2626.       }
  2627.   ;
  2629. ObjectTypeStatus
  2630.   : mandatory_t
  2631.       {
  2632. $$ = MibObject::mandatory;
  2633.       }
  2634.   | optional_t
  2635.       {
  2636. $$ = MibObject::optional;
  2637.       }
  2638.   | obsolete_t
  2639.       {
  2640. $$ = MibObject::obsolete;
  2641.       }
  2642.   | deprecated_t
  2643.       {
  2644. $$ = MibObject::deprecated;
  2645.       }
  2646.   ;
  2648. MibDescrPart
  2649.   : DESCRIPTION_t CSTRING
  2650.       {
  2651. $$ = $2;
  2652.       }
  2653.   | /* empty */
  2654.       {
  2655. $$ = NULL;
  2656.       }
  2657.   ;
  2659. MibReferPart
  2660.   : REFERENCE_t CSTRING
  2661.       {
  2662. $$ = $2;
  2663.       }
  2664.   | /* empty */
  2665.       {
  2666. $$ = NULL;
  2667.       }
  2668.   ;
  2670. MibIndexPart
  2671.   : INDEX_t '{' MibIndexTypes '}'
  2672.       {
  2673. $$ = $3;
  2674.       }
  2675.   | /* empty */
  2676.       {
  2677. $$ = NULL;
  2678.       }
  2679.   ;
  2681. MibIndexTypes
  2682.   : MibIndexType
  2683.       {
  2684. $$ = new PStringList;
  2685. $$->Append($1);
  2686.       }
  2687.   | MibIndexTypes ',' MibIndexType
  2688.       {
  2689. $1->Append($3);
  2690.       }
  2691.   ;
  2693. MibIndexType
  2694.   : IDENTIFIER
  2695.   | TYPEREFERENCE
  2696.   ;
  2698. MibDefValPart
  2699.   : DEFVAL_t '{' Value '}'
  2700.       {
  2701. $$ = $3;
  2702.       }
  2703.   | /* empty */
  2704.       {
  2705. $$ = NULL;
  2706.       }
  2707.   ;
  2709. TrapTypeDefinition
  2710.   : IDENTIFIER TRAP_TYPE
  2711.       {
  2712. InMIBContext = TRUE;
  2713. IdentifierTokenContext = OID_IDENTIFIER;
  2714.       }
  2715.     ENTERPRISE Value
  2716.     MibVarPart
  2717.     MibDescrPart
  2718.     MibReferPart
  2719.     ASSIGNMENT Value
  2720.       {
  2721. Module->AddMIB(new MibTrap($1, $5, $6, $7, $8, $10));
  2722. IdentifierTokenContext = IDENTIFIER;
  2723. InMIBContext = FALSE;
  2724.       }
  2725.   ;
  2727. MibVarPart
  2728.   : VARIABLES '{' MibVarTypes '}'
  2729.       {
  2730. $$ = $3;
  2731.       }
  2732.   | /* empty */
  2733.       {
  2734. $$ = NULL;
  2735.       }
  2736.   ;
  2738. MibVarTypes
  2739.   : Value
  2740.       {
  2741. $$ = new ValuesList;
  2742. $$->Append($1);
  2743.       }
  2744.   | MibVarTypes ',' Value
  2745.       {
  2746. $1->Append($3);
  2747.       }
  2748.   ;
  2752. /********/
  2754. /*!!! Not actually referenced by any other part of grammar
  2755. AbsoluteReference
  2756.   : '@' GlobalModuleReference '.' ItemSpec
  2757.   ;
  2759. ItemSpec
  2760.   : TYPEREFERENCE
  2761.   |  ItemId '.' ComponentId
  2762.   ;
  2764. ItemId
  2765.   : ItemSpec
  2766.   ;
  2768. ComponentId 
  2769.   : IDENTIFIER
  2770.   | INTEGER
  2771.   | '*'
  2772.   ;
  2773. */
  2776. Reference
  2777.   : TYPEREFERENCE
  2778.   | IDENTIFIER 
  2779.   | OBJECTCLASSREFERENCE
  2780.   | OBJECTREFERENCE
  2781.   | OBJECTSETREFERENCE
  2782.   ;
  2784. ParameterizedReference
  2785.   : Reference '{' '}'
  2786.       {
  2787. $$ = new ImportedType($1, TRUE);
  2788.       }
  2789.   ;
  2792. NamedNumberList
  2793.   : NamedNumber
  2794.       {
  2795. $$ = new NamedNumberList;
  2796. $$->Append($1);
  2797.       }
  2798.   | NamedNumberList ',' NamedNumber
  2799.       {
  2800. $1->Append($3);
  2801.       }
  2802.   ;
  2804. NamedNumber
  2805.   : IDENTIFIER '(' SignedNumber ')'
  2806.       {
  2807. $$ = new NamedNumber($1, (int)$3);
  2808.       }
  2809.   | IDENTIFIER '(' DefinedValue ')'
  2810.       {
  2811. $$ = new NamedNumber($1, ((DefinedValue*)$3)->GetReference());
  2812. delete $3;
  2813.       }
  2814.   ;
  2817. SignedNumber
  2818.   :  INTEGER 
  2819.   | '-' INTEGER
  2820.       {
  2821. $$ = -$2;
  2822.       }
  2823.   ;
  2826. /** End of File ****/