[omniORB] OmniOrb under Alpha VMS 7.2-3 ir.idl build problem

[Frank Gribbin]

I'm new to OmniOrb. I'm trying to build version 4.1.3 on an old
Alphastation 255/233 running
VMS 7.2-3. I get errors from omniidl when it tries to process ir.idl

I'm attaching the error report and the source ir.idl

The following report looked relevant but I'm not clear on details of
solution in my environment.
http://www.omniorb-support.com/pipermail/omniorb-list/2006-July/027858.html
[omniORB] autoconf build problem on HP-UX - wrong alloca used

Has anyone else tried building for VMS 7.3-2? Any recommendations
gratefully
received.

Regards,
Frank
-------------- next part --------------
#ifndef _omniorb_ir_idl_
#define _omniorb_ir_idl_

#pragma prefix "omg.org"

#include "corbaidl.idl"


// This file contains the definitions for the CORBA 2.3.1 Interface
// Repository, as amended by revision issue 3015. See
//
// http://www.omg.org/issues/issue3015.txt
//
// for the gory details.


//////////////////////////////////////////////////////////////////////
module CORBA {
//////////////////////////////////////////////////////////////////////

typedef string ScopedName;


enum DefinitionKind {
dk_none,
dk_all,
dk_Attribute,
dk_Constant,
dk_Exception,
dk_Interface,
dk_Module,
dk_Operation,
dk_Typedef,
dk_Alias,
dk_Struct,
dk_Union,
dk_Enum,
dk_Primitive,
dk_String,
dk_Sequence,
dk_Array,
dk_Repository,
dk_Wstring,
dk_Fixed,
dk_Value,
dk_ValueBox,
dk_ValueMember,
dk_Native,
dk_AbstractInterface
};


interface IRObject {
readonly attribute DefinitionKind def_kind;
void destroy();
};


interface Contained;
interface Repository;
interface Container;


interface Contained : IRObject {
attribute RepositoryId id;
attribute Identifier name;
attribute VersionSpec version;

readonly attribute Container defined_in;
readonly attribute ScopedName absolute_name;
readonly attribute Repository containing_repository;

struct Description {
DefinitionKind kind;
any value;
};

Description describe();

void move(in Container new_container,
in Identifier new_name,
in VersionSpec new_version);
};


#ifndef OMNIORB_NO_IR_CLIENT
interface ModuleDef;
interface ConstantDef;
interface IDLType;
interface StructDef;
interface UnionDef;
interface EnumDef;
interface AliasDef;
interface InterfaceDef;
interface ValueDef;
interface ValueBoxDef;
interface ExceptionDef;
interface NativeDef;
interface AbstractInterfaceDef;
#endif
interface WstringDef;
interface FixedDef;

#ifndef OMNIORB_NO_IR_CLIENT
typedef sequence<InterfaceDef> InterfaceDefSeq;
typedef sequence<ValueDef> ValueDefSeq;
typedef sequence<AbstractInterfaceDef> AbstractInterfaceDefSeq;
#endif
typedef sequence<Contained> ContainedSeq;

// StructMember is in corbaidl.idl

struct Initializer {
StructMemberSeq members;
Identifier name;
};
typedef sequence <Initializer> InitializerSeq;

// UnionMember is in corbaidl.idl

interface Container : IRObject {
Contained lookup(in ScopedName search_name);

ContainedSeq contents(in DefinitionKind limit_type,
in boolean exclude_inherited);

ContainedSeq lookup_name(in Identifier search_name,
in long levels_to_search,
in DefinitionKind limit_type,
in boolean exclude_inherited);

struct Description {
Contained contained_object;
DefinitionKind kind;
any value;
};
typedef sequence<Description> DescriptionSeq;

DescriptionSeq describe_contents(in DefinitionKind limit_type,
in boolean exclude_inherited,
in long max_returned_objs);

#ifndef OMNIORB_NO_IR_CLIENT

ModuleDef create_module(in RepositoryId id,
in Identifier name,
in VersionSpec version);

ConstantDef create_constant(in RepositoryId id,
in Identifier name,
in VersionSpec version,
in IDLType type,
in any value);

StructDef create_struct(in RepositoryId id,
in Identifier name,
in VersionSpec version,
in StructMemberSeq members);

UnionDef create_union(in RepositoryId id,
in Identifier name,
in VersionSpec version,
in IDLType discriminator_type,
in UnionMemberSeq members);

EnumDef create_enum(in RepositoryId id,
in Identifier name,
in VersionSpec version,
in EnumMemberSeq members);

AliasDef create_alias(in RepositoryId id,
in Identifier name,
in VersionSpec version,
in IDLType original_type);

InterfaceDef create_interface(in RepositoryId id,
in Identifier name,
in VersionSpec version,
in InterfaceDefSeq base_interfaces);

ValueDef create_value(in RepositoryId id,
in Identifier name,
in VersionSpec version,
in boolean is_custom,
in boolean is_abstract,
in ValueDef base_value,
in boolean is_truncatable,
in ValueDefSeq abstract_base_values,
in InterfaceDefSeq supported_interfaces,
in InitializerSeq initializers);

ValueBoxDef create_value_box(in RepositoryId id,
in Identifier name,
in VersionSpec version,
in IDLType original_type_def);

ExceptionDef create_exception(in RepositoryId id,
in Identifier name,
in VersionSpec version,
in StructMemberSeq members);

NativeDef create_native(in RepositoryId id,
in Identifier name,
in VersionSpec version);

AbstractInterfaceDef
create_abstract_interface(in RepositoryId id,
in Identifier name,
in VersionSpec version,
in AbstractInterfaceDefSeq base_interfaces);


#endif

};


interface IDLType : IRObject {
readonly attribute TypeCode type;
};

interface PrimitiveDef;
interface StringDef;
interface SequenceDef;
interface ArrayDef;


enum PrimitiveKind {
pk_null,
pk_void,
pk_short,
pk_long,
pk_ushort,
pk_ulong,
pk_float,
pk_double,
pk_boolean,
pk_char,
pk_octet,
pk_any,
pk_TypeCode,
pk_Principal,
pk_string,
pk_objref,
pk_longlong,
pk_ulonglong,
pk_longdouble,
pk_wchar,
pk_wstring,
pk_value_base
};


interface Repository : Container {
Contained lookup_id (in RepositoryId search_id);
TypeCode get_canonical_typecode(in TypeCode tc);
PrimitiveDef get_primitive (in PrimitiveKind kind);
StringDef create_string (in unsigned long bound);
WstringDef create_wstring (in unsigned long bound);

SequenceDef create_sequence (in unsigned long bound,
in IDLType element_type);

ArrayDef create_array (in unsigned long length,
in IDLType element_type);

FixedDef create_fixed (in unsigned short digits,
in short scale);
};


#ifndef OMNIORB_NO_IR_CLIENT

interface ModuleDef : Container, Contained {
// empty
};

struct ModuleDescription {
Identifier name;
RepositoryId id;
RepositoryId defined_in;
VersionSpec version;
};


interface ConstantDef : Contained {
readonly attribute TypeCode type;
attribute IDLType type_def;
attribute any value;
};


struct ConstantDescription {
Identifier name;
RepositoryId id;
RepositoryId defined_in;
VersionSpec version;
TypeCode type;
any value;
};


interface TypedefDef : Contained, IDLType {
// empty
};


struct TypeDescription {
Identifier name;
RepositoryId id;
RepositoryId defined_in;
VersionSpec version;
TypeCode type;
};


interface StructDef : TypedefDef, Container {
attribute StructMemberSeq members;
};


interface UnionDef : TypedefDef, Container {
readonly attribute TypeCode discriminator_type;
attribute IDLType discriminator_type_def;
attribute UnionMemberSeq members;
};


interface EnumDef : TypedefDef {
attribute EnumMemberSeq members;
};


interface AliasDef : TypedefDef {
attribute IDLType original_type_def;
};

interface NativeDef : TypedefDef {
};

#endif

interface PrimitiveDef : IDLType {
readonly attribute PrimitiveKind kind;
};


interface StringDef : IDLType {
attribute unsigned long bound;
};

interface WstringDef : IDLType {
attribute unsigned long bound;
};

interface FixedDef : IDLType {
attribute unsigned short digits;
attribute short scale;
};


interface SequenceDef : IDLType {
attribute unsigned long bound;
readonly attribute TypeCode element_type;
attribute IDLType element_type_def;
};

interface ArrayDef : IDLType {
attribute unsigned long length;
readonly attribute TypeCode element_type;
attribute IDLType element_type_def;
};

#ifndef OMNIORB_NO_IR_CLIENT

interface ExceptionDef : Contained, Container {
readonly attribute TypeCode type;
attribute StructMemberSeq members;
};


struct ExceptionDescription {
Identifier name;
RepositoryId id;
RepositoryId defined_in;
VersionSpec version;
TypeCode type;
};

enum AttributeMode { ATTR_NORMAL, ATTR_READONLY };

interface AttributeDef : Contained {
readonly attribute TypeCode type;
attribute IDLType type_def;
attribute AttributeMode mode;
};


struct AttributeDescription {
Identifier name;
RepositoryId id;
RepositoryId defined_in;
VersionSpec version;
TypeCode type;
AttributeMode mode;
};

enum OperationMode { OP_NORMAL, OP_ONEWAY };
enum ParameterMode { PARAM_IN, PARAM_OUT, PARAM_INOUT };

struct ParameterDescription {
Identifier name;
TypeCode type;
IDLType type_def;
ParameterMode mode;
};


typedef sequence<ParameterDescription> ParDescriptionSeq;
typedef Identifier ContextIdentifier;
typedef sequence<ContextIdentifier> ContextIdSeq;
typedef sequence<ExceptionDef> ExceptionDefSeq;
typedef sequence<ExceptionDescription> ExcDescriptionSeq;


interface OperationDef : Contained {
readonly attribute TypeCode result;
attribute IDLType result_def;
attribute ParDescriptionSeq params;
attribute OperationMode mode;
attribute ContextIdSeq contexts;
attribute ExceptionDefSeq exceptions;
};


struct OperationDescription {
Identifier name;
RepositoryId id;
RepositoryId defined_in;
VersionSpec version;
TypeCode result;
OperationMode mode;
ContextIdSeq contexts;
ParDescriptionSeq parameters;
ExcDescriptionSeq exceptions;
};

typedef sequence<RepositoryId> RepositoryIdSeq;
typedef sequence<OperationDescription> OpDescriptionSeq;
typedef sequence<AttributeDescription> AttrDescriptionSeq;

interface InterfaceDef : Container, Contained, IDLType {

attribute InterfaceDefSeq base_interfaces;

boolean is_a(in RepositoryId interface_id);

struct FullInterfaceDescription {
Identifier name;
RepositoryId id;
RepositoryId defined_in;
VersionSpec version;
OpDescriptionSeq operations;
AttrDescriptionSeq attributes;
RepositoryIdSeq base_interfaces;
TypeCode type;
};

FullInterfaceDescription describe_interface();

AttributeDef create_attribute(in RepositoryId id,
in Identifier name,
in VersionSpec version,
in IDLType type,
in AttributeMode mode);

OperationDef create_operation(in RepositoryId id,
in Identifier name,
in VersionSpec version,
in IDLType result,
in OperationMode mode,
in ParDescriptionSeq params,
in ExceptionDefSeq exceptions,
in ContextIdSeq contexts);
};

#else

interface InterfaceDef {};
interface OperationDef {};
typedef sequence<RepositoryId> RepositoryIdSeq;

#endif

struct InterfaceDescription {
Identifier name;
RepositoryId id;
RepositoryId defined_in;
VersionSpec version;
RepositoryIdSeq base_interfaces;
};


#ifndef OMNIORB_NO_IR_CLIENT

#if 0
// In corbaidl.idl
typedef short Visibility;
const Visibility PRIVATE_MEMBER = 0;
const Visibility PUBLIC_MEMBER = 1;

struct ValueMember {
Identifier name;
RepositoryId id;
RepositoryId defined_in;
VersionSpec version;
TypeCode type;
IDLType type_def;
Visibility access;
};
typedef sequence <ValueMember> ValueMemberSeq;
#endif

interface ValueMemberDef : Contained {
readonly attribute TypeCode type;
attribute IDLType type_def;
attribute Visibility access;
};

interface ValueDef : Container, Contained, IDLType {
attribute InterfaceDefSeq supported_interfaces;
attribute InitializerSeq initializers;
attribute ValueDef base_value;
attribute ValueDefSeq abstract_base_values;
attribute boolean is_abstract;
attribute boolean is_custom;
attribute boolean is_truncatable;

boolean is_a(in RepositoryId id);

struct FullValueDescription {
Identifier name;
RepositoryId id;
boolean is_abstract;
boolean is_custom;
RepositoryId defined_in;
VersionSpec version;
OpDescriptionSeq operations;
AttrDescriptionSeq attributes;
ValueMemberSeq members;
InitializerSeq initializers;
RepositoryIdSeq supported_interfaces;
RepositoryIdSeq abstract_base_values;
boolean is_truncatable;
RepositoryId base_value;
TypeCode type;
};

FullValueDescription describe_value();

ValueMemberDef create_value_member(in RepositoryId id,
in Identifier name,
in VersionSpec version,
in IDLType type,
in Visibility access);

AttributeDef create_attribute(in RepositoryId id,
in Identifier name,
in VersionSpec version,
in IDLType type,
in AttributeMode mode);

OperationDef create_operation (in RepositoryId id,
in Identifier name,
in VersionSpec version,
in IDLType result,
in OperationMode mode,
in ParDescriptionSeq params,
in ExceptionDefSeq exceptions,
in ContextIdSeq contexts);
};

struct ValueDescription {
Identifier name;
RepositoryId id;
boolean is_abstract;
boolean is_custom;
RepositoryId defined_in;
VersionSpec version;
RepositoryIdSeq supported_interfaces;
RepositoryIdSeq abstract_base_values;
boolean is_truncatable;
RepositoryId base_value;
};

interface ValueBoxDef : TypedefDef {
attribute IDLType original_type_def;
};


interface AbstractInterfaceDef : InterfaceDef {
// Empty
};




#endif




//////////////////////////////////////////////////////////////////////
};
//////////////////////////////////////////////////////////////////////

