blob: 97d05edffe83d2ae289efa78aa81765880529313 (
plain)
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
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
// $Id$
/**
* @file pass_through.idl
* @author Jeff Parsons <j.parsons@vanderbilt.edu>
*
* Tests tool's regeneration of IDL2 constructs, which
* should be basically unchanged.
*/
#ifndef PASS_THROUGH_IDL
#define PASS_THROUGH_IDL
#pragma prefix "glooby"
#include "include.idl"
#include "raw_include.idl"
module pre_mod
{
module inner
{
typedef long fork;
};
union uke switch (which)
{
case ONE:
case ZERO: string str_mem;
default: short s_mem;
};
};
module mod
{
typeid mod "rama:lama/ding:dong";
interface base
{
readonly attribute unsigned long long ull_attr
raises (pre_mod::wrong);
};
interface foo
{
typeprefix foo "preefy";
exception wrongety_wrong
{
base unrelated;
string explanation;
};
attribute base base_attr
getraises (wrongety_wrong)
setraises (pre_mod::wrong, wrongety_wrong);
};
interface bleep;
abstract interface bar
{
base bar_op (in base inarg);
};
interface bleep : base, foo
{
oneway void oneway_op (in string strarg, in any anyarg);
bleep get_me ();
pre_mod::uke get_uke (out boolean success)
raises (pre_mod::wrong, foo::wrongety_wrong);
void throw_something ()
raises (pre_mod::wrong);
};
abstract valuetype vt_abase
{
};
valuetype vt_cbase
{
private bleep priv_bleep;
public string pub_str;
factory vt_init (in bleep bleeparg, in string stringarg)
raises (pre_mod::wrong);
};
valuetype vt : vt_cbase, vt_abase supports foo, bar
{
factory vt_default ();
};
};
#endif /* PASS_THROUGH_IDL */
|