1 /*************************************************************************
3 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
5 * Copyright 2008 by Sun Microsystems, Inc.
7 * OpenOffice.org - a multi-platform office productivity suite
9 * $RCSfile: testcorefl.idl,v $
12 * This file is part of OpenOffice.org.
14 * OpenOffice.org is free software: you can redistribute it and/or modify
15 * it under the terms of the GNU Lesser General Public License version 3
16 * only, as published by the Free Software Foundation.
18 * OpenOffice.org is distributed in the hope that it will be useful,
19 * but WITHOUT ANY WARRANTY; without even the implied warranty of
20 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
21 * GNU Lesser General Public License version 3 for more details
22 * (a copy is included in the LICENSE file that accompanied this code).
24 * You should have received a copy of the GNU Lesser General Public License
25 * version 3 along with OpenOffice.org. If not, see
26 * <http://www.openoffice.org/license.html>
27 * for a copy of the LGPLv3 License.
29 ************************************************************************/
30 #include
<com
/sun
/star
/uno
/XInterface.idl
>
45 struct StructB
: StructA
51 struct StructC
: StructB
54 sequence
<com
::sun
::star
::uno
::XInterface
> aInterfaceSeq
;
57 exception ExceptionB
: ExceptionA
62 interface XInterface1
: com
::sun
::star
::uno
::XInterface
66 exception ExceptionC
: ExceptionB
68 XInterface1 aInterface1
;
73 enum EnumA
{ VAL_1
, VAL_2
, VAL_3
= 17};
80 const boolean aConstBoolean
= True
;
81 const byte aConstByte
= 0;
82 const short aConstShort
= -1;
83 const unsigned short aConstUShort
= 1;
84 const long aConstLong
= -2;
85 const unsigned long aConstULong
= 2;
86 // const hyper aConstHyper = -3;
87 // const unsigned hyper aConstUHyper = 3;
88 const float aConstFloat
= 3.14;
89 const double aConstDouble
= 3.14e-10;
92 interface XInterfaceA
: com
::sun
::star
::uno
::XInterface
95 [oneway
] void methodB
([in] short aShort
);
96 sequence
<ModuleA
::StructB
> methodC
([in] ModuleA
::StructC aStructC
, [inout
] ModuleA
::StructA aStructA
);
99 interface XInterfaceB
: XInterfaceA
101 [attribute
] string aString
;
103 XInterfaceA methodD
([in] ModuleA
::ModuleB
::EnumA aEnumA
) raises
(ModuleA
::ExceptionA
, ModuleA
::ExceptionB
, ModuleA
::ExceptionC
);