1233294Sstas-- $Id$ --
2178825Sdfr
3178825SdfrCANTHANDLE DEFINITIONS ::= BEGIN
4178825Sdfr
5178825Sdfr-- Code the tag [1] but not the [ CONTEXT CONS UT_Sequence ] for Kaka2
6178825Sdfr-- Workaround: use inline the structure directly
7178825Sdfr-- Code the tag [2] but it should be primitive since KAKA3 is
8178825Sdfr-- Workaround: use the INTEGER type directly
9178825Sdfr
10233294SstasKaka2  ::= SEQUENCE {
11178825Sdfr        kaka2-1 [0] INTEGER
12178825Sdfr}
13178825Sdfr
14178825SdfrKaka3  ::= INTEGER
15178825Sdfr
16178825SdfrFoo ::= SEQUENCE {
17178825Sdfr        kaka1 [0] IMPLICIT INTEGER OPTIONAL,
18178825Sdfr        kaka2 [1] IMPLICIT Kaka2 OPTIONAL,
19178825Sdfr        kaka3 [2] IMPLICIT Kaka3 OPTIONAL
20178825Sdfr}
21178825Sdfr
22178825Sdfr-- Don't code kaka if it's 1
23178825Sdfr-- Workaround is to use OPTIONAL and check for in the encoder stubs
24178825Sdfr
25178825SdfrBar ::= SEQUENCE {
26178825Sdfr        kaka [0] INTEGER DEFAULT 1
27178825Sdfr}
28178825Sdfr
29178825Sdfr--  Can't handle primitives in SET OF
30178825Sdfr--  Workaround is to define a type that is only an integer and use that
31178825Sdfr
32178825SdfrBaz ::= SET OF INTEGER
33178825Sdfr
34178825SdfrEND
35