1%%-------------------------------------------------------------------- 2%% 3%% %CopyrightBegin% 4%% 5%% Copyright Ericsson AB 2002-2016. All Rights Reserved. 6%% 7%% Licensed under the Apache License, Version 2.0 (the "License"); 8%% you may not use this file except in compliance with the License. 9%% You may obtain a copy of the License at 10%% 11%% http://www.apache.org/licenses/LICENSE-2.0 12%% 13%% Unless required by applicable law or agreed to in writing, software 14%% distributed under the License is distributed on an "AS IS" BASIS, 15%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. 16%% See the License for the specific language governing permissions and 17%% limitations under the License. 18%% 19%% %CopyrightEnd% 20%% 21%% 22%%---------------------------------------------------------------------- 23%% File : orber_ifr_fixeddef.erl 24%% Description : 25%% 26%%---------------------------------------------------------------------- 27-module(orber_ifr_fixeddef). 28 29-export(['_get_def_kind'/1, 30 destroy/1, 31 cleanup_for_destroy/1, %not in CORBA 2.0 32 '_get_type'/1, 33 '_get_digits'/1, 34 '_set_digits'/2, 35 '_get_scale'/1, 36 '_set_scale'/2]). 37 38-import(orber_ifr_utils, [get_field/2, 39 set_field/3]). 40 41-include("orber_ifr.hrl"). 42 43%%%====================================================================== 44%%% FixedDef (IDLType(IRObject)) 45 46%%%---------------------------------------------------------------------- 47%%% Interfaces inherited from IRObject 48 49'_get_def_kind'({ObjType,ObjID}) ?tcheck(ir_FixedDef, ObjType) -> 50 orber_ifr_irobject:'_get_def_kind'({ObjType,ObjID}). 51 52destroy({ObjType, ObjID}) ?tcheck(ir_FixedDef, ObjType) -> 53 F = fun() -> ObjList = cleanup_for_destroy({ObjType, ObjID}), 54 orber_ifr_irobject:destroy([{ObjType,ObjID} | ObjList]) 55 end, 56 orber_ifr_utils:ifr_transaction_write(F). 57 58cleanup_for_destroy({ObjType,ObjID}) ?tcheck(ir_FixedDef, ObjType) -> 59 orber_ifr_idltype:cleanup_for_destroy({ObjType,ObjID}). 60 61%%%---------------------------------------------------------------------- 62%%% Interfaces inherited from IDLType 63 64'_get_type'({ObjType, ObjID}) ?tcheck(ir_FixedDef, ObjType) -> 65 orber_ifr_idltype:'_get_type'({ObjType, ObjID}). 66 67%%%---------------------------------------------------------------------- 68%%% Non-inherited interfaces 69 70'_get_digits'({ObjType, ObjID}) ?tcheck(ir_FixedDef, ObjType) -> 71 get_field({ObjType,ObjID},digits). 72'_get_scale'({ObjType, ObjID}) ?tcheck(ir_FixedDef, ObjType) -> 73 get_field({ObjType,ObjID},scale). 74 75'_set_digits'({ObjType, ObjID}, EO_Value) 76 ?tcheck(ir_FixedDef, ObjType) -> 77 set_field({ObjType, ObjID}, digits, EO_Value). 78'_set_scale'({ObjType, ObjID}, EO_Value) 79 ?tcheck(ir_FixedDef, ObjType) -> 80 set_field({ObjType, ObjID}, scale, EO_Value). 81