TAO/tests/IDL_Test/repo_id_mod.idl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74

// $Id$

// ============================================================================
//
// = LIBRARY
//    TAO/tests/IDL_Test
//
// = FILENAME
//    repo_id_mod.idl
//
// = DESCRIPTION
//    This file contains examples of IDL code that has 
//    caused problems in the past for the TAO IDL
//    compiler. This test is to make sure the problems
//    stay fixed.
//
// = AUTHORS
//    Jeff Parsons <parsons@cs.wustl.edu> and TAO users.
//
// ============================================================================

module gleep
{
  local interface schmooze {};
};

module gleep
{
  local interface schmeer {};
};

module gleep
{
  local interface schlemiel {};

  // This should propagate to all previous and subsequent
  // openings of this module.
  typeprefix gleep "gleep_prefix";
};

module gleep
{
  local interface spilkis {};

  module floop
  {
    local interface schmuck {};
    local interface schmendrick;

// Tests the handling of extra whitespace as well as the version setting.
#    pragma version     gleep::floop::schmendrick    524.23
    local interface schmendrick {};

	  module verklempt
	  {
	    local interface schlemazel {};

    // This will override the prefix directive for module floop at the end
    // of the file.
	    typeprefix floop::verklempt "verklempt_prefix";
	  };
  };

  local interface schmegegging {};
};

// This should override any existing prefix and disable any subsequent
// attempts to set it, such as in the directive below.
typeid gleep::floop::schmuck "ABRA:cadabra/hocus/pocus:1.23";

// This will affect everything in floop's scope recursively, except items
// which have a prefix that was applied to a narrower scope.
typeprefix ::gleep::floop "floop_prefix";