The R13B03 release.OTP_R13B03

1 files changed, 88 insertions, 0 deletions

diff --git a/lib/wx/api_gen/wx_gen.hrl b/lib/wx/api_gen/wx_gen.hrl
new file mode 100644
index 0000000000..b34d399358
--- /dev/null
+++ b/lib/wx/api_gen/wx_gen.hrl
@@ -0,0 +1,88 @@
+%%
+%% %CopyrightBegin%
+%% 
+%% Copyright Ericsson AB 2008-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%
+-record(class,
+	{
+	  name    = undefined,
+	  parent  = undefined,
+	  methods = [],
+	  attributes = [],
+	  event   = false,
+	  file    = undefined,
+	  options  = undefined,
+	  abstract = false,
+	  id,                      % Unique integer identifer
+	  doc
+	 }).
+
+-record(method, 
+	{
+	  name        = undefined, % real name
+	  alias       = undefined, % erlang func name
+	  type        = void,      % method type
+ 	  min_arity   = undefined, % Required args
+ 	  max_arity   = undefined, % Optional args
+	  defined_in  = undefined, % 
+	  params      = [],        % arguments to the function
+	  method_type = member,    % kind of method, e.g constructor
+	  where       = both,      % Erl or c or both
+	  id          = undefined, % Id (integer)
+	  doc,                     % Extra documentation
+	  virtual,                 % Is virtual?
+	  pre_hook,                % Pre hook  before call in c-code
+	  post_hook                % Post hook after call in c-code
+	 }
+       ).
+
+-record(param,
+	{
+	  name    = undefined,
+	  type    = undefined,
+	  def     = none,
+	  in      = true,
+	  where   = both,     % both in c and erl or only in either 
+	  prot    = public,   % only used by attributes
+	  alt     = undefined,% c-only alternative usually a length indicator
+	  acc                 % access function if protected and needed
+	 }).
+
+-record(type,
+	{
+	  name     = undefined,  % typename
+	  base     = undefined,  % basename int, char, float ..
+	  by_val   = true,       % or false = by_ref
+	  single   = true,       % Single or array (list)
+	  mod      = [],         % const ...
+	  ref      = undefined,  % pointer or reference
+	  xml      = undefined   % xml identity 
+	 }
+       ).
+
+-record(enum, {skip="", as_atom=false, vals}).
+-record(const,{name,val,enum,is_const}).
+
+-define(error(What), 
+	erlang:error({{?MODULE,?LINE},{get(current_class),get(current_func)},What})).
+
+-define(warning(Str,Args),
+	io:format("~p:~p Warning:"++Str, [?MODULE,?LINE] ++ Args)).
+	
+%-ifdef(TRACE_COMMENT).
+%-define(WTC(X), w("// ~p:~p ~p~n",[?MODULE, ?LINE, X])).
+%-else.
+-define(WTC(X), void).
+%-endif.