Revert "Minor modernization of DynamicAny code"
[ACE_TAO.git] / TAO / tests / IDL_Test / anonymous.idl
blob0435449a3356423dcfaec94d97e8b7be5503bb4d
2 //=============================================================================
3 /**
4 * @file anonymous.idl
6 * This file contains examples of IDL code that has
7 * caused problems in the past for the TAO IDL
8 * compiler. This test is to make sure the problems
9 * stay fixed.
12 * @author Jeff Parsons <parsons@cs.wustl.edu> and TAO users.
14 //=============================================================================
17 // Normal typedef'd sequence
18 module Not_Anon
20 typedef sequence<short> short_seq;
23 // Array is typedef'd, but sequence is not
24 module Half_Anon
26 typedef sequence<char> char_seq_array[14];
27 typedef sequence<unsigned long, 18> bd_ulong_seq_array[17];
28 typedef sequence<unsigned short> ushort_seq_array[12];
29 typedef sequence<unsigned short, 7> bd_ushort_seq_array[11];
32 module All_Anon
34 // Tests generation of unique template parameter type
35 // names when identical bounded strings are used
36 // repeatedly as parameters and/or return types.
37 interface anon_bd_string_test
39 const long test_string_size = 25;
41 string<test_string_size> TestFunc ();
42 string<test_string_size> TestFunc2 ();
43 string<test_string_size> TestFunc3 ();
44 string<test_string_size> TestFunc23 ();
46 void TestFunc4 (in string<test_string_size> inarg);
47 void TestFunc41 (in string<test_string_size> inarg);
48 void TestFunc42 (in string<test_string_size> inarg);
49 void TestFunc43 (in string<test_string_size> inarg);
52 // Neither array nor sequence are typedef'd.
53 exception Nested_Anon
55 sequence<float> float_seq_array[6];
56 sequence<float> another_fsa[6];
57 long long_array_1[6];
58 long long_array_2[6];
62 // An anonymous string of the same bound will be found in
63 // another IDL file not included in this one (typedef.idl).
64 // The typecode for the anonymous string should not give us
65 // 'already found' link errors.
66 module Second
68 typedef string<32> SecondString;