#endif // _omniorb_ir_idl_
-------------- next part --------------

omniidl -bcxx "-Wba" -p../../../src/lib/omniORB -Wbdebug -DHAS_LongLong -v -WbF -ComniORB4 "-I./" ir.idl
%SYSTEM-I-EMULATED, an instruction not implemented on this processor was emulated at PC=00000000004A4754, PS=0000001B
%SYSTEM-I-EMULATED, an instruction not implemented on this processor was emulated at PC=00000000004A4764, PS=0000001B
%SYSTEM-I-EMULATED, an instruction not implemented on this processor was emulated at PC=00000000004A476C, PS=0000001B
%SYSTEM-I-EMULATED, an instruction not implemented on this processor was emulated at PC=00000000004A4754, PS=0000001B
%SYSTEM-I-EMULATED, an instruction not implemented on this processor was emulated at PC=00000000004A4764, PS=0000001B
omniidl: Importing back-end 'cxx'
omniidl: 'cxx' imported from '../../../src/lib/omniORB/omniidl_be/cxx/__init__.pyc'
omniidl: Preprocessing 'ir.idl' with 'mcr $1$DKA100:[FJG.OMNIORB.omniORB-4_1_3.bin.OpenVMS_Alpha_7_3]omnicpp -lang-c++ -undef "-D__O
MNIIDL__=0x2420" "-DHAS_LongLong" "-I./" "-D__OMNIIDL_CXX__" ir.idl'
omniidl: Running front end
mcr $1$DKA100:[FJG.OMNIORB.omniORB-4_1_3.bin.OpenVMS_Alpha_7_3]omnicpp -lang-c++ -undef "-D__OMNIIDL__=0x2420" "-DHAS_LongLong" "-I.
/" "-D__OMNIIDL_CXX__" ir.idl:1: Syntax error in definition
mcr $1$DKA100:[FJG.OMNIORB.omniORB-4_1_3.bin.OpenVMS_Alpha_7_3]omnicpp -lang-c++ -undef "-D__OMNIIDL__=0x2420" "-DHAS_LongLong" "-I/" "-D__OMNIIDL_CXX__" ir.idl:2: Syntax error in definition
mcr $1$DKA100:[FJG.OMNIORB.omniORB-4_1_3.bin.OpenVMS_Alpha_7_3]omnicpp -lang-c++ -undef "-D__OMNIIDL__=0x2420" "-DHAS_LongLong" "-I.
/" "-D__OMNIIDL_CXX__" ir.idl:3: Syntax error in definition
mcr $1$DKA100:[FJG.OMNIORB.omniORB-4_1_3.bin.OpenVMS_Alpha_7_3]omnicpp -lang-c++ -undef "-D__OMNIIDL__=0x2420" "-DHAS_LongLong" "-I.
/" "-D__OMNIIDL_CXX__" ir.idl:3: Syntax error in module definition
mcr $1$DKA100:[FJG.OMNIORB.omniORB-4_1_3.bin.OpenVMS_Alpha_7_3]omnicpp -lang-c++ -undef "-D__OMNIIDL__=0x2420" "-DHAS_LongLong" "-I.
/" "-D__OMNIIDL_CXX__" ir.idl:4: Syntax error in module definition
mcr $1$DKA100:[FJG.OMNIORB.omniORB-4_1_3.bin.OpenVMS_Alpha_7_3]omnicpp -lang-c++ -undef "-D__OMNIIDL__=0x2420" "-DHAS_LongLong" "-I.
/" "-D__OMNIIDL_CXX__" ir.idl:5: Syntax error in module definition
mcr $1$DKA100:[FJG.OMNIORB.omniORB-4_1_3.bin.OpenVMS_Alpha_7_3]omnicpp -lang-c++ -undef "-D__OMNIIDL__=0x2420" "-DHAS_LongLong" "-I.
/" "-D__OMNIIDL_CXX__" ir.idl:6: Syntax error in module definition
mcr $1$DKA100:[FJG.OMNIORB.omniORB-4_1_3.bin.OpenVMS_Alpha_7_3]omnicpp -lang-c++ -undef "-D__OMNIIDL__=0x2420" "-DHAS_LongLong" "-I.
/" "-D__OMNIIDL_CXX__" ir.idl:7: Syntax error in module definition
mcr $1$DKA100:[FJG.OMNIORB.omniORB-4_1_3.bin.OpenVMS_Alpha_7_3]omnicpp -lang-c++ -undef "-D__OMNIIDL__=0x2420" "-DHAS_LongLong" "-I.
/" "-D__OMNIIDL_CXX__" ir.idl:8: Syntax error in module definition
mcr $1$DKA100:[FJG.OMNIORB.omniORB-4_1_3.bin.OpenVMS_Alpha_7_3]omnicpp -lang-c++ -undef "-D__OMNIIDL__=0x2420" "-DHAS_LongLong" "-I.
/" "-D__OMNIIDL_CXX__" ir.idl:9: Syntax error in module definition
mcr $1$DKA100:[FJG.OMNIORB.omniORB-4_1_3.bin.OpenVMS_Alpha_7_3]omnicpp -lang-c++ -undef "-D__OMNIIDL__=0x2420" "-DHAS_LongLong" "-I.
/" "-D__OMNIIDL_CXX__" ir.idl:10: Syntax error in module definition
mcr $1$DKA100:[FJG.OMNIORB.omniORB-4_1_3.bin.OpenVMS_Alpha_7_3]omnicpp -lang-c++ -undef "-D__OMNIIDL__=0x2420" "-DHAS_LongLong" "-I./" "-D__OMNIIDL_CXX__" ir.idl:11: Syntax error in module definition
mcr $1$DKA100:[FJG.OMNIORB.omniORB-4_1_3.bin.OpenVMS_Alpha_7_3]omnicpp -lang-c++ -undef "-D__OMNIIDL__=0x2420" "-DHAS_LongLong" "-I.
/" "-D__OMNIIDL_CXX__" ir.idl:12: Syntax error in module definition
mcr $1$DKA100:[FJG.OMNIORB.omniORB-4_1_3.bin.OpenVMS_Alpha_7_3]omnicpp -lang-c++ -undef "-D__OMNIIDL__=0x2420" "-DHAS_LongLong" "-I.
/" "-D__OMNIIDL_CXX__" ir.idl:12: Syntax error
mcr $1$DKA100:[FJG.OMNIORB.omniORB-4_1_3.bin.OpenVMS_Alpha_7_3]omnicpp -lang-c++ -undef "-D__OMNIIDL__=0x2420" "-DHAS_LongLong" "-I.
/" "-D__OMNIIDL_CXX__" ir.idl:12: Warning: Confused by pre-processor line directives
omniidl: 14 errors and 1 warning.
omniidl: Error running preprocessor


