%%
%% %CopyrightBegin%
%%
%% Copyright Ericsson AB 1998-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%
%%
%%
-module(ic_genobj).
-include_lib("ic/src/ic.hrl").
%%-----------------------------------------------------------------
%% External exports
%%-----------------------------------------------------------------
-export([new/1, free_table_space/1, process_space/0]).
-export([skelfiled/1, stubfiled/1, hrlfiled/1, includefiled/1]).
-export([interfacefiled/1, helperfiled/1, holderfiled/1]).
-export([is_skelfile_open/1, is_stubfile_open/1, is_hrlfile_open/1]).
-export([include_file/1, include_file_stack/1]).
-export([push_file/2, pop_file/2, sys_file/2]).
-export([skelscope/1, stubscope/1, impl/1, do_gen/1]).
-export([symtab/1, auxtab/1, tktab/1, pragmatab/1, optiontab/1, typedeftab/1]).
-export([idlfile/1, module/1, set_idlfile/2, set_module/2]).
%%-----------------------------------------------------------------
%% Internal exports
%%-----------------------------------------------------------------
-export([]).
%%-----------------------------------------------------------------
%% External functions
%%-----------------------------------------------------------------
%%--------------------------------------------------------------------
%%
%% Initialisation stuff
%%
%%
%%
%%--------------------------------------------------------------------
new(Opts) ->
OptDB = ets:new(options, [set, public]),
Warns = ets:new(warnings, [set, public]),
Aux = ets:new(aux, [set, public]),
Tk = ets:new(tktab, [set, public]),
PragmaTab = ets:new(pragmatab, [bag, public]),
TypeDefTab = ets:new(c_typedeftab, [set, public]),
G = #genobj{options=OptDB,
warnings=Warns,
symtab=ic_symtab:new(),
auxtab=Aux,
tktab=Tk,
pragmatab=PragmaTab,
c_typedeftab=TypeDefTab},
ic_error:init_errors(G),
ic_options:add_opt(G, default_opts, true),
ic_options:read_cfg(G, Opts), % Read any config files
ic_options:add_opt(G, Opts, true),
ic_symtab:symtab_add_faked_included_types(G), % Add CORBA::<Types> that as if they
% were defined in an included file
case ic_options:get_opt(G, be) of
false ->
DefBE = ic_options:defaultBe(),
case ic_options:get_opt(G, multiple_be) of
false ->
ic_options:add_opt(G, be, DefBE),
G;
List ->
case lists:member(DefBE, List) of
true ->
%% Delete the default be from the list to avoid
%% generating it twice.
NewList = lists:delete(DefBE, List),
ic_options:add_opt(G, multiple_be, NewList),
ic_options:add_opt(G, be, DefBE),
G;
false ->
G
end
end;
_ ->
G
end.
%%--------------------------------------------------------------------
%%
%% Table removal
%%
%%
%%
%%--------------------------------------------------------------------
free_table_space(G) ->
%% Free ets tables
ets:delete(G#genobj.options),
ets:delete(G#genobj.symtab),
ets:delete(G#genobj.warnings),
ets:delete(G#genobj.auxtab),
ets:delete(G#genobj.tktab),
ets:delete(G#genobj.pragmatab),
ets:delete(G#genobj.c_typedeftab),
%% Close file descriptors
close_fd(G#genobj.skelfiled),
close_fd(G#genobj.stubfiled),
close_fd(G#genobj.interfacefiled),
close_fd(G#genobj.helperfiled),
close_fd(G#genobj.holderfiled),
close_fd(G#genobj.includefiled).
close_fd([]) ->
ok;
close_fd([Fd|Fds]) ->
file_close(Fd),
close_fd(Fds).
file_close(empty) -> ok;
file_close(ignore) -> ok;
file_close(Fd) ->
file:close(Fd).
%%--------------------------------------------------------------------
%%
%% Process memory usage
%%
%%
%%
%%--------------------------------------------------------------------
process_space() ->
Pheap=4*element(2,element(2,lists:keysearch(heap_size,1,process_info(self())))),
Pstack=4*element(2,element(2,lists:keysearch(stack_size,1,process_info(self())))),
io:format("Process current heap = ~p bytes\n",[Pheap]),
io:format("Symbol current stack = ~p bytes\n",[Pstack]),
io:format("-----------------------------------------------\n"),
io:format("Totally used ~p bytes\n\n",[Pheap+Pstack]).
skelfiled(G) -> hd(G#genobj.skelfiled).
stubfiled(G) -> hd(G#genobj.stubfiled).
includefiled(G) -> hd(G#genobj.includefiled).
hrlfiled(G) -> hd(G#genobj.includefiled).
interfacefiled(G) -> hd(G#genobj.interfacefiled).
helperfiled(G) -> hd(G#genobj.helperfiled).
holderfiled(G) -> hd(G#genobj.holderfiled).
include_file(G) -> hd(G#genobj.includefile).
include_file_stack(G) -> G#genobj.includefile.
is_skelfile_open(G) ->
if hd(G#genobj.skelfiled) /= empty, hd(G#genobj.skelfiled) /= ignore
-> true;
true -> false
end.
is_stubfile_open(G) ->
if hd(G#genobj.stubfiled) /= empty, hd(G#genobj.stubfiled) /= ignore
-> true;
true -> false
end.
is_hrlfile_open(G) ->
if hd(G#genobj.includefiled) /= empty, hd(G#genobj.includefiled) /= ignore
-> true;
true -> false
end.
%%--------------------------------------------------------------------
%%
%% Handling of pre processor file commands
%%
%%--------------------------------------------------------------------
push_file(G, Id) ->
New = G#genobj.filestack+1,
set_idlfile(G, Id),
G#genobj{filestack=New, do_gen=true_or_not(New)}.
pop_file(G, Id) ->
New = G#genobj.filestack-1,
set_idlfile(G, Id),
G#genobj{filestack=New, do_gen=true_or_not(New)}.
sys_file(G, _Id) -> G#genobj{sysfile=true}.
do_gen(G) -> G#genobj.do_gen.
%%--------------------------------------------------------------------
%%
%% Storage routines
%%i
%% The generator object G is used to store many usefull bits of
%% information so that the information doesn't need to get passed
%% around everywhere.
%%
%%--------------------------------------------------------------------
skelscope(G) -> G#genobj.skelscope.
stubscope(G) -> G#genobj.stubscope.
symtab(G) -> G#genobj.symtab.
auxtab(G) -> G#genobj.auxtab.
tktab(G) -> G#genobj.tktab.
impl(G) -> G#genobj.impl.
pragmatab(G) -> G#genobj.pragmatab.
optiontab(G) -> G#genobj.options.
typedeftab(G) -> G#genobj.c_typedeftab.
idlfile(G) -> ?lookup(G#genobj.options, idlfile).
module(G) -> ?lookup(G#genobj.options, module).
set_idlfile(G, X) -> ?insert(G#genobj.options, idlfile, X).
set_module(G, X) -> ?insert(G#genobj.options, module, ic_forms:get_id(X)).
%%-----------------------------------------------------------------
%% Internal functions
%%-----------------------------------------------------------------
true_or_not(X) when X < 2 ->
true;
true_or_not(_) ->
false.
