aboutsummaryrefslogtreecommitdiffstats
path: root/lib/ic/src/ic_genobj.erl
diff options
context:
space:
mode:
Diffstat (limited to 'lib/ic/src/ic_genobj.erl')
-rw-r--r--lib/ic/src/ic_genobj.erl244
1 files changed, 244 insertions, 0 deletions
diff --git a/lib/ic/src/ic_genobj.erl b/lib/ic/src/ic_genobj.erl
new file mode 100644
index 0000000000..afb00eeb19
--- /dev/null
+++ b/lib/ic/src/ic_genobj.erl
@@ -0,0 +1,244 @@
+%%
+%% %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.
generated by cgit v1.2.3 (git 2.25.1) at 2024-11-14 06:35:04 +0000