Compiler versions

$ cxx /version
HP C++ V7.3-009 for OpenVMS Alpha V7.3-2
$ cc /version
Compaq C V6.5-001 on OpenVMS Alpha V7.3-2
Python 2.5.4 (r254:67916, Jan 23 2009, 11:36:58) [DECC] on OpenVMS

[Bruce Visscher]

I have been using omniORB on VMS 7.3-2 for some time now with few problems.

I am at omniORB 4.1.2 but I doubt if that makes a difference. The compiler
versions I use are the same as yours except for Python:

Python 2.3.1 (#0, Sep 28 2003, 12:57:56) [DECC] on OpenVMS

Where did you install your python from? Did you build it yourself?

Post by Frank Gribbin
I'm new to OmniOrb. I'm trying to build version 4.1.3 on an old
Alphastation 255/233 running
VMS 7.2-3. I get errors from omniidl when it tries to process ir.idl
I'm attaching the error report and the source ir.idl
The following report looked relevant but I'm not clear on details of
solution in my environment.
http://www.omniorb-support.com/pipermail/omniorb-list/2006-July/027858.html
[omniORB] autoconf build problem on HP-UX - wrong alloca used
Has anyone else tried building for VMS 7.3-2? Any recommendations
gratefully
received.
Regards,
Frank
_______________________________________________
omniORB-list mailing list
http://www.omniorb-support.com/mailman/listinfo/omniorb-list

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://www.omniorb-support.com/pipermail/omniorb-list/attachments/20090528/078fffa1/attachment.htm

[Duncan Grisby]

Post by Frank Gribbin
I'm new to OmniOrb. I'm trying to build version 4.1.3 on an old
Alphastation 255/233 running
VMS 7.2-3. I get errors from omniidl when it tries to process ir.idl
I'm attaching the error report and the source ir.idl

Can you send the whole build log? That might reveal something useful.

It looks as though omnicpp is doing something wrong to the file. Can you
try running omnicpp on ir.idl and send the output? You can see the way
omnicpp is run in the fragment of log you sent.

Cheers,

Duncan.