TAO/tests/IDL_Test/pragma.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


//=============================================================================
/**
 *  @file    pragma.idl
 *
 *  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.
 *
 *
 *  @author Jeff Parsons <parsons@cs.wustl.edu> and TAO users.
 */
//=============================================================================


#pragma prefix "anvil.com"

interface hello {};

// These declarations all at one time caused the prefix above
// to be dropped.

typedef string FuBar;

enum ClusterFu
  {
    CHAOS,
    MAYHEM
  };

interface aloha;

const long GangBa = -278;

exception Riot {};

interface goodbye {};

module A
{
  exception my_exception {};
};

module salutation
{
// This prefix applies only in this module
# pragma prefix "hammer.com"

  interface sayonara {};
};

// 'anvil.com' returns
interface ciao {};

interface aloha {};