The R13B03 release.OTP_R13B03

1 files changed, 340 insertions, 0 deletions

diff --git a/lib/cosNotification/src/CosNotification_Definitions.hrl b/lib/cosNotification/src/CosNotification_Definitions.hrl
new file mode 100644
index 0000000000..755b07cd5d
--- /dev/null
+++ b/lib/cosNotification/src/CosNotification_Definitions.hrl
@@ -0,0 +1,340 @@
+%%----------------------------------------------------------------------
+%%
+%% %CopyrightBegin%
+%% 
+%% Copyright Ericsson AB 1999-2009. All Rights Reserved.
+%% 
+%% The contents of this file are subject to the Erlang Public License,
+%% Version 1.1, (the "License"); you may not use this file except in
+%% compliance with the License. You should have received a copy of the
+%% Erlang Public License along with this software. If not, it can be
+%% retrieved online at http://www.erlang.org/.
+%% 
+%% Software distributed under the License is distributed on an "AS IS"
+%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
+%% the License for the specific language governing rights and limitations
+%% under the License.
+%% 
+%% %CopyrightEnd%
+%%
+%%
+%%----------------------------------------------------------------------
+%% File    : CosNotification_Definitions.hrl
+%% Purpose : 
+%%----------------------------------------------------------------------
+
+-ifndef(COSNOTIFICATION_DEFINITIONS_HRL).
+-define(COSNOTIFICATION_DEFINITIONS_HRL, true).
+
+%% ---------------- General comment ------------------------------------
+%% ******* README ********
+%% The prefix 'not' is short for notification, and is used to separate locally
+%% defined macros from the global ones, i.e., do NOT confuse this with a negation!!
+%%
+%% In this file you find globally used data structures, constants etc.
+%%
+
+%%--------------- INCLUDES ---------------------------------------------
+
+%%-------- Constants -------------------------------------------------
+-define(not_SupportedGrammars, ["EXTENDED_TCL"]).
+
+%% !!!!!!!!!!!!!!!!!!!!! WARNING !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+%%
+%% If OMG redefines the values for the constants the definitions
+%% below must be redefined!!
+%%
+%% !!!!!!!!!!!!!!!!!!!!! WARNING !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+-define(not_BestEffort,            0).
+-define(not_Persistent,            1).
+-define(not_EventReliability,      "EventReliability").
+-define(not_ConnectionReliability, "ConnectionReliability").
+-define(not_Priority,              "Priority").
+-define(not_LowestPriority,        -32767).
+-define(not_HighestPriority,        32767).
+-define(not_DefaultPriority,        0).
+-define(not_StartTime,              "StartTime").
+-define(not_StopTime,               "StopTime").
+-define(not_Timeout,                "Timeout").
+-define(not_OrderPolicy,            "OrderPolicy").
+-define(not_AnyOrder,               0).
+-define(not_FifoOrder,              1).
+-define(not_PriorityOrder,          2).
+-define(not_DeadlineOrder,          3).
+-define(not_DiscardPolicy,          "DiscardPolicy").
+-define(not_LifoOrder,              4).
+-define(not_RejectNewEvents,        5).
+-define(not_MaximumBatchSize,       "MaximumBatchSize").
+-define(not_PacingInterval,         "PacingInterval").
+-define(not_StartTimeSupported,     "StartTimeSupported").
+-define(not_StopTimeSupported,      "StopTimeSupported").
+-define(not_MaxEventsPerConsumer,   "MaxEventsPerConsumer").
+-define(not_MaxQueueLength,         "MaxQueueLength").
+-define(not_MaxConsumers,           "MaxConsumers").
+-define(not_MaxSuppliers,           "MaxSuppliers").
+
+%%--------------- QOS DEFINITIONS ----------------------------
+%% Limits for QoS. These are our own limits.
+-define(not_MaxBatchSize,      10000).
+-define(not_MinBatchSize,      1).
+-define(not_MinTimeout,        0).
+-define(not_MaxTimeout,        100000000000).
+-define(not_MinPacing,         0).
+-define(not_MaxPacing,         100000000000).
+-define(not_MinConsumerEvents, 1).
+-define(not_MaxConsumerEvents, 10000).
+
+-define(not_QOS_LIMITS, 
+[#'CosNotification_NamedPropertyRange'
+ {name=?not_EventReliability, 
+  range=
+  #'CosNotification_PropertyRange'{
+    low_val=any:create(orber_tc:short(), ?not_BestEffort), 
+    high_val=any:create(orber_tc:short(), ?not_Persistent)
+   }},
+ #'CosNotification_NamedPropertyRange'
+ {name=?not_ConnectionReliability, 
+  range=
+  #'CosNotification_PropertyRange'{
+    low_val=any:create(orber_tc:short(), ?not_BestEffort), 
+    high_val=any:create(orber_tc:short(), ?not_Persistent)
+   }},
+ #'CosNotification_NamedPropertyRange'
+ {name=?not_Priority, 
+  range=
+  #'CosNotification_PropertyRange'{
+    low_val=any:create(orber_tc:short(), ?not_LowestPriority), 
+    high_val=any:create(orber_tc:short(), ?not_HighestPriority)
+   }},
+ #'CosNotification_NamedPropertyRange'
+ {name=?not_StartTimeSupported, 
+  range=
+  #'CosNotification_PropertyRange'{
+    low_val=any:create(orber_tc:boolean(), false), 
+    high_val=any:create(orber_tc:boolean(), true)
+   }},
+ #'CosNotification_NamedPropertyRange'
+ {name=?not_StopTimeSupported, 
+  range=
+  #'CosNotification_PropertyRange'{
+    low_val=any:create(orber_tc:boolean(), false), 
+    high_val=any:create(orber_tc:boolean(), true)
+   }},
+ #'CosNotification_NamedPropertyRange'
+ {name=?not_Timeout, 
+  range=
+  #'CosNotification_PropertyRange'{
+    low_val=any:create(orber_tc:unsigned_long_long(), ?not_MinTimeout), 
+    high_val=any:create(orber_tc:unsigned_long_long(), ?not_MaxTimeout)
+   }},
+ #'CosNotification_NamedPropertyRange'
+ {name=?not_OrderPolicy, 
+  range=
+  #'CosNotification_PropertyRange'{
+    low_val=any:create(orber_tc:short(), ?not_AnyOrder), 
+    high_val=any:create(orber_tc:short(), ?not_PriorityOrder)
+   }},
+ #'CosNotification_NamedPropertyRange'
+ {name=?not_DiscardPolicy, 
+  range=
+  #'CosNotification_PropertyRange'{
+    low_val=any:create(orber_tc:short(), ?not_AnyOrder), 
+    high_val=any:create(orber_tc:short(), ?not_PriorityOrder)
+   }},
+ #'CosNotification_NamedPropertyRange'
+ {name=?not_MaximumBatchSize, 
+  range=
+  #'CosNotification_PropertyRange'{
+    low_val=any:create(orber_tc:long(), ?not_MinBatchSize), 
+    high_val=any:create(orber_tc:long(), ?not_MaxBatchSize)
+   }},
+ #'CosNotification_NamedPropertyRange'
+ {name=?not_PacingInterval, 
+  range=
+  #'CosNotification_PropertyRange'{
+    low_val=any:create(orber_tc:unsigned_long_long(), ?not_MinPacing), 
+    high_val=any:create(orber_tc:unsigned_long_long(), ?not_MaxPacing)
+   }},
+ #'CosNotification_NamedPropertyRange'
+ {name=?not_MaxEventsPerConsumer, 
+  range=
+  #'CosNotification_PropertyRange'{
+    low_val=any:create(orber_tc:long(), ?not_MinConsumerEvents), 
+    high_val=any:create(orber_tc:long(), ?not_MaxConsumerEvents)
+   }}
+].
+
+
+
+%% Local record used internally, and the reason for this is we get faster
+%% access to QoS settings.
+-record(qos, {'EventReliability',
+	      'ConnectionReliability',
+	      'Priority',
+	      'StartTimeSupported',
+	      'StopTimeSupported',
+	      'Timeout',
+	      'OrderPolicy',
+	      'DiscardPolicy',
+	      'MaximumBatchSize',
+	      'PacingInterval',
+	      'MaxEventsPerConsumer'}).
+
+%% Global (OMG) representation of QoS.
+-define(not_DEFAULT_QOS, 
+[#'CosNotification_Property'{name=?not_MaximumBatchSize, 
+			     value=any:create(orber_tc:long(), 1)},
+ #'CosNotification_Property'{name=?not_PacingInterval, 
+			     value=any:create(orber_tc:unsigned_long_long(), 0)},
+ #'CosNotification_Property'{name=?not_Timeout, 
+			     value=any:create(orber_tc:unsigned_long_long(), 0)},
+ #'CosNotification_Property'{name=?not_MaxEventsPerConsumer, 
+			     value=any:create(orber_tc:long(), 100)},
+ #'CosNotification_Property'{name=?not_OrderPolicy, 
+			     value=any:create(orber_tc:short(), 
+					      ?not_PriorityOrder)},
+ #'CosNotification_Property'{name=?not_EventReliability, 
+			     value=any:create(orber_tc:short(), 
+					      ?not_BestEffort)},
+ #'CosNotification_Property'{name=?not_ConnectionReliability, 
+			     value=any:create(orber_tc:short(), 
+					      ?not_BestEffort)},
+ #'CosNotification_Property'{name=?not_DiscardPolicy, 
+			     value=any:create(orber_tc:short(), 
+					      ?not_RejectNewEvents)},
+ #'CosNotification_Property'{name=?not_StartTimeSupported, 
+			     value=any:create(orber_tc:boolean(), false)},
+ #'CosNotification_Property'{name=?not_StopTimeSupported, 
+			     value=any:create(orber_tc:boolean(), false)},
+ #'CosNotification_Property'{name=?not_Priority, 
+			     value=any:create(orber_tc:short(), ?not_DefaultPriority)}]).
+
+%%--------------- QOS CREATORS -------------------------------
+-define(not_CreateInitQoS(), #qos{}).
+
+%%--------------- QOS DESTRUCTORS ----------------------------
+-define(not_DestroyQoS(Q), ok).
+
+%%--------------- QOS SELECTORS ------------------------------
+-define(not_GetEventReliability(Q),        Q#qos.'EventReliability').
+-define(not_GetConnectionReliability(Q),   Q#qos.'ConnectionReliability').
+-define(not_GetPriority(Q),                Q#qos.'Priority').
+-define(not_GetStartTimeSupported(Q),      Q#qos.'StartTimeSupported').
+-define(not_GetStopTimeSupported(Q),       Q#qos.'StopTimeSupported').
+-define(not_GetTimeout(Q),                 Q#qos.'Timeout').
+-define(not_GetOrderPolicy(Q),             Q#qos.'OrderPolicy').
+-define(not_GetDiscardPolicy(Q),           Q#qos.'DiscardPolicy').
+-define(not_GetMaximumBatchSize(Q),        Q#qos.'MaximumBatchSize').
+-define(not_GetPacingInterval(Q),          Q#qos.'PacingInterval').
+-define(not_GetMaxEventsPerConsumer(Q),    Q#qos.'MaxEventsPerConsumer').
+
+%%--------------- QOS MODIFIERS ------------------------------
+-define(not_SetEventReliability(Q,D),      Q#qos{'EventReliability'=D}).
+-define(not_SetConnectionReliability(Q,D), Q#qos{'ConnectionReliability'=D}).
+-define(not_SetPriority(Q,D),              Q#qos{'Priority'=D}).
+-define(not_SetStartTimeSupported(Q,D),    Q#qos{'StartTimeSupported'=D}).
+-define(not_SetStopTimeSupported(Q,D),     Q#qos{'StopTimeSupported'=D}).
+-define(not_SetTimeout(Q,D),               Q#qos{'Timeout'=D}).
+-define(not_SetOrderPolicy(Q,D),           Q#qos{'OrderPolicy'=D}).
+-define(not_SetDiscardPolicy(Q,D),         Q#qos{'DiscardPolicy'=D}).
+-define(not_SetMaximumBatchSize(Q,D),      Q#qos{'MaximumBatchSize'=D}).
+-define(not_SetPacingInterval(Q,D),        Q#qos{'PacingInterval'=D}).
+-define(not_SetMaxEventsPerConsumer(Q,D),  Q#qos{'MaxEventsPerConsumer'=D}).
+
+%%--------------- StructuredEvent CREATORS -------------------
+-define(not_CreateSE(StrD,StrT,StrE,PSeqV,PSeqF,AnyR),
+#'CosNotification_StructuredEvent'{header = 
+   #'CosNotification_EventHeader'{fixed_header = 
+		  #'CosNotification_FixedEventHeader'{event_type =
+				      #'CosNotification_EventType'{domain_name=StrD,
+						   type_name=StrT},
+				      event_name = StrE},
+		  variable_header = PSeqV},
+   filterable_data = PSeqF,
+   remainder_of_body = AnyR}).
+%% Can be used in guards.
+-define(not_isConvertedAny(E), 
+	(((E#'CosNotification_StructuredEvent'.header)
+	  #'CosNotification_EventHeader'.fixed_header)
+	 #'CosNotification_FixedEventHeader'.event_type)
+	#'CosNotification_EventType'.type_name == "%ANY").
+%% Can NOT be used in guards!!!!!
+-define(not_isConvertedStructured(E), 
+	any:get_typecode(E) == 'CosNotification_StructuredEvent':tc()).
+
+%%--------------- StructuredEvent DESTRUCTORS ----------------
+-define(not_DestroySE(E), ok).
+
+%%--------------- StructuredEvent SELECTORS ------------------
+-define(not_GetSEHeader(E), E#'StructuredEvent'.header).
+-define(not_GetSEFixedHeader(E), E#'StructuredEvent'.header).
+
+%%--------------- StructuredEvent MODIFIERS ------------------
+
+%%-------- QoS support -----------------------------------------------
+-define(not_SUPPORTED_QOS, 
+[{?not_EventReliability,      'EventReliability'},
+ {?not_ConnectionReliability, 'ConnectionReliability'},
+ {?not_Priority,              'Priority'},
+ {?not_StartTimeSupported,    'StartTimeSupported'},
+ {?not_StopTimeSupported,     'StopTimeSupported'},
+ {?not_Timeout,               'Timeout'},
+ {?not_OrderPolicy,           'OrderPolicy'},
+ {?not_DiscardPolicy,         'DiscardPolicy'},
+ {?not_MaximumBatchSize,      'MaximumBatchSize'},
+ {?not_PacingInterval,        'PacingInterval'},
+ {?not_MaxEventsPerConsumer,  'MaxEventsPerConsumer'}]).
+
+%%-------- ADMINPROPERTIESADMIN --------------------------------------
+
+%% According to the OMG TC Document telecom/98-11-01, p 63 (section 2.5.7), the
+%% default-value for these 3 admin properties is zero, which means that no limit
+%% applies to that property.
+-define(not_DEFAULT_ADMINPROPERTIES,
+[#'CosNotification_Property'{name=?not_MaxQueueLength, 
+			     value=any:create(orber_tc:long(), 0)},
+ #'CosNotification_Property'{name=?not_MaxConsumers, 
+			     value=any:create(orber_tc:long(), 0)},
+ #'CosNotification_Property'{name=?not_MaxSuppliers, 
+			     value=any:create(orber_tc:long(), 0)}]).
+
+-define(not_SUPPORTED_ADMINPROPERTIES,
+[{?not_MaxQueueLength, 'MaxQueueLength'},
+ {?not_MaxConsumers, 'MaxConsumers'},
+ {?not_MaxSuppliers, 'MaxSuppliers'}]).
+
+
+%%-------- MISC --------------------------------------------------------
+
+-define(not_DEFAULT_SETTINGS, [{pullInterval, 20},
+			       {filterOp, 'OR_OP'},
+			       {gcTime, 60},
+			       {gcLimit, 50},
+			       {timeService, undefined},
+			       {typecheck, true},
+			       {tty, false},
+			       {logfile, false},
+			       {server_options, []}]).
+-define(not_CreateDBKey, term_to_binary({now(), node()})).
+
+-define(DEBUG_LEVEL, 3).
+
+-ifdef(debug).
+
+-define(debug_print(F,A), io:format("[~p(~p)] "++F,[?MODULE, ?LINE]++A)).
+-define(DBG(F,A), io:format("[~p(~p)] "++F,[?MODULE, ?LINE]++A)).
+-define(not_TypeCheck(O,I), ok).
+%-define(not_TypeCheck(O,M), 'CosNotification_Common':type_check(O,M)).
+
+-else.
+
+-define(debug_print(F,A), ok).
+-define(DBG(F,A), ok).
+-define(not_TypeCheck(O,I), ok).
+
+-endif.    
+
+
+
+-endif.
+%%--------------- END OF MODULE ------------------------------