The R13B03 release.OTP_R13B03

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.