diff options
Diffstat (limited to 'lib')
440 files changed, 19797 insertions, 15345 deletions
diff --git a/lib/Makefile b/lib/Makefile index c443425f8b..7e52d6e32e 100644 --- a/lib/Makefile +++ b/lib/Makefile @@ -70,19 +70,15 @@ endif ifdef BOOTSTRAP SUB_DIRECTORIES = \ - kernel stdlib compiler orber/include + kernel stdlib compiler else ifdef SECONDARY_BOOTSTRAP SUB_DIRECTORIES = hipe parsetools asn1/src else ifdef TERTIARY_BOOTSTRAP - SUB_DIRECTORIES = snmp - else - ifdef FOURTH_BOOTSTRAP - SUB_DIRECTORIES = sasl jinterface ic syntax_tools - else # Not bootstrap build - SUB_DIRECTORIES = $(ERTS_SUB_DIRECTORIES) $(OTHER_SUB_DIRECTORIES) - endif + SUB_DIRECTORIES = snmp sasl jinterface ic syntax_tools + else # Not bootstrap build + SUB_DIRECTORIES = $(ERTS_SUB_DIRECTORIES) $(OTHER_SUB_DIRECTORIES) endif endif endif diff --git a/lib/asn1/doc/src/asn1ct.xml b/lib/asn1/doc/src/asn1ct.xml index 13e6977419..0b9ec3df7f 100644 --- a/lib/asn1/doc/src/asn1ct.xml +++ b/lib/asn1/doc/src/asn1ct.xml @@ -53,7 +53,7 @@ <v>Option = ber_bin | per_bin | uper_bin | der | compact_bit_string | noobj | {n2n,EnumTypeName} |{outdir,Dir} | {i,IncludeDir} | optimize | nif | asn1config | undec_rest | {inline,OutputName} | inline | - {macro_name_prefix, Prefix} | {record_name_prefix, Prefix} | verbose</v> + {macro_name_prefix, Prefix} | {record_name_prefix, Prefix} | verbose | warnings_as_errors</v> <v>OldOption = ber | per</v> <v>Reason = term()</v> <v>Prefix = string()</v> @@ -298,6 +298,10 @@ Binary = binary() <p>Causes more verbose information from the compiler describing what it is doing.</p> </item> + <tag><c>warnings_as_errors</c></tag> + <item> + <p>Causes warnings to be treated as errors.</p> + </item> </taglist> <p>Any additional option that is applied will be passed to the final step when the generated .erl file is compiled. diff --git a/lib/asn1/doc/src/notes.xml b/lib/asn1/doc/src/notes.xml index 5e221c03e9..52d770c9f6 100644 --- a/lib/asn1/doc/src/notes.xml +++ b/lib/asn1/doc/src/notes.xml @@ -31,6 +31,25 @@ <p>This document describes the changes made to the asn1 application.</p> +<section><title>Asn1 1.6.18</title> + + <section><title>Fixed Bugs and Malfunctions</title> + <list> + <item> + <p> + Implement or fix -Werror option</p> + <p> + If -Werror is enabled and there are warnings no output + file is written. Also make sure that error/warning + reporting is consistent. (Thanks to Tuncer Ayaz)</p> + <p> + Own Id: OTP-9536</p> + </item> + </list> + </section> + +</section> + <section><title>Asn1 1.6.17</title> <section><title>Fixed Bugs and Malfunctions</title> diff --git a/lib/asn1/src/asn1ct.erl b/lib/asn1/src/asn1ct.erl index a170dd8660..85bb5b2f28 100644 --- a/lib/asn1/src/asn1ct.erl +++ b/lib/asn1/src/asn1ct.erl @@ -39,7 +39,7 @@ add_tobe_refed_func/1,add_generated_refed_func/1, maybe_rename_function/3,latest_sindex/0,current_sindex/0, set_current_sindex/1,next_sindex/0,maybe_saved_sindex/2, - parse_and_save/2,verbose/3,warning/3,error/3]). + parse_and_save/2,verbose/3,warning/3,warning/4,error/3]). -include("asn1_records.hrl"). -include_lib("stdlib/include/erl_compile.hrl"). @@ -835,10 +835,13 @@ generate({true,{M,_Module,GenTOrV}},OutFile,EncodingRule,Options) -> case catch specialized_decode_prepare(EncodingRule,M,GenTOrV,Options) of {error, enoent} -> ok; {error, Reason} -> warning("Error in configuration " - "file: ~n~p~n",[Reason],Options); + "file: ~n~p~n",[Reason],Options, + "Error in configuration file"); {'EXIT',Reason} -> warning("Internal error when " "analyzing configuration " - "file: ~n~p~n",[Reason],Options); + "file: ~n~p~n",[Reason],Options, + "Internal error when " + "analyzing configuration"); _ -> ok end, @@ -2534,14 +2537,14 @@ type_check(#'Externaltypereference'{}) -> %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% Report functions. %% -%% Errors messages are controlled with the 'errors' compiler option +%% Error messages are controlled with the 'errors' compiler option %% Warning messages are controlled with the 'warnings' compiler option %% Verbose messages are controlled with the 'verbose' compiler option error(Format, Args, S) -> case is_error(S) of true -> - io:format("Error: " ++ Format, Args); + io:format(Format, Args); false -> ok end. @@ -2554,6 +2557,17 @@ warning(Format, Args, S) -> ok end. +warning(Format, Args, S, Reason) -> + case {is_werr(S), is_error(S), is_warning(S)} of + {true, true, _} -> + io:format(Format, Args), + throw({error, Reason}); + {false, _, true} -> + io:format(Format, Args); + _ -> + ok + end. + verbose(Format, Args, S) -> case is_verbose(S) of true -> @@ -2576,3 +2590,8 @@ is_verbose(S) when is_record(S, state) -> is_verbose(S#state.options); is_verbose(O) -> lists:member(verbose, O). + +is_werr(S) when is_record(S, state) -> + is_werr(S#state.options); +is_werr(O) -> + lists:member(warnings_as_errors, O). diff --git a/lib/asn1/src/asn1ct_check.erl b/lib/asn1/src/asn1ct_check.erl index efd731f052..e318477234 100644 --- a/lib/asn1/src/asn1ct_check.erl +++ b/lib/asn1/src/asn1ct_check.erl @@ -2031,7 +2031,7 @@ get_objectset_def2(_S,T = #typedef{typespec=#'ObjectSet'{}},_CField) -> T; get_objectset_def2(S,T,_CField) -> asn1ct:warning("get_objectset_def2: uncontrolled object set structure:~n~p~n", - [T],S). + [T],S,"get_objectset_def2: uncontrolled object set structure"). type_name(S,#type{def=Def}) -> CurrMod = S#state.mname, @@ -2705,7 +2705,7 @@ normalize_value(S,Type,{'DEFAULT',Value},NameList) -> normalize_objectclassfieldvalue(S,Value,NL); Err -> asn1ct:warning("could not check default value ~p~nType:~n~p~nNameList:~n~p~n", - [Value,Type,Err],S), + [Value,Type,Err],S,"could not check default value"), Value end; normalize_value(S,Type,Val,NameList) -> @@ -2791,22 +2791,27 @@ normalize_bitstring(S,Value,Type)-> case catch lists:map(F,RecList) of {error,Reason} -> asn1ct:warning("default value not " - "compatible with type definition ~p~n", - [Reason],S), + "compatible with type definition ~p~n", + [Reason],S, + "default value not " + "compatible with type definition"), Value; NewList -> NewList end; _ -> asn1ct:warning("default value not " - "compatible with type definition ~p~n", - [RecList],S), + "compatible with type definition ~p~n", + [RecList],S, + "default value not " + "compatible with type definition"), Value end; {Name,String} when is_atom(Name) -> normalize_bitstring(S,String,Type); Other -> - asn1ct:warning("illegal default value ~p~n",[Other],S), + asn1ct:warning("illegal default value ~p~n",[Other],S, + "illegal default value"), Value end. @@ -2846,12 +2851,14 @@ normalize_octetstring(S,Value,CType) -> lists:map(fun([])-> ok; (H)when H > 255-> asn1ct:warning("not legal octet value ~p in OCTET STRING, ~p~n", - [H,List],S); + [H,List],S, + "not legal octet value ~p in OCTET STRING"); (_)-> ok end, List), List; Other -> - asn1ct:warning("unknown default value ~p~n",[Other],S), + asn1ct:warning("unknown default value ~p~n",[Other],S, + "unknown default value"), Value end. @@ -2908,13 +2915,15 @@ normalize_enumerated(S,{Name,EnumV},CType) when is_atom(Name) -> normalize_enumerated(S,Value,{CType1,CType2}) when is_list(CType1), is_list(CType2)-> normalize_enumerated(S,Value,CType1++CType2); normalize_enumerated(S,V,CType) -> - asn1ct:warning("Enumerated unknown type ~p~n",[CType],S), + asn1ct:warning("Enumerated unknown type ~p~n",[CType],S, + "Enumerated unknown type"), V. normalize_enumerated2(S,V,Enum) -> case lists:keysearch(V,1,Enum) of {value,{Val,_}} -> Val; _ -> - asn1ct:warning("Enumerated value is not correct ~p~n",[V],S), + asn1ct:warning("enumerated value is not correct ~p~n",[V],S, + "enumerated value is not correct"), V end. @@ -2925,7 +2934,8 @@ normalize_choice(S,{'CHOICE',{C,V}},CType,NameList) when is_atom(C) -> {C,normalize_value(S,CT,{'DEFAULT',V}, [Name|NameList])}; Other -> - asn1ct:warning("Wrong format of type/value ~p/~p~n",[Other,V],S), + asn1ct:warning("Wrong format of type/value ~p/~p~n",[Other,V],S, + "Wrong format of type/value"), {C,V} end; normalize_choice(S,{'DEFAULT',ValueList},CType,NameList) when is_list(ValueList) -> @@ -3101,7 +3111,8 @@ normalize_s_of(SorS,S,Value,Type,NameList) when is_list(Value) -> List when is_list(List) -> List; _ -> - asn1ct:warning("~p could not handle value ~p~n",[SorS,Value],S), + asn1ct:warning("~p could not handle value ~p~n",[SorS,Value],S, + "could not handle value"), Value end; normalize_s_of(SorS,S,Value,Type,NameList) @@ -3159,7 +3170,8 @@ get_normalized_value(S,Val,Type,Func,AddArg) -> V2 = sort_val_if_set(AddArg,NewVal,Type), call_Func(update_state(S,ExtM),V2,Type,Func,AddArg); _ -> - asn1ct:warning("default value not comparable ~p~n",[Val],S), + asn1ct:warning("default value not comparable ~p~n",[Val],S, + "default value not comparable"), Val end. @@ -5756,7 +5768,8 @@ ascending_order_check1(S,TypeName, [C1 = #'ComponentType'{tags=[{_,T}|_]}, C2 = #'ComponentType'{tags=[{_,T}|_]}|Rest]) -> asn1ct:warning("Indistinct tag ~p in SET ~p, components ~p and ~p~n", - [T,TypeName,C1#'ComponentType'.name,C2#'ComponentType'.name],S), + [T,TypeName,C1#'ComponentType'.name,C2#'ComponentType'.name],S, + "Indistinct tag in SET"), ascending_order_check1(S,TypeName,[C2|Rest]); ascending_order_check1(S,TypeName, [C1 = #'ComponentType'{tags=[{'UNIVERSAL',T1}|_]}, @@ -5764,9 +5777,10 @@ ascending_order_check1(S,TypeName, case (decode_type(T1) == decode_type(T2)) of true -> asn1ct:warning("Indistinct tags ~p and ~p in" - " SET ~p, components ~p and ~p~n", - [T1,T2,TypeName,C1#'ComponentType'.name, - C2#'ComponentType'.name],S), + " SET ~p, components ~p and ~p~n", + [T1,T2,TypeName,C1#'ComponentType'.name, + C2#'ComponentType'.name],S, + "Indistinct tags and in SET"), ascending_order_check1(S,TypeName,[C2|Rest]); _ -> ascending_order_check1(S,TypeName,[C2|Rest]) diff --git a/lib/asn1/src/asn1ct_value.erl b/lib/asn1/src/asn1ct_value.erl index 693e039a13..d099376b1b 100644 --- a/lib/asn1/src/asn1ct_value.erl +++ b/lib/asn1/src/asn1ct_value.erl @@ -435,11 +435,11 @@ get_encoding_rule(M) -> open_type_value(ber) -> [4,9,111,112,101,110,95,116,121,112,101]; open_type_value(ber_bin) -> - [4,9,111,112,101,110,95,116,121,112,101]; -% <<4,9,111,112,101,110,95,116,121,112,101>>; +% [4,9,111,112,101,110,95,116,121,112,101]; + <<4,9,111,112,101,110,95,116,121,112,101>>; open_type_value(ber_bin_v2) -> - [4,9,111,112,101,110,95,116,121,112,101]; -% <<4,9,111,112,101,110,95,116,121,112,101>>; +% [4,9,111,112,101,110,95,116,121,112,101]; + <<4,9,111,112,101,110,95,116,121,112,101>>; open_type_value(per) -> "\n\topen_type"; %octet string value "open_type" open_type_value(per_bin) -> diff --git a/lib/asn1/test/asn1_SUITE.erl.src b/lib/asn1/test/asn1_SUITE.erl.src index 5339ad78c7..124ee2d2bb 100644 --- a/lib/asn1/test/asn1_SUITE.erl.src +++ b/lib/asn1/test/asn1_SUITE.erl.src @@ -2232,8 +2232,10 @@ test_compile_options(Config) -> ?line ok = test_compile_options:path(Config), ?line ok = test_compile_options:noobj(Config), ?line ok = test_compile_options:record_name_prefix(Config), - ?line ok = test_compile_options:verbose(Config) + ?line ok = test_compile_options:verbose(Config), + ?line ok = test_compile_options:warnings_as_errors(Config) end. + testDoubleEllipses(suite) -> []; testDoubleEllipses(Config) -> ?line testDoubleEllipses:compile(Config,?BER,[]), diff --git a/lib/asn1/test/test_compile_options.erl b/lib/asn1/test/test_compile_options.erl index 5e027cdedb..a622d5bfd2 100644 --- a/lib/asn1/test/test_compile_options.erl +++ b/lib/asn1/test/test_compile_options.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2005-2010. All Rights Reserved. +%% Copyright Ericsson AB 2005-2011. 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 @@ -24,7 +24,7 @@ -export([wrong_path/1,comp/2,path/1,ticket_6143/1,noobj/1, - record_name_prefix/1,verbose/1]). + record_name_prefix/1,verbose/1,warnings_as_errors/1]). %% OTP-5689 wrong_path(Config) -> @@ -141,6 +141,43 @@ verbose(Config) when is_list(Config) -> ?line [] = test_server:capture_get(), ok. +warnings_as_errors(Config) when is_list(Config) -> + PrivDir = ?config(priv_dir,Config), + Asn1File = filename:join([PrivDir,"WERROR.asn1"]), + OutFile = filename:join([PrivDir,"WERROR.erl"]), + Opts = [{outdir,PrivDir},noobj,verbose], + + %% Generate WERR.asn to emit warning + %% Warning: Wrong format of type/value + %% false/{'Externalvaluereference',_,'WERR',noInvokeId} + Warn = <<"WERROR DEFINITIONS IMPLICIT TAGS ::=\n" + "\n" + "BEGIN\n" + "\n" + "InvokeId ::= CHOICE\n" + "{\n" + " present INTEGER,\n" + " absent NULL\n" + "}\n" + "\n" + "noInvokeId InvokeId ::= absent:NULL\n" + "\n" + "NoInvokeId InvokeId ::= {noInvokeId}\n" + "\n" + "END -- end of useful definitions.\n">>, + ?line ok = file:write_file(Asn1File, Warn), + + %% Test warnings_as_errors compile + ?line false = filelib:is_regular(OutFile), + ?line {error, _} = asn1ct:compile(Asn1File, [warnings_as_errors|Opts]), + ?line false = filelib:is_regular(OutFile), + + %% Test normal compile + ?line ok = asn1ct:compile(Asn1File, Opts), + ?line true = filelib:is_regular(OutFile), + ?line ok = file:delete(OutFile), + ok. + outfiles_check(OutDir) -> outfiles_check(OutDir,outfiles1()). diff --git a/lib/asn1/vsn.mk b/lib/asn1/vsn.mk index 36e082c8ba..b1132155e6 100644 --- a/lib/asn1/vsn.mk +++ b/lib/asn1/vsn.mk @@ -1,2 +1,2 @@ #next version number to use is 1.6.15 | 1.7 | 2.0 -ASN1_VSN = 1.6.17 +ASN1_VSN = 1.6.18 diff --git a/lib/common_test/doc/src/common_test_app.xml b/lib/common_test/doc/src/common_test_app.xml index 57b032b3fd..f58b2ab0a9 100644 --- a/lib/common_test/doc/src/common_test_app.xml +++ b/lib/common_test/doc/src/common_test_app.xml @@ -133,9 +133,15 @@ {require,Name,Required} | {userdata,UserData} | {silent_connections,Conns} | {stylesheet,CSSFile} | {ct_hooks, CTHs}</v> - <v> Time = MilliSec | {seconds,integer()} | {minutes,integer()} - | {hours,integer()}</v> + <v> Time = TimeVal | TimeFunc</v> + <v> TimeVal = MilliSec | {seconds,integer()} | {minutes,integer()} | + {hours,integer()}</v> + <v> TimeFunc = {Mod,Func,Args} | Fun</v> <v> MilliSec = integer()</v> + <v> Mod = atom()</v> + <v> Func = atom()</v> + <v> Args = list()</v> + <v> Fun = fun()</v> <v> Required = Key | {Key,SubKeys}</v> <v> Key = atom()</v> <v> SubKeys = SubKey | [SubKey]</v> @@ -161,7 +167,9 @@ test case is allowed to take (including <c>init_per_testcase/2</c> and <c>end_per_testcase/2</c>). If the timetrap time is exceeded, the test case fails with reason - <c>timetrap_timeout</c>.</p> + <c>timetrap_timeout</c>. If a <c>TimeFunc</c> function is specified, + it will be called initially and must return a value on + <c>TimeVal</c> format.</p> <p>The <c>require</c> tag specifies configuration variables that are required by test cases in the suite. If the required @@ -248,7 +256,7 @@ </type> <desc> - <p> MANDATORY (only if one or more groups are defined) </p> + <p> OPTIONAL </p> <p>This function is called before execution of a test case group. It typically contains initialization which is common for @@ -279,7 +287,7 @@ </type> <desc> - <p> MANDATORY (only if one or more groups are defined) </p> + <p> OPTIONAL </p> <p>This function is called after the execution of a test case group is finished. It is meant to be used for cleaning up after <c>init_per_group/2</c>. @@ -353,9 +361,15 @@ <v> Info = {timetrap,Time} | {require,Required} | {require,Name,Required} | {userdata,UserData} | {silent_connections,Conns}</v> - <v> Time = MilliSec | {seconds,integer()} | {minutes,integer()} - | {hours,integer()}</v> + <v> Time = TimeVal | TimeFunc</v> + <v> TimeVal = MilliSec | {seconds,integer()} | {minutes,integer()} | + {hours,integer()}</v> + <v> TimeFunc = {Mod,Func,Args} | Fun</v> <v> MilliSec = integer()</v> + <v> Mod = atom()</v> + <v> Func = atom()</v> + <v> Args = list()</v> + <v> Fun = fun()</v> <v> Required = Key | {Key,SubKeys}</v> <v> Key = atom()</v> <v> SubKeys = SubKey | [SubKey]</v> @@ -378,7 +392,9 @@ exceeded, the test case fails with reason <c>timetrap_timeout</c>. <c>init_per_testcase/2</c> and <c>end_per_testcase/2</c> are included in the - timetrap time.</p> + timetrap time. If a <c>TimeFunc</c> function is specified, + it will be called before the test case (or <c>init_per_testcase/2</c>) + and must return a value on <c>TimeVal</c> format.</p> <p>The <c>require</c> tag specifies configuration variables that are required by the test case. If the required diff --git a/lib/common_test/doc/src/config_file_chapter.xml b/lib/common_test/doc/src/config_file_chapter.xml index 59151a73ec..6fc6638bf7 100644 --- a/lib/common_test/doc/src/config_file_chapter.xml +++ b/lib/common_test/doc/src/config_file_chapter.xml @@ -285,7 +285,7 @@ <c>{ok, Config}</c> - if the configuration variables are read successfully, </item> <item> - <c>{error, Error, ErrorDetails}</c> - if the callback module fails to + <c>{error, {Error, ErrorDetails}}</c> - if the callback module fails to proceed with the given configuration parameters. </item> </list> @@ -422,14 +422,14 @@ stop()-> call(Client, Request)-> case whereis(?REGISTERED_NAME) of undefined-> - {error, not_started, Request}; + {error, {not_started, Request}}; Pid-> Pid ! {Client, Request}, receive Reply-> {ok, Reply} after 4000-> - {error, timeout, Request} + {error, {timeout, Request}} end end. diff --git a/lib/common_test/doc/src/ct_hooks.xml b/lib/common_test/doc/src/ct_hooks.xml index 0ece3199bb..f9fc1858d0 100644 --- a/lib/common_test/doc/src/ct_hooks.xml +++ b/lib/common_test/doc/src/ct_hooks.xml @@ -302,7 +302,7 @@ <p>Note that it is not possible to add CTH's here right now, that feature might be added later, - but it would right now break backwards compatability.</p> + but it would right now break backwards compatibility.</p> </desc> </func> diff --git a/lib/common_test/doc/src/ct_hooks_chapter.xml b/lib/common_test/doc/src/ct_hooks_chapter.xml index dbb4310040..3b9620d0f2 100644 --- a/lib/common_test/doc/src/ct_hooks_chapter.xml +++ b/lib/common_test/doc/src/ct_hooks_chapter.xml @@ -405,6 +405,38 @@ terminate(State) -> ok.</code> </section> + <marker id="builtin_cths"/> + <section> + <title>Built-in CTHs</title> + <p>Common Test is delivered with a couple of general purpose CTHs that + can be enabled by the user to provide some generic testing functionality. + Some of these are enabled by default when starting running common_test, + they can be disabled by setting <c>enable_builtin_hooks</c> to + <c>false</c> on the command line or in the test specification. In the + table below there is a list of all current CTHs which are delivered with + Common Test.</p> + + <table> + <row> + <cell><em>CTH Name</em></cell> + <cell><em>Is Built-in</em></cell> + <cell><em>Description</em></cell> + </row> + <row> + <cell>cth_log_redirect</cell> + <cell>yes</cell> + <cell>Captures all error_logger and SASL logging events and prints them + to the current test case log. If an event can not be associated with a + testcase it will be printed in the common test framework log. This will + happen for testcases which are run in parallel and events which occur + inbetween testcases. You can configure the level of + <seealso marker="sasl:sasl_app">SASL</seealso> events report + using the normal SASL mechanisms. </cell> + </row> + </table> + + </section> + </chapter> diff --git a/lib/common_test/doc/src/ct_run.xml b/lib/common_test/doc/src/ct_run.xml index 1ab563d74f..9045646733 100644 --- a/lib/common_test/doc/src/ct_run.xml +++ b/lib/common_test/doc/src/ct_run.xml @@ -83,7 +83,7 @@ <title>Run tests from command line</title> <pre> ct_run [-dir TestDir1 TestDir2 .. TestDirN] | - [-suite Suite1 Suite2 .. SuiteN + [[-dir TestDir] -suite Suite1 Suite2 .. SuiteN [[-group Group1 Group2 .. GroupN] [-case Case1 Case2 .. CaseN]]] [-step [config | keep_inactive]] [-config ConfigFile1 ConfigFile2 .. ConfigFileN] @@ -92,6 +92,7 @@ [-decrypt_key Key] | [-decrypt_file KeyFile] [-label Label] [-logdir LogDir] + [-logopts LogOpts] [-silent_connections [ConnType1 ConnType2 .. ConnTypeN]] [-stylesheet CSSFile] [-cover CoverCfgFile] @@ -117,6 +118,7 @@ [-decrypt_key Key] | [-decrypt_file KeyFile] [-label Label] [-logdir LogDir] + [-logopts LogOpts] [-allow_user_terms] [-silent_connections [ConnType1 ConnType2 .. ConnTypeN]] [-stylesheet CSSFile] @@ -138,10 +140,11 @@ <pre> ct_run -vts [-browser Browser] [-dir TestDir1 TestDir2 .. TestDirN] | - [-suite Suite [[-group Group] [-case Case]]] + [[dir TestDir] -suite Suite [[-group Group] [-case Case]]] [-config ConfigFile1 ConfigFile2 .. ConfigFileN] [-userconfig CallbackModule1 ConfigString1 and CallbackModule2 ConfigString2 and .. and CallbackModuleN ConfigStringN] + [-logopts LogOpts] [-decrypt_key Key] | [-decrypt_file KeyFile] [-include InclDir1 InclDir2 .. InclDirN] [-no_auto_compile] diff --git a/lib/common_test/doc/src/notes.xml b/lib/common_test/doc/src/notes.xml index 826b3c598d..af96ef621f 100644 --- a/lib/common_test/doc/src/notes.xml +++ b/lib/common_test/doc/src/notes.xml @@ -32,6 +32,229 @@ <file>notes.xml</file> </header> +<section><title>Common_Test 1.5.5</title> + + <section><title>Fixed Bugs and Malfunctions</title> + <list> + <item> + <p> + An error in how comments are colored in the test suite + overview html log file has been corrected. As result, a + new framework callback function, format_comment/1, has + been introduced.</p> + <p> + Own Id: OTP-9237</p> + </item> + <item> + <p> + Automatically generated init- and end-configuration + functions for test case groups caused incorrect execution + order of test cases. This has been corrected.</p> + <p> + Own Id: OTP-9369</p> + </item> + <item> + <p> + If multiple directories were specified with the 'logdir' + flag/option, Common Test would crash. This has been fixed + so that an error is properly reported instead.</p> + <p> + Own Id: OTP-9370</p> + </item> + <item> + <p> + If ct:log/2 was called with bad arguments, this could + cause the Common Test IO handling process to crash. This + fault has been corrected.</p> + <p> + Own Id: OTP-9371 Aux Id: OTP-8933 </p> + </item> + <item> + <p> + A bug has been fixed that made Test Server call the + end_tc/3 framework function with an incorrect module name + as first argument.</p> + <p> + Own Id: OTP-9379 Aux Id: seq11863 </p> + </item> + <item> + <p> + If a timetrap timeout occured during execution of of a + function in a lib module (i.e. a function called directly + or indirectly from a test case), the Suite argument in + the end_tc/3 framework callback function would not + correctly contain the name of the test suite, but the lib + module. (This would only happen if the lib module was + compiled with ct.hrl included). This error has been + solved.</p> + <p> + Own Id: OTP-9398</p> + </item> + <item> + <p> + Corrections of the vts mode. It will now report errors + (about e.g. incorrect config files) instead of crashing + or hanging. Furthermore, the requirement that the test + directory name must have a "_test" suffix has been + removed. Also, a workaround has been implemented for the + limitation that the file browser (in many web browsers) + will only return the basic file name, not the full + directory path (which made it impossible to have config + files in other directories than the main test directory).</p> + <p> + Own Id: OTP-9429</p> + </item> + <item> + <p> + Add a proplist() type</p> + <p> + Recently I was adding specs to an API and found that + there is no canonical proplist() type defined. (Thanks to + Ryan Zezeski)</p> + <p> + Own Id: OTP-9499</p> + </item> + <item> + <p> + It is now possible to use the 'step' flag/option to run + the debugger for test suites that contain test case + groups. This previously caused Common Test to crash. If + 'step config' is specified, breakpoints are now also + automatically set on init_per_group and end_per_group. + Note that breakpoints are always set automatically on + test case functions and this is true also for grouped + cases.</p> + <p> + Own Id: OTP-9518 Aux Id: OTP-8933 </p> + </item> + <item> + <p> + The test index page was not refreshed at the start of + each test suite which made it impossible to follow test + execution by means of refreshing the browser window (no + links to follow). This has been fixed.</p> + <p> + Own Id: OTP-9520 Aux Id: OTP-8933 </p> + </item> + <item> + <p> + If a test suite would start with a test case group + defined without the init_per_group/2 and end_per_group/2 + function, init_per_suite/1 would not execute initially + and logging of the test run would fail. This error has + been fixed.</p> + <p> + Own Id: OTP-9584</p> + </item> + <item> + <p> + The "Missing Suites" link from the top level index page + was incorrect and has been fixed.</p> + <p> + Own Id: OTP-9592</p> + </item> + </list> + </section> + + + <section><title>Improvements and New Features</title> + <list> + <item> + <p> + Various corrections and updates to improve the handling + and reporting of errors.</p> + <p> + Own Id: OTP-8933</p> + </item> + <item> + <p> + The dir and suite start option can now be used in + combination. E.g. executing my_SUITE in directory + my_tests can either be specified as "ct_run -suite + my_tests/my_SUITE" or as "ct_run -dir my_tests -suite + my_SUITE". Furthermore, the specification: + ct:run_test([{suite,["./my_SUITE"]},{testcase,t1}]) is + now interpreted as + ct:run_test([{suite,"./my_SUITE"},{testcase,t1}]), i.e. + only testcase t1 in test suite my_SUITE - not all cases - + will be executed.</p> + <p> + Own Id: OTP-9155</p> + </item> + <item> + <p> + A new option, 'logopts', has been introduced, to make it + possible to modify some aspects of the logging behaviour + in Common Test (or Test Server). For example, whenever an + io printout is made, test_server adds newline (\n) to the + end of the output string. This may not always be a + preferred action and can therefore be disabled by means + of "ct_run ... -logopts no_nl" (or ct:run_test([..., + {logopts,[no_nl]}])). A new framework callback function, + get_logopts/0, has been introduced (see the ct_framework + module for details).</p> + <p> + Own Id: OTP-9372 Aux Id: OTP-9396 </p> + </item> + <item> + <p> + A new option, 'logopts', has been introduced, to make it + possible to modify some aspects of the logging behaviour + in Common Test (or Test Server). For example, if the html + version of the test suite source code should not be + generated during the test run (and consequently be + unavailable in the log file system), the feature may be + disabled by means of "ct_run ... -logopts no_src" (or + ct:run_test([..., {logopts,[no_src]}])). A new framework + callback function, get_logopts/0, has been introduced + (see the ct_framework module for details).</p> + <p> + Own Id: OTP-9396 Aux Id: seq11869, OTP-9372 </p> + </item> + <item> + <p> + CT Hooks can now be assigned a priority. The priority of + a CTH determines when it should execute in relation to + other CTHs. The CTH with the lowest priority will be + executed first, CTHs with equal priority will be executed + in the order which they were installed.</p> + <p> + Own Id: OTP-9445</p> + </item> + <item> + <p> + It is now possible to use a tuple {M,F,A}, or a fun, as + timetrap specification in the suite info function or test + case info functions. The function must return a valid + timeout value, as documented in the common_test man page + and in the User's Guide.</p> + <p> + Own Id: OTP-9501 Aux Id: seq11894 </p> + </item> + <item> + <p> + A new built-in common test hook has been added which + captures error_logger and SASL event and prints them in + the testcase log. To disable this (and any other built-in + hooks) pass 'enable_builtin_hooks false' to common test.</p> + <p> + Own Id: OTP-9543</p> + </item> + <item> + <p> + Common Test now has the possibility to have built-in + hooks which are started by default when any test is run. + To disable built-in hooks pass 'enable_builtin_hooks + false' to common test. See the common test hooks + documentation for more details.</p> + <p> + Own Id: OTP-9564</p> + </item> + </list> + </section> + +</section> + <section><title>Common_Test 1.5.4</title> <section><title>Fixed Bugs and Malfunctions</title> diff --git a/lib/common_test/doc/src/run_test_chapter.xml b/lib/common_test/doc/src/run_test_chapter.xml index e668568795..57059f0ba2 100644 --- a/lib/common_test/doc/src/run_test_chapter.xml +++ b/lib/common_test/doc/src/run_test_chapter.xml @@ -128,6 +128,15 @@ <p><c>$ ct_run -suite $SYS1_TEST/setup_SUITE -case start stop</c></p> <p><c>$ ct_run -suite $SYS1_TEST/setup_SUITE -group installation -case start stop</c></p> + <p>It is also possible to combine the <c>dir</c>, <c>suite</c> and <c>group/case</c> flags. E.g, to run + <c>x_SUITE</c> and <c>y_SUITE</c> in directory <c>testdir</c>:</p> + + <p><c>$ ct_run -dir ./testdir -suite x_SUITE y_SUITE</c></p> + + <p>This has the same effect as calling:</p> + + <p><c>$ ct_run -suite ./testdir/x_SUITE ./testdir/y_SUITE</c></p> + <p>Other flags that may be used with <c>ct_run</c>:</p> <list> <item><c><![CDATA[-logdir <dir>]]></c>, specifies where the HTML log files are to be written.</item> @@ -150,6 +159,8 @@ <seealso marker="event_handler_chapter#event_handling">event handlers</seealso> including start arguments.</item> <item><c><![CDATA[-ct_hooks <ct_hooks>]]></c>, to install <seealso marker="ct_hooks_chapter#installing">Common Test Hooks</seealso> including start arguments.</item> + <item><c><![CDATA[-enable_builtin_hooks <bool>]]></c>, to enable/disable + <seealso marker="ct_hooks_chapter#builtin_cths">Built-in Common Test Hooks</seealso>. Default is <c>true</c>.</item> <item><c><![CDATA[-include]]></c>, specifies include directories (see above).</item> <item><c><![CDATA[-no_auto_compile]]></c>, disables the automatic test suite compilation feature (see above).</item> <item><c><![CDATA[-multiply_timetraps <n>]]></c>, extends <seealso marker="write_test_chapter#timetraps">timetrap @@ -165,6 +176,8 @@ <item><c><![CDATA[-decrypt_file <key_file>]]></c>, points out a file containing a decryption key for <seealso marker="config_file_chapter#encrypted_config_files">encrypted configuration files</seealso>.</item> <item><c><![CDATA[-basic_html]]></c>, switches off html enhancements that might not be compatible with older browsers.</item> + <item><c><![CDATA[-logopts <opts>]]></c>, makes it possible to modify aspects of the logging behaviour, see + <seealso marker="run_test_chapter#logopts">Log options</seealso> below.</item> </list> <note><p>Directories passed to Common Test may have either relative or absolute paths.</p></note> @@ -322,8 +335,9 @@ are to be executed by Common Test, and those functions only. If the step option <c>config</c> is specified, breakpoints will also be initially set on the configuration functions in the suite, i.e. - <c>init_per_suite/1</c>, <c>end_per_suite/1</c>, <c>init_per_testcase/2</c> - and <c>end_per_testcase/2</c>.</p> + <c>init_per_suite/1</c>, <c>end_per_suite/1</c>, + <c>init_per_group/2</c>, <c>end_per_group/2</c>, + <c>init_per_testcase/2</c> and <c>end_per_testcase/2</c>.</p> <p>Common Test enables the Debugger auto attach feature, which means that for every new interpreted test case function that starts to execute, a new trace window will automatically pop up. (This is because each test @@ -450,6 +464,8 @@ {ct_hooks, CTHModules}. {ct_hooks, NodeRefs, CTHModules}. + + {enable_builtin_hooks, Bool}. </pre> <p>Test terms:</p> <pre> @@ -631,7 +647,11 @@ <p>The minor log file contain full details of every single test case, each one in a separate file. This way the files should be easy to compare with previous test runs, even if the set of - test cases change.</p> + test cases change. If SASL is running those logs will also be + printed there by the + <seealso marker="common_test:ct_hooks_chapter#builtin_cths"> + cth_log_redirect built-in hook</seealso>. + </p> <p>Which information goes where is user configurable via the test server controller. Three threshold values determine what @@ -644,6 +664,30 @@ to follow test progress simply by refreshing pages in the HTML browser. Statistics totals are not presented until a test is complete however.</p> + <section> + <marker id="logopts"></marker> + <title>Log options</title> + <p>With the <c>logopts</c> start flag, it's possible to specify + options that modify some aspects of the logging behaviour. + Currently, the following options are available:</p> + <list> + <item><c>no_src</c></item> + <item><c>no_nl</c></item> + </list> + <p>With <c>no_src</c>, the html version of the test suite source + code will not be generated during the test run (and consequently + not be available in the log file system).</p> + <p>With <c>no_nl</c>, Common Test will not add a newline character + (\n) to the end of an output string that it receives from a call to e.g. + <c>io:format/2</c>, and which it prints to the test case log.</p> + <p>For example, if a test is started with:</p> + <p><c>$ ct_run -suite my_SUITE -logopts no_src</c></p> + <p>then printouts during the test made by successive calls to <c>io:format("x")</c>, + will appear in the test case log as:</p> + <p><c>xxx</c></p> + <p>instead of each <c>x</c> printed on a new line, which is the default behaviour.</p> + </section> + </section> <section> diff --git a/lib/common_test/doc/src/write_test_chapter.xml b/lib/common_test/doc/src/write_test_chapter.xml index 3f9fdb7121..e35888e68f 100644 --- a/lib/common_test/doc/src/write_test_chapter.xml +++ b/lib/common_test/doc/src/write_test_chapter.xml @@ -280,6 +280,8 @@ the timetrap time is exceeded, the test case fails with reason <c>timetrap_timeout</c>. Note that <c>init_per_testcase</c> and <c>end_per_testcase</c> are included in the timetrap time. + Please see the <seealso marker="write_test_chapter#timetraps">Timetrap</seealso> + section for more details. </p> </item> <tag><em><c>userdata</c></em></tag> @@ -699,8 +701,8 @@ </section> <section> - <title>Timetrap timeouts</title> <marker id="timetraps"></marker> + <title>Timetrap timeouts</title> <p>The default time limit for a test case is 30 minutes, unless a <c>timetrap</c> is specified either by the suite info function or a test case info function. The timetrap timeout value defined @@ -723,6 +725,13 @@ multipled by <c>multiply_timetraps</c>, and possibly scaled up if <c>scale_timetraps</c> is enabled, the function <c>ct:sleep/1</c> may be called.</p> + <p>A function (<c>fun</c> or <c>MFA</c>) may be specified as timetrap value + in the suite- and test case info function, e.g:</p> + <p><c>{timetrap,{test_utils,get_timetrap_value,[?MODULE,system_start]}}</c></p> + <p>The function will be called initially by Common Test (before execution + of the suite or the test case) and must return a time value such as an + integer (millisec), or a <c>{SecMinOrHourTag,Time}</c> tuple. More + information can be found in the <c>common_test</c> reference manual.</p> </section> <section> @@ -818,6 +827,3 @@ </list> </section> </chapter> - - - diff --git a/lib/common_test/src/Makefile b/lib/common_test/src/Makefile index 5b23558a96..125aa828fb 100644 --- a/lib/common_test/src/Makefile +++ b/lib/common_test/src/Makefile @@ -68,7 +68,8 @@ MODULES= \ ct_config_xml \ ct_slave \ ct_hooks\ - ct_hooks_lock + ct_hooks_lock\ + cth_log_redirect TARGET_MODULES= $(MODULES:%=$(EBIN)/%) BEAM_FILES= $(MODULES:%=$(EBIN)/%.$(EMULATOR)) diff --git a/lib/common_test/src/ct.erl b/lib/common_test/src/ct.erl index 66da3ef742..69e15fa246 100644 --- a/lib/common_test/src/ct.erl +++ b/lib/common_test/src/ct.erl @@ -148,10 +148,10 @@ run(TestDirs) -> %%% {auto_compile,Bool} | {multiply_timetraps,M} | {scale_timetraps,Bool} | %%% {repeat,N} | {duration,DurTime} | {until,StopTime} | %%% {force_stop,Bool} | {decrypt,DecryptKeyOrFile} | -%%% {refresh_logs,LogDir} | {basic_html,Bool} | -%%% {ct_hooks, CTHs} +%%% {refresh_logs,LogDir} | {logopts,LogOpts} | {basic_html,Bool} | +%%% {ct_hooks, CTHs} | {enable_builtin_hooks,Bool} %%% TestDirs = [string()] | string() -%%% Suites = [string()] | string() +%%% Suites = [string()] | [atom()] | string() | atom() %%% Cases = [atom()] | atom() %%% Groups = [atom()] | atom() %%% TestSpecs = [string()] | string() @@ -177,6 +177,8 @@ run(TestDirs) -> %%% DecryptKeyOrFile = {key,DecryptKey} | {file,DecryptFile} %%% DecryptKey = string() %%% DecryptFile = string() +%%% LogOpts = [LogOpt] +%%% LogOpt = no_nl | no_src %%% CTHs = [CTHModule | {CTHModule, CTHInitArgs}] %%% CTHModule = atom() %%% CTHInitArgs = term() diff --git a/lib/common_test/src/ct_config.erl b/lib/common_test/src/ct_config.erl index 6b75937668..fc51aea7f3 100644 --- a/lib/common_test/src/ct_config.erl +++ b/lib/common_test/src/ct_config.erl @@ -204,9 +204,9 @@ get_config_file_list(Opts) -> DefaultConfigs = process_default_configs(Opts), CfgFiles = if - DefaultConfigs == []-> + DefaultConfigs == [] -> []; - true-> + true -> [{?ct_config_txt, DefaultConfigs}] end ++ process_user_configs(Opts, []), @@ -240,12 +240,12 @@ read_config_files(Opts) -> end, ConfigFiles = case lists:keyfind(config, 1, Opts) of - {config,ConfigLists}-> + {config,ConfigLists} -> lists:foldr(fun({Callback,Files}, Acc) -> AddCallback(Callback,Files) ++ Acc end,[],ConfigLists); - false-> + false -> [] end, read_config_files_int(ConfigFiles, fun store_config/3). @@ -255,7 +255,9 @@ read_config_files_int([{Callback, File}|Files], FunToSave) -> {ok, Config} -> FunToSave(Config, Callback, File), read_config_files_int(Files, FunToSave); - {error, ErrorName, ErrorDetail}-> + {error, {ErrorName, ErrorDetail}} -> + {user_error, {ErrorName, File, ErrorDetail}}; + {error, ErrorName, ErrorDetail} -> {user_error, {ErrorName, File, ErrorDetail}} end; read_config_files_int([], _FunToSave) -> @@ -283,7 +285,7 @@ rewrite_config(Config, Callback, File) -> config=File,_='_'}), Updater = fun({Key, Value}) -> case keyfindall(Key, #ct_conf.key, OldRows) of - []-> + [] -> ets:insert(?attr_table, #ct_conf{key=Key, value=Value, @@ -453,9 +455,9 @@ update_conf(Name, NewConfig) -> reload_conf(KeyOrName) -> case lookup_handler_for_config(KeyOrName) of - []-> + [] -> undefined; - HandlerList-> + HandlerList -> HandlerList2 = lists:usort(HandlerList), read_config_files_int(HandlerList2, fun rewrite_config/3), get_config(KeyOrName) @@ -711,13 +713,13 @@ random_bytes_1(N, Acc) -> random_bytes_1(N-1, [random:uniform(255)|Acc]). check_callback_load(Callback) -> case code:is_loaded(Callback) of - {file, _Filename}-> + {file, _Filename} -> check_exports(Callback); - false-> + false -> case code:load_file(Callback) of - {module, Callback}-> + {module, Callback} -> check_exports(Callback); - {error, Error}-> + {error, Error} -> {error, Error} end end. @@ -745,14 +747,14 @@ check_config_files(Configs) -> end, Files) end; - {error, Why}-> + {error, Why} -> {error, {callback, {Callback,Why}}} end; ({Callback, []}) -> case check_callback_load(Callback) of - {ok, Callback}-> + {ok, Callback} -> Callback:check_parameter([]); - {error, Why}-> + {error, Why} -> {error, {callback, {Callback,Why}}} end end, @@ -773,15 +775,15 @@ prepare_user_configs([], Acc, _) -> prepare_config_list(Args) -> ConfigFiles = case lists:keysearch(ct_config, 1, Args) of - {value,{ct_config,Files}}-> + {value,{ct_config,Files}} -> [{?ct_config_txt,[filename:absname(F) || F <- Files]}]; - false-> + false -> [] end, UserConfigs = case lists:keysearch(userconfig, 1, Args) of - {value,{userconfig,UserConfigFiles}}-> + {value,{userconfig,UserConfigFiles}} -> prepare_user_configs(UserConfigFiles, [], new); - false-> + false -> [] end, ConfigFiles ++ UserConfigs. diff --git a/lib/common_test/src/ct_config_plain.erl b/lib/common_test/src/ct_config_plain.erl index 3fbc8af9fb..6698332379 100644 --- a/lib/common_test/src/ct_config_plain.erl +++ b/lib/common_test/src/ct_config_plain.erl @@ -29,7 +29,7 @@ read_config(ConfigFile) -> {ok,Config} -> {ok, Config}; {error,enoent} -> - {error, config_file_error, enoent}; + {error,{config_file_error,file:format_error(enoent)}}; {error,Reason} -> Key = case application:get_env(common_test, decrypt) of @@ -45,23 +45,27 @@ read_config(ConfigFile) -> end, case Key of {error,no_crypt_file} -> - {error, config_file_error, Reason}; + {error,{config_file_error, + lists:flatten( + io_lib:format("~s",[file:format_error(Reason)]))}}; {error,CryptError} -> - {error, decrypt_file_error, CryptError}; + {error,{decrypt_file_error,CryptError}}; _ when is_list(Key) -> - case ct_config:decrypt_config_file(ConfigFile, undefined, {key,Key}) of + case ct_config:decrypt_config_file(ConfigFile, + undefined, + {key,Key}) of {ok,CfgBin} -> case read_config_terms(CfgBin) of {error,ReadFail} -> - {error, config_file_error, ReadFail}; + {error,{config_file_error,ReadFail}}; Config -> - {ok, Config} + {ok,Config} end; {error,DecryptFail} -> - {error, decrypt_config_error, DecryptFail} + {error,{decrypt_config_error,DecryptFail}} end; _ -> - {error, bad_decrypt_key, Key} + {error,{bad_decrypt_key,Key}} end end. @@ -69,9 +73,9 @@ read_config(ConfigFile) -> check_parameter(File)-> case filelib:is_file(File) of true-> - {ok, {file, File}}; + {ok,{file,File}}; false-> - {error, {nofile, File}} + {error,{nofile,File}} end. read_config_terms(Bin) when is_binary(Bin) -> diff --git a/lib/common_test/src/ct_config_xml.erl b/lib/common_test/src/ct_config_xml.erl index 8a6e75e635..794174e663 100644 --- a/lib/common_test/src/ct_config_xml.erl +++ b/lib/common_test/src/ct_config_xml.erl @@ -27,30 +27,30 @@ % read config file read_config(ConfigFile) -> case catch do_read_xml_config(ConfigFile) of - {ok, Config}-> - {ok, Config}; - {error, Error, ErroneousString}-> - {error, Error, ErroneousString} + {ok,Config} -> + {ok,Config}; + Error = {error,_} -> + Error end. % check file exists -check_parameter(File)-> +check_parameter(File) -> case filelib:is_file(File) of - true-> - {ok, {file, File}}; - false-> - {error, {nofile, File}} + true -> + {ok,{file,File}}; + false -> + {error,{nofile,File}} end. % actual reading of the config -do_read_xml_config(ConfigFile)-> +do_read_xml_config(ConfigFile) -> case catch xmerl_sax_parser:file(ConfigFile, - [{event_fun, fun event/3}, - {event_state, []}]) of - {ok, EntityList, _}-> - {ok, lists:reverse(transform_entity_list(EntityList))}; - Oops-> - {error, parsing_failed, Oops} + [{event_fun,fun event/3}, + {event_state,[]}]) of + {ok,EntityList,_} -> + {ok,lists:reverse(transform_entity_list(EntityList))}; + Oops -> + {error,{parsing_failed,Oops}} end. % event callback for xmerl_sax_parser @@ -92,18 +92,18 @@ tag(_El, State) -> State. % transform of the ugly deeply nested entity list to the key-value "tree" -transform_entity_list(EntityList)-> +transform_entity_list(EntityList) -> lists:map(fun transform_entity/1, EntityList). % transform entity from {list(), list()} to {atom(), term()} transform_entity({Tag, [Value|Rest]}) when - is_tuple(Value)-> + is_tuple(Value) -> {list_to_atom(Tag), transform_entity_list(lists:reverse([Value|Rest]))}; -transform_entity({Tag, String})-> +transform_entity({Tag, String}) -> case list_to_term(String) of - {ok, Value}-> + {ok, Value} -> {list_to_atom(Tag), Value}; - Error-> + Error -> throw(Error) end. @@ -111,8 +111,8 @@ transform_entity({Tag, String})-> list_to_term(String) -> {ok, T, _} = erl_scan:string(String++"."), case catch erl_parse:parse_term(T) of - {ok, Term} -> - {ok, Term}; + {ok,Term} -> + {ok,Term}; Error -> - {error, Error, String} + {error,{Error,String}} end. diff --git a/lib/common_test/src/ct_framework.erl b/lib/common_test/src/ct_framework.erl index 9e597edf38..482c5242ce 100644 --- a/lib/common_test/src/ct_framework.erl +++ b/lib/common_test/src/ct_framework.erl @@ -24,10 +24,10 @@ -module(ct_framework). --export([init_tc/3, end_tc/3, end_tc/4, get_suite/2, report/2, warn/1]). --export([error_notification/4]). +-export([init_tc/3, end_tc/3, end_tc/4, get_suite/2, get_all_cases/1]). +-export([report/2, warn/1, error_notification/4]). --export([overview_html_header/1]). +-export([get_logopts/0, format_comment/1, overview_html_header/1]). -export([error_in_suite/1, ct_init_per_group/2, ct_end_per_group/2]). @@ -116,7 +116,7 @@ init_tc1(Mod,Func,[Config0],DoInit) when is_list(Config0) -> Config = lists:keydelete(watchdog,1,Config1), if Func /= init_per_suite, DoInit /= true -> ok; - true -> + true -> %% delete all default values used in previous suite ct_config:delete_default_config(suite), %% release all name -> key bindings (once per suite) @@ -133,7 +133,7 @@ init_tc1(Mod,Func,[Config0],DoInit) when is_list(Config0) -> ct_config:delete_default_config(testcase), case add_defaults(Mod,Func,TestCaseInfo,DoInit) of Error = {suite0_failed,_} -> - ct_logs:init_tc(), + ct_logs:init_tc(false), FuncSpec = group_or_func(Func,Config0), ct_event:notify(#event{name=tc_start, node=node(), @@ -143,7 +143,7 @@ init_tc1(Mod,Func,[Config0],DoInit) when is_list(Config0) -> {SuiteInfo,MergeResult} -> case MergeResult of {error,Reason} when DoInit == false -> - ct_logs:init_tc(), + ct_logs:init_tc(false), FuncSpec = group_or_func(Func,Config0), ct_event:notify(#event{name=tc_start, node=node(), @@ -194,19 +194,24 @@ init_tc2(Mod,Func,SuiteInfo,MergeResult,Config,DoInit) -> Conns -> ct_util:silence_connections(Conns) end, - - ct_logs:init_tc(), + if Func /= init_per_suite, DoInit /= true -> + ct_logs:init_tc(false); + true -> + ct_logs:init_tc(true) + end, FuncSpec = group_or_func(Func,Config), ct_event:notify(#event{name=tc_start, node=node(), data={Mod,FuncSpec}}), - case configure(MergedInfo1,MergedInfo1,SuiteInfo,{Func,DoInit},Config) of + case catch configure(MergedInfo1,MergedInfo1,SuiteInfo,{Func,DoInit},Config) of {suite0_failed,Reason} -> ct_util:set_testdata({curr_tc,{Mod,{suite0_failed,{require,Reason}}}}), {skip,{require_failed_in_suite0,Reason}}; {error,Reason} -> {auto_skip,{require_failed,Reason}}; + {'EXIT',Reason} -> + {auto_skip,Reason}; {ok, FinalConfig} -> case MergeResult of {error,Reason} -> @@ -245,7 +250,12 @@ add_defaults(Mod,Func,FuncInfo,DoInit) -> Error = {error,_} -> {SuiteInfo,Error}; MergedInfo -> {SuiteInfo,MergedInfo} end; - {'EXIT',Reason} -> + {'EXIT',Reason} -> + ErrStr = io_lib:format("~n*** ERROR *** " + "~w:suite/0 failed: ~p~n", + [Mod,Reason]), + io:format(ErrStr, []), + io:format(user, ErrStr, []), {suite0_failed,{exited,Reason}}; SuiteInfo when is_list(SuiteInfo) -> case lists:all(fun(E) when is_tuple(E) -> true; @@ -261,9 +271,19 @@ add_defaults(Mod,Func,FuncInfo,DoInit) -> MergedInfo -> {SuiteInfo1,MergedInfo} end; false -> + ErrStr = io_lib:format("~n*** ERROR *** " + "Invalid return value from " + "~w:suite/0: ~p~n", [Mod,SuiteInfo]), + io:format(ErrStr, []), + io:format(user, ErrStr, []), {suite0_failed,bad_return_value} end; - _ -> + SuiteInfo -> + ErrStr = io_lib:format("~n*** ERROR *** " + "Invalid return value from " + "~w:suite/0: ~p~n", [Mod,SuiteInfo]), + io:format(ErrStr, []), + io:format(user, ErrStr, []), {suite0_failed,bad_return_value} end. @@ -437,7 +457,7 @@ try_set_default(Name,Key,Info,Where) -> %%% @doc Test server framework callback, called by the test_server %%% when a test case is finished. end_tc(Mod, Fun, Args) -> - %% Have to keep end_tc/3 for backwards compatabilty issues + %% Have to keep end_tc/3 for backwards compatibility issues end_tc(Mod, Fun, Args, '$end_tc_dummy'). end_tc(?MODULE,error_in_suite,_, _) -> % bad start! ok; @@ -451,7 +471,6 @@ end_tc(Mod,Func,TCPid,Result,Args,Return) -> {value,{watchdog,Dog}} -> test_server:timetrap_cancel(Dog); false -> ok end, - %% save the testcase process pid so that it can be used %% to look up the attached trace window later case ct_util:get_testdata(interpret) of @@ -461,7 +480,6 @@ end_tc(Mod,Func,TCPid,Result,Args,Return) -> _ -> ok end, - ct_util:delete_testdata(comment), ct_util:delete_suite_data(last_saved_config), FuncSpec = @@ -767,6 +785,37 @@ get_suite(Mod, Name) -> %%%----------------------------------------------------------------- +get_all_cases(Suite) -> + case get_suite(Suite, all) of + [{?MODULE,error_in_suite,[[{error,_}=Error]]}] -> + Error; + [{?MODULE,error_in_suite,[[Error]]}] -> + {error,Error}; + Tests -> + Cases = get_all_cases1(Suite, Tests), + lists:reverse( + lists:foldl(fun(TC, TCs) -> + case lists:member(TC, TCs) of + true -> TCs; + false -> [TC | TCs] + end + end, [], Cases)) + end. + +get_all_cases1(Suite, [{conf,_Props,_Init,GrTests,_End} | Tests]) -> + get_all_cases1(Suite, GrTests) ++ get_all_cases1(Suite, Tests); + +get_all_cases1(Suite, [Test | Tests]) when is_atom(Test) -> + [{Suite,Test} | get_all_cases1(Suite, Tests)]; + +get_all_cases1(Suite, [Test | Tests]) -> + [Test | get_all_cases1(Suite, Tests)]; + +get_all_cases1(_, []) -> + []. + +%%%----------------------------------------------------------------- + find_groups(Mod, Name, TCs, GroupDefs) -> Found = find(Mod, Name, TCs, GroupDefs, [], GroupDefs, false), trim(Found). @@ -978,15 +1027,20 @@ make_conf(Mod, Name, Props, TestSpec) -> _ -> ok end, - {InitConf,EndConf} = + {InitConf,EndConf,ExtraProps} = case erlang:function_exported(Mod,init_per_group,2) of true -> - {{Mod,init_per_group},{Mod,end_per_group}}; + {{Mod,init_per_group},{Mod,end_per_group},[]}; false -> + ct_logs:log("TEST INFO", "init_per_group/2 and " + "end_per_group/2 missing for group " + "~p in ~p, using default.", + [Name,Mod]), {{?MODULE,ct_init_per_group}, - {?MODULE,ct_end_per_group}} + {?MODULE,ct_end_per_group}, + [{suite,Mod}]} end, - {conf,[{name,Name}|Props],InitConf,TestSpec,EndConf}. + {conf,[{name,Name}|Props++ExtraProps],InitConf,TestSpec,EndConf}. %%%----------------------------------------------------------------- @@ -1159,13 +1213,15 @@ error_in_suite(Config) -> %% if the group config functions are missing in the suite, %% use these instead ct_init_per_group(GroupName, Config) -> - ct_logs:log("WARNING", "init_per_group/2 for ~w missing " + ct:comment(io_lib:format("start of ~p", [GroupName])), + ct_logs:log("TEST INFO", "init_per_group/2 for ~w missing " "in suite, using default.", [GroupName]), Config. ct_end_per_group(GroupName, _) -> - ct_logs:log("WARNING", "end_per_group/2 for ~w missing " + ct:comment(io_lib:format("end of ~p", [GroupName])), + ct_logs:log("TEST INFO", "end_per_group/2 for ~w missing " "in suite, using default.", [GroupName]), ok. @@ -1242,12 +1298,20 @@ report(What,Data) -> ok; {end_per_group,_} -> ok; + {ct_init_per_group,_} -> + ok; + {ct_end_per_group,_} -> + ok; {_,ok} -> add_to_stats(ok); {_,{skipped,{failed,{_,init_per_testcase,_}}}} -> add_to_stats(auto_skipped); {_,{skipped,{require_failed,_}}} -> add_to_stats(auto_skipped); + {_,{skipped,{timetrap_error,_}}} -> + add_to_stats(auto_skipped); + {_,{skipped,{invalid_time_format,_}}} -> + add_to_stats(auto_skipped); {_,{skipped,_}} -> add_to_stats(user_skipped); {_,{SkipOrFail,_Reason}} -> @@ -1332,6 +1396,21 @@ add_data_dir(File,Config) when is_list(File) -> end. %%%----------------------------------------------------------------- +%%% @spec get_logopts() -> [LogOpt] +get_logopts() -> + case ct_util:get_testdata(logopts) of + undefined -> + []; + LogOpts -> + LogOpts + end. + +%%%----------------------------------------------------------------- +%%% @spec format_comment(Comment) -> HtmlComment +format_comment(Comment) -> + "<font color=\"green\">" ++ Comment ++ "</font>". + +%%%----------------------------------------------------------------- %%% @spec overview_html_header(TestName) -> Header overview_html_header(TestName) -> TestName1 = lists:flatten(io_lib:format("~p", [TestName])), diff --git a/lib/common_test/src/ct_hooks.erl b/lib/common_test/src/ct_hooks.erl index d5b585a831..ffafc582cf 100644 --- a/lib/common_test/src/ct_hooks.erl +++ b/lib/common_test/src/ct_hooks.erl @@ -34,6 +34,12 @@ %% If you change this, remember to update ct_util:look -> stop clause as well. -define(config_name, ct_hooks). +%% All of the hooks which are to be started by default. Remove by issuing +%% -enable_builtin_hooks false to when starting common test. +-define(BUILTIN_HOOKS,[#ct_hook_config{ module = cth_log_redirect, + opts = [], + prio = ctfirst }]). + -record(ct_hook_config, {id, module, prio, scope, opts = [], state = []}). %% ------------------------------------------------------------------------- @@ -44,7 +50,8 @@ -spec init(State :: term()) -> ok | {error, Reason :: term()}. init(Opts) -> - call(get_new_hooks(Opts, undefined), ok, init, []). + call(get_new_hooks(Opts, undefined) ++ get_builtin_hooks(Opts), + ok, init, []). %% @doc Called after all suites are done. @@ -283,6 +290,14 @@ get_new_hooks(Config) when is_list(Config) -> get_new_hooks(_Config) -> []. +get_builtin_hooks(Opts) -> + case proplists:get_value(enable_builtin_hooks,Opts) of + false -> + []; + _Else -> + [{HookConf, call_id, undefined} || HookConf <- ?BUILTIN_HOOKS] + end. + save_suite_data_async(Hooks) -> ct_util:save_suite_data_async(?config_name, Hooks). @@ -290,7 +305,7 @@ get_hooks() -> lists:keysort(#ct_hook_config.prio,ct_util:read_suite_data(?config_name)). %% Sort all calls in this order: -%% call_id < call_init < Hook Priority 1 < .. < Hook Priority N +%% call_id < call_init < ctfirst < Priority 1 < .. < Priority N < ctlast %% If Hook Priority is equal, check when it has been installed and %% sort on that instead. resort(Calls, Hooks) -> @@ -311,6 +326,14 @@ resort(Calls, Hooks) -> %% If priorities are equal, we check the position in the %% hooks list pos(Id1,Hooks) < pos(Id2,Hooks); + P1 == ctfirst -> + true; + P2 == ctfirst -> + false; + P1 == ctlast -> + false; + P2 == ctlast -> + true; true -> P1 < P2 end diff --git a/lib/common_test/src/ct_logs.erl b/lib/common_test/src/ct_logs.erl index b839521e24..c1523509a5 100644 --- a/lib/common_test/src/ct_logs.erl +++ b/lib/common_test/src/ct_logs.erl @@ -28,7 +28,7 @@ -module(ct_logs). --export([init/1,close/1,init_tc/0,end_tc/1]). +-export([init/1,close/2,init_tc/1,end_tc/1]). -export([get_log_dir/0,log/3,start_log/1,cont_log/2,end_log/0]). -export([set_stylesheet/2,clear_stylesheet/1]). -export([add_external_logs/1,add_link/3]). @@ -36,7 +36,7 @@ -export([make_all_suites_index/1,make_all_runs_index/1]). %% Logging stuff directly from testcase --export([tc_log/3,tc_print/3,tc_pal/3, +-export([tc_log/3,tc_print/3,tc_pal/3,ct_log/3, basic_html/0]). %% Simulate logger process for use without ct environment running @@ -97,11 +97,11 @@ logdir_node_prefix() -> logdir_prefix()++"."++atom_to_list(node()). %%%----------------------------------------------------------------- -%%% @spec close(Info) -> ok +%%% @spec close(Info, StartDir) -> ok %%% %%% @doc Create index pages with test results and close the CT Log %%% (tool-internal use only). -close(Info) -> +close(Info, StartDir) -> make_last_run_index(), ct_event:notify(#event{name=stop_logging,node=node(),data=[]}), @@ -124,14 +124,29 @@ close(Info) -> ok; Error -> io:format("Warning! Cleanup failed: ~p~n", [Error]) - end; + end, + make_all_suites_index(stop), + make_all_runs_index(stop); true -> - file:set_cwd("..") - end, - - make_all_suites_index(stop), - make_all_runs_index(stop), - + file:set_cwd(".."), + make_all_suites_index(stop), + make_all_runs_index(stop), + case ct_util:get_profile_data(browser, StartDir) of + undefined -> + ok; + BrowserData -> + case {proplists:get_value(prog, BrowserData), + proplists:get_value(args, BrowserData), + proplists:get_value(page, BrowserData)} of + {Prog,Args,Page} when is_list(Args), + is_list(Page) -> + URL = "\"file://" ++ ?abs(Page) ++ "\"", + ct_util:open_url(Prog, Args, URL); + _ -> + ok + end + end + end, ok. %%%----------------------------------------------------------------- @@ -182,15 +197,14 @@ cast(Msg) -> ?MODULE ! Msg end. - %%%----------------------------------------------------------------- -%%% @spec init_tc() -> ok +%%% @spec init_tc(RefreshLog) -> ok %%% %%% @doc Test case initiation (tool-internal use only). %%% %%% <p>This function is called by ct_framework:init_tc/3</p> -init_tc() -> - call({init_tc,self(),group_leader()}), +init_tc(RefreshLog) -> + call({init_tc,self(),group_leader(),RefreshLog}), ok. %%%----------------------------------------------------------------- @@ -360,6 +374,23 @@ tc_pal(Category,Format,Args) -> ok. +%%%----------------------------------------------------------------- +%%% @spec tc_pal(Category,Format,Args) -> ok +%%% Category = atom() +%%% Format = string() +%%% Args = list() +%%% +%%% @doc Print and log to the ct framework log +%%% +%%% <p>This function is called by internal ct functions to +%%% force logging to the ct framework log</p> +ct_log(Category,Format,Args) -> + cast({ct_log,[{div_header(Category),[]}, + {Format,Args}, + {div_footer(),[]}]}), + ok. + + %%%================================================================= %%% Internal functions int_header() -> @@ -469,8 +500,8 @@ logger_loop(State) -> [Str,Args]), %% stop the testcase, we need %% to see the fault - exit(Pid,logging_failed), - ok; + exit(Pid,{log_printout_error,Str,Args}), + []; IoStr when IoList == [] -> [IoStr]; IoStr -> @@ -490,10 +521,15 @@ logger_loop(State) -> [begin io:format(Fd,Str,Args),io:nl(Fd) end || {Str,Args} <- List], logger_loop(State#logger_state{tc_groupleaders=TCGLs}) end; - {{init_tc,TCPid,GL},From} -> + {{init_tc,TCPid,GL,RefreshLog},From} -> print_style(GL, State#logger_state.stylesheet), set_evmgr_gl(GL), TCGLs = add_tc_gl(TCPid,GL,State), + if not RefreshLog -> + ok; + true -> + make_last_run_index(State#logger_state.start_time) + end, return(From,ok), logger_loop(State#logger_state{tc_groupleaders=TCGLs}); {{end_tc,TCPid},From} -> @@ -516,7 +552,12 @@ logger_loop(State) -> {clear_stylesheet,_} when State#logger_state.stylesheet == undefined -> logger_loop(State); {clear_stylesheet,_} -> - logger_loop(State#logger_state{stylesheet=undefined}); + logger_loop(State#logger_state{stylesheet=undefined}); + {ct_log, List} -> + Fd = State#logger_state.ct_log_fd, + [begin io:format(Fd,Str,Args),io:nl(Fd) end || + {Str,Args} <- List], + logger_loop(State); stop -> io:format(State#logger_state.ct_log_fd, int_header()++int_footer(), @@ -819,6 +860,7 @@ make_one_index_entry1(SuiteName, Link, Label, Success, Fail, UserSkip, AutoSkip, "" end end, + CtRunDir = filename:dirname(filename:dirname(Link)), {Lbl,Timestamp,Node,AllInfo} = case All of {true,OldRuns} -> @@ -828,7 +870,6 @@ make_one_index_entry1(SuiteName, Link, Label, Success, Fail, UserSkip, AutoSkip, _ -> NodeOrDate end, N = ["<TD ALIGN=right><FONT SIZE=-1>",Node1,"</FONT></TD>\n"], - CtRunDir = filename:dirname(filename:dirname(Link)), L = ["<TD ALIGN=center><FONT SIZE=-1><B>",Label,"</FONT></B></TD>\n"], T = ["<TD><FONT SIZE=-1>",timestamp(CtRunDir),"</FONT></TD>\n"], CtLogFile = filename:join(CtRunDir,?ct_log_name), @@ -847,7 +888,7 @@ make_one_index_entry1(SuiteName, Link, Label, Success, Fail, UserSkip, AutoSkip, if NotBuilt == 0 -> ["<TD ALIGN=right>",integer_to_list(NotBuilt),"</TD>\n"]; true -> - ["<TD ALIGN=right><A HREF=\"",?ct_log_name,"\">", + ["<TD ALIGN=right><A HREF=\"",filename:join(CtRunDir,?ct_log_name),"\">", integer_to_list(NotBuilt),"</A></TD>\n"] end, FailStr = diff --git a/lib/common_test/src/ct_make.erl b/lib/common_test/src/ct_make.erl index 233e45248e..40e9e99f37 100644 --- a/lib/common_test/src/ct_make.erl +++ b/lib/common_test/src/ct_make.erl @@ -177,7 +177,7 @@ members([],_MakefileMods,I,Rest) -> {I,Rest}. -%% Any flags that are not recognixed as make flags are passed directly +%% Any flags that are not recognised as make flags are passed directly %% to the compiler. %% So for example make:all([load,debug_info]) will make everything %% with the debug_info flag and load it. diff --git a/lib/common_test/src/ct_run.erl b/lib/common_test/src/ct_run.erl index 877ec9c7dd..0a9bb5af67 100644 --- a/lib/common_test/src/ct_run.erl +++ b/lib/common_test/src/ct_run.erl @@ -33,7 +33,7 @@ %% Exported for VTS --export([run_make/3,do_run/3,tests/1,tests/2,tests/3]). +-export([run_make/3,do_run/4,tests/1,tests/2,tests/3]). %% Misc internal functions @@ -46,15 +46,18 @@ -define(testdir(Name, Suite), ct_util:get_testdir(Name, Suite)). -record(opts, {label, + profile, vts, shell, cover, coverspec, step, logdir, + logopts = [], config = [], event_handlers = [], ct_hooks = [], + enable_builtin_hooks = true, include = [], silent_connections, stylesheet, @@ -156,15 +159,19 @@ script_start(Args) -> end, stop_trace(Tracing), timer:sleep(1000), + io:nl(), Res. script_start1(Parent, Args) -> %% read general start flags Label = get_start_opt(label, fun([Lbl]) -> Lbl end, Args), + Profile = get_start_opt(profile, fun([Prof]) -> Prof end, Args), Vts = get_start_opt(vts, true, Args), Shell = get_start_opt(shell, true, Args), Cover = get_start_opt(cover, fun([CoverFile]) -> ?abs(CoverFile) end, Args), LogDir = get_start_opt(logdir, fun([LogD]) -> LogD end, Args), + LogOpts = get_start_opt(logopts, fun(Os) -> [list_to_atom(O) || O <- Os] end, + [], Args), MultTT = get_start_opt(multiply_timetraps, fun([MT]) -> list_to_integer(MT) end, 1, Args), ScaleTT = get_start_opt(scale_timetraps, @@ -173,6 +180,10 @@ script_start1(Parent, Args) -> end, false, Args), EvHandlers = event_handler_args2opts(Args), CTHooks = ct_hooks_args2opts(Args), + EnableBuiltinHooks = get_start_opt(enable_builtin_hooks, + fun([CT]) -> list_to_atom(CT); + ([]) -> true + end, true, Args), %% check flags and set corresponding application env variables @@ -234,9 +245,12 @@ script_start1(Parent, Args) -> application:set_env(common_test, basic_html, true) end, - StartOpts = #opts{label = Label, vts = Vts, shell = Shell, cover = Cover, - logdir = LogDir, event_handlers = EvHandlers, + StartOpts = #opts{label = Label, profile = Profile, + vts = Vts, shell = Shell, cover = Cover, + logdir = LogDir, logopts = LogOpts, + event_handlers = EvHandlers, ct_hooks = CTHooks, + enable_builtin_hooks = EnableBuiltinHooks, include = IncludeDirs, silent_connections = SilentConns, stylesheet = Stylesheet, @@ -297,9 +311,15 @@ script_start2(StartOpts = #opts{vts = undefined, Label = choose_val(StartOpts#opts.label, SpecStartOpts#opts.label), + Profile = choose_val(StartOpts#opts.profile, + SpecStartOpts#opts.profile), + LogDir = choose_val(StartOpts#opts.logdir, SpecStartOpts#opts.logdir), + AllLogOpts = merge_vals([StartOpts#opts.logopts, + SpecStartOpts#opts.logopts]), + Cover = choose_val(StartOpts#opts.cover, SpecStartOpts#opts.cover), MultTT = choose_val(StartOpts#opts.multiply_timetraps, @@ -311,18 +331,27 @@ script_start2(StartOpts = #opts{vts = undefined, AllCTHooks = merge_vals( [StartOpts#opts.ct_hooks, SpecStartOpts#opts.ct_hooks]), + + EnableBuiltinHooks = + choose_val( + StartOpts#opts.enable_builtin_hooks, + SpecStartOpts#opts.enable_builtin_hooks), AllInclude = merge_vals([StartOpts#opts.include, SpecStartOpts#opts.include]), application:set_env(common_test, include, AllInclude), {TS,StartOpts#opts{label = Label, + profile = Profile, testspecs = Specs, cover = Cover, logdir = LogDir, + logopts = AllLogOpts, config = SpecStartOpts#opts.config, event_handlers = AllEvHs, ct_hooks = AllCTHooks, + enable_builtin_hooks = + EnableBuiltinHooks, include = AllInclude, multiply_timetraps = MultTT, scale_timetraps = ScaleTT}} @@ -339,9 +368,7 @@ script_start2(StartOpts = #opts{vts = undefined, {[],_} -> {error,no_testspec_specified}; {undefined,_} -> % no testspec used - case check_and_install_configfiles(InitConfig, TheLogDir, - Opts#opts.event_handlers, - Opts#opts.ct_hooks) of + case check_and_install_configfiles(InitConfig, TheLogDir, Opts) of ok -> % go on read tests from start flags script_start3(Opts#opts{config=InitConfig, logdir=TheLogDir}, Args); @@ -351,9 +378,7 @@ script_start2(StartOpts = #opts{vts = undefined, {_,_} -> % testspec used %% merge config from start flags with config from testspec AllConfig = merge_vals([InitConfig, Opts#opts.config]), - case check_and_install_configfiles(AllConfig, TheLogDir, - Opts#opts.event_handlers, - Opts#opts.ct_hooks) of + case check_and_install_configfiles(AllConfig, TheLogDir, Opts) of ok -> % read tests from spec {Run,Skip} = ct_testspec:prepare_tests(Terms, node()), do_run(Run, Skip, Opts#opts{config=AllConfig, @@ -367,9 +392,7 @@ script_start2(StartOpts, Args) -> %% read config/userconfig from start flags InitConfig = ct_config:prepare_config_list(Args), LogDir = which(logdir, StartOpts#opts.logdir), - case check_and_install_configfiles(InitConfig, LogDir, - StartOpts#opts.event_handlers, - StartOpts#opts.ct_hooks) of + case check_and_install_configfiles(InitConfig, LogDir, StartOpts) of ok -> % go on read tests from start flags script_start3(StartOpts#opts{config=InitConfig, logdir=LogDir}, Args); @@ -377,12 +400,17 @@ script_start2(StartOpts, Args) -> Error end. -check_and_install_configfiles(Configs, LogDir, EvHandlers, CTHooks) -> +check_and_install_configfiles( + Configs, LogDir, #opts{ + event_handlers = EvHandlers, + ct_hooks = CTHooks, + enable_builtin_hooks = EnableBuiltinHooks} ) -> case ct_config:check_config_files(Configs) of false -> install([{config,Configs}, {event_handler,EvHandlers}, - {ct_hooks,CTHooks}], LogDir); + {ct_hooks,CTHooks}, + {enable_builtin_hooks,EnableBuiltinHooks}], LogDir); {value,{error,{nofile,File}}} -> {error,{cant_read_config_file,File}}; {value,{error,{wrong_config,Message}}}-> @@ -392,50 +420,72 @@ check_and_install_configfiles(Configs, LogDir, EvHandlers, CTHooks) -> end. script_start3(StartOpts, Args) -> - case proplists:get_value(dir, Args) of - [] -> + StartOpts1 = get_start_opt(step, + fun(Step) -> + StartOpts#opts{step = Step, + cover = undefined} + end, StartOpts, Args), + case {proplists:get_value(dir, Args), + proplists:get_value(suite, Args), + groups_and_cases(proplists:get_value(group, Args), + proplists:get_value(testcase, Args))} of + %% flag specified without data + {_,_,Error={error,_}} -> + Error; + {_,[],_} -> + {error,no_suite_specified}; + {[],_,_} -> {error,no_dir_specified}; - Dirs when is_list(Dirs) -> + + {Dirs,undefined,[]} when is_list(Dirs) -> script_start4(StartOpts#opts{tests = tests(Dirs)}, Args); - undefined -> - case proplists:get_value(suite, Args) of - [] -> - {error,no_suite_specified}; - Suites when is_list(Suites) -> - StartOpts1 = - get_start_opt(step, - fun(Step) -> - StartOpts#opts{step = Step, - cover = undefined} - end, StartOpts, Args), - DirMods = [suite_to_test(S) || S <- Suites], - case groups_and_cases(proplists:get_value(group, Args), - proplists:get_value(testcase, Args)) of - Error = {error,_} -> - Error; - [] when DirMods =/= [] -> - Ts = tests(DirMods), - script_start4(StartOpts1#opts{tests = Ts}, Args); - GroupsAndCases when length(DirMods) == 1 -> - Ts = tests(DirMods, GroupsAndCases), - script_start4(StartOpts1#opts{tests = Ts}, Args); - [_,_|_] when length(DirMods) > 1 -> - {error,multiple_suites_and_cases}; - _ -> - {error,incorrect_suite_option} - end; - undefined -> - if StartOpts#opts.vts ; StartOpts#opts.shell -> - script_start4(StartOpts#opts{tests = []}, Args); - true -> - script_usage(), - {error,incorrect_usage} - end + + {undefined,Suites,[]} when is_list(Suites) -> + Ts = tests([suite_to_test(S) || S <- Suites]), + script_start4(StartOpts1#opts{tests = Ts}, Args); + + {undefined,Suite,GsAndCs} when is_list(Suite) -> + case [suite_to_test(S) || S <- Suite] of + DirMods = [_] -> + Ts = tests(DirMods, GsAndCs), + script_start4(StartOpts1#opts{tests = Ts}, Args); + [_,_|_] -> + {error,multiple_suites_and_cases}; + _ -> + {error,incorrect_start_options} + end; + + {[_,_|_],Suite,[]} when is_list(Suite) -> + {error,multiple_dirs_and_suites}; + + {[Dir],Suite,GsAndCs} when is_list(Dir), is_list(Suite) -> + case [suite_to_test(Dir,S) || S <- Suite] of + DirMods when GsAndCs == [] -> + Ts = tests(DirMods), + script_start4(StartOpts1#opts{tests = Ts}, Args); + DirMods = [_] when GsAndCs /= [] -> + Ts = tests(DirMods, GsAndCs), + script_start4(StartOpts1#opts{tests = Ts}, Args); + [_,_|_] when GsAndCs /= [] -> + {error,multiple_suites_and_cases}; + _ -> + {error,incorrect_start_options} + end; + + {undefined,undefined,GsAndCs} when GsAndCs /= [] -> + {error,incorrect_start_options}; + + {undefined,undefined,_} -> + if StartOpts#opts.vts ; StartOpts#opts.shell -> + script_start4(StartOpts#opts{tests = []}, Args); + true -> + script_usage(), + {error,missing_start_options} end end. script_start4(#opts{vts = true, config = Config, event_handlers = EvHandlers, - tests = Tests, logdir = LogDir}, _Args) -> + tests = Tests, logdir = LogDir, logopts = LogOpts}, _Args) -> ConfigFiles = lists:foldl(fun({ct_config_plain,CfgFiles}, AllFiles) when is_list(hd(CfgFiles)) -> @@ -446,25 +496,32 @@ script_start4(#opts{vts = true, config = Config, event_handlers = EvHandlers, (_, AllFiles) -> AllFiles end, [], Config), - vts:init_data(ConfigFiles, EvHandlers, ?abs(LogDir), Tests); + vts:init_data(ConfigFiles, EvHandlers, ?abs(LogDir), LogOpts, Tests); -script_start4(#opts{label = Label, shell = true, config = Config, +script_start4(#opts{label = Label, profile = Profile, + shell = true, config = Config, event_handlers = EvHandlers, ct_hooks = CTHooks, + logopts = LogOpts, + enable_builtin_hooks = EnableBuiltinHooks, logdir = LogDir, testspecs = Specs}, _Args) -> %% label - used by ct_logs application:set_env(common_test, test_label, Label), - InstallOpts = [{config,Config},{event_handler,EvHandlers}, - {ct_hooks, CTHooks}], + %% profile - used in ct_util + application:set_env(common_test, profile, Profile), + if Config == [] -> ok; true -> io:format("\nInstalling: ~p\n\n", [Config]) end, - case install(InstallOpts) of + case install([{config,Config},{event_handler,EvHandlers}, + {ct_hooks, CTHooks}, + {enable_builtin_hooks,EnableBuiltinHooks}]) of ok -> ct_util:start(interactive, LogDir), + ct_util:set_testdata({logopts, LogOpts}), log_ts_names(Specs), io:nl(), ok; @@ -505,6 +562,7 @@ script_usage() -> "\n\t[-decrypt_key Key] | [-decrypt_file KeyFile]" "\n\t[-dir TestDir1 TestDir2 .. TestDirN] |" "\n\t[-suite Suite [-case Case]]" + "\n\t[-logopts LogOpt1 LogOpt2 .. LogOptN]" "\n\t[-include InclDir1 InclDir2 .. InclDirN]" "\n\t[-no_auto_compile]" "\n\t[-multiply_timetraps N]" @@ -521,8 +579,9 @@ script_usage() -> "\n\t[-silent_connections [ConnType1 ConnType2 .. ConnTypeN]]" "\n\t[-stylesheet CSSFile]" "\n\t[-cover CoverCfgFile]" - "\n\t[-event_handler EvHandler1 and EvHandler2 .. EvHandlerN]" - "\n\t[-ct_hooks CTHook1 and CTHook2 .. CTHookN]" + "\n\t[-event_handler EvHandler1 EvHandler2 .. EvHandlerN]" + "\n\t[-logopts LogOpt1 LogOpt2 .. LogOptN]" + "\n\t[-ct_hooks CTHook1 CTHook2 .. CTHookN]" "\n\t[-include InclDir1 InclDir2 .. InclDirN]" "\n\t[-no_auto_compile]" "\n\t[-multiply_timetraps N]" @@ -540,8 +599,9 @@ script_usage() -> "\n\t[-silent_connections [ConnType1 ConnType2 .. ConnTypeN]]" "\n\t[-stylesheet CSSFile]" "\n\t[-cover CoverCfgFile]" - "\n\t[-event_handler EvHandler1 and EvHandler2 .. EvHandlerN]" - "\n\t[-ct_hooks CTHook1 and CTHook2 .. CTHookN]" + "\n\t[-event_handler EvHandler1 EvHandler2 .. EvHandlerN]" + "\n\t[-logopts LogOpt1 LogOpt2 .. LogOptN]" + "\n\t[-ct_hooks CTHook1 CTHook2 .. CTHookN]" "\n\t[-include InclDir1 InclDir2 .. InclDirN]" "\n\t[-no_auto_compile]" "\n\t[-multiply_timetraps N]" @@ -619,6 +679,16 @@ run_test(StartOpt) when is_tuple(StartOpt) -> run_test([StartOpt]); run_test(StartOpts) when is_list(StartOpts) -> + CTPid = spawn(fun() -> run_test1(StartOpts) end), + Ref = monitor(process, CTPid), + receive + {'DOWN',Ref,process,CTPid,{user_error,Error}} -> + Error; + {'DOWN',Ref,process,CTPid,Other} -> + Other + end. + +run_test1(StartOpts) when is_list(StartOpts) -> case proplists:get_value(refresh_logs, StartOpts) of undefined -> Tracing = start_trace(StartOpts), @@ -627,7 +697,7 @@ run_test(StartOpts) when is_list(StartOpts) -> Res = case ct_repeat:loop_test(func, StartOpts) of false -> - case catch run_test1(StartOpts) of + case catch run_test2(StartOpts) of {'EXIT',Reason} -> file:set_cwd(Cwd), {error,Reason}; @@ -638,20 +708,27 @@ run_test(StartOpts) when is_list(StartOpts) -> Result end, stop_trace(Tracing), - Res; + exit(Res); RefreshDir -> refresh_logs(?abs(RefreshDir)), - ok + exit(done) end. -run_test1(StartOpts) -> +run_test2(StartOpts) -> %% label Label = get_start_opt(label, fun(Lbl) when is_list(Lbl) -> Lbl; (Lbl) when is_atom(Lbl) -> atom_to_list(Lbl) end, StartOpts), + %% profile + Profile = get_start_opt(profile, fun(Prof) when is_list(Prof) -> Prof; + (Prof) when is_atom(Prof) -> atom_to_list(Prof) + end, StartOpts), %% logdir LogDir = get_start_opt(logdir, fun(LD) when is_list(LD) -> LD end, StartOpts), + %% logopts + LogOpts = get_start_opt(logopts, value, [], StartOpts), + %% config & userconfig CfgFiles = ct_config:get_config_file_list(StartOpts), @@ -682,6 +759,11 @@ run_test1(StartOpts) -> %% CT Hooks CTHooks = get_start_opt(ct_hooks, value, [], StartOpts), + EnableBuiltinHooks = get_start_opt(enable_builtin_hooks, + fun(EBH) when EBH == true; + EBH == false -> + EBH + end, true, StartOpts), %% silent connections SilentConns = get_start_opt(silent_connections, @@ -750,10 +832,12 @@ run_test1(StartOpts) -> %% stepped execution Step = get_start_opt(step, value, StartOpts), - Opts = #opts{label = Label, - cover = Cover, step = Step, logdir = LogDir, config = CfgFiles, + Opts = #opts{label = Label, profile = Profile, + cover = Cover, step = Step, logdir = LogDir, + logopts = LogOpts, config = CfgFiles, event_handlers = EvHandlers, ct_hooks = CTHooks, + enable_builtin_hooks = EnableBuiltinHooks, include = Include, silent_connections = SilentConns, stylesheet = Stylesheet, @@ -792,8 +876,12 @@ run_spec_file(Relaxed, SpecOpts = get_data_for_node(TS, node()), Label = choose_val(Opts#opts.label, SpecOpts#opts.label), + Profile = choose_val(Opts#opts.profile, + SpecOpts#opts.profile), LogDir = choose_val(Opts#opts.logdir, SpecOpts#opts.logdir), + AllLogOpts = merge_vals([Opts#opts.logopts, + SpecOpts#opts.logopts]), AllConfig = merge_vals([CfgFiles, SpecOpts#opts.config]), Cover = choose_val(Opts#opts.cover, SpecOpts#opts.cover), @@ -808,24 +896,29 @@ run_spec_file(Relaxed, AllCTHooks = merge_vals([Opts#opts.ct_hooks, SpecOpts#opts.ct_hooks]), + EnableBuiltinHooks = choose_val(Opts#opts.enable_builtin_hooks, + SpecOpts#opts.enable_builtin_hooks), application:set_env(common_test, include, AllInclude), - case check_and_install_configfiles(AllConfig, - which(logdir,LogDir), - AllEvHs, - AllCTHooks) of + Opts1 = Opts#opts{label = Label, + profile = Profile, + cover = Cover, + logdir = which(logdir, LogDir), + logopts = AllLogOpts, + config = AllConfig, + event_handlers = AllEvHs, + include = AllInclude, + testspecs = AbsSpecs, + multiply_timetraps = MultTT, + scale_timetraps = ScaleTT, + ct_hooks = AllCTHooks, + enable_builtin_hooks = EnableBuiltinHooks + }, + + case check_and_install_configfiles(AllConfig,Opts1#opts.logdir, + Opts1) of ok -> - Opts1 = Opts#opts{label = Label, - cover = Cover, - logdir = which(logdir, LogDir), - config = AllConfig, - event_handlers = AllEvHs, - include = AllInclude, - testspecs = AbsSpecs, - multiply_timetraps = MultTT, - scale_timetraps = ScaleTT, - ct_hooks = AllCTHooks}, {Run,Skip} = ct_testspec:prepare_tests(TS, node()), reformat_result(catch do_run(Run, Skip, Opts1, StartOpts)); {error,GCFReason} -> @@ -834,13 +927,10 @@ run_spec_file(Relaxed, end. run_prepared(Run, Skip, Opts = #opts{logdir = LogDir, - config = CfgFiles, - event_handlers = EvHandlers, - ct_hooks = CTHooks}, + config = CfgFiles }, StartOpts) -> LogDir1 = which(logdir, LogDir), - case check_and_install_configfiles(CfgFiles, LogDir1, - EvHandlers, CTHooks) of + case check_and_install_configfiles(CfgFiles, LogDir1, Opts) of ok -> reformat_result(catch do_run(Run, Skip, Opts#opts{logdir = LogDir1}, StartOpts)); @@ -872,7 +962,8 @@ check_config_file(Callback, File)-> run_dir(Opts = #opts{logdir = LogDir, config = CfgFiles, event_handlers = EvHandlers, - ct_hooks = CTHook }, StartOpts) -> + ct_hooks = CTHook, + enable_builtin_hooks = EnableBuiltinHooks }, StartOpts) -> LogDir1 = which(logdir, LogDir), Opts1 = Opts#opts{logdir = LogDir1}, AbsCfgFiles = @@ -895,71 +986,107 @@ run_dir(Opts = #opts{logdir = LogDir, end, CfgFiles), case install([{config,AbsCfgFiles}, {event_handler,EvHandlers}, - {ct_hooks, CTHook}], LogDir1) of + {ct_hooks, CTHook}, + {enable_builtin_hooks,EnableBuiltinHooks}], LogDir1) of ok -> ok; {error,IReason} -> exit(IReason) end, - case lists:keysearch(dir, 1, StartOpts) of - {value,{_,Dirs=[Dir|_]}} when not is_integer(Dir), - length(Dirs)>1 -> - %% multiple dirs (no suite) - reformat_result(catch do_run(tests(Dirs), [], Opts1, StartOpts)); - false -> % no dir - %% fun for converting suite name to {Dir,Mod} tuple - S2M = fun(S) when is_list(S) -> - {filename:dirname(S), - list_to_atom(filename:rootname(filename:basename(S)))}; - (A) -> - {".",A} - end, - case lists:keysearch(suite, 1, StartOpts) of - {value,{_,Suite}} when is_integer(hd(Suite)) ; is_atom(Suite) -> - {Dir,Mod} = S2M(Suite), - case groups_and_cases(proplists:get_value(group, StartOpts), - proplists:get_value(testcase, StartOpts)) of - Error = {error,_} -> - exit(Error); + case {proplists:get_value(dir, StartOpts), + proplists:get_value(suite, StartOpts), + groups_and_cases(proplists:get_value(group, StartOpts), + proplists:get_value(testcase, StartOpts))} of + %% flag specified without data + {_,_,Error={error,_}} -> + Error; + {_,[],_} -> + {error,no_suite_specified}; + {[],_,_} -> + {error,no_dir_specified}; + + {Dirs=[Hd|_],undefined,[]} when is_list(Dirs), not is_integer(Hd) -> + Dirs1 = [if is_atom(D) -> atom_to_list(D); + true -> D end || D <- Dirs], + reformat_result(catch do_run(tests(Dirs1), [], Opts1, StartOpts)); + + {Dir=[Hd|_],undefined,[]} when is_list(Dir) and is_integer(Hd) -> + reformat_result(catch do_run(tests(Dir), [], Opts1, StartOpts)); + + {Dir,undefined,[]} when is_atom(Dir) and (Dir /= undefined) -> + reformat_result(catch do_run(tests(atom_to_list(Dir)), + [], Opts1, StartOpts)); + + {undefined,Suites=[Hd|_],[]} when not is_integer(Hd) -> + Suites1 = [suite_to_test(S) || S <- Suites], + reformat_result(catch do_run(tests(Suites1), [], Opts1, StartOpts)); + + {undefined,Suite,[]} when is_atom(Suite) and + (Suite /= undefined) -> + {Dir,Mod} = suite_to_test(Suite), + reformat_result(catch do_run(tests(Dir, Mod), [], Opts1, StartOpts)); + + {undefined,Suite,GsAndCs} when is_atom(Suite) and + (Suite /= undefined) -> + {Dir,Mod} = suite_to_test(Suite), + reformat_result(catch do_run(tests(Dir, Mod, GsAndCs), + [], Opts1, StartOpts)); + + {undefined,[Hd,_|_],_GsAndCs} when not is_integer(Hd) -> + exit(multiple_suites_and_cases); + + {undefined,Suite=[Hd|Tl],GsAndCs} when is_integer(Hd) ; + (is_list(Hd) and (Tl == [])) ; + (is_atom(Hd) and (Tl == [])) -> + {Dir,Mod} = suite_to_test(Suite), + reformat_result(catch do_run(tests(Dir, Mod, GsAndCs), + [], Opts1, StartOpts)); + + {[Hd,_|_],_Suites,[]} when is_list(Hd) ; not is_integer(Hd) -> + exit(multiple_dirs_and_suites); + + {undefined,undefined,GsAndCs} when GsAndCs /= [] -> + exit(incorrect_start_options); + + {Dir,Suite,GsAndCs} when is_integer(hd(Dir)) ; + (is_atom(Dir) and (Dir /= undefined)) ; + ((length(Dir) == 1) and is_atom(hd(Dir))) ; + ((length(Dir) == 1) and is_list(hd(Dir))) -> + Dir1 = if is_atom(Dir) -> atom_to_list(Dir); + true -> Dir end, + if Suite == undefined -> + exit(incorrect_start_options); + + is_integer(hd(Suite)) ; + (is_atom(Suite) and (Suite /= undefined)) ; + ((length(Suite) == 1) and is_atom(hd(Suite))) ; + ((length(Suite) == 1) and is_list(hd(Suite))) -> + {Dir2,Mod} = suite_to_test(Dir1, Suite), + case GsAndCs of [] -> - reformat_result(catch do_run(tests(Dir, listify(Mod)), + reformat_result(catch do_run(tests(Dir2, Mod), [], Opts1, StartOpts)); - GsAndCs -> - reformat_result(catch do_run(tests(Dir, Mod, GsAndCs), + _ -> + reformat_result(catch do_run(tests(Dir2, Mod, GsAndCs), [], Opts1, StartOpts)) end; - {value,{_,Suites}} -> - reformat_result(catch do_run(tests(lists:map(S2M, Suites)), - [], Opts1, StartOpts)); - _ -> - exit(no_tests_specified) - end; - {value,{_,Dir}} -> - case lists:keysearch(suite, 1, StartOpts) of - {value,{_,Suite}} when is_integer(hd(Suite)) ; is_atom(Suite) -> - Mod = if is_atom(Suite) -> Suite; - true -> list_to_atom(Suite) - end, - case groups_and_cases(proplists:get_value(group, StartOpts), - proplists:get_value(testcase, StartOpts)) of - Error = {error,_} -> - exit(Error); - [] -> - reformat_result(catch do_run(tests(Dir, listify(Mod)), + + is_list(Suite) -> % multiple suites + case [suite_to_test(Dir1, S) || S <- Suite] of + [_,_|_] when GsAndCs /= [] -> + exit(multiple_suites_and_cases); + [{Dir2,Mod}] when GsAndCs /= [] -> + reformat_result(catch do_run(tests(Dir2, Mod, GsAndCs), [], Opts1, StartOpts)); - GsAndCs -> - reformat_result(catch do_run(tests(Dir, Mod, GsAndCs), + DirMods -> + reformat_result(catch do_run(tests(DirMods), [], Opts1, StartOpts)) - end; - {value,{_,Suites=[Suite|_]}} when is_list(Suite) -> - Mods = lists:map(fun(Str) -> list_to_atom(Str) end, Suites), - reformat_result(catch do_run(tests(delistify(Dir), Mods), - [], Opts1, StartOpts)); - {value,{_,Suites}} -> - reformat_result(catch do_run(tests(delistify(Dir), Suites), - [], Opts1, StartOpts)); - false -> % no suite, only dir - reformat_result(catch do_run(tests(listify(Dir)), - [], Opts1, StartOpts)) - end + end + end; + + {undefined,undefined,[]} -> + exit(no_test_specified); + + {Dir,Suite,GsAndCs} -> + exit({incorrect_start_options,{Dir,Suite,GsAndCs}}) end. %%%----------------------------------------------------------------- @@ -970,19 +1097,38 @@ run_dir(Opts = #opts{logdir = LogDir, %%% the same as those used in test specification files. %%% @equiv ct:run_testspec/1 %%%----------------------------------------------------------------- - run_testspec(TestSpec) -> + CTPid = spawn(fun() -> run_testspec1(TestSpec) end), + Ref = monitor(process, CTPid), + receive + {'DOWN',Ref,process,CTPid,{user_error,Error}} -> + Error; + {'DOWN',Ref,process,CTPid,Other} -> + Other + end. + +run_testspec1(TestSpec) -> {ok,Cwd} = file:get_cwd(), io:format("~nCommon Test starting (cwd is ~s)~n~n", [Cwd]), - case catch run_testspec1(TestSpec) of + case catch run_testspec2(TestSpec) of {'EXIT',Reason} -> file:set_cwd(Cwd), - {error,Reason}; + exit({error,Reason}); Result -> - Result + exit(Result) end. -run_testspec1(TestSpec) -> +run_testspec2(File) when is_list(File), is_integer(hd(File)) -> + case file:read_file_info(File) of + {ok,_} -> + exit("Bad argument, " + "use ct:run_test([{spec," ++ File ++ "}])"); + _ -> + exit("Bad argument, list of tuples expected, " + "use ct:run_test/1 for test specification files") + end; + +run_testspec2(TestSpec) -> case catch ct_testspec:collect_tests_from_list(TestSpec, false) of {E,CTReason} when E == error ; E == 'EXIT' -> exit(CTReason); @@ -999,9 +1145,8 @@ run_testspec1(TestSpec) -> end, application:set_env(common_test, include, AllInclude), LogDir1 = which(logdir,Opts#opts.logdir), - case check_and_install_configfiles(Opts#opts.config, LogDir1, - Opts#opts.event_handlers, - Opts#opts.ct_hooks) of + case check_and_install_configfiles( + Opts#opts.config, LogDir1, Opts) of ok -> Opts1 = Opts#opts{testspecs = [], logdir = LogDir1, @@ -1014,20 +1159,28 @@ run_testspec1(TestSpec) -> end. get_data_for_node(#testspec{label = Labels, + profile = Profiles, logdir = LogDirs, + logopts = LogOptsList, cover = CoverFs, config = Cfgs, userconfig = UsrCfgs, event_handler = EvHs, ct_hooks = CTHooks, + enable_builtin_hooks = EnableBuiltinHooks, include = Incl, multiply_timetraps = MTs, scale_timetraps = STs}, Node) -> Label = proplists:get_value(Node, Labels), + Profile = proplists:get_value(Node, Profiles), LogDir = case proplists:get_value(Node, LogDirs) of undefined -> "."; Dir -> Dir end, + LogOpts = case proplists:get_value(Node, LogOptsList) of + undefined -> []; + LOs -> LOs + end, Cover = proplists:get_value(Node, CoverFs), MT = proplists:get_value(Node, MTs), ST = proplists:get_value(Node, STs), @@ -1037,11 +1190,14 @@ get_data_for_node(#testspec{label = Labels, FiltCTHooks = [Hook || {N,Hook} <- CTHooks, N==Node], Include = [I || {N,I} <- Incl, N==Node], #opts{label = Label, + profile = Profile, logdir = LogDir, + logopts = LogOpts, cover = Cover, config = ConfigFiles, event_handlers = EvHandlers, ct_hooks = FiltCTHooks, + enable_builtin_hooks = EnableBuiltinHooks, include = Include, multiply_timetraps = MT, scale_timetraps = ST}. @@ -1118,8 +1274,24 @@ reformat_result({user_error,Reason}) -> reformat_result(Result) -> Result. -suite_to_test(Suite) -> - {filename:dirname(Suite),list_to_atom(filename:rootname(filename:basename(Suite)))}. +suite_to_test(Suite) when is_atom(Suite) -> + suite_to_test(atom_to_list(Suite)); + +suite_to_test(Suite) when is_list(Suite) -> + {filename:dirname(Suite), + list_to_atom(filename:rootname(filename:basename(Suite)))}. + +suite_to_test(Dir, Suite) when is_atom(Suite) -> + suite_to_test(Dir, atom_to_list(Suite)); + +suite_to_test(Dir, Suite) when is_list(Suite) -> + case filename:dirname(Suite) of + "." -> + {Dir,list_to_atom(filename:rootname(Suite))}; + DirName -> % ignore Dir + File = filename:basename(Suite), + {DirName,list_to_atom(filename:rootname(File))} + end. groups_and_cases(Gs, Cs) when ((Gs == undefined) or (Gs == [])) and ((Cs == undefined) or (Cs == [])) -> @@ -1153,9 +1325,11 @@ tests(TestDirs) when is_list(TestDirs), is_list(hd(TestDirs)) -> [{?testdir(TestDir,all),all,all} || TestDir <- TestDirs]. do_run(Tests, Misc) when is_list(Misc) -> - do_run(Tests, Misc, "."). + do_run(Tests, Misc, ".", []). -do_run(Tests, Misc, LogDir) when is_list(Misc) -> +do_run(Tests, Misc, LogDir, LogOpts) when is_list(Misc), + is_list(LogDir), + is_list(LogOpts) -> Opts = case proplists:get_value(step, Misc) of undefined -> @@ -1170,11 +1344,10 @@ do_run(Tests, Misc, LogDir) when is_list(Misc) -> CoverFile -> Opts#opts{cover = CoverFile} end, - do_run(Tests, [], Opts1#opts{logdir = LogDir}, []). - -do_run(Tests, Skip, Opts, Args) -> - #opts{label = Label, cover = Cover} = Opts, + do_run(Tests, [], Opts1#opts{logdir = LogDir}, []); +do_run(Tests, Skip, Opts, Args) when is_record(Opts, opts) -> + #opts{label = Label, profile = Profile, cover = Cover} = Opts, %% label - used by ct_logs TestLabel = if Label == undefined -> undefined; @@ -1184,6 +1357,15 @@ do_run(Tests, Skip, Opts, Args) -> end, application:set_env(common_test, test_label, TestLabel), + %% profile - used in ct_util + TestProfile = + if Profile == undefined -> undefined; + is_atom(Profile) -> atom_to_list(Profile); + is_list(Profile) -> Profile; + true -> undefined + end, + application:set_env(common_test, profile, TestProfile), + case code:which(test_server) of non_existing -> exit({error,no_path_to_test_server}); @@ -1218,6 +1400,8 @@ do_run(Tests, Skip, Opts, Args) -> _Pid -> %% save stylesheet info ct_util:set_testdata({stylesheet,Opts#opts.stylesheet}), + %% save logopts + ct_util:set_testdata({logopts,Opts#opts.logopts}), %% enable silent connections case Opts#opts.silent_connections of [] -> @@ -1985,7 +2169,14 @@ maybe_interpret1(Suite, Cases, StepOpts) when is_list(Cases) -> maybe_interpret2(Suite, Cases, StepOpts) -> set_break_on_config(Suite, StepOpts), - [i:ib(Suite, Case, 1) || Case <- Cases], + [begin try i:ib(Suite, Case, 1) of + _ -> ok + catch + _:_Error -> + io:format(user, "Invalid breakpoint: ~w:~w/1~n", + [Suite,Case]) + end + end || Case <- Cases, is_atom(Case)], test_server_ctrl:multiply_timetraps(infinity), WinOp = case lists:member(keep_inactive, ensure_atom(StepOpts)) of true -> no_kill; @@ -1998,10 +2189,18 @@ maybe_interpret2(Suite, Cases, StepOpts) -> set_break_on_config(Suite, StepOpts) -> case lists:member(config, ensure_atom(StepOpts)) of true -> - i:ib(Suite, init_per_suite, 1), - i:ib(Suite, init_per_testcase, 2), - i:ib(Suite, end_per_testcase, 2), - i:ib(Suite, end_per_suite, 1); + SetBPIfExists = fun(F,A) -> + case erlang:function_exported(Suite, F, A) of + true -> i:ib(Suite, F, A); + false -> ok + end + end, + SetBPIfExists(init_per_suite, 1), + SetBPIfExists(init_per_group, 2), + SetBPIfExists(init_per_testcase, 2), + SetBPIfExists(end_per_testcase, 2), + SetBPIfExists(end_per_group, 2), + SetBPIfExists(end_per_suite, 1); false -> ok end. @@ -2055,6 +2254,15 @@ get_start_opt(Key, IfExists, Args) -> get_start_opt(Key, IfExists, undefined, Args). get_start_opt(Key, IfExists, IfNotExists, Args) -> + try try_get_start_opt(Key, IfExists, IfNotExists, Args) of + Result -> + Result + catch + error:_ -> + exit({user_error,{bad_argument,Key}}) + end. + +try_get_start_opt(Key, IfExists, IfNotExists, Args) -> case lists:keysearch(Key, 1, Args) of {value,{Key,Val}} when is_function(IfExists) -> IfExists(Val); @@ -2067,8 +2275,11 @@ get_start_opt(Key, IfExists, IfNotExists, Args) -> end. ct_hooks_args2opts(Args) -> - ct_hooks_args2opts( - proplists:get_value(ct_hooks, Args, []),[]). + lists:foldl(fun({ct_hooks,Hooks}, Acc) -> + ct_hooks_args2opts(Hooks,Acc); + (_,Acc) -> + Acc + end,[],Args). ct_hooks_args2opts([CTH,Arg,Prio,"and"| Rest],Acc) -> ct_hooks_args2opts(Rest,[{list_to_atom(CTH), @@ -2226,6 +2437,8 @@ opts2args(EnvStartOpts) -> end, EHs), [_LastAnd|StrsR] = lists:reverse(lists:flatten(Strs)), [{event_handler_init,lists:reverse(StrsR)}]; + ({logopts,LOs}) when is_list(LOs) -> + [{logopts,[atom_to_list(LO) || LO <- LOs]}]; ({ct_hooks,[]}) -> []; ({ct_hooks,CTHs}) when is_list(CTHs) -> @@ -2289,32 +2502,31 @@ is_suite(ModOrFile) when is_list(ModOrFile) -> end. get_all_testcases(Suite) -> - %%! this needs to be updated to handle testcase groups later!! - case catch Suite:all() of - {'EXIT',Why} -> - {error,Why}; - {skip,_} -> - []; - Cases -> - AllCases = - lists:foldl(fun({sequence,SeqName}, All) -> - case catch Suite:sequences() of - {'EXIT',_} -> - All; - Seqs -> - case proplists:get_value(SeqName, Seqs) of - undefined -> - All; - SeqCases -> - lists:reverse(SeqCases) ++ All - end - end; - (Case,All) -> - [Case|All] - end, [], Cases), - lists:reverse(AllCases) + try ct_framework:get_all_cases(Suite) of + {error,_Reason} = Error -> + Error; + SuiteCases -> + Cases = [C || {_S,C} <- SuiteCases], + try Suite:sequences() of + [] -> + Cases; + Seqs -> + TCs1 = lists:flatten([TCs || {_,TCs} <- Seqs]), + lists:reverse( + lists:foldl(fun(TC, Acc) -> + case lists:member(TC, Acc) of + true -> Acc; + false -> [TC | Acc] + end + end, [], Cases ++ TCs1)) + catch + _:_ -> + Cases + end + catch + _:Error -> + {error,Error} end. - %% Internal tracing support. If {ct_trace,TraceSpec} is present, the %% TraceSpec file will be consulted and dbg used to trace function @@ -2335,8 +2547,8 @@ start_trace(Args) -> false end; {_,Error} -> - io:format("Warning! Tracing not started. Reason: ~p~n~n", - [Error]), + io:format("Warning! Tracing not started. Reason: ~s~n~n", + [file:format_error(Error)]), false end; false -> diff --git a/lib/common_test/src/ct_telnet.erl b/lib/common_test/src/ct_telnet.erl index c6f5fd7df4..71a784870c 100644 --- a/lib/common_test/src/ct_telnet.erl +++ b/lib/common_test/src/ct_telnet.erl @@ -245,7 +245,6 @@ cmdf(Connection,CmdFormat,Args) -> %%% Data = [string()] %%% @doc Send a telnet command and wait for prompt %%% (uses a format string and list of arguments to build the command). -%%%----------------------------------------------------------------- cmdf(Connection,CmdFormat,Args,Timeout) when is_list(Args) -> Cmd = lists:flatten(io_lib:format(CmdFormat,Args)), cmd(Connection,Cmd,Timeout). @@ -360,15 +359,15 @@ expect(Connection,Patterns) -> %%% will also be a <code>HaltReason</code> returned.</p> %%% %%% <p><underline>Examples:</underline><br/> -%%% <code>expect(Connection,[{abc,"ABC"},{xyz,"XYZ"}], -%%% [sequence,{halt,[{nnn,"NNN"}]}]).</code><br/> will try to match +%%% <code>expect(Connection,[{abc,"ABC"},{xyz,"XYZ"}],</code> +%%% <code>[sequence,{halt,[{nnn,"NNN"}]}]).</code><br/> will try to match %%% "ABC" first and then "XYZ", but if "NNN" appears the function will %%% return <code>{error,{nnn,["NNN"]}}</code>. If both "ABC" and "XYZ" %%% are matched, the function will return %%% <code>{ok,[AbcMatch,XyzMatch]}</code>.</p> %%% -%%% <p><code>expect(Connection,[{abc,"ABC"},{xyz,"XYZ"}], -%%% [{repeat,2},{halt,[{nnn,"NNN"}]}]).</code><br/> will try to match +%%% <p><code>expect(Connection,[{abc,"ABC"},{xyz,"XYZ"}],</code> +%%% <code>[{repeat,2},{halt,[{nnn,"NNN"}]}]).</code><br/> will try to match %%% "ABC" or "XYZ" twice. If "NNN" appears the function will return %%% with <code>HaltReason = {nnn,["NNN"]}</code>.</p> %%% diff --git a/lib/common_test/src/ct_testspec.erl b/lib/common_test/src/ct_testspec.erl index d845358bb2..317910d5c8 100644 --- a/lib/common_test/src/ct_testspec.erl +++ b/lib/common_test/src/ct_testspec.erl @@ -249,11 +249,15 @@ collect_tests_from_file1([Spec|Specs],TestSpec,Relaxed) -> SpecDir = filename:dirname(filename:absname(Spec)), case file:consult(Spec) of {ok,Terms} -> - TestSpec1 = collect_tests(Terms,TestSpec#testspec{spec_dir=SpecDir}, + TestSpec1 = collect_tests(Terms, + TestSpec#testspec{spec_dir=SpecDir}, Relaxed), collect_tests_from_file1(Specs,TestSpec1,Relaxed); {error,Reason} -> - throw({error,{Spec,Reason}}) + ReasonStr = + lists:flatten(io_lib:format("~s", + [file:format_error(Reason)])), + throw({error,{Spec,ReasonStr}}) end; collect_tests_from_file1([],TS=#testspec{config=Cfgs,event_handler=EvHs, include=Incl,tests=Tests},_) -> @@ -481,6 +485,26 @@ add_tests([{logdir,Node,Dir}|Ts],Spec) -> add_tests([{logdir,Dir}|Ts],Spec) -> add_tests([{logdir,all_nodes,Dir}|Ts],Spec); +%% --- logopts --- +add_tests([{logopts,all_nodes,Opts}|Ts],Spec) -> + LogOpts = Spec#testspec.logopts, + Tests = [{logopts,N,Opts} || + N <- list_nodes(Spec), + lists:keymember(ref2node(N,Spec#testspec.nodes),1, + LogOpts) == false], + add_tests(Tests++Ts,Spec); +add_tests([{logopts,Nodes,Opts}|Ts],Spec) when is_list(Nodes) -> + Ts1 = separate(Nodes,logopts,[Opts],Ts,Spec#testspec.nodes), + add_tests(Ts1,Spec); +add_tests([{logopts,Node,Opts}|Ts],Spec) -> + LogOpts = Spec#testspec.logopts, + LogOpts1 = [{ref2node(Node,Spec#testspec.nodes),Opts} | + lists:keydelete(ref2node(Node,Spec#testspec.nodes), + 1,LogOpts)], + add_tests(Ts,Spec#testspec{logopts=LogOpts1}); +add_tests([{logopts,Opts}|Ts],Spec) -> + add_tests([{logopts,all_nodes,Opts}|Ts],Spec); + %% --- label --- add_tests([{label,all_nodes,Lbl}|Ts],Spec) -> Labels = Spec#testspec.label, @@ -646,6 +670,10 @@ add_tests([{ct_hooks, _Node, []}|Ts], Spec) -> add_tests([{ct_hooks, Hooks}|Ts], Spec) -> add_tests([{ct_hooks, all_nodes, Hooks}|Ts], Spec); +%% -- enable_builtin_hooks -- +add_tests([{enable_builtin_hooks,Bool}|Ts],Spec) -> + add_tests(Ts, Spec#testspec{ enable_builtin_hooks = Bool }); + %% --- include --- add_tests([{include,all_nodes,InclDirs}|Ts],Spec) -> Tests = lists:map(fun(N) -> {include,N,InclDirs} end, list_nodes(Spec)), @@ -1097,6 +1125,8 @@ valid_terms() -> {merge_tests,1}, {logdir,2}, {logdir,3}, + {logopts,2}, + {logopts,3}, {label,2}, {label,3}, {event_handler,2}, @@ -1104,6 +1134,7 @@ valid_terms() -> {event_handler,4}, {ct_hooks,2}, {ct_hooks,3}, + {enable_builtin_hooks,1}, {multiply_timetraps,2}, {multiply_timetraps,3}, {scale_timetraps,2}, diff --git a/lib/common_test/src/ct_util.erl b/lib/common_test/src/ct_util.erl index b3e345b4e5..3b6ad6f98d 100644 --- a/lib/common_test/src/ct_util.erl +++ b/lib/common_test/src/ct_util.erl @@ -47,7 +47,7 @@ -export([get_mode/0, create_table/3, read_opts/0]). --export([set_cwd/1, reset_cwd/0]). +-export([set_cwd/1, reset_cwd/0, get_start_dir/0]). -export([parse_table/1]). @@ -61,6 +61,9 @@ -export([warn_duplicates/1]). +-export([get_profile_data/0, get_profile_data/1, + get_profile_data/2, open_url/3]). + -include("ct_event.hrl"). -include("ct_util.hrl"). @@ -121,13 +124,15 @@ do_start(Parent,Mode,LogDir) -> ok -> ok; E -> exit(E) end, + DoExit = fun(Reason) -> file:set_cwd(StartDir), exit(Reason) end, Opts = case read_opts() of {ok,Opts1} -> Opts1; Error -> Parent ! {self(),Error}, - exit(Error) + DoExit(Error) end, + %% start an event manager (if not already started by master) case ct_event:start_link() of {error,{already_started,_}} -> @@ -140,16 +145,23 @@ do_start(Parent,Mode,LogDir) -> ct_event:add_handler([{vts,VtsPid}]) end end, + %% start ct_config server - ct_config:start(Mode), + try ct_config:start(Mode) of + _ -> ok + catch + _Class:CfgError -> + DoExit(CfgError) + end, + %% add user event handlers case lists:keysearch(event_handler,1,Opts) of {value,{_,Handlers}} -> Add = fun({H,Args}) -> case catch gen_event:add_handler(?CT_EVMGR_REF,H,Args) of ok -> ok; - {'EXIT',Why} -> exit(Why); - Other -> exit({event_handler,Other}) + {'EXIT',Why} -> DoExit(Why); + Other -> DoExit({event_handler,Other}) end end, case catch lists:foreach(Add,Handlers) of @@ -168,10 +180,15 @@ do_start(Parent,Mode,LogDir) -> data={StartTime, lists:flatten(TestLogDir)}}), %% Initialize ct_hooks - case catch ct_hooks:init(Opts) of + try ct_hooks:init(Opts) of ok -> Parent ! {self(),started}; - {_,CTHReason} -> + {fail,CTHReason} -> + ct_logs:tc_print('Suite Callback',CTHReason,[]), + self() ! {{stop,{self(),{user_error,CTHReason}}}, + {Parent,make_ref()}} + catch + _:CTHReason -> ct_logs:tc_print('Suite Callback',CTHReason,[]), self() ! {{stop,{self(),{user_error,CTHReason}}}, {Parent,make_ref()}} @@ -243,6 +260,9 @@ set_cwd(Dir) -> reset_cwd() -> call(reset_cwd). +get_start_dir() -> + call(get_start_dir). + loop(Mode,TestData,StartDir) -> receive {update_last_run_index,From} -> @@ -319,6 +339,9 @@ loop(Mode,TestData,StartDir) -> {reset_cwd,From} -> return(From,file:set_cwd(StartDir)), loop(From,TestData,StartDir); + {get_start_dir,From} -> + return(From,StartDir), + loop(From,TestData,StartDir); {{stop,Info},From} -> Time = calendar:local_time(), ct_event:sync_notify(#event{name=test_done, @@ -332,7 +355,7 @@ loop(Mode,TestData,StartDir) -> ets:delete(?conn_table), ets:delete(?board_table), ets:delete(?suite_table), - ct_logs:close(Info), + ct_logs:close(Info, StartDir), ct_event:stop(), ct_config:stop(), file:set_cwd(StartDir), @@ -727,6 +750,79 @@ warn_duplicates(Suites) -> lists:foreach(Warn, Suites), ok. +%%%----------------------------------------------------------------- +%%% @spec +%%% +%%% @doc +get_profile_data() -> + get_profile_data(all). + +get_profile_data(KeyOrStartDir) -> + if is_atom(KeyOrStartDir) -> + get_profile_data(KeyOrStartDir, get_start_dir()); + is_list(KeyOrStartDir) -> + get_profile_data(all, KeyOrStartDir) + end. + +get_profile_data(Key, StartDir) -> + Profile = case application:get_env(common_test, profile) of + {ok,undefined} -> default; + {ok,Prof} -> Prof; + _ -> default + end, + get_profile_data(Profile, Key, StartDir). + +get_profile_data(Profile, Key, StartDir) -> + File = case Profile of + default -> + ?ct_profile_file; + _ when is_list(Profile) -> + ?ct_profile_file ++ "." ++ Profile; + _ when is_atom(Profile) -> + ?ct_profile_file ++ "." ++ atom_to_list(Profile) + end, + FullNameWD = filename:join(StartDir, File), + {WhichFile,Result} = + case file:consult(FullNameWD) of + {error,enoent} -> + case init:get_argument(home) of + {ok,[[HomeDir]]} -> + FullNameHome = filename:join(HomeDir, File), + {FullNameHome,file:consult(FullNameHome)}; + _ -> + {File,{error,enoent}} + end; + Consulted -> + {FullNameWD,Consulted} + end, + case Result of + {error,enoent} when Profile /= default -> + io:format(user, "~nERROR! Missing profile file ~p~n", [File]), + undefined; + {error,enoent} when Profile == default -> + undefined; + {error,Reason} -> + io:format(user,"~nERROR! Error in profile file ~p: ~p~n", + [WhichFile,Reason]), + undefined; + {ok,Data} -> + Data1 = case Data of + [List] when is_list(List) -> + List; + _ when is_list(Data) -> + Data; + _ -> + io:format(user, + "~nERROR! Invalid profile data in ~p~n", + [WhichFile]), + [] + end, + if Key == all -> + Data1; + true -> + proplists:get_value(Key, Data) + end + end. %%%----------------------------------------------------------------- %%% Internal functions @@ -799,3 +895,28 @@ abs_name2([H|T],Acc) -> abs_name2(T,[H|Acc]); abs_name2([],Acc) -> filename:join(lists:reverse(Acc)). + +open_url(iexplore, Args, URL) -> + {ok,R} = win32reg:open([read]), + ok = win32reg:change_key(R,"applications\\iexplore.exe\\shell\\open\\command"), + case win32reg:values(R) of + {ok, Paths} -> + Path = proplists:get_value(default, Paths), + [Cmd | _] = string:tokens(Path, "%"), + Cmd1 = Cmd ++ " " ++ Args ++ " " ++ URL, + io:format(user, "~nOpening ~s with command:~n ~s~n", [URL,Cmd1]), + open_port({spawn,Cmd1}, []); + _ -> + io:format("~nNo path to iexplore.exe~n",[]) + end, + win32reg:close(R), + ok; + +open_url(Prog, Args, URL) -> + ProgStr = if is_atom(Prog) -> atom_to_list(Prog); + is_list(Prog) -> Prog + end, + Cmd = ProgStr ++ " " ++ Args ++ " " ++ URL, + io:format(user, "~nOpening ~s with command:~n ~s~n", [URL,Cmd]), + open_port({spawn,Cmd},[]), + ok. diff --git a/lib/common_test/src/ct_util.hrl b/lib/common_test/src/ct_util.hrl index 556f88c84d..bde832811a 100644 --- a/lib/common_test/src/ct_util.hrl +++ b/lib/common_test/src/ct_util.hrl @@ -31,12 +31,15 @@ nodes=[], init=[], label=[], + profile=[], logdir=["."], + logopts=[], cover=[], config=[], userconfig=[], event_handler=[], ct_hooks=[], + enable_builtin_hooks=true, include=[], multiply_timetraps=[], scale_timetraps=[], @@ -58,3 +61,5 @@ -define(missing_suites_info, "missing_suites.info"). -define(ct_config_txt, ct_config_plain). + +-define(ct_profile_file, ".common_test"). diff --git a/lib/common_test/src/cth_log_redirect.erl b/lib/common_test/src/cth_log_redirect.erl new file mode 100644 index 0000000000..14663b7738 --- /dev/null +++ b/lib/common_test/src/cth_log_redirect.erl @@ -0,0 +1,111 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 2011. 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(cth_log_redirect). + +%%% @doc Common Test Framework functions handling test specifications. +%%% +%%% <p>This module redirects sasl and error logger info to common test log.</p> +%%% @end + + +%% CTH Callbacks +-export([id/1, init/2, post_init_per_group/4, pre_end_per_group/3, + post_end_per_testcase/4]). + +%% Event handler Callbacks +-export([init/1, + handle_event/2, handle_call/2, handle_info/2, + terminate/2]). + +id(_Opts) -> + ?MODULE. + +init(?MODULE, _Opts) -> + error_logger:add_report_handler(?MODULE), + tc_log. + +post_init_per_group(Group, Config, Result, tc_log) -> + case lists:member(parallel,proplists:get_value( + tc_group_properties,Config,[])) of + true -> + {Result, {set_log_func(ct_log),Group}}; + false -> + {Result, tc_log} + end; +post_init_per_group(_Group, _Config, Result, State) -> + {Result, State}. + +post_end_per_testcase(_TC, _Config, Result, State) -> + %% Make sure that the event queue is flushed + %% before ending this test case. + gen_event:call(error_logger, ?MODULE, flush), + {Result, State}. + +pre_end_per_group(Group, Config, {ct_log, Group}) -> + {Config, set_log_func(tc_log)}; +pre_end_per_group(_Group, Config, State) -> + {Config, State}. + + +%% Copied and modified from sasl_report_tty_h.erl +init(_Type) -> + {ok, tc_log}. + +handle_event({_Type, GL, _Msg}, State) when node(GL) /= node() -> + {ok, State}; +handle_event(Event, LogFunc) -> + case lists:keyfind(sasl, 1, application:which_applications()) of + false -> + sasl_not_started; + _Else -> + {ok, ErrLogType} = application:get_env(sasl, errlog_type), + SReport = sasl_report:format_report(group_leader(), ErrLogType, + tag_event(Event)), + if is_list(SReport) -> + ct_logs:LogFunc(sasl, SReport, []); + true -> %% Report is an atom if no logging is to be done + ignore + end + end, + EReport = error_logger_tty_h:write_event( + tag_event(Event),io_lib), + if is_list(EReport) -> + ct_logs:LogFunc(error_logger, EReport, []); + true -> %% Report is an atom if no logging is to be done + ignore + end, + {ok, LogFunc}. + + +handle_info(_,State) -> {ok, State}. + +handle_call(flush,State) -> + {ok, ok, State}; +handle_call({set_logfunc,NewLogFunc},_) -> + {ok, NewLogFunc, NewLogFunc}; +handle_call(_Query, _State) -> {error, bad_query}. + +terminate(_Reason, _Type) -> + []. + +tag_event(Event) -> + {calendar:local_time(), Event}. + +set_log_func(Func) -> + gen_event:call(error_logger, ?MODULE, {set_logfunc, Func}). diff --git a/lib/common_test/src/vts.erl b/lib/common_test/src/vts.erl index f0bf090804..cc8a932887 100644 --- a/lib/common_test/src/vts.erl +++ b/lib/common_test/src/vts.erl @@ -20,7 +20,7 @@ -module(vts). -export([start/0, - init_data/4, + init_data/5, stop/0, report/2]). @@ -32,6 +32,7 @@ menu_frame/2, welcome_frame/2, config_frame/2, + browse_config_file/2, add_config_file/2, remove_config_file/2, run_frame/2, @@ -56,7 +57,7 @@ -record(state,{tests=[],config=[],event_handler=[],test_runner, running=0,reload_results=false,start_dir,current_log_dir, - total=0,ok=0,fail=0,skip=0,testruns=[]}). + logopts=[],total=0,ok=0,fail=0,skip=0,testruns=[]}). %%%----------------------------------------------------------------- @@ -65,8 +66,8 @@ start() -> webtool:start(), webtool:start_tools([],"app=vts"). -init_data(ConfigFiles,EvHandlers,LogDir,Tests) -> - call({init_data,ConfigFiles,EvHandlers,LogDir,Tests}). +init_data(ConfigFiles,EvHandlers,LogDir,LogOpts,Tests) -> + call({init_data,ConfigFiles,EvHandlers,LogDir,LogOpts,Tests}). stop() -> webtool:stop_tools([],"app=vts"), @@ -119,6 +120,8 @@ menu_frame(_Env,_Input) -> call(menu_frame). config_frame(_Env,_Input) -> call(config_frame). +browse_config_file(_Env,Input) -> + call({browse_config_file,Input}). add_config_file(_Env,Input) -> call({add_config_file,Input}). remove_config_file(_Env,Input) -> @@ -160,10 +163,11 @@ init(Parent) -> loop(State) -> receive - {{init_data,Config,EvHandlers,LogDir,Tests},From} -> + {{init_data,Config,EvHandlers,LogDir,LogOpts,Tests},From} -> %% ct:pal("State#state.current_log_dir=~p", [State#state.current_log_dir]), NewState = State#state{config=Config,event_handler=EvHandlers, - current_log_dir=LogDir,tests=Tests}, + current_log_dir=LogDir, + logopts=LogOpts,tests=Tests}, ct_install(NewState), return(From,ok), loop(NewState); @@ -182,6 +186,9 @@ loop(State) -> {config_frame,From} -> return(From,config_frame1(State)), loop(State); + {{browse_config_file,_Input},From} -> + return(From,ok), + loop(State); {{add_config_file,Input},From} -> {Return,State1} = add_config_file1(Input,State), ct_install(State1), @@ -241,10 +248,12 @@ loop(State) -> return(From,ok); {'EXIT',Pid,Reason} -> case State#state.test_runner of - Pid -> io:format("ERROR: test runner crashed: ~p\n",[Reason]); - _ -> ignore - end, - loop(State); + Pid -> + io:format("Test run error: ~p\n",[Reason]), + loop(State); + _ -> + loop(State) + end; {{test_info,_Type,_Data},From} -> return(From,ok), loop(State) @@ -270,10 +279,11 @@ return({To,Ref},Result) -> To ! {Ref, Result}. -run_test1(State=#state{tests=Tests,current_log_dir=LogDir}) -> +run_test1(State=#state{tests=Tests,current_log_dir=LogDir, + logopts=LogOpts}) -> Self=self(), RunTest = fun() -> - case ct_run:do_run(Tests,[],LogDir) of + case ct_run:do_run(Tests,[],LogDir,LogOpts) of {error,_Reason} -> aborted(); _ -> @@ -282,17 +292,18 @@ run_test1(State=#state{tests=Tests,current_log_dir=LogDir}) -> unlink(Self) end, Pid = spawn_link(RunTest), - Total = + {Total,Tests1} = receive {{test_info,start_info,{_,_,Cases}},From} -> return(From,ok), - Cases; + {Cases,Tests}; EXIT = {'EXIT',_,_} -> - self() ! EXIT + self() ! EXIT, + {0,[]} after 30000 -> - 0 + {0,[]} end, - State#state{test_runner=Pid,running=length(Tests), + State#state{test_runner=Pid,running=length(Tests1), total=Total,ok=0,fail=0,skip=0,testruns=[]}. @@ -356,22 +367,32 @@ config_frame1(State) -> config_body(State) -> Entry = [input("TYPE=file NAME=browse SIZE=40"), input("TYPE=hidden NAME=file")], + BrowseForm = + form( + "NAME=read_file_form METHOD=post ACTION=\"./browse_config_file\"", + table( + "BORDER=0", + [tr(td("1. Locate config file")), + tr(td(Entry))])), AddForm = form( - "NAME=read_file_form METHOD=post ACTION=\"./add_config_file\"", + "NAME=add_file_form METHOD=post ACTION=\"./add_config_file\"", table( "BORDER=0", - [tr( - [td(Entry), + [tr(td("2. Paste full config file name here")), + tr( + [td(input("TYPE=text NAME=file SIZE=40")), td("ALIGN=center", input("TYPE=submit onClick=\"file.value=browse.value;\"" " VALUE=\"Add\""))])])), + {Text,RemoveForm} = case State#state.config of [] -> - T = "To be able to run any tests, one or more configuration " - "files must be added. Enter the name of the configuration " - "file below and click the \"Add\" button.", + T = "Before running the tests, one or more configuration " + "files may be added. Locate the config file, copy its " + "full name, paste this into the text field below, then " + "click the \"Add\" button.", R = "", {T,R}; Files -> @@ -394,20 +415,24 @@ config_body(State) -> input("TYPE=submit VALUE=\"Remove\"")))])), {T,R} end, - + [h1("ALIGN=center","Config"), table( - "WIDTH=600 ALIGN=center CELLPADDING=5", + "WIDTH=450 ALIGN=center CELLPADDING=5", [tr(td(["BGCOLOR=",?INFO_BG_COLOR],Text)), - tr(td("ALIGN=center",AddForm)), - tr(td("ALIGN=center",RemoveForm))])]. - + tr(td("")), + tr(td("")), + tr(td("ALIGN=left",BrowseForm)), + tr(td("ALIGN=left",AddForm)), + tr(td("ALIGN=left",RemoveForm))])]. add_config_file1(Input,State) -> State1 = case get_input_data(Input,"file") of - "" -> State; - File -> State#state{config=[File|State#state.config]} + "" -> + State; + File -> + State#state{config=[File|State#state.config]} end, Return = config_frame1(State1), {Return,State1}. @@ -427,10 +452,17 @@ run_body(#state{running=Running}) when Running>0 -> [h1("ALIGN=center","Run Test"), p(["Test are ongoing: ",href("./result_frameset","Results")])]; run_body(State) -> - ConfigList = ul([li(File) || File <- State#state.config]), + ConfigList = + case State#state.config of + [] -> + ul(["none"]); + CfgFiles -> + ul([li(File) || File <- CfgFiles]) + end, ConfigFiles = [h3("Config Files"), ConfigList], - + {ok,CWD} = file:get_cwd(), + CurrWD = [h3("Current Working Directory"), ul(CWD)], AddDirForm = form( "NAME=add_dir_form METHOD=post ACTION=\"./add_test_dir\"", @@ -442,7 +474,6 @@ run_body(State) -> td("ALIGN=center", input("TYPE=submit onClick=\"dir.value=browse.value;\"" " VALUE=\"Add Test Dir\""))])])), - {LoadedTestsTable,Submit} = case create_testdir_entries(State#state.tests,1) of [] -> {"",""}; @@ -454,22 +485,20 @@ run_body(State) -> {table("CELLPADDING=5",[Heading,TestDirs]), submit_button()} end, - - %% It should be ok to have no config-file! Body = - %% case State#state.config of %% [] -> %% p("ALIGN=center", - %% href("./config_frame","Please select one or - %% more config files")); %% _ -> table( - "WIDTH=100%", - [tr(td(ConfigFiles)), + "WIDTH=450 ALIGN=center", + [tr(td("")), + tr(td("")), + tr(td(ConfigFiles)), + tr(td("")), + tr(td(CurrWD)), tr(td("")), tr(td(AddDirForm)), tr(td("")), tr(td(LoadedTestsTable)), - tr(td(Submit))]), - %% end, - + tr(td(Submit)) + ]), [h1("ALIGN=center","Run Test"), Body]. create_testdir_entries([{Dir,Suite,Case}|Tests],N) -> @@ -556,18 +585,17 @@ options([Element|Elements],Selected,N,Func) -> options([],_Selected,_N,_Func) -> []. -add_test_dir1(Input,State) -> +add_test_dir1(Input, State) -> State1 = case get_input_data(Input,"dir") of "" -> State; Dir0 -> Dir = case ct_util:is_test_dir(Dir0) of - true -> - Dir0; - false -> filename:join(Dir0,"test") + true -> Dir0; + false -> ct_util:get_testdir(Dir0, all) end, case filelib:is_dir(Dir) of - true -> + true -> Test = ct_run:tests(Dir), State#state{tests=State#state.tests++Test}; false -> @@ -577,8 +605,6 @@ add_test_dir1(Input,State) -> Return = run_frame1(State1), {Return,State1}. - - remove_test_dir1(Input,State) -> N = list_to_integer(get_input_data(Input,"dir")), State1 = State#state{tests=delete_test(N,State#state.tests)}, @@ -641,6 +667,9 @@ result_frameset2(State) -> "./redirect_to_result_log_frame"; {_Dir,0} -> filename:join(["/log_dir","index.html"]); + {_Dir,_} when State#state.testruns == [] -> + %% crash before first test + "./no_result_log_frame"; {_Dir,_} -> {_,CurrentLog} = hd(State#state.testruns), CurrentLog @@ -749,6 +778,8 @@ report1(tc_done,{_Suite,_Case,{skipped,_Reason}},State) -> State#state{skip=State#state.skip+1}; report1(tc_user_skip,{_Suite,_Case,_Reason},State) -> State#state{skip=State#state.skip+1}; +report1(tc_auto_skip,{_Suite,_Case,_Reason},State) -> + State#state{skip=State#state.skip+1}; report1(loginfo,_,State) -> State. @@ -850,6 +881,8 @@ h2(Text) -> ["<H2>",Text,"</H2>\n"]. h3(Text) -> ["<H3>",Text,"</H3>\n"]. +%%h4(Text) -> +%% ["<H4>",Text,"</H4>\n"]. font(Args,Text) -> ["<FONT ",Args,">\n",Text,"\n</FONT>\n"]. p(Text) -> diff --git a/lib/common_test/test/ct_error_SUITE.erl b/lib/common_test/test/ct_error_SUITE.erl index 836443009f..c1a455c6d8 100644 --- a/lib/common_test/test/ct_error_SUITE.erl +++ b/lib/common_test/test/ct_error_SUITE.erl @@ -60,7 +60,8 @@ suite() -> [{ct_hooks,[ts_install_cth]}]. all() -> [cfg_error, lib_error, no_compile, timetrap_end_conf, - timetrap_normal, timetrap_extended]. + timetrap_normal, timetrap_extended, timetrap_parallel, + timetrap_fun]. groups() -> []. @@ -228,6 +229,28 @@ timetrap_parallel(Config) when is_list(Config) -> ok = ct_test_support:verify_events(TestEvents, Events, Config). %%%----------------------------------------------------------------- +%%% +timetrap_fun(Config) when is_list(Config) -> + DataDir = ?config(data_dir, Config), + Join = fun(D, S) -> filename:join(D, "error/test/"++S) end, + Suites = [Join(DataDir, "timetrap_4_SUITE"), + Join(DataDir, "timetrap_5_SUITE"), + Join(DataDir, "timetrap_6_SUITE"), + Join(DataDir, "timetrap_7_SUITE")], + {Opts,ERPid} = setup([{suite,Suites}], Config), + ok = ct_test_support:run(Opts, Config), + Events = ct_test_support:get_events(ERPid, Config), + + ct_test_support:log_events(timetrap_fun, + reformat(Events, ?eh), + ?config(priv_dir, Config), + Opts), + + TestEvents = events_to_check(timetrap_fun), + ok = ct_test_support:verify_events(TestEvents, Events, Config). + + +%%%----------------------------------------------------------------- %%% HELP FUNCTIONS %%%----------------------------------------------------------------- @@ -260,7 +283,7 @@ test_events(cfg_error) -> [ {?eh,start_logging,{'DEF','RUNDIR'}}, {?eh,test_start,{'DEF',{'START_TIME','LOGDIR'}}}, - {?eh,start_info,{14,14,43}}, + {?eh,start_info,{14,14,45}}, {?eh,tc_start,{cfg_error_1_SUITE,init_per_suite}}, {?eh,tc_done, @@ -517,13 +540,18 @@ test_events(cfg_error) -> {test_server,my_apply,3}, {test_server,do_end_per_testcase,4}, {test_server,run_test_case_eval1,6}, - {test_server,run_test_case_eval,8}]}}}}}}, + {test_server,run_test_case_eval,9}]}}}}}}, {?eh,test_stats,{12,3,{0,18}}}, {?eh,tc_start,{cfg_error_9_SUITE,tc14}}, {?eh,tc_done, {cfg_error_9_SUITE,tc14,{failed,{error,tc14_should_be_failed}}}}, - {?eh,test_stats,{12,4,{0,18}}}, - + {?eh,tc_start,{cfg_error_9_SUITE,tc15}}, + {?eh,tc_done, + {cfg_error_9_SUITE,tc15,{failed,{error,this_error_must_show}}}}, + {?eh,tc_start,{cfg_error_9_SUITE,tc16}}, + {?eh,tc_done, + {cfg_error_9_SUITE,tc16,{failed,{error,this_error_must_show}}}}, + {?eh,test_stats,{12,6,{0,18}}}, {?eh,tc_start,{cfg_error_9_SUITE,end_per_suite}}, {?eh,tc_done,{cfg_error_9_SUITE,end_per_suite,ok}}, @@ -533,7 +561,7 @@ test_events(cfg_error) -> {?eh,tc_auto_skip,{cfg_error_10_SUITE,tc1, {failed,{cfg_error_10_SUITE,init_per_suite, {failed,fail_init_per_suite}}}}}, - {?eh,test_stats,{12,4,{0,19}}}, + {?eh,test_stats,{12,6,{0,19}}}, {?eh,tc_auto_skip,{cfg_error_10_SUITE,end_per_suite, {failed,{cfg_error_10_SUITE,init_per_suite, {failed,fail_init_per_suite}}}}}, @@ -542,40 +570,40 @@ test_events(cfg_error) -> {?eh,tc_start,{cfg_error_11_SUITE,tc1}}, {?eh,tc_done,{cfg_error_11_SUITE,tc1, {skipped,{config_name_already_in_use,[dummy0]}}}}, - {?eh,test_stats,{12,4,{1,19}}}, + {?eh,test_stats,{12,6,{1,19}}}, {?eh,tc_start,{cfg_error_11_SUITE,tc2}}, {?eh,tc_done,{cfg_error_11_SUITE,tc2,ok}}, - {?eh,test_stats,{13,4,{1,19}}}, + {?eh,test_stats,{13,6,{1,19}}}, {?eh,tc_start,{cfg_error_11_SUITE,end_per_suite}}, {?eh,tc_done,{cfg_error_11_SUITE,end_per_suite,ok}}, {?eh,tc_start,{cfg_error_12_SUITE,tc1}}, {?eh,tc_done,{cfg_error_12_SUITE,tc1,{failed,{timetrap_timeout,500}}}}, - {?eh,test_stats,{13,5,{1,19}}}, + {?eh,test_stats,{13,7,{1,19}}}, {?eh,tc_start,{cfg_error_12_SUITE,tc2}}, {?eh,tc_done,{cfg_error_12_SUITE,tc2,{failed, {cfg_error_12_SUITE,end_per_testcase, {timetrap_timeout,500}}}}}, - {?eh,test_stats,{14,5,{1,19}}}, + {?eh,test_stats,{14,7,{1,19}}}, {?eh,tc_start,{cfg_error_12_SUITE,tc3}}, {?eh,tc_done,{cfg_error_12_SUITE,tc3,ok}}, - {?eh,test_stats,{15,5,{1,19}}}, + {?eh,test_stats,{15,7,{1,19}}}, {?eh,tc_start,{cfg_error_12_SUITE,tc4}}, {?eh,tc_done,{cfg_error_12_SUITE,tc4,{failed, {cfg_error_12_SUITE,end_per_testcase, {timetrap_timeout,500}}}}}, - {?eh,test_stats,{16,5,{1,19}}}, + {?eh,test_stats,{16,7,{1,19}}}, {?eh,tc_start,{cfg_error_13_SUITE,init_per_suite}}, {?eh,tc_done,{cfg_error_13_SUITE,init_per_suite,ok}}, {?eh,tc_start,{cfg_error_13_SUITE,tc1}}, {?eh,tc_done,{cfg_error_13_SUITE,tc1,ok}}, - {?eh,test_stats,{17,5,{1,19}}}, + {?eh,test_stats,{17,7,{1,19}}}, {?eh,tc_start,{cfg_error_13_SUITE,end_per_suite}}, {?eh,tc_done,{cfg_error_13_SUITE,end_per_suite,ok}}, {?eh,tc_start,{cfg_error_14_SUITE,init_per_suite}}, {?eh,tc_done,{cfg_error_14_SUITE,init_per_suite,ok}}, {?eh,tc_start,{cfg_error_14_SUITE,tc1}}, {?eh,tc_done,{cfg_error_14_SUITE,tc1,ok}}, - {?eh,test_stats,{18,5,{1,19}}}, + {?eh,test_stats,{18,7,{1,19}}}, {?eh,tc_start,{cfg_error_14_SUITE,end_per_suite}}, {?eh,tc_done,{cfg_error_14_SUITE,end_per_suite, {comment, @@ -603,7 +631,7 @@ test_events(lib_error) -> {?eh,test_stats,{0,2,{0,0}}}, {?eh,tc_start,{lib_error_1_SUITE,lines_hang}}, {?eh,tc_done, - {lib_lines,do_hang,{failed,{timetrap_timeout,3000}}}}, + {lib_error_1_SUITE,lines_hang,{failed,{timetrap_timeout,3000}}}}, {?eh,test_stats,{0,3,{0,0}}}, {?eh,tc_start,{lib_error_1_SUITE,lines_throw}}, {?eh,tc_done, @@ -752,7 +780,7 @@ test_events(timetrap_parallel) -> [ {?eh,start_logging,{'DEF','RUNDIR'}}, {?eh,test_start,{'DEF',{'START_TIME','LOGDIR'}}}, - {?eh,start_info,{1,1,7}}, + {?eh,start_info,{1,1,8}}, {?eh,tc_done,{timetrap_3_SUITE,init_per_suite,ok}}, {parallel, [{?eh,tc_start, @@ -764,9 +792,12 @@ test_events(timetrap_parallel) -> {?eh,tc_start,{timetrap_3_SUITE,tc2}}, {?eh,tc_start,{timetrap_3_SUITE,tc3}}, {?eh,tc_start,{timetrap_3_SUITE,tc4}}, + {?eh,tc_start,{timetrap_3_SUITE,tc5}}, {?eh,tc_start,{timetrap_3_SUITE,tc6}}, {?eh,tc_start,{timetrap_3_SUITE,tc7}}, {?eh,tc_done, + {timetrap_3_SUITE,tc5,ok}}, + {?eh,tc_done, {timetrap_3_SUITE,tc1,{failed,{timetrap_timeout,500}}}}, {?eh,tc_done, {timetrap_3_SUITE,tc2,{failed,{timetrap_timeout,1000}}}}, @@ -780,11 +811,90 @@ test_events(timetrap_parallel) -> {timetrap_3_SUITE,tc4,{failed,{timetrap_timeout,2000}}}}, {?eh,tc_done, {timetrap_3_SUITE,tc3,{failed,{timetrap_timeout,3000}}}}, - {?eh,test_stats,{0,7,{0,0}}}, + {?eh,test_stats,{1,7,{0,0}}}, {?eh,tc_start, {timetrap_3_SUITE,{end_per_group,g1,[parallel]}}}, {?eh,tc_done, {timetrap_3_SUITE,{end_per_group,g1,[parallel]},ok}}]}, {?eh,tc_done,{timetrap_3_SUITE,end_per_suite,ok}}, {?eh,test_done,{'DEF','STOP_TIME'}}, - {?eh,stop_logging,[]}]. + {?eh,stop_logging,[]}]; + +test_events(timetrap_fun) -> + [ + {?eh,start_logging,{'DEF','RUNDIR'}}, + {?eh,start_info,{4,4,17}}, + {?eh,tc_done,{timetrap_4_SUITE,init_per_suite,ok}}, + {?eh,tc_start,{timetrap_4_SUITE,tc0}}, + {?eh,tc_done, + {timetrap_4_SUITE,tc0,{failed,{timetrap_timeout,1000}}}}, + {?eh,tc_start,{timetrap_4_SUITE,tc1}}, + {?eh,tc_done, + {timetrap_4_SUITE,tc1,{failed,{timetrap_timeout,2000}}}}, + {?eh,tc_start,{timetrap_4_SUITE,tc2}}, + {?eh,tc_done, + {timetrap_4_SUITE,tc2,{failed,{timetrap_timeout,500}}}}, + {?eh,tc_start,{timetrap_4_SUITE,tc3}}, + {?eh,tc_done, + {timetrap_4_SUITE,tc3,{failed,{timetrap_timeout,1000}}}}, + {?eh,test_stats,{0,4,{0,0}}}, + {?eh,tc_done,{timetrap_4_SUITE,end_per_suite,ok}}, + + {?eh,tc_done,{timetrap_5_SUITE,init_per_suite,ok}}, + {?eh,tc_start,{timetrap_5_SUITE,tc0}}, + {?eh,tc_done, + {timetrap_5_SUITE,tc0,{failed,{timetrap_timeout,1000}}}}, + {?eh,test_stats,{0,5,{0,0}}}, + {?eh,tc_start,{timetrap_5_SUITE,tc1}}, + {?eh,tc_done, + {timetrap_5_SUITE,tc1,{skipped,{timetrap_error,kaboom}}}}, + {?eh,tc_start,{timetrap_5_SUITE,tc2}}, + {?eh,tc_done, + {timetrap_5_SUITE,tc2,{skipped,{timetrap_error,kaboom}}}}, + {?eh,tc_start,{timetrap_5_SUITE,tc3}}, + {?eh,tc_done, + {timetrap_5_SUITE,tc3, + {skipped,{invalid_time_format,{timetrap_utils,timetrap_val,[5000]}}}}}, + {?eh,tc_start,{timetrap_5_SUITE,tc4}}, + {?eh,tc_done, + {timetrap_5_SUITE,tc4,{skipped,{invalid_time_format,'_'}}}}, + {?eh,test_stats,{0,5,{0,4}}}, + {?eh,tc_start,{timetrap_5_SUITE,tc5}}, + {?eh,tc_done, + {timetrap_5_SUITE,tc5,{failed,{timetrap_timeout,1000}}}}, + {?eh,tc_start,{timetrap_5_SUITE,tc6}}, + {?eh,tc_done, + {timetrap_5_SUITE,tc6,{failed,{timetrap_timeout,1000}}}}, + {?eh,tc_start,{timetrap_5_SUITE,tc7}}, + {?eh,tc_done, + {timetrap_5_SUITE,tc7,{failed,{timetrap_timeout,1000}}}}, + {?eh,test_stats,{0,8,{0,4}}}, + {?eh,tc_done,{timetrap_5_SUITE,end_per_suite,ok}}, + + {?eh,tc_start,{timetrap_6_SUITE,init_per_suite}}, + {?eh,tc_done, + {timetrap_6_SUITE,init_per_suite,{skipped,{timetrap_error,kaboom}}}}, + {?eh,tc_auto_skip, + {timetrap_6_SUITE,tc0,{fw_auto_skip,{timetrap_error,kaboom}}}}, + {?eh,test_stats,{0,8,{0,5}}}, + {?eh,tc_auto_skip, + {timetrap_6_SUITE,end_per_suite,{fw_auto_skip,{timetrap_error,kaboom}}}}, + + {?eh,tc_done,{timetrap_7_SUITE,init_per_suite,ok}}, + {?eh,tc_start,{timetrap_7_SUITE,tc0}}, + {?eh,tc_done, + {timetrap_7_SUITE,tc0,{failed,{timetrap_timeout,1000}}}}, + {?eh,tc_start,{timetrap_7_SUITE,tc1}}, + {?eh,tc_done, + {timetrap_7_SUITE,tc1,{failed,{timetrap_timeout,2000}}}}, + {?eh,tc_start,{timetrap_7_SUITE,tc2}}, + {?eh,tc_done, + {timetrap_7_SUITE,tc2,{failed,{timetrap_timeout,500}}}}, + {?eh,tc_start,{timetrap_7_SUITE,tc3}}, + {?eh,tc_done, + {timetrap_7_SUITE,tc3,{failed,{timetrap_timeout,1000}}}}, + {?eh,test_stats,{0,12,{0,5}}}, + {?eh,tc_done,{timetrap_7_SUITE,end_per_suite,ok}}, + {?eh,test_done,{'DEF','STOP_TIME'}}, + {?eh,stop_logging,[]} + ]. diff --git a/lib/common_test/test/ct_error_SUITE_data/error/test/cfg_error_9_SUITE.erl b/lib/common_test/test/ct_error_SUITE_data/error/test/cfg_error_9_SUITE.erl index c4e0d72948..f292985c0c 100644 --- a/lib/common_test/test/ct_error_SUITE_data/error/test/cfg_error_9_SUITE.erl +++ b/lib/common_test/test/ct_error_SUITE_data/error/test/cfg_error_9_SUITE.erl @@ -76,7 +76,7 @@ init_per_testcase(tc1, Config) -> Config; init_per_testcase(tc2, Config) -> ct:comment("init_per_testcase(tc2) timeout"), - timer:sleep(5000), + ct:sleep(5000), Config; init_per_testcase(tc3, Config) -> badmatch = ?config(void, Config), @@ -96,22 +96,20 @@ init_per_testcase(_, Config) -> %%-------------------------------------------------------------------- end_per_testcase(tc11, _Config) -> ct:comment("A warning should be printed"), - exit(warning_should_be_printed), - done; + exit(warning_should_be_printed); end_per_testcase(tc12, _Config) -> ct:comment("A warning should be printed"), - timer:sleep(5000), - done; + ct:sleep(5000); end_per_testcase(tc13, Config) -> ct:comment("A warning should be printed"), - badmatch = ?config(void, Config), - done; + badmatch = ?config(void, Config); end_per_testcase(tc14, Config) -> ok = ?config(tc_status, Config), {fail,tc14_should_be_failed}; end_per_testcase(tc15, Config) -> - {failed,byebye} = ?config(tc_status, Config), - ok; + exit(kaboom); +end_per_testcase(tc16, Config) -> + ct:sleep(5000); end_per_testcase(_TestCase, _Config) -> done. @@ -139,7 +137,7 @@ groups() -> %%-------------------------------------------------------------------- all() -> [tc1,tc2,tc3,tc4,tc5,tc6,tc7, - tc11,tc12,tc13,tc14]. + tc11,tc12,tc13,tc14,tc15,tc16]. tc1(_) -> fini. @@ -189,4 +187,6 @@ tc14(_) -> ct:comment("This one should be failed by eptc"), yes. tc15(_) -> - exit(byebye). + exit(this_error_must_show). +tc16(_) -> + exit(this_error_must_show). diff --git a/lib/common_test/test/ct_error_SUITE_data/error/test/timetrap_3_SUITE.erl b/lib/common_test/test/ct_error_SUITE_data/error/test/timetrap_3_SUITE.erl new file mode 100644 index 0000000000..8271b23afe --- /dev/null +++ b/lib/common_test/test/ct_error_SUITE_data/error/test/timetrap_3_SUITE.erl @@ -0,0 +1,146 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 2010-2011. 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(timetrap_3_SUITE). + +-compile(export_all). + +-include_lib("common_test/include/ct.hrl"). + +-define(TO, 3). + +%%-------------------------------------------------------------------- +%% Function: suite() -> Info +%% Info = [tuple()] +%%-------------------------------------------------------------------- +suite() -> + [{timetrap,{seconds,?TO}}]. + +%%-------------------------------------------------------------------- +%% Function: init_per_suite(Config0) -> +%% Config1 | {skip,Reason} | {skip_and_save,Reason,Config1} +%% Config0 = Config1 = [tuple()] +%% Reason = term() +%%-------------------------------------------------------------------- +init_per_suite(Config) -> + Config. + +%%-------------------------------------------------------------------- +%% Function: end_per_suite(Config0) -> void() | {save_config,Config1} +%% Config0 = Config1 = [tuple()] +%%-------------------------------------------------------------------- +end_per_suite(_Config) -> + ok. + +%%-------------------------------------------------------------------- +%% Function: init_per_group(GroupName, Config0) -> +%% Config1 | {skip,Reason} | {skip_and_save,Reason,Config1} +%% GroupName = atom() +%% Config0 = Config1 = [tuple()] +%% Reason = term() +%%-------------------------------------------------------------------- +init_per_group(_GroupName, Config) -> + Config. + +%%-------------------------------------------------------------------- +%% Function: end_per_group(GroupName, Config0) -> +%% void() | {save_config,Config1} +%% GroupName = atom() +%% Config0 = Config1 = [tuple()] +%%-------------------------------------------------------------------- +end_per_group(_GroupName, _Config) -> + ok. + +%%-------------------------------------------------------------------- +%% Function: groups() -> [Group] +%% Group = {GroupName,Properties,GroupsAndTestCases} +%% GroupName = atom() +%% Properties = [parallel | sequence | Shuffle | {RepeatType,N}] +%% GroupsAndTestCases = [Group | {group,GroupName} | TestCase] +%% TestCase = atom() +%% Shuffle = shuffle | {shuffle,{integer(),integer(),integer()}} +%% RepeatType = repeat | repeat_until_all_ok | repeat_until_all_fail | +%% repeat_until_any_ok | repeat_until_any_fail +%% N = integer() | forever +%%-------------------------------------------------------------------- +groups() -> + [{g1,[parallel],[tc0,tc1,tc2,tc3,tc4,tc5,tc6,tc7]}]. + +%%-------------------------------------------------------------------- +%% Function: all() -> GroupsAndTestCases | {skip,Reason} +%% GroupsAndTestCases = [{group,GroupName} | TestCase] +%% GroupName = atom() +%% TestCase = atom() +%% Reason = term() +%%-------------------------------------------------------------------- +all() -> + [{group,g1}]. + +tc0() -> + [{timetrap,2000}]. +tc0(_) -> + ct:comment("TO after 2 sec"), + ct:sleep({seconds,5}), + ok. + +tc1() -> + [{timetrap,500}]. +tc1(_) -> + ct:comment("TO after 1/2 sec"), + ct:sleep({seconds,5}), + ok. + +tc2() -> + [{timetrap,1000}]. +tc2(_) -> + ct:comment("TO after 1 sec"), + ct:sleep({seconds,5}), + ok. + +tc3(_) -> + ct:comment(io_lib:format("TO after ~w sec", [?TO])), + ct:sleep({seconds,5}), + ok. + +tc4() -> + [{timetrap,2000}]. +tc4(_) -> + ct:comment(io_lib:format("TO after 2 sec", [])), + ct:sleep({seconds,5}), + ok. + +tc5() -> + [{timetrap,2000}]. +tc5(_) -> + ct:comment("No timeout"), + ct:sleep({seconds,1}), + ok. + +tc6() -> + [{timetrap,1000}]. +tc6(_) -> + ct:comment("TO after 1 sec"), + ct:sleep({seconds,5}), + ok. + +tc7() -> + [{timetrap,1500}]. +tc7(_) -> + ct:comment("TO after 1 1/2 sec"), + ct:sleep({seconds,5}), + ok. diff --git a/lib/common_test/test/ct_error_SUITE_data/error/test/timetrap_4_SUITE.erl b/lib/common_test/test/ct_error_SUITE_data/error/test/timetrap_4_SUITE.erl new file mode 100644 index 0000000000..d902454f09 --- /dev/null +++ b/lib/common_test/test/ct_error_SUITE_data/error/test/timetrap_4_SUITE.erl @@ -0,0 +1,135 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 2010-2011. 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(timetrap_4_SUITE). + +-compile(export_all). + +-include_lib("common_test/include/ct.hrl"). + +-define(TO, 1). + +%%-------------------------------------------------------------------- +%% Function: suite() -> Info +%% Info = [tuple()] +%%-------------------------------------------------------------------- +suite() -> + [{timetrap,{timetrap_utils,timetrap_val,[{seconds,?TO}]}}]. + +%%-------------------------------------------------------------------- +%% Function: init_per_suite(Config0) -> +%% Config1 | {skip,Reason} | {skip_and_save,Reason,Config1} +%% Config0 = Config1 = [tuple()] +%% Reason = term() +%%-------------------------------------------------------------------- +init_per_suite(Config) -> + Config. + +%%-------------------------------------------------------------------- +%% Function: end_per_suite(Config0) -> void() | {save_config,Config1} +%% Config0 = Config1 = [tuple()] +%%-------------------------------------------------------------------- +end_per_suite(_Config) -> + ok. + +%%-------------------------------------------------------------------- +%% Function: init_per_group(GroupName, Config0) -> +%% Config1 | {skip,Reason} | {skip_and_save,Reason,Config1} +%% GroupName = atom() +%% Config0 = Config1 = [tuple()] +%% Reason = term() +%%-------------------------------------------------------------------- +init_per_group(_GroupName, Config) -> + Config. + +%%-------------------------------------------------------------------- +%% Function: end_per_group(GroupName, Config0) -> +%% void() | {save_config,Config1} +%% GroupName = atom() +%% Config0 = Config1 = [tuple()] +%%-------------------------------------------------------------------- +end_per_group(_GroupName, _Config) -> + ok. + +%%-------------------------------------------------------------------- +%% Function: init_per_testcase(TestCase, Config0) -> +%% Config1 | {skip,Reason} | {skip_and_save,Reason,Config1} +%% TestCase = atom() +%% Config0 = Config1 = [tuple()] +%% Reason = term() +%%-------------------------------------------------------------------- +init_per_testcase(_, Config) -> + Config. + +%%-------------------------------------------------------------------- +%% Function: end_per_testcase(TestCase, Config0) -> +%% void() | {save_config,Config1} +%% TestCase = atom() +%% Config0 = Config1 = [tuple()] +%%-------------------------------------------------------------------- +end_per_testcase(_, _Config) -> + ok. + +%%-------------------------------------------------------------------- +%% Function: groups() -> [Group] +%% Group = {GroupName,Properties,GroupsAndTestCases} +%% GroupName = atom() +%% Properties = [parallel | sequence | Shuffle | {RepeatType,N}] +%% GroupsAndTestCases = [Group | {group,GroupName} | TestCase] +%% TestCase = atom() +%% Shuffle = shuffle | {shuffle,{integer(),integer(),integer()}} +%% RepeatType = repeat | repeat_until_all_ok | repeat_until_all_fail | +%% repeat_until_any_ok | repeat_until_any_fail +%% N = integer() | forever +%%-------------------------------------------------------------------- +groups() -> + []. + +%%-------------------------------------------------------------------- +%% Function: all() -> GroupsAndTestCases | {skip,Reason} +%% GroupsAndTestCases = [{group,GroupName} | TestCase] +%% GroupName = atom() +%% TestCase = atom() +%% Reason = term() +%%-------------------------------------------------------------------- +all() -> + [tc0,tc1,tc2,tc3]. + +tc0(_) -> + ct:comment(io_lib:format("TO after ~w sec", [?TO])), + ct:sleep({seconds,5}), + ok. + +tc1() -> + [{timetrap,{timetrap_utils,timetrap_val,[2000]}}]. +tc1(_) -> + ct:comment("TO after 2 sec"), + ct:sleep({seconds,5}), + ok. + +tc2() -> + [{timetrap,fun() -> timetrap_utils:timetrap_val(500) end}]. +tc2(_) -> + ct:comment("TO after 0.5 sec"), + ct:sleep(1000), + ok. + +tc3(_) -> + ct:comment(io_lib:format("TO after ~w sec", [?TO])), + ct:sleep({seconds,5}), + ok. diff --git a/lib/common_test/test/ct_error_SUITE_data/error/test/timetrap_5_SUITE.erl b/lib/common_test/test/ct_error_SUITE_data/error/test/timetrap_5_SUITE.erl new file mode 100644 index 0000000000..c5d4b5062e --- /dev/null +++ b/lib/common_test/test/ct_error_SUITE_data/error/test/timetrap_5_SUITE.erl @@ -0,0 +1,155 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 2010-2011. 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(timetrap_5_SUITE). + +-compile(export_all). + +-include_lib("common_test/include/ct.hrl"). + +-define(TO, 1). + +%%-------------------------------------------------------------------- +%% Function: suite() -> Info +%% Info = [tuple()] +%%-------------------------------------------------------------------- +suite() -> + [{timetrap, fun() -> timetrap_utils:timetrap_val({seconds,?TO}) end}]. + +%%-------------------------------------------------------------------- +%% Function: init_per_suite(Config0) -> +%% Config1 | {skip,Reason} | {skip_and_save,Reason,Config1} +%% Config0 = Config1 = [tuple()] +%% Reason = term() +%%-------------------------------------------------------------------- +init_per_suite(Config) -> + Config. + +%%-------------------------------------------------------------------- +%% Function: end_per_suite(Config0) -> void() | {save_config,Config1} +%% Config0 = Config1 = [tuple()] +%%-------------------------------------------------------------------- +end_per_suite(_Config) -> + ok. + +%%-------------------------------------------------------------------- +%% Function: init_per_group(GroupName, Config0) -> +%% Config1 | {skip,Reason} | {skip_and_save,Reason,Config1} +%% GroupName = atom() +%% Config0 = Config1 = [tuple()] +%% Reason = term() +%%-------------------------------------------------------------------- +init_per_group(_GroupName, Config) -> + Config. + +%%-------------------------------------------------------------------- +%% Function: end_per_group(GroupName, Config0) -> +%% void() | {save_config,Config1} +%% GroupName = atom() +%% Config0 = Config1 = [tuple()] +%%-------------------------------------------------------------------- +end_per_group(_GroupName, _Config) -> + ok. + +%%-------------------------------------------------------------------- +%% Function: init_per_testcase(TestCase, Config0) -> +%% Config1 | {skip,Reason} | {skip_and_save,Reason,Config1} +%% TestCase = atom() +%% Config0 = Config1 = [tuple()] +%% Reason = term() +%%-------------------------------------------------------------------- +init_per_testcase(_, Config) -> + Config. + +%%-------------------------------------------------------------------- +%% Function: end_per_testcase(TestCase, Config0) -> +%% void() | {save_config,Config1} +%% TestCase = atom() +%% Config0 = Config1 = [tuple()] +%%-------------------------------------------------------------------- +end_per_testcase(_, _Config) -> + ok. + +%%-------------------------------------------------------------------- +%% Function: groups() -> [Group] +%% Group = {GroupName,Properties,GroupsAndTestCases} +%% GroupName = atom() +%% Properties = [parallel | sequence | Shuffle | {RepeatType,N}] +%% GroupsAndTestCases = [Group | {group,GroupName} | TestCase] +%% TestCase = atom() +%% Shuffle = shuffle | {shuffle,{integer(),integer(),integer()}} +%% RepeatType = repeat | repeat_until_all_ok | repeat_until_all_fail | +%% repeat_until_any_ok | repeat_until_any_fail +%% N = integer() | forever +%%-------------------------------------------------------------------- +groups() -> + []. + +%%-------------------------------------------------------------------- +%% Function: all() -> GroupsAndTestCases | {skip,Reason} +%% GroupsAndTestCases = [{group,GroupName} | TestCase] +%% GroupName = atom() +%% TestCase = atom() +%% Reason = term() +%%-------------------------------------------------------------------- +all() -> + [tc0,tc1,tc2,tc3,tc4,tc5,tc6,tc7]. + +tc0(_) -> + ct:comment(io_lib:format("TO after ~w sec", [?TO])), + ct:sleep({seconds,5}), + ok. + +tc1() -> + [{timetrap,{timetrap_utils,timetrap_exit,[kaboom]}}]. +tc1(_) -> + exit(this_should_not_execute). + +tc2() -> + [{timetrap,fun() -> exit(kaboom) end}]. +tc2(_) -> + exit(this_should_not_execute). + +tc3() -> + [{timetrap,{timetrap_utils,timetrap_err_mfa,[]}}]. +tc3(_) -> + exit(this_should_not_execute). + +tc4() -> + [{timetrap,fun() -> timetrap_utils:timetrap_err_fun() end}]. +tc4(_) -> + exit(this_should_not_execute). + +tc5() -> + [{timetrap,{timetrap_utils,timetrap_timeout,[{seconds,40}, + {seconds,1}]}}]. +tc5(_) -> + ct:comment("TO after 40+1 sec"), + ct:sleep({seconds,42}), + ok. + +tc6() -> + [{timetrap,fun() -> ct:sleep(6000), 1000 end}]. +tc6(_) -> + ct:comment("TO after 6+1 sec"), + ct:sleep({seconds,10}). + +tc7(_) -> + ct:comment(io_lib:format("TO after ~w sec", [?TO])), + ct:sleep({seconds,5}), + ok. diff --git a/lib/common_test/test/ct_error_SUITE_data/error/test/timetrap_6_SUITE.erl b/lib/common_test/test/ct_error_SUITE_data/error/test/timetrap_6_SUITE.erl new file mode 100644 index 0000000000..90467ff752 --- /dev/null +++ b/lib/common_test/test/ct_error_SUITE_data/error/test/timetrap_6_SUITE.erl @@ -0,0 +1,114 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 2010-2011. 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(timetrap_6_SUITE). + +-compile(export_all). + +-include_lib("common_test/include/ct.hrl"). + +-define(TO, 1). + +%%-------------------------------------------------------------------- +%% Function: suite() -> Info +%% Info = [tuple()] +%%-------------------------------------------------------------------- +suite() -> + [{timetrap, fun() -> exit(kaboom) end}]. + +%%-------------------------------------------------------------------- +%% Function: init_per_suite(Config0) -> +%% Config1 | {skip,Reason} | {skip_and_save,Reason,Config1} +%% Config0 = Config1 = [tuple()] +%% Reason = term() +%%-------------------------------------------------------------------- +init_per_suite(Config) -> + Config. + +%%-------------------------------------------------------------------- +%% Function: end_per_suite(Config0) -> void() | {save_config,Config1} +%% Config0 = Config1 = [tuple()] +%%-------------------------------------------------------------------- +end_per_suite(_Config) -> + ok. + +%%-------------------------------------------------------------------- +%% Function: init_per_group(GroupName, Config0) -> +%% Config1 | {skip,Reason} | {skip_and_save,Reason,Config1} +%% GroupName = atom() +%% Config0 = Config1 = [tuple()] +%% Reason = term() +%%-------------------------------------------------------------------- +init_per_group(_GroupName, Config) -> + Config. + +%%-------------------------------------------------------------------- +%% Function: end_per_group(GroupName, Config0) -> +%% void() | {save_config,Config1} +%% GroupName = atom() +%% Config0 = Config1 = [tuple()] +%%-------------------------------------------------------------------- +end_per_group(_GroupName, _Config) -> + ok. + +%%-------------------------------------------------------------------- +%% Function: init_per_testcase(TestCase, Config0) -> +%% Config1 | {skip,Reason} | {skip_and_save,Reason,Config1} +%% TestCase = atom() +%% Config0 = Config1 = [tuple()] +%% Reason = term() +%%-------------------------------------------------------------------- +init_per_testcase(_, Config) -> + Config. + +%%-------------------------------------------------------------------- +%% Function: end_per_testcase(TestCase, Config0) -> +%% void() | {save_config,Config1} +%% TestCase = atom() +%% Config0 = Config1 = [tuple()] +%%-------------------------------------------------------------------- +end_per_testcase(_, _Config) -> + ok. + +%%-------------------------------------------------------------------- +%% Function: groups() -> [Group] +%% Group = {GroupName,Properties,GroupsAndTestCases} +%% GroupName = atom() +%% Properties = [parallel | sequence | Shuffle | {RepeatType,N}] +%% GroupsAndTestCases = [Group | {group,GroupName} | TestCase] +%% TestCase = atom() +%% Shuffle = shuffle | {shuffle,{integer(),integer(),integer()}} +%% RepeatType = repeat | repeat_until_all_ok | repeat_until_all_fail | +%% repeat_until_any_ok | repeat_until_any_fail +%% N = integer() | forever +%%-------------------------------------------------------------------- +groups() -> + []. + +%%-------------------------------------------------------------------- +%% Function: all() -> GroupsAndTestCases | {skip,Reason} +%% GroupsAndTestCases = [{group,GroupName} | TestCase] +%% GroupName = atom() +%% TestCase = atom() +%% Reason = term() +%%-------------------------------------------------------------------- +all() -> + [tc0]. + +tc0(_) -> + ok. diff --git a/lib/common_test/test/ct_error_SUITE_data/error/test/timetrap_7_SUITE.erl b/lib/common_test/test/ct_error_SUITE_data/error/test/timetrap_7_SUITE.erl new file mode 100644 index 0000000000..b25b7770a7 --- /dev/null +++ b/lib/common_test/test/ct_error_SUITE_data/error/test/timetrap_7_SUITE.erl @@ -0,0 +1,137 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 2010-2011. 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(timetrap_7_SUITE). + +-compile(export_all). + +-include_lib("common_test/include/ct.hrl"). + +-define(TO, 1). +-define(HANG, 6). + +%%-------------------------------------------------------------------- +%% Function: suite() -> Info +%% Info = [tuple()] +%%-------------------------------------------------------------------- +suite() -> + [{timetrap,{timetrap_utils,timetrap_timeout,[{seconds,?HANG}, + {seconds,?TO}]}}]. + +%%-------------------------------------------------------------------- +%% Function: init_per_suite(Config0) -> +%% Config1 | {skip,Reason} | {skip_and_save,Reason,Config1} +%% Config0 = Config1 = [tuple()] +%% Reason = term() +%%-------------------------------------------------------------------- +init_per_suite(Config) -> + Config. + +%%-------------------------------------------------------------------- +%% Function: end_per_suite(Config0) -> void() | {save_config,Config1} +%% Config0 = Config1 = [tuple()] +%%-------------------------------------------------------------------- +end_per_suite(_Config) -> + ok. + +%%-------------------------------------------------------------------- +%% Function: init_per_group(GroupName, Config0) -> +%% Config1 | {skip,Reason} | {skip_and_save,Reason,Config1} +%% GroupName = atom() +%% Config0 = Config1 = [tuple()] +%% Reason = term() +%%-------------------------------------------------------------------- +init_per_group(_GroupName, Config) -> + Config. + +%%-------------------------------------------------------------------- +%% Function: end_per_group(GroupName, Config0) -> +%% void() | {save_config,Config1} +%% GroupName = atom() +%% Config0 = Config1 = [tuple()] +%%-------------------------------------------------------------------- +end_per_group(_GroupName, _Config) -> + ok. + +%%-------------------------------------------------------------------- +%% Function: init_per_testcase(TestCase, Config0) -> +%% Config1 | {skip,Reason} | {skip_and_save,Reason,Config1} +%% TestCase = atom() +%% Config0 = Config1 = [tuple()] +%% Reason = term() +%%-------------------------------------------------------------------- +init_per_testcase(_, Config) -> + Config. + +%%-------------------------------------------------------------------- +%% Function: end_per_testcase(TestCase, Config0) -> +%% void() | {save_config,Config1} +%% TestCase = atom() +%% Config0 = Config1 = [tuple()] +%%-------------------------------------------------------------------- +end_per_testcase(_, _Config) -> + ok. + +%%-------------------------------------------------------------------- +%% Function: groups() -> [Group] +%% Group = {GroupName,Properties,GroupsAndTestCases} +%% GroupName = atom() +%% Properties = [parallel | sequence | Shuffle | {RepeatType,N}] +%% GroupsAndTestCases = [Group | {group,GroupName} | TestCase] +%% TestCase = atom() +%% Shuffle = shuffle | {shuffle,{integer(),integer(),integer()}} +%% RepeatType = repeat | repeat_until_all_ok | repeat_until_all_fail | +%% repeat_until_any_ok | repeat_until_any_fail +%% N = integer() | forever +%%-------------------------------------------------------------------- +groups() -> + []. + +%%-------------------------------------------------------------------- +%% Function: all() -> GroupsAndTestCases | {skip,Reason} +%% GroupsAndTestCases = [{group,GroupName} | TestCase] +%% GroupName = atom() +%% TestCase = atom() +%% Reason = term() +%%-------------------------------------------------------------------- +all() -> + [tc0,tc1,tc2,tc3]. + +tc0(_) -> + ct:comment(io_lib:format("TO after ~w+~w sec", [?HANG,?TO])), + ct:sleep({seconds,5}), + ok. + +tc1() -> + [{timetrap,{timetrap_utils,timetrap_val,[2000]}}]. +tc1(_) -> + ct:comment("TO after 2 sec"), + ct:sleep({seconds,5}), + ok. + +tc2() -> + [{timetrap,fun() -> timetrap_utils:timetrap_val(500) end}]. +tc2(_) -> + ct:comment("TO after 0.5 sec"), + ct:sleep(1000), + ok. + +tc3(_) -> + ct:comment(io_lib:format("TO after ~w+~w sec", [?HANG,?TO])), + ct:sleep({seconds,5}), + ok. diff --git a/lib/common_test/test/ct_error_SUITE_data/error/test/timetrap_utils.erl b/lib/common_test/test/ct_error_SUITE_data/error/test/timetrap_utils.erl new file mode 100644 index 0000000000..fcde6cd701 --- /dev/null +++ b/lib/common_test/test/ct_error_SUITE_data/error/test/timetrap_utils.erl @@ -0,0 +1,43 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 2009-2011. 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(timetrap_utils). + +-export([timetrap_val/1, + timetrap_err_fun/0, + timetrap_err_mfa/0, + timetrap_exit/1, + timetrap_timeout/2]). + +timetrap_val(Val) -> + Val. + +timetrap_err_fun() -> + fun() -> 5000 end. + +timetrap_err_mfa() -> + {?MODULE,timetrap_val,[5000]}. + +timetrap_exit(Reason) -> + exit(Reason). + +timetrap_timeout(Sleep, Val) -> + ct:sleep(Sleep), + Val. + diff --git a/lib/common_test/test/ct_groups_test_2_SUITE.erl b/lib/common_test/test/ct_groups_test_2_SUITE.erl index f33be8a9d4..940d791b15 100644 --- a/lib/common_test/test/ct_groups_test_2_SUITE.erl +++ b/lib/common_test/test/ct_groups_test_2_SUITE.erl @@ -173,16 +173,14 @@ test_events(missing_conf) -> {?eh,start_info,{1,1,2}}, {?eh,tc_start,{ct_framework,ct_init_per_group}}, {?eh,tc_done,{ct_framework,ct_init_per_group,ok}}, - {?eh,test_stats,{1,0,{0,0}}}, {?eh,tc_start,{missing_conf_SUITE,tc1}}, {?eh,tc_done,{missing_conf_SUITE,tc1,ok}}, - {?eh,test_stats,{2,0,{0,0}}}, + {?eh,test_stats,{1,0,{0,0}}}, {?eh,tc_start,{missing_conf_SUITE,tc2}}, {?eh,tc_done,{missing_conf_SUITE,tc2,ok}}, - {?eh,test_stats,{3,0,{0,0}}}, + {?eh,test_stats,{2,0,{0,0}}}, {?eh,tc_start,{ct_framework,ct_end_per_group}}, {?eh,tc_done,{ct_framework,ct_end_per_group,ok}}, - {?eh,test_stats,{4,0,{0,0}}}, {?eh,test_done,{'DEF','STOP_TIME'}}, {?eh,stop_logging,[]} ]; diff --git a/lib/common_test/test/ct_test_server_if_1_SUITE_data/test_server_if/test/ts_if_1_SUITE.erl b/lib/common_test/test/ct_test_server_if_1_SUITE_data/test_server_if/test/ts_if_1_SUITE.erl index 47cea190dd..bda7d91161 100644 --- a/lib/common_test/test/ct_test_server_if_1_SUITE_data/test_server_if/test/ts_if_1_SUITE.erl +++ b/lib/common_test/test/ct_test_server_if_1_SUITE_data/test_server_if/test/ts_if_1_SUITE.erl @@ -143,7 +143,7 @@ tc1(_) -> exit(should_have_been_skipped). tc2(_) -> - exit(should_have_been_skipped). + timeout_in_end_per_testcase. tc3(_) -> timer:sleep(5000). diff --git a/lib/common_test/test/ct_test_support.erl b/lib/common_test/test/ct_test_support.erl index 31381abc40..6df02d12b7 100644 --- a/lib/common_test/test/ct_test_support.erl +++ b/lib/common_test/test/ct_test_support.erl @@ -23,8 +23,8 @@ %%% -module(ct_test_support). --include_lib("test_server/include/test_server.hrl"). -include_lib("common_test/include/ct_event.hrl"). +-include_lib("common_test/include/ct.hrl"). -export([init_per_suite/1, init_per_suite/2, end_per_suite/1, init_per_testcase/2, end_per_testcase/2, @@ -46,9 +46,10 @@ init_per_suite(Config) -> init_per_suite(Config, Level) -> case os:type() of {win32, _} -> - %% Extend timeout for windows as starting node + %% Extend timeout to 1 hour for windows as starting node %% can take a long time there - test_server:timetrap( 120000 * test_server:timetrap_scale_factor()); + test_server:timetrap( 60*60*1000 * + test_server:timetrap_scale_factor()); _ -> ok end, diff --git a/lib/common_test/vsn.mk b/lib/common_test/vsn.mk index f77629b4d1..4782a32933 100644 --- a/lib/common_test/vsn.mk +++ b/lib/common_test/vsn.mk @@ -1,3 +1,3 @@ -COMMON_TEST_VSN = 1.5.4 +COMMON_TEST_VSN = 1.5.5 diff --git a/lib/compiler/doc/src/notes.xml b/lib/compiler/doc/src/notes.xml index dd29323787..740cbcf8eb 100644 --- a/lib/compiler/doc/src/notes.xml +++ b/lib/compiler/doc/src/notes.xml @@ -31,6 +31,34 @@ <p>This document describes the changes made to the Compiler application.</p> +<section><title>Compiler 4.7.5</title> + + <section><title>Fixed Bugs and Malfunctions</title> + <list> + <item> + <p> + Compiler options given in the source code using a + <c>-compile()</c> attribute used to be included twice in + <c>Mod:module_info(compile)</c>. They are now only + included once at the beginning of the list of options.</p> + <p> + Own Id: OTP-9534</p> + </item> + <item> + <p> + beam_disasm: Handle stripped BEAM files</p> + <p> + beam_disasm:file/1 would crash if asked to disassemble a + stripped BEAM file without an "Attr" chunk. (Thanks to + Haitao Li)</p> + <p> + Own Id: OTP-9571</p> + </item> + </list> + </section> + +</section> + <section><title>Compiler 4.7.4</title> <section><title>Fixed Bugs and Malfunctions</title> diff --git a/lib/compiler/src/beam_disasm.erl b/lib/compiler/src/beam_disasm.erl index 410233a0f7..7103d2390f 100644 --- a/lib/compiler/src/beam_disasm.erl +++ b/lib/compiler/src/beam_disasm.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2000-2010. All Rights Reserved. +%% Copyright Ericsson AB 2000-2011. 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 @@ -204,7 +204,7 @@ process_chunks(F) -> optional_chunk(F, ChunkTag) -> case beam_lib:chunks(F, [ChunkTag]) of {ok,{_Module,[{ChunkTag,Chunk}]}} -> Chunk; - {error,beam_lib,{missing_chunk,_,ChunkTag}} -> none + {error,beam_lib,{missing_chunk,_,_}} -> none end. %%----------------------------------------------------------------------- diff --git a/lib/compiler/src/compile.erl b/lib/compiler/src/compile.erl index 29c7ec0dcd..15849957e7 100644 --- a/lib/compiler/src/compile.erl +++ b/lib/compiler/src/compile.erl @@ -113,7 +113,7 @@ noenv_forms(Forms, Opt) when is_atom(Opt) -> noenv_output_generated(Opts) -> {_,Passes} = passes(file, expand_opts(Opts)), - any(fun ({save_binary,_F}) -> true; + any(fun ({save_binary,_T,_F}) -> true; (_Other) -> false end, Passes). @@ -122,6 +122,7 @@ noenv_output_generated(Opts) -> %% -define(pass(P), {P,fun P/1}). +-define(pass(P,T), {P,fun T/1,fun P/1}). env_default_opts() -> Key = "ERL_COMPILER_OPTIONS", @@ -304,7 +305,7 @@ run_tc({Name,Fun}, St) -> Val. comp_ret_ok(#compile{code=Code,warnings=Warn0,module=Mod,options=Opts}=St) -> - case member(warnings_as_errors, Opts) andalso length(Warn0) > 0 of + case werror(St) of true -> case member(report_warnings, Opts) of true -> @@ -339,6 +340,11 @@ comp_ret_err(#compile{warnings=Warn0,errors=Err0,options=Opts}=St) -> false -> error end. +not_werror(St) -> not werror(St). + +werror(#compile{options=Opts,warnings=Ws}) -> + Ws =/= [] andalso member(warnings_as_errors, Opts). + %% messages_per_file([{File,[Message]}]) -> [{File,[Message]}] messages_per_file(Ms) -> T = lists:sort([{File,M} || {File,Messages} <- Ms, M <- Messages]), @@ -373,7 +379,7 @@ passes(Type, Opts) -> %% insert a first pass to remove the file (unless the %% source file is a BEAM file). {Ext,case last(Passes) of - {save_binary,_Fun} -> + {save_binary,_TestFun,_Fun} -> case Passes of [{read_beam_file,_}|_] -> %% The BEAM is both input and output. @@ -655,7 +661,7 @@ asm_passes() -> binary_passes() -> [{native_compile,fun test_native/1,fun native_compile/1}, - {unless,binary,?pass(save_binary)}]. + {unless,binary,?pass(save_binary,not_werror)}]. %%% %%% Compiler passes. @@ -1379,28 +1385,34 @@ report_errors(#compile{options=Opts,errors=Errors}) -> end. report_warnings(#compile{options=Opts,warnings=Ws0}) -> - case member(report_warnings, Opts) of + Werror = member(warnings_as_errors, Opts), + P = case Werror of + true -> ""; + false -> "Warning: " + end, + ReportWerror = Werror andalso member(report_errors, Opts), + case member(report_warnings, Opts) orelse ReportWerror of true -> - Ws1 = flatmap(fun({{F,_L},Eds}) -> format_message(F, Eds); - ({F,Eds}) -> format_message(F, Eds) end, + Ws1 = flatmap(fun({{F,_L},Eds}) -> format_message(F, P, Eds); + ({F,Eds}) -> format_message(F, P, Eds) end, Ws0), Ws = lists:sort(Ws1), foreach(fun({_,Str}) -> io:put_chars(Str) end, Ws); false -> ok end. -format_message(F, [{{Line,Column}=Loc,Mod,E}|Es]) -> - M = {{F,Loc},io_lib:format("~s:~w:~w Warning: ~s\n", - [F,Line,Column,Mod:format_error(E)])}, - [M|format_message(F, Es)]; -format_message(F, [{Line,Mod,E}|Es]) -> - M = {{F,{Line,0}},io_lib:format("~s:~w: Warning: ~s\n", - [F,Line,Mod:format_error(E)])}, - [M|format_message(F, Es)]; -format_message(F, [{Mod,E}|Es]) -> - M = {none,io_lib:format("~s: Warning: ~s\n", [F,Mod:format_error(E)])}, - [M|format_message(F, Es)]; -format_message(_, []) -> []. +format_message(F, P, [{{Line,Column}=Loc,Mod,E}|Es]) -> + M = {{F,Loc},io_lib:format("~s:~w:~w ~s~s\n", + [F,Line,Column,P,Mod:format_error(E)])}, + [M|format_message(F, P, Es)]; +format_message(F, P, [{Line,Mod,E}|Es]) -> + M = {{F,{Line,0}},io_lib:format("~s:~w: ~s~s\n", + [F,Line,P,Mod:format_error(E)])}, + [M|format_message(F, P, Es)]; +format_message(F, P, [{Mod,E}|Es]) -> + M = {none,io_lib:format("~s: ~s~s\n", [F,P,Mod:format_error(E)])}, + [M|format_message(F, P, Es)]; +format_message(_, _, []) -> []. %% list_errors(File, ErrorDescriptors) -> ok diff --git a/lib/compiler/src/sys_pre_expand.erl b/lib/compiler/src/sys_pre_expand.erl index 480954adac..249bd7a8e7 100644 --- a/lib/compiler/src/sys_pre_expand.erl +++ b/lib/compiler/src/sys_pre_expand.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 1996-2010. All Rights Reserved. +%% Copyright Ericsson AB 1996-2011. 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 @@ -223,10 +223,8 @@ attribute(export, Es, _L, St) -> St#expand{exports=union(from_list(Es), St#expand.exports)}; attribute(import, Is, _L, St) -> import(Is, St); -attribute(compile, C, _L, St) when is_list(C) -> - St#expand{compile=St#expand.compile ++ C}; -attribute(compile, C, _L, St) -> - St#expand{compile=St#expand.compile ++ [C]}; +attribute(compile, _C, _L, St) -> + St; attribute(Name, Val, Line, St) when is_list(Val) -> St#expand{attributes=St#expand.attributes ++ [{Name,Line,Val}]}; attribute(Name, Val, Line, St) -> diff --git a/lib/compiler/test/Makefile b/lib/compiler/test/Makefile index fe713fd019..b90adaf917 100644 --- a/lib/compiler/test/Makefile +++ b/lib/compiler/test/Makefile @@ -9,6 +9,7 @@ MODULES= \ andor_SUITE \ apply_SUITE \ beam_validator_SUITE \ + beam_disasm_SUITE \ bs_bincomp_SUITE \ bs_bit_binaries_SUITE \ bs_construct_SUITE \ diff --git a/lib/compiler/test/beam_disasm_SUITE.erl b/lib/compiler/test/beam_disasm_SUITE.erl new file mode 100644 index 0000000000..44574ae64a --- /dev/null +++ b/lib/compiler/test/beam_disasm_SUITE.erl @@ -0,0 +1,65 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 2011. 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(beam_disasm_SUITE). + +-include_lib("test_server/include/test_server.hrl"). + +-export([all/0, suite/0,groups/0,init_per_suite/1, end_per_suite/1, + init_per_group/2,end_per_group/2]). + +-export([stripped/1]). + +suite() -> [{ct_hooks,[ts_install_cth]}]. + +all() -> + [stripped]. + +groups() -> + []. + +init_per_suite(Config) -> + Config. + +end_per_suite(_Config) -> + ok. + +init_per_group(_GroupName, Config) -> + Config. + +end_per_group(_GroupName, Config) -> + Config. + +stripped(doc) -> + ["Check that stripped beam files can be disassembled"]; +stripped(Config) when is_list(Config) -> + ?line PrivDir = ?config(priv_dir, Config), + ?line SrcName = filename:join(PrivDir, "tmp.erl"), + ?line BeamName = filename:join(PrivDir, "tmp.beam"), + Prog = <<"-module(tmp).\n-export([tmp/0]).\ntmp()->ok.\n">>, + ?line ok = file:write_file(SrcName, Prog), + ?line {ok, tmp} = + compile:file(SrcName, [{outdir, PrivDir}]), + ?line {beam_file, tmp, _, Attr, CompileInfo, [_|_]} = + beam_disasm:file(BeamName), + ?line true = is_list(Attr), + ?line true = is_list(CompileInfo), + ?line {ok, {tmp, _}} = beam_lib:strip(BeamName), + ?line {beam_file, tmp, _, none, none, [_|_]} = + beam_disasm:file(BeamName), + ok. diff --git a/lib/compiler/test/error_SUITE.erl b/lib/compiler/test/error_SUITE.erl index 6e0aadf007..eb5e50818e 100644 --- a/lib/compiler/test/error_SUITE.erl +++ b/lib/compiler/test/error_SUITE.erl @@ -183,23 +183,47 @@ get_compilation_errors(Config, Filename) -> E. warnings_as_errors(Config) when is_list(Config) -> - Ts = [{warnings_as_errors, + ?line TestFile = test_filename(Config), + ?line BeamFile = filename:rootname(TestFile, ".erl") ++ ".beam", + ?line OutDir = ?config(priv_dir, Config), + + Ts1 = [{warnings_as_errors, <<" t() -> A = unused, ok. ">>, - [export_all,warnings_as_errors], - {error, - [], - [{3,erl_lint,{unused_var,'A'}}]} }], - ?line [] = run(Config, Ts), + [warnings_as_errors, export_all, {outdir, OutDir}], + {error, + [], + [{3,erl_lint,{unused_var,'A'}}]} }], + ?line [] = run(Ts1, TestFile, write_beam), + ?line false = filelib:is_regular(BeamFile), + + Ts2 = [{warning_unused_var, + <<" + t() -> + A = unused, + ok. + ">>, + [return_warnings, export_all, {outdir, OutDir}], + {warning, + [{3,erl_lint,{unused_var,'A'}}]} }], + + ?line [] = run(Ts2, TestFile, write_beam), + ?line true = filelib:is_regular(BeamFile), + ?line ok = file:delete(BeamFile), + ok. run(Config, Tests) -> + ?line File = test_filename(Config), + run(Tests, File, dont_write_beam). + +run(Tests, File, WriteBeam) -> F = fun({N,P,Ws,E}, BadL) -> - case catch run_test(Config, P, Ws) of + case catch run_test(P, File, Ws, WriteBeam) of E -> BadL; Bad -> @@ -211,8 +235,12 @@ run(Config, Tests) -> lists:foldl(F, [], Tests). run2(Config, Tests) -> + ?line File = test_filename(Config), + run2(Tests, File, dont_write_beam). + +run2(Tests, File, WriteBeam) -> F = fun({N,P,Ws,E}, BadL) -> - case catch filter(run_test(Config, P, Ws)) of + case catch filter(run_test(P, File, Ws, WriteBeam)) of E -> BadL; Bad -> @@ -231,12 +259,19 @@ filter(X) -> %% Compiles a test module and returns the list of errors and warnings. -run_test(Conf, Test0, Warnings) -> - Filename = 'errors_test.erl', - ?line DataDir = ?config(priv_dir, Conf), +test_filename(Conf) -> + Filename = "errors_test.erl", + DataDir = ?config(priv_dir, Conf), + filename:join(DataDir, Filename). + +run_test(Test0, File, Warnings, WriteBeam) -> ?line Test = ["-module(errors_test). ", Test0], - ?line File = filename:join(DataDir, Filename), - ?line Opts = [binary,return_errors|Warnings], + ?line Opts = case WriteBeam of + dont_write_beam -> + [binary,return_errors|Warnings]; + write_beam -> + [return_errors|Warnings] + end, ?line ok = file:write_file(File, Test), %% Compile once just to print all errors and warnings. @@ -252,6 +287,10 @@ run_test(Conf, Test0, Warnings) -> %io:format("compile:file(~s,~p) ->~n~p~n", % [File,Opts,Ws]), []; + {ok,errors_test,[{_File,Ws}]} -> + {warning,Ws}; + {ok,errors_test,[]} -> + []; {error,[{XFile,Es}],Ws} = _ZZ when is_list(XFile) -> %io:format("compile:file(~s,~p) ->~n~p~n", % [File,Opts,_ZZ]), diff --git a/lib/compiler/vsn.mk b/lib/compiler/vsn.mk index 5863842f5b..04290c0a7f 100644 --- a/lib/compiler/vsn.mk +++ b/lib/compiler/vsn.mk @@ -1 +1 @@ -COMPILER_VSN = 4.7.4 +COMPILER_VSN = 4.7.5 diff --git a/lib/cosFileTransfer/doc/src/CosFileTransfer_FileTransferSession.xml b/lib/cosFileTransfer/doc/src/CosFileTransfer_FileTransferSession.xml index 5ac2c61c92..918f0bf9f7 100644 --- a/lib/cosFileTransfer/doc/src/CosFileTransfer_FileTransferSession.xml +++ b/lib/cosFileTransfer/doc/src/CosFileTransfer_FileTransferSession.xml @@ -159,7 +159,7 @@ </func> <func> <name>insert(FTS, SourceFile, DestinationFile, Offset) -> Return</name> - <fsummary>Insert the <c>SourceFile</c>into the <c>DestinationFile</c><c>Offset</c>bytes from the start of the file</fsummary> + <fsummary>Insert the <c>SourceFile</c>into the <c>DestinationFile</c> <c>Offset</c>bytes from the start of the file</fsummary> <type> <v>FTS = SourceFile = DestinationFile = #objref</v> <v>Offset = long()</v> @@ -168,7 +168,7 @@ <desc> <p>This operation behaves almost like the <c>append/3</c> operation. The difference is that the <c>SourceFile</c> will be inserted into the - <c>DestinationFile</c><c>Offset</c> bytes from the start of the file.</p> + <c>DestinationFile</c> <c>Offset</c> bytes from the start of the file.</p> <p>Currently, it is not possible to use this operation when the target object represents FTP.</p> </desc> diff --git a/lib/cosFileTransfer/doc/src/notes.xml b/lib/cosFileTransfer/doc/src/notes.xml index 53c207db2f..c7a4fd4504 100644 --- a/lib/cosFileTransfer/doc/src/notes.xml +++ b/lib/cosFileTransfer/doc/src/notes.xml @@ -30,7 +30,21 @@ <file>notes.xml</file> </header> - <section> + <section><title>cosFileTransfer 1.1.12</title> + + <section><title>Fixed Bugs and Malfunctions</title> + <list> + <item> + <p> XML files have been corrected. </p> + <p> + Own Id: OTP-9550 Aux Id: OTP-9541 </p> + </item> + </list> + </section> + +</section> + +<section> <title>cosFileTransfer 1.1.11</title> <section> diff --git a/lib/cosFileTransfer/src/CosFileTransfer_FileTransferSession_impl.erl b/lib/cosFileTransfer/src/CosFileTransfer_FileTransferSession_impl.erl index e222c5b92b..b7643fb30d 100644 --- a/lib/cosFileTransfer/src/CosFileTransfer_FileTransferSession_impl.erl +++ b/lib/cosFileTransfer/src/CosFileTransfer_FileTransferSession_impl.erl @@ -2,7 +2,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2000-2009. All Rights Reserved. +%% Copyright Ericsson AB 2000-2011. 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 @@ -792,7 +792,7 @@ target_FTS_operation(State, _SrcFile, DestFile, Op, Offset) -> %% Delete the temporary local copy. delete_tmp_file(TempName, "Transfer completed but failed to remove temporary local copy."), - %% Completed the transfer succesfully. + %% Completed the transfer successfully. {reply, ok, State}; {error, epath} -> delete_tmp_file(TempName, diff --git a/lib/cosFileTransfer/vsn.mk b/lib/cosFileTransfer/vsn.mk index 9d68ab2720..fe0226e3b3 100644 --- a/lib/cosFileTransfer/vsn.mk +++ b/lib/cosFileTransfer/vsn.mk @@ -1 +1 @@ -COSFILETRANSFER_VSN = 1.1.11 +COSFILETRANSFER_VSN = 1.1.12 diff --git a/lib/crypto/doc/src/crypto.xml b/lib/crypto/doc/src/crypto.xml index 179ba4498c..4c20f81cae 100644 --- a/lib/crypto/doc/src/crypto.xml +++ b/lib/crypto/doc/src/crypto.xml @@ -347,7 +347,7 @@ Mpint() = <![CDATA[<<ByteLen:32/integer-big, Bytes:ByteLen/binary>>]]> </func> <func> <name>sha_mac_96(Key, Data) -> Mac</name> - <fsummary>Compute an <c>MD5 MAC</c>message authentification code</fsummary> + <fsummary>Compute an <c>SHA MAC</c>message authentification code</fsummary> <type> <v>Key = Data = iolist() | binary()</v> <v>Mac = binary()</v> @@ -744,7 +744,7 @@ Mpint() = <![CDATA[<<ByteLen:32/integer-big, Bytes:ByteLen/binary>>]]> <p>Generate a random number <c><![CDATA[N, Lo =< N < Hi.]]></c> Uses the <c>crypto</c> library pseudo-random number generator. The arguments (and result) can be either erlang integers or binary - multi-precision integers.</p> + multi-precision integers. <c>Hi</c> must be larger than <c>Lo</c>.</p> </desc> </func> <func> diff --git a/lib/crypto/doc/src/notes.xml b/lib/crypto/doc/src/notes.xml index a5434ebd68..763f79e02d 100644 --- a/lib/crypto/doc/src/notes.xml +++ b/lib/crypto/doc/src/notes.xml @@ -30,6 +30,31 @@ </header> <p>This document describes the changes made to the Crypto application.</p> +<section><title>Crypto 2.0.4</title> + + <section><title>Fixed Bugs and Malfunctions</title> + <list> + <item> + <p> + <c>crypto:rand_uniform</c> works correctly for negative + integers. Fails with <c>badarg</c> exception for invalid + ranges (when <c>Hi =< Lo</c>) instead of returning + incorrect output.</p> + <p> + Own Id: OTP-9526</p> + </item> + <item> + <p> + Fix win32 OpenSSL static linking (Thanks to Dave + Cottlehuber)</p> + <p> + Own Id: OTP-9532</p> + </item> + </list> + </section> + +</section> + <section><title>Crypto 2.0.3</title> <section><title>Fixed Bugs and Malfunctions</title> diff --git a/lib/crypto/src/crypto.erl b/lib/crypto/src/crypto.erl index c35dfcebab..c3e13d6b91 100644 --- a/lib/crypto/src/crypto.erl +++ b/lib/crypto/src/crypto.erl @@ -415,6 +415,13 @@ rand_uniform(From,To) when is_binary(From), is_binary(To) -> Whatever end; rand_uniform(From,To) when is_integer(From),is_integer(To) -> + if From < 0 -> + rand_uniform_pos(0, To - From) + From; + true -> + rand_uniform_pos(From, To) + end. + +rand_uniform_pos(From,To) when From < To -> BinFrom = mpint(From), BinTo = mpint(To), case rand_uniform(BinFrom, BinTo) of @@ -422,7 +429,9 @@ rand_uniform(From,To) when is_integer(From),is_integer(To) -> erlint(Result); Other -> Other - end. + end; +rand_uniform_pos(_,_) -> + error(badarg). rand_uniform_nif(_From,_To) -> ?nif_stub. diff --git a/lib/crypto/test/crypto_SUITE.erl b/lib/crypto/test/crypto_SUITE.erl index 283aadb6ea..486751766b 100644 --- a/lib/crypto/test/crypto_SUITE.erl +++ b/lib/crypto/test/crypto_SUITE.erl @@ -138,14 +138,15 @@ link_test_2(Drv) -> Libs = os:cmd(Cmd), io:format("~p\n", [Libs]), case string:str(Libs, "libcrypto") of - 0 -> ok; - _ -> + 0 -> case ?t:is_commercial() of true -> - ?t:fail({libcrypto,not_statically_linked}); + ?t:fail({libcrypto,statically_linked}); false -> - {comment,"Not statically linked (OK for open-source platform)"} - end + {comment,"Statically linked (OK for open-source platform)"} + end; + _ -> + ok end end. @@ -878,10 +879,17 @@ rand_uniform_aux_test(0) -> rand_uniform_aux_test(N) -> ?line L = N*1000, ?line H = N*100000+1, + ?line crypto_rand_uniform(L, H), + ?line crypto_rand_uniform(-L, L), + ?line crypto_rand_uniform(-H, -L), + ?line crypto_rand_uniform(-H, L), + ?line rand_uniform_aux_test(N-1). + +crypto_rand_uniform(L,H) -> ?line R1 = crypto:rand_uniform(L, H), ?line t(R1 >= L), - ?line t(R1 < H), - ?line rand_uniform_aux_test(N-1). + ?line t(R1 < H). + %% %% diff --git a/lib/crypto/vsn.mk b/lib/crypto/vsn.mk index e754aabc44..33fa9b1ec3 100644 --- a/lib/crypto/vsn.mk +++ b/lib/crypto/vsn.mk @@ -1 +1 @@ -CRYPTO_VSN = 2.0.3 +CRYPTO_VSN = 2.0.4 diff --git a/lib/dialyzer/doc/src/notes.xml b/lib/dialyzer/doc/src/notes.xml index 81622a3854..17291b24f7 100755 --- a/lib/dialyzer/doc/src/notes.xml +++ b/lib/dialyzer/doc/src/notes.xml @@ -31,6 +31,115 @@ <p>This document describes the changes made to the Dialyzer application.</p> +<section><title>Dialyzer 2.4.4</title> + + <section><title>Fixed Bugs and Malfunctions</title> + <list> + <item> + <p> + Update results of race_SUITE/extract_translations Update + results of small_SUITE/flatten Add codec_can and + list_to_bitstring tests Fix bug when reporting unused + functions Update Dialyzer r9c_suite results Fix dialyzer + warning on default clause for binary comprehension + (Thanks to Ivan Dubrov)</p> + <p> + Own Id: OTP-9483</p> + </item> + <item> + <p> + Fix server loop detection</p> + <p> + Dialyzer does not normally emit warnings for functions + that implement non-terminating server loops. This + detection failed when some of the elements in an SCC + terminated normally (being for example list + comprehensions or other generic anonymous functions that + were included in the SCC). This patch fixes that.</p> + <p> + Own Id: OTP-9489</p> + </item> + <item> + <p> + Add a proplist() type</p> + <p> + Recently I was adding specs to an API and found that + there is no canonical proplist() type defined. (Thanks to + Ryan Zezeski)</p> + <p> + Own Id: OTP-9499</p> + </item> + <item> + <p> + Suppress some warnings about generation of non-returning + funs</p> + <p> + No warnings are emitted for funs that are non-returning + when the function that generates them has a contract that + specifies that it will return such a non-returning fun.</p> + <p> + Enhance Dialyzer's inference on comparisons</p> + <p> + This patch makes Dialyzer aware of Erlang's total + ordering of terms, enabling discrepancy detection in + cases where e.g. integer() < tuple() is treated as a + comparison that might also return false (when it is + certain to always return true).</p> + <p> + Minor fix in dead code</p> + <p> + Fix infinite loop in dataflow</p> + <p> + Update r9c/{inets,mnesia} results in dialyzer's test + suite</p> + <p> + Add origin information to #fun_var closures</p> + <p> + (Thanks to Tuncer Ayaz and Maria Christakis)</p> + <p> + Own Id: OTP-9529</p> + </item> + <item> + <p> + Quote atoms if necessary in types</p> + <p> + Atoms in some occurrences were not correctly quoted when + formatted to strings, for instance by the typer program + (Thanks to Tomas Abrahamsson)</p> + <p> + Update Dialyzer's reference results</p> + <p> + Own Id: OTP-9560</p> + </item> + <item> + <p> + Fix typer's crash for nonexisting files Remove unused + macro Fix bug in dataflow Decrease tuple arity limit This + fixes a memory related crash.</p> + <p> + Own Id: OTP-9597</p> + </item> + </list> + </section> + + + <section><title>Improvements and New Features</title> + <list> + <item> + <p> + Types for several BIFs have been extended/corrected. Also + the types for types for <c>lists:keyfind/3</c>, + <c>lists:keysearch/3</c>, and <c>lists:keyemember/3</c> + have been corrected. The incorrect/incomplete types could + cause false dialyzer warnings.</p> + <p> + Own Id: OTP-9496</p> + </item> + </list> + </section> + +</section> + <section><title>Dialyzer 2.4.3</title> <section><title>Fixed Bugs and Malfunctions</title> diff --git a/lib/dialyzer/src/dialyzer_dataflow.erl b/lib/dialyzer/src/dialyzer_dataflow.erl index 659297f993..d74c04385b 100644 --- a/lib/dialyzer/src/dialyzer_dataflow.erl +++ b/lib/dialyzer/src/dialyzer_dataflow.erl @@ -1399,10 +1399,14 @@ do_clause(C, Arg, ArgType0, OrigArgType, Map, true -> Any = t_any(), [Any || _ <- Pats]; false -> t_to_tlist(OrigArgType) end, - case bind_pat_vars(Pats, OrigArgTypes, [], Map1, State1) of - {error, bind, _, _, _} -> {{pattern_match, PatTypes}, false}; - {_, _} -> {{pattern_match_cov, PatTypes}, false} - end; + Tag = + case bind_pat_vars(Pats, OrigArgTypes, [], Map1, State1) of + {error, bind, _, _, _} -> pattern_match; + {error, record, _, _, _} -> record_match; + {error, opaque, _, _, _} -> opaque_match; + {_, _} -> pattern_match_cov + end, + {{Tag, PatTypes}, false}; false -> %% Try to find out if this is a default clause in a list %% comprehension and supress this. A real Hack(tm) @@ -1442,12 +1446,12 @@ do_clause(C, Arg, ArgType0, OrigArgType, Map, opaque -> [PatString, format_type(Type, State1), format_type(OpaqueTerm, State1)] end, - FailedMsg = case ErrorType of - bind -> {pattern_match, PatTypes}; - record -> {record_match, PatTypes}; - opaque -> {opaque_match, PatTypes} + FailedTag = case ErrorType of + bind -> pattern_match; + record -> record_match; + opaque -> opaque_match end, - {FailedMsg, Force0} + {{FailedTag, PatTypes}, Force0} end, WarnType = case Msg of {opaque_match, _} -> ?WARN_OPAQUE; diff --git a/lib/dialyzer/src/dialyzer_typesig.erl b/lib/dialyzer/src/dialyzer_typesig.erl index 06863d89a7..30aec59d22 100644 --- a/lib/dialyzer/src/dialyzer_typesig.erl +++ b/lib/dialyzer/src/dialyzer_typesig.erl @@ -2,7 +2,7 @@ %%----------------------------------------------------------------------- %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2006-2010. All Rights Reserved. +%% Copyright Ericsson AB 2006-2011. 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 diff --git a/lib/dialyzer/test/r9c_SUITE_data/results/asn1 b/lib/dialyzer/test/r9c_SUITE_data/results/asn1 index 571e562d0d..292275dd6e 100644 --- a/lib/dialyzer/test/r9c_SUITE_data/results/asn1 +++ b/lib/dialyzer/test/r9c_SUITE_data/results/asn1 @@ -6,7 +6,7 @@ asn1ct.erl:672: The pattern <{'false', Result}, _, _> can never match the type < asn1ct.erl:909: Guard test is_atom(Ext::[49 | 97 | 98 | 100 | 110 | 115]) can never succeed asn1ct_check.erl:1698: The pattern {'error', _} can never match the type [any()] asn1ct_check.erl:2733: The pattern {'type', Tag, _, _, _, _} can never match the type 'ASN1_OPEN_TYPE' | {_,_} | {'fixedtypevaluefield',_,_} -asn1ct_check.erl:2738: The pattern <_S, _> can never match since previous clauses completely covered the type <#state{},#ObjectClassFieldType{class::#objectclass{fields::maybe_improper_list() | {_,_,_,_}},fieldname::{_,maybe_improper_list()},type::'ASN1_OPEN_TYPE' | {_,_} | {'fixedtypevaluefield',_,_}}> +asn1ct_check.erl:2738: The pattern <_S, _> can never match since previous clauses completely covered the type <#state{},#'ObjectClassFieldType'{class::#objectclass{fields::maybe_improper_list() | {_,_,_,_}},fieldname::{_,maybe_improper_list()},type::'ASN1_OPEN_TYPE' | {_,_} | {'fixedtypevaluefield',_,_}}> asn1ct_check.erl:2887: The variable Other can never match since previous clauses completely covered the type any() asn1ct_check.erl:3188: The pattern <_S, [], B> can never match the type <#state{},{'SingleValue',_},{'ValueRange',_}> asn1ct_check.erl:3190: The pattern <_S, A, []> can never match the type <#state{},{'SingleValue',_},{'ValueRange',_}> @@ -29,8 +29,8 @@ asn1ct_check.erl:5128: Guard test is_record(Type::{_,_} | {'fixedtypevaluefield' asn1ct_check.erl:540: The pattern <_S, {'poc', _ObjSet, _Params}> can never match since previous clauses completely covered the type <#state{},_> asn1ct_check.erl:5517: The pattern <_, []> can never match the type <_,[{'ABSTRACT-SYNTAX',{_,_,_}} | {'TYPE-IDENTIFIER',{_,_,_}},...]> asn1ct_constructed_ber.erl:1075: The pattern {{{'ObjectClassFieldType', _, _, _, {'objectfield', PrimFieldName1, PFNList}}, _}, {'componentrelation', _, _}} can never match the type {#type{},_} -asn1ct_constructed_ber.erl:695: The pattern {'EXTENSIONMARK', _, _} can never match the type #ComponentType{} -asn1ct_constructed_ber.erl:748: The pattern <Erules, TopType, {CompList, _ExtList}> can never match the type <_,maybe_improper_list(),[#ComponentType{typespec::{_,_,_,_,_,_}}]> +asn1ct_constructed_ber.erl:695: The pattern {'EXTENSIONMARK', _, _} can never match the type #'ComponentType'{} +asn1ct_constructed_ber.erl:748: The pattern <Erules, TopType, {CompList, _ExtList}> can never match the type <_,maybe_improper_list(),[#'ComponentType'{typespec::{_,_,_,_,_,_}}]> asn1ct_constructed_ber_bin_v2.erl:914: The pattern {{{'ObjectClassFieldType', _, _, _, {'objectfield', PrimFieldName1, PFNList}}, _}, {'componentrelation', _, _}} can never match the type {#type{},_} asn1ct_gen.erl:740: The pattern [] can never match the type [any(),...] asn1ct_gen_ber.erl:974: The pattern <Erules, [{Name, Def} | Rest]> can never match the type <_,[#typedef{name::atom(),typespec::{_,_,_,_,_,_}}]> diff --git a/lib/dialyzer/test/small_SUITE_data/results/my_sofs b/lib/dialyzer/test/small_SUITE_data/results/my_sofs index bfee0bce0d..bc97c08d62 100644 --- a/lib/dialyzer/test/small_SUITE_data/results/my_sofs +++ b/lib/dialyzer/test/small_SUITE_data/results/my_sofs @@ -1,3 +1,3 @@ -my_sofs.erl:34: The pattern {'Set', _, _} can never match the type #OrdSet{} -my_sofs.erl:54: The pattern {'Set', _, _} can never match the type #OrdSet{} +my_sofs.erl:34: The pattern {'Set', _, _} can never match the type #'OrdSet'{} +my_sofs.erl:54: The pattern {'Set', _, _} can never match the type #'OrdSet'{} diff --git a/lib/dialyzer/test/small_SUITE_data/src/list_to_bitstring.erl b/lib/dialyzer/test/small_SUITE_data/src/list_to_bitstring.erl index 2da708cb15..109aa88f16 100644 --- a/lib/dialyzer/test/small_SUITE_data/src/list_to_bitstring.erl +++ b/lib/dialyzer/test/small_SUITE_data/src/list_to_bitstring.erl @@ -2,7 +2,7 @@ %% From: Ken Robinson %% Date: 28/04/2011, 17:26 %% -%% Program that produced borus "Function has no local return" warnings +%% Program that produced bogus "Function has no local return" warnings %% due to erlang:list_to_bitstring/1 having erroneous hard coded type %% information, namely accepting iolist() instead of bitstrlist(). %% Fixed 29/04/2011. diff --git a/lib/dialyzer/vsn.mk b/lib/dialyzer/vsn.mk index 10de07dfbb..a7e82b54ce 100644 --- a/lib/dialyzer/vsn.mk +++ b/lib/dialyzer/vsn.mk @@ -1 +1 @@ -DIALYZER_VSN = 2.4.3 +DIALYZER_VSN = 2.4.4 diff --git a/lib/diameter/doc/src/diameter.xml b/lib/diameter/doc/src/diameter.xml index 36b6cbf0cf..2cad70e3bc 100644 --- a/lib/diameter/doc/src/diameter.xml +++ b/lib/diameter/doc/src/diameter.xml @@ -277,6 +277,10 @@ callback.</p> </taglist> +<p> +An invalid option will cause <seealso marker="#call">call/4</seealso> +to fail.</p> + <marker id="capability"/> </item> @@ -405,6 +409,8 @@ sense.</p> <code> eval([{M,F,A} | T]) -> apply(M, F, T ++ A); +eval([[F|A] | T]) -> + eval([F | T ++ A]); eval([F|A]) -> apply(F, A); eval(F) -> @@ -461,14 +467,14 @@ or any peer if the request does not contain a <c>Destination-Realm</c> AVP.</p> </item> -<tag><c>{host, any|UTF8String()}</c></tag> +<tag><c>{host, any|DiameterIdentity()}</c></tag> <item> <p> Matches only those peers whose <c>Origin-Host</c> has the specified value, or all peers if the atom <c>any</c>.</p> </item> -<tag><c>{realm, any|UTF8String()</c></tag> +<tag><c>{realm, any|DiameterIdentity()</c></tag> <item> <p> Matches only those peers whose <c>Origin-Realm</c> has the @@ -478,8 +484,9 @@ value, or all peers if the atom <c>any</c>.</p> <tag><c>{eval, evaluable()}</c></tag> <item> <p> -Matches only those peers for which the specified evaluable() evaluates -to true on the peer's <c>diameter_caps</c> record.</p> +Matches only those peers for which the specified evaluable() returns +<c>true</c> on the connection's <c>diameter_caps</c> record. +Any other return value or exception is equivalent to <c>false</c>.</p> </item> <tag><c>{neg, peer_filter()}</c></tag> @@ -503,6 +510,21 @@ specified list.</p> </taglist> +<p> +Note that the <c>host</c> and <c>realm</c> filters examine the +outgoing request as passed to <seealso marker="#call">call/4</seealso>, +assuming that this is a record- or list-valued message() as documented +in <seealso marker="diameter_app">diameter_app(3)</seealso>, and that +the message contains at most one of each AVP. +If this is not the case then the <c>{host|realm, DiameterIdentity()}</c> +filters must be used to achieve the desired result. +Note also that an empty host/realm (which should not be typical) +is equivalent to an unspecified one for the purposes of filtering.</p> + +<p> +An invalid filter is equivalent to <c>{any, []}</c>, a filter +that matches no peer.</p> + <marker id="service_event"/> </item> @@ -787,7 +809,7 @@ transports.</p> <type> <v>SvcName = service_name()</v> <v>App = application_alias()</v> -<v>Request = diameter_app:message()</v> +<v>Request = diameter_app:message() | term()</v> <v>Answer = term()</v> <v>Options = [call_opt()]</v> </type> @@ -819,9 +841,8 @@ If there are no suitable peers, or if <seealso marker="diameter_app#pick_peer">pick_peer/4</seealso> rejects them by returning 'false', then <c>{error, no_connection}</c> is returned. -If <seealso marker="diameter_app#pick_peer">pick_peer/4</seealso> -selects a candidate peer then a request process is spawned for the -outgoing request, in which there is a +Otherwise <seealso marker="diameter_app#pick_peer">pick_peer/4</seealso> +is followed by a <seealso marker="diameter_app#prepare_request">prepare_request/3</seealso> callback, the message is encoded and sent.</p> diff --git a/lib/diameter/doc/src/diameter_app.xml b/lib/diameter/doc/src/diameter_app.xml index fc359b9d1d..a9ae0ebbec 100644 --- a/lib/diameter/doc/src/diameter_app.xml +++ b/lib/diameter/doc/src/diameter_app.xml @@ -269,7 +269,12 @@ The candidate peers list will only include those which are selected by any <c>filter</c> option specified in the call to <seealso marker="diameter#call">diameter:call/4</seealso>, and only those which have indicated support for the Diameter application in -question.</p> +question. +The order of the elements is unspecified except that any +peers whose Origin-Host and Origin-Realm matches that of the +outgoing request (in the sense of a <c>{filter, {all, [host, realm]}}</c> +option to <seealso marker="diameter#call">diameter:call/4</seealso>) +will be placed at the head of the list.</p> <p> The return values <c>false</c> and <c>{false, State}</c> are @@ -467,11 +472,11 @@ callback returned false.</p> <v>Packet = packet()</v> <v>SvcName = term()</v> <v>Peer = peer()</v> -<v>Action = Reply | {relay, Opts} | discard | {eval, Action, ContF}</v> +<v>Action = Reply | {relay, Opts} | discard | {eval, Action, PostF}</v> <v>Reply = {reply, message()} | {protocol_error, 3000..3999}</v> <v>Opts = diameter:call_opts()</v> -<v>ContF = diameter:evaluable()</v> +<v>PostF = diameter:evaluable()</v> </type> <desc> <p> @@ -559,26 +564,28 @@ will cause the request process in question to fail.</p> <tag><c>{relay, Opts}</c></tag> <item> <p> -Relay a request to another peer. -The appropriate Route-Record AVP will be added to the relayed request -by diameter and <seealso marker="#pick_peer">pick_peer/4</seealso> -and <seealso marker="#prepare_request">prepare_request/3</seealso> -callback will take place just as if <seealso +Relay a request to another peer in the role of a Diameter relay agent. +If a routing loop is detected then the request is answered with +3005 (DIAMETER_LOOP_DETECTED). +Otherwise a Route-Record AVP (containing the sending peer's Origin-Host) is +added to the request and <seealso marker="#pick_peer">pick_peer/4</seealso> +and subsequent callbacks take place just as if <seealso marker="diameter#call">diameter:call/4</seealso> had been called explicitly. -However, returning a <c>relay</c> tuple also causes the End-to-End -Identifier to be preserved in the header of the relayed request as -required by RFC 3588.</p> +The End-to-End Identifier of the incoming request is preserved in the +header of the relayed request.</p> <p> -The returned <c>Opts</c> should not specify <c>detach</c> and -the <seealso marker="#handle_answer">handle_answer/4</seealso> -callback following from a relayed request must return its first +The returned <c>Opts</c> should not specify <c>detach</c>. +A subsequent <seealso marker="#handle_answer">handle_answer/4</seealso> +callback for the relayed request must return its first argument, the <c>diameter_packet</c> record containing the answer message. Note that the <c>extra</c> option can be specified to supply arguments -that can distinguish the relay case from others if so desired, -although the form of the request message may be sufficient.</p> +that can distinguish the relay case from others if so desired. +Any other return value (for example, from a +<seealso marker="#handle_error">handle_error/4</seealso> callback) +causes the request to be answered with 3002 (DIAMETER_UNABLE_TO_DELIVER).</p> </item> <tag><c>discard</c></tag> @@ -587,18 +594,18 @@ although the form of the request message may be sufficient.</p> Discard the request.</p> </item> -<tag><c>{eval, Action, ContF}</c></tag> +<tag><c>{eval, Action, PostF}</c></tag> <item> <p> Handle the request as if <c>Action</c> has been returned and then -evaluate <c>ContF</c> in the request process.</p> +evaluate <c>PostF</c> in the request process.</p> </item> </taglist> <p> -Note that diameter will respond to protocol errors in an incoming -request without invoking <c>handle_request/3</c>.</p> +Note that protocol errors detected by diameter will result in an +answer message without <c>handle_request/3</c> being invoked.</p> </desc> </func> diff --git a/lib/diameter/doc/src/diameter_sctp.xml b/lib/diameter/doc/src/diameter_sctp.xml index d0377f4b38..c1e839b8e1 100644 --- a/lib/diameter/doc/src/diameter_sctp.xml +++ b/lib/diameter/doc/src/diameter_sctp.xml @@ -74,11 +74,12 @@ marker="diameter_transport#start">diameter_transport(3)</seealso>.</p> <p> The only diameter_sctp-specific argument is the options list. Options <c>raddr</c> and <c>rport</c> specify the remote address -and port for a connector and not valid for a listener. +and port for a connecting transport and not valid for a listening +transport. The former is required while latter defaults to 3868 if unspecified. More than one <c>raddr</c> option can be specified, in which case the -connector in question attempts each in sequence until an association -is established. +connecting transport in question attempts each in sequence until +an association is established. Remaining options are any accepted by gen_sctp:open/1, with the exception of options <c>mode</c>, <c>binary</c>, <c>list</c>, <c>active</c> and <c>sctp_events</c>. @@ -89,7 +90,8 @@ and port respectively.</p> Multiple <c>ip</c> options can be specified for a multihomed peer. If none are specified then the values of Host-IP-Address on the service are used. (In particular, one of these must be specified.) -Option <c>port</c> defaults to 3868 for a listener and 0 for a connector.</p> +Option <c>port</c> defaults to 3868 for a listening transport and 0 for a +connecting transport.</p> <p> diameter_sctp uses the <c>transport_data</c> field of diff --git a/lib/diameter/doc/src/diameter_tcp.xml b/lib/diameter/doc/src/diameter_tcp.xml index 5d6e07b1b8..a502e53972 100644 --- a/lib/diameter/doc/src/diameter_tcp.xml +++ b/lib/diameter/doc/src/diameter_tcp.xml @@ -74,13 +74,14 @@ marker="diameter_transport#start">diameter_transport(3)</seealso>.</p> <p> The only diameter_tcp-specific argument is the options list. Options <c>raddr</c> and <c>rport</c> specify the remote address -and port for a connector and not valid for a listener. +and port for a connecting transport and not valid for a listening +transport. Remaining options are any accepted by gen_tcp:connect/3 for -a connector, or gen_tcp:listen/2 for a listener, with the exception -of <c>binary</c>, <c>packet</c> and <c>active</c>. -Also, option <c>port</c> can be specified for a listener to specify the -local listening port, the default being the standardized 3868 if -unspecified. +a connecting transport, or gen_tcp:listen/2 for a listening transport, +with the exception of <c>binary</c>, <c>packet</c> and <c>active</c>. +Also, option <c>port</c> can be specified for a listening transport +to specify the local listening port, the default being the standardized +3868 if unspecified. Note that option <c>ip</c> specifies the local address.</p> <p> diff --git a/lib/diameter/doc/src/notes.xml b/lib/diameter/doc/src/notes.xml index eafddd7d1e..e2723f3e99 100644 --- a/lib/diameter/doc/src/notes.xml +++ b/lib/diameter/doc/src/notes.xml @@ -36,6 +36,135 @@ first.</p> <!-- ===================================================================== --> +<section><title>Diameter 0.10</title> + + <section><title>Fixed Bugs and Malfunctions</title> + <list> + <item> + <p> + Handle #sctp_paddr_change and #sctp_pdapi_event from + gen_sctp.</p> + <p> + The events are enabled by default but diameter_sctp + neither disabled nor dealt with them. Reception of such + an event caused a transport process to crash.</p> + <p> + Own Id: OTP-9538</p> + </item> + <item> + <p> + Fix header folding bug.</p> + <p> + A prepare_request callback from diameter can return a + diameter_header record in order to set values in the + header of an outgoing request. A fault in + diameter_lib:fold_tuple/3 caused the subsequent encode of + the outgoing request to fail.</p> + <p> + Own Id: OTP-9577</p> + </item> + <item> + <p> + Fix bugs in sending of answer-message replies.</p> + <p> + 3001 (DIAMETER_COMMAND_UNSUPPORTED) was not sent since + the decode placed the AVP list in the wrong field of the + diameter_packet, causing the subsequent encode to fail. + Session-Id was also set improperly, causing encode to + fail even in this case.</p> + <p> + Own Id: OTP-9578</p> + </item> + <item> + <p> + Fix improper use of error_logger:info_report/2.</p> + <p> + Function doesn't take a format string and arguments as it + was called. Instead use error_logger:info_report/1 and + use the same report format as used for warning and error + reports.</p> + <p> + Own Id: OTP-9579</p> + </item> + <item> + <p> + Fix and clarify semantics of peer filters.</p> + <p> + An eval filter returning a non-true value caused the call + process to fail and the doc was vague on how an exception + was treated. Clarify that the non-tuple host/realm + filters assume messages of a certain form.</p> + <p> + Own Id: OTP-9580</p> + </item> + <item> + <p> + Fix and clarify relay behaviour.</p> + <p> + Implicit filtering of the sending peer in relaying a + request could cause loop detection to be preempted in a + manner not specified by RFC3588. Reply with 3002 + (DIAMETER_UNABLE_TO_DELIVER) on anything but an answer to + a relayed request.</p> + <p> + Own Id: OTP-9583</p> + </item> + </list> + </section> + + + <section><title>Improvements and New Features</title> + <list> + <item> + <p> + @id required in dictionary files only when @messages is + specified.</p> + <p> + @id defines an application identifier and this is used + only when sending or receiving messages. A dictionary can + define only AVP's however, to be included by other + dictionaries using @inherits, in which case it makes no + sense to require @id.</p> + <p> + Note that message definitions are not inherited with + @inherits, only AVP's</p> + <p> + Own Id: OTP-9467</p> + </item> + <item> + <p> + Allow @enum when AVP is defined in an inherited + dictionary.</p> + <p> + 3GPP standards (for one) extend the values allowed for + RFC 3588 AVP's of type Enumerated. Previously, extending + an AVP was only possible by completely redefining the + AVP.</p> + <p> + Own Id: OTP-9469</p> + </item> + <item> + <p> + Migrate testsuites to pure common test and add both + suites and testcases.</p> + <p> + Own Id: OTP-9553</p> + </item> + <item> + <p> + Requests of arbitrary form.</p> + <p> + diameter:call/4 can be passed anything, as long as the + subsequent prepare_request callback returns a term that + can be encoded.</p> + <p> + Own Id: OTP-9581</p> + </item> + </list> + </section> + +</section> + <section> <title>diameter 0.9</title> diff --git a/lib/diameter/include/diameter_gen.hrl b/lib/diameter/include/diameter_gen.hrl index 4c91954a21..d037e1044a 100644 --- a/lib/diameter/include/diameter_gen.hrl +++ b/lib/diameter/include/diameter_gen.hrl @@ -44,14 +44,14 @@ encode_avps(Name, Rec) -> ?MODULE, ?LINE, {Reason, Name, Rec}), - erlang:error(list_to_tuple(Reason ++ [Name, Rec, ?MODULE])); + erlang:error(list_to_tuple(Reason ++ [Name])); error: Reason -> Stack = erlang:get_stacktrace(), diameter_dbg:log({encode, failure}, ?MODULE, ?LINE, {Reason, Name, Rec, Stack}), - erlang:error({encode_failure, Reason, Name, Rec, ?MODULE, Stack}) + erlang:error({encode_failure, Reason, Name, Stack}) end. %% encode/2 diff --git a/lib/diameter/make/rules.mk.in b/lib/diameter/make/rules.mk.in index 4a1a55b8d3..6318f2bc9c 100644 --- a/lib/diameter/make/rules.mk.in +++ b/lib/diameter/make/rules.mk.in @@ -164,7 +164,7 @@ $(MAN3DIR)/%.3:: %.xml date=`date +"%B %e %Y"`; \ xsltproc --output "$@" --stringparam company "Ericsson AB" --stringparam docgen "$(DOCGEN)" --stringparam gendate "$$date" --stringparam appname "$(APPLICATION)" --stringparam appver "$(VSN)" --xinclude -path $(DOCGEN)/priv/docbuilder_dtd -path $(DOCGEN)/priv/dtd_man_entities $(DOCGEN)/priv/xsl/db_man.xsl $< -# left for compatability +# left for compatibility $(MAN4DIR)/%.4:: %.xml date=`date +"%B %e %Y"`; \ xsltproc --output "$@" --stringparam company "Ericsson AB" --stringparam docgen "$(DOCGEN)" --stringparam gendate "$$date" --stringparam appname "$(APPLICATION)" --stringparam appver "$(VSN)" --xinclude -path $(DOCGEN)/priv/docbuilder_dtd -path $(DOCGEN)/priv/dtd_man_entities $(DOCGEN)/priv/xsl/db_man.xsl $< @@ -173,7 +173,7 @@ $(MAN4DIR)/%.5:: %.xml date=`date +"%B %e %Y"`; \ xsltproc --output "$@" --stringparam company "Ericsson AB" --stringparam docgen "$(DOCGEN)" --stringparam gendate "$$date" --stringparam appname "$(APPLICATION)" --stringparam appver "$(VSN)" --xinclude -path $(DOCGEN)/priv/docbuilder_dtd -path $(DOCGEN)/priv/dtd_man_entities $(DOCGEN)/priv/xsl/db_man.xsl $< -# left for compatability +# left for compatibility $(MAN6DIR)/%.6:: %_app.xml date=`date +"%B %e %Y"`; \ xsltproc --output "$@" --stringparam company "Ericsson AB" --stringparam docgen "$(DOCGEN)" --stringparam gendate "$$date" --stringparam appname "$(APPLICATION)" --stringparam appver "$(VSN)" --xinclude -path $(DOCGEN)/priv/docbuilder_dtd -path $(DOCGEN)/priv/dtd_man_entities $(DOCGEN)/priv/xsl/db_man.xsl $< diff --git a/lib/diameter/src/app/Makefile b/lib/diameter/src/app/Makefile index 31344fa80b..96b7736a90 100644 --- a/lib/diameter/src/app/Makefile +++ b/lib/diameter/src/app/Makefile @@ -66,12 +66,20 @@ SPEC_ERL_FILES = \ SPEC_HRL_FILES = \ $(SPEC_FILES:%.dia=%.hrl) +MODULES = \ + $(RUNTIME_MODULES) \ + $(HELP_MODULES) + APP_MODULES = \ - $(MODULES) \ + $(RUNTIME_MODULES) \ $(SPEC_MODULES) +TARGET_MODULES = \ + $(APP_MODULES) \ + $(HELP_MODULES) + TARGET_FILES = \ - $(APP_MODULES:%=$(EBIN)/%.$(EMULATOR)) \ + $(TARGET_MODULES:%=$(EBIN)/%.$(EMULATOR)) \ $(APP_TARGET) \ $(APPUP_TARGET) @@ -133,17 +141,15 @@ info: # ---------------------------------------------------- # Generate the app file and then modules into in. This shouldn't know -# about ../{compiler,transport} but good enough for now. +# about ../transport but good enough for now. $(APP_TARGET): $(APP_SRC) \ ../../vsn.mk \ modules.mk \ - ../compiler/modules.mk \ ../transport/modules.mk sed -e 's;%VSN%;$(VSN);' $< > $@ M=`echo $(APP_MODULES) | sed -e 's/^ *//' -e 's/ *$$//' -e 'y/ /,/'`; \ echo "/%APP_MODULES%/s//$$M/;w;q" | tr ';' '\n' \ | ed -s $@ - $(MAKE) -C ../compiler $(APP_TARGET) APP_TARGET=$(APP_TARGET) $(MAKE) -C ../transport $(APP_TARGET) APP_TARGET=$(APP_TARGET) $(APPUP_TARGET): $(APPUP_SRC) ../../vsn.mk @@ -190,6 +196,10 @@ release_docs_spec: # Dependencies # ---------------------------------------------------- +$(SPEC_FILES:%.dia=$(EBIN)/%.$(EMULATOR)): \ + $(DIAMETER_TOP)/include/diameter.hrl \ + $(DIAMETER_TOP)/include/diameter_gen.hrl + depend: depend.mk # Generate dependencies makefile. It's assumed that the compile target diff --git a/lib/diameter/src/app/diameter.app.src b/lib/diameter/src/app/diameter.app.src index 119997953e..a806b5c78a 100644 --- a/lib/diameter/src/app/diameter.app.src +++ b/lib/diameter/src/app/diameter.app.src @@ -20,7 +20,7 @@ {application, diameter, [{description, "Diameter protocol"}, {vsn, "%VSN%"}, - {modules, [%APP_MODULES%,%COMPILER_MODULES%,%TRANSPORT_MODULES%]}, + {modules, [%APP_MODULES%,%TRANSPORT_MODULES%]}, {registered, []}, {applications, [stdlib, kernel]}, {env, []}, diff --git a/lib/diameter/src/app/diameter.appup.src b/lib/diameter/src/app/diameter.appup.src index 2b96153575..6d8ceadb92 100644 --- a/lib/diameter/src/app/diameter.appup.src +++ b/lib/diameter/src/app/diameter.appup.src @@ -20,8 +20,28 @@ {"%VSN%", [ + {"0.9", + [ + {load_module, diameter, soft_purge, soft_purge, []}, + {load_module, diameter_capx, soft_purge, soft_purge, []}, + {load_module, diameter_codec, soft_purge, soft_purge, [diameter_lib]}, + {load_module, diameter_lib, soft_purge, soft_purge, []}, + {load_module, diameter_types, soft_purge, soft_purge, []}, + {load_module, diameter_gen_base_accounting, soft_purge, soft_purge, []}, + {load_module, diameter_gen_base_rfc3588, soft_purge, soft_purge, []}, + {load_module, diameter_gen_relay, soft_purge, soft_purge, []}, + {update, diameter_service, soft, soft_purge, soft_purge, [diameter_lib]}, + {update, diameter_config, soft, soft_purge, soft_purge, []}, + {update, diameter_peer, soft, soft_purge, soft_purge, []}, + {update, diameter_peer_fsm, soft, soft_purge, soft_purge, [diameter_lib]}, + {update, diameter_reg, soft, soft_purge, soft_purge, []}, + {update, diameter_sctp, soft, soft_purge, soft_purge, []}, + {update, diameter_stats, soft, soft_purge, soft_purge, []}, + {update, diameter_sync, soft, soft_purge, soft_purge, []}, + {update, diameter_watchdog, soft, soft_purge, soft_purge, [diameter_lib]} + ] + } ], [ ] }. - diff --git a/lib/diameter/src/app/diameter_callback.erl b/lib/diameter/src/app/diameter_callback.erl index fcf9a8fc1e..6d5c8cdca1 100644 --- a/lib/diameter/src/app/diameter_callback.erl +++ b/lib/diameter/src/app/diameter_callback.erl @@ -60,28 +60,28 @@ pick_peer([Peer|_], _, _SvcName, _State) -> %%% ---------------------------------------------------------- prepare_request(Pkt, _SvcName, _Peer) -> - Pkt. + {send, Pkt}. %%% ---------------------------------------------------------- %%% # prepare_retransmit/3 %%% ---------------------------------------------------------- prepare_retransmit(Pkt, _SvcName, _Peer) -> - Pkt. + {send, Pkt}. %%% ---------------------------------------------------------- %%% # handle_request/3 %%% ---------------------------------------------------------- handle_request(_Pkt, _SvcName, _Peer) -> - discard. + {protocol_error, 3001}. %% DIAMETER_COMMAND_UNSUPPORTED %%% ---------------------------------------------------------- %%% # handle_answer/4 %%% ---------------------------------------------------------- handle_answer(#diameter_packet{msg = Ans}, _Req, _SvcName, _Peer) -> - {ok, Ans}. + Ans. %%% --------------------------------------------------------------------------- %%% # handle_error/4 diff --git a/lib/diameter/src/app/diameter_codec.erl b/lib/diameter/src/app/diameter_codec.erl index f6cbde5446..d88f42fb7c 100644 --- a/lib/diameter/src/app/diameter_codec.erl +++ b/lib/diameter/src/app/diameter_codec.erl @@ -140,10 +140,10 @@ make_flags(Flags0, #diameter_header{is_request = R, mf(undefined, F, _) -> F; mf(B, F, N) -> %% reset the affected bit - (F bxor (F band (1 bsl N))) bor (bit(B) bsl N). + (F bxor (F band (1 bsl N))) bor bit(B, N). -bit(true) -> 1; -bit(false) -> 0. +bit(true, N) -> 1 bsl N; +bit(false, _) -> 0. %% values/1 @@ -199,25 +199,16 @@ msg_header(Mod, MsgName, Header) -> p(Flags, #diameter_header{is_request = true, is_proxiable = P}) -> - Flags bor choose(P, 2#01000000, 0); + Flags band (2#10110000 bor choose(P, 2#01000000, 0)); p(Flags, _) -> Flags. -%% The header below is that of the incoming request being answered, -%% not of the answer (which hasn't been encoded yet). - h(Mod, 'answer-message' = MsgName, Header) -> ?BASE = Mod, - #diameter_header{is_request = true, - cmd_code = Code} - = Header, + #diameter_header{cmd_code = Code} = Header, {_, Flags, ApplId} = ?BASE:msg_header(MsgName), {Code, Flags, ApplId}; -h(Mod, MsgName, #diameter_header{is_request = true, - cmd_code = Code}) -> - {Code, _, _} = Mod:msg_header(MsgName); %% ensure Code - h(Mod, MsgName, _) -> Mod:msg_header(MsgName). @@ -290,7 +281,8 @@ decode_avps(MsgName, Mod, Pkt, {Bs, Avps}) -> %% invalid avp bits ... decode_avps('', Mod, Pkt, Avps) -> %% unknown message ... ?LOG(unknown, {Mod, Pkt#diameter_packet.header}), - Pkt#diameter_packet{errors = lists:reverse(Avps)}; + Pkt#diameter_packet{avps = lists:reverse(Avps), + errors = [3001]}; %% DIAMETER_COMMAND_UNSUPPORTED %% msg = undefined identifies this case. decode_avps(MsgName, Mod, Pkt, Avps) -> %% ... or not diff --git a/lib/diameter/src/app/diameter_config.erl b/lib/diameter/src/app/diameter_config.erl index 42c70890b3..a6b48fe65b 100644 --- a/lib/diameter/src/app/diameter_config.erl +++ b/lib/diameter/src/app/diameter_config.erl @@ -267,7 +267,7 @@ handle_call(uptime, _, #state{id = Time} = State) -> {reply, diameter_lib:now_diff(Time), State}; handle_call(Req, From, State) -> - warning_msg("received unexpected request from ~p:~n~w", [From, Req]), + ?UNEXPECTED([Req, From]), Reply = {error, {bad_request, Req}}, {reply, Reply, State}. @@ -276,7 +276,7 @@ handle_call(Req, From, State) -> %%% ---------------------------------------------------------- handle_cast(Msg, State) -> - warning_msg("received unexpected message:~n~w", [Msg]), + ?UNEXPECTED([Msg]), {noreply, State}. %%% ---------------------------------------------------------- @@ -309,7 +309,7 @@ handle_info(restart, State) -> {noreply, State}; handle_info(Info, State) -> - warning_msg("received unknown info:~n~w", [Info]), + ?UNEXPECTED([Info]), {noreply, State}. %%-------------------------------------------------------------------- @@ -674,8 +674,3 @@ cb(M,F) -> call(Request) -> gen_server:call(?SERVER, Request, infinity). - -%% warning_msg/2 - -warning_msg(F, A) -> - ?diameter_warning("~p: " ++ F, [?MODULE | A]). diff --git a/lib/diameter/src/app/diameter_dbg.erl b/lib/diameter/src/app/diameter_dbg.erl index b18f34e13d..5b0ac3a3b6 100644 --- a/lib/diameter/src/app/diameter_dbg.erl +++ b/lib/diameter/src/app/diameter_dbg.erl @@ -68,12 +68,6 @@ -define(VALUES(Rec), tl(tuple_to_list(Rec))). -%%% ---------------------------------------------------------- -%%% # log/4 -%%% -%%% Called to have something to trace on for happenings of interest. -%%% ---------------------------------------------------------- - log(_Slogan, _Mod, _Line, _Details) -> ok. @@ -82,9 +76,6 @@ log(_Slogan, _Mod, _Line, _Details) -> %%% ---------------------------------------------------------- help() -> - ?INFO:usage(usage()). - -usage() -> not_yet_implemented. %%% ---------------------------------------------------------- @@ -99,30 +90,23 @@ table(T) when (T == diameter_peer) orelse (T == diameter_reg) -> ?INFO:format(collect(T), fields(T), fun ?INFO:split/2); -table(diameter_service = T) -> - Fs = [name, started] ++ fields(T) ++ [peerT, - connT, - share_peers, - use_shared_peers, - shared_peers, - local_peers, - monitor], - ?INFO:format(T, - fun(R) -> - [I,N,S|Vs] = ?VALUES(R), - {Fs, [N,I] ++ ?VALUES(S) ++ Vs} - end, - fun ?INFO:split/2); - table(Table) when is_atom(Table) -> case fields(Table) of undefined = No -> No; Fields -> - ?INFO:format(Table, Fields, fun ?INFO:split/2) + ?INFO:format(Table, Fields, fun split/2) end. +split([started, name | Fs], [S, N | Vs]) -> + {name, [started | Fs], N, [S | Vs]}; +split([[F|FT]|Fs], [Rec|Vs]) -> + [_, V | VT] = tuple_to_list(Rec), + {F, FT ++ Fs, V, VT ++ Vs}; +split([F|Fs], [V|Vs]) -> + {F, Fs, V, Vs}. + %%% ---------------------------------------------------------- %%% # TableName() %%% ---------------------------------------------------------- @@ -146,14 +130,14 @@ table(Table) %%% ---------------------------------------------------------- tables() -> - format_all(fun ?INFO:split/3). - -format_all(SplitFun) -> - ?INFO:format(field(?LOCAL), SplitFun, fun collect/1). + ?INFO:format(field(?LOCAL), fun split/3, fun collect/1). field(Tables) -> lists:map(fun(T) -> {T, fields(T)} end, lists:sort(Tables)). +split(_, Fs, Vs) -> + split(Fs, Vs). + %%% ---------------------------------------------------------- %%% # modules() %%% ---------------------------------------------------------- @@ -396,76 +380,24 @@ stop() -> %% tp/1 tpl(T) -> - dbg(tpl, dbg(T)). + dbg(tpl, T). tp(T) -> - dbg(tp, dbg(T)). - -%% dbg/1 - -dbg(x) -> - [{M, x, []} || M <- [diameter_tcp, - diameter_etcp, - diameter_sctp, - diameter_peer_fsm, - diameter_watchdog]]; - -dbg(log) -> - {?MODULE, log, 4}; - -dbg({log = F, Mods}) - when is_list(Mods) -> - {?MODULE, F, [{['_','$1','_','_'], - [?ORCOND([{'==', '$1', M} || M <- Mods])], - []}]}; - -dbg({log = F, Mod}) -> - dbg({F, [Mod]}); - -dbg(send) -> - {diameter_peer, send, 2}; - -dbg(recv) -> - {diameter_peer, recv, 2}; - -dbg(sendrecv) -> - [{diameter_peer, send, 2}, - {diameter_peer, recv, 2}]; - -dbg(decode) -> - [{diameter_codec,decode,2}]; - -dbg(encode) -> - [{diameter_codec,encode,2,[]}, - {diameter_codec,encode,3,[]}, - {diameter_codec,encode,4}]; - -dbg(transition = T) -> - [{?MODULE, log, [{[T,M,'_','_'],[],[]}]} - || M <- [diameter_watchdog, diameter_peer_fsm]]; - -dbg(T) -> - T. + dbg(tp, T). %% dbg/2 -dbg(TF, L) +dbg(F, L) when is_list(L) -> - {ok, lists:foldl(fun(T,A) -> {ok, X} = dbg(TF, T), [X|A] end, [], L)}; + [dbg(F, X) || X <- L]; dbg(F, M) when is_atom(M) -> - dbg(F, {M}); + apply(dbg, F, [M, x]); dbg(F, T) when is_tuple(T) -> - [_|_] = A = tuple_to_list(T), - {ok,_} = apply(dbg, F, case is_list(lists:last(A)) of - false -> - A ++ [[{'_',[],[{exception_trace}]}]]; - true -> - A - end). + apply(dbg, F, tuple_to_list(T)). %% =========================================================================== %% =========================================================================== @@ -493,15 +425,19 @@ peers(Name) -> peers(_, undefined) -> []; -peers(Name, {Cs,As}) -> - mk_peer(Name, connector, Cs) ++ mk_peer(Name, acceptor, As). - -mk_peer(Name, T, Ts) -> - [[Name | mk_peer(T,Vs)] || Vs <- Ts]. - -mk_peer(Type, Vs) -> - [Ref, State, Opts, WPid, TPid, SApps, Caps] - = get_values(Vs, [ref, state, options, watchdog, peer, apps, caps]), +peers(Name, Ts) -> + lists:flatmap(fun(T) -> mk_peers(Name, T) end, Ts). + +mk_peers(Name, [_, {type, connect} | _] = Ts) -> + [[Name | mk_peer(Ts)]]; +mk_peers(Name, [R, {type, listen}, O, {accept = A, As}]) -> + [[Name | mk_peer([R, {type, A}, O | Ts])] || Ts <- As]. +%% This is a bit lame: service_info works to build this list and out +%% of something like what we want here and then we take it apart. + +mk_peer(Vs) -> + [Type, Ref, State, Opts, WPid, TPid, SApps, Caps] + = get_values(Vs, [type,ref,state,options,watchdog,peer,apps,caps]), [Ref, State, [{type, Type} | Opts], s(WPid), s(TPid), SApps, Caps]. get_values(Vs, Ks) -> @@ -509,9 +445,13 @@ get_values(Vs, Ks) -> s(undefined = T) -> T; +s({Pid, _Started, _State}) -> + state(Pid); +s({Pid, _Started}) -> + state(Pid). %% Collect states from watchdog/transport pids. -s(Pid) -> +state(Pid) -> MRef = erlang:monitor(process, Pid), Pid ! {state, self()}, receive @@ -541,7 +481,18 @@ fields(diameter_stats) -> [] end; -?FIELDS(diameter_service); +fields(diameter_service) -> + [started, + name, + record_info(fields, diameter_service), + peerT, + connT, + share_peers, + use_shared_peers, + shared_peers, + local_peers, + monitor]; + ?FIELDS(diameter_event); ?FIELDS(diameter_uri); ?FIELDS(diameter_avp); diff --git a/lib/diameter/src/app/diameter_internal.hrl b/lib/diameter/src/app/diameter_internal.hrl index 9de3914830..63b35550a8 100644 --- a/lib/diameter/src/app/diameter_internal.hrl +++ b/lib/diameter/src/app/diameter_internal.hrl @@ -37,13 +37,14 @@ %% Failure reports always get a stack trace. -define(STACK, erlang:get_stacktrace()). -%% Info report for anything unexpected. --define(REPORT(Reason, Func, Args), - diameter_lib:report(Reason, {?MODULE, Func, Args})). +%% Warning report for unexpected messages in various processes. +-define(UNEXPECTED(F,A), + diameter_lib:warning_report(unexpected, {?MODULE, F, A})). +-define(UNEXPECTED(A), ?UNEXPECTED(?FUNC, A)). %% Something to trace on. -define(LOG(Slogan, Details), - diameter_dbg:log(Slogan, ?MODULE, ?LINE, Details)). + diameter_lib:log(Slogan, ?MODULE, ?LINE, Details)). -define(LOGC(Bool, Slogan, Details), ((Bool) andalso ?LOG(Slogan, Details))). %% Compensate for no builtin ?FUNC for use in log reports. @@ -77,19 +78,3 @@ server_id, is_dynamic, expiration}). - -%%%---------------------------------------------------------------------- -%%% Error/warning/info message macro(s) -%%%---------------------------------------------------------------------- - --define(diameter_info(F, A), - (catch error_logger:info_msg("[ ~w : ~w : ~p ] ~n" ++ F ++ "~n", - [?APPLICATION, ?MODULE, self()|A]))). - --define(diameter_warning(F, A), - (catch error_logger:warning_msg("[ ~w : ~w : ~p ] ~n" ++ F ++ "~n", - [?APPLICATION, ?MODULE, self()|A]))). - --define(diameter_error(F, A), - (catch error_logger:error_msg("[ ~w : ~w : ~p ] ~n" ++ F ++ "~n", - [?APPLICATION, ?MODULE, self()|A]))). diff --git a/lib/diameter/src/app/diameter_lib.erl b/lib/diameter/src/app/diameter_lib.erl index b5c0e1bf6a..362d593b24 100644 --- a/lib/diameter/src/app/diameter_lib.erl +++ b/lib/diameter/src/app/diameter_lib.erl @@ -30,7 +30,8 @@ ipaddr/1, spawn_opts/2, wait/1, - fold_tuple/3]). + fold_tuple/3, + log/4]). -include("diameter_internal.hrl"). @@ -46,14 +47,9 @@ report(Reason, MFA) -> info_report(Reason, MFA). -info_report(Reason, {M,F,A}) -> - error_logger:info_report(" Reason: ~p~n" - " Pid: ~p~n" - " Node: ~p~n" - " Module: ~p~n" - " Function: ~p~n" - "Arguments: ~p~n", - [Reason, self(), node(), M, F, A]). +info_report(Reason, MFA) -> + report(fun error_logger:info_report/1, Reason, MFA), + true. %%% --------------------------------------------------------------------------- %%% # error_report(Reason, MFA) @@ -69,7 +65,7 @@ warning_report(Reason, MFA) -> report(fun error_logger:warning_report/1, Reason, MFA). report(Fun, Reason, MFA) -> - Fun([{reason, Reason}, {who, self()}, {where, node()}, {what, MFA}]), + Fun([{why, Reason}, {who, self()}, {what, MFA}]), false. %%% --------------------------------------------------------------------------- @@ -255,12 +251,22 @@ w(L) -> fold_tuple(_, T, undefined) -> T; -fold_tuple(N, T0, T) -> - element(2, lists:foldl(fun(X, {M,_} = A) -> {M+1, ft(X, A)} end, - {N, T0}, - lists:nthtail(N-1, tuple_to_list(T)))). +fold_tuple(N, T0, T1) -> + {_, T} = lists:foldl(fun(V, {I,_} = IT) -> {I+1, ft(V, IT)} end, + {N, T0}, + lists:nthtail(N-1, tuple_to_list(T1))), + T. -ft(undefined, T) -> +ft(undefined, {_, T}) -> T; -ft(X, {N, T}) -> - setelement(N, T, X). +ft(Value, {Idx, T}) -> + setelement(Idx, T, Value). + +%%% ---------------------------------------------------------- +%%% # log(Slogan, Mod, Line, Details) +%%% +%%% Called to have something to trace on for happenings of interest. +%%% ---------------------------------------------------------- + +log(_, _, _, _) -> + ok. diff --git a/lib/diameter/src/app/diameter_peer.erl b/lib/diameter/src/app/diameter_peer.erl index 6b8971b8ea..3e78c4caef 100644 --- a/lib/diameter/src/app/diameter_peer.erl +++ b/lib/diameter/src/app/diameter_peer.erl @@ -148,7 +148,7 @@ handle_call(uptime, _, #state{id = Time} = State) -> {reply, diameter_lib:now_diff(Time), State}; handle_call(Req, From, State) -> - warning_msg("received unexpected request from ~p:~n~w", [From, Req]), + ?UNEXPECTED([Req, From]), {reply, nok, State}. %%% ---------------------------------------------------------- @@ -156,7 +156,7 @@ handle_call(Req, From, State) -> %%% ---------------------------------------------------------- handle_cast(Msg, State) -> - warning_msg("received unexpected message:~n~w", [Msg]), + ?UNEXPECTED([Msg]), {noreply, State}. %%% ---------------------------------------------------------- @@ -169,7 +169,7 @@ handle_info({notify, SvcName, T}, S) -> {noreply, S}; handle_info(Info, State) -> - warning_msg("received unexpected info:~n~w", [Info]), + ?UNEXPECTED([Info]), {noreply, State}. %% ---------------------------------------------------------- @@ -223,8 +223,3 @@ value([], V) -> call(Request) -> gen_server:call(?SERVER, Request, infinity). - -%% warning_msg/2 - -warning_msg(F, A) -> - ?diameter_warning("~p: " ++ F, [?MODULE | A]). diff --git a/lib/diameter/src/app/diameter_reg.erl b/lib/diameter/src/app/diameter_reg.erl index 8e5f34c2c3..882b9da238 100644 --- a/lib/diameter/src/app/diameter_reg.erl +++ b/lib/diameter/src/app/diameter_reg.erl @@ -243,7 +243,8 @@ handle_call(state, _, State) -> handle_call(uptime, _, #state{id = Time} = State) -> {reply, diameter_lib:now_diff(Time), State}; -handle_call(_Req, _From, State) -> +handle_call(Req, From, State) -> + ?UNEXPECTED([Req, From]), {reply, nok, State}. %%% ---------------------------------------------------------- @@ -251,7 +252,7 @@ handle_call(_Req, _From, State) -> %%% ---------------------------------------------------------- handle_cast(Msg, State)-> - warning_msg("received unexpected message:~n~w", [Msg]), + ?UNEXPECTED([Msg]), {noreply, State}. %%% ---------------------------------------------------------- @@ -264,7 +265,7 @@ handle_info({'DOWN', MRef, process, Pid, _}, State) -> {noreply, State}; handle_info(Info, State) -> - warning_msg("received unknown info:~n~w", [Info]), + ?UNEXPECTED([Info]), {noreply, State}. %%% ---------------------------------------------------------- @@ -324,8 +325,3 @@ repl([], _, _) -> call(Request) -> gen_server:call(?SERVER, Request, infinity). - -%% warning_msg/2 - -warning_msg(F, A) -> - ?diameter_warning("~p: " ++ F, [?MODULE | A]). diff --git a/lib/diameter/src/app/diameter_service.erl b/lib/diameter/src/app/diameter_service.erl index 63b0649dc4..421e36ccf5 100644 --- a/lib/diameter/src/app/diameter_service.erl +++ b/lib/diameter/src/app/diameter_service.erl @@ -463,7 +463,7 @@ handle_call(stop, _From, S) -> %% stating a monitor that waits for DOWN before returning. handle_call(Req, From, S) -> - ?REPORT(unknown_request, ?FUNC, [Req, From]), + unexpected(handle_call, [Req, From], S), {reply, nok, S}. %%% --------------------------------------------------------------------------- @@ -471,7 +471,7 @@ handle_call(Req, From, S) -> %%% --------------------------------------------------------------------------- handle_cast(Req, S) -> - ?REPORT(unknown_request, ?FUNC, [Req]), + unexpected(handle_cast, [Req], S), {noreply, S}. %%% --------------------------------------------------------------------------- @@ -553,8 +553,8 @@ transition({failover, TRef, Seqs}, S) -> failover(TRef, Seqs, S), ok; -transition(Req, _) -> - ?REPORT(unknown_request, ?FUNC, [Req]), +transition(Req, S) -> + unexpected(handle_info, [Req], S), ok. %%% --------------------------------------------------------------------------- @@ -591,6 +591,9 @@ code_change(FromVsn, SvcName, Extra, #diameter_app{alias = Alias} = A) -> %% =========================================================================== %% =========================================================================== +unexpected(F, A, #state{service_name = Name}) -> + ?UNEXPECTED(F, A ++ [Name]). + cb([_|_] = M, F, A) -> eval(M, F, A); cb(Rec, F, A) -> @@ -1398,15 +1401,15 @@ recv_answer(Timeout, %% is, from the last peer to which we've transmitted. receive - {answer = A, Ref, Rq, Pkt} -> %% Answer from peer. + {answer = A, Ref, Rq, Pkt} -> %% Answer from peer {A, Rq, Pkt}; - {timeout = Reason, TRef, _} -> %% No timely reply + {timeout = Reason, TRef, _} -> %% No timely reply {error, Req, Reason}; - {failover = Reason, TRef, false} -> %% No alternative peer. + {failover = Reason, TRef, false} -> %% No alternate peer {error, Req, Reason}; - {failover, TRef, Transport} -> %% Resend to alternate peer. + {failover, TRef, Transport} -> %% Resend to alternate peer try_retransmit(Timeout, SvcName, Req, Transport); - {failover, TRef} -> %% May have missed failover notification. + {failover, TRef} -> %% May have missed failover notification Seqs = diameter_codec:sequence_numbers(RPkt), Pid = whois(SvcName), is_pid(Pid) andalso (Pid ! {failover, TRef, Seqs}), @@ -1685,9 +1688,9 @@ recv_request({Id, Alias}, T, TPid, Apps, Caps, Pkt) -> %% DIAMETER_APPLICATION_UNSUPPORTED 3007 %% A request was sent for an application that is not supported. -recv_request(false, {_, OH, OR}, TPid, _, _, Pkt) -> - ?LOG({error, application}, Pkt), - reply(answer_message({OH, OR, 3007}, collect_avps(Pkt)), ?BASE, TPid, Pkt). +recv_request(false, T, TPid, _, _, Pkt) -> + As = collect_avps(Pkt), + protocol_error(3007, T, TPid, Pkt#diameter_packet{avps = As}). collect_avps(Pkt) -> case diameter_codec:collect_avps(Pkt) of @@ -1706,13 +1709,9 @@ collect_avps(Pkt) -> %% set to an unrecognized value, or that is inconsistent with the %% AVP's definition. %% -recv_request({_, OH, OR}, {TPid, _}, _, #diameter_packet{errors = [Bs | _], - bin = Bin, - avps = Avps} - = Pkt) +recv_request(T, {TPid, _}, _, #diameter_packet{errors = [Bs | _]} = Pkt) when is_bitstring(Bs) -> - ?LOG({error, invalid_avp_bits}, Bin), - reply(answer_message({OH, OR, 3009}, Avps), ?BASE, TPid, Pkt); + protocol_error(3009, T, TPid, Pkt); %% Either we support this application but don't recognize the command %% or we're a relay and the command isn't proxiable. @@ -1722,18 +1721,15 @@ recv_request({_, OH, OR}, {TPid, _}, _, #diameter_packet{errors = [Bs | _], %% recognize or support. This MUST be used when a Diameter node %% receives an experimental command that it does not understand. %% -recv_request({_, OH, OR}, +recv_request(T, {TPid, _}, #diameter_app{id = Id}, #diameter_packet{header = #diameter_header{is_proxiable = P}, - msg = M, - avps = Avps, - bin = Bin} + msg = M} = Pkt) when ?APP_ID_RELAY /= Id, undefined == M; ?APP_ID_RELAY == Id, not P -> - ?LOG({error, command_unsupported}, Bin), - reply(answer_message({OH, OR, 3001}, Avps), ?BASE, TPid, Pkt); + protocol_error(3001, T, TPid, Pkt); %% Error bit was set on a request. %% @@ -1742,15 +1738,12 @@ recv_request({_, OH, OR}, %% either set to an invalid combination, or to a value that is %% inconsistent with the command code's definition. %% -recv_request({_, OH, OR}, +recv_request(T, {TPid, _}, _, - #diameter_packet{header = #diameter_header{is_error = true}, - avps = Avps, - bin = Bin} + #diameter_packet{header = #diameter_header{is_error = true}} = Pkt) -> - ?LOG({error, error_bit}, Bin), - reply(answer_message({OH, OR, 3008}, Avps), ?BASE, TPid, Pkt); + protocol_error(3008, T, TPid, Pkt); %% A message in a locally supported application or a proxiable message %% in the relay application. Don't distinguish between the two since @@ -1878,7 +1871,7 @@ resend(true, _, _, T, {TPid, _}, Pkt) -> %% Route-Record loop resend(false, Opts, App, - {SvcName, _, _}, + {SvcName, _, _} = T, {TPid, #diameter_caps{origin_host = {_, OH}}}, #diameter_packet{header = Hdr0, avps = Avps} @@ -1887,46 +1880,41 @@ resend(false, Seq = diameter_session:sequence(), Hdr = Hdr0#diameter_header{hop_by_hop_id = Seq}, Msg = [Hdr, Route | Avps], - %% Filter sender as ineligible receiver. - reply(call(SvcName, App, Msg, [{filter, {neg, {host, OH}}} | Opts]), - TPid, - Pkt). + resend(call(SvcName, App, Msg, Opts), T, TPid, Pkt). %% The incoming request is relayed with the addition of a -%% Route-Record. Note the requirement on the return from call/4. -%% This places a requirement on the values returned by the -%% handle_answer and handle_error callbacks of the application module -%% in question. +%% Route-Record. Note the requirement on the return from call/4 below, +%% which places a requirement on the value returned by the +%% handle_answer callback of the application module in question. +%% +%% Note that there's nothing stopping the request from being relayed +%% back to the sender. A pick_peer callback may want to avoid this but +%% a smart peer might recognize the potential loop and choose another +%% route. A less smart one will probably just relay the request back +%% again and force us to detect the loop. A pick_peer that wants to +%% avoid this can specify filter to avoid the possibility. +%% Eg. {neg, {host, OH} where #diameter_caps{origin_host = {OH, _}}. %% %% RFC 6.3 says that a relay agent does not modify Origin-Host but %% says nothing about a proxy. Assume it should behave the same way. -%% reply/3 +%% resend/4 %% %% Relay a reply to a relayed request. %% Answer from the peer: reset the hop by hop identifier and send. -reply(#diameter_packet{bin = B} - = Pkt, - TPid, - #diameter_packet{header = #diameter_header{hop_by_hop_id = Id}, - transport_data = TD}) -> +resend(#diameter_packet{bin = B} + = Pkt, + _, + TPid, + #diameter_packet{header = #diameter_header{hop_by_hop_id = Id}, + transport_data = TD}) -> send(TPid, Pkt#diameter_packet{bin = diameter_codec:hop_by_hop_id(Id, B), transport_data = TD}); %% TODO: counters -%% Not. Ignoring the error feels harsh but there is no appropriate -%% Result-Code for a protocol error (which this isn't really anyway) -%% and the RFC doesn't provide any guidance how to act. A weakness -%% here is that we don't deal well with a decode error: the request -%% will simply timeout on the peer's end. Better would be to just send -%% the answer (with modified hop by hop identifier) on regardless, at -%% least in the relay case in which there's no examination of the -%% answer. In the proxy case it's not clear that the callback won't -%% examine the answer. Just be quiet here since a decode error causes -%% the request process to crash (or not depending on the error and -%% config and/or handle_answer callback). -reply(_, _, _) -> - ok. +%% Or not: DIAMETER_UNABLE_TO_DELIVER. +resend(_, T, TPid, Pkt) -> + protocol_error(3002, T, TPid, Pkt). %% is_loop/4 %% @@ -1971,24 +1959,20 @@ reply(Msg, Dict, TPid, #diameter_packet{errors = [H|_] = Es} = Pkt) -> %% make_reply_packet/2 +%% Binaries and header/avp lists are sent as-is. make_reply_packet(Bin, _) when is_binary(Bin) -> #diameter_packet{bin = Bin}; - make_reply_packet([#diameter_header{} | _] = Msg, _) -> #diameter_packet{msg = Msg}; +%% Otherwise a reply message clears the R and T flags and retains the +%% P flag. The E flag will be set at encode. make_reply_packet(Msg, #diameter_packet{header = ReqHdr}) -> - #diameter_header{end_to_end_id = EId, - hop_by_hop_id = Hid, - is_proxiable = P} - = ReqHdr, - - Hdr = #diameter_header{version = ?DIAMETER_VERSION, - end_to_end_id = EId, - hop_by_hop_id = Hid, - is_proxiable = P, - is_retransmitted = false}, + Hdr = ReqHdr#diameter_header{version = ?DIAMETER_VERSION, + is_request = false, + is_error = undefined, + is_retransmitted = false}, #diameter_packet{header = Hdr, msg = Msg}. @@ -2126,16 +2110,6 @@ answer_message({OH, OR, RC}, Avps) -> session_id(Code, Vid, Avps) when is_list(Avps) -> try - {value, #diameter_avp{} = Avp} = find_avp(Code, Vid, Avps), - Avp - catch - error: _ -> - [] - end; - -session_id(Code, Vid, Avps) - when is_list(Avps) -> - try {value, #diameter_avp{data = D}} = find_avp(Code, Vid, Avps), [{'Session-Id', [?BASE:avp(decode, D, 'Session-Id')]}] catch @@ -2482,6 +2456,7 @@ rpd(Pid, Alias, PDict) -> %%% %%% Output: {TransportPid, #diameter_caps{}, #diameter_app{}} %%% | false +%%% | {error, Reason} %%% --------------------------------------------------------------------------- %% Initial call, from an arbitrary process. @@ -2540,28 +2515,18 @@ get_destination(Msg, Dict) -> [str(get_avp_value(Dict, 'Destination-Realm', Msg)), str(get_avp_value(Dict, 'Destination-Host', Msg))]. -%% TODO: -%% -%% Should add some way of specifying destination directly so that the -%% only requirement is that the prepare_request callback returns -%% something specific. (eg. {host, DH}; that is, let the caller specify.) -%% -%% Also, there is no longer any need to call get_destination at all in -%% the default case. - -str(T) - when T == undefined; - T == [] -> +%% This is not entirely correct. The avp could have an arity 1, in +%% which case an empty list is a DiameterIdentity of length 0 rather +%% than the list of no values we treat it as by mapping to undefined. +%% This behaviour is documented. +str([]) -> undefined; -str([X]) - when is_list(X) -> - X; str(T) -> T. %% get_avp_value/3 %% -%% Support outgoing messages in one of three forms: +%% Find an AVP in a message of one of three forms: %% %% - a message record (as generated from a .dia spec) or %% - a list of an atom message name followed by 2-tuple, avp name/value pairs. @@ -2593,8 +2558,9 @@ get_avp_value(_, Name, [_MsgName | Avps]) -> undefined end; -get_avp_value(Dict, Name, Rec) - when is_tuple(Rec) -> +%% Message is typically a record but not necessarily: diameter:call/4 +%% can be passed an arbitrary term. +get_avp_value(Dict, Name, Rec) -> try Dict:'#get-'(Name, Rec) catch @@ -2690,7 +2656,8 @@ peers(Alias, RH, Filter, Peers) -> end. %% Place a peer whose Destination-Host/Realm matches those of the -%% request at the front of the result list. +%% request at the front of the result list. Could add some sort of +%% 'sort' option to allow more control. ps([], _, _, {Ys, Ns}) -> lists:reverse(Ys, Ns); @@ -2700,11 +2667,11 @@ ps([{_TPid, #diameter_caps{} = Caps} = TC | Rest], RH, Filter, Acc) -> TC, Acc)). -pacc(true, true, TC, {Ts, Fs}) -> - {[TC|Ts], Fs}; -pacc(true, false, TC, {Ts, Fs}) -> - {Ts, [TC|Fs]}; -pacc(false, _, _, Acc) -> +pacc(true, true, Peer, {Ts, Fs}) -> + {[Peer|Ts], Fs}; +pacc(true, false, Peer, {Ts, Fs}) -> + {Ts, [Peer|Fs]}; +pacc(_, _, _, Acc) -> Acc. %% caps_filter/3 @@ -2712,17 +2679,19 @@ pacc(false, _, _, Acc) -> caps_filter(C, RH, {neg, F}) -> not caps_filter(C, RH, F); -caps_filter(C, RH, {all, L}) -> +caps_filter(C, RH, {all, L}) + when is_list(L) -> lists:all(fun(F) -> caps_filter(C, RH, F) end, L); -caps_filter(C, RH, {any, L}) -> +caps_filter(C, RH, {any, L}) + when is_list(L) -> lists:any(fun(F) -> caps_filter(C, RH, F) end, L); -caps_filter(#diameter_caps{origin_host = {_,H}}, [_,DH], host) -> - eq(undefined, DH, H); +caps_filter(#diameter_caps{origin_host = {_,OH}}, [_,DH], host) -> + eq(undefined, DH, OH); -caps_filter(#diameter_caps{origin_realm = {_,R}}, [DR,_], realm) -> - eq(undefined, DR, R); +caps_filter(#diameter_caps{origin_realm = {_,OR}}, [DR,_], realm) -> + eq(undefined, DR, OR); caps_filter(C, _, Filter) -> caps_filter(C, Filter). @@ -2738,6 +2707,9 @@ caps_filter(#diameter_caps{origin_host = {_,OH}}, {host, H}) -> caps_filter(#diameter_caps{origin_realm = {_,OR}}, {realm, R}) -> eq(any, R, OR); +%% Anything else is expected to be an eval filter. Filter failure is +%% documented as being equivalent to a non-matching filter. + caps_filter(C, T) -> try {eval, F} = T, @@ -2746,8 +2718,14 @@ caps_filter(C, T) -> _:_ -> false end. -eq(X, A, B) -> - X == A orelse A == B. +eq(Any, Id, PeerId) -> + Any == Id orelse try + iolist_to_binary(Id) == iolist_to_binary(PeerId) + catch + _:_ -> false + end. +%% OctetString() can be specified as an iolist() so test for string +%% rather then term equality. %% transports/1 diff --git a/lib/diameter/src/app/diameter_stats.erl b/lib/diameter/src/app/diameter_stats.erl index b52d4cdcfb..71479afa95 100644 --- a/lib/diameter/src/app/diameter_stats.erl +++ b/lib/diameter/src/app/diameter_stats.erl @@ -207,7 +207,7 @@ handle_call({flush, Contrib}, _From, State) -> {reply, fetch(Contrib), State}; handle_call(Req, From, State) -> - warning_msg("received unexpected request from ~p:~n~w", [From, Req]), + ?UNEXPECTED([Req, From]), {reply, nok, State}. %% ---------------------------------------------------------- @@ -219,7 +219,7 @@ handle_cast({incr, Rec}, State) -> {noreply, State}; handle_cast(Msg, State) -> - warning_msg("received unexpected message:~n~w", [Msg]), + ?UNEXPECTED([Msg]), {noreply, State}. %% ---------------------------------------------------------- @@ -231,7 +231,7 @@ handle_info({'DOWN', _MRef, process, Pid, _}, State) -> {noreply, State}; handle_info(Info, State) -> - warning_msg("received unknown info:~n~w", [Info]), + ?UNEXPECTED([Info]), {noreply, State}. %% ---------------------------------------------------------- @@ -340,8 +340,3 @@ cast(Msg) -> call(Request) -> gen_server:call(?SERVER, Request, infinity). - -%% warning_msg/2 - -warning_msg(F, A) -> - ?diameter_warning("~p: " ++ F, [?MODULE | A]). diff --git a/lib/diameter/src/app/diameter_sync.erl b/lib/diameter/src/app/diameter_sync.erl index f7777ae809..ce2db4b3a2 100644 --- a/lib/diameter/src/app/diameter_sync.erl +++ b/lib/diameter/src/app/diameter_sync.erl @@ -204,37 +204,37 @@ handle_call(?REQUEST(Type, Name, Req, Max, Timeout), T = find(Name, QD), nq(queued(T) =< Max, T, {Type, From}, Name, Req, Timeout, State); -handle_call(Request, _From, State) -> - {reply, call(Request, State), State}. +handle_call(Request, From, State) -> + {reply, call(Request, From, State), State}. -%% call/2 +%% call/3 -call(?CARP(Name), #state{queue = QD}) -> +call(?CARP(Name), _, #state{queue = QD}) -> pcar(find(Name, QD)); -call(state, State) -> +call(state, _, State) -> State; -call(uptime, #state{time = T}) -> +call(uptime, _, #state{time = T}) -> diameter_lib:now_diff(T); -call({flush, Name}, #state{queue = QD}) -> +call({flush, Name}, _, #state{queue = QD}) -> cancel(find(Name, QD)); -call(pending, #state{pending = N}) -> +call(pending, _, #state{pending = N}) -> N; -call({pending, Name}, #state{queue = QD}) -> +call({pending, Name}, _, #state{queue = QD}) -> queued(find(Name, QD)); -call(queues, #state{queue = QD}) -> +call(queues, _, #state{queue = QD}) -> fetch_keys(QD); -call({pids, Name}, #state{queue = QD}) -> +call({pids, Name}, _, #state{queue = QD}) -> plist(find(Name, QD)); -call(Req, _State) -> %% ignore - warning_msg("received unexpected request:~n~w", [Req]), +call(Req, From, _State) -> %% ignore + ?UNEXPECTED(handle_call, [Req, From]), nok. %%% ---------------------------------------------------------- @@ -242,7 +242,7 @@ call(Req, _State) -> %% ignore %%% ---------------------------------------------------------- handle_cast(Msg, State) -> - warning_msg("received unexpected message:~n~w", [Msg]), + ?UNEXPECTED([Msg]), {noreply, State}. %%% ---------------------------------------------------------- @@ -267,7 +267,7 @@ info({'DOWN', MRef, process, Pid, Info}, queue = dq(fetch(Name, QD), Pid, Info, Name, QD)}; info(Info, State) -> - warning_msg("received unknown info:~n~w", [Info]), + ?UNEXPECTED(handle_info, [Info]), State. reply({call, From}, T) -> @@ -548,8 +548,3 @@ gen_call(Server, Req, Timeout) -> exit: _ -> timeout end. - -%% warning_msg/2 - -warning_msg(F, A) -> - ?diameter_warning("~p: " ++ F, [?MODULE | A]). diff --git a/lib/diameter/src/app/modules.mk b/lib/diameter/src/app/modules.mk index a7a78b1a9d..c133e6f64e 100644 --- a/lib/diameter/src/app/modules.mk +++ b/lib/diameter/src/app/modules.mk @@ -22,17 +22,13 @@ SPEC_FILES = \ diameter_gen_base_accounting.dia \ diameter_gen_relay.dia -MODULES = \ +RUNTIME_MODULES = \ diameter \ diameter_app \ - diameter_callback \ diameter_capx \ diameter_config \ - diameter_dbg \ diameter_codec \ diameter_dict \ - diameter_exprecs \ - diameter_info \ diameter_lib \ diameter_misc_sup \ diameter_peer \ @@ -49,6 +45,12 @@ MODULES = \ diameter_watchdog \ diameter_watchdog_sup +HELP_MODULES = \ + diameter_callback \ + diameter_exprecs \ + diameter_dbg \ + diameter_info + INTERNAL_HRL_FILES = \ diameter_internal.hrl \ diameter_types.hrl diff --git a/lib/diameter/src/compiler/Makefile b/lib/diameter/src/compiler/Makefile index 3ab76064ac..779013bfbc 100644 --- a/lib/diameter/src/compiler/Makefile +++ b/lib/diameter/src/compiler/Makefile @@ -94,16 +94,6 @@ info: @echo "" # ---------------------------------------------------- -# Special Build Targets -# ---------------------------------------------------- - -# Invoked from ../app to add modules to the app file. -$(APP_TARGET): force - M=`echo $(MODULES) | sed -e 's/^ *//' -e 's/ *$$//' -e 'y/ /,/'`; \ - echo "/%COMPILER_MODULES%/s//$$M/;w;q" | tr ';' '\n' \ - | ed -s $@ - -# ---------------------------------------------------- # Release Target # ---------------------------------------------------- ifneq ($(ERL_TOP),) diff --git a/lib/diameter/src/compiler/diameter_codegen.erl b/lib/diameter/src/compiler/diameter_codegen.erl index 30caebc544..a33b07a3d3 100644 --- a/lib/diameter/src/compiler/diameter_codegen.erl +++ b/lib/diameter/src/compiler/diameter_codegen.erl @@ -37,7 +37,6 @@ file/2, file/3]). --include_lib("diameter/src/app/diameter_internal.hrl"). -include("diameter_forms.hrl"). %% Generated functions that could have no generated clauses will have diff --git a/lib/diameter/src/transport/diameter_sctp.erl b/lib/diameter/src/transport/diameter_sctp.erl index 92aa8488a0..46473e7bf1 100644 --- a/lib/diameter/src/transport/diameter_sctp.erl +++ b/lib/diameter/src/transport/diameter_sctp.erl @@ -525,7 +525,22 @@ recv({[#sctp_sndrcvinfo{stream = Id}], Bin}, #transport{parent = Pid}) recv({[], #sctp_shutdown_event{assoc_id = Id}}, #transport{assoc_id = Id}) -> - stop. + stop; + +%% Note that diameter_sctp(3) documents that sctp_events cannot be +%% specified in the list of options passed to gen_sctp and that +%% gen_opts/1 guards against this. This is to ensure that we know what +%% events to expect and also to ensure that we receive +%% #sctp_sndrcvinfo{} with each incoming message (data_io_event = +%% true). Adaptation layer events (ie. #sctp_adaptation_event{}) are +%% disabled by default so don't handle it. We could simply disable +%% events we don't react to but don't. + +recv({[], #sctp_paddr_change{}}, _) -> + ok; + +recv({[], #sctp_pdapi_event{}}, _) -> + ok. %% up/1 @@ -591,7 +606,7 @@ f([], _, _) -> %% assoc_id/1 -assoc_id(#sctp_shutdown_event{assoc_id = Id}) -> %% undocumented +assoc_id(#sctp_shutdown_event{assoc_id = Id}) -> Id; assoc_id(#sctp_assoc_change{assoc_id = Id}) -> Id; diff --git a/lib/diameter/test/.gitignore b/lib/diameter/test/.gitignore new file mode 100644 index 0000000000..df38dfc5e3 --- /dev/null +++ b/lib/diameter/test/.gitignore @@ -0,0 +1,3 @@ + +/log +/depend.mk diff --git a/lib/diameter/test/Makefile b/lib/diameter/test/Makefile index b3648c7bb1..dba1f126dc 100644 --- a/lib/diameter/test/Makefile +++ b/lib/diameter/test/Makefile @@ -16,40 +16,29 @@ # # %CopyrightEnd% -ifneq ($(ERL_TOP),) -include $(ERL_TOP)/make/target.mk -include $(ERL_TOP)/make/$(TARGET)/otp.mk +ifeq ($(ERL_TOP),) +TOP = $(DIAMETER_TOP) else -include $(DIAMETER_TOP)/make/target.mk -include $(DIAMETER_TOP)/make/$(TARGET)/rules.mk +TOP = $(ERL_TOP) +DIAMETER_TOP = $(TOP)/lib/diameter endif +include $(TOP)/make/target.mk +include $(TOP)/make/$(TARGET)/otp.mk + # ---------------------------------------------------- # Application version # ---------------------------------------------------- + include ../vsn.mk -VSN=$(DIAMETER_VSN) +VSN = $(DIAMETER_VSN) # ---------------------------------------------------- # Release directory specification # ---------------------------------------------------- -RELSYSDIR = $(RELEASE_PATH)/diameter_test - -ifeq ($(findstring win32,$(TARGET)),win32) - -MAKEFILE_SRC = Makefile.win32.src - -else - -MAKEFILE_SRC = Makefile.src - -endif - -ifeq ($(TT_DIR),) -TT_DIR = /tmp -endif +RELSYSDIR = $(RELEASE_PATH)/diameter_test # ---------------------------------------------------- # Target Specs @@ -59,39 +48,16 @@ include modules.mk EBIN = . -HRL_FILES = diameter_test_lib.hrl - +HRL_FILES = $(INTERNAL_HRL_FILES) ERL_FILES = $(MODULES:%=%.erl) SOURCE = $(HRL_FILES) $(ERL_FILES) - TARGET_FILES = $(MODULES:%=%.$(EMULATOR)) -APP_CASES = app appup - -TRANSPORT_CASES = tcp - -ALL_CASES = \ - $(APP_CASES) \ - compiler conf sync session stats reg peer \ - $(TRANSPORT_CASES) - - -EMAKEFILE = Emakefile -ifneq ($(ERL_TOP),) -MAKE_EMAKE = $(wildcard $(ERL_TOP)/make/make_emakefile) -else -MAKE_EMAKE = $(wildcard $(DIAMETER_TOP)/make/make_emakefile) -endif +SUITE_MODULES = $(filter diameter_%_SUITE, $(MODULES)) +SUITES = $(SUITE_MODULES:diameter_%_SUITE=%) -ifeq ($(MAKE_EMAKE),) -BUILDTARGET = $(TARGET_FILES) RELTEST_FILES = $(TEST_SPEC_FILE) $(COVER_SPEC_FILE) $(SOURCE) -else -BUILDTARGET = emakebuild -RELTEST_FILES = $(EMAKEFILE) $(TEST_SPEC_FILE) $(COVER_SPEC_FILE) $(SOURCE) -endif - # ---------------------------------------------------- # FLAGS @@ -99,310 +65,120 @@ endif include ../src/app/diameter.mk -ifeq ($(USE_DIAMETER_TEST_CODE),true) -ERL_COMPILE_FLAGS += -DDIAMETER_TEST_CODE=mona_lisa_spelar_doom -endif - -ifeq ($(USE_DIAMETER_HIPE),true) -ERL_COMPILE_FLAGS += +native -DDIAMETER_hipe_special=true -endif - -ifneq ($(ERL_TOP),) -ERL_COMPILE_FLAGS += \ - $(DIAMETER_ERL_COMPILE_FLAGS) \ - -pa $(ERL_TOP)/lib/test_server/ebin \ - -I$(ERL_TOP)/lib/test_server/include -else -ERL_COMPILE_FLAGS += \ - $(DIAMETER_ERL_COMPILE_FLAGS) \ - -pa $(TEST_SERVER_DIR)/ebin \ - -I$(TEST_SERVER_DIR)/include -endif - -ERL_PATH = \ - -pa ../../$(APPLICATION)/ebin \ - -pa ../../et/ebin - -ifndef SUITE -SUITE = diameter_SUITE -endif - -ESTOP = -s init stop - -ifeq ($(DONT_STOP),true) -MAYBE_ESTOP = -else -MAYBE_ESTOP = $(ESTOP) -endif - -ETVIEW = -s et_viewer -ifeq ($(USE_ET_VIEWER),true) -MAYBE_ETVIEW = -else -MAYBE_ETVIEW = $(ETVIEW) -endif - -ifeq ($(MERL),) -MERL = $(ERL) -endif - -ARGS += -noshell - -ifeq ($(DISABLE_TC_TIMEOUT),true) -ARGS += -diameter_test_timeout -endif - - -DIAMETER_TEST_SERVER = diameter_test_server - +# This is only used to compile suite locally when running with a +# target like 'all' below. Target release_tests only installs source. +ERL_COMPILE_FLAGS += $(DIAMETER_ERL_COMPILE_FLAGS) \ + -DDIAMETER_CT=true \ + -I $(DIAMETER_TOP)/src/app # ---------------------------------------------------- # Targets # ---------------------------------------------------- -tests debug opt: $(BUILDTARGET) - -targets: $(TARGET_FILES) - -.PHONY: emakebuild - -emakebuild: $(EMAKEFILE) +all: $(SUITES) -$(EMAKEFILE): - $(MAKE_EMAKE) $(ERL_COMPILE_FLAGS) -o$(EBIN) '*_SUITE_make' | grep -v Warning > $(EMAKEFILE) - $(MAKE_EMAKE) $(ERL_COMPILE_FLAGS) -o$(EBIN) $(MODULES) | grep -v Warning >> $(EMAKEFILE) +tests debug opt: $(TARGET_FILES) clean: - rm -f $(EMAKEFILE) rm -f $(TARGET_FILES) + rm -f depend.mk + +realclean: clean + rm -rf log rm -f errs core *~ +.PHONY: all tests debug opt clean realclean + docs: info: - @echo "MAKE_EMAKE = $(MAKE_EMAKE)" - @echo "EMAKEFILE = $(EMAKEFILE)" - @echo "BUILDTARGET = $(BUILDTARGET)" - @echo "" + @echo "TARGET_FILES = $(TARGET_FILES)" + @echo @echo "ERL_COMPILE_FLAGS = $(ERL_COMPILE_FLAGS)" @echo "ERL = $(ERL)" @echo "ERLC = $(ERLC)" - @echo "MERL = $(MERL)" - @echo "" - @echo "ARGS = $(ARGS)" - @echo "" + @echo @echo "HRL_FILES = $(HRL_FILES)" @echo "ERL_FILES = $(ERL_FILES)" @echo "TARGET_FILES = $(TARGET_FILES)" - @echo "" + @echo + @echo "SUITE_MODULES = $(SUITE_MODULES)" + @echo "SUITES = $(SUITES)" + @echo help: - @echo "" - @echo "This Makefile controls the test of the $(APPLICATION) application. " - @echo "" - @echo "There are two separate ways to perform the test of $(APPLICATION)." - @echo "" - @echo " a) Run the official OTP test-server (which we do not describe here)" - @echo "" - @echo " b) Run the test-server provided with this application. " - @echo " There are a number of targets to run the entire or parts" - @echo " of this applications ($(APPLICATION)) test-suite" - @echo "" + @echo @echo "Targets:" - @echo "" - @echo " help" - @echo " Print this info" - @echo "" + @echo + @echo " all" + @echo " Run all test suites." + @echo + @echo " $(SUITES)" + @echo " Run a specific test suite." + @echo + @echo " tests" + @echo " Compile all test-code." + @echo + @echo " clean | realclean" + @echo " Remove generated files." + @echo @echo " info" - @echo " Prints various environment variables. " - @echo " May be useful when debugging the Makefile. " - @echo "" - @echo " tests | debug | opt " - @echo " Compile all test-code. " - @echo "" - @echo " clean " - @echo " Remove all targets. " - @echo "" - @echo " test" - @echo " Run the entire $(APPLICATION) test-suite. " - @echo "" - @echo " app" - @echo " Run the $(APPLICATION) application sub-test-suite. " - @echo "" - @echo " appup" - @echo " Run the $(APPLICATION) application upgrade (appup) sub-test-suite. " - @echo "" - @echo " compiler" - @echo " Run the $(APPLICATION) compiler sub-test-suite(s). " - @echo "" - @echo " conf" - @echo " Run the $(APPLICATION) config sub-test-suite. " - @echo " Checks various aspects of the $(APPLICATION) configuration. " - @echo "" - @echo " sync" - @echo " Run the $(APPLICATION) sync sub-test-suite. " - @echo "" - @echo " session" - @echo " Run the $(APPLICATION) session sub-test-suite. " - @echo "" - @echo " stats" - @echo " Run the $(APPLICATION) stats sub-test-suite. " - @echo "" - @echo " reg" - @echo " Run the $(APPLICATION) reg sub-test-suite. " - @echo "" - @echo " peer" - @echo " Run the $(APPLICATION) peer sub-test-suite" - @echo "" - @echo " ptab" - @echo " Run the $(APPLICATION) persistent-table sub-test-suite" - @echo "" - @echo " tcp" - @echo " Run the $(APPLICATION) tcp sub-test-suite" - @echo "" - @echo "" + @echo " Prints various environment variables." + @echo " May be useful when debugging this Makefile." + @echo + @echo " help" + @echo " Print this info." + @echo +.PHONY: docs info help # ---------------------------------------------------- # Special Targets # ---------------------------------------------------- -all: make - @echo "make sure epmd is new" - @epmd -kill > /dev/null - @echo "Running all sub-suites separatelly" - @for i in $(ALL_CASES); do \ - echo "SUITE: $$i"; \ - clearmake -V $$i > $$i.log; \ - done - -aall: make - @echo "make sure epmd is new" - @epmd -kill > /dev/null - @echo "Running all app sub-suites separatelly" - @for i in $(APP_CASES); do \ - echo "SUITE: $$i"; \ - clearmake -V $$i > $$i.log; \ - done - echo "done" - -tall: make - @echo "make sure epmd is new" - @epmd -kill > /dev/null - @echo "Running all transport sub-suites separatelly" - @for i in $(TRANSPORT_CASES); do \ - echo "SUITE: $$i"; \ - clearmake -V $$i > $$i.log; \ - done - -make: targets - -test: make - $(MERL) $(ARGS) -sname diameter_test $(ERL_PATH) \ - -s $(DIAMETER_TEST_SERVER) t $(SUITE) \ - $(MAYBE_ESTOP) - -utest: make - $(MERL) $(ARGS) -sname diameter_utest $(ERL_PATH) \ - $(MAYBE_ETVIEW) \ - -s $(DIAMETER_TEST_SERVER) t $(SUITE) \ - $(ESTOP) - -# ftest: make -# $(MERL) $(ARGS) -sname diameter_ftest $(ERL_PATH) \ -# -s diameter_filter \ -# -s $(DIAMETER_TEST_SERVER) t $(SUITE) \ -# $(ESTOP) -# - -########################## - -# tickets: make -# $(MERL) $(ARGS) -sname diameter_tickets $(ERL_PATH) \ -# -s $(DIAMETER_TEST_SERVER) tickets $(SUITE) \ -# $(ESTOP) -# - -app: make - $(MERL) $(ARGS) -sname diameter_app $(ERL_PATH) \ - -s $(DIAMETER_TEST_SERVER) t diameter_app_test \ - $(ESTOP) +# Exit with a non-zero status if the output looks to indicate failure. +# diameter_ct:run/1 itself can't tell (it seems). +$(SUITES): log tests + $(ERL) -noshell \ + -pa $(DIAMETER_TOP)/ebin \ + -sname diameter_test_$@ \ + -s diameter_ct run diameter_$@_SUITE \ + -s init stop \ + | awk '1{rc=0} {print} / FAILED /{rc=1} END{exit rc}' +# Shorter in sed but requires a GNU extension (ie. Q). -appup: make - $(MERL) $(ARGS) -sname diameter_appup $(ERL_PATH) \ - -s $(DIAMETER_TEST_SERVER) t diameter_appup_test \ - $(ESTOP) - -compiler: make - $(MERL) $(ARGS) -sname diameter_compiler $(ERL_PATH) \ - -s $(DIAMETER_TEST_SERVER) t diameter_compiler_test \ - $(ESTOP) - -conf: make - $(MERL) $(ARGS) -sname diameter_config $(ERL_PATH) \ - -s $(DIAMETER_TEST_SERVER) t diameter_config_test \ - $(ESTOP) - -sync: make - $(MERL) $(ARGS) -sname diameter_sync $(ERL_PATH) \ - -s $(DIAMETER_TEST_SERVER) t diameter_sync_test \ - $(ESTOP) - -session: make - $(MERL) $(ARGS) -sname diameter_session $(ERL_PATH) \ - -s $(DIAMETER_TEST_SERVER) t diameter_session_test \ - $(ESTOP) - -stats: make - $(MERL) $(ARGS) -sname diameter_stats $(ERL_PATH) \ - -s $(DIAMETER_TEST_SERVER) t diameter_stats_test \ - $(ESTOP) - -reg: make - $(MERL) $(ARGS) -sname diameter_reg $(ERL_PATH) \ - -s $(DIAMETER_TEST_SERVER) t diameter_reg_test \ - $(ESTOP) - -peer: make - $(MERL) $(ARGS) -sname diameter_peer $(ERL_PATH) \ - -s $(DIAMETER_TEST_SERVER) t diameter_peer_test \ - $(ESTOP) - -ptab: make - $(MERL) $(ARGS) -sname diameter_persistent_table $(ERL_PATH) \ - -s $(DIAMETER_TEST_SERVER) t diameter_persistent_table_test \ - $(ESTOP) - -tcp: make - $(MERL) $(ARGS) -sname diameter_tcp $(ERL_PATH) \ - -s $(DIAMETER_TEST_SERVER) t diameter_tcp_test \ - $(ESTOP) - - -node: - $(MERL) -sname diameter $(ERL_PATH) +log: + mkdir $@ +.PHONY: $(SUITES) # ---------------------------------------------------- # Release Targets # ---------------------------------------------------- -ifneq ($(ERL_TOP),) -include $(ERL_TOP)/make/otp_release_targets.mk -else -include $(DIAMETER_TOP)/make/release_targets.mk -endif +include $(TOP)/make/otp_release_targets.mk release_spec: release_docs_spec: -release_tests_spec: tests +release_tests_spec: $(INSTALL_DIR) $(RELSYSDIR) $(INSTALL_DATA) $(RELTEST_FILES) $(RELSYSDIR) -# $(INSTALL_DATA) $(TEST_SPEC_FILE) $(COVER_SPEC_FILE) \ -# $(HRL_FILES) $(ERL_FILES) \ -# $(RELSYSDIR) -# - chmod -R u+w $(RELSYSDIR) +.PHONY: release_spec release_docs_spec release_test_specs + +# ---------------------------------------------------- + +depend: depend.mk + +# Generate dependencies makefile. +depend.mk: depend.sed $(MODULES:%=%.erl) Makefile + (for f in $(MODULES); do \ + sed -f $< $$f.erl | sed "s@/@/$$f@"; \ + done) \ + > $@ + +-include depend.mk + +.PHONY: depend diff --git a/lib/diameter/test/depend.sed b/lib/diameter/test/depend.sed new file mode 100644 index 0000000000..a399eb45f0 --- /dev/null +++ b/lib/diameter/test/depend.sed @@ -0,0 +1,31 @@ +# +# %CopyrightBegin% +# +# Copyright Ericsson AB 2010-2011. 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% +# + +# +# Extract local include dependencies from .erl files. The output is massaged +# further in Makefile. +# + +/^-include/!d +/^-include_lib/d +/diameter_gen/d + +s@^-include("@@ +s@".*@@ +s@^@$(EBIN)/.$(EMULATOR): @ diff --git a/lib/diameter/test/diameter.spec b/lib/diameter/test/diameter.spec index a6e71762eb..fae7863bec 100644 --- a/lib/diameter/test/diameter.spec +++ b/lib/diameter/test/diameter.spec @@ -1,9 +1 @@ {suites, "../diameter_test", all}. -%%{skip, {diameter_compiler_test, all, "Not yet implemented"}}. -%%{skip, {diameter_config_test, all, "Not yet implemented"}}. -%%{skip, {diameter_peer_test, all, "Not yet implemented"}}. -%%{skip, {diameter_reg_test, all, "Not yet implemented"}}. -%%{skip, {diameter_session_test, all, "Not yet implemented"}}. -%%{skip, {diameter_stats_test, all, "Not yet implemented"}}. -%%{skip, {diameter_sync_test, all, "Not yet implemented"}}. -%%{skip, {diameter_tcp_test, all, "Not yet implemented"}}. diff --git a/lib/diameter/test/diameter_SUITE.erl b/lib/diameter/test/diameter_SUITE.erl deleted file mode 100644 index 443cf90e92..0000000000 --- a/lib/diameter/test/diameter_SUITE.erl +++ /dev/null @@ -1,108 +0,0 @@ -%% -%% %CopyrightBegin% -%% -%% Copyright Ericsson AB 2010-2011. 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% -%% - -%% -%%---------------------------------------------------------------------- -%% Purpose: Test application config -%%---------------------------------------------------------------------- - --module(diameter_SUITE). - --export([ - suite/0, - all/0, - groups/0, - - init_per_testcase/2, - fin_per_testcase/2, - - init_per_suite/1, - end_per_suite/1, - - init_per_group/2, - end_per_group/2, - - init/0 - ]). - --export([t/0, t/1]). - - --include("diameter_test_lib.hrl"). - - -t() -> diameter_test_server:t(?MODULE). -t(Case) -> diameter_test_server:t({?MODULE, Case}). - -%% Test server callbacks -init_per_testcase(Case, Config) -> - diameter_test_server:init_per_testcase(Case, Config). - -fin_per_testcase(Case, Config) -> - diameter_test_server:fin_per_testcase(Case, Config). - -init() -> - process_flag(trap_exit, true), - ?FLUSH(). - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% Top test case - -suite() -> - [{ct_hooks, [{ts_install_cth, [{nodenames,1}]}]}]. - -all() -> - [ - {group, app}, - {group, appup}, - {group, compiler}, - {group, config}, - {group, sync}, - {group, session}, - {group, stats}, - {group, reg}, - {group, peer}, - {group, tcp} - ]. - -groups() -> - [{app, [], [{diameter_app_test, all}]}, - {appup, [], [{diameter_appup_test, all}]}, - {compiler, [], [{diameter_compiler_test, all}]}, - {config, [], [{diameter_config_test, all}]}, - {sync, [], [{diameter_sync_test, all}]}, - {session, [], [{diameter_session_test, all}]}, - {stats, [], [{diameter_stats_test, all}]}, - {reg, [], [{diameter_reg_test, all}]}, - {peer, [], [{diameter_peer_test, all}]}, - {tcp, [], [{diameter_tcp_test, all}]}]. - - -init_per_suite(Config) -> - Config. - -end_per_suite(_Config) -> - ok. - -init_per_group(_GroupName, Config) -> - Config. - -end_per_group(_GroupName, Config) -> - Config. diff --git a/lib/diameter/test/diameter_app_SUITE.erl b/lib/diameter/test/diameter_app_SUITE.erl new file mode 100644 index 0000000000..104785b4e6 --- /dev/null +++ b/lib/diameter/test/diameter_app_SUITE.erl @@ -0,0 +1,257 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 2010-2011. 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% +%% + +%% +%% Tests based on the contents of the diameter app file. +%% + +-module(diameter_app_SUITE). + +-export([suite/0, + all/0, + init_per_suite/1, + end_per_suite/1]). + +%% testcases +-export([keys/1, + vsn/1, + modules/1, + exports/1, + release/1, + xref/1, + relup/1]). + +-include("diameter_ct.hrl"). + +-define(A, list_to_atom). + +%% =========================================================================== + +suite() -> + [{timetrap, {seconds, 10}}]. + +all() -> + [keys, + vsn, + modules, + exports, + release, + xref, + relup]. + +init_per_suite(Config) -> + [{application, ?APP, App}] = diameter_util:consult(?APP, app), + [{app, App} | Config]. + +end_per_suite(_Config) -> + ok. + +%% =========================================================================== +%% # keys/1 +%% +%% Ensure that the app file contains selected keys. Some of these would +%% also be caught by other testcases. +%% =========================================================================== + +keys(Config) -> + App = fetch(app, Config), + [] = lists:filter(fun(K) -> not lists:keymember(K, 1, App) end, + [vsn, description, modules, registered, applications]). + +%% =========================================================================== +%% # vsn/1 +%% +%% Ensure that our app version sticks to convention. +%% =========================================================================== + +vsn(Config) -> + true = is_vsn(fetch(vsn, fetch(app, Config))). + +%% =========================================================================== +%% # modules/1 +%% +%% Ensure that the app file modules and installed modules differ by +%% compiler/help modules. +%% =========================================================================== + +modules(Config) -> + Mods = fetch(modules, fetch(app, Config)), + Installed = code_mods(), + Help = [diameter_callback, + diameter_codegen, + diameter_dbg, + diameter_exprecs, + diameter_info, + diameter_spec_scan, + diameter_spec_util], + {[], Help} = {Mods -- Installed, lists:sort(Installed -- Mods)}. + +code_mods() -> + Dir = code:lib_dir(?APP, ebin), + {ok, Files} = file:list_dir(Dir), + [?A(lists:reverse(R)) || N <- Files, "maeb." ++ R <- [lists:reverse(N)]]. + +%% =========================================================================== +%% # exports/1 +%% +%% Ensure that no module does export_all. +%% =========================================================================== + +exports(Config) -> + Mods = fetch(modules, fetch(app, Config)), + [] = [M || M <- Mods, exports_all(M)]. + +exports_all(Mod) -> + Opts = fetch(options, Mod:module_info(compile)), + + is_list(Opts) andalso lists:member(export_all, Opts). + +%% =========================================================================== +%% # release/1 +%% +%% Ensure that it's possible to build a minimal release with our app file. +%% =========================================================================== + +release(Config) -> + App = fetch(app, Config), + Rel = {release, + {"diameter test release", fetch(vsn, App)}, + {erts, erlang:system_info(version)}, + [{A, appvsn(A)} || A <- fetch(applications, App)]}, + Dir = fetch(priv_dir, Config), + ok = write_file(filename:join([Dir, "diameter_test.rel"]), Rel), + {ok, _, []} = systools:make_script("diameter_test", [{path, [Dir]}, + {outdir, Dir}, + silent]). + +appvsn(Name) -> + [{application, Name, App}] = diameter_util:consult(Name, app), + fetch(vsn, App). + +%% =========================================================================== +%% # xref/1 +%% +%% Ensure that no function in our application calls an undefined function. +%% =========================================================================== + +xref(Config) -> + App = fetch(app, Config), + Mods = fetch(modules, App) -- [diameter_codegen, diameter_dbg], + %% Skip modules that aren't required at runtime and that have + %% dependencies beyond those applications listed in the app file. + + {ok, XRef} = xref:start(make_name(xref_test_name)), + ok = xref:set_default(XRef, [{verbose, false}, {warnings, false}]), + + %% Only add our application and those it's dependent on according + %% to the app file. Well, almost. erts beams are also required to + %% stop xref from complaining about calls to module erlang, which + %% was previously in kernel. Erts isn't an application however, in + %% the sense that there's no .app file, and isn't listed in + %% applications. Seems less than ideal. + ok = lists:foreach(fun(A) -> add_application(XRef, A) end, + [?APP, erts | fetch(applications, App)]), + + {ok, Undefs} = xref:analyze(XRef, undefined_function_calls), + + xref:stop(XRef), + + %% Only care about calls from our own application. + [] = lists:filter(fun({{M,_,_},_}) -> lists:member(M, Mods) end, Undefs). + +add_application(XRef, App) -> + add_application(XRef, App, code:lib_dir(App)). + +%% erts will not be in the lib directory before installation. +add_application(XRef, erts, {error, _}) -> + Dir = filename:join([code:root_dir(), "erts", "preloaded", "ebin"]), + {ok, _} = xref:add_directory(XRef, Dir, []); +add_application(XRef, App, Dir) + when is_list(Dir) -> + {ok, App} = xref:add_application(XRef, Dir, []). + +make_name(Suf) -> + list_to_atom(atom_to_list(?APP) ++ "_" ++ atom_to_list(Suf)). + +%% =========================================================================== +%% # relup/1 +%% +%% Ensure that we can generate release upgrade files using our appup file. +%% =========================================================================== + +relup(Config) -> + [{Vsn, Up, Down}] = diameter_util:consult(?APP, appup), + true = is_vsn(Vsn), + + App = fetch(app, Config), + Rel = [{erts, erlang:system_info(version)} + | [{A, appvsn(A)} || A <- fetch(applications, App)]], + + Dir = fetch(priv_dir, Config), + + Name = write_rel(Dir, Rel, Vsn), + UpFrom = acc_rel(Dir, Rel, Up), + DownTo = acc_rel(Dir, Rel, Down), + + {[Name], [Name], UpFrom, DownTo} %% no intersections + = {[Name] -- UpFrom, + [Name] -- DownTo, + UpFrom -- DownTo, + DownTo -- UpFrom}, + + {ok, _, _, []} = systools:make_relup(Name, UpFrom, DownTo, [{path, [Dir]}, + {outdir, Dir}, + silent]). + +acc_rel(Dir, Rel, List) -> + lists:foldl(fun(T,A) -> acc_rel(Dir, Rel, T, A) end, + [], + List). + +acc_rel(Dir, Rel, {Vsn, _}, Acc) -> + [write_rel(Dir, Rel, Vsn) | Acc]. + +%% Write a rel file and return its name. +write_rel(Dir, [Erts | Apps], Vsn) -> + true = is_vsn(Vsn), + Name = "diameter_test_" ++ Vsn, + ok = write_file(filename:join([Dir, Name ++ ".rel"]), + {release, + {"diameter " ++ Vsn ++ " test release", Vsn}, + Erts, + Apps}), + Name. + +%% =========================================================================== +%% =========================================================================== + +fetch(Key, List) -> + {Key, {Key, Val}} = {Key, lists:keyfind(Key, 1, List)}, %% useful badmatch + Val. + +write_file(Path, T) -> + file:write_file(Path, io_lib:format("~p.", [T])). + +%% Is a version string of the expected form? Return the argument +%% itself for 'false' for a useful badmatch. +is_vsn(V) -> + is_list(V) + andalso length(V) == string:span(V, "0123456789.") + andalso V == string:join(string:tokens(V, [$.]), ".") %% no ".." + orelse {error, V}. diff --git a/lib/diameter/test/diameter_app_test.erl b/lib/diameter/test/diameter_app_test.erl deleted file mode 100644 index 7173c39caf..0000000000 --- a/lib/diameter/test/diameter_app_test.erl +++ /dev/null @@ -1,393 +0,0 @@ -%% -%% %CopyrightBegin% -%% -%% Copyright Ericsson AB 2010-2011. 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% -%% - -%% -%%---------------------------------------------------------------------- -%% Purpose: Verify the application specifics of the Diameter application -%%---------------------------------------------------------------------- --module(diameter_app_test). - --export([ - init_per_testcase/2, fin_per_testcase/2, - - all/0, - groups/0, - init_per_suite/1, end_per_suite/1, - suite_init/1, suite_fin/1, - init_per_group/2, end_per_group/2, - - fields/1, - modules/1, - exportall/1, - app_depend/1, - undef_funcs/1 - ]). - --export([t/0, t/1]). - --include("diameter_test_lib.hrl"). - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -t() -> diameter_test_server:t(?MODULE). -t(Case) -> diameter_test_server:t({?MODULE, Case}). - - -%% Test server callbacks -init_per_testcase(undef_funcs = Case, Config) -> - NewConfig = [{tc_timeout, ?MINUTES(10)} | Config], - diameter_test_server:init_per_testcase(Case, NewConfig); -init_per_testcase(Case, Config) -> - diameter_test_server:init_per_testcase(Case, Config). - -fin_per_testcase(Case, Config) -> - diameter_test_server:fin_per_testcase(Case, Config). - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -all() -> - [ - fields, - modules, - exportall, - app_depend, - undef_funcs - ]. - -groups() -> - []. - -init_per_group(_GroupName, Config) -> - Config. - -end_per_group(_GroupName, Config) -> - Config. - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -suite_init(X) -> init_per_suite(X). - -init_per_suite(suite) -> []; -init_per_suite(doc) -> []; -init_per_suite(Config) when is_list(Config) -> - io:format("~w:init_per_suite -> entry with" - "~n Config: ~p" - "~n", [?MODULE, Config]), - case is_app(diameter) of - {ok, AppFile} -> - io:format("AppFile: ~n~p~n", [AppFile]), - %% diameter:print_version_info(), - [{app_file, AppFile}|Config]; - {error, Reason} -> - ?FAIL(Reason) - end. - -is_app(App) -> - LibDir = code:lib_dir(App), - File = filename:join([LibDir, "ebin", atom_to_list(App) ++ ".app"]), - case file:consult(File) of - {ok, [{application, App, AppFile}]} -> - {ok, AppFile}; - Error -> - {error, {invalid_format, Error}} - end. - - -suite_fin(X) -> end_per_suite(X). - -end_per_suite(suite) -> []; -end_per_suite(doc) -> []; -end_per_suite(Config) when is_list(Config) -> - Config. - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -fields(suite) -> - []; -fields(doc) -> - []; -fields(Config) when is_list(Config) -> - AppFile = ?KEY1SEARCH(app_file, Config), - Fields = [vsn, description, modules, registered, applications], - case check_fields(Fields, AppFile, []) of - [] -> - ok; - Missing -> - ?FAIL({missing_fields, Missing}) - end. - -check_fields([], _AppFile, Missing) -> - Missing; -check_fields([Field|Fields], AppFile, Missing) -> - check_fields(Fields, AppFile, check_field(Field, AppFile, Missing)). - -check_field(Name, AppFile, Missing) -> - io:format("checking field: ~p~n", [Name]), - case lists:keymember(Name, 1, AppFile) of - true -> - Missing; - false -> - [Name|Missing] - end. - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -modules(suite) -> - []; -modules(doc) -> - []; -modules(Config) when is_list(Config) -> - AppFile = ?KEY1SEARCH(app_file, Config), - Mods = ?KEY1SEARCH(modules, AppFile), - EbinList = get_ebin_mods(diameter), - case missing_modules(Mods, EbinList, []) of - [] -> - ok; - Missing -> - throw({error, {missing_modules, Missing}}) - end, - Allowed = [diameter_codegen, - diameter_make, - diameter_spec_scan, - diameter_spec_util], - case extra_modules(Mods, EbinList, Allowed, []) of - [] -> - ok; - Extra -> - throw({error, {extra_modules, Extra}}) - end, - {ok, Mods}. - -get_ebin_mods(App) -> - LibDir = code:lib_dir(App), - EbinDir = filename:join([LibDir,"ebin"]), - {ok, Files0} = file:list_dir(EbinDir), - Files1 = [lists:reverse(File) || File <- Files0], - [list_to_atom(lists:reverse(Name)) || [$m,$a,$e,$b,$.|Name] <- Files1]. - - -missing_modules([], _Ebins, Missing) -> - Missing; -missing_modules([Mod|Mods], Ebins, Missing) -> - case lists:member(Mod, Ebins) of - true -> - missing_modules(Mods, Ebins, Missing); - false -> - io:format("missing module: ~p~n", [Mod]), - missing_modules(Mods, Ebins, [Mod|Missing]) - end. - - -extra_modules(_Mods, [], Allowed, Extra) -> - Extra--Allowed; -extra_modules(Mods, [Mod|Ebins], Allowed, Extra) -> - case lists:member(Mod, Mods) of - true -> - extra_modules(Mods, Ebins, Allowed, Extra); - false -> - io:format("supefluous module: ~p~n", [Mod]), - extra_modules(Mods, Ebins, Allowed, [Mod|Extra]) - end. - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - - -exportall(suite) -> - []; -exportall(doc) -> - []; -exportall(Config) when is_list(Config) -> - AppFile = ?KEY1SEARCH(app_file, Config), - Mods = ?KEY1SEARCH(modules, AppFile), - check_export_all(Mods). - - -check_export_all([]) -> - ok; -check_export_all([Mod|Mods]) -> - case (catch apply(Mod, module_info, [compile])) of - {'EXIT', {undef, _}} -> - check_export_all(Mods); - O -> - case lists:keysearch(options, 1, O) of - false -> - check_export_all(Mods); - {value, {options, List}} -> - case lists:member(export_all, List) of - true -> - throw({error, {export_all, Mod}}); - false -> - check_export_all(Mods) - end - end - end. - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -app_depend(suite) -> - []; -app_depend(doc) -> - []; -app_depend(Config) when is_list(Config) -> - AppFile = ?KEY1SEARCH(app_file, Config), - Apps = ?KEY1SEARCH(applications, AppFile), - check_apps(Apps). - - -check_apps([]) -> - ok; -check_apps([App|Apps]) -> - case is_app(App) of - {ok, _} -> - check_apps(Apps); - Error -> - throw({error, {missing_app, {App, Error}}}) - end. - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -undef_funcs(suite) -> - []; -undef_funcs(doc) -> - []; -undef_funcs(Config) when is_list(Config) -> - ?SKIP(diameter_not_known_by_xref), - App = diameter, - AppFile = ?KEY1SEARCH(app_file, Config), - Mods = ?KEY1SEARCH(modules, AppFile), - Root = code:root_dir(), - LibDir = code:lib_dir(App), - EbinDir = filename:join([LibDir,"ebin"]), - XRefTestName = undef_funcs_make_name(App, xref_test_name), - try - begin - XRef = xref_start(XRefTestName), - xref_set_defaults(XRef, [{verbose,false},{warnings,false}]), - XRefName = undef_funcs_make_name(App, xref_name), - XRefName = xref_add_release(XRef, Root, XRefName), - xref_replace_application(XRef, App, EbinDir), - Undefs = xref_analyze(XRef), - xref_stop(XRef), - analyze_undefined_function_calls(Undefs, Mods, []) - end - catch - throw:{error, Reason} -> - ?FAIL(Reason) - end. - - -xref_start(XRefTestName) -> - case (catch xref:start(XRefTestName)) of - {ok, XRef} -> - XRef; - {error, Reason} -> - throw({error, {failed_starting_xref, Reason}}); - Error -> - throw({error, {failed_starting_xref, Error}}) - end. - -xref_set_defaults(XRef, Defs) -> - case (catch xref:set_default(XRef, Defs)) of - ok -> - ok; - Error -> - throw({error, {failed_setting_defaults, Defs, Error}}) - end. - -xref_add_release(XRef, Root, Name) -> - case (catch xref:add_release(XRef, Root, {name, Name})) of - {ok, XRefName} -> - XRefName; - {error, Reason} -> - throw({error, {failed_adding_release, Reason}}); - Error -> - throw({error, {failed_adding_release, Error}}) - end. - -xref_replace_application(XRef, App, EbinDir) -> - case (catch xref:replace_application(XRef, App, EbinDir)) of - {ok, App} -> - ok; - {error, XRefMod, Reason} -> - throw({error, {failed_replacing_app, XRefMod, Reason}}); - Error -> - throw({error, {failed_replacing_app, Error}}) - end. - -xref_analyze(XRef) -> - case (catch xref:analyze(XRef, undefined_function_calls)) of - {ok, Undefs} -> - Undefs; - {error, Reason} -> - throw({error, {failed_detecting_func_calls, Reason}}); - Error -> - throw({error, {failed_detecting_func_calls, Error}}) - end. - -xref_stop(XRef) -> - xref:stop(XRef). - -analyze_undefined_function_calls([], _, []) -> - ok; -analyze_undefined_function_calls([], _, AppUndefs) -> - exit({suite_failed, {undefined_function_calls, AppUndefs}}); -analyze_undefined_function_calls([{{Mod, _F, _A}, _C} = AppUndef|Undefs], - AppModules, AppUndefs) -> - %% Check that this module is our's - case lists:member(Mod,AppModules) of - true -> - {Calling,Called} = AppUndef, - {Mod1,Func1,Ar1} = Calling, - {Mod2,Func2,Ar2} = Called, - io:format("undefined function call: " - "~n ~w:~w/~w calls ~w:~w/~w~n", - [Mod1,Func1,Ar1,Mod2,Func2,Ar2]), - analyze_undefined_function_calls(Undefs, AppModules, - [AppUndef|AppUndefs]); - false -> - io:format("dropping ~p~n", [Mod]), - analyze_undefined_function_calls(Undefs, AppModules, AppUndefs) - end. - -%% This function is used simply to avoid cut-and-paste errors later... -undef_funcs_make_name(App, PostFix) -> - list_to_atom(atom_to_list(App) ++ "_" ++ atom_to_list(PostFix)). - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - - -%% fail(Reason) -> -%% exit({suite_failed, Reason}). - -%% ?KEY1SEARCH(Key, L) -> -%% case lists:keysearch(Key, 1, L) of -%% undefined -> -%% fail({not_found, Key, L}); -%% {value, {Key, Value}} -> -%% Value -%% end. diff --git a/lib/diameter/test/diameter_appup_test.erl b/lib/diameter/test/diameter_appup_test.erl deleted file mode 100644 index 97a089e01a..0000000000 --- a/lib/diameter/test/diameter_appup_test.erl +++ /dev/null @@ -1,539 +0,0 @@ -%% -%% %CopyrightBegin% -%% -%% Copyright Ericsson AB 2010-2011. 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% -%% - -%% -%%---------------------------------------------------------------------- -%% Purpose: Verify the application specifics of the Diameter application -%%---------------------------------------------------------------------- --module(diameter_appup_test). - --export([ - init_per_testcase/2, fin_per_testcase/2, - - all/0, - groups/0, - init_per_suite/1, end_per_suite/1, - suite_init/1, suite_fin/1, - init_per_group/2, end_per_group/2, - - appup/1 - ]). - --export([t/0, t/1]). - --compile({no_auto_import,[error/1]}). - --include("diameter_test_lib.hrl"). - --define(APPLICATION, diameter). - -t() -> diameter_test_server:t(?MODULE). -t(Case) -> diameter_test_server:t({?MODULE, Case}). - - -%% Test server callbacks -init_per_testcase(Case, Config) -> - diameter_test_server:init_per_testcase(Case, Config). - -fin_per_testcase(Case, Config) -> - diameter_test_server:fin_per_testcase(Case, Config). - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -all() -> - [appup]. - -groups() -> - []. - -init_per_group(_GroupName, Config) -> - Config. - -end_per_group(_GroupName, Config) -> - Config. - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -suite_init(X) -> init_per_suite(X). - -init_per_suite(suite) -> []; -init_per_suite(doc) -> []; -init_per_suite(Config) when is_list(Config) -> - AppFile = file_name(?APPLICATION, ".app"), - AppupFile = file_name(?APPLICATION, ".appup"), - [{app_file, AppFile}, {appup_file, AppupFile}|Config]. - - -file_name(App, Ext) -> - LibDir = code:lib_dir(App), - filename:join([LibDir, "ebin", atom_to_list(App) ++ Ext]). - - -suite_fin(X) -> end_per_suite(X). - -end_per_suite(suite) -> []; -end_per_suite(doc) -> []; -end_per_suite(Config) when is_list(Config) -> - Config. - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -appup(suite) -> - []; -appup(doc) -> - "perform a simple check of the appup file"; -appup(Config) when is_list(Config) -> - AppupFile = key1search(appup_file, Config), - AppFile = key1search(app_file, Config), - Modules = modules(AppFile), - check_appup(AppupFile, Modules). - -modules(File) -> - case file:consult(File) of - {ok, [{application,diameter,Info}]} -> - case lists:keysearch(modules,1,Info) of - {value, {modules, Modules}} -> - Modules; - false -> - fail({bad_appinfo, Info}) - end; - Error -> - fail({bad_appfile, Error}) - end. - - -check_appup(AppupFile, Modules) -> - case file:consult(AppupFile) of - {ok, [{V, UpFrom, DownTo}]} -> - check_appup(V, UpFrom, DownTo, Modules); - Else -> - fail({bad_appupfile, Else}) - end. - - -check_appup(V, UpFrom, DownTo, Modules) -> - check_version(V), - check_depends(up, UpFrom, Modules), - check_depends(down, DownTo, Modules), - check_module_subset(UpFrom), - check_module_subset(DownTo), - ok. - - -check_depends(_, [], _) -> - ok; -check_depends(UpDown, [Dep|Deps], Modules) -> - check_depend(UpDown, Dep, Modules), - check_depends(UpDown, Deps, Modules). - - -check_depend(up = UpDown, {add_application, ?APPLICATION} = Instr, Modules) -> - d("check_instructions(~w) -> entry with" - "~n Instruction: ~p" - "~n Modules: ~p", [UpDown, Instr, Modules]), - ok; -check_depend(down = UpDown, {remove_application, ?APPLICATION} = Instr, - Modules) -> - d("check_instructions(~w) -> entry with" - "~n Instruction: ~p" - "~n Modules: ~p", [UpDown, Instr, Modules]), - ok; -check_depend(UpDown, {V, Instructions}, Modules) -> - d("check_instructions(~w) -> entry with" - "~n V: ~p" - "~n Modules: ~p", [UpDown, V, Modules]), - check_version(V), - case check_instructions(UpDown, - Instructions, Instructions, [], [], Modules) of - {_Good, []} -> - ok; - {_, Bad} -> - fail({bad_instructions, Bad, UpDown}) - end. - - -check_instructions(_, [], _, Good, Bad, _) -> - {lists:reverse(Good), lists:reverse(Bad)}; -check_instructions(UpDown, [Instr|Instrs], AllInstr, Good, Bad, Modules) -> - d("check_instructions(~w) -> entry with" - "~n Instr: ~p", [UpDown,Instr]), - case (catch check_instruction(UpDown, Instr, AllInstr, Modules)) of - ok -> - check_instructions(UpDown, Instrs, AllInstr, - [Instr|Good], Bad, Modules); - {error, Reason} -> - d("check_instructions(~w) -> bad instruction: " - "~n Reason: ~p", [UpDown,Reason]), - check_instructions(UpDown, Instrs, AllInstr, Good, - [{Instr, Reason}|Bad], Modules) - end. - -%% A new module is added -check_instruction(up, {add_module, Module}, _, Modules) - when is_atom(Module) -> - d("check_instruction -> entry when up-add_module instruction with" - "~n Module: ~p", [Module]), - check_module(Module, Modules); - -%% An old module is re-added -check_instruction(down, {add_module, Module}, _, Modules) - when is_atom(Module) -> - d("check_instruction -> entry when down-add_module instruction with" - "~n Module: ~p", [Module]), - case (catch check_module(Module, Modules)) of - {error, {unknown_module, Module, Modules}} -> - ok; - ok -> - error({existing_readded_module, Module}) - end; - -%% Removing a module on upgrade: -%% - the module has been removed from the app-file. -%% - check that no module depends on this (removed) module -check_instruction(up, {remove, {Module, Pre, Post}}, _, Modules) - when is_atom(Module) andalso is_atom(Pre) andalso is_atom(Post) -> - d("check_instruction -> entry when up-remove instruction with" - "~n Module: ~p" - "~n Pre: ~p" - "~n Post: ~p", [Module, Pre, Post]), - case (catch check_module(Module, Modules)) of - {error, {unknown_module, Module, Modules}} -> - check_purge(Pre), - check_purge(Post); - ok -> - error({existing_removed_module, Module}) - end; - -%% Removing a module on downgrade: the module exist -%% in the app-file. -check_instruction(down, {remove, {Module, Pre, Post}}, AllInstr, Modules) - when is_atom(Module) andalso is_atom(Pre) andalso is_atom(Post) -> - d("check_instruction -> entry when down-remove instruction with" - "~n Module: ~p" - "~n Pre: ~p" - "~n Post: ~p", [Module, Pre, Post]), - case (catch check_module(Module, Modules)) of - ok -> - check_purge(Pre), - check_purge(Post), - check_no_remove_depends(Module, AllInstr); - {error, {unknown_module, Module, Modules}} -> - error({nonexisting_removed_module, Module}) - end; - -check_instruction(_, {load_module, Module, Pre, Post, Depend}, - AllInstr, Modules) - when is_atom(Module) andalso is_atom(Pre) andalso is_atom(Post) andalso is_list(Depend) -> - d("check_instruction -> entry when load_module instruction with" - "~n Module: ~p" - "~n Pre: ~p" - "~n Post: ~p" - "~n Depend: ~p", [Module, Pre, Post, Depend]), - check_module(Module, Modules), - check_module_depend(Module, Depend, Modules), - check_module_depend(Module, Depend, updated_modules(AllInstr, [])), - check_purge(Pre), - check_purge(Post); - -check_instruction(_, {update, Module, Change, Pre, Post, Depend}, - AllInstr, Modules) - when is_atom(Module) andalso is_atom(Pre) andalso is_atom(Post) andalso is_list(Depend) -> - d("check_instruction -> entry when update instruction with" - "~n Module: ~p" - "~n Change: ~p" - "~n Pre: ~p" - "~n Post: ~p" - "~n Depend: ~p", [Module, Change, Pre, Post, Depend]), - check_module(Module, Modules), - check_module_depend(Module, Depend, Modules), - check_module_depend(Module, Depend, updated_modules(AllInstr, [])), - check_change(Change), - check_purge(Pre), - check_purge(Post); - -check_instruction(_, {update, Module, supervisor}, _, Modules) - when is_atom(Module) -> - check_module(Module, Modules); - -check_instruction(_, {apply, {Module, Function, Args}}, _, Modules) - when is_atom(Module) andalso is_atom(Function) andalso is_list(Args) -> - d("check_instruction -> entry when down-apply instruction with" - "~n Module: ~p" - "~n Function: ~p" - "~n Args: ~p", [Module, Function, Args]), - check_module(Module, Modules), - check_apply(Module, Function, Args); - -check_instruction(_, {restart_application, ?APPLICATION}, _AllInstr, _Modules) -> - ok; - -check_instruction(_, Instr, _AllInstr, _Modules) -> - d("check_instruction -> entry when unknown instruction with" - "~n Instr: ~p", [Instr]), - error({error, {unknown_instruction, Instr}}). - - -%% If Module X depends on Module Y, then module Y must have an update -%% instruction of some sort (otherwise the depend is faulty). -updated_modules([], Modules) -> - d("update_modules -> entry when done with" - "~n Modules: ~p", [Modules]), - Modules; -updated_modules([Instr|Instrs], Modules) -> - d("update_modules -> entry with" - "~n Instr: ~p" - "~n Modules: ~p", [Instr,Modules]), - Module = instruction_module(Instr), - d("update_modules -> Module: ~p", [Module]), - updated_modules(Instrs, [Module|Modules]). - -instruction_module({add_module, Module}) -> - Module; -instruction_module({remove, {Module, _, _}}) -> - Module; -instruction_module({load_module, Module, _, _, _}) -> - Module; -instruction_module({update, Module, _, _, _, _}) -> - Module; -instruction_module({apply, {Module, _, _}}) -> - Module; -instruction_module(Instr) -> - d("instruction_module -> entry when unknown instruction with" - "~n Instr: ~p", [Instr]), - error({error, {unknown_instruction, Instr}}). - - -%% Check that the modules handled in an instruction set for version X -%% is a subset of the instruction set for version X-1. -check_module_subset(Instructions) -> - do_check_module_subset(modules_of(Instructions)). - -do_check_module_subset([]) -> - ok; -do_check_module_subset([_]) -> - ok; -do_check_module_subset([{_V1, Mods1}|T]) -> - {V2, Mods2} = hd(T), - %% Check that the modules in V1 is a subset of V2 - case do_check_module_subset2(Mods1, Mods2) of - ok -> - do_check_module_subset(T); - {error, Modules} -> - fail({subset_missing_instructions, V2, Modules}) - end. - -do_check_module_subset2(Mods1, Mods2) -> - do_check_module_subset2(Mods1, Mods2, []). - -do_check_module_subset2([], _, []) -> - ok; -do_check_module_subset2([], _, Acc) -> - {error, lists:reverse(Acc)}; -do_check_module_subset2([Mod|Mods], Mods2, Acc) -> - case lists:member(Mod, Mods2) of - true -> - do_check_module_subset2(Mods, Mods2, Acc); - false -> - do_check_module_subset2(Mods, Mods2, [Mod|Acc]) - end. - - -modules_of(Instructions) -> - modules_of(Instructions, []). - -modules_of([], Acc) -> - lists:reverse(Acc); -modules_of([{V,Instructions}|T], Acc) -> - Mods = modules_of2(Instructions, []), - modules_of(T, [{V, Mods}|Acc]). - -modules_of2([], Acc) -> - lists:reverse(Acc); -modules_of2([Instr|Instructions], Acc) -> - case module_of(Instr) of - {value, Mod} -> - modules_of2(Instructions, [Mod|Acc]); - false -> - modules_of2(Instructions, Acc) - end. - -module_of({add_module, Module}) -> - {value, Module}; -module_of({remove, {Module, _Pre, _Post}}) -> - {value, Module}; -module_of({load_module, Module, _Pre, _Post, _Depend}) -> - {value, Module}; -module_of({update, Module, _Change, _Pre, _Post, _Depend}) -> - {value, Module}; -module_of(_) -> - false. - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -%% The version is a string consting of numbers separated by dots: "." -%% Example: "3.3.3" -%% -check_version(V) when is_list(V) -> - case do_check_version(string:tokens(V, [$.])) of - ok -> - ok; - {error, BadVersionPart} -> - throw({error, {bad_version, V, BadVersionPart}}) - end; -check_version(V) -> - error({bad_version, V}). - -do_check_version([]) -> - ok; -do_check_version([H|T]) -> - case (catch list_to_integer(H)) of - I when is_integer(I) -> - do_check_version(T); - _ -> - {error, H} - end. - -check_module(M, Modules) when is_atom(M) -> - case lists:member(M,Modules) of - true -> - ok; - false -> - error({unknown_module, M, Modules}) - end; -check_module(M, _) -> - error({bad_module, M}). - - -check_module_depend(M, [], _) when is_atom(M) -> - d("check_module_depend -> entry with" - "~n M: ~p", [M]), - ok; -check_module_depend(M, Deps, Modules) when is_atom(M) andalso is_list(Deps) -> - d("check_module_depend -> entry with" - "~n M: ~p" - "~n Deps: ~p" - "~n Modules: ~p", [M, Deps, Modules]), - case [Dep || Dep <- Deps, lists:member(Dep, Modules) == false] of - [] -> - ok; - Unknown -> - error({unknown_depend_modules, Unknown}) - end; -check_module_depend(_M, D, _Modules) -> - d("check_module_depend -> entry when bad depend with" - "~n D: ~p", [D]), - error({bad_depend, D}). - - -check_no_remove_depends(_Module, []) -> - ok; -check_no_remove_depends(Module, [Instr|Instrs]) -> - check_no_remove_depend(Module, Instr), - check_no_remove_depends(Module, Instrs). - -check_no_remove_depend(Module, {load_module, Mod, _Pre, _Post, Depend}) -> - case lists:member(Module, Depend) of - true -> - error({removed_module_in_depend, load_module, Mod, Module}); - false -> - ok - end; -check_no_remove_depend(Module, {update, Mod, _Change, _Pre, _Post, Depend}) -> - case lists:member(Module, Depend) of - true -> - error({removed_module_in_depend, update, Mod, Module}); - false -> - ok - end; -check_no_remove_depend(_, _) -> - ok. - - -check_change(soft) -> - ok; -check_change({advanced, _Something}) -> - ok; -check_change(Change) -> - error({bad_change, Change}). - - -check_purge(soft_purge) -> - ok; -check_purge(brutal_purge) -> - ok; -check_purge(Purge) -> - error({bad_purge, Purge}). - - -check_apply(Module, Function, Args) -> - case (catch Module:module_info()) of - Info when is_list(Info) -> - check_exported(Function, Args, Info); - {'EXIT', {undef, _}} -> - error({not_existing_module, Module}) - end. - -check_exported(Function, Args, Info) -> - case lists:keysearch(exports, 1, Info) of - {value, {exports, FuncList}} -> - Arity = length(Args), - Arities = [A || {F, A} <- FuncList, F == Function], - case lists:member(Arity, Arities) of - true -> - ok; - false -> - error({not_exported_function, Function, Arity}) - end; - _ -> - error({bad_export, Info}) - end. - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -error(Reason) -> - throw({error, Reason}). - -fail(Reason) -> - exit({suite_failed, Reason}). - -key1search(Key, L) -> - case lists:keysearch(Key, 1, L) of - undefined -> - fail({not_found, Key, L}); - {value, {Key, Value}} -> - Value - end. - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -d(F, A) -> - d(false, F, A). - -d(true, F, A) -> - io:format(F ++ "~n", A); -d(_, _, _) -> - ok. - - diff --git a/lib/diameter/test/diameter_codec_SUITE.erl b/lib/diameter/test/diameter_codec_SUITE.erl new file mode 100644 index 0000000000..30c60be8e9 --- /dev/null +++ b/lib/diameter/test/diameter_codec_SUITE.erl @@ -0,0 +1,76 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 2010-2011. 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% +%% + +%% +%% Test encode/decode of dictionary-related modules. Each test case +%% runs multiple tests in parallel since many of the tests are just +%% the same code with different in-data: implementing each test as a +%% single testcase would make for much duplication with ct's current +%% requirement of one function per testcase. +%% + +-module(diameter_codec_SUITE). + +-export([suite/0, + all/0, + init_per_testcase/2, + end_per_testcase/2]). + +%% testcases +-export([base/1, + gen/1, + lib/1]). + +-include("diameter_ct.hrl"). + +-define(L, atom_to_list). + +%% =========================================================================== + +suite() -> + [{timetrap, {seconds, 10}}]. + +all() -> + [base, gen, lib]. + +init_per_testcase(gen, Config) -> + [{application, ?APP, App}] = diameter_util:consult(?APP, app), + {modules, Ms} = lists:keyfind(modules, 1, App), + [_|_] = Gs = lists:filter(fun(M) -> + lists:prefix("diameter_gen_", ?L(M)) + end, + Ms), + [{dicts, Gs} | Config]; + +init_per_testcase(_Name, Config) -> + Config. + +end_per_testcase(_, _) -> + ok. + +%% =========================================================================== + +base(_Config) -> + diameter_codec_test:base(). + +gen([{dicts, Ms} | _]) -> + lists:foreach(fun diameter_codec_test:gen/1, Ms). + +lib(_Config) -> + diameter_codec_test:lib(). diff --git a/lib/diameter/test/diameter_codec_test.erl b/lib/diameter/test/diameter_codec_test.erl new file mode 100644 index 0000000000..aab7ab35cc --- /dev/null +++ b/lib/diameter/test/diameter_codec_test.erl @@ -0,0 +1,500 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 2010-2011. 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(diameter_codec_test). + +-compile(export_all). + +%% +%% Test encode/decode of dictionary-related modules. +%% + +-include_lib("diameter/include/diameter.hrl"). + +-define(BASE, diameter_gen_base_rfc3588). +-define(BOOL, [true, false]). + +%% =========================================================================== +%% Interface. + +base() -> + [] = run([{?MODULE, [base, T]} || T <- [zero, decode]]). + +gen(Mod) -> + Fs = [{Mod, F, []} || F <- [name, id, vendor_id, vendor_name]], + [] = run(Fs ++ [{?MODULE, [gen, Mod, T]} || T <- [messages, + command_codes, + avp_types, + grouped, + enums, + import_avps, + import_groups, + import_enums]]). + +lib() -> + Vs = {_,_} = values('Address'), + [] = run([[fun lib/2, N, Vs] || N <- [1,2]]). + +%% =========================================================================== +%% Internal functions. + +lib(N, {_,_} = T) -> + B = 1 == N rem 2, + [] = run([[fun lib/2, A, B] || A <- element(N,T)]); + +lib(IP, B) -> + LA = tuple_to_list(IP), + {SA,Fun} = ip(LA), + [] = run([[fun lib/4, IP, B, Fun, A] || A <- [IP, LA, SA]]). + +lib(IP, B, Fun, A) -> + try Fun(A) of + IP when B -> + ok + catch + error:_ when not B -> + ok + end. + +ip([_,_,_,_] = A) -> + [$.|S] = lists:append(["." ++ integer_to_list(N) || N <- A]), + {S, fun diameter_lib:ip4address/1}; +ip([_,_,_,_,_,_,_,_] = A) -> + [$:|S] = lists:flatten([":" ++ io_lib:format("~.16B", [N]) || N <- A]), + {S, fun diameter_lib:ip6address/1}. + +%% ------------------------------------------------------------------------ +%% base/1 +%% +%% Test of diameter_types. +%% ------------------------------------------------------------------------ + +base(T) -> + [] = run([{?MODULE, [base, T, F]} || F <- types()]). + +%% Ensure that 'zero' values encode only zeros. +base(zero = T, F) -> + B = diameter_types:F(encode, T), + B = z(B); + +%% Ensure that we can decode what we encode and vice-versa, and that +%% we can't decode invalid values. +base(decode, F) -> + {Eq, Vs, Ns} = b(values(F)), + [] = run([{?MODULE, [base_decode, F, Eq, V]} || V <- Vs]), + [] = run([{?MODULE, [base_invalid, F, Eq, V]} || V <- Ns]). + +base_decode(F, Eq, Value) -> + d(fun(X,V) -> diameter_types:F(X,V) end, Eq, Value). + +base_invalid(F, Eq, Value) -> + try + base_decode(F, Eq, Value), + exit(nok) + catch + error: _ -> + ok + end. + +b({_,_,_} = T) -> + T; +b({B,Vs}) + when is_atom(B) -> + {B,Vs,[]}; +b({Vs,Ns}) -> + {true, Vs, Ns}; +b(Vs) -> + {true, Vs, []}. + +types() -> + [F || {F,2} <- diameter_types:module_info(exports)]. + +%% ------------------------------------------------------------------------ +%% gen/2 +%% +%% Test of generated encode/decode module. +%% ------------------------------------------------------------------------ + +gen(M, T) -> + [] = run(lists:map(fun(X) -> {?MODULE, [gen, M, T, X]} end, + fetch(T, M:dict()))). + +fetch(T, Spec) -> + case orddict:find(T, Spec) of + {ok, L} -> + L; + error -> + [] + end. + +gen(M, messages, {Name, Code, Flags, _, _}) -> + Rname = M:msg2rec(Name), + Name = M:rec2msg(Rname), + {Code, F, _} = M:msg_header(Name), + 0 = F band 2#00001111, + Name = case M:msg_name(Code, lists:member('REQ', Flags)) of + N when Name /= 'answer-message' -> + N; + '' when Name == 'answer-message', M == ?BASE -> + Name + end, + [] = arity(M, Name, Rname); + +gen(M, command_codes = T, {Code, {Req, Abbr}, Ans}) -> + Rname = M:msg2rec(Req), + Rname = M:msg2rec(Abbr), + gen(M, T, {Code, Req, Ans}); + +gen(M, command_codes = T, {Code, Req, {Ans, Abbr}}) -> + Rname = M:msg2rec(Ans), + Rname = M:msg2rec(Abbr), + gen(M, T, {Code, Req, Ans}); + +gen(M, command_codes, {Code, Req, Ans}) -> + Msgs = orddict:fetch(messages, M:dict()), + {_, Code, _, _, _} = lists:keyfind(Req, 1, Msgs), + {_, Code, _, _, _} = lists:keyfind(Ans, 1, Msgs); + +gen(M, avp_types, {Name, Code, Type, _Flags, _Encr}) -> + {Code, Flags, VendorId} = M:avp_header(Name), + 0 = Flags band 2#00011111, + V = undefined /= VendorId, + V = 0 /= Flags band 2#10000000, + {Name, Type} = M:avp_name(Code, VendorId), + B = M:empty_value(Name), + B = z(B), + [] = avp_decode(M, Type, Name); + +gen(M, grouped, {Name, _, _, _}) -> + Rname = M:name2rec(Name), + [] = arity(M, Name, Rname); + +gen(M, enums, {Name, ED}) -> + [] = run([{?MODULE, [enum, M, Name, T]} || T <- ED]); + +gen(M, Tag, {_Mod, L}) -> + T = retag(Tag), + [] = run([{?MODULE, [gen, M, T, I]} || I <- L]). + +%% avp_decode/3 + +avp_decode(Mod, Type, Name) -> + {Eq, Vs, _} = b(values(Type, Name, Mod)), + [] = run([{?MODULE, [avp_decode, Mod, Name, Type, Eq, V]} + || V <- v(Vs)]). + +avp_decode(Mod, Name, Type, Eq, Value) -> + d(fun(X,V) -> avp(Mod, X, V, Name, Type) end, Eq, Value). + +avp(Mod, decode = X, V, Name, 'Grouped') -> + {Rec, _} = Mod:avp(X, V, Name), + Rec; +avp(Mod, X, V, Name, _) -> + Mod:avp(X, V, Name). + +%% v/1 + +%% List of values ... +v(Vs) + when is_list(Vs) -> + Vs; + +%% .. or enumeration for grouped avps. This could be quite large +%% (millions of values) but since the avps are also tested +%% individually don't bother trying everything. Instead, choose a +%% reasonable number of values at random. +v(E) -> + v(2000, E(0), E). + +v(Max, Ord, E) + when Ord =< Max -> + diameter_enum:to_list(E); +v(Max, Ord, E) -> + {M,S,U} = now(), + random:seed(M,S,U), + v(Max, Ord, E, []). + +v(0, _, _, Acc) -> + Acc; +v(N, Ord, E, Acc) -> + v(N-1, Ord, E, [E(random:uniform(Ord)) | Acc]). + +%% arity/3 + +arity(M, Name, Rname) -> + Rec = M:'#new-'(Rname), + [] = run([{?MODULE, [arity, M, Name, F, Rec]} + || F <- M:'#info-'(Rname, fields)]). + +arity(M, Name, AvpName, Rec) -> + Def = M:'#get-'(AvpName, Rec), + Def = case M:avp_arity(Name, AvpName) of + 1 -> + undefined; + A when 0 /= A -> + [] + end. + +%% enum/3 + +enum(M, Name, {E,_}) -> + B = <<E:32/integer>>, + B = M:avp(encode, E, Name), + E = M:avp(decode, B, Name). + +retag(import_avps) -> avp_types; +retag(import_groups) -> grouped; +retag(import_enums) -> enums; + +retag(avp_types) -> import_avps; +retag(enums) -> import_enums. + +%% =========================================================================== + +d(F, Eq, V) -> + B = F(encode, V), + D = F(decode, B), + V = if Eq -> %% test for value equality ... + D; + true -> %% ... or that encode/decode is idempotent + D = F(decode, F(encode, D)), + V + end. + +z(B) -> + << <<0>> || <<_>> <= B >>. + +%% values/1 +%% +%% Return a list of base type values. Can also be wrapped in a tuple +%% with 'false' to indicate that encode followed by decode may not be +%% the identity map. (Although that this composition is idempotent is +%% tested.) + +values('OctetString' = T) -> + {["", atom_to_list(T)], [-1, 256]}; + +values('Integer32') -> + Mx = (1 bsl 31) - 1, + Mn = -1*Mx, + {[Mn, 0, random(Mn,Mx), Mx], [Mn - 1, Mx + 1]}; + +values('Integer64') -> + Mx = (1 bsl 63) - 1, + Mn = -1*Mx, + {[Mn, 0, random(Mn,Mx), Mx], [Mn - 1, Mx + 1]}; + +values('Unsigned32') -> + M = (1 bsl 32) - 1, + {[0, random(M), M], [-1, M + 1]}; + +values('Unsigned64') -> + M = (1 bsl 64) - 1, + {[0, random(M), M], [-1, M + 1]}; + +values('Float32') -> + E = (1 bsl 8) - 2, + F = (1 bsl 23) - 1, + <<Mx:32/float>> = <<0:1/integer, E:8/integer, F:23/integer>>, + <<Mn:32/float>> = <<1:1/integer, E:8/integer, F:23/integer>>, + {[0.0, infinity, '-infinity', Mx, Mn], [0]}; + +values('Float64') -> + E = (1 bsl 11) - 2, + F = (1 bsl 52) - 1, + <<Mx:64/float>> = <<0:1/integer, E:11/integer, F:52/integer>>, + <<Mn:64/float>> = <<1:1/integer, E:11/integer, F:52/integer>>, + {[0.0, infinity, '-infinity', Mx, Mn], [0]}; + +values('Address') -> + {[{255,0,random(16#FF),1}, {65535,0,0,random(16#FFFF),0,0,0,1}], + [{256,0,0,1}, {65536,0,0,0,0,0,0,1}]}; + +values('DiameterIdentity') -> + {["x", "diameter.com"], [""]}; + +values('DiameterURI') -> + {false, ["aaa" ++ S ++ "://diameter.se" ++ P ++ Tr ++ Pr + || S <- ["", "s"], + P <- ["", ":1234"], + Tr <- ["" | [";transport=" ++ X + || X <- ["tcp", "sctp", "udp"]]], + Pr <- ["" | [";protocol=" ++ X + || X <- ["diameter","radius","tacacs+"]]]]}; + +values(T) + when T == 'IPFilterRule'; + T == 'QoSFilterRule' -> + ["deny in 0 from 127.0.0.1 to 10.0.0.1"]; + +%% RFC 3629 defines the UTF-8 encoding of U+0000 through U+10FFFF with the +%% exception of U+D800 through U+DFFF. +values('UTF8String') -> + {[[], + lists:seq(0,16#1FF), + [0,16#D7FF,16#E000,16#10FFFF], + [random(16#D7FF), random(16#E000,16#10FFFF)]], + [[-1], + [16#D800], + [16#DFFF], + [16#110000]]}; + +values('Time') -> + {[{{1968,1,20},{3,14,8}}, %% 19000101T000000 + 1 bsl 31 + {date(), time()}, + {{2036,2,7},{6,28,15}}, + {{2036,2,7},{6,28,16}}, %% 19000101T000000 + 2 bsl 31 + {{2104,2,26},{9,42,23}}], + [{{1968,1,20},{3,14,7}}, + {{2104,2,26},{9,42,24}}]}. %% 19000101T000000 + 3 bsl 31 + +%% values/3 +%% +%% Return list or enumerations of values for a given AVP. Can be +%% wrapped as for values/1. + +values('Enumerated', Name, Mod) -> + {_Name, Vals} = lists:keyfind(Name, 1, types(enums, Mod)), + lists:map(fun({N,_}) -> N end, Vals); + +values('Grouped', Name, Mod) -> + Rname = Mod:name2rec(Name), + Rec = Mod:'#new-'(Rname), + Avps = Mod:'#info-'(Rname, fields), + Enum = diameter_enum:combine(lists:map(fun({_,Vs,_}) -> to_enum(Vs) end, + [values(F, Mod) || F <- Avps])), + {false, diameter_enum:append(group(Mod, Name, Rec, Avps, Enum))}; + +values(_, 'Framed-IP-Address', _) -> + [{127,0,0,1}]; + +values(Type, _, _) -> + values(Type). + +to_enum(Vs) + when is_list(Vs) -> + diameter_enum:new(Vs); +to_enum(E) -> + E. + +%% values/2 + +values('AVP', _) -> + {true, [#diameter_avp{code = 0, data = <<0>>}], []}; + +values(Name, Mod) -> + Avps = types(avp_types, Mod), + {Name, _Code, Type, _Flags, _Encr} = lists:keyfind(Name, 1, Avps), + b(values(Type, Name, Mod)). + +%% group/5 +%% +%% Pack four variants of group values: tagged list containing all +%% values, the corresponding record, a minimal tagged list and the +%% coresponding record. + +group(Mod, Name, Rec, Avps, Enum) -> + lists:map(fun(B) -> group(Mod, Name, Rec, Avps, Enum, B) end, + [{A,R} || A <- ?BOOL, R <- ?BOOL]). + +group(Mod, Name, Rec, Avps, Enum, B) -> + diameter_enum:map(fun(Vs) -> g(Mod, Name, Rec, Avps, Vs, B) end, Enum). + +g(Mod, Name, Rec, Avps, Values, {All, AsRec}) -> + {Tagged, []} + = lists:foldl(fun(N, {A, [V|Vs]}) -> + {pack(All, Mod:avp_arity(Name, N), N, V, A), Vs} + end, + {[], Values}, + Avps), + g(AsRec, Mod, Tagged, Rec). + +g(true, Mod, Vals, Rec) -> + Mod:'#set-'(Vals, Rec); +g(false, _, Vals, _) -> + Vals. + +pack(true, Arity, Avp, Value, Acc) -> + [all(Arity, Avp, Value) | Acc]; +pack(false, Arity, Avp, Value, Acc) -> + min(Arity, Avp, Value, Acc). + +all(Mod, Name, Avp, V) -> + all(Mod:avp_arity(Name, Avp), Avp, V). + +all(1, Avp, V) -> + {Avp, V}; +all({0,'*'}, Avp, V) -> + a(1, Avp, V); +all({N,'*'}, Avp, V) -> + a(N, Avp, V); +all({_,N}, Avp, V) -> + a(N, Avp, V). + +a(N, Avp, V) + when N /= 0 -> + {Avp, lists:duplicate(N,V)}. + +min(Mod, Name, Avp, V, Acc) -> + min(Mod:avp_arity(Name, Avp), Avp, V, Acc). + +min(1, Avp, V, Acc) -> + [{Avp, V} | Acc]; +min({0,_}, _, _, Acc) -> + Acc; +min({N,_}, Avp, V, Acc) -> + [{Avp, lists:duplicate(N,V)} | Acc]. + +%% types/2 + +types(T, Mod) -> + types(T, retag(T), Mod). + +types(T, IT, Mod) -> + Dict = Mod:dict(), + fetch(T, Dict) ++ lists:flatmap(fun({_,As}) -> As end, fetch(IT, Dict)). + +%% random/[12] + +random(M) -> + random(0,M). + +random(Mn,Mx) -> + seed(get({?MODULE, seed})), + Mn + random:uniform(Mx - Mn + 1) - 1. + +seed(undefined) -> + put({?MODULE, seed}, true), + random:seed(now()); + +seed(true) -> + ok. + +%% run/1 +%% +%% Unravel nested badmatches resulting from [] matches on calls to +%% run/1 to make for more readable failures. + +run(L) -> + lists:flatmap(fun flatten/1, diameter_util:run(L)). + +flatten({_, {{badmatch, [{_, {{badmatch, _}, _}} | _] = L}, _}}) -> + L; +flatten(T) -> + [T]. diff --git a/lib/diameter/test/diameter_compiler_test.erl b/lib/diameter/test/diameter_compiler_test.erl deleted file mode 100644 index ae4c9c668d..0000000000 --- a/lib/diameter/test/diameter_compiler_test.erl +++ /dev/null @@ -1,104 +0,0 @@ -%% -%% %CopyrightBegin% -%% -%% Copyright Ericsson AB 2010-2011. 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% -%% - -%% -%%---------------------------------------------------------------------- -%% Purpose: Verify the dia compiler of the Diameter application -%%---------------------------------------------------------------------- -%% --module(diameter_compiler_test). - --export([ - init_per_testcase/2, fin_per_testcase/2, - - all/0, - groups/0, - init_per_suite/1, end_per_suite/1, - suite_init/1, suite_fin/1, - init_per_group/2, end_per_group/2 - - %% foo/1 - ]). - --export([t/0, t/1]). - --include("diameter_test_lib.hrl"). - - -t() -> diameter_test_server:t(?MODULE). -t(Case) -> diameter_test_server:t({?MODULE, Case}). - - -%% Test server callbacks -init_per_testcase(Case, Config) -> - diameter_test_server:init_per_testcase(Case, Config). - -fin_per_testcase(Case, Config) -> - diameter_test_server:fin_per_testcase(Case, Config). - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -all() -> - []. - -groups() -> - []. - -init_per_group(_GroupName, Config) -> - Config. - -end_per_group(_GroupName, Config) -> - Config. - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -suite_init(X) -> init_per_suite(X). - -init_per_suite(suite) -> []; -init_per_suite(doc) -> []; -init_per_suite(Config) when is_list(Config) -> - Config. - - -suite_fin(X) -> end_per_suite(X). - -end_per_suite(suite) -> []; -end_per_suite(doc) -> []; -end_per_suite(Config) when is_list(Config) -> - Config. - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% -%% Test case example -%% - -%% foo(suite) -> -%% []; -%% foo(doc) -> -%% []; -%% foo(Config) when is_list(Config) -> -%% ok. - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - - diff --git a/lib/diameter/test/diameter_config_test.erl b/lib/diameter/test/diameter_config_test.erl deleted file mode 100644 index c44fb654ab..0000000000 --- a/lib/diameter/test/diameter_config_test.erl +++ /dev/null @@ -1,105 +0,0 @@ -%% -%% %CopyrightBegin% -%% -%% Copyright Ericsson AB 2010-2011. 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% -%% - -%% -%%---------------------------------------------------------------------- -%% Purpose: Verify the config server of the Diameter application -%%---------------------------------------------------------------------- -%% --module(diameter_config_test). - --export([ - init_per_testcase/2, fin_per_testcase/2, - - all/0, - groups/0, - init_per_suite/1, end_per_suite/1, - suite_init/1, suite_fin/1, - init_per_group/2, end_per_group/2 - - %% foo/1 - ]). - --export([t/0, t/1]). - --include("diameter_test_lib.hrl"). - - -t() -> diameter_test_server:t(?MODULE). -t(Case) -> diameter_test_server:t({?MODULE, Case}). - - -%% Test server callbacks -init_per_testcase(Case, Config) -> - diameter_test_server:init_per_testcase(Case, Config). - -fin_per_testcase(Case, Config) -> - diameter_test_server:fin_per_testcase(Case, Config). - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -all() -> - []. - -groups() -> - []. - -init_per_group(_GroupName, Config) -> - Config. - -end_per_group(_GroupName, Config) -> - Config. - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -suite_init(X) -> init_per_suite(X). - -init_per_suite(suite) -> []; -init_per_suite(doc) -> []; -init_per_suite(Config) when is_list(Config) -> - Config. - - -suite_fin(X) -> end_per_suite(X). - -end_per_suite(suite) -> []; -end_per_suite(doc) -> []; -end_per_suite(Config) when is_list(Config) -> - - Config. - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% -%% Test case example -%% - -%% foo(suite) -> -%% []; -%% foo(doc) -> -%% []; -%% foo(Config) when is_list(Config) -> -%% ok. - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - - diff --git a/lib/diameter/test/diameter_ct.erl b/lib/diameter/test/diameter_ct.erl new file mode 100644 index 0000000000..f8ee3dc1d7 --- /dev/null +++ b/lib/diameter/test/diameter_ct.erl @@ -0,0 +1,55 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 2010-2011. 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(diameter_ct). + +%% +%% Module used to run suites from Makefile. +%% + +-export([run/1]). + +%% ct:run_test/1 is currently documented as returning a list of test +%% results ... but no. Instead it returns 'ok' regardless of whether +%% or not the suite in question has failed testcases. + +run([Suite]) -> + Start = info(), + ok = ct:run_test([{suite, Suite}, + {logdir, "./log"}, + {auto_compile, false}]), + info(Start , info()). + +info() -> + [{time, now()}, + {process_count, erlang:system_info(process_count)} + | erlang:memory()]. + +info(L0, L1) -> + [T, C | M] + = lists:zipwith(fun({T,N0}, {T,N1}) -> {T, N1, diff(T, N0, N1)} end, + L0, + L1), + Diff = [T, C, {memory, M}], + ct:pal("INFO: ~p~n", [Diff]). + +diff(time, T0, T1) -> + timer:now_diff(T1, T0); +diff(_, N0, N1) -> + N1 - N0. diff --git a/lib/diameter/test/diameter_ct.hrl b/lib/diameter/test/diameter_ct.hrl new file mode 100644 index 0000000000..b6bd2ca9da --- /dev/null +++ b/lib/diameter/test/diameter_ct.hrl @@ -0,0 +1,21 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 2010-2011. 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% +%% + +-define(APP, diameter). +-define(ERROR(T), erlang:error({?MODULE, ?LINE, T})). diff --git a/lib/diameter/test/diameter_dict_SUITE.erl b/lib/diameter/test/diameter_dict_SUITE.erl new file mode 100644 index 0000000000..87bb9727fe --- /dev/null +++ b/lib/diameter/test/diameter_dict_SUITE.erl @@ -0,0 +1,151 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 2010-2011. 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% +%% + +%% +%% Tests of the dict-like diameter_dict. +%% + +-module(diameter_dict_SUITE). + +-export([suite/0, + all/0, + groups/0, + init_per_group/2, + end_per_group/2]). + +%% testcases +-export([append/1, + fetch/1, + fetch_keys/1, + filter/1, + find/1, + fold/1, + is_key/1, + map/1, + merge/1, + update/1, + update_counter/1]). + +-include("diameter_ct.hrl"). + +-define(dict, diameter_dict). +-define(util, diameter_util). + +%% =========================================================================== + +suite() -> + [{timetrap, {seconds, 10}}]. + +all() -> + [{group, all} | tc()]. + +groups() -> + [{all, [parallel], tc()}]. + +tc() -> + [append, + fetch, + fetch_keys, + filter, + find, + fold, + is_key, + map, + merge, + update, + update_counter]. + +init_per_group(_, Config) -> + Config. + +end_per_group(_, _) -> + ok. + +%% =========================================================================== + +-define(KV100, [{N,[N]} || N <- lists:seq(1,100)]). + +append(_) -> + D = ?dict:append(k, v, ?dict:new()), + [{k,[v,v]}] = ?dict:to_list(?dict:append(k, v, D)). + +fetch(_) -> + D = ?dict:from_list(?KV100), + [50] = ?dict:fetch(50, D), + Ref = make_ref(), + Ref = try ?dict:fetch(Ref, D) catch _:_ -> Ref end. + +fetch_keys(_) -> + L = ?KV100, + D = ?dict:from_list(L), + L = [{N,[N]} || N <- lists:sort(?dict:fetch_keys(D))]. + +filter(_) -> + L = ?KV100, + F = fun(K,[_]) -> 0 == K rem 2 end, + D = ?dict:filter(F, ?dict:from_list(L)), + true = [T || {K,V} = T <- L, F(K,V)] == lists:sort(?dict:to_list(D)). + +find(_) -> + D = ?dict:from_list(?KV100), + {ok, [50]} = ?dict:find(50, D), + error = ?dict:find(make_ref(), D). + +fold(_) -> + L = ?KV100, + S = lists:sum([N || {N,_} <- L]), + S = ?dict:fold(fun(K,[_],A) -> K + A end, 0, ?dict:from_list(L)). + +is_key(_) -> + L = ?KV100, + D = ?dict:from_list(L), + true = lists:all(fun({N,_}) -> ?dict:is_key(N,D) end, L), + false = ?dict:is_key(make_ref(), D). + +map(_) -> + L = ?KV100, + F = fun(_,V) -> [N] = V, N*2 end, + D = ?dict:map(F, ?dict:from_list(L)), + M = [{K, F(K,V)} || {K,V} <- L], + M = lists:sort(?dict:to_list(D)). + +merge(_) -> + L = ?KV100, + F = fun(_,V1,V2) -> V1 ++ V2 end, + D = ?dict:merge(F, ?dict:from_list(L), ?dict:from_list(L)), + M = [{K, F(K,V,V)} || {K,V} <- L], + M = lists:sort(?dict:to_list(D)). + +update(_) -> + L = ?KV100, + F = fun([V]) -> 2*V end, + D = ?dict:update(50, F, ?dict:from_list(L)), + 100 = ?dict:fetch(50, D), + Ref = make_ref(), + Ref = try ?dict:update(Ref, F, D) catch _:_ -> Ref end, + [Ref] = ?dict:fetch(Ref, ?dict:update(Ref, + fun(_,_) -> ?ERROR(i_think_not) end, + [Ref], + D)). + +update_counter(_) -> + L = [{N,2*N} || {N,_} <- ?KV100], + D = ?dict:update_counter(50, 20, ?dict:from_list(L)), + 120 = ?dict:fetch(50,D), + 2 = ?dict:fetch(1,D). diff --git a/lib/diameter/test/diameter_enum.erl b/lib/diameter/test/diameter_enum.erl new file mode 100644 index 0000000000..dfb6d04e3c --- /dev/null +++ b/lib/diameter/test/diameter_enum.erl @@ -0,0 +1,406 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 2010-2011. 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(diameter_enum). + +%% +%% This module constructs finite enumerations. +%% +%% An enumeration is represented as a function on integers, 0 mapping +%% to the number of values enumerated and successive integers mapping +%% to enumerated values. The function will fail on anything but 0 and +%% positive integers less then or equal to the value of the function +%% at 0. +%% +%% The purpose of this is to provide a way of stepping through a large +%% number of values without explicitly constructing the list of all +%% possible values. For example, consider the following function that +%% given a list of lists constructs the list of all possible lists +%% constructed by choosing one element from each sublist. +%% +%% combine([H]) -> +%% [[X] || X <- H]; +%% combine([H|T]) -> +%% Ys = combine(T), +%% [[X|Y] || X <- H, Y <- Ys]. +%% +%% Eg. [[1,2],[3,4,5]] -> [[1,3],[1,4],[1,5],[2,3],[2,4],[2,5]] +%% +%% If L is a list of three 1000 element lists then combine(L) would +%% construct a list of length 10^9 which will likely exhaust available +%% memory. (Which is how this module came into being. A tail-recursive +%% implementation doesn't fare much better.) By contrast, +%% +%% F = enum:combine([enum:new(L) || L <- Lists]) +%% +%% only maps existing lists. It may still be undesirable to step +%% through a very large number of values but it's possible, and easy +%% to step through a selection of values as an alternative. +%% + +%% Functions that return enumerations. +-export([new/1, + combine/1, + reverse/1, + map/2, + append/1, + duplicate/2, + nthtail/2, + seq/2, + seq/3, + zip/1, + zip/2, + slice/3, + split/2]). + +%% Functions that operate on existing enumerations. +-export([foreach/2, + foldl/3, + foldr/3, + all/2, + any/2, + member/2, + last/1, + nth/2, + to_list/1]). + +%% ------------------------------------------------------------------------ +%% new/1 +%% +%% Turn a list/tuple of values into an enumeration that steps through +%% each element. Turn anything else into an enumeration of that single +%% value. +%% ------------------------------------------------------------------------ + +new(L) + when is_list(L) -> + new(list_to_tuple(L)); + +new(T) + when is_tuple(T) -> + enum(size(T), fun(N) -> element(N,T) end); + +new(T) -> + fun(0) -> 1; (1) -> T end. + +enum(Ord, F) -> + fun(0) -> Ord; (N) when 0 < N, N =< Ord -> F(N) end. + +%% ------------------------------------------------------------------------ +%% combine/1 +%% +%% Map a list/tuple of enumerations to the enumeration of all +%% lists/tuples constructed by choosing one value from each +%% enumeration in the list/tuple. +%% ------------------------------------------------------------------------ + +combine(T) + when is_tuple(T) -> + F = combine(tuple_to_list(T)), + enum(F(0), fun(N) -> list_to_tuple(F(N)) end); + +combine([]) -> + fun(0) -> 0 end; + +%% Given positive integers n_1,...,n_k, construct a bijection from +%% {0,...,\prod_{i=1}^k} n_i - 1} to {0,...,n_1} x ... x {0,...,n_k} +%% that maps N to (N_1,...,N_k) where: +%% +%% N_1 = (N div 1) rem n_1 +%% ... +%% N_k = (N div n_1*...*n_{k-1}) rem n_k +%% +%% That is: +%% +%% N_i = (N div \prod_{j=1}^{i-1} n_j) rem n_i +%% +%% This corresponds to looping through N_1, incrementing N_2 as N_1 +%% loops, and so on up through N_k. The inverse map is as follows. +%% +%% (N_1,...,N_k) -> N = N_1 + N_2*n_1 + ... + N_k*n_{k-1}*...*n_1 +%% +%% = \sum_{i=1}^k N_i*\prod_{j=i}^{i-1} n_j +%% +%% [Proof: Induction on k. For k=1 we have the identity map. If +%% g_k : (N_1,...,N_k) |-> N above is bijective then consider +%% the bijection +%% +%% G : (t,n) |--> t + n*K, K = n_k*...*n_1 +%% +%% from {0,...,K-1} x {0,...,n_{k+1}-1} onto {0,...,n_{k+1}*K - 1} +%% with inverse F : n |--> (n rem K, n div K). Since +%% +%% g_{k+1}(N_1,...,N_{k+1}) = g_k(N_1,...,N_K) + N_{k+1}*K +%% = G(g_k(N_1,...,N_K), N_{k+1}) +%% +%% and G, g_k and ((N-1,...,N_k),N_{k+1}) -> (N_1,...,N_{k+1}) +%% are all bijections, so is g_{k+1}.] + +combine([_|_] = L) -> + [Ord | Divs] = lists:foldl(fun(F,[D|_] = A) -> [F(0)*D | A] end, [1], L), + RL = lists:reverse(L), + enum(Ord, fun(N) -> combine(N, Ord, Divs, RL) end). + +%% Since we use 0 to return the number of elements enumerated, use +%% bijections from {1,...,N} rather than {0,...,N-1}. + +combine(N, Ord, Divs, L) + when 0 < N, N =< Ord -> + {Vs, []} = lists:foldl(fun(F, {A, [D|Ds]}) -> + {[F(1 + (((N-1) div D) rem F(0))) | A], Ds} + end, + {[], Divs}, + L), + Vs. + +%% ------------------------------------------------------------------------ +%% reverse/1 +%% +%% Construct the enumeration that reverses the order in which values +%% are traversed. +%% ------------------------------------------------------------------------ + +reverse(E) -> + Ord = E(0), + enum(Ord, fun(N) -> E(Ord + 1 - N) end). + +%% ------------------------------------------------------------------------ +%% map/2 +%% +%% Construct an enumeration that maps enumerated values. +%% ------------------------------------------------------------------------ + +map(Fun, E) -> + enum(E(0), fun(N) -> Fun(E(N)) end). + +%% ------------------------------------------------------------------------ +%% append/2 +%% +%% Construct an enumeration that successively steps through each of a +%% list of enumerations. +%% ------------------------------------------------------------------------ + +append(Es) -> + [Ord | Os] = lists:foldl(fun(E, [N|_] = A) -> [N+E(0)|A] end, [0], Es), + Rev = lists:reverse(Es), + enum(Ord, fun(N) -> append(N, Os, Rev) end). + +append(N, [Ord | _], [E | _]) + when N > Ord -> + E(N - Ord); +append(N, [_|Os], [_|Es]) -> + append(N, Os, Es). + +%% ------------------------------------------------------------------------ +%% duplicate/2 +%% +%% Construct an enumeration that traverses an enumeration multiple +%% times. Equivalent to append(lists:duplicate(N, E)). +%% ------------------------------------------------------------------------ + +duplicate(N, E) -> + Ord = E(0), + enum(N*Ord, fun(M) -> E(1 + ((M-1) rem Ord)) end). + +%% ------------------------------------------------------------------------ +%% nthtail/2 +%% +%% Construct an enumeration that omits values at the head of an +%% existing enumeration. +%% ------------------------------------------------------------------------ + +nthtail(N, E) + when 0 =< N -> + nthtail(E(0) - N, N, E). + +nthtail(Ord, N, E) + when 0 =< Ord -> + enum(Ord, fun(M) -> E(M+N) end). + +%% ------------------------------------------------------------------------ +%% seq/[23] +%% +%% Construct an enumeration that steps through a sequence of integers. +%% ------------------------------------------------------------------------ + +seq(From, To) -> + seq(From, To, 1). + +seq(From, To, Incr) + when From =< To -> + enum((To - From + Incr) div Incr, fun(N) -> From + (N-1)*Incr end). + +%% ------------------------------------------------------------------------ +%% zip/[12] +%% +%% Construct an enumeration whose nth value is the list of nth values +%% of a list of enumerations. +%% ------------------------------------------------------------------------ + +zip(Es) -> + zip(fun(T) -> T end, Es). + +zip(_, []) -> + []; +zip(Fun, Es) -> + enum(lists:min([E(0) || E <- Es]), fun(N) -> Fun([E(N) || E <- Es]) end). + +%% ------------------------------------------------------------------------ +%% slice/3 +%% +%% Construct an enumeration of a given length from a given starting point. +%% ------------------------------------------------------------------------ + +slice(N, Len, E) + when is_integer(N), N > 0, is_integer(Len), Len >= 0 -> + slice(N, Len, E(0) - (N - 1), E). + +slice(_, _, Tail, _) + when Tail < 1 -> + fun(0) -> 0 end; + +slice(N, Len, Tail, E) -> + enum(lists:min([Len, Tail]), fun(M) -> E(N-1+M) end). + +%% ------------------------------------------------------------------------ +%% split/2 +%% +%% Split an enumeration into a list of enumerations of the specified +%% length. The last enumeration of the list may have order less than +%% this length. +%% ------------------------------------------------------------------------ + +split(Len, E) + when is_integer(Len), Len > 0 -> + split(1, E(0), Len, E, []). + +split(N, Ord, _, _, Acc) + when N > Ord -> + lists:reverse(Acc); + +split(N, Ord, Len, E, Acc) -> + split(N+Len, Ord, Len, E, [slice(N, Len, E) | Acc]). + +%% ------------------------------------------------------------------------ +%% foreach/2 +%% +%% Apply a fun to each value of an enumeration. +%% ------------------------------------------------------------------------ + +foreach(Fun, E) -> + foldl(fun(N,ok) -> Fun(N), ok end, ok, E). + +%% ------------------------------------------------------------------------ +%% foldl/3 +%% foldr/3 +%% +%% Fold through values in an enumeration. +%% ------------------------------------------------------------------------ + +foldl(Fun, Acc, E) -> + foldl(E(0), 1, Fun, Acc, E). + +foldl(M, N, _, Acc, _) + when N == M+1 -> + Acc; +foldl(M, N, Fun, Acc, E) -> + foldl(M, N+1, Fun, Fun(E(N), Acc), E). + +foldr(Fun, Acc, E) -> + foldl(Fun, Acc, reverse(E)). + +%% ------------------------------------------------------------------------ +%% all/2 +%% +%% Do all values of an enumeration satisfy a predicate? +%% ------------------------------------------------------------------------ + +all(Pred, E) -> + all(E(0), 1, Pred, E). + +all(M, N, _, _) + when N == M+1 -> + true; +all(M, N, Pred, E) -> + Pred(E(N)) andalso all(M, N+1, Pred, E). + +%% Note that andalso/orelse are tail-recusive as of R13A. + +%% ------------------------------------------------------------------------ +%% any/2 +%% +%% Does any value of an enumeration satisfy a predicate? +%% ------------------------------------------------------------------------ + +any(Pred, E) -> + any(E(0), 1, Pred, E). + +any(M, N, _, _) + when N == M+1 -> + false; +any(M, N, Pred, E) -> + Pred(E(N)) orelse any(M, N+1, Pred, E). + +%% ------------------------------------------------------------------------ +%% member/2 +%% +%% Does a value match any in an enumeration? +%% ------------------------------------------------------------------------ + +member(X, E) -> + member(E(0), 1, X, E). + +member(M, N, _, _) + when N == M+1 -> + false; +member(M, N, X, E) -> + match(E(N), X) orelse member(M, N+1, X, E). + +match(X, X) -> + true; +match(_, _) -> + false. + +%% ------------------------------------------------------------------------ +%% last/1 +%% +%% Return the last value of an enumeration. +%% ------------------------------------------------------------------------ + +last(E) -> + E(E(0)). + +%% ------------------------------------------------------------------------ +%% nth/2 +%% +%% Return a selected value of an enumeration. +%% ------------------------------------------------------------------------ + +nth(N, E) -> + E(N). + +%% ------------------------------------------------------------------------ +%% to_list/1 +%% +%% Turn an enumeration into a list. Not good if the very many values +%% are enumerated. +%% ------------------------------------------------------------------------ + +to_list(E) -> + foldr(fun(X,A) -> [X|A] end, [], E). diff --git a/lib/diameter/test/diameter_etcp_test.beam b/lib/diameter/test/diameter_etcp_test.beam Binary files differdeleted file mode 100644 index efaaec69d5..0000000000 --- a/lib/diameter/test/diameter_etcp_test.beam +++ /dev/null diff --git a/lib/diameter/test/diameter_peer_test.erl b/lib/diameter/test/diameter_peer_test.erl deleted file mode 100644 index 27e75e26ef..0000000000 --- a/lib/diameter/test/diameter_peer_test.erl +++ /dev/null @@ -1,104 +0,0 @@ -%% -%% %CopyrightBegin% -%% -%% Copyright Ericsson AB 2010-2011. 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% -%% - -%% -%%---------------------------------------------------------------------- -%% Purpose: Verify the peer component of the Diameter application -%%---------------------------------------------------------------------- -%% --module(diameter_peer_test). - --export([ - init_per_testcase/2, fin_per_testcase/2, - - all/0, - groups/0, - init_per_suite/1, end_per_suite/1, - suite_init/1, suite_fin/1, - init_per_group/2, end_per_group/2 - - %% foo/1 - ]). - --export([t/0, t/1]). - --include("diameter_test_lib.hrl"). - - -t() -> diameter_test_server:t(?MODULE). -t(Case) -> diameter_test_server:t({?MODULE, Case}). - - -%% Test server callbacks -init_per_testcase(Case, Config) -> - diameter_test_server:init_per_testcase(Case, Config). - -fin_per_testcase(Case, Config) -> - diameter_test_server:fin_per_testcase(Case, Config). - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -all() -> - []. - -groups() -> - []. - -init_per_group(_GroupName, Config) -> - Config. - -end_per_group(_GroupName, Config) -> - Config. - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -suite_init(X) -> init_per_suite(X). - -init_per_suite(suite) -> []; -init_per_suite(doc) -> []; -init_per_suite(Config) when is_list(Config) -> - Config. - - -suite_fin(X) -> end_per_suite(X). - -end_per_suite(suite) -> []; -end_per_suite(doc) -> []; -end_per_suite(Config) when is_list(Config) -> - Config. - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% -%% Test case example -%% - -%% foo(suite) -> -%% []; -%% foo(doc) -> -%% []; -%% foo(Config) when is_list(Config) -> -%% ok. - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - - diff --git a/lib/diameter/test/diameter_reg_SUITE.erl b/lib/diameter/test/diameter_reg_SUITE.erl new file mode 100644 index 0000000000..ade824c9dd --- /dev/null +++ b/lib/diameter/test/diameter_reg_SUITE.erl @@ -0,0 +1,119 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 2010-2011. 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% +%% + +%% +%% Tests of the server implemented by diameter_reg.erl. +%% + +-module(diameter_reg_SUITE). + +-export([suite/0, + all/0, + groups/0, + init_per_group/2, + end_per_group/2, + init_per_suite/1, + end_per_suite/1]). + +%% testcases +-export([add/1, + add_new/1, + del/1, + repl/1, + terms/1, + pids/1]). + +-define(reg, diameter_reg). +-define(util, diameter_util). + +%% =========================================================================== + +suite() -> + [{timetrap, {seconds, 10}}]. + +all() -> + [{group, all} | tc()]. + +groups() -> + [{all, [parallel], tc()}]. + +tc() -> + [add, + add_new, + del, + repl, + terms, + pids]. + +init_per_group(_, Config) -> + Config. + +end_per_group(_, _) -> + ok. + +init_per_suite(Config) -> + ok = diameter:start(), + Config. + +end_per_suite(_Config) -> + ok = diameter:stop(). + +%% =========================================================================== + +add(_) -> + Ref = make_ref(), + true = ?reg:add(Ref), + true = ?reg:add(Ref), + [{Ref, Pid}] = ?reg:match(Ref), + Pid = self(). + +add_new(_) -> + Ref = make_ref(), + true = ?reg:add_new(Ref), + false = ?reg:add_new(Ref). + +del(_) -> + Ref = make_ref(), + true = ?reg:add_new(Ref), + true = ?reg:add_new({Ref}), + true = ?reg:del({Ref}), + [{Ref, Pid}] = ?reg:match(Ref), + Pid = self(). + +repl(_) -> + Ref = make_ref(), + true = ?reg:add_new({Ref}), + true = ?reg:repl({Ref}, Ref), + false = ?reg:add_new(Ref), + false = ?reg:repl({Ref}, Ref), + [{Ref, Pid}] = ?reg:match(Ref), + Pid = self(). + +terms(_) -> + Ref = make_ref(), + true = ?reg:add_new(Ref), + [[Pid]] = [L || {T,L} <- ?reg:terms(), T == Ref], + Pid = self(). + +pids(_) -> + Ref = make_ref(), + true = ?reg:add_new(Ref), + %% Don't match [[Ref]] since this will only necessarily be the + %% case when the test is run in its own process. + [_|_] = [L || {P,L} <- ?reg:pids(), P == self()]. diff --git a/lib/diameter/test/diameter_reg_test.erl b/lib/diameter/test/diameter_reg_test.erl deleted file mode 100644 index a2638d6712..0000000000 --- a/lib/diameter/test/diameter_reg_test.erl +++ /dev/null @@ -1,104 +0,0 @@ -%% -%% %CopyrightBegin% -%% -%% Copyright Ericsson AB 2010-2011_2011. 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% -%% - -%% -%%---------------------------------------------------------------------- -%% Purpose: Verify the reg component of the Diameter application -%%---------------------------------------------------------------------- -%% --module(diameter_reg_test). - --export([ - init_per_testcase/2, fin_per_testcase/2, - - all/0, - groups/0, - init_per_suite/1, end_per_suite/1, - suite_init/1, suite_fin/1, - init_per_group/2, end_per_group/2 - - %% foo/1 - ]). - --export([t/0, t/1]). - --include("diameter_test_lib.hrl"). - - -t() -> diameter_test_server:t(?MODULE). -t(Case) -> diameter_test_server:t({?MODULE, Case}). - - -%% Test server callbacks -init_per_testcase(Case, Config) -> - diameter_test_server:init_per_testcase(Case, Config). - -fin_per_testcase(Case, Config) -> - diameter_test_server:fin_per_testcase(Case, Config). - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -all() -> - []. - -groups() -> - []. - -init_per_group(_GroupName, Config) -> - Config. - -end_per_group(_GroupName, Config) -> - Config. - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -suite_init(X) -> init_per_suite(X). - -init_per_suite(suite) -> []; -init_per_suite(doc) -> []; -init_per_suite(Config) when is_list(Config) -> - Config. - - -suite_fin(X) -> end_per_suite(X). - -end_per_suite(suite) -> []; -end_per_suite(doc) -> []; -end_per_suite(Config) when is_list(Config) -> - Config. - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% -%% Test case example -%% - -%% foo(suite) -> -%% []; -%% foo(doc) -> -%% []; -%% foo(Config) when is_list(Config) -> -%% ok. - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - - diff --git a/lib/diameter/test/diameter_relay_SUITE.erl b/lib/diameter/test/diameter_relay_SUITE.erl new file mode 100644 index 0000000000..d3d1fe690a --- /dev/null +++ b/lib/diameter/test/diameter_relay_SUITE.erl @@ -0,0 +1,415 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 2010-2011. 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% +%% + +%% +%% Tests of traffic between seven Diameter nodes connected as follows. +%% +%% --- SERVER1.REALM2 +%% / +%% ---- RELAY.REALM2 ---- SERVER2.REALM2 +%% / | +%% CLIENT.REALM1 | +%% \ | +%% ---- RELAY.REALM3 ---- SERVER1.REALM3 +%% \ +%% --- SERVER2.REALM3 +%% + +-module(diameter_relay_SUITE). + +-export([suite/0, + all/0, + groups/0, + init_per_group/2, + end_per_group/2, + init_per_suite/1, + end_per_suite/1]). + +%% testcases +-export([send1/1, + send2/1, + send3/1, + send4/1, + send_loop/1, + send_timeout_1/1, + send_timeout_2/1, + remove_transports/1, + stop_services/1]). + +%% diameter callbacks +-export([peer_up/3, + peer_down/3, + pick_peer/4, + prepare_request/3, + prepare_retransmit/3, + handle_answer/4, + handle_error/4, + handle_request/3]). + +-ifdef(DIAMETER_CT). +-include("diameter_gen_base_rfc3588.hrl"). +-else. +-include_lib("diameter/include/diameter_gen_base_rfc3588.hrl"). +-endif. + +-include_lib("diameter/include/diameter.hrl"). +-include("diameter_ct.hrl"). + +%% =========================================================================== + +-define(ADDR, {127,0,0,1}). + +-define(CLIENT, "CLIENT.REALM1"). +-define(RELAY1, "RELAY.REALM2"). +-define(SERVER1, "SERVER1.REALM2"). +-define(SERVER2, "SERVER2.REALM2"). +-define(RELAY2, "RELAY.REALM3"). +-define(SERVER3, "SERVER1.REALM3"). +-define(SERVER4, "SERVER2.REALM3"). + +-define(DICT_COMMON, ?DIAMETER_DICT_COMMON). +-define(DICT_RELAY, ?DIAMETER_DICT_RELAY). + +-define(APP_ALIAS, the_app). +-define(APP_ID, ?DICT_COMMON:id()). + +%% Config for diameter:start_service/2. +-define(SERVICE(Host, Dict), + [{'Origin-Host', Host}, + {'Origin-Realm', realm(Host)}, + {'Host-IP-Address', [?ADDR]}, + {'Vendor-Id', 12345}, + {'Product-Name', "OTP/diameter"}, + {'Acct-Application-Id', [Dict:id()]}, + {application, [{alias, ?APP_ALIAS}, + {dictionary, Dict}, + {module, ?MODULE}, + {answer_errors, callback}]}]). + +%% Config for diameter:add_transport/2. In the listening case, listen +%% on a free port that we then lookup using the implementation detail +%% that diameter_tcp registers the port with diameter_reg. +-define(CONNECT(PortNr), + {connect, [{transport_module, diameter_tcp}, + {transport_config, [{raddr, ?ADDR}, + {rport, PortNr}, + {ip, ?ADDR}, + {port, 0}]}]}). +-define(LISTEN, + {listen, [{transport_module, diameter_tcp}, + {transport_config, [{ip, ?ADDR}, {port, 0}]}]}). + +-define(SUCCESS, 2001). +-define(LOOP_DETECTED, 3005). +-define(UNABLE_TO_DELIVER, 3002). + +-define(LOGOUT, ?'DIAMETER_BASE_TERMINATION-CAUSE_DIAMETER_LOGOUT'). +-define(AUTHORIZE_ONLY, ?'DIAMETER_BASE_RE-AUTH-REQUEST-TYPE_AUTHORIZE_ONLY'). + +-define(A, list_to_atom). +-define(L, atom_to_list). + +%% =========================================================================== + +suite() -> + [{timetrap, {seconds, 10}}]. + +all() -> + [{group, N} || {N, _, _} <- groups()] + ++ [remove_transports, stop_services]. + +groups() -> + Ts = tc(), + [{all, [], Ts}, + {p, [parallel], Ts}]. + +init_per_group(_, Config) -> + Config. + +end_per_group(_, _) -> + ok. + +init_per_suite(Config) -> + ok = diameter:start(), + [S1,S2,S3,S4] = S = [server(N, ?DICT_COMMON) || N <- [?SERVER1, + ?SERVER2, + ?SERVER3, + ?SERVER4]], + [R1,R2] = R = [server(N, ?DICT_RELAY) || N <- [?RELAY1, ?RELAY2]], + + ok = diameter:start_service(?CLIENT, ?SERVICE(?CLIENT, ?DICT_COMMON)), + + true = diameter:subscribe(?RELAY1), + true = diameter:subscribe(?RELAY2), + true = diameter:subscribe(?CLIENT), + + [C1,C2] = connect(?RELAY1, [S1,S2]), + [C3,C4] = connect(?RELAY2, [S3,S4]), + [C5,C6] = connect(?CLIENT, [R1,R2]), + + C7 = connect(?RELAY1, R2), + + [{transports, {S, R, [C1,C2,C3,C4,C5,C6,C7]}} | Config]. + +end_per_suite(_Config) -> + ok = diameter:stop(). + +%% Testcases to run when services are started and connections +%% established. +tc() -> + [send1, + send2, + send3, + send4, + send_loop, + send_timeout_1, + send_timeout_2]. + +server(Host, Dict) -> + ok = diameter:start_service(Host, ?SERVICE(Host, Dict)), + {ok, LRef} = diameter:add_transport(Host, ?LISTEN), + {LRef, portnr(LRef)}. + +connect(Host, {_LRef, PortNr}) -> + {ok, Ref} = diameter:add_transport(Host, ?CONNECT(PortNr)), + ok = receive + #diameter_event{service = Host, + info = {up, Ref, _, _, #diameter_packet{}}} -> + ok + after 2000 -> + false + end, + Ref; +connect(Host, Ports) -> + [connect(Host, P) || P <- Ports]. + +portnr(LRef) -> + portnr(LRef, 20). + +portnr(LRef, N) + when 0 < N -> + case diameter_reg:match({diameter_tcp, listener, {LRef, '_'}}) of + [{T, _Pid}] -> + {_, _, {LRef, {_Addr, LSock}}} = T, + {ok, PortNr} = inet:port(LSock), + PortNr; + [] -> + receive after 50 -> ok end, + portnr(LRef, N-1) + end. + +realm(Host) -> + tl(lists:dropwhile(fun(C) -> C /= $. end, Host)). + +%% =========================================================================== + +%% Send an STR intended for a specific server and expect success. +send1(_Config) -> + call(?SERVER1). +send2(_Config) -> + call(?SERVER2). +send3(_Config) -> + call(?SERVER3). +send4(_Config) -> + call(?SERVER4). + +%% Send an ASR that loops between the relays and expect the loop to +%% be detected. +send_loop(_Config) -> + Req = ['ASR', {'Destination-Realm', realm(?SERVER1)}, + {'Destination-Host', ?SERVER1}, + {'Auth-Application-Id', ?APP_ID}], + #'diameter_base_answer-message'{'Result-Code' = ?LOOP_DETECTED} + = call(Req, [{filter, realm}]). + +%% Send a RAR that is incorrectly routed and then discarded and expect +%% different results depending on whether or not we or the relay +%% timeout first. +send_timeout_1(_Config) -> + #'diameter_base_answer-message'{'Result-Code' = ?UNABLE_TO_DELIVER} + = send_timeout(7000). +send_timeout_2(_Config) -> + {error, timeout} = send_timeout(3000). + +send_timeout(Tmo) -> + Req = ['RAR', {'Destination-Realm', realm(?SERVER1)}, + {'Destination-Host', ?SERVER1}, + {'Auth-Application-Id', ?APP_ID}, + {'Re-Auth-Request-Type', ?AUTHORIZE_ONLY}], + call(Req, [{filter, realm}, {timeout, Tmo}]). + +%% Remove the client transports and expect the corresponding server +%% transport to go down. +remove_transports(Config) -> + {[S1,S2,S3,S4], [R1,R2], [C1,C2,C3,C4,C5,C6,C7]} + = proplists:get_value(transports, Config), + + true = diameter:subscribe(?SERVER1), + true = diameter:subscribe(?SERVER2), + true = diameter:subscribe(?SERVER3), + true = diameter:subscribe(?SERVER4), + true = diameter:subscribe(?RELAY1), + true = diameter:subscribe(?RELAY2), + + disconnect(S1, ?RELAY1, C1), + disconnect(S2, ?RELAY1, C2), + disconnect(S3, ?RELAY2, C3), + disconnect(S4, ?RELAY2, C4), + disconnect(R1, ?CLIENT, C5), + disconnect(R2, ?CLIENT, C6), + disconnect(R2, ?RELAY1, C7). + +disconnect({LRef, _PortNr}, Client, CRef) -> + ok = diameter:remove_transport(Client, CRef), + ok = receive #diameter_event{info = {down, LRef, _, _}} -> ok + after 2000 -> false + end. + +stop_services(_Config) -> + S = [?CLIENT, ?RELAY1, ?RELAY2, ?SERVER1, ?SERVER2, ?SERVER3, ?SERVER4], + Ok = [ok || _ <- S], + Ok = [diameter:stop_service(H) || H <- S]. + +%% =========================================================================== + +call(Server) -> + Realm = realm(Server), + Req = ['STR', {'Destination-Realm', Realm}, + {'Destination-Host', [Server]}, + {'Termination-Cause', ?LOGOUT}, + {'Auth-Application-Id', ?APP_ID}], + #diameter_base_STA{'Result-Code' = ?SUCCESS, + 'Origin-Host' = Server, + 'Origin-Realm' = Realm} + = call(Req, [{filter, realm}]). + +call(Req, Opts) -> + diameter:call(?CLIENT, ?APP_ALIAS, Req, Opts). + +set([H|T], Vs) -> + [H | Vs ++ T]. + +%% =========================================================================== +%% diameter callbacks + +%% peer_up/3 + +peer_up(_SvcName, _Peer, State) -> + State. + +%% peer_down/3 + +peer_down(_SvcName, _Peer, State) -> + State. + +%% pick_peer/4 + +pick_peer([Peer | _], _, Svc, _State) + when Svc == ?RELAY1; + Svc == ?RELAY2; + Svc == ?CLIENT-> + {ok, Peer}. + +%% prepare_request/3 + +prepare_request(Pkt, Svc, _Peer) + when Svc == ?RELAY1; + Svc == ?RELAY2 -> + {send, Pkt}; + +prepare_request(Pkt, ?CLIENT, {_Ref, Caps}) -> + {send, prepare(Pkt, Caps)}. + +prepare(#diameter_packet{msg = Req}, Caps) -> + #diameter_caps{origin_host = {OH, _}, + origin_realm = {OR, _}} + = Caps, + set(Req, [{'Session-Id', diameter:session_id(OH)}, + {'Origin-Host', OH}, + {'Origin-Realm', OR}]). + +%% prepare_retransmit/3 + +prepare_retransmit(_Pkt, false, _Peer) -> + discard. + +%% handle_answer/4 + +%% A relay must return Pkt. +handle_answer(Pkt, _Req, Svc, _Peer) + when Svc == ?RELAY1; + Svc == ?RELAY2 -> + Pkt; + +handle_answer(Pkt, _Req, ?CLIENT, _Peer) -> + #diameter_packet{msg = Rec, errors = []} = Pkt, + Rec. + +%% handle_error/4 + +handle_error(Reason, _Req, _Svc, _Peer) -> + {error, Reason}. + +%% handle_request/3 + +handle_request(Pkt, OH, {_Ref, #diameter_caps{origin_host = {OH,_}} = Caps}) + when OH /= ?CLIENT -> + request(Pkt, Caps). + +%% RELAY1 routes any ASR or RAR to RELAY2 ... +request(#diameter_packet{header = #diameter_header{cmd_code = C}}, + #diameter_caps{origin_host = {?RELAY1, _}}) + when C == 274; %% ASR + C == 258 -> %% RAR + {relay, [{filter, {realm, realm(?RELAY2)}}]}; + +%% ... which in turn routes it back. Expect diameter to either answer +%% either with DIAMETER_LOOP_DETECTED/DIAMETER_UNABLE_TO_COMPLY. +request(#diameter_packet{header = #diameter_header{cmd_code = 274}}, + #diameter_caps{origin_host = {?RELAY2, _}}) -> + {relay, [{filter, {host, ?RELAY1}}]}; +request(#diameter_packet{header = #diameter_header{cmd_code = 258}}, + #diameter_caps{origin_host = {?RELAY2, _}}) -> + discard; + +%% Other request to a relay: send on to one of the servers in the +%% same realm. +request(_Pkt, #diameter_caps{origin_host = {OH, _}}) + when OH == ?RELAY1; + OH == ?RELAY2 -> + {relay, [{filter, {all, [host, realm]}}]}; + +%% Request received by a server: answer. +request(#diameter_packet{msg = #diameter_base_STR{'Session-Id' = SId, + 'Origin-Host' = Host, + 'Origin-Realm' = Realm, + 'Route-Record' = Route}}, + #diameter_caps{origin_host = {OH, _}, + origin_realm = {OR, _}}) -> + %% The request should have the Origin-Host/Realm of the original + %% sender. + R = realm(?CLIENT), + {?CLIENT, R} = {Host, Realm}, + %% A relay appends the identity of the peer that a request was + %% received from to the Route-Record avp. + [?CLIENT] = Route, + {reply, #diameter_base_STA{'Result-Code' = ?SUCCESS, + 'Session-Id' = SId, + 'Origin-Host' = OH, + 'Origin-Realm' = OR}}. diff --git a/lib/diameter/test/diameter_session_test.erl b/lib/diameter/test/diameter_session_test.erl deleted file mode 100644 index a32647d83d..0000000000 --- a/lib/diameter/test/diameter_session_test.erl +++ /dev/null @@ -1,104 +0,0 @@ -%% -%% %CopyrightBegin% -%% -%% Copyright Ericsson AB 2010-2011. 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% -%% - -%% -%%---------------------------------------------------------------------- -%% Purpose: Verify the session component of the Diameter application -%%---------------------------------------------------------------------- -%% --module(diameter_session_test). - --export([ - init_per_testcase/2, fin_per_testcase/2, - - all/0, - groups/0, - init_per_suite/1, end_per_suite/1, - suite_init/1, suite_fin/1, - init_per_group/2, end_per_group/2 - - %% foo/1 - ]). - --export([t/0, t/1]). - --include("diameter_test_lib.hrl"). - - -t() -> diameter_test_server:t(?MODULE). -t(Case) -> diameter_test_server:t({?MODULE, Case}). - - -%% Test server callbacks -init_per_testcase(Case, Config) -> - diameter_test_server:init_per_testcase(Case, Config). - -fin_per_testcase(Case, Config) -> - diameter_test_server:fin_per_testcase(Case, Config). - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -all() -> - []. - -groups() -> - []. - -init_per_group(_GroupName, Config) -> - Config. - -end_per_group(_GroupName, Config) -> - Config. - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -suite_init(X) -> init_per_suite(X). - -init_per_suite(suite) -> []; -init_per_suite(doc) -> []; -init_per_suite(Config) when is_list(Config) -> - Config. - - -suite_fin(X) -> end_per_suite(X). - -end_per_suite(suite) -> []; -end_per_suite(doc) -> []; -end_per_suite(Config) when is_list(Config) -> - Config. - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% -%% Test case example -%% - -%% foo(suite) -> -%% []; -%% foo(doc) -> -%% []; -%% foo(Config) when is_list(Config) -> -%% ok. - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - - diff --git a/lib/diameter/test/diameter_stats_SUITE.erl b/lib/diameter/test/diameter_stats_SUITE.erl new file mode 100644 index 0000000000..e50a0050a6 --- /dev/null +++ b/lib/diameter/test/diameter_stats_SUITE.erl @@ -0,0 +1,92 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 2010-2011. 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% +%% + +%% +%% Tests of the server implemented by diameter_stats.erl. +%% + +-module(diameter_stats_SUITE). + +-export([suite/0, + all/0, + groups/0, + init_per_group/2, + end_per_group/2, + init_per_suite/1, + end_per_suite/1]). + +%% testcases +-export([an/1, + twa/1]). + +-define(stat, diameter_stats). +-define(util, diameter_util). + +%% =========================================================================== + +suite() -> + [{timetrap, {seconds, 10}}]. + +all() -> + [{group, all} | tc()]. + +groups() -> + [{all, [parallel], tc()}]. + +tc() -> + [an, + twa]. + +init_per_group(_, Config) -> + Config. + +end_per_group(_, _) -> + ok. + +init_per_suite(Config) -> + ok = diameter:start(), + Config. + +end_per_suite(_Config) -> + ok = diameter:stop(). + +%% =========================================================================== + +an(_) -> + Ref = {'_', make_ref()}, + true = ?stat:reg(Ref), + true = ?stat:reg(Ref), %% duplicate + ok = ?stat:incr(x), + ok = ?stat:incr(x, Ref), + ok = ?stat:incr(y, 2), + ok = ?stat:incr(y, Ref), + %% Flushing a pid flushes even stats on the registered reference. + [{x,2},{y,3}] = lists:sort(?stat:flush()), + [] = ?stat:flush(Ref), + [] = ?stat:flush(). + +twa(_) -> + Ref = make_ref(), + ok = ?stat:incr(x, 8), + ok = ?stat:incr(x, Ref, 7), + %% Flushing a reference doesn't affect registered pids. + [{x,7}] = ?stat:flush(Ref), + [] = ?stat:flush(Ref), + [{x,8}] = ?stat:flush(), + [] = ?stat:flush(). diff --git a/lib/diameter/test/diameter_stats_test.erl b/lib/diameter/test/diameter_stats_test.erl deleted file mode 100644 index 8b666edf50..0000000000 --- a/lib/diameter/test/diameter_stats_test.erl +++ /dev/null @@ -1,104 +0,0 @@ -%% -%% %CopyrightBegin% -%% -%% Copyright Ericsson AB 2010-2011. 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% -%% - -%% -%%---------------------------------------------------------------------- -%% Purpose: Verify the stats component of the Diameter application -%%---------------------------------------------------------------------- -%% --module(diameter_stats_test). - --export([ - init_per_testcase/2, fin_per_testcase/2, - - all/0, - groups/0, - init_per_suite/1, end_per_suite/1, - suite_init/1, suite_fin/1, - init_per_group/2, end_per_group/2 - - %% foo/1 - ]). - --export([t/0, t/1]). - --include("diameter_test_lib.hrl"). - - -t() -> diameter_test_server:t(?MODULE). -t(Case) -> diameter_test_server:t({?MODULE, Case}). - - -%% Test server callbacks -init_per_testcase(Case, Config) -> - diameter_test_server:init_per_testcase(Case, Config). - -fin_per_testcase(Case, Config) -> - diameter_test_server:fin_per_testcase(Case, Config). - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -all() -> - []. - -groups() -> - []. - -init_per_group(_GroupName, Config) -> - Config. - -end_per_group(_GroupName, Config) -> - Config. - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -suite_init(X) -> init_per_suite(X). - -init_per_suite(suite) -> []; -init_per_suite(doc) -> []; -init_per_suite(Config) when is_list(Config) -> - Config. - - -suite_fin(X) -> end_per_suite(X). - -end_per_suite(suite) -> []; -end_per_suite(doc) -> []; -end_per_suite(Config) when is_list(Config) -> - Config. - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% -%% Test case example -%% - -%% foo(suite) -> -%% []; -%% foo(doc) -> -%% []; -%% foo(Config) when is_list(Config) -> -%% ok. - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - - diff --git a/lib/diameter/test/diameter_sync_SUITE.erl b/lib/diameter/test/diameter_sync_SUITE.erl new file mode 100644 index 0000000000..84f77b6066 --- /dev/null +++ b/lib/diameter/test/diameter_sync_SUITE.erl @@ -0,0 +1,139 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 2010-2011. 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% +%% + +%% +%% Tests of the server implemented by diameter_sync.erl. +%% + +-module(diameter_sync_SUITE). + +-export([suite/0, + all/0, + groups/0, + init_per_group/2, + end_per_group/2, + init_per_suite/1, + end_per_suite/1]). + +%% testcases +-export([call/1, + cast/1, + timeout/1, + flush/1]). + +-define(sync, diameter_sync). +-define(util, diameter_util). + +-define(TIMEOUT, infinity). + +%% =========================================================================== + +suite() -> + [{timetrap, {seconds, 10}}]. + +all() -> + [{group, all} | tc()]. + +groups() -> + [{all, [parallel], tc()}]. + +tc() -> + [call, + cast, + timeout, + flush]. + +init_per_group(_, Config) -> + Config. + +end_per_group(_, _) -> + ok. + +init_per_suite(Config) -> + ok = diameter:start(), + Config. + +end_per_suite(_Config) -> + ok = diameter:stop(). + +%% =========================================================================== + +call(_) -> + Ref = make_ref(), + Q = {q, Ref}, + F = fun() -> Ref end, + Ref = ?sync:call(Q, F, infinity, ?TIMEOUT), + Ref = ?sync:call(Q, F, 0, infinity), + Ref = call(Q, F), + Ref = call(Q, {fun(_) -> Ref end, x}), + timeout = call(Q, fun() -> exit(unexpected) end), + {_,_,_} = call(Q, {erlang, now, []}), + {_,_,_} = call(Q, [fun erlang:now/0]). + +cast(_) -> + Ref = make_ref(), + Q = {q, Ref}, + false = ?sync:carp(Q), + [] = ?sync:pids(Q), + %% Queue a request that blocks until we send it Ref and another + %% that exits with Ref. + ok = cast(Q, fun() -> receive Ref -> ok end end), + ok = cast(Q, fun() -> exit(Ref) end), + [_,Pid] = ?sync:pids(Q), + %% Ensure some expected truths ... + 2 = ?sync:pending(Q), + true = 2 =< ?sync:pending(), + true = lists:member(Q, ?sync:queues()), + %% ... and that the max number of requests is respected. + rejected = ?sync:call(Q, {erlang, now, []}, 1, ?TIMEOUT), + rejected = ?sync:cast(Q, {erlang, now, []}, 1, ?TIMEOUT), + %% Monitor on the identifiable request and see that exits when we + %% let the blocking request finish. + MRef = erlang:monitor(process, Pid), + {value, P} = ?sync:carp(Q), + P ! Ref, + Ref = receive + {'DOWN', MRef, process, _, Reason} -> + Reason + after ?TIMEOUT -> + false + end. + +timeout(_) -> + Q = make_ref(), + ok = ?sync:cast(Q, {timer, sleep, [2000]}, infinity, 2000), + timeout = ?sync:call(Q, fun() -> ok end, infinity, 1000). + +flush(_) -> + Q = make_ref(), + F = {timer, sleep, [2000]}, + ok = cast(Q, F), + ok = cast(Q, F), + 1 = ?sync:flush(Q). + +%% =========================================================================== + +call(Q, Req) -> + sync(call, Q, Req). + +cast(Q, Req) -> + sync(cast, Q, Req). + +sync(F, Q, Req) -> + ?sync:F(Q, Req, infinity, infinity). diff --git a/lib/diameter/test/diameter_sync_test.erl b/lib/diameter/test/diameter_sync_test.erl deleted file mode 100644 index 618fa5021b..0000000000 --- a/lib/diameter/test/diameter_sync_test.erl +++ /dev/null @@ -1,104 +0,0 @@ -%% -%% %CopyrightBegin% -%% -%% Copyright Ericsson AB 2010-2011. 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% -%% - -%% -%%---------------------------------------------------------------------- -%% Purpose: Verify the sync component of the Diameter application -%%---------------------------------------------------------------------- -%% --module(diameter_sync_test). - --export([ - init_per_testcase/2, fin_per_testcase/2, - - all/0, - groups/0, - init_per_suite/1, end_per_suite/1, - suite_init/1, suite_fin/1, - init_per_group/2, end_per_group/2 - - %% foo/1 - ]). - --export([t/0, t/1]). - --include("diameter_test_lib.hrl"). - - -t() -> diameter_test_server:t(?MODULE). -t(Case) -> diameter_test_server:t({?MODULE, Case}). - - -%% Test server callbacks -init_per_testcase(Case, Config) -> - diameter_test_server:init_per_testcase(Case, Config). - -fin_per_testcase(Case, Config) -> - diameter_test_server:fin_per_testcase(Case, Config). - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -all() -> - []. - -groups() -> - []. - -init_per_group(_GroupName, Config) -> - Config. - -end_per_group(_GroupName, Config) -> - Config. - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -suite_init(X) -> init_per_suite(X). - -init_per_suite(suite) -> []; -init_per_suite(doc) -> []; -init_per_suite(Config) when is_list(Config) -> - Config. - - -suite_fin(X) -> end_per_suite(X). - -end_per_suite(suite) -> []; -end_per_suite(doc) -> []; -end_per_suite(Config) when is_list(Config) -> - Config. - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% -%% Test case example -%% - -%% foo(suite) -> -%% []; -%% foo(doc) -> -%% []; -%% foo(Config) when is_list(Config) -> -%% ok. - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - - diff --git a/lib/diameter/test/diameter_tcp_test.erl b/lib/diameter/test/diameter_tcp_test.erl deleted file mode 100644 index b002a3d289..0000000000 --- a/lib/diameter/test/diameter_tcp_test.erl +++ /dev/null @@ -1,482 +0,0 @@ -%% -%% %CopyrightBegin% -%% -%% Copyright Ericsson AB 2010-2011. 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% -%% - -%% -%%---------------------------------------------------------------------- -%% Purpose: Verify the tcp transport component of the Diameter application -%%---------------------------------------------------------------------- -%% --module(diameter_tcp_test). - --export([ - init_per_testcase/2, fin_per_testcase/2, - - all/0, - groups/0, - init_per_suite/1, end_per_suite/1, - suite_init/1, suite_fin/1, - init_per_group/2, end_per_group/2, - - start_and_stop_transport_plain/1, - start_and_listen/1, - simple_connect/1, - simple_send_and_recv/1 - - ]). - --export([t/0, t/1]). - -%% diameter_peer (internal) callback API --export([up/1, up/3, recv/2]). - --include("diameter_test_lib.hrl"). --include_lib("diameter/include/diameter.hrl"). -%% -include_lib("diameter/src/tcp/diameter_tcp.hrl"). - - -t() -> diameter_test_server:t(?MODULE). -t(Case) -> diameter_test_server:t({?MODULE, Case}). - - -%% Test server callbacks -init_per_testcase(Case, Config) -> - diameter_test_server:init_per_testcase(Case, Config). - -fin_per_testcase(Case, Config) -> - diameter_test_server:fin_per_testcase(Case, Config). - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -all() -> - [ - {group, start}, - {group, simple} - ]. - -groups() -> - [ - {start, [], [start_and_stop_transport_plain, start_and_listen]}, - {simple, [], [simple_connect, simple_send_and_recv]} - ]. - -init_per_group(_GroupName, Config) -> - Config. - -end_per_group(_GroupName, Config) -> - Config. - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -suite_init(X) -> init_per_suite(X). - -init_per_suite(suite) -> []; -init_per_suite(doc) -> []; -init_per_suite(Config) when is_list(Config) -> - Config. - - -suite_fin(X) -> end_per_suite(X). - -end_per_suite(suite) -> []; -end_per_suite(doc) -> []; -end_per_suite(Config) when is_list(Config) -> - Config. - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% -%% Test case(s) -%% - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% -%% Plain start and stop of TCP transport -%% - -start_and_stop_transport_plain(suite) -> - []; -start_and_stop_transport_plain(doc) -> - []; -start_and_stop_transport_plain(Config) when is_list(Config) -> - - ?SKIP(not_yet_implemented), - - %% This has been changed *a lot* since it was written... - - process_flag(trap_exit, true), - Transport = ensure_transport_started(), - TcpTransport = ensure_tcp_transport_started(), - ensure_tcp_transport_stopped(TcpTransport), - ensure_transport_stopped(Transport), - i("done"), - ok. - - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% -%% Start TCP transport and then create a listen socket -%% - -start_and_listen(suite) -> - []; -start_and_listen(doc) -> - []; -start_and_listen(Config) when is_list(Config) -> - - ?SKIP(not_yet_implemented), - - %% This has been changed *a lot* since it was written... - - process_flag(trap_exit, true), - Transport = ensure_transport_started(), - TcpTransport = ensure_tcp_transport_started(), - - case listen([{port, 0}]) of - {ok, Acceptor} when is_pid(Acceptor) -> - Ref = erlang:monitor(process, Acceptor), - [{Acceptor, Info}] = diameter_tcp:which_listeners(), - case lists:keysearch(socket, 1, Info) of - {value, {_, Listen}} -> - i("Listen socket: ~p" - "~n Opts: ~p" - "~n Stats: ~p" - "~n Name: ~p", - [Listen, - ok(inet:getopts(Listen, [keepalive, delay_send])), - ok(inet:getstat(Listen)), - ok(inet:sockname(Listen)) - ]), - ok; - _ -> - ?FAIL({bad_listener_info, Acceptor, Info}) - end, - Crash = simulate_crash, - exit(Acceptor, Crash), - receive - {'DOWN', Ref, process, Acceptor, Crash} -> - ?SLEEP(1000), - case diameter_tcp:which_listeners() of - [{NewAcceptor, _NewInfo}] -> - diameter_tcp_accept:stop(NewAcceptor), - ?SLEEP(1000), - case diameter_tcp:which_listeners() of - [] -> - ok; - UnexpectedListeners -> - ?FAIL({unexpected_listeners, empty, UnexpectedListeners}) - end; - UnexpectedListeners -> - ?FAIL({unexpected_listeners, non_empty, UnexpectedListeners}) - end - after 5000 -> - ?FAIL({failed_killing, Acceptor}) - end; - Error -> - ?FAIL({failed_creating_acceptor, Error}) - end, - ensure_tcp_transport_stopped(TcpTransport), - ensure_transport_stopped(Transport), - i("done"), - ok. - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% -%% TCP transport connecting -%% - -simple_connect(suite) -> - []; -simple_connect(doc) -> - []; -simple_connect(Config) when is_list(Config) -> - - ?SKIP(not_yet_implemented), - - %% This has been changed *a lot* since it was written... - - process_flag(trap_exit, true), - Transport = ensure_transport_started(), - TcpTransport = ensure_tcp_transport_started(), - {_Acceptor, Port} = ensure_tcp_listener(), - - {ok, Hostname} = inet:gethostname(), - - i("try connect"), - Opts = [{host, Hostname}, {port, Port}, {module, ?MODULE}], - Conn = case connect(Opts) of - {ok, C} -> - C; - Error -> - ?FAIL({failed_connecting, Error}) - end, - i("connected: ~p", [Conn]), - - %% Up for connect - receive - {diameter, {up, Host, Port}} -> - i("Received expected connect up (~p:~p)", [Host, Port]), - ok - after 5000 -> - ?FAIL(connect_up_confirmation_timeout) - end, - - %% Up for accept - receive - {diameter, {up, _ConnPid}} -> - i("Received expected accept up"), - ok - after 5000 -> - ?FAIL(acceptor_up_confirmation_timeout) - end, - - i("try disconnect"), - diameter_tcp:disconnect(Conn), - ensure_tcp_transport_stopped(TcpTransport), - ensure_transport_stopped(Transport), - i("done"), - ok. - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% -%% Plain start and stop of TCP transport -%% - -simple_send_and_recv(suite) -> - []; -simple_send_and_recv(doc) -> - []; -simple_send_and_recv(Config) when is_list(Config) -> - - ?SKIP(not_yet_implemented), - - %% This has been changed *a lot* since it was written... - - process_flag(trap_exit, true), - %% -------------------------------------------------- - %% Start the TCP transport sub-system - %% - - Transport = ensure_transport_started(), - TcpTransport = ensure_tcp_transport_started(), - - {_Acceptor, Port} = ensure_tcp_listener(), - - {ok, Hostname} = inet:gethostname(), - - i("try connect"), - Opts = [{host, Hostname}, {port, Port}, {module, ?MODULE}], - Conn = case connect(Opts) of - {ok, C1} -> - C1; - Error -> - ?FAIL({failed_connecting, Error}) - end, - i("connected: ~p", [Conn]), - - %% Up for connect - receive - {diameter, {up, Host, Port}} -> - i("Received expected connect up (~p:~p)", [Host, Port]), - ok - after 5000 -> - ?FAIL(connect_up_confirmation_timeout) - end, - - %% Up for accept - APid = - receive - {diameter, {up, C2}} -> - i("Received expected accept up"), - C2 - after 5000 -> - ?FAIL(acceptor_up_confirmation_timeout) - end, - - %% -------------------------------------------------- - %% Start some stuff needed for the codec to run - %% - - i("start persistent table"), - {ok, _Pers} = diameter_persistent_table:start_link(), - - i("start session"), - {ok, _Session} = diameter_session:start_link(), - - i("try decode a (DWR) message"), - Base = diameter_gen_base_rfc3588, - DWR = ['DWR', - {'Origin-Host', Hostname}, - {'Origin-Realm', "whatever-realm"}, - {'Origin-State-Id', [10]}], - - #diameter_packet{msg = Msg} = diameter_codec:encode(Base, DWR), - - - %% -------------------------------------------------- - %% Now try to send the message - %% - %% This is not the codec-test suite, so we dont really care what we - %% send, as long as it encoded/decodes correctly in the transport - %% - - i("try send from connect side"), - ok = diameter_tcp:send_message(Conn, Msg), - - %% Wait for data on Accept side - APkt = - receive - {diameter, {recv, A}} -> - i("[accept] Received expected data message: ~p", [A]), - A - after 5000 -> - ?FAIL(acceptor_up_confirmation_timeout) - end, - - %% Send the same message back, just to have something to send... - i("try send (\"reply\") from accept side"), - ok = diameter_tcp:send_message(APid, APkt), - - %% Wait for data on Connect side - receive - {diameter, {recv, B}} -> - i("[connect] Received expected data message: ~p", [B]), - ok - after 5000 -> - ?FAIL(acceptor_up_confirmation_timeout) - end, - - i("we are done - now close shop"), - diameter_session:stop(), - diameter_persistent_table:stop(), - - ensure_tcp_transport_stopped(TcpTransport), - ensure_transport_stopped(Transport), - i("done"), - ok. - - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -ensure_transport_started() -> -%% i("start diameter transport (top) supervisor"), - case diameter_transport_sup:start_link() of - {ok, TransportSup} -> - TransportSup; - Error -> - ?FAIL({failed_starting_transport_sup, Error}) - end. - -ensure_transport_stopped(Pid) when is_pid(Pid) -> -%% i("stop diameter transport (top) supervisor"), - Stop = fun(P) -> exit(P, kill) end, - ensure_stopped(Pid, Stop, failed_stopping_transport_sup). - -ensure_tcp_transport_started() -> -%% i("start diameter TCP transport"), - case diameter_tcp:start_transport() of - {ok, TcpTransport} when is_pid(TcpTransport) -> - TcpTransport; - Error -> - ?FAIL({failed_starting_transport, Error}) - end. - -ensure_tcp_transport_stopped(Pid) when is_pid(Pid) -> -%% i("stop diameter TCP transport supervisor"), - Stop = fun(P) -> diameter_tcp:stop_transport(P) end, - ensure_stopped(Pid, Stop, failed_stopping_tcp_transport). - - -ensure_tcp_listener() -> -%% i("create diameter TCP transport listen socket"), - case listen([{port, 0}]) of - {ok, Acceptor} -> - [{Acceptor, Info}] = diameter_tcp:which_listeners(), - case lists:keysearch(socket, 1, Info) of - {value, {_, Listen}} -> - {ok, Port} = inet:port(Listen), - {Acceptor, Port}; - _ -> - ?FAIL({failed_retrieving_listen_socket, Info}) - end; - Error -> - ?FAIL({failed_creating_listen_socket, Error}) - end. - - -ensure_stopped(Pid, Stop, ReasonTag) when is_pid(Pid) -> -%% i("ensure_stopped -> create monitor to ~p", [Pid]), - Ref = erlang:monitor(process, Pid), -%% i("ensure_stopped -> try stop"), - Stop(Pid), -%% i("ensure_stopped -> await DOWN message"), - receive - {'DOWN', Ref, process, Pid, _} -> -%% i("ensure_stopped -> received DOWN message"), - ok - after 5000 -> -%% i("ensure_stopped -> timeout"), - ?FAIL({ReasonTag, Pid}) - end. - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -listen(Opts) -> - diameter_tcp:listen([{module, ?MODULE} | Opts]). - -connect(Opts) -> - diameter_tcp:connect([{module, ?MODULE} | Opts]). - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -up(Pid, Host, Port) -> - Pid ! {diameter, {up, Host, Port}}, - ok. - -up(Pid) -> - Pid ! {diameter, {up, self()}}, - ok. - -recv(Pid, Pkt) -> - Pid ! {diameter, {recv, Pkt}}. - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -i(F) -> - i(F, []). - -i(F, A) -> - io:format(F ++ "~n", A). - - -ok({ok, Whatever}) -> - Whatever; -ok(Crap) -> - Crap. - - diff --git a/lib/diameter/test/diameter_test_lib.erl b/lib/diameter/test/diameter_test_lib.erl deleted file mode 100644 index 3d46236526..0000000000 --- a/lib/diameter/test/diameter_test_lib.erl +++ /dev/null @@ -1,478 +0,0 @@ -%% -%% %CopyrightBegin% -%% -%% Copyright Ericsson AB 1999-2011. 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% -%% - -%% -%%---------------------------------------------------------------------- -%% Purpose: Lightweight test server -%%---------------------------------------------------------------------- -%% - --module(diameter_test_lib). - --export([ - sleep/1, - - hours/1, - minutes/1, - seconds/1, - - key1search/2, - - non_pc_tc_maybe_skip/4, - os_based_skip/1, - - fail/3, - skip/3, - fatal_skip/3, - - log/4, - error/3, - - flush/0, - - proxy_start/1, proxy_start/2, - proxy_init/2, - - still_alive/1, - - prepare_test_case/5, - lookup_config/2, - - mk_nodes/2, start_nodes/3, - - display_system_info/1, display_system_info/2, display_system_info/3, - display_alloc_info/0, - alloc_info/0, - - report_event/3 - - ]). - --include("diameter_test_lib.hrl"). - --record('REASON', {mod, line, desc}). - - -%% ---------------------------------------------------------------- -%% Time related function -%% - -sleep(infinity) -> - receive - after infinity -> - ok - end; -sleep(MSecs) -> - receive - after trunc(MSecs) -> - ok - end, - ok. - - -hours(N) -> trunc(N * 1000 * 60 * 60). -minutes(N) -> trunc(N * 1000 * 60). -seconds(N) -> trunc(N * 1000). - - -%% ---------------------------------------------------------------- - -key1search(Key, L) -> - case lists:keysearch(Key, 1, L) of - undefined -> - fail({not_found, Key, L}, ?MODULE, ?LINE); - {value, {Key, Value}} -> - Value - end. - - -%% ---------------------------------------------------------------- -%% Conditional skip of testcases -%% - -non_pc_tc_maybe_skip(Config, Condition, File, Line) - when is_list(Config) andalso is_function(Condition) -> - %% Check if we shall skip the skip - case os:getenv("TS_OS_BASED_SKIP") of - "false" -> - ok; - _ -> - case lists:keysearch(ts, 1, Config) of - {value, {ts, megaco}} -> - %% Always run the testcase if we are using our own - %% test-server... - ok; - _ -> - case (catch Condition()) of - true -> - skip(non_pc_testcase, File, Line); - _ -> - ok - end - end - end. - - -os_based_skip(any) -> - true; -os_based_skip(Skippable) when is_list(Skippable) -> - {OsFam, OsName} = - case os:type() of - {_Fam, _Name} = FamAndName -> - FamAndName; - Fam -> - {Fam, undefined} - end, - case lists:member(OsFam, Skippable) of - true -> - true; - false -> - case lists:keysearch(OsFam, 1, Skippable) of - {value, {OsFam, OsName}} -> - true; - {value, {OsFam, OsNames}} when is_list(OsNames) -> - lists:member(OsName, OsNames); - _ -> - false - end - end; -os_based_skip(_) -> - false. - - -%%---------------------------------------------------------------------- - -error(Actual, Mod, Line) -> - global:send(megaco_global_logger, {failed, Mod, Line}), - log("<ERROR> Bad result: ~p~n", [Actual], Mod, Line), - Label = lists:concat([Mod, "(", Line, ") unexpected result"]), - report_event(60, Label, [{line, Mod, Line}, {error, Actual}]), - case global:whereis_name(megaco_test_case_sup) of - undefined -> - ignore; - Pid -> - Fail = #'REASON'{mod = Mod, line = Line, desc = Actual}, - Pid ! {fail, self(), Fail} - end, - Actual. - -log(Format, Args, Mod, Line) -> - case global:whereis_name(megaco_global_logger) of - undefined -> - io:format(user, "~p~p(~p): " ++ Format, - [self(), Mod, Line] ++ Args); - Pid -> - io:format(Pid, "~p~p(~p): " ++ Format, - [self(), Mod, Line] ++ Args) - end. - -skip(Actual, File, Line) -> - log("Skipping test case~n", [], File, Line), - String = lists:flatten(io_lib:format("Skipping test case ~p(~p): ~p~n", - [File, Line, Actual])), - exit({skipped, String}). - -fatal_skip(Actual, File, Line) -> - error(Actual, File, Line), - exit(shutdown). - - -fail(Actual, File, Line) -> - log("Test case failing~n", [], File, Line), - String = lists:flatten(io_lib:format("Test case failing ~p (~p): ~p~n", - [File, Line, Actual])), - exit({suite_failed, String}). - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% Flush the message queue and return its messages - -flush() -> - receive - Msg -> - [Msg | flush()] - after 1000 -> - [] - end. - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% The proxy process - -proxy_start(ProxyId) -> - spawn_link(?MODULE, proxy_init, [ProxyId, self()]). - -proxy_start(Node, ProxyId) -> - spawn_link(Node, ?MODULE, proxy_init, [ProxyId, self()]). - -proxy_init(ProxyId, Controller) -> - process_flag(trap_exit, true), - ?LOG("[~p] proxy started by ~p~n",[ProxyId, Controller]), - proxy_loop(ProxyId, Controller). - -proxy_loop(OwnId, Controller) -> - receive - {'EXIT', Controller, Reason} -> - p("proxy_loop -> received exit from controller" - "~n Reason: ~p" - "~n", [Reason]), - exit(Reason); - {apply, Fun} -> - p("proxy_loop -> received apply request~n", []), - Res = Fun(), - p("proxy_loop -> apply result: " - "~n ~p" - "~n", [Res]), - Controller ! {res, OwnId, Res}, - proxy_loop(OwnId, Controller); - OtherMsg -> - p("proxy_loop -> received unknown message: " - "~n OtherMsg: ~p" - "~n", [OtherMsg]), - Controller ! {msg, OwnId, OtherMsg}, - proxy_loop(OwnId, Controller) - end. - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% Check if process is alive and kicking -still_alive(Pid) -> - case catch erlang:is_process_alive(Pid) of % New BIF in Erlang/OTP R5 - true -> - true; - false -> - false; - {'EXIT', _} -> % Pre R5 backward compatibility - case process_info(Pid, message_queue_len) of - undefined -> false; - _ -> true - end - end. - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -mk_nodes(0, Nodes) -> - Nodes; -mk_nodes(N, []) -> - mk_nodes(N - 1, [node()]); -mk_nodes(N, Nodes) when N > 0 -> - Head = hd(Nodes), - [Name, Host] = node_to_name_and_host(Head), - Nodes ++ [mk_node(I, Name, Host) || I <- lists:seq(1, N)]. - -mk_node(N, Name, Host) -> - list_to_atom(lists:concat([Name ++ integer_to_list(N) ++ "@" ++ Host])). - -%% Returns [Name, Host] -node_to_name_and_host(Node) -> - string:tokens(atom_to_list(Node), [$@]). - -start_nodes([Node | Nodes], File, Line) -> - case net_adm:ping(Node) of - pong -> - start_nodes(Nodes, File, Line); - pang -> - [Name, Host] = node_to_name_and_host(Node), - case slave:start_link(Host, Name) of - {ok, NewNode} when NewNode =:= Node -> - Path = code:get_path(), - {ok, Cwd} = file:get_cwd(), - true = rpc:call(Node, code, set_path, [Path]), - ok = rpc:call(Node, file, set_cwd, [Cwd]), - true = rpc:call(Node, code, set_path, [Path]), - {_, []} = rpc:multicall(global, sync, []), - start_nodes(Nodes, File, Line); - Other -> - fatal_skip({cannot_start_node, Node, Other}, File, Line) - end - end; -start_nodes([], _File, _Line) -> - ok. - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -display_alloc_info() -> - io:format("Allocator memory information:~n", []), - AllocInfo = alloc_info(), - display_alloc_info(AllocInfo). - -display_alloc_info([]) -> - ok; -display_alloc_info([{Alloc, Mem}|AllocInfo]) -> - io:format(" ~15w: ~10w~n", [Alloc, Mem]), - display_alloc_info(AllocInfo). - -alloc_info() -> - case erlang:system_info(allocator) of - {_Allocator, _Version, Features, _Settings} -> - alloc_info(Features); - _ -> - [] - end. - -alloc_info(Allocators) -> - Allocs = [temp_alloc, sl_alloc, std_alloc, ll_alloc, eheap_alloc, - ets_alloc, binary_alloc, driver_alloc], - alloc_info(Allocators, Allocs, []). - -alloc_info([], _, Acc) -> - lists:reverse(Acc); -alloc_info([Allocator | Allocators], Allocs, Acc) -> - case lists:member(Allocator, Allocs) of - true -> - Instances0 = erlang:system_info({allocator, Allocator}), - Instances = - if - is_list(Instances0) -> - [Instance || Instance <- Instances0, - element(1, Instance) =:= instance]; - true -> - [] - end, - AllocatorMem = alloc_mem_info(Instances), - alloc_info(Allocators, Allocs, [{Allocator, AllocatorMem} | Acc]); - - false -> - alloc_info(Allocators, Allocs, Acc) - end. - -alloc_mem_info(Instances) -> - alloc_mem_info(Instances, []). - -alloc_mem_info([], Acc) -> - lists:sum([Mem || {instance, _, Mem} <- Acc]); -alloc_mem_info([{instance, N, Info}|Instances], Acc) -> - InstanceMemInfo = alloc_instance_mem_info(Info), - alloc_mem_info(Instances, [{instance, N, InstanceMemInfo} | Acc]). - -alloc_instance_mem_info(InstanceInfo) -> - MBCS = alloc_instance_mem_info(mbcs, InstanceInfo), - SBCS = alloc_instance_mem_info(sbcs, InstanceInfo), - MBCS + SBCS. - -alloc_instance_mem_info(Key, InstanceInfo) -> - case lists:keysearch(Key, 1, InstanceInfo) of - {value, {Key, Info}} -> - case lists:keysearch(blocks_size, 1, Info) of - {value, {blocks_size, Mem, _, _}} -> - Mem; - _ -> - 0 - end; - _ -> - 0 - end. - - -display_system_info(WhenStr) -> - display_system_info(WhenStr, undefined, undefined). - -display_system_info(WhenStr, undefined, undefined) -> - display_system_info(WhenStr, ""); -display_system_info(WhenStr, Mod, Func) -> - ModFuncStr = lists:flatten(io_lib:format(" ~w:~w", [Mod, Func])), - display_system_info(WhenStr, ModFuncStr). - -display_system_info(WhenStr, ModFuncStr) -> - Fun = fun(F) -> case (catch F()) of - {'EXIT', _} -> - undefined; - Res -> - Res - end - end, - ProcCount = Fun(fun() -> erlang:system_info(process_count) end), - ProcLimit = Fun(fun() -> erlang:system_info(process_limit) end), - ProcMemAlloc = Fun(fun() -> erlang:memory(processes) end), - ProcMemUsed = Fun(fun() -> erlang:memory(processes_used) end), - ProcMemBin = Fun(fun() -> erlang:memory(binary) end), - ProcMemTot = Fun(fun() -> erlang:memory(total) end), - %% error_logger:info_msg( - io:format("~n" - "~n*********************************************" - "~n" - "System info ~s~s => " - "~n Process count: ~w" - "~n Process limit: ~w" - "~n Process memory alloc: ~w" - "~n Process memory used: ~w" - "~n Memory for binaries: ~w" - "~n Memory total: ~w" - "~n" - "~n*********************************************" - "~n" - "~n", [WhenStr, ModFuncStr, - ProcCount, ProcLimit, ProcMemAlloc, ProcMemUsed, - ProcMemBin, ProcMemTot]), - ok. - - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -prepare_test_case(Actions, N, Config, File, Line) -> - OrigNodes = lookup_config(nodes, Config), - TestNodes = lookup_config(nodenames, Config), %% For testserver - This = node(), - SomeNodes = OrigNodes ++ (TestNodes -- OrigNodes), - AllNodes = [This | (SomeNodes -- [This])], - Nodes = pick_n_nodes(N, AllNodes, File, Line), - start_nodes(Nodes, File, Line), - do_prepare_test_case(Actions, Nodes, Config, File, Line). - -do_prepare_test_case([init | Actions], Nodes, Config, File, Line) -> - process_flag(trap_exit, true), - megaco_test_lib:flush(), - do_prepare_test_case(Actions, Nodes, Config, File, Line); -do_prepare_test_case([{stop_app, App} | Actions], Nodes, Config, File, Line) -> - _Res = rpc:multicall(Nodes, application, stop, [App]), - do_prepare_test_case(Actions, Nodes, Config, File, Line); -do_prepare_test_case([], Nodes, _Config, _File, _Line) -> - Nodes. - -pick_n_nodes(all, AllNodes, _File, _Line) -> - AllNodes; -pick_n_nodes(N, AllNodes, _File, _Line) - when is_integer(N) andalso (length(AllNodes) >= N) -> - AllNodes -- lists:nthtail(N, AllNodes); -pick_n_nodes(N, AllNodes, File, Line) -> - fatal_skip({too_few_nodes, N, AllNodes}, File, Line). - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -lookup_config(Key, Config) -> - case lists:keysearch(Key, 1, Config) of - {value, {Key, Val}} -> - Val; - _ -> - [] - end. - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -report_event(_Severity, _Label, _Content) -> - %% diameter:report_event(Severity, Label, Content). - hopefully_traced. - - -p(F,A) -> - io:format("~p" ++ F ++ "~n", [self()|A]). diff --git a/lib/diameter/test/diameter_test_lib.hrl b/lib/diameter/test/diameter_test_lib.hrl deleted file mode 100644 index 0b86f38de7..0000000000 --- a/lib/diameter/test/diameter_test_lib.hrl +++ /dev/null @@ -1,106 +0,0 @@ -%% -%% %CopyrightBegin% -%% -%% Copyright Ericsson AB 2010-2011. 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% -%% - -%% -%%---------------------------------------------------------------------- -%% Purpose: Define common macros for testing -%%---------------------------------------------------------------------- -%% - --define(FLUSH(), diameter_test_lib:flush()). - --define(SLEEP(MSEC), diameter_test_lib:sleep(MSEC)). --define(M(), diameter_test_lib:millis()). --define(MDIFF(A,B), diameter_test_lib:millis_diff(A,B)). - --define(HOURS(T), diameter_test_lib:hours(T)). --define(MINUTES(T), diameter_test_lib:minutes(T)). --define(SECONDS(T), diameter_test_lib:seconds(T)). - --define(KEY1SEARCH(Key, L), diameter_test_lib:key1search(Key, L)). - - --define(APPLY(Proxy, Fun), - Proxy ! {apply, Fun}). - --define(LOG(Format, Args), - diameter_test_lib:log(Format, Args, ?MODULE, ?LINE)). - --define(ERROR(Reason), - diameter_test_lib:error(Reason, ?MODULE, ?LINE)). - --define(OS_BASED_SKIP(Skippable), - diameter_test_lib:os_based_skip(Skippable)). - --define(NON_PC_TC_MAYBE_SKIP(Config, Condition), - diameter_test_lib:non_pc_tc_maybe_skip(Config, Condition, ?MODULE, ?LINE)). - --define(FAIL(Reason), - diameter_test_lib:fail(Reason, ?MODULE, ?LINE)). - --define(SKIP(Reason), - diameter_test_lib:skip(Reason, ?MODULE, ?LINE)). - --define(VERIFYL(Expected, Expr), - fun(A,B) when list(A), list(B) -> - A1 = lists:sort(A), - B1 = lists:sort(B), - case A1 of - B1 -> ?LOG("Ok, ~p~n", [B]); - _ -> ?ERROR(B) - end, - B; - (A,A) -> - ?LOG("Ok, ~p~n", [A]), - A; - (A,B) -> - ?ERROR(B), - B - end(Expected, (catch Expr))). - --define(VERIFY(Expected, Expr), - fun() -> - AcTuAlReS = (catch (Expr)), - case AcTuAlReS of - Expected -> ?LOG("Ok, ~p~n", [AcTuAlReS]); - _ -> ?ERROR(AcTuAlReS) - end, - AcTuAlReS - end()). - --define(RECEIVE(Expected), - ?VERIFY(Expected, ?FLUSH())). - --define(MULTI_RECEIVE(Expected), - ?VERIFY(lists:sort(Expected), lists:sort(?FLUSH()))). - --define(ACQUIRE_NODES(N, Config), - diameter_test_lib:prepare_test_case([init, {stop_app, diameter}], - N, Config, ?FILE, ?LINE)). - - --define(REPORT_IMPORTANT(Label, Content), ?REPORT_EVENT(20, Label, Content)). --define(REPORT_VERBOSE(Label, Content), ?REPORT_EVENT(40, Label, Content)). --define(REPORT_DEBUG(Label, Content), ?REPORT_EVENT(60, Label, Content)). --define(REPORT_TRACE(Label, Content), ?REPORT_EVENT(80, Label, Content)). - --define(REPORT_EVENT(Severity, Label, Content), - diameter_test_lib:report_event(Severity, Label, - [{line, ?MODULE, ?LINE} | Content])). - diff --git a/lib/diameter/test/diameter_test_server.erl b/lib/diameter/test/diameter_test_server.erl deleted file mode 100644 index e2ff73fb8e..0000000000 --- a/lib/diameter/test/diameter_test_server.erl +++ /dev/null @@ -1,551 +0,0 @@ -%% -%% %CopyrightBegin% -%% -%% Copyright Ericsson AB 2010-2011. 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% -%% - -%% -%%---------------------------------------------------------------------- -%% Purpose: Lightweight test server -%%---------------------------------------------------------------------- - --module(diameter_test_server). - --export([ - t/1, t/2, - - init_per_testcase/2, - fin_per_testcase/2 - ]). - --include("diameter_test_lib.hrl"). - - --define(GLOGGER, diameter_global_logger). - - -%% ---------------------------------------------------------------- -%% - -t([Case]) when is_atom(Case) -> - t(Case); -t(Case) -> - process_flag(trap_exit, true), - MEM = fun() -> case (catch erlang:memory()) of - {'EXIT', _} -> - []; - Res -> - Res - end - end, - Alloc1 = diameter_test_lib:alloc_info(), - Mem1 = MEM(), - Res = lists:flatten(t(Case, default_config())), - Alloc2 = diameter_test_lib:alloc_info(), - Mem2 = MEM(), - %% io:format("Res: ~p~n", [Res]), - display_result(Res, Alloc1, Mem1, Alloc2, Mem2), - Res. - - -groups(Mod) when is_atom(Mod) -> - try Mod:groups() of - Groups when is_list(Groups) -> - Groups; - BadGroups -> - exit({bad_groups, Mod, BadGroups}) - catch - _:_ -> - [] - end. - -init_suite(Mod, Config) -> - io:format("~w:init_suite -> entry with" - "~n Mod: ~p" - "~n Config: ~p" - "~n", [?MODULE, Mod, Config]), - Mod:init_per_suite(Config). - -end_suite(Mod, Config) -> - Mod:end_per_suite(Config). - -init_group(Mod, Group, Config) -> - Mod:init_per_group(Group, Config). - -end_group(Mod, Group, Config) -> - Mod:init_per_group(Group, Config). - -%% This is for sub-SUITEs -t({_Mod, {NewMod, all}, _Groups}, _Config) when is_atom(NewMod) -> - io:format("~w:t(all) -> entry with" - "~n NewMod: ~p" - "~n", [?MODULE, NewMod]), - t(NewMod); -t({Mod, {group, Name} = Group, Groups}, Config) - when is_atom(Mod) andalso is_atom(Name) andalso is_list(Groups) -> - io:format("~w:t(group) -> entry with" - "~n Mod: ~p" - "~n Name: ~p" - "~n Groups: ~p" - "~n Config: ~p" - "~n", [?MODULE, Mod, Name, Groups, Config]), - case lists:keysearch(Name, 1, Groups) of - {value, {Name, _Props, GroupsAndCases}} -> - try init_group(Mod, Name, Config) of - Config2 when is_list(Config2) -> - Res = [t({Mod, Case, Groups}, Config2) || - Case <- GroupsAndCases], - (catch end_group(Mod, Name, Config2)), - Res; - Error -> - io:format(" => group (~w) init failed: ~p~n", - [Name, Error]), - [{failed, {Mod, Group}, Error}] - catch - exit:{skipped, SkipReason} -> - io:format(" => skipping group: ~p~n", [SkipReason]), - [{skipped, {Mod, Group}, SkipReason, 0}]; - exit:{undef, _} -> - [t({Mod, Case, Groups}, Config) || - Case <- GroupsAndCases]; - T:E -> - [{failed, {Mod, Group}, {T,E}, 0}] - end; - false -> - exit({unknown_group, Mod, Name, Groups}) - end; -t({Mod, Fun, _}, Config) - when is_atom(Mod) andalso is_atom(Fun) -> - io:format("~w:t -> entry with" - "~n Mod: ~p" - "~n Fun: ~p" - "~n Config: ~p" - "~n", [?MODULE, Mod, Fun, Config]), - case catch apply(Mod, Fun, [suite]) of - [] -> - io:format("Eval: ~p:", [{Mod, Fun}]), - Res = eval(Mod, Fun, Config), - {R, _, _, _} = Res, - io:format(" ~p~n", [R]), - Res; - - Cases when is_list(Cases) -> - io:format("Expand: ~p ...~n", [{Mod, Fun}]), - Map = fun(Case) when is_atom(Case) -> {Mod, Case}; - (Case) -> Case - end, - t(lists:map(Map, Cases), Config); - - {'EXIT', {undef, _}} -> - io:format("Undefined: ~p~n", [{Mod, Fun}]), - [{nyi, {Mod, Fun}, ok, 0}]; - - Error -> - io:format("Ignoring: ~p: ~p~n", [{Mod, Fun}, Error]), - [{failed, {Mod, Fun}, Error, 0}] - end; -t(Mod, Config) when is_atom(Mod) -> - io:format("~w:t -> entry with" - "~n Mod: ~p" - "~n Config: ~p" - "~n", [?MODULE, Mod, Config]), - %% This is assumed to be a test suite, so we start by calling - %% the top test suite function(s) (all/0 and groups/0). - case (catch Mod:all()) of - Cases when is_list(Cases) -> - %% The list may contain atoms (actual test cases) and - %% group-tuples (a tuple naming a group of test cases). - %% A group is defined by the (optional) groups/0 function. - io:format("~w:t -> suite all ok" - "~n Cases: ~p" - "~n", [?MODULE, Cases]), - Groups = groups(Mod), - io:format("~w:t -> " - "~n Groups: ~p" - "~n", [?MODULE, Groups]), - try init_suite(Mod, Config) of - Config2 when is_list(Config2) -> - io:format("~w:t -> suite init ok" - "~n Config2: ~p" - "~n", [?MODULE, Config2]), - Res = [t({Mod, Case, Groups}, Config2) || Case <- Cases], - (catch end_suite(Mod, Config2)), - Res; - Error -> - io:format(" => suite init failed: ~p~n", [Error]), - [{failed, {Mod, init_per_suite}, Error}] - catch - exit:{skipped, SkipReason} -> - io:format(" => skipping suite: ~p~n", [SkipReason]), - [{skipped, {Mod, init_per_suite}, SkipReason, 0}]; - exit:{undef, _} -> - io:format("~w:t -> suite init failed. exit undef(1)~n", [?MODULE]), - [t({Mod, Case, Groups}, Config) || Case <- Cases]; - exit:undef -> - io:format("~w:t -> suite init failed. exit undef(2)~n", [?MODULE]), - [t({Mod, Case, Groups}, Config) || Case <- Cases]; - T:E -> - io:format("~w:t -> suite init failed. " - "~n T: ~p" - "~n E: ~p" - "~n", [?MODULE, T,E]), - [{failed, {Mod, init_per_suite}, {T,E}, 0}] - end; - {'EXIT', {undef, _}} -> - io:format("Undefined: ~p~n", [{Mod, all}]), - [{nyi, {Mod, all}, ok, 0}]; - - Crap -> - io:format("~w:t -> suite all failed: " - "~n Crap: ~p" - "~n", [?MODULE, Crap]), - Crap - end; -t(Bad, _Config) -> - io:format("~w:t -> entry with" - "~n Bad: ~p" - "~n", [?MODULE, Bad]), - [{badarg, Bad, ok, 0}]. - -eval(Mod, Fun, Config) -> - TestCase = {?MODULE, Mod, Fun}, - Label = lists:concat(["TEST CASE: ", Fun]), - ?REPORT_VERBOSE(Label ++ " started", [TestCase, Config]), - global:register_name(diameter_test_case_sup, self()), - Flag = process_flag(trap_exit, true), - put(diameter_test_server, true), - Config2 = Mod:init_per_testcase(Fun, Config), - Self = self(), - Pid = spawn_link(fun() -> do_eval(Self, Mod, Fun, Config2) end), - R = wait_for_evaluator(Pid, Mod, Fun, Config2, []), - Mod:fin_per_testcase(Fun, Config2), - erase(diameter_test_server), - global:unregister_name(diameter_test_case_sup), - process_flag(trap_exit, Flag), - R. - -wait_for_evaluator(Pid, Mod, Fun, Config, Errors) -> - wait_for_evaluator(Pid, Mod, Fun, Config, Errors, 0). -wait_for_evaluator(Pid, Mod, Fun, Config, Errors, AccTime) -> - TestCase = {?MODULE, Mod, Fun}, - Label = lists:concat(["TEST CASE: ", Fun]), - receive - {done, Pid, ok, Time} when Errors =:= [] -> - ?REPORT_VERBOSE(Label ++ " ok", - [{test_case, TestCase}, {config, Config}]), - {ok, {Mod, Fun}, Errors, Time}; - {done, Pid, ok, Time} -> - ?REPORT_VERBOSE(Label ++ " failed", - [{test_case, TestCase}, {config, Config}]), - {failed, {Mod, Fun}, Errors, Time}; - {done, Pid, {ok, _}, Time} when Errors =:= [] -> - ?REPORT_VERBOSE(Label ++ " ok", - [{test_case, TestCase}, {config, Config}]), - {ok, {Mod, Fun}, Errors, Time}; - {done, Pid, {ok, _}, Time} -> - ?REPORT_VERBOSE(Label ++ " failed", - [{test_case, TestCase}, {config, Config}]), - {failed, {Mod, Fun}, Errors, Time}; - {done, Pid, Fail, Time} -> - ?REPORT_IMPORTANT(Label ++ " failed", - [{test_case, TestCase}, - {config, Config}, - {return, Fail}, - {errors, Errors}]), - {failed, {Mod, Fun}, Fail, Time}; - {'EXIT', Pid, {skipped, Reason}, Time} -> - ?REPORT_IMPORTANT(Label ++ " skipped", - [{test_case, TestCase}, - {config, Config}, - {skipped, Reason}]), - {skipped, {Mod, Fun}, Errors, Time}; - {'EXIT', Pid, Reason, Time} -> - ?REPORT_IMPORTANT(Label ++ " crashed", - [{test_case, TestCase}, - {config, Config}, - {'EXIT', Reason}]), - {crashed, {Mod, Fun}, [{'EXIT', Reason} | Errors], Time}; - {fail, Pid, Reason, Time} -> - wait_for_evaluator(Pid, Mod, Fun, Config, - Errors ++ [Reason], AccTime + Time) - end. - -do_eval(ReplyTo, Mod, Fun, Config) -> - diameter_test_lib:display_system_info("before", Mod, Fun), - case timer:tc(Mod, Fun, [Config]) of - {Time, {'EXIT', {skipped, Reason}}} -> - display_tc_time(Time), - diameter_test_lib:display_system_info("after (skipped)", Mod, Fun), - ReplyTo ! {'EXIT', self(), {skipped, Reason}, Time}; - {Time, {'EXIT', Reason}} -> - display_tc_time(Time), - diameter_test_lib:display_system_info("after (crashed)", Mod, Fun), - ReplyTo ! {'EXIT', self(), Reason, Time}; - {Time, Other} -> - display_tc_time(Time), - diameter_test_lib:display_system_info("after", Mod, Fun), - ReplyTo ! {done, self(), Other, Time} - end, - unlink(ReplyTo), - exit(shutdown). - - -display_tc_time(Time) -> - io:format("~n" - "~n*********************************************" - "~n" - "~nTest case completion time: ~.3f sec (~w)" - "~n", [(Time / 1000000), Time]), - ok. - - -display_result(Res, Alloc1, Mem1, Alloc2, Mem2) -> - io:format("~nAllocator info: ~n", []), - display_alloc(Alloc1, Alloc2), - io:format("~nMemory info: ~n", []), - display_memory(Mem1, Mem2), - display_result(Res). - -display_alloc([], []) -> - io:format("-~n", []), - ok; -display_alloc(A1, A2) -> - do_display_alloc(A1, A2). - -do_display_alloc([], _) -> - ok; -do_display_alloc([{Alloc, Mem1}|AllocInfo1], AllocInfo2) -> - Mem2 = - case lists:keysearch(Alloc, 1, AllocInfo2) of - {value, {_, Val}} -> - Val; - false -> - undefined - end, - io:format("~15w: ~10w -> ~w~n", [Alloc, Mem1, Mem2]), - do_display_alloc(AllocInfo1, AllocInfo2). - -display_memory([], []) -> - io:format("-~n", []), - ok; -display_memory(Mem1, Mem2) -> - do_display_memory(Mem1, Mem2). - - -do_display_memory([], _) -> - ok; -do_display_memory([{Key, Mem1}|MemInfo1], MemInfo2) -> - Mem2 = - case lists:keysearch(Key, 1, MemInfo2) of - {value, {_, Val}} -> - Val; - false -> - undefined - end, - io:format("~15w: ~10w -> ~w~n", [Key, Mem1, Mem2]), - do_display_memory(MemInfo1, MemInfo2). - -display_result([]) -> - io:format("OK~n", []); -display_result(Res) when is_list(Res) -> - Ok = [{MF, Time} || {ok, MF, _, Time} <- Res], - Nyi = [MF || {nyi, MF, _, _Time} <- Res], - Skipped = [{MF, Reason} || {skipped, MF, Reason, _Time} <- Res], - Failed = [{MF, Reason} || {failed, MF, Reason, _Time} <- Res], - Crashed = [{MF, Reason} || {crashed, MF, Reason, _Time} <- Res], - display_summery(Ok, Nyi, Skipped, Failed, Crashed), - display_ok(Ok), - display_skipped(Skipped), - display_failed(Failed), - display_crashed(Crashed). - -display_summery(Ok, Nyi, Skipped, Failed, Crashed) -> - io:format("~nTest case summery:~n", []), - display_summery(Ok, "successfull"), - display_summery(Nyi, "not yet implemented"), - display_summery(Skipped, "skipped"), - display_summery(Failed, "failed"), - display_summery(Crashed, "crashed"), - io:format("~n", []). - -display_summery(Res, Info) -> - io:format(" ~w test cases ~s~n", [length(Res), Info]). - -display_ok([]) -> - ok; -display_ok(Ok) -> - io:format("Ok test cases:~n", []), - F = fun({{M, F}, Time}) -> - io:format(" ~w : ~w => ~.2f sec~n", [M, F, Time / 1000000]) - end, - lists:foreach(F, Ok), - io:format("~n", []). - -display_skipped([]) -> - ok; -display_skipped(Skipped) -> - io:format("Skipped test cases:~n", []), - F = fun({MF, Reason}) -> io:format(" ~p => ~p~n", [MF, Reason]) end, - lists:foreach(F, Skipped), - io:format("~n", []). - - -display_failed([]) -> - ok; -display_failed(Failed) -> - io:format("Failed test cases:~n", []), - F = fun({MF, Reason}) -> io:format(" ~p => ~p~n", [MF, Reason]) end, - lists:foreach(F, Failed), - io:format("~n", []). - -display_crashed([]) -> - ok; -display_crashed(Crashed) -> - io:format("Crashed test cases:~n", []), - F = fun({MF, Reason}) -> io:format(" ~p => ~p~n", [MF, Reason]) end, - lists:foreach(F, Crashed), - io:format("~n", []). - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% Test server callbacks -init_per_testcase(_Case, Config) -> - Pid = group_leader(), - Name = ?GLOGGER, - case global:whereis_name(Name) of - undefined -> - global:register_name(?GLOGGER, Pid); - Pid -> - io:format("~w:init_per_testcase -> " - "already registered to ~p~n", [?MODULE, Pid]), - ok; - OtherPid when is_pid(OtherPid) -> - io:format("~w:init_per_testcase -> " - "already registered to other ~p (~p)~n", - [?MODULE, OtherPid, Pid]), - exit({already_registered, {?GLOGGER, OtherPid, Pid}}) - end, - set_kill_timer(Config). - -fin_per_testcase(_Case, Config) -> - Name = ?GLOGGER, - case global:whereis_name(Name) of - undefined -> - io:format("~w:fin_per_testcase -> already un-registered~n", - [?MODULE]), - ok; - Pid when is_pid(Pid) -> - global:unregister_name(?GLOGGER), - ok - end, - reset_kill_timer(Config). - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% Set kill timer - -set_kill_timer(Config) -> - case init:get_argument(diameter_test_timeout) of - {ok, _} -> - Config; - _ -> - Time = - case lookup_config(tc_timeout, Config) of - [] -> - timer:minutes(5); - ConfigTime when is_integer(ConfigTime) -> - ConfigTime - end, - Dog = - case get(diameter_test_server) of - true -> - Self = self(), - spawn_link(fun() -> watchdog(Self, Time) end); - _ -> - test_server:timetrap(Time) - end, - [{kill_timer, Dog}|Config] - - - end. - -reset_kill_timer(Config) -> - DogKiller = - case get(diameter_test_server) of - true -> - fun(P) when is_pid(P) -> P ! stop; - (_) -> ok - end; - _ -> - fun(Ref) -> test_server:timetrap_cancel(Ref) end - end, - case lists:keysearch(kill_timer, 1, Config) of - {value, {kill_timer, Dog}} -> - DogKiller(Dog), - lists:keydelete(kill_timer, 1, Config); - _ -> - Config - end. - -watchdog(Pid, Time) -> - erlang:now(), - receive - stop -> - ok - after Time -> - case (catch process_info(Pid)) of - undefined -> - ok; - Info -> - ?LOG("<ERROR> Watchdog in test case timed out " - "for ~p after ~p min" - "~n~p" - "~n", - [Pid, Time div (1000*60), Info]), - exit(Pid, kill) - end - end. - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -lookup_config(Key, Config) -> - diameter_test_lib:lookup_config(Key, Config). - -default_config() -> - [{nodes, default_nodes()}, {ts, diameter}]. - -default_nodes() -> - mk_nodes(2, []). - -mk_nodes(0, Nodes) -> - Nodes; -mk_nodes(N, []) -> - mk_nodes(N - 1, [node()]); -mk_nodes(N, Nodes) when N > 0 -> - Head = hd(Nodes), - [Name, Host] = node_to_name_and_host(Head), - Nodes ++ [mk_node(I, Name, Host) || I <- lists:seq(1, N)]. - -mk_node(N, Name, Host) -> - list_to_atom(lists:concat([Name ++ integer_to_list(N) ++ "@" ++ Host])). - -%% Returns [Name, Host] -node_to_name_and_host(Node) -> - string:tokens(atom_to_list(Node), [$@]). - - - - diff --git a/lib/diameter/test/diameter_traffic_SUITE.erl b/lib/diameter/test/diameter_traffic_SUITE.erl new file mode 100644 index 0000000000..8c85323222 --- /dev/null +++ b/lib/diameter/test/diameter_traffic_SUITE.erl @@ -0,0 +1,779 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 2010-2011. 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% +%% + +%% +%% Tests of traffic between two Diameter nodes, one client, one server. +%% + +-module(diameter_traffic_SUITE). + +-export([suite/0, + all/0, + groups/0, + init_per_suite/1, + end_per_suite/1, + init_per_group/2, + end_per_group/2, + init_per_testcase/2, + end_per_testcase/2]). + +%% testcases +-export([result_codes/1, + send_ok/1, + send_arbitrary/1, + send_unknown/1, + send_unknown_mandatory/1, + send_noreply/1, + send_unsupported/1, + send_unsupported_app/1, + send_error_bit/1, + send_unsupported_version/1, + send_long/1, + send_nopeer/1, + send_noapp/1, + send_discard/1, + send_any_1/1, + send_any_2/1, + send_all_1/1, + send_all_2/1, + send_timeout/1, + send_error/1, + send_detach/1, + send_encode_error/1, + send_destination_1/1, + send_destination_2/1, + send_destination_3/1, + send_destination_4/1, + send_destination_5/1, + send_destination_6/1, + send_bad_option_1/1, + send_bad_option_2/1, + send_bad_filter_1/1, + send_bad_filter_2/1, + send_bad_filter_3/1, + send_bad_filter_4/1, + send_multiple_filters_1/1, + send_multiple_filters_2/1, + send_multiple_filters_3/1, + send_anything/1, + remove_transports/1, + stop_services/1]). + +%% diameter callbacks +-export([peer_up/3, + peer_down/3, + pick_peer/5, pick_peer/6, + prepare_request/4, prepare_request/5, + prepare_retransmit/4, + handle_answer/5, handle_answer/6, + handle_error/5, + handle_request/3]). + +-ifdef(DIAMETER_CT). +-include("diameter_gen_base_rfc3588.hrl"). +-else. +-include_lib("diameter/include/diameter_gen_base_rfc3588.hrl"). +-endif. + +-include_lib("diameter/include/diameter.hrl"). +-include("diameter_ct.hrl"). + +%% =========================================================================== + +-define(ADDR, {127,0,0,1}). + +-define(CLIENT, "CLIENT"). +-define(SERVER, "SERVER"). +-define(REALM, "erlang.org"). +-define(HOST(Host, Realm), Host ++ [$.|Realm]). + +-define(APP_ALIAS, base). +-define(EXTRA, an_extra_argument). +-define(ENCODINGS, [list, record]). + +-define(DICT, ?DIAMETER_DICT_COMMON). +-define(APP_ID, ?DIAMETER_APP_ID_COMMON). + +%% Config for diameter:start_service/2. +-define(SERVICE(Name), + [{'Origin-Host', Name ++ "." ++ ?REALM}, + {'Origin-Realm', ?REALM}, + {'Host-IP-Address', [?ADDR]}, + {'Vendor-Id', 12345}, + {'Product-Name', "OTP/diameter"}, + {'Acct-Application-Id', [?DIAMETER_APP_ID_COMMON]}, + {application, [{alias, ?APP_ALIAS}, + {dictionary, ?DIAMETER_DICT_COMMON}, + {module, ?MODULE}, + {answer_errors, callback}]}]). + +%% Config for diameter:add_transport/2. In the listening case, listen +%% on a free port that we then lookup using the implementation detail +%% that diameter_tcp registers the port with diameter_reg. +-define(CONNECT(PortNr), + {connect, [{transport_module, diameter_tcp}, + {transport_config, [{raddr, ?ADDR}, + {rport, PortNr}, + {ip, ?ADDR}, + {port, 0}]}]}). +-define(LISTEN, + {listen, [{transport_module, diameter_tcp}, + {transport_config, [{ip, ?ADDR}, {port, 0}]}]}). + +-define(SUCCESS, + ?'DIAMETER_BASE_RESULT-CODE_DIAMETER_SUCCESS'). +-define(COMMAND_UNSUPPORTED, + ?'DIAMETER_BASE_RESULT-CODE_DIAMETER_COMMAND_UNSUPPORTED'). +-define(TOO_BUSY, + ?'DIAMETER_BASE_RESULT-CODE_DIAMETER_TOO_BUSY'). +-define(APPLICATION_UNSUPPORTED, + ?'DIAMETER_BASE_RESULT-CODE_DIAMETER_APPLICATION_UNSUPPORTED'). +-define(INVALID_HDR_BITS, + ?'DIAMETER_BASE_RESULT-CODE_DIAMETER_INVALID_HDR_BITS'). +-define(AVP_UNSUPPORTED, + ?'DIAMETER_BASE_RESULT-CODE_DIAMETER_AVP_UNSUPPORTED'). +-define(UNSUPPORTED_VERSION, + ?'DIAMETER_BASE_RESULT-CODE_DIAMETER_UNSUPPORTED_VERSION'). +-define(REALM_NOT_SERVED, + ?'DIAMETER_BASE_RESULT-CODE_DIAMETER_REALM_NOT_SERVED'). +-define(UNABLE_TO_DELIVER, + ?'DIAMETER_BASE_RESULT-CODE_DIAMETER_UNABLE_TO_DELIVER'). + +-define(EVENT_RECORD, + ?'DIAMETER_BASE_ACCOUNTING-RECORD-TYPE_EVENT_RECORD'). +-define(AUTHORIZE_ONLY, + ?'DIAMETER_BASE_RE-AUTH-REQUEST-TYPE_AUTHORIZE_ONLY'). +-define(AUTHORIZE_AUTHENTICATE, + ?'DIAMETER_BASE_RE-AUTH-REQUEST-TYPE_AUTHORIZE_AUTHENTICATE'). + +-define(LOGOUT, + ?'DIAMETER_BASE_TERMINATION-CAUSE_DIAMETER_LOGOUT'). +-define(BAD_ANSWER, + ?'DIAMETER_BASE_TERMINATION-CAUSE_DIAMETER_BAD_ANSWER'). + +-define(A, list_to_atom). +-define(L, atom_to_list). +-define(P(N), ?A("p_" ++ ?L(N))). + +%% =========================================================================== + +suite() -> + [{timetrap, {seconds, 10}}]. + +all() -> + [result_codes | [{group, N} || {N, _, _} <- groups()]] + ++ [remove_transports, stop_services]. + +groups() -> + Ts = tc(), + [{E, [], Ts} || E <- ?ENCODINGS] + ++ [{?P(E), [parallel], Ts} || E <- ?ENCODINGS]. + +init_per_suite(Config) -> + ok = diameter:start(), + ok = diameter:start_service(?SERVER, ?SERVICE(?SERVER)), + ok = diameter:start_service(?CLIENT, ?SERVICE(?CLIENT)), + {ok, LRef} = diameter:add_transport(?SERVER, ?LISTEN), + true = diameter:subscribe(?CLIENT), + {ok, CRef} = diameter:add_transport(?CLIENT, ?CONNECT(portnr())), + {up, CRef, _Peer, _Config, #diameter_packet{}} + = receive #diameter_event{service = ?CLIENT, info = I} -> I + after 2000 -> false + end, + true = diameter:unsubscribe(?CLIENT), + [{transports, {LRef, CRef}} | Config]. + +end_per_suite(_Config) -> + ok = diameter:stop(). + +init_per_group(Name, Config) -> + E = case ?L(Name) of + "p_" ++ Rest -> + ?A(Rest); + _ -> + Name + end, + [{encode, E} | Config]. + +end_per_group(_, _) -> + ok. + +init_per_testcase(Name, Config) -> + [{testcase, Name} | Config]. + +end_per_testcase(_, _) -> + ok. + +%% Testcases to run when services are started and connections +%% established. +tc() -> + [send_ok, + send_arbitrary, + send_unknown, + send_unknown_mandatory, + send_noreply, + send_unsupported, + send_unsupported_app, + send_error_bit, + send_unsupported_version, + send_long, + send_nopeer, + send_noapp, + send_discard, + send_any_1, + send_any_2, + send_all_1, + send_all_2, + send_timeout, + send_error, + send_detach, + send_encode_error, + send_destination_1, + send_destination_2, + send_destination_3, + send_destination_4, + send_destination_5, + send_destination_6, + send_bad_option_1, + send_bad_option_2, + send_bad_filter_1, + send_bad_filter_2, + send_bad_filter_3, + send_bad_filter_4, + send_multiple_filters_1, + send_multiple_filters_2, + send_multiple_filters_3, + send_anything]. + +portnr() -> + portnr(20). + +portnr(N) + when 0 < N -> + case diameter_reg:match({diameter_tcp, listener, '_'}) of + [{T, _Pid}] -> + {_, _, {_LRef, {_Addr, LSock}}} = T, + {ok, PortNr} = inet:port(LSock), + PortNr; + [] -> + receive after 50 -> ok end, + portnr(N-1) + end. + +%% =========================================================================== + +%% Ensure that result codes have the expected values. +result_codes(_Config) -> + {2001, 3001, 3002, 3003, 3004, 3007, 3008, 5001, 5011} + = {?SUCCESS, + ?COMMAND_UNSUPPORTED, + ?UNABLE_TO_DELIVER, + ?REALM_NOT_SERVED, + ?TOO_BUSY, + ?APPLICATION_UNSUPPORTED, + ?INVALID_HDR_BITS, + ?AVP_UNSUPPORTED, + ?UNSUPPORTED_VERSION}. + +%% Send an ACR and expect success. +send_ok(Config) -> + Req = ['ACR', {'Accounting-Record-Type', ?EVENT_RECORD}, + {'Accounting-Record-Number', 1}], + #diameter_base_ACA{'Result-Code' = ?SUCCESS} + = call(Config, Req). + +%% Send an ASR with an arbitrary AVP and expect success and the same +%% AVP in the reply. +send_arbitrary(Config) -> + Req = ['ASR', {'AVP', [#diameter_avp{name = 'Class', value = "XXX"}]}], + #diameter_base_ASA{'Result-Code' = ?SUCCESS, + 'AVP' = Avps} + = call(Config, Req), + [#diameter_avp{name = 'Class', + value = "XXX"}] + = Avps. + +%% Send an unknown AVP (to some client) and check that it comes back. +send_unknown(Config) -> + Req = ['ASR', {'AVP', [#diameter_avp{code = 999, + is_mandatory = false, + data = <<17>>}]}], + #diameter_base_ASA{'Result-Code' = ?SUCCESS, + 'AVP' = Avps} + = call(Config, Req), + [#diameter_avp{code = 999, + is_mandatory = false, + data = <<17>>}] + = Avps. + +%% Ditto but set the M flag. +send_unknown_mandatory(Config) -> + Req = ['ASR', {'AVP', [#diameter_avp{code = 999, + is_mandatory = true, + data = <<17>>}]}], + #diameter_base_ASA{'Result-Code' = ?AVP_UNSUPPORTED, + 'Failed-AVP' = Failed} + = call(Config, Req), + [#'diameter_base_Failed-AVP'{'AVP' = Avps}] = Failed, + [#diameter_avp{code = 999, + is_mandatory = true, + data = <<17>>}] + = Avps. + +%% Send an STR that the server ignores. +send_noreply(Config) -> + Req = ['STR', {'Termination-Cause', ?BAD_ANSWER}], + {error, timeout} = call(Config, Req). + +%% Send an unsupported command and expect 3001. +send_unsupported(Config) -> + Req = ['STR', {'Termination-Cause', ?BAD_ANSWER}], + #'diameter_base_answer-message'{'Result-Code' = ?COMMAND_UNSUPPORTED} + = call(Config, Req). + +%% Send an unsupported command and expect 3007. +send_unsupported_app(Config) -> + Req = ['STR', {'Termination-Cause', ?BAD_ANSWER}], + #'diameter_base_answer-message'{'Result-Code' = ?APPLICATION_UNSUPPORTED} + = call(Config, Req). + +%% Send a request with the E bit set and expect 3008. +send_error_bit(Config) -> + Req = ['STR', {'Termination-Cause', ?BAD_ANSWER}], + #'diameter_base_answer-message'{'Result-Code' = ?INVALID_HDR_BITS} + = call(Config, Req). + +%% Send a bad version and check that we get 5011. +send_unsupported_version(Config) -> + Req = ['STR', {'Termination-Cause', ?LOGOUT}], + #diameter_base_STA{'Result-Code' = ?UNSUPPORTED_VERSION} + = call(Config, Req). + +%% Send something long that will be fragmented by TCP. +send_long(Config) -> + Req = ['STR', {'Termination-Cause', ?LOGOUT}, + {'User-Name', [lists:duplicate(1 bsl 20, $X)]}], + #diameter_base_STA{'Result-Code' = ?SUCCESS} + = call(Config, Req). + +%% Send something for which pick_peer finds no suitable peer. +send_nopeer(Config) -> + Req = ['STR', {'Termination-Cause', ?LOGOUT}], + {error, no_connection} = call(Config, Req, [{extra, [?EXTRA]}]). + +%% Send something on an unconfigured application. +send_noapp(_Config) -> + Req = ['STR', {'Termination-Cause', ?LOGOUT}], + {error, no_connection} = diameter:call(?CLIENT, unknown_alias, Req). + +%% Send something that's discarded by prepare_request. +send_discard(Config) -> + Req = ['STR', {'Termination-Cause', ?LOGOUT}], + {error, unprepared} = call(Config, Req). + +%% Send with a disjunctive filter. +send_any_1(Config) -> + Req = ['STR', {'Termination-Cause', ?LOGOUT}], + {error, no_connection} = call(Config, Req, [{filter, {any, []}}]). +send_any_2(Config) -> + Req = ['STR', {'Termination-Cause', ?LOGOUT}, + {'Destination-Host', [?HOST(?SERVER, "unknown.org")]}], + #'diameter_base_answer-message'{'Result-Code' = ?UNABLE_TO_DELIVER} + = call(Config, Req, [{filter, {any, [host, realm]}}]). + +%% Send with a conjunctive filter. +send_all_1(Config) -> + Req = ['STR', {'Termination-Cause', ?LOGOUT}], + Realm = lists:foldr(fun(C,A) -> [C,A] end, [], ?REALM), + #diameter_base_STA{'Result-Code' = ?SUCCESS} + = call(Config, Req, [{filter, {all, [{host, any}, + {realm, Realm}]}}]). +send_all_2(Config) -> + Req = ['STR', {'Termination-Cause', ?LOGOUT}, + {'Destination-Host', [?HOST(?SERVER, "unknown.org")]}], + {error, no_connection} + = call(Config, Req, [{filter, {all, [host, realm]}}]). + +%% Timeout before the server manages an answer. +send_timeout(Config) -> + Req = ['RAR', {'Re-Auth-Request-Type', ?AUTHORIZE_ONLY}], + {error, timeout} = call(Config, Req, [{timeout, 1000}]). + +%% Explicitly answer with an answer-message and ensure that we +%% received the Session-Id. +send_error(Config) -> + Req = ['RAR', {'Re-Auth-Request-Type', ?AUTHORIZE_AUTHENTICATE}], + #'diameter_base_answer-message'{'Result-Code' = ?TOO_BUSY, + 'Session-Id' = SId} + = call(Config, Req), + undefined /= SId. + +%% Send a request with the detached option and receive it as a message +%% from handle_answer instead. +send_detach(Config) -> + Req = ['STR', {'Termination-Cause', ?LOGOUT}], + Ref = make_ref(), + ok = call(Config, Req, [{extra, [{self(), Ref}]}, detach]), + #diameter_packet{msg = Rec, errors = []} + = receive {Ref, T} -> T after 2000 -> false end, + #diameter_base_STA{'Result-Code' = ?SUCCESS} + = Rec. + +%% Send a request which can't be encoded and expect {error, encode}. +send_encode_error(Config) -> + {error, encode} = call(Config, ['STR']). %% No Termination-Cause + +%% Send with filtering and expect success. +send_destination_1(Config) -> + Req = ['STR', {'Termination-Cause', ?LOGOUT}, + {'Destination-Host', [?HOST(?SERVER, ?REALM)]}], + #diameter_base_STA{'Result-Code' = ?SUCCESS} + = call(Config, Req, [{filter, {all, [host, realm]}}]). +send_destination_2(Config) -> + Req = ['STR', {'Termination-Cause', ?LOGOUT}], + #diameter_base_STA{'Result-Code' = ?SUCCESS} + = call(Config, Req, [{filter, {all, [host, realm]}}]). + +%% Send with filtering on and expect failure when specifying an +%% unknown host or realm. +send_destination_3(Config) -> + Req = ['STR', {'Termination-Cause', ?LOGOUT}, + {'Destination-Realm', "unknown.org"}], + {error, no_connection} + = call(Config, Req, [{filter, {all, [host, realm]}}]). +send_destination_4(Config) -> + Req = ['STR', {'Termination-Cause', ?LOGOUT}, + {'Destination-Host', [?HOST(?SERVER, "unknown.org")]}], + {error, no_connection} + = call(Config, Req, [{filter, {all, [host, realm]}}]). + +%% Send without filtering and expect an error answer when specifying +%% an unknown host or realm. +send_destination_5(Config) -> + Req = ['STR', {'Termination-Cause', ?LOGOUT}, + {'Destination-Realm', "unknown.org"}], + #'diameter_base_answer-message'{'Result-Code' = ?REALM_NOT_SERVED} + = call(Config, Req). +send_destination_6(Config) -> + Req = ['STR', {'Termination-Cause', ?LOGOUT}, + {'Destination-Host', [?HOST(?SERVER, "unknown.org")]}], + #'diameter_base_answer-message'{'Result-Code' = ?UNABLE_TO_DELIVER} + = call(Config, Req). + +%% Specify an invalid option and expect failure. +send_bad_option_1(Config) -> + send_bad_option(Config, x). +send_bad_option_2(Config) -> + send_bad_option(Config, {extra, false}). + +send_bad_option(Config, Opt) -> + Req = ['STR', {'Termination-Cause', ?LOGOUT}], + try call(Config, Req, [Opt]) of + T -> erlang:error({?MODULE, ?LINE, T}) + catch + error: _ -> ok + end. + +%% Specify an invalid filter and expect no matching peers. +send_bad_filter_1(Config) -> + send_bad_filter(Config, {all, none}). +send_bad_filter_2(Config) -> + send_bad_filter(Config, {host, x}). +send_bad_filter_3(Config) -> + send_bad_filter(Config, {eval, fun() -> true end}). +send_bad_filter_4(Config) -> + send_bad_filter(Config, {eval, {?MODULE, not_exported, []}}). + +send_bad_filter(Config, F) -> + Req = ['STR', {'Termination-Cause', ?LOGOUT}], + {error, no_connection} = call(Config, Req, [{filter, F}]). + +%% Specify multiple filter options and expect them be conjunctive. +send_multiple_filters_1(Config) -> + Fun = fun(#diameter_caps{}) -> true end, + #diameter_base_STA{'Result-Code' = ?SUCCESS} + = send_multiple_filters(Config, [host, {eval, Fun}]). +send_multiple_filters_2(Config) -> + E = {erlang, is_tuple, []}, + {error, no_connection} + = send_multiple_filters(Config, [realm, {neg, {eval, E}}]). +send_multiple_filters_3(Config) -> + E1 = [fun(#diameter_caps{}, ok) -> true end, ok], + E2 = {erlang, is_tuple, []}, + E3 = {erlang, is_record, [diameter_caps]}, + E4 = [{erlang, is_record, []}, diameter_caps], + #diameter_base_STA{'Result-Code' = ?SUCCESS} + = send_multiple_filters(Config, [{eval, E} || E <- [E1,E2,E3,E4]]). + +send_multiple_filters(Config, Fs) -> + Req = ['STR', {'Termination-Cause', ?LOGOUT}], + call(Config, Req, [{filter, F} || F <- Fs]). + +%% Ensure that we can pass a request in any form to diameter:call/4, +%% only the return value from the prepare_request callback being +%% significant. +send_anything(Config) -> + #diameter_base_STA{'Result-Code' = ?SUCCESS} + = call(Config, anything). + +%% Remove the client transport and expect the server transport to +%% go down. +remove_transports(Config) -> + {LRef, CRef} = proplists:get_value(transports, Config), + true = diameter:subscribe(?SERVER), + ok = diameter:remove_transport(?CLIENT, CRef), + {down, LRef, _, _} + = receive #diameter_event{service = ?SERVER, info = I} -> I + after 2000 -> false + end. + +stop_services(_Config) -> + {ok, ok} = {diameter:stop_service(?CLIENT), + diameter:stop_service(?SERVER)}. + +%% =========================================================================== + +call(Config, Req) -> + call(Config, Req, []). + +call(Config, Req, Opts) -> + Name = proplists:get_value(testcase, Config), + Enc = proplists:get_value(encode, Config), + diameter:call(?CLIENT, + ?APP_ALIAS, + msg(Req, Enc), + [{extra, [Name]} | Opts]). + +msg([_|_] = L, list) -> + L; +msg([H|T], record) -> + ?DICT:'#new-'(?DICT:msg2rec(H), T); +msg(T, _) -> + T. + +%% Set only values that aren't already. +set([H|T], Vs) -> + [H | Vs ++ T]; +set(Rec, Vs) -> + lists:foldl(fun({F,_} = FV, A) -> set(?DICT:'#get-'(F, A), FV, A) end, + Rec, + Vs). + +set(E, FV, Rec) + when E == undefined; + E == [] -> + ?DICT:'#set-'(FV, Rec); +set(_, _, Rec) -> + Rec. + +%% =========================================================================== +%% diameter callbacks + +%% peer_up/3 + +peer_up(_SvcName, _Peer, State) -> + State. + +%% peer_down/3 + +peer_down(_SvcName, _Peer, State) -> + State. + +%% pick_peer/5/6 + +pick_peer([Peer], _, ?CLIENT, _State, Name) + when Name /= send_detach -> + {ok, Peer}. + +pick_peer([_Peer], _, ?CLIENT, _State, send_nopeer, ?EXTRA) -> + false; + +pick_peer([Peer], _, ?CLIENT, _State, send_detach, {_,_}) -> + {ok, Peer}. + +%% prepare_request/4/5 + +prepare_request(_Pkt, ?CLIENT, {_Ref, _Caps}, send_discard) -> + {discard, unprepared}; + +prepare_request(Pkt, ?CLIENT, {_Ref, Caps}, Name) -> + {send, prepare(Pkt, Caps, Name)}. + +prepare_request(Pkt, ?CLIENT, {_Ref, Caps}, send_detach, _) -> + {send, prepare(Pkt, Caps)}. + +prepare(Pkt, Caps, send_unsupported) -> + Req = prepare(Pkt, Caps), + #diameter_packet{bin = <<H:5/binary, _CmdCode:3/binary, T/binary>>} + = E + = diameter_codec:encode(?DICT, Pkt#diameter_packet{msg = Req}), + E#diameter_packet{bin = <<H/binary, 42:24/integer, T/binary>>}; + +prepare(Pkt, Caps, send_unsupported_app) -> + Req = prepare(Pkt, Caps), + #diameter_packet{bin = <<H:8/binary, _ApplId:4/binary, T/binary>>} + = E + = diameter_codec:encode(?DICT, Pkt#diameter_packet{msg = Req}), + E#diameter_packet{bin = <<H/binary, 42:32/integer, T/binary>>}; + +prepare(Pkt, Caps, send_error_bit) -> + #diameter_packet{header = Hdr} = Pkt, + Pkt#diameter_packet{header = Hdr#diameter_header{is_error = true}, + msg = prepare(Pkt, Caps)}; + +prepare(Pkt, Caps, send_unsupported_version) -> + #diameter_packet{header = Hdr} = Pkt, + Pkt#diameter_packet{header = Hdr#diameter_header{version = 42}, + msg = prepare(Pkt, Caps)}; + +prepare(Pkt, Caps, send_anything) -> + Req = ['STR', {'Termination-Cause', ?LOGOUT}], + prepare(Pkt#diameter_packet{msg = Req}, Caps); + +prepare(Pkt, Caps, _Name) -> + prepare(Pkt, Caps). + +prepare(#diameter_packet{msg = Req}, Caps) + when is_record(Req, diameter_base_ACR); + 'ACR' == hd(Req) -> + #diameter_caps{origin_host = {OH, _}, + origin_realm = {OR, DR}} + = Caps, + + set(Req, [{'Session-Id', diameter:session_id(OH)}, + {'Origin-Host', OH}, + {'Origin-Realm', OR}, + {'Destination-Realm', DR}]); + +prepare(#diameter_packet{msg = Req}, Caps) + when is_record(Req, diameter_base_ASR); + 'ASR' == hd(Req) -> + #diameter_caps{origin_host = {OH, DH}, + origin_realm = {OR, DR}} + = Caps, + set(Req, [{'Session-Id', diameter:session_id(OH)}, + {'Origin-Host', OH}, + {'Origin-Realm', OR}, + {'Destination-Host', DH}, + {'Destination-Realm', DR}, + {'Auth-Application-Id', ?APP_ID}]); + +prepare(#diameter_packet{msg = Req}, Caps) + when is_record(Req, diameter_base_STR); + 'STR' == hd(Req) -> + #diameter_caps{origin_host = {OH, _}, + origin_realm = {OR, DR}} + = Caps, + set(Req, [{'Session-Id', diameter:session_id(OH)}, + {'Origin-Host', OH}, + {'Origin-Realm', OR}, + {'Destination-Realm', DR}, + {'Auth-Application-Id', ?APP_ID}]); + +prepare(#diameter_packet{msg = Req}, Caps) + when is_record(Req, diameter_base_RAR); + 'RAR' == hd(Req) -> + #diameter_caps{origin_host = {OH, DH}, + origin_realm = {OR, DR}} + = Caps, + set(Req, [{'Session-Id', diameter:session_id(OH)}, + {'Origin-Host', OH}, + {'Origin-Realm', OR}, + {'Destination-Host', DH}, + {'Destination-Realm', DR}, + {'Auth-Application-Id', ?APP_ID}]). + +%% prepare_retransmit/4 + +prepare_retransmit(_Pkt, false, _Peer, _Name) -> + discard. + +%% handle_answer/5/6 + +handle_answer(Pkt, Req, ?CLIENT, Peer, Name) -> + answer(Pkt, Req, Peer, Name). + +handle_answer(Pkt, _Req, ?CLIENT, _Peer, send_detach, {Pid, Ref}) -> + Pid ! {Ref, Pkt}. + +answer(#diameter_packet{msg = Rec, errors = []}, _Req, _Peer, _) -> + Rec. + +%% handle_error/5 + +handle_error(Reason, _Req, ?CLIENT, _Peer, _Name) -> + {error, Reason}. + +%% handle_request/3 + +%% Note that diameter will set Result-Code and Failed-AVPs if +%% #diameter_packet.errors is non-null. + +handle_request(Pkt, ?SERVER, {_Ref, Caps}) -> + request(Pkt, Caps). + +request(#diameter_packet{msg + = #diameter_base_ACR{'Session-Id' = SId, + 'Accounting-Record-Type' = RT, + 'Accounting-Record-Number' = RN}}, + #diameter_caps{origin_host = {OH, _}, + origin_realm = {OR, _}}) -> + {reply, ['ACA', {'Result-Code', ?SUCCESS}, + {'Session-Id', SId}, + {'Origin-Host', OH}, + {'Origin-Realm', OR}, + {'Accounting-Record-Type', RT}, + {'Accounting-Record-Number', RN}]}; + +request(#diameter_packet{msg = #diameter_base_ASR{'Session-Id' = SId, + 'AVP' = Avps}}, + #diameter_caps{origin_host = {OH, _}, + origin_realm = {OR, _}}) -> + {reply, #diameter_base_ASA{'Result-Code' = ?SUCCESS, + 'Session-Id' = SId, + 'Origin-Host' = OH, + 'Origin-Realm' = OR, + 'AVP' = Avps}}; + +request(#diameter_packet{msg = #diameter_base_STR{'Termination-Cause' = T}}, + _Caps) + when T /= ?LOGOUT -> + discard; + +request(#diameter_packet{msg = #diameter_base_STR{'Destination-Realm'= R}}, + #diameter_caps{origin_realm = {OR, _}}) + when R /= undefined, R /= OR -> + {protocol_error, ?REALM_NOT_SERVED}; + +request(#diameter_packet{msg = #diameter_base_STR{'Destination-Host'= [H]}}, + #diameter_caps{origin_host = {OH, _}}) + when H /= OH -> + {protocol_error, ?UNABLE_TO_DELIVER}; + +request(#diameter_packet{msg = #diameter_base_STR{'Session-Id' = SId}}, + #diameter_caps{origin_host = {OH, _}, + origin_realm = {OR, _}}) -> + {reply, #diameter_base_STA{'Result-Code' = ?SUCCESS, + 'Session-Id' = SId, + 'Origin-Host' = OH, + 'Origin-Realm' = OR}}; + +request(#diameter_packet{msg = #diameter_base_RAR{}}, _Caps) -> + receive after 2000 -> ok end, + {protocol_error, ?TOO_BUSY}. diff --git a/lib/diameter/test/diameter_transport_SUITE.erl b/lib/diameter/test/diameter_transport_SUITE.erl new file mode 100644 index 0000000000..d545859fe8 --- /dev/null +++ b/lib/diameter/test/diameter_transport_SUITE.erl @@ -0,0 +1,458 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 2010-2011. 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% +%% + +%% +%% Tests of diameter_tcp/sctp as implementations of the diameter +%% transport interface. +%% + +-module(diameter_transport_SUITE). + +-export([suite/0, + all/0, + groups/0, + init_per_group/2, + end_per_group/2, + init_per_suite/1, + end_per_suite/1]). + +%% testcases +-export([tcp_accept/1, + tcp_connect/1, + sctp_accept/1, + sctp_connect/1]). + +-export([accept/1, + connect/1, + init/2]). + +-include_lib("kernel/include/inet_sctp.hrl"). +-include_lib("diameter/include/diameter.hrl"). +-include("diameter_ct.hrl"). + +-define(util, diameter_util). + +%% Corresponding to diameter_* transport modules. +-define(TRANSPORTS, [tcp, sctp]). + +%% Receive a message. +-define(RECV(Pat, Ret), receive Pat -> Ret end). +-define(RECV(Pat), ?RECV(Pat, now())). + +%% Or not. +-define(WAIT(Ms), receive after Ms -> now() end). + +%% Sockets are opened on the loopback address. +-define(ADDR, {127,0,0,1}). + +%% diameter_tcp doesn't use anything but host_ip_address, and that +%% only is a local address isn't configured as at transport start. +-define(SVC(Addrs), #diameter_service{capabilities + = #diameter_caps{host_ip_address + = Addrs}}). + +%% The term diameter_tcp/sctp registers after opening a listening +%% socket. This is an implementation detail that should probably be +%% replaced by some documented way of getting at the port number of +%% the listening socket, which is what we're after since we specify +%% port 0 to get something unused. +-define(TCP_LISTENER(Ref, Addr, LSock), + {diameter_tcp, listener, {Ref, {Addr, LSock}}}). +-define(SCTP_LISTENER(Ref, Addr, LSock), + {diameter_sctp, listener, {Ref, {[Addr], LSock}}}). + +%% The term we register after open a listening port with gen_tcp. +-define(TEST_LISTENER(Ref, PortNr), + {?MODULE, listen, Ref, PortNr}). + +%% Message over the transport interface. +-define(TMSG(T), {diameter, T}). + +%% Options for gen_tcp/gen_sctp. +-define(TCP_OPTS, [binary, {active, true}, {packet, 0}]). +-define(SCTP_OPTS, [binary, {active, true}, {sctp_initmsg, ?SCTP_INIT}]). + +%% Request a specific number of streams just because we can. +-define(SCTP_INIT, #sctp_initmsg{num_ostreams = 5, + max_instreams = 5}). + +%% Messages from gen_sctp. +-define(SCTP(Sock, Data), {sctp, Sock, _, _, Data}). + +%% =========================================================================== + +suite() -> + [{timetrap, {minutes, 2}}]. + +all() -> + [{group, all} | tc()]. + +groups() -> + [{all, [parallel], tc()}]. + +tc() -> + [tcp_accept, + tcp_connect, + sctp_accept, + sctp_connect]. + +init_per_group(_, Config) -> + Config. + +end_per_group(_, _) -> + ok. + +init_per_suite(Config) -> + ok = diameter:start(), + [{sctp, have_sctp()} | Config]. + +end_per_suite(_Config) -> + ok = diameter:stop(). + +%% =========================================================================== +%% tcp_accept/1 +%% sctp_accept/1 +%% +%% diameter transport accepting, test code connecting. + +tcp_accept(_) -> + accept(tcp). + +sctp_accept(Config) -> + if_sctp(fun accept/1, Config). + +%% Start multiple accepting transport processes that are connected to +%% with an equal number of connecting processes using gen_tcp/sctp +%% directly. + +-define(PEER_COUNT, 8). + +accept(Prot) -> + T = {Prot, make_ref()}, + [] = ?util:run(?util:scramble(acc(2*?PEER_COUNT, T, []))). + +acc(0, _, Acc) -> + Acc; +acc(N, T, Acc) -> + acc(N-1, T, [{?MODULE, [init, + element(1 + N rem 2, {accept, gen_connect}), + T]} + | Acc]). + +%% =========================================================================== +%% tcp_connect/1 +%% sctp_connect/1 +%% +%% Test code accepting, diameter transport connecting. + +tcp_connect(_) -> + connect(tcp). + +sctp_connect(Config) -> + if_sctp(fun connect/1, Config). + +connect(Prot) -> + T = {Prot, make_ref()}, + [] = ?util:run([{?MODULE, [init, X, T]} || X <- [gen_accept, connect]]). + +%% =========================================================================== +%% =========================================================================== + +%% have_sctp/0 + +have_sctp() -> + try gen_sctp:open() of + {ok, Sock} -> + gen_sctp:close(Sock), + true + catch + error: badarg -> + false + end. + +%% if_sctp/2 + +if_sctp(F, Config) -> + case proplists:get_value(sctp, Config) of + true -> + F(sctp); + false -> + {skip, no_sctp} + end. + +%% init/2 + +init(accept, {Prot, Ref}) -> + %% Start an accepting transport and receive notification of a + %% connection. + TPid = start_accept(Prot, Ref), + + %% Receive a message and send it back. + <<_:8, Len:24, _/binary>> = Bin = bin(Prot, ?RECV(?TMSG({recv, P}), P)), + + Len = size(Bin), + TPid ! ?TMSG({send, Bin}), + + %% Expect the transport process to die as a result of the peer + %% closing the connection. + MRef = erlang:monitor(process, TPid), + ?RECV({'DOWN', MRef, process, _, _}); + +init(gen_connect, {Prot, Ref}) -> + %% Lookup the peer's listening socket. + {ok, PortNr} = inet:port(lsock(Prot, Ref)), + + %% Connect, send a message and receive it back. + {ok, Sock} = gen_connect(Prot, PortNr, Ref), + Bin = make_msg(), + ok = gen_send(Prot, Sock, Bin), + Bin = gen_recv(Prot, Sock); + +init(gen_accept, {Prot, Ref}) -> + %% Open a listening socket and publish the port number. + {ok, LSock} = gen_listen(Prot), + {ok, PortNr} = inet:port(LSock), + true = diameter_reg:add_new(?TEST_LISTENER(Ref, PortNr)), + + %% Accept a connection, receive a message and send it back. + {ok, Sock} = gen_accept(Prot, LSock), + Bin = gen_recv(Prot, Sock), + ok = gen_send(Prot, Sock, Bin); + +init(connect, {Prot, Ref}) -> + %% Lookup the peer's listening socket. + [{?TEST_LISTENER(_, PortNr), _}] = match(?TEST_LISTENER(Ref, '_')), + + %% Start a connecting transport and receive notification of + %% the connection. + TPid = start_connect(Prot, PortNr, Ref), + + %% Send a message and receive it back. + Bin = make_msg(), + TPid ! ?TMSG({send, Bin}), + Bin = bin(Prot, ?RECV(?TMSG({recv, P}), P)), + + %% Expect the transport process to die as a result of the peer + %% closing the connection. + MRef = erlang:monitor(process, TPid), + ?RECV({'DOWN', MRef, process, _, _}). + +lsock(sctp, Ref) -> + [{?SCTP_LISTENER(_ , _, LSock), _}] + = match(?SCTP_LISTENER(Ref, ?ADDR, '_')), + LSock; +lsock(tcp, Ref) -> + [{?TCP_LISTENER(_ , _, LSock), _}] + = match(?TCP_LISTENER(Ref, ?ADDR, '_')), + LSock. + +match(Pat) -> + case diameter_reg:match(Pat) of + [] -> + ?WAIT(50), + match(Pat); + L -> + L + end. + +bin(sctp, #diameter_packet{bin = Bin}) -> + Bin; +bin(tcp, Bin) -> + Bin. + +%% make_msg/0 +%% +%% A valid Diameter message in as far as diameter_tcp examines it, +%% the module examining the length in the Diameter header to locate +%% message boundaries. + +make_msg() -> + N = 1024, + Bin = rand_bytes(4*N), + Len = 4*(N+1), + <<1:8, Len:24, Bin/binary>>. + +%% crypto:rand_bytes/1 isn't available on all platforms (since openssl +%% isn't) so roll our own. +rand_bytes(N) -> + random:seed(now()), + rand_bytes(N, <<>>). + +rand_bytes(0, Bin) -> + Bin; +rand_bytes(N, Bin) -> + Oct = random:uniform(256) - 1, + rand_bytes(N-1, <<Oct, Bin/binary>>). + +%% =========================================================================== + +%% start_connect/3 + +start_connect(Prot, PortNr, Ref) -> + {ok, TPid, [?ADDR]} = start_connect(Prot, + {connect, Ref}, + ?SVC([]), + [{raddr, ?ADDR}, + {rport, PortNr}, + {ip, ?ADDR}, + {port, 0}]), + ?RECV(?TMSG({TPid, connected, _})), + TPid. + +start_connect(sctp, T, Svc, Opts) -> + diameter_sctp:start(T, Svc, [{sctp_initmsg, ?SCTP_INIT} | Opts]); +start_connect(tcp, T, Svc, Opts) -> + diameter_tcp:start(T, Svc, Opts). + +%% start_accept/2 +%% +%% Start transports sequentially by having each wait for a message +%% from a job in a queue before commencing. Only one transport with +%% a pending accept is started at a time since diameter_sctp currently +%% assumes (and diameter currently implements) this. + +start_accept(Prot, Ref) -> + Pid = sync(accept, Ref), + + %% Configure the same port number for transports on the same + %% reference. + PortNr = portnr(Prot, Ref), + {Mod, Opts} = tmod(Prot), + + try + {ok, TPid, [?ADDR]} = Mod:start({accept, Ref}, + ?SVC([?ADDR]), + [{port, PortNr} | Opts]), + ?RECV(?TMSG({TPid, connected})), + TPid + after + Pid ! Ref + end. + +sync(What, Ref) -> + ok = diameter_sync:cast({?MODULE, What, Ref}, + [fun lock/2, Ref, self()], + infinity, + infinity), + receive {start, Ref, Pid} -> Pid end. + +lock(Ref, Pid) -> + Pid ! {start, Ref, self()}, + erlang:monitor(process, Pid), + Ref = receive T -> T end. + +tmod(sctp) -> + {diameter_sctp, [{sctp_initmsg, ?SCTP_INIT}]}; +tmod(tcp) -> + {diameter_tcp, []}. + +portnr(sctp, Ref) -> + case diameter_reg:match(?SCTP_LISTENER(Ref, ?ADDR, '_')) of + [{?SCTP_LISTENER(_, _, LSock), _}] -> + {ok, N} = inet:port(LSock), + N; + [] -> + 0 + end; +portnr(tcp, Ref) -> + case diameter_reg:match(?TCP_LISTENER(Ref, ?ADDR, '_')) of + [{?TCP_LISTENER(_, _, LSock), _}] -> + {ok, N} = inet:port(LSock), + N; + [] -> + 0 + end. + +%% =========================================================================== + +%% gen_connect/3 + +gen_connect(Prot, PortNr, Ref) -> + Pid = sync(connect, Ref), + + %% Stagger connect attempts to avoid the situation that no + %% transport process is accepting yet. + receive after 250 -> ok end, + + try + gen_connect(Prot, PortNr) + after + Pid ! Ref + end. + +gen_connect(sctp = P, PortNr) -> + {ok, Sock} = Ok = gen_sctp:open([{ip, ?ADDR}, {port, 0} | ?SCTP_OPTS]), + ok = gen_sctp:connect_init(Sock, ?ADDR, PortNr, []), + Ok = gen_accept(P, Sock); +gen_connect(tcp, PortNr) -> + gen_tcp:connect(?ADDR, PortNr, ?TCP_OPTS). + +%% gen_listen/1 + +gen_listen(sctp) -> + {ok, Sock} = gen_sctp:open([{ip, ?ADDR}, {port, 0} | ?SCTP_OPTS]), + {gen_sctp:listen(Sock, true), Sock}; +gen_listen(tcp) -> + gen_tcp:listen(0, [{ip, ?ADDR} | ?TCP_OPTS]). + +%% gen_accept/2 + +gen_accept(sctp, Sock) -> + Assoc = ?RECV(?SCTP(Sock, {_, #sctp_assoc_change{state = comm_up, + outbound_streams = O, + inbound_streams = I, + assoc_id = A}}), + {O, I, A}), + putr(assoc, Assoc), + {ok, Sock}; +gen_accept(tcp, LSock) -> + gen_tcp:accept(LSock). + +%% gen_send/3 + +gen_send(sctp, Sock, Bin) -> + {OS, _IS, Id} = getr(assoc), + {_, _, Us} = now(), + gen_sctp:send(Sock, Id, Us rem OS, Bin); +gen_send(tcp, Sock, Bin) -> + gen_tcp:send(Sock, Bin). + +%% gen_recv/2 + +gen_recv(sctp, Sock) -> + {_OS, _IS, Id} = getr(assoc), + ?RECV(?SCTP(Sock, {[#sctp_sndrcvinfo{assoc_id = Id}], Bin}), Bin); +gen_recv(tcp, Sock) -> + tcp_recv(Sock, <<>>). + +tcp_recv(_, <<_:8, Len:24, _/binary>> = Bin) + when Len =< size(Bin) -> + Bin; +tcp_recv(Sock, B) -> + receive {tcp, Sock, Bin} -> tcp_recv(Sock, <<B/binary, Bin/binary>>) end. + +%% putr/2 + +putr(Key, Val) -> + put({?MODULE, Key}, Val). + +%% getr/1 + +getr(Key) -> + get({?MODULE, Key}). diff --git a/lib/diameter/test/diameter_util.erl b/lib/diameter/test/diameter_util.erl new file mode 100644 index 0000000000..99f4fa1977 --- /dev/null +++ b/lib/diameter/test/diameter_util.erl @@ -0,0 +1,177 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 2010-2011. 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(diameter_util). + +%% +%% Utility functions. +%% + +-export([consult/2, + run/1, + fold/3, + foldl/3, + scramble/1, + ps/0]). + +-define(L, atom_to_list). + +%% consult/2 +%% +%% Extract info from the app/appup file (presumably) of the named +%% application. + +consult(Name, Suf) + when is_atom(Name), is_atom(Suf) -> + case code:lib_dir(Name, ebin) of + {error = E, Reason} -> + {E, {Name, Reason}}; + Dir -> + consult(filename:join([Dir, ?L(Name) ++ "." ++ ?L(Suf)])) + end. + +consult(Path) -> + case file:consult(Path) of + {ok, Terms} -> + Terms; + {error, Reason} -> + {error, {Path, Reason}} + end. +%% Name/Path in the return value distinguish the errors and allow for +%% a useful badmatch. + +%% run/1 +%% +%% Evaluate functions in parallel and return a list of those that +%% failed to return. The fun takes a boolean (did the function return +%% or not), the function that was evaluated, the return value or exit +%% reason and the prevailing accumulator. + +run(L) -> + fold(fun cons/4, [], L). + +cons(true, _, _, Acc) -> + Acc; +cons(false, F, RC, Acc) -> + [{F, RC} | Acc]. + +%% fold/3 +%% +%% Parallel fold. Results are folded in the order received. + +fold(Fun, Acc0, L) + when is_function(Fun, 4) -> + Ref = make_ref(), + %% Spawn a middleman to collect down messages from processes + %% spawned for each function so as not to assume that all DOWN + %% messages are ours. + MRef = run1([fun fold/4, Ref, Fun, Acc0, L], Ref), + {Ref, RC} = down(MRef), + RC. + +fold(Ref, Fun, Acc0, L) -> + recv(run(Ref, L), Ref, Fun, Acc0). + +run(Ref, L) -> + [{run1(F, Ref), F} || F <- L]. + +run1(F, Ref) -> + {_, MRef} = spawn_monitor(fun() -> exit({Ref, eval(F)}) end), + MRef. + +recv([], _, _, Acc) -> + Acc; +recv(L, Ref, Fun, Acc) -> + {MRef, R} = down(), + {MRef, F} = lists:keyfind(MRef, 1, L), + recv(lists:keydelete(MRef, 1, L), + Ref, + Fun, + acc(R, Ref, F, Fun, Acc)). + +acc({Ref, RC}, Ref, F, Fun, Acc) -> + Fun(true, F, RC, Acc); +acc(Reason, _, F, Fun, Acc) -> + Fun(false, F, Reason, Acc). + +down(MRef) -> + receive {'DOWN', MRef, process, _, Reason} -> Reason end. + +down() -> + receive {'DOWN', MRef, process, _, Reason} -> {MRef, Reason} end. + +%% foldl/3 +%% +%% Parallel fold. Results are folded in order of the function list. + +foldl(Fun, Acc0, L) + when is_function(Fun, 4) -> + Ref = make_ref(), + recvl(run(Ref, L), Ref, Fun, Acc0). + +recvl([], _, _, Acc) -> + Acc; +recvl([{MRef, F} | L], Ref, Fun, Acc) -> + R = down(MRef), + recvl(L, Ref, Fun, acc(R, Ref, F, Fun, Acc)). + +%% scramble/1 +%% +%% Sort a list into random order. + +scramble(L) -> + foldl(fun(true, _, S, false) -> S end, + false, + [[fun s/1, L]]). + +s(L) -> + random:seed(now()), + s([], L). + +s(Acc, []) -> + Acc; +s(Acc, L) -> + {H, [T|Rest]} = lists:split(random:uniform(length(L)) - 1, L), + s([T|Acc], H ++ Rest). + +%% ps/0 + +ps() -> + [{P, process_info(P)} || P <- erlang:processes()]. + +%% eval/1 + +eval({M,[F|A]}) + when is_atom(F) -> + apply(M,F,A); + +eval({M,F,A}) -> + apply(M,F,A); + +eval([F|A]) + when is_function(F) -> + apply(F,A); + +eval(L) + when is_list(L) -> + run(L); + +eval(F) + when is_function(F,0) -> + F(). diff --git a/lib/diameter/test/diameter_watchdog_SUITE.erl b/lib/diameter/test/diameter_watchdog_SUITE.erl new file mode 100644 index 0000000000..dec307529a --- /dev/null +++ b/lib/diameter/test/diameter_watchdog_SUITE.erl @@ -0,0 +1,540 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 2010-2011. 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% +%% + +%% +%% Tests of the RFC3539 watchdog state machine as implemented by +%% module diameter_watchdog. +%% + +-module(diameter_watchdog_SUITE). + +-export([suite/0, + all/0, + init_per_suite/1, + end_per_suite/1]). + +%% testcases +-export([reopen/1, reopen/4]). + +-export([start/3, %% diameter_transport callback + id/1, %% jitter callback + run/1]). + +-include_lib("diameter/include/diameter.hrl"). +-include("diameter_ct.hrl"). + +%% =========================================================================== + +-define(util, diameter_util). + +-define(BASE, diameter_gen_base_rfc3588). +-define(APPL_ID, diameter_gen_base_rfc3588:id()). +-define(SUCCESS, 2001). %% DIAMETER_SUCCESS + +%% Addresses for the local and remote diameter nodes. The values don't +%% matter since we're faking transport. +-define(LOCALHOST, {127,0,0,1}). +-define(REMOTEHOST, {10,0,0,1}). + +-define(CAPS, #diameter_caps{origin_host = "node.innan.com", + origin_realm = "innan.com", + host_ip_address = [?LOCALHOST], + vendor_id = 1022, + product_name = "remote", + auth_application_id = [?APPL_ID]}). + +-define(APPL, #diameter_app{alias = ?MODULE, + dictionary = ?BASE, + module = [?MODULE], + init_state = now(), + id = ?APPL_ID, + mutable = false}). + +%% Service record maintained by our faked service process. +-define(SERVICE, #diameter_service{pid = self(), + capabilities = ?CAPS, + applications = [?APPL]}). + +%% Watchdog timer as a callback. +-define(WD(T), {?MODULE, id, [T]}). + +%% Watchdog timers used by the testcases. Note that the short timeout +%% with random jitter is excluded since the reopen/1 isn't smart +%% enough to deal with it: see ONE_WD below. +-define(WD_TIMERS, [?WD(6000) + | [F_(T_) || T_ <- [10000, 20000, 30000], + F_ <- [fun(T__) -> T__ end, + fun(T__) -> ?WD(T__) end]]]). + +%% Transport types. +-define(TRANSPORTS, [connect, accept]). + +%% Message over the transport interface. +-define(TMSG(T), {diameter, T}). + +%% Receive a message within a specified time. +-define(RECV(T, Timeout), + receive T -> now() + after Timeout -> ?ERROR({timeout, Timeout}) + end). + +%% Receive a message in a given number of watchdogs, plus or minus +%% half. Note that the call to now_diff assumes left to right +%% evaluation order. +-define(RECV(T, N, WdL, WdH), + [?ERROR({received, _Elapsed_, _LowerBound_, N, WdL}) + || _UpperBound_ <- [(N)*(WdH) + (WdH) div 2], + _Elapsed_ <- [now_diff(now(), ?RECV(T, _UpperBound_))], + _LowerBound_ <- [(N)*(WdL) - (WdL) div 2], + _Elapsed_ =< _LowerBound_*1000]). + +%% A timeout that ensures one watchdog. The ensure only one watchdog +%% requires (Wd + 2000) + 1000 < 2*(Wd - 2000) ==> 7000 < Wd for the +%% case with random jitter. +-define(ONE_WD(Wd), jitter(Wd,2000) + 1000). + +%% =========================================================================== + +suite() -> + [{timetrap, {minutes, 6}}].%% enough for 11 watchdogs @ 30 sec plus jitter + +all() -> + [reopen]. + +init_per_suite(Config) -> + ok = diameter:start(), + Config. + +end_per_suite(_Config) -> + ok = diameter:stop(). + +%% =========================================================================== +%% # reopen/1 +%% =========================================================================== + +%% Test the watchdog state machine for the required failover, failback +%% and reopen behaviour. Do this by having the testcase replace +%% diameter_service and start watchdogs, and having this module +%% implement a transport process that plays the role of the peer +%% Diameter node. + +reopen(_) -> + [] = ?util:run([{?MODULE, [run, [reopen, Wd, T, N, M]]} + || Wd <- ?WD_TIMERS, + T <- ?TRANSPORTS, + N <- [0,1,2], + M <- ['DWR', 'DWA', other]]). + +reopen(Wd, Type, N, What) -> + Ref = make_ref(), + + %% The maker of transport processes. + TPid = start({N, Wd, What, Ref}), + + %% Act like diameter_service and start the watchdog process, which + %% in turn starts a peer_fsm process, which in turn starts a + %% transport process by way of start/3. Messages received by the + %% testcase are those sent by diameter_watchdog to the service + %% process (= process starting the watchdog). + WPid1 = watchdog(Type, Ref, TPid, Wd), + + %% Low/high watchdog timeouts. + WdL = jitter(Wd, -2000), + WdH = jitter(Wd, 2000), + + %% Connection should come up immediately as a consequence of + %% starting the watchdog process. In the accepting case this + %% results in a new watchdog on a transport waiting for a new + %% connection. + ?RECV({connection_up, WPid1, _}, 1000), + + WPid2 = case Type of + connect -> + WPid1; + accept -> + watchdog(Type, Ref, TPid, Wd) + end, + + %% OKAY Timer expires & Failover() + %% Pending SetWatchdog() SUSPECT + %% + %% Since our transport is replying to N DWR's before becoming + %% silent, we should go down after N+2 watchdog_timer expirations: + %% that is, after the first unanswered DWR. Knowing the min/max + %% watchdog timeout values gives the time interval in which the + %% down message is expected. + ?RECV({connection_down, WPid1}, N+2, WdL, WdH), + + %% SUSPECT Receive DWA Pending = FALSE + %% Failback() + %% SetWatchdog() OKAY + %% + %% SUSPECT Receive non-DWA Failback() + %% SetWatchdog() OKAY + %% + %% The transport receives a message before the expiry of another + %% watchdog to induce failback. + ?RECV({connection_up, WPid1}, WdH), + + %% OKAY Timer expires & SendWatchdog() + %% !Pending SetWatchdog() + %% Pending = TRUE OKAY + %% + %% OKAY Timer expires & Failover() + %% Pending SetWatchdog() SUSPECT + %% + %% The transport is still not responding to watchdogs so the + %% connection should go back down after either one or two watchdog + %% expiries, depending on whether or not DWA restored the connection. + F = choose(What == 'DWA', 2, 1), + ?RECV({connection_down, WPid1}, F, WdL, WdH), + + %% SUSPECT Timer expires CloseConnection() + %% SetWatchdog() DOWN + %% + %% DOWN Timer expires AttemptOpen() + %% SetWatchdog() DOWN + %% + %% Our transport tells us when the fake connection is + %% reestablished, which should happen after another couple of + %% watchdog expiries, the first bringing the watchdog to state + %% DOWN, the second triggering an attempt to reopen the + %% connection. + ?RECV({reopen, Ref}, 2, WdL, WdH), + + %% DOWN Connection up NumDWA = 0 + %% SendWatchdog() + %% SetWatchdog() + %% Pending = TRUE REOPEN + %% + %% REOPEN Receive DWA & Pending = FALSE + %% NumDWA < 2 NumDWA++ REOPEN + %% + %% REOPEN Receive DWA & Pending = FALSE + %% NumDWA == 2 NumDWA++ + %% Failback() OKAY + %% + %% Now the watchdog should require three received DWA's before + %% taking the connection back up. The first DWR is sent directly + %% after capabilities exchange so it should take no more than two + %% watchdog expiries. + ?RECV({connection_up, WPid2, _}, 2, WdL, WdH). + +%% =========================================================================== + +%% Start the fake transport process. From diameter's point of view +%% it's started when diameter calls start/3. We start it before this +%% happens since we use the same fake transport each time diameter +%% calls start/3. The process lives and dies with the test case. +start(Config) -> + Pid = self(), + spawn(fun() -> loop(init(Pid, Config)) end). + +%% Transport start from diameter. This may be called multiple times +%% depending on the testcase. +start({Type, _Ref}, #diameter_service{}, Pid) -> + Ref = make_ref(), + MRef = erlang:monitor(process, Pid), + Pid ! {start, self(), Type, Ref}, + {Ref, TPid} = receive + {Ref, _} = T -> + T; + {'DOWN', MRef, process, _, _} = T -> + T + end, + erlang:demonitor(MRef, [flush]), + {ok, TPid}. + +%% id/1 + +id(T) -> + T. + +%% =========================================================================== + +choose(true, X, _) -> X; +choose(false, _, X) -> X. + +%% run/1 +%% +%% A more useful badmatch in case of failure. + +run([F|A]) -> + ok = try + apply(?MODULE, F, A), + ok + catch + E:R -> + {A, E, R, erlang:get_stacktrace()} + end. + +%% now_diff/2 + +now_diff(T1, T2) -> + timer:now_diff(T2, T1). + +%% jitter/2 + +jitter(?WD(T), _) -> + T; +jitter(T,D) -> + T+D. + +%% watchdog/4 +%% +%% Fake the call from diameter_service. The watchdog process will send +%% messages to the calling "service" process so our tests are that the +%% watchdog responds as expected. + +watchdog(Type, Ref, TPid, Wd) -> + Opts = [{transport_module, ?MODULE}, + {transport_config, TPid}, + {watchdog_timer, Wd}], + monitor(diameter_watchdog:start({Type, Ref}, + {false, Opts, false, ?SERVICE})). + +monitor(Pid) -> + erlang:monitor(process, Pid), + Pid. + +%% =========================================================================== + +%% Transport process implmentation. Fakes reception of messages by +%% sending fakes to the parent (peer fsm) process that called start/3. + +-record(transport, + {type, %% connect | accept | manager + parent, %% pid() of peer_fsm/ervice process + open = false, %% done with capabilities exchange? + config}).%% testcase-specific config + +%% init/2 + +%% Testcase starting the manager. +init(SvcPid, {_,_,_,_} = Config) -> + putr(peer, [{'Origin-Host', hostname() ++ ".utan.com"}, + {'Origin-Realm', "utan.com"}]), + #transport{type = manager, + parent = monitor(SvcPid), + config = Config}; + +%% Manager starting a transport. +init(_, {Type, ParentPid, SvcPid, TwinPid, Peer, {N,_,_,_} = Config}) -> + putr(peer, Peer), + putr(service, SvcPid), + putr(count, init(Type, ParentPid, TwinPid, N)),%% number of DWR's to answer + #transport{type = Type, + parent = monitor(ParentPid), + config = Config}. + +init(Type, ParentPid, undefined, N) -> + connected(ParentPid, Type), + N; +init(_, _, TPid, _) -> + monitor(TPid), + 3. + +%% Generate a unique hostname for the faked peer. +hostname() -> + lists:flatten(io_lib:format("~p-~p-~p", tuple_to_list(now()))). + +%% loop/1 + +loop(S) -> + loop(msg(receive T -> T end, S)). + +msg(T,S) -> + case transition(T,S) of + ok -> + S; + #transport{} = NS -> + NS; + {stop, Reason} -> + x(Reason) + end. + +x(Reason) -> + exit(Reason). + +%% transition/2 + +%% Manager is being asked for a new transport process. +transition({start, Pid, Type, Ref}, #transport{type = manager, + parent = SvcPid, + config = Config}) -> + TPid = start({Type, Pid, SvcPid, getr(transport), getr(peer), Config}), + Pid ! {Ref, TPid}, + putr(transport, TPid), + ok; + +%% Peer fsm or testcase process has died. +transition({'DOWN', _, process, Pid, _} = T, #transport{parent = Pid}) -> + {stop, T}; + +%% Twin transport process has gone down. In the connect case, the +%% transport isn't started until this happens in the first place so +%% connect immediately. In the accept case, fake the peer reconnecting +%% only after another watchdog expiry. +transition({'DOWN', _, process, _, _}, #transport{type = Type, + config = {_, Wd, _, _}}) -> + Tmo = case Type of + connect -> + 0; + accept -> + ?ONE_WD(Wd) + end, + erlang:send_after(Tmo, self(), reconnect), + ok; + +transition(reconnect, #transport{type = Type, + parent = Pid, + config = {_,_,_,Ref}}) -> + getr(service) ! {reopen, Ref}, + connected(Pid, Type), + ok; + +%% Peer fsm process is sending CER: fake the peer's CEA. +transition(?TMSG({send, Bin}), #transport{type = connect, + open = false, + parent = Pid} + = S) -> + {Code, Flags, _} = ?BASE:msg_header('CER'), + <<_:32, Flags:8, Code:24, _:96, _/binary>> = Bin, + Hdr = make_header(Bin), + recv(Pid, {Hdr, make_cea()}), + S#transport{open = true}; + +%% Peer fsm process is sending CEA. +transition(?TMSG({send, Bin}), #transport{type = accept, + open = false} + = S) -> + {Code, Flags, _} = ?BASE:msg_header('CEA'), + <<_:32, Flags:8, Code:24, _:96, _/binary>> = Bin, + S#transport{open = true}; + +%% Watchdog is sending DWR or DWA. +transition(?TMSG({send, Bin}), #transport{open = true} = S) -> + {Code, _, _} = ?BASE:msg_header('DWR'), + {Code, _, _} = ?BASE:msg_header('DWA'), + <<_:32, R:1, 0:7, Code:24, _:96, _/binary>> = Bin, + Hdr = make_header(Bin), + dwa(1 == R, S, Hdr), + ok; + +%% We're telling ourselves to fake a received message. +transition({recv, Msg}, #transport{parent = Pid}) -> + recv(Pid, Msg), + ok; + +%% We're telling ourselves to receive a message to induce failback. +transition(failback = T, #transport{parent = Pid}) -> + recv(Pid, eraser(T)), + ok. + +make_header(Bin) -> + #diameter_header{end_to_end_id = E, + hop_by_hop_id = H} + = diameter_codec:decode_header(Bin), + #diameter_header{end_to_end_id = E, + hop_by_hop_id = H}. + +recv(Pid, Msg) -> + Pid ! ?TMSG({recv, encode(Msg)}). + +%% Replace the end-to-end/hop-by-hop identifiers with those from an +%% incoming request to which we're constructing a reply. +encode({Hdr, [_|_] = Msg}) -> + #diameter_header{hop_by_hop_id = HBH, + end_to_end_id = E2E} + = Hdr, + #diameter_packet{bin = Bin} = diameter_codec:encode(?BASE, Msg), + <<H:12/binary, _:64, T/binary>> = Bin, + <<H/binary, HBH:32, E2E:32, T/binary>>; + +encode([_|_] = Msg) -> + #diameter_packet{bin = Bin} = diameter_codec:encode(?BASE, Msg), + Bin. + +connected(Pid, connect) -> + Pid ! ?TMSG({self(), connected, make_ref()}); +connected(Pid, accept) -> + Pid ! ?TMSG({self(), connected}), + recv(Pid, make_cer()). + +make_cer() -> + ['CER' | getr(peer)] ++ [{'Host-IP-Address', [?REMOTEHOST]}, + {'Vendor-Id', 1028}, + {'Product-Name', "Utan"}, + {'Auth-Application-Id', [?APPL_ID]}]. + +make_cea() -> + ['CER' | Rest] = make_cer(), + ['CEA', {'Result-Code', ?SUCCESS} | Rest]. + +make_dwr() -> + ['DWR' | getr(peer)]. + +make_dwa() -> + ['DWR' | Rest] = make_dwr(), + ['DWA', {'Result-Code', ?SUCCESS} | Rest]. + +dwa(false, _, _) -> %% outgoing was DWA ... + ok; +dwa(true, S, Hdr) -> %% ... or DWR + dwa(getr(count), Hdr, S); + +%% React to the DWR only after another watchdog expiry. We shouldn't +%% get another DWR while the answer is pending. +dwa(0, Hdr, #transport{config = {_, Wd, What, _}}) -> + erlang:send_after(?ONE_WD(Wd), self(), failback), + putr(failback, make_msg(What, Hdr)), + eraser(count); + +dwa(undefined, _, _) -> + undefined = getr(failback), %% ensure this is after failback + ok; + +%% Reply with DWA. +dwa(N, Hdr, #transport{parent = Pid}) -> + putr(count, N-1), + recv(Pid, {Hdr, make_dwa()}). + +%% Answer to received DWR. +make_msg('DWA', Hdr) -> + {Hdr, make_dwa()}; + +%% DWR from peer. +make_msg('DWR', _) -> + make_dwr(); + +%% An unexpected answer is discarded after passing through the +%% watchdog state machine. +make_msg(other, _) -> + ['RAA', {'Session-Id', diameter:session_id("abc")}, + {'Result-Code', 2001} + | getr(peer)]. + +putr(Key, Val) -> + put({?MODULE, Key}, Val). + +getr(Key) -> + get({?MODULE, Key}). + +eraser(Key) -> + erase({?MODULE, Key}). diff --git a/lib/diameter/test/modules.mk b/lib/diameter/test/modules.mk index ddc720d0c1..c6f709dc36 100644 --- a/lib/diameter/test/modules.mk +++ b/lib/diameter/test/modules.mk @@ -17,31 +17,24 @@ # # %CopyrightEnd% -TEST_SPEC_FILE = diameter.spec - +TEST_SPEC_FILE = diameter.spec COVER_SPEC_FILE = diameter.cover -BEHAVIOUR_MODULES = - MODULES = \ - $(BEHAVIOUR_MODULES) \ - diameter_SUITE \ - diameter_app_test \ - diameter_appup_test \ - diameter_compiler_test \ - diameter_config_test \ - diameter_peer_test \ - diameter_reg_test \ - diameter_session_test \ - diameter_stats_test \ - diameter_sync_test \ - diameter_tcp_test \ - diameter_test_lib \ - diameter_test_server - + diameter_ct \ + diameter_util \ + diameter_enum \ + diameter_codec_SUITE \ + diameter_codec_test \ + diameter_app_SUITE \ + diameter_dict_SUITE \ + diameter_reg_SUITE \ + diameter_sync_SUITE \ + diameter_stats_SUITE \ + diameter_watchdog_SUITE \ + diameter_transport_SUITE \ + diameter_traffic_SUITE \ + diameter_relay_SUITE INTERNAL_HRL_FILES = \ - diameter_test_lib.hrl - - - + diameter_ct.hrl diff --git a/lib/diameter/test/slask/diameter_persistent_table_test.erl b/lib/diameter/test/slask/diameter_persistent_table_test.erl deleted file mode 100644 index bb907a5777..0000000000 --- a/lib/diameter/test/slask/diameter_persistent_table_test.erl +++ /dev/null @@ -1,495 +0,0 @@ -%% -%% %CopyrightBegin% -%% -%% Copyright Ericsson AB 2010-2011. 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% -%% - -%% -%%---------------------------------------------------------------------- -%% Purpose: Verify the persistent-table component of the Diameter application -%%---------------------------------------------------------------------- -%% --module(diameter_persistent_table_test). - --export([ - init_per_testcase/2, fin_per_testcase/2, - - all/1, - suite_init/1, suite_fin/1, - - simple_start_and_stop/1, - table_create_and_delete/1 - - ]). - --export([t/0, t/1]). - --include("diameter_test_lib.hrl"). - --record(command, {id, desc, cmd, verify}). - - -t() -> diameter_test_server:t(?MODULE). -t(Case) -> diameter_test_server:t({?MODULE, Case}). - - -%% Test server callbacks -init_per_testcase(Case, Config) -> - diameter_test_server:init_per_testcase(Case, Config). - -fin_per_testcase(Case, Config) -> - diameter_test_server:fin_per_testcase(Case, Config). - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -all(suite) -> - Cases = - [ - simple_start_and_stop, - table_create_and_delete - ], - {req, [], {conf, suite_init, Cases, suite_fin}}. - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -suite_init(suite) -> []; -suite_init(doc) -> []; -suite_init(Config) when is_list(Config) -> - Config. - - -suite_fin(suite) -> []; -suite_fin(doc) -> []; -suite_fin(Config) when is_list(Config) -> - Config. - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% -%% Test case(s) -%% - -simple_start_and_stop(suite) -> - []; -simple_start_and_stop(doc) -> - []; -simple_start_and_stop(Config) when is_list(Config) -> - diameter:enable_trace(100, io), - case diameter_persistent_table:start_link() of - {ok, Pid} -> - unlink(Pid); - {error, Reason} -> - exit({failed_starting, Reason}) - end, - - ok = diameter_persistent_table:stop(), - ok. - - -table_create_and_delete(suite) -> - []; -table_create_and_delete(doc) -> - []; -table_create_and_delete(Config) when is_list(Config) -> - process_flag(trap_exit, true), - - %% Command range values - Initial = 100, - ClientCreation = 200, - Nice = 300, - Evil = 400, - End = 500, - - Verbosity = min, - %% Verbosity = max, - - Data01 = lists:sort([{a, 10}, {b, 20}, {c, 30}]), - Data02 = lists:sort([{x, 100}, {y, 200}, {z, 300}]), - - Commands = - [ - %% Initial commands - initial_command( Initial + 0, - "enable trace", - fun() -> diameter:enable_trace(Verbosity, io) end, - ok), - initial_command( Initial + 1, - "start persistent-table process", - fun() -> - case diameter_persistent_table:start_link() of - {ok, Pid} when is_pid(Pid) -> - ok; - Error -> - Error - end - end, - ok), - - client_create_command( ClientCreation + 1, - "1", - client01), - - client_create_command( ClientCreation + 2, - "2", - client02), - - nice_command( Nice + 1, - "client 1 create table 1", - fun() -> - create_table(client01, tab01, []), - diameter_persistent_table:which_tables() - end, - fun([tab01] = Tabs) -> - {ok, Tabs}; - (Unexpected) -> - {error, {bad_tables, Unexpected}} - end), - - nice_command( Nice + 2, - "client 1 create table 2", - fun() -> - create_table(client01, tab02, []), - diameter_persistent_table:which_tables() - end, - fun([tab01, tab02] = Tabs) -> - {ok, Tabs}; - ([tab02, tab01] = Tabs) -> - {ok, Tabs}; - (Unexpected) -> - {error, {bad_tables, Unexpected}} - end), - - nice_command( Nice + 3, - "client 2 create table 1", - fun() -> - create_table(client02, tab03, []), - diameter_persistent_table:which_tables(whereis(client02)) - end, - fun([tab03] = Tabs) -> - {ok, Tabs}; - (Unexpected) -> - {error, {bad_tables, Unexpected}} - end), - - nice_command( Nice + 4, - "client 1 delete table 1", - fun() -> - delete_table(client01, tab01), - diameter_persistent_table:which_tables(whereis(client01)) - end, - fun([tab02] = Tabs) -> - {ok, Tabs}; - (Unexpected) -> - {error, {bad_tables, Unexpected}} - end), - - nice_command( Nice + 5, - "client 1 fill in some data in tab02", - fun() -> - populate_table(client01, tab02, Data01), - lists:sort(ets:tab2list(tab02)) - end, - fun(Data) when Data =:= Data01 -> - {ok, Data}; - (Unexpected) -> - {error, {bad_data, Unexpected}} - end), - - nice_command( Nice + 6, - "client 2 fill in some data in tab03", - fun() -> - populate_table(client02, tab03, Data02), - lists:sort(ets:tab2list(tab03)) - end, - fun(Data) when Data =:= Data02 -> - {ok, Data}; - (Unexpected) -> - {error, {bad_data, Unexpected}} - end), - - nice_command( Nice + 7, - "simulate client 1 crash", - fun() -> - simulate_crash(client01) - end, - fun(ok) -> - {ok, crashed}; - (Unexpected) -> - {error, {bad_simulation_result, Unexpected}} - end), - - client_create_command( Nice + 8, - "1 restarted", - client01), - - nice_command( Nice + 9, - "client 1 create tab02 - verify data", - fun() -> - create_table(client01, tab02, []), - lists:sort(ets:tab2list(tab02)) - end, - fun(Data) when Data =:= Data01 -> - {ok, Data}; - (Unexpected) -> - {error, {bad_data, Unexpected}} - end), - - evil_command( Evil + 1, - "try (and fail) to delete the non-existing table tab04", - fun() -> - delete_table(client02, tab04) - end, - fun({error, {unknown_table, tab04}}) -> - {ok, tab04}; - (X) -> - {error, {bad_result, X}} - end), - - evil_command( Evil + 2, - "try (and fail) to delete a not owned table tab02", - fun() -> - delete_table(client02, tab02) - end, - fun({error, {not_owner, tab02}}) -> - {ok, tab02}; - (X) -> - {error, {bad_result, X}} - end), - - evil_command( Evil + 3, - "try (and fail) to create an already existing *and* owned table - tab03", - fun() -> - create_table(client02, tab03, []) - end, - fun({error, {already_owner, tab03}}) -> - {ok, tab03}; - (X) -> - {error, {bad_result, X}} - end), - - evil_command( Evil + 4, - "try (and fail) to create an already existing not owned table - tab02", - fun() -> - create_table(client02, tab02, []) - end, - fun({error, {not_owner, _Owner, tab02}}) -> - {ok, tab02}; - (X) -> - {error, {bad_result, X}} - end), - - end_command( End + 1, - "stop client01", - fun() -> stop_client(client01) end), - - end_command( End + 2, - "stop client02", - fun() -> stop_client(client02) end), - - end_command( End + 2, - "stop persistent-table", - fun() -> diameter_persistent_table:stop() end), - - evil_command( Evil + 5, - "try (and fail) to stop a not running persistent-table process", - fun() -> - diameter_persistent_table:stop() - end, - fun({'EXIT', {noproc, _}}) -> - {ok, not_running}; - (X) -> - {error, {bad_result, X}} - end) - - ], - - exec(Commands). - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -%% -%% Command engine -%% - -exec([]) -> - ok; -exec([#command{id = No, - desc = Desc, - cmd = Cmd, - verify = Verify}|Commands]) -> - io:format("Executing command ~2w: ~s: ", [No, Desc]), - case (catch Verify((catch Cmd()))) of - {ok, OK} -> - io:format("ok => ~p~n", [OK]), - exec(Commands); - {error, Reason} -> - io:format("error => ~p~n", [Reason]), - {error, {bad_result, No, Reason}}; - Error -> - io:format("exit => ~p~n", [Error]), - {error, {unexpected_result, No, Error}} - end. - -initial_command(No, Desc0, Cmd, VerifyVal) when is_function(Cmd) -> - Desc = lists:flatten(io_lib:format("Initial - ~s", [Desc0])), - command(No, Desc, Cmd, VerifyVal). - -client_create_command(No, Desc0, Name) -> - Desc = lists:flatten(io_lib:format("Client create - ~s", [Desc0])), - Self = self(), - Cmd = fun() -> start_client(Self, Name) end, - command(No, Desc, Cmd, ok). - -nice_command(No, Desc0, Cmd, Verify) - when is_function(Cmd) andalso is_function(Verify) -> - Desc = lists:flatten(io_lib:format("Nice - ~s", [Desc0])), - command(No, Desc, Cmd, Verify). - -evil_command(No, Desc0, Cmd, Verify) - when is_function(Cmd) andalso is_function(Verify) -> - Desc = lists:flatten(io_lib:format("Evil - ~s", [Desc0])), - command(No, Desc, Cmd, Verify). - -end_command(No, Desc0, Cmd) when is_function(Cmd) -> - Desc = lists:flatten(io_lib:format("End - ~s", [Desc0])), - command(No, Desc, Cmd, ok). - -command(No, Desc, Cmd, Verify) - when (is_integer(No) andalso - is_list(Desc) andalso - is_function(Cmd) andalso - is_function(Verify)) -> - #command{id = No, - desc = Desc, - cmd = Cmd, - verify = Verify}; -command(No, Desc, Cmd, VerifyVal) - when (is_integer(No) andalso - is_list(Desc) andalso - is_function(Cmd)) -> - Verify = - fun(Val) -> - case Val of - VerifyVal -> - {ok, Val}; - _ -> - {error, Val} - end - end, - #command{id = No, - desc = Desc, - cmd = Cmd, - verify = Verify}. - - -start_client(Parent, Name) -> - ClientPid = spawn_link(fun() -> client_init(Parent, Name) end), - receive - {ClientPid, started} -> - ClientPid, - ok; - {'EXIT', ClientPid, Reason} -> - {error, {failed_starting_client, Reason}} - end. - -stop_client(Client) -> - Pid = whereis(Client), - Pid ! stop, - receive - {'EXIT', Pid, normal} -> - ok - end. - -create_table(Client, Tab, Opts) -> - Self = self(), - Pid = whereis(Client), - Pid ! {create_table, Tab, Opts, Self}, - receive - {Pid, created} -> - ok; - {Pid, {create_failed, Error}} -> - Error - end. - -delete_table(Client, Tab) -> - Self = self(), - Pid = whereis(Client), - Pid ! {delete_table, Tab, Self}, - receive - {Pid, deleted} -> - ok; - {Pid, {delete_failed, Error}} -> - Error - end. - -populate_table(Client, Tab, Data) -> - Self = self(), - Pid = whereis(Client), - Pid ! {populate_table, Tab, Data, Self}, - receive - {Pid, populated} -> - ok - end. - -simulate_crash(Client) -> - Pid = whereis(Client), - Pid ! simulate_crash, - receive - {'EXIT', Pid, simulated_crash} -> - ok - end. - -client_init(Parent, Name) -> - erlang:register(Name, self()), - process_flag(trap_exit, true), - Parent ! {self(), started}, - client_loop(). - -client_loop() -> - receive - stop -> - exit(normal); - - {create_table, T, Opts, From} when is_atom(T) andalso is_list(Opts) -> - case diameter_persistent_table:create(T, Opts) of - ok -> - From ! {self(), created}; - Error -> - From ! {self(), {create_failed, Error}} - end, - client_loop(); - - {delete_table, T, From} -> - case diameter_persistent_table:delete(T) of - ok -> - From ! {self(), deleted}; - Error -> - From ! {self(), {delete_failed, Error}} - end, - client_loop(); - - {populate_table, Tab, Data, From} -> - ets:insert(Tab, Data), - From ! {self(), populated}, - client_loop(); - - simulate_crash -> - exit(simulated_crash) - end. - diff --git a/lib/diameter/vsn.mk b/lib/diameter/vsn.mk index 9f822e4e85..c783450c9f 100644 --- a/lib/diameter/vsn.mk +++ b/lib/diameter/vsn.mk @@ -18,7 +18,7 @@ # %CopyrightEnd% APPLICATION = diameter -DIAMETER_VSN = 0.9 +DIAMETER_VSN = 0.10 PRE_VSN = APP_VSN = "$(APPLICATION)-$(DIAMETER_VSN)$(PRE_VSN)" diff --git a/lib/docbuilder/doc/src/notes.xml b/lib/docbuilder/doc/src/notes.xml index d04c8dd839..95f24ea9ca 100644 --- a/lib/docbuilder/doc/src/notes.xml +++ b/lib/docbuilder/doc/src/notes.xml @@ -4,7 +4,7 @@ <chapter> <header> <copyright> - <year>2007</year><year>2010</year> + <year>2007</year><year>2011</year> <holder>Ericsson AB. All Rights Reserved.</holder> </copyright> <legalnotice> @@ -31,6 +31,22 @@ <p>This document describes the changes made to the DocBuilder application.</p> +<section><title>Docbuilder 0.9.8.11</title> + + <section><title>Improvements and New Features</title> + <list> + <item> + <p> + The docbuilder application has been deprecated and will + be removed in the R15 release.</p> + <p> + Own Id: OTP-9509</p> + </item> + </list> + </section> + +</section> + <section><title>Docbuilder 0.9.8.10</title> <section><title>Fixed Bugs and Malfunctions</title> diff --git a/lib/edoc/doc/overview.edoc b/lib/edoc/doc/overview.edoc index fa699c6f08..2af425272e 100644 --- a/lib/edoc/doc/overview.edoc +++ b/lib/edoc/doc/overview.edoc @@ -3,7 +3,7 @@ EDoc overview page -@author Richard Carlsson <[email protected]> +@author Richard Carlsson <[email protected]> @copyright 2003-2006 Richard Carlsson @version {@version} @title Welcome to EDoc @@ -277,12 +277,12 @@ The following tags can be used before a module declaration: Examples: ```%% @author Richard Carlsson''' -```%% @author Richard Carlsson <[email protected]> +```%% @author Richard Carlsson <[email protected]> %% [http://user.it.uu.se/~richardc/]''' -```%% @author <[email protected]>''' +```%% @author <[email protected]>''' -```%% @author [email protected] [http://user.it.uu.se/~richardc/]''' +```%% @author [email protected] [http://user.it.uu.se/~richardc/]''' </dd> <dt><a name="mtag-copyright">`@copyright'</a></dt> diff --git a/lib/edoc/doc/src/notes.xml b/lib/edoc/doc/src/notes.xml index 31a54788e5..b220067bbe 100644 --- a/lib/edoc/doc/src/notes.xml +++ b/lib/edoc/doc/src/notes.xml @@ -31,6 +31,57 @@ <p>This document describes the changes made to the EDoc application.</p> +<section><title>Edoc 0.7.9</title> + + <section><title>Fixed Bugs and Malfunctions</title> + <list> + <item> + <p><c>no_return</c> is a new built-in type. </p> + <p> + Own Id: OTP-9350</p> + </item> + <item> + <p> + synchronized with edoc development version</p> + <p> + forgot to ensure that xmerl is found in path for + include_lib to work</p> + <p> + fix -spec declaration that doesn't work in R13B04</p> + <p> + eliminate warnings about unused imports</p> + <p> + removed CVS-keywords from source files (Thanks to Richard + Carlsson )</p> + <p> + Own Id: OTP-9463</p> + </item> + <item> + <p> + Add a proplist() type</p> + <p> + Recently I was adding specs to an API and found that + there is no canonical proplist() type defined. (Thanks to + Ryan Zezeski)</p> + <p> + Own Id: OTP-9499</p> + </item> + <item> + <p> + Removed some never-matching clauses reported by dialyzer + Fix macro expansion in comments following Erlang types + URI-escape bytes as two hex digits always (reported by + Alfonso De Gregorio) Updated author e-mail Recognize some + more URI schemas in wiki text, in particular https + (Thanks to Richard Carlsson)</p> + <p> + Own Id: OTP-9590</p> + </item> + </list> + </section> + +</section> + <section><title>Edoc 0.7.8</title> <section><title>Fixed Bugs and Malfunctions</title> diff --git a/lib/edoc/include/edoc_doclet.hrl b/lib/edoc/include/edoc_doclet.hrl index a99ff1fbab..60ec7f44e4 100644 --- a/lib/edoc/include/edoc_doclet.hrl +++ b/lib/edoc/include/edoc_doclet.hrl @@ -18,7 +18,7 @@ %% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 %% USA %% -%% Author contact: [email protected] +%% Author contact: [email protected] %% ===================================================================== -define(NO_APP, []). diff --git a/lib/edoc/src/edoc.erl b/lib/edoc/src/edoc.erl index a279f7dcb3..544465b14a 100644 --- a/lib/edoc/src/edoc.erl +++ b/lib/edoc/src/edoc.erl @@ -15,7 +15,7 @@ %% USA %% %% @copyright 2001-2007 Richard Carlsson -%% @author Richard Carlsson <[email protected]> +%% @author Richard Carlsson <[email protected]> %% @version {@version} %% @end %% ===================================================================== diff --git a/lib/edoc/src/edoc.hrl b/lib/edoc/src/edoc.hrl index 31cf45ade9..98debba4ab 100644 --- a/lib/edoc/src/edoc.hrl +++ b/lib/edoc/src/edoc.hrl @@ -18,7 +18,7 @@ %% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 %% USA %% -%% Author contact: [email protected] +%% Author contact: [email protected] %% ===================================================================== %% Note: Documentation in this file is included by edoc_extract.erl diff --git a/lib/edoc/src/edoc_data.erl b/lib/edoc/src/edoc_data.erl index e3b5a0d51b..aad0b14371 100644 --- a/lib/edoc/src/edoc_data.erl +++ b/lib/edoc/src/edoc_data.erl @@ -16,7 +16,7 @@ %% %% @private %% @copyright 2003 Richard Carlsson -%% @author Richard Carlsson <[email protected]> +%% @author Richard Carlsson <[email protected]> %% @see edoc %% @end %% ===================================================================== diff --git a/lib/edoc/src/edoc_doclet.erl b/lib/edoc/src/edoc_doclet.erl index c66be9d7c7..385d20e9ae 100644 --- a/lib/edoc/src/edoc_doclet.erl +++ b/lib/edoc/src/edoc_doclet.erl @@ -15,7 +15,7 @@ %% USA %% %% @copyright 2003-2006 Richard Carlsson -%% @author Richard Carlsson <[email protected]> +%% @author Richard Carlsson <[email protected]> %% @see edoc %% @end %% ===================================================================== diff --git a/lib/edoc/src/edoc_extract.erl b/lib/edoc/src/edoc_extract.erl index 1209d86fe5..5a79e127f6 100644 --- a/lib/edoc/src/edoc_extract.erl +++ b/lib/edoc/src/edoc_extract.erl @@ -15,7 +15,7 @@ %% USA %% %% @copyright 2001-2003 Richard Carlsson -%% @author Richard Carlsson <[email protected]> +%% @author Richard Carlsson <[email protected]> %% @see edoc %% @end %% ===================================================================== @@ -75,7 +75,7 @@ source(Forms, Comments, File, Env, Opts) when is_list(Forms) -> source(Forms1, Comments, File, Env, Opts); source(Forms, Comments, File, Env, Opts) -> Tree = erl_recomment:quick_recomment_forms(Forms, Comments), - TypeDocs = find_type_docs(Forms, Comments), + TypeDocs = find_type_docs(Forms, Comments, Env, File), source1(Tree, File, Env, Opts, TypeDocs). %% @spec source(Forms, File::filename(), Env::edoc_env(), @@ -111,7 +111,7 @@ source(Forms, Comments, File, Env, Opts) -> source(Forms, File, Env, Opts) when is_list(Forms) -> source(erl_syntax:form_list(Forms), File, Env, Opts); source(Tree, File0, Env, Opts) -> - TypeDocs = find_type_docs(Tree, []), + TypeDocs = find_type_docs(Tree, [], Env, File0), source1(Tree, File0, Env, Opts, TypeDocs). %% Forms0 and Comments is used for extracting Erlang type documentation. @@ -635,14 +635,17 @@ file_macros(_Context, Env) -> %% The same thing using -type: %% -type t() :: t1(). % Some docs of t/0; %% Further docs of t/0. -find_type_docs(Forms0, Comments) -> +find_type_docs(Forms0, Comments, Env, File) -> Tree = erl_recomment:recomment_forms(Forms0, Comments), Forms = preprocess_forms(Tree), - edoc_specs:docs(Forms, fun find_fun/2). + Env1 = add_macro_defs(edoc_macros:std_macros(Env), [], Env), + F = fun(C, Line) -> find_fun(C, Line, Env1, File) end, + edoc_specs:docs(Forms, F). -find_fun(C0, Line) -> +find_fun(C0, Line, Env, File) -> C1 = comment_text(C0), Text = lists:append([C#comment.text || C <- C1]), Comm = #comment{line = Line, text = Text}, [Tag | _] = scan_tags([Comm]), - Tag. + [Tag1] = edoc_macros:expand_tags([Tag], Env, File), + Tag1. diff --git a/lib/edoc/src/edoc_layout.erl b/lib/edoc/src/edoc_layout.erl index 1c0841815f..951cec121c 100644 --- a/lib/edoc/src/edoc_layout.erl +++ b/lib/edoc/src/edoc_layout.erl @@ -14,7 +14,7 @@ %% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 %% USA %% -%% @author Richard Carlsson <[email protected]> +%% @author Richard Carlsson <[email protected]> %% @copyright 2001-2006 Richard Carlsson %% @see edoc %% @end diff --git a/lib/edoc/src/edoc_lib.erl b/lib/edoc/src/edoc_lib.erl index 6c698e83ef..7fd8358add 100644 --- a/lib/edoc/src/edoc_lib.erl +++ b/lib/edoc/src/edoc_lib.erl @@ -15,7 +15,7 @@ %% USA %% %% @copyright 2001-2003 Richard Carlsson -%% @author Richard Carlsson <[email protected]> +%% @author Richard Carlsson <[email protected]> %% @see edoc %% @end %% ===================================================================== @@ -403,8 +403,13 @@ escape_uri([C | Cs]) -> escape_uri([]) -> []. -escape_byte(C) -> - "%" ++ hex_octet(C). +escape_byte(C) when C >= 0, C =< 255 -> + [$%, hex_digit(C bsr 4), hex_digit(C band 15)]. + +hex_digit(N) when N >= 0, N =< 9 -> + N + $0; +hex_digit(N) when N > 9, N =< 15 -> + N + $a - 10. % utf8([C | Cs]) when C > 16#7f -> % [((C band 16#c0) bsr 6) + 16#c0, C band 16#3f ++ 16#80 | utf8(Cs)]; @@ -413,13 +418,6 @@ escape_byte(C) -> % utf8([]) -> % []. -hex_octet(N) when N =< 9 -> - [$0 + N]; -hex_octet(N) when N > 15 -> - hex_octet(N bsr 4) ++ hex_octet(N band 15); -hex_octet(N) -> - [N - 10 + $a]. - %% Please note that URI are *not* file names. Don't use the stdlib %% 'filename' module for operations on (any parts of) URI. diff --git a/lib/edoc/src/edoc_macros.erl b/lib/edoc/src/edoc_macros.erl index 5b512cb53a..70fb38bf0a 100644 --- a/lib/edoc/src/edoc_macros.erl +++ b/lib/edoc/src/edoc_macros.erl @@ -16,7 +16,7 @@ %% %% @private %% @copyright 2001-2005 Richard Carlsson -%% @author Richard Carlsson <[email protected]> +%% @author Richard Carlsson <[email protected]> %% @see edoc %% @end %% ===================================================================== diff --git a/lib/edoc/src/edoc_parser.yrl b/lib/edoc/src/edoc_parser.yrl index 3ce4cde4fb..4d6428f75b 100644 --- a/lib/edoc/src/edoc_parser.yrl +++ b/lib/edoc/src/edoc_parser.yrl @@ -22,7 +22,7 @@ %% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 %% USA %% -%% Author contact: [email protected] +%% Author contact: [email protected] %% ===================================================================== Nonterminals @@ -255,7 +255,7 @@ throws -> etype where_defs: %% "%% USA" %% "%%" %% "%% @private" -%% "%% @author Richard Carlsson <[email protected]>" +%% "%% @author Richard Carlsson <[email protected]>" %% "%% ====================================================================" %% . @@ -455,8 +455,6 @@ parse_throws(S, L) -> -spec throw_error(term(), erl_scan:line()) -> no_return(). -throw_error({L, M, D}, _L0) -> - throw({error,L,{format_error,M,D}}); throw_error({parse_spec, E}, L) -> throw_error({"specification", E}, L); throw_error({parse_typedef, E}, L) -> @@ -468,7 +466,4 @@ throw_error({parse_throws, E}, L) -> throw_error(parse_param, L) -> throw({error, L, "missing parameter name"}); throw_error({Where, E}, L) when is_list(Where) -> - throw({error,L,{"unknown error parsing ~s: ~P.",[Where,E,15]}}); -throw_error(E, L) -> - %% Just in case. - throw({error,L,{"unknown parse error: ~P.",[E,15]}}). + throw({error,L,{"unknown error parsing ~s: ~P.",[Where,E,15]}}). diff --git a/lib/edoc/src/edoc_refs.erl b/lib/edoc/src/edoc_refs.erl index b974cf77c1..1f578a3b83 100644 --- a/lib/edoc/src/edoc_refs.erl +++ b/lib/edoc/src/edoc_refs.erl @@ -16,7 +16,7 @@ %% %% @private %% @copyright 2003 Richard Carlsson -%% @author Richard Carlsson <[email protected]> +%% @author Richard Carlsson <[email protected]> %% @see edoc %% @see edoc_parse_ref %% @end diff --git a/lib/edoc/src/edoc_report.erl b/lib/edoc/src/edoc_report.erl index f082513bee..9bec08ab97 100644 --- a/lib/edoc/src/edoc_report.erl +++ b/lib/edoc/src/edoc_report.erl @@ -16,7 +16,7 @@ %% %% @private %% @copyright 2001-2003 Richard Carlsson -%% @author Richard Carlsson <[email protected]> +%% @author Richard Carlsson <[email protected]> %% @see edoc %% @end %% ===================================================================== diff --git a/lib/edoc/src/edoc_run.erl b/lib/edoc/src/edoc_run.erl index 1355db840f..48b6137ac1 100644 --- a/lib/edoc/src/edoc_run.erl +++ b/lib/edoc/src/edoc_run.erl @@ -15,7 +15,7 @@ %% USA %% %% @copyright 2003 Richard Carlsson -%% @author Richard Carlsson <[email protected]> +%% @author Richard Carlsson <[email protected]> %% @see edoc %% @end %% ===================================================================== diff --git a/lib/edoc/src/edoc_scanner.erl b/lib/edoc/src/edoc_scanner.erl index 8e895ad1ad..754fcef643 100644 --- a/lib/edoc/src/edoc_scanner.erl +++ b/lib/edoc/src/edoc_scanner.erl @@ -16,7 +16,7 @@ %% @private %% @copyright Richard Carlsson 2001-2003. Portions created by Ericsson %% are Copyright 1999, Ericsson Utvecklings AB. All Rights Reserved. -%% @author Richard Carlsson <[email protected]> +%% @author Richard Carlsson <[email protected]> %% @see edoc %% @end diff --git a/lib/edoc/src/edoc_tags.erl b/lib/edoc/src/edoc_tags.erl index 80989428ce..2d986988c2 100644 --- a/lib/edoc/src/edoc_tags.erl +++ b/lib/edoc/src/edoc_tags.erl @@ -16,7 +16,7 @@ %% %% @private %% @copyright 2001-2003 Richard Carlsson -%% @author Richard Carlsson <[email protected]> +%% @author Richard Carlsson <[email protected]> %% @see edoc %% @end %% ===================================================================== diff --git a/lib/edoc/src/edoc_types.erl b/lib/edoc/src/edoc_types.erl index a54544868c..60c6cecb97 100644 --- a/lib/edoc/src/edoc_types.erl +++ b/lib/edoc/src/edoc_types.erl @@ -16,7 +16,7 @@ %% %% @private %% @copyright 2001-2003 Richard Carlsson -%% @author Richard Carlsson <[email protected]> +%% @author Richard Carlsson <[email protected]> %% @see edoc %% @end %% ===================================================================== diff --git a/lib/edoc/src/edoc_types.hrl b/lib/edoc/src/edoc_types.hrl index 1353bfb93a..05c61d70ff 100644 --- a/lib/edoc/src/edoc_types.hrl +++ b/lib/edoc/src/edoc_types.hrl @@ -18,7 +18,7 @@ %% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 %% USA %% -%% Author contact: [email protected] +%% Author contact: [email protected] %% ===================================================================== %% Type specification data structures diff --git a/lib/edoc/src/edoc_wiki.erl b/lib/edoc/src/edoc_wiki.erl index 2f2d14853c..5c71658af5 100644 --- a/lib/edoc/src/edoc_wiki.erl +++ b/lib/edoc/src/edoc_wiki.erl @@ -16,7 +16,7 @@ %% %% @private %% @copyright 2001-2003 Richard Carlsson -%% @author Richard Carlsson <[email protected]> +%% @author Richard Carlsson <[email protected]> %% @see edoc %% @end %% ===================================================================== @@ -249,10 +249,20 @@ expand_triple([], L, _, L0) -> expand_uri("http:/" ++ Cs, L, As) -> expand_uri(Cs, L, "/:ptth", As); +expand_uri("https:/" ++ Cs, L, As) -> + expand_uri(Cs, L, "/:sptth", As); expand_uri("ftp:/" ++ Cs, L, As) -> expand_uri(Cs, L, "/:ptf", As); expand_uri("file:/" ++ Cs, L, As) -> expand_uri(Cs, L, "/:elif", As); +expand_uri("mailto:/" ++ Cs, L, As) -> + expand_uri(Cs, L, "/:otliam", As); +expand_uri("nfs:/" ++ Cs, L, As) -> + expand_uri(Cs, L, "/:sfn", As); +expand_uri("shttp:/" ++ Cs, L, As) -> + expand_uri(Cs, L, "/:ptths", As); +expand_uri("xmpp:/" ++ Cs, L, As) -> + expand_uri(Cs, L, "/:ppmx", As); expand_uri(Cs, L, As) -> expand(Cs, L, [$[ | As]). diff --git a/lib/edoc/src/otpsgml_layout.erl b/lib/edoc/src/otpsgml_layout.erl index d425dc0ed8..2c4cd919bb 100644 --- a/lib/edoc/src/otpsgml_layout.erl +++ b/lib/edoc/src/otpsgml_layout.erl @@ -14,7 +14,7 @@ %% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 %% USA %% -%% @author Richard Carlsson <[email protected]> +%% @author Richard Carlsson <[email protected]> %% @author Kenneth Lundin <[email protected]> %% @copyright 2001-2004 Richard Carlsson %% @see edoc_layout diff --git a/lib/edoc/vsn.mk b/lib/edoc/vsn.mk index 30cf191ffc..22f225dd9b 100644 --- a/lib/edoc/vsn.mk +++ b/lib/edoc/vsn.mk @@ -1 +1 @@ -EDOC_VSN = 0.7.8 +EDOC_VSN = 0.7.9 diff --git a/lib/erl_docgen/doc/src/notes.xml b/lib/erl_docgen/doc/src/notes.xml index f79639769f..6a0eece56d 100644 --- a/lib/erl_docgen/doc/src/notes.xml +++ b/lib/erl_docgen/doc/src/notes.xml @@ -30,7 +30,51 @@ </header> <p>This document describes the changes made to the erl_docgen application.</p> - <section><title>Erl_Docgen 0.2.5</title> + <section><title>Erl_Docgen 0.2.6</title> + + <section><title>Fixed Bugs and Malfunctions</title> + <list> + <item> + <p>Bug fixes. </p> + <p> + Own Id: OTP-9360</p> + </item> + <item> + <p> The manpage generation has been improved. </p> + <p> + Own Id: OTP-9541 Aux Id: OTP-9550 </p> + </item> + <item> + <p> Fix eix file generation for new function spec + references. </p> + <p> + Own Id: OTP-9562</p> + </item> + <item> + <p> The function signatures in the pdf files was not in a + fixed font. </p> + <p> + Own Id: OTP-9563</p> + </item> + <item> + <p> The parts level in the system documentation was + missing in the bookmarks menu for the pdf and the + copyright year generation for PDF was not correct. </p> + <p> + Own Id: OTP-9576</p> + </item> + <item> + <p> The indentation after <c>Warning:</c> and + <c>Note:</c> in manpages has been improved. </p> + <p> + Own Id: OTP-9588</p> + </item> + </list> + </section> + +</section> + +<section><title>Erl_Docgen 0.2.5</title> <section><title>Improvements and New Features</title> <list> diff --git a/lib/erl_docgen/priv/xsl/db_eix.xsl b/lib/erl_docgen/priv/xsl/db_eix.xsl index 4545322bc2..7a648ddfd7 100644 --- a/lib/erl_docgen/priv/xsl/db_eix.xsl +++ b/lib/erl_docgen/priv/xsl/db_eix.xsl @@ -22,10 +22,16 @@ <xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" + xmlns:exsl="http://exslt.org/common" + extension-element-prefixes="exsl" xmlns:fn="http://www.w3.org/2005/02/xpath-functions"> <xsl:output method="text" encoding="UTF-8" indent="no"/> + <xsl:param name="specs_file" select="''"/> + <xsl:variable name="i" select="document($specs_file)"></xsl:variable> + + <!-- Book --> <xsl:template match="/book"> <xsl:text>%% %% Search data file for </xsl:text><xsl:value-of select="$appname"/><xsl:text> </xsl:text><xsl:value-of select="$appver"/> @@ -50,9 +56,7 @@ <xsl:template match="erlref"> <xsl:text>{"</xsl:text><xsl:value-of select="module"/><xsl:text>.html", {function, {"</xsl:text><xsl:value-of select="$appname"/> <xsl:text>", "</xsl:text><xsl:value-of select="module"/><xsl:text>"}}, [ </xsl:text> - <xsl:apply-templates select="funcs"> - <xsl:with-param name="mod" select="module"/> - </xsl:apply-templates> + <xsl:apply-templates select="funcs"/> <xsl:text>]}. </xsl:text> <xsl:text>{"</xsl:text><xsl:value-of select="module"/><xsl:text>.html", {module, "</xsl:text> <xsl:value-of select="$appname"/><xsl:text>"}, ["</xsl:text><xsl:value-of select="module"/><xsl:text>"]}. </xsl:text> @@ -62,9 +66,7 @@ <xsl:template match="cref"> <xsl:text>{"</xsl:text><xsl:value-of select="lib"/><xsl:text>.html", {function, {"</xsl:text><xsl:value-of select="$appname"/> <xsl:text>", "</xsl:text><xsl:value-of select="lib"/><xsl:text>"}}, [ </xsl:text> - <xsl:apply-templates select="funcs"> - <xsl:with-param name="mod" select="lib"/> - </xsl:apply-templates> + <xsl:apply-templates select="funcs"/> <xsl:text>]}. </xsl:text> <xsl:text>{"</xsl:text><xsl:value-of select="lib"/><xsl:text>.html", {clib, "</xsl:text> <xsl:value-of select="$appname"/><xsl:text>"}, ["</xsl:text><xsl:value-of select="lib"/><xsl:text>"]}. </xsl:text> @@ -91,69 +93,157 @@ <!-- Funcs --> <xsl:template match="funcs"> - <xsl:param name="mod"/> <xsl:variable name="lastfuncsblock"> <xsl:value-of select="position() = last()"/> </xsl:variable> <xsl:apply-templates select="func/name"> - <xsl:with-param name="mod" select="$mod"/> <xsl:with-param name="lastfuncsblock" select="$lastfuncsblock"/> </xsl:apply-templates> </xsl:template> + <xsl:template match="name"> + <xsl:param name="lastfuncsblock"/> + <xsl:choose> + <!-- @arity is mandatory when referring to a specification --> + <xsl:when test="string-length(@arity) > 0"> + <xsl:call-template name="spec_name"/> + </xsl:when> + <xsl:otherwise> + <xsl:call-template name="name"/> + </xsl:otherwise> + </xsl:choose> + </xsl:template> + <xsl:template name="err"> + <xsl:param name="f"/> + <xsl:param name="m"/> + <xsl:param name="n"/> + <xsl:param name="a"/> + <xsl:param name="s"/> + <xsl:message terminate="yes"> + Error <xsl:if test="$f != ''">in <xsl:value-of select ="$f"/>:</xsl:if> + <xsl:if test="$m != ''"><xsl:value-of select ="$m"/>:</xsl:if> + <xsl:value-of select="$n"/> + <xsl:if test="$a != ''">/<xsl:value-of + select ="$a"/></xsl:if>: <xsl:value-of select="$s"/> + </xsl:message> + </xsl:template> + <xsl:template name="find_spec"> + <xsl:variable name="curModule" select="ancestor::erlref/module"/> + <xsl:variable name="mod" select="@mod"/> + <xsl:variable name="name" select="@name"/> + <xsl:variable name="arity" select="@arity"/> + <xsl:variable name="clause_i" select="@clause_i"/> + <xsl:variable name="spec0" select= + "$i/specs/module[@name=$curModule]/spec + [name=$name and arity=$arity + and (string-length($mod) = 0 or module = $mod)]"/> + <xsl:variable name="spec" select="$spec0[string-length($clause_i) = 0 + or position() = $clause_i]"/> - <xsl:template match="name"> - <xsl:param name="mod"/> + <xsl:if test="count($spec) != 1"> + <xsl:variable name="why"> + <xsl:choose> + <xsl:when test="count($spec) > 1">ambiguous spec</xsl:when> + <xsl:when test="count($spec) = 0">unknown spec</xsl:when> + </xsl:choose> + </xsl:variable> + <xsl:call-template name="err"> + <xsl:with-param name="f" select="$curModule"/> + <xsl:with-param name="m" select="$mod"/> + <xsl:with-param name="n" select="$name"/> + <xsl:with-param name="a" select="$arity"/> + <xsl:with-param name="s" select="$why"/> + </xsl:call-template> + </xsl:if> + <xsl:copy-of select="$spec"/> + </xsl:template> + + + <xsl:template name="spec_name"> + <xsl:param name="lastfuncsblock"/> + <xsl:variable name="fname" select="@name"/> + <xsl:variable name="arity" select="@arity"/> + <xsl:variable name="spec0"> + <xsl:call-template name="find_spec"/> + </xsl:variable> + <xsl:variable name="spec" select="exsl:node-set($spec0)/spec"/> + + <xsl:variable name="tmpstring"> + <xsl:value-of select="substring-before($spec/contract/clause/head, ' ->')"/> + </xsl:variable> + + <xsl:text> {"</xsl:text><xsl:value-of select="$fname"/> + <xsl:text>", "</xsl:text><xsl:value-of select="$tmpstring"/> + <xsl:text>", "</xsl:text><xsl:value-of select="$fname"/> + <xsl:text>-</xsl:text><xsl:value-of select="$arity"/><xsl:text>"}</xsl:text> + + <xsl:choose> + <xsl:when test="($lastfuncsblock = 'true') and (position() = last())"> + <xsl:text> </xsl:text> + </xsl:when> + <xsl:otherwise> + <xsl:text>, </xsl:text> + </xsl:otherwise> + </xsl:choose> + + </xsl:template> + + + <xsl:template name="name"> <xsl:param name="lastfuncsblock"/> <xsl:variable name="tmpstring"> <xsl:value-of select="substring-before(substring-after(., '('), '->')"/> - </xsl:variable> + </xsl:variable> + <xsl:variable name="ustring"> <xsl:choose> - <xsl:when test="string-length($tmpstring) > 0"> - <xsl:call-template name="remove-paren"> - <xsl:with-param name="string" select="$tmpstring"/> - </xsl:call-template> - </xsl:when> - <xsl:otherwise> - <xsl:call-template name="remove-paren"> - <xsl:with-param name="string" select="substring-after(., '(')"/> - </xsl:call-template> - </xsl:otherwise> + <xsl:when test="string-length($tmpstring) > 0"> + <xsl:call-template name="remove-paren"> + <xsl:with-param name="string" select="$tmpstring"/> + </xsl:call-template> + </xsl:when> + <xsl:otherwise> + <xsl:call-template name="remove-paren"> + <xsl:with-param name="string" select="substring-after(., '(')"/> + </xsl:call-template> + </xsl:otherwise> </xsl:choose> - </xsl:variable> + </xsl:variable> + <xsl:variable name="arity"> <xsl:call-template name="calc-arity"> - <xsl:with-param name="string" select="substring-before($ustring, ')')"/> - <xsl:with-param name="no-of-pars" select="0"/> + <xsl:with-param name="string" select="substring-before($ustring, ')')"/> + <xsl:with-param name="no-of-pars" select="0"/> </xsl:call-template> - </xsl:variable> + </xsl:variable> + <xsl:variable name="fname"> <xsl:choose> - <xsl:when test="ancestor::cref"> - <xsl:value-of select="substring-before(nametext, '(')"/> - </xsl:when> - <xsl:when test="ancestor::erlref"> - <xsl:variable name="fname1"> - <xsl:value-of select="substring-before(., '(')"/> - </xsl:variable> - <xsl:variable name="fname2"> - <xsl:value-of select="substring-after($fname1, 'erlang:')"/> - </xsl:variable> - <xsl:choose> - <xsl:when test="string-length($fname2) > 0"> - <xsl:value-of select="$fname2"/> - </xsl:when> - <xsl:otherwise> - <xsl:value-of select="$fname1"/> - </xsl:otherwise> - </xsl:choose> - </xsl:when> + <xsl:when test="ancestor::cref"> + <xsl:value-of select="substring-before(nametext, '(')"/> + </xsl:when> + <xsl:when test="ancestor::erlref"> + <xsl:variable name="fname1"> + <xsl:value-of select="substring-before(., '(')"/> + </xsl:variable> + <xsl:variable name="fname2"> + <xsl:value-of select="substring-after($fname1, 'erlang:')"/> + </xsl:variable> + <xsl:choose> + <xsl:when test="string-length($fname2) > 0"> + <xsl:value-of select="$fname2"/> + </xsl:when> + <xsl:otherwise> + <xsl:value-of select="$fname1"/> + </xsl:otherwise> + </xsl:choose> + </xsl:when> </xsl:choose> - </xsl:variable> + </xsl:variable> + <xsl:text> {"</xsl:text><xsl:value-of select="$fname"/> <xsl:text>", "</xsl:text><xsl:value-of select="$fname"/> <xsl:text>(</xsl:text><xsl:value-of select="normalize-space($tmpstring)"/> diff --git a/lib/erl_docgen/priv/xsl/db_man.xsl b/lib/erl_docgen/priv/xsl/db_man.xsl index 8db4714249..1df96caa36 100644 --- a/lib/erl_docgen/priv/xsl/db_man.xsl +++ b/lib/erl_docgen/priv/xsl/db_man.xsl @@ -25,12 +25,12 @@ xmlns:exsl="http://exslt.org/common" extension-element-prefixes="exsl"> - <xsl:preserve-space elements="code pre"/> + <xsl:preserve-space elements="code pre p"/> <xsl:strip-space elements="*"/> <xsl:output method="text" encoding="UTF-8" indent="no"/> <!-- Start of Dialyzer type/spec tags. See also the templates - matching "name" and "seealso" + matching "name", "seealso" and "br" --> <!-- Note: specs data for *one* module (as opposed to html and pdf) --> @@ -137,8 +137,8 @@ (there is no spec with more than one clause) --> <xsl:if test="count($clause/guard) > 0 or count($type) > 0"> <xsl:text> .RS</xsl:text> - <xsl:text> .TP</xsl:text> - <xsl:text> Types</xsl:text> + <xsl:text> .TP 3</xsl:text> + <xsl:text> Types: </xsl:text> <xsl:choose> <xsl:when test="$output_subtypes"> @@ -223,10 +223,13 @@ <xsl:for-each select="$subtype"> <xsl:variable name="tname" select="typename"/> - <xsl:text> </xsl:text> - <xsl:apply-templates select="string"/> - <xsl:text> .br</xsl:text> - <xsl:apply-templates select="$type_desc[@variable = $tname]"/> + <xsl:variable name="string" select="string"/> + <xsl:if test="string-length($string) > 0"> + <xsl:text> </xsl:text> + <xsl:apply-templates select="$string"/> + <xsl:text> .br</xsl:text> + <xsl:apply-templates select="$type_desc[@variable = $tname]"/> + </xsl:if> </xsl:for-each> </xsl:template> @@ -319,8 +322,7 @@ </xsl:template> <xsl:template match="typehead"> - <xsl:text> .nf </xsl:text> - <xsl:text> .B </xsl:text> + <xsl:text> .nf </xsl:text> <xsl:apply-templates/> <xsl:text> .br</xsl:text> <xsl:text> .fi</xsl:text> @@ -345,6 +347,13 @@ <xsl:text> .br</xsl:text> </xsl:template> + <!-- The name of data types --> + <xsl:template match="marker"> + <xsl:if test="string-length(.) != 0"> + <xsl:text>\fB</xsl:text><xsl:apply-templates/><xsl:text>\fR\&</xsl:text> + </xsl:if> + </xsl:template> + <!-- Used both in <datatype> and in <func>! --> <xsl:template match="anno"> <xsl:variable name="curModule" select="ancestor::erlref/module"/> @@ -465,13 +474,13 @@ <xsl:text> .TP 2 </xsl:text> <xsl:text>* </xsl:text> <xsl:apply-templates/> - <xsl:text> .LP </xsl:text> + <xsl:text> .LP</xsl:text> </xsl:template> <xsl:template match="taglist"> <xsl:text> .RS 2</xsl:text> <xsl:apply-templates select="tag|item"/> - <xsl:text> .RE </xsl:text> + <xsl:text> .RE</xsl:text> </xsl:template> <xsl:template match="taglist/tag"> @@ -494,7 +503,7 @@ </xsl:when> <xsl:otherwise> <xsl:text> .RS 2</xsl:text> - <xsl:text> .LP .LP </xsl:text> + <xsl:text> .LP </xsl:text> <xsl:value-of select="$content"/> <xsl:text> .RE</xsl:text> </xsl:otherwise> @@ -503,18 +512,42 @@ <!-- Note --> <xsl:template match="note"> - <xsl:text> .SS Note:</xsl:text> + <xsl:text> .LP </xsl:text> + <xsl:text> .RS -4</xsl:text> + <xsl:text> .B </xsl:text> + <xsl:text>Note:</xsl:text> + <xsl:text> .RE</xsl:text> <xsl:apply-templates/> <xsl:text> </xsl:text> </xsl:template> <!-- Warning --> <xsl:template match="warning"> - <xsl:text> .SS Warning:</xsl:text> + <xsl:text> .LP </xsl:text> + <xsl:text> .RS -4</xsl:text> + <xsl:text> .B </xsl:text> + <xsl:text>Warning:</xsl:text> + <xsl:text> .RE</xsl:text> <xsl:apply-templates/> <xsl:text> </xsl:text> </xsl:template> + <xsl:template match="warning/p | note/p"> + <xsl:variable name="content"> + <xsl:text> </xsl:text> + <xsl:apply-templates/> + </xsl:variable> + <xsl:choose> + <xsl:when test="position() = 1"> + <xsl:value-of select="$content"/> + </xsl:when> + <xsl:otherwise> + <xsl:text> .LP</xsl:text> + <xsl:value-of select="$content"/> + </xsl:otherwise> + </xsl:choose> + </xsl:template> + <!-- Paragraph --> <xsl:template match="p"> <xsl:text> .LP </xsl:text> @@ -529,7 +562,16 @@ </xsl:template> <xsl:template match="br"> - <xsl:text> .br </xsl:text> + <xsl:choose> + <xsl:when test="ancestor::head"> + <!-- The header of Dialyzer specs. + .B makes next line appear in bold face --> + <xsl:text> .B </xsl:text> + </xsl:when> + <xsl:otherwise> + <xsl:text> .br </xsl:text> + </xsl:otherwise> + </xsl:choose> </xsl:template> <xsl:template match="c"> @@ -547,17 +589,17 @@ <!-- Code --> <xsl:template match="code"> <xsl:text> .LP </xsl:text> - <xsl:text> .nf </xsl:text> + <xsl:text>.nf </xsl:text> <xsl:apply-templates/> - <xsl:text> .fi </xsl:text> + <xsl:text> .fi</xsl:text> </xsl:template> <!-- Pre --> <xsl:template match="pre"> <xsl:text> .LP </xsl:text> - <xsl:text> .nf </xsl:text> + <xsl:text>.nf </xsl:text> <xsl:apply-templates/> - <xsl:text> .fi </xsl:text> + <xsl:text> .fi</xsl:text> </xsl:template> @@ -715,8 +757,8 @@ <!-- The case where @name != 0 is taken care of in "type_name" --> <xsl:if test="string-length(@name) = 0 and string-length(@variable) = 0"> <xsl:text> .RS</xsl:text> - <xsl:text> .TP</xsl:text> - <xsl:text> Types</xsl:text> + <xsl:text> .TP 3</xsl:text> + <xsl:text> Types: </xsl:text> <xsl:apply-templates/> <xsl:text> .RE</xsl:text> </xsl:if> @@ -788,7 +830,36 @@ <!-- Replace ' by \&' ans . by \&. --> <xsl:template match="text()"> <xsl:variable name="startstring"> - <xsl:value-of select="normalize-space()"/><xsl:text> </xsl:text> + <xsl:value-of select="normalize-space()"/> + </xsl:variable> + <!-- 'C' is just any character but whitespace --> + <xsl:variable name="tmp" select="normalize-space(concat('C',.,'C'))"/> + <xsl:variable name="space_before"> + <xsl:choose> + <!-- '<p>A<marker id="swamp"/> swamp</p>' does not work; instead: + '<p>A <marker id="swamp"/>swamp</p>' --> + <xsl:when test="starts-with($tmp, 'C ') + and not (string(preceding-sibling::*[position()=1]) = '' + and parent::p)"> + <!-- and not (position() = 1 and parent::p)"> --> + <xsl:text> </xsl:text> + </xsl:when> + <xsl:otherwise> + <xsl:text/> + </xsl:otherwise> + </xsl:choose> + </xsl:variable> + <xsl:variable name="space_after"> + <xsl:choose> + <xsl:when test="substring($tmp, string-length($tmp)-1,1) = ' ' + and $startstring != '' + and not (position() = last() and parent::p)"> + <xsl:text> </xsl:text> + </xsl:when> + <xsl:otherwise> + <xsl:text/> + </xsl:otherwise> + </xsl:choose> </xsl:variable> <xsl:variable name="rep1"> <xsl:call-template name="replace-string"> @@ -804,11 +875,16 @@ <xsl:with-param name="with" select=""\&'"" /> </xsl:call-template> </xsl:variable> - <xsl:call-template name="replace-string"> - <xsl:with-param name="text" select="$rep2" /> - <xsl:with-param name="replace" select=""."" /> - <xsl:with-param name="with" select=""\&."" /> - </xsl:call-template> + <xsl:variable name="reply"> + <xsl:call-template name="replace-string"> + <xsl:with-param name="text" select="$rep2" /> + <xsl:with-param name="replace" select=""."" /> + <xsl:with-param name="with" select=""\&."" /> + </xsl:call-template> + </xsl:variable> + <xsl:value-of select="$space_before"/> + <xsl:value-of select="$reply"/> + <xsl:value-of select="$space_after"/> </xsl:template> <!-- Template replace-string is borrowed at http://www.dpawson.co.uk/xsl/sect2/replace.html --> diff --git a/lib/erl_docgen/priv/xsl/db_pdf.xsl b/lib/erl_docgen/priv/xsl/db_pdf.xsl index a3d601d861..48a7a026c1 100644 --- a/lib/erl_docgen/priv/xsl/db_pdf.xsl +++ b/lib/erl_docgen/priv/xsl/db_pdf.xsl @@ -732,22 +732,23 @@ <xsl:template name="bookmarks1"> <xsl:param name="entries"/> <xsl:if test="$entries != ''"> + <xsl:for-each select="$entries"> - <fo:bookmark internal-destination="{generate-id(/book/parts/part)}" - starting-state="hide"> - <fo:bookmark-title>User's Guide</fo:bookmark-title> - - <xsl:for-each select="$entries"> + <fo:bookmark internal-destination="{generate-id(header/title)}" + starting-state="hide"> + <fo:bookmark-title><xsl:value-of select="header/title"/></fo:bookmark-title> + <xsl:call-template name="bookmarks2"> <xsl:with-param name="entries" select="chapter[header/title]"/> </xsl:call-template> - </xsl:for-each> - - </fo:bookmark> + + </fo:bookmark> + </xsl:for-each> </xsl:if> </xsl:template> + <xsl:template name="bookmarks2"> <xsl:param name="entries"/> <xsl:for-each select="$entries"> @@ -934,9 +935,9 @@ <xsl:template match="part"> <xsl:variable name="partnum"><xsl:number level="any" from="book" count="part|application"/></xsl:variable> - <fo:block xsl:use-attribute-sets="h1" id="{generate-id()}"> + <fo:block xsl:use-attribute-sets="h1" id="{generate-id(header/title)}"> <xsl:value-of select="$partnum"/>    - <xsl:text>User's Guide</xsl:text> + <xsl:value-of select="header/title"/> </fo:block> <xsl:apply-templates select="description"> @@ -1382,16 +1383,15 @@ <!-- Func --> <xsl:template match="func"> <xsl:param name="partnum"/> - - <xsl:apply-templates select="name"/> - <xsl:apply-templates - select="name[string-length(@arity) > 0 and position()=last()]" - mode="types"/> - - <xsl:apply-templates select="fsummary|type|desc"> - <xsl:with-param name="partnum" select="$partnum"/> - </xsl:apply-templates> - + <fo:block space-before="1.5em"> + <xsl:apply-templates select="name"/> + <xsl:apply-templates + select="name[string-length(@arity) > 0 and position()=last()]" + mode="types"/> + <xsl:apply-templates select="fsummary|type|desc"> + <xsl:with-param name="partnum" select="$partnum"/> + </xsl:apply-templates> + </fo:block> </xsl:template> @@ -1424,14 +1424,10 @@ <xsl:param name="partnum"/> <xsl:choose> <xsl:when test="ancestor::cref"> - <fo:block id="{generate-id(nametext)}"> - <xsl:value-of select="ret"/><xsl:text> </xsl:text><xsl:value-of select="nametext"/> - </fo:block> + <fo:block id="{generate-id(nametext)}"><xsl:value-of select="ret"/><xsl:text></xsl:text><xsl:value-of select="nametext"/></fo:block> </xsl:when> <xsl:otherwise> - <fo:block id="{generate-id(.)}"> - <xsl:value-of select="."/> - </fo:block> + <fo:block id="{generate-id(.)}"><xsl:value-of select="."/></fo:block> </xsl:otherwise> </xsl:choose> </xsl:template> @@ -1468,7 +1464,7 @@ </fo:block> </fo:list-item-label> <fo:list-item-body start-indent="body-start()" format="justify"> - <fo:block font-weight="bold"> + <fo:block font-weight="bold" font-family="monospace" > <xsl:apply-templates> <xsl:with-param name="partnum" select="$partnum"/> </xsl:apply-templates> diff --git a/lib/erl_docgen/priv/xsl/db_pdf_params.xsl b/lib/erl_docgen/priv/xsl/db_pdf_params.xsl index 7de20f2092..4d9c08d0c3 100644 --- a/lib/erl_docgen/priv/xsl/db_pdf_params.xsl +++ b/lib/erl_docgen/priv/xsl/db_pdf_params.xsl @@ -3,7 +3,7 @@ # # %CopyrightBegin% # - # Copyright Ericsson AB 2009-2010. All Rights Reserved. + # Copyright Ericsson AB 2009-2011. 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 @@ -29,7 +29,7 @@ <!-- Fixed strings --> <xsl:variable name="companyname"><xsl:value-of select="/book/header/copyright/holder"/></xsl:variable> - <xsl:variable name="copyright">Copyright © <xsl:value-of select="/book/header/copyright/year[1]"/><xsl:text>-</xsl:text><xsl:value-of select="substring-after(substring-after($gendate, ' '), ' ')"/></xsl:variable> + <xsl:variable name="copyright">Copyright © <xsl:value-of select="/book/header/copyright/year[1]"/><xsl:text>-</xsl:text><xsl:value-of select="substring-after(normalize-space(substring-after($gendate, ' ')), ' ')"/></xsl:variable> <!-- FIXME: remove when appendix creation has been fixed --> <!-- xsl:variable name="appendix_title"--> @@ -316,8 +316,8 @@ <xsl:attribute name="font-family">monospace</xsl:attribute> <!-- xsl:attribute name="font-size">0.8em</xsl:attribute --> <xsl:attribute name="keep-with-next.within-page">always</xsl:attribute> - <xsl:attribute name="space-after">0.3em</xsl:attribute> - <xsl:attribute name="space-before">1.5em</xsl:attribute> + <xsl:attribute name="space-after">0.25em</xsl:attribute> + <!-- xsl:attribute name="space-before">1.5em</xsl:attribute --> </xsl:attribute-set> <xsl:attribute-set name="type-listblock"> diff --git a/lib/erl_docgen/vsn.mk b/lib/erl_docgen/vsn.mk index cafb5287de..79c8c570bf 100644 --- a/lib/erl_docgen/vsn.mk +++ b/lib/erl_docgen/vsn.mk @@ -1,2 +1,2 @@ -ERL_DOCGEN_VSN = 0.2.5 +ERL_DOCGEN_VSN = 0.2.6 diff --git a/lib/erl_interface/doc/src/ei.xml b/lib/erl_interface/doc/src/ei.xml index de4e4b4301..539e16d837 100644 --- a/lib/erl_interface/doc/src/ei.xml +++ b/lib/erl_interface/doc/src/ei.xml @@ -4,7 +4,7 @@ <cref> <header> <copyright> - <year>2001</year><year>2010</year> + <year>2001</year><year>2011</year> <holder>Ericsson AB. All Rights Reserved.</holder> </copyright> <legalnotice> @@ -581,9 +581,9 @@ ei_x_encode_empty_list(&x); <c><![CDATA[term]]></c> union, it is decoded, and the appropriate field in <c><![CDATA[term->value]]></c> is set, and <c><![CDATA[*index]]></c> is incremented by the term size.</p> - <p>The function returns 0 on successful decoding, -1 on error, - and 1 if the term seems alright, but does not fit in the - <c><![CDATA[term]]></c> structure. If it returns 0, the <c><![CDATA[index]]></c> + <p>The function returns 1 on successful decoding, -1 on error, + and 0 if the term seems alright, but does not fit in the + <c><![CDATA[term]]></c> structure. If it returns 1, the <c><![CDATA[index]]></c> will be incremented, and the <c><![CDATA[term]]></c> contains the decoded term.</p> <p>The <c><![CDATA[term]]></c> structure will contain the arity for a tuple diff --git a/lib/erl_interface/doc/src/erl_format.xml b/lib/erl_interface/doc/src/erl_format.xml index 5699485845..f036b12879 100644 --- a/lib/erl_interface/doc/src/erl_format.xml +++ b/lib/erl_interface/doc/src/erl_format.xml @@ -4,7 +4,7 @@ <cref> <header> <copyright> - <year>1996</year><year>2009</year> + <year>1996</year><year>2011</year> <holder>Ericsson AB. All Rights Reserved.</holder> </copyright> <legalnotice> @@ -105,7 +105,7 @@ erl_format("[{name,~a},{age,~i},{data,~w}]", values in <c><![CDATA[Term]]></c>. </p> <p>If <c><![CDATA[Term]]></c> and <c><![CDATA[Pattern]]></c> can be matched, the function returns a non-zero value and binds any unbound - variables in <c><![CDATA[Pattern]]></c>. If <c><![CDATA[Term]]></c><c><![CDATA[Pattern]]></c> do + variables in <c><![CDATA[Pattern]]></c>. If <c><![CDATA[Term]]></c> <c><![CDATA[Pattern]]></c> do not match, the function returns 0. For example:</p> <code type="none"><![CDATA[ ETERM *term, *pattern, *pattern2; diff --git a/lib/erl_interface/doc/src/notes.xml b/lib/erl_interface/doc/src/notes.xml index 7055fcd5c9..9a42ebfddf 100644 --- a/lib/erl_interface/doc/src/notes.xml +++ b/lib/erl_interface/doc/src/notes.xml @@ -30,6 +30,53 @@ </header> <p>This document describes the changes made to the Erl_interface application.</p> +<section><title>Erl_Interface 3.7.5</title> + + <section><title>Fixed Bugs and Malfunctions</title> + <list> + <item> + <p>Align ei buffer according to size of pointers</p> + <p> + Own Id: OTP-9390</p> + </item> + <item> + <p> XML files have been corrected. </p> + <p> + Own Id: OTP-9550 Aux Id: OTP-9541 </p> + </item> + <item> + <p> + Make comment and documentation reflect code in + erl_interface/src/misc/ei_decode_term.c (Thanks to Anneli + Cuss)</p> + <p> + Own Id: OTP-9559</p> + </item> + </list> + </section> + + + <section><title>Improvements and New Features</title> + <list> + <item> + <p> + ei: integer overflow in string/atom encoding</p> + <p> + ei_encode_atom() and ei_encode_string() use strlen() to + get the length of the buffer. As strlen() returns an + unsigned long long and both ei functions take a signed + integer, the length fields may overflow.</p> + <p> + Check so that the results of strlen can be held in a + signed integer. (Thanks to Michael Santos)</p> + <p> + Own Id: OTP-9530</p> + </item> + </list> + </section> + +</section> + <section><title>Erl_Interface 3.7.4</title> <section><title>Fixed Bugs and Malfunctions</title> diff --git a/lib/erl_interface/src/encode/encode_atom.c b/lib/erl_interface/src/encode/encode_atom.c index b1a4479034..6f41f045e0 100644 --- a/lib/erl_interface/src/encode/encode_atom.c +++ b/lib/erl_interface/src/encode/encode_atom.c @@ -1,7 +1,7 @@ /* * %CopyrightBegin% * - * Copyright Ericsson AB 1998-2009. All Rights Reserved. + * Copyright Ericsson AB 1998-2011. 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 diff --git a/lib/erl_interface/src/encode/encode_string.c b/lib/erl_interface/src/encode/encode_string.c index 593bbf2b6d..d00d2f3e81 100644 --- a/lib/erl_interface/src/encode/encode_string.c +++ b/lib/erl_interface/src/encode/encode_string.c @@ -1,7 +1,7 @@ /* * %CopyrightBegin% * - * Copyright Ericsson AB 1998-2009. All Rights Reserved. + * Copyright Ericsson AB 1998-2011. 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 diff --git a/lib/erl_interface/src/legacy/erl_fix_alloc.c b/lib/erl_interface/src/legacy/erl_fix_alloc.c index 20f3024e41..2ed0dd1470 100644 --- a/lib/erl_interface/src/legacy/erl_fix_alloc.c +++ b/lib/erl_interface/src/legacy/erl_fix_alloc.c @@ -1,7 +1,7 @@ /* * %CopyrightBegin% * - * Copyright Ericsson AB 1996-2009. All Rights Reserved. + * Copyright Ericsson AB 1996-2011. 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 @@ -109,6 +109,10 @@ void *erl_eterm_alloc (void) erl_eterm_state->freed--; } else if ((b = malloc(sizeof(*b))) == NULL) { erl_errno = ENOMEM; +#ifdef _REENTRANT + ei_mutex_unlock(erl_eterm_state->lock); +#endif /* _REENTRANT */ + return NULL; } erl_eterm_state->allocated++; b->free = 0; diff --git a/lib/erl_interface/src/misc/ei_decode_term.c b/lib/erl_interface/src/misc/ei_decode_term.c index bfb4571337..0b82ef0e35 100644 --- a/lib/erl_interface/src/misc/ei_decode_term.c +++ b/lib/erl_interface/src/misc/ei_decode_term.c @@ -25,8 +25,8 @@ #include "ei_decode_term.h" #include "putget.h" -/* Returns 0 on successful encoding, -1 on error, and 1 if the term seems - alright, but does not fit in the term structure. If it returns 0, the +/* Returns 1 on successful encoding, -1 on error, and 0 if the term seems + alright, but does not fit in the term structure. If it returns 1, the index will be incremented, and the term contains the decoded term. */ int ei_decode_ei_term(const char* buf, int* index, ei_term* term) @@ -111,10 +111,10 @@ int ei_decode_ei_term(const char* buf, int* index, ei_term* term) break; case ERL_SMALL_TUPLE_EXT: term->arity = get8(s); - break; /*return 0;*/ + break; case ERL_LARGE_TUPLE_EXT: term->arity = get32be(s); - break; /*return 0;*/ + break; case ERL_NIL_EXT: term->arity = 0; break; @@ -123,7 +123,7 @@ int ei_decode_ei_term(const char* buf, int* index, ei_term* term) return 0; case ERL_LIST_EXT: term->arity = get32be(s); - break; /*return 0;*/ + break; case ERL_BINARY_EXT: term->size = get32be(s); return 0; diff --git a/lib/erl_interface/src/registry/reg_dump.c b/lib/erl_interface/src/registry/reg_dump.c index 1e640fb506..d2854c10b5 100644 --- a/lib/erl_interface/src/registry/reg_dump.c +++ b/lib/erl_interface/src/registry/reg_dump.c @@ -215,6 +215,7 @@ static int mn_send_write(int fd, erlang_pid *mnesia, const char *key, ei_reg_obj else ei_encode_long(msgbuf,&index,(long)(obj->val.p)); /* just the pointer */ break; default: + if (dbuf) free(dbuf); return -1; } diff --git a/lib/erl_interface/src/registry/reg_restore.c b/lib/erl_interface/src/registry/reg_restore.c index 765c3f4314..7bc1c758af 100644 --- a/lib/erl_interface/src/registry/reg_restore.c +++ b/lib/erl_interface/src/registry/reg_restore.c @@ -303,6 +303,9 @@ int ei_reg_restore(int fd, ei_reg *reg, const char *mntab) if (mn_decode_insert(reg,msgbuf,&index,keybuf)) goto restore_failure; } + if (keybuf) free(keybuf); + if (dbuf) free(dbuf); + /* wait for unlink */ if (mn_unlink(fd)) return -1; @@ -310,8 +313,6 @@ int ei_reg_restore(int fd, ei_reg *reg, const char *mntab) ei_hash_foreach(reg->tab,clean_obj); /* success */ - if (keybuf) free(keybuf); - if (dbuf) free(dbuf); return 0; restore_failure: diff --git a/lib/erl_interface/test/all_SUITE_data/Makefile.src b/lib/erl_interface/test/all_SUITE_data/Makefile.src index 9be2360656..42d4c6f27f 100644 --- a/lib/erl_interface/test/all_SUITE_data/Makefile.src +++ b/lib/erl_interface/test/all_SUITE_data/Makefile.src @@ -30,6 +30,8 @@ CHMOD=chmod all: $(ALL_OBJS) +$(EI_COMMON_OBJS): gccifier@exe@ + @IFEQ@ (@erl_interface_cross_compile@, true) gccifier@exe@: $(CP) gccifier.sh gccifier@exe@ diff --git a/lib/erl_interface/test/port_call_SUITE_data/Makefile.src b/lib/erl_interface/test/port_call_SUITE_data/Makefile.src index dc7385ba32..a512494aa3 100644 --- a/lib/erl_interface/test/port_call_SUITE_data/Makefile.src +++ b/lib/erl_interface/test/port_call_SUITE_data/Makefile.src @@ -1,7 +1,7 @@ # # %CopyrightBegin% # -# Copyright Ericsson AB 2001-2009. All Rights Reserved. +# Copyright Ericsson AB 2001-2011. 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 @@ -26,7 +26,7 @@ LIBPATH = @erl_interface_libpath@ LIBERL = $(LIBPATH)/@erl_interface_lib_drv@ LIBEI = $(LIBPATH)/@erl_interface_eilib_drv@ -SHLIB_EXTRA_LDLIBS = $(LIBERL) $(LIBEI) +SHLIB_EXTRA_LDLIBS = $(LIBERL) $(LIBEI) @erl_interface_threadlib@ SHLIB_EXTRA_CFLAGS = -I@erl_interface_include@ -I../all_SUITE_data diff --git a/lib/erl_interface/vsn.mk b/lib/erl_interface/vsn.mk index 75f2b7101b..601958579c 100644 --- a/lib/erl_interface/vsn.mk +++ b/lib/erl_interface/vsn.mk @@ -1 +1 @@ -EI_VSN = 3.7.4 +EI_VSN = 3.7.5 diff --git a/lib/et/doc/src/notes.xml b/lib/et/doc/src/notes.xml index e3be8422c8..acc6120fcd 100644 --- a/lib/et/doc/src/notes.xml +++ b/lib/et/doc/src/notes.xml @@ -4,7 +4,7 @@ <chapter> <header> <copyright> - <year>2002</year><year>2010</year> + <year>2002</year><year>2011</year> <holder>Ericsson AB. All Rights Reserved.</holder> </copyright> <legalnotice> @@ -36,6 +36,20 @@ one section in this document. The title of each section is the version number of <c>Event Tracer (ET)</c>.</p> +<section><title>ET 1.4.4</title> + + <section><title>Fixed Bugs and Malfunctions</title> + <list> + <item> + <p> Dialyzer warnings have been fixed. </p> + <p> + Own Id: OTP-9470</p> + </item> + </list> + </section> + +</section> + <section><title>ET 1.4.3</title> <section><title>Fixed Bugs and Malfunctions</title> diff --git a/lib/et/vsn.mk b/lib/et/vsn.mk index ea98aeba11..239a72ad73 100644 --- a/lib/et/vsn.mk +++ b/lib/et/vsn.mk @@ -1 +1 @@ -ET_VSN = 1.4.3 +ET_VSN = 1.4.4 diff --git a/lib/eunit/AUTHORS b/lib/eunit/AUTHORS deleted file mode 100644 index b7c1426aff..0000000000 --- a/lib/eunit/AUTHORS +++ /dev/null @@ -1,2 +0,0 @@ -Richard Carlsson <[email protected]> -Micka�l R�mond <[email protected]> diff --git a/lib/eunit/Makefile b/lib/eunit/Makefile index ee69d5e8e0..cd85dff06a 100644 --- a/lib/eunit/Makefile +++ b/lib/eunit/Makefile @@ -13,8 +13,6 @@ # Portions created by Ericsson are Copyright 1999, Ericsson Utvecklings # AB. All Rights Reserved.'' # -# $Id$ -# include $(ERL_TOP)/make/target.mk include $(ERL_TOP)/make/$(TARGET)/otp.mk diff --git a/lib/eunit/doc/.gitignore b/lib/eunit/doc/.gitignore new file mode 100644 index 0000000000..7fcda5db42 --- /dev/null +++ b/lib/eunit/doc/.gitignore @@ -0,0 +1,4 @@ +*.html +stylesheet.css +erlang.png +edoc-info diff --git a/lib/eunit/doc/edoc-info b/lib/eunit/doc/edoc-info deleted file mode 100644 index 1c04b2ed1a..0000000000 --- a/lib/eunit/doc/edoc-info +++ /dev/null @@ -1,3 +0,0 @@ -{application,eunit}. -{packages,[]}. -{modules,[eunit,eunit_surefire]}. diff --git a/lib/eunit/doc/erlang.png b/lib/eunit/doc/erlang.png Binary files differdeleted file mode 100644 index 987a618e24..0000000000 --- a/lib/eunit/doc/erlang.png +++ /dev/null diff --git a/lib/eunit/doc/eunit.html b/lib/eunit/doc/eunit.html deleted file mode 100644 index a181d12ce3..0000000000 --- a/lib/eunit/doc/eunit.html +++ /dev/null @@ -1,71 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> -<html> -<head> -<title>Module eunit</title> -<link rel="stylesheet" type="text/css" href="stylesheet.css" title="EDoc"> -</head> -<body bgcolor="white"> -<div class="navbar"><a name="#navbar_top"></a><table width="100%" border="0" cellspacing="0" cellpadding="2" summary="navigation bar"><tr><td><a href="overview-summary.html" target="overviewFrame">Overview</a></td><td><a href="http://www.erlang.org/"><img src="erlang.png" align="right" border="0" alt="erlang logo"></a></td></tr></table></div> -<hr> - -<h1>Module eunit</h1> -<ul class="index"><li><a href="#description">Description</a></li><li><a href="#index">Function Index</a></li><li><a href="#functions">Function Details</a></li></ul>This module is the main EUnit user interface. -<p>Copyright � 2004-2009 Micka�l R�mond, Richard Carlsson</p> - -<p><b>Version:</b> 2.1.1, Apr 22 2009 22:37:19</p> -<p><b>Authors:</b> Micka�l R�mond (<a href="mailto:[email protected]"><tt>[email protected]</tt></a>) [<em>web site:</em> <tt><a href="http://www.process-one.net/" target="_top">http://www.process-one.net/</a></tt>], Richard Carlsson (<a href="mailto:[email protected]"><tt>[email protected]</tt></a>) [<em>web site:</em> <tt><a href="http://user.it.uu.se/~richardc/" target="_top">http://user.it.uu.se/~richardc/</a></tt>].</p> - -<h2><a name="description">Description</a></h2>This module is the main EUnit user interface. -<h2><a name="index">Function Index</a></h2> -<table width="100%" border="1" cellspacing="0" cellpadding="2" summary="function index"><tr><td valign="top"><a href="#start-0">start/0</a></td><td>Starts the EUnit server.</td></tr> -<tr><td valign="top"><a href="#stop-0">stop/0</a></td><td>Stops the EUnit server.</td></tr> -<tr><td valign="top"><a href="#test-1">test/1</a></td><td>Equivalent to <a href="#test-2"><tt>test(Tests, [])</tt></a>. -</td></tr> -<tr><td valign="top"><a href="#test-2">test/2</a></td><td>Runs a set of tests.</td></tr> -</table> - -<h2><a name="functions">Function Details</a></h2> - -<h3 class="function"><a name="start-0">start/0</a></h3> -<div class="spec"> -<p><tt>start() -> any()</tt></p> -</div><p>Starts the EUnit server. Normally, you don't need to call this - function; it is started automatically.</p> - -<h3 class="function"><a name="stop-0">stop/0</a></h3> -<div class="spec"> -<p><tt>stop() -> any()</tt></p> -</div><p>Stops the EUnit server. Normally, you don't need to call this - function.</p> - -<h3 class="function"><a name="test-1">test/1</a></h3> -<div class="spec"> -<p><tt>test(Tests) -> any()</tt></p> -</div><p>Equivalent to <a href="#test-2"><tt>test(Tests, [])</tt></a>.</p> - - -<h3 class="function"><a name="test-2">test/2</a></h3> -<div class="spec"> -<p><tt>test(Tests::term(), Options::[term()]) -> ok | {error, term()}</tt></p> -</div><p><p>Runs a set of tests. The format of <code>Tests</code> is described in the - section <a href="overview-summary.html#EUnit_test_representation">EUnit test - representation</a> of the overview.</p> - - Example: <pre> eunit:test(fred)</pre><p> runs all tests in the module <code>fred</code> - and also any tests in the module <code>fred_tests</code>, if that module exists.</p> - - Options: - <dl> - <dt><code>verbose</code></dt> - <dd>Displays more details about the running tests.</dd> - </dl> - - Options in the environment variable EUNIT are also included last in - the option list, i.e., have lower precedence than those in <code>Options</code>.</p> -<p><b>See also:</b> <a href="#test-1">test/1</a>.</p> -<hr> - -<div class="navbar"><a name="#navbar_bottom"></a><table width="100%" border="0" cellspacing="0" cellpadding="2" summary="navigation bar"><tr><td><a href="overview-summary.html" target="overviewFrame">Overview</a></td><td><a href="http://www.erlang.org/"><img src="erlang.png" align="right" border="0" alt="erlang logo"></a></td></tr></table></div> -<p><i>Generated by EDoc, Apr 22 2009, 22:37:19.</i></p> -</body> -</html> diff --git a/lib/eunit/doc/eunit_surefire.html b/lib/eunit/doc/eunit_surefire.html deleted file mode 100644 index f2ecbae572..0000000000 --- a/lib/eunit/doc/eunit_surefire.html +++ /dev/null @@ -1,78 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> -<html> -<head> -<title>Module eunit_surefire</title> -<link rel="stylesheet" type="text/css" href="stylesheet.css" title="EDoc"> -</head> -<body bgcolor="white"> -<div class="navbar"><a name="#navbar_top"></a><table width="100%" border="0" cellspacing="0" cellpadding="2" summary="navigation bar"><tr><td><a href="overview-summary.html" target="overviewFrame">Overview</a></td><td><a href="http://www.erlang.org/"><img src="erlang.png" align="right" border="0" alt="erlang logo"></a></td></tr></table></div> -<hr> - -<h1>Module eunit_surefire</h1> -<ul class="index"><li><a href="#description">Description</a></li><li><a href="#index">Function Index</a></li><li><a href="#functions">Function Details</a></li></ul>Surefire reports for EUnit (Format used by Maven and Atlassian -Bamboo for example to integrate test results). -<p>Copyright � 2009 Micka�l R�mond, Paul Guyot</p> - -<p><b>Behaviours:</b> <a href="eunit_listener.html"><tt>eunit_listener</tt></a>.</p> -<p><b>Authors:</b> Micka�l R�mond (<a href="mailto:[email protected]"><tt>[email protected]</tt></a>).</p> -<p><b>See also:</b> <a href="eunit.html">eunit</a>.</p> - -<h2><a name="description">Description</a></h2><p>Surefire reports for EUnit (Format used by Maven and Atlassian -Bamboo for example to integrate test results). Based on initial code -from Paul Guyot.</p> - - Example: Generate XML result file in the current directory: - <pre> eunit:test([fib, eunit_examples], - [{report,{eunit_surefire,[{dir,"."}]}}]).</pre> -<h2><a name="index">Function Index</a></h2> -<table width="100%" border="1" cellspacing="0" cellpadding="2" summary="function index"><tr><td valign="top"><a href="#handle_begin-3">handle_begin/3</a></td><td></td></tr> -<tr><td valign="top"><a href="#handle_cancel-3">handle_cancel/3</a></td><td></td></tr> -<tr><td valign="top"><a href="#handle_end-3">handle_end/3</a></td><td></td></tr> -<tr><td valign="top"><a href="#init-1">init/1</a></td><td></td></tr> -<tr><td valign="top"><a href="#start-0">start/0</a></td><td></td></tr> -<tr><td valign="top"><a href="#start-1">start/1</a></td><td></td></tr> -<tr><td valign="top"><a href="#terminate-2">terminate/2</a></td><td></td></tr> -</table> - -<h2><a name="functions">Function Details</a></h2> - -<h3 class="function"><a name="handle_begin-3">handle_begin/3</a></h3> -<div class="spec"> -<p><tt>handle_begin(X1, Data, St) -> any()</tt></p> -</div> - -<h3 class="function"><a name="handle_cancel-3">handle_cancel/3</a></h3> -<div class="spec"> -<p><tt>handle_cancel(X1, Data, St) -> any()</tt></p> -</div> - -<h3 class="function"><a name="handle_end-3">handle_end/3</a></h3> -<div class="spec"> -<p><tt>handle_end(X1, Data, St) -> any()</tt></p> -</div> - -<h3 class="function"><a name="init-1">init/1</a></h3> -<div class="spec"> -<p><tt>init(Options) -> any()</tt></p> -</div> - -<h3 class="function"><a name="start-0">start/0</a></h3> -<div class="spec"> -<p><tt>start() -> any()</tt></p> -</div> - -<h3 class="function"><a name="start-1">start/1</a></h3> -<div class="spec"> -<p><tt>start(Options) -> any()</tt></p> -</div> - -<h3 class="function"><a name="terminate-2">terminate/2</a></h3> -<div class="spec"> -<p><tt>terminate(X1, St) -> any()</tt></p> -</div> -<hr> - -<div class="navbar"><a name="#navbar_bottom"></a><table width="100%" border="0" cellspacing="0" cellpadding="2" summary="navigation bar"><tr><td><a href="overview-summary.html" target="overviewFrame">Overview</a></td><td><a href="http://www.erlang.org/"><img src="erlang.png" align="right" border="0" alt="erlang logo"></a></td></tr></table></div> -<p><i>Generated by EDoc, Apr 22 2009, 22:37:19.</i></p> -</body> -</html> diff --git a/lib/eunit/doc/index.html b/lib/eunit/doc/index.html deleted file mode 100644 index 9bd8e8cf6b..0000000000 --- a/lib/eunit/doc/index.html +++ /dev/null @@ -1,17 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> -<html> -<head> -<title>The eunit application</title> -</head> -<frameset cols="20%,80%"> -<frame src="modules-frame.html" name="modulesFrame" title=""> - -<frame src="overview-summary.html" name="overviewFrame" title=""> -<noframes> -<h2>This page uses frames</h2> -<p>Your browser does not accept frames. -<br>You should go to the <a href="overview-summary.html">non-frame version</a> instead. -</p> -</noframes> -</frameset> -</html>
\ No newline at end of file diff --git a/lib/eunit/doc/modules-frame.html b/lib/eunit/doc/modules-frame.html deleted file mode 100644 index a484e99d4c..0000000000 --- a/lib/eunit/doc/modules-frame.html +++ /dev/null @@ -1,13 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> -<html> -<head> -<title>The eunit application</title> -<link rel="stylesheet" type="text/css" href="stylesheet.css" title="EDoc"> -</head> -<body bgcolor="white"> -<h2 class="indextitle">Modules</h2> -<table width="100%" border="0" summary="list of modules"> -<tr><td><a href="eunit.html" target="overviewFrame" class="module">eunit</a></td></tr> -<tr><td><a href="eunit_surefire.html" target="overviewFrame" class="module">eunit_surefire</a></td></tr></table> -</body> -</html>
\ No newline at end of file diff --git a/lib/eunit/doc/overview-summary.html b/lib/eunit/doc/overview-summary.html deleted file mode 100644 index ea7beba8b3..0000000000 --- a/lib/eunit/doc/overview-summary.html +++ /dev/null @@ -1,1032 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> -<html> -<head> -<title>EUnit - a Lightweight Unit Testing Framework for Erlang -</title> -<link rel="stylesheet" type="text/css" href="stylesheet.css" title="EDoc"> -</head> -<body bgcolor="white"> -<div class="navbar"><a name="#navbar_top"></a><table width="100%" border="0" cellspacing="0" cellpadding="2" summary="navigation bar"><tr><td><a href="overview-summary.html" target="overviewFrame">Overview</a></td><td><a href="http://www.erlang.org/"><img src="erlang.png" align="right" border="0" alt="erlang logo"></a></td></tr></table></div> -<h1>EUnit - a Lightweight Unit Testing Framework for Erlang -</h1> -<p>Copyright � 2004-2007 Micka�l R�mond, Richard Carlsson</p> -<p><b>Version:</b> 2.1.1, Apr 22 2009 22:37:19 -</p> -<p><b>Authors:</b> Richard Carlsson (<a href="mailto:[email protected]"><tt>[email protected]</tt></a>) [<em>web site:</em> <tt><a href="http://user.it.uu.se/~richardc/" target="_top">http://user.it.uu.se/~richardc/</a></tt>], Micka�l R�mond (<a href="mailto:[email protected]"><tt>[email protected]</tt></a>) [<em>web site:</em> <tt><a href="http://www.process-one.net/" target="_top">http://www.process-one.net/</a></tt>].</p> -<p>EUnit is a unit testing framework for Erlang. It is very powerful -and flexible, is easy to use, and has small syntactical overhead.</p> - -<ul> -<li><a href="#Unit_testing">Unit testing</a></li> -<li><a href="#Terminology">Terminology</a></li> -<li><a href="#Getting_started">Getting started</a></li> -<li><a href="#EUnit_macros">EUnit macros</a></li> -<li><a href="#EUnit_test_representation">EUnit test representation</a></li> -</ul> - -<p>EUnit builds on ideas from the family of unit testing frameworks for -Object Oriented languages that originated with JUnit by Beck and Gamma -(and Beck's previous framework SUnit for Smalltalk). However, EUnit uses -techniques more adapted to functional and concurrent programming, and is -typically less verbose than its relatives.</p> - -<p>Although EUnit uses many preprocessor macros, they have been designed to -be as nonintrusive as possible, and should not cause conflicts with -existing code. Adding EUnit tests to a module should thus not normally -require changing existing code. Furthermore, tests that only exercise -the exported functions of a module can always be placed in a completely -separate module, avoiding any conflicts entirely.</p> - -<h3><a name="Unit_testing">Unit testing</a></h3> - -<p>Unit Testing is testing of individual program "units" in relative -isolation. There is no particular size requirement: a unit can be a -function, a module, a process, or even a whole application, but the most -typical testing units are individual functions or modules. In order to -test a unit, you specify a set of individual tests, set up the smallest -necessary environment for being able to run those tests (often, you -don't need to do any setup at all), you run the tests and collect the -results, and finally you do any necessary cleanup so that the test can -be run again later. A Unit Testing Framework tries to help you in each -stage of this process, so that it is easy to write tests, easy to run -them, and easy to see which tests failed (so you can fix the bugs).</p> - -<h4><a name="Advantages_of_unit_testing">Advantages of unit testing</a></h4> - -<dl> - <dt>Reduces the risks of changing the program</dt> - <dd>Most programs will be modified during their lifetime: bugs will be - fixed, features will be added, optimizations may become necessary, or - the code will need to be refactored or cleaned up in other ways to - make it easier to work with. But every change to a working program is - a risk of introducing new bugs - or reintroducing bugs that had - previously been fixed. Having a set of unit tests that you can run - with very little effort makes it easy to know that the code still - works as it should (this use is called <em>regression testing</em>; - see <a href="#Terminology">Terminology</a>). This goes a long way to reduce the - resistance to changing and refactoring code.</dd> - <dt>Helps guide and speed up the development process</dt> - <dd>By focusing on getting the code to pass the tests, the programmer - can become more productive, not overspecify or get lost in premature - optimizations, and create code that is correct from the very beginning - (so-called <em>test-driven development</em>; see <a href="#Terminology">Terminology</a>).</dd> - <dt>Helps separate interface from implementation</dt> - <dd>When writing tests, the programmer may discover dependencies - (in order to get the tests to run) that ought not to be there, and - which need to be abstracted away to get a cleaner design. This helps - eliminate bad dependencies before they spread throughout the - code.</dd> - <dt>Makes component integration easier</dt> - <dd>By testing in a bottom-up fashion, beginning with the smallest - program units and creating a confidence in that they work as they - should, it becomes easier to test that a higher-level component, - consisting of several such units, also behaves according to - specification (known as <em>integration testing</em>; see <a href="#Terminology">Terminology</a>).</dd> - <dt>Is self-documenting</dt> - <dd>The tests can be read as documentation, typically showing both - examples of correct and incorrect usage, along with the expected - consequences.</dd> -</dl> - -<h3><a name="Terminology">Terminology</a></h3> - -<dl> - <dt>Unit testing</dt> - <dd>Testing that a program unit behaves as it is supposed to do (in - itself), according to its specifications. Unit tests have an important - function as regression tests, when the program later is modified for - some reason, since they check that the program still behaves according - to specification.</dd> - <dt>Regression testing</dt> - <dd>Running a set of tests after making changes to a program, to check - that the program behaves as it did before the changes (except, of - course, for any intentional changes in behaviour). Unit tests are - important as regression tests, but regression testing can involve more - than just unit testing, and may also test behaviour that might not be - part of the normal specification (such as bug-for-bug-compatibility). - </dd> - <dt>Integration testing</dt> - <dd>Testing that a number of individually developed program units - (assumed to already have been separately unit tested) work together as - expected. Depending on the system being developed, integration testing - may be as simple as "just another level of unit testing", but might - also involve other kinds of tests (compare <em>system testing</em>). -</dd> - <dt>System testing</dt> - <dd>Testing that a complete system behaves according to its - specification. Specifically, system testing should not require knowing - any details about the implementation. It typically involves testing - many different aspects of the system behaviour apart from the basic - functionality, such as performance, usability, and reliability.</dd> - <dt>Test-driven development</dt> - <dd>A program development technique where you continuously write tests - <em>before</em> you implement the code that is supposed to pass those - tests. This can help you focus on solving the right problems, and not - make a more complicated implementation than necessary, by letting the - unit tests determine when a program is "done": if it fulfils its - specifications, there is no need to keep adding functionality.</dd> - <dt>Mock object</dt> - <dd>Sometimes, testing some unit <code>A</code> (e.g., a function) requires that - it collaborates somehow with some other unit <code>B</code> (perhaps being passed - as an argument, or by reference) - but <code>B</code> has not been implemented - yet. A "mock object" - an object which, for the purposes of testing - <code>A</code>, looks and behaves like a real <code>B</code> - might then be used instead. - (This is of course only useful if it would be significantly more work - to implement a real <code>B</code> than to create a mock object.)</dd> - <dt>Test case</dt> - <dd>A single, well-defined test, that somehow can be uniquely - identified. When executed, the test case either <em>passes</em> or - <em>fails</em>; the test report should identify exactly which test - cases failed.</dd> - <dt>Test suite</dt> - <dd>A collection of test cases, generally with a specific, common - target for testing, such as a single function, module, or subsystem. A - test suite may also be recursively composed by smaller test - suites.</dd> -</dl> - -<h3><a name="Getting_started">Getting started</a></h3> -<ul> - <li><a href="#Including_the_EUnit_header_file">Including the EUnit header file</a></li> - <li><a href="#Writing_simple_test_functions">Writing simple test functions</a></li> - <li><a href="#Running_EUnit">Running EUnit</a></li> - <li><a href="#Writing_test_generating_functions">Writing test generating functions</a></li> - <li><a href="#An_example">An example</a></li> - <li><a href="#Disabling_testing">Disabling testing</a></li> - <li><a href="#Avoiding_compile-time_dependency_on_EUnit">Avoiding compile-time dependency on EUnit</a></li> -</ul> - -<h4><a name="Including_the_EUnit_header_file">Including the EUnit header file</a></h4> - -The simplest way to use EUnit in an Erlang module is to add the -following line at the beginning of the module (after the <code>-module</code> -declaration, but before any function definitions): -<pre> -include_lib("eunit/include/eunit.hrl").</pre> - -This will have the following effect: -<ul> - <li>Creates an exported function <code>test()</code> (unless testing is turned - off, and the module does not already contain a test() function), that - can be used to run all the unit tests defined in the module</li> - <li>Causes all functions whose names match <code>..._test()</code> or <code>..._test_()</code> - to be automatically exported from the module (unless testing is - turned off, or the <code>EUNIT_NOAUTO</code> macro is defined)</li> - <li>Makes all the preprocessor macros of EUnit available, to help - writing tests</li> -</ul> - -<strong>Note:</strong> For <code>-include_lib(...)</code> to work, the Erlang -module search path <em>must</em> contain a directory whose name ends in -<code>eunit/ebin</code> (pointing to the <code>ebin</code> subdirectory of the EUnit -installation directory). If EUnit is installed as <code>lib/eunit</code> under your -Erlang/OTP system directory, its <code>ebin</code> subdirectory will be -automatically added to the search path when Erlang starts. Otherwise, -you need to add the directory explicitly, by passing a <code>-pa</code> flag to the -<code>erl</code> or <code>erlc</code> command. For example, a Makefile could contain the -following action for compiling <code>.erl</code> files: -<pre> erlc -pa "path/to/eunit/ebin" $(ERL_COMPILE_FLAGS) -o$(EBIN) $<</pre> -or if you want Eunit to always be available when you run Erlang -interactively, you can add a line like the following to your -<code>$HOME/.erlang</code> file: -<pre> code:add_path("/path/to/eunit/ebin").</pre> - -<h4><a name="Writing_simple_test_functions">Writing simple test functions</a></h4> - -<p>The EUnit framework makes it extremely easy to write unit tests in -Erlang. There are a few different ways of writing them, though, so we -start with the simplest:</p> - -<p>A function with a name ending in <code>..._test()</code> is recognized by EUnit as -a simple test function - it takes no arguments, and its execution either -succeeds (returning some arbitrary value that EUnit will throw away), or -fails by throwing an exception of some kind (or by not terminating, in -which case it will be aborted after a while).</p> - -An example of a simple test function could be the following: -<pre> reverse_test() -> lists:reverse([1,2,3]).</pre><p> -This just tests that the function <code>lists:reverse(List)</code> does not crash -when <code>List</code> is <code>[1,2,3]</code>. It is not a great test, but many people write -simple functions like this one to test the basic functionality of their -code, and those tests can be used directly by EUnit, without changes, -as long as their function names match.</p> - -<h5><a name="Use_exceptions_to_signal_failure">Use exceptions to signal failure</a></h5> - -To write more interesting tests, we need to make them crash (throw an -exception) when they don't get the result they expect. A simple way of -doing this is to use pattern matching with <code>=</code>, as in the following -examples: -<pre> reverse_nil_test() -> [] = lists:reverse([]). - reverse_one_test() -> [1] = lists:reverse([1]). - reverse_two_test() -> [2,1] = lists:reverse([1,2]).</pre><p> -If there was some bug in <code>lists:reverse/1</code> that made it return something -other than <code>[2,1]</code> when it got <code>[1,2]</code> as input, then the last test -above would throw a <code>badmatch</code> error. The first two (we assume they do -not get a <code>badmatch</code>) would simply return <code>[]</code> and <code>[1]</code>, respectively, -so both succeed. (Note that EUnit is not psychic: if you write a test -that returns a value, even if it is the wrong value, EUnit will consider -it a success. You must make sure that the test is written so that it -causes a crash if the result is not what it should be.)</p> - -<h5><a name="Using_assert_macros">Using assert macros</a></h5> - -If you want to use Boolean operators for your tests, the <code>assert</code> -macro comes in handy (see <a href="#EUnit_macros">EUnit macros</a> for details): -<pre> length_test() -> ?assert(length([1,2,3]) =:= 3).</pre><p> -The <code>?assert(Expression)</code> macro will evaluate <code>Expression</code>, and if that -does not evaluate to <code>true</code>, it will throw an exception; otherwise it -just returns <code>ok</code>. In the above example, the test will thus fail if the -call to <code>length</code> does not return 3.</p> - -<h4><a name="Running_EUnit">Running EUnit</a></h4> - -<p>If you have added the declaration -<code>-include_lib("eunit/include/eunit.hrl")</code> to your module, as described -above, you only need to compile the module, and run the automatically -exported function <code>test()</code>. For example, if your module was named <code>m</code>, -then calling <code>m:test()</code> will run EUnit on all the tests defined in the -module. You do not need to write <code>-export</code> declarations for the test -functions. This is all done by magic.</p> - -<p>You can also use the function <a href="eunit.html#test-1"><code>eunit:test/1</code></a> to run arbitrary -tests, for example to try out some more advanced test descriptors (see -<a href="#EUnit_test_representation">EUnit test representation</a>). For example, running -<code>eunit:test(m)</code> does the same thing as the auto-generated function -<code>m:test()</code>, while <code>eunit:test({inparallel, m})</code> runs the same test -cases but executes them all in parallel.</p> - -<h5><a name="Putting_tests_in_separate_modules">Putting tests in separate modules</a></h5> - -<p>If you want to separate your test code from your normal code (at least -for testing the exported functions), you can simply write the test -functions in a module named <code>m_tests</code> (note: not <code>m_test</code>), if your -module is named <code>m</code>. Then, whenever you ask EUnit to test the module -<code>m</code>, it will also look for the module <code>m_tests</code> and run those tests as -well. See <code>ModuleName</code> in the section <a href="#Primitives">Primitives</a> for details.</p> - -<h5><a name="EUnit_captures_standard_output">EUnit captures standard output</a></h5> - -<p>If your test code writes to the standard output, you may be surprised to -see that the text does not appear on the console when the tests are -running. This is because EUnit captures all standard output from test -functions (this also includes setup and cleanup functions, but not -generator functions), so that it can be included in the test report if -errors occur. To bypass EUnit and print text directly to the console -while testing, you can write to the <code>user</code> output stream, as in -<code>io:format(user, "~w", [Term])</code>. The recommended way of doing this is to -use the EUnit <a href="#Debugging_macros">Debugging macros</a>, which make it much simpler.</p> - -<h4><a name="Writing_test_generating_functions">Writing test generating functions</a></h4> - -<p>A drawback of simple test functions is that you must write a separate -function (with a separate name) for each test case. A more compact way -of writing tests (and much more flexible, as we shall see), is to write -functions that <em>return</em> tests, instead of <em>being</em> tests.</p> - -<p>A function with a name ending in <code>..._test_()</code> (note the final -underscore) is recognized by EUnit as a <em>test generator</em> -function. Test generators return a <em>representation</em> of a <em>set -of tests</em> to be executed by EUnit.</p> - -<h5><a name="Representing_a_test_as_data">Representing a test as data</a></h5> - -The most basic representation of a test is a single fun-expression that -takes no arguments. For example, the following test generator: -<pre> basic_test_() -> - fun () -> ?assert(1 + 1 =:= 2) end.</pre> -will have the same effect as the following simple test: -<pre> simple_test() -> - ?assert(1 + 1 =:= 2).</pre><p> -(in fact, EUnit will handle all simple tests just like it handles -fun-expressions: it will put them in a list, and run them one by one).</p> - -<h5><a name="Using_macros_to_write_tests">Using macros to write tests</a></h5> - -To make tests more compact and readable, as well as automatically add -information about the line number in the source code where a test -occurred (and reduce the number of characters you have to type), you can -use the <code>_test</code> macro (note the initial underscore character), like -this: -<pre> basic_test_() -> - ?_test(?assert(1 + 1 =:= 2)).</pre><p> -The <code>_test</code> macro takes any expression (the "body") as argument, and -places it within a fun-expression (along with some extra information). -The body can be any kind of test expression, just like the body of a -simple test function.</p> - -<h5><a name="Underscore-prefixed_macros_create_test_objects">Underscore-prefixed macros create test objects</a></h5> - -But this example can be made even shorter! Most test macros, such as the -family of <code>assert</code> macros, have a corresponding form with an initial -underscore character, which automatically adds a <code>?_test(...)</code> wrapper. -The above example can then simply be written: -<pre> basic_test_() -> - ?_assert(1 + 1 =:= 2).</pre><p> -which has exactly the same meaning (note the <code>_assert</code> instead of -<code>assert</code>). You can think of the initial underscore as signalling -<em>test object</em>.</p> - -<h4><a name="An_example">An example</a></h4> - -Sometimes, an example says more than a thousand words. The following -small Erlang module shows how EUnit can be used in practice. -<pre> -module(fib). - -export([fib/1]). - -include_lib("eunit/include/eunit.hrl"). - - fib(0) -> 1; - fib(1) -> 1; - fib(N) when N > 1 -> fib(N-1) + fib(N-2). - - fib_test_() -> - [?_assert(fib(0) =:= 1), - ?_assert(fib(1) =:= 1), - ?_assert(fib(2) =:= 2), - ?_assert(fib(3) =:= 3), - ?_assert(fib(4) =:= 5), - ?_assert(fib(5) =:= 8), - ?_assertException(error, function_clause, fib(-1)), - ?_assert(fib(31) =:= 2178309) - ].</pre> - -<p>(Author's note: When I first wrote this example, I happened to write a -<code>*</code> instead of <code>+</code> in the <code>fib</code> function. Of course, this showed up -immediately when I ran the tests.)</p> - -<p>See <a href="#EUnit_test_representation">EUnit test representation</a> for a full list of all the ways -you can specify test sets in EUnit.</p> - -<h4><a name="Disabling_testing">Disabling testing</a></h4> - -Testing can be turned off by defining the <code>NOTEST</code> macro when compiling, -for example as an option to <code>erlc</code>, as in: -<pre> erlc -DNOTEST my_module.erl</pre> -or by adding a macro definition to the code, <em>before the EUnit header -file is included</em>: -<pre> -define(NOTEST, 1).</pre><p> -(the value is not important, but should typically be 1 or <code>true</code>). -Note that unless the <code>EUNIT_NOAUTO</code> macro is defined, disabling testing -will also automatically strip all test functions from the code, except -for any that are explicitly declared as exported.</p> - -For instance, to use EUnit in your application, but with testing turned -off by default, put the following lines in a header file: -<pre> -define(NOTEST, true). - -include_lib("eunit/include/eunit.hrl").</pre> -and then make sure that every module of your application includes that -header file. This means that you have a only a single place to modify in -order to change the default setting for testing. To override the <code>NOTEST</code> -setting without modifying the code, you can define <code>TEST</code> in a compiler -option, like this: -<pre> erlc -DTEST my_module.erl</pre> - -<p>See <a href="#Compilation_control_macros">Compilation control macros</a> for details about these -macros.</p> - -<h4><a name="Avoiding_compile-time_dependency_on_EUnit">Avoiding compile-time dependency on EUnit</a></h4> - -If you are distributing the source code for your application for other -people to compile and run, you probably want to ensure that the code -compiles even if EUnit is not available. Like the example in the -previous section, you can put the following lines in a common header -file: -<pre> -ifdef(TEST). - -include_lib("eunit/include/eunit.hrl"). - -endif.</pre><p> -and, of course, also make sure that you place all test code that uses -EUnit macros within <code>-ifdef(TEST)</code> or <code>-ifdef(EUNIT)</code> sections.</p> - - -<h3><a name="EUnit_macros">EUnit macros</a></h3> - -<p>Although all the functionality of EUnit is avaliable even without the -use of preprocessor macros, the EUnit header file defines a number of -such macros in order to make it as easy as possible to write unit tests -as compactly as possible and without getting too many details in the -way.</p> - -<p>Except where explicitly stated, using EUnit macros will never introduce -run-time dependencies on the EUnit library code, regardless of whether -your code is compiled with testing enabled or disabled.</p> - -<ul> -<li><a href="#Basic_macros">Basic macros</a></li> -<li><a href="#Compilation_control_macros">Compilation control macros</a></li> -<li><a href="#Utility_macros">Utility macros</a></li> -<li><a href="#Assert_macros">Assert macros</a></li> -<li><a href="#Macros_for_running_external_commands">Macros for running external commands</a></li> -<li><a href="#Debugging_macros">Debugging macros</a></li> -</ul> - -<h4><a name="Basic_macros">Basic macros</a></h4> - -<dl> -<dt><code>_test(Expr)</code></dt> -<dd>Turns <code>Expr</code> into a "test object", by wrapping it in a -fun-expression and a source line number. Technically, this is the same -as <code>{?LINE, fun () -> (Expr) end}</code>. -</dd> -</dl> - -<h4><a name="Compilation_control_macros">Compilation control macros</a></h4> - -<dl> -<dt><code>EUNIT</code></dt> -<dd>This macro is always defined to <code>true</code> whenever EUnit is enabled at -compile time. This is typically used to place testing code within -conditional compilation, as in: -<pre> -ifdef(EUNIT). - % test code here - ... - -endif.</pre> -e.g., to ensure that the code can be compiled without including the -EUnit header file, when testing is disabled. See also the macros <code>TEST</code> -and <code>NOTEST</code>. -</dd> - -<dt><code>EUNIT_NOAUTO</code></dt> -<dd>If this macro is defined, the automatic exporting or stripping of -test functions will be disabled. -</dd> - -<dt><code>TEST</code></dt> -<dd><p>This macro is always defined (to <code>true</code>, unless previously defined -by the user to have another value) whenever EUnit is enabled at compile -time. This can be used to place testing code within conditional -compilation; see also the macros <code>NOTEST</code> and <code>EUNIT</code>.</p> - -<p>For testing code that is strictly dependent on EUnit, it may be -preferable to use the <code>EUNIT</code> macro for this purpose, while for code -that uses more generic testing conventions, using the <code>TEST</code> macro may -be preferred.</p> - -The <code>TEST</code> macro can also be used to override the <code>NOTEST</code> macro. If -<code>TEST</code> is defined <em>before</em> the EUnit header file is -included (even if <code>NOTEST</code> is also defined), then the code will be -compiled with EUnit enabled. -</dd> - -<dt><code>NOTEST</code></dt> -<dd><p>This macro is always defined (to <code>true</code>, unless previously defined -by the user to have another value) whenever EUnit is <em>disabled</em> -at compile time. (Compare the <code>TEST</code> macro.)</p> - -This macro can also be used for conditional compilation, but is more -typically used to disable testing: If <code>NOTEST</code> is defined -<em>before</em> the EUnit header file is included, and <code>TEST</code> -is <em>not</em> defined, then the code will be compiled with EUnit -disabled. See also <a href="#Disabling_testing">Disabling testing</a>. -</dd> - -<dt><code>NOASSERT</code></dt> -<dd>If this macro is defined, the assert macros will have no effect, -when testing is also disabled. See <a href="#Assert_macros">Assert macros</a>. When -testing is enabled, the assert macros are always enabled automatically -and cannot be disabled. -</dd> - -<dt><code>ASSERT</code></dt> -<dd>If this macro is defined, it overrides the NOASSERT macro, forcing -the assert macros to always be enabled regardless of other settings. -</dd> - -<dt><code>NODEBUG</code></dt> -<dd>If this macro is defined, the debugging macros will have no effect. -See <a href="#Debugging_macros">Debugging macros</a>. <code>NODEBUG</code> also implies <code>NOASSERT</code>, -unless testing is enabled. -</dd> - -<dt><code>DEBUG</code></dt> -<dd>If this macro is defined, it overrides the NODEBUG macro, forcing -the debugging macros to be enabled. -</dd> -</dl> - -<h4><a name="Utility_macros">Utility macros</a></h4> - -<p>The following macros can make tests more compact and readable:</p> - -<dl> -<dt><code>LET(Var,Arg,Expr)</code></dt> -<dd>Creates a local binding <code>Var = Arg</code> in <code>Expr</code>. (This is the same as -<code>(fun(Var)->(Expr)end)(Arg)</code>.) Note that the binding is not exported -outside of <code>Expr</code>, and that within <code>Expr</code>, this binding of <code>Var</code> will -shadow any binding of <code>Var</code> in the surrounding scope. -</dd> -<dt><code>IF(Cond,TrueCase,FalseCase)</code></dt> -<dd>Evaluates <code>TrueCase</code> if <code>Cond</code> evaluates to <code>true</code>, or otherwise -evaluates <code>FalseCase</code> if <code>Cond</code> evaluates to <code>false</code>. (This is the same -as <code>(case (Cond) of true->(TrueCase); false->(FalseCase) end)</code>.) Note -that it is an error if <code>Cond</code> does not yield a boolean value. -</dd> -</dl> - -<h4><a name="Assert_macros">Assert macros</a></h4> - -<p>(Note that these macros also have corresponding forms which start with -an "<code>_</code>" (underscore) character, as in <code>?_assert(BoolExpr)</code>, that create -a "test object" instead of performing the test immediately. This is -equivalent to writing <code>?_test(assert(BoolExpr))</code>, etc.)</p> - -<p>If the macro <code>NOASSERT</code> is defined before the EUnit header file is -included, these macros have no effect when testing is also disabled; see -<a href="#Compilation_control_macros">Compilation control macros</a> for details.</p> - -<dl> -<dt><code>assert(BoolExpr)</code></dt> -<dd><p>Evaluates the expression <code>BoolExpr</code>, if testing is enabled. Unless -the result is <code>true</code>, an informative exception will be generated. If -there is no exception, the result of the macro expression is the atom -<code>ok</code>, and the value of <code>BoolExpr</code> is discarded. If testing is disabled, -the macro will not generate any code except the atom <code>ok</code>, and -<code>BoolExpr</code> will not be evaluated.</p> - -Typical usage: -<pre> ?assert(f(X, Y) =:= [])</pre> - -The <code>assert</code> macro can be used anywhere in a program, not just in unit -tests, to check pre/postconditions and invariants. For example: -<pre> some_recursive_function(X, Y, Z) -> - ?assert(X + Y > Z), - ...</pre> -</dd> -<dt><code>assertNot(BoolExpr)</code></dt> -<dd>Equivalent to <code>assert(not (BoolExpr))</code>. -</dd> -<dt><code>assertMatch(GuardedPattern, Expr)</code></dt> -<dd><p>Evaluates <code>Expr</code> and matches the result against <code>GuardedPattern</code>, if -testing is enabled. If the match fails, an informative exception will be -generated; see the <code>assert</code> macro for further details. <code>GuardedPattern</code> -can be anything that you can write on the left hand side of the <code>-></code> -symbol in a case-clause, except that it cannot contain comma-separated -guard tests.</p> - -<p>The main reason for using <code>assertMatch</code> also for simple matches, instead -of matching with <code>=</code>, is that it produces more detailed error messages.</p> - -Examples: -<pre> ?assertMatch({found, {fred, _}}, lookup(bloggs, Table))</pre> -<pre> ?assertMatch([X|_] when X > 0, binary_to_list(B))</pre> -</dd> -<dt><code>assertEqual(Expect, Expr)</code></dt> -<dd><p>Evaluates the expressions <code>Expect</code> and <code>Expr</code> and compares the -results for equality, if testing is enabled. If the values are not -equal, an informative exception will be generated; see the <code>assert</code> -macro for further details.</p> - -<p><code>assertEqual</code> is more suitable than than <code>assertMatch</code> when the -left-hand side is a computed value rather than a simple pattern, and -gives more details than <code>?assert(Expect =:= Expr)</code>.</p> - -Examples: -<pre> ?assertEqual("b" ++ "a", lists:reverse("ab"))</pre> -<pre> ?assertEqual(foo(X), bar(Y))</pre> -</dd> -<dt><code>assertException(ClassPattern, TermPattern, Expr)</code></dt> -<dt><code>assertError(TermPattern, Expr)</code></dt> -<dt><code>assertExit(TermPattern, Expr)</code></dt> -<dt><code>assertThrow(TermPattern, Expr)</code></dt> -<dd><p>Evaluates <code>Expr</code>, catching any exception and testing that it matches -the expected <code>ClassPattern:TermPattern</code>. If the match fails, or if no -exception is thrown by <code>Expr</code>, an informative exception will be -generated; see the <code>assert</code> macro for further details. The -<code>assertError</code>, <code>assertExit</code>, and <code>assertThrow</code> macros, are equivalent to -using <code>assertException</code> with a <code>ClassPattern</code> of <code>error</code>, <code>exit</code>, or -<code>throw</code>, respectively.</p> - -Examples: -<pre> ?assertError(badarith, X/0)</pre> -<pre> ?assertExit(normal, exit(normal))</pre> -<pre> ?assertException(throw, {not_found,_}, throw({not_found,42}))</pre> -</dd> -</dl> - -<h4><a name="Macros_for_running_external_commands">Macros for running external commands</a></h4> - -<p>Keep in mind that external commands are highly dependent on the -operating system. You can use the standard library function <code>os:type()</code> -in test generator functions, to produce different sets of tests -depending on the current operating system.</p> - -<p>Note: these macros introduce a run-time dependency on the EUnit library -code, if compiled with testing enabled.</p> - -<dl> -<dt><code>assertCmd(CommandString)</code></dt> -<dd><p>Runs <code>CommandString</code> as an external command, if testing is enabled. -Unless the returned status value is 0, an informative exception will be -generated. If there is no exception, the result of the macro expression -is the atom <code>ok</code>. If testing is disabled, the macro will not generate -any code except the atom <code>ok</code>, and the command will not be executed.</p> - -Typical usage: -<pre> ?assertCmd("mkdir foo")</pre> -</dd> -<dt><code>assertCmdStatus(N, CommandString)</code></dt> -<dd>Like the <code>assertCmd(CommandString)</code> macro, but generates an -exception unless the returned status value is <code>N</code>. -</dd> -<dt><code>assertCmdOutput(Text, CommandString)</code></dt> -<dd>Runs <code>CommandString</code> as an external command, if testing is enabled. -Unless the output produced by the command exactly matches the specified -string <code>Text</code>, an informative exception will be generated. (Note that -the output is normalized to use a single LF character as line break on -all platforms.) If there is no exception, the result of the macro -expression is the atom <code>ok</code>. If testing is disabled, the macro will not -generate any code except the atom <code>ok</code>, and the command will not be -executed. -</dd> -<dt><code>cmd(CommandString)</code></dt> -<dd><p>Runs <code>CommandString</code> as an external command. Unless the returned -status value is 0 (indicating success), an informative exception will be -generated; otherwise, the result of the macro expression is the output -produced by the command, as a flat string. The output is normalized to -use a single LF character as line break on all platforms.</p> - -<p>This macro is useful in the setup and cleanup sections of fixtures, -e.g., for creating and deleting files or perform similar operating -system specific tasks, to make sure that the test system is informed of -any failures.</p> - -A Unix-specific example: -<pre> {setup, - fun () -> ?cmd("mktemp") end, - fun (FileName) -> ?cmd("rm " ++ FileName) end, - ...}</pre> -</dd> -</dl> - -<h4><a name="Debugging_macros">Debugging macros</a></h4> - -<p>To help with debugging, EUnit defines several useful macros for printing -messages directly to the console (rather than to the standard output). -Furthermore, these macros all use the same basic format, which includes -the file and line number where they occur, making it possible in some -development environments (e.g., when running Erlang in an Emacs buffer) -to simply click on the message and jump directly to the corresponding -line in the code.</p> - -<p>If the macro <code>NODEBUG</code> is defined before the EUnit header file is -included, these macros have no effect; see -<a href="#Compilation_control_macros">Compilation control macros</a> for details.</p> - -<dl> -<dt><code>debugHere</code></dt> -<dd>Just prints a marker showing the current file and line number. Note -that this is an argument-less macro. The result is always <code>ok</code>.</dd> -<dt><code>debugMsg(Text)</code></dt> -<dd>Outputs the message <code>Text</code> (which can be a plain string, an IO-list, -or just an atom). The result is always <code>ok</code>.</dd> -<dt><code>debugFmt(FmtString, Args)</code></dt> -<dd>This formats the text like <code>io:format(FmtString, Args)</code> and outputs -it like <code>debugMsg</code>. The result is always <code>ok</code>.</dd> -<dt><code>debugVal(Expr)</code></dt> -<dd>Prints both the source code for <code>Expr</code> and its current value. E.g., -<code>?debugVal(f(X))</code> might be displayed as "<code>f(X) = 42</code>". (Large terms are -shown truncated.) The result is always the value of <code>Expr</code>, so this -macro can be wrapped around any expression to display its value when -the code is compiled with debugging enabled.</dd> -<dt><code>debugTime(Text,Expr)</code></dt> -<dd>Prints <code>Text</code> and the wall clock time for evaluation of <code>Expr</code>. The -result is always the value of <code>Expr</code>, so this macro can be wrapped -around any expression to show its run time when the code is compiled -with debugging enabled. For example, <code>List1 = ?debugTime("sorting", -lists:sort(List))</code> might show as "<code>sorting: 0.015 s</code>".</dd> - -</dl> - - -<h3><a name="EUnit_test_representation">EUnit test representation</a></h3> - -<p>The way EUnit represents tests and test sets as data is flexible, -powerful, and concise. This section describes the representation in -detail.</p> - -<ul> -<li><a href="#Simple_test_objects">Simple test objects</a></li> -<li><a href="#Test_sets_and_deep_lists">Test sets and deep lists</a></li> -<li><a href="#Titles">Titles</a></li> -<li><a href="#Primitives">Primitives</a></li> -<li><a href="#Control">Control</a></li> -<li><a href="#Fixtures">Fixtures</a></li> -<li><a href="#Lazy_generators">Lazy generators</a></li> -</ul> - -<h4><a name="Simple_test_objects">Simple test objects</a></h4> - -A <em>simple test object</em> is one of the following: -<ul> - <li>A nullary functional value (i.e., a fun that takes zero - arguments). Examples: -<pre> fun () -> ... end</pre> -<pre> fun some_function/0</pre> -<pre> fun some_module:some_function/0</pre> - </li> - <li>A pair of atoms <code>{ModuleName, FunctionName}</code>, referring to the - function <code>ModuleName:FunctionName/0</code></li> - <li>A pair <code>{LineNumber, SimpleTest}</code>, where <code>LineNumber</code> is a - nonnegative integer and <code>SimpleTest</code> is another simple test - object. <code>LineNumber</code> should indicate the source line of the test. - Pairs like this are usually only created via <code>?_test(...)</code> macros; - see <a href="#Basic_macros">Basic macros</a>.</li> -</ul><p> -In brief, a simple test object consists of a single function that takes -no arguments (possibly annotated with some additional metadata, i.e., a -line number). Evaluation of the function either <em>succeeds</em>, by -returning some value (which is ignored), or <em>fails</em>, by throwing -an exception.</p> - -<h4><a name="Test_sets_and_deep_lists">Test sets and deep lists</a></h4> - -<p>A test set can be easily created by placing a sequence of test objects -in a list. If <code>T_1</code>, ..., <code>T_N</code> are individual test objects, then <code>[T_1, -..., T_N]</code> is a test set consisting of those objects (in that order).</p> - -<p>Test sets can be joined in the same way: if <code>S_1</code>, ..., <code>S_K</code> are test -sets, then <code>[S_1, ..., S_K]</code> is also a test set, where the tests of -<code>S_i</code> are ordered before those of <code>S_(i+1)</code>, for each subset <code>S_i</code>.</p> - -<p>Thus, the main representation of test sets is <em>deep lists</em>, and -a simple test object can be viewed as a test set containing only a -single test; there is no difference between <code>T</code> and <code>[T]</code>.</p> - -<p>A module can also be used to represent a test set; see <code>ModuleName</code> -under <a href="#Primitives">Primitives</a> below.</p> - -<h4><a name="Titles">Titles</a></h4> - -<p>Any test or test set <code>T</code> can be annotated with a title, by wrapping it -in a pair <code>{Title, T}</code>, where <code>Title</code> is a string. For convenience, any -test which is normally represented using a tuple can simply be given a -title string as the first element, i.e., writing <code>{"The Title", ...}</code> -instead of adding an extra tuple wrapper as in <code>{"The Title", {...}}</code>.</p> - - -<h4><a name="Primitives">Primitives</a></h4> - -The following are primitives, which do not contain other test sets as -arguments: -<dl> -<dt><code>ModuleName::atom()</code> -</dt> -<dd>A single atom represents a module name, and is equivalent to -<code>{module, ModuleName}</code>. This is often used as in the call -<code>eunit:test(some_module)</code>. -</dd> -<dt><code>{module, ModuleName::atom()}</code> -</dt> -<dd><p>This composes a test set from the exported test functions of the -named module, i.e., those functions with arity zero whose names end -with <code>_test</code> or <code>_test_</code>. Basically, the <code>..._test()</code> functions become -simple tests, while the <code>..._test_()</code> functions become generators.</p> - -In addition, EUnit will also look for another module whose name is -<code>ModuleName</code> plus the suffix <code>_tests</code>, and if it exists, all the tests -from that module will also be added. (If <code>ModuleName</code> already contains -the suffix <code>_tests</code>, this is not done.) E.g., the specification -<code>{module, mymodule}</code> will run all tests in the modules <code>mymodule</code> and -<code>mymodule_tests</code>. Typically, the <code>_tests</code> module should only contain -test cases that use the public interface of the main module (and no -other code). -</dd> -<dt><code>{application, AppName::atom(), Info::list()}</code> -</dt> -<dd>This is a normal Erlang/OTP application descriptor, as found in an - <code>.app</code> file. The resulting test set consists of the modules listed in - the <code>modules</code> entry in <code>Info</code>. -</dd> -<dt><code>{application, AppName::atom()}</code> -</dt> -<dd>This creates a test set from all the modules belonging to the -specified application, by consulting the application's <code>.app</code> file -(see <code>{file, FileName}</code>), or if no such file exists, by testing all -object files in the application's <tt>ebin</tt>-directory (see <code>{dir, -Path}</code>); if that does not exist, the <code>code:lib_dir(AppName)</code> directory -is used. -</dd> -<dt><code>Path::string()</code> -</dt> -<dd>A single string represents the path of a file or directory, and is -equivalent to <code>{file, Path}</code>, or <code>{dir, Path}</code>, respectively, depending -on what <code>Path</code> refers to in the file system. -</dd> -<dt><code>{file, FileName::string()}</code> -</dt> -<dd><p>If <code>FileName</code> has a suffix that indicates an object file (<code>.beam</code>), -EUnit will try to reload the module from the specified file and test it. -Otherwise, the file is assumed to be a text file containing test -specifications, which will be read using the standard library function -<code>file:path_consult/2</code>.</p> - -Unless the file name is absolute, the file is first searched for -relative to the current directory, and then using the normal search path -(<code>code:get_path()</code>). This means that the names of typical "app" files -can be used directly, without a path, e.g., <code>"mnesia.app"</code>. -</dd> -<dt><code>{dir, Path::string()}</code> -</dt> -<dd>This tests all object files in the specified directory, as if they -had been individually specified using <code>{file, FileName}</code>. -</dd> -<dt><code>{generator, GenFun::(() -> Tests)}</code> -</dt> -<dd>The generator function <code>GenFun</code> is called to produce a test -set. -</dd> -<dt><code>{generator, ModuleName::atom(), FunctionName::atom()}</code> -</dt> -<dd>The function <code>ModuleName:FunctionName()</code> is called to produce a test -set. -</dd> -<dt><code>{with, X::any(), [AbstractTestFun::((any()) -> any())]}</code> -</dt> -<dd>Distributes the value <code>X</code> over the unary functions in the list, -turning them into nullary test functions. An <code>AbstractTestFun</code> is like -an ordinary test fun, but takes one argument instead of zero - it's -basically missing some information before it can be a proper test. In -practice, <code>{with, X, [F_1, ..., F_N]}</code> is equivalent to <code>[fun () -> -F_1(X) end, ..., fun () -> F_N(X) end]</code>. This is particularly useful if -your abstract test functions are already implemented as proper -functions: <code>{with, FD, [fun filetest_a/1, fun filetest_b/1, fun -filetest_c/1]}</code> is equivalent to <code>[fun () -> filetest_a(FD) end, fun () --> filetest_b(FD) end, fun () -> filetest_c(FD) end]</code>, but much more -compact. See also <a href="#Fixtures">Fixtures</a>, below. -</dd> -</dl> - -<h4><a name="Control">Control</a></h4> - -The following representations control how and where tests are executed: -<dl> -<dt><code>{spawn, Tests}</code></dt> -<dd>Runs the specified tests in a separate subprocess, while the current -test process waits for it to finish. This is useful for tests that need -a fresh, isolated process state. (Note that EUnit always starts at least -one such a subprocess automatically; tests are never executed by the -caller's own process.)</dd> -<dt><code>{spawn, Node::atom(), Tests}</code></dt> -<dd>Like <code>{spawn, Tests}</code>, but runs the specified tests on the given -Erlang node.</dd> -<dt><code>{timeout, Time::number(), Tests}</code></dt> -<dd>Runs the specified tests under the given timeout. Time is in -seconds; e.g., 60 means one minute and 0.1 means 1/10th of a second. If -the timeout is exceeded, the unfinished tests will be forced to -terminate. Note that if a timeout is set around a fixture, it includes -the time for setup and cleanup, and if the timeout is triggered, the -entire fixture is abruptly terminated (without running the -cleanup).</dd> -<dt><code>{inorder, Tests}</code></dt> -<dd>Runs the specified tests in strict order. Also see <code>{inparallel, -Tests}</code>. By default, tests are neither marked as <code>inorder</code> or -<code>inparallel</code>, but may be executed as the test framework chooses.</dd> -<dt><code>{inparallel, Tests}</code></dt> -<dd>Runs the specified tests in parallel (if possible). Also see -<code>{inorder, Tests}</code>.</dd> -<dt><code>{inparallel, N::integer(), Tests}</code></dt> -<dd>Like <code>{inparallel, Tests}</code>, but running no more than <code>N</code> subtests -simultaneously.</dd> -</dl> - -<h4><a name="Fixtures">Fixtures</a></h4> - -<p>A "fixture" is some state that is necessary for a particular set of -tests to run. EUnit's support for fixtures makes it easy to set up such -state locally for a test set, and automatically tear it down again when -the test set is finished, regardless of the outcome (success, failures, -timeouts, etc.).</p> - -<p>To make the descriptions simpler, we first list some definitions: -<center> -<table border="0" cellspacing="4"> -<tr> -<td><code>Setup</code></td><td><code>() -> (R::any())</code></td> -</tr> -<tr> -<td><code>SetupX</code></td><td><code>(X::any()) -> (R::any())</code></td> -</tr> -<tr> -<td><code>Cleanup</code></td><td><code>(R::any()) -> any()</code></td> -</tr> -<tr> -<td><code>CleanupX</code></td><td><code>(X::any(), R::any()) -> any()</code></td> -</tr> -<tr> -<td><code>Instantiator</code></td><td><code>((R::any()) -> Tests) | {with, [AbstractTestFun::((any()) -> any())]}</code></td> -</tr> -<tr> -<td><code>Where</code></td><td><code>local | spawn | {spawn, Node::atom()}</code></td> -</tr> -</table> -</center> -(these are explained in more detail further below.)</p> - -The following representations specify fixture handling for test sets: -<dl> -<dt><code>{setup, Setup, Tests | Instantiator}</code></dt> -<dt><code>{setup, Setup, Cleanup, Tests | Instantiator}</code></dt> -<dt><code>{setup, Where, Setup, Tests | Instantiator}</code></dt> -<dt><code>{setup, Where, Setup, Cleanup, Tests | Instantiator}</code></dt> -<dd><code>setup</code> sets up a single fixture for running all of the specified -tests, with optional teardown afterwards. The arguments are described in -detail below. -</dd> -<dt><code>{node, Node::atom(), Tests | Instantiator}</code></dt> -<dt><code>{node, Node::atom(), Args::string(), Tests | Instantiator}</code></dt> -<dd><code>node</code> is like <code>setup</code>, but with a built-in behaviour: it starts a -slave node for the duration of the tests. The atom <code>Node</code> should have -the format <code>[email protected]</code>, and <code>Args</code> are the optional -arguments to the new node; see <code>slave:start_link/3</code> for details. -</dd> -<dt><code>{foreach, Where, Setup, Cleanup, [Tests | Instantiator]}</code></dt> -<dt><code>{foreach, Setup, Cleanup, [Tests | Instantiator]}</code></dt> -<dt><code>{foreach, Where, Setup, [Tests | Instantiator]}</code></dt> -<dt><code>{foreach, Setup, [Tests | Instantiator]}</code></dt> -<dd><code>foreach</code> is used to set up a fixture and optionally tear it down -afterwards, repeated for each single one of the specified test sets. -</dd> -<dt><code>{foreachx, Where, SetupX, CleanupX, - Pairs::[{X::any(), ((X::any(), R::any()) -> Tests)}]}</code></dt> -<dt><code>{foreachx, SetupX, CleanupX, Pairs}</code></dt> -<dt><code>{foreachx, Where, SetupX, Pairs}</code></dt> -<dt><code>{foreachx, SetupX, Pairs}</code></dt> -<dd><code>foreachx</code> is like <code>foreach</code>, but uses a list of pairs, each -containing an extra argument <code>X</code> and an extended instantiator function. -</dd> -</dl> - -<p>A <code>Setup</code> function is executed just before any of the specified tests -are run, and a <code>Cleanup</code> function is executed when no more of the -specified tests will be run, regardless of the reason. A <code>Setup</code> -function takes no argument, and returns some value which will be passed -as it is to the <code>Cleanup</code> function. A <code>Cleanup</code> function should do -whatever necessary and return some arbitrary value, such as the atom -<code>ok</code>. (<code>SetupX</code> and <code>CleanupX</code> functions are similar, but receive one -additional argument: some value <code>X</code>, which depends on the context.) When -no <code>Cleanup</code> function is specified, a dummy function is used which has -no effect.</p> - -<p>An <code>Instantiator</code> function receives the same value as the <code>Cleanup</code> -function, i.e., the value returned by the <code>Setup</code> function. It should -then behave much like a generator (see <a href="#Primitives">Primitives</a>), and -return a test set whose tests have been <em>instantiated</em> with the -given value. A special case is the syntax <code>{with, [AbstractTestFun]}</code> -which represents an instantiator function that distributes the value -over a list of unary functions; see <a href="#Primitives">Primitives</a>: <code>{with, X, -[...]}</code> for more details.</p> - -A <code>Where</code> term controls how the specified tests are executed. The -default is <code>spawn</code>, which means that the current process handles the -setup and teardown, while the tests are executed in a subprocess. -<code>{spawn, Node}</code> is like <code>spawn</code>, but runs the subprocess on the -specified node. <code>local</code> means that the current process will handle both -setup/teardown and running the tests - the drawback is that if a test -times out so that the process is killed, the <em>cleanup will not be -performed</em>; hence, avoid this for persistent fixtures such as file -operations. In general, 'local' should only be used when: -<ul> - <li>the setup/teardown needs to be executed by the process that will - run the tests;</li> - <li>no further teardown needs to be done if the process is killed - (i.e., no state outside the process was affected by the setup)</li> -</ul> - -<h4><a name="Lazy_generators">Lazy generators</a></h4> - -<p>Sometimes, it can be convenient not to produce the whole set of test -descriptions before the testing begins; for example, if you want to -generate a huge amount of tests that would take up too much space to -keep in memory all at once.</p> - -<p>It is fairly easy to write a generator which, each time it is called, -either produces an empty list if it is done, or otherwise produces a -list containing a single test case plus a new generator which will -produce the rest of the tests. This demonstrates the basic pattern:</p> - -<pre> lazy_test_() -> - lazy_gen(10000). - - lazy_gen(N) -> - {generator, - fun () -> - if N > 0 -> - [?_test(...) - | lazy_gen(N-1)]; - true -> - [] - end - end}.</pre> - -<p>When EUnit traverses the test representation in order to run the tests, -the new generator will not be called to produce the next test until the -previous test has been executed.</p> - -Note that it is easiest to write this kind of recursive generator using -a help function, like the <code>lazy_gen/1</code> function above. It can also be -written using a recursive fun, if you prefer to not clutter your -function namespace and are comfortable with writing that kind of code. - -<hr> -<div class="navbar"><a name="#navbar_bottom"></a><table width="100%" border="0" cellspacing="0" cellpadding="2" summary="navigation bar"><tr><td><a href="overview-summary.html" target="overviewFrame">Overview</a></td><td><a href="http://www.erlang.org/"><img src="erlang.png" align="right" border="0" alt="erlang logo"></a></td></tr></table></div> -<p><i>Generated by EDoc, Apr 22 2009, 22:37:19.</i></p> -</body> -</html> diff --git a/lib/eunit/doc/overview.edoc b/lib/eunit/doc/overview.edoc index 2583f0be25..ad449cb6fc 100644 --- a/lib/eunit/doc/overview.edoc +++ b/lib/eunit/doc/overview.edoc @@ -5,8 +5,7 @@ @title EUnit - a Lightweight Unit Testing Framework for Erlang -@author Richard Carlsson <[email protected]> - [http://user.it.uu.se/~richardc/] +@author Richard Carlsson <[email protected]> @author Micka�l R�mond <[email protected]> [http://www.process-one.net/] @copyright 2004-2007 Micka�l R�mond, Richard Carlsson diff --git a/lib/eunit/doc/packages-frame.html b/lib/eunit/doc/packages-frame.html deleted file mode 100644 index 52b45534f5..0000000000 --- a/lib/eunit/doc/packages-frame.html +++ /dev/null @@ -1,11 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> -<html> -<head> -<title>The eunit application</title> -<link rel="stylesheet" type="text/css" href="stylesheet.css" title="EDoc"> -</head> -<body bgcolor="white"> -<h2 class="indextitle">Packages</h2> -<table width="100%" border="0" summary="list of packages"></table> -</body> -</html>
\ No newline at end of file diff --git a/lib/eunit/doc/src/notes.xml b/lib/eunit/doc/src/notes.xml index a02d76c5b9..e68330482c 100644 --- a/lib/eunit/doc/src/notes.xml +++ b/lib/eunit/doc/src/notes.xml @@ -32,6 +32,63 @@ </header> <p>This document describes the changes made to the EUnit application.</p> +<section><title>Eunit 2.2.1</title> + + <section><title>Fixed Bugs and Malfunctions</title> + <list> + <item> + <p> + Generate separate surefire XMLs for each test suite</p> + <p> + Previously the test cases of all test suites (=modules) + were put in one and the same surefire report XML thereby + breaking the principle of least astonishment and making + post analysis harder. Assume the following layout:</p> + <p> + src/x.erl src/y.erl test/x_tests.erl test/y_tests.erl</p> + <p> + The results for both x_tests and y_tests were written to + only one report grouped under either module x or y + (seemingly randomly).</p> + <p> + Now two reports, one for module x and one for y are + generated. (Thanks to Klas Johansson)</p> + <p> + Own Id: OTP-9465</p> + </item> + <item> + <p> + Updated to EUnit version 2.2.0</p> + <p> + New macros assertNotMatch(Guard, Expr), + assertNotEqual(Unexpected, Expr), and + assertNotException(Class, Term, Expr). </p> + <p> + The debugMsg macro now also prints the pid of the current + process.</p> + <p> + When testing all modules in a directory, tests in + Module_tests.erl are no longer executed twice.</p> + <p> + The use of regexp internally has been replaced with re. + (Thanks to Richard Carlsson)</p> + <p> + Own Id: OTP-9505</p> + </item> + <item> + <p> + Removed some never-matching clauses reported by dialyzer + Updated author e-mails and homepages Removed cvs keywords + from files Removed files that should not be checked in + (Thanks to Richard Carlsson)</p> + <p> + Own Id: OTP-9591</p> + </item> + </list> + </section> + +</section> + <section><title>Eunit 2.1.7</title> <section><title>Fixed Bugs and Malfunctions</title> diff --git a/lib/eunit/doc/stylesheet.css b/lib/eunit/doc/stylesheet.css deleted file mode 100644 index e426a90483..0000000000 --- a/lib/eunit/doc/stylesheet.css +++ /dev/null @@ -1,55 +0,0 @@ -/* standard EDoc style sheet */ -body { - font-family: Verdana, Arial, Helvetica, sans-serif; - margin-left: .25in; - margin-right: .2in; - margin-top: 0.2in; - margin-bottom: 0.2in; - color: #000000; - background-color: #ffffff; -} -h1,h2 { - margin-left: -0.2in; -} -div.navbar { - background-color: #add8e6; - padding: 0.2em; -} -h2.indextitle { - padding: 0.4em; - background-color: #add8e6; -} -h3.function,h3.typedecl { - background-color: #add8e6; - padding-left: 1em; -} -div.spec { - margin-left: 2em; - background-color: #eeeeee; -} -a.module,a.package { - text-decoration:none -} -a.module:hover,a.package:hover { - background-color: #eeeeee; -} -ul.definitions { - list-style-type: none; -} -ul.index { - list-style-type: none; - background-color: #eeeeee; -} - -/* - * Minor style tweaks - */ -ul { - list-style-type: square; -} -table { - border-collapse: collapse; -} -td { - padding: 3 -} diff --git a/lib/eunit/examples/Makefile b/lib/eunit/examples/Makefile index d1b5bac224..48ec2ebf2b 100644 --- a/lib/eunit/examples/Makefile +++ b/lib/eunit/examples/Makefile @@ -13,8 +13,6 @@ # Portions created by Ericsson are Copyright 1999, Ericsson Utvecklings # AB. All Rights Reserved.'' # -# $Id$ -# include $(ERL_TOP)/make/target.mk include $(ERL_TOP)/make/$(TARGET)/otp.mk diff --git a/lib/eunit/include/eunit.hrl b/lib/eunit/include/eunit.hrl index 493ba60a2d..db68d8ae60 100644 --- a/lib/eunit/include/eunit.hrl +++ b/lib/eunit/include/eunit.hrl @@ -13,8 +13,6 @@ %% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 %% USA %% -%% $Id: eunit.hrl 337 2009-03-09 08:38:28Z rcarlsson $ -%% %% Copyright (C) 2004-2006 Micka�l R�mond, Richard Carlsson %% Including this file turns on testing and defines TEST, unless NOTEST diff --git a/lib/eunit/src/eunit.erl b/lib/eunit/src/eunit.erl index 15fc3bdf32..95857e83c8 100644 --- a/lib/eunit/src/eunit.erl +++ b/lib/eunit/src/eunit.erl @@ -13,13 +13,10 @@ %% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 %% USA %% -%% $Id: eunit.erl 339 2009-04-05 14:10:47Z rcarlsson $ -%% %% @copyright 2004-2009 Micka�l R�mond, Richard Carlsson %% @author Micka�l R�mond <[email protected]> %% [http://www.process-one.net/] -%% @author Richard Carlsson <[email protected]> -%% [http://user.it.uu.se/~richardc/] +%% @author Richard Carlsson <[email protected]> %% @version {@version}, {@date} {@time} %% @doc This module is the main EUnit user interface. diff --git a/lib/eunit/src/eunit_autoexport.erl b/lib/eunit/src/eunit_autoexport.erl index 7b153c1194..099bcb222e 100644 --- a/lib/eunit/src/eunit_autoexport.erl +++ b/lib/eunit/src/eunit_autoexport.erl @@ -13,9 +13,7 @@ %% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 %% USA %% -%% $Id: eunit_autoexport.erl 329 2009-03-01 11:23:32Z rcarlsson $ -%% -%% @author Richard Carlsson <[email protected]> +%% @author Richard Carlsson <[email protected]> %% @copyright 2006 Richard Carlsson %% @private %% @see eunit diff --git a/lib/eunit/src/eunit_data.erl b/lib/eunit/src/eunit_data.erl index 288dd74ddf..392d378a0e 100644 --- a/lib/eunit/src/eunit_data.erl +++ b/lib/eunit/src/eunit_data.erl @@ -13,9 +13,7 @@ %% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 %% USA %% -%% $Id$ -%% -%% @author Richard Carlsson <[email protected]> +%% @author Richard Carlsson <[email protected]> %% @copyright 2006 Richard Carlsson %% @private %% @see eunit diff --git a/lib/eunit/src/eunit_internal.hrl b/lib/eunit/src/eunit_internal.hrl index 8d0ac30bd7..92694ec39b 100644 --- a/lib/eunit/src/eunit_internal.hrl +++ b/lib/eunit/src/eunit_internal.hrl @@ -1,11 +1,7 @@ %% ------------------------------------------------------------------- %% File: eunit_internal.hrl %% -%% $Id: eunit_internal.hrl 329 2009-03-01 11:23:32Z rcarlsson $ -%% -%% @author Richard Carlsson <[email protected]> -%% @copyright 2006 Richard Carlsson -%% @doc +%% Copyright (C) 2006 Richard Carlsson <[email protected]> -define(SERVER, eunit_server). -define(DEFAULT_TEST_SUFFIX, "_test"). diff --git a/lib/eunit/src/eunit_lib.erl b/lib/eunit/src/eunit_lib.erl index 45d2387e7b..1c41e229c5 100644 --- a/lib/eunit/src/eunit_lib.erl +++ b/lib/eunit/src/eunit_lib.erl @@ -13,13 +13,10 @@ %% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 %% USA %% -%% $Id: eunit_lib.erl 339 2009-04-05 14:10:47Z rcarlsson $ -%% %% @copyright 2004-2007 Micka�l R�mond, Richard Carlsson %% @author Micka�l R�mond <[email protected]> %% [http://www.process-one.net/] -%% @author Richard Carlsson <[email protected]> -%% [http://user.it.uu.se/~richardc/] +%% @author Richard Carlsson <[email protected]> %% @private %% @see eunit %% @doc Utility functions for eunit diff --git a/lib/eunit/src/eunit_listener.erl b/lib/eunit/src/eunit_listener.erl index 20faecbf01..ecaac424a2 100644 --- a/lib/eunit/src/eunit_listener.erl +++ b/lib/eunit/src/eunit_listener.erl @@ -13,9 +13,7 @@ %% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 %% USA %% -%% $Id$ -%% -%% @author Richard Carlsson <[email protected]> +%% @author Richard Carlsson <[email protected]> %% @copyright 2009 Richard Carlsson %% @private %% @see eunit diff --git a/lib/eunit/src/eunit_proc.erl b/lib/eunit/src/eunit_proc.erl index e2d51d8bd5..ec7d93fd48 100644 --- a/lib/eunit/src/eunit_proc.erl +++ b/lib/eunit/src/eunit_proc.erl @@ -13,9 +13,7 @@ %% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 %% USA %% -%% $Id$ -%% -%% @author Richard Carlsson <[email protected]> +%% @author Richard Carlsson <[email protected]> %% @copyright 2006 Richard Carlsson %% @private %% @see eunit diff --git a/lib/eunit/src/eunit_serial.erl b/lib/eunit/src/eunit_serial.erl index d9ccae86f9..80e79116e3 100644 --- a/lib/eunit/src/eunit_serial.erl +++ b/lib/eunit/src/eunit_serial.erl @@ -13,9 +13,7 @@ %% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 %% USA %% -%% $Id$ -%% -%% @author Richard Carlsson <[email protected]> +%% @author Richard Carlsson <[email protected]> %% @copyright 2006 Richard Carlsson %% @private %% @see eunit diff --git a/lib/eunit/src/eunit_server.erl b/lib/eunit/src/eunit_server.erl index 2cdfef2668..2002930abb 100644 --- a/lib/eunit/src/eunit_server.erl +++ b/lib/eunit/src/eunit_server.erl @@ -13,9 +13,7 @@ %% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 %% USA %% -%% $Id: eunit_server.erl 267 2008-10-19 18:48:03Z rcarlsson $ -%% -%% @author Richard Carlsson <[email protected]> +%% @author Richard Carlsson <[email protected]> %% @copyright 2006 Richard Carlsson %% @private %% @see eunit diff --git a/lib/eunit/src/eunit_striptests.erl b/lib/eunit/src/eunit_striptests.erl index 606e44b286..c6ade389ba 100644 --- a/lib/eunit/src/eunit_striptests.erl +++ b/lib/eunit/src/eunit_striptests.erl @@ -13,10 +13,8 @@ %% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 %% USA %% -%% $Id: eunit_striptests.erl 329 2009-03-01 11:23:32Z rcarlsson $ -%% -%% @author Richard Carlsson <[email protected]> -%% @author Eric Merritt <[email protected]> +%% @author Richard Carlsson <[email protected]> +%% @author Eric Merritt <[email protected]> %% @copyright 2006 Richard Carlsson, Eric Merritt %% @private %% @see eunit diff --git a/lib/eunit/src/eunit_surefire.erl b/lib/eunit/src/eunit_surefire.erl index 6e0a447105..2a6cbca14d 100644 --- a/lib/eunit/src/eunit_surefire.erl +++ b/lib/eunit/src/eunit_surefire.erl @@ -13,9 +13,7 @@ %% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 %% USA %% -%% $Id: $ -%% -%% @author Micka�l R�mond <[email protected]> +%% @author Micka�l R�mond <[email protected]> %% @copyright 2009 Micka�l R�mond, Paul Guyot %% @see eunit %% @doc Surefire reports for EUnit (Format used by Maven and Atlassian @@ -58,7 +56,7 @@ { name :: chars(), description :: chars(), - result :: ok | {failed, tuple()} | {aborted, tuple()} | {skipped, tuple()}, + result :: ok | {failed, tuple()} | {aborted, tuple()} | {skipped, term()}, time :: integer(), output :: binary() }). @@ -311,7 +309,6 @@ write_testcase( output = Output}, FileDescriptor) -> DescriptionAttr = case Description of - <<>> -> []; [] -> []; _ -> [<<" description=\"">>, escape_attr(Description), <<"\"">>] end, @@ -320,7 +317,6 @@ write_testcase( <<"\" name=\"">>, escape_attr(Name), <<"\"">>, DescriptionAttr], ContentAndEndTag = case {Result, Output} of - {ok, []} -> [<<"/>">>, ?NEWLINE]; {ok, <<>>} -> [<<"/>">>, ?NEWLINE]; _ -> [<<">">>, ?NEWLINE, format_testcase_result(Result), format_testcase_output(Output), ?INDENT, <<"</testcase>">>, ?NEWLINE] end, @@ -369,7 +365,6 @@ format_testcase_result({skipped, Term}) -> %% Empty output is simply the empty string. %% Other output is inside a <system-out> xml tag. %% ---------------------------------------------------------------------------- -format_testcase_output([]) -> []; format_testcase_output(Output) -> [?INDENT, ?INDENT, <<"<system-out>">>, escape_text(Output), ?NEWLINE, ?INDENT, ?INDENT, <<"</system-out>">>, ?NEWLINE]. @@ -387,8 +382,6 @@ format_time_s([Digit1, Digit2, Digit3 | Tail]) -> [lists:reverse(Tail), $., Digi %% Escape a suite's name to generate the filename. %% Remark: we might overwrite another testsuite's file. %% ---------------------------------------------------------------------------- -escape_suitename([Head | _T] = List) when is_list(Head) -> - escape_suitename(lists:flatten(List)); escape_suitename(Binary) when is_binary(Binary) -> escape_suitename(binary_to_list(Binary)); escape_suitename("module '" ++ String) -> @@ -396,7 +389,6 @@ escape_suitename("module '" ++ String) -> escape_suitename(String) -> escape_suitename(String, []). -escape_suitename(Binary, Acc) when is_binary(Binary) -> escape_suitename(binary_to_list(Binary), Acc); escape_suitename([], Acc) -> lists:reverse(Acc); escape_suitename([$ | Tail], Acc) -> escape_suitename(Tail, [$_ | Acc]); escape_suitename([$' | Tail], Acc) -> escape_suitename(Tail, Acc); diff --git a/lib/eunit/src/eunit_test.erl b/lib/eunit/src/eunit_test.erl index 9ac1d1e7d9..bca49ae626 100644 --- a/lib/eunit/src/eunit_test.erl +++ b/lib/eunit/src/eunit_test.erl @@ -13,9 +13,7 @@ %% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 %% USA %% -%% $Id: eunit_test.erl 336 2009-03-06 14:43:21Z rcarlsson $ -%% -%% @author Richard Carlsson <[email protected]> +%% @author Richard Carlsson <[email protected]> %% @copyright 2006 Richard Carlsson %% @private %% @see eunit diff --git a/lib/eunit/src/eunit_tests.erl b/lib/eunit/src/eunit_tests.erl index a63d102d98..47ea0aaf46 100644 --- a/lib/eunit/src/eunit_tests.erl +++ b/lib/eunit/src/eunit_tests.erl @@ -13,9 +13,7 @@ %% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 %% USA %% -%% $Id: eunit_tests.erl 238 2007-11-15 10:23:54Z mremond $ -%% -%% @author Richard Carlsson <[email protected]> +%% @author Richard Carlsson <[email protected]> %% @copyright 2007 Richard Carlsson %% @private %% @see eunit diff --git a/lib/eunit/src/eunit_tty.erl b/lib/eunit/src/eunit_tty.erl index 5fe0140559..e3e7b710b2 100644 --- a/lib/eunit/src/eunit_tty.erl +++ b/lib/eunit/src/eunit_tty.erl @@ -13,9 +13,7 @@ %% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 %% USA %% -%% $Id: eunit_tty.erl 330 2009-03-01 16:28:02Z rcarlsson $ -%% -%% @author Richard Carlsson <[email protected]> +%% @author Richard Carlsson <[email protected]> %% @copyright 2006-2009 Richard Carlsson %% @private %% @see eunit diff --git a/lib/eunit/vsn.mk b/lib/eunit/vsn.mk index d933085bbc..b0a77a225b 100644 --- a/lib/eunit/vsn.mk +++ b/lib/eunit/vsn.mk @@ -1 +1 @@ -EUNIT_VSN = 2.2.0 +EUNIT_VSN = 2.2.1 diff --git a/lib/gs/contribs/bonk/sounder.erl b/lib/gs/contribs/bonk/sounder.erl index 11ab03d167..e6f69a1616 100644 --- a/lib/gs/contribs/bonk/sounder.erl +++ b/lib/gs/contribs/bonk/sounder.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 1996-2009. All Rights Reserved. +%% Copyright Ericsson AB 1996-2011. 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 @@ -72,13 +72,13 @@ stop() -> sounder ! {stop}, ok end. -new(File) when list(File) -> new(list_to_atom(File)); -new(File) when atom(File) -> +new(File) when is_list(File) -> new(list_to_atom(File)); +new(File) when is_atom(File) -> catch begin check(), sounder ! {new,File,self()}, wait_for_ack(sounder) end. -play(No) when integer(No) -> +play(No) when is_integer(No) -> catch begin check(), sounder ! {play, No, self()}, wait_for_ack(sounder) end. @@ -94,14 +94,14 @@ go() -> loop(Port) -> receive - {new, File, From} when atom(File) -> + {new, File, From} when is_atom(File) -> Port ! {self(),{command,lists:append([0],atom_to_list(File))}}, From ! {sounder,wait_for_ack(Port)}, loop(Port); {play,silent,From} -> From ! {sounder,false}, loop(Port); - {play,No,From} when integer(No) -> + {play,No,From} when is_integer(No) -> Port ! {self(),{command,[No]}}, From ! {sounder,wait_for_ack(Port)}, loop(Port); @@ -118,13 +118,13 @@ loop(Port) -> nosound() -> receive - {new,File,From} when atom(File) -> + {new,File,From} when is_atom(File) -> From ! {sounder,{ok,silent}}, nosound(); {play,silent,From} -> From ! {sounder,true}, nosound(); - {play,No,From} when integer(No) -> + {play,No,From} when is_integer(No) -> From ! {sounder,{error,no_audio_cap}}, nosound(); {stop} -> @@ -135,7 +135,7 @@ nosound() -> wait_for_ack(sounder) -> receive {sounder,Res} -> Res end; -wait_for_ack(Port) when port(Port) -> +wait_for_ack(Port) when is_port(Port) -> receive {Port,{data,"ok"}} -> ok; @@ -149,7 +149,7 @@ wait_for_ack(Port) when port(Port) -> check() -> case whereis(sounder) of - Pid when pid(Pid) -> + Pid when is_pid(Pid) -> ok; undefined -> throw({error,sounder_not_started}) diff --git a/lib/gs/contribs/cols/cols.erl b/lib/gs/contribs/cols/cols.erl index 67b46d0dfb..111c9a58f1 100644 --- a/lib/gs/contribs/cols/cols.erl +++ b/lib/gs/contribs/cols/cols.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 1996-2009. All Rights Reserved. +%% Copyright Ericsson AB 1996-2011. 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 @@ -278,7 +278,7 @@ fall_column([], _X, _Y, ColumnAcc, ChecksAcc) -> fall_column([black|Colors], X, Y, ColumnAcc, ChecksAcc) -> case find_box(Colors) of false -> {ColumnAcc, ChecksAcc}; - NewColors when list(NewColors) -> + NewColors when is_list(NewColors) -> fall_one_step(NewColors, X, Y, ColumnAcc, ChecksAcc) end; fall_column([Color|Colors], X, Y, ColumnAcc, ChecksAcc) -> @@ -330,7 +330,7 @@ new_column_list([], _, _) -> []. %%---------------------------------------------------------------------- %% Returns: a reversed list of colors. %%---------------------------------------------------------------------- -columntuple_to_list(ColumnTuple) when tuple(ColumnTuple) -> +columntuple_to_list(ColumnTuple) when is_tuple(ColumnTuple) -> columntuple_to_list(tuple_to_list(ColumnTuple),[]). columntuple_to_list([],Acc) -> Acc; diff --git a/lib/gs/contribs/mandel/mandel.erl b/lib/gs/contribs/mandel/mandel.erl index d4d2452463..0f1df5c665 100644 --- a/lib/gs/contribs/mandel/mandel.erl +++ b/lib/gs/contribs/mandel/mandel.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 1996-2009. All Rights Reserved. +%% Copyright Ericsson AB 1996-2011. 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 @@ -119,7 +119,7 @@ start_client(Opts,Nodes) -> try_random(random,Low,High) -> random:uniform()*(High-Low)+Low; -try_random(Float,_Low,_High) when number(Float) -> Float. +try_random(Float,_Low,_High) when is_number(Float) -> Float. %%----------------------------------------------------------------- diff --git a/lib/gs/contribs/othello/othello_board.erl b/lib/gs/contribs/othello/othello_board.erl index 0206ba2ded..212ba9bfe1 100644 --- a/lib/gs/contribs/othello/othello_board.erl +++ b/lib/gs/contribs/othello/othello_board.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 1996-2009. All Rights Reserved. +%% Copyright Ericsson AB 1996-2011. 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 @@ -147,7 +147,7 @@ but_pressed("Help",_ButtId,_User,GamePid,_Shell,_Wids,_Op) -> but_pressed("Newgame",_ButtId,_User,GamePid,_Shell,Wids,Options) -> new_game(GamePid,Wids,Options); but_pressed([],ButtId,User,GamePid,_Shell,_Wids,_Op) - when pid(GamePid),User == player -> + when is_pid(GamePid),User == player -> [C,R] = atom_to_list(ButtId), GamePid ! {self(),position,othello_adt:pos(C-96,translate(R-48))}, GamePid; @@ -243,7 +243,7 @@ game_msg(Msg,User,GamePid,Shell,Wids,Options) -> end. -new_game(GamePid,Wids,Options) when pid(GamePid) -> +new_game(GamePid,Wids,Options) when is_pid(GamePid) -> exit(GamePid,kill), new_game(Wids,Options); new_game(_,Wids,Options) -> diff --git a/lib/gs/doc/src/notes.xml b/lib/gs/doc/src/notes.xml index 744efbd4fc..c32db495a1 100644 --- a/lib/gs/doc/src/notes.xml +++ b/lib/gs/doc/src/notes.xml @@ -30,7 +30,21 @@ </header> <p>This document describes the changes made to the GS application.</p> - <section><title>GS 1.5.13</title> + <section><title>GS 1.5.14</title> + + <section><title>Fixed Bugs and Malfunctions</title> + <list> + <item> + <p>Remove misc. compiler warnings</p> + <p> + Own Id: OTP-9542</p> + </item> + </list> + </section> + +</section> + +<section><title>GS 1.5.13</title> <section><title>Improvements and New Features</title> <list> diff --git a/lib/gs/examples/calc2.erl b/lib/gs/examples/calc2.erl index d28780de01..0e841397f6 100644 --- a/lib/gs/examples/calc2.erl +++ b/lib/gs/examples/calc2.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 1996-2009. All Rights Reserved. +%% Copyright Ericsson AB 1996-2011. 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 @@ -54,7 +54,7 @@ calc() -> calc_loop(Lbl,M,V,Op) -> receive - {gs,_,click,D,_} when integer(D) -> + {gs,_,click,D,_} when is_integer(D) -> digit_press(Lbl,M,V*10+D,Op); {gs,_,click,'C',_} -> c(Lbl,M,V,Op); diff --git a/lib/gs/src/Makefile b/lib/gs/src/Makefile index b3f11fb71b..964966ba00 100644 --- a/lib/gs/src/Makefile +++ b/lib/gs/src/Makefile @@ -90,7 +90,7 @@ clean: # Special Build Targets # ---------------------------------------------------- -gstk_generic.hrl: gs_make.erl ../ebin/gs.$(EMULATOR) +gstk_generic.hrl: gs_make.erl ../ebin/gs_make.$(EMULATOR) ../ebin/gs.$(EMULATOR) $(ERL) -pa $(EBIN) -s gs_make -s erlang halt -noshell $(APP_TARGET): $(APP_SRC) ../vsn.mk diff --git a/lib/gs/vsn.mk b/lib/gs/vsn.mk index 4c91857572..4894c6c13a 100644 --- a/lib/gs/vsn.mk +++ b/lib/gs/vsn.mk @@ -1,2 +1,2 @@ -GS_VSN = 1.5.13 +GS_VSN = 1.5.14 diff --git a/lib/hipe/cerl/erl_bif_types.erl b/lib/hipe/cerl/erl_bif_types.erl index 3212c1e4ff..1483b2aee1 100644 --- a/lib/hipe/cerl/erl_bif_types.erl +++ b/lib/hipe/cerl/erl_bif_types.erl @@ -1202,6 +1202,7 @@ type(erlang, process_flag, 2, Xs) -> case t_atom_vals(Flag) of ['error_handler'] -> t_atom(); ['min_heap_size'] -> t_non_neg_integer(); + ['scheduler'] -> t_non_neg_integer(); ['monitor_nodes'] -> t_boolean(); ['priority'] -> t_process_priority_level(); ['save_calls'] -> t_non_neg_integer(); @@ -1902,7 +1903,7 @@ type(prim_file, internal_native2name, 1, Xs) -> fun (_) -> t_prim_file_name() end); type(prim_file, internal_normalize_utf8, 1, Xs) -> strict(arg_types(prim_file, internal_normalize_utf8, 1), Xs, - fun (_) -> t_binary() end); + fun (_) -> t_unicode_string() end); %%-- gen_tcp ------------------------------------------------------------------ %% NOTE: All type information for this module added to avoid loss of precision type(gen_tcp, accept, 1, Xs) -> @@ -2327,10 +2328,7 @@ type(lists, keyfind, 3, Xs) -> case t_tuple_subtypes(Tuple) of unknown -> Ret; List -> - Keys = [type(erlang, element, 2, [Y, S]) - || S <- List], - Infs = [t_inf(Key, X) || Key <- Keys], - case all_is_none(Infs) of + case key_comparisons_fail(X, Y, List) of true -> t_atom('false'); false -> Ret end @@ -2360,9 +2358,7 @@ type(lists, keymember, 3, Xs) -> case t_tuple_subtypes(Tuple) of unknown -> t_boolean(); List -> - Keys = [type(erlang, element, 2, [Y,S]) || S <- List], - Infs = [t_inf(Key, X) || Key <- Keys], - case all_is_none(Infs) of + case key_comparisons_fail(X, Y, List) of true -> t_atom('false'); false -> t_boolean() end @@ -2392,10 +2388,7 @@ type(lists, keysearch, 3, Xs) -> case t_tuple_subtypes(Tuple) of unknown -> Ret; List -> - Keys = [type(erlang, element, 2, [Y, S]) - || S <- List], - Infs = [t_inf(Key, X) || Key <- Keys], - case all_is_none(Infs) of + case key_comparisons_fail(X, Y, List) of true -> t_atom('false'); false -> Ret end @@ -2823,9 +2816,6 @@ list_replace(1, E, [_X | Xs]) -> any_is_none_or_unit(Ts) -> lists:any(fun erl_types:t_is_none_or_unit/1, Ts). -all_is_none(Ts) -> - lists:all(fun erl_types:t_is_none/1, Ts). - check_guard([X], Test, Type) -> check_guard_single(X, Test, Type). @@ -3220,6 +3210,15 @@ type_order() -> [t_number(), t_atom(), t_reference(), t_fun(), t_port(), t_pid(), t_tuple(), t_list(), t_binary()]. +key_comparisons_fail(X0, KeyPos, TupleList) -> + X = case t_is_number(t_inf(X0, t_number())) of + false -> X0; + true -> t_number() + end, + lists:all(fun(Tuple) -> + Key = type(erlang, element, 2, [KeyPos, Tuple]), + t_is_none(t_inf(Key, X)) + end, TupleList). %%============================================================================= @@ -3744,6 +3743,7 @@ arg_types(erlang, process_display, 2) -> arg_types(erlang, process_flag, 2) -> [t_sup([t_atom('trap_exit'), t_atom('error_handler'), t_atom('min_heap_size'), t_atom('priority'), t_atom('save_calls'), + t_atom('scheduler'), % undocumented t_atom('monitor_nodes'), % undocumented t_tuple([t_atom('monitor_nodes'), t_list()])]), % undocumented t_sup([t_boolean(), t_atom(), t_non_neg_integer()])]; @@ -3785,7 +3785,7 @@ arg_types(erlang, send, 3) -> arg_types(erlang, send_after, 3) -> [t_non_neg_integer(), t_sup(t_pid(), t_atom()), t_any()]; arg_types(erlang, seq_trace, 2) -> - [t_atom(), t_sup([t_boolean(), t_tuple([t_fixnum(), t_fixnum()]), t_nil()])]; + [t_atom(), t_sup([t_boolean(), t_tuple([t_fixnum(), t_fixnum()]), t_fixnum(), t_nil()])]; arg_types(erlang, seq_trace_info, 1) -> [t_seq_trace_info()]; arg_types(erlang, seq_trace_print, 1) -> @@ -4034,7 +4034,7 @@ arg_types(ets, match_object, 3) -> arg_types(ets, match_spec_compile, 1) -> [t_matchspecs()]; arg_types(ets, match_spec_run_r, 3) -> - [t_matchspecs(), t_any(), t_list()]; + [t_list(t_tuple()),t_matchspecs(), t_list()]; arg_types(ets, member, 2) -> [t_tab(), t_any()]; arg_types(ets, new, 2) -> @@ -4066,8 +4066,12 @@ arg_types(ets, select_reverse, 3) -> arg_types(ets, slot, 2) -> [t_tab(), t_non_neg_fixnum()]; % 2nd arg can be 0 arg_types(ets, setopts, 2) -> - Opt = t_sup(t_tuple([t_atom('heir'), t_pid(), t_any()]), - t_tuple([t_atom('heir'), t_atom('none')])), + Opt = t_sup([t_tuple([t_atom('heir'), t_pid(), t_any()]), + t_tuple([t_atom('heir'), t_atom('none')]), + t_tuple([t_atom('protection'), + t_sup([t_atom('protected'), + t_atom('private'), + t_atom('public')])])]), [t_tab(), t_sup(Opt, t_list(Opt))]; arg_types(ets, update_counter, 3) -> Int = t_integer(), @@ -4859,6 +4863,9 @@ t_ets_info_items() -> t_atom('owner'), t_atom('protection'), t_atom('size'), + t_atom('compressed'), + t_atom('heir'), + t_atom('stats'), t_atom('type')]). %% ===================================================================== diff --git a/lib/hipe/cerl/erl_types.erl b/lib/hipe/cerl/erl_types.erl index 1748c1cc16..0ff827ac37 100644 --- a/lib/hipe/cerl/erl_types.erl +++ b/lib/hipe/cerl/erl_types.erl @@ -211,7 +211,8 @@ record_field_diffs_to_string/2, subst_all_vars_to_any/1, lift_list_to_pos_empty/1, - is_erl_type/1 + is_erl_type/1, + atom_to_string/1 ]). %%-define(DO_ERL_TYPES_TEST, true). @@ -242,12 +243,11 @@ -define(REC_TYPE_LIMIT, 2). -define(TUPLE_TAG_LIMIT, 5). --define(TUPLE_ARITY_LIMIT, 10). +-define(TUPLE_ARITY_LIMIT, 8). -define(SET_LIMIT, 13). -define(MAX_BYTE, 255). -define(MAX_CHAR, 16#10ffff). --define(WIDENING_LIMIT, 7). -define(UNIT_MULTIPLIER, 8). -define(TAG_IMMED1_SIZE, 4). @@ -3360,14 +3360,14 @@ t_to_string(?var(Id), _RecDict) when is_integer(Id) -> record_to_string(Tag, [_|Fields], FieldNames, RecDict) -> FieldStrings = record_fields_to_string(Fields, FieldNames, RecDict, []), - "#" ++ atom_to_list(Tag) ++ "{" ++ string:join(FieldStrings, ",") ++ "}". + "#" ++ atom_to_string(Tag) ++ "{" ++ string:join(FieldStrings, ",") ++ "}". record_fields_to_string([F|Fs], [{FName, _DefType}|FDefs], RecDict, Acc) -> NewAcc = case t_is_any(F) orelse t_is_atom('undefined', F) of true -> Acc; false -> - StrFV = atom_to_list(FName) ++ "::" ++ t_to_string(F, RecDict), + StrFV = atom_to_string(FName) ++ "::" ++ t_to_string(F, RecDict), %% ActualDefType = t_subtract(DefType, t_atom('undefined')), %% Str = case t_is_any(ActualDefType) of %% true -> StrFV; @@ -3393,7 +3393,7 @@ field_diffs([F|Fs], [{FName, DefType}|FDefs], RecDict, Acc) -> case t_is_subtype(F, DefType) of true -> Acc; false -> - Str = atom_to_list(FName) ++ "::" ++ t_to_string(DefType, RecDict), + Str = atom_to_string(FName) ++ "::" ++ t_to_string(DefType, RecDict), [Str|Acc] end, field_diffs(Fs, FDefs, RecDict, NewAcc); @@ -3906,7 +3906,7 @@ t_form_to_string({type, _L, union, Args}) -> string:join(t_form_to_string_list(Args), " | "); t_form_to_string({type, _L, Name, []} = T) -> try t_to_string(t_from_form(T)) - catch throw:{error, _} -> atom_to_list(Name) ++ "()" + catch throw:{error, _} -> atom_to_string(Name) ++ "()" end; t_form_to_string({type, _L, Name, List}) -> io_lib:format("~w(~s)", @@ -3920,6 +3920,11 @@ t_form_to_string_list([H|T], Acc) -> t_form_to_string_list([], Acc) -> lists:reverse(Acc). +-spec atom_to_string(atom()) -> string(). + +atom_to_string(Atom) -> + lists:flatten(io_lib:format("~w", [Atom])). + %%============================================================================= %% %% Utilities diff --git a/lib/hipe/doc/src/notes.xml b/lib/hipe/doc/src/notes.xml index 4eb188f76f..6b601e3039 100644 --- a/lib/hipe/doc/src/notes.xml +++ b/lib/hipe/doc/src/notes.xml @@ -30,6 +30,69 @@ </header> <p>This document describes the changes made to HiPE.</p> +<section><title>Hipe 3.8.1</title> + + <section><title>Fixed Bugs and Malfunctions</title> + <list> + <item> + <p> + Clean up hipe.hrl.src (Thanks to Tuncer Ayaz)</p> + <p> + Own Id: OTP-9511</p> + </item> + <item> + <p> + Fix bug with binary pattern matching of floats of + variable size</p> + <p> + Pattern matching of floats with variable size + (<<F:S/float>>) did always fail. Judging from + similar code for ints, this bug is simply a typo.(Thanks + to Paul Guyot)</p> + <p> + Own Id: OTP-9556</p> + </item> + <item> + <p> + Quote atoms if necessary in types</p> + <p> + Atoms in some occurrences were not correctly quoted when + formatted to strings, for instance by the typer program + (Thanks to Tomas Abrahamsson)</p> + <p> + Update Dialyzer's reference results</p> + <p> + Own Id: OTP-9560</p> + </item> + <item> + <p> + Fix typer's crash for nonexisting files Remove unused + macro Fix bug in dataflow Decrease tuple arity limit This + fixes a memory related crash.</p> + <p> + Own Id: OTP-9597</p> + </item> + </list> + </section> + + + <section><title>Improvements and New Features</title> + <list> + <item> + <p> + Types for several BIFs have been extended/corrected. Also + the types for types for <c>lists:keyfind/3</c>, + <c>lists:keysearch/3</c>, and <c>lists:keyemember/3</c> + have been corrected. The incorrect/incomplete types could + cause false dialyzer warnings.</p> + <p> + Own Id: OTP-9496</p> + </item> + </list> + </section> + +</section> + <section><title>Hipe 3.8</title> <section><title>Fixed Bugs and Malfunctions</title> diff --git a/lib/hipe/icode/hipe_beam_to_icode.erl b/lib/hipe/icode/hipe_beam_to_icode.erl index f557d3419e..45b390acbd 100644 --- a/lib/hipe/icode/hipe_beam_to_icode.erl +++ b/lib/hipe/icode/hipe_beam_to_icode.erl @@ -724,7 +724,7 @@ trans_fun([{test,bs_get_float2,{f,Lbl},[Ms,_Live,Size,Unit,{field_flags,Flags0}, ?EXIT({bad_bs_size_constant,Size}); BitReg -> Bits = mk_var(BitReg), - {{bs_get_float,Unit,Flags}, [Bits,MsVar]} + {{bs_get_float,Unit,Flags}, [MsVar,Bits]} end, trans_op_call({hipe_bs_primop,Name}, Lbl, Args, [Dst,MsVar], Env, Instructions); trans_fun([{test,bs_get_integer2,{f,Lbl},[Ms,_Live,Size,Unit,{field_flags,Flags0},X]}| diff --git a/lib/hipe/main/hipe.hrl.src b/lib/hipe/main/hipe.hrl.src index ec55c707ef..e74f31b19d 100644 --- a/lib/hipe/main/hipe.hrl.src +++ b/lib/hipe/main/hipe.hrl.src @@ -2,7 +2,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2001-2009. All Rights Reserved. +%% Copyright Ericsson AB 2001-2011. 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 diff --git a/lib/hipe/regalloc/hipe_node_sets.erl b/lib/hipe/regalloc/hipe_node_sets.erl index b5e2971c4d..be43ff2bfd 100644 --- a/lib/hipe/regalloc/hipe_node_sets.erl +++ b/lib/hipe/regalloc/hipe_node_sets.erl @@ -2,7 +2,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2001-2009. All Rights Reserved. +%% Copyright Ericsson AB 2001-2011. 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 @@ -29,7 +29,7 @@ -record(node_sets, {spilled, % Nodes marked for spilling - colored % Nodes succesfully colored + colored % Nodes successfully colored }). spilled(Node_sets) -> Node_sets#node_sets.spilled. diff --git a/lib/hipe/rtl/hipe_rtl_lcm.erl b/lib/hipe/rtl/hipe_rtl_lcm.erl index 5d65389d48..9224623c8b 100644 --- a/lib/hipe/rtl/hipe_rtl_lcm.erl +++ b/lib/hipe/rtl/hipe_rtl_lcm.erl @@ -2,7 +2,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2004-2009. All Rights Reserved. +%% Copyright Ericsson AB 2004-2011. 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 @@ -269,7 +269,7 @@ insert_expr_last(CFG0, Label, Instr) -> %% is a branch operation). insert_expr_last_work(_, Instr, []) -> %% This case should not happen since this means that block was completely - %% empty when the function was called. For compability we insert it last. + %% empty when the function was called. For compatibility we insert it last. [Instr]; insert_expr_last_work(_, Instr, [Code1]) -> %% We insert the code next to last. diff --git a/lib/hipe/vsn.mk b/lib/hipe/vsn.mk index 58ebe68401..65e04ff7fa 100644 --- a/lib/hipe/vsn.mk +++ b/lib/hipe/vsn.mk @@ -1 +1 @@ -HIPE_VSN = 3.8 +HIPE_VSN = 3.8.1 diff --git a/lib/ic/doc/src/Makefile b/lib/ic/doc/src/Makefile index 8eda436a24..acb6848fee 100644 --- a/lib/ic/doc/src/Makefile +++ b/lib/ic/doc/src/Makefile @@ -206,6 +206,8 @@ JAVADOCFLAGS = \ # ---------------------------------------------------- # Targets # ---------------------------------------------------- +_create_dirs := $(shell mkdir -p $(JAVA_OUT_DIR)) + $(HTMLDIR)/%.gif: %.gif $(INSTALL_DATA) $< $@ @@ -256,10 +258,7 @@ clean clean_docs clean_tex: endif -$(JAVA_OUT_DIR): - mkdir $(JAVA_OUT_DIR) - -$(JAVADOC_GENERATED_FILES): $(JAVA_OUT_DIR) +$(JAVADOC_GENERATED_FILES): @(cd ../../java_src; $(JAVADOC) $(JAVADOCFLAGS) com.ericsson.otp.ic) man: $(MAN3_FILES) diff --git a/lib/ic/src/ic.erl b/lib/ic/src/ic.erl index 3c6ce3d9d6..50fad921c4 100644 --- a/lib/ic/src/ic.erl +++ b/lib/ic/src/ic.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 1997-2009. All Rights Reserved. +%% Copyright Ericsson AB 1997-2011. 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 @@ -320,7 +320,7 @@ pragma(G, File, T) -> time, time("pragma registration ", ic_pragma, pragma_reg, [G,T]), ic_pragma:pragma_reg(G,T)) of - %% All pragmas were succesfully applied + %% All pragmas were successfully applied {ok,Clean} -> typing(G, File, Clean); diff --git a/lib/inets/Makefile b/lib/inets/Makefile index f4c2746b0a..4765a2ca3c 100644 --- a/lib/inets/Makefile +++ b/lib/inets/Makefile @@ -1,7 +1,7 @@ # # %CopyrightBegin% # -# Copyright Ericsson AB 1996-2010. All Rights Reserved. +# Copyright Ericsson AB 1996-2011. 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 diff --git a/lib/inets/doc/src/http_server.xml b/lib/inets/doc/src/http_server.xml index 599a939913..f29b505bc7 100644 --- a/lib/inets/doc/src/http_server.xml +++ b/lib/inets/doc/src/http_server.xml @@ -406,7 +406,7 @@ http://your.server.org/***/Module[:/]Function(?QueryString|/PathInfo) phase instead of first generating the whole web page and then sending it to the client. The option to implement a function with arity two is only kept for - backwardcompatibilty reasons. + backwards compatibility reasons. See <seealso marker="mod_esi">mod_esi(3)</seealso> for implementation details of the esi callback function.</p> </section> diff --git a/lib/inets/doc/src/mod_auth.xml b/lib/inets/doc/src/mod_auth.xml index 42c49e9c35..2134ebeeae 100644 --- a/lib/inets/doc/src/mod_auth.xml +++ b/lib/inets/doc/src/mod_auth.xml @@ -80,7 +80,7 @@ <marker id="delete_user"></marker> <p><c>delete_user/2, delete_user/3</c> and <c>delete_user/4</c> deletes a user - from the user database. If the operation is succesfull, this + from the user database. If the operation is successful, this function returns <c>true</c>. If an error occurs, <c>{error,Reason}</c> is returned. When <c>delete_user/2</c> is called the Port and Dir options are mandatory.</p> diff --git a/lib/inets/doc/src/mod_esi.xml b/lib/inets/doc/src/mod_esi.xml index 9674cd9a88..9906ae0895 100644 --- a/lib/inets/doc/src/mod_esi.xml +++ b/lib/inets/doc/src/mod_esi.xml @@ -31,8 +31,8 @@ <module>mod_esi</module> <modulesummary>Erlang Server Interface </modulesummary> <description> - <p>This module defines the API - Erlang Server Interface (ESI). - Which is a more efficient way of writing erlang scripts + <p>This module defines the Erlang Server Interface (ESI) API. + It is a more efficient way of writing erlang scripts for your Inets web server than writing them as common CGI scripts.</p> <marker id="deliver"></marker> @@ -95,12 +95,12 @@ the server uses when <c>deliver/2</c> is called; do not assume anything about the datatype.</p> <p>Use this callback function to dynamically generate dynamic web - content. when a part of the page is generated send the + content. When a part of the page is generated send the data back to the client through <c>deliver/2</c>. Note that the first chunk of data sent to the client must at least contain all HTTP header fields that the response will generate. If the first chunk does not contain the - <em>End of HTTP the header</em>, that is <c>"\r\n\r\n",</c> + <em>End of HTTP header</em>, that is <c>"\r\n\r\n",</c> the server will assume that no HTTP header fields will be generated.</p> </desc> @@ -118,8 +118,8 @@ <desc> <p>This callback format consumes a lot of memory since the whole response must be generated before it is sent to the - user. This functions is deprecated and only keept for backwards - compatibility. + user. This function is deprecated and only kept for backwards + compatibility. For new development Module:Function/3 should be used.</p> </desc> </func> diff --git a/lib/inets/doc/src/notes.xml b/lib/inets/doc/src/notes.xml index c53aa653d8..87a8c173a5 100644 --- a/lib/inets/doc/src/notes.xml +++ b/lib/inets/doc/src/notes.xml @@ -93,6 +93,57 @@ </section> <!-- 5.8 --> + + <section><title>Inets 5.7.1</title> + + <section><title>Improvements and New Features</title> + <p>-</p> + +<!-- + <list> + <item> + <p>[httpc|httpd] Added support for IPv6 with ssl. </p> + <p>Own Id: OTP-5566</p> + </item> + + </list> +--> + + </section> + + <section><title>Fixed Bugs and Malfunctions</title> +<!-- + <p>-</p> +--> + + <list> + <item> + <p>[httpc] Parsing of a cookie expire date should be more forgiving. + That is, if the parsing fails, the date should be ignored. + Also added support for (yet another) date format: + "Tue Jan 01 08:00:01 2036 GMT". </p> + <p>Own Id: OTP-9433</p> + </item> + + <item> + <p>[httpc] Rewrote cookie parsing. Among other things solving + cookie processing from www.expedia.com. </p> + <p>Own Id: OTP-9434</p> + </item> + + <item> + <p>[httpd] Fix httpd directory traversal on Windows. + Directory traversal was possible on Windows where + backward slash is used as directory separator. </p> + <p>Andr�s Veres-Szentkir�lyi.</p> + <p>Own Id: OTP-9561</p> + </item> + + </list> + </section> + + </section> <!-- 5.7.1 --> + <section><title>Inets 5.7</title> diff --git a/lib/inets/doc/src/notes_history.xml b/lib/inets/doc/src/notes_history.xml index 6480bad758..151bec375e 100644 --- a/lib/inets/doc/src/notes_history.xml +++ b/lib/inets/doc/src/notes_history.xml @@ -4,7 +4,7 @@ <chapter> <header> <copyright> - <year>2004</year><year>2010</year> + <year>2004</year><year>2011</year> <holder>Ericsson AB. All Rights Reserved.</holder> </copyright> <legalnotice> @@ -123,7 +123,7 @@ re-receive of acknowledgments. If multiple copies of the same acknowledgments is received the spurious ones are silently ignored. This fix was intended for inets-4.7.14 - but accidentaly it was not included in that release.</p> + but accidentally it was not included in that release.</p> <p>Own Id: OTP-6706 Aux Id: OTP-6691 </p> </item> </list> diff --git a/lib/inets/src/http_client/httpc_cookie.erl b/lib/inets/src/http_client/httpc_cookie.erl index 4d61f82b5a..69900bae65 100644 --- a/lib/inets/src/http_client/httpc_cookie.erl +++ b/lib/inets/src/http_client/httpc_cookie.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2004-2010. All Rights Reserved. +%% Copyright Ericsson AB 2004-2011. 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 @@ -18,12 +18,32 @@ %% %% Description: Cookie handling according to RFC 2109 +%% The syntax for the Set-Cookie response header is +%% +%% set-cookie = "Set-Cookie:" cookies +%% cookies = 1#cookie +%% cookie = NAME "=" VALUE *(";" cookie-av) +%% NAME = attr +%% VALUE = value +%% cookie-av = "Comment" "=" value +%% | "Domain" "=" value +%% | "Max-Age" "=" value +%% | "Path" "=" value +%% | "Secure" +%% | "Version" "=" 1*DIGIT + + +%% application:start(inets). +%% httpc:set_options([{cookies, enabled}, {proxy, {{"www-proxy.ericsson.se",8080}, ["*.ericsson.se"]}}]). +%% (catch httpc:request("http://www.expedia.com")). + -module(httpc_cookie). -include("httpc_internal.hrl"). -export([open_db/3, close_db/1, insert/2, header/4, cookies/3]). -export([reset_db/1, which_cookies/1]). +-export([image_of/2, print/2]). -record(cookie_db, {db, session_db}). @@ -125,7 +145,7 @@ insert(#cookie_db{db = Db} = CookieDb, name = Name, path = Path, max_age = 0}) -> - ?hcrt("insert", [{domain, Key}, {name, Name}, {path, Path}]), + ?hcrt("insert cookie", [{domain, Key}, {name, Name}, {path, Path}]), Pattern = #http_cookie{domain = Key, name = Name, path = Path, _ = '_'}, case dets:match_object(Db, Pattern) of [] -> @@ -136,7 +156,7 @@ insert(#cookie_db{db = Db} = CookieDb, ok; insert(#cookie_db{db = Db} = CookieDb, #http_cookie{domain = Key, name = Name, path = Path} = Cookie) -> - ?hcrt("insert", [{cookie, Cookie}]), + ?hcrt("insert cookie", [{cookie, Cookie}]), Pattern = #http_cookie{domain = Key, name = Name, path = Path, @@ -163,6 +183,7 @@ header(CookieDb, Scheme, {Host, _}, Path) -> [] -> {"cookie", ""}; Cookies -> + %% print_cookies("Header Cookies", Cookies), {"cookie", cookies_to_string(Scheme, Cookies)} end. @@ -173,11 +194,20 @@ header(CookieDb, Scheme, {Host, _}, Path) -> %%-------------------------------------------------------------------- cookies(Headers, RequestPath, RequestHost) -> + ?hcrt("cookies", [{headers, Headers}, {request_path, RequestPath}, {request_host, RequestHost}]), + Cookies = parse_set_cookies(Headers, {RequestPath, RequestHost}), - accept_cookies(Cookies, RequestPath, RequestHost). + + %% print_cookies("Parsed Cookies", Cookies), + + AcceptedCookies = accept_cookies(Cookies, RequestPath, RequestHost), + + %% print_cookies("Accepted Cookies", AcceptedCookies), + + AcceptedCookies. %%-------------------------------------------------------------------- @@ -266,7 +296,8 @@ cookies_to_string(_, [], CookieStrs) -> lists:flatten(lists:reverse(CookieStrs)) end; -cookies_to_string(https, [#http_cookie{secure = true} = Cookie| Cookies], +cookies_to_string(https = Scheme, + [#http_cookie{secure = true} = Cookie| Cookies], CookieStrs) -> Str = case Cookies of [] -> @@ -274,7 +305,7 @@ cookies_to_string(https, [#http_cookie{secure = true} = Cookie| Cookies], _ -> cookie_to_string(Cookie) ++ "; " end, - cookies_to_string(https, Cookies, [Str | CookieStrs]); + cookies_to_string(Scheme, Cookies, [Str | CookieStrs]); cookies_to_string(Scheme, [#http_cookie{secure = true}| Cookies], CookieStrs) -> @@ -303,63 +334,54 @@ add_domain(Str, #http_cookie{domain_default = true}) -> add_domain(Str, #http_cookie{domain = Domain}) -> Str ++ "; $Domain=" ++ Domain. -parse_set_cookies(OtherHeaders, DefaultPathDomain) -> - SetCookieHeaders = - lists:foldl(fun({"set-cookie", Value}, Acc) -> - [string:tokens(Value, ",")| Acc]; - (_, Acc) -> - Acc - end, [], OtherHeaders), - - lists:flatten( - lists:map(fun(CookieHeader) -> - NewHeader = fix_netscape_cookie(CookieHeader, []), - parse_set_cookie(NewHeader, [], DefaultPathDomain) - end, - SetCookieHeaders)). - -parse_set_cookie([], AccCookies, _) -> - AccCookies; -parse_set_cookie([CookieHeader | CookieHeaders], AccCookies, - Defaults = {DefaultPath, DefaultDomain}) -> - [CookieStr | Attributes] = case string:tokens(CookieHeader, ";") of - [CStr] -> - [CStr, ""]; - [CStr | Attr] -> - [CStr, Attr] - end, - Pos = string:chr(CookieStr, $=), - Name = string:substr(CookieStr, 1, Pos - 1), - Value = string:substr(CookieStr, Pos + 1), - Cookie = #http_cookie{name = string:strip(Name), - value = string:strip(Value)}, - NewAttributes = parse_set_cookie_attributes(Attributes), - TmpCookie = cookie_attributes(NewAttributes, Cookie), +parse_set_cookies(CookieHeaders, DefaultPathDomain) -> + SetCookieHeaders = [Value || {"set-cookie", Value} <- CookieHeaders], + Cookies = [parse_set_cookie(SetCookieHeader, DefaultPathDomain) || + SetCookieHeader <- SetCookieHeaders], + %% print_cookies("Parsed Cookies", Cookies), + Cookies. + +parse_set_cookie(CookieHeader, {DefaultPath, DefaultDomain}) -> + %% io:format("Raw Cookie: ~s~n", [CookieHeader]), + Pos = string:chr(CookieHeader, $=), + Name = string:substr(CookieHeader, 1, Pos - 1), + {Value, Attrs} = + case string:substr(CookieHeader, Pos + 1) of + [$;|ValueAndAttrs] -> + {"", string:tokens(ValueAndAttrs, ";")}; + ValueAndAttrs -> + [V | A] = string:tokens(ValueAndAttrs, ";"), + {V, A} + end, + Cookie = #http_cookie{name = string:strip(Name), + value = string:strip(Value)}, + Attributes = parse_set_cookie_attributes(Attrs), + TmpCookie = cookie_attributes(Attributes, Cookie), %% Add runtime defult values if necessary - NewCookie = domain_default(path_default(TmpCookie, DefaultPath), - DefaultDomain), - parse_set_cookie(CookieHeaders, [NewCookie | AccCookies], Defaults). - -parse_set_cookie_attributes([]) -> - []; -parse_set_cookie_attributes([Attributes]) -> - lists:map(fun(Attr) -> - [AttrName, AttrValue] = - case string:tokens(Attr, "=") of - %% All attributes have the form - %% Name=Value except "secure"! - [Name] -> - [Name, ""]; - [Name, Value] -> - [Name, Value]; - %% Anything not expected will be - %% disregarded - _ -> - ["Dummy",""] - end, - {http_util:to_lower(string:strip(AttrName)), - string:strip(AttrValue)} - end, Attributes). + NewCookie = domain_default(path_default(TmpCookie, DefaultPath), + DefaultDomain), + NewCookie. + +parse_set_cookie_attributes(Attributes) when is_list(Attributes) -> + [parse_set_cookie_attribute(A) || A <- Attributes]. + +parse_set_cookie_attribute(Attribute) -> + {AName, AValue} = + case string:tokens(Attribute, "=") of + %% All attributes have the form + %% Name=Value except "secure"! + [Name] -> + {Name, ""}; + [Name, Value] -> + {Name, Value}; + %% Anything not expected will be + %% disregarded + _ -> + {"Dummy", ""} + end, + StrippedName = http_util:to_lower(string:strip(AName)), + StrippedValue = string:strip(AValue), + {StrippedName, StrippedValue}. cookie_attributes([], Cookie) -> Cookie; @@ -375,10 +397,15 @@ cookie_attributes([{"max-age", Value}| Attributes], Cookie) -> Cookie#http_cookie{max_age = ExpireTime}); %% Backwards compatibility with netscape cookies cookie_attributes([{"expires", Value}| Attributes], Cookie) -> - Time = http_util:convert_netscapecookie_date(Value), - ExpireTime = calendar:datetime_to_gregorian_seconds(Time), - cookie_attributes(Attributes, - Cookie#http_cookie{max_age = ExpireTime}); + try http_util:convert_netscapecookie_date(Value) of + Time -> + ExpireTime = calendar:datetime_to_gregorian_seconds(Time), + cookie_attributes(Attributes, + Cookie#http_cookie{max_age = ExpireTime}) + catch + _:_ -> + cookie_attributes(Attributes, Cookie) + end; cookie_attributes([{"path", Value}| Attributes], Cookie) -> cookie_attributes(Attributes, Cookie#http_cookie{path = Value}); @@ -404,7 +431,7 @@ path_default(#http_cookie{path = undefined} = Cookie, DefaultPath) -> path_default(Cookie, _) -> Cookie. -%% Note: if the path is only / that / will be keept +%% Note: if the path is only / that / will be kept skip_right_most_slash("/") -> "/"; skip_right_most_slash(Str) -> @@ -476,20 +503,43 @@ path_sort(Cookies)-> lists:reverse(lists:keysort(#http_cookie.path, Cookies)). -%% Informally, the Set-Cookie response header comprises the token -%% Set-Cookie:, followed by a comma-separated list of one or more -%% cookies. Netscape cookies expires attribute may also have a, -%% in this case the header list will have been incorrectly split -%% in parse_set_cookies/2 this functions fix that problem. -fix_netscape_cookie([Cookie1, Cookie2 | Rest], Acc) -> - case inets_regexp:match(string:to_lower(Cookie1), "expires=") of - {_, _, _} -> - fix_netscape_cookie(Rest, [Cookie1 ++ Cookie2 | Acc]); - nomatch -> - fix_netscape_cookie([Cookie2 |Rest], [Cookie1| Acc]) - end; -fix_netscape_cookie([Cookie | Rest], Acc) -> - fix_netscape_cookie(Rest, [Cookie | Acc]); - -fix_netscape_cookie([], Acc) -> - Acc. +%% print_cookies(Header, Cookies) -> +%% io:format("~s:~n", [Header]), +%% Prefix = " ", +%% lists:foreach(fun(Cookie) -> print(Prefix, Cookie) end, Cookies). + +image_of(Prefix, + #http_cookie{domain = Domain, + domain_default = DomainDef, + name = Name, + value = Value, + comment = Comment, + max_age = MaxAge, + path = Path, + path_default = PathDef, + secure = Sec, + version = Version}) -> + lists:flatten( + io_lib:format("~sCookie ~s: " + "~n~s Value: ~p" + "~n~s Domain: ~p" + "~n~s DomainDef: ~p" + "~n~s Comment: ~p" + "~n~s MaxAge: ~p" + "~n~s Path: ~p" + "~n~s PathDef: ~p" + "~n~s Secure: ~p" + "~n~s Version: ~p", + [Prefix, Name, + Prefix, Value, + Prefix, Domain, + Prefix, DomainDef, + Prefix, Comment, + Prefix, MaxAge, + Prefix, Path, + Prefix, PathDef, + Prefix, Sec, + Prefix, Version])). + +print(Prefix, Cookie) when is_record(Cookie, http_cookie) -> + io:format("~s~n", [image_of(Prefix, Cookie)]). diff --git a/lib/inets/src/http_client/httpc_handler.erl b/lib/inets/src/http_client/httpc_handler.erl index 9ac9ee6f7b..587e24cc8d 100644 --- a/lib/inets/src/http_client/httpc_handler.erl +++ b/lib/inets/src/http_client/httpc_handler.erl @@ -1157,7 +1157,7 @@ handle_cookies(Headers, Request, #options{cookies = enabled}, ProfileName) -> httpc_manager:store_cookies(Cookies, Request#request.address, ProfileName). -%% This request could not be pipelined or used as sequential keept alive +%% This request could not be pipelined or used as sequential keep alive %% queue handle_queue(#state{status = close} = State, _) -> {stop, normal, State}; diff --git a/lib/inets/src/http_lib/http_util.erl b/lib/inets/src/http_lib/http_util.erl index 5511ed388d..973600d7be 100644 --- a/lib/inets/src/http_lib/http_util.erl +++ b/lib/inets/src/http_lib/http_util.erl @@ -104,6 +104,22 @@ convert_netscapecookie_date([_D,_A,_Y, $ , Sec = list_to_integer([S1,S2]), {{Year,Month,Day},{Hour,Min,Sec}}; +%% Example: Tue Jan 01 08:00:01 2036 GMT +convert_netscapecookie_date([_D,_A,_Y, $ , + M,O,N, $ , + D1,D2, $ , + H1,H2, $:, + M1,M2, $:, + S1,S2, $ , + Y1,Y2,Y3,Y4, $ |_Rest]) -> + Year = list_to_integer([Y1,Y2,Y3,Y4]), + Day = list_to_integer([D1,D2]), + Month = convert_month([M,O,N]), + Hour = list_to_integer([H1,H2]), + Min = list_to_integer([M1,M2]), + Sec = list_to_integer([S1,S2]), + {{Year,Month,Day},{Hour,Min,Sec}}; + %% Sloppy... convert_netscapecookie_date([_D,_A,_Y, $,, _SP, D1,D2,_DA, diff --git a/lib/inets/src/http_server/httpd_conf.erl b/lib/inets/src/http_server/httpd_conf.erl index 189527e2b3..7646300409 100644 --- a/lib/inets/src/http_server/httpd_conf.erl +++ b/lib/inets/src/http_server/httpd_conf.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 1997-2010. All Rights Reserved. +%% Copyright Ericsson AB 1997-2011. 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 @@ -304,7 +304,7 @@ load("MaxKeepAliveRequests " ++ MaxRequests, []) -> " is an invalid MaxKeepAliveRequests")} end; -%% This clause is keept for backwards compability +%% This clause is kept for backwards compatibility load("MaxKeepAliveRequest " ++ MaxRequests, []) -> case make_integer(MaxRequests) of {ok, Integer} -> diff --git a/lib/inets/src/http_server/httpd_esi.erl b/lib/inets/src/http_server/httpd_esi.erl index 026ec9a5fe..000874d0a3 100644 --- a/lib/inets/src/http_server/httpd_esi.erl +++ b/lib/inets/src/http_server/httpd_esi.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2005-2010. All Rights Reserved. +%% Copyright Ericsson AB 2005-2011. 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 @@ -39,7 +39,7 @@ %% body part. Note that it is presumed that <Data> starts with a %% string including "\r\n\r\n" if there is any header information %% present. The returned headers will not contain the HTTP header body -%% delimiter \r\n. (All header, header delimiters are keept.) +%% delimiter \r\n. (All header, header delimiters are kept.) %% Ex: ["Content-Type : text/html\r\n Connection : closing \r\n\r\n" | %% io_list()] --> {"Content-Type : text/html\r\n Connection : closing \r\n", %% io_list()} diff --git a/lib/inets/src/http_server/httpd_request.erl b/lib/inets/src/http_server/httpd_request.erl index 7084d9824a..a04bcc2778 100644 --- a/lib/inets/src/http_server/httpd_request.erl +++ b/lib/inets/src/http_server/httpd_request.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2005-2010. All Rights Reserved. +%% Copyright Ericsson AB 2005-2011. 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 @@ -312,8 +312,8 @@ validate_uri(RequestURI) -> {'EXIT',_Reason} -> {error, {bad_request, {malformed_syntax, RequestURI}}}; _ -> - Path = format_request_uri(UriNoQueryNoHex), - Path2=[X||X<-string:tokens(Path, "/"),X=/="."], %% OTP-5938 + Path = format_request_uri(UriNoQueryNoHex), + Path2 = [X||X<-string:tokens(Path, "/\\"),X=/="."], validate_path( Path2,0, RequestURI) end. diff --git a/lib/inets/src/http_server/mod_auth_mnesia.erl b/lib/inets/src/http_server/mod_auth_mnesia.erl index ffe028617b..91beb0e062 100644 --- a/lib/inets/src/http_server/mod_auth_mnesia.erl +++ b/lib/inets/src/http_server/mod_auth_mnesia.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 1997-2009. All Rights Reserved. +%% Copyright Ericsson AB 1997-2011. 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 @@ -55,7 +55,7 @@ store_directory_data(_Directory, _DirData, _Server_root) -> %% API %% -%% Compability API +%% Compatibility API store_user(UserName, Password, Port, Dir, _AccessPassword) -> %% AccessPassword is ignored - was not used in previous version diff --git a/lib/inets/src/inets_app/inets.appup.src b/lib/inets/src/inets_app/inets.appup.src index 65cee34cb3..e6d315819c 100644 --- a/lib/inets/src/inets_app/inets.appup.src +++ b/lib/inets/src/inets_app/inets.appup.src @@ -18,6 +18,11 @@ {"%VSN%", [ + {"5.7.1", + [ + {restart_application, inets} + ] + }, {"5.7", [ {restart_application, inets} @@ -30,6 +35,11 @@ } ], [ + {"5.7.1", + [ + {restart_application, inets} + ] + }, {"5.7", [ {restart_application, inets} diff --git a/lib/inets/test/http_format_SUITE.erl b/lib/inets/test/http_format_SUITE.erl index 931ac6e024..04c7358715 100644 --- a/lib/inets/test/http_format_SUITE.erl +++ b/lib/inets/test/http_format_SUITE.erl @@ -584,7 +584,9 @@ convert_netscapecookie_date(Config) when is_list(Config) -> http_util:convert_netscapecookie_date("Sun, 12-Dec-06 08:59:38 GMT"), {{2006,12,12},{8,59,38}} = http_util:convert_netscapecookie_date("Sun 12-Dec-06 08:59:38 GMT"), - ok. + {{2036,1,1},{8,0,1}} = + http_util:convert_netscapecookie_date("Tue Jan 01 08:00:01 2036 GMT"), + ok. %%-------------------------------------------------------------------- %%% Internal functions diff --git a/lib/inets/test/httpc_cookie_SUITE.erl b/lib/inets/test/httpc_cookie_SUITE.erl index ba50a42633..93dbc270c5 100644 --- a/lib/inets/test/httpc_cookie_SUITE.erl +++ b/lib/inets/test/httpc_cookie_SUITE.erl @@ -119,10 +119,18 @@ end_per_testcase(Case, Config) -> suite() -> [{ct_hooks,[ts_install_cth]}]. all() -> - [session_cookies_only, netscape_cookies, cookie_cancel, - cookie_expires, persistent_cookie, domain_cookie, - secure_cookie, update_cookie, update_cookie_session, - cookie_attributes]. + [ + session_cookies_only, + netscape_cookies, + cookie_cancel, + cookie_expires, + persistent_cookie, + domain_cookie, + secure_cookie, + update_cookie, + update_cookie_session, + cookie_attributes + ]. groups() -> []. @@ -305,38 +313,93 @@ secure_cookie(Config) when is_list(Config) -> tsp("secure_cookie -> done"), ok. +expect_cookie_header(No, ExpectedCookie) -> + case httpc:cookie_header(?URL) of + {"cookie", ExpectedCookie} -> + ok; + {"cookie", BadCookie} -> + io:format("Bad Cookie ~w: " + "~n Expected: ~s" + "~n Received: ~s" + "~n", [No, ExpectedCookie, BadCookie]), + exit({bad_cookie_header, No, ExpectedCookie, BadCookie}) + end. + +print_cookies(Pre) -> + io:format("~s: ", [Pre]), + print_cookies2(httpc:which_cookies()). + +print_cookies2([]) -> + ok; +print_cookies2([{cookies, Cookies}|Rest]) -> + print_cookies3("Cookies", Cookies), + print_cookies2(Rest); +print_cookies2([{session_cookies, Cookies}|Rest]) -> + print_cookies3("Session Cookies", Cookies), + print_cookies2(Rest); +print_cookies2([_|Rest]) -> + print_cookies2(Rest). + +print_cookies3(Header, []) -> + io:format(" ~s: []", [Header]); +print_cookies3(Header, Cookies) -> + io:format(" ~s: ", [Header]), + Prefix = " ", + PrintCookie = + fun(Cookie) -> + io:format("~s", [httpc_cookie:image_of(Prefix, Cookie)]) + end, + lists:foreach(PrintCookie, Cookies). + update_cookie(doc)-> - ["Test that a cookie can be updated."]; + ["Test that a (plain) cookie can be updated."]; update_cookie(suite) -> []; -update_cookie(Config) when is_list(Config)-> - SetCookieHeaders = [{"set-cookie", "test_cookie=true; path=/;" - "max-age=6500"}, - {"set-cookie", "test_cookie2=true; path=/;" - "max-age=6500"}], +update_cookie(Config) when is_list(Config) -> + print_cookies("Cookies before store"), + + SetCookieHeaders = + [{"set-cookie", "test_cookie=true; path=/; max-age=6500"}, + {"set-cookie", "test_cookie2=true; path=/; max-age=6500"}], httpc:store_cookies(SetCookieHeaders, ?URL), - {"cookie", "$Version=0; test_cookie2=true; $Path=/; " - "test_cookie=true; $Path=/"} = httpc:cookie_header(?URL), - NewSetCookieHeaders = [{"set-cookie", "test_cookie=false; " - "path=/;max-age=6500"}], + print_cookies("Cookies after first store"), + ExpectCookie1 = + "$Version=0; " + "test_cookie=true; $Path=/; " + "test_cookie2=true; $Path=/", + expect_cookie_header(1, ExpectCookie1), + + NewSetCookieHeaders = + [{"set-cookie", "test_cookie=false; path=/; max-age=6500"}], httpc:store_cookies(NewSetCookieHeaders, ?URL), - {"cookie", "$Version=0; test_cookie2=true; $Path=/; " - "test_cookie=false; $Path=/"} = httpc:cookie_header(?URL). - + print_cookies("Cookies after second store"), + ExpectCookie2 = + "$Version=0; " + "test_cookie2=true; $Path=/; " + "test_cookie=false; $Path=/", + expect_cookie_header(2, ExpectCookie2). + update_cookie_session(doc)-> - ["Test that a cookie can be updated."]; + ["Test that a session cookie can be updated."]; update_cookie_session(suite) -> []; update_cookie_session(Config) when is_list(Config)-> + print_cookies("Cookies before store"), + SetCookieHeaders = [{"set-cookie", "test_cookie=true; path=/"}, {"set-cookie", "test_cookie2=true; path=/"}], httpc:store_cookies(SetCookieHeaders, ?URL), - {"cookie", "$Version=0; test_cookie2=true; $Path=/; " - "test_cookie=true; $Path=/"} = httpc:cookie_header(?URL), + print_cookies("Cookies after first store"), + ExpectedCookie1 = + "$Version=0; test_cookie=true; $Path=/; test_cookie2=true; $Path=/", + expect_cookie_header(1, ExpectedCookie1), + NewSetCookieHeaders = [{"set-cookie", "test_cookie=false; path=/"}], httpc:store_cookies(NewSetCookieHeaders, ?URL), - {"cookie", "$Version=0; test_cookie2=true; $Path=/; " - "test_cookie=false; $Path=/"} = httpc:cookie_header(?URL). + print_cookies("Cookies after second store"), + ExpectedCookie2 = + "$Version=0; test_cookie2=true; $Path=/; test_cookie=false; $Path=/", + expect_cookie_header(2, ExpectedCookie2). cookie_attributes(doc) -> diff --git a/lib/inets/test/httpd_SUITE.erl b/lib/inets/test/httpd_SUITE.erl index ea704e509e..faeed3b5f9 100644 --- a/lib/inets/test/httpd_SUITE.erl +++ b/lib/inets/test/httpd_SUITE.erl @@ -593,7 +593,7 @@ init_per_testcase3(Case, Config) -> ok -> "mod_htaccess"; Other -> - error_logger:info_report("Other: ~p~n", [Other]), + error_logger:info_msg("Other: ~p~n", [Other]), {skip, "SSL does not seem to be supported"} end; [X, $s, $s, $l, $_ | Rest] -> @@ -609,7 +609,7 @@ init_per_testcase3(Case, Config) -> ok -> Rest; Other -> - error_logger:info_report("Other: ~p~n", [Other]), + error_logger:info_msg("Other: ~p~n", [Other]), {skip, "SSL does not seem to be supported"} end; "ipv6_" ++ _ = TestCaseStr -> diff --git a/lib/inets/test/httpd_test_lib.erl b/lib/inets/test/httpd_test_lib.erl index 2903aaafa5..581461fe03 100644 --- a/lib/inets/test/httpd_test_lib.erl +++ b/lib/inets/test/httpd_test_lib.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2001-2010. All Rights Reserved. +%% Copyright Ericsson AB 2001-2011. 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 diff --git a/lib/kernel/doc/src/app.xml b/lib/kernel/doc/src/app.xml index ef1f5985f4..ff8a12fe97 100644 --- a/lib/kernel/doc/src/app.xml +++ b/lib/kernel/doc/src/app.xml @@ -4,7 +4,7 @@ <fileref> <header> <copyright> - <year>1997</year><year>2009</year> + <year>1997</year><year>2011</year> <holder>Ericsson AB. All Rights Reserved.</holder> </copyright> <legalnotice> @@ -170,7 +170,6 @@ Phases [{Phase,PhaseArgs}] undefined start phase defined by the <c>start_phases</c> key, and only after this extended start procedure will <c>application:start(Application)</c> return.</p> - <p></p> <p>Start phases may be used to synchronize startup of an application and its included applications. In this case, the <c>mod</c> key must be specified as:</p> @@ -182,7 +181,6 @@ Phases [{Phase,PhaseArgs}] undefined for the primary application) both for the primary application and for each of its included application, for which the start phase is defined.</p> - <p></p> <p>This implies that for an included application, the set of start phases must be a subset of the set of phases defined for the primary application. Refer to <em>OTP Design Principles</em> for more information.</p> diff --git a/lib/kernel/doc/src/code.xml b/lib/kernel/doc/src/code.xml index 98cdd416b0..6b89711924 100644 --- a/lib/kernel/doc/src/code.xml +++ b/lib/kernel/doc/src/code.xml @@ -177,9 +177,9 @@ archives. But the functions in <c>erl_prim_loader</c> may also be used by other applications to read files from archives. For example, the call - <c>erl_prim_loader:list_dir("/otp/root/lib/mnesia-4.4.7.ez/mnesia-4.4.7/examples/bench)"</c> + <c>erl_prim_loader:list_dir( "/otp/root/lib/mnesia-4.4.7.ez/mnesia-4.4.7/examples/bench)"</c> would list the contents of a directory inside an archive. - See <seealso marker="erts:erl_prim_loader">erl_prim_loader(3)</seealso></p> + See <seealso marker="erts:erl_prim_loader">erl_prim_loader(3)</seealso></p>. <p>An application archive file and a regular application directory may coexist. This may be useful when there is a need of having diff --git a/lib/kernel/doc/src/disk_log.xml b/lib/kernel/doc/src/disk_log.xml index 9721907162..d278d54d93 100644 --- a/lib/kernel/doc/src/disk_log.xml +++ b/lib/kernel/doc/src/disk_log.xml @@ -475,8 +475,7 @@ <fsummary>Close a disk log.</fsummary> <type name="close_error_rsn"/> <desc> - <p> <marker id="close_1"></marker> -The function <c>close/1</c> closes a + <p><marker id="close_1"></marker>The function <c>close/1</c> closes a local or distributed disk log properly. An internally formatted log must be closed before the Erlang system is stopped, otherwise the log is regarded as unclosed and the diff --git a/lib/kernel/doc/src/erl_ddll.xml b/lib/kernel/doc/src/erl_ddll.xml index f9514dda2f..1911fb628e 100644 --- a/lib/kernel/doc/src/erl_ddll.xml +++ b/lib/kernel/doc/src/erl_ddll.xml @@ -989,7 +989,7 @@ <c>{ok, pending_driver}</c> or <c>{ok, pending_process}</c>.</p> </item> </taglist> - <p>The <c>pending_driver</c><c>MonitorOption</c> is by far + <p>The <c>pending_driver</c> <c>MonitorOption</c> is by far the most useful and it has to be used to ensure that the driver has really been unloaded and the ports closed whenever the <c>kill_ports</c> option is used or the diff --git a/lib/kernel/doc/src/file.xml b/lib/kernel/doc/src/file.xml index 861c582211..7db20e6343 100644 --- a/lib/kernel/doc/src/file.xml +++ b/lib/kernel/doc/src/file.xml @@ -60,11 +60,13 @@ converted, why the Unicode mode for file names is not default on systems having completely transparent file naming.</p> - <note>As of R14B01, the most basic file handling modules - (<c>file</c>, <c>prim_file</c>, <c>filelib</c> and - <c>filename</c>) accept raw file names, but the rest of OTP is not - guaranteed to handle them, why Unicode file naming on systems - where it is not default is still considered experimental.</note> + <note> + <p>As of R14B01, the most basic file handling modules + (<c>file</c>, <c>prim_file</c>, <c>filelib</c> and + <c>filename</c>) accept raw file names, but the rest of OTP is not + guaranteed to handle them, why Unicode file naming on systems + where it is not default is still considered experimental.</p> + </note> <p>Raw file names is a new feature in OTP R14B01, which allows the user to supply completely uninterpreted file names to the @@ -249,11 +251,9 @@ </item> </taglist> <p>Example:</p> - <code type="none"> -f.txt: {person, "kalle", 25}. +<code type="none">f.txt: {person, "kalle", 25}. {person, "pelle", 30}.</code> - <pre> -1> <input>file:consult("f.txt").</input> +<pre>1> <input>file:consult("f.txt").</input> {ok,[{person,"kalle",25},{person,"pelle",30}]}</pre> </desc> </func> @@ -362,7 +362,6 @@ f.txt: {person, "kalle", 25}. <p>In a future release, a bad type for the <c><anno>Filename</anno></c> argument will probably generate an exception.</p> - <p></p> </warning> </desc> </func> @@ -1523,7 +1522,6 @@ f.txt: {person, "kalle", 25}. <p>In a future release, a bad type for the <c><anno>Dir</anno></c> argument will probably generate an exception.</p> - <p></p> </warning> </desc> </func> diff --git a/lib/kernel/doc/src/gen_sctp.xml b/lib/kernel/doc/src/gen_sctp.xml index cc49090386..688cd0f78f 100644 --- a/lib/kernel/doc/src/gen_sctp.xml +++ b/lib/kernel/doc/src/gen_sctp.xml @@ -47,8 +47,7 @@ SUSE Linux Enterprise Server 10 Service Pack 1 (x86_64) kernel 2.6.16.54-0.2.3-smp with lksctp-tools-1.0.7.</p> <p>Record definitions for the <c>gen_sctp</c> module can be found using:</p> - <pre> - -include_lib("kernel/include/inet_sctp.hrl"). </pre> +<pre> -include_lib("kernel/include/inet_sctp.hrl"). </pre> <p>These record definitions use the "new" spelling 'adaptation', not the deprecated 'adaption', regardless of which spelling the underlying C API uses.</p> @@ -152,8 +151,7 @@ The result of <c>connect/*</c> is an <c>#sctp_assoc_change{}</c> event which contains, in particular, the new <seealso marker="#type-assoc_id">Association ID</seealso>.</p> - <pre> - #sctp_assoc_change{ +<pre> #sctp_assoc_change{ state = atom(), error = atom(), outbound_streams = integer(), @@ -163,8 +161,7 @@ <p>The number of outbound and inbound streams can be set by giving an <c>sctp_initmsg</c> option to <c>connect</c> as in:</p> - <pre> - connect(<anno>Socket</anno>, Ip, <anno>Port</anno>, +<pre> connect(<anno>Socket</anno>, Ip, <anno>Port</anno>, [{sctp_initmsg,#sctp_initmsg{num_ostreams=OutStreams, max_instreams=MaxInStreams}}]) </pre> <p>All options <c><anno>Opt</anno></c> are set on the socket before the @@ -340,8 +337,7 @@ <p><seealso marker="#record-sctp_assoc_change">#sctp_assoc_change{}</seealso>;</p> </item> <item> - <pre> - #sctp_paddr_change{ +<pre> #sctp_paddr_change{ addr = {ip_address(),port()}, state = atom(), error = integer(), @@ -378,8 +374,7 @@ converted into a string using <c>error_string/1</c>.</p> </item> <item> - <pre> - #sctp_send_failed{ +<pre> #sctp_send_failed{ flags = true | false, error = integer(), info = #sctp_sndrcvinfo{}, @@ -399,8 +394,7 @@ returned by <c>recv/*</c>.</p> </item> <item> - <pre> - #sctp_adaptation_event{ +<pre> #sctp_adaptation_event{ adaptation_ind = integer(), assoc_id = assoc_id() } </pre> @@ -411,8 +405,7 @@ the Erlang/SCTP binding, this event is disabled by default.</p> </item> <item> - <pre> - #sctp_pdapi_event{ +<pre> #sctp_pdapi_event{ indication = sctp_partial_delivery_aborted, assoc_id = assoc_id() } </pre> @@ -469,7 +462,7 @@ <marker id="option-binary"></marker> <marker id="option-list"></marker> <taglist> - <tag><c>{mode, list|binary}</c>or just <c>list</c> or <c>binary</c>.</tag> + <tag><c>{mode, list|binary}</c> or just <c>list</c> or <c>binary</c></tag> <item> <p>Determines the type of data returned from <c>gen_sctp:recv/1,2</c>.</p> <marker id="option-active"></marker> @@ -562,8 +555,7 @@ </item> <tag><c>{sctp_rtoinfo, #sctp_rtoinfo{}}</c></tag> <item> - <pre> - #sctp_rtoinfo{ +<pre> #sctp_rtoinfo{ assoc_id = assoc_id(), initial = integer(), max = integer(), @@ -577,8 +569,7 @@ </item> <tag><c>{sctp_associnfo, #sctp_assocparams{}}</c></tag> <item> - <pre> - #sctp_assocparams{ +<pre> #sctp_assocparams{ assoc_id = assoc_id(), asocmaxrxt = integer(), number_peer_destinations = integer(), @@ -593,8 +584,7 @@ </item> <tag><c>{sctp_initmsg, #sctp_initmsg{}}</c></tag> <item> - <pre> - #sctp_initmsg{ +<pre> #sctp_initmsg{ num_ostreams = integer(), max_instreams = integer(), max_attempts = integer(), @@ -622,7 +612,6 @@ for establishing an association.</p> </item> </list> - <p></p> </item> <tag><c>{sctp_autoclose, integer() >= 0}</c></tag> <item> @@ -657,8 +646,7 @@ </item> <tag><c>{sctp_primary_addr, #sctp_prim{}}</c></tag> <item> - <pre> - #sctp_prim{ +<pre> #sctp_prim{ assoc_id = assoc_id(), addr = {IP, Port} } @@ -671,8 +659,7 @@ </item> <tag><c>{sctp_set_peer_primary_addr, #sctp_setpeerprim{}}</c></tag> <item> - <pre> - #sctp_setpeerprim{ +<pre> #sctp_setpeerprim{ assoc_id = assoc_id(), addr = {IP, Port} } @@ -686,8 +673,7 @@ <tag><c>{sctp_adaptation_layer, #sctp_setadaptation{}}</c></tag> <item> <marker id="record-sctp_setadaptation"></marker> - <pre> - #sctp_setadaptation{ +<pre> #sctp_setadaptation{ adaptation_ind = integer() } </pre> <p>When set, requests that the local endpoint uses the value given by @@ -698,8 +684,7 @@ </item> <tag><c>{sctp_peer_addr_params, #sctp_paddrparams{}}</c></tag> <item> - <pre> - #sctp_paddrparams{ +<pre> #sctp_paddrparams{ assoc_id = assoc_id(), address = {IP, Port}, hbinterval = integer(), @@ -756,16 +741,13 @@ <p><c>sackdelay_disable</c>: disable SAC delay.</p> </item> </list> - <p></p> </item> </list> - <p></p> </item> <tag><c>{sctp_default_send_param, #sctp_sndrcvinfo{}}</c></tag> <item> <marker id="record-sctp_sndrcvinfo"></marker> - <pre> - #sctp_sndrcvinfo{ +<pre> #sctp_sndrcvinfo{ stream = integer(), ssn = integer(), flags = list(), @@ -807,20 +789,17 @@ association, with flushing of unsent data.</p> </item> </list> - <p></p> <p>Other fields are rarely used. See <url href="http://www.rfc-archive.org/getrfc.php?rfc=2960">RFC2960</url> and <url href="http://tools.ietf.org/html/draft-ietf-tsvwg-sctpsocket-13">Sockets API Extensions for SCTP</url> for full information.</p> </item> </list> - <p></p> <marker id="option-sctp_events"></marker> </item> <tag><c>{sctp_events, #sctp_event_subscribe{}}</c></tag> <item> <marker id="record-sctp_event_subscribe"></marker> - <pre> - #sctp_event_subscribe{ +<pre> #sctp_event_subscribe{ data_io_event = true | false, association_event = true | false, address_event = true | false, @@ -845,8 +824,7 @@ </item> <tag><c>{sctp_delayed_ack_time, #sctp_assoc_value{}}</c></tag> <item> - <pre> - #sctp_assoc_value{ +<pre> #sctp_assoc_value{ assoc_id = assoc_id(), assoc_value = integer() } </pre> @@ -857,8 +835,7 @@ </item> <tag><c>{sctp_status, #sctp_status{}}</c></tag> <item> - <pre> - #sctp_status{ +<pre> #sctp_status{ assoc_id = assoc_id(), state = atom(), rwnd = integer(), @@ -930,14 +907,12 @@ address (see below for the format of <c>#sctp_paddrinfo{}</c>).</p> </item> </list> - <p></p> <marker id="option-sctp_get_peer_addr_info"></marker> </item> <tag><c>{sctp_get_peer_addr_info, #sctp_paddrinfo{}}</c></tag> <item> <marker id="record-sctp_paddrinfo"></marker> - <pre> - #sctp_paddrinfo{ +<pre> #sctp_paddrinfo{ assoc_id = assoc_id(), address = {IP, Port}, state = inactive | active, @@ -968,8 +943,7 @@ <item> <p>Example of an Erlang SCTP Server which receives SCTP messages and prints them on the standard output:</p> - <pre> - -module(sctp_server). +<pre> -module(sctp_server). -export([server/0,server/1,server/2]). -include_lib("kernel/include/inet.hrl"). @@ -998,7 +972,6 @@ io:format("Received: ~p~n", [Data]) end, server_loop(S). </pre> - <p></p> </item> <item> <p>Example of an Erlang SCTP Client which interacts with the above Server. @@ -1008,8 +981,7 @@ over Stream 5 fails. The client then <c>abort</c>s the association, which results in the corresponding Event being received on the Server side.</p> - <pre> - -module(sctp_client). +<pre> -module(sctp_client). -export([client/0, client/1, client/2]). -include_lib("kernel/include/inet.hrl"). @@ -1042,13 +1014,11 @@ timer:sleep(1000), gen_sctp:close(S). </pre> - <p></p> </item> <item> <p>A very simple Erlang SCTP Client which uses the connect_init API.</p> - <pre> --module(ex3). +<pre>-module(ex3). -export([client/4]). -include_lib("kernel/include/inet.hrl"). @@ -1101,7 +1071,6 @@ client_loop(S, Peer1, Port1, AssocId1, Peer2, Port2, AssocId2) -> ok end. </pre> - <p></p> </item> </list> </section> diff --git a/lib/kernel/doc/src/inet.xml b/lib/kernel/doc/src/inet.xml index b36c28e027..fad5af85bb 100644 --- a/lib/kernel/doc/src/inet.xml +++ b/lib/kernel/doc/src/inet.xml @@ -555,8 +555,14 @@ fe80::204:acff:fe17:bf38 mode will return <c>{ok, HttpPacket}</c> from <c>gen_tcp:recv</c> while an active socket will send messages like <c>{http, Socket, HttpPacket}</c>.</p> - <p>Note that the packet type <c>httph</c> is not - needed when reading from a socket.</p> + </item> + <tag><c>httph | httph_bin</c></tag> + <item> + <p>These two types are often not needed as the socket will + automatically switch from <c>http</c>/<c>http_bin</c> to + <c>httph</c>/<c>httph_bin</c> internally after the first line + has been read. There might be occasions however when they are + useful, such as parsing trailers from chunked encoding.</p> </item> </taglist> </item> diff --git a/lib/kernel/doc/src/net_kernel.xml b/lib/kernel/doc/src/net_kernel.xml index 96e2aa665d..3b7a710664 100644 --- a/lib/kernel/doc/src/net_kernel.xml +++ b/lib/kernel/doc/src/net_kernel.xml @@ -37,13 +37,10 @@ monitoring of the network.</p> <p>An Erlang node is started using the command line flag <c>-name</c> or <c>-sname</c>:</p> - <pre> -$ <input>erl -sname foobar</input></pre> +<pre>$ <input>erl -sname foobar</input></pre> <p>It is also possible to call <c>net_kernel:start([foobar])</c> directly from the normal Erlang shell prompt:</p> - <p></p> - <pre> -1> <input>net_kernel:start([foobar, shortnames]).</input> +<pre>1> <input>net_kernel:start([foobar, shortnames]).</input> {ok,<0.64.0>} (foobar@gringotts)2></pre> <p>If the node is started with the command line flag <c>-sname</c>, @@ -226,7 +223,6 @@ $ <input>erl -sname foobar</input></pre> <c><anno>NetTicktime</anno></c> seconds. <c><anno>TransitionPeriod</anno></c> defaults to 60.</p> <p>Some definitions:</p> - <p></p> <taglist> <tag>The minimum transition traffic interval (<c>MTTI</c>)</tag> <item> diff --git a/lib/kernel/doc/src/notes.xml b/lib/kernel/doc/src/notes.xml index e325443f6c..ec57b03bd9 100644 --- a/lib/kernel/doc/src/notes.xml +++ b/lib/kernel/doc/src/notes.xml @@ -30,6 +30,62 @@ </header> <p>This document describes the changes made to the Kernel application.</p> +<section><title>Kernel 2.14.5</title> + + <section><title>Fixed Bugs and Malfunctions</title> + <list> + <item> + <p> + Fix type of Packet arg of gen_tcp:send/2 and + gen_udp:send/4</p> + <p> + The type is marked as a binary() or a string() but in + practice it can be an iodata(). The test suite was + updated to confirm the gen_tcp/2 and gen_udp:send/4 + functions accept iodata() (iolists) packets. (Thanks to + Filipe David Manana)</p> + <p> + Own Id: OTP-9514</p> + </item> + <item> + <p> XML files have been corrected. </p> + <p> + Own Id: OTP-9550 Aux Id: OTP-9541 </p> + </item> + </list> + </section> + + + <section><title>Improvements and New Features</title> + <list> + <item> + <p> The types and specifications of the inet modules have + been improved. </p> + <p> + Own Id: OTP-9260</p> + </item> + <item> + <p> Types and specifications have been added. </p> + <p> + Own Id: OTP-9356</p> + </item> + <item> + <p> Contracts in STDLIB and Kernel have been improved and + type errors have been corrected. </p> + <p> + Own Id: OTP-9485</p> + </item> + <item> + <p> Update documentation and specifications of some of + the zlib functions. </p> + <p> + Own Id: OTP-9506</p> + </item> + </list> + </section> + +</section> + <section><title>Kernel 2.14.4</title> <section><title>Fixed Bugs and Malfunctions</title> @@ -2535,7 +2591,7 @@ <c>badarg</c> if a process is already registered. As it turns out there is no check in <c>global</c> if a process is registered under more than one name. If some process is - accidentaly or by design given several names, it is + accidentally or by design given several names, it is possible that the name registry becomes inconsistent due to the way the resolve function is called when name clashes are discovered (see <c>register_name/3</c> in diff --git a/lib/kernel/examples/uds_dist/c_src/uds_drv.c b/lib/kernel/examples/uds_dist/c_src/uds_drv.c index fb10a375f4..9327ab19dc 100644 --- a/lib/kernel/examples/uds_dist/c_src/uds_drv.c +++ b/lib/kernel/examples/uds_dist/c_src/uds_drv.c @@ -111,7 +111,7 @@ do { \ typedef enum { portTypeUnknown, /* An uninitialized port */ portTypeListener, /* A listening port/socket */ - portTypeAcceptor, /* An intermidiate stage when accepting + portTypeAcceptor, /* An intermediate stage when accepting on a listen port */ portTypeConnector, /* An intermediate stage when connecting */ portTypeCommand, /* A connected open port in command mode */ @@ -401,7 +401,7 @@ static void uds_finish(void) /* ** Protocol to control: ** 'C': Set port in command mode. -** 'I': Set port in intermidiate mode +** 'I': Set port in intermediate mode ** 'D': Set port in data mode ** 'N': Get identification number for listen port ** 'S': Get statistics @@ -1000,7 +1000,7 @@ static int ensure_dir(char *path) /* ** Try to open a lock file and lock the first byte write-only (advisory) -** return the file descriptor if succesful, otherwise -1 (<0). +** return the file descriptor if successful, otherwise -1 (<0). */ static int try_lock(char *sockname, Byte *p_creation) { diff --git a/lib/kernel/src/auth.erl b/lib/kernel/src/auth.erl index ac25ab958c..c329a5652a 100644 --- a/lib/kernel/src/auth.erl +++ b/lib/kernel/src/auth.erl @@ -212,7 +212,7 @@ handle_info({From,badcookie,net_kernel,{From,spawn_link,_M,_F,_A,_Gleader}}, O) {noreply, O}; handle_info({_From,badcookie,ddd_server,_Mess}, O) -> %% Ignore bad messages to the ddd server, they will be resent - %% If the authentication is succesful + %% If the authentication is successful {noreply, O}; handle_info({From,badcookie,rex,_Msg}, O) -> auth:print(getnode(From), diff --git a/lib/kernel/src/code_server.erl b/lib/kernel/src/code_server.erl index 85bbff9cc3..e3d22e7999 100644 --- a/lib/kernel/src/code_server.erl +++ b/lib/kernel/src/code_server.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 1998-2010. All Rights Reserved. +%% Copyright Ericsson AB 1998-2011. 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 diff --git a/lib/kernel/test/code_SUITE.erl b/lib/kernel/test/code_SUITE.erl index c7d39dfd5d..10ab3e4370 100644 --- a/lib/kernel/test/code_SUITE.erl +++ b/lib/kernel/test/code_SUITE.erl @@ -81,6 +81,13 @@ init_per_suite(Config) -> end_per_suite(Config) -> Config. +init_per_testcase(big_boot_embedded, Config) -> + case catch crypto:start() of + ok -> + init_per_testcase(do_big_boot_embedded, Config); + _Else -> + {skip, "Needs crypto!"} + end; init_per_testcase(_Func, Config) -> Dog=?t:timetrap(?t:minutes(5)), P=code:get_path(), @@ -573,11 +580,13 @@ add_del_path(Config) when is_list(Config) -> clash(Config) when is_list(Config) -> DDir = ?config(data_dir,Config)++"clash/", P = code:get_path(), + [TestServerPath|_] = [Path || Path <- code:get_path(), + re:run(Path,"test_server/?$",[]) /= nomatch], %% test non-clashing entries - %% remove "." to prevent clash with test-server path - ?line true = code:del_path("."), + %% remove TestServerPath to prevent clash with test-server path + ?line true = code:del_path(TestServerPath), ?line true = code:add_path(DDir++"foobar-0.1/ebin"), ?line true = code:add_path(DDir++"zork-0.8/ebin"), test_server:capture_start(), @@ -589,8 +598,8 @@ clash(Config) when is_list(Config) -> %% test clashing entries - %% remove "." to prevent clash with test-server path - ?line true = code:del_path("."), + %% remove TestServerPath to prevent clash with test-server path + ?line true = code:del_path(TestServerPath), ?line true = code:add_path(DDir++"foobar-0.1/ebin"), ?line true = code:add_path(DDir++"foobar-0.1.ez/foobar-0.1/ebin"), test_server:capture_start(), @@ -603,9 +612,9 @@ clash(Config) when is_list(Config) -> %% test "Bad path can't read" - %% remove "." to prevent clash with test-server path + %% remove TestServerPath to prevent clash with test-server path Priv = ?config(priv_dir, Config), - ?line true = code:del_path("."), + ?line true = code:del_path(TestServerPath), TmpEzFile = Priv++"foobar-0.tmp.ez", ?line {ok, _} = file:copy(DDir++"foobar-0.1.ez", TmpEzFile), ?line true = code:add_path(TmpEzFile++"/foobar-0.1/ebin"), diff --git a/lib/kernel/test/file_SUITE.erl b/lib/kernel/test/file_SUITE.erl index fdab2eb02b..77fc7e73f9 100644 --- a/lib/kernel/test/file_SUITE.erl +++ b/lib/kernel/test/file_SUITE.erl @@ -2165,7 +2165,7 @@ write_compressed(Config) when is_list(Config) -> ?line Second = io:get_line(Fd1, ''), ?line ok = ?FILE_MODULE:close(Fd1), - %% Verify succesful compression by uncompressing the file + %% Verify successful compression by uncompressing the file %% using zlib:gunzip/1. ?line {ok,Contents} = file:read_file(MyFile), diff --git a/lib/kernel/test/gen_sctp_SUITE.erl b/lib/kernel/test/gen_sctp_SUITE.erl index 03e734445c..1b534a5fc4 100644 --- a/lib/kernel/test/gen_sctp_SUITE.erl +++ b/lib/kernel/test/gen_sctp_SUITE.erl @@ -212,7 +212,9 @@ xfer_active(Config) when is_list(Config) -> ?line test_server:fail({unexpected,flush()}) end, ?line io:format("SbAssocId=~p~n", [SbAssocId]), - ?line ok = gen_sctp:send(Sa, SaAssocId, 0, Data), + ?line ok = + do_from_other_process( + fun () -> gen_sctp:send(Sa, SaAssocId, 0, Data) end), ?line receive {sctp,Sb,Loopback,Pa, {[#sctp_sndrcvinfo{stream=Stream, @@ -378,11 +380,14 @@ def_sndrcvinfo(Config) when is_list(Config) -> end end, ?line ok = - gen_sctp:send( - S2, - #sctp_sndrcvinfo{stream=0, ppid=20, assoc_id=S2AssocId}, - <<"4: ",Data/binary>>), - ?line case ok(gen_sctp:recv(S1)) of + do_from_other_process( + fun () -> + gen_sctp:send( + S2, + #sctp_sndrcvinfo{stream=0, ppid=20, assoc_id=S2AssocId}, + <<"4: ",Data/binary>>) + end), + ?line case ok(do_from_other_process(fun() -> gen_sctp:recv(S1) end)) of {Loopback,P2, [#sctp_sndrcvinfo{ stream=0, ppid=20, context=0, assoc_id=S1AssocId}], @@ -575,6 +580,8 @@ api_opts(doc) -> api_opts(suite) -> []; api_opts(Config) when is_list(Config) -> + ?line Sndbuf = 32768, + ?line Recbuf = 65536, ?line {ok,S} = gen_sctp:open(0), ?line OSType = os:type(), ?line case {inet:setopts(S, [{linger,{true,2}}]),OSType} of @@ -582,7 +589,15 @@ api_opts(Config) when is_list(Config) -> ok; {{error,einval},{unix,sunos}} -> ok - end. + end, + ?line ok = inet:setopts(S, [{sndbuf,Sndbuf}]), + ?line ok = inet:setopts(S, [{recbuf,Recbuf}]), + ?line case inet:getopts(S, [sndbuf]) of + {ok,[{sndbuf,SB}]} when SB >= Sndbuf -> ok + end, + ?line case inet:getopts(S, [recbuf]) of + {ok,[{recbuf,RB}]} when RB >= Recbuf -> ok + end. implicit_inet6(Config) when is_list(Config) -> ?line Hostname = ok(inet:gethostname()), @@ -638,3 +653,31 @@ implicit_inet6(S1, Addr) -> {{0,0,0,0,0,0,0,0},P2} -> ok end, ?line ok = gen_sctp:close(S2). + + + +do_from_other_process(Fun) -> + Parent = self(), + Ref = make_ref(), + Child = + spawn(fun () -> + try Fun() of + Result -> + Parent ! {Ref,Result} + catch + Class:Reason -> + Stacktrace = erlang:get_stacktrace(), + Parent ! {Ref,Class,Reason,Stacktrace} + end + end), + Mref = erlang:monitor(process, Child), + receive + {Ref,Result} -> + receive {'DOWN',Mref,_,_,_} -> Result end; + {Ref,Class,Reason,Stacktrace} -> + receive {'DOWN',Mref,_,_,_} -> + erlang:raise(Class, Reason, Stacktrace) + end; + {'DOWN',Mref,_,_,Reason} -> + erlang:exit(Reason) + end. diff --git a/lib/kernel/test/inet_SUITE.erl b/lib/kernel/test/inet_SUITE.erl index 1bb173a3ac..aaa20b7398 100644 --- a/lib/kernel/test/inet_SUITE.erl +++ b/lib/kernel/test/inet_SUITE.erl @@ -294,7 +294,7 @@ t_getaddr_v6(Config) when is_list(Config) -> ?line {Name,FullName,IPStr,_IP,_,IP_46_Str,IP46} = ct:get_config(test_host_ipv4_only), case {inet:getaddr(IP_46_Str, inet6),inet:getaddr(Name, inet6)} of - {{ok,IP46},{ok,_}} -> + {{ok,IP46},{ok,V4Addr}} when V4Addr /= {0,0,0,0,0,0,0,1} -> %% Since we suceeded in parsing an IPv6 address string and %% look up the name, this computer fully supports IPv6. ?line {ok,IP46} = inet:getaddr(IP46, inet6), diff --git a/lib/kernel/test/inet_res_SUITE.erl b/lib/kernel/test/inet_res_SUITE.erl index 6064a9b2d9..8a3d220e46 100644 --- a/lib/kernel/test/inet_res_SUITE.erl +++ b/lib/kernel/test/inet_res_SUITE.erl @@ -117,9 +117,15 @@ ns_init(ZoneDir, PrivDir, DataDir) -> case os:type() of {unix,_} when ZoneDir =:= undefined -> undefined; {unix,_} -> - {ok,S} = gen_udp:open(0, [{reuseaddr,true}]), - {ok,PortNum} = inet:port(S), - gen_udp:close(S), + PortNum = case {os:type(),os:version()} of + {{unix,solaris},{M,V,_}} when M =< 5, V < 10 -> + 11895 + random:uniform(100); + _ -> + {ok,S} = gen_udp:open(0, [{reuseaddr,true}]), + {ok,PNum} = inet:port(S), + gen_udp:close(S), + PNum + end, RunNamed = filename:join(DataDir, ?RUN_NAMED), NS = {{127,0,0,1},PortNum}, P = erlang:open_port({spawn_executable,RunNamed}, diff --git a/lib/kernel/test/inet_res_SUITE_data/run-named b/lib/kernel/test/inet_res_SUITE_data/run-named index b418607d48..7caa3756ef 100755 --- a/lib/kernel/test/inet_res_SUITE_data/run-named +++ b/lib/kernel/test/inet_res_SUITE_data/run-named @@ -2,7 +2,7 @@ ## ## %CopyrightBegin% ## -## Copyright Ericsson AB 2009. All Rights Reserved. +## Copyright Ericsson AB 2009-2011. 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 @@ -155,7 +155,7 @@ $NAMED $NAMED_FG -c "$CONF_FILE" >"$LOG_FILE" 2>&1 </dev/null & NAMED=$! trap "kill -TERM $NAMED >/dev/null 2>&1; wait $NAMED >/dev/null 2>&1" \ 0 1 2 3 15 -sleep 1 # Give name server time to load its zone files +sleep 2 # Give name server time to load its zone files echo "Running: Enter \`\`quit'' to terminate nameserver[$NAMED]..." while read LINE; do test :"$LINE" = :'quit' && break diff --git a/lib/megaco/doc/src/megaco.xml b/lib/megaco/doc/src/megaco.xml index b9bf414299..5dd622368c 100644 --- a/lib/megaco/doc/src/megaco.xml +++ b/lib/megaco/doc/src/megaco.xml @@ -4,7 +4,7 @@ <erlref> <header> <copyright> - <year>2000</year><year>2010</year> + <year>2000</year><year>2011</year> <holder>Ericsson AB. All Rights Reserved.</holder> </copyright> <legalnotice> @@ -646,7 +646,7 @@ megaco_incr_timer() = #megaco_incr_timer{} segments has not yet been received.</p> <p>When the timer finally expires, a "megaco segments not received" (459) error message is sent to the other side - and the user is notified with a <c><![CDATA[segment timeout]]></c><c><![CDATA[UserReply]]></c> in either the + and the user is notified with a <c><![CDATA[segment timeout]]></c> <c><![CDATA[UserReply]]></c> in either the <seealso marker="megaco_user#trans_reply">handle_trans_reply</seealso> callback function or the return value of the <seealso marker="megaco#call">call</seealso> function. </p> @@ -1165,7 +1165,7 @@ megaco_incr_timer() = #megaco_incr_timer{} <p>When the timer finally expires, a "megaco segments not received" (459) error message is sent to the other side and the user is notified with a - <c><![CDATA[segment timeout]]></c><c><![CDATA[UserReply]]></c> in either the + <c><![CDATA[segment timeout]]></c> <c><![CDATA[UserReply]]></c> in either the <seealso marker="megaco_user#trans_reply">handle_trans_reply</seealso> callback function or the return value of the diff --git a/lib/megaco/doc/src/notes.xml b/lib/megaco/doc/src/notes.xml index 4f678a2a1b..2aba8db71b 100644 --- a/lib/megaco/doc/src/notes.xml +++ b/lib/megaco/doc/src/notes.xml @@ -36,6 +36,48 @@ section is the version number of Megaco.</p> + <section><title>Megaco 3.15.1.1</title> + + <p>Version 3.15.1.1 supports code replacement in runtime from/to + version 3.15.1 and 3.15.</p> + + <section> + <title>Improvements and new features</title> + +<!-- + <p>-</p> +--> + + <list type="bulleted"> + <item> + <p>Correct various XML errors. </p> + <p>Own Id: OTP-9550</p> + </item> + + </list> + + </section> + + <section> + <title>Fixed bugs and malfunctions</title> + + <p>-</p> + + <!-- + <list type="bulleted"> + <item> + <p>Fixing miscellaneous things detected by dialyzer. </p> + <p>Own Id: OTP-9075</p> + </item> + + </list> + --> + + </section> + + </section> <!-- 3.15.1.1 --> + + <section><title>Megaco 3.15.1</title> <p>Version 3.15.1 supports code replacement in runtime from/to diff --git a/lib/megaco/src/app/megaco.appup.src b/lib/megaco/src/app/megaco.appup.src index 01b070d79f..7107178d1a 100644 --- a/lib/megaco/src/app/megaco.appup.src +++ b/lib/megaco/src/app/megaco.appup.src @@ -136,10 +136,17 @@ %% | %% v %% 3.15.1 +%% | +%% v +%% 3.15.1.1 %% %% {"%VSN%", [ + {"3.15.1", + [ + ] + }, {"3.15", [ {load_module, megaco_flex_scanner, soft_purge, soft_purge, []}, @@ -153,6 +160,10 @@ } ], [ + {"3.15.1", + [ + ] + }, {"3.15", [ {load_module, megaco_flex_scanner, soft_purge, soft_purge, []}, diff --git a/lib/megaco/vsn.mk b/lib/megaco/vsn.mk index 5f71712360..c1476488ca 100644 --- a/lib/megaco/vsn.mk +++ b/lib/megaco/vsn.mk @@ -18,6 +18,6 @@ # %CopyrightEnd% APPLICATION = megaco -MEGACO_VSN = 3.15.1 +MEGACO_VSN = 3.15.1.1 PRE_VSN = APP_VSN = "$(APPLICATION)-$(MEGACO_VSN)$(PRE_VSN)" diff --git a/lib/mnesia/doc/src/mnesia.xml b/lib/mnesia/doc/src/mnesia.xml index 7a8f796cee..19ec70118f 100644 --- a/lib/mnesia/doc/src/mnesia.xml +++ b/lib/mnesia/doc/src/mnesia.xml @@ -246,7 +246,7 @@ If a new item is inserted with the same key as </p> </item> <item> - <p><c>{max,MaxTabs}</c><c>MaxTabs</c> is a list of + <p><c>{max,MaxTabs}</c>. <c>MaxTabs</c> is a list of tables that should be included in the checkpoint. The default is []. For these tables, the redundancy will be maximized and checkpoint information will be retained together @@ -274,7 +274,7 @@ If a new item is inserted with the same key as </p> </item> <item> - <p><c>{ram_overrides_dump,Bool} </c> Only applicable + <p><c>{ram_overrides_dump,Bool}</c>. Only applicable for <c>ram_copies</c>. <c>Bool</c> allows you to choose to backup the table state as it is in RAM, or as it is on disc. <c>true</c> means that the latest committed diff --git a/lib/mnesia/doc/src/mnesia_frag_hash.xml b/lib/mnesia/doc/src/mnesia_frag_hash.xml index 73162c3974..665796f20d 100644 --- a/lib/mnesia/doc/src/mnesia_frag_hash.xml +++ b/lib/mnesia/doc/src/mnesia_frag_hash.xml @@ -64,7 +64,7 @@ <p>Note that the <c>add_frag/2</c> function will be invoked one time each for the rest of the fragments (all but number 1) as a part of the table creation procedure.</p> - <p><c>State</c> is the initial value of the <c>hash_state</c><c>frag_property</c>. The <c>NewState</c> will be stored as + <p><c>State</c> is the initial value of the <c>hash_state</c> <c>frag_property</c>. The <c>NewState</c> will be stored as <c>hash_state</c> among the other <c>frag_properties</c>. </p> </desc> diff --git a/lib/mnesia/doc/src/notes.xml b/lib/mnesia/doc/src/notes.xml index 7f50dc049a..8ef573a948 100644 --- a/lib/mnesia/doc/src/notes.xml +++ b/lib/mnesia/doc/src/notes.xml @@ -38,7 +38,50 @@ thus constitutes one section in this document. The title of each section is the version number of Mnesia.</p> - <section><title>Mnesia 4.4.19</title> + <section><title>Mnesia 4.5</title> + + <section><title>Fixed Bugs and Malfunctions</title> + <list> + <item> + <p> + Fix protocol issues. Mnesia-4.4.19 could not communicate + with to older nodes.</p> + <p> + Own Id: OTP-9473</p> + </item> + <item> + <p> XML files have been corrected. </p> + <p> + Own Id: OTP-9550 Aux Id: OTP-9541 </p> + </item> + </list> + </section> + + + <section><title>Improvements and New Features</title> + <list> + <item> + <p> + Dump the log even if no transactions have been invoked on + local node, otherwise the log will grow forever with + decisions from the other nodes who have tables on disk. + Thanks Marek Majkowski.</p> + <p> + Own Id: OTP-9551</p> + </item> + <item> + <p> + Use dedicated api for clear_table, i.e. instead of + match_delete use delete_all_objects. Thanks KukHyun Lee.</p> + <p> + Own Id: OTP-9558</p> + </item> + </list> + </section> + +</section> + +<section><title>Mnesia 4.4.19</title> <section><title>Fixed Bugs and Malfunctions</title> <list> diff --git a/lib/mnesia/src/Makefile b/lib/mnesia/src/Makefile index e032f563fa..1c8ec54605 100644 --- a/lib/mnesia/src/Makefile +++ b/lib/mnesia/src/Makefile @@ -1,7 +1,7 @@ # # %CopyrightBegin% # -# Copyright Ericsson AB 1996-2009. All Rights Reserved. +# Copyright Ericsson AB 1996-2011. 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 @@ -113,6 +113,8 @@ clean: docs: +$(TARGET_FILES): $(HRL_FILES) + # ---------------------------------------------------- # Special Build Targets # ---------------------------------------------------- diff --git a/lib/mnesia/src/mnesia.appup.src b/lib/mnesia/src/mnesia.appup.src index 3691aa249a..fe4e5e2e7a 100644 --- a/lib/mnesia/src/mnesia.appup.src +++ b/lib/mnesia/src/mnesia.appup.src @@ -1,11 +1,13 @@ %% -*- erlang -*- {"%VSN%", [ + {"4.4.19", [{restart_application, mnesia}]}, {"4.4.18", [{restart_application, mnesia}]}, {"4.4.17", [{restart_application, mnesia}]}, {"4.4.16", [{restart_application, mnesia}]} ], [ + {"4.4.19", [{restart_application, mnesia}]}, {"4.4.18", [{restart_application, mnesia}]}, {"4.4.17", [{restart_application, mnesia}]}, {"4.4.16", [{restart_application, mnesia}]} diff --git a/lib/mnesia/src/mnesia_controller.erl b/lib/mnesia/src/mnesia_controller.erl index d4b2c7b5cc..1d3bd55b48 100644 --- a/lib/mnesia/src/mnesia_controller.erl +++ b/lib/mnesia/src/mnesia_controller.erl @@ -57,7 +57,8 @@ release_schema_commit_lock/0, create_table/1, get_disc_copy/1, - get_cstructs/0, + get_remote_cstructs/0, % new function + get_cstructs/0, % old function sync_and_block_table_whereabouts/4, sync_del_table_copy_whereabouts/2, block_table/1, @@ -278,9 +279,51 @@ rec_tabs([], _, _, Init) -> unlink(Init), ok. -get_cstructs() -> +%% New function that does exactly what get_cstructs() used to do. +%% When this function is called, we know that the calling node knows +%% how to convert cstructs on the receiving end (should they differ). +get_remote_cstructs() -> call(get_cstructs). +%% Old function kept for backwards compatibility; converts cstructs before sending. +get_cstructs() -> + {cstructs, Cstructs, Running} = call(get_cstructs), + Node = node(group_leader()), + {cstructs, normalize_cstructs(Cstructs, Node), Running}. + +normalize_cstructs(Cstructs, Node) -> + %% backward-compatibility hack; normalize before returning + case rpc:call(Node, mnesia_lib, val, [{schema,cstruct}]) of + {badrpc, _} -> + %% assume it's not a schema merge + Cstructs; + #cstruct{} -> + %% same format + Cstructs; + Cstruct -> + %% some other format + RemoteFields = [F || {F,_} <- rpc:call(Node, mnesia_schema, cs2list, [Cstruct])], + [convert_cs(Cs, RemoteFields) || Cs <- Cstructs] + end. + +convert_cs(Cs, Fields) -> + MyFields = record_info(fields, cstruct), + convert(tl(tuple_to_list(Cs)), MyFields, Fields, []). + +convert([H|T], [F|FsL], [F|FsR], Acc) -> + convert(T, FsL, FsR, [H|Acc]); +convert([H|T], [Fl|FsL] = L, [Fr|FsR] = R, Acc) -> + case {lists:member(Fl, FsR), lists:member(Fr, FsL)} of + {true, false} -> + convert(T, L, FsR, [H|Acc]); + {false, true} -> + %% Field Fl doesn't exist on receiver side; skip. + convert(T, FsL, R, Acc) + end; +convert([], _, _, Acc) -> + list_to_tuple([cstruct|lists:reverse(Acc)]). + + update(Fun) -> call({update,Fun}). diff --git a/lib/mnesia/src/mnesia_dumper.erl b/lib/mnesia/src/mnesia_dumper.erl index 92fd9dfade..f8d7664156 100644 --- a/lib/mnesia/src/mnesia_dumper.erl +++ b/lib/mnesia/src/mnesia_dumper.erl @@ -214,7 +214,12 @@ insert_rec(Rec, InPlace, InitBy, LogV) when is_record(Rec, commit) -> {Tid, committed} -> do_insert_rec(Tid, Rec, InPlace, InitBy, LogV); {Tid, aborted} -> - mnesia_schema:undo_prepare_commit(Tid, Rec) + case InitBy of + startup -> + mnesia_schema:undo_prepare_commit(Tid, Rec); + _ -> + ok + end end; insert_rec(H, _InPlace, _InitBy, _LogV) when is_record(H, log_header) -> CurrentVersion = mnesia_log:version(), @@ -359,7 +364,7 @@ dets_insert(Op,Tab,Key,Val) -> ok = dets:delete_object(Tab, Val); clear_table -> dets_cleared(Tab), - ok = dets:match_delete(Tab, '_') + ok = dets:delete_all_objects(Tab) end. dets_updated(Tab,Key) -> diff --git a/lib/mnesia/src/mnesia_lib.erl b/lib/mnesia/src/mnesia_lib.erl index 775d370d0f..ae6631646c 100644 --- a/lib/mnesia/src/mnesia_lib.erl +++ b/lib/mnesia/src/mnesia_lib.erl @@ -1141,12 +1141,18 @@ db_erase(ram_copies, Tab, Key) -> ?ets_delete(Tab, Key), ok; db_erase(disc_copies, Tab, Key) -> ?ets_delete(Tab, Key), ok; db_erase(disc_only_copies, Tab, Key) -> dets:delete(Tab, Key). +db_match_erase(Tab, '_') -> + db_delete_all(val({Tab, storage_type}),Tab); db_match_erase(Tab, Pat) -> db_match_erase(val({Tab, storage_type}), Tab, Pat). db_match_erase(ram_copies, Tab, Pat) -> ?ets_match_delete(Tab, Pat), ok; db_match_erase(disc_copies, Tab, Pat) -> ?ets_match_delete(Tab, Pat), ok; db_match_erase(disc_only_copies, Tab, Pat) -> dets:match_delete(Tab, Pat). +db_delete_all(ram_copies, Tab) -> ets:delete_all_objects(Tab); +db_delete_all(disc_copies, Tab) -> ets:delete_all_objects(Tab); +db_delete_all(disc_only_copies, Tab) -> dets:delete_all_objects(Tab). + db_first(Tab) -> db_first(val({Tab, storage_type}), Tab). db_first(ram_copies, Tab) -> ?ets_first(Tab); diff --git a/lib/mnesia/src/mnesia_loader.erl b/lib/mnesia/src/mnesia_loader.erl index 607e205fef..c4b22814a8 100644 --- a/lib/mnesia/src/mnesia_loader.erl +++ b/lib/mnesia/src/mnesia_loader.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 1998-2010. All Rights Reserved. +%% Copyright Ericsson AB 1998-2011. 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 @@ -27,7 +27,6 @@ net_load_table/4, send_table/3]). --export([old_node_init_table/6]). %% Spawned old node protocol conversion hack -export([spawned_receiver/8]). %% Spawned lock taking process -import(mnesia_lib, [set/2, fatal/2, verbose/2, dbg_out/2]). @@ -36,7 +35,7 @@ val(Var) -> case ?catch_val(Var) of - {'EXIT', Reason} -> mnesia_lib:other_val(Var, Reason); + {'EXIT', Reason} -> mnesia_lib:other_val(Var, Reason); Value -> Value end. @@ -51,7 +50,7 @@ disc_load_table(Tab, Reason) -> ?eval_debug_fun({?MODULE, do_get_disc_copy}, [{tab, Tab}, {reason, Reason}, - {storage, Storage}, + {storage, Storage}, {type, Type}]), do_get_disc_copy2(Tab, Reason, Storage, Type). @@ -63,19 +62,19 @@ do_get_disc_copy2(Tab, Reason, Storage, Type) when Storage == disc_copies -> %% NOW we create the actual table Repair = mnesia_monitor:get_env(auto_repair), Args = [{keypos, 2}, public, named_table, Type], - case Reason of + case Reason of {dumper, _} -> %% Resources allready allocated ignore; _ -> mnesia_monitor:mktab(Tab, Args), - Count = mnesia_log:dcd2ets(Tab, Repair), + Count = mnesia_log:dcd2ets(Tab, Repair), case ets:info(Tab, size) of X when X < Count * 4 -> - ok = mnesia_log:ets2dcd(Tab); + ok = mnesia_log:ets2dcd(Tab); _ -> ignore end - end, + end, mnesia_index:init_index(Tab, Storage), snmpify(Tab, Storage), set({Tab, load_node}, node()), @@ -84,7 +83,7 @@ do_get_disc_copy2(Tab, Reason, Storage, Type) when Storage == disc_copies -> do_get_disc_copy2(Tab, Reason, Storage, Type) when Storage == ram_copies -> Args = [{keypos, 2}, public, named_table, Type], - case Reason of + case Reason of {dumper, _} -> %% Resources allready allocated ignore; _ -> @@ -94,12 +93,12 @@ do_get_disc_copy2(Tab, Reason, Storage, Type) when Storage == ram_copies -> Repair = mnesia_monitor:get_env(auto_repair), case mnesia_monitor:use_dir() of true -> - case mnesia_lib:exists(Fname) of + case mnesia_lib:exists(Fname) of true -> mnesia_log:dcd2ets(Tab, Repair); false -> case mnesia_lib:exists(Datname) of true -> - mnesia_lib:dets_to_ets(Tab, Tab, Datname, + mnesia_lib:dets_to_ets(Tab, Tab, Datname, Type, Repair, no); false -> false @@ -154,11 +153,11 @@ do_get_disc_copy2(Tab, Reason, Storage, Type) when Storage == disc_only_copies - %% Disable rehashing of table %% Release read lock on table %% Send table to receiver in chunks -%% +%% %% Grab read lock on table %% Block dirty updates %% Update wherabouts -%% +%% %% Cancel the update subscription %% Process the subscription events %% Optionally dump to disc @@ -166,7 +165,7 @@ do_get_disc_copy2(Tab, Reason, Storage, Type) when Storage == disc_only_copies - %% Release read lock on table %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% --define(MAX_TRANSFER_SIZE, 7500). +-define(MAX_TRANSFER_SIZE, 7500). -define(MAX_RAM_FILE_SIZE, 1000000). -define(MAX_RAM_TRANSFERS, (?MAX_RAM_FILE_SIZE div ?MAX_TRANSFER_SIZE) + 1). -define(MAX_NOPACKETS, 20). @@ -187,14 +186,14 @@ try_net_load_table(Tab, Reason, Ns, Cs) -> do_get_network_copy(Tab, _Reason, _Ns, unknown, _Cs) -> verbose("Local table copy of ~p has recently been deleted, ignored.~n", [Tab]), {not_loaded, storage_unknown}; -do_get_network_copy(Tab, Reason, Ns, Storage, Cs) -> +do_get_network_copy(Tab, Reason, Ns, Storage, Cs) -> [Node | Tail] = Ns, case lists:member(Node,val({current, db_nodes})) of true -> dbg_out("Getting table ~p (~p) from node ~p: ~p~n", [Tab, Storage, Node, Reason]), ?eval_debug_fun({?MODULE, do_get_network_copy}, - [{tab, Tab}, {reason, Reason}, + [{tab, Tab}, {reason, Reason}, {nodes, Ns}, {storage, Storage}]), case init_receiver(Node, Tab, Storage, Cs, Reason) of ok -> @@ -208,7 +207,7 @@ do_get_network_copy(Tab, Reason, Ns, Storage, Cs) -> restart -> try_net_load_table(Tab, Reason, Tail ++ [Node], Cs); down -> - try_net_load_table(Tab, Reason, Tail, Cs) + try_net_load_table(Tab, Reason, Tail, Cs) end; false -> try_net_load_table(Tab, Reason, Tail, Cs) @@ -223,10 +222,10 @@ do_snmpify(Tab, Us, Storage) -> Snmp = mnesia_snmp_hook:create_table(Us, Tab, Storage), set({Tab, {index, snmp}}, Snmp). -%% Start the recieiver +%% Start the recieiver init_receiver(Node, Tab, Storage, Cs, Reas={dumper,add_table_copy}) -> case start_remote_sender(Node, Tab, Storage) of - {SenderPid, TabSize, DetsData} -> + {SenderPid, TabSize, DetsData} -> start_receiver(Tab,Storage,Cs,SenderPid,TabSize,DetsData,Reas); Else -> Else @@ -234,21 +233,21 @@ init_receiver(Node, Tab, Storage, Cs, Reas={dumper,add_table_copy}) -> init_receiver(Node, Tab,Storage,Cs,Reason) -> %% Grab a schema lock to avoid deadlock between table_loader and schema_commit dumping. %% Both may grab tables-locks in different order. - Load = - fun() -> - {_,Tid,Ts} = get(mnesia_activity_state), + Load = + fun() -> + {_,Tid,Ts} = get(mnesia_activity_state), mnesia_locker:rlock(Tid, Ts#tidstore.store, {schema, Tab}), - %% Check that table still exists + %% Check that table still exists Active = val({Tab, active_replicas}), %% Check that we havn't loaded it already case val({Tab,where_to_read}) == node() of true -> ok; _ -> - %% And that sender still got a copy - %% (something might have happend while + %% And that sender still got a copy + %% (something might have happend while %% we where waiting for the lock) true = lists:member(Node, Active), - {SenderPid, TabSize, DetsData} = + {SenderPid, TabSize, DetsData} = start_remote_sender(Node,Tab,Storage), Init = table_init_fun(SenderPid), Args = [self(),Tab,Storage,Cs,SenderPid, @@ -258,18 +257,18 @@ init_receiver(Node, Tab,Storage,Cs,Reason) -> wait_on_load_complete(Pid) end end, - Res = + Res = case mnesia:transaction(Load, 20) of - {atomic, {error,Result}} when - element(1,Reason) == dumper -> + {atomic, {error,Result}} when + element(1,Reason) == dumper -> {error,Result}; - {atomic, {error,Result}} -> + {atomic, {error,Result}} -> fatal("Cannot create table ~p: ~p~n", [[Tab, Storage], Result]); {atomic, Result} -> Result; {aborted, nomore} -> restart; - {aborted, _Reas} -> - verbose("Receiver failed on ~p from ~p:~nReason: ~p~n", + {aborted, _Reas} -> + verbose("Receiver failed on ~p from ~p:~nReason: ~p~n", [Tab,Node,_Reas]), down %% either this node or sender is dying end, @@ -279,7 +278,7 @@ init_receiver(Node, Tab,Storage,Cs,Reason) -> start_remote_sender(Node,Tab,Storage) -> mnesia_controller:start_remote_sender(Node, Tab, self(), Storage), put(mnesia_table_sender_node, {Tab, Node}), - receive + receive {SenderPid, {first, TabSize}} -> {SenderPid, TabSize, false}; {SenderPid, {first, TabSize, DetsData}} -> @@ -291,22 +290,14 @@ start_remote_sender(Node,Tab,Storage) -> end. table_init_fun(SenderPid) -> - PConv = mnesia_monitor:needs_protocol_conversion(node(SenderPid)), - MeMyselfAndI = self(), fun(read) -> - Receiver = - if - PConv == true -> - MeMyselfAndI ! {actual_tabrec, self()}, - MeMyselfAndI; %% Old mnesia - PConv == false -> self() - end, + Receiver = self(), SenderPid ! {Receiver, more}, get_data(SenderPid, Receiver) end. %% Add_table_copy get's it's own locks. -start_receiver(Tab,Storage,Cs,SenderPid,TabSize,DetsData,{dumper,add_table_copy}) -> +start_receiver(Tab,Storage,Cs,SenderPid,TabSize,DetsData,{dumper,add_table_copy}) -> Init = table_init_fun(SenderPid), case do_init_table(Tab,Storage,Cs,SenderPid,TabSize,DetsData,self(), Init) of Err = {error, _} -> @@ -317,8 +308,8 @@ start_receiver(Tab,Storage,Cs,SenderPid,TabSize,DetsData,{dumper,add_table_copy} end. spawned_receiver(ReplyTo,Tab,Storage,Cs, SenderPid,TabSize,DetsData, Init) -> - process_flag(trap_exit, true), - Done = do_init_table(Tab,Storage,Cs, + process_flag(trap_exit, true), + Done = do_init_table(Tab,Storage,Cs, SenderPid,TabSize,DetsData, ReplyTo, Init), ReplyTo ! {self(),Done}, @@ -327,17 +318,17 @@ spawned_receiver(ReplyTo,Tab,Storage,Cs, SenderPid,TabSize,DetsData, Init) -> exit(normal). wait_on_load_complete(Pid) -> - receive - {Pid, Res} -> + receive + {Pid, Res} -> Res; - {'EXIT', Pid, Reason} -> + {'EXIT', Pid, Reason} -> exit(Reason); - Else -> + Else -> Pid ! Else, wait_on_load_complete(Pid) end. -do_init_table(Tab,Storage,Cs,SenderPid, +do_init_table(Tab,Storage,Cs,SenderPid, TabSize,DetsInfo,OrigTabRec,Init) -> case create_table(Tab, TabSize, Storage, Cs) of {Storage,Tab} -> @@ -345,11 +336,9 @@ do_init_table(Tab,Storage,Cs,SenderPid, Node = node(SenderPid), put(mnesia_table_receiver, {Tab, Node, SenderPid}), mnesia_tm:block_tab(Tab), - PConv = mnesia_monitor:needs_protocol_conversion(Node), - - case init_table(Tab,Storage,Init,PConv,DetsInfo,SenderPid) of - ok -> - tab_receiver(Node,Tab,Storage,Cs,PConv,OrigTabRec); + case init_table(Tab,Storage,Init,DetsInfo,SenderPid) of + ok -> + tab_receiver(Node,Tab,Storage,Cs,OrigTabRec); Reason -> Msg = "[d]ets:init table failed", verbose("~s: ~p: ~p~n", [Msg, Tab, Reason]), @@ -360,7 +349,7 @@ do_init_table(Tab,Storage,Cs,SenderPid, end. create_table(Tab, TabSize, Storage, Cs) -> - if + if Storage == disc_only_copies -> mnesia_lib:lock_table(Tab), Tmp = mnesia_lib:tab2tmp(Tab), @@ -390,54 +379,30 @@ create_table(Tab, TabSize, Storage, Cs) -> end end. -tab_receiver(Node, Tab, Storage, Cs, PConv, OrigTabRec) -> +tab_receiver(Node, Tab, Storage, Cs, OrigTabRec) -> receive - {SenderPid, {no_more, DatBin}} when PConv == false -> + {SenderPid, {no_more, DatBin}} -> finish_copy(Storage,Tab,Cs,SenderPid,DatBin,OrigTabRec); - - %% Protocol conversion hack - {SenderPid, {no_more, DatBin}} when is_pid(PConv) -> - PConv ! {SenderPid, no_more}, - receive - {old_init_table_complete, ok} -> - finish_copy(Storage, Tab, Cs, SenderPid, DatBin,OrigTabRec); - {old_init_table_complete, Reason} -> - Msg = "OLD: [d]ets:init table failed", - verbose("~s: ~p: ~p~n", [Msg, Tab, Reason]), - down(Tab, Storage) - end; - - {actual_tabrec, Pid} -> - tab_receiver(Node, Tab, Storage, Cs, Pid,OrigTabRec); - - {SenderPid, {more, [Recs]}} when is_pid(PConv) -> - PConv ! {SenderPid, {more, Recs}}, %% Forward Msg to OldNodes - tab_receiver(Node, Tab, Storage, Cs, PConv,OrigTabRec); - {'EXIT', PConv, Reason} -> %% [d]ets:init process crashed - Msg = "Receiver crashed", - verbose("~s: ~p: ~p~n", [Msg, Tab, Reason]), - down(Tab, Storage); - %% Protocol conversion hack {copier_done, Node} -> verbose("Sender of table ~p crashed on node ~p ~n", [Tab, Node]), down(Tab, Storage); - + {'EXIT', Pid, Reason} -> handle_exit(Pid, Reason), - tab_receiver(Node, Tab, Storage, Cs, PConv,OrigTabRec) + tab_receiver(Node, Tab, Storage, Cs, OrigTabRec) end. make_table_fun(Pid, TabRec) -> fun(close) -> ok; (read) -> - get_data(Pid, TabRec) + get_data(Pid, TabRec) end. get_data(Pid, TabRec) -> - receive + receive {Pid, {more_z, CompressedRecs}} when is_binary(CompressedRecs) -> Pid ! {TabRec, more}, {zlib_uncompress(CompressedRecs), make_table_fun(Pid,TabRec)}; @@ -448,7 +413,7 @@ get_data(Pid, TabRec) -> end_of_input; {copier_done, Node} -> case node(Pid) of - Node -> + Node -> {copier_done, Node}; _ -> get_data(Pid, TabRec) @@ -458,10 +423,10 @@ get_data(Pid, TabRec) -> get_data(Pid, TabRec) end. -init_table(Tab, disc_only_copies, Fun, false, DetsInfo,Sender) -> +init_table(Tab, disc_only_copies, Fun, DetsInfo,Sender) -> ErtsVer = erlang:system_info(version), case DetsInfo of - {ErtsVer, DetsData} -> + {ErtsVer, DetsData} -> Res = (catch dets:is_compatible_bchunk_format(Tab, DetsData)), case Res of {'EXIT',{undef,[{dets,_,_,_}|_]}} -> @@ -481,28 +446,19 @@ init_table(Tab, disc_only_copies, Fun, false, DetsInfo,Sender) -> _ -> dets:init_table(Tab, Fun) end; -init_table(Tab, _, Fun, false, _DetsInfo,_) -> +init_table(Tab, _, Fun, _DetsInfo,_) -> case catch ets:init_table(Tab, Fun) of true -> ok; {'EXIT', Else} -> Else - end; -init_table(Tab, Storage, Fun, true, _DetsInfo, Sender) -> %% Old Nodes - spawn_link(?MODULE, old_node_init_table, - [Tab, Storage, Fun, self(), false, Sender]), - ok. + end. -old_node_init_table(Tab, Storage, Fun, TabReceiver, DetsInfo,Sender) -> - Res = init_table(Tab, Storage, Fun, false, DetsInfo,Sender), - TabReceiver ! {old_init_table_complete, Res}, - unlink(TabReceiver), - ok. finish_copy(Storage,Tab,Cs,SenderPid,DatBin,OrigTabRec) -> TabRef = {Storage, Tab}, subscr_receiver(TabRef, Cs#cstruct.record_name), case handle_last(TabRef, Cs#cstruct.type, DatBin) of - ok -> + ok -> mnesia_index:init_index(Tab, Storage), snmpify(Tab, Storage), %% OrigTabRec must not be the spawned tab-receiver @@ -534,7 +490,7 @@ subscr_receiver(TabRef = {_, Tab}, RecName) -> ok end. -handle_event(TabRef, write, Rec) -> +handle_event(TabRef, write, Rec) -> db_put(TabRef, Rec); handle_event(TabRef, delete, {_Tab, Key}) -> db_erase(TabRef, Key); @@ -545,8 +501,8 @@ handle_event(TabRef, clear_table, {_Tab, _Key}) -> handle_last({disc_copies, Tab}, _Type, nobin) -> Ret = mnesia_log:ets2dcd(Tab), - Fname = mnesia_lib:tab2dat(Tab), - case mnesia_lib:exists(Fname) of + Fname = mnesia_lib:tab2dat(Tab), + case mnesia_lib:exists(Fname) of true -> %% Remove old .DAT files. file:delete(Fname); false -> @@ -653,31 +609,29 @@ send_table(Pid, Tab, RemoteS) -> {error, {no_exists, Tab}}; Storage -> %% Send first - TabSize = mnesia:table_info(Tab, size), - Pconvert = mnesia_monitor:needs_protocol_conversion(node(Pid)), + TabSize = mnesia:table_info(Tab, size), KeysPerTransfer = calc_nokeys(Storage, Tab), ChunkData = dets:info(Tab, bchunk_format), - UseDetsChunk = - Storage == RemoteS andalso - Storage == disc_only_copies andalso - ChunkData /= undefined andalso - Pconvert == false, - if + UseDetsChunk = + Storage == RemoteS andalso + Storage == disc_only_copies andalso + ChunkData /= undefined, + if UseDetsChunk == true -> DetsInfo = erlang:system_info(version), Pid ! {self(), {first, TabSize, {DetsInfo, ChunkData}}}; true -> Pid ! {self(), {first, TabSize}} end, - + %% Debug info put(mnesia_table_sender, {Tab, node(Pid), Pid}), {Init, Chunk} = reader_funcs(UseDetsChunk, Tab, Storage, KeysPerTransfer), - + SendIt = fun() -> prepare_copy(Pid, Tab, Storage), - send_more(Pid, 1, Chunk, Init(), Tab, Pconvert), + send_more(Pid, 1, Chunk, Init(), Tab), finish_copy(Pid, Tab, Storage, RemoteS) end, @@ -698,7 +652,7 @@ send_table(Pid, Tab, RemoteS) -> {error, Reason} end end. - + prepare_copy(Pid, Tab, Storage) -> Trans = fun() -> @@ -717,11 +671,11 @@ prepare_copy(Pid, Tab, Storage) -> update_where_to_write(Tab, Node) -> case val({Tab, access_mode}) of - read_only -> + read_only -> ignore; - read_write -> + read_write -> Current = val({current, db_nodes}), - Ns = + Ns = case lists:member(Node, Current) of true -> Current; false -> [Node | Current] @@ -729,27 +683,27 @@ update_where_to_write(Tab, Node) -> update_where_to_write(Ns, Tab, Node) end. -update_where_to_write([], _, _) -> +update_where_to_write([], _, _) -> ok; update_where_to_write([H|T], Tab, AddNode) -> - rpc:call(H, mnesia_controller, call, + rpc:call(H, mnesia_controller, call, [{update_where_to_write, [add, Tab, AddNode], self()}]), update_where_to_write(T, Tab, AddNode). -send_more(Pid, N, Chunk, DataState, Tab, OldNode) -> +send_more(Pid, N, Chunk, DataState, Tab) -> receive {NewPid, more} -> - case send_packet(N - 1, NewPid, Chunk, DataState, OldNode) of - New when is_integer(New) -> + case send_packet(N - 1, NewPid, Chunk, DataState) of + New when is_integer(New) -> New - 1; NewData -> - send_more(NewPid, ?MAX_NOPACKETS, Chunk, NewData, Tab, OldNode) + send_more(NewPid, ?MAX_NOPACKETS, Chunk, NewData, Tab) end; {_NewPid, {old_protocol, Tab}} -> Storage = val({Tab, storage_type}), - {Init, NewChunk} = + {Init, NewChunk} = reader_funcs(false, Tab, Storage, calc_nokeys(Storage, Tab)), - send_more(Pid, 1, NewChunk, Init(), Tab, OldNode); + send_more(Pid, 1, NewChunk, Init(), Tab); {copier_done, Node} when Node == node(Pid)-> verbose("Receiver of table ~p crashed on ~p (more)~n", [Tab, Node]), @@ -770,7 +724,7 @@ dets_bchunk(Tab, Chunk) -> %% Arrg case dets:bchunk(Tab, Chunk) of {Cont, Data} -> {Data, Cont}; Else -> Else - end. + end. zlib_compress(Data, Level) -> BinData = term_to_binary(Data), @@ -793,28 +747,20 @@ compression_level() -> Val -> Val end. -send_packet(N, Pid, _Chunk, '$end_of_table', OldNode) -> - case OldNode of - true -> ignore; %% Old nodes can't handle the new no_more - false -> Pid ! {self(), no_more} - end, +send_packet(N, Pid, _Chunk, '$end_of_table') -> + Pid ! {self(), no_more}, N; -send_packet(N, Pid, Chunk, {[], Cont}, OldNode) -> - send_packet(N, Pid, Chunk, Chunk(Cont), OldNode); -send_packet(N, Pid, Chunk, {Recs, Cont}, OldNode) when N < ?MAX_NOPACKETS -> - case OldNode of - true -> - Pid ! {self(), {more, [Recs]}}; %% Old need's wrapping list - false -> - case compression_level() of - 0 -> - Pid ! {self(), {more, Recs}}; - Level -> - Pid ! {self(), {more_z, zlib_compress(Recs, Level)}} - end +send_packet(N, Pid, Chunk, {[], Cont}) -> + send_packet(N, Pid, Chunk, Chunk(Cont)); +send_packet(N, Pid, Chunk, {Recs, Cont}) when N < ?MAX_NOPACKETS -> + case compression_level() of + 0 -> + Pid ! {self(), {more, Recs}}; + Level -> + Pid ! {self(), {more_z, zlib_compress(Recs, Level)}} end, - send_packet(N+1, Pid, Chunk, Chunk(Cont), OldNode); -send_packet(_N, _Pid, _Chunk, DataState, _OldNode) -> + send_packet(N+1, Pid, Chunk, Chunk(Cont)); +send_packet(_N, _Pid, _Chunk, DataState) -> DataState. finish_copy(Pid, Tab, Storage, RemoteS) -> @@ -855,5 +801,5 @@ dat2bin(_Tab, _LocalS, _RemoteS) -> handle_exit(Pid, Reason) when node(Pid) == node() -> exit(Reason); -handle_exit(_Pid, _Reason) -> %% Not from our node, this will be handled by +handle_exit(_Pid, _Reason) -> %% Not from our node, this will be handled by ignore. %% mnesia_down soon. diff --git a/lib/mnesia/src/mnesia_log.erl b/lib/mnesia/src/mnesia_log.erl index 9e804cc4c2..94153473cb 100644 --- a/lib/mnesia/src/mnesia_log.erl +++ b/lib/mnesia/src/mnesia_log.erl @@ -1021,7 +1021,8 @@ add_recs([LogH|Rest], N) LogH#log_header.log_version >= "1.0" -> add_recs(Rest, N); add_recs([{{Tab, _Key}, _Val, clear_table} | Rest], N) -> - true = ets:match_delete(Tab, '_'), - add_recs(Rest, N+ets:info(Tab, size)); + Size = ets:info(Tab, size), + true = ets:delete_all_objects(Tab), + add_recs(Rest, N+Size); add_recs([], N) -> N. diff --git a/lib/mnesia/src/mnesia_monitor.erl b/lib/mnesia/src/mnesia_monitor.erl index b6eda9ad3a..e110ad3241 100644 --- a/lib/mnesia/src/mnesia_monitor.erl +++ b/lib/mnesia/src/mnesia_monitor.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 1996-2010. All Rights Reserved. +%% Copyright Ericsson AB 1996-2011. 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 @@ -76,13 +76,13 @@ -include("mnesia.hrl"). --record(state, {supervisor, pending_negotiators = [], +-record(state, {supervisor, pending_negotiators = [], going_down = [], tm_started = false, early_connects = [], connecting, mq = []}). --define(current_protocol_version, {7,6}). +-define(current_protocol_version, {8,0}). --define(previous_protocol_version, {7,5}). +-define(previous_protocol_version, {7,6}). start() -> gen_server:start_link({local, ?MODULE}, ?MODULE, @@ -151,12 +151,12 @@ check_protocol([{Node, {accept, Mon, Version, Protocol}} | Tail], Protocols) -> case lists:member(Protocol, Protocols) of true -> case Protocol == protocol_version() of - true -> + true -> set({protocol, Node}, {Protocol, false}); false -> set({protocol, Node}, {Protocol, true}) end, - [node(Mon) | check_protocol(Tail, Protocols)]; + [node(Mon) | check_protocol(Tail, Protocols)]; false -> verbose("Failed to connect with ~p. ~p protocols rejected. " "expected version = ~p, expected protocol = ~p~n", @@ -179,7 +179,7 @@ check_protocol([], [Protocol | _Protocols]) -> set(protocol_version, Protocol), []. -protocol_version() -> +protocol_version() -> case ?catch_val(protocol_version) of {'EXIT', _} -> ?current_protocol_version; Version -> Version @@ -189,14 +189,14 @@ protocol_version() -> %% preferred protocols are first in the list acceptable_protocol_versions() -> [protocol_version(), ?previous_protocol_version]. - + needs_protocol_conversion(Node) -> case {?catch_val({protocol, Node}), protocol_version()} of {{'EXIT', _}, _} -> false; - {{_, Bool}, ?current_protocol_version} -> + {{_, Bool}, ?current_protocol_version} -> Bool; - {{_, Bool}, _} -> + {{_, Bool}, _} -> not Bool end. @@ -255,15 +255,15 @@ terminate_proc(Who, Reason, _State) -> %%---------------------------------------------------------------------- init([Parent]) -> process_flag(trap_exit, true), - ?ets_new_table(mnesia_gvar, [set, public, named_table]), - ?ets_new_table(mnesia_stats, [set, public, named_table]), + ?ets_new_table(mnesia_gvar, [set, public, named_table]), + ?ets_new_table(mnesia_stats, [set, public, named_table]), set(subscribers, []), set(activity_subscribers, []), mnesia_lib:verbose("~p starting: ~p~n", [?MODULE, self()]), Version = mnesia:system_info(version), set(version, Version), dbg_out("Version: ~p~n", [Version]), - + case catch process_config_args(env()) of ok -> mnesia_lib:set({'$$$_report', current_pos}, 0), @@ -283,7 +283,7 @@ init([Parent]) -> set(checkpoints, []), set(pending_checkpoints, []), set(pending_checkpoint_pids, []), - + {ok, #state{supervisor = Parent}}; {'EXIT', Reason} -> mnesia_lib:report_fatal("Bad configuration: ~p~n", [Reason]), @@ -398,9 +398,9 @@ handle_call({unsafe_close_log, Name}, _From, State) -> disk_log:close(Name), {reply, ok, State}; -handle_call({negotiate_protocol, Mon, _Version, _Protocols}, _From, State) +handle_call({negotiate_protocol, Mon, _Version, _Protocols}, _From, State) when State#state.tm_started == false -> - State2 = State#state{early_connects = [node(Mon) | State#state.early_connects]}, + State2 = State#state{early_connects = [node(Mon) | State#state.early_connects]}, {reply, {node(), {reject, self(), uninitialized, uninitialized}}, State2}; %% From remote monitor.. @@ -412,7 +412,7 @@ handle_call({negotiate_protocol, Mon, Version, Protocols}, From, State) true -> accept_protocol(Mon, MyVersion, Protocol, From, State); false -> - %% in this release we should be able to handle the previous + %% in this release we should be able to handle the previous %% protocol case hd(Protocols) of ?previous_protocol_version -> @@ -427,7 +427,7 @@ handle_call({negotiate_protocol, Mon, Version, Protocols}, From, State) end; %% Local request to negotiate with other monitors (nodes). -handle_call({negotiate_protocol, Nodes}, From, State) -> +handle_call({negotiate_protocol, Nodes}, From, State) -> case mnesia_lib:intersect(State#state.going_down, Nodes) of [] -> spawn_link(?MODULE, negotiate_protocol_impl, [Nodes, From]), @@ -461,7 +461,7 @@ accept_protocol(Mon, Version, Protocol, From, State) -> %% No need for wait link(Mon), %% link to remote Monitor case Protocol == protocol_version() of - true -> + true -> set({protocol, Node}, {Protocol, false}); false -> set({protocol, Node}, {Protocol, true}) @@ -509,7 +509,7 @@ handle_cast({disconnect, Node}, State) -> ignore; undefined -> ignore; - RemoteMon when is_pid(RemoteMon) -> + RemoteMon when is_pid(RemoteMon) -> unlink(RemoteMon) end, {noreply, State}; @@ -534,7 +534,7 @@ handle_info({'EXIT', Pid, R}, State) when Pid == State#state.supervisor -> dbg_out("~p was ~p by supervisor~n",[?MODULE, R]), {stop, R, State}; -handle_info({'EXIT', Pid, fatal}, State) when node(Pid) == node() -> +handle_info({'EXIT', Pid, fatal}, State) when node(Pid) == node() -> dbg_out("~p got FATAL ERROR from: ~p~n",[?MODULE, Pid]), exit(State#state.supervisor, shutdown), {noreply, State}; @@ -550,7 +550,7 @@ handle_info(Msg = {'EXIT',Pid,_}, State) -> Node /= node() -> {noreply, State#state{mq = State#state.mq ++ [{info, Msg}]}}; true -> - %% We have probably got an exit signal from + %% We have probably got an exit signal from %% disk_log or dets Hint = "Hint: check that the disk still is writable", fatal("~p got unexpected info: ~p; ~p~n", @@ -567,10 +567,10 @@ handle_info({nodeup, Node}, State) -> %% Let's check if Mnesia is running there in order %% to detect if the network has been partitioned %% due to communication failure. - + HasDown = mnesia_recover:has_mnesia_down(Node), ImRunning = mnesia_lib:is_running(), - + if %% If I'm not running the test will be made later. HasDown == true, ImRunning == yes -> @@ -589,7 +589,7 @@ handle_info({disk_log, _Node, Log, Info}, State) -> {truncated, _No} -> ok; _ -> - mnesia_lib:important("Warning Log file ~p error reason ~s~n", + mnesia_lib:important("Warning Log file ~p error reason ~s~n", [Log, disk_log:format_error(Info)]) end, {noreply, State}; @@ -681,38 +681,38 @@ env() -> send_compressed ]. -default_env(access_module) -> +default_env(access_module) -> mnesia; -default_env(auto_repair) -> +default_env(auto_repair) -> true; -default_env(backup_module) -> +default_env(backup_module) -> mnesia_backup; -default_env(debug) -> +default_env(debug) -> none; default_env(dir) -> Name = lists:concat(["Mnesia.", node()]), filename:absname(Name); -default_env(dump_log_load_regulation) -> +default_env(dump_log_load_regulation) -> false; -default_env(dump_log_time_threshold) -> +default_env(dump_log_time_threshold) -> timer:minutes(3); -default_env(dump_log_update_in_place) -> +default_env(dump_log_update_in_place) -> true; default_env(dump_log_write_threshold) -> 1000; -default_env(embedded_mnemosyne) -> +default_env(embedded_mnemosyne) -> false; -default_env(event_module) -> +default_env(event_module) -> mnesia_event; -default_env(extra_db_nodes) -> +default_env(extra_db_nodes) -> []; -default_env(ignore_fallback_at_startup) -> +default_env(ignore_fallback_at_startup) -> false; default_env(fallback_error_function) -> {mnesia, lkill}; -default_env(max_wait_for_decision) -> +default_env(max_wait_for_decision) -> infinity; -default_env(schema_location) -> +default_env(schema_location) -> opt_disc; default_env(core_dir) -> false; @@ -732,7 +732,7 @@ check_type(Env, Val) -> NewVal -> NewVal end. - + do_check_type(access_module, A) when is_atom(A) -> A; do_check_type(auto_repair, B) -> bool(B); do_check_type(backup_module, B) when is_atom(B) -> B; @@ -749,7 +749,7 @@ do_check_type(dump_log_update_in_place, B) -> bool(B); do_check_type(dump_log_write_threshold, I) when is_integer(I), I > 0 -> I; do_check_type(event_module, A) when is_atom(A) -> A; do_check_type(ignore_fallback_at_startup, B) -> bool(B); -do_check_type(fallback_error_function, {Mod, Func}) +do_check_type(fallback_error_function, {Mod, Func}) when is_atom(Mod), is_atom(Func) -> {Mod, Func}; do_check_type(embedded_mnemosyne, B) -> bool(B); do_check_type(extra_db_nodes, L) when is_list(L) -> @@ -804,8 +804,8 @@ detect_inconcistency(Nodes, Context) -> has_remote_mnesia_down(Node) -> HasDown = mnesia_recover:has_mnesia_down(Node), Master = mnesia_recover:get_master_nodes(schema), - if - HasDown == true, Master == [] -> + if + HasDown == true, Master == [] -> {true, node()}; true -> {false, node()} diff --git a/lib/mnesia/src/mnesia_recover.erl b/lib/mnesia/src/mnesia_recover.erl index b3eed1de6e..4750291a10 100644 --- a/lib/mnesia/src/mnesia_recover.erl +++ b/lib/mnesia/src/mnesia_recover.erl @@ -227,11 +227,13 @@ do_log_decision(D, DoTell, NodeD) -> note_outcome(D2), case mnesia_monitor:use_dir() of true -> - mnesia_log:append(latest_log, D2), if DoTell == true, Outcome /= unclear -> tell_im_certain(NodeD#decision.disc_nodes--[node()],D2), - tell_im_certain(NodeD#decision.ram_nodes--[node()], D2); + tell_im_certain(NodeD#decision.ram_nodes--[node()], D2), + mnesia_log:log(D2); + Outcome /= unclear -> + mnesia_log:log(D2); true -> ignore end; diff --git a/lib/mnesia/src/mnesia_schema.erl b/lib/mnesia/src/mnesia_schema.erl index fef72ad39c..05be474aea 100644 --- a/lib/mnesia/src/mnesia_schema.erl +++ b/lib/mnesia/src/mnesia_schema.erl @@ -100,7 +100,7 @@ ]). %% Needed outside to be able to use/set table_properties -%% from user (not supported) +%% from user (not supported) -export([schema_transaction/1, insert_schema_ops/2, do_create_table/1, @@ -118,9 +118,9 @@ %% Here comes the init function which also resides in %% this module, it is called upon by the trans server %% at startup of the system -%% +%% %% We have a meta table which looks like -%% {table, schema, +%% {table, schema, %% {type, set}, %% {disc_copies, all}, %% {arity, 2} @@ -149,14 +149,14 @@ exit_on_error(GoodRes) -> val(Var) -> case ?catch_val(Var) of - {'EXIT', Reason} -> mnesia_lib:other_val(Var, Reason); - Value -> Value + {'EXIT', Reason} -> mnesia_lib:other_val(Var, Reason); + Value -> Value end. %% This function traverses all cstructs in the schema and %% sets all values in mnesia_gvar accordingly for each table/cstruct -set_schema('$end_of_table') -> +set_schema('$end_of_table') -> []; set_schema(Tab) -> do_set_schema(Tab), @@ -253,8 +253,8 @@ version() -> incr_version(Cs) -> {{Major, Minor}, _} = Cs#cstruct.version, Nodes = mnesia_lib:intersect(val({schema, disc_copies}), - mnesia_lib:cs_to_nodes(Cs)), - V = + mnesia_lib:cs_to_nodes(Cs)), + V = case Nodes -- val({Cs#cstruct.name, active_replicas}) of [] -> {Major + 1, 0}; % All replicas are active _ -> {Major, Minor + 1} % Some replicas are inactive @@ -359,7 +359,7 @@ delete_schema2() -> {error, Reason} -> {error, Reason} end. - + ensure_no_schema([H|T]) when is_atom(H) -> case rpc:call(H, ?MODULE, remote_read_schema, []) of {badrpc, Reason} -> @@ -407,7 +407,7 @@ opt_create_dir(UseDir, Dir) when UseDir == true-> check_can_write(Dir); false -> case file:make_dir(Dir) of - ok -> + ok -> verbose("Create Directory ~p~n", [Dir]), ok; {error, Reason} -> @@ -417,7 +417,7 @@ opt_create_dir(UseDir, Dir) when UseDir == true-> end; opt_create_dir(false, _) -> {error, {has_no_disc, node()}}. - + check_can_write(Dir) -> case file:read_file_info(Dir) of {ok, FI} when FI#file_info.type == directory, @@ -450,7 +450,7 @@ read_schema(Keep) -> read_schema(Keep, IgnoreFallback) -> lock_schema(), - Res = + Res = case mnesia:system_info(is_running) of yes -> {ok, ram, get_create_list(schema)}; @@ -477,7 +477,7 @@ read_disc_schema(Keep, IgnoreFallback) -> case mnesia_bup:fallback_exists() of true when IgnoreFallback == false, Running /= yes -> mnesia_bup:fallback_to_schema(); - _ -> + _ -> %% If we're running, we read the schema file even %% if fallback exists Dat = mnesia_lib:tab2dat(schema), @@ -499,7 +499,7 @@ read_disc_schema(Keep, IgnoreFallback) -> end. do_read_disc_schema(Fname, Keep) -> - T = + T = case Keep of false -> Args = [{keypos, 2}, public, set], @@ -523,7 +523,7 @@ do_read_disc_schema(Fname, Keep) -> get_initial_schema(SchemaStorage, Nodes) -> Cs = #cstruct{name = schema, record_name = schema, - attributes = [table, cstruct]}, + attributes = [table, cstruct]}, Cs2 = case SchemaStorage of ram_copies -> Cs#cstruct{ram_copies = Nodes}; @@ -532,7 +532,7 @@ get_initial_schema(SchemaStorage, Nodes) -> cs2list(Cs2). read_cstructs_from_disc() -> - %% Assumptions: + %% Assumptions: %% - local schema lock in global %% - use_dir is true %% - Mnesia is not running @@ -552,14 +552,14 @@ read_cstructs_from_disc() -> end, Cstructs = dets:traverse(Tab, Fun), dets:close(Tab), - {ok, Cstructs}; + {ok, Cstructs}; {error, Reason} -> {error, Reason} end; false -> {error, "No schema file exists"} end. - + %% We run a very special type of transactions when we %% we want to manipulate the schema. @@ -593,20 +593,20 @@ schema_transaction(Fun) -> %% This process may dump the transaction log, and should %% therefore not be run in an application process -%% +%% schema_coordinator(Client, _Fun, undefined) -> Res = {aborted, {node_not_running, node()}}, Client ! {transaction_done, Res, self()}, unlink(Client); - + schema_coordinator(Client, Fun, Controller) when is_pid(Controller) -> %% Do not trap exit in order to automatically die %% when the controller dies link(Controller), unlink(Client), - - %% Fulfull the transaction even if the client dies + + %% Fulfull the transaction even if the client dies Res = mnesia:transaction(Fun), Client ! {transaction_done, Res, self()}, unlink(Controller), % Avoids spurious exit message @@ -619,7 +619,7 @@ schema_coordinator(Client, Fun, Controller) when is_pid(Controller) -> insert_schema_ops({_Mod, _Tid, Ts}, SchemaIOps) -> do_insert_schema_ops(Ts#tidstore.store, SchemaIOps). - + do_insert_schema_ops(Store, [Head | Tail]) -> ?ets_insert(Store, Head), do_insert_schema_ops(Store, Tail); @@ -628,15 +628,56 @@ do_insert_schema_ops(_Store, []) -> cs2list(Cs) when is_record(Cs, cstruct) -> Tags = record_info(fields, cstruct), - rec2list(Tags, 2, Cs); + rec2list(Tags, Tags, 2, Cs); cs2list(CreateList) when is_list(CreateList) -> - CreateList. - -rec2list([Tag | Tags], Pos, Rec) -> + CreateList; +%% 4.4.19 +cs2list(Cs) when element(1, Cs) == cstruct, tuple_size(Cs) == 18 -> + Tags = [name,type,ram_copies,disc_copies,disc_only_copies, + load_order,access_mode,majority,index,snmp,local_content, + record_name,attributes,user_properties,frag_properties, + cookie,version], + rec2list(Tags, Tags, 2, Cs); +%% 4.4.18 and earlier +cs2list(Cs) when element(1, Cs) == cstruct, tuple_size(Cs) == 17 -> + Tags = [name,type,ram_copies,disc_copies,disc_only_copies, + load_order,access_mode,index,snmp,local_content, + record_name,attributes,user_properties,frag_properties, + cookie,version], + rec2list(Tags, Tags, 2, Cs). + +cs2list(false, Cs) -> + cs2list(Cs); +cs2list(ver4_4_18, Cs) -> + Orig = record_info(fields, cstruct), + Tags = [name,type,ram_copies,disc_copies,disc_only_copies, + load_order,access_mode,index,snmp,local_content, + record_name,attributes,user_properties,frag_properties, + cookie,version], + rec2list(Tags, Orig, 2, Cs); +cs2list(ver4_4_19, Cs) -> + Orig = record_info(fields, cstruct), + Tags = [name,type,ram_copies,disc_copies,disc_only_copies, + load_order,access_mode,majority,index,snmp,local_content, + record_name,attributes,user_properties,frag_properties, + cookie,version], + rec2list(Tags, Orig, 2, Cs). + +rec2list([Tag | Tags], [Tag | Orig], Pos, Rec) -> Val = element(Pos, Rec), - [{Tag, Val} | rec2list(Tags, Pos + 1, Rec)]; -rec2list([], _Pos, _Rec) -> - []. + [{Tag, Val} | rec2list(Tags, Orig, Pos + 1, Rec)]; +rec2list([], _, _Pos, _Rec) -> + []; +rec2list(Tags, [_|Orig], Pos, Rec) -> + rec2list(Tags, Orig, Pos+1, Rec). + +api_list2cs(List) when is_list(List) -> + Name = pick(unknown, name, List, must), + Keys = check_keys(Name, List, record_info(fields, cstruct)), + check_duplicates(Name, Keys), + list2cs(List); +api_list2cs(Other) -> + mnesia:abort({badarg, Other}). list2cs(List) when is_list(List) -> Name = pick(unknown, name, List, must), @@ -667,10 +708,7 @@ list2cs(List) when is_list(List) -> Frag = pick(Name, frag_properties, List, []), verify({alt, [nil, list]}, mnesia_lib:etype(Frag), - {badarg, Name, {frag_properties, Frag}}), - - Keys = check_keys(Name, List, record_info(fields, cstruct)), - check_duplicates(Name, Keys), + {badarg, Name, {frag_properties, Frag}}), #cstruct{name = Name, ram_copies = Rc, disc_copies = Dc, @@ -687,9 +725,7 @@ list2cs(List) when is_list(List) -> user_properties = lists:sort(UserProps), frag_properties = lists:sort(Frag), cookie = Cookie, - version = Version}; -list2cs(Other) -> - mnesia:abort({badarg, Other}). + version = Version}. pick(Tab, Key, List, Default) -> case lists:keysearch(Key, 1, List) of @@ -708,7 +744,7 @@ attr_tab_to_pos(_Tab, Pos) when is_integer(Pos) -> Pos; attr_tab_to_pos(Tab, Attr) -> attr_to_pos(Attr, val({Tab, attributes})). - + %% Convert attribute name to integer if neccessary attr_to_pos(Pos, _Attrs) when is_integer(Pos) -> Pos; @@ -723,7 +759,7 @@ attr_to_pos(Attr, [_ | Attrs], Pos) -> attr_to_pos(Attr, Attrs, Pos + 1); attr_to_pos(Attr, _, _) -> mnesia:abort({bad_type, Attr}). - + check_keys(Tab, [{Key, _Val} | Tail], Items) -> case lists:member(Key, Items) of true -> [Key | check_keys(Tab, Tail, Items)]; @@ -759,7 +795,7 @@ verify_cstruct(Cs) when is_record(Cs, cstruct) -> {bad_type, Tab, {type, Type}}), %% Currently ordered_set is not supported for disk_only_copies. - if + if Type == ordered_set, Cs#cstruct.disc_only_copies /= [] -> mnesia:abort({bad_type, Tab, {not_supported, Type, disc_only_copies}}); true -> @@ -776,10 +812,10 @@ verify_cstruct(Cs) when is_record(Cs, cstruct) -> Arity = length(Attrs) + 1, verify(true, Arity > 2, {bad_type, Tab, {attributes, Attrs}}), - + lists:foldl(fun(Attr,_Other) when Attr == snmp -> mnesia:abort({bad_type, Tab, {attributes, [Attr]}}); - (Attr,Other) -> + (Attr,Other) -> verify(atom, mnesia_lib:etype(Attr), {bad_type, Tab, {attributes, [Attr]}}), verify(false, lists:member(Attr, Other), @@ -792,7 +828,7 @@ verify_cstruct(Cs) when is_record(Cs, cstruct) -> Index = Cs#cstruct.index, verify({alt, [nil, list]}, mnesia_lib:etype(Index), {bad_type, Tab, {index, Index}}), - + IxFun = fun(Pos) -> verify(true, fun() -> @@ -807,7 +843,7 @@ verify_cstruct(Cs) when is_record(Cs, cstruct) -> {bad_type, Tab, {index, [Pos]}}) end, lists:foreach(IxFun, Index), - + LC = Cs#cstruct.local_content, verify({alt, [true, false]}, LC, {bad_type, Tab, {local_content, LC}}), @@ -834,7 +870,7 @@ verify_cstruct(Cs) when is_record(Cs, cstruct) -> lists:foreach(CheckProp, Cs#cstruct.user_properties), case Cs#cstruct.cookie of - {{MegaSecs, Secs, MicroSecs}, _Node} + {{MegaSecs, Secs, MicroSecs}, _Node} when is_integer(MegaSecs), is_integer(Secs), is_integer(MicroSecs), is_atom(node) -> ok; @@ -870,15 +906,15 @@ verify_nodes(Cs) -> end, verify(integer, mnesia_lib:etype(LoadOrder), {bad_type, Tab, {load_order, LoadOrder}}), - + Nodes = Ram ++ Disc ++ DiscOnly, verify(list, mnesia_lib:etype(Nodes), {combine_error, Tab, [{ram_copies, []}, {disc_copies, []}, {disc_only_copies, []}]}), verify(false, has_duplicates(Nodes), {combine_error, Tab, Nodes}), - AtomCheck = fun(N) -> verify(atom, mnesia_lib:etype(N), {bad_type, Tab, N}) end, + AtomCheck = fun(N) -> verify(atom, mnesia_lib:etype(N), {bad_type, Tab, N}) end, lists:foreach(AtomCheck, Nodes). - + verify(Expected, Fun, Error) when is_function(Fun) -> do_verify(Expected, catch Fun(), Error); verify(Expected, Actual, Error) -> @@ -909,7 +945,7 @@ ensure_active(Cs, What) -> W = {Tab, What}, ensure_non_empty(W), Nodes = mnesia_lib:intersect(val({schema, disc_copies}), - mnesia_lib:cs_to_nodes(Cs)), + mnesia_lib:cs_to_nodes(Cs)), case Nodes -- val(W) of [] -> ok; @@ -936,7 +972,7 @@ ensure_non_empty({Tab, Vhat}) -> ensure_not_active(Tab = schema, Node) -> Active = val({Tab, active_replicas}), - case lists:member(Node, Active) of + case lists:member(Node, Active) of false when Active =/= [] -> ok; false -> @@ -970,7 +1006,7 @@ create_table(TabDef) -> do_multi_create_table(TabDef) -> get_tid_ts_and_lock(schema, write), ensure_writable(schema), - Cs = list2cs(TabDef), + Cs = api_list2cs(TabDef), case Cs#cstruct.frag_properties of [] -> do_create_table(Cs); @@ -999,7 +1035,7 @@ unsafe_make_create_table(Cs) -> {_Mod, Tid, Ts} = get_tid_ts_and_lock(schema, none), verify_cstruct(Cs), Tab = Cs#cstruct.name, - + %% Check that we have all disc replica nodes running DiscNodes = Cs#cstruct.disc_copies ++ Cs#cstruct.disc_only_copies, RunningNodes = val({current, db_nodes}), @@ -1017,7 +1053,7 @@ unsafe_make_create_table(Cs) -> check_if_exists(Tab) -> TidTs = get_tid_ts_and_lock(schema, write), {_, _, Ts} = TidTs, - Store = Ts#tidstore.store, + Store = Ts#tidstore.store, ets:foldl( fun({op, create_table, [{name, T}|_]}, _Acc) when T==Tab -> true; @@ -1054,7 +1090,7 @@ make_delete_table(Tab, Mode) -> %% nodes etc. TidTs = get_tid_ts_and_lock(schema, write), {_, _, Ts} = TidTs, - Store = Ts#tidstore.store, + Store = Ts#tidstore.store, Deleted = ets:select_delete( Store, [{{op,'$1',[{name,Tab}|'_']}, [{'or', @@ -1077,9 +1113,9 @@ make_delete_table(Tab, Mode) -> [] -> [make_delete_table2(Tab)]; _Props -> - %% Check if it is a base table - mnesia_frag:lookup_frag_hash(Tab), - + %% Check if it is a base table + mnesia_frag:lookup_frag_hash(Tab), + %% Check for foreigners F = mnesia_frag:lookup_foreigners(Tab), verify([], F, {combine_error, @@ -1101,7 +1137,7 @@ make_delete_table2(Tab) -> %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% Change fragmentation of a table - + change_table_frag(Tab, Change) -> schema_transaction(fun() -> do_change_table_frag(Tab, Change) end). @@ -1112,7 +1148,7 @@ do_change_table_frag(Tab, Change) when is_atom(Tab), Tab /= schema -> ok; do_change_table_frag(Tab, _Change) -> mnesia:abort({bad_type, Tab}). - + %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% Clear a table @@ -1150,7 +1186,7 @@ make_add_table_copy(Tab, Node, Storage) -> verify(false, lists:member(Node, Ns), {already_exists, Tab, Node}), Cs2 = new_cs(Cs, Node, Storage, add), verify_cstruct(Cs2), - + %% Check storage and if node is running IsRunning = lists:member(Node, val({current, db_nodes})), if @@ -1177,21 +1213,21 @@ del_table_copy(Tab, Node) -> do_del_table_copy(Tab, Node) when is_atom(Node) -> TidTs = get_tid_ts_and_lock(schema, write), -%% get_tid_ts_and_lock(Tab, write), +%% get_tid_ts_and_lock(Tab, write), insert_schema_ops(TidTs, make_del_table_copy(Tab, Node)); do_del_table_copy(Tab, Node) -> mnesia:abort({badarg, Tab, Node}). - + make_del_table_copy(Tab, Node) -> ensure_writable(schema), Cs = incr_version(val({Tab, cstruct})), Storage = mnesia_lib:schema_cs_to_storage_type(Node, Cs), - Cs2 = new_cs(Cs, Node, Storage, del), + Cs2 = new_cs(Cs, Node, Storage, del), case mnesia_lib:cs_to_nodes(Cs2) of [] when Tab == schema -> mnesia:abort({combine_error, Tab, "Last replica"}); [] -> - ensure_active(Cs), + ensure_active(Cs), dbg_out("Last replica deleted in table ~p~n", [Tab]), make_delete_table(Tab, whole_table); _ when Tab == schema -> @@ -1210,14 +1246,14 @@ remove_node_from_tabs([], _Node) -> []; remove_node_from_tabs([schema|Rest], Node) -> remove_node_from_tabs(Rest, Node); -remove_node_from_tabs([Tab|Rest], Node) -> - {Cs, IsFragModified} = +remove_node_from_tabs([Tab|Rest], Node) -> + {Cs, IsFragModified} = mnesia_frag:remove_node(Node, incr_version(val({Tab, cstruct}))), case mnesia_lib:schema_cs_to_storage_type(Node, Cs) of unknown -> case IsFragModified of true -> - [{op, change_table_frag, {del_node, Node}, cs2list(Cs)} | + [{op, change_table_frag, {del_node, Node}, cs2list(Cs)} | remove_node_from_tabs(Rest, Node)]; false -> remove_node_from_tabs(Rest, Node) @@ -1246,7 +1282,7 @@ new_cs(Cs, Node, ram_copies, del) -> new_cs(Cs, Node, disc_copies, del) -> Cs#cstruct{disc_copies = lists:delete(Node , Cs#cstruct.disc_copies)}; new_cs(Cs, Node, disc_only_copies, del) -> - Cs#cstruct{disc_only_copies = + Cs#cstruct{disc_only_copies = lists:delete(Node , Cs#cstruct.disc_only_copies)}; new_cs(Cs, _Node, Storage, _Op) -> mnesia:abort({badarg, Cs#cstruct.name, Storage}). @@ -1278,7 +1314,7 @@ make_move_table(Tab, FromNode, ToNode) -> Running = val({current, db_nodes}), Storage = mnesia_lib:schema_cs_to_storage_type(FromNode, Cs), verify(true, lists:member(ToNode, Running), {not_active, schema, ToNode}), - + Cs2 = new_cs(Cs, ToNode, Storage, add), Cs3 = new_cs(Cs2, FromNode, Storage, del), verify_cstruct(Cs3), @@ -1306,7 +1342,7 @@ make_change_table_copy_type(Tab, Node, unknown) -> make_change_table_copy_type(Tab, Node, ToS) -> ensure_writable(schema), Cs = incr_version(val({Tab, cstruct})), - FromS = mnesia_lib:storage_type_at_node(Node, Tab), + FromS = mnesia_lib:storage_type_at_node(Node, Tab), case compare_storage_type(false, FromS, ToS) of {same, _} -> @@ -1320,12 +1356,12 @@ make_change_table_copy_type(Tab, Node, ToS) -> Cs2 = new_cs(Cs, Node, FromS, del), Cs3 = new_cs(Cs2, Node, ToS, add), verify_cstruct(Cs3), - + [{op, change_table_copy_type, Node, FromS, ToS, cs2list(Cs3)}]. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% change index functions .... -%% Pos is allready added by 1 in both of these functions +%% Pos is allready added by 1 in both of these functions add_table_index(Tab, Pos) -> schema_transaction(fun() -> do_add_table_index(Tab, Pos) end). @@ -1412,14 +1448,14 @@ make_del_snmp(Tab) -> [{op, del_snmp, cs2list(Cs2)}]. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% +%% -transform_table(Tab, Fun, NewAttrs, NewRecName) - when is_function(Fun), is_list(NewAttrs), is_atom(NewRecName) -> +transform_table(Tab, Fun, NewAttrs, NewRecName) + when is_function(Fun), is_list(NewAttrs), is_atom(NewRecName) -> schema_transaction(fun() -> do_transform_table(Tab, Fun, NewAttrs, NewRecName) end); -transform_table(Tab, ignore, NewAttrs, NewRecName) - when is_list(NewAttrs), is_atom(NewRecName) -> +transform_table(Tab, ignore, NewAttrs, NewRecName) + when is_list(NewAttrs), is_atom(NewRecName) -> schema_transaction(fun() -> do_transform_table(Tab, ignore, NewAttrs, NewRecName) end); transform_table(Tab, Fun, NewAttrs, NewRecName) -> @@ -1438,7 +1474,7 @@ make_transform(Tab, Fun, NewAttrs, NewRecName) -> ensure_active(Cs), ensure_writable(Tab), case mnesia_lib:val({Tab, index}) of - [] -> + [] -> Cs2 = Cs#cstruct{attributes = NewAttrs, record_name = NewRecName}, verify_cstruct(Cs2), [{op, transform, Fun, cs2list(Cs2)}]; @@ -1464,7 +1500,7 @@ make_transform(Tab, Fun, NewAttrs, NewRecName) -> end. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% +%% change_table_access_mode(Tab, Mode) -> schema_transaction(fun() -> do_change_table_access_mode(Tab, Mode) end). @@ -1598,9 +1634,9 @@ change_prop_in_existing_op(Tab, Prop, How, Store) -> false -> false end. - -update_existing_op([{op, Op, L = [{name,Tab}|_], _OldProp}|Ops], - Tab, Prop, How, Acc) when Op == write_property; + +update_existing_op([{op, Op, L = [{name,Tab}|_], _OldProp}|Ops], + Tab, Prop, How, Acc) when Op == write_property; Op == delete_property -> %% Apparently, mnesia_dumper doesn't care about OldProp here -- just L, %% so we will throw away OldProp (not that it matters...) and insert Prop. @@ -1625,7 +1661,7 @@ update_existing_op([], _, _, _, _) -> do_read_table_property(Tab, Key) -> TidTs = get_tid_ts_and_lock(schema, read), {_, _, Ts} = TidTs, - Store = Ts#tidstore.store, + Store = Ts#tidstore.store, Props = ets:foldl( fun({op, create_table, [{name, T}|Opts]}, _Acc) when T==Tab -> @@ -1689,7 +1725,7 @@ do_delete_table_property(Tab, PropKey) -> [Tab,PropKey]), %% this must be an existing table get_tid_ts_and_lock(Tab, none), - insert_schema_ops(TidTs, + insert_schema_ops(TidTs, make_delete_table_properties(Tab, [PropKey])) end. @@ -1711,17 +1747,17 @@ make_delete_table_properties(_Tab, [], _Cs) -> %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% Ensure that the transaction can be committed even +%% Ensure that the transaction can be committed even %% if the node crashes and Mnesia is restarted prepare_commit(Tid, Commit, WaitFor) -> case Commit#commit.schema_ops of [] -> {false, Commit, optional}; OrigOps -> - {Modified, Ops, DumperMode} = + {Modified, Ops, DumperMode} = prepare_ops(Tid, OrigOps, WaitFor, false, [], optional), InitBy = schema_prepare, - GoodRes = {Modified, + GoodRes = {Modified, Commit#commit{schema_ops = lists:reverse(Ops)}, DumperMode}, case DumperMode of @@ -1737,7 +1773,7 @@ prepare_commit(Tid, Commit, WaitFor) -> end end, case Ops of - [] -> + [] -> ignore; _ -> %% We need to grab a dumper lock here, the log may not @@ -1749,20 +1785,20 @@ prepare_commit(Tid, Commit, WaitFor) -> prepare_ops(Tid, [Op | Ops], WaitFor, Changed, Acc, DumperMode) -> case prepare_op(Tid, Op, WaitFor) of - {true, mandatory} -> + {true, mandatory} -> prepare_ops(Tid, Ops, WaitFor, Changed, [Op | Acc], mandatory); - {true, optional} -> + {true, optional} -> prepare_ops(Tid, Ops, WaitFor, Changed, [Op | Acc], DumperMode); - {true, Ops2, mandatory} -> + {true, Ops2, mandatory} -> prepare_ops(Tid, Ops, WaitFor, true, Ops2 ++ Acc, mandatory); - {true, Ops2, optional} -> + {true, Ops2, optional} -> prepare_ops(Tid, Ops, WaitFor, true, Ops2 ++ Acc, DumperMode); - {false, optional} -> + {false, optional} -> prepare_ops(Tid, Ops, WaitFor, true, Acc, DumperMode) end; prepare_ops(_Tid, [], _WaitFor, Changed, Acc, DumperMode) -> {Changed, Acc, DumperMode}. - + %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% Prepare for commit %% returns true if Op should be included, i.e. unmodified @@ -1781,8 +1817,8 @@ prepare_op(_Tid, {op, rec, unknown, Rec}, _WaitFor) -> prepare_op(_Tid, {op, announce_im_running, Node, SchemaDef, Running, RemoteRunning}, _WaitFor) -> SchemaCs = list2cs(SchemaDef), - if - Node == node() -> %% Announce has already run on local node + if + Node == node() -> %% Announce has already run on local node ignore; %% from do_merge_schema true -> %% If a node has restarted it may still linger in db_nodes, @@ -1794,9 +1830,9 @@ prepare_op(_Tid, {op, announce_im_running, Node, SchemaDef, Running, RemoteRunni end, {false, optional}; -prepare_op(_Tid, {op, sync_trans}, {part, CoordPid}) -> +prepare_op(_Tid, {op, sync_trans}, {part, CoordPid}) -> CoordPid ! {sync_trans, self()}, - receive + receive {sync_trans, CoordPid} -> {false, optional}; {mnesia_down, _Node} = Else -> @@ -1807,7 +1843,7 @@ prepare_op(_Tid, {op, sync_trans}, {part, CoordPid}) -> mnesia:abort(Else) end; -prepare_op(_Tid, {op, sync_trans}, {coord, Nodes}) -> +prepare_op(_Tid, {op, sync_trans}, {coord, Nodes}) -> case receive_sync(Nodes, []) of {abort, Reason} -> mnesia_lib:verbose("sync_op terminated due to ~p~n", [Reason]), @@ -1838,7 +1874,7 @@ prepare_op(Tid, {op, create_table, TabDef}, _WaitFor) -> create_ram_table(Tab, Cs#cstruct.type), create_disc_table(Tab), insert_cstruct(Tid, Cs, false), - {true, optional}; + {true, optional}; disc_only_copies -> mnesia_lib:set({Tab, create_table},true), create_disc_only_table(Tab,Cs#cstruct.type), @@ -1857,15 +1893,15 @@ prepare_op(Tid, {op, add_table_copy, Storage, Node, TabDef}, _WaitFor) -> if Tab == schema -> {true, optional}; - + Node == node() -> - case mnesia_lib:val({schema, storage_type}) of - ram_copies when Storage /= ram_copies -> + case mnesia_lib:val({schema, storage_type}) of + ram_copies when Storage /= ram_copies -> Error = {combine_error, Tab, "has no disc", Node}, mnesia:abort(Error); _ -> ok - end, + end, %% Tables are created by mnesia_loader get_network code insert_cstruct(Tid, Cs, true), case mnesia_controller:get_network_copy(Tab, Cs) of @@ -1902,22 +1938,22 @@ prepare_op(Tid, {op, add_table_copy, Storage, Node, TabDef}, _WaitFor) -> prepare_op(Tid, {op, del_table_copy, _Storage, Node, TabDef}, _WaitFor) -> Cs = list2cs(TabDef), Tab = Cs#cstruct.name, - + if %% Schema table lock is always required to run a schema op. %% No need to look it. - node(Tid#tid.pid) == node(), Tab /= schema -> + node(Tid#tid.pid) == node(), Tab /= schema -> Self = self(), Pid = spawn_link(fun() -> lock_del_table(Tab, Node, Cs, Self) end), put(mnesia_lock, Pid), - receive - {Pid, updated} -> + receive + {Pid, updated} -> {true, optional}; {Pid, FailReason} -> mnesia:abort(FailReason); {'EXIT', Pid, Reason} -> mnesia:abort(Reason) - end; + end; true -> {true, optional} end; @@ -1928,12 +1964,12 @@ prepare_op(_Tid, {op, change_table_copy_type, N, FromS, ToS, TabDef}, _WaitFor) Tab = Cs#cstruct.name, NotActive = mnesia_lib:not_active_here(Tab), - - if + + if NotActive == true -> mnesia:abort({not_active, Tab, node()}); - - Tab == schema -> + + Tab == schema -> case {FromS, ToS} of {ram_copies, disc_copies} -> case mnesia:system_info(schema_location) of @@ -1943,7 +1979,7 @@ prepare_op(_Tid, {op, change_table_copy_type, N, FromS, ToS, TabDef}, _WaitFor) mnesia:abort({combine_error, Tab, node(), "schema_location must be opt_disc"}) end, - Dir = mnesia_lib:dir(), + Dir = mnesia_lib:dir(), case opt_create_dir(true, Dir) of ok -> purge_dir(Dir, []), @@ -1967,18 +2003,18 @@ prepare_op(_Tid, {op, change_table_copy_type, N, FromS, ToS, TabDef}, _WaitFor) _ -> mnesia:abort({combine_error, Tab, ToS}) end; - - FromS == ram_copies -> + + FromS == ram_copies -> case mnesia_monitor:use_dir() of - true -> + true -> Dat = mnesia_lib:tab2dcd(Tab), case mnesia_lib:exists(Dat) of true -> mnesia:abort({combine_error, Tab, node(), "Table dump exists"}); false -> - case ToS of - disc_copies -> + case ToS of + disc_copies -> mnesia_log:ets2dcd(Tab, dmp); disc_only_copies -> mnesia_dumper:raw_named_dump_table(Tab, dmp) @@ -1988,7 +2024,7 @@ prepare_op(_Tid, {op, change_table_copy_type, N, FromS, ToS, TabDef}, _WaitFor) false -> mnesia:abort({has_no_disc, node()}) end; - + FromS == disc_copies, ToS == disc_only_copies -> mnesia_dumper:raw_named_dump_table(Tab, dmp); FromS == disc_only_copies -> @@ -2020,7 +2056,7 @@ prepare_op(_Tid, {op, dump_table, unknown, TabDef}, _WaitFor) -> case lists:member(node(), Cs#cstruct.ram_copies) of true -> case mnesia_monitor:use_dir() of - true -> + true -> mnesia_log:ets2dcd(Tab, dmp), Size = mnesia:table_info(Tab, size), {true, [{op, dump_table, Size, TabDef}], optional}; @@ -2058,7 +2094,7 @@ prepare_op(_Tid, {op, transform, Fun, TabDef}, _WaitFor) -> mnesia_lib:db_fixtable(Storage, Tab, true), Key = mnesia_lib:db_first(Tab), Op = {op, transform, Fun, TabDef}, - case catch transform_objs(Fun, Tab, RecName, + case catch transform_objs(Fun, Tab, RecName, Key, NewArity, Storage, Type, [Op]) of {'EXIT', Reason} -> mnesia_lib:db_fixtable(Storage, Tab, false), @@ -2072,7 +2108,7 @@ prepare_op(_Tid, {op, transform, Fun, TabDef}, _WaitFor) -> prepare_op(_Tid, {op, merge_schema, TabDef}, _WaitFor) -> Cs = list2cs(TabDef), case verify_merge(Cs) of - ok -> + ok -> {true, optional}; Error -> verbose("Merge_Schema ~p failed on ~p: ~p~n", [_Tid,node(),Error]), @@ -2093,7 +2129,7 @@ create_ram_table(Tab, Type) -> create_disc_table(Tab) -> File = mnesia_lib:tab2dcd(Tab), file:delete(File), - FArg = [{file, File}, {name, {mnesia,create}}, + FArg = [{file, File}, {name, {mnesia,create}}, {repair, false}, {mode, read_write}], case mnesia_monitor:open_log(FArg) of {ok,Log} -> @@ -2124,7 +2160,7 @@ receive_sync([], Pids) -> receive_sync(Nodes, Pids) -> receive {sync_trans, Pid} -> - Node = node(Pid), + Node = node(Pid), receive_sync(lists:delete(Node, Nodes), [Pid | Pids]); Else -> {abort, Else} @@ -2140,16 +2176,16 @@ lock_del_table(Tab, Node, Cs, Father) -> false; ({badrpc, {'EXIT', {undef, _}}}) -> %% This will be the case we talks with elder nodes - %% than 3.8.2, they will set where_to_read without - %% getting a lock. + %% than 3.8.2, they will set where_to_read without + %% getting a lock. false; (_) -> true end, case lists:filter(Filter, Res) of - [] -> + [] -> Father ! {self(), updated}, - %% When transaction is commited the process dies + %% When transaction is commited the process dies %% and the lock is released. receive _ -> ok end; Err -> @@ -2166,7 +2202,7 @@ lock_del_table(Tab, Node, Cs, Father) -> exit(normal). set_where_to_read(Tab, Node, Cs) -> - case mnesia_lib:val({Tab, where_to_read}) of + case mnesia_lib:val({Tab, where_to_read}) of Node -> case Cs#cstruct.local_content of true -> @@ -2185,16 +2221,16 @@ transform_objs(_Fun, _Tab, _RT, '$end_of_table', _NewArity, _Storage, _Type, Acc transform_objs(Fun, Tab, RecName, Key, A, Storage, Type, Acc) -> Objs = mnesia_lib:db_get(Tab, Key), NextKey = mnesia_lib:db_next_key(Tab, Key), - Oid = {Tab, Key}, + Oid = {Tab, Key}, NewObjs = {Ws, Ds} = transform_obj(Tab, RecName, Key, Fun, Objs, A, Type, [], []), - if - NewObjs == {[], []} -> + if + NewObjs == {[], []} -> transform_objs(Fun, Tab, RecName, NextKey, A, Storage, Type, Acc); - Type == bag -> + Type == bag -> transform_objs(Fun, Tab, RecName, NextKey, A, Storage, Type, [{op, rec, Storage, {Oid, Ws, write}}, {op, rec, Storage, {Oid, [Oid], delete}} | Acc]); - Ds == [] -> + Ds == [] -> %% Type is set or ordered_set, no need to delete the record first transform_objs(Fun, Tab, RecName, NextKey, A, Storage, Type, [{op, rec, Storage, {Oid, Ws, write}} | Acc]); @@ -2215,15 +2251,15 @@ transform_obj(Tab, RecName, Key, Fun, [Obj|Rest], NewArity, Type, Ws, Ds) -> NewObj == Obj -> transform_obj(Tab, RecName, Key, Fun, Rest, NewArity, Type, Ws, Ds); RecName == element(1, NewObj), Key == element(2, NewObj) -> - transform_obj(Tab, RecName, Key, Fun, Rest, NewArity, + transform_obj(Tab, RecName, Key, Fun, Rest, NewArity, Type, [NewObj | Ws], Ds); - NewObj == delete -> - case Type of + NewObj == delete -> + case Type of bag -> %% Just don't write that object - transform_obj(Tab, RecName, Key, Fun, Rest, - NewArity, Type, Ws, Ds); + transform_obj(Tab, RecName, Key, Fun, Rest, + NewArity, Type, Ws, Ds); _ -> - transform_obj(Tab, RecName, Key, Fun, Rest, NewArity, + transform_obj(Tab, RecName, Key, Fun, Rest, NewArity, Type, Ws, [NewObj | Ds]) end; true -> @@ -2247,7 +2283,7 @@ undo_prepare_commit(Tid, Commit) -> %% Undo in reverse order undo_prepare_ops(Tid, [Op | Ops]) -> - case element(1, Op) of + case element(1, Op) of TheOp when TheOp /= op, TheOp /= restore_op -> undo_prepare_ops(Tid, Ops); _ -> @@ -2274,7 +2310,7 @@ undo_prepare_op(Tid, {op, create_table, TabDef}) -> mnesia_lib:unset({Tab, create_table}), delete_cstruct(Tid, Cs), case mnesia_lib:cs_to_storage_type(node(), Cs) of - unknown -> + unknown -> ok; ram_copies -> ram_delete_table(Tab, ram_copies); @@ -2289,7 +2325,7 @@ undo_prepare_op(Tid, {op, create_table, TabDef}) -> %% disc_delete_table(Tab, Storage), file:delete(Dat) end; - + undo_prepare_op(Tid, {op, add_table_copy, Storage, Node, TabDef}) -> Cs = list2cs(TabDef), Tab = Cs#cstruct.name, @@ -2314,21 +2350,21 @@ undo_prepare_op(Tid, {op, add_table_copy, Storage, Node, TabDef}) -> Cs2 = new_cs(Cs, Node, Storage, del), insert_cstruct(Tid, Cs2, true) % Don't care about the version end; - -undo_prepare_op(_Tid, {op, del_table_copy, _, Node, TabDef}) + +undo_prepare_op(_Tid, {op, del_table_copy, _, Node, TabDef}) when Node == node() -> Cs = list2cs(TabDef), Tab = Cs#cstruct.name, mnesia_lib:set({Tab, where_to_read}, Node); -undo_prepare_op(_Tid, {op, change_table_copy_type, N, FromS, ToS, TabDef}) +undo_prepare_op(_Tid, {op, change_table_copy_type, N, FromS, ToS, TabDef}) when N == node() -> Cs = list2cs(TabDef), Tab = Cs#cstruct.name, mnesia_checkpoint:tm_change_table_copy_type(Tab, ToS, FromS), Dmp = mnesia_lib:tab2dmp(Tab), - + case {FromS, ToS} of {ram_copies, disc_copies} when Tab == schema -> file:delete(Dmp), @@ -2382,9 +2418,9 @@ ram_delete_table(Tab, Storage) -> ignore; disc_only_copies -> ignore; - _Else -> + _Else -> %% delete possible index files and data ..... - %% Got to catch this since if no info has been set in the + %% Got to catch this since if no info has been set in the %% mnesia_gvar it will crash catch mnesia_index:del_transient(Tab, Storage), case ?catch_val({Tab, {index, snmp}}) of @@ -2454,7 +2490,7 @@ has_known_suffix(File, [Suffix | Tail], false) -> has_known_suffix(File, Tail, lists:suffix(Suffix, File)); has_known_suffix(_File, [], Bool) -> Bool. - + known_suffixes() -> real_suffixes() ++ tmp_suffixes(). real_suffixes() -> [".DAT", ".LOG", ".BUP", ".DCL", ".DCD"]. @@ -2477,11 +2513,11 @@ info2(Tab, [{frag_hash, _V} | Tail]) -> % Ignore frag_hash info2(Tab, [{P, V} | Tail]) -> io:format("~-20w -> ~p~n",[P,V]), info2(Tab, Tail); -info2(_, []) -> +info2(_, []) -> io:format("~n", []). get_table_properties(Tab) -> - case catch mnesia_lib:db_match_object(ram_copies, + case catch mnesia_lib:db_match_object(ram_copies, mnesia_gvar, {{Tab, '_'}, '_'}) of {'EXIT', _} -> mnesia:abort({no_exists, Tab, all}); @@ -2509,9 +2545,9 @@ get_table_properties(Tab) -> recs = error_recs }). -restore(Opaque) -> +restore(Opaque) -> restore(Opaque, [], mnesia_monitor:get_env(backup_module)). -restore(Opaque, Args) when is_list(Args) -> +restore(Opaque, Args) when is_list(Args) -> restore(Opaque, Args, mnesia_monitor:get_env(backup_module)); restore(_Opaque, BadArg) -> {aborted, {badarg, BadArg}}. @@ -2522,7 +2558,7 @@ restore(Opaque, Args, Module) when is_list(Args), is_atom(Module) -> case mnesia_bup:read_schema(R#r.module, Opaque) of {error, Reason} -> {aborted, Reason}; - BupSchema -> + BupSchema -> schema_transaction(fun() -> do_restore(R, BupSchema) end) end; {'EXIT', Reason} -> @@ -2556,8 +2592,8 @@ check_restore_arg({keep_tables, List}, R) when is_list(List) -> check_restore_arg({skip_tables, List}, R) when is_list(List) -> TableList = [{Tab, skip_tables} || Tab <- List], R#r{table_options = R#r.table_options ++ TableList}; -check_restore_arg({default_op, Op}, R) -> - case Op of +check_restore_arg({default_op, Op}, R) -> + case Op of clear_tables -> ok; recreate_tables -> ok; keep_tables -> ok; @@ -2588,12 +2624,12 @@ restore_items([Rec | Recs], Header, Schema, R) -> case lists:keysearch(Tab, 1, R#r.tables) of {value, {Tab, Where0, Snmp, RecName}} -> Where = case Where0 of - undefined -> + undefined -> val({Tab, where_to_commit}); _ -> Where0 end, - {Rest, NRecs} = restore_tab_items([Rec | Recs], Tab, + {Rest, NRecs} = restore_tab_items([Rec | Recs], Tab, RecName, Where, Snmp, R#r.recs, R#r.insert_op), restore_items(Rest, Header, Schema, R#r{recs = NRecs}); @@ -2601,12 +2637,12 @@ restore_items([Rec | Recs], Header, Schema, R) -> Rest = skip_tab_items(Recs, Tab), restore_items(Rest, Header, Schema, R) end; - + restore_items([], _Header, _Schema, R) -> R. restore_func(Tab, R) -> - case lists:keysearch(Tab, 1, R#r.table_options) of + case lists:keysearch(Tab, 1, R#r.table_options) of {value, {Tab, OP}} -> OP; false -> @@ -2618,24 +2654,24 @@ where_to_commit(Tab, CsList) -> Disc = [{N, disc_copies} || N <- pick(Tab, disc_copies, CsList, [])], DiscO = [{N, disc_only_copies} || N <- pick(Tab, disc_only_copies, CsList, [])], Ram ++ Disc ++ DiscO. - + %% Changes of the Meta info of schema itself is not allowed restore_schema([{schema, schema, _List} | Schema], R) -> restore_schema(Schema, R); restore_schema([{schema, Tab, List} | Schema], R) -> case restore_func(Tab, R) of - clear_tables -> + clear_tables -> do_clear_table(Tab), - Snmp = val({Tab, snmp}), - RecName = val({Tab, record_name}), + Snmp = val({Tab, snmp}), + RecName = val({Tab, record_name}), R2 = R#r{tables = [{Tab, undefined, Snmp, RecName} | R#r.tables]}, restore_schema(Schema, R2); - recreate_tables -> + recreate_tables -> case ?catch_val({Tab, cstruct}) of - {'EXIT', _} -> + {'EXIT', _} -> TidTs = {_Mod, Tid, Ts} = get(mnesia_activity_state), RunningNodes = val({current, db_nodes}), - Nodes = mnesia_lib:intersect(mnesia_lib:cs_to_nodes(list2cs(List)), + Nodes = mnesia_lib:intersect(mnesia_lib:cs_to_nodes(list2cs(List)), RunningNodes), mnesia_locker:wlock_no_exist(Tid, Ts#tidstore.store, Tab, Nodes), TidTs; @@ -2643,20 +2679,20 @@ restore_schema([{schema, Tab, List} | Schema], R) -> TidTs = get_tid_ts_and_lock(Tab, write) end, NC = {cookie, ?unique_cookie}, - List2 = lists:keyreplace(cookie, 1, List, NC), + List2 = lists:keyreplace(cookie, 1, List, NC), Where = where_to_commit(Tab, List2), Snmp = pick(Tab, snmp, List2, []), RecName = pick(Tab, record_name, List2, Tab), insert_schema_ops(TidTs, [{op, restore_recreate, List2}]), R2 = R#r{tables = [{Tab, Where, Snmp, RecName} | R#r.tables]}, restore_schema(Schema, R2); - keep_tables -> + keep_tables -> get_tid_ts_and_lock(Tab, write), Snmp = val({Tab, snmp}), - RecName = val({Tab, record_name}), + RecName = val({Tab, record_name}), R2 = R#r{tables = [{Tab, undefined, Snmp, RecName} | R#r.tables]}, restore_schema(Schema, R2); - skip_tables -> + skip_tables -> restore_schema(Schema, R) end; @@ -2667,7 +2703,7 @@ restore_schema([{schema, Tab} | Schema], R) -> restore_schema([], R) -> R. -restore_tab_items([Rec | Rest], Tab, RecName, Where, Snmp, Recs, Op) +restore_tab_items([Rec | Rest], Tab, RecName, Where, Snmp, Recs, Op) when element(1, Rec) == Tab -> NewRecs = Op(Rec, Recs, RecName, Where, Snmp), restore_tab_items(Rest, Tab, RecName, Where, Snmp, NewRecs, Op); @@ -2675,7 +2711,7 @@ restore_tab_items([Rec | Rest], Tab, RecName, Where, Snmp, Recs, Op) restore_tab_items(Rest, _Tab, _RecName, _Where, _Snmp, Recs, _Op) -> {Rest, Recs}. -skip_tab_items([Rec| Rest], Tab) +skip_tab_items([Rec| Rest], Tab) when element(1, Rec) == Tab -> skip_tab_items(Rest, Tab); skip_tab_items(Recs, _) -> @@ -2710,7 +2746,6 @@ merge_schema() -> merge_schema(UserFun) -> schema_transaction(fun() -> UserFun(fun(Arg) -> do_merge_schema(Arg) end) end). - do_merge_schema(LockTabs0) -> {_Mod, Tid, Ts} = get_tid_ts_and_lock(schema, write), LockTabs = [{T, tab_to_nodes(T)} || T <- LockTabs0], @@ -2732,14 +2767,14 @@ do_merge_schema(LockTabs0) -> [mnesia_locker:wlock_no_exist( Tid, Store, T, mnesia_lib:intersect(Ns, OtherNodes)) || {T,Ns} <- LockTabs], - case rpc:call(Node, mnesia_controller, get_cstructs, []) of + case fetch_cstructs(Node) of {cstructs, Cstructs, RemoteRunning1} -> LockedAlready = Running ++ [Node], {New, Old} = mnesia_recover:connect_nodes(RemoteRunning1), RemoteRunning = mnesia_lib:intersect(New ++ Old, RemoteRunning1), - if + if RemoteRunning /= RemoteRunning1 -> - mnesia_lib:error("Mnesia on ~p could not connect to node(s) ~p~n", + mnesia_lib:error("Mnesia on ~p could not connect to node(s) ~p~n", [node(), RemoteRunning1 -- RemoteRunning]), mnesia:abort({node_not_running, RemoteRunning1 -- RemoteRunning}); true -> ok @@ -2749,24 +2784,24 @@ do_merge_schema(LockTabs0) -> [mnesia_locker:wlock_no_exist(Tid, Store, T, mnesia_lib:intersect(Ns,NeedsLock)) || {T,Ns} <- LockTabs], - {value, SchemaCs} = - lists:keysearch(schema, #cstruct.name, Cstructs), + NeedsConversion = need_old_cstructs(NeedsLock ++ LockedAlready), + {value, SchemaCs} = lists:keysearch(schema, #cstruct.name, Cstructs), + SchemaDef = cs2list(NeedsConversion, SchemaCs), %% Announce that Node is running - A = [{op, announce_im_running, node(), - cs2list(SchemaCs), Running, RemoteRunning}], + A = [{op, announce_im_running, node(), SchemaDef, Running, RemoteRunning}], do_insert_schema_ops(Store, A), - + %% Introduce remote tables to local node - do_insert_schema_ops(Store, make_merge_schema(Node, Cstructs)), - + do_insert_schema_ops(Store, make_merge_schema(Node, NeedsConversion, Cstructs)), + %% Introduce local tables to remote nodes Tabs = val({schema, tables}), Ops = [{op, merge_schema, get_create_list(T)} || T <- Tabs, not lists:keymember(T, #cstruct.name, Cstructs)], do_insert_schema_ops(Store, Ops), - + %% Ensure that the txn will be committed on all nodes NewNodes = RemoteRunning -- Running, mnesia_lib:set(prepare_op, {announce_im_running,NewNodes}), @@ -2782,19 +2817,49 @@ do_merge_schema(LockTabs0) -> not_merged end. +fetch_cstructs(Node) -> + case mnesia_monitor:needs_protocol_conversion(Node) of + true -> + case rpc:call(Node, mnesia_controller, get_cstructs, []) of + {cstructs, Cs0, RR} -> + {cstructs, [list2cs(cs2list(Cs)) || Cs <- Cs0], RR}; + Err -> Err + end; + false -> + rpc:call(Node, mnesia_controller, get_remote_cstructs, []) + end. + +need_old_cstructs(Nodes) -> + Filter = fun(Node) -> not mnesia_monitor:needs_protocol_conversion(Node) end, + case lists:dropwhile(Filter, Nodes) of + [] -> false; + [Node|_] -> + case rpc:call(Node, mnesia_lib, val, [{schema,cstruct}]) of + #cstruct{} -> + %% mnesia_lib:warning("Mnesia on ~p do not need to convert cstruct (~p)~n", + %% [node(), Node]), + false; + {badrpc, _} -> + need_old_cstructs(lists:delete(Node,Nodes)); + Cs when element(1, Cs) == cstruct, tuple_size(Cs) == 17 -> + ver4_4_18; % Without majority + Cs when element(1, Cs) == cstruct, tuple_size(Cs) == 18 -> + ver4_4_19 % With majority + end + end. + tab_to_nodes(Tab) when is_atom(Tab) -> Cs = val({Tab, cstruct}), mnesia_lib:cs_to_nodes(Cs). -make_merge_schema(Node, [Cs | Cstructs]) -> - Ops = do_make_merge_schema(Node, Cs), - Ops ++ make_merge_schema(Node, Cstructs); -make_merge_schema(_Node, []) -> +make_merge_schema(Node, NeedsConv, [Cs | Cstructs]) -> + Ops = do_make_merge_schema(Node, NeedsConv, Cs), + Ops ++ make_merge_schema(Node, NeedsConv, Cstructs); +make_merge_schema(_Node, _, []) -> []. %% Merge definitions of schema table -do_make_merge_schema(Node, RemoteCs) - when RemoteCs#cstruct.name == schema -> +do_make_merge_schema(Node, NeedsConv, RemoteCs = #cstruct{name = schema}) -> Cs = val({schema, cstruct}), Masters = mnesia_recover:get_master_nodes(schema), HasRemoteMaster = lists:member(Node, Masters), @@ -2804,15 +2869,15 @@ do_make_merge_schema(Node, RemoteCs) StCsLocal = mnesia_lib:cs_to_storage_type(node(), Cs), StRcsLocal = mnesia_lib:cs_to_storage_type(node(), RemoteCs), StCsRemote = mnesia_lib:cs_to_storage_type(Node, Cs), - StRcsRemote = mnesia_lib:cs_to_storage_type(Node, RemoteCs), - + StRcsRemote = mnesia_lib:cs_to_storage_type(Node, RemoteCs), + if Cs#cstruct.cookie == RemoteCs#cstruct.cookie, Cs#cstruct.version == RemoteCs#cstruct.version -> %% Great, we have the same cookie and version %% and do not need to merge cstructs []; - + Cs#cstruct.cookie /= RemoteCs#cstruct.cookie, Cs#cstruct.disc_copies /= [], RemoteCs#cstruct.disc_copies /= [] -> @@ -2823,14 +2888,14 @@ do_make_merge_schema(Node, RemoteCs) HasRemoteMaster == false -> %% Choose local cstruct, %% since it's the master - [{op, merge_schema, cs2list(Cs)}]; + [{op, merge_schema, cs2list(NeedsConv, Cs)}]; HasRemoteMaster == true, HasLocalMaster == false -> %% Choose remote cstruct, %% since it's the master - [{op, merge_schema, cs2list(RemoteCs)}]; - + [{op, merge_schema, cs2list(NeedsConv, RemoteCs)}]; + true -> Str = io_lib:format("Incompatible schema cookies. " "Please, restart from old backup." @@ -2838,12 +2903,12 @@ do_make_merge_schema(Node, RemoteCs) [Node, cs2list(RemoteCs), node(), cs2list(Cs)]), throw(Str) end; - + StCsLocal /= StRcsLocal, StRcsLocal /= unknown, StCsLocal /= ram_copies -> Str = io_lib:format("Incompatible schema storage types (local). " "on ~w storage ~w, on ~w storage ~w~n", [node(), StCsLocal, Node, StRcsLocal]), - throw(Str); + throw(Str); StCsRemote /= StRcsRemote, StCsRemote /= unknown, StRcsRemote /= ram_copies -> Str = io_lib:format("Incompatible schema storage types (remote). " "on ~w cs ~w, on ~w rcs ~w~n", @@ -2854,27 +2919,27 @@ do_make_merge_schema(Node, RemoteCs) %% Choose local cstruct, %% since it involves disc nodes MergedCs = merge_cstructs(Cs, RemoteCs, Force), - [{op, merge_schema, cs2list(MergedCs)}]; - + [{op, merge_schema, cs2list(NeedsConv, MergedCs)}]; + RemoteCs#cstruct.disc_copies /= [] -> %% Choose remote cstruct, %% since it involves disc nodes MergedCs = merge_cstructs(RemoteCs, Cs, Force), - [{op, merge_schema, cs2list(MergedCs)}]; + [{op, merge_schema, cs2list(NeedsConv, MergedCs)}]; Cs > RemoteCs -> %% Choose remote cstruct MergedCs = merge_cstructs(RemoteCs, Cs, Force), - [{op, merge_schema, cs2list(MergedCs)}]; - + [{op, merge_schema, cs2list(NeedsConv, MergedCs)}]; + true -> %% Choose local cstruct MergedCs = merge_cstructs(Cs, RemoteCs, Force), - [{op, merge_schema, cs2list(MergedCs)}] + [{op, merge_schema, cs2list(NeedsConv, MergedCs)}] end; %% Merge definitions of normal table -do_make_merge_schema(Node, RemoteCs) -> +do_make_merge_schema(Node, NeedsConv, RemoteCs = #cstruct{}) -> Tab = RemoteCs#cstruct.name, Masters = mnesia_recover:get_master_nodes(schema), HasRemoteMaster = lists:member(Node, Masters), @@ -2883,27 +2948,27 @@ do_make_merge_schema(Node, RemoteCs) -> case ?catch_val({Tab, cstruct}) of {'EXIT', _} -> %% A completely new table, created while Node was down - [{op, merge_schema, cs2list(RemoteCs)}]; + [{op, merge_schema, cs2list(NeedsConv, RemoteCs)}]; Cs when Cs#cstruct.cookie == RemoteCs#cstruct.cookie -> if Cs#cstruct.version == RemoteCs#cstruct.version -> %% We have exactly the same version of the %% table def []; - + Cs#cstruct.version > RemoteCs#cstruct.version -> %% Oops, we have different versions %% of the table def, lets merge them. %% The only changes that may have occurred %% is that new replicas may have been added. MergedCs = merge_cstructs(Cs, RemoteCs, Force), - [{op, merge_schema, cs2list(MergedCs)}]; - + [{op, merge_schema, cs2list(NeedsConv, MergedCs)}]; + Cs#cstruct.version < RemoteCs#cstruct.version -> %% Oops, we have different versions %% of the table def, lets merge them MergedCs = merge_cstructs(RemoteCs, Cs, Force), - [{op, merge_schema, cs2list(MergedCs)}] + [{op, merge_schema, cs2list(NeedsConv, MergedCs)}] end; Cs -> %% Different cookies, not possible to merge @@ -2912,14 +2977,14 @@ do_make_merge_schema(Node, RemoteCs) -> HasRemoteMaster == false -> %% Choose local cstruct, %% since it's the master - [{op, merge_schema, cs2list(Cs)}]; + [{op, merge_schema, cs2list(NeedsConv, Cs)}]; HasRemoteMaster == true, HasLocalMaster == false -> %% Choose remote cstruct, %% since it's the master - [{op, merge_schema, cs2list(RemoteCs)}]; - + [{op, merge_schema, cs2list(NeedsConv, RemoteCs)}]; + true -> Str = io_lib:format("Bad cookie in table definition" " ~w: ~w = ~w, ~w = ~w~n", @@ -2989,7 +3054,7 @@ compare_storage_type(true, One, Another) -> compare_storage_type(false, Another, One); compare_storage_type(false, _One, _Another) -> incompatible. - + change_storage_type(N, ram_copies, Cs) -> Nodes = [N | Cs#cstruct.ram_copies], Cs#cstruct{ram_copies = mnesia_lib:uniq(Nodes)}; @@ -3071,14 +3136,14 @@ verify_merge(RemoteCs) -> if StCsLocal == StRcsLocal -> ok; StCsLocal == unknown -> ok; - (StRcsLocal == unknown), (HasRemoteMaster == false) -> + (StRcsLocal == unknown), (HasRemoteMaster == false) -> {merge_error, Cs, RemoteCs}; %% Trust the merger true -> ok end end. -announce_im_running([N | Ns], SchemaCs) -> +announce_im_running([N | Ns], SchemaCs) -> {L1, L2} = mnesia_recover:connect_nodes([N]), case lists:member(N, L1) or lists:member(N, L2) of true -> @@ -3095,7 +3160,7 @@ announce_im_running([], _) -> unannounce_im_running([N | Ns]) -> mnesia_lib:del({current, db_nodes}, N), - mnesia_controller:del_active_replica(schema, N), + mnesia_controller:del_active_replica(schema, N), unannounce_im_running(Ns); unannounce_im_running([]) -> ok. diff --git a/lib/mnesia/vsn.mk b/lib/mnesia/vsn.mk index 2fa629d064..a21ab007ef 100644 --- a/lib/mnesia/vsn.mk +++ b/lib/mnesia/vsn.mk @@ -1 +1 @@ -MNESIA_VSN = 4.4.19 +MNESIA_VSN = 4.5 diff --git a/lib/observer/doc/src/notes.xml b/lib/observer/doc/src/notes.xml index 73eb992323..baa1354268 100644 --- a/lib/observer/doc/src/notes.xml +++ b/lib/observer/doc/src/notes.xml @@ -31,6 +31,22 @@ <p>This document describes the changes made to the Observer application.</p> +<section><title>Observer 0.9.10</title> + + <section><title>Fixed Bugs and Malfunctions</title> + <list> + <item> + <p> + Do not install *.bat files on non-win32 machines (Thanks + to Hans Ulrich Niedermann)</p> + <p> + Own Id: OTP-9515</p> + </item> + </list> + </section> + +</section> + <section><title>Observer 0.9.9</title> <section><title>Improvements and New Features</title> diff --git a/lib/observer/vsn.mk b/lib/observer/vsn.mk index 14c8f54ba3..76e2f591fa 100644 --- a/lib/observer/vsn.mk +++ b/lib/observer/vsn.mk @@ -1 +1 @@ -OBSERVER_VSN = 0.9.9 +OBSERVER_VSN = 0.9.10 diff --git a/lib/odbc/c_src/Makefile.in b/lib/odbc/c_src/Makefile.in index ed3eeb1d42..dda896bcd2 100644 --- a/lib/odbc/c_src/Makefile.in +++ b/lib/odbc/c_src/Makefile.in @@ -89,9 +89,10 @@ TARGET_FLAGS = @TARGET_FLAGS@ # ---------------------------------------------------- # Targets # ---------------------------------------------------- +_create_dirs := $(shell mkdir -p $(OBJ_DIR) $(BIN_DIR)) ifdef EXE_TARGET -opt debug: create_dirs $(EXE_TARGET) +opt debug: $(EXE_TARGET) else opt debug: endif @@ -119,10 +120,6 @@ endif $(OBJ_DIR)/odbcserver.o: odbcserver.c $(CC) $(CFLAGS) $(INCLUDES) $(TARGET_FLAGS) -o $@ -c odbcserver.c -create_dirs: - $(INSTALL_DIR) $(OBJ_DIR) - $(INSTALL_DIR) $(BIN_DIR) - # ---------------------------------------------------- # Release Target # ---------------------------------------------------- diff --git a/lib/odbc/c_src/odbcserver.h b/lib/odbc/c_src/odbcserver.h index 314fbf32c6..56b6148777 100644 --- a/lib/odbc/c_src/odbcserver.h +++ b/lib/odbc/c_src/odbcserver.h @@ -1,7 +1,7 @@ /* * %CopyrightBegin% * - * Copyright Ericsson AB 2002-2010. All Rights Reserved. + * Copyright Ericsson AB 2002-2011. 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 diff --git a/lib/odbc/doc/src/databases.xml b/lib/odbc/doc/src/databases.xml index 09f5a5af5b..34e1d51255 100644 --- a/lib/odbc/doc/src/databases.xml +++ b/lib/odbc/doc/src/databases.xml @@ -4,7 +4,7 @@ <chapter> <header> <copyright> - <year>2002</year><year>2010</year> + <year>2002</year><year>2011</year> <holder>Ericsson AB. All Rights Reserved.</holder> </copyright> <legalnotice> diff --git a/lib/odbc/doc/src/notes.xml b/lib/odbc/doc/src/notes.xml index e15e7dea7d..9c6ca8a017 100644 --- a/lib/odbc/doc/src/notes.xml +++ b/lib/odbc/doc/src/notes.xml @@ -31,7 +31,49 @@ <p>This document describes the changes made to the odbc application. </p> - <section><title>ODBC 2.10.10</title> + <section><title>ODBC 2.10.11</title> + + <section><title>Fixed Bugs and Malfunctions</title> + <list> + <item> + <p> + When using output parameters the internal odbc state was + not correctly cleaned causing the next call to + param_query to misbehave.</p> + <p> + Own Id: OTP-9444</p> + </item> + <item> + <p> XML files have been corrected. </p> + <p> + Own Id: OTP-9550 Aux Id: OTP-9541 </p> + </item> + </list> + </section> + + + <section><title>Improvements and New Features</title> + <list> + <item> + <p> + Add code to handle old ODBC drivers on solaris. Also adds + tests with MySQL.</p> + <p> + Own Id: OTP-8407</p> + </item> + <item> + <p> + Odbc now supports SQL_WLONGVARCHAR, thanks to Hanfei Shen + for the patch.</p> + <p> + Own Id: OTP-8493</p> + </item> + </list> + </section> + +</section> + +<section><title>ODBC 2.10.10</title> <section><title>Fixed Bugs and Malfunctions</title> <list> diff --git a/lib/odbc/doc/src/odbc.xml b/lib/odbc/doc/src/odbc.xml index 11ca97f743..8a58dc2848 100644 --- a/lib/odbc/doc/src/odbc.xml +++ b/lib/odbc/doc/src/odbc.xml @@ -4,7 +4,7 @@ <erlref> <header> <copyright> - <year>1999</year><year>2010</year> + <year>1999</year><year>2011</year> <holder>Ericsson AB. All Rights Reserved.</holder> </copyright> <legalnotice> @@ -138,7 +138,7 @@ <fsummary>Opens a connection to the database. </fsummary> <type> <v>ConnectStr = string()</v> - <d>An example of a connection string:<c>"DSN=sql-server;UID=aladdin;PWD=sesame"</c>where DSN is your ODBC Data Source Name, UID is a database user id and PWD is the password for that user. These are usually the attributes required in the connection string, but some drivers have other driver specific attributes, for example<c>"DSN=Oracle8;DBQ=gandalf;UID=aladdin;PWD=sesame"</c>where DBQ is your TNSNAMES.ORA entry name e.g. some Oracle specific configuration attribute.</d> + <d>An example of a connection string: <c>"DSN=sql-server;UID=aladdin;PWD=sesame"</c> where DSN is your ODBC Data Source Name, UID is a database user id and PWD is the password for that user. These are usually the attributes required in the connection string, but some drivers have other driver specific attributes, for example <c>"DSN=Oracle8;DBQ=gandalf;UID=aladdin;PWD=sesame"</c> where DBQ is your TNSNAMES.ORA entry name e.g. some Oracle specific configuration attribute.</d> <v>Options = [] | [option()]</v> <d>All options has default values. </d> <v>option() = {auto_commit, on | off} | {timeout, milliseconds()} @@ -432,7 +432,7 @@ <desc> <p>Selects <c>N</c> consecutive rows of the result set. If <c>Position</c> is <c>next</c> it is semantically equivalent - of calling <c>next/[1,2]</c><c>N</c> times. If + of calling <c>next/[1,2]</c> <c>N</c> times. If <c>Position</c> is <c>{relative, Pos}</c>, <c>Pos</c> will be used as an offset from the current cursor position to determine the first selected row. If <c>Position</c> is diff --git a/lib/odbc/src/odbc_internal.hrl b/lib/odbc/src/odbc_internal.hrl index c0e7d9657b..bd80cdc659 100644 --- a/lib/odbc/src/odbc_internal.hrl +++ b/lib/odbc/src/odbc_internal.hrl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2002-2010. All Rights Reserved. +%% Copyright Ericsson AB 2002-2011. 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 diff --git a/lib/odbc/test/odbc_test_lib.erl b/lib/odbc/test/odbc_test_lib.erl index 4d7d1ae2fa..a8439d5fb6 100644 --- a/lib/odbc/test/odbc_test_lib.erl +++ b/lib/odbc/test/odbc_test_lib.erl @@ -36,18 +36,25 @@ match_float(Float, Match, Delta) -> (Float < Match + Delta) and (Float > Match - Delta). odbc_check() -> - case erlang:system_info({wordsize, external}) of - 4 -> - ok; - Other -> - case os:type() of - {unix, linux} -> + case os:type() of + {unix,darwin} -> + lists:flatten( + io_lib:format("Currently we have no working drivers for MAC", + [])); + _ -> + case erlang:system_info({wordsize, external}) of + 4 -> ok; - Platform -> - lists:flatten( - io_lib:format("Word on platform ~w size" - " ~w not supported", [Other, - Platform])) + Other -> + case os:type() of + {unix, linux} -> + ok; + Platform -> + lists:flatten( + io_lib:format("Word on platform ~w size" + " ~w not supported", [Other, + Platform])) + end end end. diff --git a/lib/orber/doc/src/notes.xml b/lib/orber/doc/src/notes.xml index 231872f958..c8477d9252 100644 --- a/lib/orber/doc/src/notes.xml +++ b/lib/orber/doc/src/notes.xml @@ -32,7 +32,21 @@ <file>notes.xml</file> </header> - <section> + <section><title>Orber 3.6.22</title> + + <section><title>Fixed Bugs and Malfunctions</title> + <list> + <item> + <p> XML files have been corrected. </p> + <p> + Own Id: OTP-9550 Aux Id: OTP-9541 </p> + </item> + </list> + </section> + +</section> + +<section> <title>Orber 3.6.21</title> <section> diff --git a/lib/orber/doc/src/orber_ifr.xml b/lib/orber/doc/src/orber_ifr.xml index 021082e101..2d47d57476 100644 --- a/lib/orber/doc/src/orber_ifr.xml +++ b/lib/orber/doc/src/orber_ifr.xml @@ -4,7 +4,7 @@ <erlref> <header> <copyright> - <year>1997</year><year>2009</year> + <year>1997</year><year>2011</year> <holder>Ericsson AB. All Rights Reserved.</holder> </copyright> <legalnotice> @@ -297,7 +297,7 @@ </desc> </func> <func> - <name>describe_contents(Objref,Limit_type,Exclude_inherited,Max_returned_objs) -> Return</name> + <name>describe_contents(Objref, Limit_type, Exclude_inherited, Max_returned_objs) -> Return</name> <fsummary>Return a list of descriptions of the IFR objects contained by the target Container object</fsummary> <type> <v>Objref = #IFR_objref</v> diff --git a/lib/orber/include/Makefile b/lib/orber/include/Makefile deleted file mode 100644 index 219b7085e6..0000000000 --- a/lib/orber/include/Makefile +++ /dev/null @@ -1,66 +0,0 @@ -# -# %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% -# -# -include $(ERL_TOP)/make/target.mk - -include $(ERL_TOP)/make/$(TARGET)/otp.mk - -# ---------------------------------------------------- -# Application version -# ---------------------------------------------------- -include ../vsn.mk -VSN=$(ORBER_VSN) - -# ---------------------------------------------------- -# Release directory specification -# ---------------------------------------------------- -RELSYSDIR = $(RELEASE_PATH)/lib/orber-$(VSN) - -# ---------------------------------------------------- -# Target Specs -# ---------------------------------------------------- - -EXTERNAL_HRL_FILES= ../include/corba.hrl \ - ../include/ifr_types.hrl \ - ../include/orber_pi.hrl - -# ---------------------------------------------------- -# FLAGS -# ---------------------------------------------------- - -# ---------------------------------------------------- -# Targets -# ---------------------------------------------------- -debug opt clean docs: - - -# ---------------------------------------------------- -# Release Target -# ---------------------------------------------------- -include $(ERL_TOP)/make/otp_release_targets.mk - - -release_spec: opt - $(INSTALL_DIR) $(RELSYSDIR)/include - $(INSTALL_DATA) $(EXTERNAL_HRL_FILES) $(RELSYSDIR)/include - - -release_docs_spec: - - diff --git a/lib/orber/vsn.mk b/lib/orber/vsn.mk index 35aabd51cd..29b21e8e01 100644 --- a/lib/orber/vsn.mk +++ b/lib/orber/vsn.mk @@ -1,3 +1,3 @@ -ORBER_VSN = 3.6.21 +ORBER_VSN = 3.6.22 diff --git a/lib/os_mon/c_src/cpu_sup.c b/lib/os_mon/c_src/cpu_sup.c index fbf318c614..9c5f9a6aa5 100644 --- a/lib/os_mon/c_src/cpu_sup.c +++ b/lib/os_mon/c_src/cpu_sup.c @@ -1,7 +1,7 @@ /* * %CopyrightBegin% * - * Copyright Ericsson AB 1997-2009. All Rights Reserved. + * Copyright Ericsson AB 1997-2011. 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 @@ -191,7 +191,10 @@ int main(int argc, char** argv) { static cpu_t *read_procstat(FILE *fp, cpu_t *cpu) { char buffer[BUFFERSIZE]; - fgets(buffer, BUFFERSIZE, fp); + if (fgets(buffer, BUFFERSIZE, fp) == NULL) { + memset(cpu, 0, sizeof(cpu_t)); + return cpu; + } sscanf(buffer, "cpu%u %Lu %Lu %Lu %Lu %Lu %Lu %Lu %Lu", &(cpu->id), &(cpu->user), @@ -223,7 +226,11 @@ static void util_measure(unsigned int **result_vec, int *result_sz) { return; } - fgets(buffer, BUFFERSIZE, fp); /*ignore read*/ + /*ignore read*/ + if (fgets(buffer, BUFFERSIZE, fp) == NULL) { + *result_sz = 0; + return; + } rv = *result_vec; rv[0] = no_of_cpus; rv[1] = CU_VALUES; @@ -447,8 +454,12 @@ static void sendv(unsigned int data[], int ints) { } static void error(char* err_msg) { - write(FD_ERR, err_msg, strlen(err_msg)); - write(FD_ERR, "\n", 1); + /* + * if we get error here we have trouble, + * silence unnecessary warnings + */ + if(write(FD_ERR, err_msg, strlen(err_msg))); + if(write(FD_ERR, "\n", 1)); exit(-1); } diff --git a/lib/os_mon/doc/src/notes.xml b/lib/os_mon/doc/src/notes.xml index 3b5dbe3146..f641bbd828 100644 --- a/lib/os_mon/doc/src/notes.xml +++ b/lib/os_mon/doc/src/notes.xml @@ -4,7 +4,7 @@ <chapter> <header> <copyright> - <year>2004</year><year>2010</year> + <year>2004</year><year>2011</year> <holder>Ericsson AB. All Rights Reserved.</holder> </copyright> <legalnotice> @@ -30,6 +30,20 @@ </header> <p>This document describes the changes made to the OS_Mon application.</p> +<section><title>Os_Mon 2.2.7</title> + + <section><title>Fixed Bugs and Malfunctions</title> + <list> + <item> + <p>Remove misc. compiler warnings</p> + <p> + Own Id: OTP-9542</p> + </item> + </list> + </section> + +</section> + <section><title>Os_Mon 2.2.6</title> <section><title>Fixed Bugs and Malfunctions</title> diff --git a/lib/os_mon/vsn.mk b/lib/os_mon/vsn.mk index 2d583a398b..f000e24a8f 100644 --- a/lib/os_mon/vsn.mk +++ b/lib/os_mon/vsn.mk @@ -1 +1 @@ -OS_MON_VSN = 2.2.6 +OS_MON_VSN = 2.2.7 diff --git a/lib/parsetools/doc/src/leex.xml b/lib/parsetools/doc/src/leex.xml index 1fa426a79e..d5c24c303d 100644 --- a/lib/parsetools/doc/src/leex.xml +++ b/lib/parsetools/doc/src/leex.xml @@ -4,7 +4,7 @@ <erlref> <header> <copyright> - <year>2009</year><year>2009</year> + <year>2009</year><year>2011</year> <holder>Ericsson AB. All Rights Reserved.</holder> </copyright> <legalnotice> diff --git a/lib/parsetools/doc/src/notes.xml b/lib/parsetools/doc/src/notes.xml index 77b3a1a657..0c611db1ec 100644 --- a/lib/parsetools/doc/src/notes.xml +++ b/lib/parsetools/doc/src/notes.xml @@ -30,6 +30,52 @@ </header> <p>This document describes the changes made to the Parsetools application.</p> +<section><title>Parsetools 2.0.6</title> + + <section><title>Fixed Bugs and Malfunctions</title> + <list> + <item> + <p>Dialyzer warnings have been removed. </p> + <p> + Own Id: OTP-8318</p> + </item> + <item> + <p> + yecc: add warnings_as_errors option(Thanks to Tuncer + ayaz)</p> + <p> + Own Id: OTP-9376</p> + </item> + <item> + <p> + Fix incorrect order of pseudo variables in yecc example</p> + <p> + The example is for converting from infix to prefix. This + change uses to correct ordering of the triplet. (Thanks + to Garret Smith)</p> + <p> + Own Id: OTP-9484</p> + </item> + <item> + <p> + Implement or fix -Werror option</p> + <p> + If -Werror is enabled and there are warnings no output + file is written. Also make sure that error/warning + reporting is consistent. (Thanks to Tuncer Ayaz)</p> + <p> + Own Id: OTP-9536</p> + </item> + <item> + <p> XML files have been corrected. </p> + <p> + Own Id: OTP-9550 Aux Id: OTP-9541 </p> + </item> + </list> + </section> + +</section> + <section><title>Parsetools 2.0.5</title> <section><title>Improvements and New Features</title> diff --git a/lib/parsetools/doc/src/yecc.xml b/lib/parsetools/doc/src/yecc.xml index 1d2a985d7d..66bc6f4795 100644 --- a/lib/parsetools/doc/src/yecc.xml +++ b/lib/parsetools/doc/src/yecc.xml @@ -4,7 +4,7 @@ <erlref> <header> <copyright> - <year>1996</year><year>2009</year> + <year>1996</year><year>2011</year> <holder>Ericsson AB. All Rights Reserved.</holder> </copyright> <legalnotice> @@ -336,7 +336,7 @@ element -> list : '$1'. </code> <code type="none"> {cons, {atom, 1, a,} {cons, {atom, 1, b}, {cons, {atom, 1, c}, nil}}} </code> - <p>The associated code contains <c>pseudo variables</c><c>'$1'</c>, <c>'$2'</c>, <c>'$3'</c>, etc. which refer to (are + <p>The associated code contains <c>pseudo variables</c> <c>'$1'</c>, <c>'$2'</c>, <c>'$3'</c>, etc. which refer to (are bound to) the values associated previously by the parser with the symbols of the right hand side of the rule. When these symbols are terminal categories, the values are token tuples of diff --git a/lib/parsetools/src/leex.erl b/lib/parsetools/src/leex.erl index 942e9928b1..cdf20461d9 100644 --- a/lib/parsetools/src/leex.erl +++ b/lib/parsetools/src/leex.erl @@ -73,12 +73,15 @@ %%% Interface to erl_compile. compile(Input0, Output0, - #options{warning = WarnLevel, verbose=Verbose, includes=Includes}) -> + #options{warning = WarnLevel, verbose=Verbose, includes=Includes, + specific=Specific}) -> Input = assure_extension(shorten_filename(Input0), ".xrl"), Output = assure_extension(shorten_filename(Output0), ".erl"), Includefile = lists:sublist(Includes, 1), + Werror = proplists:get_bool(warnings_as_errors, Specific), Opts = [{scannerfile,Output},{includefile,Includefile},{verbose,Verbose}, - {report_errors,true},{report_warnings,WarnLevel > 0}], + {report_errors,true},{report_warnings,WarnLevel > 0}, + {warnings_as_errors, Werror}], case file(Input, Opts) of {ok, _} -> ok; @@ -107,7 +110,7 @@ file(File, Opts0) -> St = try {ok,REAs,Actions,Code,St2} = parse_file(St1), {DFA,DF} = make_dfa(REAs, St2), - case werr(St2) of + case werror(St2) of false -> St3 = out_file(St2, DFA, DF, Actions, Code), case lists:member(dfa_graph, St3#leex.opts) of @@ -259,9 +262,9 @@ leex_ret(St) -> report_warnings(St), Es = pack_errors(St#leex.errors), Ws = pack_warnings(St#leex.warnings), - Werr = werr(St), + Werror = werror(St), if - Werr -> + Werror -> do_error_return(St, Es, Ws); Es =:= [] -> case member(return_warnings, St#leex.opts) of @@ -278,9 +281,9 @@ do_error_return(St, Es, Ws) -> false -> error end. -werr(St) -> - member(warnings_as_errors, St#leex.opts) - andalso length(St#leex.warnings) > 0. +werror(St) -> + St#leex.warnings =/= [] + andalso member(warnings_as_errors, St#leex.opts). pack_errors([{File,_} | _] = Es) -> [{File, flatmap(fun({_,E}) -> [E] end, sort(Es))}]; @@ -304,15 +307,24 @@ report_errors(St) -> end, report_errors, St#leex.opts). report_warnings(St) -> - when_opt(fun () -> - foreach(fun({File,{none,Mod,W}}) -> - io:fwrite("~s: Warning: ~s\n", - [File,Mod:format_error(W)]); - ({File,{Line,Mod,W}}) -> - io:fwrite("~s:~w: Warning: ~s\n", - [File,Line,Mod:format_error(W)]) - end, sort(St#leex.warnings)) - end, report_warnings, St#leex.opts). + Werror = member(warnings_as_errors, St#leex.opts), + Prefix = case Werror of + true -> ""; + false -> "Warning: " + end, + ReportWerror = Werror andalso member(report_errors, St#leex.opts), + ShouldReport = member(report_warnings, St#leex.opts) orelse ReportWerror, + when_bool(fun () -> + foreach(fun({File,{none,Mod,W}}) -> + io:fwrite("~s: ~s~s\n", + [File,Prefix, + Mod:format_error(W)]); + ({File,{Line,Mod,W}}) -> + io:fwrite("~s:~w: ~s~s\n", + [File,Line,Prefix, + Mod:format_error(W)]) + end, sort(St#leex.warnings)) + end, ShouldReport). -spec add_error(_, #leex{}) -> no_return(). add_error(E, St) -> @@ -360,6 +372,12 @@ when_opt(Do, Opt, Opts) -> false -> ok end. +when_bool(Do, Bool) -> + case Bool of + true -> Do(); + false -> ok + end. + verbose_print(St, Format, Args) -> when_opt(fun () -> io:fwrite(Format, Args) end, verbose, St#leex.opts). diff --git a/lib/parsetools/src/yecc.erl b/lib/parsetools/src/yecc.erl index 72cff3af92..b0792a6ed8 100644 --- a/lib/parsetools/src/yecc.erl +++ b/lib/parsetools/src/yecc.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 1996-2010. All Rights Reserved. +%% Copyright Ericsson AB 1996-2011. 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 @@ -133,12 +133,15 @@ %%% Interface to erl_compile. compile(Input0, Output0, - #options{warning = WarnLevel, verbose=Verbose, includes=Includes}) -> + #options{warning = WarnLevel, verbose=Verbose, includes=Includes, + specific=Specific}) -> Input = shorten_filename(Input0), Output = shorten_filename(Output0), Includefile = lists:sublist(Includes, 1), + Werror = proplists:get_bool(warnings_as_errors, Specific), Opts = [{parserfile,Output}, {includefile,Includefile}, {verbose,Verbose}, - {report_errors, true}, {report_warnings, WarnLevel > 0}], + {report_errors, true}, {report_warnings, WarnLevel > 0}, + {warnings_as_errors, Werror}], case file(Input, Opts) of {ok, _OutFile} -> ok; @@ -411,15 +414,15 @@ infile(Parent, Infilex, Options) -> {error, Reason} -> add_error(St0#yecc.infile, none, {file_error, Reason}, St0) end, - case {St#yecc.errors, werr(St)} of + case {St#yecc.errors, werror(St)} of {[], false} -> ok; _ -> _ = file:delete(St#yecc.outfile) end, Parent ! {self(), yecc_ret(St)}. -werr(St) -> - member(warnings_as_errors, St#yecc.options) - andalso length(St#yecc.warnings) > 0. +werror(St) -> + St#yecc.warnings =/= [] + andalso member(warnings_as_errors, St#yecc.options). outfile(St0) -> case file:open(St0#yecc.outfile, [write, delayed_write]) of @@ -783,9 +786,9 @@ yecc_ret(St0) -> report_warnings(St), Es = pack_errors(St#yecc.errors), Ws = pack_warnings(St#yecc.warnings), - Werr = werr(St), + Werror = werror(St), if - Werr -> + Werror -> do_error_return(St, Es, Ws); Es =:= [] -> case member(return_warnings, St#yecc.options) of @@ -849,14 +852,22 @@ report_errors(St) -> end. report_warnings(St) -> - case member(report_warnings, St#yecc.options) of + Werror = member(warnings_as_errors, St#yecc.options), + Prefix = case Werror of + true -> ""; + false -> "Warning: " + end, + ReportWerror = Werror andalso member(report_errors, St#yecc.options), + case member(report_warnings, St#yecc.options) orelse ReportWerror of true -> foreach(fun({File,{none,Mod,W}}) -> - io:fwrite(<<"~s: Warning: ~s\n">>, - [File,Mod:format_error(W)]); + io:fwrite(<<"~s: ~s~s\n">>, + [File,Prefix, + Mod:format_error(W)]); ({File,{Line,Mod,W}}) -> - io:fwrite(<<"~s:~w: Warning: ~s\n">>, - [File,Line,Mod:format_error(W)]) + io:fwrite(<<"~s:~w: ~s~s\n">>, + [File,Line,Prefix, + Mod:format_error(W)]) end, sort(St#yecc.warnings)); false -> ok diff --git a/lib/parsetools/test/leex_SUITE.erl b/lib/parsetools/test/leex_SUITE.erl index 48312445ef..1e50aedf07 100644 --- a/lib/parsetools/test/leex_SUITE.erl +++ b/lib/parsetools/test/leex_SUITE.erl @@ -152,6 +152,7 @@ file(Config) when is_list(Config) -> ?line writable(Dotfile), file:delete(Dotfile), + ok = file:delete(Scannerfile), Warn = <<"Definitions.1998\n" "D = [0-9]\n" "Rules.\n" @@ -159,11 +160,15 @@ file(Config) when is_list(Config) -> "Erlang code.\n">>, ok = file:write_file(Filename, Warn), error = leex:file(Filename, [warnings_as_errors]), + false = filelib:is_regular(Scannerfile), error = leex:file(Filename, [return_warnings,warnings_as_errors]), - {ok,Scannerfile,[{Filename,[{1,leex,ignored_characters}]}]} = - leex:file(Filename, [return_warnings]), + false = filelib:is_regular(Scannerfile), {error,_,[{Filename,[{1,leex,ignored_characters}]}]} = - leex:file(Filename, [return_errors,warnings_as_errors]), + leex:file(Filename, [return_errors,warnings_as_errors]), + false = filelib:is_regular(Scannerfile), + {ok,Scannerfile,[{Filename,[{1,leex,ignored_characters}]}]} = + leex:file(Filename, [return_warnings]), + true = filelib:is_regular(Scannerfile), file:delete(Filename), ok. diff --git a/lib/parsetools/test/yecc_SUITE.erl b/lib/parsetools/test/yecc_SUITE.erl index 0133524950..a5f66b48e9 100644 --- a/lib/parsetools/test/yecc_SUITE.erl +++ b/lib/parsetools/test/yecc_SUITE.erl @@ -173,6 +173,7 @@ syntax(Config) when is_list(Config) -> %% Report errors. Very simple test of format_error/1. Ret = [return, {report, true}], Filename = filename:join(Dir, "file.yrl"), + Parserfile = filename:join(Dir, "file.erl"), Parserfile1 = filename:join(Dir, "a file"), ?line ok = file:write_file(Filename, <<"">>), @@ -248,12 +249,17 @@ syntax(Config) when is_list(Config) -> yecc:file(Filename, Ret), %% Bad declaration with warnings_as_errors. + ok = file:delete(Parserfile), error = yecc:file(Filename, [warnings_as_errors]), + false = filelib:is_regular(Parserfile), error = yecc:file(Filename, [return_warnings,warnings_as_errors]), - {ok,_,[{_,[{2,yecc,bad_declaration}]}]} = - yecc:file(Filename, [return_warnings]), + false = filelib:is_regular(Parserfile), {error,_,[{_,[{2,yecc,bad_declaration}]}]} = yecc:file(Filename, [return_errors,warnings_as_errors]), + false = filelib:is_regular(Parserfile), + {ok,_,[{_,[{2,yecc,bad_declaration}]}]} = + yecc:file(Filename, [return_warnings]), + true = filelib:is_regular(Parserfile), %% Bad declaration. ?line ok = file:write_file(Filename, diff --git a/lib/parsetools/vsn.mk b/lib/parsetools/vsn.mk index 812bf21f03..093523f0e7 100644 --- a/lib/parsetools/vsn.mk +++ b/lib/parsetools/vsn.mk @@ -1 +1 @@ -PARSETOOLS_VSN = 2.0.5 +PARSETOOLS_VSN = 2.0.6 diff --git a/lib/percept/doc/src/notes.xml b/lib/percept/doc/src/notes.xml index 33bfa7baab..95c2bbda56 100644 --- a/lib/percept/doc/src/notes.xml +++ b/lib/percept/doc/src/notes.xml @@ -32,6 +32,32 @@ </header> <p>This document describes the changes made to the Percept application.</p> +<section><title>Percept 0.8.6</title> + + <section><title>Fixed Bugs and Malfunctions</title> + <list> + <item> + <p> + Fix message handling in select requests</p> + <p> + percept_db used to send results in untagged messages, and + use a non selective receive to extract them. When percept + is used from the shell process, this can confuse other + messages with the actual result.</p> + <p> + Add a tag to the message to be {result, Result}. Add + demonitor to avoid keeping DOWN message in the queue fix + one spec in do_start/0</p> + <p> + (Thanks to Ahmed Omar)</p> + <p> + Own Id: OTP-9490</p> + </item> + </list> + </section> + +</section> + <section><title>Percept 0.8.5</title> <section><title>Fixed Bugs and Malfunctions</title> diff --git a/lib/percept/src/percept_db.erl b/lib/percept/src/percept_db.erl index 61b68ce44f..68eb38d298 100644 --- a/lib/percept/src/percept_db.erl +++ b/lib/percept/src/percept_db.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2007-2010. All Rights Reserved. +%% Copyright Ericsson AB 2007-2011. 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 diff --git a/lib/percept/vsn.mk b/lib/percept/vsn.mk index 2a302991aa..3b4d9bbb64 100644 --- a/lib/percept/vsn.mk +++ b/lib/percept/vsn.mk @@ -1 +1 @@ -PERCEPT_VSN = 0.8.5 +PERCEPT_VSN = 0.8.6 diff --git a/lib/public_key/doc/src/notes.xml b/lib/public_key/doc/src/notes.xml index 9d77750ea2..efd4a37eb9 100644 --- a/lib/public_key/doc/src/notes.xml +++ b/lib/public_key/doc/src/notes.xml @@ -34,6 +34,23 @@ <file>notes.xml</file> </header> +<section><title>Public_Key 0.13</title> + + <section><title>Fixed Bugs and Malfunctions</title> + <list> + <item> + <p> + replace "a ssl" with "an ssl" reindent + pkix_path_validation/3 Trivial documentation fixes + (Thanks to Christian von Roques )</p> + <p> + Own Id: OTP-9464</p> + </item> + </list> + </section> + +</section> + <section><title>Public_Key 0.12</title> <section><title>Improvements and New Features</title> diff --git a/lib/public_key/vsn.mk b/lib/public_key/vsn.mk index 3c6b012152..66ac78a65d 100644 --- a/lib/public_key/vsn.mk +++ b/lib/public_key/vsn.mk @@ -1 +1 @@ -PUBLIC_KEY_VSN = 0.12 +PUBLIC_KEY_VSN = 0.13 diff --git a/lib/reltool/doc/src/notes.xml b/lib/reltool/doc/src/notes.xml index 324d69675e..5304b996a4 100644 --- a/lib/reltool/doc/src/notes.xml +++ b/lib/reltool/doc/src/notes.xml @@ -37,7 +37,35 @@ thus constitutes one section in this document. The title of each section is the version number of Reltool.</p> - <section><title>Reltool 0.5.6</title> + <section><title>Reltool 0.5.7</title> + + <section><title>Fixed Bugs and Malfunctions</title> + <list> + <item> + <p> + If a module was duplicated in the library directories + visible to reltool, and the configuration did not point + out which file to use, then reltool:start would always + fail. A pop-up is added which asks if you want to + continue with a safe and minimal configuration.</p> + <p> + Own Id: OTP-9383</p> + </item> + <item> + <p> + wx would sometimes crash due to an empty radiobox on the + 'releases' tab of the system window. This radiobox is + removed, and replaced by a listbox which will always + contain at least kernel and stdlib applications.</p> + <p> + Own Id: OTP-9384</p> + </item> + </list> + </section> + +</section> + +<section><title>Reltool 0.5.6</title> <section><title>Fixed Bugs and Malfunctions</title> <list> diff --git a/lib/reltool/vsn.mk b/lib/reltool/vsn.mk index 227b1c80a2..751f9bb6db 100644 --- a/lib/reltool/vsn.mk +++ b/lib/reltool/vsn.mk @@ -1 +1 @@ -RELTOOL_VSN = 0.5.6 +RELTOOL_VSN = 0.5.7 diff --git a/lib/runtime_tools/doc/src/dbg.xml b/lib/runtime_tools/doc/src/dbg.xml index a17896e4ff..c7c5cd4ff0 100644 --- a/lib/runtime_tools/doc/src/dbg.xml +++ b/lib/runtime_tools/doc/src/dbg.xml @@ -723,7 +723,7 @@ Error: fun containing local erlang function calls ('is_atomm' called in guard) c value from the last invocation of the fun. The initial value of the second parameter is specified in the <c>InitialData</c> part of the <c>HandlerSpec</c>. The <c>HandlerFun</c> may - chose any appropriate action to take when invoked, and can + choose any appropriate action to take when invoked, and can save a state for the next invocation by returning it. </p> <p>If <c>Type</c> is a port, then the second parameter should @@ -783,7 +783,7 @@ Error: fun containing local erlang function calls ('is_atomm' called in guard) c <p>This function creates a trace port generating <em>fun</em>. The <em>fun</em> takes no arguments and returns a newly opened trace port. The return value from this function is suitable as - a second parameter to tracer/2, i. e. <c>dbg:tracer(port, dbg:trace_port(ip, 4711))</c>. </p> + a second parameter to tracer/2, i.e. <c>dbg:tracer(port, dbg:trace_port(ip, 4711))</c>. </p> <p>A trace port is an Erlang port to a dynamically linked in driver that handles trace messages directly, without the overhead of sending them @@ -869,9 +869,9 @@ Error: fun containing local erlang function calls ('is_atomm' called in guard) c <desc> <p>This function is used to do a control operation on the active trace port driver on the given node - (<c>Nodename</c>). Which operations that are allowed as well - as their return values are depending on which trace driver - that is used.</p> + (<c>Nodename</c>). Which operations are allowed as well + as their return values depend on which trace driver + is used.</p> <p>Returns either <c>ok</c> or <c>{ok, Result}</c> if the operation was successful, or <c>{error, Reason}</c> if the current tracer is a process diff --git a/lib/runtime_tools/doc/src/notes.xml b/lib/runtime_tools/doc/src/notes.xml index 599be62241..0bb76e1ea4 100644 --- a/lib/runtime_tools/doc/src/notes.xml +++ b/lib/runtime_tools/doc/src/notes.xml @@ -31,6 +31,23 @@ <p>This document describes the changes made to the Runtime_Tools application.</p> +<section><title>Runtime_Tools 1.8.6</title> + + <section><title>Improvements and New Features</title> + <list> + <item> + <p> + Two new built-in trace pattern aliases have been added: + caller_trace (c) and caller_exception_trace (cx). See the + dbg:ltp/0 documentation for more info.</p> + <p> + Own Id: OTP-9458</p> + </item> + </list> + </section> + +</section> + <section><title>Runtime_Tools 1.8.5</title> <section><title>Improvements and New Features</title> diff --git a/lib/runtime_tools/vsn.mk b/lib/runtime_tools/vsn.mk index 6ed98f697e..0bcd261861 100644 --- a/lib/runtime_tools/vsn.mk +++ b/lib/runtime_tools/vsn.mk @@ -1 +1 @@ -RUNTIME_TOOLS_VSN = 1.8.5 +RUNTIME_TOOLS_VSN = 1.8.6 diff --git a/lib/sasl/doc/src/notes.xml b/lib/sasl/doc/src/notes.xml index d4460d47b4..01cdc4b29e 100644 --- a/lib/sasl/doc/src/notes.xml +++ b/lib/sasl/doc/src/notes.xml @@ -30,6 +30,104 @@ </header> <p>This document describes the changes made to the SASL application.</p> +<section><title>SASL 2.1.10</title> + + <section><title>Fixed Bugs and Malfunctions</title> + <list> + <item> + <p> + The release_handler functionality on windows services was + broken. This has been corrected.</p> + <p> + Own Id: OTP-9306</p> + </item> + <item> + <p> + If a new version of an application did not include any + erlang module changes, the code path of the application + was not updated by the release_handler unless a + 'load_object_code' instruction was added for the + application. This would be a problem if e.g. only some + files in the priv dir were changed since calls to + code:lib_dir or code:priv_dir would then point to the old + location of the application. This has been corrected - + now code:replace_path/2 will be called for all + applications that are changed (i.e. when the + application's vsn is changed in the .rel file).</p> + <p> + Own Id: OTP-9402</p> + </item> + <item> + <p> + The appup instruction 'delete_module' would cause a crash + during upgrade if the module to be deleted was not + loaded. This has been corrected.</p> + <p> + Own Id: OTP-9417</p> + </item> + <item> + <p> + If a path was given as ONLY 'ebin' and not for example + './ebin', then systools:make_tar would fail with a + <c>function_clause</c> exception in filename:join/1. This + has been corrected. (Thanks to Nikola Skoric for + reporting).</p> + <p> + Own Id: OTP-9507</p> + </item> + <item> + <p> + Implement or fix -Werror option</p> + <p> + If -Werror is enabled and there are warnings no output + file is written. Also make sure that error/warning + reporting is consistent. (Thanks to Tuncer Ayaz)</p> + <p> + Own Id: OTP-9536</p> + </item> + <item> + <p> + Improved error information for timeouts during + release_handler:install_release.</p> + <p> + This patch addresses two cases where a timeout will occur + during upgrade. 1) if a supervisor is suspended (call to + get children from supervisor will hang) 2) if the child + spec for a supervisor incorrectly states that it is a + worker with a dynamic set of modules (call to get modules + from gen_event will hang)</p> + <p> + An error report will now be printed, and the return value + of release_handler:install_release will indicate what + happened. (Thanks to joe williams)</p> + <p> + Own Id: OTP-9546</p> + </item> + </list> + </section> + + + <section><title>Improvements and New Features</title> + <list> + <item> + <p> + <c>release_handler:install_release</c> could be very slow + when there are many processes in the system. Some + optimization work has been done both in erts and in the + release handler in order to improve this. </p> + <p> + A new option, <c>purge</c>, is added to + <c>release_handler:check_install_release</c> which can be + called first in order to speed up the execution of + <c>release_handler:install_release</c>.</p> + <p> + Own Id: OTP-9395</p> + </item> + </list> + </section> + +</section> + <section><title>SASL 2.1.9.4</title> <section><title>Fixed Bugs and Malfunctions</title> diff --git a/lib/sasl/doc/src/systools.xml b/lib/sasl/doc/src/systools.xml index 883c9c372b..8c1c327d74 100644 --- a/lib/sasl/doc/src/systools.xml +++ b/lib/sasl/doc/src/systools.xml @@ -45,7 +45,8 @@ <v>Name = string()</v> <v>UpFrom = DownTo = [Name | {Name,Descr}]</v> <v> Descr = term()</v> - <v>Opt = {path,[Dir]} | restart_emulator | silent | noexec | {outdir,Dir}</v> + <v>Opt = {path,[Dir]} | restart_emulator | silent | noexec | {outdir,Dir} + | warnings_as_errors</v> <v> Dir = string()</v> <v>Result = ok | error | {ok,Relup,Module,Warnings} | {error,Module,Error}</v> <v> Relup - see relup(4)</v> @@ -122,6 +123,8 @@ <p>If the option <c>noexec</c> is provided, the function returns the same values as for <c>silent</c> but no <c>relup</c> file is created.</p> + <p>If the option <c>warnings_as_errors</c> is provided, warnings + are treated as errors.</p> </desc> </func> <func> @@ -130,7 +133,8 @@ <fsummary>Generate a boot script <c>.script/.boot</c>.</fsummary> <type> <v>Name = string()</v> - <v>Opt = src_tests | {path,[Dir]} | local | {variables,[Var]} | exref | {exref,[App]}] | silent | {outdir,Dir}</v> + <v>Opt = src_tests | {path,[Dir]} | local | {variables,[Var]} | exref | {exref,[App]}] + | silent | {outdir,Dir} | warnings_as_errors</v> <v> Dir = string()</v> <v> Var = {VarName,Prefix}</v> <v> VarName = Prefix = string()</v> @@ -232,6 +236,8 @@ Warnings and errors can be converted to strings by calling <c>Module:format_warning(Warnings)</c> or <c>Module:format_error(Error)</c>.</p> + <p>If the option <c>warnings_as_errors</c> is provided, warnings + are treated as errors.</p> </desc> </func> <func> diff --git a/lib/sasl/examples/src/Makefile b/lib/sasl/examples/src/Makefile index c58f651696..9cf0d4c25d 100644 --- a/lib/sasl/examples/src/Makefile +++ b/lib/sasl/examples/src/Makefile @@ -1,7 +1,7 @@ # # %CopyrightBegin% # -# Copyright Ericsson AB 2010. All Rights Reserved. +# Copyright Ericsson AB 2010-2011. 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 diff --git a/lib/sasl/src/release_handler_1.erl b/lib/sasl/src/release_handler_1.erl index ef95606bb5..8d0baf3ab1 100644 --- a/lib/sasl/src/release_handler_1.erl +++ b/lib/sasl/src/release_handler_1.erl @@ -21,7 +21,7 @@ %% External exports -export([eval_script/1, eval_script/5, check_script/2, check_old_processes/2]). --export([get_current_vsn/1]). %% exported because used in a test case +-export([get_current_vsn/1, get_supervised_procs/0]). %% exported because used in a test case -record(eval_state, {bins = [], stopped = [], suspended = [], apps = [], libdirs, unpurged = [], vsns = [], newlibs = [], @@ -493,6 +493,19 @@ start(Procs) -> %% supervisor module, we should load the new version, and then %% delete the old. Then we should perform the start changes %% manually, by adding/deleting children. +%% +%% Recent changes to this code cause the upgrade error out and +%% log the case where a suspended supervisor has which_children +%% called against it. This retains the behavior of causing a VM +%% restart to the *old* version of a release but has the +%% advantage of logging the pid and supervisor that had the +%% issue. +%% +%% A second case where this can occur is if a child spec is +%% incorrect and get_modules is called against a process that +%% can't respond to the gen:call. Again an error is logged, +%% an error returned and a VM restart is issued. +%% %% Returns: [{SuperPid, ChildName, ChildPid, Mods}] %%----------------------------------------------------------------- %% OTP-3452. For each application the first item contains the pid @@ -502,49 +515,81 @@ start(Procs) -> get_supervised_procs() -> lists:foldl( fun(Application, Procs) -> - case application_controller:get_master(Application) of - Pid when is_pid(Pid) -> - {Root, _AppMod} = application_master:get_child(Pid), - case get_supervisor_module(Root) of - {ok, SupMod} -> - get_procs(supervisor:which_children(Root), - Root) ++ - [{undefined, undefined, Root, [SupMod]} | - Procs]; - {error, _} -> - error_logger:error_msg("release_handler: " - "cannot find top " - "supervisor for " - "application ~w~n", - [Application]), - get_procs(supervisor:which_children(Root), - Root) ++ Procs - end; - _ -> Procs - end + get_master_procs(Application, + Procs, + application_controller:get_master(Application)) end, [], - lists:map(fun({Application, _Name, _Vsn}) -> - Application - end, - application:which_applications())). + get_application_names()). + +get_supervised_procs(_, Root, Procs, {ok, SupMod}) -> + get_procs(maybe_supervisor_which_children(get_proc_state(Root), SupMod, Root), Root) ++ + [{undefined, undefined, Root, [SupMod]} | Procs]; +get_supervised_procs(Application, Root, Procs, {error, _}) -> + error_logger:error_msg("release_handler: cannot find top supervisor for " + "application ~w~n", [Application]), + get_procs(maybe_supervisor_which_children(get_proc_state(Root), Application, Root), Root) ++ Procs. + +get_application_names() -> + lists:map(fun({Application, _Name, _Vsn}) -> + Application + end, + application:which_applications()). + +get_master_procs(Application, Procs, Pid) when is_pid(Pid) -> + {Root, _AppMod} = application_master:get_child(Pid), + get_supervised_procs(Application, Root, Procs, get_supervisor_module(Root)); +get_master_procs(_, Procs, _) -> + Procs. get_procs([{Name, Pid, worker, dynamic} | T], Sup) when is_pid(Pid) -> - Mods = get_dynamic_mods(Pid), + Mods = maybe_get_dynamic_mods(Name, Pid), [{Sup, Name, Pid, Mods} | get_procs(T, Sup)]; get_procs([{Name, Pid, worker, Mods} | T], Sup) when is_pid(Pid), is_list(Mods) -> [{Sup, Name, Pid, Mods} | get_procs(T, Sup)]; get_procs([{Name, Pid, supervisor, Mods} | T], Sup) when is_pid(Pid) -> - [{Sup, Name, Pid, Mods} | get_procs(T, Sup)] ++ - get_procs(supervisor:which_children(Pid), Pid); + [{Sup, Name, Pid, Mods} | get_procs(T, Sup)] ++ + get_procs(maybe_supervisor_which_children(get_proc_state(Pid), Name, Pid), Pid); get_procs([_H | T], Sup) -> get_procs(T, Sup); get_procs(_, _Sup) -> []. -get_dynamic_mods(Pid) -> - {ok,Res} = gen:call(Pid, self(), get_modules), - Res. +get_proc_state(Proc) -> + {status, _, {module, _}, [_, State, _, _, _]} = sys:get_status(Proc), + State. + +maybe_supervisor_which_children(suspended, Name, Pid) -> + error_logger:error_msg("release_handler: a which_children call" + " to ~p (~p) was avoided. This supervisor" + " is suspended and should likely be upgraded" + " differently. Exiting ...~n", [Name, Pid]), + error(suspended_supervisor); + +maybe_supervisor_which_children(State, Name, Pid) -> + case catch supervisor:which_children(Pid) of + Res when is_list(Res) -> + Res; + Other -> + error_logger:error_msg("release_handler: ~p~nerror during" + " a which_children call to ~p (~p)." + " [State: ~p] Exiting ... ~n", + [Other, Name, Pid, State]), + error(which_children_failed) + end. + +maybe_get_dynamic_mods(Name, Pid) -> + case catch gen:call(Pid, self(), get_modules) of + {ok, Res} -> + Res; + Other -> + error_logger:error_msg("release_handler: ~p~nerror during a" + " get_modules call to ~p (~p)," + " there may be an error in it's" + " childspec. Exiting ...~n", + [Other, Name, Pid]), + error(get_modules_failed) + end. %% XXXX %% Note: The following is a terrible hack done in order to resolve the diff --git a/lib/sasl/src/systools_lib.erl b/lib/sasl/src/systools_lib.erl index f951647b79..1b6ea125d9 100644 --- a/lib/sasl/src/systools_lib.erl +++ b/lib/sasl/src/systools_lib.erl @@ -24,7 +24,7 @@ %% -export([file_term2binary/2, read_term/1, read_term_from_stream/2, - get_dirs/1, get_path/1]). + get_dirs/1, get_path/1, werror/2]). -include_lib("kernel/include/file.hrl"). @@ -219,6 +219,7 @@ flat([H|T], Ack) -> flat(T, [H|Ack]); flat([], Ack) -> lists:reverse(Ack). - - + +werror(Options, Warnings) -> + lists:member(warnings_as_errors, Options) andalso Warnings =/= []. diff --git a/lib/sasl/src/systools_make.erl b/lib/sasl/src/systools_make.erl index 5dc83e7b2a..7f400f5cce 100644 --- a/lib/sasl/src/systools_make.erl +++ b/lib/sasl/src/systools_make.erl @@ -44,10 +44,12 @@ %%----------------------------------------------------------------- %% Create a boot script from a release file. -%% Options is a list of {path, Path} | silent | local where path sets -%% the search path, silent supresses error message printing on console, -%% local generates a script with references to the directories there -%% the applications are found. +%% Options is a list of {path, Path} | silent | local +%% | warnings_as_errors +%% where path sets the search path, silent supresses error message +%% printing on console, local generates a script with references +%% to the directories there the applications are found, +%% and warnings_as_errors treats warnings as errors. %% %% New options: {path,Path} can contain wildcards %% src_tests @@ -85,11 +87,16 @@ make_script(RelName, Output, Flags) when is_list(RelName), ModTestP = {member(src_tests, Flags),xref_p(Flags)}, case get_release(RelName, Path, ModTestP, machine(Flags)) of {ok, Release, Appls, Warnings} -> - case generate_script(Output,Release,Appls,Flags) of - ok -> + case systools_lib:werror(Flags, Warnings) of + true -> return(ok,Warnings,Flags); - Error -> - return(Error,Warnings,Flags) + false -> + case generate_script(Output,Release,Appls,Flags) of + ok -> + return(ok,Warnings,Flags); + Error -> + return(Error,Warnings,Flags) + end end; Error -> return(Error,[],Flags) @@ -130,10 +137,21 @@ get_outdir(Flags) -> return(ok,Warnings,Flags) -> case member(silent,Flags) of true -> - {ok,?MODULE,Warnings}; + case systools_lib:werror(Flags, Warnings) of + true -> + error; + false -> + {ok,?MODULE,Warnings} + end; _ -> - io:format("~s",[format_warning(Warnings)]), - ok + case member(warnings_as_errors,Flags) of + true -> + io:format("~s",[format_warning(Warnings, true)]), + error; + false -> + io:format("~s",[format_warning(Warnings)]), + ok + end end; return({error,Mod,Error},_,Flags) -> case member(silent,Flags) of @@ -1833,78 +1851,89 @@ get_flag(_,_) -> false. %% Check Options for make_script check_args_script(Args) -> cas(Args, - {undef, undef, undef, undef, undef, undef, undef, undef, []}). + {undef, undef, undef, undef, undef, undef, undef, undef, + undef, []}). -cas([], {_Path,_Sil,_Loc,_Test,_Var,_Mach,_Xref,_XrefApps, X}) -> +cas([], {_Path,_Sil,_Loc,_Test,_Var,_Mach,_Xref,_XrefApps,_Werror, X}) -> X; %%% path --------------------------------------------------------------- -cas([{path, P} | Args], {Path, Sil, Loc, Test, Var, Mach, - Xref, XrefApps, X}) when is_list(P) -> +cas([{path, P} | Args], {Path, Sil, Loc, Test, Var, Mach, Xref, + XrefApps, Werror, X}) when is_list(P) -> case check_path(P) of ok -> - cas(Args, {P, Sil, Loc, Test, Var, Mach, Xref, XrefApps,X}); + cas(Args, {P, Sil, Loc, Test, Var, Mach, Xref, XrefApps, + Werror, X}); error -> cas(Args, {Path, Sil, Loc, Test, Var, Mach, Xref, XrefApps, - X++[{path,P}]}) + Werror, X++[{path,P}]}) end; %%% silent ------------------------------------------------------------- -cas([silent | Args], {Path, _Sil, Loc, Test, Var, Mach, - Xref, XrefApps, X}) -> - cas(Args, {Path, silent, Loc, Test, Var, Mach, Xref, XrefApps, X}); +cas([silent | Args], {Path, _Sil, Loc, Test, Var, Mach, Xref, + XrefApps, Werror, X}) -> + cas(Args, {Path, silent, Loc, Test, Var, Mach, Xref, XrefApps, + Werror, X}); %%% local -------------------------------------------------------------- -cas([local | Args], {Path, Sil, _Loc, Test, Var, Mach, - Xref, XrefApps, X}) -> - cas(Args, {Path, Sil, local, Test, Var, Mach, Xref, XrefApps, X}); +cas([local | Args], {Path, Sil, _Loc, Test, Var, Mach, Xref, + XrefApps, Werror, X}) -> + cas(Args, {Path, Sil, local, Test, Var, Mach, Xref, XrefApps, + Werror, X}); %%% src_tests ------------------------------------------------------- -cas([src_tests | Args], {Path, Sil, Loc, _Test, Var, Mach, - Xref, XrefApps, X}) -> +cas([src_tests | Args], {Path, Sil, Loc, _Test, Var, Mach, Xref, + XrefApps, Werror, X}) -> cas(Args, - {Path, Sil, Loc, src_tests, Var, Mach, Xref, XrefApps,X}); + {Path, Sil, Loc, src_tests, Var, Mach, Xref, Werror, XrefApps,X}); %%% variables ---------------------------------------------------------- -cas([{variables, V} | Args], {Path, Sil, Loc, Test, Var, Mach, - Xref, XrefApps, X}) when is_list(V) -> +cas([{variables, V} | Args], {Path, Sil, Loc, Test, Var, Mach, Xref, + XrefApps, Werror, X}) when is_list(V) -> case check_vars(V) of ok -> cas(Args, - {Path, Sil, Loc, Test, V, Mach, Xref, XrefApps, X}); + {Path, Sil, Loc, Test, V, Mach, Xref, XrefApps, Werror, X}); error -> cas(Args, {Path, Sil, Loc, Test, Var, Mach, Xref, XrefApps, - X++[{variables, V}]}) + Werror, X++[{variables, V}]}) end; %%% machine ------------------------------------------------------------ -cas([{machine, M} | Args], {Path, Sil, Loc, Test, Var, Mach, - Xref, XrefApps, X}) when is_atom(M) -> - cas(Args, {Path, Sil, Loc, Test, Var, Mach, Xref, XrefApps, X}); +cas([{machine, M} | Args], {Path, Sil, Loc, Test, Var, Mach, Xref, + XrefApps, Werror, X}) when is_atom(M) -> + cas(Args, {Path, Sil, Loc, Test, Var, Mach, Xref, XrefApps, Werror, X}); %%% exref -------------------------------------------------------------- -cas([exref | Args], {Path, Sil, Loc, Test, Var, Mach, - _Xref, XrefApps, X}) -> - cas(Args, {Path, Sil, Loc, Test, Var, Mach, exref, XrefApps, X}); +cas([exref | Args], {Path, Sil, Loc, Test, Var, Mach, _Xref, + XrefApps, Werror, X}) -> + cas(Args, {Path, Sil, Loc, Test, Var, Mach, exref, XrefApps, Werror, X}); %%% exref Apps --------------------------------------------------------- -cas([{exref, Apps} | Args], {Path, Sil, Loc, Test, Var, Mach, - Xref, XrefApps, X}) when is_list(Apps) -> +cas([{exref, Apps} | Args], {Path, Sil, Loc, Test, Var, Mach, Xref, + XrefApps, Werror, X}) when is_list(Apps) -> case check_apps(Apps) of ok -> cas(Args, {Path, Sil, Loc, Test, Var, Mach, - Xref, Apps, X}); + Xref, Apps, Werror, X}); error -> cas(Args, {Path, Sil, Loc, Test, Var, Mach, - Xref, XrefApps, X++[{exref, Apps}]}) + Xref, XrefApps, Werror, X++[{exref, Apps}]}) end; %%% outdir Dir --------------------------------------------------------- -cas([{outdir, Dir} | Args], {Path, Sil, Loc, Test, Var, Mach, - Xref, XrefApps, X}) when is_list(Dir) -> - cas(Args, {Path, Sil, Loc, Test, Var, Mach, Xref, XrefApps, X}); +cas([{outdir, Dir} | Args], {Path, Sil, Loc, Test, Var, Mach, Xref, + XrefApps, Werror, X}) when is_list(Dir) -> + cas(Args, {Path, Sil, Loc, Test, Var, Mach, Xref, XrefApps, Werror, X}); %%% otp_build (secret, not documented) --------------------------------- -cas([otp_build | Args], {Path, Sil, Loc, Test, Var, Mach, - Xref, XrefApps, X}) -> - cas(Args, {Path, Sil, Loc, Test, Var, Mach, Xref, XrefApps, X}); +cas([otp_build | Args], {Path, Sil, Loc, Test, Var, Mach, Xref, + XrefApps, Werror, X}) -> + cas(Args, {Path, Sil, Loc, Test, Var, Mach, Xref, XrefApps, Werror, X}); %%% no_module_tests (kept for backwards compatibility, but ignored) ---- -cas([no_module_tests | Args], {Path, Sil, Loc, Test, Var, Mach, - Xref, XrefApps, X}) -> - cas(Args, {Path, Sil, Loc, Test, Var, Mach, Xref, XrefApps,X}); +cas([no_module_tests | Args], {Path, Sil, Loc, Test, Var, Mach, Xref, + XrefApps, Werror, X}) -> + cas(Args, {Path, Sil, Loc, Test, Var, Mach, Xref, XrefApps, Werror, X}); +%%% warnings_as_errors (kept for backwards compatibility, but ignored) ---- +cas([warnings_as_errors | Args], {Path, Sil, Loc, Test, Var, Mach, Xref, + XrefApps, _Werror, X}) -> + cas(Args, {Path, Sil, Loc, Test, Var, Mach, Xref, XrefApps, + warnings_as_errors, X}); %%% ERROR -------------------------------------------------------------- -cas([Y | Args], {Path, Sil, Loc, Test, Var, Mach, Xref, XrefApps, X}) -> - cas(Args, {Path, Sil, Loc, Test, Var, Mach, Xref, XrefApps,X++[Y]}). +cas([Y | Args], {Path, Sil, Loc, Test, Var, Mach, Xref, XrefApps, + Werror, X}) -> + cas(Args, {Path, Sil, Loc, Test, Var, Mach, Xref, XrefApps, Werror, + X++[Y]}). @@ -2030,7 +2059,6 @@ check_apps([H|T]) when is_atom(H) -> check_apps(_) -> error. - %% Format error format_error(badly_formatted_release) -> @@ -2144,21 +2172,31 @@ form_tar_err({add, File, Error}) -> %% Format warning format_warning(Warnings) -> - map(fun({warning,W}) -> form_warn(W) end, Warnings). - -form_warn({source_not_found,{Mod,_,App,_,_}}) -> - io_lib:format("*WARNING* ~p: Source code not found: ~p.erl~n", - [App,Mod]); -form_warn({{parse_error, File},{_,_,App,_,_}}) -> - io_lib:format("*WARNING* ~p: Parse error: ~p~n", - [App,File]); -form_warn({obj_out_of_date,{Mod,_,App,_,_}}) -> - io_lib:format("*WARNING* ~p: Object code (~p) out of date~n",[App,Mod]); -form_warn({exref_undef, Undef}) -> - F = fun({M,F,A}) -> - io_lib:format("*WARNING* Undefined function ~p:~p/~p~n", - [M,F,A]) + format_warning(Warnings, false). + +format_warning(Warnings, Werror) -> + Prefix = case Werror of + true -> + ""; + false -> + "*WARNING* " + end, + map(fun({warning,W}) -> form_warn(Prefix, W) end, Warnings). + +form_warn(Prefix, {source_not_found,{Mod,_,App,_,_}}) -> + io_lib:format("~s~p: Source code not found: ~p.erl~n", + [Prefix,App,Mod]); +form_warn(Prefix, {{parse_error, File},{_,_,App,_,_}}) -> + io_lib:format("~s~p: Parse error: ~p~n", + [Prefix,App,File]); +form_warn(Prefix, {obj_out_of_date,{Mod,_,App,_,_}}) -> + io_lib:format("~s~p: Object code (~p) out of date~n", + [Prefix,App,Mod]); +form_warn(Prefix, {exref_undef, Undef}) -> + F = fun({M,F,A}) -> + io_lib:format("~sUndefined function ~p:~p/~p~n", + [Prefix,M,F,A]) end, map(F, Undef); -form_warn(What) -> - io_lib:format("*WARNING* ~p~n", [What]). +form_warn(Prefix, What) -> + io_lib:format("~s ~p~n", [Prefix,What]). diff --git a/lib/sasl/src/systools_relup.erl b/lib/sasl/src/systools_relup.erl index ec5486226c..6d9e922900 100644 --- a/lib/sasl/src/systools_relup.erl +++ b/lib/sasl/src/systools_relup.erl @@ -122,7 +122,7 @@ %% rel_filename() = description() = string() %% Opts = [opt()] %% opt() = {path, [path()]} | silent | noexec | restart_emulator -%% | {outdir, string()} +%% | {outdir, string()} | warnings_as_errors %% path() = [string()] %% Ret = ok | error | {ok, Relup, Module, Warnings} | {error, Module, Error} %% @@ -139,8 +139,9 @@ %% %% The option `path' sets search path, `silent' suppresses printing of %% error messages to the console, `noexec' inhibits the creation of -%% the output "relup" file, and restart_emulator ensures that the new -%% emulator is restarted (as the final step). +%% the output "relup" file, restart_emulator ensures that the new +%% emulator is restarted (as the final step), and `warnings_as_errors' +%% treats warnings as errors. %% ---------------------------------------------------------------- mk_relup(TopRelFile, BaseUpRelDcs, BaseDnRelDcs) -> mk_relup(TopRelFile, BaseUpRelDcs, BaseDnRelDcs, []). @@ -153,14 +154,29 @@ mk_relup(TopRelFile, BaseUpRelDcs, BaseDnRelDcs, Opts) -> {false, false} -> case R of {ok, _Res, _Mod, Ws} -> - print_warnings(Ws), - ok; + print_warnings(Ws, Opts), + case systools_lib:werror(Opts, Ws) of + true -> + error; + false -> + ok + end; Other -> print_error(Other), error end; - _ -> - R + _ -> + case R of + {ok, _Res, _Mod, Ws} -> + case systools_lib:werror(Opts, Ws) of + true -> + error; + false -> + R + end; + R -> + R + end end; BadArg -> erlang:error({badarg, BadArg}) @@ -195,7 +211,12 @@ do_mk_relup(TopRelFile, BaseUpRelDcs, BaseDnRelDcs, Path, Opts) -> {Dn, Ws2} = foreach_baserel_dn(TopRel, TopApps, BaseDnRelDcs, Path, Opts, Ws1), Relup = {TopRel#release.vsn, Up, Dn}, - write_relup_file(Relup, Opts), + case systools_lib:werror(Opts, Ws2) of + true -> + ok; + false -> + write_relup_file(Relup, Opts) + end, {ok, Relup, ?MODULE, Ws2}; Other -> throw(Other) @@ -527,20 +548,29 @@ format_error(Error) -> io:format("~p~n", [Error]). -print_warnings(Ws) when is_list(Ws) -> - lists:foreach(fun(W) -> print_warning(W) end, Ws); -print_warnings(W) -> - print_warning(W). +print_warnings(Ws, Opts) when is_list(Ws) -> + lists:foreach(fun(W) -> print_warning(W, Opts) end, Ws); +print_warnings(W, Opts) -> + print_warning(W, Opts). -print_warning(W) -> - S = format_warning(W), +print_warning(W, Opts) -> + Prefix = case lists:member(warnings_as_errors, Opts) of + true -> + ""; + false -> + "*WARNING* " + end, + S = format_warning(Prefix, W), io:format("~s", [S]). -format_warning({erts_vsn_changed, {Rel1, Rel2}}) -> - io_lib:format("*WARNING* The ERTS version changed between ~p and ~p~n", - [Rel1, Rel2]); -format_warning(What) -> - io_lib:format("*WARNING* ~p~n",[What]). +format_warning(W) -> + format_warning("*WARNING* ", W). + +format_warning(Prefix, {erts_vsn_changed, {Rel1, Rel2}}) -> + io_lib:format("~sThe ERTS version changed between ~p and ~p~n", + [Prefix, Rel1, Rel2]); +format_warning(Prefix, What) -> + io_lib:format("~s~p~n",[Prefix, What]). get_reason({error, {open, _, _}}) -> open; diff --git a/lib/sasl/test/release_handler_SUITE.erl b/lib/sasl/test/release_handler_SUITE.erl index b44da72d35..af2183bfff 100644 --- a/lib/sasl/test/release_handler_SUITE.erl +++ b/lib/sasl/test/release_handler_SUITE.erl @@ -58,7 +58,7 @@ cases() -> [otp_2740, otp_2760, otp_5761, otp_9402, otp_9417, otp_9395_check_old_code, otp_9395_check_and_purge, otp_9395_update_many_mods, otp_9395_rm_many_mods, - instructions, eval_appup]. + instructions, eval_appup, supervisor_which_children_timeout]. groups() -> [{release,[], @@ -523,6 +523,29 @@ no_cc() -> %%%----------------------------------------------------------------- %%----------------------------------------------------------------- +%% release_handler_1:get_supervised_procs/0 test +%%----------------------------------------------------------------- +supervisor_which_children_timeout(Conf) -> + PrivDir = priv_dir(Conf), + Dir = filename:join(PrivDir,"supervisor_which_children_timeout"), + DataDir = ?config(data_dir,Conf), + LibDir = filename:join([DataDir,release_handler_timeouts]), + + Rel1 = create_and_install_fake_first_release(Dir,[{dummy,"0.1",LibDir}]), + + {ok, Node} = t_start_node(supervisor_which_children_timeout, Rel1, []), + Proc = rpc:call(Node, erlang, whereis, [dummy_sup_2]), + ok = rpc:call(Node, sys, suspend, [Proc]), + Result = {badrpc, {'EXIT', {suspended_supervisor, _}}} = + rpc:call(Node, release_handler_1, get_supervised_procs, []), + ?t:format("release_handler_1:get_supervised_procs/0: ~p~n", [Result]), + + ok. + +supervisor_which_children_timeout(cleanup, Conf) -> + stop_node(node_name(supervisor_which_children_timeout)). + +%%----------------------------------------------------------------- %% Ticket: OTP-2740 %% Slogan: vsn not numeric doesn't work so good in release_handling %%----------------------------------------------------------------- diff --git a/lib/sasl/test/release_handler_SUITE_data/Makefile.src b/lib/sasl/test/release_handler_SUITE_data/Makefile.src index 9b07e7ce0a..edb446413d 100644 --- a/lib/sasl/test/release_handler_SUITE_data/Makefile.src +++ b/lib/sasl/test/release_handler_SUITE_data/Makefile.src @@ -64,8 +64,13 @@ C= \ c/b.@EMULATOR@ \ c/c_sup.@EMULATOR@ +SUP= \ + release_handler_timeouts/dummy-0.1/ebin/dummy_app.@EMULATOR@ \ + release_handler_timeouts/dummy-0.1/ebin/dummy_server.@EMULATOR@ \ + release_handler_timeouts/dummy-0.1/ebin/dummy_sup.@EMULATOR@ \ + release_handler_timeouts/dummy-0.1/ebin/dummy_sup_2.@EMULATOR@ -all: $(P2B) $(LIB) $(APP) $(OTP2740) $(C) +all: $(P2B) $(LIB) $(APP) $(OTP2740) $(C) $(SUP) P2B/a-2.0/ebin/a.@EMULATOR@: P2B/a-2.0/src/a.erl erlc $(EFLAGS) -oP2B/a-2.0/ebin P2B/a-2.0/src/a.erl @@ -195,3 +200,12 @@ c/b.@EMULATOR@: c/b.erl erlc $(EFLAGS) -oc c/b.erl c/c_sup.@EMULATOR@: c/c_sup.erl erlc $(EFLAGS) -oc c/c_sup.erl + +release_handler_timeouts/dummy-0.1/ebin/dummy_app.@EMULATOR@: release_handler_timeouts/dummy-0.1/src/dummy_app.erl + erlc $(EFLAGS) -orelease_handler_timeouts/dummy-0.1/ebin release_handler_timeouts/dummy-0.1/src/dummy_app.erl +release_handler_timeouts/dummy-0.1/ebin/dummy_server.@EMULATOR@: release_handler_timeouts/dummy-0.1/src/dummy_server.erl + erlc $(EFLAGS) -orelease_handler_timeouts/dummy-0.1/ebin release_handler_timeouts/dummy-0.1/src/dummy_server.erl +release_handler_timeouts/dummy-0.1/ebin/dummy_sup.@EMULATOR@: release_handler_timeouts/dummy-0.1/src/dummy_sup.erl + erlc $(EFLAGS) -orelease_handler_timeouts/dummy-0.1/ebin release_handler_timeouts/dummy-0.1/src/dummy_sup.erl +release_handler_timeouts/dummy-0.1/ebin/dummy_sup_2.@EMULATOR@: release_handler_timeouts/dummy-0.1/src/dummy_sup_2.erl + erlc $(EFLAGS) -orelease_handler_timeouts/dummy-0.1/ebin release_handler_timeouts/dummy-0.1/src/dummy_sup_2.erl diff --git a/lib/sasl/test/release_handler_SUITE_data/release_handler_timeouts/dummy-0.1/ebin/dummy.app b/lib/sasl/test/release_handler_SUITE_data/release_handler_timeouts/dummy-0.1/ebin/dummy.app new file mode 100644 index 0000000000..9efdc2e5da --- /dev/null +++ b/lib/sasl/test/release_handler_SUITE_data/release_handler_timeouts/dummy-0.1/ebin/dummy.app @@ -0,0 +1,7 @@ +{application,dummy, + [{description,"a dummy app"}, + {vsn,"0.1"}, + {registered,[dummy_app]}, + {mod,{dummy_app,[]}}, + {applications,[kernel,stdlib,sasl]}, + {modules,[dummy_app,dummy_server,dummy_sup,dummy_sup_2]}]}.
\ No newline at end of file diff --git a/lib/sasl/test/release_handler_SUITE_data/release_handler_timeouts/dummy-0.1/src/dummy_app.erl b/lib/sasl/test/release_handler_SUITE_data/release_handler_timeouts/dummy-0.1/src/dummy_app.erl new file mode 100644 index 0000000000..51363b3630 --- /dev/null +++ b/lib/sasl/test/release_handler_SUITE_data/release_handler_timeouts/dummy-0.1/src/dummy_app.erl @@ -0,0 +1,9 @@ +-module(dummy_app). +-behaviour(application). + +-export([start/2, stop/1]). + +start(_,_) -> + dummy_sup:start_link(). + +stop(_) -> ok. diff --git a/lib/sasl/test/release_handler_SUITE_data/release_handler_timeouts/dummy-0.1/src/dummy_server.erl b/lib/sasl/test/release_handler_SUITE_data/release_handler_timeouts/dummy-0.1/src/dummy_server.erl new file mode 100644 index 0000000000..382251eba7 --- /dev/null +++ b/lib/sasl/test/release_handler_SUITE_data/release_handler_timeouts/dummy-0.1/src/dummy_server.erl @@ -0,0 +1,56 @@ +-module(dummy_server). +-behaviour(gen_server). + +-export([start_link/0, set_state/1, get_state/0]). + +-export([init/1, + handle_call/3, + handle_cast/2, + handle_info/2, + terminate/2, + code_change/3]). + +%% + +start_link() -> + gen_server:start_link({local, ?MODULE}, ?MODULE, [], []). + +set_state(What) -> + gen_server:call(?MODULE, {set_state, What}). + +get_state() -> + gen_server:call(?MODULE, get_state). + + +%% + +init([]) -> + say("init, setting state to 0", []), + {ok, 0}. + + +handle_call({set_state, NewState}, _From, _State) -> + {reply, {ok, NewState}, NewState}; + +handle_call(get_state, _From, State) -> + {reply, State, State}. + +handle_cast('__not_implemented', State) -> + {noreply, State}. + +handle_info(_Info, State) -> + say("info ~p, ~p.", [_Info, State]), + {noreply, State}. + +terminate(_Reason, _State) -> + say("terminate ~p, ~p", [_Reason, _State]), + ok. + +code_change(_OldVsn, State, _Extra) -> + say("code_change ~p, ~p, ~p", [_OldVsn, State, _Extra]), + {ok, State}. + +%% Internal + +say(Format, Data) -> + io:format("~p:~p: ~s~n", [?MODULE, self(), io_lib:format(Format, Data)]). diff --git a/lib/sasl/test/release_handler_SUITE_data/release_handler_timeouts/dummy-0.1/src/dummy_sup.erl b/lib/sasl/test/release_handler_SUITE_data/release_handler_timeouts/dummy-0.1/src/dummy_sup.erl new file mode 100644 index 0000000000..3d7b5060df --- /dev/null +++ b/lib/sasl/test/release_handler_SUITE_data/release_handler_timeouts/dummy-0.1/src/dummy_sup.erl @@ -0,0 +1,15 @@ +-module(dummy_sup). +-behaviour(supervisor). + +-export([start_link/0]). +-export([init/1]). + +start_link() -> + supervisor:start_link({local, ?MODULE}, ?MODULE, []). + +init([]) -> + DummySup2 = {dummy_sup_2, + {dummy_sup_2, start_link, []}, + permanent, 5000, supervisor, [dummy_sup_2]}, + + {ok, {{one_for_one, 10, 10}, [DummySup2]}}. diff --git a/lib/sasl/test/release_handler_SUITE_data/release_handler_timeouts/dummy-0.1/src/dummy_sup_2.erl b/lib/sasl/test/release_handler_SUITE_data/release_handler_timeouts/dummy-0.1/src/dummy_sup_2.erl new file mode 100644 index 0000000000..d936cbcbd6 --- /dev/null +++ b/lib/sasl/test/release_handler_SUITE_data/release_handler_timeouts/dummy-0.1/src/dummy_sup_2.erl @@ -0,0 +1,15 @@ +-module(dummy_sup_2). +-behaviour(supervisor). + +-export([start_link/0]). +-export([init/1]). + +start_link() -> + supervisor:start_link({local, ?MODULE}, ?MODULE, []). + +init([]) -> + Dummy = {dummy_server, + {dummy_server, start_link, []}, + permanent, 5000, worker, [dummy_server]}, + + {ok, {{one_for_one, 10, 10}, [Dummy]}}. diff --git a/lib/sasl/test/systools_SUITE.erl b/lib/sasl/test/systools_SUITE.erl index 539f6de99d..e352247d44 100644 --- a/lib/sasl/test/systools_SUITE.erl +++ b/lib/sasl/test/systools_SUITE.erl @@ -396,6 +396,7 @@ src_tests_script(Config) when is_list(Config) -> ?line PSAVE = code:get_path(), % Save path ?line {LatestDir, LatestName} = create_script(latest,Config), + ?line BootFile = LatestName ++ ".boot", ?line DataDir = filename:absname(?copydir), ?line LibDir = fname([DataDir, d_missing_src, lib]), @@ -416,14 +417,32 @@ src_tests_script(Config) when is_list(Config) -> ?line Erl2 = filename:join([P1,"..","src","db2.erl"]), ?line file:delete(Erl2), - %% Then make script - two warnings should be issued when - %% src_tests is given + %% Then make script + + %% .boot file should not exist + ?line ok = file:delete(BootFile), + ?line false = filelib:is_regular(BootFile), + %% With warnings_as_errors and src_tests option, an error should be issued + ?line error = + systools:make_script(LatestName, [silent, {path, N}, src_tests, + warnings_as_errors]), + ?line error = + systools:make_script(LatestName, [{path, N}, src_tests, + warnings_as_errors]), + + %% due to warnings_as_errors .boot file should still not exist + ?line false = filelib:is_regular(BootFile), + + %% Two warnings should be issued when src_tests is given %% 1. old object code for db1.beam %% 2. missing source code for db2.beam ?line {ok, _, [{warning,{obj_out_of_date,_}}, {warning,{source_not_found,_}}]} = systools:make_script(LatestName, [silent, {path, N}, src_tests]), + %% .boot file should exist now + ?line true = filelib:is_regular(BootFile), + %% Without the src_tests option, no warning should be issued ?line {ok, _, []} = systools:make_script(LatestName, [silent, {path, N}]), @@ -1150,6 +1169,21 @@ normal_relup(Config) when is_list(Config) -> [{path, P}, silent]), ?line ok = check_relup([{db, "2.1"}], [{db, "1.0"}]), + %% file should not be written if warnings_as_errors is enabled. + %% delete before running tests. + ?line ok = file:delete("relup"), + + %% Check that warnings are treated as errors + ?line error = + systools:make_relup(LatestName, [LatestName2], [LatestName1], + [{path, P}, warnings_as_errors]), + ?line error = + systools:make_relup(LatestName, [LatestName2], [LatestName1], + [{path, P}, silent, warnings_as_errors]), + + %% relup file should not exist + ?line false = filelib:is_regular("relup"), + %% Check that warnings get through ?line ok = systools:make_relup(LatestName, [LatestName2], [LatestName1], [{path, P}]), @@ -1159,6 +1193,9 @@ normal_relup(Config) when is_list(Config) -> [{path, P}, silent]), ?line ok = check_relup([{fe, "3.1"}, {db, "2.1"}], [{db, "1.0"}]), + %% relup file should exist now + ?line true = filelib:is_regular("relup"), + ?line ok = file:set_cwd(OldDir), ok. diff --git a/lib/sasl/vsn.mk b/lib/sasl/vsn.mk index 26dc2c1448..2db134af48 100644 --- a/lib/sasl/vsn.mk +++ b/lib/sasl/vsn.mk @@ -1 +1 @@ -SASL_VSN = 2.1.9.4 +SASL_VSN = 2.1.10 diff --git a/lib/snmp/Makefile b/lib/snmp/Makefile index c55eff04c6..4264531112 100644 --- a/lib/snmp/Makefile +++ b/lib/snmp/Makefile @@ -2,7 +2,7 @@ # %CopyrightBegin% # -# Copyright Ericsson AB 1996-2009. All Rights Reserved. +# Copyright Ericsson AB 1996-2011. 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 diff --git a/lib/snmp/doc/src/notes.xml b/lib/snmp/doc/src/notes.xml index 4178192120..9e1a060dee 100644 --- a/lib/snmp/doc/src/notes.xml +++ b/lib/snmp/doc/src/notes.xml @@ -33,6 +33,62 @@ </header> <section> + <title>SNMP Development Toolkit 4.21.1</title> + <p>Version 4.21.1 supports code replacement in runtime from/to + version 4.20.1, 4.20 and 4.19. </p> + + <section> + <title>Improvements and new features</title> +<!-- + <p>-</p> +--> + <list type="bulleted"> + <item> + <p>[compiler] Used wrong variable name (for + warnings-as-errors variable), which caused the + compiler to crash when using the snmpc (e)script. </p> + <p>Also added the option + <seealso marker="snmpc(command)#option_werror">--Werror</seealso> + for the SNMP MIB compiler (escript) frontend (to mimic + <seealso marker="erts:erlc">erlc</seealso>), + which specifies whether warnings should be treated as errors. </p> + <p>Own Id: OTP-9447</p> + </item> + + <item> + <p>[agent] Some very minor debugging improvements. </p> + <p>Own Id: OTP-9446</p> + </item> + </list> + + </section> + + <section> + <title>Fixed Bugs and Malfunctions</title> + <p>-</p> + +<!-- + <list type="bulleted"> + <item> + <p>The snmp config tool could not handle (manager) audit trail config + because the option seqno was not handled. </p> + <p>Own Id: OTP-9354</p> + </item> + + </list> +--> + </section> + + + <section> + <title>Incompatibilities</title> + <p>-</p> + </section> + + </section> <!-- 4.21.1 --> + + + <section> <title>SNMP Development Toolkit 4.21</title> <p>Version 4.21 supports code replacement in runtime from/to version 4.20.1, 4.20 and 4.19. </p> diff --git a/lib/snmp/doc/src/snmpc_cmd.xml b/lib/snmp/doc/src/snmpc_cmd.xml index 72116f8981..971f8a3cff 100644 --- a/lib/snmp/doc/src/snmpc_cmd.xml +++ b/lib/snmp/doc/src/snmpc_cmd.xml @@ -79,16 +79,18 @@ <p>Print debug info. </p> <p><c>verbosity</c> = <c>trace</c> | <c>debug</c> | <c>log</c> | <c>info</c> | <c>silence</c></p> <p>Defaults to <c>silence</c>.</p> + <marker id="option_w"></marker> <marker id="option_warnings"></marker> </item> - <tag>--warnings</tag> + <tag>--warnings | --W</tag> <item> <p>Print warning messages. </p> <marker id="option_wae"></marker> + <marker id="option_werror"></marker> </item> - <tag>--wae</tag> + <tag>--wae | --Werror</tag> <item> <p>Warnings as errors. Indicates that warnings shall be treated as errors. </p> @@ -211,7 +213,7 @@ <section> <title>SEE ALSO</title> - <p><seealso marker="erlc">erlc(1)</seealso>, + <p><seealso marker="erts:erlc">erlc(1)</seealso>, <seealso marker="compiler:compile">compile(3)</seealso>, <seealso marker="snmp:snmpc">snmpc(3)</seealso></p> </section> diff --git a/lib/snmp/src/agent/snmp_target_mib.erl b/lib/snmp/src/agent/snmp_target_mib.erl index 77910541a2..60bd3e0912 100644 --- a/lib/snmp/src/agent/snmp_target_mib.erl +++ b/lib/snmp/src/agent/snmp_target_mib.erl @@ -383,10 +383,18 @@ is_valid_tag(Tag, TDomain, TAddress) -> is_valid_tag(TDomain, TAddress, Tag, []). is_valid_tag(TDomain, TAddress, Tag, Key) -> + ?vtrace("is_valid_tag -> entry with" + "~n TDomain: ~p" + "~n TAddress: ~p" + "~n Tag: ~p" + "~n Key: ~p", [TDomain, TAddress, Tag, Key]), case table_next(snmpTargetAddrTable, Key) of endOfTable -> + ?vtrace("is_valid_tag -> endOfTable", []), false; NextKey -> + ?vtrace("is_valid_tag -> next key found" + "~n NextKey: ~p", [NextKey]), case get(snmpTargetAddrTable, NextKey, [?snmpTargetAddrTDomain, ?snmpTargetAddrTAddress, ?snmpTargetAddrTagList, @@ -395,6 +403,8 @@ is_valid_tag(TDomain, TAddress, Tag, Key) -> {value, TAddress}, % RFC2576: chapters 5.2.1 & 5.3 {value, TagList}, {value, []}] -> + ?vtrace("is_valid_tag -> found with exact match" + "~n TagList: ~p", [TagList]), case snmp_misc:is_tag_member(Tag, TagList) of true -> ?vtrace("is_valid_tag -> exact: " @@ -410,9 +420,14 @@ is_valid_tag(TDomain, TAddress, Tag, Key) -> {value, TAddress2}, {value, TagList}, {value, TMask}] when TMask =/= [] -> + ?vtrace("is_valid_tag -> found with exact match" + "~n TagList: ~p" + "~n TMask: ~p", [TagList, TMask]), case snmp_misc:is_tmask_match(TAddress, TAddress2, TMask) of true -> + ?vtrace("is_valid_tag -> " + "tmask match - now check tag member", []), case snmp_misc:is_tag_member(Tag, TagList) of true -> ?vtrace("is_valid_tag -> masked: " @@ -425,10 +440,12 @@ is_valid_tag(TDomain, TAddress, Tag, Key) -> Tag, NextKey) end; false -> + ?vtrace("is_valid_tag -> tmask NO match", []), is_valid_tag(TDomain, TAddress, Tag, NextKey) end; _ -> + ?vtrace("is_valid_tag -> not found - try next", []), is_valid_tag(TDomain, TAddress, Tag, NextKey) end end. @@ -591,9 +608,9 @@ snmpTargetAddrTable(print) -> [Prefix, element(?snmpTargetAddrName, Row), Prefix, element(?snmpTargetAddrTDomain, Row), case element(?snmpTargetAddrTDomain, Row) of - ?snmpUDPDomain -> udp; - ?transportDomainUdpIpv4 -> udpIpv4; - ?transportDomainUdpIpv6 -> udpIpv6; + ?snmpUDPDomain -> snmpUDPDomain; + ?transportDomainUdpIpv4 -> transportDomainUdpIpv4; + ?transportDomainUdpIpv6 -> transportDomainUdpIpv6; _ -> undefined end, Prefix, element(?snmpTargetAddrTAddress, Row), diff --git a/lib/snmp/src/app/snmp.appup.src b/lib/snmp/src/app/snmp.appup.src index 8e1855b4df..0b6ea93231 100644 --- a/lib/snmp/src/app/snmp.appup.src +++ b/lib/snmp/src/app/snmp.appup.src @@ -22,8 +22,14 @@ %% ----- U p g r a d e ------------------------------------------------------- [ + {"4.21", + [ + {load_module, snmp_target_mib, soft_purge, soft_purge, []} + ] + }, {"4.20.1", [ + {load_module, snmp_target_mib, soft_purge, soft_purge, []}, {load_module, snmp_view_based_acm_mib, soft_purge, soft_purge, []}, {load_module, snmpm, soft_purge, soft_purge, [snmpm_server, snmpm_config, snmp_config]}, @@ -109,8 +115,14 @@ %% ------D o w n g r a d e --------------------------------------------------- [ + {"4.21", + [ + {load_module, snmp_target_mib, soft_purge, soft_purge, []} + ] + }, {"4.20.1", [ + {load_module, snmp_target_mib, soft_purge, soft_purge, []}, {load_module, snmp_view_based_acm_mib, soft_purge, soft_purge, []}, {load_module, snmpm, soft_purge, soft_purge, [snmpm_server, snmpm_config, snmp_config]}, diff --git a/lib/snmp/src/compile/snmpc.src b/lib/snmp/src/compile/snmpc.src index 4e91ae9a03..f993335b89 100644 --- a/lib/snmp/src/compile/snmpc.src +++ b/lib/snmp/src/compile/snmpc.src @@ -46,7 +46,7 @@ agent_capabilities = false, module, no_defaults = false, - relaxed_row_name_assigne_check = false, + relaxed_row_name_assign_check = false, %% The default verbosity (silence) will be filled in %% during argument processing. verbosity, @@ -75,7 +75,7 @@ %% --version %% --verbosity V %% --warnings -%% --wae +%% --Werror | --wae | --warnings_as_errors main(Args) when is_list(Args) -> case (catch process_args(Args)) of ok -> @@ -154,7 +154,7 @@ mk_mib_options(#state{outdir = OutDir, agent_capabilities = AC, module = Mod, no_defaults = ND, - relaxed_row_name_assigne_check = RRNAC, + relaxed_row_name_assign_check = RRNAC, %% The default verbosity (silence) will be filled in %% during argument processing. verbosity = V, @@ -182,7 +182,7 @@ mk_mib_options(#state{outdir = OutDir, maybe_option(MI, module_identity) ++ maybe_option(MC, module_compliance) ++ maybe_option(AC, agent_capabilities) ++ - maybe_option(WE, warnings_as_errors). + maybe_option(WAE, warnings_as_errors). maybe_option(true, Opt) -> [Opt]; maybe_option(_, _) -> []. @@ -234,6 +234,8 @@ process_args(["--verbosity", Verbosity0|Args], #state{verbosity = V} = State) process_args(["--verbosity"|_Args], #state{verbosity = V}) when (V =/= undefined) -> e(lists:flatten(io_lib:format("Verbosity already set to ~w", [V]))); +process_args(["--w"|Args], State) -> + process_args(Args, State#state{warnings = true}); process_args(["--warnings"|Args], State) -> process_args(Args, State#state{warnings = true}); process_args(["--o", Dir|Args], State) -> @@ -295,9 +297,13 @@ process_args(["--mod"|_Args], #state{module = M}) process_args(["--nd"|Args], State) -> process_args(Args, State#state{no_defaults = true}); process_args(["--rrnac"|Args], State) -> - process_args(Args, State#state{relaxed_row_name_assigne_check = true}); + process_args(Args, State#state{relaxed_row_name_assign_check = true}); +process_args(["--Werror"|Args], State) -> + process_args(Args, State#state{warnings_as_errors = true}); process_args(["--wae"|Args], State) -> process_args(Args, State#state{warnings_as_errors = true}); +process_args(["--warnings_as_errors"|Args], State) -> + process_args(Args, State#state{warnings_as_errors = true}); process_args([MIB], State) -> Ext = filename:extension(MIB), if @@ -332,7 +338,7 @@ usage() -> "~n --verbosity <verbosity> - Print debug info." "~n verbosity = trace | debug | log | info | silence" "~n Defaults to silence." - "~n --warnings - Print warning messages." + "~n --warnings | --W - Print warning messages." "~n --o <output dir> - The output dir." "~n Defaults to current working dir." "~n --i <include dir> - Add this dir to the list of dirs that will be" @@ -340,16 +346,19 @@ usage() -> "~n The current workin dir will always be included. " "~n --il <include_lib dir> - Add this dir to the list of dirs that will be" "~n searched for imported (compiled) MIB files." - "~n It assumes that the first element in the dir name" - "~n correspond to an OTP application. For example snmp/mibs/" - "~n The current workin dir and the <snmp-home>/priv/mibs " + "~n It assumes that the first element in the dir " + "~n name correspond to an OTP application. " + "~n For example snmp/mibs/ " + "~n The current workin dir and the " + "~n <snmp-home>/priv/mibs " "~n are always listed last the includ path. " "~n --db <DB> - Database to used for the default instrumentation." "~n Defaults to volatile." - "~n --sgc - This option (skip group check), if present, disables " - "~n the \"group check\" of the mib compiler. " - "~n That is, should the OBJECT-GROUP and the NOTIFICATION-GROUP " - "~n macro(s) be checked for correctness or not. " + "~n --sgc - This option (skip group check), if present, " + "~n disables the \"group check\" of the mib compiler. " + "~n That is, should the OBJECT-GROUP and the " + "~n NOTIFICATION-GROUP macro(s) be checked for " + "~n correctness or not. " "~n By default the check is done. " "~n --dep - Keep deprecated definition(s)." "~n If not specified the compiler will ignore" @@ -360,25 +369,27 @@ usage() -> "~n --mi - The MODULE-IDENTITY field will be included." "~n --mc - The MODULE-COMPLIANCE field will be included." "~n --ac - The AGENT-CAPABILITIES field will be included." - "~n --mod <module> - The module which implements all the instrumentation" - "~n functions. " + "~n --mod <module> - The module which implements all the " + "~n instrumentation functions. " "~n The name of all instrumentation functions must" "~n be the same as the corresponding managed object" "~n it implements." - "~n --nd - The default instrumentation functions will *not* be used" - "~n if a managed object have no instrumentation function. " - "~n Instead this will be reported as an error, and the " - "~n compilation aborts. " - "~n --rrnac - This option, if present, specifies that the row name " - "~n assign check shall not be done strictly according to" - "~n the SMI (which allows only the value 1). " - "~n With this option, all values greater than zero is allowed" - "~n (>= 1). This means that the error will be converted to " + "~n --nd - The default instrumentation functions will *not* " + "~n be used if a managed object have no " + "~n instrumentation function. Instead this will be " + "~n reported as an error, and the compilation aborts. " + "~n --rrnac - This option, if present, specifies that the row " + "~n name assign check shall not be done strictly " + "~n according to the SMI (which allows only the " + "~n value 1). With this option, all values greater " + "~n than zero is allowed (>= 1). " + "~n This means that the error will be converted to " "~n a warning. " - "~n By default it is not included, but if this option is " - "~n present it will be. " - "~n --wae - Warnings as errors. " - "~n Indicates that warnings shall be treated as errors. " + "~n By default it is not included, but if this " + "~n option is present it will be. " + "~n --wae | --Werror - Warnings as errors. " + "~n Indicates that warnings shall be treated as " + "~n errors. " "~n " "~n", []), halt(1). diff --git a/lib/snmp/src/compile/snmpc_lib.erl b/lib/snmp/src/compile/snmpc_lib.erl index 4f71c47bfa..38bb8f3ac6 100644 --- a/lib/snmp/src/compile/snmpc_lib.erl +++ b/lib/snmp/src/compile/snmpc_lib.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 1997-2010. All Rights Reserved. +%% Copyright Ericsson AB 1997-2011. 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 @@ -1754,12 +1754,12 @@ error(FormatStr, Data, Line) when is_list(FormatStr) -> exit(error). print_error(FormatStr, Data) when is_list(FormatStr) -> - ok = io:format("~s: Error: " ++ FormatStr,[get(filename)|Data]), + ok = io:format("~s: " ++ FormatStr,[get(filename)|Data]), put(errors,yes), io:format("~n"). print_error(FormatStr, Data,Line) when is_list(FormatStr) -> - ok = io:format("~s: ~w: Error: " ++ FormatStr,[get(filename), Line |Data]), + ok = io:format("~s: ~w: " ++ FormatStr,[get(filename), Line |Data]), put(errors,yes), io:format("~n"). diff --git a/lib/snmp/src/manager/snmpm_mpd.erl b/lib/snmp/src/manager/snmpm_mpd.erl index 627838e3d4..103c87d32b 100644 --- a/lib/snmp/src/manager/snmpm_mpd.erl +++ b/lib/snmp/src/manager/snmpm_mpd.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2004-2010. All Rights Reserved. +%% Copyright Ericsson AB 2004-2011. 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 diff --git a/lib/snmp/test/snmp_compiler_test.erl b/lib/snmp/test/snmp_compiler_test.erl index cee11ba97a..c964b08168 100644 --- a/lib/snmp/test/snmp_compiler_test.erl +++ b/lib/snmp/test/snmp_compiler_test.erl @@ -47,7 +47,7 @@ module_identity/1, agent_capabilities/1, module_compliance/1, - warnings_as_errors/1, + warnings_as_errors/1, otp_6150/1, otp_8574/1, @@ -101,7 +101,7 @@ all() -> module_identity, agent_capabilities, module_compliance, - warnings_as_errors, + warnings_as_errors, {group, tickets} ]. @@ -282,8 +282,8 @@ warnings_as_errors(Config) when is_list(Config) -> MibDir = ?config(mib_dir, Config), MibFile = join(MibDir, "OTP8574-MIB.mib"), OutFile = join(Dir, "OTP8574-MIB.bin"), - Opts = [{group_check, false}, - {outdir, Dir}, + Opts = [{group_check, false}, + {outdir, Dir}, {verbosity, trace}, relaxed_row_name_assign_check], {error, compilation_failed} = @@ -291,6 +291,7 @@ warnings_as_errors(Config) when is_list(Config) -> false = filelib:is_regular(OutFile), {ok, _} = snmpc:compile(MibFile, Opts), true = filelib:is_regular(OutFile), + ok = file:delete(OutFile), ok. diff --git a/lib/snmp/vsn.mk b/lib/snmp/vsn.mk index 08251ab9ea..c95e0a22d1 100644 --- a/lib/snmp/vsn.mk +++ b/lib/snmp/vsn.mk @@ -17,6 +17,6 @@ # # %CopyrightEnd% -SNMP_VSN = 4.21 +SNMP_VSN = 4.21.1 PRE_VSN = APP_VSN = "snmp-$(SNMP_VSN)$(PRE_VSN)" diff --git a/lib/ssl/doc/src/notes.xml b/lib/ssl/doc/src/notes.xml index e090b4e1ef..5df2632149 100644 --- a/lib/ssl/doc/src/notes.xml +++ b/lib/ssl/doc/src/notes.xml @@ -30,7 +30,59 @@ </header> <p>This document describes the changes made to the SSL application.</p> - <section> + <section><title>SSL 4.1.6</title> + + <section><title>Fixed Bugs and Malfunctions</title> + <list> + <item> + <p> + replace "a ssl" with "an ssl" reindent + pkix_path_validation/3 Trivial documentation fixes + (Thanks to Christian von Roques )</p> + <p> + Own Id: OTP-9464</p> + </item> + </list> + </section> + + + <section><title>Improvements and New Features</title> + <list> + <item> + <p> + Adds function clause to avoid denial of service attack. + Thanks to Vinod for reporting this vulnerability.</p> + <p> + Own Id: OTP-9364</p> + </item> + <item> + <p> + Error handling code now takes care of inet:getopts/2 and + inets:setopts/2 crashes. Thanks to Richard Jones for + reporting this.</p> + <p> + Own Id: OTP-9382</p> + </item> + <item> + <p> + Support explicit use of packet option httph and httph_bin</p> + <p> + Own Id: OTP-9461</p> + </item> + <item> + <p> + Decoding of hello extensions could fail to come to the + correct conclusion due to an error in a binary match + pattern. Thanks to Ben Murphy.</p> + <p> + Own Id: OTP-9589</p> + </item> + </list> + </section> + +</section> + +<section> <title>SSL 4.1.5</title> <section><title>Improvements and New Features</title> diff --git a/lib/ssl/doc/src/ssl.xml b/lib/ssl/doc/src/ssl.xml index 66d2644b76..70122e4393 100644 --- a/lib/ssl/doc/src/ssl.xml +++ b/lib/ssl/doc/src/ssl.xml @@ -647,10 +647,10 @@ fun(OtpCert :: #'OTPCertificate'{}, Event :: {bad_cert, Reason :: atom()} | <p> Upgrades a gen_tcp, or equivalent, socket to an ssl socket i.e. performs the ssl server-side handshake.</p> - <p><warning>Note that the listen socket should be in {active, false} mode + <warning><p>Note that the listen socket should be in {active, false} mode before telling the client that the server is ready to upgrade and calling this function, otherwise the upgrade may - or may not succeed depending on timing.</warning></p> + or may not succeed depending on timing.</p></warning> </desc> </func> diff --git a/lib/ssl/doc/src/ssl_distribution.xml b/lib/ssl/doc/src/ssl_distribution.xml index a2c7370ddc..4ae4ead3ee 100644 --- a/lib/ssl/doc/src/ssl_distribution.xml +++ b/lib/ssl/doc/src/ssl_distribution.xml @@ -175,7 +175,7 @@ Eshell V5.0 (abort with ^G) <p>One can specify the simpler SSL options certfile, keyfile, password, cacertfile, verify, reuse_sessions, - secure_renegotiation, depth, hibernate_after and ciphers (use old + secure_renegotiate, depth, hibernate_after and ciphers (use old string format) by adding the prefix server_ or client_ to the option name. The server can also take the options dhfile and fail_if_no_peer_cert (also prefixed). @@ -201,7 +201,7 @@ Eshell V5.0 (abort with ^G) <code type="none"> $ erl -boot /home/me/ssl/start_ssl -proto_dist inet_tls -ssl_dist_opt server_certfile "/home/me/ssl/erlserver.pem" - -ssl_dist_opt server_secure_renegotiation true client_secure_renegotiate true + -ssl_dist_opt server_secure_renegotiate true client_secure_renegotiate true -sname ssl_test Erlang (BEAM) emulator version 5.0 [source] @@ -224,7 +224,7 @@ Eshell V5.0 (abort with ^G) <code type="none"> $ ERL_FLAGS="-boot /home/me/ssl/start_ssl -proto_dist inet_tls -ssl_dist_opt server_certfile /home/me/ssl/erlserver.pem - -ssl_dist_opt server_secure_renegotiation true client_secure_renegotiate true" + -ssl_dist_opt server_secure_renegotiate true client_secure_renegotiate true" $ export ERL_FLAGS $ erl -sname ssl_test Erlang (BEAM) emulator version 5.0 [source] @@ -237,7 +237,7 @@ Eshell V5.0 (abort with ^G) {boot,["/home/me/ssl/start_ssl"]}, {proto_dist,["inet_tls"]}, {ssl_dist_opt,["server_certfile","/home/me/ssl/erlserver.pem"]}, - {ssl_dist_opt,["server_secure_renegotiation","true", + {ssl_dist_opt,["server_secure_renegotiate","true", "client_secure_renegotiate","true"] {home,["/home/me"]}] </code> <p>The <c>init:get_arguments()</c> call verifies that the correct diff --git a/lib/ssl/src/inet_tls_dist.erl b/lib/ssl/src/inet_tls_dist.erl index f42c076460..115527aae0 100644 --- a/lib/ssl/src/inet_tls_dist.erl +++ b/lib/ssl/src/inet_tls_dist.erl @@ -136,9 +136,9 @@ check_ip(Socket) -> end. get_ifs(Socket) -> - case ssl_prim:peername(Socket) of + case inet:peername(Socket) of {ok, {IP, _}} -> - case ssl_prim:getif(Socket) of + case inet:getif(Socket) of {ok, IFs} -> {ok, IFs, IP}; Error -> Error end; diff --git a/lib/ssl/src/ssl.erl b/lib/ssl/src/ssl.erl index f812231c71..5819553bd4 100644 --- a/lib/ssl/src/ssl.erl +++ b/lib/ssl/src/ssl.erl @@ -762,7 +762,7 @@ no_format(Error) -> %% Only used to remove exit messages from old ssl %% First is a nonsense clause to provide some -%% backward compability for orber that uses this +%% backward compatibility for orber that uses this %% function in a none recommended way, but will %% work correctly if a valid pid is returned. %% Deprcated to be removed in r16 diff --git a/lib/ssl/src/ssl_connection.erl b/lib/ssl/src/ssl_connection.erl index 41afd2044c..c772697f1d 100644 --- a/lib/ssl/src/ssl_connection.erl +++ b/lib/ssl/src/ssl_connection.erl @@ -1799,7 +1799,8 @@ format_reply(binary, _, N, Data) when N > 0 -> % Header mode format_reply(binary, _, _, Data) -> Data; format_reply(list, Packet, _, Data) - when Packet == http; Packet == {http, headers}; Packet == http_bin; Packet == {http_bin, headers} -> + when Packet == http; Packet == {http, headers}; Packet == http_bin; Packet == {http_bin, headers}; Packet == httph; + Packet == httph_bin-> Data; format_reply(list, _,_, Data) -> binary_to_list(Data). @@ -2111,7 +2112,9 @@ set_socket_opts(Socket, [{packet, Packet}| Opts], SockOpts, Other) when Packet = Packet == tpkt; Packet == line; Packet == http; - Packet == http_bin -> + Packet == httph; + Packet == http_bin; + Packet == httph_bin -> set_socket_opts(Socket, Opts, SockOpts#socket_options{packet = Packet}, Other); set_socket_opts(_, [{packet, _} = Opt| _], SockOpts, _) -> diff --git a/lib/ssl/src/ssl_handshake.erl b/lib/ssl/src/ssl_handshake.erl index 453ea20f99..f873a6a913 100644 --- a/lib/ssl/src/ssl_handshake.erl +++ b/lib/ssl/src/ssl_handshake.erl @@ -39,6 +39,8 @@ encode_handshake/2, init_hashes/0, update_hashes/2, decrypt_premaster_secret/2]). +-export([dec_hello_extensions/2]). + -type tls_handshake() :: #client_hello{} | #server_hello{} | #server_hello_done{} | #certificate{} | #certificate_request{} | #client_key_exchange{} | #finished{} | #certificate_verify{} | @@ -912,9 +914,12 @@ dec_hello_extensions(<<?UINT16(?RENEGOTIATION_EXT), ?UINT16(Len), Info:Len/binar end, dec_hello_extensions(Rest, [{renegotiation_info, #renegotiation_info{renegotiated_connection = RenegotiateInfo}} | Acc]); -dec_hello_extensions(<<?UINT16(_), ?UINT16(Len), _Unknown:Len, Rest/binary>>, Acc) -> + +%% Ignore data following the ClientHello (i.e., +%% extensions) if not understood. +dec_hello_extensions(<<?UINT16(_), ?UINT16(Len), _Unknown:Len/binary, Rest/binary>>, Acc) -> dec_hello_extensions(Rest, Acc); -%% Need this clause? +%% This theoretically should not happen if the protocol is followed, but if it does it is ignored. dec_hello_extensions(_, Acc) -> Acc. diff --git a/lib/ssl/src/ssl_ssl2.erl b/lib/ssl/src/ssl_ssl2.erl index 30a3a5fc98..a9ab6a2678 100644 --- a/lib/ssl/src/ssl_ssl2.erl +++ b/lib/ssl/src/ssl_ssl2.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2007-2009. All Rights Reserved. +%% Copyright Ericsson AB 2007-2011. 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 diff --git a/lib/ssl/src/ssl_tls_dist_proxy.erl b/lib/ssl/src/ssl_tls_dist_proxy.erl index 1a998a0f34..d63eada571 100644 --- a/lib/ssl/src/ssl_tls_dist_proxy.erl +++ b/lib/ssl/src/ssl_tls_dist_proxy.erl @@ -126,11 +126,9 @@ get_tcp_address(Socket) -> family = inet }. -accept_loop(Proxy, Type, Listen, Extra) -> +accept_loop(Proxy, erts = Type, Listen, Extra) -> process_flag(priority, max), - case Type of - erts -> - case gen_tcp:accept(Listen) of + case gen_tcp:accept(Listen) of {ok, Socket} -> Extra ! {accept,self(),Socket,inet,proxy}, receive @@ -142,30 +140,31 @@ accept_loop(Proxy, Type, Listen, Extra) -> exit(unsupported_protocol) end; Error -> - exit(Error) + exit(Error) + end, + accept_loop(Proxy, Type, Listen, Extra); + +accept_loop(Proxy, world = Type, Listen, Extra) -> + process_flag(priority, max), + case gen_tcp:accept(Listen) of + {ok, Socket} -> + Opts = get_ssl_options(server), + case ssl:ssl_accept(Socket, Opts) of + {ok, SslSocket} -> + PairHandler = + spawn_link(fun() -> + setup_connection(SslSocket, Extra) + end), + ok = ssl:controlling_process(SslSocket, PairHandler), + flush_old_controller(PairHandler, SslSocket); + _ -> + gen_tcp:close(Socket) end; - world -> - case gen_tcp:accept(Listen) of - {ok, Socket} -> - Opts = get_ssl_options(server), - case ssl:ssl_accept(Socket, Opts) of - {ok, SslSocket} -> - PairHandler = - spawn_link(fun() -> - setup_connection(SslSocket, Extra) - end), - ok = ssl:controlling_process(SslSocket, PairHandler), - flush_old_controller(PairHandler, SslSocket); - _ -> - gen_tcp:close(Socket) - end; - Error -> - exit(Error) - end + Error -> + exit(Error) end, accept_loop(Proxy, Type, Listen, Extra). - try_connect(Port) -> case gen_tcp:connect({127,0,0,1}, Port, [{active, false}, {packet,?PPRE}]) of R = {ok, _S} -> @@ -244,60 +243,60 @@ loop_conn(World, Erts) -> get_ssl_options(Type) -> case init:get_argument(ssl_dist_opt) of {ok, Args} -> - [{erl_dist, true} | ssl_options(Type, Args)]; + [{erl_dist, true} | ssl_options(Type, lists:append(Args))]; _ -> [{erl_dist, true}] end. ssl_options(_,[]) -> []; -ssl_options(server, [["client_" ++ _, _Value]|T]) -> +ssl_options(server, ["client_" ++ _, _Value |T]) -> ssl_options(server,T); -ssl_options(client, [["server_" ++ _, _Value]|T]) -> +ssl_options(client, ["server_" ++ _, _Value|T]) -> ssl_options(client,T); -ssl_options(server, [["server_certfile", Value]|T]) -> +ssl_options(server, ["server_certfile", Value|T]) -> [{certfile, Value} | ssl_options(server,T)]; -ssl_options(client, [["client_certfile", Value]|T]) -> +ssl_options(client, ["client_certfile", Value | T]) -> [{certfile, Value} | ssl_options(client,T)]; -ssl_options(server, [["server_cacertfile", Value]|T]) -> +ssl_options(server, ["server_cacertfile", Value|T]) -> [{cacertfile, Value} | ssl_options(server,T)]; -ssl_options(client, [["client_cacertfile", Value]|T]) -> +ssl_options(client, ["client_cacertfile", Value|T]) -> [{cacertfile, Value} | ssl_options(client,T)]; -ssl_options(server, [["server_keyfile", Value]|T]) -> +ssl_options(server, ["server_keyfile", Value|T]) -> [{keyfile, Value} | ssl_options(server,T)]; -ssl_options(client, [["client_keyfile", Value]|T]) -> +ssl_options(client, ["client_keyfile", Value|T]) -> [{keyfile, Value} | ssl_options(client,T)]; -ssl_options(server, [["server_password", Value]|T]) -> +ssl_options(server, ["server_password", Value|T]) -> [{password, Value} | ssl_options(server,T)]; -ssl_options(client, [["client_password", Value]|T]) -> +ssl_options(client, ["client_password", Value|T]) -> [{password, Value} | ssl_options(client,T)]; -ssl_options(server, [["server_verify", Value]|T]) -> +ssl_options(server, ["server_verify", Value|T]) -> [{verify, atomize(Value)} | ssl_options(server,T)]; -ssl_options(client, [["client_verify", Value]|T]) -> +ssl_options(client, ["client_verify", Value|T]) -> [{verify, atomize(Value)} | ssl_options(client,T)]; -ssl_options(server, [["server_reuse_sessions", Value]|T]) -> +ssl_options(server, ["server_reuse_sessions", Value|T]) -> [{reuse_sessions, atomize(Value)} | ssl_options(server,T)]; -ssl_options(client, [["client_reuse_sessions", Value]|T]) -> +ssl_options(client, ["client_reuse_sessions", Value|T]) -> [{reuse_sessions, atomize(Value)} | ssl_options(client,T)]; -ssl_options(server, [["server_secure_renegotiation", Value]|T]) -> - [{secure_renegotiation, atomize(Value)} | ssl_options(server,T)]; -ssl_options(client, [["client_secure_renegotiation", Value]|T]) -> - [{secure_renegotiation, atomize(Value)} | ssl_options(client,T)]; -ssl_options(server, [["server_depth", Value]|T]) -> +ssl_options(server, ["server_secure_renegotiate", Value|T]) -> + [{secure_renegotiate, atomize(Value)} | ssl_options(server,T)]; +ssl_options(client, ["client_secure_renegotiate", Value|T]) -> + [{secure_renegotiate, atomize(Value)} | ssl_options(client,T)]; +ssl_options(server, ["server_depth", Value|T]) -> [{depth, list_to_integer(Value)} | ssl_options(server,T)]; -ssl_options(client, [["client_depth", Value]|T]) -> +ssl_options(client, ["client_depth", Value|T]) -> [{depth, list_to_integer(Value)} | ssl_options(client,T)]; -ssl_options(server, [["server_hibernate_after", Value]|T]) -> +ssl_options(server, ["server_hibernate_after", Value|T]) -> [{hibernate_after, list_to_integer(Value)} | ssl_options(server,T)]; -ssl_options(client, [["client_hibernate_after", Value]|T]) -> +ssl_options(client, ["client_hibernate_after", Value|T]) -> [{hibernate_after, list_to_integer(Value)} | ssl_options(client,T)]; -ssl_options(server, [["server_ciphers", Value]|T]) -> +ssl_options(server, ["server_ciphers", Value|T]) -> [{ciphers, Value} | ssl_options(server,T)]; -ssl_options(client, [["client_ciphers", Value]|T]) -> +ssl_options(client, ["client_ciphers", Value|T]) -> [{ciphers, Value} | ssl_options(client,T)]; -ssl_options(server, [["server_dhfile", Value]|T]) -> +ssl_options(server, ["server_dhfile", Value|T]) -> [{dhfile, Value} | ssl_options(server,T)]; -ssl_options(server, [["server_fail_if_no_peer_cert", Value]|T]) -> +ssl_options(server, ["server_fail_if_no_peer_cert", Value|T]) -> [{fail_if_no_peer_cert, atomize(Value)} | ssl_options(server,T)]; ssl_options(_,_) -> exit(malformed_ssl_dist_opt). diff --git a/lib/ssl/test/Makefile b/lib/ssl/test/Makefile index 232e307a03..23a9a23190 100644 --- a/lib/ssl/test/Makefile +++ b/lib/ssl/test/Makefile @@ -35,8 +35,9 @@ VSN=$(GS_VSN) # ---------------------------------------------------- MODULES = \ - ssl_test_lib \ + ssl_test_lib \ ssl_basic_SUITE \ + ssl_handshake_SUITE \ ssl_packet_SUITE \ ssl_payload_SUITE \ ssl_to_openssl_SUITE \ diff --git a/lib/ssl/test/ssl_basic_SUITE.erl b/lib/ssl/test/ssl_basic_SUITE.erl index 832431b1ed..d5cd3b3b4b 100644 --- a/lib/ssl/test/ssl_basic_SUITE.erl +++ b/lib/ssl/test/ssl_basic_SUITE.erl @@ -252,7 +252,7 @@ all() -> unknown_server_ca_fail, der_input, unknown_server_ca_accept_verify_none, unknown_server_ca_accept_verify_peer, - unknown_server_ca_accept_backwardscompatibilty, + unknown_server_ca_accept_backwardscompatibility, %%different_ca_peer_sign, no_reuses_session_server_restart_new_cert, no_reuses_session_server_restart_new_cert_file, reuseaddr, @@ -3236,11 +3236,11 @@ unknown_server_ca_accept_verify_peer(Config) when is_list(Config) -> ssl_test_lib:close(Client). %%-------------------------------------------------------------------- -unknown_server_ca_accept_backwardscompatibilty(doc) -> +unknown_server_ca_accept_backwardscompatibility(doc) -> ["Test that old style verify_funs will work"]; -unknown_server_ca_accept_backwardscompatibilty(suite) -> +unknown_server_ca_accept_backwardscompatibility(suite) -> []; -unknown_server_ca_accept_backwardscompatibilty(Config) when is_list(Config) -> +unknown_server_ca_accept_backwardscompatibility(Config) when is_list(Config) -> ClientOpts = ?config(client_opts, Config), ServerOpts = ?config(server_opts, Config), {ClientNode, ServerNode, Hostname} = ssl_test_lib:run_where(Config), diff --git a/lib/ssl/test/ssl_dist_SUITE.erl b/lib/ssl/test/ssl_dist_SUITE.erl index 7325e97ff5..23e9268f9b 100644 --- a/lib/ssl/test/ssl_dist_SUITE.erl +++ b/lib/ssl/test/ssl_dist_SUITE.erl @@ -35,11 +35,12 @@ nodename} ). +%% Test server callback functions suite() -> [{ct_hooks,[ts_install_cth]}]. all() -> - [basic]. + [basic, payload, plain_options, plain_verify_options]. groups() -> []. @@ -50,10 +51,12 @@ init_per_group(_GroupName, Config) -> end_per_group(_GroupName, Config) -> Config. -init_per_suite(Config) -> +init_per_suite(Config0) -> try crypto:start() of ok -> - add_ssl_opts_config(Config) + Config = add_ssl_opts_config(Config0), + setup_certs(Config), + Config catch _:_ -> {skip, "Crypto did not start"} end. @@ -62,24 +65,19 @@ end_per_suite(Config) -> application:stop(crypto), Config. -init_per_testcase(Case, Config) when list(Config) -> +init_per_testcase(Case, Config) when is_list(Config) -> Dog = ?t:timetrap(?t:seconds(?DEFAULT_TIMETRAP_SECS)), [{watchdog, Dog},{testcase, Case}|Config]. -end_per_testcase(_Case, Config) when list(Config) -> +end_per_testcase(_Case, Config) when is_list(Config) -> Dog = ?config(watchdog, Config), ?t:timetrap_cancel(Dog), ok. - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% %% -%% Testcases %% -%% %% - +%%-------------------------------------------------------------------- +%% Test cases starts here. +%%-------------------------------------------------------------------- basic(doc) -> ["Test that two nodes can connect via ssl distribution"]; -basic(suite) -> - []; basic(Config) when is_list(Config) -> NH1 = start_ssl_node(Config), Node1 = NH1#node_handle.nodename, @@ -132,12 +130,99 @@ basic(Config) when is_list(Config) -> stop_ssl_node(NH2), success(Config). -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% %% -%% Internal functions %% -%% %% +%%-------------------------------------------------------------------- +payload(doc) -> + ["Test that send a lot of data between the ssl distributed noes"]; +payload(Config) when is_list(Config) -> + NH1 = start_ssl_node(Config), + Node1 = NH1#node_handle.nodename, + NH2 = start_ssl_node(Config), + Node2 = NH2#node_handle.nodename, + + pong = apply_on_ssl_node(NH1, fun () -> net_adm:ping(Node2) end), + + [Node2] = apply_on_ssl_node(NH1, fun () -> nodes() end), + [Node1] = apply_on_ssl_node(NH2, fun () -> nodes() end), + + Ref = make_ref(), + spawn(fun () -> + apply_on_ssl_node( + NH1, + fun () -> + send_to_tstcntrl({Ref, self()}), + receive + {From, Msg} -> + From ! {self(), Msg} + end + end) + end), + receive + {Ref, SslPid} -> + ok = apply_on_ssl_node( + NH2, + fun () -> + Msg = crypto:rand_bytes(100000), + SslPid ! {self(), Msg}, + receive + {SslPid, Msg} -> + ok + end + end) + end, + stop_ssl_node(NH1), + stop_ssl_node(NH2), + success(Config). +%%-------------------------------------------------------------------- +plain_options(doc) -> + ["Test specifying additional options"]; +plain_options(Config) when is_list(Config) -> + DistOpts = "-ssl_dist_opt server_secure_renegotiate true " + "client_secure_renegotiate true " + "server_reuse_sessions true client_reuse_sessions true " + "client_verify verify_none server_verify verify_none " + "server_depth 1 client_depth 1 " + "server_hibernate_after 500 client_hibernate_after 500", + + NH1 = start_ssl_node([{additional_dist_opts, DistOpts} | Config]), + Node1 = NH1#node_handle.nodename, + NH2 = start_ssl_node([{additional_dist_opts, DistOpts} | Config]), + Node2 = NH2#node_handle.nodename, + + pong = apply_on_ssl_node(NH1, fun () -> net_adm:ping(Node2) end), + + [Node2] = apply_on_ssl_node(NH1, fun () -> nodes() end), + [Node1] = apply_on_ssl_node(NH2, fun () -> nodes() end), + + stop_ssl_node(NH1), + stop_ssl_node(NH2), + success(Config). +%%-------------------------------------------------------------------- +plain_verify_options(doc) -> + ["Test specifying additional options"]; +plain_verify_options(Config) when is_list(Config) -> + DistOpts = "-ssl_dist_opt server_secure_renegotiate true " + "client_secure_renegotiate true " + "server_reuse_sessions true client_reuse_sessions true " + "server_hibernate_after 500 client_hibernate_after 500", + + NH1 = start_ssl_node([{additional_dist_opts, DistOpts}, {many_verify_opts, true} | Config]), + Node1 = NH1#node_handle.nodename, + NH2 = start_ssl_node([{additional_dist_opts, DistOpts}, {many_verify_opts, true} | Config]), + Node2 = NH2#node_handle.nodename, + + pong = apply_on_ssl_node(NH1, fun () -> net_adm:ping(Node2) end), + + [Node2] = apply_on_ssl_node(NH1, fun () -> nodes() end), + [Node1] = apply_on_ssl_node(NH2, fun () -> nodes() end), + + stop_ssl_node(NH1), + stop_ssl_node(NH2), + success(Config). + +%%-------------------------------------------------------------------- +%%% Internal functions +%%-------------------------------------------------------------------- -%% %% ssl_node side api %% @@ -152,7 +237,7 @@ send_to_tstcntrl(Message) -> %% test_server side api %% -apply_on_ssl_node(Node, M, F, A) when atom(M), atom(F), list(A) -> +apply_on_ssl_node(Node, M, F, A) when is_atom(M), is_atom(F), is_list(A) -> Ref = make_ref(), send_to_ssl_node(Node, {apply, self(), Ref, M, F, A}), receive @@ -194,7 +279,7 @@ start_ssl_node(Config) -> start_ssl_node(Config, XArgs) -> Name = mk_node_name(Config), SSL = ?config(ssl_opts, Config), - SSLDistOpts = setup_dist_opts(Name, ?config(priv_dir, Config)), + SSLDistOpts = setup_dist_opts(Config), start_ssl_node_raw(Name, SSL ++ " " ++ SSLDistOpts ++ XArgs). start_ssl_node_raw(Name, Args) -> @@ -204,7 +289,7 @@ start_ssl_node_raw(Name, Args) -> CmdLine = mk_node_cmdline(ListenPort, Name, Args), ?t:format("Attempting to start ssl node ~s: ~s~n", [Name, CmdLine]), case open_port({spawn, CmdLine}, []) of - Port when port(Port) -> + Port when is_port(Port) -> unlink(Port), erlang:port_close(Port), case await_ssl_node_up(Name, LSock) of @@ -363,7 +448,7 @@ tstsrvr_con_loop(Name, Socket, Parent) -> %% % cnct2tstsrvr() is called via command line arg -run ... -cnct2tstsrvr([Host, Port]) when list(Host), list(Port) -> +cnct2tstsrvr([Host, Port]) when is_list(Host), is_list(Port) -> %% Spawn connection handler on ssl node side ConnHandler = spawn(fun () -> @@ -406,7 +491,7 @@ notify_ssl_node_up(Socket) -> send_to_tstsrvr(Term) -> case catch ets:lookup_element(test_server_info, test_server_handler, 2) of - Hndlr when pid(Hndlr) -> + Hndlr when is_pid(Hndlr) -> Hndlr ! {relay_to_test_server, term_to_binary(Term)}, ok; _ -> receive after 200 -> ok end, @@ -487,8 +572,9 @@ do_append_files([F|Fs], RF) -> ok = file:write(RF, Data), do_append_files(Fs, RF). -setup_dist_opts(Name, PrivDir) -> - NodeDir = filename:join([PrivDir, Name]), +setup_certs(Config) -> + PrivDir = ?config(priv_dir, Config), + NodeDir = filename:join([PrivDir, "Certs"]), RGenDir = filename:join([NodeDir, "rand_gen"]), ok = file:make_dir(NodeDir), ok = file:make_dir(RGenDir), @@ -503,10 +589,46 @@ setup_dist_opts(Name, PrivDir) -> CC = filename:join([CDir, "cert.pem"]), CK = filename:join([CDir, "key.pem"]), CKC = filename:join([CDir, "keycert.pem"]), - append_files([CK, CC], CKC), - "-proto_dist inet_tls " - ++ "-ssl_dist_opt server_certfile " ++ SKC ++ " " - ++ "-ssl_dist_opt client_certfile " ++ CKC ++ " ". + append_files([CK, CC], CKC). + +setup_dist_opts(Config) -> + PrivDir = ?config(priv_dir, Config), + DataDir = ?config(data_dir, Config), + Dhfile = filename:join([DataDir, "dHParam.pem"]), + NodeDir = filename:join([PrivDir, "Certs"]), + SDir = filename:join([NodeDir, "server"]), + CDir = filename:join([NodeDir, "client"]), + SC = filename:join([SDir, "cert.pem"]), + SK = filename:join([SDir, "key.pem"]), + SKC = filename:join([SDir, "keycert.pem"]), + SCA = filename:join([CDir, "cacerts.pem"]), + CC = filename:join([CDir, "cert.pem"]), + CK = filename:join([CDir, "key.pem"]), + CKC = filename:join([CDir, "keycert.pem"]), + CCA = filename:join([SDir, "cacerts.pem"]), + + DistOpts = case proplists:get_value(many_verify_opts, Config, false) of + false -> + "-proto_dist inet_tls " + ++ "-ssl_dist_opt server_certfile " ++ SKC ++ " " + ++ "-ssl_dist_opt client_certfile " ++ CKC ++ " "; + true -> + "-proto_dist inet_tls " + ++ "-ssl_dist_opt server_certfile " ++ SC ++ " " + ++ "-ssl_dist_opt server_keyfile " ++ SK ++ " " + ++ "-ssl_dist_opt server_cacertfile " ++ SCA ++ " " + ++ "-ssl_dist_opt server_verify verify_peer " + ++ "-ssl_dist_opt server_fail_if_no_peer_cert true " + ++ "-ssl_dist_opt server_ciphers DHE-RSA-AES256-SHA:DHE-RSA-AES128-SHA " + ++ "-ssl_dist_opt server_dhfile " ++ Dhfile ++ " " + ++ "-ssl_dist_opt client_certfile " ++ CC ++ " " + ++ "-ssl_dist_opt client_keyfile " ++ CK ++ " " + ++ "-ssl_dist_opt client_cacertfile " ++ CCA ++ " " + ++ "-ssl_dist_opt client_verify verify_peer " + ++ "-ssl_dist_opt client_ciphers DHE-RSA-AES256-SHA:DHE-RSA-AES128-SHA " + end, + MoreOpts = proplists:get_value(additional_dist_opts, Config, []), + DistOpts ++ MoreOpts. %% %% Start scripts etc... diff --git a/lib/ssl/test/ssl_dist_SUITE_data/dHParam.pem b/lib/ssl/test/ssl_dist_SUITE_data/dHParam.pem new file mode 100644 index 0000000000..feb581da30 --- /dev/null +++ b/lib/ssl/test/ssl_dist_SUITE_data/dHParam.pem @@ -0,0 +1,5 @@ +-----BEGIN DH PARAMETERS----- +MIGHAoGBAMY5VmCZ22ZEy/KO8kjt94PH7ZtSG0Z0zitlMlvd4VsNkDzXsVeu+wkH +FGDC3h3vgv6iwXGCbmrSOVk/FPZbzLhwZ8aLnkUFOBbOvVvb1JptQwOt8mf+eScG +M2gGBktheQV5Nf1IrzOctG7VGt+neiqb/Y86uYCcDdL+M8++0qnLAgEC +-----END DH PARAMETERS----- diff --git a/lib/ssl/test/ssl_handshake_SUITE.erl b/lib/ssl/test/ssl_handshake_SUITE.erl new file mode 100644 index 0000000000..08c23b2d47 --- /dev/null +++ b/lib/ssl/test/ssl_handshake_SUITE.erl @@ -0,0 +1,67 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 2008-2011. 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(ssl_handshake_SUITE). + +-compile(export_all). + +-include_lib("common_test/include/ct.hrl"). +-include("ssl_internal.hrl"). +-include("ssl_handshake.hrl"). + +suite() -> [{ct_hooks,[ts_install_cth]}]. + +all() -> [ + decode_hello_handshake, + decode_single_hello_extension_correctly, + decode_unknown_hello_extension_correctly]. + +decode_hello_handshake(_Config) -> + HelloPacket = <<16#02, 16#00, 16#00, + 16#44, 16#03, 16#03, 16#4e, 16#7f, 16#c1, 16#03, 16#35, + 16#c2, 16#07, 16#b9, 16#4a, 16#58, 16#af, 16#34, 16#07, + 16#a6, 16#7e, 16#ef, 16#52, 16#cb, 16#e0, 16#ea, 16#b7, + 16#aa, 16#47, 16#c8, 16#c2, 16#2c, 16#66, 16#fa, 16#f8, + 16#09, 16#42, 16#cf, 16#00, 16#c0, 16#30, 16#00, 16#00, + 16#1c, + 16#00, 16#0b, 16#00, 16#04, 16#03, 16#00, 16#01, 16#02, % ec_point_formats + 16#ff, 16#01, 16#00, 16#01, 16#00, %% renegotiate + 16#00, 16#23, + 16#00, 16#00, 16#33, 16#74, 16#00, 16#07, 16#06, 16#73, + 16#70, 16#64, 16#79, 16#2f, 16#32>>, + + {Records, _Buffer} = ssl_handshake:get_tls_handshake(HelloPacket, <<>>), + + {Hello, _Data} = hd(Records), + #renegotiation_info{renegotiated_connection = <<0>>} = Hello#server_hello.renegotiation_info. + +decode_single_hello_extension_correctly(_Config) -> + Renegotiation = <<?UINT16(?RENEGOTIATION_EXT), ?UINT16(1), 0>>, + Extensions = ssl_handshake:dec_hello_extensions(Renegotiation, []), + [{renegotiation_info,#renegotiation_info{renegotiated_connection = <<0>>}}] = Extensions. + + +decode_unknown_hello_extension_correctly(_Config) -> + FourByteUnknown = <<16#CA,16#FE, ?UINT16(4), 3, 0, 1, 2>>, + Renegotiation = <<?UINT16(?RENEGOTIATION_EXT), ?UINT16(1), 0>>, + Extensions = ssl_handshake:dec_hello_extensions(<<FourByteUnknown/binary, Renegotiation/binary>>, []), + [{renegotiation_info,#renegotiation_info{renegotiated_connection = <<0>>}}] = Extensions. + diff --git a/lib/ssl/test/ssl_packet_SUITE.erl b/lib/ssl/test/ssl_packet_SUITE.erl index d22d5d2954..9d2599b778 100644 --- a/lib/ssl/test/ssl_packet_SUITE.erl +++ b/lib/ssl/test/ssl_packet_SUITE.erl @@ -151,6 +151,9 @@ all() -> packet_cdr_decode, packet_cdr_decode_list, packet_http_decode, packet_http_decode_list, packet_http_bin_decode_multi, packet_http_error_passive, + packet_httph_active, packet_httph_bin_active, + packet_httph_active_once, packet_httph_bin_active_once, + packet_httph_passive, packet_httph_bin_passive, packet_line_decode, packet_line_decode_list, packet_asn1_decode, packet_asn1_decode_list, packet_tpkt_decode, packet_tpkt_decode_list, @@ -1594,7 +1597,7 @@ client_http_decode(Socket, HttpRequest) -> %%-------------------------------------------------------------------- packet_http_decode_list(doc) -> ["Test setting the packet option {packet, http}, {mode, list}" - "(Body will be litst too)"]; + "(Body will be list too)"]; packet_http_decode_list(suite) -> []; packet_http_decode_list(Config) when is_list(Config) -> @@ -1804,7 +1807,304 @@ server_http_decode_error(Socket, HttpResponse) -> assert_packet_opt(Socket, http), ok = ssl:send(Socket, HttpResponse), ok. +%%-------------------------------------------------------------------- +packet_httph_active(doc) -> + ["Test setting the packet option {packet, httph}"]; +packet_httph_active(suite) -> + []; +packet_httph_active(Config) when is_list(Config) -> + ClientOpts = ?config(client_opts, Config), + ServerOpts = ?config(server_opts, Config), + {ClientNode, ServerNode, Hostname} = ssl_test_lib:run_where(Config), + + Trailer = "Content-Encoding: gzip\r\n" + "\r\n", + + Server = ssl_test_lib:start_server([{node, ClientNode}, {port, 0}, + {from, self()}, + {mfa, {?MODULE, server_send_trailer, + [Trailer]}}, + {options, [{active, true}, binary | + ServerOpts]}]), + + Port = ssl_test_lib:inet_port(Server), + Client = ssl_test_lib:start_client([{node, ServerNode}, {port, Port}, + {host, Hostname}, + {from, self()}, + {mfa, {?MODULE, client_http_decode_trailer_active, + []}}, + {options, [{active, true}, + {packet, httph}, + list | + ClientOpts]}]), + + ssl_test_lib:check_result(Server, ok, Client, ok), + + ssl_test_lib:close(Server), + ssl_test_lib:close(Client). + +server_send_trailer(Socket, Trailer)-> + ssl:send(Socket, Trailer), + ok. + +client_http_decode_trailer_active(Socket) -> + receive + {ssl, Socket, + {http_header,36,'Content-Encoding',undefined,"gzip"}} -> + ok; + Other1 -> + exit({?LINE, Other1}) + end, + receive + {ssl, Socket, http_eoh} -> + ok; + Other2 -> + exit({?LINE, Other2}) + end, + ok. + +%%-------------------------------------------------------------------- +packet_httph_bin_active(doc) -> + ["Test setting the packet option {packet, httph_bin}"]; +packet_httph_bin_active(suite) -> + []; +packet_httph_bin_active(Config) when is_list(Config) -> + ClientOpts = ?config(client_opts, Config), + ServerOpts = ?config(server_opts, Config), + {ClientNode, ServerNode, Hostname} = ssl_test_lib:run_where(Config), + + Trailer = "Content-Encoding: gzip\r\n" + "\r\n", + + Server = ssl_test_lib:start_server([{node, ClientNode}, {port, 0}, + {from, self()}, + {mfa, {?MODULE, server_send_trailer, + [Trailer]}}, + {options, [{active, true}, binary | + ServerOpts]}]), + + Port = ssl_test_lib:inet_port(Server), + Client = ssl_test_lib:start_client([{node, ServerNode}, {port, Port}, + {host, Hostname}, + {from, self()}, + {mfa, {?MODULE, client_http_decode_trailer_bin_active, + []}}, + {options, [{active, true}, + {packet, httph_bin}, + list | + ClientOpts]}]), + + ssl_test_lib:check_result(Server, ok, Client, ok), + + ssl_test_lib:close(Server), + ssl_test_lib:close(Client). + +client_http_decode_trailer_bin_active(Socket) -> + receive + {ssl, Socket, + {http_header,36,'Content-Encoding',undefined, <<"gzip">>}} -> + ok; + Other1 -> + exit({?LINE, Other1}) + end, + receive + {ssl, Socket, http_eoh} -> + ok; + Other2 -> + exit({?LINE, Other2}) + end, + ok. +%%-------------------------------------------------------------------- +packet_httph_active_once(doc) -> + ["Test setting the packet option {packet, httph}"]; +packet_httph_active_once(suite) -> + []; +packet_httph_active_once(Config) when is_list(Config) -> + ClientOpts = ?config(client_opts, Config), + ServerOpts = ?config(server_opts, Config), + {ClientNode, ServerNode, Hostname} = ssl_test_lib:run_where(Config), + + Trailer = "Content-Encoding: gzip\r\n" + "\r\n", + + Server = ssl_test_lib:start_server([{node, ClientNode}, {port, 0}, + {from, self()}, + {mfa, {?MODULE, server_send_trailer, + [Trailer]}}, + {options, [{active, true}, binary | + ServerOpts]}]), + + Port = ssl_test_lib:inet_port(Server), + Client = ssl_test_lib:start_client([{node, ServerNode}, {port, Port}, + {host, Hostname}, + {from, self()}, + {mfa, {?MODULE, client_http_decode_trailer_active_once, + []}}, + {options, [{active, false}, + {packet, httph}, + list | + ClientOpts]}]), + + ssl_test_lib:check_result(Server, ok, Client, ok), + + ssl_test_lib:close(Server), + ssl_test_lib:close(Client). + + +client_http_decode_trailer_active_once(Socket) -> + ssl:setopts(Socket, [{active, once}]), + receive + {ssl, Socket, + {http_header,36,'Content-Encoding',undefined,"gzip"}} -> + ok; + Other1 -> + exit({?LINE, Other1}) + end, + ssl:setopts(Socket, [{active, once}]), + receive + {ssl, Socket, http_eoh} -> + ok; + Other2 -> + exit({?LINE, Other2}) + end, + ok. +%%-------------------------------------------------------------------- +packet_httph_bin_active_once(doc) -> + ["Test setting the packet option {packet, httph_bin}"]; +packet_httph_bin_active_once(suite) -> + []; +packet_httph_bin_active_once(Config) when is_list(Config) -> + ClientOpts = ?config(client_opts, Config), + ServerOpts = ?config(server_opts, Config), + {ClientNode, ServerNode, Hostname} = ssl_test_lib:run_where(Config), + + Trailer = "Content-Encoding: gzip\r\n" + "\r\n", + + Server = ssl_test_lib:start_server([{node, ClientNode}, {port, 0}, + {from, self()}, + {mfa, {?MODULE, server_send_trailer, + [Trailer]}}, + {options, [{active, true}, binary | + ServerOpts]}]), + + Port = ssl_test_lib:inet_port(Server), + Client = ssl_test_lib:start_client([{node, ServerNode}, {port, Port}, + {host, Hostname}, + {from, self()}, + {mfa, {?MODULE, client_http_decode_trailer_bin_active_once, + []}}, + {options, [{active, false}, + {packet, httph_bin}, + list | + ClientOpts]}]), + + ssl_test_lib:check_result(Server, ok, Client, ok), + + ssl_test_lib:close(Server), + ssl_test_lib:close(Client). + +client_http_decode_trailer_bin_active_once(Socket) -> + ssl:setopts(Socket, [{active, once}]), + receive + {ssl, Socket, + {http_header,36,'Content-Encoding',undefined, <<"gzip">>}} -> + ok; + Other1 -> + exit({?LINE, Other1}) + end, + ssl:setopts(Socket, [{active, once}]), + receive + {ssl, Socket, http_eoh} -> + ok; + Other2 -> + exit({?LINE, Other2}) + end, + ok. + +%%-------------------------------------------------------------------- + +packet_httph_passive(doc) -> + ["Test setting the packet option {packet, httph}"]; +packet_httph_passive(suite) -> + []; +packet_httph_passive(Config) when is_list(Config) -> + ClientOpts = ?config(client_opts, Config), + ServerOpts = ?config(server_opts, Config), + {ClientNode, ServerNode, Hostname} = ssl_test_lib:run_where(Config), + + Trailer = "Content-Encoding: gzip\r\n" + "\r\n", + + Server = ssl_test_lib:start_server([{node, ClientNode}, {port, 0}, + {from, self()}, + {mfa, {?MODULE, server_send_trailer, + [Trailer]}}, + {options, [{active, true}, binary | + ServerOpts]}]), + + Port = ssl_test_lib:inet_port(Server), + Client = ssl_test_lib:start_client([{node, ServerNode}, {port, Port}, + {host, Hostname}, + {from, self()}, + {mfa, {?MODULE, client_http_decode_trailer_passive, + []}}, + {options, [{active, false}, + {packet, httph}, + list | + ClientOpts]}]), + + ssl_test_lib:check_result(Server, ok, Client, ok), + + ssl_test_lib:close(Server), + ssl_test_lib:close(Client). + +client_http_decode_trailer_passive(Socket) -> + {ok,{http_header,36,'Content-Encoding',undefined,"gzip"}} = ssl:recv(Socket, 0), + {ok, http_eoh} = ssl:recv(Socket, 0), + ok. + +%%-------------------------------------------------------------------- +packet_httph_bin_passive(doc) -> + ["Test setting the packet option {packet, httph_bin}"]; +packet_httph_bin_passive(suite) -> + []; +packet_httph_bin_passive(Config) when is_list(Config) -> + ClientOpts = ?config(client_opts, Config), + ServerOpts = ?config(server_opts, Config), + {ClientNode, ServerNode, Hostname} = ssl_test_lib:run_where(Config), + + Trailer = "Content-Encoding: gzip\r\n" + "\r\n", + + Server = ssl_test_lib:start_server([{node, ClientNode}, {port, 0}, + {from, self()}, + {mfa, {?MODULE, server_send_trailer, + [Trailer]}}, + {options, [{active, true}, binary | + ServerOpts]}]), + + Port = ssl_test_lib:inet_port(Server), + Client = ssl_test_lib:start_client([{node, ServerNode}, {port, Port}, + {host, Hostname}, + {from, self()}, + {mfa, {?MODULE, client_http_decode_trailer_bin_passive, + []}}, + {options, [{active, false}, + {packet, httph_bin}, + list | + ClientOpts]}]), + + ssl_test_lib:check_result(Server, ok, Client, ok), + + ssl_test_lib:close(Server), + ssl_test_lib:close(Client). + +client_http_decode_trailer_bin_passive(Socket) -> + {ok,{http_header,36,'Content-Encoding',undefined,<<"gzip">>}} = ssl:recv(Socket, 0), + {ok, http_eoh} = ssl:recv(Socket, 0), + ok. %%-------------------------------------------------------------------- packet_line_decode(doc) -> diff --git a/lib/stdlib/doc/src/beam_lib.xml b/lib/stdlib/doc/src/beam_lib.xml index 013e94c393..db65eb3848 100644 --- a/lib/stdlib/doc/src/beam_lib.xml +++ b/lib/stdlib/doc/src/beam_lib.xml @@ -88,7 +88,6 @@ it is recommended that it contains at least 32 characters and that both upper and lower case letters as well as digits and special characters are used.</p> - <p></p> <p>The default type -- and currently the only type -- of crypto algorithm is <c>des3_cbc</c>, three rounds of DES. The key string will be scrambled using <c>erlang:md5/1</c> to generate diff --git a/lib/stdlib/doc/src/dets.xml b/lib/stdlib/doc/src/dets.xml index 54fefbe2b8..215ec154ed 100644 --- a/lib/stdlib/doc/src/dets.xml +++ b/lib/stdlib/doc/src/dets.xml @@ -1006,8 +1006,7 @@ ok <name name="table" arity="2"/> <fsummary>Return a QLC query handle.</fsummary> <desc> - <p><marker id="qlc_table"></marker> - Returns a QLC (Query List + <p><marker id="qlc_table"></marker>Returns a QLC (Query List Comprehension) query handle. The module <c>qlc</c> implements a query language aimed mainly at Mnesia but Ets tables, Dets tables, and lists are also recognized by <c>qlc</c> diff --git a/lib/stdlib/doc/src/erl_tar.xml b/lib/stdlib/doc/src/erl_tar.xml index 929620bb88..fe166dbd01 100644 --- a/lib/stdlib/doc/src/erl_tar.xml +++ b/lib/stdlib/doc/src/erl_tar.xml @@ -4,7 +4,7 @@ <erlref> <header> <copyright> - <year>2003</year><year>2009</year> + <year>2003</year><year>2011</year> <holder>Ericsson AB. All Rights Reserved.</holder> </copyright> <legalnotice> @@ -89,9 +89,8 @@ <v>Reason = term()</v> </type> <desc> - <p>The <marker id="add"></marker> -<c>add/3</c> function adds a file to a tar file - that has been opened for writing by + <p>The <marker id="add"></marker><c>add/3</c> function adds + a file to a tar file that has been opened for writing by <seealso marker="#open">open/1</seealso>.</p> <taglist> <tag><c>dereference</c></tag> @@ -138,8 +137,8 @@ <v>TarDescriptor = term()</v> </type> <desc> - <p>The <marker id="close"></marker> -<c>close/1</c> function closes a tar file + <p>The <marker id="close"></marker><c>close/1</c> function + closes a tar file opened by <seealso marker="#open">open/1</seealso>.</p> </desc> </func> @@ -151,11 +150,12 @@ <v>FileList = [Filename|{NameInArchive, binary()},{NameInArchive, Filename}]</v> <v>Filename = filename()</v> <v>NameInArchive = filename()</v> - <v>RetValue = ok|{error,{Name,Reason}} <V>Reason = term()</v> + <v>RetValue = ok|{error,{Name,Reason}}</v> + <v>Reason = term()</v> </type> <desc> - <p>The <marker id="create_2"></marker> -<c>create/2</c> function creates a tar file and + <p>The <marker id="create_2"></marker><c>create/2</c> function + creates a tar file and archives the files whose names are given in <c>FileList</c> into it. The files may either be read from disk or given as binaries.</p> @@ -171,11 +171,11 @@ <v>NameInArchive = filename()</v> <v>OptionList = [Option]</v> <v>Option = compressed|cooked|dereference|verbose</v> - <v>RetValue = ok|{error,{Name,Reason}} <V>Reason = term()</v> + <v>RetValue = ok|{error,{Name,Reason}}</v> + <v>Reason = term()</v> </type> <desc> - <p>The <marker id="create_3"></marker> -<c>create/3</c> function + <p>The <marker id="create_3"></marker><c>create/3</c> function creates a tar file and archives the files whose names are given in <c>FileList</c> into it. The files may either be read from disk or given as binaries.</p> @@ -220,9 +220,8 @@ <v>Reason = term()</v> </type> <desc> - <p>The <marker id="extract_1"></marker> -<c>extract/1</c> function extracts - all files from a tar archive.</p> + <p>The <marker id="extract_1"></marker><c>extract/1</c> function + extracts all files from a tar archive.</p> <p>If the <c>Name</c> argument is given as "<c>{binary,Binary}</c>", the contents of the binary is assumed to be a tar archive. </p> @@ -250,9 +249,8 @@ <v>Reason = term()</v> </type> <desc> - <p>The <marker id="extract_2"></marker> -<c>extract/2</c> function extracts - files from a tar archive.</p> + <p>The <marker id="extract_2"></marker><c>extract/2</c> function + extracts files from a tar archive.</p> <p>If the <c>Name</c> argument is given as "<c>{binary,Binary}</c>", the contents of the binary is assumed to be a tar archive. </p> @@ -322,8 +320,8 @@ <v>Reason = term()</v> </type> <desc> - <p>The <marker id="format_error_1"></marker> -<c>format_error/1</c> converts + <p>The <marker id="format_error_1"></marker><c>format_error/1</c> + function converts an error reason term to a human-readable error message string.</p> </desc> </func> @@ -339,8 +337,8 @@ <v>Reason = term()</v> </type> <desc> - <p>The <marker id="open"></marker> -<c>open/2</c> function creates a tar file for writing. + <p>The <marker id="open"></marker><c>open/2</c> function creates + a tar file for writing. (Any existing file with the same name will be truncated.)</p> <p>By convention, the name of a tar file should end in "<c>.tar</c>". To abide to the convention, you'll need to add "<c>.tar</c>" yourself @@ -373,7 +371,6 @@ You should not rely on the specific contents of the <c>TarDescriptor</c> term, as it may change in future versions as more features are added to the <c>erl_tar</c> module.</p> - <p></p> </warning> </desc> </func> @@ -386,9 +383,8 @@ <v>Reason = term()</v> </type> <desc> - <p>The <marker id="table_1"></marker> -<c>table/1</c> function retrieves - the names of all files in the tar file <c>Name</c>.</p> + <p>The <marker id="table_1"></marker><c>table/1</c> function + retrieves the names of all files in the tar file <c>Name</c>.</p> </desc> </func> <func> @@ -398,9 +394,8 @@ <v>Name = filename()</v> </type> <desc> - <p>The <marker id="table_2"></marker> -<c>table/2</c> function retrieves - the names of all files in the tar file <c>Name</c>.</p> + <p>The <marker id="table_2"></marker><c>table/2</c> function + retrieves the names of all files in the tar file <c>Name</c>.</p> </desc> </func> <func> @@ -410,8 +405,7 @@ <v>Name = filename()</v> </type> <desc> - <p>The <marker id="t_1"></marker> -<c>t/1</c> function prints the names + <p>The <marker id="t_1"></marker><c>t/1</c> function prints the names of all files in the tar file <c>Name</c> to the Erlang shell. (Similar to "<c>tar t</c>".)</p> </desc> @@ -423,8 +417,8 @@ <v>Name = filename()</v> </type> <desc> - <p>The <marker id="tt_1"></marker> -<c>tt/1</c> function prints names and + <p>The <marker id="tt_1"></marker><c>tt/1</c> function prints + names and information about all files in the tar file <c>Name</c> to the Erlang shell. (Similar to "<c>tar tv</c>".)</p> </desc> diff --git a/lib/stdlib/doc/src/ets.xml b/lib/stdlib/doc/src/ets.xml index 8c952708c5..efd9514db6 100644 --- a/lib/stdlib/doc/src/ets.xml +++ b/lib/stdlib/doc/src/ets.xml @@ -512,8 +512,10 @@ Error: fun containing local Erlang function calls of the reference counter, keeping track of how many times the table has been fixed by the process.</p> <p>If the table never has been fixed, the call returns - <c>false</c>.</p> - </item> + <c>false</c>.</p></item> + <item><p><c>Item=stats, Value=tuple()</c> <br></br> + Returns internal statistics about set, bag and duplicate_bag tables on an internal format used by OTP test suites. + Not for production use.</p></item> </list> </desc> </func> @@ -658,9 +660,9 @@ ets:is_compiled_ms(Broken).</code> table. The difference being the same as between <c>=:=</c> and <c>==</c>. As an example, one might insert an object with the - <c>integer()</c><c>1</c> as a key in an <c>ordered_set</c> + <c>integer()</c> <c>1</c> as a key in an <c>ordered_set</c> and get the object returned as a result of doing a - <c>lookup/2</c> with the <c>float()</c><c>1.0</c> as the + <c>lookup/2</c> with the <c>float()</c> <c>1.0</c> as the key to search for.</p> <p>If the table is of type <c>set</c> or <c>ordered_set</c>, the function returns either the empty list or a list with one @@ -943,7 +945,7 @@ ets:select(Table,MatchSpec),</code> table is named or not. If one or more options are left out, the default values are used. This means that not specifying any options (<c>[]</c>) is the same as specifying - <c>[set,protected,{keypos,1},{heir,none},{write_concurrency,false},{read_concurrency,false}]</c>.</p> + <c>[set, protected, {keypos,1}, {heir,none}, {write_concurrency,false}, {read_concurrency,false}]</c>.</p> <list type="bulleted"> <item> <p><c>set</c> @@ -960,7 +962,7 @@ ets:select(Table,MatchSpec),</code> <c>ordered_set</c> tables regard keys as equal when they <em>compare equal</em>, not only when they match. This means that to an <c>ordered_set</c>, the - <c>integer()</c><c>1</c> and the <c>float()</c><c>1.0</c> are regarded as equal. This also means that the + <c>integer()</c> <c>1</c> and the <c>float()</c> <c>1.0</c> are regarded as equal. This also means that the key used to lookup an element not necessarily <em>matches</em> the key in the elements returned, if <c>float()</c>'s and <c>integer()</c>'s are mixed in diff --git a/lib/stdlib/doc/src/gb_sets.xml b/lib/stdlib/doc/src/gb_sets.xml index 38de51322f..f91fac9c82 100644 --- a/lib/stdlib/doc/src/gb_sets.xml +++ b/lib/stdlib/doc/src/gb_sets.xml @@ -61,7 +61,6 @@ and do the same thing in the <c>sets</c> and <c>ordsets</c> modules. That is, by only changing the module name for each call, you can try out different set representations.</p> - <p></p> <list type="bulleted"> <item> <p><c>add_element/2</c></p> diff --git a/lib/stdlib/doc/src/gen_fsm.xml b/lib/stdlib/doc/src/gen_fsm.xml index e35b5adace..421eeb4fd3 100644 --- a/lib/stdlib/doc/src/gen_fsm.xml +++ b/lib/stdlib/doc/src/gen_fsm.xml @@ -4,7 +4,7 @@ <erlref> <header> <copyright> - <year>1996</year><year>2010</year> + <year>1996</year><year>2011</year> <holder>Ericsson AB. All Rights Reserved.</holder> </copyright> <legalnotice> @@ -430,7 +430,6 @@ gen_fsm:sync_send_all_state_event -----> Module:handle_sync_event/4 denote a state of the state machine. <em>state data</em> is used to denote the internal state of the Erlang process which implements the state machine.</p> - <p></p> </section> <funcs> <func> diff --git a/lib/stdlib/doc/src/notes.xml b/lib/stdlib/doc/src/notes.xml index 60c0b91212..d9c220b996 100644 --- a/lib/stdlib/doc/src/notes.xml +++ b/lib/stdlib/doc/src/notes.xml @@ -30,6 +30,168 @@ </header> <p>This document describes the changes made to the STDLIB application.</p> +<section><title>STDLIB 1.17.5</title> + + <section><title>Fixed Bugs and Malfunctions</title> + <list> + <item> + <p> + erl_tar:extract failed when executed inside a directory + with some parent directory to which the user has no read + access. This has been corrected.</p> + <p> + Own Id: OTP-9368</p> + </item> + <item> + <p> A bug in <c>erl_scan:set_attribute/3</c> has been + fixed. </p> + <p> + Own Id: OTP-9412</p> + </item> + <item> + <p> The contract of <c>io_lib:fread()</c> has been + corrected. </p> + <p> + Own Id: OTP-9413 Aux Id: seq11873 </p> + </item> + <item> + <p> + A crash in io_lib:fread/2 when end of input data was + encountered while trying to match literal characters, + which should return {more,_,_,_} but instead crashed, has + been corrected. Reported by Klas Johansson.</p> + <p> + A similar peculiarity for io:fread when encountering end + of file before any field data has also been corrected.</p> + <p> + Own Id: OTP-9439</p> + </item> + <item> + <p> The contract of <c>timer:now_diff()</c> has been + corrected. (Thanks to Alex Morarash). </p> + <p> + Own Id: OTP-9450</p> + </item> + <item> + <p> + Fix minor typo in gen_fsm documentation (Thanks to Haitao + Li)</p> + <p> + Own Id: OTP-9456</p> + </item> + <item> + <p>The contracts of <c>zip:zip_list_dir/1</c> and + <c>zip:zip_get/2</c> have been corrected. </p> + <p> + Own Id: OTP-9471 Aux Id: seq11887, OTP-9472 </p> + </item> + <item> + <p> A bug in <c>zip:zip_open()</c> has been fixed. </p> + <p> + Own Id: OTP-9472 Aux Id: seq11887, OTP-9471 </p> + </item> + <item> + <p> + Fix trivial documentation errors(Thanks to Matthias Lang)</p> + <p> + Own Id: OTP-9498</p> + </item> + <item> + <p> + Add a proplist() type</p> + <p> + Recently I was adding specs to an API and found that + there is no canonical proplist() type defined. (Thanks to + Ryan Zezeski)</p> + <p> + Own Id: OTP-9499</p> + </item> + <item> + <p> + fix supervisors restarting temporary children</p> + <p> + In the current implementation of supervisors, temporary + children should never be restarted. However, when a + temporary child is restarted as part of a one_for_all or + rest_for_one strategy where the failing process is not + the temporary child, the supervisor still tries to + restart it.</p> + <p> + Because the supervisor doesn't keep some of the MFA + information of temporary children, this causes the + supervisor to hit its restart limit and crash.</p> + <p> + This patch fixes the behaviour by inserting a clause in + terminate_children/2-3 (private function) that will omit + temporary children when building a list of killed + processes, to avoid having the supervisor trying to + restart them again.</p> + <p> + Only supervisors in need of restarting children used the + list, so the change should be of no impact for the + functions that called terminate_children/2-3 only to kill + all children.</p> + <p> + The documentation has been modified to make this + behaviour more explicit. (Thanks to Fred Hebert)</p> + <p> + Own Id: OTP-9502</p> + </item> + <item> + <p> + fix broken edoc annotations (Thanks to Richard Carlsson)</p> + <p> + Own Id: OTP-9516</p> + </item> + <item> + <p> XML files have been corrected. </p> + <p> + Own Id: OTP-9550 Aux Id: OTP-9541 </p> + </item> + <item> + <p> + Handle rare race in the crypto key server functionality</p> + <p> + Own Id: OTP-9586</p> + </item> + </list> + </section> + + + <section><title>Improvements and New Features</title> + <list> + <item> + <p> Types and specifications have been added. </p> + <p> + Own Id: OTP-9356</p> + </item> + <item> + <p> The contracts of the <c>queue</c> module have been + modified. </p> + <p> + Own Id: OTP-9418</p> + </item> + <item> + <p> Contracts in STDLIB and Kernel have been improved and + type errors have been corrected. </p> + <p> + Own Id: OTP-9485</p> + </item> + <item> + <p> + Types for several BIFs have been extended/corrected. Also + the types for types for <c>lists:keyfind/3</c>, + <c>lists:keysearch/3</c>, and <c>lists:keyemember/3</c> + have been corrected. The incorrect/incomplete types could + cause false dialyzer warnings.</p> + <p> + Own Id: OTP-9496</p> + </item> + </list> + </section> + +</section> + <section><title>STDLIB 1.17.4</title> <section><title>Fixed Bugs and Malfunctions</title> @@ -2632,7 +2794,7 @@ that is, also when starting a gen_server, gen_fsm etc. </p> <p>This limitation has now been properly documented and the behavior of the <c>gen_fsm</c>, <c>gen_server</c>, and - <c>proc_lib</c><c>start</c> and <c>start_link</c> + <c>proc_lib</c> <c>start</c> and <c>start_link</c> functions when providing this option has been changed from hanging indefinitely to failing with reason <c>badarg</c>.</p> @@ -2749,7 +2911,6 @@ <c>join</c> option that can be used to force QLC to use a particular kind of join in some QLC expression.</p> <p>Several other changes have also been included:</p> - <p></p> <list type="bulleted"> <item> <p>The new <c>tmpdir</c> option of <c>cursor/2</c>, diff --git a/lib/stdlib/doc/src/qlc.xml b/lib/stdlib/doc/src/qlc.xml index 6a45ade447..ce50631ca9 100644 --- a/lib/stdlib/doc/src/qlc.xml +++ b/lib/stdlib/doc/src/qlc.xml @@ -688,7 +688,6 @@ ets:match_spec_run(ets:lookup(86033, {2,2}), </datatype> <datatype> <name name="tmp_file_usage"></name> - <desc><p></p></desc> </datatype> </datatypes> diff --git a/lib/stdlib/doc/src/supervisor.xml b/lib/stdlib/doc/src/supervisor.xml index edd119d37a..ec607d6e4c 100644 --- a/lib/stdlib/doc/src/supervisor.xml +++ b/lib/stdlib/doc/src/supervisor.xml @@ -59,7 +59,6 @@ processes are started in order from left to right according to this list. When the supervisor terminates, it first terminates its child processes in reversed start order, from right to left.</p> - <p></p> <p>A supervisor can have one of the following <em>restart strategies</em>:</p> <list type="bulleted"> <item> diff --git a/lib/stdlib/doc/src/timer.xml b/lib/stdlib/doc/src/timer.xml index b741ab7db1..0c1e398dc4 100644 --- a/lib/stdlib/doc/src/timer.xml +++ b/lib/stdlib/doc/src/timer.xml @@ -84,7 +84,7 @@ <name name="send_after" arity="3"/> <fsummary>Send <c>Message</c>to <c>Pid</c>after a specified <c>Time</c>.</fsummary> <desc> - <p></p> + <p> <taglist> <tag><c>send_after/3</c></tag> <item> @@ -98,6 +98,7 @@ <p>Same as <c>send_after(<anno>Time</anno>, self(), <anno>Message</anno>)</c>.</p> </item> </taglist> + </p> </desc> </func> <func> @@ -107,7 +108,7 @@ <name name="exit_after" arity="3"/> <fsummary>Send an exit signal with <c>Reason</c>after a specified <c>Time</c>.</fsummary> <desc> - <p></p> + <p> <taglist> <tag><c>exit_after/3</c></tag> <item> @@ -128,6 +129,7 @@ <p>Same as <c>exit_after(<anno>Time</anno>, self(), kill)</c>. </p> </item> </taglist> + </p> </desc> </func> <func> @@ -144,7 +146,7 @@ <name name="send_interval" arity="3"/> <fsummary>Send <c>Message</c>repeatedly at intervals of <c>Time</c>.</fsummary> <desc> - <p></p> + <p> <taglist> <tag><c>send_interval/3</c></tag> <item> @@ -158,6 +160,7 @@ <p>Same as <c>send_interval(<anno>Time</anno>, self(), <anno>Message</anno>)</c>.</p> </item> </taglist> + </p> </desc> </func> <func> @@ -188,7 +191,7 @@ Function, Arguments)</c> or <c>apply(Fun, Arguments)</c></fsummary> <type_desc variable="Time">In microseconds</type_desc> <desc> - <p></p> + <p> <taglist> <tag><c>tc/3</c></tag> <item> @@ -209,6 +212,7 @@ </item> </taglist> + </p> </desc> </func> <func> @@ -254,7 +258,6 @@ <section> <title>Examples</title> <p>This example illustrates how to print out "Hello World!" in 5 seconds:</p> - <p></p> <pre> 1> <input>timer:apply_after(5000, io, format, ["~nHello World!~n", []]).</input> {ok,TRef} diff --git a/lib/stdlib/doc/src/unicode_usage.xml b/lib/stdlib/doc/src/unicode_usage.xml index b48ad8c1f3..0fa7de0a5c 100644 --- a/lib/stdlib/doc/src/unicode_usage.xml +++ b/lib/stdlib/doc/src/unicode_usage.xml @@ -5,7 +5,7 @@ <header> <copyright> <year>1999</year> - <year>2010</year> + <year>2011</year> <holder>Ericsson AB. All Rights Reserved.</holder> </copyright> <legalnotice> diff --git a/lib/stdlib/doc/src/zip.xml b/lib/stdlib/doc/src/zip.xml index b03fc7f4e2..cf0d581352 100644 --- a/lib/stdlib/doc/src/zip.xml +++ b/lib/stdlib/doc/src/zip.xml @@ -243,12 +243,10 @@ <name name="extract" arity="2"/> <fsummary>Extract files from a zip archive</fsummary> <desc> - <p>The <marker id="unzip_1"></marker> -<c>unzip/1</c> function extracts - all files from a zip archive. The - <marker id="unzip_2"></marker> -<c>unzip/2</c> function provides options - to extract some files, and more.</p> + <p>The <marker id="unzip_1"></marker><c>unzip/1</c> function extracts + all files from a zip archive. + The <marker id="unzip_2"></marker><c>unzip/2</c> function provides + options to extract some files, and more.</p> <p>If the <c><anno>Archive</anno></c> argument is given as a binary, the contents of the binary is assumed to be a zip archive, otherwise it should be a filename.</p> @@ -413,8 +411,8 @@ <name name="zip_open" arity="2"/> <fsummary>Open an archive and return a handle to it</fsummary> <desc> - <p>The <marker id="zip_open"></marker> -<c>zip_open</c> function opens a + <p>The <marker id="zip_open"></marker><c>zip_open</c> function + opens a zip archive, and reads and saves its directory. This means that subsequently reading files from the archive will be faster than unzipping files one at a time with <c>unzip</c>.</p> @@ -436,8 +434,7 @@ <name name="zip_get" arity="2"/> <fsummary>Extract files from an open archive</fsummary> <desc> - <p>The <marker id="zip_get"></marker> -<c>zip_get</c> function extracts + <p>The <marker id="zip_get"></marker><c>zip_get</c> function extracts one or all files from an open archive.</p> <p>The files will be unzipped to memory or to file, depending on the options given to the <c>zip_open</c> function when the @@ -448,9 +445,8 @@ <name name="zip_close" arity="1"/> <fsummary>Close an open archive</fsummary> <desc> - <p>The <marker id="zip_close"></marker> -<c>zip_close/1</c> function closes - a zip archive, previously opened with <c>zip_open</c>. All + <p>The <marker id="zip_close"></marker><c>zip_close/1</c> function + closes a zip archive, previously opened with <c>zip_open</c>. All resources are closed, and the handle should not be used after closing.</p> </desc> diff --git a/lib/stdlib/src/beam_lib.erl b/lib/stdlib/src/beam_lib.erl index 9077e59fdc..e9a5e6831e 100644 --- a/lib/stdlib/src/beam_lib.erl +++ b/lib/stdlib/src/beam_lib.erl @@ -896,13 +896,17 @@ call_crypto_server(Req) -> gen_server:call(?CRYPTO_KEY_SERVER, Req, infinity) catch exit:{noproc,_} -> - start_crypto_server(), - erlang:yield(), - call_crypto_server(Req) + %% Not started. + call_crypto_server_1(Req); + exit:{normal,_} -> + %% The process finished just as we called it. + call_crypto_server_1(Req) end. -start_crypto_server() -> - gen_server:start({local,?CRYPTO_KEY_SERVER}, ?MODULE, [], []). +call_crypto_server_1(Req) -> + gen_server:start({local,?CRYPTO_KEY_SERVER}, ?MODULE, [], []), + erlang:yield(), + call_crypto_server(Req). -spec init([]) -> {'ok', #state{}}. diff --git a/lib/stdlib/src/dets_v8.erl b/lib/stdlib/src/dets_v8.erl index af36958c1c..cdd38d5604 100644 --- a/lib/stdlib/src/dets_v8.erl +++ b/lib/stdlib/src/dets_v8.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2001-2010. All Rights Reserved. +%% Copyright Ericsson AB 2001-2011. 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 @@ -163,7 +163,7 @@ %% The 8(c) version uses a different hashing algorithm, erlang:phash %% (former versions use erlang:hash). %% Version 8(b) files are only converted to version 8(c) if repair is -%% done, so we need compatability with 8(b) for a _long_ time. +%% done, so we need compatibility with 8(b) for a _long_ time. %% %% There are known bugs due to the fact that keys and objects are %% sometimes compared (==) and sometimes matched (=:=). The version diff --git a/lib/stdlib/src/erl_compile.erl b/lib/stdlib/src/erl_compile.erl index d833f626bf..ff032b129c 100644 --- a/lib/stdlib/src/erl_compile.erl +++ b/lib/stdlib/src/erl_compile.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 1997-2010. All Rights Reserved. +%% Copyright Ericsson AB 1997-2011. 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 diff --git a/lib/stdlib/src/erl_expand_records.erl b/lib/stdlib/src/erl_expand_records.erl index eada563914..20fd247cea 100644 --- a/lib/stdlib/src/erl_expand_records.erl +++ b/lib/stdlib/src/erl_expand_records.erl @@ -35,7 +35,7 @@ trecords=sets:new(), % Typed records uses_types=false, % Are there -spec or -type in the module strict_ra=[], % strict record accesses - checked_ra=[] % succesfully accessed records + checked_ra=[] % successfully accessed records }). -spec(module(AbsForms, CompileOptions) -> AbsForms when diff --git a/lib/stdlib/src/error_logger_tty_h.erl b/lib/stdlib/src/error_logger_tty_h.erl index 435e57aa0e..fa13fbb2bd 100644 --- a/lib/stdlib/src/error_logger_tty_h.erl +++ b/lib/stdlib/src/error_logger_tty_h.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 1996-2009. All Rights Reserved. +%% Copyright Ericsson AB 1996-2011. 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 @@ -34,10 +34,12 @@ handle_event/2, handle_call/2, handle_info/2, terminate/2, code_change/3]). +-export([write_event/2]). + %% This one is used when we takeover from the simple error_logger. init({[], {error_logger, Buf}}) -> User = set_group_leader(), - write_events(Buf), + write_events(Buf,io), {ok, {User, error_logger}}; %% This one is used if someone took over from us, and now wants to %% go back. @@ -52,7 +54,7 @@ init([]) -> handle_event({_Type, GL, _Msg}, State) when node(GL) =/= node() -> {ok, State}; handle_event(Event, State) -> - write_event(tag_event(Event)), + write_event(tag_event(Event),io), {ok, State}. handle_info({'EXIT', User, _Reason}, {User, PrevHandler}) -> @@ -64,10 +66,10 @@ handle_info({'EXIT', User, _Reason}, {User, PrevHandler}) -> PrevHandler, go_back} end; handle_info({emulator, GL, Chars}, State) when node(GL) == node() -> - write_event(tag_event({emulator, GL, Chars})), + write_event(tag_event({emulator, GL, Chars}),io), {ok, State}; handle_info({emulator, noproc, Chars}, State) -> - write_event(tag_event({emulator, noproc, Chars})), + write_event(tag_event({emulator, noproc, Chars}),io), {ok, State}; handle_info(_, State) -> {ok, State}. @@ -97,65 +99,65 @@ set_group_leader() -> tag_event(Event) -> {erlang:localtime(), Event}. -write_events(Events) -> write_events1(lists:reverse(Events)). +write_events(Events,IOMod) -> write_events1(lists:reverse(Events),IOMod). -write_events1([Event|Es]) -> - write_event(Event), - write_events1(Es); -write_events1([]) -> +write_events1([Event|Es],IOMod) -> + write_event(Event,IOMod), + write_events1(Es,IOMod); +write_events1([],_IOMod) -> ok. -write_event({Time, {error, _GL, {Pid, Format, Args}}}) -> +write_event({Time, {error, _GL, {Pid, Format, Args}}},IOMod) -> T = write_time(maybe_utc(Time)), case catch io_lib:format(add_node(Format,Pid), Args) of S when is_list(S) -> - format(T ++ S); + format(IOMod, T ++ S); _ -> F = add_node("ERROR: ~p - ~p~n", Pid), - format(T ++ F, [Format,Args]) + format(IOMod, T ++ F, [Format,Args]) end; -write_event({Time, {emulator, _GL, Chars}}) -> +write_event({Time, {emulator, _GL, Chars}},IOMod) -> T = write_time(maybe_utc(Time)), case catch io_lib:format(Chars, []) of S when is_list(S) -> - format(T ++ S); + format(IOMod, T ++ S); _ -> - format(T ++ "ERROR: ~p ~n", [Chars]) + format(IOMod, T ++ "ERROR: ~p ~n", [Chars]) end; -write_event({Time, {info, _GL, {Pid, Info, _}}}) -> +write_event({Time, {info, _GL, {Pid, Info, _}}},IOMod) -> T = write_time(maybe_utc(Time)), - format(T ++ add_node("~p~n",Pid),[Info]); -write_event({Time, {error_report, _GL, {Pid, std_error, Rep}}}) -> + format(IOMod, T ++ add_node("~p~n",Pid),[Info]); +write_event({Time, {error_report, _GL, {Pid, std_error, Rep}}},IOMod) -> T = write_time(maybe_utc(Time)), S = format_report(Rep), - format(T ++ S ++ add_node("", Pid)); -write_event({Time, {info_report, _GL, {Pid, std_info, Rep}}}) -> + format(IOMod, T ++ S ++ add_node("", Pid)); +write_event({Time, {info_report, _GL, {Pid, std_info, Rep}}},IOMod) -> T = write_time(maybe_utc(Time), "INFO REPORT"), S = format_report(Rep), - format(T ++ S ++ add_node("", Pid)); -write_event({Time, {info_msg, _GL, {Pid, Format, Args}}}) -> + format(IOMod, T ++ S ++ add_node("", Pid)); +write_event({Time, {info_msg, _GL, {Pid, Format, Args}}},IOMod) -> T = write_time(maybe_utc(Time), "INFO REPORT"), case catch io_lib:format(add_node(Format,Pid), Args) of S when is_list(S) -> - format(T ++ S); + format(IOMod, T ++ S); _ -> F = add_node("ERROR: ~p - ~p~n", Pid), - format(T ++ F, [Format,Args]) + format(IOMod, T ++ F, [Format,Args]) end; -write_event({Time, {warning_report, _GL, {Pid, std_warning, Rep}}}) -> +write_event({Time, {warning_report, _GL, {Pid, std_warning, Rep}}},IOMod) -> T = write_time(maybe_utc(Time), "WARNING REPORT"), S = format_report(Rep), - format(T ++ S ++ add_node("", Pid)); -write_event({Time, {warning_msg, _GL, {Pid, Format, Args}}}) -> + format(IOMod, T ++ S ++ add_node("", Pid)); +write_event({Time, {warning_msg, _GL, {Pid, Format, Args}}},IOMod) -> T = write_time(maybe_utc(Time), "WARNING REPORT"), case catch io_lib:format(add_node(Format,Pid), Args) of S when is_list(S) -> - format(T ++ S); + format(IOMod, T ++ S); _ -> F = add_node("ERROR: ~p - ~p~n", Pid), - format(T ++ F, [Format,Args]) + format(IOMod, T ++ F, [Format,Args]) end; -write_event({_Time, _Error}) -> +write_event({_Time, _Error},_IOMod) -> ok. maybe_utc(Time) -> @@ -178,8 +180,9 @@ maybe_utc(Time) -> Time end. -format(String) -> io:format(user, String, []). -format(String, Args) -> io:format(user, String, Args). +format(IOMod, String) -> format(IOMod, String, []). +format(io_lib, String, Args) -> io_lib:format(String, Args); +format(io, String, Args) -> io:format(user, String, Args). format_report(Rep) when is_list(Rep) -> case string_p(Rep) of diff --git a/lib/stdlib/src/eval_bits.erl b/lib/stdlib/src/eval_bits.erl index 796c5b934d..f40904df1c 100644 --- a/lib/stdlib/src/eval_bits.erl +++ b/lib/stdlib/src/eval_bits.erl @@ -2,7 +2,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 1999-2010. All Rights Reserved. +%% Copyright Ericsson AB 1999-2011. 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 diff --git a/lib/stdlib/test/beam_lib_SUITE.erl b/lib/stdlib/test/beam_lib_SUITE.erl index b7fb1f618f..5df19ca7f1 100644 --- a/lib/stdlib/test/beam_lib_SUITE.erl +++ b/lib/stdlib/test/beam_lib_SUITE.erl @@ -181,7 +181,8 @@ error(Conf) when is_list(Conf) -> ?line verify(not_a_beam_file, beam_lib:info(<<"short">>)), ?line {Binary1, _} = split_binary(Binary, byte_size(Binary)-10), - ?line verify(chunk_too_big, beam_lib:chunks(Binary1, ["Abst"])), + LastChunk = last_chunk(Binary), + ?line verify(chunk_too_big, beam_lib:chunks(Binary1, [LastChunk])), ?line Chunks = chunk_info(Binary), ?line {value, {_, AbstractStart, _}} = lists:keysearch("Abst", 1, Chunks), ?line {Binary2, _} = split_binary(Binary, AbstractStart), @@ -205,6 +206,12 @@ error(Conf) when is_list(Conf) -> ?line file:delete(ACopy), ok. +last_chunk(Bin) -> + L = beam_lib:info(Bin), + {chunks,Chunks} = lists:keyfind(chunks, 1, L), + {Last,_,_} = lists:last(Chunks), + Last. + do_error(BeamFile, ACopy) -> % evil tests ?line Chunks = chunk_info(BeamFile), @@ -584,8 +591,18 @@ do_encrypted_abstr(Beam, Key) -> ?line {ok,{simple,[{"Abst",Abst}]}} = beam_lib:chunks(Beam, ["Abst"]), ?line {ok,cleared} = beam_lib:clear_crypto_key_fun(), + + %% Try to force a stop/start race. + ?line start_stop_race(10000), + ok. +start_stop_race(0) -> + ok; +start_stop_race(N) -> + {error,_} = beam_lib:crypto_key_fun(bad_fun), + undefined = beam_lib:clear_crypto_key_fun(), + start_stop_race(N-1). bad_fun(F) -> {error,E} = beam_lib:crypto_key_fun(F), diff --git a/lib/stdlib/test/ets_SUITE.erl b/lib/stdlib/test/ets_SUITE.erl index 02e97fb3a8..e048764a55 100644 --- a/lib/stdlib/test/ets_SUITE.erl +++ b/lib/stdlib/test/ets_SUITE.erl @@ -819,6 +819,14 @@ t_delete_all_objects(Config) when is_list(Config) -> repeat_for_opts(t_delete_all_objects_do), ?line verify_etsmem(EtsMem). +get_kept_objects(T) -> + case ets:info(T,stats) of + false -> + 0; + {_,_,_,_,_,_,KO} -> + KO + end. + t_delete_all_objects_do(Opts) -> ?line T=ets_new(x,Opts), ?line filltabint(T,4000), @@ -828,10 +836,10 @@ t_delete_all_objects_do(Opts) -> ?line true = ets:delete_all_objects(T), ?line '$end_of_table' = ets:next(T,O), ?line 0 = ets:info(T,size), - ?line 4000 = ets:info(T,kept_objects), + ?line 4000 = get_kept_objects(T), ?line ets:safe_fixtable(T,false), ?line 0 = ets:info(T,size), - ?line 0 = ets:info(T,kept_objects), + ?line 0 = get_kept_objects(T), ?line filltabint(T,4000), ?line 4000 = ets:info(T,size), ?line true = ets:delete_all_objects(T), @@ -861,10 +869,10 @@ t_delete_object_do(Opts) -> ?line ets:delete_object(T,{First, integer_to_list(First)}), ?line Next = ets:next(T,First), ?line 3999 = ets:info(T,size), - ?line 1 = ets:info(T,kept_objects), + ?line 1 = get_kept_objects(T), ?line ets:safe_fixtable(T,false), ?line 3999 = ets:info(T,size), - ?line 0 = ets:info(T,kept_objects), + ?line 0 = get_kept_objects(T), ?line ets:delete(T), ?line T1 = ets_new(x,[ordered_set | Opts]), ?line filltabint(T1,4000), @@ -2717,7 +2725,8 @@ ordered_do(Opts) -> 9,10,11,12, 1,2,3,4, 17,18,19,20, - 13,14,15,16 + 13,14,15,16, + 1 bsl 33 ], ?line lists:foreach(fun(X) -> ets:insert(T,{X,integer_to_list(X)}) @@ -2732,13 +2741,14 @@ ordered_do(Opts) -> ?line S2 = L2, ?line [{1,"1"}] = ets:slot(T,0), ?line [{28,"28"}] = ets:slot(T,27), + ?line [{1 bsl 33,_}] = ets:slot(T,28), ?line 27 = ets:prev(T,28), ?line [{7,"7"}] = ets:slot(T,6), - ?line '$end_of_table' = ets:next(T,28), + ?line '$end_of_table' = ets:next(T,1 bsl 33), ?line [{12,"12"}] = ets:slot(T,11), - ?line '$end_of_table' = ets:slot(T,28), + ?line '$end_of_table' = ets:slot(T,29), ?line [{1,"1"}] = ets:slot(T,0), - ?line 28 = ets:prev(T,29), + ?line 28 = ets:prev(T,1 bsl 33), ?line 1 = ets:next(T,0), ?line pick_all_forward(T), ?line [{7,"7"}] = ets:slot(T,6), @@ -4969,7 +4979,7 @@ grow_pseudo_deleted_do(Type) -> [true]}]), Left = Mult*(Mod-1), ?line Left = ets:info(T,size), - ?line Mult = ets:info(T,kept_objects), + ?line Mult = get_kept_objects(T), filltabstr(T,Mult), spawn_opt(fun()-> ?line true = ets:info(T,fixed), Self ! start, @@ -4983,7 +4993,7 @@ grow_pseudo_deleted_do(Type) -> ?line true = ets:safe_fixtable(T,false), io:format("Unfix table done. ~p nitems=~p\n",[now(),ets:info(T,size)]), ?line false = ets:info(T,fixed), - ?line 0 = ets:info(T,kept_objects), + ?line 0 = get_kept_objects(T), ?line done = receive_any(), %%verify_table_load(T), % may fail if concurrency is poor (genny) ets:delete(T), @@ -5010,7 +5020,7 @@ shrink_pseudo_deleted_do(Type) -> [{'>', '$1', Half}], [true]}]), ?line Half = ets:info(T,size), - ?line Half = ets:info(T,kept_objects), + ?line Half = get_kept_objects(T), spawn_opt(fun()-> ?line true = ets:info(T,fixed), Self ! start, io:format("Starting to delete... ~p\n",[now()]), @@ -5023,7 +5033,7 @@ shrink_pseudo_deleted_do(Type) -> ?line true = ets:safe_fixtable(T,false), io:format("Unfix table done. ~p nitems=~p\n",[now(),ets:info(T,size)]), ?line false = ets:info(T,fixed), - ?line 0 = ets:info(T,kept_objects), + ?line 0 = get_kept_objects(T), ?line done = receive_any(), %%verify_table_load(T), % may fail if concurrency is poor (genny) ets:delete(T), @@ -5139,7 +5149,7 @@ smp_fixed_delete_do() -> ?line 0 = ets:info(T,size), ?line true = ets:info(T,fixed), ?line Buckets = num_of_buckets(T), - ?line NumOfObjs = ets:info(T,kept_objects), + ?line NumOfObjs = get_kept_objects(T), ets:safe_fixtable(T,false), %% Will fail as unfix does not shrink the table: %%?line Mem = ets:info(T,memory), @@ -5171,7 +5181,7 @@ smp_unfix_fix_do() -> Left = NumOfObjs - Deleted, ?line Left = ets:info(T,size), ?line true = ets:info(T,fixed), - ?line Deleted = ets:info(T,kept_objects), + ?line Deleted = get_kept_objects(T), {Child, Mref} = spawn_opt(fun()-> ?line true = ets:info(T,fixed), @@ -5188,7 +5198,7 @@ smp_unfix_fix_do() -> end, Deleted), ?line 0 = ets:info(T,size), - ?line true = ets:info(T,kept_objects) >= Left, + ?line true = get_kept_objects(T) >= Left, ?line done = receive_any() end, [link, monitor, {scheduler,2}]), @@ -5201,7 +5211,7 @@ smp_unfix_fix_do() -> Child ! done, {'DOWN', Mref, process, Child, normal} = receive_any(), ?line false = ets:info(T,fixed), - ?line 0 = ets:info(T,kept_objects), + ?line 0 = get_kept_objects(T), %%verify_table_load(T), ets:delete(T), process_flag(scheduler,0). @@ -5239,7 +5249,7 @@ otp_8166_do(WC) -> ZombieCrPid ! quit, {'DOWN', ZombieCrMref, process, ZombieCrPid, normal} = receive_any(), ?line false = ets:info(T,fixed), - ?line 0 = ets:info(T,kept_objects), + ?line 0 = get_kept_objects(T), %%verify_table_load(T), ets:delete(T), process_flag(scheduler,0). @@ -5306,7 +5316,7 @@ otp_8166_zombie_creator(T,Deleted) -> verify_table_load(T) -> ?line Stats = ets:info(T,stats), - ?line {Buckets,AvgLen,StdDev,ExpSD,_MinLen,_MaxLen} = Stats, + ?line {Buckets,AvgLen,StdDev,ExpSD,_MinLen,_MaxLen,_} = Stats, ?line ok = if AvgLen > 7 -> io:format("Table overloaded: Stats=~p\n~p\n", @@ -5918,7 +5928,7 @@ very_big_num(0, Result) -> ?line Result. make_port() -> - ?line open_port({spawn, efile}, [eof]). + ?line open_port({spawn, "efile"}, [eof]). make_pid() -> ?line spawn_link(?MODULE, sleeper, []). diff --git a/lib/stdlib/test/tar_SUITE.erl b/lib/stdlib/test/tar_SUITE.erl index 48f58cd05d..9ad3936928 100644 --- a/lib/stdlib/test/tar_SUITE.erl +++ b/lib/stdlib/test/tar_SUITE.erl @@ -283,17 +283,16 @@ long_names(doc) -> long_names(Config) when is_list(Config) -> ?line DataDir = ?config(data_dir, Config), ?line Long = filename:join(DataDir, "long_names.tar"), + run_in_short_tempdir(Config, + fun() -> do_long_names(Long) end). +do_long_names(Long) -> %% Try table/2 and extract/2. ?line case erl_tar:table(Long, [verbose]) of {ok,List} when is_list(List) -> ?line io:format("~p\n", [List]) end, - - %% To avoid getting too long paths for Windows to handle, extract into - %% the current directory (which is the test_server directory). Its path - %% is quite a bit shorter than the path to priv_dir. ?line {ok,Cwd} = file:get_cwd(), ?line ok = erl_tar:extract(Long), ?line Base = filename:join([Cwd, "original_software", "written_by", @@ -312,17 +311,16 @@ long_names(Config) when is_list(Config) -> ?line "Here"++_ = binary_to_list(First), ?line "And"++_ = binary_to_list(Second), - %% Clean up. - ?line delete_files([filename:join(Cwd, "original_software"),EmptyDir]), - ok. create_long_names(doc) -> ["Creates a tar file from a deep directory structure (filenames are ", "longer than 100 characters)."]; create_long_names(Config) when is_list(Config) -> - ?line PrivDir = ?config(priv_dir, Config), - ?line ok = file:set_cwd(PrivDir), + run_in_short_tempdir(Config, fun create_long_names/0). + +create_long_names() -> + ?line {ok,Dir} = file:get_cwd(), Dirs = ["aslfjkshjkhliuf", "asdhjfehnbfsky", "sahajfskdfhsz", @@ -334,7 +332,7 @@ create_long_names(Config) when is_list(Config) -> ?line AFile = filename:join(DeepDir, "a_file"), ?line Hello = "hello, world\n", ?line ok = file:write_file(AFile, Hello), - ?line TarName = filename:join(PrivDir, "my_tar_with_long_names.tar"), + ?line TarName = filename:join(Dir, "my_tar_with_long_names.tar"), ?line ok = erl_tar:create(TarName, [AFile]), %% Print contents. @@ -347,9 +345,6 @@ create_long_names(Config) when is_list(Config) -> ?line {ok, Bin} = file:read_file(filename:join(ExtractDir, AFile)), ?line Hello = binary_to_list(Bin), - %% Clean up. - ?line delete_files([ExtractDir,TarName,hd(Dirs)]), - ok. make_dirs([Dir|Rest], []) -> @@ -734,3 +729,42 @@ delete_files([Item|Rest]) -> end, delete_files(Rest). +%% Move to a temporary directory with as short name as possible and +%% execute Fun. Remove the directory and any files in it afterwards. +%% This is necessary because pathnames on Windows may be limited to +%% 260 characters. +run_in_short_tempdir(Config, Fun) -> + {ok,Cwd} = file:get_cwd(), + PrivDir0 = ?config(priv_dir, Config), + + %% Normalize name to make sure that there is no slash at the end. + PrivDir = filename:absname(PrivDir0), + + %% We need a base directory with a much shorter pathname than + %% priv_dir. We KNOW that priv_dir is located four levels below + %% the directory that common_test puts the ct_run.* directories + %% in. That fact is not documented, but an usually reliable source + %% assured me that the directory structure is unlikely to change + %% in future versions of common_test because of backward + %% compatibility (tools developed by users of common_test depend + %% on the current directory layout). + Base = lists:foldl(fun(_, D) -> + filename:dirname(D) + end, PrivDir, [1,2,3,4]), + + Dir = make_temp_dir(Base, 0), + ok = file:set_cwd(Dir), + io:format("Running test in ~s\n", [Dir]), + try + Fun() + after + file:set_cwd(Cwd), + delete_files([Dir]) + end. + +make_temp_dir(Base, I) -> + Name = filename:join(Base, integer_to_list(I, 36)), + case file:make_dir(Name) of + ok -> Name; + {error,eexist} -> make_temp_dir(Base, I+1) + end. diff --git a/lib/syntax_tools/doc/src/notes.xml b/lib/syntax_tools/doc/src/notes.xml index ec2dd762b8..5948f7ada3 100644 --- a/lib/syntax_tools/doc/src/notes.xml +++ b/lib/syntax_tools/doc/src/notes.xml @@ -4,7 +4,7 @@ <chapter> <header> <copyright> - <year>2007</year><year>2010</year> + <year>2007</year><year>2011</year> <holder>Ericsson AB. All Rights Reserved.</holder> </copyright> <legalnotice> diff --git a/lib/test_server/doc/src/notes.xml b/lib/test_server/doc/src/notes.xml index 50923b1b03..beeff55ffe 100644 --- a/lib/test_server/doc/src/notes.xml +++ b/lib/test_server/doc/src/notes.xml @@ -32,6 +32,150 @@ <file>notes.xml</file> </header> +<section><title>Test_Server 3.4.5</title> + + <section><title>Fixed Bugs and Malfunctions</title> + <list> + <item> + <p> + An error in how comments are colored in the test suite + overview html log file has been corrected. As result, a + new framework callback function, format_comment/1, has + been introduced.</p> + <p> + Own Id: OTP-9237</p> + </item> + <item> + <p> + Test Server did not release SASL TTY handlers + (sasl_report_tty_h and error_logger_tty_h) properly after + each test run. This error has been fixed.</p> + <p> + Own Id: OTP-9311</p> + </item> + <item> + <p> + Automatically generated init- and end-configuration + functions for test case groups caused incorrect execution + order of test cases. This has been corrected.</p> + <p> + Own Id: OTP-9369</p> + </item> + <item> + <p> + If ct:log/2 was called with bad arguments, this could + cause the Common Test IO handling process to crash. This + fault has been corrected.</p> + <p> + Own Id: OTP-9371 Aux Id: OTP-8933 </p> + </item> + <item> + <p> + A bug has been fixed that made Test Server call the + end_tc/3 framework function with an incorrect module name + as first argument.</p> + <p> + Own Id: OTP-9379 Aux Id: seq11863 </p> + </item> + <item> + <p> + If end_per_testcase caused a timetrap timeout, the actual + test case status was discarded and the test case logged + as successful (even if the case had actually failed + before the call to end_per_testcase). This fault has been + fixed.</p> + <p> + Own Id: OTP-9397</p> + </item> + <item> + <p> + If a timetrap timeout occured during execution of of a + function in a lib module (i.e. a function called directly + or indirectly from a test case), the Suite argument in + the end_tc/3 framework callback function would not + correctly contain the name of the test suite, but the lib + module. (This would only happen if the lib module was + compiled with ct.hrl included). This error has been + solved.</p> + <p> + Own Id: OTP-9398</p> + </item> + <item> + <p> + Add a proplist() type</p> + <p> + Recently I was adding specs to an API and found that + there is no canonical proplist() type defined. (Thanks to + Ryan Zezeski)</p> + <p> + Own Id: OTP-9499</p> + </item> + <item> + <p> XML files have been corrected. </p> + <p> + Own Id: OTP-9550 Aux Id: OTP-9541 </p> + </item> + <item> + <p> + If a test suite would start with a test case group + defined without the init_per_group/2 and end_per_group/2 + function, init_per_suite/1 would not execute initially + and logging of the test run would fail. This error has + been fixed.</p> + <p> + Own Id: OTP-9584</p> + </item> + </list> + </section> + + + <section><title>Improvements and New Features</title> + <list> + <item> + <p> + A new option, 'logopts', has been introduced, to make it + possible to modify some aspects of the logging behaviour + in Common Test (or Test Server). For example, whenever an + io printout is made, test_server adds newline (\n) to the + end of the output string. This may not always be a + preferred action and can therefore be disabled by means + of "ct_run ... -logopts no_nl" (or ct:run_test([..., + {logopts,[no_nl]}])). A new framework callback function, + get_logopts/0, has been introduced (see the ct_framework + module for details).</p> + <p> + Own Id: OTP-9372 Aux Id: OTP-9396 </p> + </item> + <item> + <p> + A new option, 'logopts', has been introduced, to make it + possible to modify some aspects of the logging behaviour + in Common Test (or Test Server). For example, if the html + version of the test suite source code should not be + generated during the test run (and consequently be + unavailable in the log file system), the feature may be + disabled by means of "ct_run ... -logopts no_src" (or + ct:run_test([..., {logopts,[no_src]}])). A new framework + callback function, get_logopts/0, has been introduced + (see the ct_framework module for details).</p> + <p> + Own Id: OTP-9396 Aux Id: seq11869, OTP-9372 </p> + </item> + <item> + <p> + It is now possible to use a tuple {M,F,A}, or a fun, as + timetrap specification in the suite info function or test + case info functions. The function must return a valid + timeout value, as documented in the common_test man page + and in the User's Guide.</p> + <p> + Own Id: OTP-9501 Aux Id: seq11894 </p> + </item> + </list> + </section> + +</section> + <section><title>Test_Server 3.4.4</title> <section><title>Fixed Bugs and Malfunctions</title> diff --git a/lib/test_server/doc/src/ts.xml b/lib/test_server/doc/src/ts.xml index 496ad3667a..f9b48d8372 100644 --- a/lib/test_server/doc/src/ts.xml +++ b/lib/test_server/doc/src/ts.xml @@ -77,7 +77,7 @@ </p> <p><c>ts:install/0</c> is used if the target platform is the same as the controller host, i.e. if you run on "local target" - and no options are needed. Then running <c>ts:install/0</c><c>ts</c> + and no options are needed. Then running <c>ts:install/0</c> <c>ts</c> will run an autoconf script for your current environment and set up the necessary variables needed by the test suites. diff --git a/lib/test_server/src/test_server.erl b/lib/test_server/src/test_server.erl index 04f92c5738..49f97686a0 100644 --- a/lib/test_server/src/test_server.erl +++ b/lib/test_server/src/test_server.erl @@ -612,6 +612,7 @@ do_run_test_case_apply(Mod, Func, Args, Name, RunInit, TimetrapData) -> print(minor, "Current directory is ~p\n", [Cwd]), print_timestamp(minor,"Started at "), TCCallback = get(test_server_testcase_callback), + LogOpts = get(test_server_logopts), Ref = make_ref(), OldGLeader = group_leader(), %% Set ourself to group leader for the spawned process @@ -621,7 +622,7 @@ do_run_test_case_apply(Mod, Func, Args, Name, RunInit, TimetrapData) -> fun() -> run_test_case_eval(Mod, Func, Args, Name, Ref, RunInit, TimetrapData, - TCCallback) + LogOpts, TCCallback) end), group_leader(OldGLeader, self()), put(test_server_detected_fail, []), @@ -733,15 +734,23 @@ run_test_case_msgloop(Ref, Pid, CaptureStdout, Terminate, Comment, CurrConf) -> print(Detail,Format,Args), run_test_case_msgloop(Ref,Pid,CaptureStdout,Terminate,Comment,CurrConf); {comment,NewComment} -> + NewComment1 = test_server_ctrl:to_string(NewComment), + NewComment2 = test_server_sup:framework_call(format_comment, + [NewComment1], + NewComment1), Terminate1 = case Terminate of {true,{Time,Value,Loc,Opts,_OldComment}} -> - {true,{Time,Value,mod_loc(Loc),Opts,NewComment}}; + {true,{Time,Value,mod_loc(Loc),Opts,NewComment2}}; Other -> Other end, - run_test_case_msgloop(Ref,Pid,CaptureStdout,Terminate1,NewComment,CurrConf); - {set_curr_conf,NewCurrConf} -> + run_test_case_msgloop(Ref,Pid,CaptureStdout,Terminate1,NewComment2,CurrConf); + {read_comment,From} -> + From ! {self(),read_comment,Comment}, + run_test_case_msgloop(Ref,Pid,CaptureStdout,Terminate,Comment,CurrConf); + {set_curr_conf,From,NewCurrConf} -> + From ! {self(),set_curr_conf,ok}, run_test_case_msgloop(Ref,Pid,CaptureStdout,Terminate,Comment,NewCurrConf); {'EXIT',Pid,{Ref,Time,Value,Loc,Opts}} -> RetVal = {Time/1000000,Value,mod_loc(Loc),Opts,Comment}, @@ -753,7 +762,7 @@ run_test_case_msgloop(Ref, Pid, CaptureStdout, Terminate, Comment, CurrConf) -> case mod_loc(Loc) of {FwMod,FwFunc,framework} -> %% timout during framework call - spawn_fw_call(FwMod,FwFunc,Pid, + spawn_fw_call(FwMod,FwFunc,CurrConf,Pid, {framework_error,{timetrap,TVal}}, unknown,self(),Comment), run_test_case_msgloop(Ref,Pid,CaptureStdout,Terminate, @@ -779,7 +788,8 @@ run_test_case_msgloop(Ref, Pid, CaptureStdout, Terminate, Comment, CurrConf) -> %% group leader process or io will cause deadlock, %% so we spawn a dedicated process for the operation %% and let the group leader go back to handle io. - spawn_fw_call(Mod,Func,Pid,{timetrap_timeout,TVal}, + spawn_fw_call(Mod,Func,CurrConf,Pid, + {timetrap_timeout,TVal}, Loc1,self(),Comment), undefined end, @@ -790,12 +800,13 @@ run_test_case_msgloop(Ref, Pid, CaptureStdout, Terminate, Comment, CurrConf) -> case mod_loc(Loc) of {FwMod,FwFunc,framework} -> %% timout during framework call - spawn_fw_call(FwMod,FwFunc,Pid, + spawn_fw_call(FwMod,FwFunc,CurrConf,Pid, {framework_error,{timetrap,TVal}}, unknown,self(),Comment); Loc1 -> {Mod,_Func} = get_mf(Loc1), - spawn_fw_call(Mod,InitOrEnd,Pid,{timetrap_timeout,TVal}, + spawn_fw_call(Mod,InitOrEnd,CurrConf,Pid, + {timetrap_timeout,TVal}, Loc1,self(),Comment) end, run_test_case_msgloop(Ref,Pid,CaptureStdout,Terminate,Comment,CurrConf); @@ -804,7 +815,7 @@ run_test_case_msgloop(Ref, Pid, CaptureStdout, Terminate, Comment, CurrConf) -> case mod_loc(AbortLoc) of {FwMod,FwFunc,framework} -> %% abort during framework call - spawn_fw_call(FwMod,FwFunc,Pid, + spawn_fw_call(FwMod,FwFunc,CurrConf,Pid, {framework_error,ErrorMsg}, unknown,self(),Comment), run_test_case_msgloop(Ref,Pid,CaptureStdout,Terminate, @@ -828,7 +839,7 @@ run_test_case_msgloop(Ref, Pid, CaptureStdout, Terminate, Comment, CurrConf) -> {EndConfPid,{Mod,Func},Conf}; _ -> {Mod,Func} = get_mf(Loc1), - spawn_fw_call(Mod,Func,Pid,ErrorMsg, + spawn_fw_call(Mod,Func,CurrConf,Pid,ErrorMsg, Loc1,self(),Comment), undefined end, @@ -839,17 +850,18 @@ run_test_case_msgloop(Ref, Pid, CaptureStdout, Terminate, Comment, CurrConf) -> %% result of an exit(TestCase,kill) call, which is the %% only way to abort a testcase process that traps exits %% (see abort_current_testcase) - spawn_fw_call(undefined,undefined,Pid,testcase_aborted_or_killed, + spawn_fw_call(undefined,undefined,CurrConf,Pid, + testcase_aborted_or_killed, unknown,self(),Comment), run_test_case_msgloop(Ref,Pid,CaptureStdout,Terminate,Comment,CurrConf); {fw_error,{FwMod,FwFunc,FwError}} -> - spawn_fw_call(FwMod,FwFunc,Pid,{framework_error,FwError}, + spawn_fw_call(FwMod,FwFunc,CurrConf,Pid,{framework_error,FwError}, unknown,self(),Comment), run_test_case_msgloop(Ref,Pid,CaptureStdout,Terminate,Comment,CurrConf); _Other -> %% the testcase has terminated because of Reason (e.g. an exit %% because a linked process failed) - spawn_fw_call(undefined,undefined,Pid,Reason, + spawn_fw_call(undefined,undefined,CurrConf,Pid,Reason, unknown,self(),Comment), run_test_case_msgloop(Ref,Pid,CaptureStdout,Terminate,Comment,CurrConf) end; @@ -857,7 +869,7 @@ run_test_case_msgloop(Ref, Pid, CaptureStdout, Terminate, Comment, CurrConf) -> case CurrConf of {EndConfPid,{Mod,Func},_Conf} -> {_Mod,_Func,TCPid,TCExitReason,Loc} = Data, - spawn_fw_call(Mod,Func,TCPid,TCExitReason,Loc,self(),Comment), + spawn_fw_call(Mod,Func,CurrConf,TCPid,TCExitReason,Loc,self(),Comment), run_test_case_msgloop(Ref,Pid,CaptureStdout,Terminate,Comment,undefined); _ -> run_test_case_msgloop(Ref,Pid,CaptureStdout,Terminate,Comment,CurrConf) @@ -928,7 +940,7 @@ call_end_conf(Mod,Func,TCPid,TCExitReason,Loc,Conf,TVal) -> ok end, Supervisor ! {self(),end_conf} - end, + end, Pid = spawn_link(EndConfApply), receive {Pid,end_conf} -> @@ -941,50 +953,72 @@ call_end_conf(Mod,Func,TCPid,TCExitReason,Loc,Conf,TVal) -> end, spawn_link(EndConfProc). -spawn_fw_call(Mod,{init_per_testcase,Func},Pid,{timetrap_timeout,TVal}=Why, +spawn_fw_call(Mod,{init_per_testcase,Func},_,Pid,{timetrap_timeout,TVal}=Why, Loc,SendTo,Comment) -> FwCall = fun() -> - Skip = {skip,{failed,{Mod,init_per_testcase,Why}}}, - %% if init_per_testcase fails, the test case - %% should be skipped - case catch do_end_tc_call(Mod,Func,{Pid,Skip,[[]]},Why) of - {'EXIT',FwEndTCErr} -> - exit({fw_notify_done,end_tc,FwEndTCErr}); - _ -> - ok - end, - %% finished, report back - SendTo ! {self(),fw_notify_done, - {TVal/1000,Skip,Loc,[],Comment}} + Skip = {skip,{failed,{Mod,init_per_testcase,Why}}}, + %% if init_per_testcase fails, the test case + %% should be skipped + case catch do_end_tc_call(Mod,Func, Loc, {Pid,Skip,[[]]}, Why) of + {'EXIT',FwEndTCErr} -> + exit({fw_notify_done,end_tc,FwEndTCErr}); + _ -> + ok + end, + %% finished, report back + SendTo ! {self(),fw_notify_done, + {TVal/1000,Skip,Loc,[],Comment}} end, spawn_link(FwCall); -spawn_fw_call(Mod,{end_per_testcase,Func},Pid,{timetrap_timeout,TVal}=Why, - Loc,SendTo,_Comment) -> +spawn_fw_call(Mod,{end_per_testcase,Func},EndConf,Pid, + {timetrap_timeout,TVal}=Why,_Loc,SendTo,Comment) -> + %%! This is a temporary fix that keeps Test Server alive during + %%! execution of a parallel test case group, when sometimes + %%! this clause gets called with EndConf == undefined. See OTP-9594 + %%! for more info. + EndConf1 = if EndConf == undefined -> + [{tc_status,{failed,{Mod,end_per_testcase,Why}}}]; + true -> + EndConf + end, FwCall = fun() -> - Conf = [{tc_status,ok}], - %% if end_per_testcase fails, the test case should be - %% reported successful with a warning printed as comment - case catch do_end_tc_call(Mod,Func,{Pid, - {failed,{Mod,end_per_testcase,Why}}, - [Conf]}, Why) of - {'EXIT',FwEndTCErr} -> - exit({fw_notify_done,end_tc,FwEndTCErr}); - _ -> - ok - end, - %% finished, report back - SendTo ! {self(),fw_notify_done, - {TVal/1000,{error,{Mod,end_per_testcase,Why}},Loc,[], - ["<font color=\"red\">" - "WARNING: end_per_testcase timed out!" - "</font>"]}} + {RetVal,Report} = + case proplists:get_value(tc_status, EndConf1) of + undefined -> + E = {failed,{Mod,end_per_testcase,Why}}, + {E,E}; + E = {failed,Reason} -> + {E,{error,Reason}}; + Result -> + E = {failed,{Mod,end_per_testcase,Why}}, + {Result,E} + end, + FailLoc = proplists:get_value(tc_fail_loc, EndConf1), + case catch do_end_tc_call(Mod,Func, FailLoc, + {Pid,Report,[EndConf1]}, Why) of + {'EXIT',FwEndTCErr} -> + exit({fw_notify_done,end_tc,FwEndTCErr}); + _ -> + ok + end, + %% if end_per_testcase fails a warning should be + %% printed as comment + Comment1 = if Comment == "" -> ""; + true -> Comment ++ "<br>" + end, + %% finished, report back + SendTo ! {self(),fw_notify_done, + {TVal/1000,RetVal,FailLoc,[], + [Comment1,"<font color=\"red\">" + "WARNING: end_per_testcase timed out!" + "</font>"]}} end, spawn_link(FwCall); -spawn_fw_call(FwMod,FwFunc,_Pid,{framework_error,FwError},_,SendTo,_Comment) -> +spawn_fw_call(FwMod,FwFunc,_,_Pid,{framework_error,FwError},_,SendTo,_Comment) -> FwCall = fun() -> test_server_sup:framework_call(report, [framework_error, @@ -999,7 +1033,7 @@ spawn_fw_call(FwMod,FwFunc,_Pid,{framework_error,FwError},_,SendTo,_Comment) -> end, spawn_link(FwCall); -spawn_fw_call(Mod,Func,Pid,Error,Loc,SendTo,Comment) -> +spawn_fw_call(Mod,Func,_,Pid,Error,Loc,SendTo,Comment) -> FwCall = fun() -> case catch fw_error_notify(Mod,Func,[], @@ -1011,7 +1045,8 @@ spawn_fw_call(Mod,Func,Pid,Error,Loc,SendTo,Comment) -> ok end, Conf = [{tc_status,{failed,timetrap_timeout}}], - case catch do_end_tc_call(Mod,Func,{Pid,Error,[Conf]},Error) of + case catch do_end_tc_call(Mod,Func, Loc, + {Pid,Error,[Conf]},Error) of {'EXIT',FwEndTCErr} -> exit({fw_notify_done,end_tc,FwEndTCErr}); _ -> @@ -1072,8 +1107,9 @@ job_proxy_msgloop() -> %% or sends a message {failed, File, Line} to it's group_leader run_test_case_eval(Mod, Func, Args0, Name, Ref, RunInit, - TimetrapData, TCCallback) -> - put(test_server_multiply_timetraps,TimetrapData), + TimetrapData, LogOpts, TCCallback) -> + put(test_server_multiply_timetraps, TimetrapData), + put(test_server_logopts, LogOpts), {{Time,Value},Loc,Opts} = case test_server_sup:framework_call(init_tc,[?pl2a(Mod),Func,Args0], @@ -1081,22 +1117,26 @@ run_test_case_eval(Mod, Func, Args0, Name, Ref, RunInit, {ok,Args} -> run_test_case_eval1(Mod, Func, Args, Name, RunInit, TCCallback); Error = {error,_Reason} -> - NewResult = do_end_tc_call(Mod,Func,{Error,Args0}, + Where = {Mod,Func}, + NewResult = do_end_tc_call(Mod,Func, Where, {Error,Args0}, {skip,{failed,Error}}), - {{0,NewResult},{Mod,Func},[]}; + {{0,NewResult},Where,[]}; {fail,Reason} -> Conf = [{tc_status,{failed,Reason}} | hd(Args0)], + Where = {Mod,Func}, fw_error_notify(Mod, Func, Conf, Reason), - NewResult = do_end_tc_call(Mod,Func, {{error,Reason},[Conf]}, + NewResult = do_end_tc_call(Mod,Func, Where, {{error,Reason},[Conf]}, {fail,Reason}), - {{0,NewResult},{Mod,Func},[]}; + {{0,NewResult},Where,[]}; Skip = {skip,_Reason} -> - NewResult = do_end_tc_call(Mod,Func,{Skip,Args0},Skip), - {{0,NewResult},{Mod,Func},[]}; + Where = {Mod,Func}, + NewResult = do_end_tc_call(Mod,Func, Where, {Skip,Args0}, Skip), + {{0,NewResult},Where,[]}; {auto_skip,Reason} -> - NewResult = do_end_tc_call(Mod, Func, {{skip,Reason},Args0}, + Where = {Mod,Func}, + NewResult = do_end_tc_call(Mod,Func, Where, {{skip,Reason},Args0}, {skip,{fw_auto_skip,Reason}}), - {{0,NewResult},{Mod,Func},[]} + {{0,NewResult},Where,[]} end, exit({Ref,Time,Value,Loc,Opts}). @@ -1110,18 +1150,19 @@ run_test_case_eval1(Mod, Func, Args, Name, RunInit, TCCallback) -> Skip = {skip,Reason} -> Line = get_loc(), Conf = [{tc_status,{skipped,Reason}}], - NewRes = do_end_tc_call(Mod,Func,{Skip,[Conf]}, Skip), + NewRes = do_end_tc_call(Mod,Func, Line, {Skip,[Conf]}, Skip), {{0,NewRes},Line,[]}; {skip_and_save,Reason,SaveCfg} -> Line = get_loc(), Conf = [{tc_status,{skipped,Reason}},{save_config,SaveCfg}], - NewRes = do_end_tc_call(Mod, Func, {{skip,Reason},[Conf]}, - {skip, Reason}), + NewRes = do_end_tc_call(Mod,Func, Line, {{skip,Reason},[Conf]}, + {skip,Reason}), {{0,NewRes},Line,[]}; FailTC = {fail,Reason} -> % user fails the testcase EndConf = [{tc_status,{failed,Reason}} | hd(Args)], fw_error_notify(Mod, Func, EndConf, Reason), - NewRes = do_end_tc_call(Mod, Func, {{error,Reason},[EndConf]}, + NewRes = do_end_tc_call(Mod,Func, {Mod,Func}, + {{error,Reason},[EndConf]}, FailTC), {{0,NewRes},{Mod,Func},[]}; {ok,NewConf} -> @@ -1129,47 +1170,61 @@ run_test_case_eval1(Mod, Func, Args, Name, RunInit, TCCallback) -> %% call user callback function if defined NewConf1 = user_callback(TCCallback, Mod, Func, init, NewConf), %% save current state in controller loop - group_leader() ! {set_curr_conf,{{Mod,Func},NewConf1}}, + sync_send(group_leader(),set_curr_conf,{{Mod,Func},NewConf1}, + 5000, fun() -> exit(no_answer_from_group_leader) end), put(test_server_loc, {Mod,Func}), %% execute the test case {{T,Return},Loc} = {ts_tc(Mod, Func, [NewConf1]),get_loc()}, {EndConf,TSReturn,FWReturn} = case Return of {E,TCError} when E=='EXIT' ; E==failed -> + ModLoc = mod_loc(Loc), fw_error_notify(Mod, Func, NewConf1, - TCError, mod_loc(Loc)), - {[{tc_status,{failed,TCError}}|NewConf1], + TCError, ModLoc), + {[{tc_status,{failed,TCError}}, + {tc_fail_loc,ModLoc}|NewConf1], Return,{error,TCError}}; SaveCfg={save_config,_} -> {[{tc_status,ok},SaveCfg|NewConf1],Return,ok}; {skip_and_save,Why,SaveCfg} -> Skip = {skip,Why}, - {[{tc_status,{skipped,Why}},{save_config,SaveCfg}|NewConf1], + {[{tc_status,{skipped,Why}}, + {save_config,SaveCfg}|NewConf1], Skip,Skip}; {skip,Why} -> {[{tc_status,{skipped,Why}}|NewConf1],Return,Return}; _ -> {[{tc_status,ok}|NewConf1],Return,ok} end, - %% clear current state in controller loop - group_leader() ! {set_curr_conf,undefined}, %% call user callback function if defined EndConf1 = user_callback(TCCallback, Mod, Func, 'end', EndConf), + %% update current state in controller loop + sync_send(group_leader(),set_curr_conf,EndConf1, + 5000, fun() -> exit(no_answer_from_group_leader) end), {FWReturn1,TSReturn1,EndConf2} = case end_per_testcase(Mod, Func, EndConf1) of SaveCfg1={save_config,_} -> {FWReturn,TSReturn,[SaveCfg1|lists:keydelete(save_config,1, EndConf1)]}; - {fail,ReasonToFail} -> % user has failed the testcase + {fail,ReasonToFail} -> + %% user has failed the testcase fw_error_notify(Mod, Func, EndConf1, ReasonToFail), {{error,ReasonToFail},{failed,ReasonToFail},EndConf1}; - {failed,{_,end_per_testcase,_}} = Failure -> % unexpected termination + {failed,{_,end_per_testcase,_}} = Failure when FWReturn == ok -> + %% unexpected termination in end_per_testcase + %% report this as the result to the framework {Failure,TSReturn,EndConf1}; _ -> + %% test case result should be reported to framework + %% no matter the status of end_per_testcase {FWReturn,TSReturn,EndConf1} end, + %% clear current state in controller loop + sync_send(group_leader(),set_curr_conf,undefined, + 5000, fun() -> exit(no_answer_from_group_leader) end), put(test_server_init_or_end_conf,undefined), - case do_end_tc_call(Mod, Func, {FWReturn1,[EndConf2]}, TSReturn1) of + case do_end_tc_call(Mod,Func, Loc, + {FWReturn1,[EndConf2]}, TSReturn1) of {failed,Reason} = NewReturn -> fw_error_notify(Mod,Func,EndConf2, Reason), {{T,NewReturn},{Mod,Func},[]}; @@ -1193,18 +1248,43 @@ run_test_case_eval1(Mod, Func, Args, Name, RunInit, TCCallback) -> %% call user callback function if defined Return1 = user_callback(TCCallback, Mod, Func, 'end', Return), {Return2,Opts} = process_return_val([Return1], Mod, Func, - Args1, Loc, Return1), + Args1, {Mod,Func}, Return1), {{T,Return2},Loc,Opts} end. -do_end_tc_call(M,F,Res,Return) -> +do_end_tc_call(M,F, Loc, Res, Return) -> + FwMod = os:getenv("TEST_SERVER_FRAMEWORK"), + {Mod,Func} = + if FwMod == M ; FwMod == "undefined"; FwMod == false -> + {M,F}; + is_list(Loc) and (length(Loc)>1) -> + %% If failure in other module (M) than suite, try locate + %% suite name in Loc list and call end_tc with Suite:TestCase + %% instead of M:F. + GetSuite = fun(S,TC) -> + case lists:reverse(atom_to_list(S)) of + [$E,$T,$I,$U,$S,$_|_] -> [{S,TC}]; + _ -> [] + end + end, + case lists:flatmap(fun({S,TC,_}) -> GetSuite(S,TC); + ({{S,TC},_}) -> GetSuite(S,TC); + ({S,TC}) -> GetSuite(S,TC); + (_) -> [] + end, Loc) of + [] -> + {M,F}; + [FoundSuite|_] -> + FoundSuite + end; + true -> + {M,F} + end, + Ref = make_ref(), - case os:getenv("TEST_SERVER_FRAMEWORK") of - FW when FW == "ct_framework"; - FW == "undefined"; - FW == false -> + if FwMod == "ct_framework" ; FwMod == "undefined"; FwMod == false -> case test_server_sup:framework_call( - end_tc, [?pl2a(M),F,Res, Return], ok) of + end_tc, [?pl2a(Mod),Func,Res, Return], ok) of {fail,FWReason} -> {failed,FWReason}; ok -> @@ -1217,9 +1297,9 @@ do_end_tc_call(M,F,Res,Return) -> NewReturn -> NewReturn end; - Other -> - case test_server_sup:framework_call( - end_tc, [Other,F,Res], Ref) of + true -> + case test_server_sup:framework_call(FwMod, end_tc, + [?pl2a(Mod),Func,Res], Ref) of {fail,FWReason} -> {failed,FWReason}; _Else -> @@ -1242,7 +1322,7 @@ process_return_val([Return], M,F,A, Loc, Final) when is_list(Return) -> true -> % must be return value from end conf case process_return_val1(Return, M,F,A, Loc, Final, []); false -> % must be Config value from init conf case - case do_end_tc_call(M,F,{ok,A}, Return) of + case do_end_tc_call(M, F, Loc, {ok,A}, Return) of {failed, FWReason} = Failed -> fw_error_notify(M,F,A, FWReason), {Failed, []}; @@ -1259,8 +1339,9 @@ process_return_val1([Failed={E,TCError}|_], M,F,A=[Args], Loc, _, SaveOpts) when E=='EXIT'; E==failed -> fw_error_notify(M,F,A, TCError, mod_loc(Loc)), - case do_end_tc_call(M,F,{{error,TCError}, - [[{tc_status,{failed,TCError}}|Args]]}, Failed) of + case do_end_tc_call(M,F, Loc, {{error,TCError}, + [[{tc_status,{failed,TCError}}|Args]]}, + Failed) of {failed,FWReason} -> {{failed,FWReason},SaveOpts}; NewReturn -> @@ -1277,8 +1358,8 @@ process_return_val1([RetVal={Tag,_}|Opts], M,F,A, Loc, _, SaveOpts) when Tag==sk process_return_val1(Opts, M,F,A, Loc, RetVal, SaveOpts); process_return_val1([_|Opts], M,F,A, Loc, Final, SaveOpts) -> process_return_val1(Opts, M,F,A, Loc, Final, SaveOpts); -process_return_val1([], M,F,A, _Loc, Final, SaveOpts) -> - case do_end_tc_call(M,F,{Final,A}, Final) of +process_return_val1([], M,F,A, Loc, Final, SaveOpts) -> + case do_end_tc_call(M,F, Loc, {Final,A}, Final) of {failed,FWReason} -> {{failed,FWReason},SaveOpts}; NewReturn -> @@ -1389,10 +1470,14 @@ do_end_per_testcase(Mod,EndFunc,Func,Conf) -> ok catch throw:Other -> + Comment0 = case read_comment() of + "" -> ""; + Cmt -> Cmt ++ "<br>" + end, set_loc(erlang:get_stacktrace()), - comment(io_lib:format("<font color=\"red\">" + comment(io_lib:format("~s<font color=\"red\">" "WARNING: ~w thrown!" - "</font>\n",[EndFunc])), + "</font>\n",[Comment0,EndFunc])), group_leader() ! {printout,12, "WARNING: ~w thrown!\n" "Reason: ~p\n" @@ -1408,9 +1493,13 @@ do_end_per_testcase(Mod,EndFunc,Func,Conf) -> exit -> {'EXIT',Reason}; error -> {'EXIT',{Reason,Stk}} end, - comment(io_lib:format("<font color=\"red\">" + Comment0 = case read_comment() of + "" -> ""; + Cmt -> Cmt ++ "<br>" + end, + comment(io_lib:format("~s<font color=\"red\">" "WARNING: ~w crashed!" - "</font>\n",[EndFunc])), + "</font>\n",[Comment0,EndFunc])), group_leader() ! {printout,12, "WARNING: ~w crashed!\n" "Reason: ~p\n" @@ -1716,7 +1805,16 @@ adjusted_sleep(MSecs) -> %% to read when using this function, rather than exit directly. fail(Reason) -> comment(cast_to_list(Reason)), - exit({suite_failed,Reason}). + try + exit({suite_failed,Reason}) + catch + Class:R -> + case erlang:get_stacktrace() of + [{?MODULE,fail,1,_}|Stk] -> ok; + Stk -> ok + end, + erlang:raise(Class, R, Stk) + end. cast_to_list(X) when is_list(X) -> X; cast_to_list(X) when is_atom(X) -> atom_to_list(X); @@ -1730,7 +1828,16 @@ cast_to_list(X) -> lists:flatten(io_lib:format("~p", [X])). %% Immediately calls exit. Included because test suites are easier %% to read when using this function, rather than exit directly. fail() -> - exit(suite_failed). + try + exit(suite_failed) + catch + Class:R -> + case erlang:get_stacktrace() of + [{?MODULE,fail,0,_}|Stk] -> ok; + Stk -> ok + end, + erlang:raise(Class, R, Stk) + end. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% break(Comment) -> ok @@ -1882,11 +1989,54 @@ time_ms({seconds,N}) -> seconds(N); time_ms({Other,_N}) -> format("=== ERROR: Invalid time specification: ~p. " "Should be seconds, minutes, or hours.~n", [Other]), - exit({invalid_time_spec,Other}); + exit({invalid_time_format,Other}); time_ms(Ms) when is_integer(Ms) -> Ms; time_ms(infinity) -> infinity; -time_ms(Other) -> exit({invalid_time_spec,Other}). +time_ms(Fun) when is_function(Fun) -> + time_ms_apply(Fun); +time_ms({M,F,A}=MFA) when is_atom(M), is_atom(F), is_list(A) -> + time_ms_apply(MFA); +time_ms(Other) -> exit({invalid_time_format,Other}). + +time_ms_apply(Func) -> + time_ms_apply(Func, [5000,30000,60000,infinity]). + +time_ms_apply(Func, TOs) -> + Apply = fun() -> + case Func of + {M,F,A} -> + exit({self(),apply(M, F, A)}); + Fun -> + exit({self(),Fun()}) + end + end, + Pid = spawn(Apply), + Ref = monitor(process, Pid), + time_ms_wait(Func, Pid, Ref, TOs). +time_ms_wait(Func, Pid, Ref, [TO|TOs]) -> + receive + {'DOWN',Ref,process,Pid,{Pid,Result}} -> + time_ms_check(Result); + {'DOWN',Ref,process,Pid,Error} -> + exit({timetrap_error,Error}) + after + TO -> + format("=== WARNING: No return from timetrap function ~p~n", [Func]), + time_ms_wait(Func, Pid, Ref, TOs) + end; +%% this clause will never execute if 'infinity' is in TOs list, that's ok! +time_ms_wait(Func, Pid, Ref, []) -> + demonitor(Ref), + exit(Pid, kill), + exit({timetrap_error,{no_return_from_timetrap_function,Func}}). + +time_ms_check(MFA = {M,F,A}) when is_atom(M), is_atom(F), is_list(A) -> + exit({invalid_time_format,MFA}); +time_ms_check(Fun) when is_function(Fun) -> + exit({invalid_time_format,Fun}); +time_ms_check(Other) -> + time_ms(Other). %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% timetrap_cancel(Handle) -> ok @@ -1934,6 +2084,19 @@ hours(N) -> trunc(N * 1000 * 60 * 60). minutes(N) -> trunc(N * 1000 * 60). seconds(N) -> trunc(N * 1000). + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%% sync_send(Pid,Tag,Msg,Timeout,DoAfter) -> Result +%% +sync_send(Pid,Tag,Msg,Timeout,DoAfter) -> + Pid ! {Tag,self(),Msg}, + receive + {Pid,Tag,Result} -> + Result + after Timeout -> + DoAfter() + end. + %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% timecall(M,F,A) -> {Time,Val} %% Time = float() @@ -2320,6 +2483,21 @@ comment(String) -> group_leader() ! {comment,String}, ok. +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%% read_comment() -> string() +%% +%% Read the current comment string stored in +%% state during test case execution. +read_comment() -> + MsgLooper = group_leader(), + MsgLooper ! {read_comment,self()}, + receive + {MsgLooper,read_comment,Comment} -> + Comment + after + 5000 -> + "" + end. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% os_type() -> OsType diff --git a/lib/test_server/src/test_server_ctrl.erl b/lib/test_server/src/test_server_ctrl.erl index de9b962dfc..4fad86d16d 100644 --- a/lib/test_server/src/test_server_ctrl.erl +++ b/lib/test_server/src/test_server_ctrl.erl @@ -173,7 +173,7 @@ %%% TEST_SERVER INTERFACE %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -export([output/2, print/2, print/3, print_timestamp/2]). -export([start_node/3, stop_node/1, wait_for_node/1, is_release_available/1]). --export([format/1, format/2, format/3]). +-export([format/1, format/2, format/3, to_string/1]). -export([get_target_info/0]). -export([get_hosts/0]). -export([get_target_os_type/0]). @@ -1297,6 +1297,7 @@ terminate(_Reason, State) -> end, kill_all_jobs(State#state.jobs), test_server_node:stop(State#state.target_info), + test_server_h:restore(), ok. kill_all_jobs([{_Name,JobPid}|Jobs]) -> @@ -1349,6 +1350,10 @@ init_tester(Mod, Func, Args, Dir, Name, {SumLev,MajLev,MinLev}, put(test_server_minor_level, MinLev), put(test_server_random_seed, proplists:get_value(random_seed, ExtraTools)), put(test_server_testcase_callback, TCCallback), + %% before first print, read and set logging options + LogOpts = test_server_sup:framework_call(get_logopts, [], []), + put(test_server_logopts, LogOpts), + put(test_server_log_nl, not lists:member(no_nl, LogOpts)), StartedExtraTools = start_extra_tools(ExtraTools), {TimeMy,Result} = ts_tc(Mod, Func, Args), put(test_server_common_io_handler, undefined), @@ -1664,6 +1669,11 @@ do_test_cases(TopCases, SkipCases, Config, TimetrapData) when is_list(TopCases), is_tuple(TimetrapData) -> start_log_file(), + FwMod = + case os:getenv("TEST_SERVER_FRAMEWORK") of + FW when FW =:= false; FW =:= "undefined" -> ?MODULE; + FW -> list_to_atom(FW) + end, case collect_all_cases(TopCases, SkipCases) of {error,Why} -> print(1, "Error starting: ~p", [Why]), @@ -1676,11 +1686,11 @@ do_test_cases(TopCases, SkipCases, put(test_server_cases, N), put(test_server_case_num, 0), TestSpec = - add_init_and_end_per_suite(TestSpec0, undefined, undefined), - + add_init_and_end_per_suite(TestSpec0, undefined, undefined, FwMod), TI = get_target_info(), - print(1, "Starting test~s", [print_if_known(N, {", ~w test cases",[N]}, - {" (with repeated test cases)",[]})]), + print(1, "Starting test~s", + [print_if_known(N, {", ~w test cases",[N]}, + {" (with repeated test cases)",[]})]), Test = get(test_server_name), test_server_sup:framework_call(report, [tests_start,{Test,N}]), @@ -1709,13 +1719,12 @@ do_test_cases(TopCases, SkipCases, print(html, "<br>Used Erlang ~s in <tt>~s</tt>.\n", [erlang:system_info(version), code:root_dir()]), - case os:getenv("TEST_SERVER_FRAMEWORK") of - FW when FW =:= false; FW =:= "undefined" -> + if FwMod == ?MODULE -> print(html, "<p>Target:<br>\n"), print_who(TI#target_info.host, TI#target_info.username), print(html, "<br>Used Erlang ~s in <tt>~s</tt>.\n", [TI#target_info.version, TI#target_info.root_dir]); - _ -> + true -> case test_server_sup:framework_call(target_info, []) of TargetInfo when is_list(TargetInfo), length(TargetInfo) > 0 -> @@ -1884,11 +1893,12 @@ start_minor_log_file1(Mod, Func, LogDir, AbsName) -> []), SrcListing = downcase(cast_to_list(Mod)) ++ ?src_listing_ext, - case filelib:is_file(filename:join(LogDir, SrcListing)) of - true -> + case {filelib:is_file(filename:join(LogDir, SrcListing)), + lists:member(no_src, get(test_server_logopts))} of + {true,false} -> print(Lev, "<a href=\"~s#~s\">source code for ~p:~p/1</a>\n", [SrcListing,Func,Mod,Func]); - false -> ok + _ -> ok end, io:fwrite(Fd, "<pre>\n", []), @@ -2005,54 +2015,69 @@ copy_html_file(Src, DestDir) -> end. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% add_init_and_end_per_suite(TestSpec, Mod, Ref) -> NewTestSpec +%% add_init_and_end_per_suite(TestSpec, Mod, Ref, FwMod) -> NewTestSpec %% %% Expands TestSpec with an initial init_per_suite, and a final %% end_per_suite element, per each discovered suite in the list. -add_init_and_end_per_suite([{make,_,_}=Case|Cases], LastMod, LastRef) -> - [Case|add_init_and_end_per_suite(Cases, LastMod, LastRef)]; -add_init_and_end_per_suite([{skip_case,{{Mod,all},_}}=Case|Cases], LastMod, LastRef) - when Mod =/= LastMod -> +add_init_and_end_per_suite([{make,_,_}=Case|Cases], LastMod, LastRef, FwMod) -> + [Case|add_init_and_end_per_suite(Cases, LastMod, LastRef, FwMod)]; +add_init_and_end_per_suite([{skip_case,{{Mod,all},_}}=Case|Cases], LastMod, + LastRef, FwMod) when Mod =/= LastMod -> {PreCases, NextMod, NextRef} = do_add_end_per_suite_and_skip(LastMod, LastRef, Mod), - PreCases ++ [Case|add_init_and_end_per_suite(Cases, NextMod, NextRef)]; -add_init_and_end_per_suite([{skip_case,{{Mod,_},_}}=Case|Cases], LastMod, LastRef) - when Mod =/= LastMod -> + PreCases ++ [Case|add_init_and_end_per_suite(Cases, NextMod, NextRef, FwMod)]; +add_init_and_end_per_suite([{skip_case,{{Mod,_},_}}=Case|Cases], LastMod, + LastRef, FwMod) when Mod =/= LastMod -> {PreCases, NextMod, NextRef} = do_add_init_and_end_per_suite(LastMod, LastRef, Mod), - PreCases ++ [Case|add_init_and_end_per_suite(Cases, NextMod, NextRef)]; -add_init_and_end_per_suite([{skip_case,{conf,_,{Mod,_},_}}=Case|Cases], LastMod, LastRef) - when Mod =/= LastMod -> + PreCases ++ [Case|add_init_and_end_per_suite(Cases, NextMod, NextRef, FwMod)]; +add_init_and_end_per_suite([{skip_case,{conf,_,{Mod,_},_}}=Case|Cases], LastMod, + LastRef, FwMod) when Mod =/= LastMod -> {PreCases, NextMod, NextRef} = do_add_init_and_end_per_suite(LastMod, LastRef, Mod), - PreCases ++ [Case|add_init_and_end_per_suite(Cases, NextMod, NextRef)]; -add_init_and_end_per_suite([{skip_case,_}=Case|Cases], LastMod, LastRef) -> - [Case|add_init_and_end_per_suite(Cases, LastMod, LastRef)]; -add_init_and_end_per_suite([{conf,_,_,{Mod,_}}=Case|Cases], LastMod, LastRef) - when Mod =/= LastMod -> + PreCases ++ [Case|add_init_and_end_per_suite(Cases, NextMod, NextRef, FwMod)]; +add_init_and_end_per_suite([{skip_case,_}=Case|Cases], LastMod, LastRef, FwMod) -> + [Case|add_init_and_end_per_suite(Cases, LastMod, LastRef, FwMod)]; +add_init_and_end_per_suite([{conf,Ref,Props,{FwMod,Func}}=Case|Cases], LastMod, + LastRef, FwMod) -> + %% if Mod == FwMod, this conf test is (probably) a test case group where + %% the init- and end-functions are missing in the suite, and if so, + %% the suite name should be stored as {suite,Suite} in Props + case proplists:get_value(suite, Props) of + Suite when Suite =/= undefined, Suite =/= LastMod -> + {PreCases, NextMod, NextRef} = + do_add_init_and_end_per_suite(LastMod, LastRef, Suite), + Case1 = {conf,Ref,proplists:delete(suite,Props),{FwMod,Func}}, + PreCases ++ [Case1|add_init_and_end_per_suite(Cases, NextMod, + NextRef, FwMod)]; + _ -> + [Case|add_init_and_end_per_suite(Cases, LastMod, LastRef, FwMod)] + end; +add_init_and_end_per_suite([{conf,_,_,{Mod,_}}=Case|Cases], LastMod, + LastRef, FwMod) when Mod =/= LastMod, Mod =/= FwMod -> {PreCases, NextMod, NextRef} = do_add_init_and_end_per_suite(LastMod, LastRef, Mod), - PreCases ++ [Case|add_init_and_end_per_suite(Cases, NextMod, NextRef)]; -add_init_and_end_per_suite([{conf,_,_,_}=Case|Cases], LastMod, LastRef) -> - [Case|add_init_and_end_per_suite(Cases, LastMod, LastRef)]; -add_init_and_end_per_suite([{Mod,_}=Case|Cases], LastMod, LastRef) - when Mod =/= LastMod -> + PreCases ++ [Case|add_init_and_end_per_suite(Cases, NextMod, NextRef, FwMod)]; +add_init_and_end_per_suite([{conf,_,_,_}=Case|Cases], LastMod, LastRef, FwMod) -> + [Case|add_init_and_end_per_suite(Cases, LastMod, LastRef, FwMod)]; +add_init_and_end_per_suite([{Mod,_}=Case|Cases], LastMod, LastRef, FwMod) + when Mod =/= LastMod, Mod =/= FwMod -> {PreCases, NextMod, NextRef} = do_add_init_and_end_per_suite(LastMod, LastRef, Mod), - PreCases ++ [Case|add_init_and_end_per_suite(Cases, NextMod, NextRef)]; -add_init_and_end_per_suite([{Mod,_,_}=Case|Cases], LastMod, LastRef) - when Mod =/= LastMod -> + PreCases ++ [Case|add_init_and_end_per_suite(Cases, NextMod, NextRef, FwMod)]; +add_init_and_end_per_suite([{Mod,_,_}=Case|Cases], LastMod, LastRef, FwMod) + when Mod =/= LastMod, Mod =/= FwMod -> {PreCases, NextMod, NextRef} = do_add_init_and_end_per_suite(LastMod, LastRef, Mod), - PreCases ++ [Case|add_init_and_end_per_suite(Cases, NextMod, NextRef)]; -add_init_and_end_per_suite([Case|Cases], LastMod, LastRef)-> - [Case|add_init_and_end_per_suite(Cases, LastMod, LastRef)]; -add_init_and_end_per_suite([], _LastMod, undefined) -> + PreCases ++ [Case|add_init_and_end_per_suite(Cases, NextMod, NextRef, FwMod)]; +add_init_and_end_per_suite([Case|Cases], LastMod, LastRef, FwMod)-> + [Case|add_init_and_end_per_suite(Cases, LastMod, LastRef, FwMod)]; +add_init_and_end_per_suite([], _LastMod, undefined, _FwMod) -> []; -add_init_and_end_per_suite([], _LastMod, skipped_suite) -> +add_init_and_end_per_suite([], _LastMod, skipped_suite, _FwMod) -> []; -add_init_and_end_per_suite([], LastMod, LastRef) -> +add_init_and_end_per_suite([], LastMod, LastRef, _FwMod) -> [{conf,LastRef,[],{LastMod,end_per_suite}}]. do_add_init_and_end_per_suite(LastMod, LastRef, Mod) -> @@ -2101,7 +2126,12 @@ run_test_cases(TestSpec, Config, TimetrapData) -> maybe_open_job_sock(), - html_convert_modules(TestSpec, Config), + case lists:member(no_src, get(test_server_logopts)) of + true -> + ok; + false -> + html_convert_modules(TestSpec, Config) + end, run_test_cases_loop(TestSpec, [Config], TimetrapData, [], []), @@ -2310,7 +2340,8 @@ run_test_cases_loop([{auto_skip_case,{Type,Ref,Case,Comment},SkipMode}|Cases], handle_test_case_io_and_status(), set_io_buffering(undefined), {Mod,Func} = skip_case(auto, Ref, 0, Case, Comment, false, SkipMode), - test_server_sup:framework_call(report, [tc_auto_skip,{?pl2a(Mod),Func,Comment}]), + test_server_sup:framework_call(report, [tc_auto_skip, + {?pl2a(Mod),Func,Comment}]), run_test_cases_loop(Cases, Config, TimetrapData, ParentMode, delete_status(Ref, Status)); _ -> @@ -2318,7 +2349,8 @@ run_test_cases_loop([{auto_skip_case,{Type,Ref,Case,Comment},SkipMode}|Cases], %% parallel group (io buffering is active) wait_for_cases(Ref), {Mod,Func} = skip_case(auto, Ref, 0, Case, Comment, true, SkipMode), - test_server_sup:framework_call(report, [tc_auto_skip,{?pl2a(Mod),Func,Comment}]), + test_server_sup:framework_call(report, [tc_auto_skip, + {?pl2a(Mod),Func,Comment}]), case CurrIOHandler of {Ref,_} -> %% current_io_handler was set by start conf of this @@ -3959,8 +3991,11 @@ progress(ok, _CaseNum, Mod, Func, _Loc, RetVal, Time, case RetVal of {comment,RetComment} -> String = to_string(RetComment), + HtmlCmt = test_server_sup:framework_call(format_comment, + [String], + String), print(major, "=result ok: ~s", [String]), - "<td>" ++ String ++ "</td>"; + "<td>" ++ HtmlCmt ++ "</td>"; _ -> print(major, "=result ok", []), case Comment0 of @@ -4345,14 +4380,18 @@ output_to_fd(Fd, [$=|Msg], internal) -> io:put_chars(Fd, [$=]), io:put_chars(Fd, Msg), io:put_chars(Fd, "\n"); + output_to_fd(Fd, Msg, internal) -> io:put_chars(Fd, [$=,$=,$=,$ ]), io:put_chars(Fd, Msg), io:put_chars(Fd, "\n"); + output_to_fd(Fd, Msg, _Sender) -> io:put_chars(Fd, Msg), - io:put_chars(Fd, "\n"). - + case get(test_server_log_nl) of + false -> ok; + _ -> io:put_chars(Fd, "\n") + end. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% timestamp_filename_get(Leader) -> string() @@ -4665,7 +4704,7 @@ collect_case_invoke(Mod, Case, MFA, St) -> collect_subcases(Mod, Case, MFA, St, Suite) end; _ -> - Suite = test_server_sup:framework_call(get_suite, [?pl2a(Mod),Case],[]), + Suite = test_server_sup:framework_call(get_suite, [?pl2a(Mod),Case], []), collect_subcases(Mod, Case, MFA, St, Suite) end. @@ -4674,13 +4713,13 @@ collect_subcases(Mod, Case, MFA, St, Suite) -> [] when Case == all -> {ok,[],St}; [] when element(1, Case) == conf -> {ok,[],St}; [] -> {ok,[MFA],St}; -%%%! --- START Kept for backwards compatibilty --- +%%%! --- START Kept for backwards compatibility --- %%%! Requirements are not used {req,ReqList} -> collect_case_deny(Mod, Case, MFA, ReqList, [], St); {req,ReqList,SubCases} -> collect_case_deny(Mod, Case, MFA, ReqList, SubCases, St); -%%%! --- END Kept for backwards compatibilty --- +%%%! --- END Kept for backwards compatibility --- {Skip,Reason} when Skip==skip; Skip==skipped -> {ok,[{skip_case,{MFA,Reason}}],St}; {error,Reason} -> diff --git a/lib/test_server/src/test_server_sup.erl b/lib/test_server/src/test_server_sup.erl index ec9be52bd3..875f45eea6 100644 --- a/lib/test_server/src/test_server_sup.erl +++ b/lib/test_server/src/test_server_sup.erl @@ -26,7 +26,7 @@ cleanup_crash_dumps/0, crash_dump_dir/0, tar_crash_dumps/0, get_username/0, get_os_family/0, hostatom/0, hostatom/1, hoststr/0, hoststr/1, - framework_call/2,framework_call/3, + framework_call/2,framework_call/3,framework_call/4, format_loc/1, package_str/1, package_atom/1, call_trace/1]). -include("test_server_internal.hrl"). @@ -541,8 +541,9 @@ format_loc({Mod,Func}) when is_atom(Func) -> format_loc({Mod,Line}) when is_integer(Line) -> %% ?line macro is used ModStr = package_str(Mod), - case lists:reverse(ModStr) of - [$E,$T,$I,$U,$S,$_|_] -> + case {lists:member(no_src, get(test_server_logopts)), + lists:reverse(ModStr)} of + {false,[$E,$T,$I,$U,$S,$_|_]} -> io_lib:format("{~s,<a href=\"~s~s#~w\">~w</a>}", [ModStr,downcase(ModStr),?src_listing_ext, round_to_10(Line),Line]); @@ -558,8 +559,9 @@ format_loc1([{Mod,Func,Line}|Rest]) -> [" ",format_loc1({Mod,Func,Line}),",\n"|format_loc1(Rest)]; format_loc1({Mod,Func,Line}) -> ModStr = package_str(Mod), - case lists:reverse(ModStr) of - [$E,$T,$I,$U,$S,$_|_] -> + case {lists:member(no_src, get(test_server_logopts)), + lists:reverse(ModStr)} of + {false,[$E,$T,$I,$U,$S,$_|_]} -> io_lib:format("{~s,~w,<a href=\"~s~s#~w\">~w</a>}", [ModStr,Func,downcase(ModStr),?src_listing_ext, round_to_10(Line),Line]); diff --git a/lib/test_server/src/ts.config b/lib/test_server/src/ts.config index f021f5958b..cf3d269616 100644 --- a/lib/test_server/src/ts.config +++ b/lib/test_server/src/ts.config @@ -12,7 +12,7 @@ % "10.10.0.1", %IP string % {10,10,0,1}, %IP tuple % ["my_ip4_host"], %Any aliases -% "::ffff:10.10.0.1", %IPv6 string (compatibilty addr) +% "::ffff:10.10.0.1", %IPv6 string (compatibility addr) % {0,0,0,0,0,65535,2570,1} %IPv6 tuple % }}. diff --git a/lib/test_server/src/ts_erl_config.erl b/lib/test_server/src/ts_erl_config.erl index 640c8ddc9f..3b41f90d55 100644 --- a/lib/test_server/src/ts_erl_config.erl +++ b/lib/test_server/src/ts_erl_config.erl @@ -222,7 +222,6 @@ erl_interface(Vars,OsType) -> end, CrossCompile = case OsType of vxworks -> "true"; - ose -> "true"; _ -> "false" end, [{erl_interface_libpath, filename:nativename(LibPath)}, @@ -329,8 +328,6 @@ sock_libraries({win32, _}) -> sock_libraries({unix, _}) -> ""; % Included in general libraries if needed. sock_libraries(vxworks) -> - ""; -sock_libraries(ose) -> "". link_library(LibName,{win32, _}) -> @@ -339,8 +336,6 @@ link_library(LibName,{unix, _}) -> "lib" ++ LibName ++ ".a"; link_library(LibName,vxworks) -> "lib" ++ LibName ++ ".a"; -link_library(_LibName,ose) -> - ""; link_library(_LibName,_Other) -> exit({link_library, not_supported}). diff --git a/lib/test_server/test/test_server_SUITE.erl b/lib/test_server/test/test_server_SUITE.erl index 4c344717f0..a8532b08ab 100644 --- a/lib/test_server/test/test_server_SUITE.erl +++ b/lib/test_server/test/test_server_SUITE.erl @@ -119,6 +119,11 @@ test_server_conf02_SUITE(Config) -> run_test_server_tests(SuiteName, NCases, NFail, NExpected, NSucc, NUsrSkip, NAutoSkip, NActualSkip, NActualFail, NActualSucc, Config) -> + + ct:log("See test case log files under:~n~p~n", + [filename:join([proplists:get_value(priv_dir, Config), + SuiteName++".logs"])]), + Node = proplists:get_value(node, Config), {ok,_Pid} = rpc:call(Node,test_server_ctrl, start, []), rpc:call(Node, @@ -132,6 +137,7 @@ run_test_server_tests(SuiteName, NCases, NFail, NExpected, NSucc, end), rpc:call(Node,test_server_ctrl, stop, []), + {ok,#suite{ n_cases = NCases, n_cases_failed = NFail, n_cases_expected = NExpected, diff --git a/lib/test_server/vsn.mk b/lib/test_server/vsn.mk index 1dd4a84ce9..563c1b6db6 100644 --- a/lib/test_server/vsn.mk +++ b/lib/test_server/vsn.mk @@ -1,2 +1,2 @@ -TEST_SERVER_VSN = 3.4.4 +TEST_SERVER_VSN = 3.4.5 diff --git a/lib/toolbar/doc/src/notes.xml b/lib/toolbar/doc/src/notes.xml index e2a3c22684..ffca2c5fbf 100644 --- a/lib/toolbar/doc/src/notes.xml +++ b/lib/toolbar/doc/src/notes.xml @@ -31,6 +31,22 @@ <p>This document describes the changes made to the Toolbar application.</p> +<section><title>Toolbar 1.4.2</title> + + <section><title>Fixed Bugs and Malfunctions</title> + <list> + <item> + <p> + Improve spelling throughout documentation, code comments + and error messages</p> + <p> + Own Id: OTP-9555</p> + </item> + </list> + </section> + +</section> + <section><title>Toolbar 1.4.1</title> <section><title>Improvements and New Features</title> diff --git a/lib/toolbar/src/toolbar_toolconfig.erl b/lib/toolbar/src/toolbar_toolconfig.erl index 7d8f2b4d21..6dccb7ba72 100644 --- a/lib/toolbar/src/toolbar_toolconfig.erl +++ b/lib/toolbar/src/toolbar_toolconfig.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 1996-2009. All Rights Reserved. +%% Copyright Ericsson AB 1996-2011. 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 @@ -126,7 +126,7 @@ loop(S,Window) -> show_info(Window,Info), move_focus(Window,file); - %% Erronous version number -- Notify user + %% Erroneous version number -- Notify user {error,version} -> Win = Window#tfwindow.window, tool_utils:notify(Win,[FileName, @@ -136,7 +136,7 @@ loop(S,Window) -> _Error -> Win = Window#tfwindow.window, tool_utils:notify(Win,[FileName, - "File is on erronous format"]) + "File is in erroneous format"]) end; %% The file can not be read, show default values diff --git a/lib/toolbar/vsn.mk b/lib/toolbar/vsn.mk index 47d18e29f0..105303d785 100644 --- a/lib/toolbar/vsn.mk +++ b/lib/toolbar/vsn.mk @@ -1,4 +1,4 @@ -TOOLBAR_VSN = 1.4.1 +TOOLBAR_VSN = 1.4.2 diff --git a/lib/tools/c_src/Makefile.in b/lib/tools/c_src/Makefile.in index 65a7f5f424..6921193154 100644 --- a/lib/tools/c_src/Makefile.in +++ b/lib/tools/c_src/Makefile.in @@ -142,7 +142,9 @@ EMEM_OBJS = $(addprefix $(EMEM_OBJ_DIR)/,$(notdir $(EMEM_SRCS:.c=.o))) # Misc targets # -all: $(CREATE_DIRS) erts_lib $(PROGS) $(DRIVERS) +_create_dirs := $(shell mkdir -p $(CREATE_DIRS)) + +all: erts_lib $(PROGS) $(DRIVERS) erts_lib: cd $(ERL_TOP)/erts/lib_src && $(MAKE) $(TYPE) @@ -158,13 +160,6 @@ clean: .PHONY: all erts_lib docs clean # -# Make dir targets -# - -$(CREATE_DIRS): - $(MKDIR) -p $@ - -# # Object targets # diff --git a/lib/tools/doc/src/instrument.xml b/lib/tools/doc/src/instrument.xml index 12877994de..b7e48ea306 100644 --- a/lib/tools/doc/src/instrument.xml +++ b/lib/tools/doc/src/instrument.xml @@ -4,7 +4,7 @@ <erlref> <header> <copyright> - <year>1998</year><year>2009</year> + <year>1998</year><year>2011</year> <holder>Ericsson AB. All Rights Reserved.</holder> </copyright> <legalnotice> @@ -342,7 +342,7 @@ <p>Stores the current memory allocation map on the file <c>File</c>. Returns <c>true</c> if the emulator has been started with the "<c>+Mim true</c>" command-line argument, and - the map was successfuly stored; otherwise, <c>false</c>. The + the map was successfully stored; otherwise, <c>false</c>. The contents of the file can later be read using <seealso marker="#read_memory_data/1">read_memory_data/1</seealso>. <em>NOTE:</em><c>store_memory_data/0</c> blocks execution of @@ -360,7 +360,7 @@ <p>Stores the current memory status on the file <c>File</c>. Returns <c>true</c> if the emulator has been started with the "<c>+Mis true</c>", or "<c>+Mim true</c>" - command-line arguments, and the data was successfuly stored; + command-line arguments, and the data was successfully stored; otherwise, <c>false</c>. The contents of the file can later be read using <seealso marker="#read_memory_status/1">read_memory_status/1</seealso>.</p> diff --git a/lib/tools/doc/src/notes.xml b/lib/tools/doc/src/notes.xml index 02d92fc4e7..17506fb6e2 100644 --- a/lib/tools/doc/src/notes.xml +++ b/lib/tools/doc/src/notes.xml @@ -30,6 +30,44 @@ </header> <p>This document describes the changes made to the Tools application.</p> +<section><title>Tools 2.6.6.5</title> + + <section><title>Fixed Bugs and Malfunctions</title> + <list> + <item> + <p> + Teach the emacs mode to compile yecc and leex files</p> + <p> + If visiting a .yrl or .xrl file in emacs with + erlang-mode, then the `erlang-compile' function (normally + bound to C-c C-k), now knows how to compile yecc and leex + files, and then, if that compilation succeeds, also + compiles the resulting .erl files.</p> + <p> + Also introduce a `erlang-compile-command-function-alist' + to make it possible to hook in other functions for + computing compilation commands/expressions, depending on + file name. (Thanks to Tomas Abrahamsson )</p> + <p> + Own Id: OTP-9503</p> + </item> + </list> + </section> + + + <section><title>Improvements and New Features</title> + <list> + <item> + <p> Bugs in xref(3) have been fixed. (Thanks to Matthias + Lang.) </p> + <p> + Own Id: OTP-9416</p> + </item> + </list> + </section> + +</section> + <section><title>Tools 2.6.6.4</title> <section><title>Fixed Bugs and Malfunctions</title> diff --git a/lib/tools/emacs/erlang.el b/lib/tools/emacs/erlang.el index a8dd3ec3ac..bc7a190fb4 100644 --- a/lib/tools/emacs/erlang.el +++ b/lib/tools/emacs/erlang.el @@ -1225,7 +1225,7 @@ Lock syntax table. The effect is that `apply' in the atom `( (char-after (1- (or ,pos (point))))))) ;; defvar some obsolete variables, which we still support for -;; backwardscompatibility reasons. +;; backwards compatibility reasons. (eval-when-compile (defvar comment-indent-hook) (defvar dabbrev-case-fold-search) diff --git a/lib/tools/src/cover.erl b/lib/tools/src/cover.erl index 905ad895c9..fb9744d759 100644 --- a/lib/tools/src/cover.erl +++ b/lib/tools/src/cover.erl @@ -55,14 +55,14 @@ %% compiled module. This is necessary so that the code can be loaded %% on remote nodes that are started after the compilation. %% -%% PARELLALISM +%% PARALLELISM %% To take advantage of SMP when doing the cover analysis both the data %% collection and analysis has been parallelized. One process is spawned for %% each node when collecting data, and on the remote node when collecting data %% one process is spawned per module. %% %% When analyzing data it is possible to issue multiple analyse(_to_file)/X -%% calls at once. They are however all calls (for backwardscompatability +%% calls at once. They are however all calls (for backwards compatibility %% reasons) so the user of cover will have to spawn several processes to to the %% calls ( or use async_analyse_to_file ). %% diff --git a/lib/tools/vsn.mk b/lib/tools/vsn.mk index 6999c695e6..2d63a33554 100644 --- a/lib/tools/vsn.mk +++ b/lib/tools/vsn.mk @@ -1 +1 @@ -TOOLS_VSN = 2.6.6.4 +TOOLS_VSN = 2.6.6.5 diff --git a/lib/tv/doc/src/notes.xml b/lib/tv/doc/src/notes.xml index b3f2f5587f..77a6a43d51 100644 --- a/lib/tv/doc/src/notes.xml +++ b/lib/tv/doc/src/notes.xml @@ -4,7 +4,7 @@ <chapter> <header> <copyright> - <year>2004</year><year>2010</year> + <year>2004</year><year>2011</year> <holder>Ericsson AB. All Rights Reserved.</holder> </copyright> <legalnotice> diff --git a/lib/typer/src/typer.erl b/lib/typer/src/typer.erl index e40c4f39cd..f2a70f49b7 100644 --- a/lib/typer/src/typer.erl +++ b/lib/typer/src/typer.erl @@ -466,14 +466,20 @@ write_typed_file(File, Info) -> case file:make_dir(TyperAnnDir) of {error, Reason} -> case Reason of - eexist -> %% TypEr dir exists; remove old typer files - ok = file:delete(NewFileName), + eexist -> %% TypEr dir exists; remove old typer files if they exist + case file:delete(NewFileName) of + ok -> ok; + {error, enoent} -> ok; + {error, _} -> + Msg = io_lib:format("Error in deleting file ~s\n", [NewFileName]), + fatal_error(Msg) + end, write_typed_file(File, Info, NewFileName); enospc -> Msg = io_lib:format("Not enough space in ~p\n", [Dir]), fatal_error(Msg); eacces -> - Msg = io:format("No write permission in ~p\n", [Dir]), + Msg = io_lib:format("No write permission in ~p\n", [Dir]), fatal_error(Msg); _ -> Msg = io_lib:format("Unhandled error ~s when writing ~p\n", @@ -539,7 +545,7 @@ get_type_string(F, A, Info, Mode) -> case {Mode, Type} of {file, {contract, _}} -> ""; _ -> - Prefix = lists:concat(["-spec ", F]), + Prefix = lists:concat(["-spec ", erl_types:atom_to_string(F)]), lists:concat([Prefix, TypeStr, "."]) end; true -> diff --git a/lib/typer/vsn.mk b/lib/typer/vsn.mk index fe8faabdf8..9e73aed286 100644 --- a/lib/typer/vsn.mk +++ b/lib/typer/vsn.mk @@ -1 +1 @@ -TYPER_VSN = 0.9.1 +TYPER_VSN = 0.9.2 diff --git a/lib/webtool/doc/src/notes.xml b/lib/webtool/doc/src/notes.xml index b7e6f0421c..c58a440937 100644 --- a/lib/webtool/doc/src/notes.xml +++ b/lib/webtool/doc/src/notes.xml @@ -4,7 +4,7 @@ <chapter> <header> <copyright> - <year>2004</year><year>2010</year> + <year>2004</year><year>2011</year> <holder>Ericsson AB. All Rights Reserved.</holder> </copyright> <legalnotice> @@ -31,6 +31,22 @@ <p>This document describes the changes made to the Webtool application.</p> +<section><title>WebTool 0.8.9</title> + + <section><title>Fixed Bugs and Malfunctions</title> + <list> + <item> + <p> + Do not install *.bat files on non-win32 machines (Thanks + to Hans Ulrich Niedermann)</p> + <p> + Own Id: OTP-9515</p> + </item> + </list> + </section> + +</section> + <section><title>WebTool 0.8.8</title> <section><title>Fixed Bugs and Malfunctions</title> diff --git a/lib/webtool/vsn.mk b/lib/webtool/vsn.mk index d687b4ff81..2643be866e 100644 --- a/lib/webtool/vsn.mk +++ b/lib/webtool/vsn.mk @@ -1 +1 @@ -WEBTOOL_VSN=0.8.8 +WEBTOOL_VSN=0.8.9 diff --git a/lib/wx/api_gen/gen_util.erl b/lib/wx/api_gen/gen_util.erl index b53f817ce0..df5b4c3405 100644 --- a/lib/wx/api_gen/gen_util.erl +++ b/lib/wx/api_gen/gen_util.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2008-2010. All Rights Reserved. +%% Copyright Ericsson AB 2008-2011. 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 @@ -43,23 +43,27 @@ strip_name(String,[]) -> String. get_hook(_Type, undefined) -> ignore; get_hook(Type, List) -> proplists:get_value(Type, List, ignore). - + +get_taylor_made(Str, Name) -> + re:run(Str, "<<"++Name++"(.*)"++Name++">>", + [dotall, {capture, all_but_first, list}]). + open_write(File) -> %% io:format("Generating ~s~n",[File]), {ok, Fd} = file:open(File++".temp", [write]), put(current_file, {Fd,File}). - + close() -> case get(current_file) of - undefined -> + undefined -> ok; {closed, File} -> io:format("Closing twice ~s~n",[File]); {Fd,File} -> file:close(Fd), case os:cmd("diff " ++ File ++ " " ++ File ++ ".temp" ++ "| head -30") of - [] -> + [] -> ok = file:delete(File ++ ".temp"), %% So that make understands that we have made this %% case os:getenv("CLEARCASE_ROOT") of @@ -71,11 +75,11 @@ close() -> case check_diff(Diff) of copyright -> %% We ignore copyright changes only ok = file:delete(File ++ ".temp"); - _ -> + _ -> io:format("Diff in ~s~n~s ~n", [File, Diff]), case file:rename(File ++ ".temp", File) of ok -> ok; - _ -> + _ -> io:format("***** Failed to save file ~p ~n",[File]) end end @@ -85,9 +89,9 @@ close() -> check_diff(Diff) -> - try + try [_,D1,_,D2|Tail] = re:split(Diff, "\n"), - case Tail of + case Tail of [] -> ok; [<<>>] -> ok; _ -> throw(diff) @@ -117,29 +121,29 @@ args(Fun, Limit, List, Max) -> args(Fun, Limit, List, Max, 0). args(_Fun, _Limit, [], _Max, _) -> ""; %% No args -args(Fun, _Limit, [Last], _Max, _Pos) -> - case Fun(Last) of +args(Fun, _Limit, [Last], _Max, _Pos) -> + case Fun(Last) of skip -> ""; %% FIXME bug if last skips Str -> Str end; args(Fun, Limit, [H|R], Max, Pos) -> - case Fun(H) of + case Fun(H) of skip -> args(Fun,Limit,R, Max, Pos); - Str -> - {NL, NewPos} = + Str -> + {NL, NewPos} = case length(Str) + Pos of Curr when Curr > Max -> {"\n ", 0}; - Curr -> + Curr -> {"", Curr} end, - case args(Fun,Limit,R, Max, NewPos) of + case args(Fun,Limit,R, Max, NewPos) of "" -> Str; End -> Str ++ Limit ++ NL ++ End end end. - + tokens(S) -> @@ -167,11 +171,11 @@ replace_and_remove([E|R], Acc) when is_list(E) -> %% Keep everything that is a w replace_and_remove(R, [E|Acc]); replace_and_remove([$\n | R], Acc) -> %% It is semi line oriented so keep eol replace_and_remove(R, [eol|Acc]); -replace_and_remove([$( | R], Acc) -> +replace_and_remove([$( | R], Acc) -> replace_and_remove(R, ["("|Acc]); replace_and_remove([$) | R], Acc) -> replace_and_remove(R, [")"|Acc]); -replace_and_remove([${ | R], Acc) -> +replace_and_remove([${ | R], Acc) -> replace_and_remove(R, ["{"|Acc]); replace_and_remove([$} | R], Acc) -> replace_and_remove(R, ["}"|Acc]); @@ -187,7 +191,7 @@ replace_and_remove([$, | R], Acc) -> replace_and_remove(R, [cont|Acc]); replace_and_remove([$; | R], Acc) -> replace_and_remove(R, [eoe|Acc]); -replace_and_remove([$@ | R], Acc) -> +replace_and_remove([$@ | R], Acc) -> replace_and_remove(R, [directive|Acc]); replace_and_remove([_E|R], Acc) -> %% Ignore everthing else @@ -213,7 +217,7 @@ erl_copyright() -> w("%%~n",[]), w("%% %CopyrightBegin%~n",[]), w("%%~n",[]), - w("%% Copyright Ericsson AB ~p-2010. All Rights Reserved.~n", + w("%% Copyright Ericsson AB ~p-2011. All Rights Reserved.~n", [StartYear]), w("%%~n",[]), w("%% The contents of this file are subject to the Erlang Public License,~n",[]), @@ -229,11 +233,11 @@ erl_copyright() -> w("%%~n",[]), w("%% %CopyrightEnd%~n",[]). -c_copyright() -> +c_copyright() -> w("/*~n",[]), w(" * %CopyrightBegin%~n",[]), w(" *~n",[]), - w(" * Copyright Ericsson AB 2008-2010. All Rights Reserved.~n",[]), + w(" * Copyright Ericsson AB 2008-2011. All Rights Reserved.~n",[]), w(" *~n",[]), w(" * The contents of this file are subject to the Erlang Public License,~n",[]), w(" * Version 1.1, (the \"License\"); you may not use this file except in~n",[]), diff --git a/lib/wx/api_gen/gl_gen.erl b/lib/wx/api_gen/gl_gen.erl index 374e0bd12b..8998d341e7 100644 --- a/lib/wx/api_gen/gl_gen.erl +++ b/lib/wx/api_gen/gl_gen.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2008-2010. All Rights Reserved. +%% Copyright Ericsson AB 2008-2011. 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 @@ -44,7 +44,7 @@ devcode() -> spawn(fun() -> safe(fun gen_code/0,false) end). safe(What, QuitOnErr) -> try What(), - io:format("Completed succesfully~n~n", []), + io:format("Completed successfully~n~n", []), QuitOnErr andalso gen_util:halt(0) catch Err:Reason -> io:format("Error ~p: ~p:~p~n ~p~n", diff --git a/lib/wx/api_gen/wx_extra/wxListCtrl.c_src b/lib/wx/api_gen/wx_extra/wxListCtrl.c_src index cd3074e481..54d6fafd01 100644 --- a/lib/wx/api_gen/wx_extra/wxListCtrl.c_src +++ b/lib/wx/api_gen/wx_extra/wxListCtrl.c_src @@ -1,3 +1,161 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 2011. 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% +%% + + +<<wxListCtrl_class +class EwxListCtrl : public wxListCtrl { + public: ~EwxListCtrl(); + EwxListCtrl(wxWindow * parent,wxWindowID winid,const wxPoint& pos,const wxSize& size,long style,const wxValidator& validator) : wxListCtrl(parent,winid,pos,size,style,validator) {}; + EwxListCtrl() : wxListCtrl() {}; + + int onGetItemText; + int onGetItemAttr; + int onGetItemColumnImage; + ErlDrvPort port; + + private: + virtual wxString OnGetItemText(long item, long col) const; + virtual wxListItemAttr* OnGetItemAttr(long item) const; + virtual int OnGetItemImage(long item) const; + virtual int OnGetItemColumnImage(long item, long column) const; +}; +wxListCtrl_class>> + +<<wxListCtrl_new_0 +case ~s: { // wxListCtrl::wxListCtrl + wxListCtrl * Result = new EwxListCtrl(); + newPtr((void *) Result, 0, memenv); + rt.addRef(getRef((void *)Result,memenv), "wxListCtrl"); + break; +} +wxListCtrl_new_0>> + +<<wxListCtrl_new_2 +case ~s: { // wxListCtrl::wxListCtrl + wxWindowID winid=wxID_ANY; + wxPoint pos= wxDefaultPosition; + wxSize size= wxDefaultSize; + long style=wxLC_ICON; + const wxValidator * validator= &wxDefaultValidator; + wxWindow *parent = (wxWindow *) getPtr(bp,memenv); bp += 4; + int onGetItemText = 0, onGetItemAttr = 0, onGetItemColumnImage = 0; + + bp += 4; /* Align */ + while( * (int*) bp) { switch (* (int*) bp) { + case 1: {bp += 4; + winid = (wxWindowID)*(int *) bp; bp += 4; + } break; + case 2: {bp += 4; + int * posX = (int *) bp; bp += 4; + int * posY = (int *) bp; bp += 4; + pos = wxPoint(*posX,*posY); + bp += 4; /* Align */ + } break; + case 3: {bp += 4; + int * sizeW = (int *) bp; bp += 4; + int * sizeH = (int *) bp; bp += 4; + size = wxSize(*sizeW,*sizeH); + bp += 4; /* Align */ + } break; + case 4: {bp += 4; + style = (long)*(int *) bp; bp += 4; + } break; + case 5: {bp += 4; +validator = (wxValidator *) getPtr(bp,memenv); bp += 4; + } break; + case 6: {bp += 4; + onGetItemText = *(int *) bp; bp += 4; + } break; + case 7: {bp += 4; + onGetItemAttr = *(int *) bp; bp += 4; + } break; + case 8: {bp += 4; + onGetItemColumnImage = *(int *) bp; bp += 4; + } break; + }}; + EwxListCtrl * Result = new EwxListCtrl(parent,winid,pos,size,style,*validator); + Result->onGetItemText = onGetItemText; + Result->onGetItemAttr = onGetItemAttr; + Result->onGetItemColumnImage = onGetItemColumnImage; + Result->port = Ecmd.port; + newPtr((void *) Result, 0, memenv); + rt.addRef(getRef((void *)Result,memenv), "wxListCtrl"); + break; +} +wxListCtrl_new_2>> + +<<Create +case ~s: { // wxListCtrl::Create + wxWindowID winid=wxID_ANY; + wxPoint pos= wxDefaultPosition; + wxSize size= wxDefaultSize; + long style=wxLC_ICON; + const wxValidator * validator= &wxDefaultValidator; + EwxListCtrl *This = (EwxListCtrl *) getPtr(bp,memenv); bp += 4; + wxWindow *parent = (wxWindow *) getPtr(bp,memenv); bp += 4; + int onGetItemText = 0, onGetItemAttr = 0, onGetItemColumnImage = 0; + + bp += 4; /* Align */ + while( * (int*) bp) { switch (* (int*) bp) { + case 1: {bp += 4; + winid = (wxWindowID)*(int *) bp; bp += 4; + } break; + case 2: {bp += 4; + int * posX = (int *) bp; bp += 4; + int * posY = (int *) bp; bp += 4; + pos = wxPoint(*posX,*posY); + bp += 4; /* Align */ + } break; + case 3: {bp += 4; + int * sizeW = (int *) bp; bp += 4; + int * sizeH = (int *) bp; bp += 4; + size = wxSize(*sizeW,*sizeH); + bp += 4; /* Align */ + } break; + case 4: {bp += 4; + style = (long)*(int *) bp; bp += 4; + } break; + case 5: {bp += 4; +validator = (wxValidator *) getPtr(bp,memenv); bp += 4; + } break; + case 6: {bp += 4; + onGetItemText = *(int *) bp; bp += 4; + } break; + case 7: {bp += 4; + onGetItemAttr = *(int *) bp; bp += 4; + } break; + case 8: {bp += 4; + onGetItemColumnImage = *(int *) bp; bp += 4; + } break; + }}; + if(!This) throw wxe_badarg(0); + bool Result = This->Create(parent,winid,pos,size,style,*validator); + This->onGetItemText = onGetItemText; + This->onGetItemAttr = onGetItemAttr; + This->onGetItemColumnImage = onGetItemColumnImage; + This->port = Ecmd.port; + + rt.addBool(Result); + break; +} +Create>> + <<SortItems case ~s: { // wxListCtrl::SortItems taylormade wxListCtrl *This = (wxListCtrl *) getPtr(bp,memenv); bp += 4; @@ -22,3 +180,6 @@ case ~s: { // wxListCtrl::SortItems taylormade break; } SortItems>> + + + diff --git a/lib/wx/api_gen/wx_extra/wxListCtrl.erl b/lib/wx/api_gen/wx_extra/wxListCtrl.erl index e6470182cb..99255bc53f 100644 --- a/lib/wx/api_gen/wx_extra/wxListCtrl.erl +++ b/lib/wx/api_gen/wx_extra/wxListCtrl.erl @@ -1,32 +1,33 @@ %% %% %CopyrightBegin% -%% -%% Copyright Ericsson AB 2009. All Rights Reserved. -%% +%% +%% Copyright Ericsson AB 2011. 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% %% + <<EXPORT:SortItems sortItems/2 SortItems:EXPORT>> <<SortItems %% @spec (This::wxListCtrl(), SortCallBack::function()) -> boolean() %% @doc Sort the items in the list control<br /> -%% <pre>SortCalBack(Item1,Item2) -> integer()</pre> +%% <pre>SortCallBack(Item1,Item2) -> integer()</pre> %% <br /> SortCallBack receives the client data associated with two items %% to compare, and should return 0 if the items are equal, a negative %% value if the first item is less than the second one and a positive %% value if the first item is greater than the second one. -%% <br /> NOTE: The callback may not call other processes. +%% <br /> NOTE: The callback may not call other (wx) processes. sortItems(#wx_ref{type=ThisT,ref=ThisRef}, SortCallBack) when is_function(SortCallBack, 2) -> ?CLASS(ThisT,wxListCtrl), @@ -37,3 +38,100 @@ sortItems(#wx_ref{type=ThisT,ref=ThisRef}, SortCallBack) SortId = wxe_util:get_cbId(Sort), wxe_util:call(~s, <<ThisRef:32/?UI,SortId:32/?UI>>). SortItems>> + +<<EXPORT:wxListCtrl new/0, new/1, new/2 wxListCtrl:EXPORT>> + +<<wxListCtrl_new_0 +%% @spec () -> wxListCtrl() +%% @doc See <a href="http://www.wxwidgets.org/manuals/stable/wx_wxlistctrl.html#wxlistctrlwxlistctrl">external documentation</a>. +new() -> + wxe_util:construct(~s, <<>>). +wxListCtrl_new_0>> + +<<wxListCtrl_new_2 +%% @spec (Parent::wxWindow:wxWindow()) -> wxListCtrl() +%% @equiv new(Parent, []) +new(Parent) + when is_record(Parent, wx_ref) -> + new(Parent, []). + +%% @spec (Parent::wxWindow:wxWindow(), [Option]) -> wxListCtrl() +%% Option = {winid, integer()} | +%% {pos, {X::integer(),Y::integer()}} | +%% {size, {W::integer(),H::integer()}} | +%% {style, integer()} | +%% {validator, wx:wx()} | +%% {onGetItemText, OnGetItemText} | +%% {onGetItemAttr, OnGetItemAttr} | +%% {onGetItemColumnImage, OnGetItemColumnImage} +%% +%% OnGetItemText = (This, Item, Column) -> wxString() +%% OnGetItemAttr = (This, Item) -> wxListItemAttr() +%% OnGetItemColumnImage = (This, Item, Column) -> integer() +%% @doc See <a href="http://www.wxwidgets.org/manuals/stable/wx_wxlistctrl.html#wxlistctrlwxlistctrl">external documentation</a>. + +new(#wx_ref{type=ParentT,ref=ParentRef}, Options) + when is_list(Options)-> + ?CLASS(ParentT,wxWindow), + MOpts = fun({winid, Winid}, Acc) -> [<<1:32/?UI,Winid:32/?UI>>|Acc]; + ({pos, {PosX,PosY}}, Acc) -> [<<2:32/?UI,PosX:32/?UI,PosY:32/?UI,0:32>>|Acc]; + ({size, {SizeW,SizeH}}, Acc) -> [<<3:32/?UI,SizeW:32/?UI,SizeH:32/?UI,0:32>>|Acc]; + ({style, Style}, Acc) -> [<<4:32/?UI,Style:32/?UI>>|Acc]; + ({validator, #wx_ref{type=ValidatorT,ref=ValidatorRef}}, Acc) -> + ?CLASS(ValidatorT,wx),[<<5:32/?UI,ValidatorRef:32/?UI>>|Acc]; + ({onGetItemText, F}, Acc) when is_function(F) -> + Fun = fun([This,Item,Col]) -> unicode:characters_to_binary([F(This,Item,Col),0]) end, + [<<6:32/?UI,(wxe_util:get_cbId(Fun)):32/?UI>>|Acc]; + ({onGetItemAttr, F}, Acc) when is_function(F) -> + Fun = fun([This,Item]) -> + #wx_ref{type=wxListItemAttr,ref=ThisRef} = F(This,Item), + <<ThisRef:32/?UI>> + end, + [<<7:32/?UI,(wxe_util:get_cbId(Fun)):32/?UI>>|Acc]; + ({onGetItemColumnImage, F}, Acc) when is_function(F) -> + Fun = fun([This,Item, Col]) -> <<(F(This,Item,Col)):32/?I>> end, + [<<8:32/?UI,(wxe_util:get_cbId(Fun)):32/?UI>>|Acc]; + (BadOpt, _) -> erlang:error({badoption, BadOpt}) end, + BinOpt = list_to_binary(lists:foldl(MOpts, [<<0:32>>], Options)), + wxe_util:construct(~s, <<ParentRef:32/?UI, 0:32,BinOpt/binary>>). + +wxListCtrl_new_2>> + +<<EXPORT:Create create/2, create/3 Create:EXPORT>> + +<<Create +%% @spec (This::wxListCtrl(), Parent::wxWindow:wxWindow()) -> bool() +%% @equiv create(This,Parent, []) +create(This,Parent) + when is_record(This, wx_ref),is_record(Parent, wx_ref) -> + create(This,Parent, []). + +%% @spec (This::wxListCtrl(), Parent::wxWindow:wxWindow(), [Option]) -> bool() +%% Option = {winid, integer()} | +%% {pos, {X::integer(),Y::integer()}} | +%% {size, {W::integer(),H::integer()}} | +%% {style, integer()} | +%% {validator, wx:wx()} | +%% {onGetItemText, OnGetItemText} | +%% {onGetItemAttr, OnGetItemAttr} | +%% {onGetItemColumnImage, OnGetItemColumnImage} +%% +%% OnGetItemText = (This, Item, Column) -> wxString() +%% OnGetItemAttr = (This, Item) -> wxListItemAttr() +%% OnGetItemColumnImage = (This, Item, Column) -> integer() +%% @doc See <a href="http://www.wxwidgets.org/manuals/stable/wx_wxlistctrl.html#wxlistctrlcreate">external documentation</a>. +create(#wx_ref{type=ThisT,ref=ThisRef},#wx_ref{type=ParentT,ref=ParentRef}, Options) + when is_list(Options) -> + ?CLASS(ThisT,wxListCtrl), + ?CLASS(ParentT,wxWindow), + MOpts = fun({winid, Winid}, Acc) -> [<<1:32/?UI,Winid:32/?UI>>|Acc]; + ({pos, {PosX,PosY}}, Acc) -> [<<2:32/?UI,PosX:32/?UI,PosY:32/?UI,0:32>>|Acc]; + ({size, {SizeW,SizeH}}, Acc) -> [<<3:32/?UI,SizeW:32/?UI,SizeH:32/?UI,0:32>>|Acc]; + ({style, Style}, Acc) -> [<<4:32/?UI,Style:32/?UI>>|Acc]; + ({validator, #wx_ref{type=ValidatorT,ref=ValidatorRef}}, Acc) -> ?CLASS(ValidatorT,wx),[<<5:32/?UI,ValidatorRef:32/?UI>>|Acc]; + (BadOpt, _) -> erlang:error({badoption, BadOpt}) end, + BinOpt = list_to_binary(lists:foldl(MOpts, [<<0:32>>], Options)), + wxe_util:call(~s, + <<ThisRef:32/?UI,ParentRef:32/?UI, BinOpt/binary>>). + +Create>> diff --git a/lib/wx/api_gen/wx_gen.erl b/lib/wx/api_gen/wx_gen.erl index 2f20c42a5d..209de48496 100644 --- a/lib/wx/api_gen/wx_gen.erl +++ b/lib/wx/api_gen/wx_gen.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2008-2010. All Rights Reserved. +%% Copyright Ericsson AB 2008-2011. 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 @@ -30,6 +30,12 @@ -compile(export_all). +-define(DBGCF(Class, Func, Format, Args), + case {get(current_class), get(current_func)} of + {Class, Func} -> io:format("~p:~p: " ++ Format, [?MODULE,?LINE] ++ Args); + _ -> ok + end). + code() -> safe(fun gen_code/0,true). xml() -> safe(fun gen_xml/0,true). @@ -38,7 +44,7 @@ devcode() -> erase(),safe(fun gen_code/0,false). safe(What, QuitOnErr) -> try What(), - io:format("Completed succesfully~n~n", []), + io:format("Completed successfully~n~n", []), QuitOnErr andalso gen_util:halt(0) catch Err:Reason -> io:format("Error in ~p ~p~n", [get(current_class),get(current_func)]), @@ -957,17 +963,17 @@ erl_skip_opt(All=[Ms=[{_,{Len,_,_},_}|_]|R],Acc1=[{_,{N,_,_},_}|_], Acc2) -> end; erl_skip_opt([],Acc1,Acc2) -> [strip_ti(Acc1)|Acc2]. -erl_skip_opt2([F={_,{N,In,_},M=#method{where=Where}}|Ms],Acc1,Acc2,Check) -> +erl_skip_opt2([F={_,{N,In,_},M=#method{where=Where}}|Ms],Acc1,Acc2,Check) -> case N > 0 andalso lists:last(In) =:= opt_list of - true when Where =/= merged_c, Where =/= taylormade -> - case Check of - [] -> + true when Where =/= merged_c, Where =/= taylormade -> + case Check of + [] -> erl_skip_opt2(Ms,[F|Acc1],[M#method{where=erl_no_opt}|Acc2],[]); - _ -> + _ -> Skipped = reverse(tl(reverse(In))), T = fun({_,{_,Args,_},_}) -> true =:= types_differ(Skipped,Args) end, case lists:all(T, Check) of - true -> + true -> erl_skip_opt2(Ms,[F|Acc1], [M#method{where=erl_no_opt}|Acc2], Check); @@ -976,7 +982,7 @@ erl_skip_opt2([F={_,{N,In,_},M=#method{where=Where}}|Ms],Acc1,Acc2,Check) -> end end; _ -> - erl_skip_opt2(Ms,[F|Acc1],Acc2,[]) + erl_skip_opt2(Ms,[F|Acc1],Acc2,Check) end; erl_skip_opt2([],Acc1,Acc2,_) -> {Acc1,Acc2}. @@ -1025,7 +1031,6 @@ types_differ([{class,C1}|R1], [{class,C2}|R2]) -> true -> true; false -> -%% _ -> {class,C1,C2}; {class,C1,C2} -> {class,C1,C2}; diff --git a/lib/wx/api_gen/wx_gen_cpp.erl b/lib/wx/api_gen/wx_gen_cpp.erl index 4b33068d8f..4632fdbffe 100644 --- a/lib/wx/api_gen/wx_gen_cpp.erl +++ b/lib/wx/api_gen/wx_gen_cpp.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2008-2010. All Rights Reserved. +%% Copyright Ericsson AB 2008-2011. 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 @@ -19,7 +19,7 @@ %%%------------------------------------------------------------------- %%% File : wx_gen_cpp.erl %%% Author : Dan Gudmundsson <[email protected]> -%%% Description : +%%% Description : %%% %%% Created : 19 Feb 2007 by Dan Gudmundsson <[email protected]> %%%------------------------------------------------------------------- @@ -35,7 +35,7 @@ args/3, strip_name/2]). -import(wx_gen, [next_id/1]). -gen(Defs) -> +gen(Defs) -> open_write("../c_src/gen/wxe_derived_dest.h"), c_copyright(), w("~n/***** This file is generated do not edit ****/~n~n", []), @@ -49,48 +49,26 @@ gen(Defs) -> open_write("../c_src/gen/wxe_macros.h"), c_copyright(), - gen_macros(), + gen_macros(), close(), open_write("../c_src/gen/wxe_init.cpp"), c_copyright(), build_enums(), close(), - + build_events(), Res. - + gen_derived_dest(Defs) -> [gen_derived_dest_2(Class) || Class <- Defs], - - UglySkipList = ["wxCaret", "wxCalendarDateAttr", - "wxFileDataObject", "wxTextDataObject", "wxBitmapDataObject" - ], - - ?WTC("gen_derived_dest"), - w("void WxeApp::delete_object(void *ptr, wxeRefData *refd) {~n", []), - w(" switch(refd->type) {~n", []), - Case = fun(#class{name=Class, id=Id, abstract=IsAbs, parent=P}) when P /= "static" -> - UglyWorkaround = lists:member(Class, UglySkipList), - case hd(reverse(wx_gen_erl:parents(Class))) of - root when IsAbs == false, UglyWorkaround == false -> - w(" case ~p: delete (~s *) ptr; break;~n", [Id, Class]); - root when IsAbs == false, UglyWorkaround == true -> - w(" case ~p: /* delete (~s *) ptr;" - "These objects must be deleted by owner object */ " - "break;~n", [Id, Class]); - _ -> ok - end; - (_) -> ok - end, - [Case(Class) || Class <- Defs], - w(" default: delete (wxObject *) ptr;~n", []), - w("}}~n~n", []). + ok. gen_derived_dest_2(C=#class{name=Class}) -> - case is_derived(C) of - true -> - ?WTC("gen_derived_dest_2"), + ?WTC("gen_derived_dest_2"), + Derived = is_derived(C), + TaylorMade = taylormade_class(C), + if Derived andalso (TaylorMade =:= false) -> w("class E~s : public ~s {~n",[Class,Class]), case Class of "wxGLCanvas" -> %% Special for cleaning up gl context @@ -101,15 +79,32 @@ gen_derived_dest_2(C=#class{name=Class}) -> end, gen_constructors(C), w("};~n~n", []); - false -> + TaylorMade /= false -> + w("~s~n", [TaylorMade]); + true -> ignore end. +taylormade_class(#class{name=CName, methods=Ms}) -> + TaylorMade = lists:any(fun([#method{where=taylormade}|_]) -> true; + (_) -> false + end, Ms), + case TaylorMade of + false -> false; + true -> + {ok, Bin} = file:read_file(filename:join([wx_extra, CName ++".c_src"])), + Src = binary_to_list(Bin), + case gen_util:get_taylor_made(Src, CName ++ "_class") of + nomatch -> false; + {match, [Str0]} -> Str0 + end + end. + gen_constructors(#class{name=Class, methods=Ms0}) -> Ms = lists:append(Ms0), Cs = lists:filter(fun(#method{method_type=MT}) -> MT =:= constructor end, Ms), [gen_constructor(Class, Const) || Const <- Cs]. - + gen_constructor(_Class, #method{where=merged_c}) -> ok; gen_constructor(_Class, #method{where=erl_no_opt}) -> ok; gen_constructor(Class, _M=#method{params=Ps}) -> @@ -119,7 +114,7 @@ gen_constructor(Class, _M=#method{params=Ps}) -> HaveMergedType = fun(#param{type={merged,_,_,_,_,_,_}}) -> true; (_) -> false end, ?WTC("gen_constructor"), case lists:any(HaveMergedType, Ps) of - false -> + false -> w(" E~s(~s) : ~s(~s) {};~n", [Class,args(Gen1,",",Ps),Class,args(CallA,",",Ps)]); true -> @@ -141,9 +136,9 @@ gen_type(#type{name=Type, ref=undefined, single=array, mod=Mod},_) -> mods(Mod) ++ to_string(Type) ++ " * "; gen_type(#type{name=Type, ref=undefined, mod=Mod},_) -> mods(Mod) ++ to_string(Type) ++ " "; -gen_type({merged, _, T1, _,_, _T2,_}, 1) -> +gen_type({merged, _, T1, _,_, _T2,_}, 1) -> gen_type(T1,error); -gen_type({merged, _, _T1,_, _, T2,_}, 2) -> +gen_type({merged, _, _T1,_, _, T2,_}, 2) -> gen_type(T2,error). gen_funcs(Defs) -> @@ -168,7 +163,7 @@ gen_funcs(Defs) -> %% w(" case WXE_REMOVE_PORT:~n", []), %% w(" { destroyMemEnv(Ecmd.port); } break;~n", []), w(" case DESTROY_OBJECT: {~n"), - w(" wxObject *This = (wxObject *) getPtr(bp,memenv); "), + w(" wxObject *This = (wxObject *) getPtr(bp,memenv); "), w(" if(This) {"), w(" ((WxeApp *) wxTheApp)->clearPtr((void *) This);~n"), w(" delete This; }~n } break;~n"), @@ -203,16 +198,39 @@ gen_funcs(Defs) -> w(" error.addTupleCount(2);~n"), w(" error.addTupleCount(3);~n"), w(" error.send();~n"), - w("}} /* The End */~n"), + w("}} /* The End */~n~n~n"), + + UglySkipList = ["wxCaret", "wxCalendarDateAttr", + "wxFileDataObject", "wxTextDataObject", "wxBitmapDataObject" + ], + + w("void WxeApp::delete_object(void *ptr, wxeRefData *refd) {~n", []), + w(" switch(refd->type) {~n", []), + Case = fun(#class{name=Class, id=Id, abstract=IsAbs, parent=P}) when P /= "static" -> + UglyWorkaround = lists:member(Class, UglySkipList), + case hd(reverse(wx_gen_erl:parents(Class))) of + root when IsAbs == false, UglyWorkaround == false -> + w(" case ~p: delete (~s *) ptr; break;~n", [Id, Class]); + root when IsAbs == false, UglyWorkaround == true -> + w(" case ~p: /* delete (~s *) ptr;" + "These objects must be deleted by owner object */ " + "break;~n", [Id, Class]); + _ -> ok + end; + (_) -> ok + end, + [Case(Class) || Class <- Defs], + w(" default: delete (wxObject *) ptr;~n", []), + w("}}~n~n", []), Res. - + gen_class(C=#class{name=Name,methods=Ms,options=Opts}) -> put(current_class, Name), - NewMs = + NewMs = case lists:member(taylormade, Opts) of true -> {ok, Bin} = file:read_file(filename:join([wx_extra,Name++".c_src"])), - ?WTC("gen_class"), + ?WTC("gen_class"), w("~s~n", [binary_to_list(Bin)]), Ms; false -> @@ -220,13 +238,13 @@ gen_class(C=#class{name=Name,methods=Ms,options=Opts}) -> {value, {ifdef, What}} -> w("#if ~p~n",[What]), Methods = lists:flatten(Ms), - MsR = [gen_method(Name,M) || + MsR = [gen_method(Name,M) || M <- lists:keysort(#method.id, Methods)], w("#endif // ~p~n",[What]), MsR; false -> Methods = lists:flatten(Ms), - [gen_method(Name,M) || + [gen_method(Name,M) || M <- lists:keysort(#method.id, Methods)] end end, @@ -234,15 +252,19 @@ gen_class(C=#class{name=Name,methods=Ms,options=Opts}) -> C#class{methods=NewMs}. gen_method(_CName, M=#method{where=erl_no_opt}) -> M; -gen_method(CName, M=#method{where=taylormade, name=Name, id=Id}) -> +gen_method(CName, M=#method{where=taylormade, name=Name, id=Id}) -> {ok, Bin} = file:read_file(filename:join([wx_extra, CName ++".c_src"])), - Str0 = binary_to_list(Bin), + Src = binary_to_list(Bin), %% io:format("C++ Class ~p ~p~n", [CName, Name]), - - {match, [Str1]} = re:run(Str0, "<<"++Name++"(.*)"++Name++">>", - [dotall, {capture, all_but_first, list}]), + Str = case gen_util:get_taylor_made(Src, Name) of + nomatch -> + {match, [Str0]} = gen_util:get_taylor_made(Src, wx_gen_erl:get_unique_name(Id)), + Str0; + {match, [Str0]} -> + Str0 + end, ?WTC("gen_method"), - w(Str1, [wx_gen_erl:get_unique_name(Id)]), + w(Str, [wx_gen_erl:get_unique_name(Id)]), M; gen_method(CName, M=#method{name=N,params=[Ps],method_type=destructor,id=MethodId}) -> case hd(reverse(wx_gen_erl:parents(CName))) of @@ -253,7 +275,7 @@ gen_method(CName, M=#method{name=N,params=[Ps],method_type=destructor,id=MethodI w(" if(This) {", []), w(" ((WxeApp *) wxTheApp)->clearPtr((void *) This);~n", []), w(" delete This;}~n", []), - free_args(), + free_args(), w(" break;~n}~n", []); object -> %% Use default ignore @@ -266,7 +288,7 @@ gen_method(CName, M=#method{name=N,params=Ps0,type=T,method_type=MT,id=MethodId w("case ~s: { // ~s::~s~n", [wx_gen_erl:get_unique_name(MethodId),CName,N]), Ps1 = declare_variables(void, Ps0), {Ps2,Align} = decode_arguments(Ps1), - Opts = [Opt || Opt = #param{def=Def,in=In,where=Where} <- Ps2, + Opts = [Opt || Opt = #param{def=Def,in=In,where=Where} <- Ps2, Def =/= none, In =/= false, Where =/= c], decode_options(Opts, Align), case gen_util:get_hook(c, M#method.pre_hook) of @@ -292,7 +314,7 @@ declare_variables(T, Ps) -> declare_var(P = #param{where=erl}) -> P; declare_var(P = #param{where=this}) -> P; -declare_var(P = #param{name=Name,def=Def,type=Type,in=true}) when Def =/= none -> +declare_var(P = #param{name=Name,def=Def,type=Type,in=true}) when Def =/= none -> declare_type(Name, true, Def, Type), P; declare_var(P = #param{in=In}) when In =/= false -> P; @@ -304,7 +326,7 @@ declare_type(N,false,_,#type{name="wxArrayInt"}) -> w(" wxArrayInt ~s;~n", [N]); declare_type(N,false,_,#type{name="wxArrayString"}) -> w(" wxArrayString ~s;~n", [N]); -declare_type(N,false,_,#type{base=Base,single=true,name=Type,by_val=false,mod=Mod}) +declare_type(N,false,_,#type{base=Base,single=true,name=Type,by_val=false,mod=Mod}) when Base =:= int; Base =:= long; Base =:= float; Base =:= double -> w(" ~s~s ~s;~n", [mods(Mod),Type,N]); declare_type(N,false,_,#type{base={enum,_},single=true,name=Type,by_val=false,mod=Mod}) -> @@ -315,7 +337,7 @@ declare_type(N,false,_,#type{name="wxDateTime"}) -> w(" wxDateTime ~s;~n", [N]); declare_type(N,false,_,#type{name=Type, base=int64, ref=reference}) -> w(" ~s ~s;~n", [Type,N]); -declare_type(N,true,Def,#type{base=Base,single=true,name=Type,by_val=true}) +declare_type(N,true,Def,#type{base=Base,single=true,name=Type,by_val=true}) when Base =:= int; Base =:= long; Base =:= float; Base =:= double; Base =:= bool -> w(" ~s ~s=~s;~n", [Type,N,Def]); declare_type(N,true,Def,#type{base={comp,_,_},single=true,name=Type,mod=Mod,ref={pointer,1}}) -> @@ -328,7 +350,7 @@ declare_type(N,true,Def,#type{base={class,_},single=true,name=Type,ref={pointer, w(" ~s~s * ~s=~s;~n", [mods(Mod),Type,N,Def]); declare_type(N,true,Def,#type{base={class,_},single=true,name=Type,ref=reference,mod=Mod}) -> w(" ~s~s * ~s= &~s;~n", [mods(Mod),Type,N,Def]); -declare_type(N,true,Def,#type{base=Base,single=true,name=Type,by_val=false,ref={pointer,1}}) +declare_type(N,true,Def,#type{base=Base,single=true,name=Type,by_val=false,ref={pointer,1}}) when Base =:= int; Base =:= long; Base =:= float; Base =:= double; Base =:= bool -> w(" ~s *~s=~s;~n", [Type,N,Def]); declare_type(N,true,Def,#type{single=true,name="wxArtClient"}) -> @@ -345,7 +367,7 @@ declare_type(N,true,Def,#type{name=Type, ref={pointer,2}}) -> %% xxxx w(" ~s ** ~s = ~s;~n", [Type,N,Def]); declare_type(N,true,Def,#type{name=Type, single=array, ref={pointer,1}}) -> - w(" int * ~sLen = 0;~n", [N]), + w(" int * ~sLen = 0;~n", [N]), w(" ~s * ~s = ~s;~n", [Type,N,Def]); declare_type(N,true,"",#type{name="wxArrayString", single=array, ref=reference}) -> w(" wxArrayString ~s;~n", [N]); @@ -363,12 +385,12 @@ decode_options(Opts, Align) -> decode_opt(#param{name=Name,type=Type}, N) -> w(" case ~p: {bp += 4;~n", [N]), - Align = decode_arg(Name,Type,opt,1), + Align = decode_arg(Name,Type,opt,1), align(Align, 64), w(" } break;~n", []), N+1. -decode_arguments(Ps0) -> +decode_arguments(Ps0) -> lists:mapfoldl(fun decode_arg/2,0,Ps0). store_free(N) -> @@ -380,7 +402,7 @@ store_free(N) -> free_args() -> case get(free_args) of undefined -> ignore; - List -> + List -> erase(free_args), [w(" driver_free(~s);~n", [Arg]) || Arg <- List] end. @@ -388,7 +410,7 @@ free_args() -> decode_arg(P = #param{where=erl},A) -> {P,A}; decode_arg(P = #param{where=c},A) -> {P,A}; decode_arg(P = #param{in=false},A) -> {P,A}; -decode_arg(P = #param{def=Def},A) when Def =/= none -> {P,A}; +decode_arg(P = #param{def=Def},A) when Def =/= none -> {P,A}; decode_arg(P = #param{name=Name,type=Type},A0) -> A = decode_arg(Name, Type, arg, A0), {P, A}. @@ -426,22 +448,22 @@ decode_arg(N,#type{base=float,single=true,name=Type},arg,A0) -> align(A0,32); decode_arg(N,#type{base=double,single=true,name=Type},Arg,A0) -> A = align(A0,64), - case Arg of + case Arg of arg -> w(" ~s * ~s = (~s *) bp; bp += 8;~n", [Type,N,Type]); opt -> w(" ~s = * (~s *) bp; bp += 8;~n", [N,Type]) end, A; decode_arg(N,#type{base=bool,single=true,name=Type},Arg,A0) -> - case Arg of + case Arg of arg -> w(" bool * ~s = (~s *) bp; bp += 4;~n", [N,Type]); opt -> w(" ~s = *(~s *) bp; bp += 4;~n", [N,Type]) end, align(A0,32); decode_arg(N,#type{base={enum,Type},single=true},Arg,A0) -> - wa(" ~s ", [enum_type(Type)], "~s = *(~s *) bp; bp += 4;;~n",[N, enum_type(Type)], Arg), + wa(" ~s ", [enum_type(Type)], "~s = *(~s *) bp; bp += 4;;~n",[N, enum_type(Type)], Arg), align(A0,32); decode_arg(N,#type{base={comp,"wxDateTime",List},single=true,name=Type,ref=Ref},Arg,A0) -> - Decl = fun({int,Spec}) -> + Decl = fun({int,Spec}) -> w(" int * ~s~s = (int *) bp; bp += 4;~n", [N,Spec]) end, align(A0,32), @@ -452,15 +474,15 @@ decode_arg(N,#type{base={comp,"wxDateTime",List},single=true,name=Type,ref=Ref}, end, case Arg of arg -> w(" ~s ~s = ~s(~s);~n", [Type,N,Type,args(Name, ",", List)]); - opt when Ref =:= {pointer,1} -> - w(" ~sTmp = ~s(~s); ~s = & ~sTmp;~n", + opt when Ref =:= {pointer,1} -> + w(" ~sTmp = ~s(~s); ~s = & ~sTmp;~n", [N,Type,args(Name, ",", List), N,N]); opt -> w(" ~s = ~s(~s);~n", [N,Type,args(Name, ",", List)]) end, (A0+length(List)) rem 2; decode_arg(N,#type{base={comp,_,List},single=true,name=Type,ref=Ref},Arg,A0) -> - Decl = fun({int,Spec}) -> + Decl = fun({int,Spec}) -> w(" int * ~s~s = (int *) bp; bp += 4;~n", [N,Spec]); ({double, Spec}) -> w(" wxDouble * ~s~s = (wxDouble *) bp; bp += 8;~n", [N,Spec]) @@ -473,8 +495,8 @@ decode_arg(N,#type{base={comp,_,List},single=true,name=Type,ref=Ref},Arg,A0) -> Name = fun({_,Spec}) -> "*"++N++Spec end, case Arg of arg -> w(" ~s ~s = ~s(~s);~n", [Type,N,Type,args(Name, ",", List)]); - opt when Ref =:= {pointer,1} -> - w(" ~sTmp = ~s(~s); ~s = & ~sTmp;~n", + opt when Ref =:= {pointer,1} -> + w(" ~sTmp = ~s(~s); ~s = & ~sTmp;~n", [N,Type,args(Name, ",", List), N,N]); opt -> w(" ~s = ~s(~s);~n", [N,Type,args(Name, ",", List)]) @@ -483,7 +505,7 @@ decode_arg(N,#type{base={comp,_,List},single=true,name=Type,ref=Ref},Arg,A0) -> {int, _} -> (A0+length(List)) rem 2; {double, _} -> 0 end; - + decode_arg(N,#type{name=Class="wxTreeItemId",single=true},Arg,A0) -> A = align(A0,64), wa(" ~s ",[Class],"~s = wxTreeItemId((void *) *(wxUint64 *) bp); bp += 8;~n",[N],Arg), @@ -492,7 +514,7 @@ decode_arg(N,#type{name=Class="wxTreeItemIdValue",single=true},Arg,A0) -> A = align(A0,64), wa(" ~s ",[Class],"~s = (~s) * (wxUint64 *) bp; bp += 8;~n",[N,Class],Arg), A; -decode_arg(N,#type{name="wxChar", single=S},Arg,A0) +decode_arg(N,#type{name="wxChar", single=S},Arg,A0) when S =/= true -> w(" int * ~sLen = (int *) bp; bp += 4;~n", [N]), wa(" wxString", []," ~s = wxString(bp, wxConvUTF8);~n", [N],Arg), @@ -501,7 +523,7 @@ decode_arg(N,#type{name="wxChar", single=S},Arg,A0) decode_arg(N,#type{base=string, name="wxFileName"},Arg,A0) -> w(" int * ~sLen = (int *) bp; bp += 4;~n", [N]), wa(" wxString", []," ~sStr = wxString(bp, wxConvUTF8);~n", [N],Arg), - w(" bp += *~sLen+((8-((~p+ *~sLen) & 7)) & 7);~n", [N,4*((A0+1) rem 2),N]), + w(" bp += *~sLen+((8-((~p+ *~sLen) & 7)) & 7);~n", [N,4*((A0+1) rem 2),N]), w(" wxFileName ~s = wxFileName(~sStr);~n",[N,N]), 0; decode_arg(N,#type{base=string},Arg,A0) -> @@ -541,7 +563,7 @@ decode_arg(N,#type{name="wxArrayDouble"},arg,A0) -> decode_arg(_N,#type{base=eventType},_Arg,A0) -> %% w(" int * ~sLen = (int *) bp; bp += 4;~n", [N]), %% case Arg of -%% arg -> +%% arg -> %% w(" int ~s = wxeEventTypeFromAtom(bp);bp += *~sLen;~n",[N,N]), %% w(" char *class_name = bp;~n", []), %% w(" wxeCallbackData * Evt_cb = new wxeCallbackData(Ecmd.caller,This,class_name);~n", @@ -551,7 +573,7 @@ decode_arg(_N,#type{base=eventType},_Arg,A0) -> decode_arg(N,#type{name=Type,base=binary,mod=Mod0},Arg,A0) -> Mod = mods([M || M <- Mod0]), case Arg of - arg -> + arg -> w(" ~s~s * ~s = (~s~s*) Ecmd.bin[~p]->base;~n", [Mod,Type,N,Mod,Type, next_id(bin_count)]); opt -> @@ -564,10 +586,10 @@ decode_arg(N,#type{base={term,"wxTreeItemData"},mod=Mod0},Arg,A0) -> Type = "wxETreeItemData", BinCnt = next_id(bin_count), case Arg of - arg -> + arg -> w(" ~s~s * ~s = new ~s(Ecmd.bin[~p]->size, Ecmd.bin[~p]->base);~n", [Mod,Type,N,Type,BinCnt,BinCnt]); - opt -> + opt -> w(" ~s = new ~s(Ecmd.bin[~p]->size, Ecmd.bin[~p]->base);~n", [N,Type,BinCnt,BinCnt]) end, @@ -576,10 +598,10 @@ decode_arg(N,#type{name=Type,base={term,_},mod=Mod0},Arg,A0) -> Mod = mods([M || M <- Mod0]), BinCnt = next_id(bin_count), case Arg of - arg -> + arg -> w(" ~s~s * ~s = new ~s(Ecmd.bin[~p]);~n", [Mod,Type,N,Type,BinCnt]); - opt -> + opt -> w(" ~s = new ~s(Ecmd.bin[~p]);~n", [N,Type,BinCnt]) end, @@ -588,17 +610,17 @@ decode_arg(N,#type{single=array,base=int},Arg,A0) -> case Arg of arg -> w(" int * ~sLen = (int *) bp; bp += 4;~n", [N]), - w(" int * ~s = (int *) bp; bp += *~sLen*4+((~p+ *~sLen)%2 )*4;~n", + w(" int * ~s = (int *) bp; bp += *~sLen*4+((~p+ *~sLen)%2 )*4;~n", [N,N,(A0+1) rem 2,N]); - opt -> + opt -> w(" ~sLen = (int *) bp; bp += 4;~n", [N]), - w(" ~s = (int *) bp; bp += *~sLen*4+((~p+ *~sLen)%2 )*4;~n", + w(" ~s = (int *) bp; bp += *~sLen*4+((~p+ *~sLen)%2 )*4;~n", [N,N,(A0+1) rem 2,N]) end, 0; decode_arg(N,#type{by_val=true,single=array,base={comp,Class="wxPoint",_}},arg,A0) -> - w(" int * ~sLen = (int *) bp; bp += 4;~n", [N]), - w(" ~s *~s;~n",[Class,N]), + w(" int * ~sLen = (int *) bp; bp += 4;~n", [N]), + w(" ~s *~s;~n",[Class,N]), w(" ~s = (~s *) driver_alloc(sizeof(~s) * *~sLen);~n",[N,Class,Class,N]), store_free(N), w(" for(int i=0; i < *~sLen; i++) {~n", [N]), @@ -629,13 +651,13 @@ decode_arg(Name,T, Arg,_A) -> align(0, 32) -> 1; align(1, 32) -> 0; align(0, 64) -> 0; -align(1, 64) -> +align(1, 64) -> w(" bp += 4; /* Align */~n"), 0; align(N,Sz) -> align(N rem 2, Sz). -call_wx(_N,{constructor,_},#type{base={class,RClass}},Ps) -> +call_wx(_N,{constructor,_},#type{base={class,RClass}},Ps) -> #class{id=Id} = ClassDef = get({class,RClass}), Class = case is_derived(ClassDef) of true -> "E" ++ RClass; @@ -648,8 +670,8 @@ call_wx(_N,{constructor,_},#type{base={class,RClass}},Ps) -> case is_dialog(RClass) of true -> 2; %% Dialogs must be closed first event before windows false -> 0 - end; - false -> + end; + false -> case hd(reverse(wx_gen_erl:parents(RClass))) of root -> Id; _ -> 1 @@ -682,10 +704,10 @@ call_wx(N,{static,Class},Type,Ps) -> return_res(void) -> {"", ""}; return_res(Type = #type{mod=Mod}) -> case lists:member(const, Mod) of - true -> - {Beg, End} = return_res1(Type), + true -> + {Beg, End} = return_res1(Type), {"const " ++ Beg, End}; - _ -> + _ -> return_res1(Type) end. @@ -695,8 +717,8 @@ return_res1(#type{name=Type,ref={pointer,_}}) -> {Type ++ " * Result = (" ++ Type ++ "*)", ""}; return_res1(#type{name=Type,single=true,ref=reference}) -> {Type ++ " * Result = &", ""}; -return_res1(#type{name=Type,single=true,by_val=true}) - when is_atom(Type) -> +return_res1(#type{name=Type,single=true,by_val=true}) + when is_atom(Type) -> {atom_to_list(Type) ++ " Result = ", ""}; return_res1(#type{name=Type="wxArrayInt"}) -> {Type ++ " Result = ", ""}; @@ -705,19 +727,19 @@ return_res1(#type{name=Type,base={class,_},single=list,ref=reference}) -> return_res1(#type{name=Type,base={comp,_,_},single=array,by_val=true}) -> {Type ++ " Result = ", ""}; return_res1(#type{name=Type,single=true,by_val=true, base={class, _}}) -> - %% Memory leak !!!!!! XXXX BUGBUG FIXME or doument!! - case Type of + %% Memory leak !!!!!! XXXX BUGBUG FIXME or doument!! + case Type of "wxImage" -> ok; "wxFont" -> ok; "wxBitmap" -> ok; "wxIcon" -> ok; "wxGraphics" ++ _ -> ok; _ -> - io:format("~s::~s Building return value of temp ~s~n", + io:format("~s::~s Building return value of temp ~s~n", [get(current_class),get(current_func),Type]) end, %% #class{id=Id} = get({class,Type}), - {Type ++ " * Result = new " ++ Type ++ "(", "); newPtr((void *) Result," + {Type ++ " * Result = new " ++ Type ++ "(", "); newPtr((void *) Result," ++ "3, memenv);"}; return_res1(#type{base={enum,_Type},single=true,by_val=true}) -> {"int Result = " , ""}; @@ -730,7 +752,7 @@ return_res1(#type{name=Type,single=true,by_val=true}) -> filter(Ps) -> lists:filter(fun filter_arg/1, Ps). -filter_arg(#param{where=erl}) -> false; +filter_arg(#param{where=erl}) -> false; filter_arg(#param{where=this}) -> false; filter_arg(#param{}) -> true. %%filter_arg(#param{def=Def, in=In}) -> Def =:= none orelse In =:= false. @@ -739,20 +761,20 @@ filter_arg(#param{}) -> true. call_arg(#param{where=c, alt={length,Alt}}) when is_list(Alt) -> "*" ++ Alt ++ "Len"; call_arg(#param{where=c, alt={size,Id}}) when is_integer(Id) -> - %% It's a binary + %% It's a binary "Ecmd.bin["++ integer_to_list(Id) ++ "]->size"; -call_arg(#param{name=N,def=Def,type=#type{name=Type,by_val=true,single=true,base=Base}}) - when Base =:= int; Base =:= long; Base =:= float; Base =:= double; Base =:= bool -> +call_arg(#param{name=N,def=Def,type=#type{name=Type,by_val=true,single=true,base=Base}}) + when Base =:= int; Base =:= long; Base =:= float; Base =:= double; Base =:= bool -> case Def of none -> "(" ++ to_string(Type) ++ ") *" ++ N; _ -> N end; -call_arg(#param{name=N,type=#type{base={enum,Type}, by_val=true,single=true}}) -> +call_arg(#param{name=N,type=#type{base={enum,Type}, by_val=true,single=true}}) -> "(" ++ enum_type(Type) ++") " ++ N; call_arg(#param{name=N,type=#type{base={class,_},by_val=true,single=true}}) -> "*" ++ N; call_arg(#param{name=N,type=#type{base={class,_},ref=reference,single=true}}) -> "*" ++ N; -call_arg(#param{name=N,type=#type{base=eventType}}) -> +call_arg(#param{name=N,type=#type{base=eventType}}) -> N ++ ", (wxObjectEventFunction)(wxEventFunction) &WxeApp::handle_evt, Evt_cb, this"; call_arg(#param{name=N,type=#type{by_val=true, single=_False}}) -> N; call_arg(#param{name=N,def=Def,type=#type{by_val=false, ref={pointer,2}}}) @@ -760,20 +782,20 @@ call_arg(#param{name=N,def=Def,type=#type{by_val=false, ref={pointer,2}}}) call_arg(#param{name=N,type=#type{by_val=false, ref={pointer,2}}}) -> "&" ++ N; call_arg(#param{name=N,in=false,type=#type{ref=reference, single=true}}) -> N; call_arg(#param{name=N,in=false,type=#type{by_val=false, single=true}}) -> "&" ++ N; -call_arg(#param{name=N,def=Def,type=#type{base={comp,_,_},ref={pointer,1},single=true}}) +call_arg(#param{name=N,def=Def,type=#type{base={comp,_,_},ref={pointer,1},single=true}}) when Def =:= none -> "&" ++N; call_arg(#param{name=N,type=#type{by_val=false}}) -> N; call_arg(#param{name=N,type={merged,_,#type{base={class,_},single=true, by_val=ByVal, - ref=Ref},_,_,_,_}}) - when ByVal =:= true; Ref =:= reference -> + ref=Ref},_,_,_,_}}) + when ByVal =:= true; Ref =:= reference -> "*" ++ N; -call_arg(#param{def=Def, type=void}) when Def =/= none -> Def; +call_arg(#param{def=Def, type=void}) when Def =/= none -> Def; call_arg(#param{name=N,type=#type{base={ref,_},by_val=true,single=true}}) -> N; call_arg(#param{name=N,type={merged,_,_,_,_,_,_}}) -> N. -%% call_arg(#param{name=N,type=#type{base=Tuple,ref=reference}}) +%% call_arg(#param{name=N,type=#type{base=Tuple,ref=reference}}) %% when is_tuple(Tuple) -> "&" ++ N; to_string(Type) when is_atom(Type) -> atom_to_list(Type); @@ -781,19 +803,19 @@ to_string(Type) when is_list(Type) -> Type. virtual_dest(#class{abstract=true, parent="root"}) -> false; virtual_dest(#class{abstract=true, parent="object"}) -> true; -virtual_dest(#class{abstract=true, parent=Parent}) -> +virtual_dest(#class{abstract=true, parent=Parent}) -> virtual_dest(get({class,Parent})); virtual_dest(#class{methods=Ms, parent=Parent}) -> case lists:keysearch(destructor,#method.method_type, lists:append(Ms)) of {value, #method{method_type=destructor, virtual=Virtual}} -> case Virtual of - undefined -> + undefined -> case get({class,Parent}) of - undefined -> + undefined -> case Parent of - "object" -> + "object" -> true; - "root" -> + "root" -> false; _ -> io:format("Error: ~p~n",[Parent]), @@ -802,10 +824,10 @@ virtual_dest(#class{methods=Ms, parent=Parent}) -> PClass -> virtual_dest(PClass) end; - _ -> + _ -> Virtual end; - false -> + false -> false end. @@ -819,24 +841,24 @@ is_derived(#class{abstract=true}) -> false; is_derived(C = #class{}) -> virtual_dest(C). is_window(Class) -> - lists:member("wxWindow", wx_gen_erl:parents(Class)). + lists:member("wxWindow", wx_gen_erl:parents(Class)). is_dialog(Class) -> lists:member("wxDialog", wx_gen_erl:parents(Class)). - + build_return_vals(Type,Ps) -> HaveType = case Type of void -> 0; _ -> 1 end, NoOut = lists:sum([1 || #param{in=In} <- Ps, In =/= true]) + HaveType, OutTupSz = if NoOut > 1 -> NoOut; true -> 0 end, - + build_ret_types(Type,Ps), - if + if OutTupSz > 1 -> w(" rt.addTupleCount(~p);~n",[OutTupSz]); true -> ignore - end, + end, Ps. -build_ret_types(void,Ps) -> +build_ret_types(void,Ps) -> Calc = fun(#param{name=N,in=False,type=T}, Free) when False =/= true -> case build_ret(N, False, T) of ok -> Free; @@ -845,7 +867,7 @@ build_ret_types(void,Ps) -> (_, Free) -> Free end, lists:foldl(Calc, [], Ps); -build_ret_types(Type,Ps) -> +build_ret_types(Type,Ps) -> Free = case build_ret("Result", out, Type) of ok -> []; FreeStr -> [FreeStr] @@ -854,8 +876,8 @@ build_ret_types(Type,Ps) -> case build_ret(N, False, T) of ok -> FreeAcc; FreeMe -> [FreeMe|FreeAcc] - end; - (_, FreeAcc) -> FreeAcc + end; + (_, FreeAcc) -> FreeAcc end, lists:foldl(Calc, Free, Ps). @@ -898,17 +920,17 @@ build_ret(Name,_,#type{name="wxArrayInt"}) -> build_ret(Name,_,#type{base={comp,_,_},single=array}) -> w(" for(unsigned int i=0; i < ~s.GetCount(); i++) {~n", [Name]), w(" rt.add(~s[i]);~n }~n",[Name]), - w(" rt.endList(~s.GetCount());~n",[Name]); + w(" rt.endList(~s.GetCount());~n",[Name]); build_ret(Name,_,#type{name=List,single=list,base={class,Class}}) -> w(" int i=0;~n"), w(" for(~s::const_iterator it = ~s.begin(); it != ~s.end(); ++it) {~n", [List, Name, Name]), w(" ~s * ~sTmp = *it;~n", [Class,Name]), w(" rt.addRef(getRef((void *)~sTmp,memenv), \"~s\"); i++;}~n",[Name,Class]), - w(" rt.endList(~s.GetCount());~n",[Name]); - + w(" rt.endList(~s.GetCount());~n",[Name]); + build_ret(Name,_,#type{name="wxArrayTreeItemIds"}) -> - w(" for(unsigned int i=0; i < ~s.GetCount(); i++) {~n", [Name]), + w(" for(unsigned int i=0; i < ~s.GetCount(); i++) {~n", [Name]), w(" rt.add((wxUIntPtr *)~s[i].m_pItem);}~n",[Name]), w(" rt.endList(~s.GetCount());~n",[Name]); @@ -923,10 +945,10 @@ build_ret(Name,_,#type{name="wxArrayString", single=array}) -> w(" rt.add(~s);~n", [Name]); build_ret(Name,In,T) -> ?error({nyi, Name,In, T}). - + mods([const|R]) -> "const " ++ mods(R); mods([unsigned|R]) -> "unsigned " ++ mods(R); -mods([]) -> "". +mods([]) -> "". build_enums() -> Tree = get(consts), @@ -935,13 +957,13 @@ build_enums() -> w("#include \"../wxe_impl.h\"~n"), w("#include \"wxe_macros.h\"~n"), w("#include \"../wxe_return.h\"~n"), - w("void WxeApp::init_nonconsts(wxeMemEnv *memenv, ErlDrvTermData caller) {~n"), + w("void WxeApp::init_nonconsts(wxeMemEnv *memenv, ErlDrvTermData caller) {~n"), NotConsts = [NC || NC = #const{is_const=false} <- gb_trees:values(Tree)], Size = length(NotConsts), GVars = get(gvars), GSize = length(GVars), w(" wxeReturn rt = wxeReturn(WXE_DRV_PORT, caller);~n"), - w(" rt.addAtom((char*)\"wx_consts\");~n"), + w(" rt.addAtom((char*)\"wx_consts\");~n"), [build_enum(NConst) || NConst <- lists:keysort(#const.val, NotConsts)], _Cnt = foldl(fun(Gvar, I) -> build_gvar(Gvar,I) end, 0, lists:sort(GVars)), w(" rt.endList(~p);~n", [Size+GSize]), @@ -968,9 +990,9 @@ build_gvar({Name, Class, _Id}, Cnt) -> Cnt+1. gen_macros() -> - w("#include <wx/caret.h>~n"), %% Arrg wxw forgot?? some files - w("#include <wx/tooltip.h>~n"), - w("#include <wx/gbsizer.h>~n"), + w("#include <wx/caret.h>~n"), %% Arrg wxw forgot?? some files + w("#include <wx/tooltip.h>~n"), + w("#include <wx/gbsizer.h>~n"), w("#include <wx/splash.h>~n"), w("#include <wx/grid.h>~n"), w("#include <wx/image.h>~n"), @@ -995,15 +1017,15 @@ gen_macros() -> w("#include <wx/stc/stc.h>~n"), w("#include <wx/minifram.h>~n"), w("#include <wx/sashwin.h>~n"), - w("#include <wx/laywin.h>~n"), - w("#include <wx/graphics.h>~n"), - w("#include <wx/aui/aui.h>~n"), - w("#include <wx/datectrl.h>~n"), - w("#include <wx/filepicker.h>~n"), - w("#include <wx/fontpicker.h>~n"), - w("#include <wx/clrpicker.h>~n"), - w("#include <wx/statline.h>~n"), - w("#include <wx/clipbrd.h>~n"), + w("#include <wx/laywin.h>~n"), + w("#include <wx/graphics.h>~n"), + w("#include <wx/aui/aui.h>~n"), + w("#include <wx/datectrl.h>~n"), + w("#include <wx/filepicker.h>~n"), + w("#include <wx/fontpicker.h>~n"), + w("#include <wx/clrpicker.h>~n"), + w("#include <wx/statline.h>~n"), + w("#include <wx/clipbrd.h>~n"), w("#include <wx/splitter.h>~n"), w("#include <wx/choicebk.h>~n"), w("#include <wx/toolbook.h>~n"), @@ -1012,14 +1034,14 @@ gen_macros() -> w("#include <wx/html/htmlwin.h>~n"), w("#include <wx/html/htmlcell.h>~n"), w("#include <wx/filename.h>~n"), - + w("~n~n", []), w("#ifndef wxICON_DEFAULT_BITMAP_TYPE~n",[]), w(" #define wxICON_DEFAULT_BITMAP_TYPE wxBITMAP_TYPE_ICO_RESOURCE~n",[]), w("#endif~n", []), w("~n~n", []), - [w("#define ~s_~s ~p~n", [Class,Name,Id]) || + [w("#define ~s_~s ~p~n", [Class,Name,Id]) || {Class,Name,_,Id} <- wx_gen_erl:get_unique_names()], w("~n~n"). @@ -1032,29 +1054,29 @@ build_events() -> w("#include \"wxe_macros.h\"~n"), w("#include \"../wxe_events.h\"~n~n"), w("#include \"../wxe_return.h\"~n~n"), - + w("wxeEtype::wxeEtype(const char *name, int Id) {eName = name;cID = Id;}~n~n"), w("WX_DECLARE_HASH_MAP(int, wxeEtype*, wxIntegerHash, wxIntegerEqual, wxeETmap );~n~n"), - + w("wxeETmap etmap;~n~n"), - + w( "int wxeEventTypeFromAtom(char *etype_atom) { wxeETmap::iterator it; for(it = etmap.begin(); it != etmap.end(); ++it) { wxeEtype * value = it->second; - if(strcmp(value->eName, etype_atom) == 0) { - if(it->first > wxEVT_USER_FIRST) { + if(strcmp(value->eName, etype_atom) == 0) { + if(it->first > wxEVT_USER_FIRST) { return it->first - wxEVT_USER_FIRST; } else { return it->first; } } - } - return -1; + } + return -1; } -"), +"), Evs0 = [C || {_,C=#class{event=Evs}} <- get(), Evs =/= false], Evs = lists:keysort(#class.id, Evs0), @@ -1067,7 +1089,7 @@ initEventTable(Evs) -> w(" struct { ",[]), w("int ev_type; int class_id; const char * ev_name;} event_types[] =~n {~n",[]), - lists:foreach(fun(Ev) -> init_event_classes(Ev) end, + lists:foreach(fun(Ev) -> init_event_classes(Ev) end, [#class{id=0,event=[wxEVT_NULL]}|Evs]), w(" {-1, 0, ""}~n };~n",[]), w(" for(int i=0; event_types[i].ev_type != -1; i++) {~n",[]), @@ -1085,7 +1107,7 @@ initEventTable(Evs) -> " }~n" " }~n", []), w("}~n~n"). - + init_event_classes(#class{event=ETs, id=Id}) -> F = fun({Eev, Cev, OtherClass}) -> w(" {~w + wxEVT_USER_FIRST, ~w, ~p},~n", @@ -1105,7 +1127,7 @@ find_id(OtherClass) -> Class = get({class,atom_to_list(OtherClass)}), %%{value, Class} = lists:keysearch(atom_to_list(OtherClass), #class.name, All), Class#class.id. - + encode_events(Evs) -> ?WTC("encode_events"), w("void wxeEvtListener::forward(wxEvent& event)~n" @@ -1132,7 +1154,7 @@ encode_events(Evs) -> " wxeMemEnv *memenv = app->getMemEnv(port);~n" " if(!memenv) return 0;~n~n" " wxeReturn rt = wxeReturn(port, cb->listener);~n"), - + w("~n rt.addAtom((char*)\"wx\");~n" " rt.addInt((int) event->GetId());~n" " rt.addRef(getRef((void *)(cb->obj), memenv), cb->class_name);~n" @@ -1155,15 +1177,15 @@ encode_events(Evs) -> w(" app->clearPtr((void *) event);~n"), w(" } else {~n"), w(" send_res = rt.send();~n"), - w(" if(cb->skip) event->Skip();~n"), + w(" if(cb->skip) event->Skip();~n"), w(" };~n"), w(" return send_res;~n"), w(" }~n"). encode_event(C = #class{name=Class, id=Id, options=Opts}) -> ?WTC("encode_event"), - case proplists:get_value("mixed_event", Opts) of - undefined -> + case proplists:get_value("mixed_event", Opts) of + undefined -> w("case ~p: {// ~s~n", [Id,Class]), encode_event2(C), ok; @@ -1189,10 +1211,10 @@ encode_event2(Class = #class{name=Name}) -> build_event_attrs(ClassRec = #class{name=Class}) -> Attrs0 = wx_gen_erl:filter_attrs(ClassRec), - Rename = - fun(Att = #param{name=Name,prot=public,acc=undefined}, {All,Use}) -> + Rename = + fun(Att = #param{name=Name,prot=public,acc=undefined}, {All,Use}) -> {[Att#param{name= "ev->" ++ Name}|All],Use}; - (Att = #param{acc=Acc}, {All,_}) -> + (Att = #param{acc=Acc}, {All,_}) -> {[Att#param{name= "ev->" ++ Acc}|All], true} end, case foldr(Rename,{[],false},Attrs0) of @@ -1202,9 +1224,9 @@ build_event_attrs(ClassRec = #class{name=Class}) -> %% Attrs; {Attrs,_} -> w(" ~s * ev = (~s *) event;~n",[Class,Class]), - FixClass = + FixClass = fun(P=#param{name=N,acc=Acc,type=#type{single=Single,by_val=ByVal, - base={class,C}}}) + base={class,C}}}) when Acc =/= undefined -> Var = var_name(N), if Single, ByVal -> @@ -1215,17 +1237,17 @@ build_event_attrs(ClassRec = #class{name=Class}) -> end, P#param{name=Var}; (P) -> P - end, + end, lists:map(FixClass, Attrs) end. -var_name("ev->" ++ Name0) -> +var_name("ev->" ++ Name0) -> case reverse(Name0) of ")(" ++ Name -> reverse(Name); _ -> Name0 end; var_name(Name) -> Name. - + enum_name({Class,Type}) -> uppercase_all(Class ++ "_" ++ Type); enum_name(Type) -> diff --git a/lib/wx/api_gen/wx_gen_erl.erl b/lib/wx/api_gen/wx_gen_erl.erl index e1201ab0d4..e882ae87ca 100644 --- a/lib/wx/api_gen/wx_gen_erl.erl +++ b/lib/wx/api_gen/wx_gen_erl.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2008-2010. All Rights Reserved. +%% Copyright Ericsson AB 2008-2011. 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 @@ -19,7 +19,7 @@ %%%------------------------------------------------------------------- %%% File : wx_gen_erl.erl %%% Author : Dan Gudmundsson <[email protected]> -%%% Description : +%%% Description : %%% %%% Created : 25 Jan 2007 by Dan Gudmundsson <[email protected]> %%%------------------------------------------------------------------- @@ -32,7 +32,7 @@ -import(lists, [foldl/3,foldr/3,reverse/1, keysearch/3, map/2, filter/2]). -import(gen_util, [lowercase/1, lowercase_all/1, uppercase/1, uppercase_all/1, - open_write/1, close/0, erl_copyright/0, w/2, + open_write/1, close/0, erl_copyright/0, w/2, args/3, args/4, strip_name/2]). gen(Defs) -> @@ -42,9 +42,9 @@ gen(Defs) -> gen_enums_ints(), [gen_class(Class) || Class <- Defs], gen_funcnames(). - + gen_class(Class) -> - try + try gen_class1(Class) catch throw:skipped -> Class @@ -52,10 +52,10 @@ gen_class(Class) -> gen_class1(C=#class{name=Name,parent="static",methods=Ms,options=_Opts}) -> open_write("../src/gen/wx_misc.erl"), - put(current_class, Name), + put(current_class, Name), erl_copyright(), w("", []), - w("%% This file is generated DO NOT EDIT~n~n", []), + w("%% This file is generated DO NOT EDIT~n~n", []), w("%% @doc See external documentation: " "<a href=\"http://www.wxwidgets.org/manuals/stable/wx_miscellany.html\">Misc</a>.\n\n",[]), @@ -67,8 +67,8 @@ gen_class1(C=#class{name=Name,parent="static",methods=Ms,options=_Opts}) -> Exp = fun(M) -> gen_export(C,M) end, ExportList = lists:usort(lists:append(lists:map(Exp,reverse(Ms)))), w("-export([~s]).~n~n", [args(fun(EF) -> EF end, ",", ExportList, 60)]), - - + + Gen = fun(M) -> gen_method(Name,M) end, NewMs = lists:map(Gen,reverse(Ms)), close(), @@ -79,13 +79,13 @@ gen_class1(C=#class{name=Name,parent=Parent,methods=Ms,options=Opts}) -> case Opts of ["ignore"] -> throw(skipped); _ -> ok - end, + end, open_write("../src/gen/"++Name++".erl"), - put(current_class, Name), + put(current_class, Name), erl_copyright(), w("", []), - w("%% This file is generated DO NOT EDIT~n~n", []), - + w("%% This file is generated DO NOT EDIT~n~n", []), + case lists:member(taylormade, Opts) of true -> {ok, Bin} = file:read_file(filename:join([wx_extra, Name++".erl"])), @@ -95,33 +95,33 @@ gen_class1(C=#class{name=Name,parent=Parent,methods=Ms,options=Opts}) -> w("%% @doc See external documentation: " "<a href=\"http://www.wxwidgets.org/manuals/stable/wx_~s.html\">~s</a>.\n", [lowercase_all(Name), Name]), - + case C#class.doc of undefined -> ignore; Str -> w("%%~n%% ~s~n~n%%~n", [Str]) end, - + case C#class.event of false -> ignore; Evs -> EvTypes = [event_type_name(Ev) || Ev <- Evs], EvStr = args(fun(Ev) -> "<em>"++Ev++"</em>" end, ", ", EvTypes), - + w("%% <dl><dt>Use {@link wxEvtHandler:connect/3.} with EventType:</dt>~n",[]), w("%% <dd>~s</dd></dl>~n", [EvStr]), - w("%% See also the message variant {@link wxEvtHandler:~s(). #~s{}} event record type.~n", + w("%% See also the message variant {@link wxEvtHandler:~s(). #~s{}} event record type.~n", [event_rec_name(Name),event_rec_name(Name)]), w("%%~n",[]), ok end, - + Parents = parents(Parent), case [P || P <- Parents, P =/= root, P =/= object] of [] -> ignore; - Ps -> + Ps -> w("%% <p>This class is derived (and can use functions) from:~n", []), [w("%% <br />{@link ~s}~n", [P]) || P <- Ps], - w("%% </p>~n",[]) + w("%% </p>~n",[]) end, w("%% @type ~s(). An object reference, The representation is internal~n",[Name]), w("%% and can be changed without notice. It can't be used for comparsion~n", []), @@ -137,17 +137,17 @@ gen_class1(C=#class{name=Name,parent=Parent,methods=Ms,options=Opts}) -> Done0 = ["Destroy", "New", "Create", "destroy", "new", "create"], Done = gb_sets:from_list(Done0 ++ [M|| #method{name=M} <- lists:append(Ms)]), {_, InExported} = gen_inherited(Parents, Done, []), - w("-export([~s]).~n~n", [args(fun(EF) -> EF end, ",", - lists:usort(["parent_class/1"|InExported]), + w("-export([~s]).~n~n", [args(fun(EF) -> EF end, ",", + lists:usort(["parent_class/1"|InExported]), 60)]), - + w("%% @hidden~n", []), parents_check(Parents), - + Gen = fun(M) -> gen_method(Name,M) end, NewMs = lists:map(Gen,reverse(Ms)), - gen_dest(C, Ms), - + gen_dest(C, Ms), + gen_inherited(Parents, Done, true) end, @@ -203,26 +203,26 @@ gen_export(#class{name=Class,abstract=Abs},Ms0) -> [] -> []; [M=#method{where=taylormade}|_] -> [taylormade_export(Class, M)]; - Ms -> + Ms -> GetF = fun(#method{method_type=constructor,where=W,params=Ps}) -> {Args,Opts} = split_optional(Ps), - OptLen = case Opts of - [] -> 0; + OptLen = case Opts of + [] -> 0; _ when W =:= erl_no_opt -> 0; - _ -> 1 + _ -> 1 end, "new/" ++ integer_to_list(length(Args)+OptLen); (#method{method_type=destructor}) -> - case Abs of - true -> []; + case Abs of + true -> []; _ -> "destroy/1" end; (#method{name=N,alias=A,where=W, params=Ps}) -> {Args,Opts} = split_optional(Ps), - OptLen = case Opts of - [] -> 0; + OptLen = case Opts of + [] -> 0; _ when W =:= erl_no_opt -> 0; - _ -> 1 + _ -> 1 end, erl_func_name(N,A) ++ "/" ++ integer_to_list(length(Args) + OptLen) end, @@ -235,10 +235,10 @@ gen_method(Class,Ms0) -> Res = filter(RemoveC, Ms0), case Res of [] -> Ms0; - [M=#method{where=taylormade}|_] -> - taylormade_func(Class, M), + [#method{where=taylormade}|_] -> + taylormade_func(Class, Res), Ms0; - Ms -> + Ms -> gen_doc(Class,Ms), gen_method1(Ms), Ms0 @@ -279,22 +279,22 @@ gen_method2(M=#method{name=N,alias=A,params=Ps,type=T,method_type=MT,id=MethodId ignore -> skip; _ -> w(" _Result =", []) end, - + case have_return_vals(T, Ps) of _ when MT =:= constructor -> w(" wxe_util:construct(~s,~n <<~s~s>>)", [MId, MArgs,MOpts]); true -> w(" wxe_util:call(~s,~n <<~s~s>>)", [MId, MArgs,MOpts]); - false -> + false -> w(" wxe_util:cast(~s,~n <<~s~s>>)", [MId, MArgs,MOpts]) end, case gen_util:get_hook(erl, M#method.post_hook) of ignore -> skip; - Post -> + Post -> w(",~n ~s~n", [Post]), w(" _Result", []) end, - + erase(current_func), M. @@ -306,9 +306,9 @@ gen_dest(#class{name=CName,abstract=Abs}, Ms) -> case lists:keysearch(destructor,#method.method_type, lists:append(Ms)) of {value, #method{method_type=destructor, id=Id}} -> case hd(reverse(parents(CName))) of - object -> + object -> gen_dest2(CName, object); - root -> + root -> gen_dest2(CName, Id) end; false -> @@ -320,7 +320,7 @@ gen_dest2(Class, Id) -> w("%% @spec (This::~s()) -> ok~n", [Class]), w("%% @doc Destroys this object, do not use object again~n", []), w("destroy(Obj=#wx_ref{type=Type}) ->~n", []), - w(" ?CLASS(Type,~s),~n",[Class]), + w(" ?CLASS(Type,~s),~n",[Class]), case Id of object -> w(" wxe_util:destroy(?DESTROY_OBJECT,Obj),~n ok.~n", []); @@ -341,14 +341,14 @@ gen_inherited([Parent|Ps], Done0, Exported0) -> gen_inherited(Ps, gb_sets:union(Done,Done0), Exported). gen_inherited_ms([[#method{name=Name,alias=A,params=Ps0,where=W,method_type=MT}|_]|R], - Class,Skip,Done, Exported) - when W =/= merged_c -> + Class,Skip,Done, Exported) + when W =/= merged_c -> case gb_sets:is_member(Name,Skip) of false when MT =:= member, Exported =:= true -> Ps = [patch_param(P,all) || P <- Ps0], Opts = if W =:= erl_no_opt -> []; - true -> - [Opt || Opt = #param{def=Def,in=In, where=Where} <- Ps, + true -> + [Opt || Opt = #param{def=Def,in=In, where=Where} <- Ps, Def =/= none, In =/= false, Where =/= c] end, w("%% @hidden~n", []), @@ -359,10 +359,10 @@ gen_inherited_ms([[#method{name=Name,alias=A,params=Ps0,where=W,method_type=MT}| gen_inherited_ms(R,Class, Skip, gb_sets:add(Name,Done), Exported); false when MT =:= member, is_list(Exported) -> {Args,Opts} = split_optional(Ps0), - OptLen = case Opts of - [] -> 0; + OptLen = case Opts of + [] -> 0; _ when W =:= erl_no_opt -> 0; - _ -> 1 + _ -> 1 end, Export = erl_func_name(Name,A) ++ "/" ++ integer_to_list(length(Args) + OptLen), gen_inherited_ms(R,Class,Skip, gb_sets:add(Name,Done), [Export|Exported]); @@ -374,17 +374,21 @@ gen_inherited_ms([[_|Check]|R],Class,Skip, Done0,Exp) -> gen_inherited_ms([[]|R],Class,Skip,Done0,Exp) -> gen_inherited_ms(R,Class,Skip,Done0,Exp); gen_inherited_ms([], _, _Skip, Done,Exp) -> {Done,Exp}. - + %%%%%%%%%%%%%%% -taylormade_func(Class, #method{name=Name, id=Id}) -> +taylormade_func(Class, [#method{name=Name, id=Id}|_]) -> {ok, Bin} = file:read_file(filename:join([wx_extra, Class ++".erl"])), - Str0 = binary_to_list(Bin), - {match, [Str1]} = re:run(Str0, "<<"++Name++"(.*)"++Name++">>", - [dotall, {capture, all_but_first, list}]), - - w(Str1, ["?" ++ get_unique_name(Id)]), + Src = binary_to_list(Bin), + Str = case gen_util:get_taylor_made(Src, Name) of + nomatch -> + {match, [Str0]} = gen_util:get_taylor_made(Src, get_unique_name(Id)), + Str0; + {match, [Str0]} -> + Str0 + end, + w(Str, ["?" ++ get_unique_name(Id)]), ok. taylormade_export(Class, #method{name=Name}) -> @@ -398,12 +402,12 @@ taylormade_export(Class, #method{name=Name}) -> arg_type_tests([P|Ps], Mid0) -> case arg_type_test(P,"\n",Mid0) of - Mid0 -> + Mid0 -> arg_type_tests(Ps, Mid0); Mid -> %% Already checked the other args Mid end; -arg_type_tests([],Mid) -> Mid. +arg_type_tests([],Mid) -> Mid. arg_type_test(#param{where=c}, _, Acc) -> Acc; @@ -412,7 +416,7 @@ arg_type_test(#param{name=Name0,in=In,type=#type{base={class,T},single=true},def Name = erl_arg_name(Name0), w(" ?CLASS(~sT,~s),~s", [Name,T,EOS]), Acc; -arg_type_test(#param{name=Name0,in=In,type=#type{base={class,T}}, def=none},EOS,Acc) +arg_type_test(#param{name=Name0,in=In,type=#type{base={class,T}}, def=none},EOS,Acc) when In =/= false -> Name = erl_arg_name(Name0), w(" [?CLASS(~sT,~s) || #wx_ref{type=~sT} <- ~s],~s", [Name,T,Name,Name,EOS]), @@ -420,35 +424,35 @@ arg_type_test(#param{name=Name0,in=In,type=#type{base={class,T}}, def=none},EOS, arg_type_test(#param{name=Name0,def=none,in=In, type={merged, M1, #type{base={class,T1},single=true},Ps1, - M2, #type{base={class,T2},single=true},Ps2}}, EOS, _Acc) + M2, #type{base={class,T2},single=true},Ps2}}, EOS, _Acc) when In =/= false -> Name = erl_arg_name(Name0), Opname = Name++"OP", w(" ~s = case ?CLASS_T(~sT,~s) of~n true ->\n ", [Opname,Name,T1]), - lists:foreach(fun(Param) -> arg_type_test(Param,"\n ", ignore) end, + lists:foreach(fun(Param) -> arg_type_test(Param,"\n ", ignore) end, element(1,split_optional(Ps1))), w("?~s;~n",[get_unique_name(M1)]), w(" _ -> ?CLASS(~sT,~s),\n ",[Name,T2]), {Ps21,_} = split_optional(patchArgName(Ps2,Ps1)), - lists:foreach(fun(Param) -> arg_type_test(Param,"\n ", ignore) end, + lists:foreach(fun(Param) -> arg_type_test(Param,"\n ", ignore) end, Ps21), w("?~s\n end,~s",[get_unique_name(M2),EOS]), Opname; -arg_type_test(#param{name=Name0, type=#type{base=eventType}}, EOS, Acc) -> +arg_type_test(#param{name=Name0, type=#type{base=eventType}}, EOS, Acc) -> Name = erl_arg_name(Name0), w(" ~sBin = list_to_binary([atom_to_list(~s)|[0]]),~s", [Name,Name,EOS]), w(" ThisTypeBin = list_to_binary([atom_to_list(ThisT)|[0]]),~s", [EOS]), Acc; -arg_type_test(#param{name=Name0,def=none,type=#type{base={term,_}}}, EOS, Acc) -> +arg_type_test(#param{name=Name0,def=none,type=#type{base={term,_}}}, EOS, Acc) -> Name = erl_arg_name(Name0), w(" wxe_util:send_bin(term_to_binary(~s)),~s", [Name,EOS]), Acc; -arg_type_test(#param{name=Name0,type=#type{base=binary}},EOS,Acc) -> +arg_type_test(#param{name=Name0,type=#type{base=binary}},EOS,Acc) -> Name = erl_arg_name(Name0), w(" wxe_util:send_bin(~s),~s", [Name,EOS]), Acc; -arg_type_test(#param{name=Name0,type=#type{name=Type,base=Base,single=Single}},EOS,Acc) -> - if +arg_type_test(#param{name=Name0,type=#type{name=Type,base=Base,single=Single}},EOS,Acc) -> + if Type =:= "wxArtClient", Single =:= true -> Name = erl_arg_name(Name0), w(" ~s_UC = unicode:characters_to_binary([~s, $_, $C,0]),~s", @@ -458,11 +462,11 @@ arg_type_test(#param{name=Name0,type=#type{name=Type,base=Base,single=Single}},E w(" ~s_UC = unicode:characters_to_binary([~s,0]),~s", [Name,Name,EOS]); Type =:= "wxArrayString" -> Name = erl_arg_name(Name0), - w(" ~s_UCA = [unicode:characters_to_binary([~sTemp,0]) || ~s", + w(" ~s_UCA = [unicode:characters_to_binary([~sTemp,0]) || ~s", [Name,Name, EOS]), w(" ~sTemp <- ~s],~s", [Name,Name,EOS]); true -> %% Not a string - ignore + ignore end, Acc; arg_type_test(_,_,Acc) -> Acc. @@ -476,10 +480,10 @@ have_return_vals(void, Ps) -> have_return_vals(#type{}, _) -> true. gen_function_clause(Name0,MT,Ps,Optional,Variant) -> - PArg = fun(Arg) -> + PArg = fun(Arg) -> case lists:member(name_only, Variant) of true -> func_arg_name(Arg); - false -> + false -> case lists:member(name_type, Variant) of true -> Name = func_arg_name(Arg), @@ -495,17 +499,17 @@ gen_function_clause(Name0,MT,Ps,Optional,Variant) -> Args = args(PArg, ",", Ps), Name = case MT of constructor -> "new"; _ -> Name0 end, w("~s(~s",[Name,Args]), - Opts = case Optional of + Opts = case Optional of [] -> ""; empty_list when Args =:= [] -> "[]"; empty_list -> ", []"; _ when Args =:= [] -> "Options"; - _ -> ", Options" + _ -> ", Options" end, w("~s)", [Opts]), case lists:member(no_guards, Variant) of true -> ok; - false -> + false -> Guards = args(fun guard_test/1, ",", Ps), if Guards =:= [], Opts =:= "" -> w(" ->~n", []); @@ -517,10 +521,10 @@ gen_function_clause(Name0,MT,Ps,Optional,Variant) -> split_optional(Ps) -> split_optional(Ps, [], []). -split_optional([P=#param{def=Def,in=In, where=Where}|Ps], Standard, Opts) +split_optional([P=#param{def=Def,in=In, where=Where}|Ps], Standard, Opts) when Def =/= none, In =/= false, Where =/= c -> split_optional(Ps, Standard, [P|Opts]); -split_optional([P=#param{def=Def,in=In, where=Where}|Ps], Standard, Opts) +split_optional([P=#param{def=Def,in=In, where=Where}|Ps], Standard, Opts) when Def =:= none, In =/= false, Where =/= c -> split_optional(Ps, [P|Standard], Opts); split_optional([_|Ps], Standard, Opts) -> @@ -532,24 +536,24 @@ patch_param(P=#param{type=#type{base=Tuple}}, all) when is_tuple(Tuple) -> P#param{type={class,ignore}}; patch_param(P=#param{type={merged,_,_,_,_,_,_}}, _) -> P#param{type={class,ignore}}; -patch_param(P=#param{type=#type{base={class,_}}},_) -> +patch_param(P=#param{type=#type{base={class,_}}},_) -> P#param{type={class,ignore}}; -patch_param(P=#param{type=#type{base={ref,_}}},_) -> +patch_param(P=#param{type=#type{base={ref,_}}},_) -> P#param{type={class,ignore}}; patch_param(P,_) -> P. func_arg_name(#param{def=Def}) when Def =/= none -> skip; func_arg_name(#param{in=false}) -> skip; func_arg_name(#param{where=c}) -> skip; -func_arg_name(#param{name=Name}) -> +func_arg_name(#param{name=Name}) -> erl_arg_name(Name). func_arg(#param{def=Def}) when Def =/= none -> skip; func_arg(#param{in=false}) -> skip; func_arg(#param{where=c}) -> skip; -func_arg(#param{name=Name,type=#type{base=string}}) -> +func_arg(#param{name=Name,type=#type{base=string}}) -> erl_arg_name(Name); -func_arg(#param{name=Name,type=#type{name="wxArrayString"}}) -> +func_arg(#param{name=Name,type=#type{name="wxArrayString"}}) -> erl_arg_name(Name); func_arg(#param{name=Name0,type=#type{base={class,_CN}, single=true}}) -> Name = erl_arg_name(Name0), @@ -570,7 +574,7 @@ func_arg(#param{name=Name,type=#type{base={comp,"wxDateTime",_Tup}, single=true} func_arg(#param{name=Name,type=#type{name="wxArtClient", single=true}}) -> erl_arg_name(Name); func_arg(#param{name=Name,type=#type{base={comp,_,Tup}, single=true}}) -> - N = erl_arg_name(Name), + N = erl_arg_name(Name), Doc = fun({_,V}) -> erl_arg_name(N)++V end, "{" ++ args(Doc, ",", Tup) ++ "}"; func_arg(#param{name=Name}) -> @@ -587,7 +591,7 @@ guard_test(#param{name=N, type=#type{name="wxArtClient"}}) -> "is_list(" ++ erl_arg_name(N) ++")"; guard_test(#param{name=N, type=#type{name="wxArrayString"}}) -> "is_list(" ++ erl_arg_name(N) ++")"; -guard_test(#param{name=Name,type=#type{single=Single}}) +guard_test(#param{name=Name,type=#type{single=Single}}) when Single =/= true-> "is_list(" ++ erl_arg_name(Name) ++ ")"; guard_test(#param{name=N,type=#type{base=int}}) -> @@ -637,42 +641,42 @@ gen_doc(_Class,[#method{name=N,alias=A,params=Ps,type=T,where=erl_no_opt,method_ gen_function_clause(erl_func_name(N,A),MT,Ps,empty_list,[no_guards,name_only]); gen_doc(Class,[#method{name=N,params=Ps,type=T}])-> {_, Optional} = split_optional(Ps), - NonDef = [Arg || Arg = #param{def=Def,in=In, where=Where} <- Ps, + NonDef = [Arg || Arg = #param{def=Def,in=In, where=Where} <- Ps, Def =:= none, In =/= false, Where =/= c], OptsType = case Optional of [] -> ""; _ when NonDef =:= [] -> "[Option]"; - _ -> ", [Option]" + _ -> ", [Option]" end, w("%% @spec (~s~s) -> ~s~n", [doc_arg_types(Ps),OptsType,doc_return_types(T,Ps)]), doc_optional(Optional, normal), - DocEnum = doc_enum(T,Ps, normal), + DocEnum = doc_enum(T,Ps, normal), case Class of "utils" -> w("%% @doc See <a href=\"http://www.wxwidgets.org/manuals/stable/wx_miscellany.html#~s\">" - "external documentation</a>.~n", + "external documentation</a>.~n", [lowercase_all(N)]); _ -> w("%% @doc See <a href=\"http://www.wxwidgets.org/manuals/stable/wx_~s.html#~s~s\">" - "external documentation</a>.~n", + "external documentation</a>.~n", [lowercase_all(Class),lowercase_all(Class),lowercase_all(N)]) end, doc_enum_desc(DocEnum); gen_doc(Class, Cs = [#method{name=N, alias=A,method_type=MT}|_]) -> - GetRet = fun(#method{params=Ps,type=T}) -> + GetRet = fun(#method{params=Ps,type=T}) -> doc_return_types(T,Ps) end, - GetArgs = fun(#method{params=Ps, where=Where}) -> + GetArgs = fun(#method{params=Ps, where=Where}) -> Opt = case Where of erl_no_opt -> []; - _ -> + _ -> case split_optional(Ps) of {_, []} -> []; _ -> ["[Option]"] end end, - [doc_arg_type(P) || + [doc_arg_type(P) || P=#param{in=In,def=none,where=W} <- Ps, In =/= false, W =/= c] ++ Opt end, @@ -682,16 +686,16 @@ gen_doc(Class, Cs = [#method{name=N, alias=A,method_type=MT}|_]) -> case Class of "utils" -> w("%% @doc See <a href=\"http://www.wxwidgets.org/manuals/stable/wx_miscellany.html#~s\">" - "external documentation</a>.~n", + "external documentation</a>.~n", [lowercase_all(N)]); _ -> w("%% @doc See <a href=\"http://www.wxwidgets.org/manuals/stable/wx_~s.html#~s~s\">" - "external documentation</a>.~n", + "external documentation</a>.~n", [lowercase_all(Class),lowercase_all(Class),lowercase_all(N)]) end, Name = case MT of constructor -> "new"; _ -> erl_func_name(N,A) end, w("%% <br /> Alternatives:~n",[]), - [gen_doc2(Name, Clause) || Clause <- Cs], + [gen_doc2(Name, Clause) || Clause <- Cs], ok. gen_doc2(Name,#method{params=Ps,where=erl_no_opt,method_type=MT}) -> @@ -704,11 +708,11 @@ gen_doc2(Name,#method{params=Ps,type=T}) -> OptsType = case Optional of [] -> ""; _ when NonDef =:= [] -> "[Option]"; - _ -> ", [Option]" + _ -> ", [Option]" end, w("%% <p><c>~n",[]), w("%% ~s(~s~s) -> ~s </c>~n", - [Name,doc_arg_types(Ps),OptsType,doc_return_types(T,Ps)]), + [Name,doc_arg_types(Ps),OptsType,doc_return_types(T,Ps)]), doc_optional(Optional, xhtml), DocEnum = doc_enum(T,Ps, xhtml), doc_enum_desc(DocEnum), @@ -717,7 +721,7 @@ gen_doc2(Name,#method{params=Ps,type=T}) -> doc_arg(ArgList) -> case all_eq(ArgList) of true -> hd(ArgList); - false -> + false -> Get = fun(Str) -> [_Name|Types] = string:tokens(Str, ":"), case Types of @@ -734,12 +738,12 @@ doc_arg(ArgList) -> doc_ret(ArgList) -> case all_eq(ArgList) of true -> hd(ArgList); - false -> + false -> args(fun(A) -> A end, "|", ArgList) end. unique([], U) -> reverse(U); -unique([H|R], U) -> +unique([H|R], U) -> case lists:member(H,U) of false -> unique(R,[H|U]); true -> unique(R,U) @@ -756,7 +760,7 @@ zip(List) -> zip([[F|L1]|List], Rest, AccL, Acc) -> zip(List, [L1|Rest], [F|AccL], Acc); -zip(Empty, Rest, AccL, Acc) -> +zip(Empty, Rest, AccL, Acc) -> true = empty(Empty), case empty(Rest) andalso empty(AccL) of true -> reverse(Acc); @@ -779,7 +783,7 @@ doc_arg_type(_) -> skip. doc_arg_type2(T=#type{single=Single}) when Single =:= array; Single =:= list -> "[" ++ doc_arg_type3(T) ++ "]"; -doc_arg_type2(T) -> +doc_arg_type2(T) -> doc_arg_type3(T). doc_arg_type3(#type{base=string}) -> "string()"; @@ -799,8 +803,8 @@ doc_arg_type3(#type{base={binary,_}}) -> "binary()"; doc_arg_type3(#type{base=eventType}) -> "atom()"; doc_arg_type3(#type{base={ref,N}}) -> N++"()"; doc_arg_type3(#type{base={term,_N}}) -> "term()"; -doc_arg_type3(T=#type{base={class,N}}) -> - check_class(T), +doc_arg_type3(T=#type{base={class,N}}) -> + check_class(T), case get(current_class) of N -> N ++ "()"; _ -> N++":" ++ N++"()" @@ -809,7 +813,7 @@ doc_arg_type3({merged,_,T1=#type{base={class,N1}},_,_,T2=#type{base={class,N2}}, check_class(T1), check_class(T2), Curr = get(current_class), - if + if N1 =:= Curr, N2 =:= Curr -> N1++"() | "++ N2++"()"; N1 =:= Curr -> N1++"() | "++ N2++":" ++ N2++"()"; N2 =:= Curr -> N1++":" ++ N1++"() | "++ N2++"()"; @@ -824,7 +828,7 @@ doc_arg_type3(#type{base={comp,_,{record,Name}}}) -> "wx:" ++ atom_to_list(Name) ++ "()"; doc_arg_type3(#type{base={comp,_,Tup}}) -> Doc = fun({int,V}) -> V ++ "::integer()"; - ({double,V}) -> V ++ "::float()" + ({double,V}) -> V ++ "::float()" end, "{" ++ args(Doc, ",", Tup) ++ "}"; doc_arg_type3(T) -> ?error({unknown_type,T}). @@ -834,7 +838,7 @@ doc_return_types(T, Ps) -> doc_return_types2(void, []) -> "ok"; doc_return_types2(void, [#param{type=T}]) -> doc_arg_type2(T); doc_return_types2(T, []) -> doc_arg_type2(T); -doc_return_types2(void, Ps) -> +doc_return_types2(void, Ps) -> "{" ++ args(fun doc_arg_type/1,",",Ps) ++ "}"; doc_return_types2(T, Ps) -> "{" ++ doc_arg_type2(T) ++ "," ++ args(fun doc_arg_type/1,",",Ps) ++ "}". @@ -887,7 +891,7 @@ check_name(Name) -> Name. marshal_opts([], _,_) -> ""; %% No opts skip this! marshal_opts(Opts, Align, Args) -> - w(" MOpts = fun", []), + w(" MOpts = fun", []), marshal_opts1(Opts,1), w(";~n (BadOpt, _) -> erlang:error({badoption, BadOpt}) end,~n", []), w(" BinOpt = list_to_binary(lists:foldl(MOpts, [<<0:32>>], Options)),~n", []), @@ -896,7 +900,7 @@ marshal_opts(Opts, Align, Args) -> [] -> Str; % All Args are optional _ -> ", " ++ Str end. - + marshal_opts1([P],N) -> marshal_opt(P,N); marshal_opts1([P|R],N) -> @@ -909,15 +913,15 @@ marshal_opt(P0=#param{name=Name,type=Type},N) -> {Arg,Align} = marshal_arg(Type,erl_arg_name(Name),1), AStr = if Align =:= 0 -> ""; Align =:= 1 -> ",0:32" - end, - w("({~s, ~s}, Acc) -> ", [erl_option_name(Name), func_arg(P)]), + end, + w("({~s, ~s}, Acc) -> ", [erl_option_name(Name), func_arg(P)]), arg_type_test(P,"",[]), case Arg of - skip -> + skip -> w("[<<~p:32/?UI~s>>|Acc]", [N, AStr]); - _ -> + _ -> w("[<<~p:32/?UI,~s~s>>|Acc]", [N, Arg,AStr]) - end. + end. marshal_args(Ps) -> marshal_args(Ps, [], 0). @@ -957,23 +961,23 @@ marshal_arg(#type{single=true,base={enum,_Enum}}, Name, Align) -> marshal_arg(#type{single=true,base=bool}, Name, Align) -> align(32, Align, "(wxe_util:from_bool(" ++ Name ++ ")):32/?UI"); -marshal_arg(#type{name="wxChar", single=Single}, Name, Align0) +marshal_arg(#type{name="wxChar", single=Single}, Name, Align0) when Single =/= true -> - {Str,Align} = + {Str,Align} = align(32,Align0, "(byte_size("++Name++"_UC)):32/?UI,(" ++ Name ++ "_UC)/binary"), MsgSize = "(" ++ integer_to_list(Align*4)++"+byte_size("++Name++"_UC))", {Str++", 0:(((8- (" ++ MsgSize ++" band 16#7)) band 16#7))/unit:8",0}; marshal_arg(#type{base=string}, Name, Align0) -> - {Str,Align} = + {Str,Align} = align(32,Align0, "(byte_size("++Name++"_UC)):32/?UI,(" ++ Name ++ "_UC)/binary"), MsgSize = "(" ++ integer_to_list(Align*4)++"+byte_size("++Name++"_UC))", {Str++", 0:(((8- (" ++ MsgSize ++" band 16#7)) band 16#7))/unit:8",0}; marshal_arg(#type{name="wxArrayString"}, Name, Align0) -> - InnerBin = "<<(byte_size(UC_Str)):32/?UI, UC_Str/binary>>", + InnerBin = "<<(byte_size(UC_Str)):32/?UI, UC_Str/binary>>", Outer = "(<< " ++ InnerBin ++ "|| UC_Str <- "++ Name ++"_UCA>>)/binary", Str0 = "(length("++Name++"_UCA)):32/?UI, " ++ Outer, {Str,Align} = align(32,Align0,Str0), - MsgSize = "("++integer_to_list(Align*4) ++ + MsgSize = "("++integer_to_list(Align*4) ++ " + lists:sum([byte_size(S)+4||S<-" ++ Name ++"_UCA]))", AStr = ", 0:(((8- (" ++ MsgSize ++" band 16#7)) band 16#7))/unit:8", {Str ++ AStr, 0}; @@ -997,15 +1001,15 @@ marshal_arg(#type{base={term,_}}, _Name, Align0) -> {skip,Align0}; marshal_arg(#type{base=binary}, _Name, Align0) -> {skip,Align0}; -marshal_arg(#type{base=Base, single=Single}, Name, Align0) +marshal_arg(#type{base=Base, single=Single}, Name, Align0) when Single =/= true -> - case Base of - int -> + case Base of + int -> Str0 = "(length("++Name++")):32/?UI,\n" " (<< <<C:32/?I>> || C <- "++Name++">>)/binary", {Str,Align} = align(32,Align0, Str0), {Str ++ ", 0:((("++integer_to_list(Align)++"+length("++Name++ ")) rem 2)*32)", 0}; - {ObjRef,_} when ObjRef =:= class; ObjRef =:= ref -> + {ObjRef,_} when ObjRef =:= class; ObjRef =:= ref -> Str0 = "(length("++Name++")):32/?UI,", Str1 = "\n (<< <<(C#wx_ref.ref):32/?UI>> || C <- "++Name++">>)/binary", {Str2,Align} = align(32, Align0, Str1), @@ -1033,7 +1037,7 @@ align(64, 0, Str) -> {Str, 0}; align(64, 1, Str) -> {"0:32," ++ Str,0}; align(Sz, W, Str) -> align(Sz, W rem 2, Str). -enum_name(Name) -> +enum_name(Name) -> case string:tokens(Name, ":") of [Name] -> Name; [C,N] -> C ++ "_" ++ N @@ -1053,10 +1057,10 @@ gen_enums_ints() -> " }).~n", []), w("~n%% Hardcoded Defines~n", []), Enums = [E || {{enum,_},E = #enum{as_atom=false}} <- get()], - w("-define(wxDefaultSize, {-1,-1}).~n", []), - w("-define(wxDefaultPosition, {-1,-1}).~n", []), + w("-define(wxDefaultSize, {-1,-1}).~n", []), + w("-define(wxDefaultPosition, {-1,-1}).~n", []), w("~n%% Global Variables~n", []), - [w("-define(~s, wxe_util:get_const(~s)).~n", [Gvar, Gvar]) || + [w("-define(~s, wxe_util:get_const(~s)).~n", [Gvar, Gvar]) || {Gvar,_,_Id} <- get(gvars)], w("~n%% Enum and defines~n", []), foldl(fun(Enum= #enum{vals=Vals}, Done) when Vals =/= [] -> @@ -1076,7 +1080,7 @@ build_enum_ints(#enum{from=From, vals=Vals},Done) -> {_File, Class, Name} -> w("% From class ~s::~s~n",[Class, Name]) end, - + Format = fun(#const{name="wxEVT_" ++ _}) -> ignore; %% Ignore event macros they are not valid in our event model (#const{name=Name,val=Value,is_const=true}) when is_integer(Value) -> @@ -1100,12 +1104,12 @@ build_enum_ints(#enum{from=From, vals=Vals},Done) -> Consts = get(consts), Write = fun({Name,_What}, Skip) -> case gb_sets:is_member(Name,Skip) of - true -> + true -> Skip; false -> case gb_trees:lookup(Name, Consts) of {value, Const} -> - Format(Const), + Format(Const), gb_sets:add(Name,Skip); none -> Skip end @@ -1119,8 +1123,8 @@ gen_event_recs() -> w("", []), w("%% This file is generated DO NOT EDIT~n~n", []), w("%% All event messages are encapsulated in a wx record~n" - "%% they contain the widget id and a specialized event record.~n" - "%% Each event record may be sent for one or more event types.~n" + "%% they contain the widget id and a specialized event record.~n" + "%% Each event record may be sent for one or more event types.~n" "%% The mapping to wxWidgets is one record per class.~n~n",[]), w("%% @type wx() = #wx{id=integer(), obj=wx:wxObject(), userData=term(), event=Rec}. Rec is a event record.~n",[]), w("-record(wx, {id, %% Integer Identity of object.~n" @@ -1130,7 +1134,7 @@ gen_event_recs() -> w("%% Here comes the definitions of all event records.~n" "%% they contain the event type and possible some extra information.~n~n",[]), Types = [build_event_rec(C) || {_,C=#class{event=Evs}} <- get(), Evs =/= false], - w("%% @type wxEventType() = ~s.~n", + w("%% @type wxEventType() = ~s.~n", [args(fun(Ev) -> Ev end, " | ", lists:sort(lists:append(Types)))]), %% close(), closed in gen_enums_ints ok. @@ -1145,22 +1149,22 @@ find_inherited_attr(Param = {PName,_}, Name) -> end. filter_attrs(#class{name=Name, parent=Parent,attributes=Attrs}) -> - Attr1 = lists:foldl(fun(#param{acc=skip},Acc) -> Acc; + Attr1 = lists:foldl(fun(#param{acc=skip},Acc) -> Acc; (P=#param{prot=public},Acc) -> [P|Acc]; - (#param{acc=undefined},Acc) -> Acc; + (#param{acc=undefined},Acc) -> Acc; ({inherited, PName},Acc) -> case find_inherited_attr(PName, Parent) of - undefined -> + undefined -> io:format("~p:~p: Missing Event Attr ~p in ~p~n", [?MODULE,?LINE, PName, Name]), Acc; - P -> + P -> [P|Acc] end; (P, Acc) -> [P|Acc] end, [], Attrs), lists:reverse(Attr1). - + build_event_rec(Class=#class{name=Name, event=Evs}) -> EvTypes = [event_type_name(Ev) || Ev <- Evs], Str = args(fun(Ev) -> "<em>"++Ev++"</em>" end, ", ", EvTypes), @@ -1168,26 +1172,26 @@ build_event_rec(Class=#class{name=Name, event=Evs}) -> Rec = event_rec_name(Name), GetName = fun(#param{name=N}) ->event_attr_name(N) end, GetType = fun(#param{name=N,type=T}) -> - event_attr_name(N) ++ "=" ++ doc_arg_type2(T) + event_attr_name(N) ++ "=" ++ doc_arg_type2(T) end, case Attr =:= [] of - true -> + true -> w("%% @type ~s() = #~s{type=wxEventType()}.~n", [Rec,Rec]), w("%% <dl><dt>EventType:</dt> <dd>~s</dd></dl>~n",[Str]), -%% case is_command_event(Name) of +%% case is_command_event(Name) of %% true -> w("%% This event skips other event handlers.~n",[]); %% false -> w("%% This event will be handled by other handlers~n",[]) %% end, w("%% Callback event: {@link ~s}~n", [Name]), w("-record(~s, {type}).~n~n", [Rec]); false -> - w("%% @type ~s() = #~s{type=wxEventType(),~s}.~n", + w("%% @type ~s() = #~s{type=wxEventType(),~s}.~n", [Rec,Rec,args(GetType,",",Attr)]), w("%% <dl><dt>EventType:</dt> <dd>~s</dd></dl>~n",[Str]), -%% case is_command_event(Name) of +%% case is_command_event(Name) of %% true -> w("%% This event skips other event handlers.~n",[]); %% false -> w("%% This event will be handled by other handlers~n",[]) -%% end, +%% end, w("%% Callback event: {@link ~s}~n", [Name]), w("-record(~s,{type, ~s}).~n~n", [Rec,args(GetName,",",Attr)]) end, @@ -1198,7 +1202,7 @@ is_command_event(Name) -> true -> true; false -> false end. - + event_rec_name(Name0 = "wx" ++ _) -> "tnevE" ++ Name1 = reverse(Name0), reverse(Name1). @@ -1215,7 +1219,7 @@ event_attr_name(Attr) -> lowercase(Attr). -gen_funcnames() -> +gen_funcnames() -> open_write("../src/gen/wxe_debug.hrl"), erl_copyright(), w("%% This file is generated DO NOT EDIT~n~n", []), @@ -1257,7 +1261,7 @@ unique_names(Ms0, Class) -> Ms = split_list(fun(#method{name=N}, M) -> {N =:= M, N} end, undefined, Ms2), unique_names2(Ms,Class). %% by Names -unique_names2([[#method{id=Id, name=Method,alias=Alias, max_arity=A}]|Ms], Class) -> +unique_names2([[#method{id=Id, name=Method,alias=Alias, max_arity=A}]|Ms], Class) -> [{Class,uname(alias(Method,Alias),Class),A,Id} | unique_names2(Ms,Class)]; unique_names2([Ms0|RMs], Class) -> Split = fun(#method{max_arity=A}, P) -> {A =:= P, A} end, @@ -1278,11 +1282,11 @@ unique_names4([], _, _Class) -> []. alias(Method, undefined) -> Method; alias(_, Alias) -> Alias. - + uname(Class,Class) -> "new"; uname([$~ | _], _ ) -> "destruct"; uname(Name, _) -> Name. - + split_list(F, Keep, List) -> split_list(F, Keep, List, []). @@ -1297,5 +1301,5 @@ split_list(F, Keep, [M|Ms], Acc) -> end; split_list(_, _, [], []) -> []; split_list(_, _, [], Acc) -> [lists:reverse(Acc)]. - + diff --git a/lib/wx/api_gen/wxapi.conf b/lib/wx/api_gen/wxapi.conf index aec8a4944a..8ee4451057 100644 --- a/lib/wx/api_gen/wxapi.conf +++ b/lib/wx/api_gen/wxapi.conf @@ -2,7 +2,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2008-2010. All Rights Reserved. +%% Copyright Ericsson AB 2008-2011. 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 @@ -756,7 +756,9 @@ 'SetFirstItem']}. {class, wxListCtrl, wxControl, [], - ['wxListCtrl','~wxListCtrl','Arrange','AssignImageList','ClearAll','Create', + [{'wxListCtrl', [{where, taylormade}]}, + '~wxListCtrl','Arrange','AssignImageList','ClearAll', + {'Create',[{where, taylormade}]}, 'DeleteAllItems','DeleteColumn','DeleteItem', {'EditLabel',[{"textControlClass",nowhere}]}, 'EnsureVisible', @@ -788,6 +790,13 @@ 'SetFont','SetId','SetImage','SetMask','SetState', 'SetStateMask','SetText','SetTextColour','SetWidth']}. +{class, wxListItemAttr, root, [], + ['wxListItemAttr','~wxListItemAttr', + 'GetBackgroundColour', 'GetFont', + 'GetTextColour', 'HasBackgroundColour', 'HasFont', + 'HasTextColour', 'SetBackgroundColour', 'SetFont', 'SetTextColour' + ]}. + {class, wxImageList, object, [{skip, [{'Create',1}]}], %% No create/0 on windows ['wxImageList','~wxImageList','Add','Create','Draw','GetBitmap','GetIcon','GetImageCount', 'GetSize','Remove','RemoveAll','Replace']}. diff --git a/lib/wx/c_src/egl_impl.cpp b/lib/wx/c_src/egl_impl.cpp index e2dbbb73c4..6d873abc44 100644 --- a/lib/wx/c_src/egl_impl.cpp +++ b/lib/wx/c_src/egl_impl.cpp @@ -1,20 +1,20 @@ /* * %CopyrightBegin% - * - * Copyright Ericsson AB 2010. All Rights Reserved. - * + * + * Copyright Ericsson AB 2011. 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% + * + * %CopyrightEnd% */ #include <stdio.h> @@ -35,8 +35,8 @@ void init_tess(); void exit_tess(); int load_gl_functions(); -/* **************************************************************************** - * OPENGL INITIALIZATION +/* **************************************************************************** + * OPENGL INITIALIZATION *****************************************************************************/ int egl_initiated = 0; @@ -51,7 +51,7 @@ void * dlsym(HMODULE Lib, const char *func) { void * funcp; if((funcp = (void *) GetProcAddress(Lib, func))) return funcp; - else + else return (void *) wglGetProcAddress(func); } @@ -73,14 +73,14 @@ typedef char DL_CHAR; # define OPENGL_LIB "libGL.so" # define OPENGLU_LIB "libGLU.so" # endif -#endif +#endif extern "C" { -DRIVER_INIT(EGL_DRIVER) { +DRIVER_INIT(EGL_DRIVER) { return NULL; } } -int egl_init_opengl(void *erlCallbacks) +int egl_init_opengl(void *erlCallbacks) { #ifdef _WIN32 driver_init((TWinDynDriverCallbacks *) erlCallbacks); @@ -95,7 +95,7 @@ int egl_init_opengl(void *erlCallbacks) } int load_gl_functions() { - DL_CHAR * DLName = OPENGL_LIB; + DL_CHAR * DLName = (DL_CHAR *) OPENGL_LIB; DL_LIB_P LIBhandle = dlopen(DLName, RTLD_LAZY); //fprintf(stderr, "Loading GL: %s\r\n", (const char*)DLName); void * func = NULL; @@ -127,13 +127,13 @@ int load_gl_functions() { fprintf(stderr, "Could NOT load OpenGL library: %s\r\n", DLName); }; - DLName = OPENGLU_LIB; + DLName = (DL_CHAR *) OPENGLU_LIB; LIBhandle = dlopen(DLName, RTLD_LAZY); // fprintf(stderr, "Loading GLU: %s\r\n", (const char*)DLName); func = NULL; if(LIBhandle) { - for(i=0; glu_fns[i].name != NULL; i++) { + for(i=0; glu_fns[i].name != NULL; i++) { if((func = dlsym(LIBhandle, glu_fns[i].name))) { * (void **) (glu_fns[i].func) = func; } else { @@ -201,7 +201,7 @@ egl_ogla_error(GLenum errorCode) void CALLBACK egl_ogla_combine(GLdouble coords[3], void* vertex_data[4], - GLfloat w[4], + GLfloat w[4], void **dataOut) { GLdouble* vertex = tess_alloc_vertex; @@ -226,7 +226,7 @@ egl_ogla_combine(GLdouble coords[3], *dataOut = vertex; } -void init_tess() +void init_tess() { tess = gluNewTess(); @@ -237,7 +237,7 @@ void init_tess() } -void exit_tess() +void exit_tess() { gluDeleteTess(tess); } @@ -251,22 +251,22 @@ int erl_tess_impl(char* buff, ErlDrvPort port, ErlDrvTermData caller) int num_vertices; GLdouble *n; int n_pos, AP, res; - + num_vertices = * (int *) buff; buff += 8; /* Align */ n = (double *) buff; buff += 8*3; - bin = driver_alloc_binary(num_vertices*6*sizeof(GLdouble)); + bin = driver_alloc_binary(num_vertices*6*sizeof(GLdouble)); new_vertices = tess_coords = (double *) bin->orig_bytes; memcpy(tess_coords,buff,num_vertices*3*sizeof(GLdouble)); tess_alloc_vertex = tess_coords + num_vertices*3; #if 0 fprintf(stderr, "n=%d\r\n", num_vertices); -#endif +#endif vertices = (int *) driver_alloc(sizeof(int) * 16*num_vertices); - + tess_vertices = vertices; - + gluTessNormal(tess, n[0], n[1], n[2]); gluTessBeginPolygon(tess, 0); gluTessBeginContour(tess); @@ -275,9 +275,9 @@ int erl_tess_impl(char* buff, ErlDrvPort port, ErlDrvTermData caller) } gluTessEndContour(tess); gluTessEndPolygon(tess); - - n_pos = (tess_vertices - vertices); - + + n_pos = (tess_vertices - vertices); + AP = 0; ErlDrvTermData *rt; rt = (ErlDrvTermData *) driver_alloc(sizeof(ErlDrvTermData) * (13+n_pos*2)); rt[AP++]=ERL_DRV_ATOM; rt[AP++]=driver_mk_atom((char *) "_egl_result_"); @@ -287,12 +287,12 @@ int erl_tess_impl(char* buff, ErlDrvPort port, ErlDrvTermData caller) }; rt[AP++] = ERL_DRV_NIL; rt[AP++] = ERL_DRV_LIST; rt[AP++] = n_pos+1; - rt[AP++] = ERL_DRV_BINARY; rt[AP++] = (ErlDrvTermData) bin; + rt[AP++] = ERL_DRV_BINARY; rt[AP++] = (ErlDrvTermData) bin; rt[AP++] = (tess_alloc_vertex-new_vertices)*sizeof(GLdouble); rt[AP++] = 0; - + rt[AP++] = ERL_DRV_TUPLE; rt[AP++] = 2; // Return tuple {list, Bin} rt[AP++] = ERL_DRV_TUPLE; rt[AP++] = 2; // Result tuple - + res = driver_send_term(port,caller,rt,AP); /* fprintf(stderr, "List %d: %d %d %d \r\n", */ /* res, */ diff --git a/lib/wx/c_src/gen/wxe_derived_dest.h b/lib/wx/c_src/gen/wxe_derived_dest.h index ad46a98c90..4e4aea098d 100644 --- a/lib/wx/c_src/gen/wxe_derived_dest.h +++ b/lib/wx/c_src/gen/wxe_derived_dest.h @@ -1,7 +1,7 @@ /* * %CopyrightBegin% * - * Copyright Ericsson AB 2008-2010. All Rights Reserved. + * Copyright Ericsson AB 2008-2011. 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 @@ -362,10 +362,22 @@ class EwxListBox : public wxListBox { EwxListBox() : wxListBox() {}; }; + class EwxListCtrl : public wxListCtrl { - public: ~EwxListCtrl() {((WxeApp *)wxTheApp)->clearPtr(this);}; + public: ~EwxListCtrl(); EwxListCtrl(wxWindow * parent,wxWindowID winid,const wxPoint& pos,const wxSize& size,long style,const wxValidator& validator) : wxListCtrl(parent,winid,pos,size,style,validator) {}; EwxListCtrl() : wxListCtrl() {}; + + int onGetItemText; + int onGetItemAttr; + int onGetItemColumnImage; + ErlDrvPort port; + + private: + virtual wxString OnGetItemText(long item, long col) const; + virtual wxListItemAttr* OnGetItemAttr(long item) const; + virtual int OnGetItemImage(long item) const; + virtual int OnGetItemColumnImage(long item, long column) const; }; class EwxListItem : public wxListItem { @@ -715,28 +727,3 @@ class EwxHtmlWindow : public wxHtmlWindow { EwxHtmlWindow() : wxHtmlWindow() {}; }; -void WxeApp::delete_object(void *ptr, wxeRefData *refd) { - switch(refd->type) { - case 24: delete (wxGridCellBoolRenderer *) ptr; break; - case 25: delete (wxGridCellBoolEditor *) ptr; break; - case 26: delete (wxGridCellFloatRenderer *) ptr; break; - case 27: delete (wxGridCellFloatEditor *) ptr; break; - case 28: delete (wxGridCellStringRenderer *) ptr; break; - case 29: delete (wxGridCellTextEditor *) ptr; break; - case 30: delete (wxGridCellChoiceEditor *) ptr; break; - case 31: delete (wxGridCellNumberRenderer *) ptr; break; - case 32: delete (wxGridCellNumberEditor *) ptr; break; - case 61: delete (wxIconBundle *) ptr; break; - case 69: delete (wxAcceleratorEntry *) ptr; break; - case 70: /* delete (wxCaret *) ptr;These objects must be deleted by owner object */ break; - case 72: delete (wxSizerFlags *) ptr; break; - case 88: /* delete (wxCalendarDateAttr *) ptr;These objects must be deleted by owner object */ break; - case 102: delete (wxTextAttr *) ptr; break; - case 154: delete (wxAuiPaneInfo *) ptr; break; - case 211: /* delete (wxFileDataObject *) ptr;These objects must be deleted by owner object */ break; - case 212: /* delete (wxTextDataObject *) ptr;These objects must be deleted by owner object */ break; - case 213: /* delete (wxBitmapDataObject *) ptr;These objects must be deleted by owner object */ break; - case 223: delete (wxLogNull *) ptr; break; - default: delete (wxObject *) ptr; -}} - diff --git a/lib/wx/c_src/gen/wxe_events.cpp b/lib/wx/c_src/gen/wxe_events.cpp index 692eef858c..b9769318af 100644 --- a/lib/wx/c_src/gen/wxe_events.cpp +++ b/lib/wx/c_src/gen/wxe_events.cpp @@ -1,7 +1,7 @@ /* * %CopyrightBegin% * - * Copyright Ericsson AB 2008-2010. All Rights Reserved. + * Copyright Ericsson AB 2008-2011. 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 @@ -37,15 +37,15 @@ int wxeEventTypeFromAtom(char *etype_atom) { wxeETmap::iterator it; for(it = etmap.begin(); it != etmap.end(); ++it) { wxeEtype * value = it->second; - if(strcmp(value->eName, etype_atom) == 0) { - if(it->first > wxEVT_USER_FIRST) { + if(strcmp(value->eName, etype_atom) == 0) { + if(it->first > wxEVT_USER_FIRST) { return it->first - wxEVT_USER_FIRST; } else { return it->first; } } - } - return -1; + } + return -1; } void initEventTable() @@ -53,254 +53,254 @@ void initEventTable() struct { int ev_type; int class_id; const char * ev_name;} event_types[] = { {wxEVT_NULL, 0, "null"}, - {wxEVT_COMMAND_BUTTON_CLICKED, 163, "command_button_clicked"}, - {wxEVT_COMMAND_CHECKBOX_CLICKED, 163, "command_checkbox_clicked"}, - {wxEVT_COMMAND_CHOICE_SELECTED, 163, "command_choice_selected"}, - {wxEVT_COMMAND_LISTBOX_SELECTED, 163, "command_listbox_selected"}, - {wxEVT_COMMAND_LISTBOX_DOUBLECLICKED, 163, "command_listbox_doubleclicked"}, - {wxEVT_COMMAND_TEXT_UPDATED, 163, "command_text_updated"}, - {wxEVT_COMMAND_TEXT_ENTER, 163, "command_text_enter"}, - {wxEVT_COMMAND_MENU_SELECTED, 163, "command_menu_selected"}, - {wxEVT_COMMAND_SLIDER_UPDATED, 163, "command_slider_updated"}, - {wxEVT_COMMAND_RADIOBOX_SELECTED, 163, "command_radiobox_selected"}, - {wxEVT_COMMAND_RADIOBUTTON_SELECTED, 163, "command_radiobutton_selected"}, - {wxEVT_COMMAND_SCROLLBAR_UPDATED, 163, "command_scrollbar_updated"}, - {wxEVT_COMMAND_VLBOX_SELECTED, 163, "command_vlbox_selected"}, - {wxEVT_COMMAND_COMBOBOX_SELECTED, 163, "command_combobox_selected"}, - {wxEVT_COMMAND_TOOL_RCLICKED, 163, "command_tool_rclicked"}, - {wxEVT_COMMAND_TOOL_ENTER, 163, "command_tool_enter"}, - {wxEVT_COMMAND_CHECKLISTBOX_TOGGLED, 163, "command_checklistbox_toggled"}, - {wxEVT_COMMAND_TOGGLEBUTTON_CLICKED, 163, "command_togglebutton_clicked"}, - {wxEVT_COMMAND_LEFT_CLICK, 163, "command_left_click"}, - {wxEVT_COMMAND_LEFT_DCLICK, 163, "command_left_dclick"}, - {wxEVT_COMMAND_RIGHT_CLICK, 163, "command_right_click"}, - {wxEVT_COMMAND_SET_FOCUS, 163, "command_set_focus"}, - {wxEVT_COMMAND_KILL_FOCUS, 163, "command_kill_focus"}, - {wxEVT_COMMAND_ENTER, 163, "command_enter"}, - {wxEVT_SCROLL_TOP, 164, "scroll_top"}, - {wxEVT_SCROLL_BOTTOM, 164, "scroll_bottom"}, - {wxEVT_SCROLL_LINEUP, 164, "scroll_lineup"}, - {wxEVT_SCROLL_LINEDOWN, 164, "scroll_linedown"}, - {wxEVT_SCROLL_PAGEUP, 164, "scroll_pageup"}, - {wxEVT_SCROLL_PAGEDOWN, 164, "scroll_pagedown"}, - {wxEVT_SCROLL_THUMBTRACK, 164, "scroll_thumbtrack"}, - {wxEVT_SCROLL_THUMBRELEASE, 164, "scroll_thumbrelease"}, - {wxEVT_SCROLL_CHANGED, 164, "scroll_changed"}, - {wxEVT_SCROLLWIN_TOP, 165, "scrollwin_top"}, - {wxEVT_SCROLLWIN_BOTTOM, 165, "scrollwin_bottom"}, - {wxEVT_SCROLLWIN_LINEUP, 165, "scrollwin_lineup"}, - {wxEVT_SCROLLWIN_LINEDOWN, 165, "scrollwin_linedown"}, - {wxEVT_SCROLLWIN_PAGEUP, 165, "scrollwin_pageup"}, - {wxEVT_SCROLLWIN_PAGEDOWN, 165, "scrollwin_pagedown"}, - {wxEVT_SCROLLWIN_THUMBTRACK, 165, "scrollwin_thumbtrack"}, - {wxEVT_SCROLLWIN_THUMBRELEASE, 165, "scrollwin_thumbrelease"}, - {wxEVT_LEFT_DOWN, 166, "left_down"}, - {wxEVT_LEFT_UP, 166, "left_up"}, - {wxEVT_MIDDLE_DOWN, 166, "middle_down"}, - {wxEVT_MIDDLE_UP, 166, "middle_up"}, - {wxEVT_RIGHT_DOWN, 166, "right_down"}, - {wxEVT_RIGHT_UP, 166, "right_up"}, - {wxEVT_MOTION, 166, "motion"}, - {wxEVT_ENTER_WINDOW, 166, "enter_window"}, - {wxEVT_LEAVE_WINDOW, 166, "leave_window"}, - {wxEVT_LEFT_DCLICK, 166, "left_dclick"}, - {wxEVT_MIDDLE_DCLICK, 166, "middle_dclick"}, - {wxEVT_RIGHT_DCLICK, 166, "right_dclick"}, - {wxEVT_MOUSEWHEEL, 166, "mousewheel"}, - {wxEVT_NC_LEFT_DOWN, 166, "nc_left_down"}, - {wxEVT_NC_LEFT_UP, 166, "nc_left_up"}, - {wxEVT_NC_MIDDLE_DOWN, 166, "nc_middle_down"}, - {wxEVT_NC_MIDDLE_UP, 166, "nc_middle_up"}, - {wxEVT_NC_RIGHT_DOWN, 166, "nc_right_down"}, - {wxEVT_NC_RIGHT_UP, 166, "nc_right_up"}, - {wxEVT_NC_MOTION, 166, "nc_motion"}, - {wxEVT_NC_ENTER_WINDOW, 166, "nc_enter_window"}, - {wxEVT_NC_LEAVE_WINDOW, 166, "nc_leave_window"}, - {wxEVT_NC_LEFT_DCLICK, 166, "nc_left_dclick"}, - {wxEVT_NC_MIDDLE_DCLICK, 166, "nc_middle_dclick"}, - {wxEVT_NC_RIGHT_DCLICK, 166, "nc_right_dclick"}, - {wxEVT_SET_CURSOR, 167, "set_cursor"}, - {wxEVT_CHAR, 168, "char"}, - {wxEVT_CHAR_HOOK, 168, "char_hook"}, - {wxEVT_KEY_DOWN, 168, "key_down"}, - {wxEVT_KEY_UP, 168, "key_up"}, - {wxEVT_SIZE, 169, "size"}, - {wxEVT_MOVE, 170, "move"}, - {wxEVT_PAINT, 171, "paint"}, - {wxEVT_PAINT_ICON, 171, "paint_icon"}, - {wxEVT_NC_PAINT, 172, "nc_paint"}, - {wxEVT_ERASE_BACKGROUND, 173, "erase_background"}, - {wxEVT_SET_FOCUS, 174, "set_focus"}, - {wxEVT_KILL_FOCUS, 174, "kill_focus"}, - {wxEVT_CHILD_FOCUS, 175, "child_focus"}, - {wxEVT_MENU_OPEN, 176, "menu_open"}, - {wxEVT_MENU_CLOSE, 176, "menu_close"}, - {wxEVT_MENU_HIGHLIGHT, 176, "menu_highlight"}, - {wxEVT_CLOSE_WINDOW, 177, "close_window"}, - {wxEVT_END_SESSION, 177, "end_session"}, - {wxEVT_QUERY_END_SESSION, 177, "query_end_session"}, - {wxEVT_SHOW, 178, "show"}, - {wxEVT_ICONIZE, 179, "iconize"}, - {wxEVT_MAXIMIZE, 180, "maximize"}, - {wxEVT_JOY_BUTTON_DOWN, 181, "joy_button_down"}, - {wxEVT_JOY_BUTTON_UP, 181, "joy_button_up"}, - {wxEVT_JOY_MOVE, 181, "joy_move"}, - {wxEVT_JOY_ZMOVE, 181, "joy_zmove"}, - {wxEVT_UPDATE_UI, 182, "update_ui"}, - {wxEVT_SYS_COLOUR_CHANGED, 183, "sys_colour_changed"}, - {wxEVT_MOUSE_CAPTURE_CHANGED, 184, "mouse_capture_changed"}, - {wxEVT_DISPLAY_CHANGED, 185, "display_changed"}, - {wxEVT_PALETTE_CHANGED, 186, "palette_changed"}, - {wxEVT_QUERY_NEW_PALETTE, 187, "query_new_palette"}, - {wxEVT_NAVIGATION_KEY, 188, "navigation_key"}, - {wxEVT_CREATE, 189, "create"}, - {wxEVT_DESTROY, 190, "destroy"}, - {wxEVT_HELP, 191, "help"}, - {wxEVT_DETAILED_HELP, 191, "detailed_help"}, - {wxEVT_CONTEXT_MENU, 192, "context_menu"}, - {wxEVT_IDLE, 193, "idle"}, - {wxEVT_GRID_CELL_LEFT_CLICK, 194, "grid_cell_left_click"}, - {wxEVT_GRID_CELL_RIGHT_CLICK, 194, "grid_cell_right_click"}, - {wxEVT_GRID_CELL_LEFT_DCLICK, 194, "grid_cell_left_dclick"}, - {wxEVT_GRID_CELL_RIGHT_DCLICK, 194, "grid_cell_right_dclick"}, - {wxEVT_GRID_LABEL_LEFT_CLICK, 194, "grid_label_left_click"}, - {wxEVT_GRID_LABEL_RIGHT_CLICK, 194, "grid_label_right_click"}, - {wxEVT_GRID_LABEL_LEFT_DCLICK, 194, "grid_label_left_dclick"}, - {wxEVT_GRID_LABEL_RIGHT_DCLICK, 194, "grid_label_right_dclick"}, - {wxEVT_GRID_ROW_SIZE, 194, "grid_row_size"}, - {wxEVT_GRID_COL_SIZE, 194, "grid_col_size"}, - {wxEVT_GRID_RANGE_SELECT, 194, "grid_range_select"}, - {wxEVT_GRID_CELL_CHANGE, 194, "grid_cell_change"}, - {wxEVT_GRID_SELECT_CELL, 194, "grid_select_cell"}, - {wxEVT_GRID_EDITOR_SHOWN, 194, "grid_editor_shown"}, - {wxEVT_GRID_EDITOR_HIDDEN, 194, "grid_editor_hidden"}, - {wxEVT_GRID_EDITOR_CREATED, 194, "grid_editor_created"}, - {wxEVT_GRID_CELL_BEGIN_DRAG, 194, "grid_cell_begin_drag"}, - {wxEVT_SASH_DRAGGED, 196, "sash_dragged"}, - {wxEVT_COMMAND_LIST_BEGIN_DRAG, 197, "command_list_begin_drag"}, - {wxEVT_COMMAND_LIST_BEGIN_RDRAG, 197, "command_list_begin_rdrag"}, - {wxEVT_COMMAND_LIST_BEGIN_LABEL_EDIT, 197, "command_list_begin_label_edit"}, - {wxEVT_COMMAND_LIST_END_LABEL_EDIT, 197, "command_list_end_label_edit"}, - {wxEVT_COMMAND_LIST_DELETE_ITEM, 197, "command_list_delete_item"}, - {wxEVT_COMMAND_LIST_DELETE_ALL_ITEMS, 197, "command_list_delete_all_items"}, - {wxEVT_COMMAND_LIST_KEY_DOWN, 197, "command_list_key_down"}, - {wxEVT_COMMAND_LIST_INSERT_ITEM, 197, "command_list_insert_item"}, - {wxEVT_COMMAND_LIST_COL_CLICK, 197, "command_list_col_click"}, - {wxEVT_COMMAND_LIST_COL_RIGHT_CLICK, 197, "command_list_col_right_click"}, - {wxEVT_COMMAND_LIST_COL_BEGIN_DRAG, 197, "command_list_col_begin_drag"}, - {wxEVT_COMMAND_LIST_COL_DRAGGING, 197, "command_list_col_dragging"}, - {wxEVT_COMMAND_LIST_COL_END_DRAG, 197, "command_list_col_end_drag"}, - {wxEVT_COMMAND_LIST_ITEM_SELECTED, 197, "command_list_item_selected"}, - {wxEVT_COMMAND_LIST_ITEM_DESELECTED, 197, "command_list_item_deselected"}, - {wxEVT_COMMAND_LIST_ITEM_RIGHT_CLICK, 197, "command_list_item_right_click"}, - {wxEVT_COMMAND_LIST_ITEM_MIDDLE_CLICK, 197, "command_list_item_middle_click"}, - {wxEVT_COMMAND_LIST_ITEM_ACTIVATED, 197, "command_list_item_activated"}, - {wxEVT_COMMAND_LIST_ITEM_FOCUSED, 197, "command_list_item_focused"}, - {wxEVT_COMMAND_LIST_CACHE_HINT, 197, "command_list_cache_hint"}, - {wxEVT_DATE_CHANGED, 198, "date_changed"}, - {wxEVT_CALENDAR_SEL_CHANGED, 199, "calendar_sel_changed"}, - {wxEVT_CALENDAR_DAY_CHANGED, 199, "calendar_day_changed"}, - {wxEVT_CALENDAR_MONTH_CHANGED, 199, "calendar_month_changed"}, - {wxEVT_CALENDAR_YEAR_CHANGED, 199, "calendar_year_changed"}, - {wxEVT_CALENDAR_DOUBLECLICKED, 199, "calendar_doubleclicked"}, - {wxEVT_CALENDAR_WEEKDAY_CLICKED, 199, "calendar_weekday_clicked"}, - {wxEVT_COMMAND_FILEPICKER_CHANGED, 200, "command_filepicker_changed"}, - {wxEVT_COMMAND_DIRPICKER_CHANGED, 200, "command_dirpicker_changed"}, - {wxEVT_COMMAND_COLOURPICKER_CHANGED, 201, "command_colourpicker_changed"}, - {wxEVT_COMMAND_FONTPICKER_CHANGED, 202, "command_fontpicker_changed"}, - {wxEVT_STC_CHANGE, 203, "stc_change"}, - {wxEVT_STC_STYLENEEDED, 203, "stc_styleneeded"}, - {wxEVT_STC_CHARADDED, 203, "stc_charadded"}, - {wxEVT_STC_SAVEPOINTREACHED, 203, "stc_savepointreached"}, - {wxEVT_STC_SAVEPOINTLEFT, 203, "stc_savepointleft"}, - {wxEVT_STC_ROMODIFYATTEMPT, 203, "stc_romodifyattempt"}, - {wxEVT_STC_KEY, 203, "stc_key"}, - {wxEVT_STC_DOUBLECLICK, 203, "stc_doubleclick"}, - {wxEVT_STC_UPDATEUI, 203, "stc_updateui"}, - {wxEVT_STC_MODIFIED, 203, "stc_modified"}, - {wxEVT_STC_MACRORECORD, 203, "stc_macrorecord"}, - {wxEVT_STC_MARGINCLICK, 203, "stc_marginclick"}, - {wxEVT_STC_NEEDSHOWN, 203, "stc_needshown"}, - {wxEVT_STC_PAINTED, 203, "stc_painted"}, - {wxEVT_STC_USERLISTSELECTION, 203, "stc_userlistselection"}, - {wxEVT_STC_URIDROPPED, 203, "stc_uridropped"}, - {wxEVT_STC_DWELLSTART, 203, "stc_dwellstart"}, - {wxEVT_STC_DWELLEND, 203, "stc_dwellend"}, - {wxEVT_STC_START_DRAG, 203, "stc_start_drag"}, - {wxEVT_STC_DRAG_OVER, 203, "stc_drag_over"}, - {wxEVT_STC_DO_DROP, 203, "stc_do_drop"}, - {wxEVT_STC_ZOOM, 203, "stc_zoom"}, - {wxEVT_STC_HOTSPOT_CLICK, 203, "stc_hotspot_click"}, - {wxEVT_STC_HOTSPOT_DCLICK, 203, "stc_hotspot_dclick"}, - {wxEVT_STC_CALLTIP_CLICK, 203, "stc_calltip_click"}, - {wxEVT_STC_AUTOCOMP_SELECTION, 203, "stc_autocomp_selection"}, - {wxEVT_COMMAND_TREE_BEGIN_DRAG, 208, "command_tree_begin_drag"}, - {wxEVT_COMMAND_TREE_BEGIN_RDRAG, 208, "command_tree_begin_rdrag"}, - {wxEVT_COMMAND_TREE_BEGIN_LABEL_EDIT, 208, "command_tree_begin_label_edit"}, - {wxEVT_COMMAND_TREE_END_LABEL_EDIT, 208, "command_tree_end_label_edit"}, - {wxEVT_COMMAND_TREE_DELETE_ITEM, 208, "command_tree_delete_item"}, - {wxEVT_COMMAND_TREE_GET_INFO, 208, "command_tree_get_info"}, - {wxEVT_COMMAND_TREE_SET_INFO, 208, "command_tree_set_info"}, - {wxEVT_COMMAND_TREE_ITEM_EXPANDED, 208, "command_tree_item_expanded"}, - {wxEVT_COMMAND_TREE_ITEM_EXPANDING, 208, "command_tree_item_expanding"}, - {wxEVT_COMMAND_TREE_ITEM_COLLAPSED, 208, "command_tree_item_collapsed"}, - {wxEVT_COMMAND_TREE_ITEM_COLLAPSING, 208, "command_tree_item_collapsing"}, - {wxEVT_COMMAND_TREE_SEL_CHANGED, 208, "command_tree_sel_changed"}, - {wxEVT_COMMAND_TREE_SEL_CHANGING, 208, "command_tree_sel_changing"}, - {wxEVT_COMMAND_TREE_KEY_DOWN, 208, "command_tree_key_down"}, - {wxEVT_COMMAND_TREE_ITEM_ACTIVATED, 208, "command_tree_item_activated"}, - {wxEVT_COMMAND_TREE_ITEM_RIGHT_CLICK, 208, "command_tree_item_right_click"}, - {wxEVT_COMMAND_TREE_ITEM_MIDDLE_CLICK, 208, "command_tree_item_middle_click"}, - {wxEVT_COMMAND_TREE_END_DRAG, 208, "command_tree_end_drag"}, - {wxEVT_COMMAND_TREE_STATE_IMAGE_CLICK, 208, "command_tree_state_image_click"}, - {wxEVT_COMMAND_TREE_ITEM_GETTOOLTIP, 208, "command_tree_item_gettooltip"}, - {wxEVT_COMMAND_TREE_ITEM_MENU, 208, "command_tree_item_menu"}, - {wxEVT_COMMAND_NOTEBOOK_PAGE_CHANGED, 209, "command_notebook_page_changed"}, - {wxEVT_COMMAND_NOTEBOOK_PAGE_CHANGING, 209, "command_notebook_page_changing"}, - {wxEVT_COMMAND_SPINCTRL_UPDATED, 215, "command_spinctrl_updated"}, - {wxEVT_SCROLL_LINEUP + wxEVT_USER_FIRST, 164, "spin_up"}, - {wxEVT_SCROLL_LINEDOWN + wxEVT_USER_FIRST, 164, "spin_down"}, - {wxEVT_SCROLL_THUMBTRACK + wxEVT_USER_FIRST, 164, "spin"}, - {wxEVT_COMMAND_SPLITTER_SASH_POS_CHANGED, 217, "command_splitter_sash_pos_changed"}, - {wxEVT_COMMAND_SPLITTER_SASH_POS_CHANGING, 217, "command_splitter_sash_pos_changing"}, - {wxEVT_COMMAND_SPLITTER_DOUBLECLICKED, 217, "command_splitter_doubleclicked"}, - {wxEVT_COMMAND_SPLITTER_UNSPLIT, 217, "command_splitter_unsplit"}, - {wxEVT_COMMAND_HTML_LINK_CLICKED, 219, "command_html_link_clicked"}, - {wxEVT_COMMAND_AUINOTEBOOK_PAGE_CLOSE, 221, "command_auinotebook_page_close"}, - {wxEVT_COMMAND_AUINOTEBOOK_PAGE_CHANGED, 221, "command_auinotebook_page_changed"}, - {wxEVT_COMMAND_AUINOTEBOOK_PAGE_CHANGING, 221, "command_auinotebook_page_changing"}, - {wxEVT_COMMAND_AUINOTEBOOK_BUTTON, 221, "command_auinotebook_button"}, - {wxEVT_COMMAND_AUINOTEBOOK_BEGIN_DRAG, 221, "command_auinotebook_begin_drag"}, - {wxEVT_COMMAND_AUINOTEBOOK_END_DRAG, 221, "command_auinotebook_end_drag"}, - {wxEVT_COMMAND_AUINOTEBOOK_DRAG_MOTION, 221, "command_auinotebook_drag_motion"}, - {wxEVT_COMMAND_AUINOTEBOOK_ALLOW_DND, 221, "command_auinotebook_allow_dnd"}, + {wxEVT_COMMAND_BUTTON_CLICKED, 164, "command_button_clicked"}, + {wxEVT_COMMAND_CHECKBOX_CLICKED, 164, "command_checkbox_clicked"}, + {wxEVT_COMMAND_CHOICE_SELECTED, 164, "command_choice_selected"}, + {wxEVT_COMMAND_LISTBOX_SELECTED, 164, "command_listbox_selected"}, + {wxEVT_COMMAND_LISTBOX_DOUBLECLICKED, 164, "command_listbox_doubleclicked"}, + {wxEVT_COMMAND_TEXT_UPDATED, 164, "command_text_updated"}, + {wxEVT_COMMAND_TEXT_ENTER, 164, "command_text_enter"}, + {wxEVT_COMMAND_MENU_SELECTED, 164, "command_menu_selected"}, + {wxEVT_COMMAND_SLIDER_UPDATED, 164, "command_slider_updated"}, + {wxEVT_COMMAND_RADIOBOX_SELECTED, 164, "command_radiobox_selected"}, + {wxEVT_COMMAND_RADIOBUTTON_SELECTED, 164, "command_radiobutton_selected"}, + {wxEVT_COMMAND_SCROLLBAR_UPDATED, 164, "command_scrollbar_updated"}, + {wxEVT_COMMAND_VLBOX_SELECTED, 164, "command_vlbox_selected"}, + {wxEVT_COMMAND_COMBOBOX_SELECTED, 164, "command_combobox_selected"}, + {wxEVT_COMMAND_TOOL_RCLICKED, 164, "command_tool_rclicked"}, + {wxEVT_COMMAND_TOOL_ENTER, 164, "command_tool_enter"}, + {wxEVT_COMMAND_CHECKLISTBOX_TOGGLED, 164, "command_checklistbox_toggled"}, + {wxEVT_COMMAND_TOGGLEBUTTON_CLICKED, 164, "command_togglebutton_clicked"}, + {wxEVT_COMMAND_LEFT_CLICK, 164, "command_left_click"}, + {wxEVT_COMMAND_LEFT_DCLICK, 164, "command_left_dclick"}, + {wxEVT_COMMAND_RIGHT_CLICK, 164, "command_right_click"}, + {wxEVT_COMMAND_SET_FOCUS, 164, "command_set_focus"}, + {wxEVT_COMMAND_KILL_FOCUS, 164, "command_kill_focus"}, + {wxEVT_COMMAND_ENTER, 164, "command_enter"}, + {wxEVT_SCROLL_TOP, 165, "scroll_top"}, + {wxEVT_SCROLL_BOTTOM, 165, "scroll_bottom"}, + {wxEVT_SCROLL_LINEUP, 165, "scroll_lineup"}, + {wxEVT_SCROLL_LINEDOWN, 165, "scroll_linedown"}, + {wxEVT_SCROLL_PAGEUP, 165, "scroll_pageup"}, + {wxEVT_SCROLL_PAGEDOWN, 165, "scroll_pagedown"}, + {wxEVT_SCROLL_THUMBTRACK, 165, "scroll_thumbtrack"}, + {wxEVT_SCROLL_THUMBRELEASE, 165, "scroll_thumbrelease"}, + {wxEVT_SCROLL_CHANGED, 165, "scroll_changed"}, + {wxEVT_SCROLLWIN_TOP, 166, "scrollwin_top"}, + {wxEVT_SCROLLWIN_BOTTOM, 166, "scrollwin_bottom"}, + {wxEVT_SCROLLWIN_LINEUP, 166, "scrollwin_lineup"}, + {wxEVT_SCROLLWIN_LINEDOWN, 166, "scrollwin_linedown"}, + {wxEVT_SCROLLWIN_PAGEUP, 166, "scrollwin_pageup"}, + {wxEVT_SCROLLWIN_PAGEDOWN, 166, "scrollwin_pagedown"}, + {wxEVT_SCROLLWIN_THUMBTRACK, 166, "scrollwin_thumbtrack"}, + {wxEVT_SCROLLWIN_THUMBRELEASE, 166, "scrollwin_thumbrelease"}, + {wxEVT_LEFT_DOWN, 167, "left_down"}, + {wxEVT_LEFT_UP, 167, "left_up"}, + {wxEVT_MIDDLE_DOWN, 167, "middle_down"}, + {wxEVT_MIDDLE_UP, 167, "middle_up"}, + {wxEVT_RIGHT_DOWN, 167, "right_down"}, + {wxEVT_RIGHT_UP, 167, "right_up"}, + {wxEVT_MOTION, 167, "motion"}, + {wxEVT_ENTER_WINDOW, 167, "enter_window"}, + {wxEVT_LEAVE_WINDOW, 167, "leave_window"}, + {wxEVT_LEFT_DCLICK, 167, "left_dclick"}, + {wxEVT_MIDDLE_DCLICK, 167, "middle_dclick"}, + {wxEVT_RIGHT_DCLICK, 167, "right_dclick"}, + {wxEVT_MOUSEWHEEL, 167, "mousewheel"}, + {wxEVT_NC_LEFT_DOWN, 167, "nc_left_down"}, + {wxEVT_NC_LEFT_UP, 167, "nc_left_up"}, + {wxEVT_NC_MIDDLE_DOWN, 167, "nc_middle_down"}, + {wxEVT_NC_MIDDLE_UP, 167, "nc_middle_up"}, + {wxEVT_NC_RIGHT_DOWN, 167, "nc_right_down"}, + {wxEVT_NC_RIGHT_UP, 167, "nc_right_up"}, + {wxEVT_NC_MOTION, 167, "nc_motion"}, + {wxEVT_NC_ENTER_WINDOW, 167, "nc_enter_window"}, + {wxEVT_NC_LEAVE_WINDOW, 167, "nc_leave_window"}, + {wxEVT_NC_LEFT_DCLICK, 167, "nc_left_dclick"}, + {wxEVT_NC_MIDDLE_DCLICK, 167, "nc_middle_dclick"}, + {wxEVT_NC_RIGHT_DCLICK, 167, "nc_right_dclick"}, + {wxEVT_SET_CURSOR, 168, "set_cursor"}, + {wxEVT_CHAR, 169, "char"}, + {wxEVT_CHAR_HOOK, 169, "char_hook"}, + {wxEVT_KEY_DOWN, 169, "key_down"}, + {wxEVT_KEY_UP, 169, "key_up"}, + {wxEVT_SIZE, 170, "size"}, + {wxEVT_MOVE, 171, "move"}, + {wxEVT_PAINT, 172, "paint"}, + {wxEVT_PAINT_ICON, 172, "paint_icon"}, + {wxEVT_NC_PAINT, 173, "nc_paint"}, + {wxEVT_ERASE_BACKGROUND, 174, "erase_background"}, + {wxEVT_SET_FOCUS, 175, "set_focus"}, + {wxEVT_KILL_FOCUS, 175, "kill_focus"}, + {wxEVT_CHILD_FOCUS, 176, "child_focus"}, + {wxEVT_MENU_OPEN, 177, "menu_open"}, + {wxEVT_MENU_CLOSE, 177, "menu_close"}, + {wxEVT_MENU_HIGHLIGHT, 177, "menu_highlight"}, + {wxEVT_CLOSE_WINDOW, 178, "close_window"}, + {wxEVT_END_SESSION, 178, "end_session"}, + {wxEVT_QUERY_END_SESSION, 178, "query_end_session"}, + {wxEVT_SHOW, 179, "show"}, + {wxEVT_ICONIZE, 180, "iconize"}, + {wxEVT_MAXIMIZE, 181, "maximize"}, + {wxEVT_JOY_BUTTON_DOWN, 182, "joy_button_down"}, + {wxEVT_JOY_BUTTON_UP, 182, "joy_button_up"}, + {wxEVT_JOY_MOVE, 182, "joy_move"}, + {wxEVT_JOY_ZMOVE, 182, "joy_zmove"}, + {wxEVT_UPDATE_UI, 183, "update_ui"}, + {wxEVT_SYS_COLOUR_CHANGED, 184, "sys_colour_changed"}, + {wxEVT_MOUSE_CAPTURE_CHANGED, 185, "mouse_capture_changed"}, + {wxEVT_DISPLAY_CHANGED, 186, "display_changed"}, + {wxEVT_PALETTE_CHANGED, 187, "palette_changed"}, + {wxEVT_QUERY_NEW_PALETTE, 188, "query_new_palette"}, + {wxEVT_NAVIGATION_KEY, 189, "navigation_key"}, + {wxEVT_CREATE, 190, "create"}, + {wxEVT_DESTROY, 191, "destroy"}, + {wxEVT_HELP, 192, "help"}, + {wxEVT_DETAILED_HELP, 192, "detailed_help"}, + {wxEVT_CONTEXT_MENU, 193, "context_menu"}, + {wxEVT_IDLE, 194, "idle"}, + {wxEVT_GRID_CELL_LEFT_CLICK, 195, "grid_cell_left_click"}, + {wxEVT_GRID_CELL_RIGHT_CLICK, 195, "grid_cell_right_click"}, + {wxEVT_GRID_CELL_LEFT_DCLICK, 195, "grid_cell_left_dclick"}, + {wxEVT_GRID_CELL_RIGHT_DCLICK, 195, "grid_cell_right_dclick"}, + {wxEVT_GRID_LABEL_LEFT_CLICK, 195, "grid_label_left_click"}, + {wxEVT_GRID_LABEL_RIGHT_CLICK, 195, "grid_label_right_click"}, + {wxEVT_GRID_LABEL_LEFT_DCLICK, 195, "grid_label_left_dclick"}, + {wxEVT_GRID_LABEL_RIGHT_DCLICK, 195, "grid_label_right_dclick"}, + {wxEVT_GRID_ROW_SIZE, 195, "grid_row_size"}, + {wxEVT_GRID_COL_SIZE, 195, "grid_col_size"}, + {wxEVT_GRID_RANGE_SELECT, 195, "grid_range_select"}, + {wxEVT_GRID_CELL_CHANGE, 195, "grid_cell_change"}, + {wxEVT_GRID_SELECT_CELL, 195, "grid_select_cell"}, + {wxEVT_GRID_EDITOR_SHOWN, 195, "grid_editor_shown"}, + {wxEVT_GRID_EDITOR_HIDDEN, 195, "grid_editor_hidden"}, + {wxEVT_GRID_EDITOR_CREATED, 195, "grid_editor_created"}, + {wxEVT_GRID_CELL_BEGIN_DRAG, 195, "grid_cell_begin_drag"}, + {wxEVT_SASH_DRAGGED, 197, "sash_dragged"}, + {wxEVT_COMMAND_LIST_BEGIN_DRAG, 198, "command_list_begin_drag"}, + {wxEVT_COMMAND_LIST_BEGIN_RDRAG, 198, "command_list_begin_rdrag"}, + {wxEVT_COMMAND_LIST_BEGIN_LABEL_EDIT, 198, "command_list_begin_label_edit"}, + {wxEVT_COMMAND_LIST_END_LABEL_EDIT, 198, "command_list_end_label_edit"}, + {wxEVT_COMMAND_LIST_DELETE_ITEM, 198, "command_list_delete_item"}, + {wxEVT_COMMAND_LIST_DELETE_ALL_ITEMS, 198, "command_list_delete_all_items"}, + {wxEVT_COMMAND_LIST_KEY_DOWN, 198, "command_list_key_down"}, + {wxEVT_COMMAND_LIST_INSERT_ITEM, 198, "command_list_insert_item"}, + {wxEVT_COMMAND_LIST_COL_CLICK, 198, "command_list_col_click"}, + {wxEVT_COMMAND_LIST_COL_RIGHT_CLICK, 198, "command_list_col_right_click"}, + {wxEVT_COMMAND_LIST_COL_BEGIN_DRAG, 198, "command_list_col_begin_drag"}, + {wxEVT_COMMAND_LIST_COL_DRAGGING, 198, "command_list_col_dragging"}, + {wxEVT_COMMAND_LIST_COL_END_DRAG, 198, "command_list_col_end_drag"}, + {wxEVT_COMMAND_LIST_ITEM_SELECTED, 198, "command_list_item_selected"}, + {wxEVT_COMMAND_LIST_ITEM_DESELECTED, 198, "command_list_item_deselected"}, + {wxEVT_COMMAND_LIST_ITEM_RIGHT_CLICK, 198, "command_list_item_right_click"}, + {wxEVT_COMMAND_LIST_ITEM_MIDDLE_CLICK, 198, "command_list_item_middle_click"}, + {wxEVT_COMMAND_LIST_ITEM_ACTIVATED, 198, "command_list_item_activated"}, + {wxEVT_COMMAND_LIST_ITEM_FOCUSED, 198, "command_list_item_focused"}, + {wxEVT_COMMAND_LIST_CACHE_HINT, 198, "command_list_cache_hint"}, + {wxEVT_DATE_CHANGED, 199, "date_changed"}, + {wxEVT_CALENDAR_SEL_CHANGED, 200, "calendar_sel_changed"}, + {wxEVT_CALENDAR_DAY_CHANGED, 200, "calendar_day_changed"}, + {wxEVT_CALENDAR_MONTH_CHANGED, 200, "calendar_month_changed"}, + {wxEVT_CALENDAR_YEAR_CHANGED, 200, "calendar_year_changed"}, + {wxEVT_CALENDAR_DOUBLECLICKED, 200, "calendar_doubleclicked"}, + {wxEVT_CALENDAR_WEEKDAY_CLICKED, 200, "calendar_weekday_clicked"}, + {wxEVT_COMMAND_FILEPICKER_CHANGED, 201, "command_filepicker_changed"}, + {wxEVT_COMMAND_DIRPICKER_CHANGED, 201, "command_dirpicker_changed"}, + {wxEVT_COMMAND_COLOURPICKER_CHANGED, 202, "command_colourpicker_changed"}, + {wxEVT_COMMAND_FONTPICKER_CHANGED, 203, "command_fontpicker_changed"}, + {wxEVT_STC_CHANGE, 204, "stc_change"}, + {wxEVT_STC_STYLENEEDED, 204, "stc_styleneeded"}, + {wxEVT_STC_CHARADDED, 204, "stc_charadded"}, + {wxEVT_STC_SAVEPOINTREACHED, 204, "stc_savepointreached"}, + {wxEVT_STC_SAVEPOINTLEFT, 204, "stc_savepointleft"}, + {wxEVT_STC_ROMODIFYATTEMPT, 204, "stc_romodifyattempt"}, + {wxEVT_STC_KEY, 204, "stc_key"}, + {wxEVT_STC_DOUBLECLICK, 204, "stc_doubleclick"}, + {wxEVT_STC_UPDATEUI, 204, "stc_updateui"}, + {wxEVT_STC_MODIFIED, 204, "stc_modified"}, + {wxEVT_STC_MACRORECORD, 204, "stc_macrorecord"}, + {wxEVT_STC_MARGINCLICK, 204, "stc_marginclick"}, + {wxEVT_STC_NEEDSHOWN, 204, "stc_needshown"}, + {wxEVT_STC_PAINTED, 204, "stc_painted"}, + {wxEVT_STC_USERLISTSELECTION, 204, "stc_userlistselection"}, + {wxEVT_STC_URIDROPPED, 204, "stc_uridropped"}, + {wxEVT_STC_DWELLSTART, 204, "stc_dwellstart"}, + {wxEVT_STC_DWELLEND, 204, "stc_dwellend"}, + {wxEVT_STC_START_DRAG, 204, "stc_start_drag"}, + {wxEVT_STC_DRAG_OVER, 204, "stc_drag_over"}, + {wxEVT_STC_DO_DROP, 204, "stc_do_drop"}, + {wxEVT_STC_ZOOM, 204, "stc_zoom"}, + {wxEVT_STC_HOTSPOT_CLICK, 204, "stc_hotspot_click"}, + {wxEVT_STC_HOTSPOT_DCLICK, 204, "stc_hotspot_dclick"}, + {wxEVT_STC_CALLTIP_CLICK, 204, "stc_calltip_click"}, + {wxEVT_STC_AUTOCOMP_SELECTION, 204, "stc_autocomp_selection"}, + {wxEVT_COMMAND_TREE_BEGIN_DRAG, 209, "command_tree_begin_drag"}, + {wxEVT_COMMAND_TREE_BEGIN_RDRAG, 209, "command_tree_begin_rdrag"}, + {wxEVT_COMMAND_TREE_BEGIN_LABEL_EDIT, 209, "command_tree_begin_label_edit"}, + {wxEVT_COMMAND_TREE_END_LABEL_EDIT, 209, "command_tree_end_label_edit"}, + {wxEVT_COMMAND_TREE_DELETE_ITEM, 209, "command_tree_delete_item"}, + {wxEVT_COMMAND_TREE_GET_INFO, 209, "command_tree_get_info"}, + {wxEVT_COMMAND_TREE_SET_INFO, 209, "command_tree_set_info"}, + {wxEVT_COMMAND_TREE_ITEM_EXPANDED, 209, "command_tree_item_expanded"}, + {wxEVT_COMMAND_TREE_ITEM_EXPANDING, 209, "command_tree_item_expanding"}, + {wxEVT_COMMAND_TREE_ITEM_COLLAPSED, 209, "command_tree_item_collapsed"}, + {wxEVT_COMMAND_TREE_ITEM_COLLAPSING, 209, "command_tree_item_collapsing"}, + {wxEVT_COMMAND_TREE_SEL_CHANGED, 209, "command_tree_sel_changed"}, + {wxEVT_COMMAND_TREE_SEL_CHANGING, 209, "command_tree_sel_changing"}, + {wxEVT_COMMAND_TREE_KEY_DOWN, 209, "command_tree_key_down"}, + {wxEVT_COMMAND_TREE_ITEM_ACTIVATED, 209, "command_tree_item_activated"}, + {wxEVT_COMMAND_TREE_ITEM_RIGHT_CLICK, 209, "command_tree_item_right_click"}, + {wxEVT_COMMAND_TREE_ITEM_MIDDLE_CLICK, 209, "command_tree_item_middle_click"}, + {wxEVT_COMMAND_TREE_END_DRAG, 209, "command_tree_end_drag"}, + {wxEVT_COMMAND_TREE_STATE_IMAGE_CLICK, 209, "command_tree_state_image_click"}, + {wxEVT_COMMAND_TREE_ITEM_GETTOOLTIP, 209, "command_tree_item_gettooltip"}, + {wxEVT_COMMAND_TREE_ITEM_MENU, 209, "command_tree_item_menu"}, + {wxEVT_COMMAND_NOTEBOOK_PAGE_CHANGED, 210, "command_notebook_page_changed"}, + {wxEVT_COMMAND_NOTEBOOK_PAGE_CHANGING, 210, "command_notebook_page_changing"}, + {wxEVT_COMMAND_SPINCTRL_UPDATED, 216, "command_spinctrl_updated"}, + {wxEVT_SCROLL_LINEUP + wxEVT_USER_FIRST, 165, "spin_up"}, + {wxEVT_SCROLL_LINEDOWN + wxEVT_USER_FIRST, 165, "spin_down"}, + {wxEVT_SCROLL_THUMBTRACK + wxEVT_USER_FIRST, 165, "spin"}, + {wxEVT_COMMAND_SPLITTER_SASH_POS_CHANGED, 218, "command_splitter_sash_pos_changed"}, + {wxEVT_COMMAND_SPLITTER_SASH_POS_CHANGING, 218, "command_splitter_sash_pos_changing"}, + {wxEVT_COMMAND_SPLITTER_DOUBLECLICKED, 218, "command_splitter_doubleclicked"}, + {wxEVT_COMMAND_SPLITTER_UNSPLIT, 218, "command_splitter_unsplit"}, + {wxEVT_COMMAND_HTML_LINK_CLICKED, 220, "command_html_link_clicked"}, + {wxEVT_COMMAND_AUINOTEBOOK_PAGE_CLOSE, 222, "command_auinotebook_page_close"}, + {wxEVT_COMMAND_AUINOTEBOOK_PAGE_CHANGED, 222, "command_auinotebook_page_changed"}, + {wxEVT_COMMAND_AUINOTEBOOK_PAGE_CHANGING, 222, "command_auinotebook_page_changing"}, + {wxEVT_COMMAND_AUINOTEBOOK_BUTTON, 222, "command_auinotebook_button"}, + {wxEVT_COMMAND_AUINOTEBOOK_BEGIN_DRAG, 222, "command_auinotebook_begin_drag"}, + {wxEVT_COMMAND_AUINOTEBOOK_END_DRAG, 222, "command_auinotebook_end_drag"}, + {wxEVT_COMMAND_AUINOTEBOOK_DRAG_MOTION, 222, "command_auinotebook_drag_motion"}, + {wxEVT_COMMAND_AUINOTEBOOK_ALLOW_DND, 222, "command_auinotebook_allow_dnd"}, #if wxCHECK_VERSION(2,8,5) - {wxEVT_COMMAND_AUINOTEBOOK_TAB_MIDDLE_DOWN, 221, "command_auinotebook_tab_middle_down"}, + {wxEVT_COMMAND_AUINOTEBOOK_TAB_MIDDLE_DOWN, 222, "command_auinotebook_tab_middle_down"}, #endif #if wxCHECK_VERSION(2,8,5) - {wxEVT_COMMAND_AUINOTEBOOK_TAB_MIDDLE_UP, 221, "command_auinotebook_tab_middle_up"}, + {wxEVT_COMMAND_AUINOTEBOOK_TAB_MIDDLE_UP, 222, "command_auinotebook_tab_middle_up"}, #endif #if wxCHECK_VERSION(2,8,5) - {wxEVT_COMMAND_AUINOTEBOOK_TAB_RIGHT_DOWN, 221, "command_auinotebook_tab_right_down"}, + {wxEVT_COMMAND_AUINOTEBOOK_TAB_RIGHT_DOWN, 222, "command_auinotebook_tab_right_down"}, #endif #if wxCHECK_VERSION(2,8,5) - {wxEVT_COMMAND_AUINOTEBOOK_TAB_RIGHT_UP, 221, "command_auinotebook_tab_right_up"}, + {wxEVT_COMMAND_AUINOTEBOOK_TAB_RIGHT_UP, 222, "command_auinotebook_tab_right_up"}, #endif #if wxCHECK_VERSION(2,8,5) - {wxEVT_COMMAND_AUINOTEBOOK_PAGE_CLOSED, 221, "command_auinotebook_page_closed"}, + {wxEVT_COMMAND_AUINOTEBOOK_PAGE_CLOSED, 222, "command_auinotebook_page_closed"}, #endif #if wxCHECK_VERSION(2,8,5) - {wxEVT_COMMAND_AUINOTEBOOK_DRAG_DONE, 221, "command_auinotebook_drag_done"}, + {wxEVT_COMMAND_AUINOTEBOOK_DRAG_DONE, 222, "command_auinotebook_drag_done"}, #endif #if wxCHECK_VERSION(2,8,5) - {wxEVT_COMMAND_AUINOTEBOOK_BG_DCLICK, 221, "command_auinotebook_bg_dclick"}, + {wxEVT_COMMAND_AUINOTEBOOK_BG_DCLICK, 222, "command_auinotebook_bg_dclick"}, #endif - {wxEVT_AUI_PANE_BUTTON, 222, "aui_pane_button"}, - {wxEVT_AUI_PANE_CLOSE, 222, "aui_pane_close"}, - {wxEVT_AUI_PANE_MAXIMIZE, 222, "aui_pane_maximize"}, - {wxEVT_AUI_PANE_RESTORE, 222, "aui_pane_restore"}, - {wxEVT_AUI_RENDER, 222, "aui_render"}, - {wxEVT_AUI_FIND_MANAGER, 222, "aui_find_manager"}, + {wxEVT_AUI_PANE_BUTTON, 223, "aui_pane_button"}, + {wxEVT_AUI_PANE_CLOSE, 223, "aui_pane_close"}, + {wxEVT_AUI_PANE_MAXIMIZE, 223, "aui_pane_maximize"}, + {wxEVT_AUI_PANE_RESTORE, 223, "aui_pane_restore"}, + {wxEVT_AUI_RENDER, 223, "aui_render"}, + {wxEVT_AUI_FIND_MANAGER, 223, "aui_find_manager"}, {-1, 0, } }; for(int i=0; event_types[i].ev_type != -1; i++) { @@ -353,7 +353,7 @@ bool sendevent(wxEvent *event, ErlDrvPort port) rt.addRef(getRef((void *)(cb->obj), memenv), cb->class_name); rt.addExt2Term(cb->user_data); switch(Etype->cID) { -case 163: {// wxCommandEvent +case 164: {// wxCommandEvent wxCommandEvent * ev = (wxCommandEvent *) event; evClass = (char*)"wxCommandEvent"; rt.addAtom((char*)"wxCommand"); @@ -364,7 +364,7 @@ case 163: {// wxCommandEvent rt.addTupleCount(5); break; } -case 164: {// wxScrollEvent or wxSpinEvent +case 165: {// wxScrollEvent or wxSpinEvent if(event->IsKindOf(CLASSINFO(wxScrollEvent))) { wxScrollEvent * ev = (wxScrollEvent *) event; evClass = (char*)"wxScrollEvent"; @@ -384,14 +384,14 @@ case 164: {// wxScrollEvent or wxSpinEvent } break; } -case 165: {// wxScrollWinEvent +case 166: {// wxScrollWinEvent evClass = (char*)"wxScrollWinEvent"; rt.addAtom((char*)"wxScrollWin"); rt.addAtom(Etype->eName); rt.addTupleCount(2); break; } -case 166: {// wxMouseEvent +case 167: {// wxMouseEvent wxMouseEvent * ev = (wxMouseEvent *) event; evClass = (char*)"wxMouseEvent"; rt.addAtom((char*)"wxMouse"); @@ -411,14 +411,14 @@ case 166: {// wxMouseEvent rt.addTupleCount(14); break; } -case 167: {// wxSetCursorEvent +case 168: {// wxSetCursorEvent evClass = (char*)"wxSetCursorEvent"; rt.addAtom((char*)"wxSetCursor"); rt.addAtom(Etype->eName); rt.addTupleCount(2); break; } -case 168: {// wxKeyEvent +case 169: {// wxKeyEvent wxKeyEvent * ev = (wxKeyEvent *) event; evClass = (char*)"wxKeyEvent"; rt.addAtom((char*)"wxKey"); @@ -437,7 +437,7 @@ case 168: {// wxKeyEvent rt.addTupleCount(13); break; } -case 169: {// wxSizeEvent +case 170: {// wxSizeEvent wxSizeEvent * ev = (wxSizeEvent *) event; evClass = (char*)"wxSizeEvent"; rt.addAtom((char*)"wxSize"); @@ -447,28 +447,28 @@ case 169: {// wxSizeEvent rt.addTupleCount(4); break; } -case 170: {// wxMoveEvent +case 171: {// wxMoveEvent evClass = (char*)"wxMoveEvent"; rt.addAtom((char*)"wxMove"); rt.addAtom(Etype->eName); rt.addTupleCount(2); break; } -case 171: {// wxPaintEvent +case 172: {// wxPaintEvent evClass = (char*)"wxPaintEvent"; rt.addAtom((char*)"wxPaint"); rt.addAtom(Etype->eName); rt.addTupleCount(2); break; } -case 172: {// wxNcPaintEvent +case 173: {// wxNcPaintEvent evClass = (char*)"wxNcPaintEvent"; rt.addAtom((char*)"wxNcPaint"); rt.addAtom(Etype->eName); rt.addTupleCount(2); break; } -case 173: {// wxEraseEvent +case 174: {// wxEraseEvent wxEraseEvent * ev = (wxEraseEvent *) event; wxDC * GetDC = ev->GetDC(); evClass = (char*)"wxEraseEvent"; @@ -478,105 +478,105 @@ case 173: {// wxEraseEvent rt.addTupleCount(3); break; } -case 174: {// wxFocusEvent +case 175: {// wxFocusEvent evClass = (char*)"wxFocusEvent"; rt.addAtom((char*)"wxFocus"); rt.addAtom(Etype->eName); rt.addTupleCount(2); break; } -case 175: {// wxChildFocusEvent +case 176: {// wxChildFocusEvent evClass = (char*)"wxChildFocusEvent"; rt.addAtom((char*)"wxChildFocus"); rt.addAtom(Etype->eName); rt.addTupleCount(2); break; } -case 176: {// wxMenuEvent +case 177: {// wxMenuEvent evClass = (char*)"wxMenuEvent"; rt.addAtom((char*)"wxMenu"); rt.addAtom(Etype->eName); rt.addTupleCount(2); break; } -case 177: {// wxCloseEvent +case 178: {// wxCloseEvent evClass = (char*)"wxCloseEvent"; rt.addAtom((char*)"wxClose"); rt.addAtom(Etype->eName); rt.addTupleCount(2); break; } -case 178: {// wxShowEvent +case 179: {// wxShowEvent evClass = (char*)"wxShowEvent"; rt.addAtom((char*)"wxShow"); rt.addAtom(Etype->eName); rt.addTupleCount(2); break; } -case 179: {// wxIconizeEvent +case 180: {// wxIconizeEvent evClass = (char*)"wxIconizeEvent"; rt.addAtom((char*)"wxIconize"); rt.addAtom(Etype->eName); rt.addTupleCount(2); break; } -case 180: {// wxMaximizeEvent +case 181: {// wxMaximizeEvent evClass = (char*)"wxMaximizeEvent"; rt.addAtom((char*)"wxMaximize"); rt.addAtom(Etype->eName); rt.addTupleCount(2); break; } -case 181: {// wxJoystickEvent +case 182: {// wxJoystickEvent evClass = (char*)"wxJoystickEvent"; rt.addAtom((char*)"wxJoystick"); rt.addAtom(Etype->eName); rt.addTupleCount(2); break; } -case 182: {// wxUpdateUIEvent +case 183: {// wxUpdateUIEvent evClass = (char*)"wxUpdateUIEvent"; rt.addAtom((char*)"wxUpdateUI"); rt.addAtom(Etype->eName); rt.addTupleCount(2); break; } -case 183: {// wxSysColourChangedEvent +case 184: {// wxSysColourChangedEvent evClass = (char*)"wxSysColourChangedEvent"; rt.addAtom((char*)"wxSysColourChanged"); rt.addAtom(Etype->eName); rt.addTupleCount(2); break; } -case 184: {// wxMouseCaptureChangedEvent +case 185: {// wxMouseCaptureChangedEvent evClass = (char*)"wxMouseCaptureChangedEvent"; rt.addAtom((char*)"wxMouseCaptureChanged"); rt.addAtom(Etype->eName); rt.addTupleCount(2); break; } -case 185: {// wxDisplayChangedEvent +case 186: {// wxDisplayChangedEvent evClass = (char*)"wxDisplayChangedEvent"; rt.addAtom((char*)"wxDisplayChanged"); rt.addAtom(Etype->eName); rt.addTupleCount(2); break; } -case 186: {// wxPaletteChangedEvent +case 187: {// wxPaletteChangedEvent evClass = (char*)"wxPaletteChangedEvent"; rt.addAtom((char*)"wxPaletteChanged"); rt.addAtom(Etype->eName); rt.addTupleCount(2); break; } -case 187: {// wxQueryNewPaletteEvent +case 188: {// wxQueryNewPaletteEvent evClass = (char*)"wxQueryNewPaletteEvent"; rt.addAtom((char*)"wxQueryNewPalette"); rt.addAtom(Etype->eName); rt.addTupleCount(2); break; } -case 188: {// wxNavigationKeyEvent +case 189: {// wxNavigationKeyEvent wxNavigationKeyEvent * ev = (wxNavigationKeyEvent *) event; evClass = (char*)"wxNavigationKeyEvent"; rt.addAtom((char*)"wxNavigationKey"); @@ -586,42 +586,42 @@ case 188: {// wxNavigationKeyEvent rt.addTupleCount(4); break; } -case 189: {// wxWindowCreateEvent +case 190: {// wxWindowCreateEvent evClass = (char*)"wxWindowCreateEvent"; rt.addAtom((char*)"wxWindowCreate"); rt.addAtom(Etype->eName); rt.addTupleCount(2); break; } -case 190: {// wxWindowDestroyEvent +case 191: {// wxWindowDestroyEvent evClass = (char*)"wxWindowDestroyEvent"; rt.addAtom((char*)"wxWindowDestroy"); rt.addAtom(Etype->eName); rt.addTupleCount(2); break; } -case 191: {// wxHelpEvent +case 192: {// wxHelpEvent evClass = (char*)"wxHelpEvent"; rt.addAtom((char*)"wxHelp"); rt.addAtom(Etype->eName); rt.addTupleCount(2); break; } -case 192: {// wxContextMenuEvent +case 193: {// wxContextMenuEvent evClass = (char*)"wxContextMenuEvent"; rt.addAtom((char*)"wxContextMenu"); rt.addAtom(Etype->eName); rt.addTupleCount(2); break; } -case 193: {// wxIdleEvent +case 194: {// wxIdleEvent evClass = (char*)"wxIdleEvent"; rt.addAtom((char*)"wxIdle"); rt.addAtom(Etype->eName); rt.addTupleCount(2); break; } -case 194: {// wxGridEvent +case 195: {// wxGridEvent wxGridEvent * ev = (wxGridEvent *) event; evClass = (char*)"wxGridEvent"; rt.addAtom((char*)"wxGrid"); @@ -638,7 +638,7 @@ case 194: {// wxGridEvent rt.addTupleCount(11); break; } -case 196: {// wxSashEvent +case 197: {// wxSashEvent wxSashEvent * ev = (wxSashEvent *) event; evClass = (char*)"wxSashEvent"; rt.addAtom((char*)"wxSash"); @@ -649,7 +649,7 @@ case 196: {// wxSashEvent rt.addTupleCount(5); break; } -case 197: {// wxListEvent +case 198: {// wxListEvent wxListEvent * ev = (wxListEvent *) event; evClass = (char*)"wxListEvent"; rt.addAtom((char*)"wxList"); @@ -662,7 +662,7 @@ case 197: {// wxListEvent rt.addTupleCount(7); break; } -case 198: {// wxDateEvent +case 199: {// wxDateEvent wxDateEvent * ev = (wxDateEvent *) event; evClass = (char*)"wxDateEvent"; rt.addAtom((char*)"wxDate"); @@ -671,14 +671,14 @@ case 198: {// wxDateEvent rt.addTupleCount(3); break; } -case 199: {// wxCalendarEvent +case 200: {// wxCalendarEvent evClass = (char*)"wxCalendarEvent"; rt.addAtom((char*)"wxCalendar"); rt.addAtom(Etype->eName); rt.addTupleCount(2); break; } -case 200: {// wxFileDirPickerEvent +case 201: {// wxFileDirPickerEvent wxFileDirPickerEvent * ev = (wxFileDirPickerEvent *) event; evClass = (char*)"wxFileDirPickerEvent"; rt.addAtom((char*)"wxFileDirPicker"); @@ -687,7 +687,7 @@ case 200: {// wxFileDirPickerEvent rt.addTupleCount(3); break; } -case 201: {// wxColourPickerEvent +case 202: {// wxColourPickerEvent wxColourPickerEvent * ev = (wxColourPickerEvent *) event; evClass = (char*)"wxColourPickerEvent"; rt.addAtom((char*)"wxColourPicker"); @@ -696,7 +696,7 @@ case 201: {// wxColourPickerEvent rt.addTupleCount(3); break; } -case 202: {// wxFontPickerEvent +case 203: {// wxFontPickerEvent wxFontPickerEvent * ev = (wxFontPickerEvent *) event; wxFont * GetFont = new wxFont(ev->GetFont()); app->newPtr((void *) GetFont,3, memenv); @@ -707,7 +707,7 @@ case 202: {// wxFontPickerEvent rt.addTupleCount(3); break; } -case 203: {// wxStyledTextEvent +case 204: {// wxStyledTextEvent wxStyledTextEvent * ev = (wxStyledTextEvent *) event; evClass = (char*)"wxStyledTextEvent"; rt.addAtom((char*)"wxStyledText"); @@ -735,7 +735,7 @@ case 203: {// wxStyledTextEvent rt.addTupleCount(22); break; } -case 208: {// wxTreeEvent +case 209: {// wxTreeEvent wxTreeEvent * ev = (wxTreeEvent *) event; evClass = (char*)"wxTreeEvent"; rt.addAtom((char*)"wxTree"); @@ -746,14 +746,14 @@ case 208: {// wxTreeEvent rt.addTupleCount(5); break; } -case 209: {// wxNotebookEvent +case 210: {// wxNotebookEvent evClass = (char*)"wxNotebookEvent"; rt.addAtom((char*)"wxNotebook"); rt.addAtom(Etype->eName); rt.addTupleCount(2); break; } -case 215: {// wxSpinEvent +case 216: {// wxSpinEvent wxSpinEvent * ev = (wxSpinEvent *) event; evClass = (char*)"wxSpinEvent"; rt.addAtom((char*)"wxSpin"); @@ -762,14 +762,14 @@ case 215: {// wxSpinEvent rt.addTupleCount(3); break; } -case 217: {// wxSplitterEvent +case 218: {// wxSplitterEvent evClass = (char*)"wxSplitterEvent"; rt.addAtom((char*)"wxSplitter"); rt.addAtom(Etype->eName); rt.addTupleCount(2); break; } -case 219: {// wxHtmlLinkEvent +case 220: {// wxHtmlLinkEvent wxHtmlLinkEvent * ev = (wxHtmlLinkEvent *) event; evClass = (char*)"wxHtmlLinkEvent"; rt.addAtom((char*)"wxHtmlLink"); @@ -778,7 +778,7 @@ case 219: {// wxHtmlLinkEvent rt.addTupleCount(3); break; } -case 221: {// wxAuiNotebookEvent +case 222: {// wxAuiNotebookEvent wxAuiNotebookEvent * ev = (wxAuiNotebookEvent *) event; wxAuiNotebook * GetDragSource = ev->GetDragSource(); evClass = (char*)"wxAuiNotebookEvent"; @@ -790,7 +790,7 @@ case 221: {// wxAuiNotebookEvent rt.addTupleCount(5); break; } -case 222: {// wxAuiManagerEvent +case 223: {// wxAuiManagerEvent wxAuiManagerEvent * ev = (wxAuiManagerEvent *) event; wxAuiManager * GetManager = ev->GetManager(); wxAuiPaneInfo * GetPane = ev->GetPane(); diff --git a/lib/wx/c_src/gen/wxe_funcs.cpp b/lib/wx/c_src/gen/wxe_funcs.cpp index 479d7679a4..afef2990b4 100644 --- a/lib/wx/c_src/gen/wxe_funcs.cpp +++ b/lib/wx/c_src/gen/wxe_funcs.cpp @@ -1,7 +1,7 @@ /* * %CopyrightBegin% * - * Copyright Ericsson AB 2008-2010. All Rights Reserved. + * Copyright Ericsson AB 2008-2011. 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 @@ -4486,7 +4486,7 @@ case wxGridCellBoolEditor_IsTrueValue: { // wxGridCellBoolEditor::IsTrueValue break; } case wxGridCellBoolEditor_UseStringValues: { // wxGridCellBoolEditor::UseStringValues - wxString valueTrue= _T("1"); + wxString valueTrue= wxT("1"); wxString valueFalse= wxEmptyString; while( * (int*) bp) { switch (* (int*) bp) { case 1: {bp += 4; @@ -15143,12 +15143,14 @@ case wxListBox_SetFirstItem_1_1: { // wxListBox::SetFirstItem This->SetFirstItem(s); break; } + case wxListCtrl_new_0: { // wxListCtrl::wxListCtrl wxListCtrl * Result = new EwxListCtrl(); newPtr((void *) Result, 0, memenv); rt.addRef(getRef((void *)Result,memenv), "wxListCtrl"); break; } + case wxListCtrl_new_2: { // wxListCtrl::wxListCtrl wxWindowID winid=wxID_ANY; wxPoint pos= wxDefaultPosition; @@ -15156,6 +15158,8 @@ case wxListCtrl_new_2: { // wxListCtrl::wxListCtrl long style=wxLC_ICON; const wxValidator * validator= &wxDefaultValidator; wxWindow *parent = (wxWindow *) getPtr(bp,memenv); bp += 4; + int onGetItemText = 0, onGetItemAttr = 0, onGetItemColumnImage = 0; + bp += 4; /* Align */ while( * (int*) bp) { switch (* (int*) bp) { case 1: {bp += 4; @@ -15179,8 +15183,21 @@ case wxListCtrl_new_2: { // wxListCtrl::wxListCtrl case 5: {bp += 4; validator = (wxValidator *) getPtr(bp,memenv); bp += 4; } break; + case 6: {bp += 4; + onGetItemText = *(int *) bp; bp += 4; + } break; + case 7: {bp += 4; + onGetItemAttr = *(int *) bp; bp += 4; + } break; + case 8: {bp += 4; + onGetItemColumnImage = *(int *) bp; bp += 4; + } break; }}; - wxListCtrl * Result = new EwxListCtrl(parent,winid,pos,size,style,*validator); + EwxListCtrl * Result = new EwxListCtrl(parent,winid,pos,size,style,*validator); + Result->onGetItemText = onGetItemText; + Result->onGetItemAttr = onGetItemAttr; + Result->onGetItemColumnImage = onGetItemColumnImage; + Result->port = Ecmd.port; newPtr((void *) Result, 0, memenv); rt.addRef(getRef((void *)Result,memenv), "wxListCtrl"); break; @@ -15213,14 +15230,18 @@ case wxListCtrl_ClearAll: { // wxListCtrl::ClearAll This->ClearAll(); break; } + case wxListCtrl_Create: { // wxListCtrl::Create wxWindowID winid=wxID_ANY; wxPoint pos= wxDefaultPosition; wxSize size= wxDefaultSize; long style=wxLC_ICON; const wxValidator * validator= &wxDefaultValidator; - wxListCtrl *This = (wxListCtrl *) getPtr(bp,memenv); bp += 4; + EwxListCtrl *This = (EwxListCtrl *) getPtr(bp,memenv); bp += 4; wxWindow *parent = (wxWindow *) getPtr(bp,memenv); bp += 4; + int onGetItemText = 0, onGetItemAttr = 0, onGetItemColumnImage = 0; + + bp += 4; /* Align */ while( * (int*) bp) { switch (* (int*) bp) { case 1: {bp += 4; winid = (wxWindowID)*(int *) bp; bp += 4; @@ -15243,9 +15264,23 @@ case wxListCtrl_Create: { // wxListCtrl::Create case 5: {bp += 4; validator = (wxValidator *) getPtr(bp,memenv); bp += 4; } break; + case 6: {bp += 4; + onGetItemText = *(int *) bp; bp += 4; + } break; + case 7: {bp += 4; + onGetItemAttr = *(int *) bp; bp += 4; + } break; + case 8: {bp += 4; + onGetItemColumnImage = *(int *) bp; bp += 4; + } break; }}; if(!This) throw wxe_badarg(0); bool Result = This->Create(parent,winid,pos,size,style,*validator); + This->onGetItemText = onGetItemText; + This->onGetItemAttr = onGetItemAttr; + This->onGetItemColumnImage = onGetItemColumnImage; + This->port = Ecmd.port; + rt.addBool(Result); break; } @@ -16095,6 +16130,106 @@ case wxListItem_SetWidth: { // wxListItem::SetWidth This->SetWidth((int) *width); break; } +case wxListItemAttr_new_0: { // wxListItemAttr::wxListItemAttr + wxListItemAttr * Result = new wxListItemAttr(); + newPtr((void *) Result, 101, memenv); + rt.addRef(getRef((void *)Result,memenv), "wxListItemAttr"); + break; +} +case wxListItemAttr_new_3: { // wxListItemAttr::wxListItemAttr + int * colTextR = (int *) bp; bp += 4; + int * colTextG = (int *) bp; bp += 4; + int * colTextB = (int *) bp; bp += 4; + int * colTextA = (int *) bp; bp += 4; + wxColour colText = wxColour(*colTextR,*colTextG,*colTextB,*colTextA); + int * colBackR = (int *) bp; bp += 4; + int * colBackG = (int *) bp; bp += 4; + int * colBackB = (int *) bp; bp += 4; + int * colBackA = (int *) bp; bp += 4; + wxColour colBack = wxColour(*colBackR,*colBackG,*colBackB,*colBackA); + wxFont *font = (wxFont *) getPtr(bp,memenv); bp += 4; + wxListItemAttr * Result = new wxListItemAttr(colText,colBack,*font); + newPtr((void *) Result, 101, memenv); + rt.addRef(getRef((void *)Result,memenv), "wxListItemAttr"); + break; +} +case wxListItemAttr_GetBackgroundColour: { // wxListItemAttr::GetBackgroundColour + wxListItemAttr *This = (wxListItemAttr *) getPtr(bp,memenv); bp += 4; + if(!This) throw wxe_badarg(0); + const wxColour * Result = &This->GetBackgroundColour(); + rt.add((*Result)); + break; +} +case wxListItemAttr_GetFont: { // wxListItemAttr::GetFont + wxListItemAttr *This = (wxListItemAttr *) getPtr(bp,memenv); bp += 4; + if(!This) throw wxe_badarg(0); + const wxFont * Result = &This->GetFont(); + rt.addRef(getRef((void *)Result,memenv), "wxFont"); + break; +} +case wxListItemAttr_GetTextColour: { // wxListItemAttr::GetTextColour + wxListItemAttr *This = (wxListItemAttr *) getPtr(bp,memenv); bp += 4; + if(!This) throw wxe_badarg(0); + const wxColour * Result = &This->GetTextColour(); + rt.add((*Result)); + break; +} +case wxListItemAttr_HasBackgroundColour: { // wxListItemAttr::HasBackgroundColour + wxListItemAttr *This = (wxListItemAttr *) getPtr(bp,memenv); bp += 4; + if(!This) throw wxe_badarg(0); + bool Result = This->HasBackgroundColour(); + rt.addBool(Result); + break; +} +case wxListItemAttr_HasFont: { // wxListItemAttr::HasFont + wxListItemAttr *This = (wxListItemAttr *) getPtr(bp,memenv); bp += 4; + if(!This) throw wxe_badarg(0); + bool Result = This->HasFont(); + rt.addBool(Result); + break; +} +case wxListItemAttr_HasTextColour: { // wxListItemAttr::HasTextColour + wxListItemAttr *This = (wxListItemAttr *) getPtr(bp,memenv); bp += 4; + if(!This) throw wxe_badarg(0); + bool Result = This->HasTextColour(); + rt.addBool(Result); + break; +} +case wxListItemAttr_SetBackgroundColour: { // wxListItemAttr::SetBackgroundColour + wxListItemAttr *This = (wxListItemAttr *) getPtr(bp,memenv); bp += 4; + int * colBackR = (int *) bp; bp += 4; + int * colBackG = (int *) bp; bp += 4; + int * colBackB = (int *) bp; bp += 4; + int * colBackA = (int *) bp; bp += 4; + wxColour colBack = wxColour(*colBackR,*colBackG,*colBackB,*colBackA); + if(!This) throw wxe_badarg(0); + This->SetBackgroundColour(colBack); + break; +} +case wxListItemAttr_SetFont: { // wxListItemAttr::SetFont + wxListItemAttr *This = (wxListItemAttr *) getPtr(bp,memenv); bp += 4; + wxFont *font = (wxFont *) getPtr(bp,memenv); bp += 4; + if(!This) throw wxe_badarg(0); + This->SetFont(*font); + break; +} +case wxListItemAttr_SetTextColour: { // wxListItemAttr::SetTextColour + wxListItemAttr *This = (wxListItemAttr *) getPtr(bp,memenv); bp += 4; + int * colTextR = (int *) bp; bp += 4; + int * colTextG = (int *) bp; bp += 4; + int * colTextB = (int *) bp; bp += 4; + int * colTextA = (int *) bp; bp += 4; + wxColour colText = wxColour(*colTextR,*colTextG,*colTextB,*colTextA); + if(!This) throw wxe_badarg(0); + This->SetTextColour(colText); + break; +} +case wxListItemAttr_destroy: { // wxListItemAttr::destroy + wxListItemAttr *This = (wxListItemAttr *) getPtr(bp,memenv); bp += 4; + if(This) { ((WxeApp *) wxTheApp)->clearPtr((void *) This); + delete This;} + break; +} case wxImageList_new_0: { // wxImageList::wxImageList wxImageList * Result = new EwxImageList(); newPtr((void *) Result, 1, memenv); @@ -16263,7 +16398,7 @@ case wxImageList_Replace_3: { // wxImageList::Replace } case wxTextAttr_new_0: { // wxTextAttr::wxTextAttr wxTextAttr * Result = new wxTextAttr(); - newPtr((void *) Result, 102, memenv); + newPtr((void *) Result, 103, memenv); rt.addRef(getRef((void *)Result,memenv), "wxTextAttr"); break; } @@ -16293,7 +16428,7 @@ alignment = *(wxTextAttrAlignment *) bp; bp += 4;; } break; }}; wxTextAttr * Result = new wxTextAttr(colText,colBack,*font,(wxTextAttrAlignment) alignment); - newPtr((void *) Result, 102, memenv); + newPtr((void *) Result, 103, memenv); rt.addRef(getRef((void *)Result,memenv), "wxTextAttr"); break; } @@ -22711,7 +22846,7 @@ case wxPreviewFrame_new: { // wxPreviewFrame::wxPreviewFrame wxString title= wxT("Print Preview"); wxPoint pos= wxDefaultPosition; wxSize size= wxDefaultSize; - long style=wxDEFAULT_FRAME_STYLE; + long style=wxDEFAULT_FRAME_STYLE|wxFRAME_FLOAT_ON_PARENT; wxPrintPreview *preview = (wxPrintPreview *) getPtr(bp,memenv); bp += 4; wxWindow *parent = (wxWindow *) getPtr(bp,memenv); bp += 4; while( * (int*) bp) { switch (* (int*) bp) { @@ -23742,14 +23877,14 @@ case wxAuiManager_Update: { // wxAuiManager::Update #if wxUSE_AUI case wxAuiPaneInfo_new_0: { // wxAuiPaneInfo::wxAuiPaneInfo wxAuiPaneInfo * Result = new wxAuiPaneInfo(); - newPtr((void *) Result, 154, memenv); + newPtr((void *) Result, 155, memenv); rt.addRef(getRef((void *)Result,memenv), "wxAuiPaneInfo"); break; } case wxAuiPaneInfo_new_1: { // wxAuiPaneInfo::wxAuiPaneInfo wxAuiPaneInfo *c = (wxAuiPaneInfo *) getPtr(bp,memenv); bp += 4; wxAuiPaneInfo * Result = new wxAuiPaneInfo(*c); - newPtr((void *) Result, 154, memenv); + newPtr((void *) Result, 155, memenv); rt.addRef(getRef((void *)Result,memenv), "wxAuiPaneInfo"); break; } @@ -30292,7 +30427,7 @@ case wxNotebookEvent_SetSelection: { // wxNotebookEvent::SetSelection } case wxFileDataObject_new: { // wxFileDataObject::wxFileDataObject wxFileDataObject * Result = new wxFileDataObject(); - newPtr((void *) Result, 211, memenv); + newPtr((void *) Result, 212, memenv); rt.addRef(getRef((void *)Result,memenv), "wxFileDataObject"); break; } @@ -30328,7 +30463,7 @@ case wxTextDataObject_new: { // wxTextDataObject::wxTextDataObject } break; }}; wxTextDataObject * Result = new wxTextDataObject(text); - newPtr((void *) Result, 212, memenv); + newPtr((void *) Result, 213, memenv); rt.addRef(getRef((void *)Result,memenv), "wxTextDataObject"); break; } @@ -30364,7 +30499,7 @@ case wxTextDataObject_destroy: { // wxTextDataObject::destroy case wxBitmapDataObject_new_1_1: { // wxBitmapDataObject::wxBitmapDataObject wxBitmap *bitmap = (wxBitmap *) getPtr(bp,memenv); bp += 4; wxBitmapDataObject * Result = new wxBitmapDataObject(*bitmap); - newPtr((void *) Result, 213, memenv); + newPtr((void *) Result, 214, memenv); rt.addRef(getRef((void *)Result,memenv), "wxBitmapDataObject"); break; } @@ -30376,7 +30511,7 @@ bitmap = (wxBitmap *) getPtr(bp,memenv); bp += 4; } break; }}; wxBitmapDataObject * Result = new wxBitmapDataObject(*bitmap); - newPtr((void *) Result, 213, memenv); + newPtr((void *) Result, 214, memenv); rt.addRef(getRef((void *)Result,memenv), "wxBitmapDataObject"); break; } @@ -31159,7 +31294,7 @@ case wxAuiManagerEvent_CanVeto: { // wxAuiManagerEvent::CanVeto } case wxLogNull_new: { // wxLogNull::wxLogNull wxLogNull * Result = new wxLogNull(); - newPtr((void *) Result, 223, memenv); + newPtr((void *) Result, 224, memenv); rt.addRef(getRef((void *)Result,memenv), "wxLogNull"); break; } @@ -31188,3 +31323,31 @@ case wxLogNull_destroy: { // wxLogNull::destroy error.addTupleCount(3); error.send(); }} /* The End */ + + +void WxeApp::delete_object(void *ptr, wxeRefData *refd) { + switch(refd->type) { + case 24: delete (wxGridCellBoolRenderer *) ptr; break; + case 25: delete (wxGridCellBoolEditor *) ptr; break; + case 26: delete (wxGridCellFloatRenderer *) ptr; break; + case 27: delete (wxGridCellFloatEditor *) ptr; break; + case 28: delete (wxGridCellStringRenderer *) ptr; break; + case 29: delete (wxGridCellTextEditor *) ptr; break; + case 30: delete (wxGridCellChoiceEditor *) ptr; break; + case 31: delete (wxGridCellNumberRenderer *) ptr; break; + case 32: delete (wxGridCellNumberEditor *) ptr; break; + case 61: delete (wxIconBundle *) ptr; break; + case 69: delete (wxAcceleratorEntry *) ptr; break; + case 70: /* delete (wxCaret *) ptr;These objects must be deleted by owner object */ break; + case 72: delete (wxSizerFlags *) ptr; break; + case 88: /* delete (wxCalendarDateAttr *) ptr;These objects must be deleted by owner object */ break; + case 101: delete (wxListItemAttr *) ptr; break; + case 103: delete (wxTextAttr *) ptr; break; + case 155: delete (wxAuiPaneInfo *) ptr; break; + case 212: /* delete (wxFileDataObject *) ptr;These objects must be deleted by owner object */ break; + case 213: /* delete (wxTextDataObject *) ptr;These objects must be deleted by owner object */ break; + case 214: /* delete (wxBitmapDataObject *) ptr;These objects must be deleted by owner object */ break; + case 224: delete (wxLogNull *) ptr; break; + default: delete (wxObject *) ptr; +}} + diff --git a/lib/wx/c_src/gen/wxe_init.cpp b/lib/wx/c_src/gen/wxe_init.cpp index bab3261be4..a75298392b 100644 --- a/lib/wx/c_src/gen/wxe_init.cpp +++ b/lib/wx/c_src/gen/wxe_init.cpp @@ -1,7 +1,7 @@ /* * %CopyrightBegin% * - * Copyright Ericsson AB 2008-2010. All Rights Reserved. + * Copyright Ericsson AB 2008-2011. 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 diff --git a/lib/wx/c_src/gen/wxe_macros.h b/lib/wx/c_src/gen/wxe_macros.h index 4fb76f960b..be0481564f 100644 --- a/lib/wx/c_src/gen/wxe_macros.h +++ b/lib/wx/c_src/gen/wxe_macros.h @@ -1,7 +1,7 @@ /* * %CopyrightBegin% * - * Copyright Ericsson AB 2008-2010. All Rights Reserved. + * Copyright Ericsson AB 2008-2011. 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 @@ -1648,1683 +1648,1695 @@ #define wxListItem_SetText 1754 #define wxListItem_SetTextColour 1755 #define wxListItem_SetWidth 1756 -#define wxImageList_new_0 1757 -#define wxImageList_new_3 1758 -#define wxImageList_Add_1 1759 -#define wxImageList_Add_2_0 1760 -#define wxImageList_Add_2_1 1761 -#define wxImageList_Create 1762 -#define wxImageList_Draw 1764 -#define wxImageList_GetBitmap 1765 -#define wxImageList_GetIcon 1766 -#define wxImageList_GetImageCount 1767 -#define wxImageList_GetSize 1768 -#define wxImageList_Remove 1769 -#define wxImageList_RemoveAll 1770 -#define wxImageList_Replace_2 1771 -#define wxImageList_Replace_3 1772 -#define wxImageList_destroy 1773 -#define wxTextAttr_new_0 1774 -#define wxTextAttr_new_2 1775 -#define wxTextAttr_GetAlignment 1776 -#define wxTextAttr_GetBackgroundColour 1777 -#define wxTextAttr_GetFont 1778 -#define wxTextAttr_GetLeftIndent 1779 -#define wxTextAttr_GetLeftSubIndent 1780 -#define wxTextAttr_GetRightIndent 1781 -#define wxTextAttr_GetTabs 1782 -#define wxTextAttr_GetTextColour 1783 -#define wxTextAttr_HasBackgroundColour 1784 -#define wxTextAttr_HasFont 1785 -#define wxTextAttr_HasTextColour 1786 -#define wxTextAttr_GetFlags 1787 -#define wxTextAttr_IsDefault 1788 -#define wxTextAttr_SetAlignment 1789 -#define wxTextAttr_SetBackgroundColour 1790 -#define wxTextAttr_SetFlags 1791 -#define wxTextAttr_SetFont 1792 -#define wxTextAttr_SetLeftIndent 1793 -#define wxTextAttr_SetRightIndent 1794 -#define wxTextAttr_SetTabs 1795 -#define wxTextAttr_SetTextColour 1796 -#define wxTextAttr_destroy 1797 -#define wxTextCtrl_new_3 1799 -#define wxTextCtrl_new_0 1800 -#define wxTextCtrl_destruct 1802 -#define wxTextCtrl_AppendText 1803 -#define wxTextCtrl_CanCopy 1804 -#define wxTextCtrl_CanCut 1805 -#define wxTextCtrl_CanPaste 1806 -#define wxTextCtrl_CanRedo 1807 -#define wxTextCtrl_CanUndo 1808 -#define wxTextCtrl_Clear 1809 -#define wxTextCtrl_Copy 1810 -#define wxTextCtrl_Create 1811 -#define wxTextCtrl_Cut 1812 -#define wxTextCtrl_DiscardEdits 1813 -#define wxTextCtrl_EmulateKeyPress 1814 -#define wxTextCtrl_GetDefaultStyle 1815 -#define wxTextCtrl_GetInsertionPoint 1816 -#define wxTextCtrl_GetLastPosition 1817 -#define wxTextCtrl_GetLineLength 1818 -#define wxTextCtrl_GetLineText 1819 -#define wxTextCtrl_GetNumberOfLines 1820 -#define wxTextCtrl_GetRange 1821 -#define wxTextCtrl_GetSelection 1822 -#define wxTextCtrl_GetStringSelection 1823 -#define wxTextCtrl_GetStyle 1824 -#define wxTextCtrl_GetValue 1825 -#define wxTextCtrl_IsEditable 1826 -#define wxTextCtrl_IsModified 1827 -#define wxTextCtrl_IsMultiLine 1828 -#define wxTextCtrl_IsSingleLine 1829 -#define wxTextCtrl_LoadFile 1830 -#define wxTextCtrl_MarkDirty 1831 -#define wxTextCtrl_Paste 1832 -#define wxTextCtrl_PositionToXY 1833 -#define wxTextCtrl_Redo 1834 -#define wxTextCtrl_Remove 1835 -#define wxTextCtrl_Replace 1836 -#define wxTextCtrl_SaveFile 1837 -#define wxTextCtrl_SetDefaultStyle 1838 -#define wxTextCtrl_SetEditable 1839 -#define wxTextCtrl_SetInsertionPoint 1840 -#define wxTextCtrl_SetInsertionPointEnd 1841 -#define wxTextCtrl_SetMaxLength 1843 -#define wxTextCtrl_SetSelection 1844 -#define wxTextCtrl_SetStyle 1845 -#define wxTextCtrl_SetValue 1846 -#define wxTextCtrl_ShowPosition 1847 -#define wxTextCtrl_Undo 1848 -#define wxTextCtrl_WriteText 1849 -#define wxTextCtrl_XYToPosition 1850 -#define wxNotebook_new_0 1853 -#define wxNotebook_new_3 1854 -#define wxNotebook_destruct 1855 -#define wxNotebook_AddPage 1856 -#define wxNotebook_AdvanceSelection 1857 -#define wxNotebook_AssignImageList 1858 -#define wxNotebook_Create 1859 -#define wxNotebook_DeleteAllPages 1860 -#define wxNotebook_DeletePage 1861 -#define wxNotebook_RemovePage 1862 -#define wxNotebook_GetCurrentPage 1863 -#define wxNotebook_GetImageList 1864 -#define wxNotebook_GetPage 1866 -#define wxNotebook_GetPageCount 1867 -#define wxNotebook_GetPageImage 1868 -#define wxNotebook_GetPageText 1869 -#define wxNotebook_GetRowCount 1870 -#define wxNotebook_GetSelection 1871 -#define wxNotebook_GetThemeBackgroundColour 1872 -#define wxNotebook_HitTest 1874 -#define wxNotebook_InsertPage 1876 -#define wxNotebook_SetImageList 1877 -#define wxNotebook_SetPadding 1878 -#define wxNotebook_SetPageSize 1879 -#define wxNotebook_SetPageImage 1880 -#define wxNotebook_SetPageText 1881 -#define wxNotebook_SetSelection 1882 -#define wxNotebook_ChangeSelection 1883 -#define wxChoicebook_new_0 1884 -#define wxChoicebook_new_3 1885 -#define wxChoicebook_AddPage 1886 -#define wxChoicebook_AdvanceSelection 1887 -#define wxChoicebook_AssignImageList 1888 -#define wxChoicebook_Create 1889 -#define wxChoicebook_DeleteAllPages 1890 -#define wxChoicebook_DeletePage 1891 -#define wxChoicebook_RemovePage 1892 -#define wxChoicebook_GetCurrentPage 1893 -#define wxChoicebook_GetImageList 1894 -#define wxChoicebook_GetPage 1896 -#define wxChoicebook_GetPageCount 1897 -#define wxChoicebook_GetPageImage 1898 -#define wxChoicebook_GetPageText 1899 -#define wxChoicebook_GetSelection 1900 -#define wxChoicebook_HitTest 1901 -#define wxChoicebook_InsertPage 1902 -#define wxChoicebook_SetImageList 1903 -#define wxChoicebook_SetPageSize 1904 -#define wxChoicebook_SetPageImage 1905 -#define wxChoicebook_SetPageText 1906 -#define wxChoicebook_SetSelection 1907 -#define wxChoicebook_ChangeSelection 1908 -#define wxChoicebook_destroy 1909 -#define wxToolbook_new_0 1910 -#define wxToolbook_new_3 1911 -#define wxToolbook_AddPage 1912 -#define wxToolbook_AdvanceSelection 1913 -#define wxToolbook_AssignImageList 1914 -#define wxToolbook_Create 1915 -#define wxToolbook_DeleteAllPages 1916 -#define wxToolbook_DeletePage 1917 -#define wxToolbook_RemovePage 1918 -#define wxToolbook_GetCurrentPage 1919 -#define wxToolbook_GetImageList 1920 -#define wxToolbook_GetPage 1922 -#define wxToolbook_GetPageCount 1923 -#define wxToolbook_GetPageImage 1924 -#define wxToolbook_GetPageText 1925 -#define wxToolbook_GetSelection 1926 -#define wxToolbook_HitTest 1928 -#define wxToolbook_InsertPage 1929 -#define wxToolbook_SetImageList 1930 -#define wxToolbook_SetPageSize 1931 -#define wxToolbook_SetPageImage 1932 -#define wxToolbook_SetPageText 1933 -#define wxToolbook_SetSelection 1934 -#define wxToolbook_ChangeSelection 1935 -#define wxToolbook_destroy 1936 -#define wxListbook_new_0 1937 -#define wxListbook_new_3 1938 -#define wxListbook_AddPage 1939 -#define wxListbook_AdvanceSelection 1940 -#define wxListbook_AssignImageList 1941 -#define wxListbook_Create 1942 -#define wxListbook_DeleteAllPages 1943 -#define wxListbook_DeletePage 1944 -#define wxListbook_RemovePage 1945 -#define wxListbook_GetCurrentPage 1946 -#define wxListbook_GetImageList 1947 -#define wxListbook_GetPage 1949 -#define wxListbook_GetPageCount 1950 -#define wxListbook_GetPageImage 1951 -#define wxListbook_GetPageText 1952 -#define wxListbook_GetSelection 1953 -#define wxListbook_HitTest 1955 -#define wxListbook_InsertPage 1956 -#define wxListbook_SetImageList 1957 -#define wxListbook_SetPageSize 1958 -#define wxListbook_SetPageImage 1959 -#define wxListbook_SetPageText 1960 -#define wxListbook_SetSelection 1961 -#define wxListbook_ChangeSelection 1962 -#define wxListbook_destroy 1963 -#define wxTreebook_new_0 1964 -#define wxTreebook_new_3 1965 -#define wxTreebook_AddPage 1966 -#define wxTreebook_AdvanceSelection 1967 -#define wxTreebook_AssignImageList 1968 -#define wxTreebook_Create 1969 -#define wxTreebook_DeleteAllPages 1970 -#define wxTreebook_DeletePage 1971 -#define wxTreebook_RemovePage 1972 -#define wxTreebook_GetCurrentPage 1973 -#define wxTreebook_GetImageList 1974 -#define wxTreebook_GetPage 1976 -#define wxTreebook_GetPageCount 1977 -#define wxTreebook_GetPageImage 1978 -#define wxTreebook_GetPageText 1979 -#define wxTreebook_GetSelection 1980 -#define wxTreebook_ExpandNode 1981 -#define wxTreebook_IsNodeExpanded 1982 -#define wxTreebook_HitTest 1984 -#define wxTreebook_InsertPage 1985 -#define wxTreebook_InsertSubPage 1986 -#define wxTreebook_SetImageList 1987 -#define wxTreebook_SetPageSize 1988 -#define wxTreebook_SetPageImage 1989 -#define wxTreebook_SetPageText 1990 -#define wxTreebook_SetSelection 1991 -#define wxTreebook_ChangeSelection 1992 -#define wxTreebook_destroy 1993 -#define wxTreeCtrl_new_2 1996 -#define wxTreeCtrl_new_0 1997 -#define wxTreeCtrl_destruct 1999 -#define wxTreeCtrl_AddRoot 2000 -#define wxTreeCtrl_AppendItem 2001 -#define wxTreeCtrl_AssignImageList 2002 -#define wxTreeCtrl_AssignStateImageList 2003 -#define wxTreeCtrl_Collapse 2004 -#define wxTreeCtrl_CollapseAndReset 2005 -#define wxTreeCtrl_Create 2006 -#define wxTreeCtrl_Delete 2007 -#define wxTreeCtrl_DeleteAllItems 2008 -#define wxTreeCtrl_DeleteChildren 2009 -#define wxTreeCtrl_EditLabel 2010 -#define wxTreeCtrl_EnsureVisible 2011 -#define wxTreeCtrl_Expand 2012 -#define wxTreeCtrl_GetBoundingRect 2013 -#define wxTreeCtrl_GetChildrenCount 2015 -#define wxTreeCtrl_GetCount 2016 -#define wxTreeCtrl_GetEditControl 2017 -#define wxTreeCtrl_GetFirstChild 2018 -#define wxTreeCtrl_GetNextChild 2019 -#define wxTreeCtrl_GetFirstVisibleItem 2020 -#define wxTreeCtrl_GetImageList 2021 -#define wxTreeCtrl_GetIndent 2022 -#define wxTreeCtrl_GetItemBackgroundColour 2023 -#define wxTreeCtrl_GetItemData 2024 -#define wxTreeCtrl_GetItemFont 2025 -#define wxTreeCtrl_GetItemImage_1 2026 -#define wxTreeCtrl_GetItemImage_2 2027 -#define wxTreeCtrl_GetItemText 2028 -#define wxTreeCtrl_GetItemTextColour 2029 -#define wxTreeCtrl_GetLastChild 2030 -#define wxTreeCtrl_GetNextSibling 2031 -#define wxTreeCtrl_GetNextVisible 2032 -#define wxTreeCtrl_GetItemParent 2033 -#define wxTreeCtrl_GetPrevSibling 2034 -#define wxTreeCtrl_GetPrevVisible 2035 -#define wxTreeCtrl_GetRootItem 2036 -#define wxTreeCtrl_GetSelection 2037 -#define wxTreeCtrl_GetSelections 2038 -#define wxTreeCtrl_GetStateImageList 2039 -#define wxTreeCtrl_HitTest 2040 -#define wxTreeCtrl_InsertItem 2042 -#define wxTreeCtrl_IsBold 2043 -#define wxTreeCtrl_IsExpanded 2044 -#define wxTreeCtrl_IsSelected 2045 -#define wxTreeCtrl_IsVisible 2046 -#define wxTreeCtrl_ItemHasChildren 2047 -#define wxTreeCtrl_PrependItem 2048 -#define wxTreeCtrl_ScrollTo 2049 -#define wxTreeCtrl_SelectItem_1 2050 -#define wxTreeCtrl_SelectItem_2 2051 -#define wxTreeCtrl_SetIndent 2052 -#define wxTreeCtrl_SetImageList 2053 -#define wxTreeCtrl_SetItemBackgroundColour 2054 -#define wxTreeCtrl_SetItemBold 2055 -#define wxTreeCtrl_SetItemData 2056 -#define wxTreeCtrl_SetItemDropHighlight 2057 -#define wxTreeCtrl_SetItemFont 2058 -#define wxTreeCtrl_SetItemHasChildren 2059 -#define wxTreeCtrl_SetItemImage_2 2060 -#define wxTreeCtrl_SetItemImage_3 2061 -#define wxTreeCtrl_SetItemText 2062 -#define wxTreeCtrl_SetItemTextColour 2063 -#define wxTreeCtrl_SetStateImageList 2064 -#define wxTreeCtrl_SetWindowStyle 2065 -#define wxTreeCtrl_SortChildren 2066 -#define wxTreeCtrl_Toggle 2067 -#define wxTreeCtrl_ToggleItemSelection 2068 -#define wxTreeCtrl_Unselect 2069 -#define wxTreeCtrl_UnselectAll 2070 -#define wxTreeCtrl_UnselectItem 2071 -#define wxScrollBar_new_0 2072 -#define wxScrollBar_new_3 2073 -#define wxScrollBar_destruct 2074 -#define wxScrollBar_Create 2075 -#define wxScrollBar_GetRange 2076 -#define wxScrollBar_GetPageSize 2077 -#define wxScrollBar_GetThumbPosition 2078 -#define wxScrollBar_GetThumbSize 2079 -#define wxScrollBar_SetThumbPosition 2080 -#define wxScrollBar_SetScrollbar 2081 -#define wxSpinButton_new_2 2083 -#define wxSpinButton_new_0 2084 -#define wxSpinButton_Create 2085 -#define wxSpinButton_GetMax 2086 -#define wxSpinButton_GetMin 2087 -#define wxSpinButton_GetValue 2088 -#define wxSpinButton_SetRange 2089 -#define wxSpinButton_SetValue 2090 -#define wxSpinButton_destroy 2091 -#define wxSpinCtrl_new_0 2092 -#define wxSpinCtrl_new_2 2093 -#define wxSpinCtrl_Create 2095 -#define wxSpinCtrl_SetValue_1_1 2098 -#define wxSpinCtrl_SetValue_1_0 2099 -#define wxSpinCtrl_GetValue 2101 -#define wxSpinCtrl_SetRange 2103 -#define wxSpinCtrl_SetSelection 2104 -#define wxSpinCtrl_GetMin 2106 -#define wxSpinCtrl_GetMax 2108 -#define wxSpinCtrl_destroy 2109 -#define wxStaticText_new_0 2110 -#define wxStaticText_new_4 2111 -#define wxStaticText_Create 2112 -#define wxStaticText_GetLabel 2113 -#define wxStaticText_SetLabel 2114 -#define wxStaticText_Wrap 2115 -#define wxStaticText_destroy 2116 -#define wxStaticBitmap_new_0 2117 -#define wxStaticBitmap_new_4 2118 -#define wxStaticBitmap_Create 2119 -#define wxStaticBitmap_GetBitmap 2120 -#define wxStaticBitmap_SetBitmap 2121 -#define wxStaticBitmap_destroy 2122 -#define wxRadioBox_new 2123 -#define wxRadioBox_destruct 2125 -#define wxRadioBox_Create 2126 -#define wxRadioBox_Enable_2 2127 -#define wxRadioBox_Enable_1 2128 -#define wxRadioBox_GetSelection 2129 -#define wxRadioBox_GetString 2130 -#define wxRadioBox_SetSelection 2131 -#define wxRadioBox_Show_2 2132 -#define wxRadioBox_Show_1 2133 -#define wxRadioBox_GetColumnCount 2134 -#define wxRadioBox_GetItemHelpText 2135 -#define wxRadioBox_GetItemToolTip 2136 -#define wxRadioBox_GetItemFromPoint 2138 -#define wxRadioBox_GetRowCount 2139 -#define wxRadioBox_IsItemEnabled 2140 -#define wxRadioBox_IsItemShown 2141 -#define wxRadioBox_SetItemHelpText 2142 -#define wxRadioBox_SetItemToolTip 2143 -#define wxRadioButton_new_0 2144 -#define wxRadioButton_new_4 2145 -#define wxRadioButton_Create 2146 -#define wxRadioButton_GetValue 2147 -#define wxRadioButton_SetValue 2148 -#define wxRadioButton_destroy 2149 -#define wxSlider_new_6 2151 -#define wxSlider_new_0 2152 -#define wxSlider_Create 2153 -#define wxSlider_GetLineSize 2154 -#define wxSlider_GetMax 2155 -#define wxSlider_GetMin 2156 -#define wxSlider_GetPageSize 2157 -#define wxSlider_GetThumbLength 2158 -#define wxSlider_GetValue 2159 -#define wxSlider_SetLineSize 2160 -#define wxSlider_SetPageSize 2161 -#define wxSlider_SetRange 2162 -#define wxSlider_SetThumbLength 2163 -#define wxSlider_SetValue 2164 -#define wxSlider_destroy 2165 -#define wxDialog_new_4 2167 -#define wxDialog_new_0 2168 -#define wxDialog_destruct 2170 -#define wxDialog_Create 2171 -#define wxDialog_CreateButtonSizer 2172 -#define wxDialog_CreateStdDialogButtonSizer 2173 -#define wxDialog_EndModal 2174 -#define wxDialog_GetAffirmativeId 2175 -#define wxDialog_GetReturnCode 2176 -#define wxDialog_IsModal 2177 -#define wxDialog_SetAffirmativeId 2178 -#define wxDialog_SetReturnCode 2179 -#define wxDialog_Show 2180 -#define wxDialog_ShowModal 2181 -#define wxColourDialog_new_0 2182 -#define wxColourDialog_new_2 2183 -#define wxColourDialog_destruct 2184 -#define wxColourDialog_Create 2185 -#define wxColourDialog_GetColourData 2186 -#define wxColourData_new_0 2187 -#define wxColourData_new_1 2188 -#define wxColourData_destruct 2189 -#define wxColourData_GetChooseFull 2190 -#define wxColourData_GetColour 2191 -#define wxColourData_GetCustomColour 2193 -#define wxColourData_SetChooseFull 2194 -#define wxColourData_SetColour 2195 -#define wxColourData_SetCustomColour 2196 -#define wxPalette_new_0 2197 -#define wxPalette_new_4 2198 -#define wxPalette_destruct 2200 -#define wxPalette_Create 2201 -#define wxPalette_GetColoursCount 2202 -#define wxPalette_GetPixel 2203 -#define wxPalette_GetRGB 2204 -#define wxPalette_IsOk 2205 -#define wxDirDialog_new 2209 -#define wxDirDialog_destruct 2210 -#define wxDirDialog_GetPath 2211 -#define wxDirDialog_GetMessage 2212 -#define wxDirDialog_SetMessage 2213 -#define wxDirDialog_SetPath 2214 -#define wxFileDialog_new 2218 -#define wxFileDialog_destruct 2219 -#define wxFileDialog_GetDirectory 2220 -#define wxFileDialog_GetFilename 2221 -#define wxFileDialog_GetFilenames 2222 -#define wxFileDialog_GetFilterIndex 2223 -#define wxFileDialog_GetMessage 2224 -#define wxFileDialog_GetPath 2225 -#define wxFileDialog_GetPaths 2226 -#define wxFileDialog_GetWildcard 2227 -#define wxFileDialog_SetDirectory 2228 -#define wxFileDialog_SetFilename 2229 -#define wxFileDialog_SetFilterIndex 2230 -#define wxFileDialog_SetMessage 2231 -#define wxFileDialog_SetPath 2232 -#define wxFileDialog_SetWildcard 2233 -#define wxPickerBase_SetInternalMargin 2234 -#define wxPickerBase_GetInternalMargin 2235 -#define wxPickerBase_SetTextCtrlProportion 2236 -#define wxPickerBase_SetPickerCtrlProportion 2237 -#define wxPickerBase_GetTextCtrlProportion 2238 -#define wxPickerBase_GetPickerCtrlProportion 2239 -#define wxPickerBase_HasTextCtrl 2240 -#define wxPickerBase_GetTextCtrl 2241 -#define wxPickerBase_IsTextCtrlGrowable 2242 -#define wxPickerBase_SetPickerCtrlGrowable 2243 -#define wxPickerBase_SetTextCtrlGrowable 2244 -#define wxPickerBase_IsPickerCtrlGrowable 2245 -#define wxFilePickerCtrl_new_0 2246 -#define wxFilePickerCtrl_new_3 2247 -#define wxFilePickerCtrl_Create 2248 -#define wxFilePickerCtrl_GetPath 2249 -#define wxFilePickerCtrl_SetPath 2250 -#define wxFilePickerCtrl_destroy 2251 -#define wxDirPickerCtrl_new_0 2252 -#define wxDirPickerCtrl_new_3 2253 -#define wxDirPickerCtrl_Create 2254 -#define wxDirPickerCtrl_GetPath 2255 -#define wxDirPickerCtrl_SetPath 2256 -#define wxDirPickerCtrl_destroy 2257 -#define wxColourPickerCtrl_new_0 2258 -#define wxColourPickerCtrl_new_3 2259 -#define wxColourPickerCtrl_Create 2260 -#define wxColourPickerCtrl_GetColour 2261 -#define wxColourPickerCtrl_SetColour_1_1 2262 -#define wxColourPickerCtrl_SetColour_1_0 2263 -#define wxColourPickerCtrl_destroy 2264 -#define wxDatePickerCtrl_new_0 2265 -#define wxDatePickerCtrl_new_3 2266 -#define wxDatePickerCtrl_GetRange 2267 -#define wxDatePickerCtrl_GetValue 2268 -#define wxDatePickerCtrl_SetRange 2269 -#define wxDatePickerCtrl_SetValue 2270 -#define wxDatePickerCtrl_destroy 2271 -#define wxFontPickerCtrl_new_0 2272 -#define wxFontPickerCtrl_new_3 2273 -#define wxFontPickerCtrl_Create 2274 -#define wxFontPickerCtrl_GetSelectedFont 2275 -#define wxFontPickerCtrl_SetSelectedFont 2276 -#define wxFontPickerCtrl_GetMaxPointSize 2277 -#define wxFontPickerCtrl_SetMaxPointSize 2278 -#define wxFontPickerCtrl_destroy 2279 -#define wxFindReplaceDialog_new_0 2282 -#define wxFindReplaceDialog_new_4 2283 -#define wxFindReplaceDialog_destruct 2284 -#define wxFindReplaceDialog_Create 2285 -#define wxFindReplaceDialog_GetData 2286 -#define wxFindReplaceData_new_0 2287 -#define wxFindReplaceData_new_1 2288 -#define wxFindReplaceData_GetFindString 2289 -#define wxFindReplaceData_GetReplaceString 2290 -#define wxFindReplaceData_GetFlags 2291 -#define wxFindReplaceData_SetFlags 2292 -#define wxFindReplaceData_SetFindString 2293 -#define wxFindReplaceData_SetReplaceString 2294 -#define wxFindReplaceData_destroy 2295 -#define wxMultiChoiceDialog_new_0 2296 -#define wxMultiChoiceDialog_new_5 2298 -#define wxMultiChoiceDialog_GetSelections 2299 -#define wxMultiChoiceDialog_SetSelections 2300 -#define wxMultiChoiceDialog_destroy 2301 -#define wxSingleChoiceDialog_new_0 2302 -#define wxSingleChoiceDialog_new_5 2304 -#define wxSingleChoiceDialog_GetSelection 2305 -#define wxSingleChoiceDialog_GetStringSelection 2306 -#define wxSingleChoiceDialog_SetSelection 2307 -#define wxSingleChoiceDialog_destroy 2308 -#define wxTextEntryDialog_new 2309 -#define wxTextEntryDialog_GetValue 2310 -#define wxTextEntryDialog_SetValue 2311 -#define wxTextEntryDialog_destroy 2312 -#define wxPasswordEntryDialog_new 2313 -#define wxPasswordEntryDialog_destroy 2314 -#define wxFontData_new_0 2315 -#define wxFontData_new_1 2316 -#define wxFontData_destruct 2317 -#define wxFontData_EnableEffects 2318 -#define wxFontData_GetAllowSymbols 2319 -#define wxFontData_GetColour 2320 -#define wxFontData_GetChosenFont 2321 -#define wxFontData_GetEnableEffects 2322 -#define wxFontData_GetInitialFont 2323 -#define wxFontData_GetShowHelp 2324 -#define wxFontData_SetAllowSymbols 2325 -#define wxFontData_SetChosenFont 2326 -#define wxFontData_SetColour 2327 -#define wxFontData_SetInitialFont 2328 -#define wxFontData_SetRange 2329 -#define wxFontData_SetShowHelp 2330 -#define wxFontDialog_new_0 2334 -#define wxFontDialog_new_2 2336 -#define wxFontDialog_Create 2338 -#define wxFontDialog_GetFontData 2339 -#define wxFontDialog_destroy 2341 -#define wxProgressDialog_new 2342 -#define wxProgressDialog_destruct 2343 -#define wxProgressDialog_Resume 2344 -#define wxProgressDialog_Update_2 2345 -#define wxProgressDialog_Update_0 2346 -#define wxMessageDialog_new 2347 -#define wxMessageDialog_destruct 2348 -#define wxPageSetupDialog_new 2349 -#define wxPageSetupDialog_destruct 2350 -#define wxPageSetupDialog_GetPageSetupData 2351 -#define wxPageSetupDialog_ShowModal 2352 -#define wxPageSetupDialogData_new_0 2353 -#define wxPageSetupDialogData_new_1_0 2354 -#define wxPageSetupDialogData_new_1_1 2355 -#define wxPageSetupDialogData_destruct 2356 -#define wxPageSetupDialogData_EnableHelp 2357 -#define wxPageSetupDialogData_EnableMargins 2358 -#define wxPageSetupDialogData_EnableOrientation 2359 -#define wxPageSetupDialogData_EnablePaper 2360 -#define wxPageSetupDialogData_EnablePrinter 2361 -#define wxPageSetupDialogData_GetDefaultMinMargins 2362 -#define wxPageSetupDialogData_GetEnableMargins 2363 -#define wxPageSetupDialogData_GetEnableOrientation 2364 -#define wxPageSetupDialogData_GetEnablePaper 2365 -#define wxPageSetupDialogData_GetEnablePrinter 2366 -#define wxPageSetupDialogData_GetEnableHelp 2367 -#define wxPageSetupDialogData_GetDefaultInfo 2368 -#define wxPageSetupDialogData_GetMarginTopLeft 2369 -#define wxPageSetupDialogData_GetMarginBottomRight 2370 -#define wxPageSetupDialogData_GetMinMarginTopLeft 2371 -#define wxPageSetupDialogData_GetMinMarginBottomRight 2372 -#define wxPageSetupDialogData_GetPaperId 2373 -#define wxPageSetupDialogData_GetPaperSize 2374 -#define wxPageSetupDialogData_GetPrintData 2376 -#define wxPageSetupDialogData_IsOk 2377 -#define wxPageSetupDialogData_SetDefaultInfo 2378 -#define wxPageSetupDialogData_SetDefaultMinMargins 2379 -#define wxPageSetupDialogData_SetMarginTopLeft 2380 -#define wxPageSetupDialogData_SetMarginBottomRight 2381 -#define wxPageSetupDialogData_SetMinMarginTopLeft 2382 -#define wxPageSetupDialogData_SetMinMarginBottomRight 2383 -#define wxPageSetupDialogData_SetPaperId 2384 -#define wxPageSetupDialogData_SetPaperSize_1_1 2385 -#define wxPageSetupDialogData_SetPaperSize_1_0 2386 -#define wxPageSetupDialogData_SetPrintData 2387 -#define wxPrintDialog_new_2_0 2388 -#define wxPrintDialog_new_2_1 2389 -#define wxPrintDialog_destruct 2390 -#define wxPrintDialog_GetPrintDialogData 2391 -#define wxPrintDialog_GetPrintDC 2392 -#define wxPrintDialogData_new_0 2393 -#define wxPrintDialogData_new_1_1 2394 -#define wxPrintDialogData_new_1_0 2395 -#define wxPrintDialogData_destruct 2396 -#define wxPrintDialogData_EnableHelp 2397 -#define wxPrintDialogData_EnablePageNumbers 2398 -#define wxPrintDialogData_EnablePrintToFile 2399 -#define wxPrintDialogData_EnableSelection 2400 -#define wxPrintDialogData_GetAllPages 2401 -#define wxPrintDialogData_GetCollate 2402 -#define wxPrintDialogData_GetFromPage 2403 -#define wxPrintDialogData_GetMaxPage 2404 -#define wxPrintDialogData_GetMinPage 2405 -#define wxPrintDialogData_GetNoCopies 2406 -#define wxPrintDialogData_GetPrintData 2407 -#define wxPrintDialogData_GetPrintToFile 2408 -#define wxPrintDialogData_GetSelection 2409 -#define wxPrintDialogData_GetToPage 2410 -#define wxPrintDialogData_IsOk 2411 -#define wxPrintDialogData_SetCollate 2412 -#define wxPrintDialogData_SetFromPage 2413 -#define wxPrintDialogData_SetMaxPage 2414 -#define wxPrintDialogData_SetMinPage 2415 -#define wxPrintDialogData_SetNoCopies 2416 -#define wxPrintDialogData_SetPrintData 2417 -#define wxPrintDialogData_SetPrintToFile 2418 -#define wxPrintDialogData_SetSelection 2419 -#define wxPrintDialogData_SetToPage 2420 -#define wxPrintData_new_0 2421 -#define wxPrintData_new_1 2422 -#define wxPrintData_destruct 2423 -#define wxPrintData_GetCollate 2424 -#define wxPrintData_GetBin 2425 -#define wxPrintData_GetColour 2426 -#define wxPrintData_GetDuplex 2427 -#define wxPrintData_GetNoCopies 2428 -#define wxPrintData_GetOrientation 2429 -#define wxPrintData_GetPaperId 2430 -#define wxPrintData_GetPrinterName 2431 -#define wxPrintData_GetQuality 2432 -#define wxPrintData_IsOk 2433 -#define wxPrintData_SetBin 2434 -#define wxPrintData_SetCollate 2435 -#define wxPrintData_SetColour 2436 -#define wxPrintData_SetDuplex 2437 -#define wxPrintData_SetNoCopies 2438 -#define wxPrintData_SetOrientation 2439 -#define wxPrintData_SetPaperId 2440 -#define wxPrintData_SetPrinterName 2441 -#define wxPrintData_SetQuality 2442 -#define wxPrintPreview_new_2 2445 -#define wxPrintPreview_new_3 2446 -#define wxPrintPreview_destruct 2448 -#define wxPrintPreview_GetCanvas 2449 -#define wxPrintPreview_GetCurrentPage 2450 -#define wxPrintPreview_GetFrame 2451 -#define wxPrintPreview_GetMaxPage 2452 -#define wxPrintPreview_GetMinPage 2453 -#define wxPrintPreview_GetPrintout 2454 -#define wxPrintPreview_GetPrintoutForPrinting 2455 -#define wxPrintPreview_IsOk 2456 -#define wxPrintPreview_PaintPage 2457 -#define wxPrintPreview_Print 2458 -#define wxPrintPreview_RenderPage 2459 -#define wxPrintPreview_SetCanvas 2460 -#define wxPrintPreview_SetCurrentPage 2461 -#define wxPrintPreview_SetFrame 2462 -#define wxPrintPreview_SetPrintout 2463 -#define wxPrintPreview_SetZoom 2464 -#define wxPreviewFrame_new 2465 -#define wxPreviewFrame_destruct 2466 -#define wxPreviewFrame_CreateControlBar 2467 -#define wxPreviewFrame_CreateCanvas 2468 -#define wxPreviewFrame_Initialize 2469 -#define wxPreviewFrame_OnCloseWindow 2470 -#define wxPreviewControlBar_new 2471 -#define wxPreviewControlBar_destruct 2472 -#define wxPreviewControlBar_CreateButtons 2473 -#define wxPreviewControlBar_GetPrintPreview 2474 -#define wxPreviewControlBar_GetZoomControl 2475 -#define wxPreviewControlBar_SetZoomControl 2476 -#define wxPrinter_new 2478 -#define wxPrinter_CreateAbortWindow 2479 -#define wxPrinter_GetAbort 2480 -#define wxPrinter_GetLastError 2481 -#define wxPrinter_GetPrintDialogData 2482 -#define wxPrinter_Print 2483 -#define wxPrinter_PrintDialog 2484 -#define wxPrinter_ReportError 2485 -#define wxPrinter_Setup 2486 -#define wxPrinter_destroy 2487 -#define wxXmlResource_new_1 2488 -#define wxXmlResource_new_2 2489 -#define wxXmlResource_destruct 2490 -#define wxXmlResource_AttachUnknownControl 2491 -#define wxXmlResource_ClearHandlers 2492 -#define wxXmlResource_CompareVersion 2493 -#define wxXmlResource_Get 2494 -#define wxXmlResource_GetFlags 2495 -#define wxXmlResource_GetVersion 2496 -#define wxXmlResource_GetXRCID 2497 -#define wxXmlResource_InitAllHandlers 2498 -#define wxXmlResource_Load 2499 -#define wxXmlResource_LoadBitmap 2500 -#define wxXmlResource_LoadDialog_2 2501 -#define wxXmlResource_LoadDialog_3 2502 -#define wxXmlResource_LoadFrame_2 2503 -#define wxXmlResource_LoadFrame_3 2504 -#define wxXmlResource_LoadIcon 2505 -#define wxXmlResource_LoadMenu 2506 -#define wxXmlResource_LoadMenuBar_2 2507 -#define wxXmlResource_LoadMenuBar_1 2508 -#define wxXmlResource_LoadPanel_2 2509 -#define wxXmlResource_LoadPanel_3 2510 -#define wxXmlResource_LoadToolBar 2511 -#define wxXmlResource_Set 2512 -#define wxXmlResource_SetFlags 2513 -#define wxXmlResource_Unload 2514 -#define wxXmlResource_xrcctrl 2515 -#define wxHtmlEasyPrinting_new 2516 -#define wxHtmlEasyPrinting_destruct 2517 -#define wxHtmlEasyPrinting_GetPrintData 2518 -#define wxHtmlEasyPrinting_GetPageSetupData 2519 -#define wxHtmlEasyPrinting_PreviewFile 2520 -#define wxHtmlEasyPrinting_PreviewText 2521 -#define wxHtmlEasyPrinting_PrintFile 2522 -#define wxHtmlEasyPrinting_PrintText 2523 -#define wxHtmlEasyPrinting_PageSetup 2524 -#define wxHtmlEasyPrinting_SetFonts 2525 -#define wxHtmlEasyPrinting_SetHeader 2526 -#define wxHtmlEasyPrinting_SetFooter 2527 -#define wxGLCanvas_new_2 2529 -#define wxGLCanvas_new_3_1 2530 -#define wxGLCanvas_new_3_0 2531 -#define wxGLCanvas_GetContext 2532 -#define wxGLCanvas_SetCurrent 2534 -#define wxGLCanvas_SwapBuffers 2535 -#define wxGLCanvas_destroy 2536 -#define wxAuiManager_new 2537 -#define wxAuiManager_destruct 2538 -#define wxAuiManager_AddPane_2_1 2539 -#define wxAuiManager_AddPane_3 2540 -#define wxAuiManager_AddPane_2_0 2541 -#define wxAuiManager_DetachPane 2542 -#define wxAuiManager_GetAllPanes 2543 -#define wxAuiManager_GetArtProvider 2544 -#define wxAuiManager_GetDockSizeConstraint 2545 -#define wxAuiManager_GetFlags 2546 -#define wxAuiManager_GetManagedWindow 2547 -#define wxAuiManager_GetManager 2548 -#define wxAuiManager_GetPane_1_1 2549 -#define wxAuiManager_GetPane_1_0 2550 -#define wxAuiManager_HideHint 2551 -#define wxAuiManager_InsertPane 2552 -#define wxAuiManager_LoadPaneInfo 2553 -#define wxAuiManager_LoadPerspective 2554 -#define wxAuiManager_SavePaneInfo 2555 -#define wxAuiManager_SavePerspective 2556 -#define wxAuiManager_SetArtProvider 2557 -#define wxAuiManager_SetDockSizeConstraint 2558 -#define wxAuiManager_SetFlags 2559 -#define wxAuiManager_SetManagedWindow 2560 -#define wxAuiManager_ShowHint 2561 -#define wxAuiManager_UnInit 2562 -#define wxAuiManager_Update 2563 -#define wxAuiPaneInfo_new_0 2564 -#define wxAuiPaneInfo_new_1 2565 -#define wxAuiPaneInfo_destruct 2566 -#define wxAuiPaneInfo_BestSize_1 2567 -#define wxAuiPaneInfo_BestSize_2 2568 -#define wxAuiPaneInfo_Bottom 2569 -#define wxAuiPaneInfo_BottomDockable 2570 -#define wxAuiPaneInfo_Caption 2571 -#define wxAuiPaneInfo_CaptionVisible 2572 -#define wxAuiPaneInfo_Centre 2573 -#define wxAuiPaneInfo_CentrePane 2574 -#define wxAuiPaneInfo_CloseButton 2575 -#define wxAuiPaneInfo_DefaultPane 2576 -#define wxAuiPaneInfo_DestroyOnClose 2577 -#define wxAuiPaneInfo_Direction 2578 -#define wxAuiPaneInfo_Dock 2579 -#define wxAuiPaneInfo_Dockable 2580 -#define wxAuiPaneInfo_Fixed 2581 -#define wxAuiPaneInfo_Float 2582 -#define wxAuiPaneInfo_Floatable 2583 -#define wxAuiPaneInfo_FloatingPosition_1 2584 -#define wxAuiPaneInfo_FloatingPosition_2 2585 -#define wxAuiPaneInfo_FloatingSize_1 2586 -#define wxAuiPaneInfo_FloatingSize_2 2587 -#define wxAuiPaneInfo_Gripper 2588 -#define wxAuiPaneInfo_GripperTop 2589 -#define wxAuiPaneInfo_HasBorder 2590 -#define wxAuiPaneInfo_HasCaption 2591 -#define wxAuiPaneInfo_HasCloseButton 2592 -#define wxAuiPaneInfo_HasFlag 2593 -#define wxAuiPaneInfo_HasGripper 2594 -#define wxAuiPaneInfo_HasGripperTop 2595 -#define wxAuiPaneInfo_HasMaximizeButton 2596 -#define wxAuiPaneInfo_HasMinimizeButton 2597 -#define wxAuiPaneInfo_HasPinButton 2598 -#define wxAuiPaneInfo_Hide 2599 -#define wxAuiPaneInfo_IsBottomDockable 2600 -#define wxAuiPaneInfo_IsDocked 2601 -#define wxAuiPaneInfo_IsFixed 2602 -#define wxAuiPaneInfo_IsFloatable 2603 -#define wxAuiPaneInfo_IsFloating 2604 -#define wxAuiPaneInfo_IsLeftDockable 2605 -#define wxAuiPaneInfo_IsMovable 2606 -#define wxAuiPaneInfo_IsOk 2607 -#define wxAuiPaneInfo_IsResizable 2608 -#define wxAuiPaneInfo_IsRightDockable 2609 -#define wxAuiPaneInfo_IsShown 2610 -#define wxAuiPaneInfo_IsToolbar 2611 -#define wxAuiPaneInfo_IsTopDockable 2612 -#define wxAuiPaneInfo_Layer 2613 -#define wxAuiPaneInfo_Left 2614 -#define wxAuiPaneInfo_LeftDockable 2615 -#define wxAuiPaneInfo_MaxSize_1 2616 -#define wxAuiPaneInfo_MaxSize_2 2617 -#define wxAuiPaneInfo_MaximizeButton 2618 -#define wxAuiPaneInfo_MinSize_1 2619 -#define wxAuiPaneInfo_MinSize_2 2620 -#define wxAuiPaneInfo_MinimizeButton 2621 -#define wxAuiPaneInfo_Movable 2622 -#define wxAuiPaneInfo_Name 2623 -#define wxAuiPaneInfo_PaneBorder 2624 -#define wxAuiPaneInfo_PinButton 2625 -#define wxAuiPaneInfo_Position 2626 -#define wxAuiPaneInfo_Resizable 2627 -#define wxAuiPaneInfo_Right 2628 -#define wxAuiPaneInfo_RightDockable 2629 -#define wxAuiPaneInfo_Row 2630 -#define wxAuiPaneInfo_SafeSet 2631 -#define wxAuiPaneInfo_SetFlag 2632 -#define wxAuiPaneInfo_Show 2633 -#define wxAuiPaneInfo_ToolbarPane 2634 -#define wxAuiPaneInfo_Top 2635 -#define wxAuiPaneInfo_TopDockable 2636 -#define wxAuiPaneInfo_Window 2637 -#define wxAuiNotebook_new_0 2638 -#define wxAuiNotebook_new_2 2639 -#define wxAuiNotebook_AddPage 2640 -#define wxAuiNotebook_Create 2641 -#define wxAuiNotebook_DeletePage 2642 -#define wxAuiNotebook_GetArtProvider 2643 -#define wxAuiNotebook_GetPage 2644 -#define wxAuiNotebook_GetPageBitmap 2645 -#define wxAuiNotebook_GetPageCount 2646 -#define wxAuiNotebook_GetPageIndex 2647 -#define wxAuiNotebook_GetPageText 2648 -#define wxAuiNotebook_GetSelection 2649 -#define wxAuiNotebook_InsertPage 2650 -#define wxAuiNotebook_RemovePage 2651 -#define wxAuiNotebook_SetArtProvider 2652 -#define wxAuiNotebook_SetFont 2653 -#define wxAuiNotebook_SetPageBitmap 2654 -#define wxAuiNotebook_SetPageText 2655 -#define wxAuiNotebook_SetSelection 2656 -#define wxAuiNotebook_SetTabCtrlHeight 2657 -#define wxAuiNotebook_SetUniformBitmapSize 2658 -#define wxAuiNotebook_destroy 2659 -#define wxMDIParentFrame_new_0 2660 -#define wxMDIParentFrame_new_4 2661 -#define wxMDIParentFrame_destruct 2662 -#define wxMDIParentFrame_ActivateNext 2663 -#define wxMDIParentFrame_ActivatePrevious 2664 -#define wxMDIParentFrame_ArrangeIcons 2665 -#define wxMDIParentFrame_Cascade 2666 -#define wxMDIParentFrame_Create 2667 -#define wxMDIParentFrame_GetActiveChild 2668 -#define wxMDIParentFrame_GetClientWindow 2669 -#define wxMDIParentFrame_Tile 2670 -#define wxMDIChildFrame_new_0 2671 -#define wxMDIChildFrame_new_4 2672 -#define wxMDIChildFrame_destruct 2673 -#define wxMDIChildFrame_Activate 2674 -#define wxMDIChildFrame_Create 2675 -#define wxMDIChildFrame_Maximize 2676 -#define wxMDIChildFrame_Restore 2677 -#define wxMDIClientWindow_new_0 2678 -#define wxMDIClientWindow_new_2 2679 -#define wxMDIClientWindow_destruct 2680 -#define wxMDIClientWindow_CreateClient 2681 -#define wxLayoutAlgorithm_new 2682 -#define wxLayoutAlgorithm_LayoutFrame 2683 -#define wxLayoutAlgorithm_LayoutMDIFrame 2684 -#define wxLayoutAlgorithm_LayoutWindow 2685 -#define wxLayoutAlgorithm_destroy 2686 -#define wxEvent_GetId 2687 -#define wxEvent_GetSkipped 2688 -#define wxEvent_GetTimestamp 2689 -#define wxEvent_IsCommandEvent 2690 -#define wxEvent_ResumePropagation 2691 -#define wxEvent_ShouldPropagate 2692 -#define wxEvent_Skip 2693 -#define wxEvent_StopPropagation 2694 -#define wxCommandEvent_getClientData 2695 -#define wxCommandEvent_GetExtraLong 2696 -#define wxCommandEvent_GetInt 2697 -#define wxCommandEvent_GetSelection 2698 -#define wxCommandEvent_GetString 2699 -#define wxCommandEvent_IsChecked 2700 -#define wxCommandEvent_IsSelection 2701 -#define wxCommandEvent_SetInt 2702 -#define wxCommandEvent_SetString 2703 -#define wxScrollEvent_GetOrientation 2704 -#define wxScrollEvent_GetPosition 2705 -#define wxScrollWinEvent_GetOrientation 2706 -#define wxScrollWinEvent_GetPosition 2707 -#define wxMouseEvent_AltDown 2708 -#define wxMouseEvent_Button 2709 -#define wxMouseEvent_ButtonDClick 2710 -#define wxMouseEvent_ButtonDown 2711 -#define wxMouseEvent_ButtonUp 2712 -#define wxMouseEvent_CmdDown 2713 -#define wxMouseEvent_ControlDown 2714 -#define wxMouseEvent_Dragging 2715 -#define wxMouseEvent_Entering 2716 -#define wxMouseEvent_GetButton 2717 -#define wxMouseEvent_GetPosition 2720 -#define wxMouseEvent_GetLogicalPosition 2721 -#define wxMouseEvent_GetLinesPerAction 2722 -#define wxMouseEvent_GetWheelRotation 2723 -#define wxMouseEvent_GetWheelDelta 2724 -#define wxMouseEvent_GetX 2725 -#define wxMouseEvent_GetY 2726 -#define wxMouseEvent_IsButton 2727 -#define wxMouseEvent_IsPageScroll 2728 -#define wxMouseEvent_Leaving 2729 -#define wxMouseEvent_LeftDClick 2730 -#define wxMouseEvent_LeftDown 2731 -#define wxMouseEvent_LeftIsDown 2732 -#define wxMouseEvent_LeftUp 2733 -#define wxMouseEvent_MetaDown 2734 -#define wxMouseEvent_MiddleDClick 2735 -#define wxMouseEvent_MiddleDown 2736 -#define wxMouseEvent_MiddleIsDown 2737 -#define wxMouseEvent_MiddleUp 2738 -#define wxMouseEvent_Moving 2739 -#define wxMouseEvent_RightDClick 2740 -#define wxMouseEvent_RightDown 2741 -#define wxMouseEvent_RightIsDown 2742 -#define wxMouseEvent_RightUp 2743 -#define wxMouseEvent_ShiftDown 2744 -#define wxSetCursorEvent_GetCursor 2745 -#define wxSetCursorEvent_GetX 2746 -#define wxSetCursorEvent_GetY 2747 -#define wxSetCursorEvent_HasCursor 2748 -#define wxSetCursorEvent_SetCursor 2749 -#define wxKeyEvent_AltDown 2750 -#define wxKeyEvent_CmdDown 2751 -#define wxKeyEvent_ControlDown 2752 -#define wxKeyEvent_GetKeyCode 2753 -#define wxKeyEvent_GetModifiers 2754 -#define wxKeyEvent_GetPosition 2757 -#define wxKeyEvent_GetRawKeyCode 2758 -#define wxKeyEvent_GetRawKeyFlags 2759 -#define wxKeyEvent_GetUnicodeKey 2760 -#define wxKeyEvent_GetX 2761 -#define wxKeyEvent_GetY 2762 -#define wxKeyEvent_HasModifiers 2763 -#define wxKeyEvent_MetaDown 2764 -#define wxKeyEvent_ShiftDown 2765 -#define wxSizeEvent_GetSize 2766 -#define wxMoveEvent_GetPosition 2767 -#define wxEraseEvent_GetDC 2768 -#define wxFocusEvent_GetWindow 2769 -#define wxChildFocusEvent_GetWindow 2770 -#define wxMenuEvent_GetMenu 2771 -#define wxMenuEvent_GetMenuId 2772 -#define wxMenuEvent_IsPopup 2773 -#define wxCloseEvent_CanVeto 2774 -#define wxCloseEvent_GetLoggingOff 2775 -#define wxCloseEvent_SetCanVeto 2776 -#define wxCloseEvent_SetLoggingOff 2777 -#define wxCloseEvent_Veto 2778 -#define wxShowEvent_SetShow 2779 -#define wxShowEvent_GetShow 2780 -#define wxIconizeEvent_Iconized 2781 -#define wxJoystickEvent_ButtonDown 2782 -#define wxJoystickEvent_ButtonIsDown 2783 -#define wxJoystickEvent_ButtonUp 2784 -#define wxJoystickEvent_GetButtonChange 2785 -#define wxJoystickEvent_GetButtonState 2786 -#define wxJoystickEvent_GetJoystick 2787 -#define wxJoystickEvent_GetPosition 2788 -#define wxJoystickEvent_GetZPosition 2789 -#define wxJoystickEvent_IsButton 2790 -#define wxJoystickEvent_IsMove 2791 -#define wxJoystickEvent_IsZMove 2792 -#define wxUpdateUIEvent_CanUpdate 2793 -#define wxUpdateUIEvent_Check 2794 -#define wxUpdateUIEvent_Enable 2795 -#define wxUpdateUIEvent_Show 2796 -#define wxUpdateUIEvent_GetChecked 2797 -#define wxUpdateUIEvent_GetEnabled 2798 -#define wxUpdateUIEvent_GetShown 2799 -#define wxUpdateUIEvent_GetSetChecked 2800 -#define wxUpdateUIEvent_GetSetEnabled 2801 -#define wxUpdateUIEvent_GetSetShown 2802 -#define wxUpdateUIEvent_GetSetText 2803 -#define wxUpdateUIEvent_GetText 2804 -#define wxUpdateUIEvent_GetMode 2805 -#define wxUpdateUIEvent_GetUpdateInterval 2806 -#define wxUpdateUIEvent_ResetUpdateTime 2807 -#define wxUpdateUIEvent_SetMode 2808 -#define wxUpdateUIEvent_SetText 2809 -#define wxUpdateUIEvent_SetUpdateInterval 2810 -#define wxMouseCaptureChangedEvent_GetCapturedWindow 2811 -#define wxPaletteChangedEvent_SetChangedWindow 2812 -#define wxPaletteChangedEvent_GetChangedWindow 2813 -#define wxQueryNewPaletteEvent_SetPaletteRealized 2814 -#define wxQueryNewPaletteEvent_GetPaletteRealized 2815 -#define wxNavigationKeyEvent_GetDirection 2816 -#define wxNavigationKeyEvent_SetDirection 2817 -#define wxNavigationKeyEvent_IsWindowChange 2818 -#define wxNavigationKeyEvent_SetWindowChange 2819 -#define wxNavigationKeyEvent_IsFromTab 2820 -#define wxNavigationKeyEvent_SetFromTab 2821 -#define wxNavigationKeyEvent_GetCurrentFocus 2822 -#define wxNavigationKeyEvent_SetCurrentFocus 2823 -#define wxHelpEvent_GetOrigin 2824 -#define wxHelpEvent_GetPosition 2825 -#define wxHelpEvent_SetOrigin 2826 -#define wxHelpEvent_SetPosition 2827 -#define wxContextMenuEvent_GetPosition 2828 -#define wxContextMenuEvent_SetPosition 2829 -#define wxIdleEvent_CanSend 2830 -#define wxIdleEvent_GetMode 2831 -#define wxIdleEvent_RequestMore 2832 -#define wxIdleEvent_MoreRequested 2833 -#define wxIdleEvent_SetMode 2834 -#define wxGridEvent_AltDown 2835 -#define wxGridEvent_ControlDown 2836 -#define wxGridEvent_GetCol 2837 -#define wxGridEvent_GetPosition 2838 -#define wxGridEvent_GetRow 2839 -#define wxGridEvent_MetaDown 2840 -#define wxGridEvent_Selecting 2841 -#define wxGridEvent_ShiftDown 2842 -#define wxNotifyEvent_Allow 2843 -#define wxNotifyEvent_IsAllowed 2844 -#define wxNotifyEvent_Veto 2845 -#define wxSashEvent_GetEdge 2846 -#define wxSashEvent_GetDragRect 2847 -#define wxSashEvent_GetDragStatus 2848 -#define wxListEvent_GetCacheFrom 2849 -#define wxListEvent_GetCacheTo 2850 -#define wxListEvent_GetKeyCode 2851 -#define wxListEvent_GetIndex 2852 -#define wxListEvent_GetColumn 2853 -#define wxListEvent_GetPoint 2854 -#define wxListEvent_GetLabel 2855 -#define wxListEvent_GetText 2856 -#define wxListEvent_GetImage 2857 -#define wxListEvent_GetData 2858 -#define wxListEvent_GetMask 2859 -#define wxListEvent_GetItem 2860 -#define wxListEvent_IsEditCancelled 2861 -#define wxDateEvent_GetDate 2862 -#define wxCalendarEvent_GetWeekDay 2863 -#define wxFileDirPickerEvent_GetPath 2864 -#define wxColourPickerEvent_GetColour 2865 -#define wxFontPickerEvent_GetFont 2866 -#define wxStyledTextEvent_GetPosition 2867 -#define wxStyledTextEvent_GetKey 2868 -#define wxStyledTextEvent_GetModifiers 2869 -#define wxStyledTextEvent_GetModificationType 2870 -#define wxStyledTextEvent_GetText 2871 -#define wxStyledTextEvent_GetLength 2872 -#define wxStyledTextEvent_GetLinesAdded 2873 -#define wxStyledTextEvent_GetLine 2874 -#define wxStyledTextEvent_GetFoldLevelNow 2875 -#define wxStyledTextEvent_GetFoldLevelPrev 2876 -#define wxStyledTextEvent_GetMargin 2877 -#define wxStyledTextEvent_GetMessage 2878 -#define wxStyledTextEvent_GetWParam 2879 -#define wxStyledTextEvent_GetLParam 2880 -#define wxStyledTextEvent_GetListType 2881 -#define wxStyledTextEvent_GetX 2882 -#define wxStyledTextEvent_GetY 2883 -#define wxStyledTextEvent_GetDragText 2884 -#define wxStyledTextEvent_GetDragAllowMove 2885 -#define wxStyledTextEvent_GetDragResult 2886 -#define wxStyledTextEvent_GetShift 2887 -#define wxStyledTextEvent_GetControl 2888 -#define wxStyledTextEvent_GetAlt 2889 -#define utils_wxGetKeyState 2890 -#define utils_wxGetMousePosition 2891 -#define utils_wxGetMouseState 2892 -#define utils_wxSetDetectableAutoRepeat 2893 -#define utils_wxBell 2894 -#define utils_wxFindMenuItemId 2895 -#define utils_wxGenericFindWindowAtPoint 2896 -#define utils_wxFindWindowAtPoint 2897 -#define utils_wxBeginBusyCursor 2898 -#define utils_wxEndBusyCursor 2899 -#define utils_wxIsBusy 2900 -#define utils_wxShutdown 2901 -#define utils_wxShell 2902 -#define utils_wxLaunchDefaultBrowser 2903 -#define utils_wxGetEmailAddress 2904 -#define utils_wxGetUserId 2905 -#define utils_wxGetHomeDir 2906 -#define utils_wxNewId 2907 -#define utils_wxRegisterId 2908 -#define utils_wxGetCurrentId 2909 -#define utils_wxGetOsDescription 2910 -#define utils_wxIsPlatformLittleEndian 2911 -#define utils_wxIsPlatform64Bit 2912 -#define wxPrintout_new 2913 -#define wxPrintout_destruct 2914 -#define wxPrintout_GetDC 2915 -#define wxPrintout_GetPageSizeMM 2916 -#define wxPrintout_GetPageSizePixels 2917 -#define wxPrintout_GetPaperRectPixels 2918 -#define wxPrintout_GetPPIPrinter 2919 -#define wxPrintout_GetPPIScreen 2920 -#define wxPrintout_GetTitle 2921 -#define wxPrintout_IsPreview 2922 -#define wxPrintout_FitThisSizeToPaper 2923 -#define wxPrintout_FitThisSizeToPage 2924 -#define wxPrintout_FitThisSizeToPageMargins 2925 -#define wxPrintout_MapScreenSizeToPaper 2926 -#define wxPrintout_MapScreenSizeToPage 2927 -#define wxPrintout_MapScreenSizeToPageMargins 2928 -#define wxPrintout_MapScreenSizeToDevice 2929 -#define wxPrintout_GetLogicalPaperRect 2930 -#define wxPrintout_GetLogicalPageRect 2931 -#define wxPrintout_GetLogicalPageMarginsRect 2932 -#define wxPrintout_SetLogicalOrigin 2933 -#define wxPrintout_OffsetLogicalOrigin 2934 -#define wxStyledTextCtrl_new_2 2935 -#define wxStyledTextCtrl_new_0 2936 -#define wxStyledTextCtrl_destruct 2937 -#define wxStyledTextCtrl_Create 2938 -#define wxStyledTextCtrl_AddText 2939 -#define wxStyledTextCtrl_AddStyledText 2940 -#define wxStyledTextCtrl_InsertText 2941 -#define wxStyledTextCtrl_ClearAll 2942 -#define wxStyledTextCtrl_ClearDocumentStyle 2943 -#define wxStyledTextCtrl_GetLength 2944 -#define wxStyledTextCtrl_GetCharAt 2945 -#define wxStyledTextCtrl_GetCurrentPos 2946 -#define wxStyledTextCtrl_GetAnchor 2947 -#define wxStyledTextCtrl_GetStyleAt 2948 -#define wxStyledTextCtrl_Redo 2949 -#define wxStyledTextCtrl_SetUndoCollection 2950 -#define wxStyledTextCtrl_SelectAll 2951 -#define wxStyledTextCtrl_SetSavePoint 2952 -#define wxStyledTextCtrl_GetStyledText 2953 -#define wxStyledTextCtrl_CanRedo 2954 -#define wxStyledTextCtrl_MarkerLineFromHandle 2955 -#define wxStyledTextCtrl_MarkerDeleteHandle 2956 -#define wxStyledTextCtrl_GetUndoCollection 2957 -#define wxStyledTextCtrl_GetViewWhiteSpace 2958 -#define wxStyledTextCtrl_SetViewWhiteSpace 2959 -#define wxStyledTextCtrl_PositionFromPoint 2960 -#define wxStyledTextCtrl_PositionFromPointClose 2961 -#define wxStyledTextCtrl_GotoLine 2962 -#define wxStyledTextCtrl_GotoPos 2963 -#define wxStyledTextCtrl_SetAnchor 2964 -#define wxStyledTextCtrl_GetCurLine 2965 -#define wxStyledTextCtrl_GetEndStyled 2966 -#define wxStyledTextCtrl_ConvertEOLs 2967 -#define wxStyledTextCtrl_GetEOLMode 2968 -#define wxStyledTextCtrl_SetEOLMode 2969 -#define wxStyledTextCtrl_StartStyling 2970 -#define wxStyledTextCtrl_SetStyling 2971 -#define wxStyledTextCtrl_GetBufferedDraw 2972 -#define wxStyledTextCtrl_SetBufferedDraw 2973 -#define wxStyledTextCtrl_SetTabWidth 2974 -#define wxStyledTextCtrl_GetTabWidth 2975 -#define wxStyledTextCtrl_SetCodePage 2976 -#define wxStyledTextCtrl_MarkerDefine 2977 -#define wxStyledTextCtrl_MarkerSetForeground 2978 -#define wxStyledTextCtrl_MarkerSetBackground 2979 -#define wxStyledTextCtrl_MarkerAdd 2980 -#define wxStyledTextCtrl_MarkerDelete 2981 -#define wxStyledTextCtrl_MarkerDeleteAll 2982 -#define wxStyledTextCtrl_MarkerGet 2983 -#define wxStyledTextCtrl_MarkerNext 2984 -#define wxStyledTextCtrl_MarkerPrevious 2985 -#define wxStyledTextCtrl_MarkerDefineBitmap 2986 -#define wxStyledTextCtrl_MarkerAddSet 2987 -#define wxStyledTextCtrl_MarkerSetAlpha 2988 -#define wxStyledTextCtrl_SetMarginType 2989 -#define wxStyledTextCtrl_GetMarginType 2990 -#define wxStyledTextCtrl_SetMarginWidth 2991 -#define wxStyledTextCtrl_GetMarginWidth 2992 -#define wxStyledTextCtrl_SetMarginMask 2993 -#define wxStyledTextCtrl_GetMarginMask 2994 -#define wxStyledTextCtrl_SetMarginSensitive 2995 -#define wxStyledTextCtrl_GetMarginSensitive 2996 -#define wxStyledTextCtrl_StyleClearAll 2997 -#define wxStyledTextCtrl_StyleSetForeground 2998 -#define wxStyledTextCtrl_StyleSetBackground 2999 -#define wxStyledTextCtrl_StyleSetBold 3000 -#define wxStyledTextCtrl_StyleSetItalic 3001 -#define wxStyledTextCtrl_StyleSetSize 3002 -#define wxStyledTextCtrl_StyleSetFaceName 3003 -#define wxStyledTextCtrl_StyleSetEOLFilled 3004 -#define wxStyledTextCtrl_StyleResetDefault 3005 -#define wxStyledTextCtrl_StyleSetUnderline 3006 -#define wxStyledTextCtrl_StyleSetCase 3007 -#define wxStyledTextCtrl_StyleSetHotSpot 3008 -#define wxStyledTextCtrl_SetSelForeground 3009 -#define wxStyledTextCtrl_SetSelBackground 3010 -#define wxStyledTextCtrl_GetSelAlpha 3011 -#define wxStyledTextCtrl_SetSelAlpha 3012 -#define wxStyledTextCtrl_SetCaretForeground 3013 -#define wxStyledTextCtrl_CmdKeyAssign 3014 -#define wxStyledTextCtrl_CmdKeyClear 3015 -#define wxStyledTextCtrl_CmdKeyClearAll 3016 -#define wxStyledTextCtrl_SetStyleBytes 3017 -#define wxStyledTextCtrl_StyleSetVisible 3018 -#define wxStyledTextCtrl_GetCaretPeriod 3019 -#define wxStyledTextCtrl_SetCaretPeriod 3020 -#define wxStyledTextCtrl_SetWordChars 3021 -#define wxStyledTextCtrl_BeginUndoAction 3022 -#define wxStyledTextCtrl_EndUndoAction 3023 -#define wxStyledTextCtrl_IndicatorSetStyle 3024 -#define wxStyledTextCtrl_IndicatorGetStyle 3025 -#define wxStyledTextCtrl_IndicatorSetForeground 3026 -#define wxStyledTextCtrl_IndicatorGetForeground 3027 -#define wxStyledTextCtrl_SetWhitespaceForeground 3028 -#define wxStyledTextCtrl_SetWhitespaceBackground 3029 -#define wxStyledTextCtrl_GetStyleBits 3030 -#define wxStyledTextCtrl_SetLineState 3031 -#define wxStyledTextCtrl_GetLineState 3032 -#define wxStyledTextCtrl_GetMaxLineState 3033 -#define wxStyledTextCtrl_GetCaretLineVisible 3034 -#define wxStyledTextCtrl_SetCaretLineVisible 3035 -#define wxStyledTextCtrl_GetCaretLineBackground 3036 -#define wxStyledTextCtrl_SetCaretLineBackground 3037 -#define wxStyledTextCtrl_AutoCompShow 3038 -#define wxStyledTextCtrl_AutoCompCancel 3039 -#define wxStyledTextCtrl_AutoCompActive 3040 -#define wxStyledTextCtrl_AutoCompPosStart 3041 -#define wxStyledTextCtrl_AutoCompComplete 3042 -#define wxStyledTextCtrl_AutoCompStops 3043 -#define wxStyledTextCtrl_AutoCompSetSeparator 3044 -#define wxStyledTextCtrl_AutoCompGetSeparator 3045 -#define wxStyledTextCtrl_AutoCompSelect 3046 -#define wxStyledTextCtrl_AutoCompSetCancelAtStart 3047 -#define wxStyledTextCtrl_AutoCompGetCancelAtStart 3048 -#define wxStyledTextCtrl_AutoCompSetFillUps 3049 -#define wxStyledTextCtrl_AutoCompSetChooseSingle 3050 -#define wxStyledTextCtrl_AutoCompGetChooseSingle 3051 -#define wxStyledTextCtrl_AutoCompSetIgnoreCase 3052 -#define wxStyledTextCtrl_AutoCompGetIgnoreCase 3053 -#define wxStyledTextCtrl_UserListShow 3054 -#define wxStyledTextCtrl_AutoCompSetAutoHide 3055 -#define wxStyledTextCtrl_AutoCompGetAutoHide 3056 -#define wxStyledTextCtrl_AutoCompSetDropRestOfWord 3057 -#define wxStyledTextCtrl_AutoCompGetDropRestOfWord 3058 -#define wxStyledTextCtrl_RegisterImage 3059 -#define wxStyledTextCtrl_ClearRegisteredImages 3060 -#define wxStyledTextCtrl_AutoCompGetTypeSeparator 3061 -#define wxStyledTextCtrl_AutoCompSetTypeSeparator 3062 -#define wxStyledTextCtrl_AutoCompSetMaxWidth 3063 -#define wxStyledTextCtrl_AutoCompGetMaxWidth 3064 -#define wxStyledTextCtrl_AutoCompSetMaxHeight 3065 -#define wxStyledTextCtrl_AutoCompGetMaxHeight 3066 -#define wxStyledTextCtrl_SetIndent 3067 -#define wxStyledTextCtrl_GetIndent 3068 -#define wxStyledTextCtrl_SetUseTabs 3069 -#define wxStyledTextCtrl_GetUseTabs 3070 -#define wxStyledTextCtrl_SetLineIndentation 3071 -#define wxStyledTextCtrl_GetLineIndentation 3072 -#define wxStyledTextCtrl_GetLineIndentPosition 3073 -#define wxStyledTextCtrl_GetColumn 3074 -#define wxStyledTextCtrl_SetUseHorizontalScrollBar 3075 -#define wxStyledTextCtrl_GetUseHorizontalScrollBar 3076 -#define wxStyledTextCtrl_SetIndentationGuides 3077 -#define wxStyledTextCtrl_GetIndentationGuides 3078 -#define wxStyledTextCtrl_SetHighlightGuide 3079 -#define wxStyledTextCtrl_GetHighlightGuide 3080 -#define wxStyledTextCtrl_GetLineEndPosition 3081 -#define wxStyledTextCtrl_GetCodePage 3082 -#define wxStyledTextCtrl_GetCaretForeground 3083 -#define wxStyledTextCtrl_GetReadOnly 3084 -#define wxStyledTextCtrl_SetCurrentPos 3085 -#define wxStyledTextCtrl_SetSelectionStart 3086 -#define wxStyledTextCtrl_GetSelectionStart 3087 -#define wxStyledTextCtrl_SetSelectionEnd 3088 -#define wxStyledTextCtrl_GetSelectionEnd 3089 -#define wxStyledTextCtrl_SetPrintMagnification 3090 -#define wxStyledTextCtrl_GetPrintMagnification 3091 -#define wxStyledTextCtrl_SetPrintColourMode 3092 -#define wxStyledTextCtrl_GetPrintColourMode 3093 -#define wxStyledTextCtrl_FindText 3094 -#define wxStyledTextCtrl_FormatRange 3095 -#define wxStyledTextCtrl_GetFirstVisibleLine 3096 -#define wxStyledTextCtrl_GetLine 3097 -#define wxStyledTextCtrl_GetLineCount 3098 -#define wxStyledTextCtrl_SetMarginLeft 3099 -#define wxStyledTextCtrl_GetMarginLeft 3100 -#define wxStyledTextCtrl_SetMarginRight 3101 -#define wxStyledTextCtrl_GetMarginRight 3102 -#define wxStyledTextCtrl_GetModify 3103 -#define wxStyledTextCtrl_SetSelection 3104 -#define wxStyledTextCtrl_GetSelectedText 3105 -#define wxStyledTextCtrl_GetTextRange 3106 -#define wxStyledTextCtrl_HideSelection 3107 -#define wxStyledTextCtrl_LineFromPosition 3108 -#define wxStyledTextCtrl_PositionFromLine 3109 -#define wxStyledTextCtrl_LineScroll 3110 -#define wxStyledTextCtrl_EnsureCaretVisible 3111 -#define wxStyledTextCtrl_ReplaceSelection 3112 -#define wxStyledTextCtrl_SetReadOnly 3113 -#define wxStyledTextCtrl_CanPaste 3114 -#define wxStyledTextCtrl_CanUndo 3115 -#define wxStyledTextCtrl_EmptyUndoBuffer 3116 -#define wxStyledTextCtrl_Undo 3117 -#define wxStyledTextCtrl_Cut 3118 -#define wxStyledTextCtrl_Copy 3119 -#define wxStyledTextCtrl_Paste 3120 -#define wxStyledTextCtrl_Clear 3121 -#define wxStyledTextCtrl_SetText 3122 -#define wxStyledTextCtrl_GetText 3123 -#define wxStyledTextCtrl_GetTextLength 3124 -#define wxStyledTextCtrl_GetOvertype 3125 -#define wxStyledTextCtrl_SetCaretWidth 3126 -#define wxStyledTextCtrl_GetCaretWidth 3127 -#define wxStyledTextCtrl_SetTargetStart 3128 -#define wxStyledTextCtrl_GetTargetStart 3129 -#define wxStyledTextCtrl_SetTargetEnd 3130 -#define wxStyledTextCtrl_GetTargetEnd 3131 -#define wxStyledTextCtrl_ReplaceTarget 3132 -#define wxStyledTextCtrl_SearchInTarget 3133 -#define wxStyledTextCtrl_SetSearchFlags 3134 -#define wxStyledTextCtrl_GetSearchFlags 3135 -#define wxStyledTextCtrl_CallTipShow 3136 -#define wxStyledTextCtrl_CallTipCancel 3137 -#define wxStyledTextCtrl_CallTipActive 3138 -#define wxStyledTextCtrl_CallTipPosAtStart 3139 -#define wxStyledTextCtrl_CallTipSetHighlight 3140 -#define wxStyledTextCtrl_CallTipSetBackground 3141 -#define wxStyledTextCtrl_CallTipSetForeground 3142 -#define wxStyledTextCtrl_CallTipSetForegroundHighlight 3143 -#define wxStyledTextCtrl_CallTipUseStyle 3144 -#define wxStyledTextCtrl_VisibleFromDocLine 3145 -#define wxStyledTextCtrl_DocLineFromVisible 3146 -#define wxStyledTextCtrl_WrapCount 3147 -#define wxStyledTextCtrl_SetFoldLevel 3148 -#define wxStyledTextCtrl_GetFoldLevel 3149 -#define wxStyledTextCtrl_GetLastChild 3150 -#define wxStyledTextCtrl_GetFoldParent 3151 -#define wxStyledTextCtrl_ShowLines 3152 -#define wxStyledTextCtrl_HideLines 3153 -#define wxStyledTextCtrl_GetLineVisible 3154 -#define wxStyledTextCtrl_SetFoldExpanded 3155 -#define wxStyledTextCtrl_GetFoldExpanded 3156 -#define wxStyledTextCtrl_ToggleFold 3157 -#define wxStyledTextCtrl_EnsureVisible 3158 -#define wxStyledTextCtrl_SetFoldFlags 3159 -#define wxStyledTextCtrl_EnsureVisibleEnforcePolicy 3160 -#define wxStyledTextCtrl_SetTabIndents 3161 -#define wxStyledTextCtrl_GetTabIndents 3162 -#define wxStyledTextCtrl_SetBackSpaceUnIndents 3163 -#define wxStyledTextCtrl_GetBackSpaceUnIndents 3164 -#define wxStyledTextCtrl_SetMouseDwellTime 3165 -#define wxStyledTextCtrl_GetMouseDwellTime 3166 -#define wxStyledTextCtrl_WordStartPosition 3167 -#define wxStyledTextCtrl_WordEndPosition 3168 -#define wxStyledTextCtrl_SetWrapMode 3169 -#define wxStyledTextCtrl_GetWrapMode 3170 -#define wxStyledTextCtrl_SetWrapVisualFlags 3171 -#define wxStyledTextCtrl_GetWrapVisualFlags 3172 -#define wxStyledTextCtrl_SetWrapVisualFlagsLocation 3173 -#define wxStyledTextCtrl_GetWrapVisualFlagsLocation 3174 -#define wxStyledTextCtrl_SetWrapStartIndent 3175 -#define wxStyledTextCtrl_GetWrapStartIndent 3176 -#define wxStyledTextCtrl_SetLayoutCache 3177 -#define wxStyledTextCtrl_GetLayoutCache 3178 -#define wxStyledTextCtrl_SetScrollWidth 3179 -#define wxStyledTextCtrl_GetScrollWidth 3180 -#define wxStyledTextCtrl_TextWidth 3181 -#define wxStyledTextCtrl_GetEndAtLastLine 3182 -#define wxStyledTextCtrl_TextHeight 3183 -#define wxStyledTextCtrl_SetUseVerticalScrollBar 3184 -#define wxStyledTextCtrl_GetUseVerticalScrollBar 3185 -#define wxStyledTextCtrl_AppendText 3186 -#define wxStyledTextCtrl_GetTwoPhaseDraw 3187 -#define wxStyledTextCtrl_SetTwoPhaseDraw 3188 -#define wxStyledTextCtrl_TargetFromSelection 3189 -#define wxStyledTextCtrl_LinesJoin 3190 -#define wxStyledTextCtrl_LinesSplit 3191 -#define wxStyledTextCtrl_SetFoldMarginColour 3192 -#define wxStyledTextCtrl_SetFoldMarginHiColour 3193 -#define wxStyledTextCtrl_LineDown 3194 -#define wxStyledTextCtrl_LineDownExtend 3195 -#define wxStyledTextCtrl_LineUp 3196 -#define wxStyledTextCtrl_LineUpExtend 3197 -#define wxStyledTextCtrl_CharLeft 3198 -#define wxStyledTextCtrl_CharLeftExtend 3199 -#define wxStyledTextCtrl_CharRight 3200 -#define wxStyledTextCtrl_CharRightExtend 3201 -#define wxStyledTextCtrl_WordLeft 3202 -#define wxStyledTextCtrl_WordLeftExtend 3203 -#define wxStyledTextCtrl_WordRight 3204 -#define wxStyledTextCtrl_WordRightExtend 3205 -#define wxStyledTextCtrl_Home 3206 -#define wxStyledTextCtrl_HomeExtend 3207 -#define wxStyledTextCtrl_LineEnd 3208 -#define wxStyledTextCtrl_LineEndExtend 3209 -#define wxStyledTextCtrl_DocumentStart 3210 -#define wxStyledTextCtrl_DocumentStartExtend 3211 -#define wxStyledTextCtrl_DocumentEnd 3212 -#define wxStyledTextCtrl_DocumentEndExtend 3213 -#define wxStyledTextCtrl_PageUp 3214 -#define wxStyledTextCtrl_PageUpExtend 3215 -#define wxStyledTextCtrl_PageDown 3216 -#define wxStyledTextCtrl_PageDownExtend 3217 -#define wxStyledTextCtrl_EditToggleOvertype 3218 -#define wxStyledTextCtrl_Cancel 3219 -#define wxStyledTextCtrl_DeleteBack 3220 -#define wxStyledTextCtrl_Tab 3221 -#define wxStyledTextCtrl_BackTab 3222 -#define wxStyledTextCtrl_NewLine 3223 -#define wxStyledTextCtrl_FormFeed 3224 -#define wxStyledTextCtrl_VCHome 3225 -#define wxStyledTextCtrl_VCHomeExtend 3226 -#define wxStyledTextCtrl_ZoomIn 3227 -#define wxStyledTextCtrl_ZoomOut 3228 -#define wxStyledTextCtrl_DelWordLeft 3229 -#define wxStyledTextCtrl_DelWordRight 3230 -#define wxStyledTextCtrl_LineCut 3231 -#define wxStyledTextCtrl_LineDelete 3232 -#define wxStyledTextCtrl_LineTranspose 3233 -#define wxStyledTextCtrl_LineDuplicate 3234 -#define wxStyledTextCtrl_LowerCase 3235 -#define wxStyledTextCtrl_UpperCase 3236 -#define wxStyledTextCtrl_LineScrollDown 3237 -#define wxStyledTextCtrl_LineScrollUp 3238 -#define wxStyledTextCtrl_DeleteBackNotLine 3239 -#define wxStyledTextCtrl_HomeDisplay 3240 -#define wxStyledTextCtrl_HomeDisplayExtend 3241 -#define wxStyledTextCtrl_LineEndDisplay 3242 -#define wxStyledTextCtrl_LineEndDisplayExtend 3243 -#define wxStyledTextCtrl_HomeWrapExtend 3244 -#define wxStyledTextCtrl_LineEndWrap 3245 -#define wxStyledTextCtrl_LineEndWrapExtend 3246 -#define wxStyledTextCtrl_VCHomeWrap 3247 -#define wxStyledTextCtrl_VCHomeWrapExtend 3248 -#define wxStyledTextCtrl_LineCopy 3249 -#define wxStyledTextCtrl_MoveCaretInsideView 3250 -#define wxStyledTextCtrl_LineLength 3251 -#define wxStyledTextCtrl_BraceHighlight 3252 -#define wxStyledTextCtrl_BraceBadLight 3253 -#define wxStyledTextCtrl_BraceMatch 3254 -#define wxStyledTextCtrl_GetViewEOL 3255 -#define wxStyledTextCtrl_SetViewEOL 3256 -#define wxStyledTextCtrl_SetModEventMask 3257 -#define wxStyledTextCtrl_GetEdgeColumn 3258 -#define wxStyledTextCtrl_SetEdgeColumn 3259 -#define wxStyledTextCtrl_GetEdgeMode 3260 -#define wxStyledTextCtrl_GetEdgeColour 3261 -#define wxStyledTextCtrl_SetEdgeColour 3262 -#define wxStyledTextCtrl_SearchAnchor 3263 -#define wxStyledTextCtrl_SearchNext 3264 -#define wxStyledTextCtrl_SearchPrev 3265 -#define wxStyledTextCtrl_LinesOnScreen 3266 -#define wxStyledTextCtrl_UsePopUp 3267 -#define wxStyledTextCtrl_SelectionIsRectangle 3268 -#define wxStyledTextCtrl_SetZoom 3269 -#define wxStyledTextCtrl_GetZoom 3270 -#define wxStyledTextCtrl_GetModEventMask 3271 -#define wxStyledTextCtrl_SetSTCFocus 3272 -#define wxStyledTextCtrl_GetSTCFocus 3273 -#define wxStyledTextCtrl_SetStatus 3274 -#define wxStyledTextCtrl_GetStatus 3275 -#define wxStyledTextCtrl_SetMouseDownCaptures 3276 -#define wxStyledTextCtrl_GetMouseDownCaptures 3277 -#define wxStyledTextCtrl_SetSTCCursor 3278 -#define wxStyledTextCtrl_GetSTCCursor 3279 -#define wxStyledTextCtrl_SetControlCharSymbol 3280 -#define wxStyledTextCtrl_GetControlCharSymbol 3281 -#define wxStyledTextCtrl_WordPartLeft 3282 -#define wxStyledTextCtrl_WordPartLeftExtend 3283 -#define wxStyledTextCtrl_WordPartRight 3284 -#define wxStyledTextCtrl_WordPartRightExtend 3285 -#define wxStyledTextCtrl_SetVisiblePolicy 3286 -#define wxStyledTextCtrl_DelLineLeft 3287 -#define wxStyledTextCtrl_DelLineRight 3288 -#define wxStyledTextCtrl_GetXOffset 3289 -#define wxStyledTextCtrl_ChooseCaretX 3290 -#define wxStyledTextCtrl_SetXCaretPolicy 3291 -#define wxStyledTextCtrl_SetYCaretPolicy 3292 -#define wxStyledTextCtrl_GetPrintWrapMode 3293 -#define wxStyledTextCtrl_SetHotspotActiveForeground 3294 -#define wxStyledTextCtrl_SetHotspotActiveBackground 3295 -#define wxStyledTextCtrl_SetHotspotActiveUnderline 3296 -#define wxStyledTextCtrl_SetHotspotSingleLine 3297 -#define wxStyledTextCtrl_ParaDownExtend 3298 -#define wxStyledTextCtrl_ParaUp 3299 -#define wxStyledTextCtrl_ParaUpExtend 3300 -#define wxStyledTextCtrl_PositionBefore 3301 -#define wxStyledTextCtrl_PositionAfter 3302 -#define wxStyledTextCtrl_CopyRange 3303 -#define wxStyledTextCtrl_CopyText 3304 -#define wxStyledTextCtrl_SetSelectionMode 3305 -#define wxStyledTextCtrl_GetSelectionMode 3306 -#define wxStyledTextCtrl_LineDownRectExtend 3307 -#define wxStyledTextCtrl_LineUpRectExtend 3308 -#define wxStyledTextCtrl_CharLeftRectExtend 3309 -#define wxStyledTextCtrl_CharRightRectExtend 3310 -#define wxStyledTextCtrl_HomeRectExtend 3311 -#define wxStyledTextCtrl_VCHomeRectExtend 3312 -#define wxStyledTextCtrl_LineEndRectExtend 3313 -#define wxStyledTextCtrl_PageUpRectExtend 3314 -#define wxStyledTextCtrl_PageDownRectExtend 3315 -#define wxStyledTextCtrl_StutteredPageUp 3316 -#define wxStyledTextCtrl_StutteredPageUpExtend 3317 -#define wxStyledTextCtrl_StutteredPageDown 3318 -#define wxStyledTextCtrl_StutteredPageDownExtend 3319 -#define wxStyledTextCtrl_WordLeftEnd 3320 -#define wxStyledTextCtrl_WordLeftEndExtend 3321 -#define wxStyledTextCtrl_WordRightEnd 3322 -#define wxStyledTextCtrl_WordRightEndExtend 3323 -#define wxStyledTextCtrl_SetWhitespaceChars 3324 -#define wxStyledTextCtrl_SetCharsDefault 3325 -#define wxStyledTextCtrl_AutoCompGetCurrent 3326 -#define wxStyledTextCtrl_Allocate 3327 -#define wxStyledTextCtrl_FindColumn 3328 -#define wxStyledTextCtrl_GetCaretSticky 3329 -#define wxStyledTextCtrl_SetCaretSticky 3330 -#define wxStyledTextCtrl_ToggleCaretSticky 3331 -#define wxStyledTextCtrl_SetPasteConvertEndings 3332 -#define wxStyledTextCtrl_GetPasteConvertEndings 3333 -#define wxStyledTextCtrl_SelectionDuplicate 3334 -#define wxStyledTextCtrl_SetCaretLineBackAlpha 3335 -#define wxStyledTextCtrl_GetCaretLineBackAlpha 3336 -#define wxStyledTextCtrl_StartRecord 3337 -#define wxStyledTextCtrl_StopRecord 3338 -#define wxStyledTextCtrl_SetLexer 3339 -#define wxStyledTextCtrl_GetLexer 3340 -#define wxStyledTextCtrl_Colourise 3341 -#define wxStyledTextCtrl_SetProperty 3342 -#define wxStyledTextCtrl_SetKeyWords 3343 -#define wxStyledTextCtrl_SetLexerLanguage 3344 -#define wxStyledTextCtrl_GetProperty 3345 -#define wxStyledTextCtrl_GetStyleBitsNeeded 3346 -#define wxStyledTextCtrl_GetCurrentLine 3347 -#define wxStyledTextCtrl_StyleSetSpec 3348 -#define wxStyledTextCtrl_StyleSetFont 3349 -#define wxStyledTextCtrl_StyleSetFontAttr 3350 -#define wxStyledTextCtrl_StyleSetCharacterSet 3351 -#define wxStyledTextCtrl_StyleSetFontEncoding 3352 -#define wxStyledTextCtrl_CmdKeyExecute 3353 -#define wxStyledTextCtrl_SetMargins 3354 -#define wxStyledTextCtrl_GetSelection 3355 -#define wxStyledTextCtrl_PointFromPosition 3356 -#define wxStyledTextCtrl_ScrollToLine 3357 -#define wxStyledTextCtrl_ScrollToColumn 3358 -#define wxStyledTextCtrl_SendMsg 3359 -#define wxStyledTextCtrl_SetVScrollBar 3360 -#define wxStyledTextCtrl_SetHScrollBar 3361 -#define wxStyledTextCtrl_GetLastKeydownProcessed 3362 -#define wxStyledTextCtrl_SetLastKeydownProcessed 3363 -#define wxStyledTextCtrl_SaveFile 3364 -#define wxStyledTextCtrl_LoadFile 3365 -#define wxStyledTextCtrl_DoDragOver 3366 -#define wxStyledTextCtrl_DoDropText 3367 -#define wxStyledTextCtrl_GetUseAntiAliasing 3368 -#define wxStyledTextCtrl_AddTextRaw 3369 -#define wxStyledTextCtrl_InsertTextRaw 3370 -#define wxStyledTextCtrl_GetCurLineRaw 3371 -#define wxStyledTextCtrl_GetLineRaw 3372 -#define wxStyledTextCtrl_GetSelectedTextRaw 3373 -#define wxStyledTextCtrl_GetTextRangeRaw 3374 -#define wxStyledTextCtrl_SetTextRaw 3375 -#define wxStyledTextCtrl_GetTextRaw 3376 -#define wxStyledTextCtrl_AppendTextRaw 3377 -#define wxArtProvider_GetBitmap 3378 -#define wxArtProvider_GetIcon 3379 -#define wxTreeEvent_GetKeyCode 3380 -#define wxTreeEvent_GetItem 3381 -#define wxTreeEvent_GetKeyEvent 3382 -#define wxTreeEvent_GetLabel 3383 -#define wxTreeEvent_GetOldItem 3384 -#define wxTreeEvent_GetPoint 3385 -#define wxTreeEvent_IsEditCancelled 3386 -#define wxTreeEvent_SetToolTip 3387 -#define wxNotebookEvent_GetOldSelection 3388 -#define wxNotebookEvent_GetSelection 3389 -#define wxNotebookEvent_SetOldSelection 3390 -#define wxNotebookEvent_SetSelection 3391 -#define wxFileDataObject_new 3392 -#define wxFileDataObject_AddFile 3393 -#define wxFileDataObject_GetFilenames 3394 -#define wxFileDataObject_destroy 3395 -#define wxTextDataObject_new 3396 -#define wxTextDataObject_GetTextLength 3397 -#define wxTextDataObject_GetText 3398 -#define wxTextDataObject_SetText 3399 -#define wxTextDataObject_destroy 3400 -#define wxBitmapDataObject_new_1_1 3401 -#define wxBitmapDataObject_new_1_0 3402 -#define wxBitmapDataObject_GetBitmap 3403 -#define wxBitmapDataObject_SetBitmap 3404 -#define wxBitmapDataObject_destroy 3405 -#define wxClipboard_new 3407 -#define wxClipboard_destruct 3408 -#define wxClipboard_AddData 3409 -#define wxClipboard_Clear 3410 -#define wxClipboard_Close 3411 -#define wxClipboard_Flush 3412 -#define wxClipboard_GetData 3413 -#define wxClipboard_IsOpened 3414 -#define wxClipboard_Open 3415 -#define wxClipboard_SetData 3416 -#define wxClipboard_UsePrimarySelection 3418 -#define wxClipboard_IsSupported 3419 -#define wxClipboard_Get 3420 -#define wxSpinEvent_GetPosition 3421 -#define wxSpinEvent_SetPosition 3422 -#define wxSplitterWindow_new_0 3423 -#define wxSplitterWindow_new_2 3424 -#define wxSplitterWindow_destruct 3425 -#define wxSplitterWindow_Create 3426 -#define wxSplitterWindow_GetMinimumPaneSize 3427 -#define wxSplitterWindow_GetSashGravity 3428 -#define wxSplitterWindow_GetSashPosition 3429 -#define wxSplitterWindow_GetSplitMode 3430 -#define wxSplitterWindow_GetWindow1 3431 -#define wxSplitterWindow_GetWindow2 3432 -#define wxSplitterWindow_Initialize 3433 -#define wxSplitterWindow_IsSplit 3434 -#define wxSplitterWindow_ReplaceWindow 3435 -#define wxSplitterWindow_SetSashGravity 3436 -#define wxSplitterWindow_SetSashPosition 3437 -#define wxSplitterWindow_SetSashSize 3438 -#define wxSplitterWindow_SetMinimumPaneSize 3439 -#define wxSplitterWindow_SetSplitMode 3440 -#define wxSplitterWindow_SplitHorizontally 3441 -#define wxSplitterWindow_SplitVertically 3442 -#define wxSplitterWindow_Unsplit 3443 -#define wxSplitterWindow_UpdateSize 3444 -#define wxSplitterEvent_GetSashPosition 3445 -#define wxSplitterEvent_GetX 3446 -#define wxSplitterEvent_GetY 3447 -#define wxSplitterEvent_GetWindowBeingRemoved 3448 -#define wxSplitterEvent_SetSashPosition 3449 -#define wxHtmlWindow_new_0 3450 -#define wxHtmlWindow_new_2 3451 -#define wxHtmlWindow_AppendToPage 3452 -#define wxHtmlWindow_GetOpenedAnchor 3453 -#define wxHtmlWindow_GetOpenedPage 3454 -#define wxHtmlWindow_GetOpenedPageTitle 3455 -#define wxHtmlWindow_GetRelatedFrame 3456 -#define wxHtmlWindow_HistoryBack 3457 -#define wxHtmlWindow_HistoryCanBack 3458 -#define wxHtmlWindow_HistoryCanForward 3459 -#define wxHtmlWindow_HistoryClear 3460 -#define wxHtmlWindow_HistoryForward 3461 -#define wxHtmlWindow_LoadFile 3462 -#define wxHtmlWindow_LoadPage 3463 -#define wxHtmlWindow_SelectAll 3464 -#define wxHtmlWindow_SelectionToText 3465 -#define wxHtmlWindow_SelectLine 3466 -#define wxHtmlWindow_SelectWord 3467 -#define wxHtmlWindow_SetBorders 3468 -#define wxHtmlWindow_SetFonts 3469 -#define wxHtmlWindow_SetPage 3470 -#define wxHtmlWindow_SetRelatedFrame 3471 -#define wxHtmlWindow_SetRelatedStatusBar 3472 -#define wxHtmlWindow_ToText 3473 -#define wxHtmlWindow_destroy 3474 -#define wxHtmlLinkEvent_GetLinkInfo 3475 -#define wxSystemSettings_GetColour 3476 -#define wxSystemSettings_GetFont 3477 -#define wxSystemSettings_GetMetric 3478 -#define wxSystemSettings_GetScreenType 3479 -#define wxAuiNotebookEvent_SetSelection 3480 -#define wxAuiNotebookEvent_GetSelection 3481 -#define wxAuiNotebookEvent_SetOldSelection 3482 -#define wxAuiNotebookEvent_GetOldSelection 3483 -#define wxAuiNotebookEvent_SetDragSource 3484 -#define wxAuiNotebookEvent_GetDragSource 3485 -#define wxAuiManagerEvent_SetManager 3486 -#define wxAuiManagerEvent_GetManager 3487 -#define wxAuiManagerEvent_SetPane 3488 -#define wxAuiManagerEvent_GetPane 3489 -#define wxAuiManagerEvent_SetButton 3490 -#define wxAuiManagerEvent_GetButton 3491 -#define wxAuiManagerEvent_SetDC 3492 -#define wxAuiManagerEvent_GetDC 3493 -#define wxAuiManagerEvent_Veto 3494 -#define wxAuiManagerEvent_GetVeto 3495 -#define wxAuiManagerEvent_SetCanVeto 3496 -#define wxAuiManagerEvent_CanVeto 3497 -#define wxLogNull_new 3498 -#define wxLogNull_destroy 3499 +#define wxListItemAttr_new_0 1757 +#define wxListItemAttr_new_3 1758 +#define wxListItemAttr_GetBackgroundColour 1759 +#define wxListItemAttr_GetFont 1760 +#define wxListItemAttr_GetTextColour 1761 +#define wxListItemAttr_HasBackgroundColour 1762 +#define wxListItemAttr_HasFont 1763 +#define wxListItemAttr_HasTextColour 1764 +#define wxListItemAttr_SetBackgroundColour 1765 +#define wxListItemAttr_SetFont 1766 +#define wxListItemAttr_SetTextColour 1767 +#define wxListItemAttr_destroy 1768 +#define wxImageList_new_0 1769 +#define wxImageList_new_3 1770 +#define wxImageList_Add_1 1771 +#define wxImageList_Add_2_0 1772 +#define wxImageList_Add_2_1 1773 +#define wxImageList_Create 1774 +#define wxImageList_Draw 1776 +#define wxImageList_GetBitmap 1777 +#define wxImageList_GetIcon 1778 +#define wxImageList_GetImageCount 1779 +#define wxImageList_GetSize 1780 +#define wxImageList_Remove 1781 +#define wxImageList_RemoveAll 1782 +#define wxImageList_Replace_2 1783 +#define wxImageList_Replace_3 1784 +#define wxImageList_destroy 1785 +#define wxTextAttr_new_0 1786 +#define wxTextAttr_new_2 1787 +#define wxTextAttr_GetAlignment 1788 +#define wxTextAttr_GetBackgroundColour 1789 +#define wxTextAttr_GetFont 1790 +#define wxTextAttr_GetLeftIndent 1791 +#define wxTextAttr_GetLeftSubIndent 1792 +#define wxTextAttr_GetRightIndent 1793 +#define wxTextAttr_GetTabs 1794 +#define wxTextAttr_GetTextColour 1795 +#define wxTextAttr_HasBackgroundColour 1796 +#define wxTextAttr_HasFont 1797 +#define wxTextAttr_HasTextColour 1798 +#define wxTextAttr_GetFlags 1799 +#define wxTextAttr_IsDefault 1800 +#define wxTextAttr_SetAlignment 1801 +#define wxTextAttr_SetBackgroundColour 1802 +#define wxTextAttr_SetFlags 1803 +#define wxTextAttr_SetFont 1804 +#define wxTextAttr_SetLeftIndent 1805 +#define wxTextAttr_SetRightIndent 1806 +#define wxTextAttr_SetTabs 1807 +#define wxTextAttr_SetTextColour 1808 +#define wxTextAttr_destroy 1809 +#define wxTextCtrl_new_3 1811 +#define wxTextCtrl_new_0 1812 +#define wxTextCtrl_destruct 1814 +#define wxTextCtrl_AppendText 1815 +#define wxTextCtrl_CanCopy 1816 +#define wxTextCtrl_CanCut 1817 +#define wxTextCtrl_CanPaste 1818 +#define wxTextCtrl_CanRedo 1819 +#define wxTextCtrl_CanUndo 1820 +#define wxTextCtrl_Clear 1821 +#define wxTextCtrl_Copy 1822 +#define wxTextCtrl_Create 1823 +#define wxTextCtrl_Cut 1824 +#define wxTextCtrl_DiscardEdits 1825 +#define wxTextCtrl_EmulateKeyPress 1826 +#define wxTextCtrl_GetDefaultStyle 1827 +#define wxTextCtrl_GetInsertionPoint 1828 +#define wxTextCtrl_GetLastPosition 1829 +#define wxTextCtrl_GetLineLength 1830 +#define wxTextCtrl_GetLineText 1831 +#define wxTextCtrl_GetNumberOfLines 1832 +#define wxTextCtrl_GetRange 1833 +#define wxTextCtrl_GetSelection 1834 +#define wxTextCtrl_GetStringSelection 1835 +#define wxTextCtrl_GetStyle 1836 +#define wxTextCtrl_GetValue 1837 +#define wxTextCtrl_IsEditable 1838 +#define wxTextCtrl_IsModified 1839 +#define wxTextCtrl_IsMultiLine 1840 +#define wxTextCtrl_IsSingleLine 1841 +#define wxTextCtrl_LoadFile 1842 +#define wxTextCtrl_MarkDirty 1843 +#define wxTextCtrl_Paste 1844 +#define wxTextCtrl_PositionToXY 1845 +#define wxTextCtrl_Redo 1846 +#define wxTextCtrl_Remove 1847 +#define wxTextCtrl_Replace 1848 +#define wxTextCtrl_SaveFile 1849 +#define wxTextCtrl_SetDefaultStyle 1850 +#define wxTextCtrl_SetEditable 1851 +#define wxTextCtrl_SetInsertionPoint 1852 +#define wxTextCtrl_SetInsertionPointEnd 1853 +#define wxTextCtrl_SetMaxLength 1855 +#define wxTextCtrl_SetSelection 1856 +#define wxTextCtrl_SetStyle 1857 +#define wxTextCtrl_SetValue 1858 +#define wxTextCtrl_ShowPosition 1859 +#define wxTextCtrl_Undo 1860 +#define wxTextCtrl_WriteText 1861 +#define wxTextCtrl_XYToPosition 1862 +#define wxNotebook_new_0 1865 +#define wxNotebook_new_3 1866 +#define wxNotebook_destruct 1867 +#define wxNotebook_AddPage 1868 +#define wxNotebook_AdvanceSelection 1869 +#define wxNotebook_AssignImageList 1870 +#define wxNotebook_Create 1871 +#define wxNotebook_DeleteAllPages 1872 +#define wxNotebook_DeletePage 1873 +#define wxNotebook_RemovePage 1874 +#define wxNotebook_GetCurrentPage 1875 +#define wxNotebook_GetImageList 1876 +#define wxNotebook_GetPage 1878 +#define wxNotebook_GetPageCount 1879 +#define wxNotebook_GetPageImage 1880 +#define wxNotebook_GetPageText 1881 +#define wxNotebook_GetRowCount 1882 +#define wxNotebook_GetSelection 1883 +#define wxNotebook_GetThemeBackgroundColour 1884 +#define wxNotebook_HitTest 1886 +#define wxNotebook_InsertPage 1888 +#define wxNotebook_SetImageList 1889 +#define wxNotebook_SetPadding 1890 +#define wxNotebook_SetPageSize 1891 +#define wxNotebook_SetPageImage 1892 +#define wxNotebook_SetPageText 1893 +#define wxNotebook_SetSelection 1894 +#define wxNotebook_ChangeSelection 1895 +#define wxChoicebook_new_0 1896 +#define wxChoicebook_new_3 1897 +#define wxChoicebook_AddPage 1898 +#define wxChoicebook_AdvanceSelection 1899 +#define wxChoicebook_AssignImageList 1900 +#define wxChoicebook_Create 1901 +#define wxChoicebook_DeleteAllPages 1902 +#define wxChoicebook_DeletePage 1903 +#define wxChoicebook_RemovePage 1904 +#define wxChoicebook_GetCurrentPage 1905 +#define wxChoicebook_GetImageList 1906 +#define wxChoicebook_GetPage 1908 +#define wxChoicebook_GetPageCount 1909 +#define wxChoicebook_GetPageImage 1910 +#define wxChoicebook_GetPageText 1911 +#define wxChoicebook_GetSelection 1912 +#define wxChoicebook_HitTest 1913 +#define wxChoicebook_InsertPage 1914 +#define wxChoicebook_SetImageList 1915 +#define wxChoicebook_SetPageSize 1916 +#define wxChoicebook_SetPageImage 1917 +#define wxChoicebook_SetPageText 1918 +#define wxChoicebook_SetSelection 1919 +#define wxChoicebook_ChangeSelection 1920 +#define wxChoicebook_destroy 1921 +#define wxToolbook_new_0 1922 +#define wxToolbook_new_3 1923 +#define wxToolbook_AddPage 1924 +#define wxToolbook_AdvanceSelection 1925 +#define wxToolbook_AssignImageList 1926 +#define wxToolbook_Create 1927 +#define wxToolbook_DeleteAllPages 1928 +#define wxToolbook_DeletePage 1929 +#define wxToolbook_RemovePage 1930 +#define wxToolbook_GetCurrentPage 1931 +#define wxToolbook_GetImageList 1932 +#define wxToolbook_GetPage 1934 +#define wxToolbook_GetPageCount 1935 +#define wxToolbook_GetPageImage 1936 +#define wxToolbook_GetPageText 1937 +#define wxToolbook_GetSelection 1938 +#define wxToolbook_HitTest 1940 +#define wxToolbook_InsertPage 1941 +#define wxToolbook_SetImageList 1942 +#define wxToolbook_SetPageSize 1943 +#define wxToolbook_SetPageImage 1944 +#define wxToolbook_SetPageText 1945 +#define wxToolbook_SetSelection 1946 +#define wxToolbook_ChangeSelection 1947 +#define wxToolbook_destroy 1948 +#define wxListbook_new_0 1949 +#define wxListbook_new_3 1950 +#define wxListbook_AddPage 1951 +#define wxListbook_AdvanceSelection 1952 +#define wxListbook_AssignImageList 1953 +#define wxListbook_Create 1954 +#define wxListbook_DeleteAllPages 1955 +#define wxListbook_DeletePage 1956 +#define wxListbook_RemovePage 1957 +#define wxListbook_GetCurrentPage 1958 +#define wxListbook_GetImageList 1959 +#define wxListbook_GetPage 1961 +#define wxListbook_GetPageCount 1962 +#define wxListbook_GetPageImage 1963 +#define wxListbook_GetPageText 1964 +#define wxListbook_GetSelection 1965 +#define wxListbook_HitTest 1967 +#define wxListbook_InsertPage 1968 +#define wxListbook_SetImageList 1969 +#define wxListbook_SetPageSize 1970 +#define wxListbook_SetPageImage 1971 +#define wxListbook_SetPageText 1972 +#define wxListbook_SetSelection 1973 +#define wxListbook_ChangeSelection 1974 +#define wxListbook_destroy 1975 +#define wxTreebook_new_0 1976 +#define wxTreebook_new_3 1977 +#define wxTreebook_AddPage 1978 +#define wxTreebook_AdvanceSelection 1979 +#define wxTreebook_AssignImageList 1980 +#define wxTreebook_Create 1981 +#define wxTreebook_DeleteAllPages 1982 +#define wxTreebook_DeletePage 1983 +#define wxTreebook_RemovePage 1984 +#define wxTreebook_GetCurrentPage 1985 +#define wxTreebook_GetImageList 1986 +#define wxTreebook_GetPage 1988 +#define wxTreebook_GetPageCount 1989 +#define wxTreebook_GetPageImage 1990 +#define wxTreebook_GetPageText 1991 +#define wxTreebook_GetSelection 1992 +#define wxTreebook_ExpandNode 1993 +#define wxTreebook_IsNodeExpanded 1994 +#define wxTreebook_HitTest 1996 +#define wxTreebook_InsertPage 1997 +#define wxTreebook_InsertSubPage 1998 +#define wxTreebook_SetImageList 1999 +#define wxTreebook_SetPageSize 2000 +#define wxTreebook_SetPageImage 2001 +#define wxTreebook_SetPageText 2002 +#define wxTreebook_SetSelection 2003 +#define wxTreebook_ChangeSelection 2004 +#define wxTreebook_destroy 2005 +#define wxTreeCtrl_new_2 2008 +#define wxTreeCtrl_new_0 2009 +#define wxTreeCtrl_destruct 2011 +#define wxTreeCtrl_AddRoot 2012 +#define wxTreeCtrl_AppendItem 2013 +#define wxTreeCtrl_AssignImageList 2014 +#define wxTreeCtrl_AssignStateImageList 2015 +#define wxTreeCtrl_Collapse 2016 +#define wxTreeCtrl_CollapseAndReset 2017 +#define wxTreeCtrl_Create 2018 +#define wxTreeCtrl_Delete 2019 +#define wxTreeCtrl_DeleteAllItems 2020 +#define wxTreeCtrl_DeleteChildren 2021 +#define wxTreeCtrl_EditLabel 2022 +#define wxTreeCtrl_EnsureVisible 2023 +#define wxTreeCtrl_Expand 2024 +#define wxTreeCtrl_GetBoundingRect 2025 +#define wxTreeCtrl_GetChildrenCount 2027 +#define wxTreeCtrl_GetCount 2028 +#define wxTreeCtrl_GetEditControl 2029 +#define wxTreeCtrl_GetFirstChild 2030 +#define wxTreeCtrl_GetNextChild 2031 +#define wxTreeCtrl_GetFirstVisibleItem 2032 +#define wxTreeCtrl_GetImageList 2033 +#define wxTreeCtrl_GetIndent 2034 +#define wxTreeCtrl_GetItemBackgroundColour 2035 +#define wxTreeCtrl_GetItemData 2036 +#define wxTreeCtrl_GetItemFont 2037 +#define wxTreeCtrl_GetItemImage_1 2038 +#define wxTreeCtrl_GetItemImage_2 2039 +#define wxTreeCtrl_GetItemText 2040 +#define wxTreeCtrl_GetItemTextColour 2041 +#define wxTreeCtrl_GetLastChild 2042 +#define wxTreeCtrl_GetNextSibling 2043 +#define wxTreeCtrl_GetNextVisible 2044 +#define wxTreeCtrl_GetItemParent 2045 +#define wxTreeCtrl_GetPrevSibling 2046 +#define wxTreeCtrl_GetPrevVisible 2047 +#define wxTreeCtrl_GetRootItem 2048 +#define wxTreeCtrl_GetSelection 2049 +#define wxTreeCtrl_GetSelections 2050 +#define wxTreeCtrl_GetStateImageList 2051 +#define wxTreeCtrl_HitTest 2052 +#define wxTreeCtrl_InsertItem 2054 +#define wxTreeCtrl_IsBold 2055 +#define wxTreeCtrl_IsExpanded 2056 +#define wxTreeCtrl_IsSelected 2057 +#define wxTreeCtrl_IsVisible 2058 +#define wxTreeCtrl_ItemHasChildren 2059 +#define wxTreeCtrl_PrependItem 2060 +#define wxTreeCtrl_ScrollTo 2061 +#define wxTreeCtrl_SelectItem_1 2062 +#define wxTreeCtrl_SelectItem_2 2063 +#define wxTreeCtrl_SetIndent 2064 +#define wxTreeCtrl_SetImageList 2065 +#define wxTreeCtrl_SetItemBackgroundColour 2066 +#define wxTreeCtrl_SetItemBold 2067 +#define wxTreeCtrl_SetItemData 2068 +#define wxTreeCtrl_SetItemDropHighlight 2069 +#define wxTreeCtrl_SetItemFont 2070 +#define wxTreeCtrl_SetItemHasChildren 2071 +#define wxTreeCtrl_SetItemImage_2 2072 +#define wxTreeCtrl_SetItemImage_3 2073 +#define wxTreeCtrl_SetItemText 2074 +#define wxTreeCtrl_SetItemTextColour 2075 +#define wxTreeCtrl_SetStateImageList 2076 +#define wxTreeCtrl_SetWindowStyle 2077 +#define wxTreeCtrl_SortChildren 2078 +#define wxTreeCtrl_Toggle 2079 +#define wxTreeCtrl_ToggleItemSelection 2080 +#define wxTreeCtrl_Unselect 2081 +#define wxTreeCtrl_UnselectAll 2082 +#define wxTreeCtrl_UnselectItem 2083 +#define wxScrollBar_new_0 2084 +#define wxScrollBar_new_3 2085 +#define wxScrollBar_destruct 2086 +#define wxScrollBar_Create 2087 +#define wxScrollBar_GetRange 2088 +#define wxScrollBar_GetPageSize 2089 +#define wxScrollBar_GetThumbPosition 2090 +#define wxScrollBar_GetThumbSize 2091 +#define wxScrollBar_SetThumbPosition 2092 +#define wxScrollBar_SetScrollbar 2093 +#define wxSpinButton_new_2 2095 +#define wxSpinButton_new_0 2096 +#define wxSpinButton_Create 2097 +#define wxSpinButton_GetMax 2098 +#define wxSpinButton_GetMin 2099 +#define wxSpinButton_GetValue 2100 +#define wxSpinButton_SetRange 2101 +#define wxSpinButton_SetValue 2102 +#define wxSpinButton_destroy 2103 +#define wxSpinCtrl_new_0 2104 +#define wxSpinCtrl_new_2 2105 +#define wxSpinCtrl_Create 2107 +#define wxSpinCtrl_SetValue_1_1 2110 +#define wxSpinCtrl_SetValue_1_0 2111 +#define wxSpinCtrl_GetValue 2113 +#define wxSpinCtrl_SetRange 2115 +#define wxSpinCtrl_SetSelection 2116 +#define wxSpinCtrl_GetMin 2118 +#define wxSpinCtrl_GetMax 2120 +#define wxSpinCtrl_destroy 2121 +#define wxStaticText_new_0 2122 +#define wxStaticText_new_4 2123 +#define wxStaticText_Create 2124 +#define wxStaticText_GetLabel 2125 +#define wxStaticText_SetLabel 2126 +#define wxStaticText_Wrap 2127 +#define wxStaticText_destroy 2128 +#define wxStaticBitmap_new_0 2129 +#define wxStaticBitmap_new_4 2130 +#define wxStaticBitmap_Create 2131 +#define wxStaticBitmap_GetBitmap 2132 +#define wxStaticBitmap_SetBitmap 2133 +#define wxStaticBitmap_destroy 2134 +#define wxRadioBox_new 2135 +#define wxRadioBox_destruct 2137 +#define wxRadioBox_Create 2138 +#define wxRadioBox_Enable_2 2139 +#define wxRadioBox_Enable_1 2140 +#define wxRadioBox_GetSelection 2141 +#define wxRadioBox_GetString 2142 +#define wxRadioBox_SetSelection 2143 +#define wxRadioBox_Show_2 2144 +#define wxRadioBox_Show_1 2145 +#define wxRadioBox_GetColumnCount 2146 +#define wxRadioBox_GetItemHelpText 2147 +#define wxRadioBox_GetItemToolTip 2148 +#define wxRadioBox_GetItemFromPoint 2150 +#define wxRadioBox_GetRowCount 2151 +#define wxRadioBox_IsItemEnabled 2152 +#define wxRadioBox_IsItemShown 2153 +#define wxRadioBox_SetItemHelpText 2154 +#define wxRadioBox_SetItemToolTip 2155 +#define wxRadioButton_new_0 2156 +#define wxRadioButton_new_4 2157 +#define wxRadioButton_Create 2158 +#define wxRadioButton_GetValue 2159 +#define wxRadioButton_SetValue 2160 +#define wxRadioButton_destroy 2161 +#define wxSlider_new_6 2163 +#define wxSlider_new_0 2164 +#define wxSlider_Create 2165 +#define wxSlider_GetLineSize 2166 +#define wxSlider_GetMax 2167 +#define wxSlider_GetMin 2168 +#define wxSlider_GetPageSize 2169 +#define wxSlider_GetThumbLength 2170 +#define wxSlider_GetValue 2171 +#define wxSlider_SetLineSize 2172 +#define wxSlider_SetPageSize 2173 +#define wxSlider_SetRange 2174 +#define wxSlider_SetThumbLength 2175 +#define wxSlider_SetValue 2176 +#define wxSlider_destroy 2177 +#define wxDialog_new_4 2179 +#define wxDialog_new_0 2180 +#define wxDialog_destruct 2182 +#define wxDialog_Create 2183 +#define wxDialog_CreateButtonSizer 2184 +#define wxDialog_CreateStdDialogButtonSizer 2185 +#define wxDialog_EndModal 2186 +#define wxDialog_GetAffirmativeId 2187 +#define wxDialog_GetReturnCode 2188 +#define wxDialog_IsModal 2189 +#define wxDialog_SetAffirmativeId 2190 +#define wxDialog_SetReturnCode 2191 +#define wxDialog_Show 2192 +#define wxDialog_ShowModal 2193 +#define wxColourDialog_new_0 2194 +#define wxColourDialog_new_2 2195 +#define wxColourDialog_destruct 2196 +#define wxColourDialog_Create 2197 +#define wxColourDialog_GetColourData 2198 +#define wxColourData_new_0 2199 +#define wxColourData_new_1 2200 +#define wxColourData_destruct 2201 +#define wxColourData_GetChooseFull 2202 +#define wxColourData_GetColour 2203 +#define wxColourData_GetCustomColour 2205 +#define wxColourData_SetChooseFull 2206 +#define wxColourData_SetColour 2207 +#define wxColourData_SetCustomColour 2208 +#define wxPalette_new_0 2209 +#define wxPalette_new_4 2210 +#define wxPalette_destruct 2212 +#define wxPalette_Create 2213 +#define wxPalette_GetColoursCount 2214 +#define wxPalette_GetPixel 2215 +#define wxPalette_GetRGB 2216 +#define wxPalette_IsOk 2217 +#define wxDirDialog_new 2221 +#define wxDirDialog_destruct 2222 +#define wxDirDialog_GetPath 2223 +#define wxDirDialog_GetMessage 2224 +#define wxDirDialog_SetMessage 2225 +#define wxDirDialog_SetPath 2226 +#define wxFileDialog_new 2230 +#define wxFileDialog_destruct 2231 +#define wxFileDialog_GetDirectory 2232 +#define wxFileDialog_GetFilename 2233 +#define wxFileDialog_GetFilenames 2234 +#define wxFileDialog_GetFilterIndex 2235 +#define wxFileDialog_GetMessage 2236 +#define wxFileDialog_GetPath 2237 +#define wxFileDialog_GetPaths 2238 +#define wxFileDialog_GetWildcard 2239 +#define wxFileDialog_SetDirectory 2240 +#define wxFileDialog_SetFilename 2241 +#define wxFileDialog_SetFilterIndex 2242 +#define wxFileDialog_SetMessage 2243 +#define wxFileDialog_SetPath 2244 +#define wxFileDialog_SetWildcard 2245 +#define wxPickerBase_SetInternalMargin 2246 +#define wxPickerBase_GetInternalMargin 2247 +#define wxPickerBase_SetTextCtrlProportion 2248 +#define wxPickerBase_SetPickerCtrlProportion 2249 +#define wxPickerBase_GetTextCtrlProportion 2250 +#define wxPickerBase_GetPickerCtrlProportion 2251 +#define wxPickerBase_HasTextCtrl 2252 +#define wxPickerBase_GetTextCtrl 2253 +#define wxPickerBase_IsTextCtrlGrowable 2254 +#define wxPickerBase_SetPickerCtrlGrowable 2255 +#define wxPickerBase_SetTextCtrlGrowable 2256 +#define wxPickerBase_IsPickerCtrlGrowable 2257 +#define wxFilePickerCtrl_new_0 2258 +#define wxFilePickerCtrl_new_3 2259 +#define wxFilePickerCtrl_Create 2260 +#define wxFilePickerCtrl_GetPath 2261 +#define wxFilePickerCtrl_SetPath 2262 +#define wxFilePickerCtrl_destroy 2263 +#define wxDirPickerCtrl_new_0 2264 +#define wxDirPickerCtrl_new_3 2265 +#define wxDirPickerCtrl_Create 2266 +#define wxDirPickerCtrl_GetPath 2267 +#define wxDirPickerCtrl_SetPath 2268 +#define wxDirPickerCtrl_destroy 2269 +#define wxColourPickerCtrl_new_0 2270 +#define wxColourPickerCtrl_new_3 2271 +#define wxColourPickerCtrl_Create 2272 +#define wxColourPickerCtrl_GetColour 2273 +#define wxColourPickerCtrl_SetColour_1_1 2274 +#define wxColourPickerCtrl_SetColour_1_0 2275 +#define wxColourPickerCtrl_destroy 2276 +#define wxDatePickerCtrl_new_0 2277 +#define wxDatePickerCtrl_new_3 2278 +#define wxDatePickerCtrl_GetRange 2279 +#define wxDatePickerCtrl_GetValue 2280 +#define wxDatePickerCtrl_SetRange 2281 +#define wxDatePickerCtrl_SetValue 2282 +#define wxDatePickerCtrl_destroy 2283 +#define wxFontPickerCtrl_new_0 2284 +#define wxFontPickerCtrl_new_3 2285 +#define wxFontPickerCtrl_Create 2286 +#define wxFontPickerCtrl_GetSelectedFont 2287 +#define wxFontPickerCtrl_SetSelectedFont 2288 +#define wxFontPickerCtrl_GetMaxPointSize 2289 +#define wxFontPickerCtrl_SetMaxPointSize 2290 +#define wxFontPickerCtrl_destroy 2291 +#define wxFindReplaceDialog_new_0 2294 +#define wxFindReplaceDialog_new_4 2295 +#define wxFindReplaceDialog_destruct 2296 +#define wxFindReplaceDialog_Create 2297 +#define wxFindReplaceDialog_GetData 2298 +#define wxFindReplaceData_new_0 2299 +#define wxFindReplaceData_new_1 2300 +#define wxFindReplaceData_GetFindString 2301 +#define wxFindReplaceData_GetReplaceString 2302 +#define wxFindReplaceData_GetFlags 2303 +#define wxFindReplaceData_SetFlags 2304 +#define wxFindReplaceData_SetFindString 2305 +#define wxFindReplaceData_SetReplaceString 2306 +#define wxFindReplaceData_destroy 2307 +#define wxMultiChoiceDialog_new_0 2308 +#define wxMultiChoiceDialog_new_5 2310 +#define wxMultiChoiceDialog_GetSelections 2311 +#define wxMultiChoiceDialog_SetSelections 2312 +#define wxMultiChoiceDialog_destroy 2313 +#define wxSingleChoiceDialog_new_0 2314 +#define wxSingleChoiceDialog_new_5 2316 +#define wxSingleChoiceDialog_GetSelection 2317 +#define wxSingleChoiceDialog_GetStringSelection 2318 +#define wxSingleChoiceDialog_SetSelection 2319 +#define wxSingleChoiceDialog_destroy 2320 +#define wxTextEntryDialog_new 2321 +#define wxTextEntryDialog_GetValue 2322 +#define wxTextEntryDialog_SetValue 2323 +#define wxTextEntryDialog_destroy 2324 +#define wxPasswordEntryDialog_new 2325 +#define wxPasswordEntryDialog_destroy 2326 +#define wxFontData_new_0 2327 +#define wxFontData_new_1 2328 +#define wxFontData_destruct 2329 +#define wxFontData_EnableEffects 2330 +#define wxFontData_GetAllowSymbols 2331 +#define wxFontData_GetColour 2332 +#define wxFontData_GetChosenFont 2333 +#define wxFontData_GetEnableEffects 2334 +#define wxFontData_GetInitialFont 2335 +#define wxFontData_GetShowHelp 2336 +#define wxFontData_SetAllowSymbols 2337 +#define wxFontData_SetChosenFont 2338 +#define wxFontData_SetColour 2339 +#define wxFontData_SetInitialFont 2340 +#define wxFontData_SetRange 2341 +#define wxFontData_SetShowHelp 2342 +#define wxFontDialog_new_0 2346 +#define wxFontDialog_new_2 2348 +#define wxFontDialog_Create 2350 +#define wxFontDialog_GetFontData 2351 +#define wxFontDialog_destroy 2353 +#define wxProgressDialog_new 2354 +#define wxProgressDialog_destruct 2355 +#define wxProgressDialog_Resume 2356 +#define wxProgressDialog_Update_2 2357 +#define wxProgressDialog_Update_0 2358 +#define wxMessageDialog_new 2359 +#define wxMessageDialog_destruct 2360 +#define wxPageSetupDialog_new 2361 +#define wxPageSetupDialog_destruct 2362 +#define wxPageSetupDialog_GetPageSetupData 2363 +#define wxPageSetupDialog_ShowModal 2364 +#define wxPageSetupDialogData_new_0 2365 +#define wxPageSetupDialogData_new_1_0 2366 +#define wxPageSetupDialogData_new_1_1 2367 +#define wxPageSetupDialogData_destruct 2368 +#define wxPageSetupDialogData_EnableHelp 2369 +#define wxPageSetupDialogData_EnableMargins 2370 +#define wxPageSetupDialogData_EnableOrientation 2371 +#define wxPageSetupDialogData_EnablePaper 2372 +#define wxPageSetupDialogData_EnablePrinter 2373 +#define wxPageSetupDialogData_GetDefaultMinMargins 2374 +#define wxPageSetupDialogData_GetEnableMargins 2375 +#define wxPageSetupDialogData_GetEnableOrientation 2376 +#define wxPageSetupDialogData_GetEnablePaper 2377 +#define wxPageSetupDialogData_GetEnablePrinter 2378 +#define wxPageSetupDialogData_GetEnableHelp 2379 +#define wxPageSetupDialogData_GetDefaultInfo 2380 +#define wxPageSetupDialogData_GetMarginTopLeft 2381 +#define wxPageSetupDialogData_GetMarginBottomRight 2382 +#define wxPageSetupDialogData_GetMinMarginTopLeft 2383 +#define wxPageSetupDialogData_GetMinMarginBottomRight 2384 +#define wxPageSetupDialogData_GetPaperId 2385 +#define wxPageSetupDialogData_GetPaperSize 2386 +#define wxPageSetupDialogData_GetPrintData 2388 +#define wxPageSetupDialogData_IsOk 2389 +#define wxPageSetupDialogData_SetDefaultInfo 2390 +#define wxPageSetupDialogData_SetDefaultMinMargins 2391 +#define wxPageSetupDialogData_SetMarginTopLeft 2392 +#define wxPageSetupDialogData_SetMarginBottomRight 2393 +#define wxPageSetupDialogData_SetMinMarginTopLeft 2394 +#define wxPageSetupDialogData_SetMinMarginBottomRight 2395 +#define wxPageSetupDialogData_SetPaperId 2396 +#define wxPageSetupDialogData_SetPaperSize_1_1 2397 +#define wxPageSetupDialogData_SetPaperSize_1_0 2398 +#define wxPageSetupDialogData_SetPrintData 2399 +#define wxPrintDialog_new_2_0 2400 +#define wxPrintDialog_new_2_1 2401 +#define wxPrintDialog_destruct 2402 +#define wxPrintDialog_GetPrintDialogData 2403 +#define wxPrintDialog_GetPrintDC 2404 +#define wxPrintDialogData_new_0 2405 +#define wxPrintDialogData_new_1_1 2406 +#define wxPrintDialogData_new_1_0 2407 +#define wxPrintDialogData_destruct 2408 +#define wxPrintDialogData_EnableHelp 2409 +#define wxPrintDialogData_EnablePageNumbers 2410 +#define wxPrintDialogData_EnablePrintToFile 2411 +#define wxPrintDialogData_EnableSelection 2412 +#define wxPrintDialogData_GetAllPages 2413 +#define wxPrintDialogData_GetCollate 2414 +#define wxPrintDialogData_GetFromPage 2415 +#define wxPrintDialogData_GetMaxPage 2416 +#define wxPrintDialogData_GetMinPage 2417 +#define wxPrintDialogData_GetNoCopies 2418 +#define wxPrintDialogData_GetPrintData 2419 +#define wxPrintDialogData_GetPrintToFile 2420 +#define wxPrintDialogData_GetSelection 2421 +#define wxPrintDialogData_GetToPage 2422 +#define wxPrintDialogData_IsOk 2423 +#define wxPrintDialogData_SetCollate 2424 +#define wxPrintDialogData_SetFromPage 2425 +#define wxPrintDialogData_SetMaxPage 2426 +#define wxPrintDialogData_SetMinPage 2427 +#define wxPrintDialogData_SetNoCopies 2428 +#define wxPrintDialogData_SetPrintData 2429 +#define wxPrintDialogData_SetPrintToFile 2430 +#define wxPrintDialogData_SetSelection 2431 +#define wxPrintDialogData_SetToPage 2432 +#define wxPrintData_new_0 2433 +#define wxPrintData_new_1 2434 +#define wxPrintData_destruct 2435 +#define wxPrintData_GetCollate 2436 +#define wxPrintData_GetBin 2437 +#define wxPrintData_GetColour 2438 +#define wxPrintData_GetDuplex 2439 +#define wxPrintData_GetNoCopies 2440 +#define wxPrintData_GetOrientation 2441 +#define wxPrintData_GetPaperId 2442 +#define wxPrintData_GetPrinterName 2443 +#define wxPrintData_GetQuality 2444 +#define wxPrintData_IsOk 2445 +#define wxPrintData_SetBin 2446 +#define wxPrintData_SetCollate 2447 +#define wxPrintData_SetColour 2448 +#define wxPrintData_SetDuplex 2449 +#define wxPrintData_SetNoCopies 2450 +#define wxPrintData_SetOrientation 2451 +#define wxPrintData_SetPaperId 2452 +#define wxPrintData_SetPrinterName 2453 +#define wxPrintData_SetQuality 2454 +#define wxPrintPreview_new_2 2457 +#define wxPrintPreview_new_3 2458 +#define wxPrintPreview_destruct 2460 +#define wxPrintPreview_GetCanvas 2461 +#define wxPrintPreview_GetCurrentPage 2462 +#define wxPrintPreview_GetFrame 2463 +#define wxPrintPreview_GetMaxPage 2464 +#define wxPrintPreview_GetMinPage 2465 +#define wxPrintPreview_GetPrintout 2466 +#define wxPrintPreview_GetPrintoutForPrinting 2467 +#define wxPrintPreview_IsOk 2468 +#define wxPrintPreview_PaintPage 2469 +#define wxPrintPreview_Print 2470 +#define wxPrintPreview_RenderPage 2471 +#define wxPrintPreview_SetCanvas 2472 +#define wxPrintPreview_SetCurrentPage 2473 +#define wxPrintPreview_SetFrame 2474 +#define wxPrintPreview_SetPrintout 2475 +#define wxPrintPreview_SetZoom 2476 +#define wxPreviewFrame_new 2477 +#define wxPreviewFrame_destruct 2478 +#define wxPreviewFrame_CreateControlBar 2479 +#define wxPreviewFrame_CreateCanvas 2480 +#define wxPreviewFrame_Initialize 2481 +#define wxPreviewFrame_OnCloseWindow 2482 +#define wxPreviewControlBar_new 2483 +#define wxPreviewControlBar_destruct 2484 +#define wxPreviewControlBar_CreateButtons 2485 +#define wxPreviewControlBar_GetPrintPreview 2486 +#define wxPreviewControlBar_GetZoomControl 2487 +#define wxPreviewControlBar_SetZoomControl 2488 +#define wxPrinter_new 2490 +#define wxPrinter_CreateAbortWindow 2491 +#define wxPrinter_GetAbort 2492 +#define wxPrinter_GetLastError 2493 +#define wxPrinter_GetPrintDialogData 2494 +#define wxPrinter_Print 2495 +#define wxPrinter_PrintDialog 2496 +#define wxPrinter_ReportError 2497 +#define wxPrinter_Setup 2498 +#define wxPrinter_destroy 2499 +#define wxXmlResource_new_1 2500 +#define wxXmlResource_new_2 2501 +#define wxXmlResource_destruct 2502 +#define wxXmlResource_AttachUnknownControl 2503 +#define wxXmlResource_ClearHandlers 2504 +#define wxXmlResource_CompareVersion 2505 +#define wxXmlResource_Get 2506 +#define wxXmlResource_GetFlags 2507 +#define wxXmlResource_GetVersion 2508 +#define wxXmlResource_GetXRCID 2509 +#define wxXmlResource_InitAllHandlers 2510 +#define wxXmlResource_Load 2511 +#define wxXmlResource_LoadBitmap 2512 +#define wxXmlResource_LoadDialog_2 2513 +#define wxXmlResource_LoadDialog_3 2514 +#define wxXmlResource_LoadFrame_2 2515 +#define wxXmlResource_LoadFrame_3 2516 +#define wxXmlResource_LoadIcon 2517 +#define wxXmlResource_LoadMenu 2518 +#define wxXmlResource_LoadMenuBar_2 2519 +#define wxXmlResource_LoadMenuBar_1 2520 +#define wxXmlResource_LoadPanel_2 2521 +#define wxXmlResource_LoadPanel_3 2522 +#define wxXmlResource_LoadToolBar 2523 +#define wxXmlResource_Set 2524 +#define wxXmlResource_SetFlags 2525 +#define wxXmlResource_Unload 2526 +#define wxXmlResource_xrcctrl 2527 +#define wxHtmlEasyPrinting_new 2528 +#define wxHtmlEasyPrinting_destruct 2529 +#define wxHtmlEasyPrinting_GetPrintData 2530 +#define wxHtmlEasyPrinting_GetPageSetupData 2531 +#define wxHtmlEasyPrinting_PreviewFile 2532 +#define wxHtmlEasyPrinting_PreviewText 2533 +#define wxHtmlEasyPrinting_PrintFile 2534 +#define wxHtmlEasyPrinting_PrintText 2535 +#define wxHtmlEasyPrinting_PageSetup 2536 +#define wxHtmlEasyPrinting_SetFonts 2537 +#define wxHtmlEasyPrinting_SetHeader 2538 +#define wxHtmlEasyPrinting_SetFooter 2539 +#define wxGLCanvas_new_2 2541 +#define wxGLCanvas_new_3_1 2542 +#define wxGLCanvas_new_3_0 2543 +#define wxGLCanvas_GetContext 2544 +#define wxGLCanvas_SetCurrent 2546 +#define wxGLCanvas_SwapBuffers 2547 +#define wxGLCanvas_destroy 2548 +#define wxAuiManager_new 2549 +#define wxAuiManager_destruct 2550 +#define wxAuiManager_AddPane_2_1 2551 +#define wxAuiManager_AddPane_3 2552 +#define wxAuiManager_AddPane_2_0 2553 +#define wxAuiManager_DetachPane 2554 +#define wxAuiManager_GetAllPanes 2555 +#define wxAuiManager_GetArtProvider 2556 +#define wxAuiManager_GetDockSizeConstraint 2557 +#define wxAuiManager_GetFlags 2558 +#define wxAuiManager_GetManagedWindow 2559 +#define wxAuiManager_GetManager 2560 +#define wxAuiManager_GetPane_1_1 2561 +#define wxAuiManager_GetPane_1_0 2562 +#define wxAuiManager_HideHint 2563 +#define wxAuiManager_InsertPane 2564 +#define wxAuiManager_LoadPaneInfo 2565 +#define wxAuiManager_LoadPerspective 2566 +#define wxAuiManager_SavePaneInfo 2567 +#define wxAuiManager_SavePerspective 2568 +#define wxAuiManager_SetArtProvider 2569 +#define wxAuiManager_SetDockSizeConstraint 2570 +#define wxAuiManager_SetFlags 2571 +#define wxAuiManager_SetManagedWindow 2572 +#define wxAuiManager_ShowHint 2573 +#define wxAuiManager_UnInit 2574 +#define wxAuiManager_Update 2575 +#define wxAuiPaneInfo_new_0 2576 +#define wxAuiPaneInfo_new_1 2577 +#define wxAuiPaneInfo_destruct 2578 +#define wxAuiPaneInfo_BestSize_1 2579 +#define wxAuiPaneInfo_BestSize_2 2580 +#define wxAuiPaneInfo_Bottom 2581 +#define wxAuiPaneInfo_BottomDockable 2582 +#define wxAuiPaneInfo_Caption 2583 +#define wxAuiPaneInfo_CaptionVisible 2584 +#define wxAuiPaneInfo_Centre 2585 +#define wxAuiPaneInfo_CentrePane 2586 +#define wxAuiPaneInfo_CloseButton 2587 +#define wxAuiPaneInfo_DefaultPane 2588 +#define wxAuiPaneInfo_DestroyOnClose 2589 +#define wxAuiPaneInfo_Direction 2590 +#define wxAuiPaneInfo_Dock 2591 +#define wxAuiPaneInfo_Dockable 2592 +#define wxAuiPaneInfo_Fixed 2593 +#define wxAuiPaneInfo_Float 2594 +#define wxAuiPaneInfo_Floatable 2595 +#define wxAuiPaneInfo_FloatingPosition_1 2596 +#define wxAuiPaneInfo_FloatingPosition_2 2597 +#define wxAuiPaneInfo_FloatingSize_1 2598 +#define wxAuiPaneInfo_FloatingSize_2 2599 +#define wxAuiPaneInfo_Gripper 2600 +#define wxAuiPaneInfo_GripperTop 2601 +#define wxAuiPaneInfo_HasBorder 2602 +#define wxAuiPaneInfo_HasCaption 2603 +#define wxAuiPaneInfo_HasCloseButton 2604 +#define wxAuiPaneInfo_HasFlag 2605 +#define wxAuiPaneInfo_HasGripper 2606 +#define wxAuiPaneInfo_HasGripperTop 2607 +#define wxAuiPaneInfo_HasMaximizeButton 2608 +#define wxAuiPaneInfo_HasMinimizeButton 2609 +#define wxAuiPaneInfo_HasPinButton 2610 +#define wxAuiPaneInfo_Hide 2611 +#define wxAuiPaneInfo_IsBottomDockable 2612 +#define wxAuiPaneInfo_IsDocked 2613 +#define wxAuiPaneInfo_IsFixed 2614 +#define wxAuiPaneInfo_IsFloatable 2615 +#define wxAuiPaneInfo_IsFloating 2616 +#define wxAuiPaneInfo_IsLeftDockable 2617 +#define wxAuiPaneInfo_IsMovable 2618 +#define wxAuiPaneInfo_IsOk 2619 +#define wxAuiPaneInfo_IsResizable 2620 +#define wxAuiPaneInfo_IsRightDockable 2621 +#define wxAuiPaneInfo_IsShown 2622 +#define wxAuiPaneInfo_IsToolbar 2623 +#define wxAuiPaneInfo_IsTopDockable 2624 +#define wxAuiPaneInfo_Layer 2625 +#define wxAuiPaneInfo_Left 2626 +#define wxAuiPaneInfo_LeftDockable 2627 +#define wxAuiPaneInfo_MaxSize_1 2628 +#define wxAuiPaneInfo_MaxSize_2 2629 +#define wxAuiPaneInfo_MaximizeButton 2630 +#define wxAuiPaneInfo_MinSize_1 2631 +#define wxAuiPaneInfo_MinSize_2 2632 +#define wxAuiPaneInfo_MinimizeButton 2633 +#define wxAuiPaneInfo_Movable 2634 +#define wxAuiPaneInfo_Name 2635 +#define wxAuiPaneInfo_PaneBorder 2636 +#define wxAuiPaneInfo_PinButton 2637 +#define wxAuiPaneInfo_Position 2638 +#define wxAuiPaneInfo_Resizable 2639 +#define wxAuiPaneInfo_Right 2640 +#define wxAuiPaneInfo_RightDockable 2641 +#define wxAuiPaneInfo_Row 2642 +#define wxAuiPaneInfo_SafeSet 2643 +#define wxAuiPaneInfo_SetFlag 2644 +#define wxAuiPaneInfo_Show 2645 +#define wxAuiPaneInfo_ToolbarPane 2646 +#define wxAuiPaneInfo_Top 2647 +#define wxAuiPaneInfo_TopDockable 2648 +#define wxAuiPaneInfo_Window 2649 +#define wxAuiNotebook_new_0 2650 +#define wxAuiNotebook_new_2 2651 +#define wxAuiNotebook_AddPage 2652 +#define wxAuiNotebook_Create 2653 +#define wxAuiNotebook_DeletePage 2654 +#define wxAuiNotebook_GetArtProvider 2655 +#define wxAuiNotebook_GetPage 2656 +#define wxAuiNotebook_GetPageBitmap 2657 +#define wxAuiNotebook_GetPageCount 2658 +#define wxAuiNotebook_GetPageIndex 2659 +#define wxAuiNotebook_GetPageText 2660 +#define wxAuiNotebook_GetSelection 2661 +#define wxAuiNotebook_InsertPage 2662 +#define wxAuiNotebook_RemovePage 2663 +#define wxAuiNotebook_SetArtProvider 2664 +#define wxAuiNotebook_SetFont 2665 +#define wxAuiNotebook_SetPageBitmap 2666 +#define wxAuiNotebook_SetPageText 2667 +#define wxAuiNotebook_SetSelection 2668 +#define wxAuiNotebook_SetTabCtrlHeight 2669 +#define wxAuiNotebook_SetUniformBitmapSize 2670 +#define wxAuiNotebook_destroy 2671 +#define wxMDIParentFrame_new_0 2672 +#define wxMDIParentFrame_new_4 2673 +#define wxMDIParentFrame_destruct 2674 +#define wxMDIParentFrame_ActivateNext 2675 +#define wxMDIParentFrame_ActivatePrevious 2676 +#define wxMDIParentFrame_ArrangeIcons 2677 +#define wxMDIParentFrame_Cascade 2678 +#define wxMDIParentFrame_Create 2679 +#define wxMDIParentFrame_GetActiveChild 2680 +#define wxMDIParentFrame_GetClientWindow 2681 +#define wxMDIParentFrame_Tile 2682 +#define wxMDIChildFrame_new_0 2683 +#define wxMDIChildFrame_new_4 2684 +#define wxMDIChildFrame_destruct 2685 +#define wxMDIChildFrame_Activate 2686 +#define wxMDIChildFrame_Create 2687 +#define wxMDIChildFrame_Maximize 2688 +#define wxMDIChildFrame_Restore 2689 +#define wxMDIClientWindow_new_0 2690 +#define wxMDIClientWindow_new_2 2691 +#define wxMDIClientWindow_destruct 2692 +#define wxMDIClientWindow_CreateClient 2693 +#define wxLayoutAlgorithm_new 2694 +#define wxLayoutAlgorithm_LayoutFrame 2695 +#define wxLayoutAlgorithm_LayoutMDIFrame 2696 +#define wxLayoutAlgorithm_LayoutWindow 2697 +#define wxLayoutAlgorithm_destroy 2698 +#define wxEvent_GetId 2699 +#define wxEvent_GetSkipped 2700 +#define wxEvent_GetTimestamp 2701 +#define wxEvent_IsCommandEvent 2702 +#define wxEvent_ResumePropagation 2703 +#define wxEvent_ShouldPropagate 2704 +#define wxEvent_Skip 2705 +#define wxEvent_StopPropagation 2706 +#define wxCommandEvent_getClientData 2707 +#define wxCommandEvent_GetExtraLong 2708 +#define wxCommandEvent_GetInt 2709 +#define wxCommandEvent_GetSelection 2710 +#define wxCommandEvent_GetString 2711 +#define wxCommandEvent_IsChecked 2712 +#define wxCommandEvent_IsSelection 2713 +#define wxCommandEvent_SetInt 2714 +#define wxCommandEvent_SetString 2715 +#define wxScrollEvent_GetOrientation 2716 +#define wxScrollEvent_GetPosition 2717 +#define wxScrollWinEvent_GetOrientation 2718 +#define wxScrollWinEvent_GetPosition 2719 +#define wxMouseEvent_AltDown 2720 +#define wxMouseEvent_Button 2721 +#define wxMouseEvent_ButtonDClick 2722 +#define wxMouseEvent_ButtonDown 2723 +#define wxMouseEvent_ButtonUp 2724 +#define wxMouseEvent_CmdDown 2725 +#define wxMouseEvent_ControlDown 2726 +#define wxMouseEvent_Dragging 2727 +#define wxMouseEvent_Entering 2728 +#define wxMouseEvent_GetButton 2729 +#define wxMouseEvent_GetPosition 2732 +#define wxMouseEvent_GetLogicalPosition 2733 +#define wxMouseEvent_GetLinesPerAction 2734 +#define wxMouseEvent_GetWheelRotation 2735 +#define wxMouseEvent_GetWheelDelta 2736 +#define wxMouseEvent_GetX 2737 +#define wxMouseEvent_GetY 2738 +#define wxMouseEvent_IsButton 2739 +#define wxMouseEvent_IsPageScroll 2740 +#define wxMouseEvent_Leaving 2741 +#define wxMouseEvent_LeftDClick 2742 +#define wxMouseEvent_LeftDown 2743 +#define wxMouseEvent_LeftIsDown 2744 +#define wxMouseEvent_LeftUp 2745 +#define wxMouseEvent_MetaDown 2746 +#define wxMouseEvent_MiddleDClick 2747 +#define wxMouseEvent_MiddleDown 2748 +#define wxMouseEvent_MiddleIsDown 2749 +#define wxMouseEvent_MiddleUp 2750 +#define wxMouseEvent_Moving 2751 +#define wxMouseEvent_RightDClick 2752 +#define wxMouseEvent_RightDown 2753 +#define wxMouseEvent_RightIsDown 2754 +#define wxMouseEvent_RightUp 2755 +#define wxMouseEvent_ShiftDown 2756 +#define wxSetCursorEvent_GetCursor 2757 +#define wxSetCursorEvent_GetX 2758 +#define wxSetCursorEvent_GetY 2759 +#define wxSetCursorEvent_HasCursor 2760 +#define wxSetCursorEvent_SetCursor 2761 +#define wxKeyEvent_AltDown 2762 +#define wxKeyEvent_CmdDown 2763 +#define wxKeyEvent_ControlDown 2764 +#define wxKeyEvent_GetKeyCode 2765 +#define wxKeyEvent_GetModifiers 2766 +#define wxKeyEvent_GetPosition 2769 +#define wxKeyEvent_GetRawKeyCode 2770 +#define wxKeyEvent_GetRawKeyFlags 2771 +#define wxKeyEvent_GetUnicodeKey 2772 +#define wxKeyEvent_GetX 2773 +#define wxKeyEvent_GetY 2774 +#define wxKeyEvent_HasModifiers 2775 +#define wxKeyEvent_MetaDown 2776 +#define wxKeyEvent_ShiftDown 2777 +#define wxSizeEvent_GetSize 2778 +#define wxMoveEvent_GetPosition 2779 +#define wxEraseEvent_GetDC 2780 +#define wxFocusEvent_GetWindow 2781 +#define wxChildFocusEvent_GetWindow 2782 +#define wxMenuEvent_GetMenu 2783 +#define wxMenuEvent_GetMenuId 2784 +#define wxMenuEvent_IsPopup 2785 +#define wxCloseEvent_CanVeto 2786 +#define wxCloseEvent_GetLoggingOff 2787 +#define wxCloseEvent_SetCanVeto 2788 +#define wxCloseEvent_SetLoggingOff 2789 +#define wxCloseEvent_Veto 2790 +#define wxShowEvent_SetShow 2791 +#define wxShowEvent_GetShow 2792 +#define wxIconizeEvent_Iconized 2793 +#define wxJoystickEvent_ButtonDown 2794 +#define wxJoystickEvent_ButtonIsDown 2795 +#define wxJoystickEvent_ButtonUp 2796 +#define wxJoystickEvent_GetButtonChange 2797 +#define wxJoystickEvent_GetButtonState 2798 +#define wxJoystickEvent_GetJoystick 2799 +#define wxJoystickEvent_GetPosition 2800 +#define wxJoystickEvent_GetZPosition 2801 +#define wxJoystickEvent_IsButton 2802 +#define wxJoystickEvent_IsMove 2803 +#define wxJoystickEvent_IsZMove 2804 +#define wxUpdateUIEvent_CanUpdate 2805 +#define wxUpdateUIEvent_Check 2806 +#define wxUpdateUIEvent_Enable 2807 +#define wxUpdateUIEvent_Show 2808 +#define wxUpdateUIEvent_GetChecked 2809 +#define wxUpdateUIEvent_GetEnabled 2810 +#define wxUpdateUIEvent_GetShown 2811 +#define wxUpdateUIEvent_GetSetChecked 2812 +#define wxUpdateUIEvent_GetSetEnabled 2813 +#define wxUpdateUIEvent_GetSetShown 2814 +#define wxUpdateUIEvent_GetSetText 2815 +#define wxUpdateUIEvent_GetText 2816 +#define wxUpdateUIEvent_GetMode 2817 +#define wxUpdateUIEvent_GetUpdateInterval 2818 +#define wxUpdateUIEvent_ResetUpdateTime 2819 +#define wxUpdateUIEvent_SetMode 2820 +#define wxUpdateUIEvent_SetText 2821 +#define wxUpdateUIEvent_SetUpdateInterval 2822 +#define wxMouseCaptureChangedEvent_GetCapturedWindow 2823 +#define wxPaletteChangedEvent_SetChangedWindow 2824 +#define wxPaletteChangedEvent_GetChangedWindow 2825 +#define wxQueryNewPaletteEvent_SetPaletteRealized 2826 +#define wxQueryNewPaletteEvent_GetPaletteRealized 2827 +#define wxNavigationKeyEvent_GetDirection 2828 +#define wxNavigationKeyEvent_SetDirection 2829 +#define wxNavigationKeyEvent_IsWindowChange 2830 +#define wxNavigationKeyEvent_SetWindowChange 2831 +#define wxNavigationKeyEvent_IsFromTab 2832 +#define wxNavigationKeyEvent_SetFromTab 2833 +#define wxNavigationKeyEvent_GetCurrentFocus 2834 +#define wxNavigationKeyEvent_SetCurrentFocus 2835 +#define wxHelpEvent_GetOrigin 2836 +#define wxHelpEvent_GetPosition 2837 +#define wxHelpEvent_SetOrigin 2838 +#define wxHelpEvent_SetPosition 2839 +#define wxContextMenuEvent_GetPosition 2840 +#define wxContextMenuEvent_SetPosition 2841 +#define wxIdleEvent_CanSend 2842 +#define wxIdleEvent_GetMode 2843 +#define wxIdleEvent_RequestMore 2844 +#define wxIdleEvent_MoreRequested 2845 +#define wxIdleEvent_SetMode 2846 +#define wxGridEvent_AltDown 2847 +#define wxGridEvent_ControlDown 2848 +#define wxGridEvent_GetCol 2849 +#define wxGridEvent_GetPosition 2850 +#define wxGridEvent_GetRow 2851 +#define wxGridEvent_MetaDown 2852 +#define wxGridEvent_Selecting 2853 +#define wxGridEvent_ShiftDown 2854 +#define wxNotifyEvent_Allow 2855 +#define wxNotifyEvent_IsAllowed 2856 +#define wxNotifyEvent_Veto 2857 +#define wxSashEvent_GetEdge 2858 +#define wxSashEvent_GetDragRect 2859 +#define wxSashEvent_GetDragStatus 2860 +#define wxListEvent_GetCacheFrom 2861 +#define wxListEvent_GetCacheTo 2862 +#define wxListEvent_GetKeyCode 2863 +#define wxListEvent_GetIndex 2864 +#define wxListEvent_GetColumn 2865 +#define wxListEvent_GetPoint 2866 +#define wxListEvent_GetLabel 2867 +#define wxListEvent_GetText 2868 +#define wxListEvent_GetImage 2869 +#define wxListEvent_GetData 2870 +#define wxListEvent_GetMask 2871 +#define wxListEvent_GetItem 2872 +#define wxListEvent_IsEditCancelled 2873 +#define wxDateEvent_GetDate 2874 +#define wxCalendarEvent_GetWeekDay 2875 +#define wxFileDirPickerEvent_GetPath 2876 +#define wxColourPickerEvent_GetColour 2877 +#define wxFontPickerEvent_GetFont 2878 +#define wxStyledTextEvent_GetPosition 2879 +#define wxStyledTextEvent_GetKey 2880 +#define wxStyledTextEvent_GetModifiers 2881 +#define wxStyledTextEvent_GetModificationType 2882 +#define wxStyledTextEvent_GetText 2883 +#define wxStyledTextEvent_GetLength 2884 +#define wxStyledTextEvent_GetLinesAdded 2885 +#define wxStyledTextEvent_GetLine 2886 +#define wxStyledTextEvent_GetFoldLevelNow 2887 +#define wxStyledTextEvent_GetFoldLevelPrev 2888 +#define wxStyledTextEvent_GetMargin 2889 +#define wxStyledTextEvent_GetMessage 2890 +#define wxStyledTextEvent_GetWParam 2891 +#define wxStyledTextEvent_GetLParam 2892 +#define wxStyledTextEvent_GetListType 2893 +#define wxStyledTextEvent_GetX 2894 +#define wxStyledTextEvent_GetY 2895 +#define wxStyledTextEvent_GetDragText 2896 +#define wxStyledTextEvent_GetDragAllowMove 2897 +#define wxStyledTextEvent_GetDragResult 2898 +#define wxStyledTextEvent_GetShift 2899 +#define wxStyledTextEvent_GetControl 2900 +#define wxStyledTextEvent_GetAlt 2901 +#define utils_wxGetKeyState 2902 +#define utils_wxGetMousePosition 2903 +#define utils_wxGetMouseState 2904 +#define utils_wxSetDetectableAutoRepeat 2905 +#define utils_wxBell 2906 +#define utils_wxFindMenuItemId 2907 +#define utils_wxGenericFindWindowAtPoint 2908 +#define utils_wxFindWindowAtPoint 2909 +#define utils_wxBeginBusyCursor 2910 +#define utils_wxEndBusyCursor 2911 +#define utils_wxIsBusy 2912 +#define utils_wxShutdown 2913 +#define utils_wxShell 2914 +#define utils_wxLaunchDefaultBrowser 2915 +#define utils_wxGetEmailAddress 2916 +#define utils_wxGetUserId 2917 +#define utils_wxGetHomeDir 2918 +#define utils_wxNewId 2919 +#define utils_wxRegisterId 2920 +#define utils_wxGetCurrentId 2921 +#define utils_wxGetOsDescription 2922 +#define utils_wxIsPlatformLittleEndian 2923 +#define utils_wxIsPlatform64Bit 2924 +#define wxPrintout_new 2925 +#define wxPrintout_destruct 2926 +#define wxPrintout_GetDC 2927 +#define wxPrintout_GetPageSizeMM 2928 +#define wxPrintout_GetPageSizePixels 2929 +#define wxPrintout_GetPaperRectPixels 2930 +#define wxPrintout_GetPPIPrinter 2931 +#define wxPrintout_GetPPIScreen 2932 +#define wxPrintout_GetTitle 2933 +#define wxPrintout_IsPreview 2934 +#define wxPrintout_FitThisSizeToPaper 2935 +#define wxPrintout_FitThisSizeToPage 2936 +#define wxPrintout_FitThisSizeToPageMargins 2937 +#define wxPrintout_MapScreenSizeToPaper 2938 +#define wxPrintout_MapScreenSizeToPage 2939 +#define wxPrintout_MapScreenSizeToPageMargins 2940 +#define wxPrintout_MapScreenSizeToDevice 2941 +#define wxPrintout_GetLogicalPaperRect 2942 +#define wxPrintout_GetLogicalPageRect 2943 +#define wxPrintout_GetLogicalPageMarginsRect 2944 +#define wxPrintout_SetLogicalOrigin 2945 +#define wxPrintout_OffsetLogicalOrigin 2946 +#define wxStyledTextCtrl_new_2 2947 +#define wxStyledTextCtrl_new_0 2948 +#define wxStyledTextCtrl_destruct 2949 +#define wxStyledTextCtrl_Create 2950 +#define wxStyledTextCtrl_AddText 2951 +#define wxStyledTextCtrl_AddStyledText 2952 +#define wxStyledTextCtrl_InsertText 2953 +#define wxStyledTextCtrl_ClearAll 2954 +#define wxStyledTextCtrl_ClearDocumentStyle 2955 +#define wxStyledTextCtrl_GetLength 2956 +#define wxStyledTextCtrl_GetCharAt 2957 +#define wxStyledTextCtrl_GetCurrentPos 2958 +#define wxStyledTextCtrl_GetAnchor 2959 +#define wxStyledTextCtrl_GetStyleAt 2960 +#define wxStyledTextCtrl_Redo 2961 +#define wxStyledTextCtrl_SetUndoCollection 2962 +#define wxStyledTextCtrl_SelectAll 2963 +#define wxStyledTextCtrl_SetSavePoint 2964 +#define wxStyledTextCtrl_GetStyledText 2965 +#define wxStyledTextCtrl_CanRedo 2966 +#define wxStyledTextCtrl_MarkerLineFromHandle 2967 +#define wxStyledTextCtrl_MarkerDeleteHandle 2968 +#define wxStyledTextCtrl_GetUndoCollection 2969 +#define wxStyledTextCtrl_GetViewWhiteSpace 2970 +#define wxStyledTextCtrl_SetViewWhiteSpace 2971 +#define wxStyledTextCtrl_PositionFromPoint 2972 +#define wxStyledTextCtrl_PositionFromPointClose 2973 +#define wxStyledTextCtrl_GotoLine 2974 +#define wxStyledTextCtrl_GotoPos 2975 +#define wxStyledTextCtrl_SetAnchor 2976 +#define wxStyledTextCtrl_GetCurLine 2977 +#define wxStyledTextCtrl_GetEndStyled 2978 +#define wxStyledTextCtrl_ConvertEOLs 2979 +#define wxStyledTextCtrl_GetEOLMode 2980 +#define wxStyledTextCtrl_SetEOLMode 2981 +#define wxStyledTextCtrl_StartStyling 2982 +#define wxStyledTextCtrl_SetStyling 2983 +#define wxStyledTextCtrl_GetBufferedDraw 2984 +#define wxStyledTextCtrl_SetBufferedDraw 2985 +#define wxStyledTextCtrl_SetTabWidth 2986 +#define wxStyledTextCtrl_GetTabWidth 2987 +#define wxStyledTextCtrl_SetCodePage 2988 +#define wxStyledTextCtrl_MarkerDefine 2989 +#define wxStyledTextCtrl_MarkerSetForeground 2990 +#define wxStyledTextCtrl_MarkerSetBackground 2991 +#define wxStyledTextCtrl_MarkerAdd 2992 +#define wxStyledTextCtrl_MarkerDelete 2993 +#define wxStyledTextCtrl_MarkerDeleteAll 2994 +#define wxStyledTextCtrl_MarkerGet 2995 +#define wxStyledTextCtrl_MarkerNext 2996 +#define wxStyledTextCtrl_MarkerPrevious 2997 +#define wxStyledTextCtrl_MarkerDefineBitmap 2998 +#define wxStyledTextCtrl_MarkerAddSet 2999 +#define wxStyledTextCtrl_MarkerSetAlpha 3000 +#define wxStyledTextCtrl_SetMarginType 3001 +#define wxStyledTextCtrl_GetMarginType 3002 +#define wxStyledTextCtrl_SetMarginWidth 3003 +#define wxStyledTextCtrl_GetMarginWidth 3004 +#define wxStyledTextCtrl_SetMarginMask 3005 +#define wxStyledTextCtrl_GetMarginMask 3006 +#define wxStyledTextCtrl_SetMarginSensitive 3007 +#define wxStyledTextCtrl_GetMarginSensitive 3008 +#define wxStyledTextCtrl_StyleClearAll 3009 +#define wxStyledTextCtrl_StyleSetForeground 3010 +#define wxStyledTextCtrl_StyleSetBackground 3011 +#define wxStyledTextCtrl_StyleSetBold 3012 +#define wxStyledTextCtrl_StyleSetItalic 3013 +#define wxStyledTextCtrl_StyleSetSize 3014 +#define wxStyledTextCtrl_StyleSetFaceName 3015 +#define wxStyledTextCtrl_StyleSetEOLFilled 3016 +#define wxStyledTextCtrl_StyleResetDefault 3017 +#define wxStyledTextCtrl_StyleSetUnderline 3018 +#define wxStyledTextCtrl_StyleSetCase 3019 +#define wxStyledTextCtrl_StyleSetHotSpot 3020 +#define wxStyledTextCtrl_SetSelForeground 3021 +#define wxStyledTextCtrl_SetSelBackground 3022 +#define wxStyledTextCtrl_GetSelAlpha 3023 +#define wxStyledTextCtrl_SetSelAlpha 3024 +#define wxStyledTextCtrl_SetCaretForeground 3025 +#define wxStyledTextCtrl_CmdKeyAssign 3026 +#define wxStyledTextCtrl_CmdKeyClear 3027 +#define wxStyledTextCtrl_CmdKeyClearAll 3028 +#define wxStyledTextCtrl_SetStyleBytes 3029 +#define wxStyledTextCtrl_StyleSetVisible 3030 +#define wxStyledTextCtrl_GetCaretPeriod 3031 +#define wxStyledTextCtrl_SetCaretPeriod 3032 +#define wxStyledTextCtrl_SetWordChars 3033 +#define wxStyledTextCtrl_BeginUndoAction 3034 +#define wxStyledTextCtrl_EndUndoAction 3035 +#define wxStyledTextCtrl_IndicatorSetStyle 3036 +#define wxStyledTextCtrl_IndicatorGetStyle 3037 +#define wxStyledTextCtrl_IndicatorSetForeground 3038 +#define wxStyledTextCtrl_IndicatorGetForeground 3039 +#define wxStyledTextCtrl_SetWhitespaceForeground 3040 +#define wxStyledTextCtrl_SetWhitespaceBackground 3041 +#define wxStyledTextCtrl_GetStyleBits 3042 +#define wxStyledTextCtrl_SetLineState 3043 +#define wxStyledTextCtrl_GetLineState 3044 +#define wxStyledTextCtrl_GetMaxLineState 3045 +#define wxStyledTextCtrl_GetCaretLineVisible 3046 +#define wxStyledTextCtrl_SetCaretLineVisible 3047 +#define wxStyledTextCtrl_GetCaretLineBackground 3048 +#define wxStyledTextCtrl_SetCaretLineBackground 3049 +#define wxStyledTextCtrl_AutoCompShow 3050 +#define wxStyledTextCtrl_AutoCompCancel 3051 +#define wxStyledTextCtrl_AutoCompActive 3052 +#define wxStyledTextCtrl_AutoCompPosStart 3053 +#define wxStyledTextCtrl_AutoCompComplete 3054 +#define wxStyledTextCtrl_AutoCompStops 3055 +#define wxStyledTextCtrl_AutoCompSetSeparator 3056 +#define wxStyledTextCtrl_AutoCompGetSeparator 3057 +#define wxStyledTextCtrl_AutoCompSelect 3058 +#define wxStyledTextCtrl_AutoCompSetCancelAtStart 3059 +#define wxStyledTextCtrl_AutoCompGetCancelAtStart 3060 +#define wxStyledTextCtrl_AutoCompSetFillUps 3061 +#define wxStyledTextCtrl_AutoCompSetChooseSingle 3062 +#define wxStyledTextCtrl_AutoCompGetChooseSingle 3063 +#define wxStyledTextCtrl_AutoCompSetIgnoreCase 3064 +#define wxStyledTextCtrl_AutoCompGetIgnoreCase 3065 +#define wxStyledTextCtrl_UserListShow 3066 +#define wxStyledTextCtrl_AutoCompSetAutoHide 3067 +#define wxStyledTextCtrl_AutoCompGetAutoHide 3068 +#define wxStyledTextCtrl_AutoCompSetDropRestOfWord 3069 +#define wxStyledTextCtrl_AutoCompGetDropRestOfWord 3070 +#define wxStyledTextCtrl_RegisterImage 3071 +#define wxStyledTextCtrl_ClearRegisteredImages 3072 +#define wxStyledTextCtrl_AutoCompGetTypeSeparator 3073 +#define wxStyledTextCtrl_AutoCompSetTypeSeparator 3074 +#define wxStyledTextCtrl_AutoCompSetMaxWidth 3075 +#define wxStyledTextCtrl_AutoCompGetMaxWidth 3076 +#define wxStyledTextCtrl_AutoCompSetMaxHeight 3077 +#define wxStyledTextCtrl_AutoCompGetMaxHeight 3078 +#define wxStyledTextCtrl_SetIndent 3079 +#define wxStyledTextCtrl_GetIndent 3080 +#define wxStyledTextCtrl_SetUseTabs 3081 +#define wxStyledTextCtrl_GetUseTabs 3082 +#define wxStyledTextCtrl_SetLineIndentation 3083 +#define wxStyledTextCtrl_GetLineIndentation 3084 +#define wxStyledTextCtrl_GetLineIndentPosition 3085 +#define wxStyledTextCtrl_GetColumn 3086 +#define wxStyledTextCtrl_SetUseHorizontalScrollBar 3087 +#define wxStyledTextCtrl_GetUseHorizontalScrollBar 3088 +#define wxStyledTextCtrl_SetIndentationGuides 3089 +#define wxStyledTextCtrl_GetIndentationGuides 3090 +#define wxStyledTextCtrl_SetHighlightGuide 3091 +#define wxStyledTextCtrl_GetHighlightGuide 3092 +#define wxStyledTextCtrl_GetLineEndPosition 3093 +#define wxStyledTextCtrl_GetCodePage 3094 +#define wxStyledTextCtrl_GetCaretForeground 3095 +#define wxStyledTextCtrl_GetReadOnly 3096 +#define wxStyledTextCtrl_SetCurrentPos 3097 +#define wxStyledTextCtrl_SetSelectionStart 3098 +#define wxStyledTextCtrl_GetSelectionStart 3099 +#define wxStyledTextCtrl_SetSelectionEnd 3100 +#define wxStyledTextCtrl_GetSelectionEnd 3101 +#define wxStyledTextCtrl_SetPrintMagnification 3102 +#define wxStyledTextCtrl_GetPrintMagnification 3103 +#define wxStyledTextCtrl_SetPrintColourMode 3104 +#define wxStyledTextCtrl_GetPrintColourMode 3105 +#define wxStyledTextCtrl_FindText 3106 +#define wxStyledTextCtrl_FormatRange 3107 +#define wxStyledTextCtrl_GetFirstVisibleLine 3108 +#define wxStyledTextCtrl_GetLine 3109 +#define wxStyledTextCtrl_GetLineCount 3110 +#define wxStyledTextCtrl_SetMarginLeft 3111 +#define wxStyledTextCtrl_GetMarginLeft 3112 +#define wxStyledTextCtrl_SetMarginRight 3113 +#define wxStyledTextCtrl_GetMarginRight 3114 +#define wxStyledTextCtrl_GetModify 3115 +#define wxStyledTextCtrl_SetSelection 3116 +#define wxStyledTextCtrl_GetSelectedText 3117 +#define wxStyledTextCtrl_GetTextRange 3118 +#define wxStyledTextCtrl_HideSelection 3119 +#define wxStyledTextCtrl_LineFromPosition 3120 +#define wxStyledTextCtrl_PositionFromLine 3121 +#define wxStyledTextCtrl_LineScroll 3122 +#define wxStyledTextCtrl_EnsureCaretVisible 3123 +#define wxStyledTextCtrl_ReplaceSelection 3124 +#define wxStyledTextCtrl_SetReadOnly 3125 +#define wxStyledTextCtrl_CanPaste 3126 +#define wxStyledTextCtrl_CanUndo 3127 +#define wxStyledTextCtrl_EmptyUndoBuffer 3128 +#define wxStyledTextCtrl_Undo 3129 +#define wxStyledTextCtrl_Cut 3130 +#define wxStyledTextCtrl_Copy 3131 +#define wxStyledTextCtrl_Paste 3132 +#define wxStyledTextCtrl_Clear 3133 +#define wxStyledTextCtrl_SetText 3134 +#define wxStyledTextCtrl_GetText 3135 +#define wxStyledTextCtrl_GetTextLength 3136 +#define wxStyledTextCtrl_GetOvertype 3137 +#define wxStyledTextCtrl_SetCaretWidth 3138 +#define wxStyledTextCtrl_GetCaretWidth 3139 +#define wxStyledTextCtrl_SetTargetStart 3140 +#define wxStyledTextCtrl_GetTargetStart 3141 +#define wxStyledTextCtrl_SetTargetEnd 3142 +#define wxStyledTextCtrl_GetTargetEnd 3143 +#define wxStyledTextCtrl_ReplaceTarget 3144 +#define wxStyledTextCtrl_SearchInTarget 3145 +#define wxStyledTextCtrl_SetSearchFlags 3146 +#define wxStyledTextCtrl_GetSearchFlags 3147 +#define wxStyledTextCtrl_CallTipShow 3148 +#define wxStyledTextCtrl_CallTipCancel 3149 +#define wxStyledTextCtrl_CallTipActive 3150 +#define wxStyledTextCtrl_CallTipPosAtStart 3151 +#define wxStyledTextCtrl_CallTipSetHighlight 3152 +#define wxStyledTextCtrl_CallTipSetBackground 3153 +#define wxStyledTextCtrl_CallTipSetForeground 3154 +#define wxStyledTextCtrl_CallTipSetForegroundHighlight 3155 +#define wxStyledTextCtrl_CallTipUseStyle 3156 +#define wxStyledTextCtrl_VisibleFromDocLine 3157 +#define wxStyledTextCtrl_DocLineFromVisible 3158 +#define wxStyledTextCtrl_WrapCount 3159 +#define wxStyledTextCtrl_SetFoldLevel 3160 +#define wxStyledTextCtrl_GetFoldLevel 3161 +#define wxStyledTextCtrl_GetLastChild 3162 +#define wxStyledTextCtrl_GetFoldParent 3163 +#define wxStyledTextCtrl_ShowLines 3164 +#define wxStyledTextCtrl_HideLines 3165 +#define wxStyledTextCtrl_GetLineVisible 3166 +#define wxStyledTextCtrl_SetFoldExpanded 3167 +#define wxStyledTextCtrl_GetFoldExpanded 3168 +#define wxStyledTextCtrl_ToggleFold 3169 +#define wxStyledTextCtrl_EnsureVisible 3170 +#define wxStyledTextCtrl_SetFoldFlags 3171 +#define wxStyledTextCtrl_EnsureVisibleEnforcePolicy 3172 +#define wxStyledTextCtrl_SetTabIndents 3173 +#define wxStyledTextCtrl_GetTabIndents 3174 +#define wxStyledTextCtrl_SetBackSpaceUnIndents 3175 +#define wxStyledTextCtrl_GetBackSpaceUnIndents 3176 +#define wxStyledTextCtrl_SetMouseDwellTime 3177 +#define wxStyledTextCtrl_GetMouseDwellTime 3178 +#define wxStyledTextCtrl_WordStartPosition 3179 +#define wxStyledTextCtrl_WordEndPosition 3180 +#define wxStyledTextCtrl_SetWrapMode 3181 +#define wxStyledTextCtrl_GetWrapMode 3182 +#define wxStyledTextCtrl_SetWrapVisualFlags 3183 +#define wxStyledTextCtrl_GetWrapVisualFlags 3184 +#define wxStyledTextCtrl_SetWrapVisualFlagsLocation 3185 +#define wxStyledTextCtrl_GetWrapVisualFlagsLocation 3186 +#define wxStyledTextCtrl_SetWrapStartIndent 3187 +#define wxStyledTextCtrl_GetWrapStartIndent 3188 +#define wxStyledTextCtrl_SetLayoutCache 3189 +#define wxStyledTextCtrl_GetLayoutCache 3190 +#define wxStyledTextCtrl_SetScrollWidth 3191 +#define wxStyledTextCtrl_GetScrollWidth 3192 +#define wxStyledTextCtrl_TextWidth 3193 +#define wxStyledTextCtrl_GetEndAtLastLine 3194 +#define wxStyledTextCtrl_TextHeight 3195 +#define wxStyledTextCtrl_SetUseVerticalScrollBar 3196 +#define wxStyledTextCtrl_GetUseVerticalScrollBar 3197 +#define wxStyledTextCtrl_AppendText 3198 +#define wxStyledTextCtrl_GetTwoPhaseDraw 3199 +#define wxStyledTextCtrl_SetTwoPhaseDraw 3200 +#define wxStyledTextCtrl_TargetFromSelection 3201 +#define wxStyledTextCtrl_LinesJoin 3202 +#define wxStyledTextCtrl_LinesSplit 3203 +#define wxStyledTextCtrl_SetFoldMarginColour 3204 +#define wxStyledTextCtrl_SetFoldMarginHiColour 3205 +#define wxStyledTextCtrl_LineDown 3206 +#define wxStyledTextCtrl_LineDownExtend 3207 +#define wxStyledTextCtrl_LineUp 3208 +#define wxStyledTextCtrl_LineUpExtend 3209 +#define wxStyledTextCtrl_CharLeft 3210 +#define wxStyledTextCtrl_CharLeftExtend 3211 +#define wxStyledTextCtrl_CharRight 3212 +#define wxStyledTextCtrl_CharRightExtend 3213 +#define wxStyledTextCtrl_WordLeft 3214 +#define wxStyledTextCtrl_WordLeftExtend 3215 +#define wxStyledTextCtrl_WordRight 3216 +#define wxStyledTextCtrl_WordRightExtend 3217 +#define wxStyledTextCtrl_Home 3218 +#define wxStyledTextCtrl_HomeExtend 3219 +#define wxStyledTextCtrl_LineEnd 3220 +#define wxStyledTextCtrl_LineEndExtend 3221 +#define wxStyledTextCtrl_DocumentStart 3222 +#define wxStyledTextCtrl_DocumentStartExtend 3223 +#define wxStyledTextCtrl_DocumentEnd 3224 +#define wxStyledTextCtrl_DocumentEndExtend 3225 +#define wxStyledTextCtrl_PageUp 3226 +#define wxStyledTextCtrl_PageUpExtend 3227 +#define wxStyledTextCtrl_PageDown 3228 +#define wxStyledTextCtrl_PageDownExtend 3229 +#define wxStyledTextCtrl_EditToggleOvertype 3230 +#define wxStyledTextCtrl_Cancel 3231 +#define wxStyledTextCtrl_DeleteBack 3232 +#define wxStyledTextCtrl_Tab 3233 +#define wxStyledTextCtrl_BackTab 3234 +#define wxStyledTextCtrl_NewLine 3235 +#define wxStyledTextCtrl_FormFeed 3236 +#define wxStyledTextCtrl_VCHome 3237 +#define wxStyledTextCtrl_VCHomeExtend 3238 +#define wxStyledTextCtrl_ZoomIn 3239 +#define wxStyledTextCtrl_ZoomOut 3240 +#define wxStyledTextCtrl_DelWordLeft 3241 +#define wxStyledTextCtrl_DelWordRight 3242 +#define wxStyledTextCtrl_LineCut 3243 +#define wxStyledTextCtrl_LineDelete 3244 +#define wxStyledTextCtrl_LineTranspose 3245 +#define wxStyledTextCtrl_LineDuplicate 3246 +#define wxStyledTextCtrl_LowerCase 3247 +#define wxStyledTextCtrl_UpperCase 3248 +#define wxStyledTextCtrl_LineScrollDown 3249 +#define wxStyledTextCtrl_LineScrollUp 3250 +#define wxStyledTextCtrl_DeleteBackNotLine 3251 +#define wxStyledTextCtrl_HomeDisplay 3252 +#define wxStyledTextCtrl_HomeDisplayExtend 3253 +#define wxStyledTextCtrl_LineEndDisplay 3254 +#define wxStyledTextCtrl_LineEndDisplayExtend 3255 +#define wxStyledTextCtrl_HomeWrapExtend 3256 +#define wxStyledTextCtrl_LineEndWrap 3257 +#define wxStyledTextCtrl_LineEndWrapExtend 3258 +#define wxStyledTextCtrl_VCHomeWrap 3259 +#define wxStyledTextCtrl_VCHomeWrapExtend 3260 +#define wxStyledTextCtrl_LineCopy 3261 +#define wxStyledTextCtrl_MoveCaretInsideView 3262 +#define wxStyledTextCtrl_LineLength 3263 +#define wxStyledTextCtrl_BraceHighlight 3264 +#define wxStyledTextCtrl_BraceBadLight 3265 +#define wxStyledTextCtrl_BraceMatch 3266 +#define wxStyledTextCtrl_GetViewEOL 3267 +#define wxStyledTextCtrl_SetViewEOL 3268 +#define wxStyledTextCtrl_SetModEventMask 3269 +#define wxStyledTextCtrl_GetEdgeColumn 3270 +#define wxStyledTextCtrl_SetEdgeColumn 3271 +#define wxStyledTextCtrl_GetEdgeMode 3272 +#define wxStyledTextCtrl_GetEdgeColour 3273 +#define wxStyledTextCtrl_SetEdgeColour 3274 +#define wxStyledTextCtrl_SearchAnchor 3275 +#define wxStyledTextCtrl_SearchNext 3276 +#define wxStyledTextCtrl_SearchPrev 3277 +#define wxStyledTextCtrl_LinesOnScreen 3278 +#define wxStyledTextCtrl_UsePopUp 3279 +#define wxStyledTextCtrl_SelectionIsRectangle 3280 +#define wxStyledTextCtrl_SetZoom 3281 +#define wxStyledTextCtrl_GetZoom 3282 +#define wxStyledTextCtrl_GetModEventMask 3283 +#define wxStyledTextCtrl_SetSTCFocus 3284 +#define wxStyledTextCtrl_GetSTCFocus 3285 +#define wxStyledTextCtrl_SetStatus 3286 +#define wxStyledTextCtrl_GetStatus 3287 +#define wxStyledTextCtrl_SetMouseDownCaptures 3288 +#define wxStyledTextCtrl_GetMouseDownCaptures 3289 +#define wxStyledTextCtrl_SetSTCCursor 3290 +#define wxStyledTextCtrl_GetSTCCursor 3291 +#define wxStyledTextCtrl_SetControlCharSymbol 3292 +#define wxStyledTextCtrl_GetControlCharSymbol 3293 +#define wxStyledTextCtrl_WordPartLeft 3294 +#define wxStyledTextCtrl_WordPartLeftExtend 3295 +#define wxStyledTextCtrl_WordPartRight 3296 +#define wxStyledTextCtrl_WordPartRightExtend 3297 +#define wxStyledTextCtrl_SetVisiblePolicy 3298 +#define wxStyledTextCtrl_DelLineLeft 3299 +#define wxStyledTextCtrl_DelLineRight 3300 +#define wxStyledTextCtrl_GetXOffset 3301 +#define wxStyledTextCtrl_ChooseCaretX 3302 +#define wxStyledTextCtrl_SetXCaretPolicy 3303 +#define wxStyledTextCtrl_SetYCaretPolicy 3304 +#define wxStyledTextCtrl_GetPrintWrapMode 3305 +#define wxStyledTextCtrl_SetHotspotActiveForeground 3306 +#define wxStyledTextCtrl_SetHotspotActiveBackground 3307 +#define wxStyledTextCtrl_SetHotspotActiveUnderline 3308 +#define wxStyledTextCtrl_SetHotspotSingleLine 3309 +#define wxStyledTextCtrl_ParaDownExtend 3310 +#define wxStyledTextCtrl_ParaUp 3311 +#define wxStyledTextCtrl_ParaUpExtend 3312 +#define wxStyledTextCtrl_PositionBefore 3313 +#define wxStyledTextCtrl_PositionAfter 3314 +#define wxStyledTextCtrl_CopyRange 3315 +#define wxStyledTextCtrl_CopyText 3316 +#define wxStyledTextCtrl_SetSelectionMode 3317 +#define wxStyledTextCtrl_GetSelectionMode 3318 +#define wxStyledTextCtrl_LineDownRectExtend 3319 +#define wxStyledTextCtrl_LineUpRectExtend 3320 +#define wxStyledTextCtrl_CharLeftRectExtend 3321 +#define wxStyledTextCtrl_CharRightRectExtend 3322 +#define wxStyledTextCtrl_HomeRectExtend 3323 +#define wxStyledTextCtrl_VCHomeRectExtend 3324 +#define wxStyledTextCtrl_LineEndRectExtend 3325 +#define wxStyledTextCtrl_PageUpRectExtend 3326 +#define wxStyledTextCtrl_PageDownRectExtend 3327 +#define wxStyledTextCtrl_StutteredPageUp 3328 +#define wxStyledTextCtrl_StutteredPageUpExtend 3329 +#define wxStyledTextCtrl_StutteredPageDown 3330 +#define wxStyledTextCtrl_StutteredPageDownExtend 3331 +#define wxStyledTextCtrl_WordLeftEnd 3332 +#define wxStyledTextCtrl_WordLeftEndExtend 3333 +#define wxStyledTextCtrl_WordRightEnd 3334 +#define wxStyledTextCtrl_WordRightEndExtend 3335 +#define wxStyledTextCtrl_SetWhitespaceChars 3336 +#define wxStyledTextCtrl_SetCharsDefault 3337 +#define wxStyledTextCtrl_AutoCompGetCurrent 3338 +#define wxStyledTextCtrl_Allocate 3339 +#define wxStyledTextCtrl_FindColumn 3340 +#define wxStyledTextCtrl_GetCaretSticky 3341 +#define wxStyledTextCtrl_SetCaretSticky 3342 +#define wxStyledTextCtrl_ToggleCaretSticky 3343 +#define wxStyledTextCtrl_SetPasteConvertEndings 3344 +#define wxStyledTextCtrl_GetPasteConvertEndings 3345 +#define wxStyledTextCtrl_SelectionDuplicate 3346 +#define wxStyledTextCtrl_SetCaretLineBackAlpha 3347 +#define wxStyledTextCtrl_GetCaretLineBackAlpha 3348 +#define wxStyledTextCtrl_StartRecord 3349 +#define wxStyledTextCtrl_StopRecord 3350 +#define wxStyledTextCtrl_SetLexer 3351 +#define wxStyledTextCtrl_GetLexer 3352 +#define wxStyledTextCtrl_Colourise 3353 +#define wxStyledTextCtrl_SetProperty 3354 +#define wxStyledTextCtrl_SetKeyWords 3355 +#define wxStyledTextCtrl_SetLexerLanguage 3356 +#define wxStyledTextCtrl_GetProperty 3357 +#define wxStyledTextCtrl_GetStyleBitsNeeded 3358 +#define wxStyledTextCtrl_GetCurrentLine 3359 +#define wxStyledTextCtrl_StyleSetSpec 3360 +#define wxStyledTextCtrl_StyleSetFont 3361 +#define wxStyledTextCtrl_StyleSetFontAttr 3362 +#define wxStyledTextCtrl_StyleSetCharacterSet 3363 +#define wxStyledTextCtrl_StyleSetFontEncoding 3364 +#define wxStyledTextCtrl_CmdKeyExecute 3365 +#define wxStyledTextCtrl_SetMargins 3366 +#define wxStyledTextCtrl_GetSelection 3367 +#define wxStyledTextCtrl_PointFromPosition 3368 +#define wxStyledTextCtrl_ScrollToLine 3369 +#define wxStyledTextCtrl_ScrollToColumn 3370 +#define wxStyledTextCtrl_SendMsg 3371 +#define wxStyledTextCtrl_SetVScrollBar 3372 +#define wxStyledTextCtrl_SetHScrollBar 3373 +#define wxStyledTextCtrl_GetLastKeydownProcessed 3374 +#define wxStyledTextCtrl_SetLastKeydownProcessed 3375 +#define wxStyledTextCtrl_SaveFile 3376 +#define wxStyledTextCtrl_LoadFile 3377 +#define wxStyledTextCtrl_DoDragOver 3378 +#define wxStyledTextCtrl_DoDropText 3379 +#define wxStyledTextCtrl_GetUseAntiAliasing 3380 +#define wxStyledTextCtrl_AddTextRaw 3381 +#define wxStyledTextCtrl_InsertTextRaw 3382 +#define wxStyledTextCtrl_GetCurLineRaw 3383 +#define wxStyledTextCtrl_GetLineRaw 3384 +#define wxStyledTextCtrl_GetSelectedTextRaw 3385 +#define wxStyledTextCtrl_GetTextRangeRaw 3386 +#define wxStyledTextCtrl_SetTextRaw 3387 +#define wxStyledTextCtrl_GetTextRaw 3388 +#define wxStyledTextCtrl_AppendTextRaw 3389 +#define wxArtProvider_GetBitmap 3390 +#define wxArtProvider_GetIcon 3391 +#define wxTreeEvent_GetKeyCode 3392 +#define wxTreeEvent_GetItem 3393 +#define wxTreeEvent_GetKeyEvent 3394 +#define wxTreeEvent_GetLabel 3395 +#define wxTreeEvent_GetOldItem 3396 +#define wxTreeEvent_GetPoint 3397 +#define wxTreeEvent_IsEditCancelled 3398 +#define wxTreeEvent_SetToolTip 3399 +#define wxNotebookEvent_GetOldSelection 3400 +#define wxNotebookEvent_GetSelection 3401 +#define wxNotebookEvent_SetOldSelection 3402 +#define wxNotebookEvent_SetSelection 3403 +#define wxFileDataObject_new 3404 +#define wxFileDataObject_AddFile 3405 +#define wxFileDataObject_GetFilenames 3406 +#define wxFileDataObject_destroy 3407 +#define wxTextDataObject_new 3408 +#define wxTextDataObject_GetTextLength 3409 +#define wxTextDataObject_GetText 3410 +#define wxTextDataObject_SetText 3411 +#define wxTextDataObject_destroy 3412 +#define wxBitmapDataObject_new_1_1 3413 +#define wxBitmapDataObject_new_1_0 3414 +#define wxBitmapDataObject_GetBitmap 3415 +#define wxBitmapDataObject_SetBitmap 3416 +#define wxBitmapDataObject_destroy 3417 +#define wxClipboard_new 3419 +#define wxClipboard_destruct 3420 +#define wxClipboard_AddData 3421 +#define wxClipboard_Clear 3422 +#define wxClipboard_Close 3423 +#define wxClipboard_Flush 3424 +#define wxClipboard_GetData 3425 +#define wxClipboard_IsOpened 3426 +#define wxClipboard_Open 3427 +#define wxClipboard_SetData 3428 +#define wxClipboard_UsePrimarySelection 3430 +#define wxClipboard_IsSupported 3431 +#define wxClipboard_Get 3432 +#define wxSpinEvent_GetPosition 3433 +#define wxSpinEvent_SetPosition 3434 +#define wxSplitterWindow_new_0 3435 +#define wxSplitterWindow_new_2 3436 +#define wxSplitterWindow_destruct 3437 +#define wxSplitterWindow_Create 3438 +#define wxSplitterWindow_GetMinimumPaneSize 3439 +#define wxSplitterWindow_GetSashGravity 3440 +#define wxSplitterWindow_GetSashPosition 3441 +#define wxSplitterWindow_GetSplitMode 3442 +#define wxSplitterWindow_GetWindow1 3443 +#define wxSplitterWindow_GetWindow2 3444 +#define wxSplitterWindow_Initialize 3445 +#define wxSplitterWindow_IsSplit 3446 +#define wxSplitterWindow_ReplaceWindow 3447 +#define wxSplitterWindow_SetSashGravity 3448 +#define wxSplitterWindow_SetSashPosition 3449 +#define wxSplitterWindow_SetSashSize 3450 +#define wxSplitterWindow_SetMinimumPaneSize 3451 +#define wxSplitterWindow_SetSplitMode 3452 +#define wxSplitterWindow_SplitHorizontally 3453 +#define wxSplitterWindow_SplitVertically 3454 +#define wxSplitterWindow_Unsplit 3455 +#define wxSplitterWindow_UpdateSize 3456 +#define wxSplitterEvent_GetSashPosition 3457 +#define wxSplitterEvent_GetX 3458 +#define wxSplitterEvent_GetY 3459 +#define wxSplitterEvent_GetWindowBeingRemoved 3460 +#define wxSplitterEvent_SetSashPosition 3461 +#define wxHtmlWindow_new_0 3462 +#define wxHtmlWindow_new_2 3463 +#define wxHtmlWindow_AppendToPage 3464 +#define wxHtmlWindow_GetOpenedAnchor 3465 +#define wxHtmlWindow_GetOpenedPage 3466 +#define wxHtmlWindow_GetOpenedPageTitle 3467 +#define wxHtmlWindow_GetRelatedFrame 3468 +#define wxHtmlWindow_HistoryBack 3469 +#define wxHtmlWindow_HistoryCanBack 3470 +#define wxHtmlWindow_HistoryCanForward 3471 +#define wxHtmlWindow_HistoryClear 3472 +#define wxHtmlWindow_HistoryForward 3473 +#define wxHtmlWindow_LoadFile 3474 +#define wxHtmlWindow_LoadPage 3475 +#define wxHtmlWindow_SelectAll 3476 +#define wxHtmlWindow_SelectionToText 3477 +#define wxHtmlWindow_SelectLine 3478 +#define wxHtmlWindow_SelectWord 3479 +#define wxHtmlWindow_SetBorders 3480 +#define wxHtmlWindow_SetFonts 3481 +#define wxHtmlWindow_SetPage 3482 +#define wxHtmlWindow_SetRelatedFrame 3483 +#define wxHtmlWindow_SetRelatedStatusBar 3484 +#define wxHtmlWindow_ToText 3485 +#define wxHtmlWindow_destroy 3486 +#define wxHtmlLinkEvent_GetLinkInfo 3487 +#define wxSystemSettings_GetColour 3488 +#define wxSystemSettings_GetFont 3489 +#define wxSystemSettings_GetMetric 3490 +#define wxSystemSettings_GetScreenType 3491 +#define wxAuiNotebookEvent_SetSelection 3492 +#define wxAuiNotebookEvent_GetSelection 3493 +#define wxAuiNotebookEvent_SetOldSelection 3494 +#define wxAuiNotebookEvent_GetOldSelection 3495 +#define wxAuiNotebookEvent_SetDragSource 3496 +#define wxAuiNotebookEvent_GetDragSource 3497 +#define wxAuiManagerEvent_SetManager 3498 +#define wxAuiManagerEvent_GetManager 3499 +#define wxAuiManagerEvent_SetPane 3500 +#define wxAuiManagerEvent_GetPane 3501 +#define wxAuiManagerEvent_SetButton 3502 +#define wxAuiManagerEvent_GetButton 3503 +#define wxAuiManagerEvent_SetDC 3504 +#define wxAuiManagerEvent_GetDC 3505 +#define wxAuiManagerEvent_Veto 3506 +#define wxAuiManagerEvent_GetVeto 3507 +#define wxAuiManagerEvent_SetCanVeto 3508 +#define wxAuiManagerEvent_CanVeto 3509 +#define wxLogNull_new 3510 +#define wxLogNull_destroy 3511 diff --git a/lib/wx/c_src/wxePrintout.cpp b/lib/wx/c_src/wxePrintout.cpp index ea1c76edcc..90959df379 100644 --- a/lib/wx/c_src/wxePrintout.cpp +++ b/lib/wx/c_src/wxePrintout.cpp @@ -1,41 +1,62 @@ /* * %CopyrightBegin% - * - * Copyright Ericsson AB 2008-2009. All Rights Reserved. - * + * + * Copyright Ericsson AB 2008-2011. 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% + * + * %CopyrightEnd% */ #include <wx/wx.h> #include "wxe_impl.h" #include "wxe_return.h" +#include "gen/wxe_macros.h" +#include "gen/wxe_derived_dest.h" /* *****************************************************************/ /* Special Class impls */ +#define INVOKE_CALLBACK_INIT(port, callback, class_str) \ + { \ + wxeMemEnv * memenv = ((WxeApp *) wxTheApp)->getMemEnv(port); \ + wxeReturn rt = wxeReturn(WXE_DRV_PORT, memenv->owner, false); \ + rt.addInt(callback); \ + rt.addRef(((WxeApp *) wxTheApp)->getRef((void *)this, memenv), class_str); + +#define INVOKE_CALLBACK_END(port, args) \ + rt.endList(1 + (args)); \ + rt.addAtom("_wx_invoke_cb_"); \ + rt.addTupleCount(3); \ + rt.send(); \ + handle_event_callback(port, memenv->owner); \ + } + +#define INVOKE_CALLBACK(port, callback, class_str) \ + INVOKE_CALLBACK_INIT(port, callback, class_str); \ + INVOKE_CALLBACK_END(port, 0) +/* *****************************************************************/ /* Printing special */ wxEPrintout::~wxEPrintout() { - clear_cb(onPrintPage); - clear_cb(onPreparePrinting); - clear_cb(onBeginPrinting); - clear_cb(onEndPrinting); - clear_cb(onBeginDocument); - clear_cb(onEndDocument); - clear_cb(hasPage); - clear_cb(getPageInfo); + clear_cb(port, onPrintPage); + clear_cb(port, onPreparePrinting); + clear_cb(port, onBeginPrinting); + clear_cb(port, onEndPrinting); + clear_cb(port, onBeginDocument); + clear_cb(port, onEndDocument); + clear_cb(port, hasPage); + clear_cb(port, getPageInfo); ((WxeApp *)wxTheApp)->clearPtr(this); } @@ -43,73 +64,44 @@ wxEPrintout::~wxEPrintout() { bool wxEPrintout::OnBeginDocument(int startPage, int endPage) { if(onBeginDocument) { - wxeMemEnv * memenv = ((WxeApp *) wxTheApp)->getMemEnv(port); - char * bp = ((WxeApp *) wxTheApp)->cb_buff; - - wxeReturn rt = wxeReturn(WXE_DRV_PORT, memenv->owner, false); - rt.addInt(onBeginDocument); - rt.addRef(((WxeApp *) wxTheApp)->getRef((void *)this, memenv), "wxPrintout"); + INVOKE_CALLBACK_INIT(port, onBeginDocument, "wxPrintout"); rt.addInt(startPage); rt.addInt(endPage); - rt.endList(3); - rt.addAtom("_wx_invoke_cb_"); - rt.addTupleCount(3); - rt.send(); - handle_callback_batch(port); - return *(int*) bp; - } else { - return wxPrintout::OnBeginDocument(startPage,endPage); - } + INVOKE_CALLBACK_END(port, 2); + if(((WxeApp *) wxTheApp)->cb_buff) { + int res = * (int*) ((WxeApp *) wxTheApp)->cb_buff; + driver_free(((WxeApp *) wxTheApp)->cb_buff); + ((WxeApp *) wxTheApp)->cb_buff = NULL; + return res; + } + } + return wxPrintout::OnBeginDocument(startPage,endPage); } -void wxEPrintout::OnEndDocument() +void wxEPrintout::OnEndDocument() { if(onEndDocument) { - wxeMemEnv * memenv = ((WxeApp *) wxTheApp)->getMemEnv(port); - wxeReturn rt = wxeReturn(WXE_DRV_PORT, memenv->owner, false); - rt.addInt(onEndDocument); - rt.addRef(((WxeApp *) wxTheApp)->getRef((void *)this, memenv), "wxPrintout"); - rt.endList(1); - rt.addAtom("_wx_invoke_cb_"); - rt.addTupleCount(3); - rt.send(); - handle_callback_batch(port); + INVOKE_CALLBACK(port, onEndDocument, "wxPrintout"); } else { wxPrintout::OnEndDocument(); - } + } } -void wxEPrintout::OnBeginPrinting() +void wxEPrintout::OnBeginPrinting() { if(onBeginPrinting) { - wxeMemEnv * memenv = ((WxeApp *) wxTheApp)->getMemEnv(port); - wxeReturn rt = wxeReturn(WXE_DRV_PORT, memenv->owner, false); - rt.addInt(onBeginPrinting); - rt.addRef(((WxeApp *) wxTheApp)->getRef((void *)this, memenv), "wxPrintout"); - rt.endList(1); - rt.addAtom("_wx_invoke_cb_"); - rt.addTupleCount(3); - rt.send(); - handle_callback_batch(port); + INVOKE_CALLBACK(port, onBeginPrinting, "wxPrintout"); } else { wxPrintout::OnBeginPrinting(); - } + } } -void wxEPrintout::OnEndPrinting() +void wxEPrintout::OnEndPrinting() { if(onEndPrinting) { - wxeMemEnv * memenv = ((WxeApp *) wxTheApp)->getMemEnv(port); - wxeReturn rt = wxeReturn(WXE_DRV_PORT, memenv->owner, false); - rt.addInt(onEndPrinting); - rt.addRef(((WxeApp *) wxTheApp)->getRef((void *)this, memenv), "wxPrintout"); - rt.endList(1); - rt.addAtom("_wx_invoke_cb_"); - rt.addTupleCount(3); - rt.send(); - handle_callback_batch(port); + INVOKE_CALLBACK(port, onEndPrinting, "wxPrintout"); } else { wxPrintout::OnEndPrinting(); } @@ -119,92 +111,133 @@ void wxEPrintout::OnPreparePrinting() { if(onPreparePrinting) { - wxeMemEnv * memenv = ((WxeApp *) wxTheApp)->getMemEnv(port); - wxeReturn rt = wxeReturn(WXE_DRV_PORT, memenv->owner, false); - rt.addInt(onPreparePrinting); - rt.addRef(((WxeApp *) wxTheApp)->getRef((void *)this, memenv), "wxPrintout"); - rt.endList(1); - rt.addAtom("_wx_invoke_cb_"); - rt.addTupleCount(3); - rt.send(); - handle_callback_batch(port); + INVOKE_CALLBACK(port, onPreparePrinting, "wxPrintout"); } else { wxPrintout::OnPreparePrinting(); - } + } } -bool wxEPrintout::HasPage(int page) +bool wxEPrintout::HasPage(int page) { if(hasPage) { - wxeMemEnv * memenv = ((WxeApp *) wxTheApp)->getMemEnv(port); - wxeReturn rt = wxeReturn(WXE_DRV_PORT, memenv->owner, false); - rt.addInt(hasPage); - rt.addRef(((WxeApp *) wxTheApp)->getRef((void *)this, memenv), "wxPrintout"); + INVOKE_CALLBACK_INIT(port, hasPage, "wxPrintout"); rt.addInt(page); - rt.endList(2); - rt.addAtom("_wx_invoke_cb_"); - rt.addTupleCount(3); - rt.send(); - char * bp = ((WxeApp *) wxTheApp)->cb_buff; - handle_callback_batch(port); - return *(int*) bp; - } else { - return wxPrintout::HasPage(page); - } + INVOKE_CALLBACK_END(port, 1); + if(((WxeApp *) wxTheApp)->cb_buff) { + int res = * (int*) ((WxeApp *) wxTheApp)->cb_buff; + driver_free(((WxeApp *) wxTheApp)->cb_buff); + ((WxeApp *) wxTheApp)->cb_buff = NULL; + return res; + } + } + return wxPrintout::HasPage(page); } bool wxEPrintout::OnPrintPage(int page) { - wxeMemEnv * memenv = ((WxeApp *) wxTheApp)->getMemEnv(port); - wxeReturn rt = wxeReturn(WXE_DRV_PORT, memenv->owner, false); - rt.addInt(onPrintPage); - rt.addRef(((WxeApp *) wxTheApp)->getRef((void *)this, memenv), "wxPrintout"); + INVOKE_CALLBACK_INIT(port, onPrintPage, "wxPrintout"); rt.addInt(page); - rt.endList(2); - rt.addAtom("_wx_invoke_cb_"); - rt.addTupleCount(3); - rt.send(); - handle_callback_batch(port); - //fprintf(stderr,"%d ", __LINE__);handle_callback_batch(port); fprintf(stderr,"%d\r\n", __LINE__); - char * bp = ((WxeApp *) wxTheApp)->cb_buff; - return *(int*) bp; + INVOKE_CALLBACK_END(port, 1); + if(((WxeApp *) wxTheApp)->cb_buff) { + int res = * (int*) ((WxeApp *) wxTheApp)->cb_buff; + driver_free(((WxeApp *) wxTheApp)->cb_buff); + ((WxeApp *) wxTheApp)->cb_buff = NULL; + return res; + } + return FALSE; } - + void wxEPrintout::GetPageInfo(int *minPage, int *maxPage, int *pageFrom, int *pageTo) { if(getPageInfo) { - wxeMemEnv * memenv = ((WxeApp *) wxTheApp)->getMemEnv(port); - wxeReturn rt = wxeReturn(WXE_DRV_PORT, memenv->owner, false); - rt.addInt(getPageInfo); - rt.addRef(((WxeApp *) wxTheApp)->getRef((void *)this, memenv), "wxPrintout"); - rt.endList(1); - rt.addAtom("_wx_invoke_cb_"); - rt.addTupleCount(3); - rt.send(); - handle_callback_batch(port); - //fprintf(stderr,"%d ", __LINE__);handle_callback_batch(port); fprintf(stderr,"%d\r\n", __LINE__); + INVOKE_CALLBACK(port, getPageInfo, "wxPrintout"); + if(((WxeApp *) wxTheApp)->cb_buff) { + char * bp = ((WxeApp *) wxTheApp)->cb_buff; + *minPage = *(int *) bp; bp += 4; + *maxPage = *(int *) bp; bp += 4; + *pageFrom = *(int *) bp; bp += 4; + *pageTo = *(int *) bp; bp += 4; + driver_free(((WxeApp *) wxTheApp)->cb_buff); + ((WxeApp *) wxTheApp)->cb_buff = NULL; + } + } + wxPrintout::GetPageInfo(minPage, maxPage, pageFrom, pageTo); +} + +/* *****************************************************************/ +// ListCtrl with callbacks for VIRTUAL_TABLES + +wxString EwxListCtrl::OnGetItemText(long item, long col) const { + if(onGetItemText) { + INVOKE_CALLBACK_INIT(port, onGetItemText, "wxListCtrl"); + rt.addInt(item); + rt.addInt(col); + INVOKE_CALLBACK_END(port, 2); + if(((WxeApp *) wxTheApp)->cb_buff) { + char * bp = ((WxeApp *) wxTheApp)->cb_buff; + wxString str = wxString(bp, wxConvUTF8); + driver_free(((WxeApp *) wxTheApp)->cb_buff); + ((WxeApp *) wxTheApp)->cb_buff = NULL; + return str; + } + } + return wxT("OnGetItemText not correctly defined"); +} +wxListItemAttr* EwxListCtrl::OnGetItemAttr(long item) const { + if(onGetItemAttr) { + INVOKE_CALLBACK_INIT(port, onGetItemAttr, "wxListCtrl"); + rt.addInt(item); + INVOKE_CALLBACK_END(port, 1); char * bp = ((WxeApp *) wxTheApp)->cb_buff; - *minPage = *(int *) bp; bp += 4; - *maxPage = *(int *) bp; bp += 4; - *pageFrom = *(int *) bp; bp += 4; - *pageTo = *(int *) bp; bp += 4; - } else { - wxPrintout::GetPageInfo(minPage, maxPage, pageFrom, pageTo); + wxeMemEnv * memenv = ((WxeApp *) wxTheApp)->getMemEnv(port); + if(bp) { + wxListItemAttr * result = (wxListItemAttr *)((WxeApp *) wxTheApp)->getPtr(bp, memenv); + driver_free(((WxeApp *) wxTheApp)->cb_buff); + ((WxeApp *) wxTheApp)->cb_buff = NULL; + return result; + } } + return NULL; +} + +int EwxListCtrl::OnGetItemImage(long item) const { + return OnGetItemColumnImage(item, 0); } -void wxEPrintout::clear_cb(int callback) +int EwxListCtrl::OnGetItemColumnImage(long item, long col) const { + if(onGetItemColumnImage) { + INVOKE_CALLBACK_INIT(port, onGetItemColumnImage, "wxListCtrl"); + rt.addInt(item); + rt.addInt(col); + INVOKE_CALLBACK_END(port, 2); + if(((WxeApp *) wxTheApp)->cb_buff) { + int res = * (int*) ((WxeApp *) wxTheApp)->cb_buff; + driver_free(((WxeApp *) wxTheApp)->cb_buff); + ((WxeApp *) wxTheApp)->cb_buff = NULL; + return res; + } + } + return -1; +} + +EwxListCtrl::~EwxListCtrl() { + clear_cb(port, onGetItemText); + clear_cb(port, onGetItemAttr); + clear_cb(port, onGetItemColumnImage); + ((WxeApp *)wxTheApp)->clearPtr(this); +} +// tools + +void clear_cb(ErlDrvPort port, int callback) { if(callback > 0) { wxeMemEnv * memenv = ((WxeApp *) wxTheApp)->getMemEnv(port); wxeReturn rt = wxeReturn(WXE_DRV_PORT, memenv->owner, false); - // NOTE: Remove this later when changing from funs to gen_server rt.addAtom("wx_delete_cb"); rt.addInt(callback); rt.addTupleCount(2); rt.send(); } } - diff --git a/lib/wx/c_src/wxe_impl.cpp b/lib/wx/c_src/wxe_impl.cpp index 365fb691a1..e430fbc7a2 100644 --- a/lib/wx/c_src/wxe_impl.cpp +++ b/lib/wx/c_src/wxe_impl.cpp @@ -14,7 +14,7 @@ * the License for the specific language governing rights and limitations * under the License. * - * %CopyrightEnd% + * %CopyrightEnd% */ #include <stdio.h> @@ -49,7 +49,7 @@ DEFINE_EVENT_TYPE(wxeEVT_META_COMMAND) #define WXE_NORMAL 0 #define WXE_CALLBACK 1 -#define WXE_STORED 2 +#define WXE_STORED 2 ErlDrvTid wxe_thread; @@ -67,7 +67,7 @@ wxList * wxe_batch_cb_saved = NULL; ErlDrvTermData wxe_batch_caller = 0; ErlDrvTermData init_caller = 0; -// extern opengl +// extern opengl void gl_dispatch(int op, char *bp, ErlDrvTermData caller, WXEBinRef *bins[]); @@ -99,7 +99,7 @@ void *wxe_main_loop(void * ); * START AND STOP of driver thread * ************************************************************/ -int load_native_gui() +int load_native_gui() { return 1; } @@ -112,7 +112,7 @@ int start_native_gui(wxe_data *sd) wxe_batch_locker_m = erl_drv_mutex_create((char *)"wxe_batch_locker_m"); wxe_batch_locker_c = erl_drv_cond_create((char *)"wxe_batch_locker_c"); - init_caller = driver_connected(sd->port); + init_caller = driver_connected(sd->port); #ifdef __DARWIN__ res = erl_drv_steal_main_thread((char *)"wxwidgets", @@ -152,9 +152,9 @@ void stop_native_gui(wxe_data *sd) erl_drv_cond_destroy(wxe_batch_locker_c); } -void unload_native_gui() +void unload_native_gui() { - + } /* ************************************************************ @@ -162,13 +162,13 @@ void unload_native_gui() * Called by emulator thread * ************************************************************/ -void push_command(int op,char * buf,int len, wxe_data *sd) -{ +void push_command(int op,char * buf,int len, wxe_data *sd) +{ // fprintf(stderr, "Op %d %d\r\n", op, (int) driver_caller(sd->port)),fflush(stderr); wxeCommand *Cmd = new wxeCommand(op, buf, len, sd); erl_drv_mutex_lock(wxe_batch_locker_m); wxe_batch->Append(Cmd); - + if(wxe_batch_caller > 0) { // wx-thread is waiting on batch end in cond_wait erl_drv_cond_signal(wxe_batch_locker_c); @@ -179,11 +179,11 @@ void push_command(int op,char * buf,int len, wxe_data *sd) } erl_drv_cond_signal(wxe_batch_locker_c); wxWakeUpIdle(); - } + } erl_drv_mutex_unlock(wxe_batch_locker_m); } -void meta_command(int what, wxe_data *sd) { +void meta_command(int what, wxe_data *sd) { if(what == PING_PORT) { erl_drv_mutex_lock(wxe_batch_locker_m); if(wxe_batch_caller > 0) { @@ -203,17 +203,17 @@ void meta_command(int what, wxe_data *sd) { } /* ************************************************************ - * wxWidgets Thread + * wxWidgets Thread * ************************************************************/ void *wxe_main_loop(void *vpdl) { - int result; + int result; int argc = 1; char * temp = (char *) "Erlang"; char * argv[] = {temp,NULL}; ErlDrvPDL pdl = (ErlDrvPDL) vpdl; - + driver_pdl_inc_refc(pdl); // ErlDrvSysInfo einfo; @@ -223,7 +223,7 @@ void *wxe_main_loop(void *vpdl) #ifndef _WIN32 erts_thread_disable_fpe(); #endif - + result = wxEntry(argc, argv); // fprintf(stderr, "WXWidgets quits main loop %d \r\n", result); if(result >= 0 && wxe_status == WXE_INITIATED) { @@ -240,17 +240,17 @@ void *wxe_main_loop(void *vpdl) erl_drv_cond_signal(wxe_status_c); erl_drv_mutex_unlock(wxe_status_m); driver_pdl_dec_refc(pdl); - return NULL; + return NULL; } } wxFrame * dummy_window; void create_dummy_window() { - dummy_window = new wxFrame(NULL,-1, wxT("wx driver"), - wxDefaultPosition, wxSize(5,5), + dummy_window = new wxFrame(NULL,-1, wxT("wx driver"), + wxDefaultPosition, wxSize(5,5), wxFRAME_NO_TASKBAR); - dummy_window->Connect(wxID_ANY, wxEVT_CLOSE_WINDOW, + dummy_window->Connect(wxID_ANY, wxEVT_CLOSE_WINDOW, (wxObjectEventFunction) (wxEventFunction) &WxeApp::dummy_close); } @@ -262,7 +262,7 @@ void WxeApp::dummy_close(wxEvent& Ev) { create_dummy_window(); } -// Init wx-widgets thread +// Init wx-widgets thread bool WxeApp::OnInit() { wxe_ps_init(); @@ -270,16 +270,17 @@ bool WxeApp::OnInit() global_me = new wxeMemEnv(); wxe_batch = new wxList; wxe_batch_cb_saved = new wxList; + cb_buff = NULL; wxIdleEvent::SetMode(wxIDLE_PROCESS_SPECIFIED); - this->Connect(wxID_ANY, wxEVT_IDLE, + this->Connect(wxID_ANY, wxEVT_IDLE, (wxObjectEventFunction) (wxEventFunction) &WxeApp::idle); - this->Connect(CREATE_PORT, wxeEVT_META_COMMAND, + this->Connect(CREATE_PORT, wxeEVT_META_COMMAND, (wxObjectEventFunction) (wxEventFunction) &WxeApp::newMemEnv); - this->Connect(DELETE_PORT, wxeEVT_META_COMMAND, + this->Connect(DELETE_PORT, wxeEVT_META_COMMAND, (wxObjectEventFunction) (wxEventFunction) &WxeApp::destroyMemEnv); - this->Connect(WXE_SHUTDOWN, wxeEVT_META_COMMAND, + this->Connect(WXE_SHUTDOWN, wxeEVT_META_COMMAND, (wxObjectEventFunction) (wxEventFunction) &WxeApp::shutdown); // fprintf(stderr, "Size void* %d: long %d long long %d int64 %d \r\n", @@ -287,9 +288,9 @@ bool WxeApp::OnInit() initEventTable(); wxInitAllImageHandlers(); - /* Create a dummy window so wxWidgets don't automagicly quits the main loop + /* Create a dummy window so wxWidgets don't automagicly quits the main loop after the last window */ - create_dummy_window(); + create_dummy_window(); init_nonconsts(global_me, init_caller); erl_drv_mutex_lock(wxe_status_m); @@ -308,19 +309,19 @@ void send_msg(const char * type, wxString * msg) { wxeReturn rt = wxeReturn(WXE_DRV_PORT, init_caller); rt.addAtom((char *) "wxe_driver"); rt.addAtom((char *) type); - rt.add(msg); + rt.add(msg); rt.addTupleCount(3); rt.send(); } /* ************************************************************ - * Erlang Command execution * + * Erlang Command execution * * ************************************************************/ -/* Callback from printer and event callbacks */ +/* Callback from printer and event callbacks */ void pre_callback() { - // no-op + // no-op } void handle_event_callback(ErlDrvPort port, ErlDrvTermData process) @@ -330,29 +331,19 @@ void handle_event_callback(ErlDrvPort port, ErlDrvTermData process) driver_monitor_process(port, process, &monitor); // Should we be able to handle commands when recursing? probably erl_drv_mutex_lock(wxe_batch_locker_m); - //fprintf(stderr, "\r\nCB Start ");fflush(stderr); + // fprintf(stderr, "\r\nCB EV Start ");fflush(stderr); app->dispatch_cb(wxe_batch, wxe_batch_cb_saved, process); - //fprintf(stderr, ".. done \r\n");fflush(stderr); + // fprintf(stderr, ".. done \r\n");fflush(stderr); wxe_batch_caller = 0; erl_drv_mutex_unlock(wxe_batch_locker_m); driver_demonitor_process(port, &monitor); } -void handle_callback_batch(ErlDrvPort port) -{ - WxeApp * app = (WxeApp *) wxTheApp; - // Should we be able to handle commands when recursing? probably - erl_drv_mutex_lock(wxe_batch_locker_m); - app->dispatch(wxe_batch, 0, WXE_CALLBACK); - wxe_batch_caller = 0; - erl_drv_mutex_unlock(wxe_batch_locker_m); -} - // Called by wx thread void WxeApp::idle(wxIdleEvent& event) { dispatch_cmds(); } - + void WxeApp::dispatch_cmds() { erl_drv_mutex_lock(wxe_batch_locker_m); int level = dispatch(wxe_batch_cb_saved, 0, WXE_STORED); @@ -361,14 +352,14 @@ void WxeApp::dispatch_cmds() { erl_drv_mutex_unlock(wxe_batch_locker_m); } -// Should have erl_drv_mutex_lock(wxe_batch_locker_m); -// when entering this function and it should be released +// Should have erl_drv_mutex_lock(wxe_batch_locker_m); +// when entering this function and it should be released // afterwards -int WxeApp::dispatch(wxList * batch, int blevel, int list_type) +int WxeApp::dispatch(wxList * batch, int blevel, int list_type) { int ping = 0; // erl_drv_mutex_lock(wxe_batch_locker_m); must be locked already - while(true) + while(true) { if (batch->size() > 0) { for( wxList::compatibility_iterator node = batch->GetFirst(); @@ -385,19 +376,22 @@ int WxeApp::dispatch(wxList * batch, int blevel, int list_type) {blevel++; } break; case WXE_DEBUG_PING: - // When in debugger we don't want to hang waiting for a BATCH_END + // When in debugger we don't want to hang waiting for a BATCH_END // that never comes, because a breakpoint have hit. ping++; - if(ping > 2) + if(ping > 2) blevel = 0; break; case WXE_CB_RETURN: // erl_drv_mutex_unlock(wxe_batch_locker_m); should be called after // whatever cleaning is necessary - memcpy(cb_buff, event->buffer, event->len); + if(event->len > 0) { + cb_buff = (char *) driver_alloc(event->len); + memcpy(cb_buff, event->buffer, event->len); + } return blevel; default: - erl_drv_mutex_unlock(wxe_batch_locker_m); + erl_drv_mutex_unlock(wxe_batch_locker_m); if(event->op < OPENGL_START) { // fprintf(stderr, " c %d (%d) \r\n", event->op, blevel); wxe_dispatch(*event); @@ -436,10 +430,10 @@ void WxeApp::dispatch_cb(wxList * batch, wxList * temp, ErlDrvTermData process) wxeCommand *event = (wxeCommand *)node->GetData(); wxeMemEnv *memenv = getMemEnv(event->port); batch->Erase(node); - if(event->caller == process || // Callbacks from CB process only + if(event->caller == process || // Callbacks from CB process only event->op == WXE_CB_START || // Recursive event callback allow // Allow connect_cb during CB i.e. msg from wxe_server. - (memenv && event->caller == memenv->owner)) + (memenv && event->caller == memenv->owner)) { switch(event->op) { case WXE_BATCH_END: @@ -447,7 +441,10 @@ void WxeApp::dispatch_cb(wxList * batch, wxList * temp, ErlDrvTermData process) case WXE_DEBUG_PING: break; case WXE_CB_RETURN: - memcpy(cb_buff, event->buffer, event->len); + if(event->len > 0) { + cb_buff = (char *) driver_alloc(event->len); + memcpy(cb_buff, event->buffer, event->len); + } callback_returned = 1; return; case WXE_CB_START: @@ -464,12 +461,12 @@ void WxeApp::dispatch_cb(wxList * batch, wxList * temp, ErlDrvTermData process) } erl_drv_mutex_lock(wxe_batch_locker_m); break; - if(callback_returned) + if(callback_returned) return; } delete event; } else { - // fprintf(stderr, " sav %d \r\n", event->op); + // fprintf(stderr, " save %d \r\n", event->op); temp->Append(event); } } @@ -494,13 +491,13 @@ void WxeApp::newMemEnv(wxeMetaCommand& Ecmd) { driver_pdl_inc_refc(Ecmd.pdl); for(int i = 0; i < global_me->next; i++) { - memenv->ref2ptr[i] = global_me->ref2ptr[i]; + memenv->ref2ptr[i] = global_me->ref2ptr[i]; } memenv->next = global_me->next; refmap[(ErlDrvTermData) Ecmd.port] = memenv; memenv->owner = Ecmd.caller; - ErlDrvTermData rt[] = {ERL_DRV_ATOM, driver_mk_atom((char *)"wx_port_initiated")}; + ErlDrvTermData rt[] = {ERL_DRV_ATOM, driver_mk_atom((char *)"wx_port_initiated")}; driver_send_term(WXE_DRV_PORT,Ecmd.caller,rt,2); } @@ -519,13 +516,13 @@ void WxeApp::destroyMemEnv(wxeMetaCommand& Ecmd) { // pre-pass delete all dialogs first since they might crash erlang otherwise for(int i=1; i < memenv->next; i++) { wxObject * ptr = (wxObject *) memenv->ref2ptr[i]; - if(ptr) { + if(ptr) { ptrMap::iterator it = ptr2ref.find(ptr); if(it != ptr2ref.end()) { wxeRefData *refd = it->second; if(refd->alloc_in_erl) { if(refd->type == 2) { - wxDialog *win = (wxDialog *) ptr; + wxDialog *win = (wxDialog *) ptr; if(win->IsModal()) { win->EndModal(-1); } @@ -535,25 +532,25 @@ void WxeApp::destroyMemEnv(wxeMetaCommand& Ecmd) { if(parentRef == ptr2ref.end()) { // The parent is already dead delete the parent ref win->SetParent(NULL); - } + } } delete win; - } + } } } } } - // First pass, delete all top parents/windows of all linked objects + // First pass, delete all top parents/windows of all linked objects // fprintf(stderr, "close port %x\r\n", Ecmd.port);fflush(stderr); for(int i=1; i < memenv->next; i++) { void * ptr = memenv->ref2ptr[i]; - if(ptr) { + if(ptr) { ptrMap::iterator it = ptr2ref.find(ptr); if(it != ptr2ref.end()) { wxeRefData *refd = it->second; if(refd->alloc_in_erl && refd->type == 0) { - parent = (wxWindow *) ptr; + parent = (wxWindow *) ptr; // fprintf(stderr, "window %x %d\r\n", (int) parent, refd->ref); while(parent->GetParent()) { parent = parent->GetParent(); @@ -573,7 +570,7 @@ void WxeApp::destroyMemEnv(wxeMetaCommand& Ecmd) { // everything linked from windows should now be deleted for(int i=1; i < memenv->next; i++) { void * ptr = memenv->ref2ptr[i]; - if(ptr) { + if(ptr) { ptrMap::iterator it = ptr2ref.find(ptr); if(it != ptr2ref.end()) { wxeRefData *refd = it->second; @@ -585,33 +582,33 @@ void WxeApp::destroyMemEnv(wxeMetaCommand& Ecmd) { wxString msg; if((refd->type == 0)) { // Maybe also class 1 wxClassInfo *cinfo = ((wxObject *)ptr)->GetClassInfo(); - msg.Printf(wxT("Memory leak: {wx_ref, %d, %s}"), + msg.Printf(wxT("Memory leak: {wx_ref, %d, %s}"), refd->ref, cinfo->GetClassName()); send_msg("error", &msg); } else { delete_object(ptr, refd); } - if(type == 0 || type > 3) { - // Delete refs for leaks and non overridden allocs + if(type == 0 || type > 2) { + // Delete refs for leaks and non overridden allocs delete refd; ptr2ref.erase(it); } // overridden allocs deletes meta-data in clearPtr } else { // Not alloced in erl just delete references if(refd->ref >= global_me->next) { // if it is not part of global ptrs - delete refd; + delete refd; ptr2ref.erase(it); } } } } - } - // Assert ? -// for(ptrMap::iterator it = ptr2ref.begin(); it != ptr2ref.end(); it++) { -// wxeRefData *refd = it->second; -// if(refd->ref >= global_me->next) -// fprintf(stderr, "L %d %d\r\n", refd->ref, refd->alloc_in_erl); -// } -// fflush(stderr); + } +// // Assert ? +// for(ptrMap::iterator it = ptr2ref.begin(); it != ptr2ref.end(); it++) { +// wxeRefData *refd = it->second; +// if(refd->ref >= global_me->next) +// fprintf(stderr, "L %d %d %d\r\n", refd->ref, refd->type, refd->alloc_in_erl); +// } +// fflush(stderr); delete memenv; driver_pdl_dec_refc(Ecmd.pdl); refmap.erase((ErlDrvTermData) Ecmd.port); @@ -624,7 +621,7 @@ wxeMemEnv * WxeApp::getMemEnv(ErlDrvPort port) { int WxeApp::newPtr(void * ptr, int type, wxeMemEnv *memenv) { int ref; intList free = memenv->free; - + if(free.IsEmpty()) { ref = memenv->next++; } else { @@ -632,8 +629,8 @@ int WxeApp::newPtr(void * ptr, int type, wxeMemEnv *memenv) { }; if(ref >= memenv->max) { memenv->max *= 2; - memenv->ref2ptr = - (void **) driver_realloc(memenv->ref2ptr,memenv->max * sizeof(void*)); + memenv->ref2ptr = + (void **) driver_realloc(memenv->ref2ptr,memenv->max * sizeof(void*)); } memenv->ref2ptr[ref] = ptr; @@ -653,12 +650,12 @@ int WxeApp::getRef(void * ptr, wxeMemEnv *memenv) { ptrMap::iterator it = ptr2ref.find(ptr); if(it != ptr2ref.end()) { wxeRefData *refd = it->second; - if(refd->memenv == memenv) { + if(refd->memenv == memenv || refd->memenv == global_me) { // Found it return return refd->ref; } // else // Old reference to deleted object, release old and recreate in current memenv. - clearPtr(ptr); + ptr2ref.erase(it); } int ref; intList free = memenv->free; @@ -687,7 +684,7 @@ void WxeApp::clearPtr(void * ptr) { if(it != ptr2ref.end()) { wxeRefData *refd = it->second; intList free = refd->memenv->free; - int ref = refd->ref; + int ref = refd->ref; refd->memenv->ref2ptr[ref] = NULL; free.Append(ref); @@ -696,7 +693,7 @@ void WxeApp::clearPtr(void * ptr) { msg.Printf(wxT("Deleting {wx_ref, %d, unknown} at %p "), ref, ptr); send_msg("debug", &msg); } - + if(((int) refd->pid) != -1) { // Send terminate pid to owner wxeReturn rt = wxeReturn(WXE_DRV_PORT,refd->memenv->owner, false); @@ -709,30 +706,30 @@ void WxeApp::clearPtr(void * ptr) { if(refd->type == 1 && ((wxObject*)ptr)->IsKindOf(CLASSINFO(wxSizer))) { wxSizerItemList list = ((wxSizer*)ptr)->GetChildren(); for(wxSizerItemList::compatibility_iterator node = list.GetFirst(); - node; node = node->GetNext()) { + node; node = node->GetNext()) { wxSizerItem *item = node->GetData(); wxObject *content=NULL; - if((content = item->GetWindow())) + if((content = item->GetWindow())) if(ptr2ref.end() == ptr2ref.find(content)) { wxString msg; wxClassInfo *cinfo = ((wxObject *)ptr)->GetClassInfo(); msg.Printf(wxT("Double usage detected of window at %p in sizer {wx_ref, %d, %s}"), content, ref, cinfo->GetClassName()); send_msg("error", &msg); - ((wxSizer*)ptr)->Detach((wxWindow*)content); + ((wxSizer*)ptr)->Detach((wxWindow*)content); } - if((content = item->GetSizer())) + if((content = item->GetSizer())) if(ptr2ref.end() == ptr2ref.find(content)) { wxString msg; wxClassInfo *cinfo = ((wxObject *)ptr)->GetClassInfo(); msg.Printf(wxT("Double usage detected of sizer at %p in sizer {wx_ref, %d, %s}"), content, ref, cinfo->GetClassName()); send_msg("error", &msg); - ((wxSizer*)ptr)->Detach((wxSizer*)content); + ((wxSizer*)ptr)->Detach((wxSizer*)content); } } } - + delete refd; ptr2ref.erase(it); } @@ -753,7 +750,7 @@ void * WxeApp::getPtr(char * bp, wxeMemEnv *memenv) { void WxeApp::registerPid(char * bp, ErlDrvTermData pid, wxeMemEnv * memenv) { int index = *(int *) bp; - if(!memenv) + if(!memenv) throw wxe_badarg(index); void * temp = memenv->ref2ptr[index]; if((index < memenv->next) && ((index == 0) || (temp > NULL))) { @@ -773,14 +770,14 @@ void WxeApp::registerPid(char * bp, ErlDrvTermData pid, wxeMemEnv * memenv) { * Misc utility classes * ************************************************************/ -/* **************************************************************************** - * Memory handling +/* **************************************************************************** + * Memory handling * ****************************************************************************/ wxeMemEnv::wxeMemEnv() { - ref2ptr = (void **) driver_alloc(128*sizeof(void *)); + ref2ptr = (void **) driver_alloc(128*sizeof(void *)); ref2ptr[0] = NULL; - next = 1; + next = 1; max = 128; } @@ -788,12 +785,12 @@ wxeMemEnv::~wxeMemEnv() { driver_free(ref2ptr); } -/* **************************************************************************** +/* **************************************************************************** * Erlang Commands (don't need to be derived of wxEvent anymore should * be re-written to own class struct) * ****************************************************************************/ -wxeCommand::wxeCommand(int fc,char * cbuf,int buflen, wxe_data *sd) +wxeCommand::wxeCommand(int fc,char * cbuf,int buflen, wxe_data *sd) : wxObject() { WXEBinRef *temp, *start, *prev; @@ -809,12 +806,12 @@ wxeCommand::wxeCommand(int fc,char * cbuf,int buflen, wxe_data *sd) if(cbuf) { buffer = (char *) driver_alloc(len); memcpy((void *) buffer, (void *) cbuf, len);; - + temp = sd->bin; - + prev = NULL; start = temp; - + while(temp) { if(caller == temp->from) { bin[n++] = temp; @@ -839,7 +836,7 @@ wxeCommand::~wxeCommand() { int n = 0; if(buffer) { while(bin[n]) { - if(bin[n]->bin) + if(bin[n]->bin) driver_free_binary(bin[n]->bin); driver_free(bin[n++]); } @@ -847,26 +844,26 @@ wxeCommand::~wxeCommand() { } } -/* **************************************************************************** - * TreeItemData +/* **************************************************************************** + * TreeItemData * ****************************************************************************/ -wxETreeItemData::wxETreeItemData(int sz, char * data) { +wxETreeItemData::wxETreeItemData(int sz, char * data) { size = sz; bin = (char *) driver_alloc(sz); memcpy(bin, data, sz); } -wxETreeItemData::~wxETreeItemData() +wxETreeItemData::~wxETreeItemData() { driver_free(bin); } -/* **************************************************************************** +/* **************************************************************************** * CallbackData * * ****************************************************************************/ -wxeCallbackData::wxeCallbackData(ErlDrvTermData caller,void * req, char *req_type, +wxeCallbackData::wxeCallbackData(ErlDrvTermData caller,void * req, char *req_type, int funcb, int skip_ev, wxeErlTerm * userData) : wxObject() { @@ -893,8 +890,6 @@ int wxCALLBACK wxEListCtrlCompare(long item1, long item2, long callbackInfoPtr) { callbackInfo * cb = (callbackInfo *)callbackInfoPtr; wxeMemEnv * memenv = ((WxeApp *) wxTheApp)->getMemEnv(cb->port); - char * bp = ((WxeApp *) wxTheApp)->cb_buff; - wxeReturn rt = wxeReturn(WXE_DRV_PORT, memenv->owner, false); rt.addInt(cb->callbackID); rt.addInt(item1); @@ -903,6 +898,13 @@ int wxCALLBACK wxEListCtrlCompare(long item1, long item2, long callbackInfoPtr) rt.addAtom("_wx_invoke_cb_"); rt.addTupleCount(3); rt.send(); - handle_callback_batch(cb->port); - return *(int*) bp; + handle_event_callback(cb->port, memenv->owner); + + if(((WxeApp *) wxTheApp)->cb_buff) { + int res = * (int*) ((WxeApp *) wxTheApp)->cb_buff; + driver_free(((WxeApp *) wxTheApp)->cb_buff); + ((WxeApp *) wxTheApp)->cb_buff = NULL; + return res; + } + return 0; } diff --git a/lib/wx/c_src/wxe_impl.h b/lib/wx/c_src/wxe_impl.h index 39c02f8c1a..ee31068d5d 100644 --- a/lib/wx/c_src/wxe_impl.h +++ b/lib/wx/c_src/wxe_impl.h @@ -1,7 +1,7 @@ /* * %CopyrightBegin% * - * Copyright Ericsson AB 2008-2010. All Rights Reserved. + * Copyright Ericsson AB 2008-2011. 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 @@ -178,7 +178,8 @@ public: wxeMemEnv * global_me; // Temp container for callbacks - char cb_buff[256]; + char *cb_buff; + int cb_len; }; class wxETreeItemData : public wxTreeItemData @@ -194,7 +195,6 @@ class wxETreeItemData : public wxTreeItemData bool sendevent(wxEvent * event, ErlDrvPort port); void pre_callback(); -void handle_callback_batch(ErlDrvPort port); // For wxePrintout void handle_event_callback(ErlDrvPort port, ErlDrvTermData process); void activateGL(ErlDrvTermData caller); @@ -232,8 +232,6 @@ class wxEPrintout : public wxPrintout bool OnPrintPage(int page); void GetPageInfo(int *minPage, int *maxPage, int *pageFrom, int *pageTo); - void clear_cb(int callback); - int onPrintPage; int onPreparePrinting; int onBeginPrinting; @@ -246,6 +244,9 @@ class wxEPrintout : public wxPrintout ErlDrvPort port; }; +void clear_cb(ErlDrvPort port, int callback); + + // Implementation of wxListCtrlCompare struct callbackInfo { ErlDrvPort port; diff --git a/lib/wx/doc/src/notes.xml b/lib/wx/doc/src/notes.xml index 26d1f892b2..7bd8d18592 100644 --- a/lib/wx/doc/src/notes.xml +++ b/lib/wx/doc/src/notes.xml @@ -31,6 +31,39 @@ <p>This document describes the changes made to the wxErlang application.</p> +<section><title>Wx 0.99</title> + + <section><title>Fixed Bugs and Malfunctions</title> + <list> + <item> + <p> + wx: fix obsolete guard warning (list/1) (Thanks to Tuncer + Ayaz)</p> + <p> + Own Id: OTP-9513</p> + </item> + <item> + <p> XML files have been corrected. </p> + <p> + Own Id: OTP-9550 Aux Id: OTP-9541 </p> + </item> + </list> + </section> + + + <section><title>Improvements and New Features</title> + <list> + <item> + <p> + Support virtual tables in wxListCtrl.</p> + <p> + Own Id: OTP-9415</p> + </item> + </list> + </section> + +</section> + <section><title>Wx 0.98.10</title> <section><title>Fixed Bugs and Malfunctions</title> diff --git a/lib/wx/examples/demo/ex_listCtrl.erl b/lib/wx/examples/demo/ex_listCtrl.erl index c574c7247a..3faec4e229 100644 --- a/lib/wx/examples/demo/ex_listCtrl.erl +++ b/lib/wx/examples/demo/ex_listCtrl.erl @@ -1,19 +1,19 @@ %% %% %CopyrightBegin% -%% -%% Copyright Ericsson AB 2009. All Rights Reserved. -%% +%% +%% Copyright Ericsson AB 2009-2011. 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(ex_listCtrl). @@ -25,7 +25,7 @@ -export([start/1, init/1, terminate/2, code_change/3, handle_info/2, handle_call/3, handle_event/2]). --record(state, +-record(state, { parent, config, @@ -40,11 +40,11 @@ init(Config) -> wx:batch(fun() -> do_init(Config) end). do_init(Config) -> - Parent = proplists:get_value(parent, Config), + Parent = proplists:get_value(parent, Config), Panel = wxPanel:new(Parent, []), %% Setup sizers - MainSizer = wxStaticBoxSizer:new(?wxVERTICAL, Panel, + MainSizer = wxStaticBoxSizer:new(?wxVERTICAL, Panel, [{label, "wxListCtrl"}]), Notebook = wxNotebook:new(Panel, 1, [{style, ?wxBK_DEFAULT}]), @@ -81,14 +81,46 @@ do_init(Config) -> wxListCtrl:setItemBackgroundColour(ListCtrl3,3,?wxGREEN), wxListCtrl:setItemBackgroundColour(ListCtrl3,0,?wxCYAN), + IA = wxListItemAttr:new(), + wxListItemAttr:setTextColour(IA, {190, 25, 25}), + LC4Opts = [{style, ?wxLC_REPORT bor ?wxLC_VIRTUAL}, + {onGetItemText, fun(_This, Item, 0) -> + "Row " ++ integer_to_list(Item); + (_, Item, 1) when Item rem 5 == 0 -> + "Column 2"; + (_, _, _) -> "" + end}, + {onGetItemAttr, fun(_This, Item) when Item rem 3 == 0 -> + IA; + (_This, _Item) -> + wx:typeCast(wx:null(), wxListItemAttr) + end}, + {onGetItemColumnImage, fun(_This, Item, 1) -> + Item rem 4; + (_, _, _) -> + -1 + end} + ], + ListCtrl4 = wxListCtrl:new(Notebook, LC4Opts), + wxListCtrl:setImageList(ListCtrl4, IL, ?wxIMAGE_LIST_SMALL), + + wxListCtrl:insertColumn(ListCtrl4, 0, "Column 1"), + wxListCtrl:insertColumn(ListCtrl4, 1, "Column 2"), + wxListCtrl:setColumnWidth(ListCtrl4, 0, 200), + wxListCtrl:setColumnWidth(ListCtrl4, 1, 200), + wxListCtrl:setItemCount(ListCtrl4, 1000000), + + wxListCtrl:connect(ListCtrl1, command_list_item_selected, []), wxListCtrl:connect(ListCtrl2, command_list_item_selected, []), wxListCtrl:connect(ListCtrl3, command_list_item_selected, []), + wxListCtrl:connect(ListCtrl4, command_list_item_selected, []), %% Add to sizers wxNotebook:addPage(Notebook, ListCtrl1, "List", []), wxNotebook:addPage(Notebook, ListCtrl2, "Report", []), wxNotebook:addPage(Notebook, ListCtrl3, "Colored multiselect", []), + wxNotebook:addPage(Notebook, ListCtrl4, "Virtual Report", []), wxSizer:add(MainSizer, Notebook, [{proportion, 1}, {flag, ?wxEXPAND}]), @@ -145,4 +177,4 @@ create_list_ctrl(Win, Options) -> ListCtrl. - + diff --git a/lib/wx/include/gl.hrl b/lib/wx/include/gl.hrl index 52f2635af9..54eb551285 100644 --- a/lib/wx/include/gl.hrl +++ b/lib/wx/include/gl.hrl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2008-2010. All Rights Reserved. +%% Copyright Ericsson AB 2008-2011. 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 @@ -21,32 +21,22 @@ %% This file is generated DO NOT EDIT -define(GL_VERSION_1_1, 1). --define(GL_CURRENT_BIT, 16#1). --define(GL_POINT_BIT, 16#2). --define(GL_LINE_BIT, 16#4). --define(GL_POLYGON_BIT, 16#8). --define(GL_POLYGON_STIPPLE_BIT, 16#10). --define(GL_PIXEL_MODE_BIT, 16#20). --define(GL_LIGHTING_BIT, 16#40). --define(GL_FOG_BIT, 16#80). --define(GL_DEPTH_BUFFER_BIT, 16#100). --define(GL_ACCUM_BUFFER_BIT, 16#200). --define(GL_STENCIL_BUFFER_BIT, 16#400). --define(GL_VIEWPORT_BIT, 16#800). --define(GL_TRANSFORM_BIT, 16#1000). --define(GL_ENABLE_BIT, 16#2000). --define(GL_COLOR_BUFFER_BIT, 16#4000). --define(GL_HINT_BIT, 16#8000). --define(GL_EVAL_BIT, 16#10000). --define(GL_LIST_BIT, 16#20000). --define(GL_TEXTURE_BIT, 16#40000). --define(GL_SCISSOR_BIT, 16#80000). --define(GL_ALL_ATTRIB_BITS, 16#FFFFFFFF). --define(GL_CLIENT_PIXEL_STORE_BIT, 16#1). --define(GL_CLIENT_VERTEX_ARRAY_BIT, 16#2). --define(GL_CLIENT_ALL_ATTRIB_BITS, 16#FFFFFFFF). --define(GL_FALSE, 0). --define(GL_TRUE, 1). +-define(GL_VERSION_1_2, 1). +-define(GL_VERSION_1_3, 1). +-define(GL_ARB_imaging, 1). +-define(GL_FALSE, 16#0). +-define(GL_TRUE, 16#1). +-define(GL_BYTE, 16#1400). +-define(GL_UNSIGNED_BYTE, 16#1401). +-define(GL_SHORT, 16#1402). +-define(GL_UNSIGNED_SHORT, 16#1403). +-define(GL_INT, 16#1404). +-define(GL_UNSIGNED_INT, 16#1405). +-define(GL_FLOAT, 16#1406). +-define(GL_2_BYTES, 16#1407). +-define(GL_3_BYTES, 16#1408). +-define(GL_4_BYTES, 16#1409). +-define(GL_DOUBLE, 16#140A). -define(GL_POINTS, 16#0). -define(GL_LINES, 16#1). -define(GL_LINE_LOOP, 16#2). @@ -57,11 +47,85 @@ -define(GL_QUADS, 16#7). -define(GL_QUAD_STRIP, 16#8). -define(GL_POLYGON, 16#9). --define(GL_ACCUM, 16#100). --define(GL_LOAD, 16#101). --define(GL_RETURN, 16#102). --define(GL_MULT, 16#103). --define(GL_ADD, 16#104). +-define(GL_VERTEX_ARRAY, 16#8074). +-define(GL_NORMAL_ARRAY, 16#8075). +-define(GL_COLOR_ARRAY, 16#8076). +-define(GL_INDEX_ARRAY, 16#8077). +-define(GL_TEXTURE_COORD_ARRAY, 16#8078). +-define(GL_EDGE_FLAG_ARRAY, 16#8079). +-define(GL_VERTEX_ARRAY_SIZE, 16#807A). +-define(GL_VERTEX_ARRAY_TYPE, 16#807B). +-define(GL_VERTEX_ARRAY_STRIDE, 16#807C). +-define(GL_NORMAL_ARRAY_TYPE, 16#807E). +-define(GL_NORMAL_ARRAY_STRIDE, 16#807F). +-define(GL_COLOR_ARRAY_SIZE, 16#8081). +-define(GL_COLOR_ARRAY_TYPE, 16#8082). +-define(GL_COLOR_ARRAY_STRIDE, 16#8083). +-define(GL_INDEX_ARRAY_TYPE, 16#8085). +-define(GL_INDEX_ARRAY_STRIDE, 16#8086). +-define(GL_TEXTURE_COORD_ARRAY_SIZE, 16#8088). +-define(GL_TEXTURE_COORD_ARRAY_TYPE, 16#8089). +-define(GL_TEXTURE_COORD_ARRAY_STRIDE, 16#808A). +-define(GL_EDGE_FLAG_ARRAY_STRIDE, 16#808C). +-define(GL_VERTEX_ARRAY_POINTER, 16#808E). +-define(GL_NORMAL_ARRAY_POINTER, 16#808F). +-define(GL_COLOR_ARRAY_POINTER, 16#8090). +-define(GL_INDEX_ARRAY_POINTER, 16#8091). +-define(GL_TEXTURE_COORD_ARRAY_POINTER, 16#8092). +-define(GL_EDGE_FLAG_ARRAY_POINTER, 16#8093). +-define(GL_V2F, 16#2A20). +-define(GL_V3F, 16#2A21). +-define(GL_C4UB_V2F, 16#2A22). +-define(GL_C4UB_V3F, 16#2A23). +-define(GL_C3F_V3F, 16#2A24). +-define(GL_N3F_V3F, 16#2A25). +-define(GL_C4F_N3F_V3F, 16#2A26). +-define(GL_T2F_V3F, 16#2A27). +-define(GL_T4F_V4F, 16#2A28). +-define(GL_T2F_C4UB_V3F, 16#2A29). +-define(GL_T2F_C3F_V3F, 16#2A2A). +-define(GL_T2F_N3F_V3F, 16#2A2B). +-define(GL_T2F_C4F_N3F_V3F, 16#2A2C). +-define(GL_T4F_C4F_N3F_V4F, 16#2A2D). +-define(GL_MATRIX_MODE, 16#BA0). +-define(GL_MODELVIEW, 16#1700). +-define(GL_PROJECTION, 16#1701). +-define(GL_TEXTURE, 16#1702). +-define(GL_POINT_SMOOTH, 16#B10). +-define(GL_POINT_SIZE, 16#B11). +-define(GL_POINT_SIZE_GRANULARITY, 16#B13). +-define(GL_POINT_SIZE_RANGE, 16#B12). +-define(GL_LINE_SMOOTH, 16#B20). +-define(GL_LINE_STIPPLE, 16#B24). +-define(GL_LINE_STIPPLE_PATTERN, 16#B25). +-define(GL_LINE_STIPPLE_REPEAT, 16#B26). +-define(GL_LINE_WIDTH, 16#B21). +-define(GL_LINE_WIDTH_GRANULARITY, 16#B23). +-define(GL_LINE_WIDTH_RANGE, 16#B22). +-define(GL_POINT, 16#1B00). +-define(GL_LINE, 16#1B01). +-define(GL_FILL, 16#1B02). +-define(GL_CW, 16#900). +-define(GL_CCW, 16#901). +-define(GL_FRONT, 16#404). +-define(GL_BACK, 16#405). +-define(GL_POLYGON_MODE, 16#B40). +-define(GL_POLYGON_SMOOTH, 16#B41). +-define(GL_POLYGON_STIPPLE, 16#B42). +-define(GL_EDGE_FLAG, 16#B43). +-define(GL_CULL_FACE, 16#B44). +-define(GL_CULL_FACE_MODE, 16#B45). +-define(GL_FRONT_FACE, 16#B46). +-define(GL_POLYGON_OFFSET_FACTOR, 16#8038). +-define(GL_POLYGON_OFFSET_UNITS, 16#2A00). +-define(GL_POLYGON_OFFSET_POINT, 16#2A01). +-define(GL_POLYGON_OFFSET_LINE, 16#2A02). +-define(GL_POLYGON_OFFSET_FILL, 16#8037). +-define(GL_COMPILE, 16#1300). +-define(GL_COMPILE_AND_EXECUTE, 16#1301). +-define(GL_LIST_BASE, 16#B32). +-define(GL_LIST_INDEX, 16#B33). +-define(GL_LIST_MODE, 16#B30). -define(GL_NEVER, 16#200). -define(GL_LESS, 16#201). -define(GL_EQUAL, 16#202). @@ -70,8 +134,71 @@ -define(GL_NOTEQUAL, 16#205). -define(GL_GEQUAL, 16#206). -define(GL_ALWAYS, 16#207). --define(GL_ZERO, 0). --define(GL_ONE, 1). +-define(GL_DEPTH_TEST, 16#B71). +-define(GL_DEPTH_BITS, 16#D56). +-define(GL_DEPTH_CLEAR_VALUE, 16#B73). +-define(GL_DEPTH_FUNC, 16#B74). +-define(GL_DEPTH_RANGE, 16#B70). +-define(GL_DEPTH_WRITEMASK, 16#B72). +-define(GL_DEPTH_COMPONENT, 16#1902). +-define(GL_LIGHTING, 16#B50). +-define(GL_LIGHT0, 16#4000). +-define(GL_LIGHT1, 16#4001). +-define(GL_LIGHT2, 16#4002). +-define(GL_LIGHT3, 16#4003). +-define(GL_LIGHT4, 16#4004). +-define(GL_LIGHT5, 16#4005). +-define(GL_LIGHT6, 16#4006). +-define(GL_LIGHT7, 16#4007). +-define(GL_SPOT_EXPONENT, 16#1205). +-define(GL_SPOT_CUTOFF, 16#1206). +-define(GL_CONSTANT_ATTENUATION, 16#1207). +-define(GL_LINEAR_ATTENUATION, 16#1208). +-define(GL_QUADRATIC_ATTENUATION, 16#1209). +-define(GL_AMBIENT, 16#1200). +-define(GL_DIFFUSE, 16#1201). +-define(GL_SPECULAR, 16#1202). +-define(GL_SHININESS, 16#1601). +-define(GL_EMISSION, 16#1600). +-define(GL_POSITION, 16#1203). +-define(GL_SPOT_DIRECTION, 16#1204). +-define(GL_AMBIENT_AND_DIFFUSE, 16#1602). +-define(GL_COLOR_INDEXES, 16#1603). +-define(GL_LIGHT_MODEL_TWO_SIDE, 16#B52). +-define(GL_LIGHT_MODEL_LOCAL_VIEWER, 16#B51). +-define(GL_LIGHT_MODEL_AMBIENT, 16#B53). +-define(GL_FRONT_AND_BACK, 16#408). +-define(GL_SHADE_MODEL, 16#B54). +-define(GL_FLAT, 16#1D00). +-define(GL_SMOOTH, 16#1D01). +-define(GL_COLOR_MATERIAL, 16#B57). +-define(GL_COLOR_MATERIAL_FACE, 16#B55). +-define(GL_COLOR_MATERIAL_PARAMETER, 16#B56). +-define(GL_NORMALIZE, 16#BA1). +-define(GL_CLIP_PLANE0, 16#3000). +-define(GL_CLIP_PLANE1, 16#3001). +-define(GL_CLIP_PLANE2, 16#3002). +-define(GL_CLIP_PLANE3, 16#3003). +-define(GL_CLIP_PLANE4, 16#3004). +-define(GL_CLIP_PLANE5, 16#3005). +-define(GL_ACCUM_RED_BITS, 16#D58). +-define(GL_ACCUM_GREEN_BITS, 16#D59). +-define(GL_ACCUM_BLUE_BITS, 16#D5A). +-define(GL_ACCUM_ALPHA_BITS, 16#D5B). +-define(GL_ACCUM_CLEAR_VALUE, 16#B80). +-define(GL_ACCUM, 16#100). +-define(GL_ADD, 16#104). +-define(GL_LOAD, 16#101). +-define(GL_MULT, 16#103). +-define(GL_RETURN, 16#102). +-define(GL_ALPHA_TEST, 16#BC0). +-define(GL_ALPHA_TEST_REF, 16#BC2). +-define(GL_ALPHA_TEST_FUNC, 16#BC1). +-define(GL_BLEND, 16#BE2). +-define(GL_BLEND_SRC, 16#BE1). +-define(GL_BLEND_DST, 16#BE0). +-define(GL_ZERO, 16#0). +-define(GL_ONE, 16#1). -define(GL_SRC_COLOR, 16#300). -define(GL_ONE_MINUS_SRC_COLOR, 16#301). -define(GL_SRC_ALPHA, 16#302). @@ -81,121 +208,58 @@ -define(GL_DST_COLOR, 16#306). -define(GL_ONE_MINUS_DST_COLOR, 16#307). -define(GL_SRC_ALPHA_SATURATE, 16#308). --define(GL_NONE, 0). --define(GL_FRONT_LEFT, 16#400). --define(GL_FRONT_RIGHT, 16#401). --define(GL_BACK_LEFT, 16#402). --define(GL_BACK_RIGHT, 16#403). --define(GL_FRONT, 16#404). --define(GL_BACK, 16#405). --define(GL_LEFT, 16#406). --define(GL_RIGHT, 16#407). --define(GL_FRONT_AND_BACK, 16#408). --define(GL_AUX0, 16#409). --define(GL_AUX1, 16#40A). --define(GL_AUX2, 16#40B). --define(GL_AUX3, 16#40C). --define(GL_NO_ERROR, 0). --define(GL_INVALID_ENUM, 16#500). --define(GL_INVALID_VALUE, 16#501). --define(GL_INVALID_OPERATION, 16#502). --define(GL_STACK_OVERFLOW, 16#503). --define(GL_STACK_UNDERFLOW, 16#504). --define(GL_OUT_OF_MEMORY, 16#505). --define(GL_TABLE_TOO_LARGE, 16#8031). +-define(GL_FEEDBACK, 16#1C01). +-define(GL_RENDER, 16#1C00). +-define(GL_SELECT, 16#1C02). -define(GL_2D, 16#600). -define(GL_3D, 16#601). -define(GL_3D_COLOR, 16#602). -define(GL_3D_COLOR_TEXTURE, 16#603). -define(GL_4D_COLOR_TEXTURE, 16#604). --define(GL_PASS_THROUGH_TOKEN, 16#700). -define(GL_POINT_TOKEN, 16#701). -define(GL_LINE_TOKEN, 16#702). +-define(GL_LINE_RESET_TOKEN, 16#707). -define(GL_POLYGON_TOKEN, 16#703). -define(GL_BITMAP_TOKEN, 16#704). -define(GL_DRAW_PIXEL_TOKEN, 16#705). -define(GL_COPY_PIXEL_TOKEN, 16#706). --define(GL_LINE_RESET_TOKEN, 16#707). --define(GL_EXP, 16#800). --define(GL_EXP2, 16#801). --define(GL_CW, 16#900). --define(GL_CCW, 16#901). --define(GL_COEFF, 16#A00). --define(GL_ORDER, 16#A01). --define(GL_DOMAIN, 16#A02). --define(GL_PIXEL_MAP_I_TO_I, 16#C70). --define(GL_PIXEL_MAP_S_TO_S, 16#C71). --define(GL_PIXEL_MAP_I_TO_R, 16#C72). --define(GL_PIXEL_MAP_I_TO_G, 16#C73). --define(GL_PIXEL_MAP_I_TO_B, 16#C74). --define(GL_PIXEL_MAP_I_TO_A, 16#C75). --define(GL_PIXEL_MAP_R_TO_R, 16#C76). --define(GL_PIXEL_MAP_G_TO_G, 16#C77). --define(GL_PIXEL_MAP_B_TO_B, 16#C78). --define(GL_PIXEL_MAP_A_TO_A, 16#C79). --define(GL_VERTEX_ARRAY_POINTER, 16#808E). --define(GL_NORMAL_ARRAY_POINTER, 16#808F). --define(GL_COLOR_ARRAY_POINTER, 16#8090). --define(GL_INDEX_ARRAY_POINTER, 16#8091). --define(GL_TEXTURE_COORD_ARRAY_POINTER, 16#8092). --define(GL_EDGE_FLAG_ARRAY_POINTER, 16#8093). --define(GL_CURRENT_COLOR, 16#B00). --define(GL_CURRENT_INDEX, 16#B01). --define(GL_CURRENT_NORMAL, 16#B02). --define(GL_CURRENT_TEXTURE_COORDS, 16#B03). --define(GL_CURRENT_RASTER_COLOR, 16#B04). --define(GL_CURRENT_RASTER_INDEX, 16#B05). --define(GL_CURRENT_RASTER_TEXTURE_COORDS, 16#B06). --define(GL_CURRENT_RASTER_POSITION, 16#B07). --define(GL_CURRENT_RASTER_POSITION_VALID, 16#B08). --define(GL_CURRENT_RASTER_DISTANCE, 16#B09). --define(GL_POINT_SMOOTH, 16#B10). --define(GL_POINT_SIZE, 16#B11). --define(GL_SMOOTH_POINT_SIZE_RANGE, 16#B12). --define(GL_SMOOTH_POINT_SIZE_GRANULARITY, 16#B13). --define(GL_POINT_SIZE_RANGE, ?GL_SMOOTH_POINT_SIZE_RANGE). --define(GL_POINT_SIZE_GRANULARITY, ?GL_SMOOTH_POINT_SIZE_GRANULARITY). --define(GL_LINE_SMOOTH, 16#B20). --define(GL_LINE_WIDTH, 16#B21). --define(GL_SMOOTH_LINE_WIDTH_RANGE, 16#B22). --define(GL_SMOOTH_LINE_WIDTH_GRANULARITY, 16#B23). --define(GL_LINE_WIDTH_RANGE, ?GL_SMOOTH_LINE_WIDTH_RANGE). --define(GL_LINE_WIDTH_GRANULARITY, ?GL_SMOOTH_LINE_WIDTH_GRANULARITY). --define(GL_LINE_STIPPLE, 16#B24). --define(GL_LINE_STIPPLE_PATTERN, 16#B25). --define(GL_LINE_STIPPLE_REPEAT, 16#B26). --define(GL_LIST_MODE, 16#B30). --define(GL_MAX_LIST_NESTING, 16#B31). --define(GL_LIST_BASE, 16#B32). --define(GL_LIST_INDEX, 16#B33). --define(GL_POLYGON_MODE, 16#B40). --define(GL_POLYGON_SMOOTH, 16#B41). --define(GL_POLYGON_STIPPLE, 16#B42). --define(GL_EDGE_FLAG, 16#B43). --define(GL_CULL_FACE, 16#B44). --define(GL_CULL_FACE_MODE, 16#B45). --define(GL_FRONT_FACE, 16#B46). --define(GL_LIGHTING, 16#B50). --define(GL_LIGHT_MODEL_LOCAL_VIEWER, 16#B51). --define(GL_LIGHT_MODEL_TWO_SIDE, 16#B52). --define(GL_LIGHT_MODEL_AMBIENT, 16#B53). --define(GL_SHADE_MODEL, 16#B54). --define(GL_COLOR_MATERIAL_FACE, 16#B55). --define(GL_COLOR_MATERIAL_PARAMETER, 16#B56). --define(GL_COLOR_MATERIAL, 16#B57). +-define(GL_PASS_THROUGH_TOKEN, 16#700). +-define(GL_FEEDBACK_BUFFER_POINTER, 16#DF0). +-define(GL_FEEDBACK_BUFFER_SIZE, 16#DF1). +-define(GL_FEEDBACK_BUFFER_TYPE, 16#DF2). +-define(GL_SELECTION_BUFFER_POINTER, 16#DF3). +-define(GL_SELECTION_BUFFER_SIZE, 16#DF4). -define(GL_FOG, 16#B60). --define(GL_FOG_INDEX, 16#B61). +-define(GL_FOG_MODE, 16#B65). -define(GL_FOG_DENSITY, 16#B62). +-define(GL_FOG_COLOR, 16#B66). +-define(GL_FOG_INDEX, 16#B61). -define(GL_FOG_START, 16#B63). -define(GL_FOG_END, 16#B64). --define(GL_FOG_MODE, 16#B65). --define(GL_FOG_COLOR, 16#B66). --define(GL_DEPTH_RANGE, 16#B70). --define(GL_DEPTH_TEST, 16#B71). --define(GL_DEPTH_WRITEMASK, 16#B72). --define(GL_DEPTH_CLEAR_VALUE, 16#B73). --define(GL_DEPTH_FUNC, 16#B74). --define(GL_ACCUM_CLEAR_VALUE, 16#B80). +-define(GL_LINEAR, 16#2601). +-define(GL_EXP, 16#800). +-define(GL_EXP2, 16#801). +-define(GL_LOGIC_OP, 16#BF1). +-define(GL_INDEX_LOGIC_OP, 16#BF1). +-define(GL_COLOR_LOGIC_OP, 16#BF2). +-define(GL_LOGIC_OP_MODE, 16#BF0). +-define(GL_CLEAR, 16#1500). +-define(GL_SET, 16#150F). +-define(GL_COPY, 16#1503). +-define(GL_COPY_INVERTED, 16#150C). +-define(GL_NOOP, 16#1505). +-define(GL_INVERT, 16#150A). +-define(GL_AND, 16#1501). +-define(GL_NAND, 16#150E). +-define(GL_OR, 16#1507). +-define(GL_NOR, 16#1508). +-define(GL_XOR, 16#1506). +-define(GL_EQUIV, 16#1509). +-define(GL_AND_REVERSE, 16#1502). +-define(GL_AND_INVERTED, 16#1504). +-define(GL_OR_REVERSE, 16#150B). +-define(GL_OR_INVERTED, 16#150D). +-define(GL_STENCIL_BITS, 16#D57). -define(GL_STENCIL_TEST, 16#B90). -define(GL_STENCIL_CLEAR_VALUE, 16#B91). -define(GL_STENCIL_FUNC, 16#B92). @@ -205,89 +269,48 @@ -define(GL_STENCIL_PASS_DEPTH_PASS, 16#B96). -define(GL_STENCIL_REF, 16#B97). -define(GL_STENCIL_WRITEMASK, 16#B98). --define(GL_MATRIX_MODE, 16#BA0). --define(GL_NORMALIZE, 16#BA1). --define(GL_VIEWPORT, 16#BA2). --define(GL_MODELVIEW_STACK_DEPTH, 16#BA3). --define(GL_PROJECTION_STACK_DEPTH, 16#BA4). --define(GL_TEXTURE_STACK_DEPTH, 16#BA5). --define(GL_MODELVIEW_MATRIX, 16#BA6). --define(GL_PROJECTION_MATRIX, 16#BA7). --define(GL_TEXTURE_MATRIX, 16#BA8). --define(GL_ATTRIB_STACK_DEPTH, 16#BB0). --define(GL_CLIENT_ATTRIB_STACK_DEPTH, 16#BB1). --define(GL_ALPHA_TEST, 16#BC0). --define(GL_ALPHA_TEST_FUNC, 16#BC1). --define(GL_ALPHA_TEST_REF, 16#BC2). --define(GL_DITHER, 16#BD0). --define(GL_BLEND_DST, 16#BE0). --define(GL_BLEND_SRC, 16#BE1). --define(GL_BLEND, 16#BE2). --define(GL_LOGIC_OP_MODE, 16#BF0). --define(GL_INDEX_LOGIC_OP, 16#BF1). --define(GL_LOGIC_OP, ?GL_INDEX_LOGIC_OP). --define(GL_COLOR_LOGIC_OP, 16#BF2). +-define(GL_STENCIL_INDEX, 16#1901). +-define(GL_KEEP, 16#1E00). +-define(GL_REPLACE, 16#1E01). +-define(GL_INCR, 16#1E02). +-define(GL_DECR, 16#1E03). +-define(GL_NONE, 16#0). +-define(GL_LEFT, 16#406). +-define(GL_RIGHT, 16#407). +-define(GL_FRONT_LEFT, 16#400). +-define(GL_FRONT_RIGHT, 16#401). +-define(GL_BACK_LEFT, 16#402). +-define(GL_BACK_RIGHT, 16#403). +-define(GL_AUX0, 16#409). +-define(GL_AUX1, 16#40A). +-define(GL_AUX2, 16#40B). +-define(GL_AUX3, 16#40C). +-define(GL_COLOR_INDEX, 16#1900). +-define(GL_RED, 16#1903). +-define(GL_GREEN, 16#1904). +-define(GL_BLUE, 16#1905). +-define(GL_ALPHA, 16#1906). +-define(GL_LUMINANCE, 16#1909). +-define(GL_LUMINANCE_ALPHA, 16#190A). +-define(GL_ALPHA_BITS, 16#D55). +-define(GL_RED_BITS, 16#D52). +-define(GL_GREEN_BITS, 16#D53). +-define(GL_BLUE_BITS, 16#D54). +-define(GL_INDEX_BITS, 16#D51). +-define(GL_SUBPIXEL_BITS, 16#D50). -define(GL_AUX_BUFFERS, 16#C00). --define(GL_DRAW_BUFFER, 16#C01). -define(GL_READ_BUFFER, 16#C02). --define(GL_SCISSOR_BOX, 16#C10). --define(GL_SCISSOR_TEST, 16#C11). --define(GL_INDEX_CLEAR_VALUE, 16#C20). --define(GL_INDEX_WRITEMASK, 16#C21). --define(GL_COLOR_CLEAR_VALUE, 16#C22). --define(GL_COLOR_WRITEMASK, 16#C23). --define(GL_INDEX_MODE, 16#C30). --define(GL_RGBA_MODE, 16#C31). +-define(GL_DRAW_BUFFER, 16#C01). -define(GL_DOUBLEBUFFER, 16#C32). -define(GL_STEREO, 16#C33). --define(GL_RENDER_MODE, 16#C40). --define(GL_PERSPECTIVE_CORRECTION_HINT, 16#C50). --define(GL_POINT_SMOOTH_HINT, 16#C51). --define(GL_LINE_SMOOTH_HINT, 16#C52). --define(GL_POLYGON_SMOOTH_HINT, 16#C53). --define(GL_FOG_HINT, 16#C54). --define(GL_TEXTURE_GEN_S, 16#C60). --define(GL_TEXTURE_GEN_T, 16#C61). --define(GL_TEXTURE_GEN_R, 16#C62). --define(GL_TEXTURE_GEN_Q, 16#C63). --define(GL_PIXEL_MAP_I_TO_I_SIZE, 16#CB0). --define(GL_PIXEL_MAP_S_TO_S_SIZE, 16#CB1). --define(GL_PIXEL_MAP_I_TO_R_SIZE, 16#CB2). --define(GL_PIXEL_MAP_I_TO_G_SIZE, 16#CB3). --define(GL_PIXEL_MAP_I_TO_B_SIZE, 16#CB4). --define(GL_PIXEL_MAP_I_TO_A_SIZE, 16#CB5). --define(GL_PIXEL_MAP_R_TO_R_SIZE, 16#CB6). --define(GL_PIXEL_MAP_G_TO_G_SIZE, 16#CB7). --define(GL_PIXEL_MAP_B_TO_B_SIZE, 16#CB8). --define(GL_PIXEL_MAP_A_TO_A_SIZE, 16#CB9). --define(GL_UNPACK_SWAP_BYTES, 16#CF0). --define(GL_UNPACK_LSB_FIRST, 16#CF1). --define(GL_UNPACK_ROW_LENGTH, 16#CF2). --define(GL_UNPACK_SKIP_ROWS, 16#CF3). --define(GL_UNPACK_SKIP_PIXELS, 16#CF4). --define(GL_UNPACK_ALIGNMENT, 16#CF5). --define(GL_PACK_SWAP_BYTES, 16#D00). --define(GL_PACK_LSB_FIRST, 16#D01). --define(GL_PACK_ROW_LENGTH, 16#D02). --define(GL_PACK_SKIP_ROWS, 16#D03). --define(GL_PACK_SKIP_PIXELS, 16#D04). --define(GL_PACK_ALIGNMENT, 16#D05). --define(GL_MAP_COLOR, 16#D10). --define(GL_MAP_STENCIL, 16#D11). --define(GL_INDEX_SHIFT, 16#D12). --define(GL_INDEX_OFFSET, 16#D13). --define(GL_RED_SCALE, 16#D14). --define(GL_RED_BIAS, 16#D15). --define(GL_ZOOM_X, 16#D16). --define(GL_ZOOM_Y, 16#D17). --define(GL_GREEN_SCALE, 16#D18). --define(GL_GREEN_BIAS, 16#D19). --define(GL_BLUE_SCALE, 16#D1A). --define(GL_BLUE_BIAS, 16#D1B). --define(GL_ALPHA_SCALE, 16#D1C). --define(GL_ALPHA_BIAS, 16#D1D). --define(GL_DEPTH_SCALE, 16#D1E). --define(GL_DEPTH_BIAS, 16#D1F). +-define(GL_BITMAP, 16#1A00). +-define(GL_COLOR, 16#1800). +-define(GL_DEPTH, 16#1801). +-define(GL_STENCIL, 16#1802). +-define(GL_DITHER, 16#BD0). +-define(GL_RGB, 16#1907). +-define(GL_RGBA, 16#1908). +-define(GL_MAX_LIST_NESTING, 16#B31). -define(GL_MAX_EVAL_ORDER, 16#D30). -define(GL_MAX_LIGHTS, 16#D31). -define(GL_MAX_CLIP_PLANES, 16#D32). @@ -300,19 +323,33 @@ -define(GL_MAX_TEXTURE_STACK_DEPTH, 16#D39). -define(GL_MAX_VIEWPORT_DIMS, 16#D3A). -define(GL_MAX_CLIENT_ATTRIB_STACK_DEPTH, 16#D3B). --define(GL_SUBPIXEL_BITS, 16#D50). --define(GL_INDEX_BITS, 16#D51). --define(GL_RED_BITS, 16#D52). --define(GL_GREEN_BITS, 16#D53). --define(GL_BLUE_BITS, 16#D54). --define(GL_ALPHA_BITS, 16#D55). --define(GL_DEPTH_BITS, 16#D56). --define(GL_STENCIL_BITS, 16#D57). --define(GL_ACCUM_RED_BITS, 16#D58). --define(GL_ACCUM_GREEN_BITS, 16#D59). --define(GL_ACCUM_BLUE_BITS, 16#D5A). --define(GL_ACCUM_ALPHA_BITS, 16#D5B). +-define(GL_ATTRIB_STACK_DEPTH, 16#BB0). +-define(GL_CLIENT_ATTRIB_STACK_DEPTH, 16#BB1). +-define(GL_COLOR_CLEAR_VALUE, 16#C22). +-define(GL_COLOR_WRITEMASK, 16#C23). +-define(GL_CURRENT_INDEX, 16#B01). +-define(GL_CURRENT_COLOR, 16#B00). +-define(GL_CURRENT_NORMAL, 16#B02). +-define(GL_CURRENT_RASTER_COLOR, 16#B04). +-define(GL_CURRENT_RASTER_DISTANCE, 16#B09). +-define(GL_CURRENT_RASTER_INDEX, 16#B05). +-define(GL_CURRENT_RASTER_POSITION, 16#B07). +-define(GL_CURRENT_RASTER_TEXTURE_COORDS, 16#B06). +-define(GL_CURRENT_RASTER_POSITION_VALID, 16#B08). +-define(GL_CURRENT_TEXTURE_COORDS, 16#B03). +-define(GL_INDEX_CLEAR_VALUE, 16#C20). +-define(GL_INDEX_MODE, 16#C30). +-define(GL_INDEX_WRITEMASK, 16#C21). +-define(GL_MODELVIEW_MATRIX, 16#BA6). +-define(GL_MODELVIEW_STACK_DEPTH, 16#BA3). -define(GL_NAME_STACK_DEPTH, 16#D70). +-define(GL_PROJECTION_MATRIX, 16#BA7). +-define(GL_PROJECTION_STACK_DEPTH, 16#BA4). +-define(GL_RENDER_MODE, 16#C40). +-define(GL_RGBA_MODE, 16#C31). +-define(GL_TEXTURE_MATRIX, 16#BA8). +-define(GL_TEXTURE_STACK_DEPTH, 16#BA5). +-define(GL_VIEWPORT, 16#BA2). -define(GL_AUTO_NORMAL, 16#D80). -define(GL_MAP1_COLOR_4, 16#D90). -define(GL_MAP1_INDEX, 16#D91). @@ -336,166 +373,149 @@ -define(GL_MAP1_GRID_SEGMENTS, 16#DD1). -define(GL_MAP2_GRID_DOMAIN, 16#DD2). -define(GL_MAP2_GRID_SEGMENTS, 16#DD3). +-define(GL_COEFF, 16#A00). +-define(GL_ORDER, 16#A01). +-define(GL_DOMAIN, 16#A02). +-define(GL_PERSPECTIVE_CORRECTION_HINT, 16#C50). +-define(GL_POINT_SMOOTH_HINT, 16#C51). +-define(GL_LINE_SMOOTH_HINT, 16#C52). +-define(GL_POLYGON_SMOOTH_HINT, 16#C53). +-define(GL_FOG_HINT, 16#C54). +-define(GL_DONT_CARE, 16#1100). +-define(GL_FASTEST, 16#1101). +-define(GL_NICEST, 16#1102). +-define(GL_SCISSOR_BOX, 16#C10). +-define(GL_SCISSOR_TEST, 16#C11). +-define(GL_MAP_COLOR, 16#D10). +-define(GL_MAP_STENCIL, 16#D11). +-define(GL_INDEX_SHIFT, 16#D12). +-define(GL_INDEX_OFFSET, 16#D13). +-define(GL_RED_SCALE, 16#D14). +-define(GL_RED_BIAS, 16#D15). +-define(GL_GREEN_SCALE, 16#D18). +-define(GL_GREEN_BIAS, 16#D19). +-define(GL_BLUE_SCALE, 16#D1A). +-define(GL_BLUE_BIAS, 16#D1B). +-define(GL_ALPHA_SCALE, 16#D1C). +-define(GL_ALPHA_BIAS, 16#D1D). +-define(GL_DEPTH_SCALE, 16#D1E). +-define(GL_DEPTH_BIAS, 16#D1F). +-define(GL_PIXEL_MAP_S_TO_S_SIZE, 16#CB1). +-define(GL_PIXEL_MAP_I_TO_I_SIZE, 16#CB0). +-define(GL_PIXEL_MAP_I_TO_R_SIZE, 16#CB2). +-define(GL_PIXEL_MAP_I_TO_G_SIZE, 16#CB3). +-define(GL_PIXEL_MAP_I_TO_B_SIZE, 16#CB4). +-define(GL_PIXEL_MAP_I_TO_A_SIZE, 16#CB5). +-define(GL_PIXEL_MAP_R_TO_R_SIZE, 16#CB6). +-define(GL_PIXEL_MAP_G_TO_G_SIZE, 16#CB7). +-define(GL_PIXEL_MAP_B_TO_B_SIZE, 16#CB8). +-define(GL_PIXEL_MAP_A_TO_A_SIZE, 16#CB9). +-define(GL_PIXEL_MAP_S_TO_S, 16#C71). +-define(GL_PIXEL_MAP_I_TO_I, 16#C70). +-define(GL_PIXEL_MAP_I_TO_R, 16#C72). +-define(GL_PIXEL_MAP_I_TO_G, 16#C73). +-define(GL_PIXEL_MAP_I_TO_B, 16#C74). +-define(GL_PIXEL_MAP_I_TO_A, 16#C75). +-define(GL_PIXEL_MAP_R_TO_R, 16#C76). +-define(GL_PIXEL_MAP_G_TO_G, 16#C77). +-define(GL_PIXEL_MAP_B_TO_B, 16#C78). +-define(GL_PIXEL_MAP_A_TO_A, 16#C79). +-define(GL_PACK_ALIGNMENT, 16#D05). +-define(GL_PACK_LSB_FIRST, 16#D01). +-define(GL_PACK_ROW_LENGTH, 16#D02). +-define(GL_PACK_SKIP_PIXELS, 16#D04). +-define(GL_PACK_SKIP_ROWS, 16#D03). +-define(GL_PACK_SWAP_BYTES, 16#D00). +-define(GL_UNPACK_ALIGNMENT, 16#CF5). +-define(GL_UNPACK_LSB_FIRST, 16#CF1). +-define(GL_UNPACK_ROW_LENGTH, 16#CF2). +-define(GL_UNPACK_SKIP_PIXELS, 16#CF4). +-define(GL_UNPACK_SKIP_ROWS, 16#CF3). +-define(GL_UNPACK_SWAP_BYTES, 16#CF0). +-define(GL_ZOOM_X, 16#D16). +-define(GL_ZOOM_Y, 16#D17). +-define(GL_TEXTURE_ENV, 16#2300). +-define(GL_TEXTURE_ENV_MODE, 16#2200). -define(GL_TEXTURE_1D, 16#DE0). -define(GL_TEXTURE_2D, 16#DE1). --define(GL_FEEDBACK_BUFFER_POINTER, 16#DF0). --define(GL_FEEDBACK_BUFFER_SIZE, 16#DF1). --define(GL_FEEDBACK_BUFFER_TYPE, 16#DF2). --define(GL_SELECTION_BUFFER_POINTER, 16#DF3). --define(GL_SELECTION_BUFFER_SIZE, 16#DF4). --define(GL_POLYGON_OFFSET_UNITS, 16#2A00). --define(GL_POLYGON_OFFSET_POINT, 16#2A01). --define(GL_POLYGON_OFFSET_LINE, 16#2A02). --define(GL_POLYGON_OFFSET_FILL, 16#8037). --define(GL_POLYGON_OFFSET_FACTOR, 16#8038). --define(GL_TEXTURE_BINDING_1D, 16#8068). --define(GL_TEXTURE_BINDING_2D, 16#8069). --define(GL_TEXTURE_BINDING_3D, 16#806A). --define(GL_VERTEX_ARRAY, 16#8074). --define(GL_NORMAL_ARRAY, 16#8075). --define(GL_COLOR_ARRAY, 16#8076). --define(GL_INDEX_ARRAY, 16#8077). --define(GL_TEXTURE_COORD_ARRAY, 16#8078). --define(GL_EDGE_FLAG_ARRAY, 16#8079). --define(GL_VERTEX_ARRAY_SIZE, 16#807A). --define(GL_VERTEX_ARRAY_TYPE, 16#807B). --define(GL_VERTEX_ARRAY_STRIDE, 16#807C). --define(GL_NORMAL_ARRAY_TYPE, 16#807E). --define(GL_NORMAL_ARRAY_STRIDE, 16#807F). --define(GL_COLOR_ARRAY_SIZE, 16#8081). --define(GL_COLOR_ARRAY_TYPE, 16#8082). --define(GL_COLOR_ARRAY_STRIDE, 16#8083). --define(GL_INDEX_ARRAY_TYPE, 16#8085). --define(GL_INDEX_ARRAY_STRIDE, 16#8086). --define(GL_TEXTURE_COORD_ARRAY_SIZE, 16#8088). --define(GL_TEXTURE_COORD_ARRAY_TYPE, 16#8089). --define(GL_TEXTURE_COORD_ARRAY_STRIDE, 16#808A). --define(GL_EDGE_FLAG_ARRAY_STRIDE, 16#808C). +-define(GL_TEXTURE_WRAP_S, 16#2802). +-define(GL_TEXTURE_WRAP_T, 16#2803). +-define(GL_TEXTURE_MAG_FILTER, 16#2800). +-define(GL_TEXTURE_MIN_FILTER, 16#2801). +-define(GL_TEXTURE_ENV_COLOR, 16#2201). +-define(GL_TEXTURE_GEN_S, 16#C60). +-define(GL_TEXTURE_GEN_T, 16#C61). +-define(GL_TEXTURE_GEN_MODE, 16#2500). +-define(GL_TEXTURE_BORDER_COLOR, 16#1004). -define(GL_TEXTURE_WIDTH, 16#1000). -define(GL_TEXTURE_HEIGHT, 16#1001). --define(GL_TEXTURE_INTERNAL_FORMAT, 16#1003). --define(GL_TEXTURE_COMPONENTS, ?GL_TEXTURE_INTERNAL_FORMAT). --define(GL_TEXTURE_BORDER_COLOR, 16#1004). -define(GL_TEXTURE_BORDER, 16#1005). +-define(GL_TEXTURE_COMPONENTS, 16#1003). -define(GL_TEXTURE_RED_SIZE, 16#805C). -define(GL_TEXTURE_GREEN_SIZE, 16#805D). -define(GL_TEXTURE_BLUE_SIZE, 16#805E). -define(GL_TEXTURE_ALPHA_SIZE, 16#805F). -define(GL_TEXTURE_LUMINANCE_SIZE, 16#8060). -define(GL_TEXTURE_INTENSITY_SIZE, 16#8061). --define(GL_TEXTURE_PRIORITY, 16#8066). --define(GL_TEXTURE_RESIDENT, 16#8067). --define(GL_DONT_CARE, 16#1100). --define(GL_FASTEST, 16#1101). --define(GL_NICEST, 16#1102). --define(GL_AMBIENT, 16#1200). --define(GL_DIFFUSE, 16#1201). --define(GL_SPECULAR, 16#1202). --define(GL_POSITION, 16#1203). --define(GL_SPOT_DIRECTION, 16#1204). --define(GL_SPOT_EXPONENT, 16#1205). --define(GL_SPOT_CUTOFF, 16#1206). --define(GL_CONSTANT_ATTENUATION, 16#1207). --define(GL_LINEAR_ATTENUATION, 16#1208). --define(GL_QUADRATIC_ATTENUATION, 16#1209). --define(GL_COMPILE, 16#1300). --define(GL_COMPILE_AND_EXECUTE, 16#1301). --define(GL_BYTE, 16#1400). --define(GL_UNSIGNED_BYTE, 16#1401). --define(GL_SHORT, 16#1402). --define(GL_UNSIGNED_SHORT, 16#1403). --define(GL_INT, 16#1404). --define(GL_UNSIGNED_INT, 16#1405). --define(GL_FLOAT, 16#1406). --define(GL_2_BYTES, 16#1407). --define(GL_3_BYTES, 16#1408). --define(GL_4_BYTES, 16#1409). --define(GL_DOUBLE, 16#140A). --define(GL_DOUBLE_EXT, 16#140A). --define(GL_CLEAR, 16#1500). --define(GL_AND, 16#1501). --define(GL_AND_REVERSE, 16#1502). --define(GL_COPY, 16#1503). --define(GL_AND_INVERTED, 16#1504). --define(GL_NOOP, 16#1505). --define(GL_XOR, 16#1506). --define(GL_OR, 16#1507). --define(GL_NOR, 16#1508). --define(GL_EQUIV, 16#1509). --define(GL_INVERT, 16#150A). --define(GL_OR_REVERSE, 16#150B). --define(GL_COPY_INVERTED, 16#150C). --define(GL_OR_INVERTED, 16#150D). --define(GL_NAND, 16#150E). --define(GL_SET, 16#150F). --define(GL_EMISSION, 16#1600). --define(GL_SHININESS, 16#1601). --define(GL_AMBIENT_AND_DIFFUSE, 16#1602). --define(GL_COLOR_INDEXES, 16#1603). --define(GL_MODELVIEW, 16#1700). --define(GL_PROJECTION, 16#1701). --define(GL_TEXTURE, 16#1702). --define(GL_COLOR, 16#1800). --define(GL_DEPTH, 16#1801). --define(GL_STENCIL, 16#1802). --define(GL_COLOR_INDEX, 16#1900). --define(GL_STENCIL_INDEX, 16#1901). --define(GL_DEPTH_COMPONENT, 16#1902). --define(GL_RED, 16#1903). --define(GL_GREEN, 16#1904). --define(GL_BLUE, 16#1905). --define(GL_ALPHA, 16#1906). --define(GL_RGB, 16#1907). --define(GL_RGBA, 16#1908). --define(GL_LUMINANCE, 16#1909). --define(GL_LUMINANCE_ALPHA, 16#190A). --define(GL_BITMAP, 16#1A00). --define(GL_POINT, 16#1B00). --define(GL_LINE, 16#1B01). --define(GL_FILL, 16#1B02). --define(GL_RENDER, 16#1C00). --define(GL_FEEDBACK, 16#1C01). --define(GL_SELECT, 16#1C02). --define(GL_FLAT, 16#1D00). --define(GL_SMOOTH, 16#1D01). --define(GL_KEEP, 16#1E00). --define(GL_REPLACE, 16#1E01). --define(GL_INCR, 16#1E02). --define(GL_DECR, 16#1E03). --define(GL_VENDOR, 16#1F00). --define(GL_RENDERER, 16#1F01). --define(GL_VERSION, 16#1F02). --define(GL_EXTENSIONS, 16#1F03). --define(GL_S, 16#2000). --define(GL_T, 16#2001). --define(GL_R, 16#2002). --define(GL_Q, 16#2003). --define(GL_MODULATE, 16#2100). --define(GL_DECAL, 16#2101). --define(GL_TEXTURE_ENV_MODE, 16#2200). --define(GL_TEXTURE_ENV_COLOR, 16#2201). --define(GL_TEXTURE_ENV, 16#2300). --define(GL_EYE_LINEAR, 16#2400). +-define(GL_NEAREST_MIPMAP_NEAREST, 16#2700). +-define(GL_NEAREST_MIPMAP_LINEAR, 16#2702). +-define(GL_LINEAR_MIPMAP_NEAREST, 16#2701). +-define(GL_LINEAR_MIPMAP_LINEAR, 16#2703). -define(GL_OBJECT_LINEAR, 16#2401). --define(GL_SPHERE_MAP, 16#2402). --define(GL_TEXTURE_GEN_MODE, 16#2500). -define(GL_OBJECT_PLANE, 16#2501). +-define(GL_EYE_LINEAR, 16#2400). -define(GL_EYE_PLANE, 16#2502). +-define(GL_SPHERE_MAP, 16#2402). +-define(GL_DECAL, 16#2101). +-define(GL_MODULATE, 16#2100). -define(GL_NEAREST, 16#2600). --define(GL_LINEAR, 16#2601). --define(GL_NEAREST_MIPMAP_NEAREST, 16#2700). --define(GL_LINEAR_MIPMAP_NEAREST, 16#2701). --define(GL_NEAREST_MIPMAP_LINEAR, 16#2702). --define(GL_LINEAR_MIPMAP_LINEAR, 16#2703). --define(GL_TEXTURE_MAG_FILTER, 16#2800). --define(GL_TEXTURE_MIN_FILTER, 16#2801). --define(GL_TEXTURE_WRAP_S, 16#2802). --define(GL_TEXTURE_WRAP_T, 16#2803). +-define(GL_REPEAT, 16#2901). +-define(GL_CLAMP, 16#2900). +-define(GL_S, 16#2000). +-define(GL_T, 16#2001). +-define(GL_R, 16#2002). +-define(GL_Q, 16#2003). +-define(GL_TEXTURE_GEN_R, 16#C62). +-define(GL_TEXTURE_GEN_Q, 16#C63). +-define(GL_VENDOR, 16#1F00). +-define(GL_RENDERER, 16#1F01). +-define(GL_VERSION, 16#1F02). +-define(GL_EXTENSIONS, 16#1F03). +-define(GL_NO_ERROR, 16#0). +-define(GL_INVALID_ENUM, 16#500). +-define(GL_INVALID_VALUE, 16#501). +-define(GL_INVALID_OPERATION, 16#502). +-define(GL_STACK_OVERFLOW, 16#503). +-define(GL_STACK_UNDERFLOW, 16#504). +-define(GL_OUT_OF_MEMORY, 16#505). +-define(GL_CURRENT_BIT, 16#1). +-define(GL_POINT_BIT, 16#2). +-define(GL_LINE_BIT, 16#4). +-define(GL_POLYGON_BIT, 16#8). +-define(GL_POLYGON_STIPPLE_BIT, 16#10). +-define(GL_PIXEL_MODE_BIT, 16#20). +-define(GL_LIGHTING_BIT, 16#40). +-define(GL_FOG_BIT, 16#80). +-define(GL_DEPTH_BUFFER_BIT, 16#100). +-define(GL_ACCUM_BUFFER_BIT, 16#200). +-define(GL_STENCIL_BUFFER_BIT, 16#400). +-define(GL_VIEWPORT_BIT, 16#800). +-define(GL_TRANSFORM_BIT, 16#1000). +-define(GL_ENABLE_BIT, 16#2000). +-define(GL_COLOR_BUFFER_BIT, 16#4000). +-define(GL_HINT_BIT, 16#8000). +-define(GL_EVAL_BIT, 16#10000). +-define(GL_LIST_BIT, 16#20000). +-define(GL_TEXTURE_BIT, 16#40000). +-define(GL_SCISSOR_BIT, 16#80000). +-define(GL_ALL_ATTRIB_BITS, 16#FFFFF). -define(GL_PROXY_TEXTURE_1D, 16#8063). -define(GL_PROXY_TEXTURE_2D, 16#8064). --define(GL_CLAMP, 16#2900). --define(GL_REPEAT, 16#2901). --define(GL_R3_G3_B2, 16#2A10). +-define(GL_TEXTURE_PRIORITY, 16#8066). +-define(GL_TEXTURE_RESIDENT, 16#8067). +-define(GL_TEXTURE_BINDING_1D, 16#8068). +-define(GL_TEXTURE_BINDING_2D, 16#8069). +-define(GL_TEXTURE_INTERNAL_FORMAT, 16#1003). -define(GL_ALPHA4, 16#803B). -define(GL_ALPHA8, 16#803C). -define(GL_ALPHA12, 16#803D). @@ -515,6 +535,7 @@ -define(GL_INTENSITY8, 16#804B). -define(GL_INTENSITY12, 16#804C). -define(GL_INTENSITY16, 16#804D). +-define(GL_R3_G3_B2, 16#2A10). -define(GL_RGB4, 16#804F). -define(GL_RGB5, 16#8050). -define(GL_RGB8, 16#8051). @@ -528,51 +549,14 @@ -define(GL_RGB10_A2, 16#8059). -define(GL_RGBA12, 16#805A). -define(GL_RGBA16, 16#805B). --define(GL_V2F, 16#2A20). --define(GL_V3F, 16#2A21). --define(GL_C4UB_V2F, 16#2A22). --define(GL_C4UB_V3F, 16#2A23). --define(GL_C3F_V3F, 16#2A24). --define(GL_N3F_V3F, 16#2A25). --define(GL_C4F_N3F_V3F, 16#2A26). --define(GL_T2F_V3F, 16#2A27). --define(GL_T4F_V4F, 16#2A28). --define(GL_T2F_C4UB_V3F, 16#2A29). --define(GL_T2F_C3F_V3F, 16#2A2A). --define(GL_T2F_N3F_V3F, 16#2A2B). --define(GL_T2F_C4F_N3F_V3F, 16#2A2C). --define(GL_T4F_C4F_N3F_V4F, 16#2A2D). --define(GL_CLIP_PLANE0, 16#3000). --define(GL_CLIP_PLANE1, 16#3001). --define(GL_CLIP_PLANE2, 16#3002). --define(GL_CLIP_PLANE3, 16#3003). --define(GL_CLIP_PLANE4, 16#3004). --define(GL_CLIP_PLANE5, 16#3005). --define(GL_LIGHT0, 16#4000). --define(GL_LIGHT1, 16#4001). --define(GL_LIGHT2, 16#4002). --define(GL_LIGHT3, 16#4003). --define(GL_LIGHT4, 16#4004). --define(GL_LIGHT5, 16#4005). --define(GL_LIGHT6, 16#4006). --define(GL_LIGHT7, 16#4007). --define(GL_ABGR_EXT, 16#8000). --define(GL_FUNC_SUBTRACT_EXT, 16#800A). --define(GL_FUNC_REVERSE_SUBTRACT_EXT, 16#800B). --define(GL_UNSIGNED_BYTE_3_3_2_EXT, 16#8032). --define(GL_UNSIGNED_SHORT_4_4_4_4_EXT, 16#8033). --define(GL_UNSIGNED_SHORT_5_5_5_1_EXT, 16#8034). --define(GL_UNSIGNED_INT_8_8_8_8_EXT, 16#8035). --define(GL_UNSIGNED_INT_10_10_10_2_EXT, 16#8036). --define(GL_PACK_SKIP_IMAGES, 16#806B). --define(GL_PACK_IMAGE_HEIGHT, 16#806C). --define(GL_UNPACK_SKIP_IMAGES, 16#806D). --define(GL_UNPACK_IMAGE_HEIGHT, 16#806E). --define(GL_TEXTURE_3D, 16#806F). --define(GL_PROXY_TEXTURE_3D, 16#8070). --define(GL_TEXTURE_DEPTH, 16#8071). --define(GL_TEXTURE_WRAP_R, 16#8072). --define(GL_MAX_3D_TEXTURE_SIZE, 16#8073). +-define(GL_CLIENT_PIXEL_STORE_BIT, 16#1). +-define(GL_CLIENT_VERTEX_ARRAY_BIT, 16#2). +-define(GL_ALL_CLIENT_ATTRIB_BITS, 16#FFFFFFFF). +-define(GL_CLIENT_ALL_ATTRIB_BITS, 16#FFFFFFFF). +-define(GL_RESCALE_NORMAL, 16#803A). +-define(GL_CLAMP_TO_EDGE, 16#812F). +-define(GL_MAX_ELEMENTS_VERTICES, 16#80E8). +-define(GL_MAX_ELEMENTS_INDICES, 16#80E9). -define(GL_BGR, 16#80E0). -define(GL_BGRA, 16#80E1). -define(GL_UNSIGNED_BYTE_3_3_2, 16#8032). @@ -587,22 +571,104 @@ -define(GL_UNSIGNED_INT_8_8_8_8_REV, 16#8367). -define(GL_UNSIGNED_INT_10_10_10_2, 16#8036). -define(GL_UNSIGNED_INT_2_10_10_10_REV, 16#8368). --define(GL_RESCALE_NORMAL, 16#803A). -define(GL_LIGHT_MODEL_COLOR_CONTROL, 16#81F8). -define(GL_SINGLE_COLOR, 16#81F9). -define(GL_SEPARATE_SPECULAR_COLOR, 16#81FA). --define(GL_CLAMP_TO_EDGE, 16#812F). -define(GL_TEXTURE_MIN_LOD, 16#813A). -define(GL_TEXTURE_MAX_LOD, 16#813B). -define(GL_TEXTURE_BASE_LEVEL, 16#813C). -define(GL_TEXTURE_MAX_LEVEL, 16#813D). --define(GL_MAX_ELEMENTS_VERTICES, 16#80E8). --define(GL_MAX_ELEMENTS_INDICES, 16#80E9). +-define(GL_SMOOTH_POINT_SIZE_RANGE, 16#B12). +-define(GL_SMOOTH_POINT_SIZE_GRANULARITY, 16#B13). +-define(GL_SMOOTH_LINE_WIDTH_RANGE, 16#B22). +-define(GL_SMOOTH_LINE_WIDTH_GRANULARITY, 16#B23). -define(GL_ALIASED_POINT_SIZE_RANGE, 16#846D). -define(GL_ALIASED_LINE_WIDTH_RANGE, 16#846E). --define(GL_ACTIVE_TEXTURE, 16#84E0). --define(GL_CLIENT_ACTIVE_TEXTURE, 16#84E1). --define(GL_MAX_TEXTURE_UNITS, 16#84E2). +-define(GL_PACK_SKIP_IMAGES, 16#806B). +-define(GL_PACK_IMAGE_HEIGHT, 16#806C). +-define(GL_UNPACK_SKIP_IMAGES, 16#806D). +-define(GL_UNPACK_IMAGE_HEIGHT, 16#806E). +-define(GL_TEXTURE_3D, 16#806F). +-define(GL_PROXY_TEXTURE_3D, 16#8070). +-define(GL_TEXTURE_DEPTH, 16#8071). +-define(GL_TEXTURE_WRAP_R, 16#8072). +-define(GL_MAX_3D_TEXTURE_SIZE, 16#8073). +-define(GL_TEXTURE_BINDING_3D, 16#806A). +-define(GL_CONSTANT_COLOR, 16#8001). +-define(GL_ONE_MINUS_CONSTANT_COLOR, 16#8002). +-define(GL_CONSTANT_ALPHA, 16#8003). +-define(GL_ONE_MINUS_CONSTANT_ALPHA, 16#8004). +-define(GL_COLOR_TABLE, 16#80D0). +-define(GL_POST_CONVOLUTION_COLOR_TABLE, 16#80D1). +-define(GL_POST_COLOR_MATRIX_COLOR_TABLE, 16#80D2). +-define(GL_PROXY_COLOR_TABLE, 16#80D3). +-define(GL_PROXY_POST_CONVOLUTION_COLOR_TABLE, 16#80D4). +-define(GL_PROXY_POST_COLOR_MATRIX_COLOR_TABLE, 16#80D5). +-define(GL_COLOR_TABLE_SCALE, 16#80D6). +-define(GL_COLOR_TABLE_BIAS, 16#80D7). +-define(GL_COLOR_TABLE_FORMAT, 16#80D8). +-define(GL_COLOR_TABLE_WIDTH, 16#80D9). +-define(GL_COLOR_TABLE_RED_SIZE, 16#80DA). +-define(GL_COLOR_TABLE_GREEN_SIZE, 16#80DB). +-define(GL_COLOR_TABLE_BLUE_SIZE, 16#80DC). +-define(GL_COLOR_TABLE_ALPHA_SIZE, 16#80DD). +-define(GL_COLOR_TABLE_LUMINANCE_SIZE, 16#80DE). +-define(GL_COLOR_TABLE_INTENSITY_SIZE, 16#80DF). +-define(GL_CONVOLUTION_1D, 16#8010). +-define(GL_CONVOLUTION_2D, 16#8011). +-define(GL_SEPARABLE_2D, 16#8012). +-define(GL_CONVOLUTION_BORDER_MODE, 16#8013). +-define(GL_CONVOLUTION_FILTER_SCALE, 16#8014). +-define(GL_CONVOLUTION_FILTER_BIAS, 16#8015). +-define(GL_REDUCE, 16#8016). +-define(GL_CONVOLUTION_FORMAT, 16#8017). +-define(GL_CONVOLUTION_WIDTH, 16#8018). +-define(GL_CONVOLUTION_HEIGHT, 16#8019). +-define(GL_MAX_CONVOLUTION_WIDTH, 16#801A). +-define(GL_MAX_CONVOLUTION_HEIGHT, 16#801B). +-define(GL_POST_CONVOLUTION_RED_SCALE, 16#801C). +-define(GL_POST_CONVOLUTION_GREEN_SCALE, 16#801D). +-define(GL_POST_CONVOLUTION_BLUE_SCALE, 16#801E). +-define(GL_POST_CONVOLUTION_ALPHA_SCALE, 16#801F). +-define(GL_POST_CONVOLUTION_RED_BIAS, 16#8020). +-define(GL_POST_CONVOLUTION_GREEN_BIAS, 16#8021). +-define(GL_POST_CONVOLUTION_BLUE_BIAS, 16#8022). +-define(GL_POST_CONVOLUTION_ALPHA_BIAS, 16#8023). +-define(GL_CONSTANT_BORDER, 16#8151). +-define(GL_REPLICATE_BORDER, 16#8153). +-define(GL_CONVOLUTION_BORDER_COLOR, 16#8154). +-define(GL_COLOR_MATRIX, 16#80B1). +-define(GL_COLOR_MATRIX_STACK_DEPTH, 16#80B2). +-define(GL_MAX_COLOR_MATRIX_STACK_DEPTH, 16#80B3). +-define(GL_POST_COLOR_MATRIX_RED_SCALE, 16#80B4). +-define(GL_POST_COLOR_MATRIX_GREEN_SCALE, 16#80B5). +-define(GL_POST_COLOR_MATRIX_BLUE_SCALE, 16#80B6). +-define(GL_POST_COLOR_MATRIX_ALPHA_SCALE, 16#80B7). +-define(GL_POST_COLOR_MATRIX_RED_BIAS, 16#80B8). +-define(GL_POST_COLOR_MATRIX_GREEN_BIAS, 16#80B9). +-define(GL_POST_COLOR_MATRIX_BLUE_BIAS, 16#80BA). +-define(GL_POST_COLOR_MATRIX_ALPHA_BIAS, 16#80BB). +-define(GL_HISTOGRAM, 16#8024). +-define(GL_PROXY_HISTOGRAM, 16#8025). +-define(GL_HISTOGRAM_WIDTH, 16#8026). +-define(GL_HISTOGRAM_FORMAT, 16#8027). +-define(GL_HISTOGRAM_RED_SIZE, 16#8028). +-define(GL_HISTOGRAM_GREEN_SIZE, 16#8029). +-define(GL_HISTOGRAM_BLUE_SIZE, 16#802A). +-define(GL_HISTOGRAM_ALPHA_SIZE, 16#802B). +-define(GL_HISTOGRAM_LUMINANCE_SIZE, 16#802C). +-define(GL_HISTOGRAM_SINK, 16#802D). +-define(GL_MINMAX, 16#802E). +-define(GL_MINMAX_FORMAT, 16#802F). +-define(GL_MINMAX_SINK, 16#8030). +-define(GL_TABLE_TOO_LARGE, 16#8031). +-define(GL_BLEND_EQUATION, 16#8009). +-define(GL_MIN, 16#8007). +-define(GL_MAX, 16#8008). +-define(GL_FUNC_ADD, 16#8006). +-define(GL_FUNC_SUBTRACT, 16#800A). +-define(GL_FUNC_REVERSE_SUBTRACT, 16#800B). +-define(GL_BLEND_COLOR, 16#8005). -define(GL_TEXTURE0, 16#84C0). -define(GL_TEXTURE1, 16#84C1). -define(GL_TEXTURE2, 16#84C2). @@ -635,6 +701,9 @@ -define(GL_TEXTURE29, 16#84DD). -define(GL_TEXTURE30, 16#84DE). -define(GL_TEXTURE31, 16#84DF). +-define(GL_ACTIVE_TEXTURE, 16#84E0). +-define(GL_CLIENT_ACTIVE_TEXTURE, 16#84E1). +-define(GL_MAX_TEXTURE_UNITS, 16#84E2). -define(GL_NORMAL_MAP, 16#8511). -define(GL_REFLECTION_MAP, 16#8512). -define(GL_TEXTURE_CUBE_MAP, 16#8513). @@ -647,32 +716,6 @@ -define(GL_TEXTURE_CUBE_MAP_NEGATIVE_Z, 16#851A). -define(GL_PROXY_TEXTURE_CUBE_MAP, 16#851B). -define(GL_MAX_CUBE_MAP_TEXTURE_SIZE, 16#851C). --define(GL_COMBINE, 16#8570). --define(GL_COMBINE_RGB, 16#8571). --define(GL_COMBINE_ALPHA, 16#8572). --define(GL_RGB_SCALE, 16#8573). --define(GL_ADD_SIGNED, 16#8574). --define(GL_INTERPOLATE, 16#8575). --define(GL_CONSTANT, 16#8576). --define(GL_PRIMARY_COLOR, 16#8577). --define(GL_PREVIOUS, 16#8578). --define(GL_SOURCE0_RGB, 16#8580). --define(GL_SOURCE1_RGB, 16#8581). --define(GL_SOURCE2_RGB, 16#8582). --define(GL_SOURCE0_ALPHA, 16#8588). --define(GL_SOURCE1_ALPHA, 16#8589). --define(GL_SOURCE2_ALPHA, 16#858A). --define(GL_OPERAND0_RGB, 16#8590). --define(GL_OPERAND1_RGB, 16#8591). --define(GL_OPERAND2_RGB, 16#8592). --define(GL_OPERAND0_ALPHA, 16#8598). --define(GL_OPERAND1_ALPHA, 16#8599). --define(GL_OPERAND2_ALPHA, 16#859A). --define(GL_SUBTRACT, 16#84E7). --define(GL_TRANSPOSE_MODELVIEW_MATRIX, 16#84E3). --define(GL_TRANSPOSE_PROJECTION_MATRIX, 16#84E4). --define(GL_TRANSPOSE_TEXTURE_MATRIX, 16#84E5). --define(GL_TRANSPOSE_COLOR_MATRIX, 16#84E6). -define(GL_COMPRESSED_ALPHA, 16#84E9). -define(GL_COMPRESSED_LUMINANCE, 16#84EA). -define(GL_COMPRESSED_LUMINANCE_ALPHA, 16#84EB). @@ -684,9 +727,6 @@ -define(GL_TEXTURE_COMPRESSED, 16#86A1). -define(GL_NUM_COMPRESSED_TEXTURE_FORMATS, 16#86A2). -define(GL_COMPRESSED_TEXTURE_FORMATS, 16#86A3). --define(GL_DOT3_RGB, 16#86AE). --define(GL_DOT3_RGBA, 16#86AF). --define(GL_CLAMP_TO_BORDER, 16#812D). -define(GL_MULTISAMPLE, 16#809D). -define(GL_SAMPLE_ALPHA_TO_COVERAGE, 16#809E). -define(GL_SAMPLE_ALPHA_TO_ONE, 16#809F). @@ -696,57 +736,120 @@ -define(GL_SAMPLE_COVERAGE_VALUE, 16#80AA). -define(GL_SAMPLE_COVERAGE_INVERT, 16#80AB). -define(GL_MULTISAMPLE_BIT, 16#20000000). --define(GL_VERTEX_ARRAY_EXT, 16#8074). --define(GL_NORMAL_ARRAY_EXT, 16#8075). --define(GL_COLOR_ARRAY_EXT, 16#8076). --define(GL_INDEX_ARRAY_EXT, 16#8077). --define(GL_TEXTURE_COORD_ARRAY_EXT, 16#8078). --define(GL_EDGE_FLAG_ARRAY_EXT, 16#8079). --define(GL_VERTEX_ARRAY_SIZE_EXT, 16#807A). --define(GL_VERTEX_ARRAY_TYPE_EXT, 16#807B). --define(GL_VERTEX_ARRAY_STRIDE_EXT, 16#807C). --define(GL_VERTEX_ARRAY_COUNT_EXT, 16#807D). --define(GL_NORMAL_ARRAY_TYPE_EXT, 16#807E). --define(GL_NORMAL_ARRAY_STRIDE_EXT, 16#807F). --define(GL_NORMAL_ARRAY_COUNT_EXT, 16#8080). --define(GL_COLOR_ARRAY_SIZE_EXT, 16#8081). --define(GL_COLOR_ARRAY_TYPE_EXT, 16#8082). --define(GL_COLOR_ARRAY_STRIDE_EXT, 16#8083). --define(GL_COLOR_ARRAY_COUNT_EXT, 16#8084). --define(GL_INDEX_ARRAY_TYPE_EXT, 16#8085). --define(GL_INDEX_ARRAY_STRIDE_EXT, 16#8086). --define(GL_INDEX_ARRAY_COUNT_EXT, 16#8087). --define(GL_TEXTURE_COORD_ARRAY_SIZE_EXT, 16#8088). --define(GL_TEXTURE_COORD_ARRAY_TYPE_EXT, 16#8089). --define(GL_TEXTURE_COORD_ARRAY_STRIDE_EXT, 16#808A). --define(GL_TEXTURE_COORD_ARRAY_COUNT_EXT, 16#808B). --define(GL_EDGE_FLAG_ARRAY_STRIDE_EXT, 16#808C). --define(GL_EDGE_FLAG_ARRAY_COUNT_EXT, 16#808D). --define(GL_VERTEX_ARRAY_POINTER_EXT, 16#808E). --define(GL_NORMAL_ARRAY_POINTER_EXT, 16#808F). --define(GL_COLOR_ARRAY_POINTER_EXT, 16#8090). --define(GL_INDEX_ARRAY_POINTER_EXT, 16#8091). --define(GL_TEXTURE_COORD_ARRAY_POINTER_EXT, 16#8092). --define(GL_EDGE_FLAG_ARRAY_POINTER_EXT, 16#8093). --define(GL_TEXTURE_MIN_LOD_SGIS, 16#813A). --define(GL_TEXTURE_MAX_LOD_SGIS, 16#813B). --define(GL_TEXTURE_BASE_LEVEL_SGIS, 16#813C). --define(GL_TEXTURE_MAX_LEVEL_SGIS, 16#813D). --define(GL_SHARED_TEXTURE_PALETTE_EXT, 16#81FB). --define(GL_RESCALE_NORMAL_EXT, 16#803A). --define(GL_TEXTURE_COMPARE_SGIX, 16#819A). --define(GL_TEXTURE_COMPARE_OPERATOR_SGIX, 16#819B). --define(GL_TEXTURE_LEQUAL_R_SGIX, 16#819C). --define(GL_TEXTURE_GEQUAL_R_SGIX, 16#819D). --define(GL_DEPTH_COMPONENT16_SGIX, 16#81A5). --define(GL_DEPTH_COMPONENT24_SGIX, 16#81A6). --define(GL_DEPTH_COMPONENT32_SGIX, 16#81A7). --define(GL_GENERATE_MIPMAP_SGIS, 16#8191). --define(GL_GENERATE_MIPMAP_HINT_SGIS, 16#8192). +-define(GL_TRANSPOSE_MODELVIEW_MATRIX, 16#84E3). +-define(GL_TRANSPOSE_PROJECTION_MATRIX, 16#84E4). +-define(GL_TRANSPOSE_TEXTURE_MATRIX, 16#84E5). +-define(GL_TRANSPOSE_COLOR_MATRIX, 16#84E6). +-define(GL_COMBINE, 16#8570). +-define(GL_COMBINE_RGB, 16#8571). +-define(GL_COMBINE_ALPHA, 16#8572). +-define(GL_SOURCE0_RGB, 16#8580). +-define(GL_SOURCE1_RGB, 16#8581). +-define(GL_SOURCE2_RGB, 16#8582). +-define(GL_SOURCE0_ALPHA, 16#8588). +-define(GL_SOURCE1_ALPHA, 16#8589). +-define(GL_SOURCE2_ALPHA, 16#858A). +-define(GL_OPERAND0_RGB, 16#8590). +-define(GL_OPERAND1_RGB, 16#8591). +-define(GL_OPERAND2_RGB, 16#8592). +-define(GL_OPERAND0_ALPHA, 16#8598). +-define(GL_OPERAND1_ALPHA, 16#8599). +-define(GL_OPERAND2_ALPHA, 16#859A). +-define(GL_RGB_SCALE, 16#8573). +-define(GL_ADD_SIGNED, 16#8574). +-define(GL_INTERPOLATE, 16#8575). +-define(GL_SUBTRACT, 16#84E7). +-define(GL_CONSTANT, 16#8576). +-define(GL_PRIMARY_COLOR, 16#8577). +-define(GL_PREVIOUS, 16#8578). +-define(GL_DOT3_RGB, 16#86AE). +-define(GL_DOT3_RGBA, 16#86AF). +-define(GL_CLAMP_TO_BORDER, 16#812D). +-define(GL_ARB_multitexture, 1). +-define(GL_TEXTURE0_ARB, 16#84C0). +-define(GL_TEXTURE1_ARB, 16#84C1). +-define(GL_TEXTURE2_ARB, 16#84C2). +-define(GL_TEXTURE3_ARB, 16#84C3). +-define(GL_TEXTURE4_ARB, 16#84C4). +-define(GL_TEXTURE5_ARB, 16#84C5). +-define(GL_TEXTURE6_ARB, 16#84C6). +-define(GL_TEXTURE7_ARB, 16#84C7). +-define(GL_TEXTURE8_ARB, 16#84C8). +-define(GL_TEXTURE9_ARB, 16#84C9). +-define(GL_TEXTURE10_ARB, 16#84CA). +-define(GL_TEXTURE11_ARB, 16#84CB). +-define(GL_TEXTURE12_ARB, 16#84CC). +-define(GL_TEXTURE13_ARB, 16#84CD). +-define(GL_TEXTURE14_ARB, 16#84CE). +-define(GL_TEXTURE15_ARB, 16#84CF). +-define(GL_TEXTURE16_ARB, 16#84D0). +-define(GL_TEXTURE17_ARB, 16#84D1). +-define(GL_TEXTURE18_ARB, 16#84D2). +-define(GL_TEXTURE19_ARB, 16#84D3). +-define(GL_TEXTURE20_ARB, 16#84D4). +-define(GL_TEXTURE21_ARB, 16#84D5). +-define(GL_TEXTURE22_ARB, 16#84D6). +-define(GL_TEXTURE23_ARB, 16#84D7). +-define(GL_TEXTURE24_ARB, 16#84D8). +-define(GL_TEXTURE25_ARB, 16#84D9). +-define(GL_TEXTURE26_ARB, 16#84DA). +-define(GL_TEXTURE27_ARB, 16#84DB). +-define(GL_TEXTURE28_ARB, 16#84DC). +-define(GL_TEXTURE29_ARB, 16#84DD). +-define(GL_TEXTURE30_ARB, 16#84DE). +-define(GL_TEXTURE31_ARB, 16#84DF). +-define(GL_ACTIVE_TEXTURE_ARB, 16#84E0). +-define(GL_CLIENT_ACTIVE_TEXTURE_ARB, 16#84E1). +-define(GL_MAX_TEXTURE_UNITS_ARB, 16#84E2). +-define(GL_MESA_packed_depth_stencil, 1). +-define(GL_DEPTH_STENCIL_MESA, 16#8750). +-define(GL_UNSIGNED_INT_24_8_MESA, 16#8751). +-define(GL_UNSIGNED_INT_8_24_REV_MESA, 16#8752). +-define(GL_UNSIGNED_SHORT_15_1_MESA, 16#8753). +-define(GL_UNSIGNED_SHORT_1_15_REV_MESA, 16#8754). +-define(GL_MESA_program_debug, 1). +-define(GL_FRAGMENT_PROGRAM_POSITION_MESA, 16#8BB0). +-define(GL_FRAGMENT_PROGRAM_CALLBACK_MESA, 16#8BB1). +-define(GL_FRAGMENT_PROGRAM_CALLBACK_FUNC_MESA, 16#8BB2). +-define(GL_FRAGMENT_PROGRAM_CALLBACK_DATA_MESA, 16#8BB3). +-define(GL_VERTEX_PROGRAM_POSITION_MESA, 16#8BB4). +-define(GL_VERTEX_PROGRAM_CALLBACK_MESA, 16#8BB5). +-define(GL_VERTEX_PROGRAM_CALLBACK_FUNC_MESA, 16#8BB6). +-define(GL_VERTEX_PROGRAM_CALLBACK_DATA_MESA, 16#8BB7). +-define(GL_MESA_texture_array, 1). +-define(GL_TEXTURE_1D_ARRAY_EXT, 16#8C18). +-define(GL_PROXY_TEXTURE_1D_ARRAY_EXT, 16#8C19). +-define(GL_TEXTURE_2D_ARRAY_EXT, 16#8C1A). +-define(GL_PROXY_TEXTURE_2D_ARRAY_EXT, 16#8C1B). +-define(GL_TEXTURE_BINDING_1D_ARRAY_EXT, 16#8C1C). +-define(GL_TEXTURE_BINDING_2D_ARRAY_EXT, 16#8C1D). +-define(GL_MAX_ARRAY_TEXTURE_LAYERS_EXT, 16#88FF). +-define(GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_LAYER_EXT, 16#8CD4). +-define(GL_ATI_blend_equation_separate, 1). +-define(GL_ALPHA_BLEND_EQUATION_ATI, 16#883D). +-define(GL_OES_EGL_image, 1). +-define(GL_GLEXT_VERSION, 66). +-define(GL_BLEND_DST_RGB, 16#80C8). +-define(GL_BLEND_SRC_RGB, 16#80C9). +-define(GL_BLEND_DST_ALPHA, 16#80CA). +-define(GL_BLEND_SRC_ALPHA, 16#80CB). +-define(GL_POINT_FADE_THRESHOLD_SIZE, 16#8128). +-define(GL_DEPTH_COMPONENT16, 16#81A5). +-define(GL_DEPTH_COMPONENT24, 16#81A6). +-define(GL_DEPTH_COMPONENT32, 16#81A7). +-define(GL_MIRRORED_REPEAT, 16#8370). +-define(GL_MAX_TEXTURE_LOD_BIAS, 16#84FD). +-define(GL_TEXTURE_LOD_BIAS, 16#8501). +-define(GL_INCR_WRAP, 16#8507). +-define(GL_DECR_WRAP, 16#8508). +-define(GL_TEXTURE_DEPTH_SIZE, 16#884A). +-define(GL_TEXTURE_COMPARE_MODE, 16#884C). +-define(GL_TEXTURE_COMPARE_FUNC, 16#884D). -define(GL_POINT_SIZE_MIN, 16#8126). -define(GL_POINT_SIZE_MAX, 16#8127). --define(GL_POINT_FADE_THRESHOLD_SIZE, 16#8128). -define(GL_POINT_DISTANCE_ATTENUATION, 16#8129). +-define(GL_GENERATE_MIPMAP, 16#8191). +-define(GL_GENERATE_MIPMAP_HINT, 16#8192). -define(GL_FOG_COORDINATE_SOURCE, 16#8450). -define(GL_FOG_COORDINATE, 16#8451). -define(GL_FRAGMENT_DEPTH, 16#8452). @@ -762,101 +865,9 @@ -define(GL_SECONDARY_COLOR_ARRAY_STRIDE, 16#845C). -define(GL_SECONDARY_COLOR_ARRAY_POINTER, 16#845D). -define(GL_SECONDARY_COLOR_ARRAY, 16#845E). --define(GL_INCR_WRAP, 16#8507). --define(GL_DECR_WRAP, 16#8508). --define(GL_MAX_TEXTURE_LOD_BIAS, 16#84FD). -define(GL_TEXTURE_FILTER_CONTROL, 16#8500). --define(GL_TEXTURE_LOD_BIAS, 16#8501). --define(GL_GENERATE_MIPMAP, 16#8191). --define(GL_GENERATE_MIPMAP_HINT, 16#8192). --define(GL_BLEND_DST_RGB, 16#80C8). --define(GL_BLEND_SRC_RGB, 16#80C9). --define(GL_BLEND_DST_ALPHA, 16#80CA). --define(GL_BLEND_SRC_ALPHA, 16#80CB). --define(GL_MIRRORED_REPEAT, 16#8370). --define(GL_DEPTH_COMPONENT16, 16#81A5). --define(GL_DEPTH_COMPONENT24, 16#81A6). --define(GL_DEPTH_COMPONENT32, 16#81A7). --define(GL_TEXTURE_DEPTH_SIZE, 16#884A). -define(GL_DEPTH_TEXTURE_MODE, 16#884B). --define(GL_TEXTURE_COMPARE_MODE, 16#884C). --define(GL_TEXTURE_COMPARE_FUNC, 16#884D). -define(GL_COMPARE_R_TO_TEXTURE, 16#884E). --define(GL_GLEXT_VERSION, 65). --define(GL_CONSTANT_COLOR, 16#8001). --define(GL_ONE_MINUS_CONSTANT_COLOR, 16#8002). --define(GL_CONSTANT_ALPHA, 16#8003). --define(GL_ONE_MINUS_CONSTANT_ALPHA, 16#8004). --define(GL_BLEND_COLOR, 16#8005). --define(GL_FUNC_ADD, 16#8006). --define(GL_MIN, 16#8007). --define(GL_MAX, 16#8008). --define(GL_BLEND_EQUATION, 16#8009). --define(GL_FUNC_SUBTRACT, 16#800A). --define(GL_FUNC_REVERSE_SUBTRACT, 16#800B). --define(GL_CONVOLUTION_1D, 16#8010). --define(GL_CONVOLUTION_2D, 16#8011). --define(GL_SEPARABLE_2D, 16#8012). --define(GL_CONVOLUTION_BORDER_MODE, 16#8013). --define(GL_CONVOLUTION_FILTER_SCALE, 16#8014). --define(GL_CONVOLUTION_FILTER_BIAS, 16#8015). --define(GL_REDUCE, 16#8016). --define(GL_CONVOLUTION_FORMAT, 16#8017). --define(GL_CONVOLUTION_WIDTH, 16#8018). --define(GL_CONVOLUTION_HEIGHT, 16#8019). --define(GL_MAX_CONVOLUTION_WIDTH, 16#801A). --define(GL_MAX_CONVOLUTION_HEIGHT, 16#801B). --define(GL_POST_CONVOLUTION_RED_SCALE, 16#801C). --define(GL_POST_CONVOLUTION_GREEN_SCALE, 16#801D). --define(GL_POST_CONVOLUTION_BLUE_SCALE, 16#801E). --define(GL_POST_CONVOLUTION_ALPHA_SCALE, 16#801F). --define(GL_POST_CONVOLUTION_RED_BIAS, 16#8020). --define(GL_POST_CONVOLUTION_GREEN_BIAS, 16#8021). --define(GL_POST_CONVOLUTION_BLUE_BIAS, 16#8022). --define(GL_POST_CONVOLUTION_ALPHA_BIAS, 16#8023). --define(GL_HISTOGRAM, 16#8024). --define(GL_PROXY_HISTOGRAM, 16#8025). --define(GL_HISTOGRAM_WIDTH, 16#8026). --define(GL_HISTOGRAM_FORMAT, 16#8027). --define(GL_HISTOGRAM_RED_SIZE, 16#8028). --define(GL_HISTOGRAM_GREEN_SIZE, 16#8029). --define(GL_HISTOGRAM_BLUE_SIZE, 16#802A). --define(GL_HISTOGRAM_ALPHA_SIZE, 16#802B). --define(GL_HISTOGRAM_LUMINANCE_SIZE, 16#802C). --define(GL_HISTOGRAM_SINK, 16#802D). --define(GL_MINMAX, 16#802E). --define(GL_MINMAX_FORMAT, 16#802F). --define(GL_MINMAX_SINK, 16#8030). --define(GL_COLOR_MATRIX, 16#80B1). --define(GL_COLOR_MATRIX_STACK_DEPTH, 16#80B2). --define(GL_MAX_COLOR_MATRIX_STACK_DEPTH, 16#80B3). --define(GL_POST_COLOR_MATRIX_RED_SCALE, 16#80B4). --define(GL_POST_COLOR_MATRIX_GREEN_SCALE, 16#80B5). --define(GL_POST_COLOR_MATRIX_BLUE_SCALE, 16#80B6). --define(GL_POST_COLOR_MATRIX_ALPHA_SCALE, 16#80B7). --define(GL_POST_COLOR_MATRIX_RED_BIAS, 16#80B8). --define(GL_POST_COLOR_MATRIX_GREEN_BIAS, 16#80B9). --define(GL_POST_COLOR_MATRIX_BLUE_BIAS, 16#80BA). --define(GL_POST_COLOR_MATRIX_ALPHA_BIAS, 16#80BB). --define(GL_COLOR_TABLE, 16#80D0). --define(GL_POST_CONVOLUTION_COLOR_TABLE, 16#80D1). --define(GL_POST_COLOR_MATRIX_COLOR_TABLE, 16#80D2). --define(GL_PROXY_COLOR_TABLE, 16#80D3). --define(GL_PROXY_POST_CONVOLUTION_COLOR_TABLE, 16#80D4). --define(GL_PROXY_POST_COLOR_MATRIX_COLOR_TABLE, 16#80D5). --define(GL_COLOR_TABLE_SCALE, 16#80D6). --define(GL_COLOR_TABLE_BIAS, 16#80D7). --define(GL_COLOR_TABLE_FORMAT, 16#80D8). --define(GL_COLOR_TABLE_WIDTH, 16#80D9). --define(GL_COLOR_TABLE_RED_SIZE, 16#80DA). --define(GL_COLOR_TABLE_GREEN_SIZE, 16#80DB). --define(GL_COLOR_TABLE_BLUE_SIZE, 16#80DC). --define(GL_COLOR_TABLE_ALPHA_SIZE, 16#80DD). --define(GL_COLOR_TABLE_LUMINANCE_SIZE, 16#80DE). --define(GL_COLOR_TABLE_INTENSITY_SIZE, 16#80DF). --define(GL_CONSTANT_BORDER, 16#8151). --define(GL_REPLICATE_BORDER, 16#8153). --define(GL_CONVOLUTION_BORDER_COLOR, 16#8154). -define(GL_BUFFER_SIZE, 16#8764). -define(GL_BUFFER_USAGE, 16#8765). -define(GL_QUERY_COUNTER_BITS, 16#8864). @@ -1184,41 +1195,6 @@ -define(GL_SAMPLER_CUBE_MAP_ARRAY_SHADOW, 16#900D). -define(GL_INT_SAMPLER_CUBE_MAP_ARRAY, 16#900E). -define(GL_UNSIGNED_INT_SAMPLER_CUBE_MAP_ARRAY, 16#900F). --define(GL_TEXTURE0_ARB, 16#84C0). --define(GL_TEXTURE1_ARB, 16#84C1). --define(GL_TEXTURE2_ARB, 16#84C2). --define(GL_TEXTURE3_ARB, 16#84C3). --define(GL_TEXTURE4_ARB, 16#84C4). --define(GL_TEXTURE5_ARB, 16#84C5). --define(GL_TEXTURE6_ARB, 16#84C6). --define(GL_TEXTURE7_ARB, 16#84C7). --define(GL_TEXTURE8_ARB, 16#84C8). --define(GL_TEXTURE9_ARB, 16#84C9). --define(GL_TEXTURE10_ARB, 16#84CA). --define(GL_TEXTURE11_ARB, 16#84CB). --define(GL_TEXTURE12_ARB, 16#84CC). --define(GL_TEXTURE13_ARB, 16#84CD). --define(GL_TEXTURE14_ARB, 16#84CE). --define(GL_TEXTURE15_ARB, 16#84CF). --define(GL_TEXTURE16_ARB, 16#84D0). --define(GL_TEXTURE17_ARB, 16#84D1). --define(GL_TEXTURE18_ARB, 16#84D2). --define(GL_TEXTURE19_ARB, 16#84D3). --define(GL_TEXTURE20_ARB, 16#84D4). --define(GL_TEXTURE21_ARB, 16#84D5). --define(GL_TEXTURE22_ARB, 16#84D6). --define(GL_TEXTURE23_ARB, 16#84D7). --define(GL_TEXTURE24_ARB, 16#84D8). --define(GL_TEXTURE25_ARB, 16#84D9). --define(GL_TEXTURE26_ARB, 16#84DA). --define(GL_TEXTURE27_ARB, 16#84DB). --define(GL_TEXTURE28_ARB, 16#84DC). --define(GL_TEXTURE29_ARB, 16#84DD). --define(GL_TEXTURE30_ARB, 16#84DE). --define(GL_TEXTURE31_ARB, 16#84DF). --define(GL_ACTIVE_TEXTURE_ARB, 16#84E0). --define(GL_CLIENT_ACTIVE_TEXTURE_ARB, 16#84E1). --define(GL_MAX_TEXTURE_UNITS_ARB, 16#84E2). -define(GL_TRANSPOSE_MODELVIEW_MATRIX_ARB, 16#84E3). -define(GL_TRANSPOSE_PROJECTION_MATRIX_ARB, 16#84E4). -define(GL_TRANSPOSE_TEXTURE_MATRIX_ARB, 16#84E5). @@ -1956,6 +1932,7 @@ -define(GL_UNKNOWN_CONTEXT_RESET_ARB, 16#8255). -define(GL_RESET_NOTIFICATION_STRATEGY_ARB, 16#8256). -define(GL_NO_RESET_NOTIFICATION_ARB, 16#8261). +-define(GL_ABGR_EXT, 16#8000). -define(GL_CONSTANT_COLOR_EXT, 16#8001). -define(GL_ONE_MINUS_CONSTANT_COLOR_EXT, 16#8002). -define(GL_CONSTANT_ALPHA_EXT, 16#8003). @@ -2118,6 +2095,15 @@ -define(GL_LINEAR_SHARPEN_ALPHA_SGIS, 16#80AE). -define(GL_LINEAR_SHARPEN_COLOR_SGIS, 16#80AF). -define(GL_SHARPEN_TEXTURE_FUNC_POINTS_SGIS, 16#80B0). +-define(GL_UNSIGNED_BYTE_3_3_2_EXT, 16#8032). +-define(GL_UNSIGNED_SHORT_4_4_4_4_EXT, 16#8033). +-define(GL_UNSIGNED_SHORT_5_5_5_1_EXT, 16#8034). +-define(GL_UNSIGNED_INT_8_8_8_8_EXT, 16#8035). +-define(GL_UNSIGNED_INT_10_10_10_2_EXT, 16#8036). +-define(GL_TEXTURE_MIN_LOD_SGIS, 16#813A). +-define(GL_TEXTURE_MAX_LOD_SGIS, 16#813B). +-define(GL_TEXTURE_BASE_LEVEL_SGIS, 16#813C). +-define(GL_TEXTURE_MAX_LEVEL_SGIS, 16#813D). -define(GL_MULTISAMPLE_SGIS, 16#809D). -define(GL_SAMPLE_ALPHA_TO_MASK_SGIS, 16#809E). -define(GL_SAMPLE_ALPHA_TO_ONE_SGIS, 16#809F). @@ -2134,6 +2120,41 @@ -define(GL_SAMPLE_MASK_VALUE_SGIS, 16#80AA). -define(GL_SAMPLE_MASK_INVERT_SGIS, 16#80AB). -define(GL_SAMPLE_PATTERN_SGIS, 16#80AC). +-define(GL_RESCALE_NORMAL_EXT, 16#803A). +-define(GL_VERTEX_ARRAY_EXT, 16#8074). +-define(GL_NORMAL_ARRAY_EXT, 16#8075). +-define(GL_COLOR_ARRAY_EXT, 16#8076). +-define(GL_INDEX_ARRAY_EXT, 16#8077). +-define(GL_TEXTURE_COORD_ARRAY_EXT, 16#8078). +-define(GL_EDGE_FLAG_ARRAY_EXT, 16#8079). +-define(GL_VERTEX_ARRAY_SIZE_EXT, 16#807A). +-define(GL_VERTEX_ARRAY_TYPE_EXT, 16#807B). +-define(GL_VERTEX_ARRAY_STRIDE_EXT, 16#807C). +-define(GL_VERTEX_ARRAY_COUNT_EXT, 16#807D). +-define(GL_NORMAL_ARRAY_TYPE_EXT, 16#807E). +-define(GL_NORMAL_ARRAY_STRIDE_EXT, 16#807F). +-define(GL_NORMAL_ARRAY_COUNT_EXT, 16#8080). +-define(GL_COLOR_ARRAY_SIZE_EXT, 16#8081). +-define(GL_COLOR_ARRAY_TYPE_EXT, 16#8082). +-define(GL_COLOR_ARRAY_STRIDE_EXT, 16#8083). +-define(GL_COLOR_ARRAY_COUNT_EXT, 16#8084). +-define(GL_INDEX_ARRAY_TYPE_EXT, 16#8085). +-define(GL_INDEX_ARRAY_STRIDE_EXT, 16#8086). +-define(GL_INDEX_ARRAY_COUNT_EXT, 16#8087). +-define(GL_TEXTURE_COORD_ARRAY_SIZE_EXT, 16#8088). +-define(GL_TEXTURE_COORD_ARRAY_TYPE_EXT, 16#8089). +-define(GL_TEXTURE_COORD_ARRAY_STRIDE_EXT, 16#808A). +-define(GL_TEXTURE_COORD_ARRAY_COUNT_EXT, 16#808B). +-define(GL_EDGE_FLAG_ARRAY_STRIDE_EXT, 16#808C). +-define(GL_EDGE_FLAG_ARRAY_COUNT_EXT, 16#808D). +-define(GL_VERTEX_ARRAY_POINTER_EXT, 16#808E). +-define(GL_NORMAL_ARRAY_POINTER_EXT, 16#808F). +-define(GL_COLOR_ARRAY_POINTER_EXT, 16#8090). +-define(GL_INDEX_ARRAY_POINTER_EXT, 16#8091). +-define(GL_TEXTURE_COORD_ARRAY_POINTER_EXT, 16#8092). +-define(GL_EDGE_FLAG_ARRAY_POINTER_EXT, 16#8093). +-define(GL_GENERATE_MIPMAP_SGIS, 16#8191). +-define(GL_GENERATE_MIPMAP_HINT_SGIS, 16#8192). -define(GL_LINEAR_CLIPMAP_LINEAR_SGIX, 16#8170). -define(GL_TEXTURE_CLIPMAP_CENTER_SGIX, 16#8171). -define(GL_TEXTURE_CLIPMAP_FRAME_SGIX, 16#8172). @@ -2146,12 +2167,18 @@ -define(GL_NEAREST_CLIPMAP_NEAREST_SGIX, 16#844D). -define(GL_NEAREST_CLIPMAP_LINEAR_SGIX, 16#844E). -define(GL_LINEAR_CLIPMAP_NEAREST_SGIX, 16#844F). +-define(GL_TEXTURE_COMPARE_SGIX, 16#819A). +-define(GL_TEXTURE_COMPARE_OPERATOR_SGIX, 16#819B). +-define(GL_TEXTURE_LEQUAL_R_SGIX, 16#819C). +-define(GL_TEXTURE_GEQUAL_R_SGIX, 16#819D). -define(GL_CLAMP_TO_EDGE_SGIS, 16#812F). -define(GL_CLAMP_TO_BORDER_SGIS, 16#812D). -define(GL_FUNC_ADD_EXT, 16#8006). -define(GL_MIN_EXT, 16#8007). -define(GL_MAX_EXT, 16#8008). -define(GL_BLEND_EQUATION_EXT, 16#8009). +-define(GL_FUNC_SUBTRACT_EXT, 16#800A). +-define(GL_FUNC_REVERSE_SUBTRACT_EXT, 16#800B). -define(GL_INTERLACE_SGIX, 16#8094). -define(GL_PIXEL_TILE_BEST_ALIGNMENT_SGIX, 16#813E). -define(GL_PIXEL_TILE_CACHE_INCREMENT_SGIX, 16#813F). @@ -2216,6 +2243,9 @@ -define(GL_MAX_DEFORMATION_ORDER_SGIX, 16#8197). -define(GL_REFERENCE_PLANE_SGIX, 16#817D). -define(GL_REFERENCE_PLANE_EQUATION_SGIX, 16#817E). +-define(GL_DEPTH_COMPONENT16_SGIX, 16#81A5). +-define(GL_DEPTH_COMPONENT24_SGIX, 16#81A6). +-define(GL_DEPTH_COMPONENT32_SGIX, 16#81A7). -define(GL_FOG_FUNC_SGIS, 16#812A). -define(GL_FOG_FUNC_POINTS_SGIS, 16#812B). -define(GL_MAX_FOG_FUNC_POINTS_SGIS, 16#812C). @@ -2393,6 +2423,7 @@ -define(GL_PIXEL_TRANSFORM_2D_STACK_DEPTH_EXT, 16#8336). -define(GL_MAX_PIXEL_TRANSFORM_2D_STACK_DEPTH_EXT, 16#8337). -define(GL_PIXEL_TRANSFORM_2D_MATRIX_EXT, 16#8338). +-define(GL_SHARED_TEXTURE_PALETTE_EXT, 16#81FB). -define(GL_LIGHT_MODEL_COLOR_CONTROL_EXT, 16#81F8). -define(GL_SINGLE_COLOR_EXT, 16#81F9). -define(GL_SEPARATE_SPECULAR_COLOR_EXT, 16#81FA). @@ -3387,7 +3418,6 @@ -define(GL_FRAMEBUFFER_ATTACHMENT_LAYERED_EXT, 16#8DA7). -define(GL_FRAMEBUFFER_INCOMPLETE_LAYER_TARGETS_EXT, 16#8DA8). -define(GL_FRAMEBUFFER_INCOMPLETE_LAYER_COUNT_EXT, 16#8DA9). --define(GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_LAYER_EXT, 16#8CD4). -define(GL_PROGRAM_POINT_SIZE_EXT, 16#8642). -define(GL_GEOMETRY_SHADER_EXT, 16#8DD9). -define(GL_MAX_GEOMETRY_VARYING_COMPONENTS_EXT, 16#8DDD). @@ -3425,13 +3455,6 @@ -define(GL_R11F_G11F_B10F_EXT, 16#8C3A). -define(GL_UNSIGNED_INT_10F_11F_11F_REV_EXT, 16#8C3B). -define(GL_RGBA_SIGNED_COMPONENTS_EXT, 16#8C3C). --define(GL_TEXTURE_1D_ARRAY_EXT, 16#8C18). --define(GL_PROXY_TEXTURE_1D_ARRAY_EXT, 16#8C19). --define(GL_TEXTURE_2D_ARRAY_EXT, 16#8C1A). --define(GL_PROXY_TEXTURE_2D_ARRAY_EXT, 16#8C1B). --define(GL_TEXTURE_BINDING_1D_ARRAY_EXT, 16#8C1C). --define(GL_TEXTURE_BINDING_2D_ARRAY_EXT, 16#8C1D). --define(GL_MAX_ARRAY_TEXTURE_LAYERS_EXT, 16#88FF). -define(GL_COMPARE_REF_DEPTH_TO_TEXTURE_EXT, 16#884E). -define(GL_TEXTURE_BUFFER_EXT, 16#8C2A). -define(GL_MAX_TEXTURE_BUFFER_SIZE_EXT, 16#8C2B). @@ -3857,396 +3880,5 @@ -define(GL_SURFACE_REGISTERED_NV, 16#86FD). -define(GL_SURFACE_MAPPED_NV, 16#8700). -define(GL_WRITE_DISCARD_NV, 16#88BE). --define(GL_VERSION_1_2, 1). --define(GL_VERSION_1_2_DEPRECATED, 1). --define(GL_VERSION_1_3, 1). --define(GL_VERSION_1_3_DEPRECATED, 1). --define(GL_VERSION_1_4, 1). --define(GL_VERSION_1_4_DEPRECATED, 1). --define(GL_VERSION_1_5, 1). --define(GL_VERSION_2_0, 1). --define(GL_VERSION_2_1, 1). --define(GL_VERSION_3_0, 1). --define(GL_VERSION_3_1, 1). --define(GL_VERSION_3_2, 1). --define(GL_VERSION_3_3, 1). --define(GL_VERSION_4_0, 1). --define(GL_VERSION_4_1, 1). --define(GL_ARB_multitexture, 1). --define(GL_ARB_transpose_matrix, 1). --define(GL_ARB_multisample, 1). --define(GL_ARB_texture_env_add, 1). --define(GL_ARB_texture_cube_map, 1). --define(GL_ARB_texture_compression, 1). --define(GL_ARB_texture_border_clamp, 1). --define(GL_ARB_point_parameters, 1). --define(GL_ARB_vertex_blend, 1). --define(GL_ARB_matrix_palette, 1). --define(GL_ARB_texture_env_combine, 1). --define(GL_ARB_texture_env_crossbar, 1). --define(GL_ARB_texture_env_dot3, 1). --define(GL_ARB_texture_mirrored_repeat, 1). --define(GL_ARB_depth_texture, 1). --define(GL_ARB_shadow, 1). --define(GL_ARB_shadow_ambient, 1). --define(GL_ARB_window_pos, 1). --define(GL_ARB_vertex_program, 1). --define(GL_ARB_fragment_program, 1). --define(GL_ARB_vertex_buffer_object, 1). --define(GL_ARB_occlusion_query, 1). --define(GL_ARB_shader_objects, 1). --define(GL_ARB_vertex_shader, 1). --define(GL_ARB_fragment_shader, 1). --define(GL_ARB_shading_language_100, 1). --define(GL_ARB_texture_non_power_of_two, 1). --define(GL_ARB_point_sprite, 1). --define(GL_ARB_fragment_program_shadow, 1). --define(GL_ARB_draw_buffers, 1). --define(GL_ARB_texture_rectangle, 1). --define(GL_ARB_color_buffer_float, 1). --define(GL_ARB_half_float_pixel, 1). --define(GL_ARB_texture_float, 1). --define(GL_ARB_pixel_buffer_object, 1). --define(GL_ARB_depth_buffer_float, 1). --define(GL_ARB_draw_instanced, 1). --define(GL_ARB_framebuffer_object, 1). --define(GL_ARB_framebuffer_sRGB, 1). --define(GL_ARB_geometry_shader4, 1). --define(GL_ARB_half_float_vertex, 1). --define(GL_ARB_instanced_arrays, 1). --define(GL_ARB_map_buffer_range, 1). --define(GL_ARB_texture_buffer_object, 1). --define(GL_ARB_texture_compression_rgtc, 1). --define(GL_ARB_texture_rg, 1). --define(GL_ARB_vertex_array_object, 1). --define(GL_ARB_uniform_buffer_object, 1). --define(GL_ARB_compatibility, 1). --define(GL_ARB_copy_buffer, 1). --define(GL_ARB_shader_texture_lod, 1). --define(GL_ARB_depth_clamp, 1). --define(GL_ARB_draw_elements_base_vertex, 1). --define(GL_ARB_fragment_coord_conventions, 1). --define(GL_ARB_provoking_vertex, 1). --define(GL_ARB_seamless_cube_map, 1). --define(GL_ARB_sync, 1). --define(GL_ARB_texture_multisample, 1). --define(GL_ARB_vertex_array_bgra, 1). --define(GL_ARB_draw_buffers_blend, 1). --define(GL_ARB_sample_shading, 1). --define(GL_ARB_texture_cube_map_array, 1). --define(GL_ARB_texture_gather, 1). --define(GL_ARB_texture_query_lod, 1). --define(GL_ARB_shading_language_include, 1). --define(GL_ARB_texture_compression_bptc, 1). --define(GL_ARB_blend_func_extended, 1). --define(GL_ARB_explicit_attrib_location, 1). --define(GL_ARB_occlusion_query2, 1). --define(GL_ARB_sampler_objects, 1). --define(GL_ARB_texture_rgb10_a2ui, 1). --define(GL_ARB_texture_swizzle, 1). --define(GL_ARB_timer_query, 1). --define(GL_ARB_vertex_type_2_10_10_10_rev, 1). --define(GL_ARB_draw_indirect, 1). --define(GL_ARB_gpu_shader5, 1). --define(GL_ARB_gpu_shader_fp64, 1). --define(GL_ARB_shader_subroutine, 1). --define(GL_ARB_tessellation_shader, 1). --define(GL_ARB_texture_buffer_object_rgb32, 1). --define(GL_ARB_transform_feedback2, 1). --define(GL_ARB_transform_feedback3, 1). --define(GL_ARB_ES2_compatibility, 1). --define(GL_ARB_get_program_binary, 1). --define(GL_ARB_separate_shader_objects, 1). --define(GL_ARB_vertex_attrib_64bit, 1). --define(GL_ARB_viewport_array, 1). --define(GL_ARB_cl_event, 1). --define(GL_ARB_debug_output, 1). --define(GL_ARB_robustness, 1). --define(GL_ARB_shader_stencil_export, 1). --define(GL_EXT_abgr, 1). --define(GL_EXT_blend_color, 1). --define(GL_EXT_polygon_offset, 1). --define(GL_EXT_texture, 1). --define(GL_EXT_texture3D, 1). --define(GL_SGIS_texture_filter4, 1). --define(GL_EXT_subtexture, 1). --define(GL_EXT_copy_texture, 1). --define(GL_EXT_histogram, 1). --define(GL_EXT_convolution, 1). --define(GL_SGI_color_matrix, 1). --define(GL_SGI_color_table, 1). --define(GL_SGIX_pixel_texture, 1). --define(GL_SGIS_pixel_texture, 1). --define(GL_SGIS_texture4D, 1). --define(GL_SGI_texture_color_table, 1). --define(GL_EXT_cmyka, 1). --define(GL_EXT_texture_object, 1). --define(GL_SGIS_detail_texture, 1). --define(GL_SGIS_sharpen_texture, 1). --define(GL_EXT_packed_pixels, 1). --define(GL_SGIS_texture_lod, 1). --define(GL_SGIS_multisample, 1). --define(GL_EXT_rescale_normal, 1). --define(GL_EXT_vertex_array, 1). --define(GL_EXT_misc_attribute, 1). --define(GL_SGIS_generate_mipmap, 1). --define(GL_SGIX_clipmap, 1). --define(GL_SGIX_shadow, 1). --define(GL_SGIS_texture_edge_clamp, 1). --define(GL_SGIS_texture_border_clamp, 1). --define(GL_EXT_blend_minmax, 1). --define(GL_EXT_blend_subtract, 1). --define(GL_EXT_blend_logic_op, 1). --define(GL_SGIX_interlace, 1). --define(GL_SGIX_pixel_tiles, 1). --define(GL_SGIX_texture_select, 1). --define(GL_SGIX_sprite, 1). --define(GL_SGIX_texture_multi_buffer, 1). --define(GL_EXT_point_parameters, 1). --define(GL_SGIS_point_parameters, 1). --define(GL_SGIX_instruments, 1). --define(GL_SGIX_texture_scale_bias, 1). --define(GL_SGIX_framezoom, 1). --define(GL_SGIX_tag_sample_buffer, 1). --define(GL_SGIX_polynomial_ffd, 1). --define(GL_SGIX_reference_plane, 1). --define(GL_SGIX_flush_raster, 1). --define(GL_SGIX_depth_texture, 1). --define(GL_SGIS_fog_function, 1). --define(GL_SGIX_fog_offset, 1). --define(GL_HP_image_transform, 1). --define(GL_HP_convolution_border_modes, 1). --define(GL_SGIX_texture_add_env, 1). --define(GL_EXT_color_subtable, 1). --define(GL_PGI_vertex_hints, 1). --define(GL_PGI_misc_hints, 1). --define(GL_EXT_paletted_texture, 1). --define(GL_EXT_clip_volume_hint, 1). --define(GL_SGIX_list_priority, 1). --define(GL_SGIX_ir_instrument1, 1). --define(GL_SGIX_calligraphic_fragment, 1). --define(GL_SGIX_texture_lod_bias, 1). --define(GL_SGIX_shadow_ambient, 1). --define(GL_EXT_index_texture, 1). --define(GL_EXT_index_material, 1). --define(GL_EXT_index_func, 1). --define(GL_EXT_index_array_formats, 1). --define(GL_EXT_compiled_vertex_array, 1). --define(GL_EXT_cull_vertex, 1). --define(GL_SGIX_ycrcb, 1). --define(GL_SGIX_fragment_lighting, 1). --define(GL_IBM_rasterpos_clip, 1). --define(GL_HP_texture_lighting, 1). --define(GL_EXT_draw_range_elements, 1). --define(GL_WIN_phong_shading, 1). --define(GL_WIN_specular_fog, 1). --define(GL_EXT_light_texture, 1). --define(GL_SGIX_blend_alpha_minmax, 1). --define(GL_EXT_bgra, 1). --define(GL_SGIX_async, 1). --define(GL_SGIX_async_pixel, 1). --define(GL_SGIX_async_histogram, 1). --define(GL_INTEL_parallel_arrays, 1). --define(GL_HP_occlusion_test, 1). --define(GL_EXT_pixel_transform, 1). --define(GL_EXT_pixel_transform_color_table, 1). --define(GL_EXT_shared_texture_palette, 1). --define(GL_EXT_separate_specular_color, 1). --define(GL_EXT_secondary_color, 1). --define(GL_EXT_texture_perturb_normal, 1). --define(GL_EXT_multi_draw_arrays, 1). --define(GL_EXT_fog_coord, 1). --define(GL_REND_screen_coordinates, 1). --define(GL_EXT_coordinate_frame, 1). --define(GL_EXT_texture_env_combine, 1). --define(GL_APPLE_specular_vector, 1). --define(GL_APPLE_transform_hint, 1). --define(GL_SGIX_fog_scale, 1). --define(GL_SUNX_constant_data, 1). --define(GL_SUN_global_alpha, 1). --define(GL_SUN_triangle_list, 1). --define(GL_SUN_vertex, 1). --define(GL_EXT_blend_func_separate, 1). --define(GL_INGR_blend_func_separate, 1). --define(GL_INGR_color_clamp, 1). --define(GL_INGR_interlace_read, 1). --define(GL_EXT_stencil_wrap, 1). --define(GL_EXT_422_pixels, 1). --define(GL_NV_texgen_reflection, 1). --define(GL_SUN_convolution_border_modes, 1). --define(GL_EXT_texture_env_add, 1). --define(GL_EXT_texture_lod_bias, 1). --define(GL_EXT_texture_filter_anisotropic, 1). --define(GL_EXT_vertex_weighting, 1). --define(GL_NV_light_max_exponent, 1). --define(GL_NV_vertex_array_range, 1). --define(GL_NV_register_combiners, 1). --define(GL_NV_fog_distance, 1). --define(GL_NV_texgen_emboss, 1). --define(GL_NV_blend_square, 1). --define(GL_NV_texture_env_combine4, 1). --define(GL_MESA_resize_buffers, 1). --define(GL_MESA_window_pos, 1). --define(GL_IBM_cull_vertex, 1). --define(GL_IBM_multimode_draw_arrays, 1). --define(GL_IBM_vertex_array_lists, 1). --define(GL_SGIX_subsample, 1). --define(GL_SGIX_ycrcba, 1). --define(GL_SGIX_ycrcb_subsample, 1). --define(GL_SGIX_depth_pass_instrument, 1). --define(GL_3DFX_texture_compression_FXT1, 1). --define(GL_3DFX_multisample, 1). --define(GL_3DFX_tbuffer, 1). --define(GL_EXT_multisample, 1). --define(GL_SGIX_vertex_preclip, 1). --define(GL_SGIX_convolution_accuracy, 1). --define(GL_SGIX_resample, 1). --define(GL_SGIS_point_line_texgen, 1). --define(GL_SGIS_texture_color_mask, 1). --define(GL_SGIX_igloo_interface, 1). --define(GL_EXT_texture_env_dot3, 1). --define(GL_ATI_texture_mirror_once, 1). --define(GL_NV_fence, 1). --define(GL_NV_evaluators, 1). --define(GL_NV_packed_depth_stencil, 1). --define(GL_NV_register_combiners2, 1). --define(GL_NV_texture_compression_vtc, 1). --define(GL_NV_texture_rectangle, 1). --define(GL_NV_texture_shader, 1). --define(GL_NV_texture_shader2, 1). --define(GL_NV_vertex_array_range2, 1). --define(GL_NV_vertex_program, 1). --define(GL_SGIX_texture_coordinate_clamp, 1). --define(GL_SGIX_scalebias_hint, 1). --define(GL_OML_interlace, 1). --define(GL_OML_subsample, 1). --define(GL_OML_resample, 1). --define(GL_NV_copy_depth_to_color, 1). --define(GL_ATI_envmap_bumpmap, 1). --define(GL_ATI_fragment_shader, 1). --define(GL_ATI_pn_triangles, 1). --define(GL_ATI_vertex_array_object, 1). --define(GL_EXT_vertex_shader, 1). --define(GL_ATI_vertex_streams, 1). --define(GL_ATI_element_array, 1). --define(GL_SUN_mesh_array, 1). --define(GL_SUN_slice_accum, 1). --define(GL_NV_multisample_filter_hint, 1). --define(GL_NV_depth_clamp, 1). --define(GL_NV_occlusion_query, 1). --define(GL_NV_point_sprite, 1). --define(GL_NV_texture_shader3, 1). --define(GL_NV_vertex_program1_1, 1). --define(GL_EXT_shadow_funcs, 1). --define(GL_EXT_stencil_two_side, 1). --define(GL_ATI_text_fragment_shader, 1). --define(GL_APPLE_client_storage, 1). --define(GL_APPLE_element_array, 1). --define(GL_APPLE_fence, 1). --define(GL_APPLE_vertex_array_object, 1). --define(GL_APPLE_vertex_array_range, 1). --define(GL_APPLE_ycbcr_422, 1). --define(GL_S3_s3tc, 1). --define(GL_ATI_draw_buffers, 1). --define(GL_ATI_pixel_format_float, 1). --define(GL_ATI_texture_env_combine3, 1). --define(GL_ATI_texture_float, 1). --define(GL_NV_float_buffer, 1). --define(GL_NV_fragment_program, 1). --define(GL_NV_half_float, 1). --define(GL_NV_pixel_data_range, 1). --define(GL_NV_primitive_restart, 1). --define(GL_NV_texture_expand_normal, 1). --define(GL_NV_vertex_program2, 1). --define(GL_ATI_map_object_buffer, 1). --define(GL_ATI_separate_stencil, 1). --define(GL_ATI_vertex_attrib_array_object, 1). --define(GL_OES_read_format, 1). --define(GL_EXT_depth_bounds_test, 1). --define(GL_EXT_texture_mirror_clamp, 1). --define(GL_EXT_blend_equation_separate, 1). --define(GL_MESA_pack_invert, 1). --define(GL_MESA_ycbcr_texture, 1). --define(GL_EXT_pixel_buffer_object, 1). --define(GL_NV_fragment_program_option, 1). --define(GL_NV_fragment_program2, 1). --define(GL_NV_vertex_program2_option, 1). --define(GL_NV_vertex_program3, 1). --define(GL_EXT_framebuffer_object, 1). --define(GL_GREMEDY_string_marker, 1). --define(GL_EXT_packed_depth_stencil, 1). --define(GL_EXT_stencil_clear_tag, 1). --define(GL_EXT_texture_sRGB, 1). --define(GL_EXT_framebuffer_blit, 1). --define(GL_EXT_framebuffer_multisample, 1). --define(GL_MESAX_texture_stack, 1). --define(GL_EXT_timer_query, 1). --define(GL_EXT_gpu_program_parameters, 1). --define(GL_APPLE_flush_buffer_range, 1). --define(GL_NV_gpu_program4, 1). --define(GL_NV_geometry_program4, 1). --define(GL_EXT_geometry_shader4, 1). --define(GL_NV_vertex_program4, 1). --define(GL_EXT_gpu_shader4, 1). --define(GL_EXT_draw_instanced, 1). --define(GL_EXT_packed_float, 1). --define(GL_EXT_texture_array, 1). --define(GL_EXT_texture_buffer_object, 1). --define(GL_EXT_texture_compression_latc, 1). --define(GL_EXT_texture_compression_rgtc, 1). --define(GL_EXT_texture_shared_exponent, 1). --define(GL_NV_depth_buffer_float, 1). --define(GL_NV_fragment_program4, 1). --define(GL_NV_framebuffer_multisample_coverage, 1). --define(GL_EXT_framebuffer_sRGB, 1). --define(GL_NV_geometry_shader4, 1). --define(GL_NV_parameter_buffer_object, 1). --define(GL_EXT_draw_buffers2, 1). --define(GL_NV_transform_feedback, 1). --define(GL_EXT_bindable_uniform, 1). --define(GL_EXT_texture_integer, 1). --define(GL_GREMEDY_frame_terminator, 1). --define(GL_NV_conditional_render, 1). --define(GL_NV_present_video, 1). --define(GL_EXT_transform_feedback, 1). --define(GL_EXT_direct_state_access, 1). --define(GL_EXT_vertex_array_bgra, 1). --define(GL_EXT_texture_swizzle, 1). --define(GL_NV_explicit_multisample, 1). --define(GL_NV_transform_feedback2, 1). --define(GL_ATI_meminfo, 1). --define(GL_AMD_performance_monitor, 1). --define(GL_AMD_texture_texture4, 1). --define(GL_AMD_vertex_shader_tesselator, 1). --define(GL_EXT_provoking_vertex, 1). --define(GL_EXT_texture_snorm, 1). --define(GL_AMD_draw_buffers_blend, 1). --define(GL_APPLE_texture_range, 1). --define(GL_APPLE_float_pixels, 1). --define(GL_APPLE_vertex_program_evaluators, 1). --define(GL_APPLE_aux_depth_stencil, 1). --define(GL_APPLE_object_purgeable, 1). --define(GL_APPLE_row_bytes, 1). --define(GL_APPLE_rgb_422, 1). --define(GL_NV_video_capture, 1). --define(GL_NV_copy_image, 1). --define(GL_EXT_separate_shader_objects, 1). --define(GL_NV_parameter_buffer_object2, 1). --define(GL_NV_shader_buffer_load, 1). --define(GL_NV_vertex_buffer_unified_memory, 1). --define(GL_NV_texture_barrier, 1). --define(GL_AMD_shader_stencil_export, 1). --define(GL_AMD_seamless_cubemap_per_texture, 1). --define(GL_AMD_conservative_depth, 1). --define(GL_EXT_shader_image_load_store, 1). --define(GL_EXT_vertex_attrib_64bit, 1). --define(GL_NV_gpu_program5, 1). --define(GL_NV_gpu_shader5, 1). --define(GL_NV_shader_buffer_store, 1). --define(GL_NV_tessellation_program5, 1). --define(GL_NV_vertex_attrib_integer_64bit, 1). --define(GL_NV_multisample_coverage, 1). --define(GL_AMD_name_gen_delete, 1). --define(GL_AMD_debug_output, 1). --define(GL_NV_vdpau_interop, 1). --define(GL_AMD_transform_feedback3_lines_triangles, 1). +-define(GL_DEPTH_CLAMP_NEAR_AMD, 16#901E). +-define(GL_DEPTH_CLAMP_FAR_AMD, 16#901F). diff --git a/lib/wx/src/gen/wxBoxSizer.erl b/lib/wx/src/gen/wxBoxSizer.erl index 1d5b1cf2fa..e6287945a9 100644 --- a/lib/wx/src/gen/wxBoxSizer.erl +++ b/lib/wx/src/gen/wxBoxSizer.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2008-2010. All Rights Reserved. +%% Copyright Ericsson AB 2008-2011. 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 @@ -102,7 +102,7 @@ prepend(This,Width,Height, Options) -> wxSizer:prepend(This,Width,Height, Option %% @hidden prepend(This,Width,Height) -> wxSizer:prepend(This,Width,Height). %% @hidden -prepend(This,Window) -> wxSizer:prepend(This,Window). +prepend(This,Item) -> wxSizer:prepend(This,Item). %% @hidden layout(This) -> wxSizer:layout(This). %% @hidden @@ -118,7 +118,7 @@ insert(This,Index,Width,Height, Options) -> wxSizer:insert(This,Index,Width,Heig %% @hidden insert(This,Index,Width,Height) -> wxSizer:insert(This,Index,Width,Height). %% @hidden -insert(This,Index,Window) -> wxSizer:insert(This,Index,Window). +insert(This,Index,Item) -> wxSizer:insert(This,Index,Item). %% @hidden hide(This,Window, Options) -> wxSizer:hide(This,Window, Options). %% @hidden diff --git a/lib/wx/src/gen/wxFlexGridSizer.erl b/lib/wx/src/gen/wxFlexGridSizer.erl index 9471cc8a01..910cc78894 100644 --- a/lib/wx/src/gen/wxFlexGridSizer.erl +++ b/lib/wx/src/gen/wxFlexGridSizer.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2008-2010. All Rights Reserved. +%% Copyright Ericsson AB 2008-2011. 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 @@ -222,7 +222,7 @@ prepend(This,Width,Height, Options) -> wxSizer:prepend(This,Width,Height, Option %% @hidden prepend(This,Width,Height) -> wxSizer:prepend(This,Width,Height). %% @hidden -prepend(This,Window) -> wxSizer:prepend(This,Window). +prepend(This,Item) -> wxSizer:prepend(This,Item). %% @hidden layout(This) -> wxSizer:layout(This). %% @hidden @@ -238,7 +238,7 @@ insert(This,Index,Width,Height, Options) -> wxSizer:insert(This,Index,Width,Heig %% @hidden insert(This,Index,Width,Height) -> wxSizer:insert(This,Index,Width,Height). %% @hidden -insert(This,Index,Window) -> wxSizer:insert(This,Index,Window). +insert(This,Index,Item) -> wxSizer:insert(This,Index,Item). %% @hidden hide(This,Window, Options) -> wxSizer:hide(This,Window, Options). %% @hidden diff --git a/lib/wx/src/gen/wxGridBagSizer.erl b/lib/wx/src/gen/wxGridBagSizer.erl index d8cc210d3b..cfc182cf89 100644 --- a/lib/wx/src/gen/wxGridBagSizer.erl +++ b/lib/wx/src/gen/wxGridBagSizer.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2008-2010. All Rights Reserved. +%% Copyright Ericsson AB 2008-2011. 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 @@ -474,7 +474,7 @@ prepend(This,Width,Height, Options) -> wxSizer:prepend(This,Width,Height, Option %% @hidden prepend(This,Width,Height) -> wxSizer:prepend(This,Width,Height). %% @hidden -prepend(This,Window) -> wxSizer:prepend(This,Window). +prepend(This,Item) -> wxSizer:prepend(This,Item). %% @hidden layout(This) -> wxSizer:layout(This). %% @hidden @@ -490,7 +490,7 @@ insert(This,Index,Width,Height, Options) -> wxSizer:insert(This,Index,Width,Heig %% @hidden insert(This,Index,Width,Height) -> wxSizer:insert(This,Index,Width,Height). %% @hidden -insert(This,Index,Window) -> wxSizer:insert(This,Index,Window). +insert(This,Index,Item) -> wxSizer:insert(This,Index,Item). %% @hidden hide(This,Window, Options) -> wxSizer:hide(This,Window, Options). %% @hidden diff --git a/lib/wx/src/gen/wxGridSizer.erl b/lib/wx/src/gen/wxGridSizer.erl index 7b62774347..fd8580c70d 100644 --- a/lib/wx/src/gen/wxGridSizer.erl +++ b/lib/wx/src/gen/wxGridSizer.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2008-2010. All Rights Reserved. +%% Copyright Ericsson AB 2008-2011. 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 @@ -174,7 +174,7 @@ prepend(This,Width,Height, Options) -> wxSizer:prepend(This,Width,Height, Option %% @hidden prepend(This,Width,Height) -> wxSizer:prepend(This,Width,Height). %% @hidden -prepend(This,Window) -> wxSizer:prepend(This,Window). +prepend(This,Item) -> wxSizer:prepend(This,Item). %% @hidden layout(This) -> wxSizer:layout(This). %% @hidden @@ -190,7 +190,7 @@ insert(This,Index,Width,Height, Options) -> wxSizer:insert(This,Index,Width,Heig %% @hidden insert(This,Index,Width,Height) -> wxSizer:insert(This,Index,Width,Height). %% @hidden -insert(This,Index,Window) -> wxSizer:insert(This,Index,Window). +insert(This,Index,Item) -> wxSizer:insert(This,Index,Item). %% @hidden hide(This,Window, Options) -> wxSizer:hide(This,Window, Options). %% @hidden diff --git a/lib/wx/src/gen/wxListCtrl.erl b/lib/wx/src/gen/wxListCtrl.erl index 9c4ba1e5a3..5799206b87 100644 --- a/lib/wx/src/gen/wxListCtrl.erl +++ b/lib/wx/src/gen/wxListCtrl.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2008-2010. All Rights Reserved. +%% Copyright Ericsson AB 2008-2011. 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 @@ -29,17 +29,17 @@ -module(wxListCtrl). -include("wxe.hrl"). --export([ sortItems/2 ,arrange/1,arrange/2,assignImageList/3,clearAll/1,create/2, - create/3,deleteAllItems/1,deleteColumn/2,deleteItem/2,destroy/1,editLabel/2, - ensureVisible/2,findItem/3,findItem/4,getColumn/3,getColumnCount/1, - getColumnWidth/2,getCountPerPage/1,getEditControl/1,getImageList/2, - getItem/2,getItemBackgroundColour/2,getItemCount/1,getItemData/2, - getItemFont/2,getItemPosition/3,getItemRect/3,getItemRect/4,getItemSpacing/1, - getItemState/3,getItemText/2,getItemTextColour/2,getNextItem/2,getNextItem/3, - getSelectedItemCount/1,getTextColour/1,getTopItem/1,getViewRect/1, - hitTest/2,insertColumn/3,insertColumn/4,insertItem/2,insertItem/3, - insertItem/4,new/0,new/1,new/2,refreshItem/2,refreshItems/3,scrollList/3, - setBackgroundColour/2,setColumn/3,setColumnWidth/3,setImageList/3, +-export([ create/2, create/3 , new/0, new/1, new/2 , sortItems/2 ,arrange/1, + arrange/2,assignImageList/3,clearAll/1,deleteAllItems/1,deleteColumn/2, + deleteItem/2,destroy/1,editLabel/2,ensureVisible/2,findItem/3,findItem/4, + getColumn/3,getColumnCount/1,getColumnWidth/2,getCountPerPage/1,getEditControl/1, + getImageList/2,getItem/2,getItemBackgroundColour/2,getItemCount/1, + getItemData/2,getItemFont/2,getItemPosition/3,getItemRect/3,getItemRect/4, + getItemSpacing/1,getItemState/3,getItemText/2,getItemTextColour/2, + getNextItem/2,getNextItem/3,getSelectedItemCount/1,getTextColour/1, + getTopItem/1,getViewRect/1,hitTest/2,insertColumn/3,insertColumn/4, + insertItem/2,insertItem/3,insertItem/4,refreshItem/2,refreshItems/3, + scrollList/3,setBackgroundColour/2,setColumn/3,setColumnWidth/3,setImageList/3, setItem/2,setItem/4,setItem/5,setItemBackgroundColour/3,setItemColumnImage/4, setItemCount/2,setItemData/3,setItemFont/3,setItemImage/3,setItemImage/4, setItemPosition/3,setItemState/4,setItemText/3,setItemTextColour/3, @@ -89,11 +89,11 @@ parent_class(wxWindow) -> true; parent_class(wxEvtHandler) -> true; parent_class(_Class) -> erlang:error({badtype, ?MODULE}). + %% @spec () -> wxListCtrl() %% @doc See <a href="http://www.wxwidgets.org/manuals/stable/wx_wxlistctrl.html#wxlistctrlwxlistctrl">external documentation</a>. new() -> - wxe_util:construct(?wxListCtrl_new_0, - <<>>). + wxe_util:construct(?wxListCtrl_new_0, <<>>). %% @spec (Parent::wxWindow:wxWindow()) -> wxListCtrl() %% @equiv new(Parent, []) @@ -102,20 +102,44 @@ new(Parent) new(Parent, []). %% @spec (Parent::wxWindow:wxWindow(), [Option]) -> wxListCtrl() -%% Option = {winid, integer()} | {pos, {X::integer(),Y::integer()}} | {size, {W::integer(),H::integer()}} | {style, integer()} | {validator, wx:wx()} +%% Option = {winid, integer()} | +%% {pos, {X::integer(),Y::integer()}} | +%% {size, {W::integer(),H::integer()}} | +%% {style, integer()} | +%% {validator, wx:wx()} | +%% {onGetItemText, OnGetItemText} | +%% {onGetItemAttr, OnGetItemAttr} | +%% {onGetItemColumnImage, OnGetItemColumnImage} +%% +%% OnGetItemText = (This, Item, Column) -> wxString() +%% OnGetItemAttr = (This, Item) -> wxListItemAttr() +%% OnGetItemColumnImage = (This, Item, Column) -> integer() %% @doc See <a href="http://www.wxwidgets.org/manuals/stable/wx_wxlistctrl.html#wxlistctrlwxlistctrl">external documentation</a>. + new(#wx_ref{type=ParentT,ref=ParentRef}, Options) - when is_list(Options) -> - ?CLASS(ParentT,wxWindow), - MOpts = fun({winid, Winid}, Acc) -> [<<1:32/?UI,Winid:32/?UI>>|Acc]; - ({pos, {PosX,PosY}}, Acc) -> [<<2:32/?UI,PosX:32/?UI,PosY:32/?UI,0:32>>|Acc]; - ({size, {SizeW,SizeH}}, Acc) -> [<<3:32/?UI,SizeW:32/?UI,SizeH:32/?UI,0:32>>|Acc]; - ({style, Style}, Acc) -> [<<4:32/?UI,Style:32/?UI>>|Acc]; - ({validator, #wx_ref{type=ValidatorT,ref=ValidatorRef}}, Acc) -> ?CLASS(ValidatorT,wx),[<<5:32/?UI,ValidatorRef:32/?UI>>|Acc]; - (BadOpt, _) -> erlang:error({badoption, BadOpt}) end, - BinOpt = list_to_binary(lists:foldl(MOpts, [<<0:32>>], Options)), - wxe_util:construct(?wxListCtrl_new_2, - <<ParentRef:32/?UI, 0:32,BinOpt/binary>>). + when is_list(Options)-> + ?CLASS(ParentT,wxWindow), + MOpts = fun({winid, Winid}, Acc) -> [<<1:32/?UI,Winid:32/?UI>>|Acc]; + ({pos, {PosX,PosY}}, Acc) -> [<<2:32/?UI,PosX:32/?UI,PosY:32/?UI,0:32>>|Acc]; + ({size, {SizeW,SizeH}}, Acc) -> [<<3:32/?UI,SizeW:32/?UI,SizeH:32/?UI,0:32>>|Acc]; + ({style, Style}, Acc) -> [<<4:32/?UI,Style:32/?UI>>|Acc]; + ({validator, #wx_ref{type=ValidatorT,ref=ValidatorRef}}, Acc) -> + ?CLASS(ValidatorT,wx),[<<5:32/?UI,ValidatorRef:32/?UI>>|Acc]; + ({onGetItemText, F}, Acc) when is_function(F) -> + Fun = fun([This,Item,Col]) -> unicode:characters_to_binary([F(This,Item,Col),0]) end, + [<<6:32/?UI,(wxe_util:get_cbId(Fun)):32/?UI>>|Acc]; + ({onGetItemAttr, F}, Acc) when is_function(F) -> + Fun = fun([This,Item]) -> + #wx_ref{type=wxListItemAttr,ref=ThisRef} = F(This,Item), + <<ThisRef:32/?UI>> + end, + [<<7:32/?UI,(wxe_util:get_cbId(Fun)):32/?UI>>|Acc]; + ({onGetItemColumnImage, F}, Acc) when is_function(F) -> + Fun = fun([This,Item, Col]) -> <<(F(This,Item,Col)):32/?I>> end, + [<<8:32/?UI,(wxe_util:get_cbId(Fun)):32/?UI>>|Acc]; + (BadOpt, _) -> erlang:error({badoption, BadOpt}) end, + BinOpt = list_to_binary(lists:foldl(MOpts, [<<0:32>>], Options)), + wxe_util:construct(?wxListCtrl_new_2, <<ParentRef:32/?UI, 0:32,BinOpt/binary>>). %% @spec (This::wxListCtrl()) -> bool() %% @equiv arrange(This, []) @@ -151,6 +175,7 @@ clearAll(#wx_ref{type=ThisT,ref=ThisRef}) -> wxe_util:cast(?wxListCtrl_ClearAll, <<ThisRef:32/?UI>>). + %% @spec (This::wxListCtrl(), Parent::wxWindow:wxWindow()) -> bool() %% @equiv create(This,Parent, []) create(This,Parent) @@ -158,7 +183,18 @@ create(This,Parent) create(This,Parent, []). %% @spec (This::wxListCtrl(), Parent::wxWindow:wxWindow(), [Option]) -> bool() -%% Option = {winid, integer()} | {pos, {X::integer(),Y::integer()}} | {size, {W::integer(),H::integer()}} | {style, integer()} | {validator, wx:wx()} +%% Option = {winid, integer()} | +%% {pos, {X::integer(),Y::integer()}} | +%% {size, {W::integer(),H::integer()}} | +%% {style, integer()} | +%% {validator, wx:wx()} | +%% {onGetItemText, OnGetItemText} | +%% {onGetItemAttr, OnGetItemAttr} | +%% {onGetItemColumnImage, OnGetItemColumnImage} +%% +%% OnGetItemText = (This, Item, Column) -> wxString() +%% OnGetItemAttr = (This, Item) -> wxListItemAttr() +%% OnGetItemColumnImage = (This, Item, Column) -> integer() %% @doc See <a href="http://www.wxwidgets.org/manuals/stable/wx_wxlistctrl.html#wxlistctrlcreate">external documentation</a>. create(#wx_ref{type=ThisT,ref=ThisRef},#wx_ref{type=ParentT,ref=ParentRef}, Options) when is_list(Options) -> @@ -726,12 +762,12 @@ setWindowStyleFlag(#wx_ref{type=ThisT,ref=ThisRef},Style) %% @spec (This::wxListCtrl(), SortCallBack::function()) -> boolean() %% @doc Sort the items in the list control<br /> -%% <pre>SortCalBack(Item1,Item2) -> integer()</pre> +%% <pre>SortCallBack(Item1,Item2) -> integer()</pre> %% <br /> SortCallBack receives the client data associated with two items %% to compare, and should return 0 if the items are equal, a negative %% value if the first item is less than the second one and a positive %% value if the first item is greater than the second one. -%% <br /> NOTE: The callback may not call other processes. +%% <br /> NOTE: The callback may not call other (wx) processes. sortItems(#wx_ref{type=ThisT,ref=ThisRef}, SortCallBack) when is_function(SortCallBack, 2) -> ?CLASS(ThisT,wxListCtrl), diff --git a/lib/wx/src/gen/wxListItemAttr.erl b/lib/wx/src/gen/wxListItemAttr.erl new file mode 100644 index 0000000000..1a43c71854 --- /dev/null +++ b/lib/wx/src/gen/wxListItemAttr.erl @@ -0,0 +1,122 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 2008-2011. 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% +%% This file is generated DO NOT EDIT + +%% @doc See external documentation: <a href="http://www.wxwidgets.org/manuals/stable/wx_wxlistitemattr.html">wxListItemAttr</a>. +%% @type wxListItemAttr(). An object reference, The representation is internal +%% and can be changed without notice. It can't be used for comparsion +%% stored on disc or distributed for use on other nodes. + +-module(wxListItemAttr). +-include("wxe.hrl"). +-export([destroy/1,getBackgroundColour/1,getFont/1,getTextColour/1,hasBackgroundColour/1, + hasFont/1,hasTextColour/1,new/0,new/3,setBackgroundColour/2,setFont/2, + setTextColour/2]). + +%% inherited exports +-export([parent_class/1]). + +%% @hidden +parent_class(_Class) -> erlang:error({badtype, ?MODULE}). + +%% @spec () -> wxListItemAttr() +%% @doc See <a href="http://www.wxwidgets.org/manuals/stable/wx_wxlistitemattr.html#wxlistitemattrwxlistitemattr">external documentation</a>. +new() -> + wxe_util:construct(?wxListItemAttr_new_0, + <<>>). + +%% @spec (ColText::wx:colour(), ColBack::wx:colour(), Font::wxFont:wxFont()) -> wxListItemAttr() +%% @doc See <a href="http://www.wxwidgets.org/manuals/stable/wx_wxlistitemattr.html#wxlistitemattrwxlistitemattr">external documentation</a>. +new(ColText,ColBack,#wx_ref{type=FontT,ref=FontRef}) + when tuple_size(ColText) =:= 3; tuple_size(ColText) =:= 4,tuple_size(ColBack) =:= 3; tuple_size(ColBack) =:= 4 -> + ?CLASS(FontT,wxFont), + wxe_util:construct(?wxListItemAttr_new_3, + <<(wxe_util:colour_bin(ColText)):16/binary,(wxe_util:colour_bin(ColBack)):16/binary,FontRef:32/?UI>>). + +%% @spec (This::wxListItemAttr()) -> wx:colour() +%% @doc See <a href="http://www.wxwidgets.org/manuals/stable/wx_wxlistitemattr.html#wxlistitemattrgetbackgroundcolour">external documentation</a>. +getBackgroundColour(#wx_ref{type=ThisT,ref=ThisRef}) -> + ?CLASS(ThisT,wxListItemAttr), + wxe_util:call(?wxListItemAttr_GetBackgroundColour, + <<ThisRef:32/?UI>>). + +%% @spec (This::wxListItemAttr()) -> wxFont:wxFont() +%% @doc See <a href="http://www.wxwidgets.org/manuals/stable/wx_wxlistitemattr.html#wxlistitemattrgetfont">external documentation</a>. +getFont(#wx_ref{type=ThisT,ref=ThisRef}) -> + ?CLASS(ThisT,wxListItemAttr), + wxe_util:call(?wxListItemAttr_GetFont, + <<ThisRef:32/?UI>>). + +%% @spec (This::wxListItemAttr()) -> wx:colour() +%% @doc See <a href="http://www.wxwidgets.org/manuals/stable/wx_wxlistitemattr.html#wxlistitemattrgettextcolour">external documentation</a>. +getTextColour(#wx_ref{type=ThisT,ref=ThisRef}) -> + ?CLASS(ThisT,wxListItemAttr), + wxe_util:call(?wxListItemAttr_GetTextColour, + <<ThisRef:32/?UI>>). + +%% @spec (This::wxListItemAttr()) -> bool() +%% @doc See <a href="http://www.wxwidgets.org/manuals/stable/wx_wxlistitemattr.html#wxlistitemattrhasbackgroundcolour">external documentation</a>. +hasBackgroundColour(#wx_ref{type=ThisT,ref=ThisRef}) -> + ?CLASS(ThisT,wxListItemAttr), + wxe_util:call(?wxListItemAttr_HasBackgroundColour, + <<ThisRef:32/?UI>>). + +%% @spec (This::wxListItemAttr()) -> bool() +%% @doc See <a href="http://www.wxwidgets.org/manuals/stable/wx_wxlistitemattr.html#wxlistitemattrhasfont">external documentation</a>. +hasFont(#wx_ref{type=ThisT,ref=ThisRef}) -> + ?CLASS(ThisT,wxListItemAttr), + wxe_util:call(?wxListItemAttr_HasFont, + <<ThisRef:32/?UI>>). + +%% @spec (This::wxListItemAttr()) -> bool() +%% @doc See <a href="http://www.wxwidgets.org/manuals/stable/wx_wxlistitemattr.html#wxlistitemattrhastextcolour">external documentation</a>. +hasTextColour(#wx_ref{type=ThisT,ref=ThisRef}) -> + ?CLASS(ThisT,wxListItemAttr), + wxe_util:call(?wxListItemAttr_HasTextColour, + <<ThisRef:32/?UI>>). + +%% @spec (This::wxListItemAttr(), ColBack::wx:colour()) -> ok +%% @doc See <a href="http://www.wxwidgets.org/manuals/stable/wx_wxlistitemattr.html#wxlistitemattrsetbackgroundcolour">external documentation</a>. +setBackgroundColour(#wx_ref{type=ThisT,ref=ThisRef},ColBack) + when tuple_size(ColBack) =:= 3; tuple_size(ColBack) =:= 4 -> + ?CLASS(ThisT,wxListItemAttr), + wxe_util:cast(?wxListItemAttr_SetBackgroundColour, + <<ThisRef:32/?UI,(wxe_util:colour_bin(ColBack)):16/binary>>). + +%% @spec (This::wxListItemAttr(), Font::wxFont:wxFont()) -> ok +%% @doc See <a href="http://www.wxwidgets.org/manuals/stable/wx_wxlistitemattr.html#wxlistitemattrsetfont">external documentation</a>. +setFont(#wx_ref{type=ThisT,ref=ThisRef},#wx_ref{type=FontT,ref=FontRef}) -> + ?CLASS(ThisT,wxListItemAttr), + ?CLASS(FontT,wxFont), + wxe_util:cast(?wxListItemAttr_SetFont, + <<ThisRef:32/?UI,FontRef:32/?UI>>). + +%% @spec (This::wxListItemAttr(), ColText::wx:colour()) -> ok +%% @doc See <a href="http://www.wxwidgets.org/manuals/stable/wx_wxlistitemattr.html#wxlistitemattrsettextcolour">external documentation</a>. +setTextColour(#wx_ref{type=ThisT,ref=ThisRef},ColText) + when tuple_size(ColText) =:= 3; tuple_size(ColText) =:= 4 -> + ?CLASS(ThisT,wxListItemAttr), + wxe_util:cast(?wxListItemAttr_SetTextColour, + <<ThisRef:32/?UI,(wxe_util:colour_bin(ColText)):16/binary>>). + +%% @spec (This::wxListItemAttr()) -> ok +%% @doc Destroys this object, do not use object again +destroy(Obj=#wx_ref{type=Type}) -> + ?CLASS(Type,wxListItemAttr), + wxe_util:destroy(?wxListItemAttr_destroy,Obj), + ok. diff --git a/lib/wx/src/gen/wxRegion.erl b/lib/wx/src/gen/wxRegion.erl index 0ceba1d203..4e8d98a54f 100644 --- a/lib/wx/src/gen/wxRegion.erl +++ b/lib/wx/src/gen/wxRegion.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2008-2010. All Rights Reserved. +%% Copyright Ericsson AB 2008-2011. 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 @@ -48,7 +48,7 @@ new() -> %% new(Bmp::wxBitmap:wxBitmap()) -> wxRegion() </c> %% </p> %% <p><c> -%% new(Rect::{X::integer(),Y::integer(),W::integer(),H::integer()}) -> wxRegion() </c> +%% new(Rect::{X::integer(), Y::integer(), W::integer(), H::integer()}) -> wxRegion() </c> %% </p> new(#wx_ref{type=BmpT,ref=BmpRef}) -> ?CLASS(BmpT,wxBitmap), diff --git a/lib/wx/src/gen/wxSizer.erl b/lib/wx/src/gen/wxSizer.erl index 716b2224b5..e9b83a7333 100644 --- a/lib/wx/src/gen/wxSizer.erl +++ b/lib/wx/src/gen/wxSizer.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2008-2010. All Rights Reserved. +%% Copyright Ericsson AB 2008-2011. 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 @@ -298,18 +298,8 @@ hide(#wx_ref{type=ThisT,ref=ThisRef},#wx_ref{type=WindowT,ref=WindowRef}, Option wxe_util:call(WindowOP, <<ThisRef:32/?UI,WindowRef:32/?UI, BinOpt/binary>>). -%% @spec (This::wxSizer(),Index::integer(),X::term()) -> wxSizerItem:wxSizerItem() +%% @spec (This::wxSizer(), Index::integer(), Item::wxSizerItem:wxSizerItem()) -> wxSizerItem:wxSizerItem() %% @doc See <a href="http://www.wxwidgets.org/manuals/stable/wx_wxsizer.html#wxsizerinsert">external documentation</a>. -%% <br /> Alternatives: -%% <p><c> -%% insert(This::wxSizer(), Index::integer(), Window::wxWindow:wxWindow() | wxSizer()) -> insert(This,Index,Window, []) </c></p> -%% <p><c> -%% insert(This::wxSizer(), Index::integer(), Item::wxSizerItem:wxSizerItem()) -> wxSizerItem:wxSizerItem() </c> -%% </p> - -insert(This,Index,Window) - when is_record(This, wx_ref),is_integer(Index),is_record(Window, wx_ref) -> - insert(This,Index,Window, []); insert(#wx_ref{type=ThisT,ref=ThisRef},Index,#wx_ref{type=ItemT,ref=ItemRef}) when is_integer(Index) -> ?CLASS(ThisT,wxSizer), @@ -437,18 +427,8 @@ layout(#wx_ref{type=ThisT,ref=ThisRef}) -> wxe_util:cast(?wxSizer_Layout, <<ThisRef:32/?UI>>). -%% @spec (This::wxSizer(),X::term()) -> wxSizerItem:wxSizerItem() +%% @spec (This::wxSizer(), Item::wxSizerItem:wxSizerItem()) -> wxSizerItem:wxSizerItem() %% @doc See <a href="http://www.wxwidgets.org/manuals/stable/wx_wxsizer.html#wxsizerprepend">external documentation</a>. -%% <br /> Alternatives: -%% <p><c> -%% prepend(This::wxSizer(), Window::wxWindow:wxWindow() | wxSizer()) -> prepend(This,Window, []) </c></p> -%% <p><c> -%% prepend(This::wxSizer(), Item::wxSizerItem:wxSizerItem()) -> wxSizerItem:wxSizerItem() </c> -%% </p> - -prepend(This,Window) - when is_record(This, wx_ref),is_record(Window, wx_ref) -> - prepend(This,Window, []); prepend(#wx_ref{type=ThisT,ref=ThisRef},#wx_ref{type=ItemT,ref=ItemRef}) -> ?CLASS(ThisT,wxSizer), ?CLASS(ItemT,wxSizerItem), diff --git a/lib/wx/src/gen/wxStaticBoxSizer.erl b/lib/wx/src/gen/wxStaticBoxSizer.erl index 5f346b7a1e..2cf9f64325 100644 --- a/lib/wx/src/gen/wxStaticBoxSizer.erl +++ b/lib/wx/src/gen/wxStaticBoxSizer.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2008-2010. All Rights Reserved. +%% Copyright Ericsson AB 2008-2011. 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 @@ -130,7 +130,7 @@ prepend(This,Width,Height, Options) -> wxSizer:prepend(This,Width,Height, Option %% @hidden prepend(This,Width,Height) -> wxSizer:prepend(This,Width,Height). %% @hidden -prepend(This,Window) -> wxSizer:prepend(This,Window). +prepend(This,Item) -> wxSizer:prepend(This,Item). %% @hidden layout(This) -> wxSizer:layout(This). %% @hidden @@ -146,7 +146,7 @@ insert(This,Index,Width,Height, Options) -> wxSizer:insert(This,Index,Width,Heig %% @hidden insert(This,Index,Width,Height) -> wxSizer:insert(This,Index,Width,Height). %% @hidden -insert(This,Index,Window) -> wxSizer:insert(This,Index,Window). +insert(This,Index,Item) -> wxSizer:insert(This,Index,Item). %% @hidden hide(This,Window, Options) -> wxSizer:hide(This,Window, Options). %% @hidden diff --git a/lib/wx/src/gen/wxStdDialogButtonSizer.erl b/lib/wx/src/gen/wxStdDialogButtonSizer.erl index b0052ca2e1..3d31907275 100644 --- a/lib/wx/src/gen/wxStdDialogButtonSizer.erl +++ b/lib/wx/src/gen/wxStdDialogButtonSizer.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2008-2010. All Rights Reserved. +%% Copyright Ericsson AB 2008-2011. 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 @@ -139,7 +139,7 @@ prepend(This,Width,Height, Options) -> wxSizer:prepend(This,Width,Height, Option %% @hidden prepend(This,Width,Height) -> wxSizer:prepend(This,Width,Height). %% @hidden -prepend(This,Window) -> wxSizer:prepend(This,Window). +prepend(This,Item) -> wxSizer:prepend(This,Item). %% @hidden layout(This) -> wxSizer:layout(This). %% @hidden @@ -155,7 +155,7 @@ insert(This,Index,Width,Height, Options) -> wxSizer:insert(This,Index,Width,Heig %% @hidden insert(This,Index,Width,Height) -> wxSizer:insert(This,Index,Width,Height). %% @hidden -insert(This,Index,Window) -> wxSizer:insert(This,Index,Window). +insert(This,Index,Item) -> wxSizer:insert(This,Index,Item). %% @hidden hide(This,Window, Options) -> wxSizer:hide(This,Window, Options). %% @hidden diff --git a/lib/wx/src/gen/wxWindow.erl b/lib/wx/src/gen/wxWindow.erl index 33665a0ad6..031314bfe2 100644 --- a/lib/wx/src/gen/wxWindow.erl +++ b/lib/wx/src/gen/wxWindow.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2008-2010. All Rights Reserved. +%% Copyright Ericsson AB 2008-2011. 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 @@ -1144,10 +1144,10 @@ setCaret(#wx_ref{type=ThisT,ref=ThisRef},#wx_ref{type=CaretT,ref=CaretRef}) -> %% @doc See <a href="http://www.wxwidgets.org/manuals/stable/wx_wxwindow.html#wxwindowsetclientsize">external documentation</a>. %% <br /> Alternatives: %% <p><c> -%% setClientSize(This::wxWindow(), Size::{W::integer(),H::integer()}) -> ok </c> +%% setClientSize(This::wxWindow(), Size::{W::integer(), H::integer()}) -> ok </c> %% </p> %% <p><c> -%% setClientSize(This::wxWindow(), Rect::{X::integer(),Y::integer(),W::integer(),H::integer()}) -> ok </c> +%% setClientSize(This::wxWindow(), Rect::{X::integer(), Y::integer(), W::integer(), H::integer()}) -> ok </c> %% </p> setClientSize(#wx_ref{type=ThisT,ref=ThisRef},{SizeW,SizeH}) when is_integer(SizeW),is_integer(SizeH) -> diff --git a/lib/wx/src/gen/wxe_debug.hrl b/lib/wx/src/gen/wxe_debug.hrl index 3edfa73599..960f67a1f6 100644 --- a/lib/wx/src/gen/wxe_debug.hrl +++ b/lib/wx/src/gen/wxe_debug.hrl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2008-2010. All Rights Reserved. +%% Copyright Ericsson AB 2008-2011. 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 @@ -1603,1684 +1603,1696 @@ wxdebug_table() -> {1754, {wxListItem, setText, 1}}, {1755, {wxListItem, setTextColour, 1}}, {1756, {wxListItem, setWidth, 1}}, - {1757, {wxImageList, new_0, 0}}, - {1758, {wxImageList, new_3, 3}}, - {1759, {wxImageList, add_1, 1}}, - {1760, {wxImageList, add_2_0, 2}}, - {1761, {wxImageList, add_2_1, 2}}, - {1762, {wxImageList, create, 3}}, - {1764, {wxImageList, draw, 5}}, - {1765, {wxImageList, getBitmap, 1}}, - {1766, {wxImageList, getIcon, 1}}, - {1767, {wxImageList, getImageCount, 0}}, - {1768, {wxImageList, getSize, 3}}, - {1769, {wxImageList, remove, 1}}, - {1770, {wxImageList, removeAll, 0}}, - {1771, {wxImageList, replace_2, 2}}, - {1772, {wxImageList, replace_3, 3}}, - {1773, {wxImageList, 'Destroy', undefined}}, - {1774, {wxTextAttr, new_0, 0}}, - {1775, {wxTextAttr, new_2, 2}}, - {1776, {wxTextAttr, getAlignment, 0}}, - {1777, {wxTextAttr, getBackgroundColour, 0}}, - {1778, {wxTextAttr, getFont, 0}}, - {1779, {wxTextAttr, getLeftIndent, 0}}, - {1780, {wxTextAttr, getLeftSubIndent, 0}}, - {1781, {wxTextAttr, getRightIndent, 0}}, - {1782, {wxTextAttr, getTabs, 0}}, - {1783, {wxTextAttr, getTextColour, 0}}, - {1784, {wxTextAttr, hasBackgroundColour, 0}}, - {1785, {wxTextAttr, hasFont, 0}}, - {1786, {wxTextAttr, hasTextColour, 0}}, - {1787, {wxTextAttr, getFlags, 0}}, - {1788, {wxTextAttr, isDefault, 0}}, - {1789, {wxTextAttr, setAlignment, 1}}, - {1790, {wxTextAttr, setBackgroundColour, 1}}, - {1791, {wxTextAttr, setFlags, 1}}, - {1792, {wxTextAttr, setFont, 2}}, - {1793, {wxTextAttr, setLeftIndent, 2}}, - {1794, {wxTextAttr, setRightIndent, 1}}, - {1795, {wxTextAttr, setTabs, 1}}, - {1796, {wxTextAttr, setTextColour, 1}}, - {1797, {wxTextAttr, 'Destroy', undefined}}, - {1799, {wxTextCtrl, new_3, 3}}, - {1800, {wxTextCtrl, new_0, 0}}, - {1802, {wxTextCtrl, destruct, 0}}, - {1803, {wxTextCtrl, appendText, 1}}, - {1804, {wxTextCtrl, canCopy, 0}}, - {1805, {wxTextCtrl, canCut, 0}}, - {1806, {wxTextCtrl, canPaste, 0}}, - {1807, {wxTextCtrl, canRedo, 0}}, - {1808, {wxTextCtrl, canUndo, 0}}, - {1809, {wxTextCtrl, clear, 0}}, - {1810, {wxTextCtrl, copy, 0}}, - {1811, {wxTextCtrl, create, 3}}, - {1812, {wxTextCtrl, cut, 0}}, - {1813, {wxTextCtrl, discardEdits, 0}}, - {1814, {wxTextCtrl, emulateKeyPress, 1}}, - {1815, {wxTextCtrl, getDefaultStyle, 0}}, - {1816, {wxTextCtrl, getInsertionPoint, 0}}, - {1817, {wxTextCtrl, getLastPosition, 0}}, - {1818, {wxTextCtrl, getLineLength, 1}}, - {1819, {wxTextCtrl, getLineText, 1}}, - {1820, {wxTextCtrl, getNumberOfLines, 0}}, - {1821, {wxTextCtrl, getRange, 2}}, - {1822, {wxTextCtrl, getSelection, 2}}, - {1823, {wxTextCtrl, getStringSelection, 0}}, - {1824, {wxTextCtrl, getStyle, 2}}, - {1825, {wxTextCtrl, getValue, 0}}, - {1826, {wxTextCtrl, isEditable, 0}}, - {1827, {wxTextCtrl, isModified, 0}}, - {1828, {wxTextCtrl, isMultiLine, 0}}, - {1829, {wxTextCtrl, isSingleLine, 0}}, - {1830, {wxTextCtrl, loadFile, 2}}, - {1831, {wxTextCtrl, markDirty, 0}}, - {1832, {wxTextCtrl, paste, 0}}, - {1833, {wxTextCtrl, positionToXY, 3}}, - {1834, {wxTextCtrl, redo, 0}}, - {1835, {wxTextCtrl, remove, 2}}, - {1836, {wxTextCtrl, replace, 3}}, - {1837, {wxTextCtrl, saveFile, 1}}, - {1838, {wxTextCtrl, setDefaultStyle, 1}}, - {1839, {wxTextCtrl, setEditable, 1}}, - {1840, {wxTextCtrl, setInsertionPoint, 1}}, - {1841, {wxTextCtrl, setInsertionPointEnd, 0}}, - {1843, {wxTextCtrl, setMaxLength, 1}}, - {1844, {wxTextCtrl, setSelection, 2}}, - {1845, {wxTextCtrl, setStyle, 3}}, - {1846, {wxTextCtrl, setValue, 1}}, - {1847, {wxTextCtrl, showPosition, 1}}, - {1848, {wxTextCtrl, undo, 0}}, - {1849, {wxTextCtrl, writeText, 1}}, - {1850, {wxTextCtrl, xYToPosition, 2}}, - {1853, {wxNotebook, new_0, 0}}, - {1854, {wxNotebook, new_3, 3}}, - {1855, {wxNotebook, destruct, 0}}, - {1856, {wxNotebook, addPage, 3}}, - {1857, {wxNotebook, advanceSelection, 1}}, - {1858, {wxNotebook, assignImageList, 1}}, - {1859, {wxNotebook, create, 3}}, - {1860, {wxNotebook, deleteAllPages, 0}}, - {1861, {wxNotebook, deletePage, 1}}, - {1862, {wxNotebook, removePage, 1}}, - {1863, {wxNotebook, getCurrentPage, 0}}, - {1864, {wxNotebook, getImageList, 0}}, - {1866, {wxNotebook, getPage, 1}}, - {1867, {wxNotebook, getPageCount, 0}}, - {1868, {wxNotebook, getPageImage, 1}}, - {1869, {wxNotebook, getPageText, 1}}, - {1870, {wxNotebook, getRowCount, 0}}, - {1871, {wxNotebook, getSelection, 0}}, - {1872, {wxNotebook, getThemeBackgroundColour, 0}}, - {1874, {wxNotebook, hitTest, 2}}, - {1876, {wxNotebook, insertPage, 4}}, - {1877, {wxNotebook, setImageList, 1}}, - {1878, {wxNotebook, setPadding, 1}}, - {1879, {wxNotebook, setPageSize, 1}}, - {1880, {wxNotebook, setPageImage, 2}}, - {1881, {wxNotebook, setPageText, 2}}, - {1882, {wxNotebook, setSelection, 1}}, - {1883, {wxNotebook, changeSelection, 1}}, - {1884, {wxChoicebook, new_0, 0}}, - {1885, {wxChoicebook, new_3, 3}}, - {1886, {wxChoicebook, addPage, 3}}, - {1887, {wxChoicebook, advanceSelection, 1}}, - {1888, {wxChoicebook, assignImageList, 1}}, - {1889, {wxChoicebook, create, 3}}, - {1890, {wxChoicebook, deleteAllPages, 0}}, - {1891, {wxChoicebook, deletePage, 1}}, - {1892, {wxChoicebook, removePage, 1}}, - {1893, {wxChoicebook, getCurrentPage, 0}}, - {1894, {wxChoicebook, getImageList, 0}}, - {1896, {wxChoicebook, getPage, 1}}, - {1897, {wxChoicebook, getPageCount, 0}}, - {1898, {wxChoicebook, getPageImage, 1}}, - {1899, {wxChoicebook, getPageText, 1}}, - {1900, {wxChoicebook, getSelection, 0}}, - {1901, {wxChoicebook, hitTest, 2}}, - {1902, {wxChoicebook, insertPage, 4}}, - {1903, {wxChoicebook, setImageList, 1}}, - {1904, {wxChoicebook, setPageSize, 1}}, - {1905, {wxChoicebook, setPageImage, 2}}, - {1906, {wxChoicebook, setPageText, 2}}, - {1907, {wxChoicebook, setSelection, 1}}, - {1908, {wxChoicebook, changeSelection, 1}}, - {1909, {wxChoicebook, 'Destroy', undefined}}, - {1910, {wxToolbook, new_0, 0}}, - {1911, {wxToolbook, new_3, 3}}, - {1912, {wxToolbook, addPage, 3}}, - {1913, {wxToolbook, advanceSelection, 1}}, - {1914, {wxToolbook, assignImageList, 1}}, - {1915, {wxToolbook, create, 3}}, - {1916, {wxToolbook, deleteAllPages, 0}}, - {1917, {wxToolbook, deletePage, 1}}, - {1918, {wxToolbook, removePage, 1}}, - {1919, {wxToolbook, getCurrentPage, 0}}, - {1920, {wxToolbook, getImageList, 0}}, - {1922, {wxToolbook, getPage, 1}}, - {1923, {wxToolbook, getPageCount, 0}}, - {1924, {wxToolbook, getPageImage, 1}}, - {1925, {wxToolbook, getPageText, 1}}, - {1926, {wxToolbook, getSelection, 0}}, - {1928, {wxToolbook, hitTest, 2}}, - {1929, {wxToolbook, insertPage, 4}}, - {1930, {wxToolbook, setImageList, 1}}, - {1931, {wxToolbook, setPageSize, 1}}, - {1932, {wxToolbook, setPageImage, 2}}, - {1933, {wxToolbook, setPageText, 2}}, - {1934, {wxToolbook, setSelection, 1}}, - {1935, {wxToolbook, changeSelection, 1}}, - {1936, {wxToolbook, 'Destroy', undefined}}, - {1937, {wxListbook, new_0, 0}}, - {1938, {wxListbook, new_3, 3}}, - {1939, {wxListbook, addPage, 3}}, - {1940, {wxListbook, advanceSelection, 1}}, - {1941, {wxListbook, assignImageList, 1}}, - {1942, {wxListbook, create, 3}}, - {1943, {wxListbook, deleteAllPages, 0}}, - {1944, {wxListbook, deletePage, 1}}, - {1945, {wxListbook, removePage, 1}}, - {1946, {wxListbook, getCurrentPage, 0}}, - {1947, {wxListbook, getImageList, 0}}, - {1949, {wxListbook, getPage, 1}}, - {1950, {wxListbook, getPageCount, 0}}, - {1951, {wxListbook, getPageImage, 1}}, - {1952, {wxListbook, getPageText, 1}}, - {1953, {wxListbook, getSelection, 0}}, - {1955, {wxListbook, hitTest, 2}}, - {1956, {wxListbook, insertPage, 4}}, - {1957, {wxListbook, setImageList, 1}}, - {1958, {wxListbook, setPageSize, 1}}, - {1959, {wxListbook, setPageImage, 2}}, - {1960, {wxListbook, setPageText, 2}}, - {1961, {wxListbook, setSelection, 1}}, - {1962, {wxListbook, changeSelection, 1}}, - {1963, {wxListbook, 'Destroy', undefined}}, - {1964, {wxTreebook, new_0, 0}}, - {1965, {wxTreebook, new_3, 3}}, - {1966, {wxTreebook, addPage, 3}}, - {1967, {wxTreebook, advanceSelection, 1}}, - {1968, {wxTreebook, assignImageList, 1}}, - {1969, {wxTreebook, create, 3}}, - {1970, {wxTreebook, deleteAllPages, 0}}, - {1971, {wxTreebook, deletePage, 1}}, - {1972, {wxTreebook, removePage, 1}}, - {1973, {wxTreebook, getCurrentPage, 0}}, - {1974, {wxTreebook, getImageList, 0}}, - {1976, {wxTreebook, getPage, 1}}, - {1977, {wxTreebook, getPageCount, 0}}, - {1978, {wxTreebook, getPageImage, 1}}, - {1979, {wxTreebook, getPageText, 1}}, - {1980, {wxTreebook, getSelection, 0}}, - {1981, {wxTreebook, expandNode, 2}}, - {1982, {wxTreebook, isNodeExpanded, 1}}, - {1984, {wxTreebook, hitTest, 2}}, - {1985, {wxTreebook, insertPage, 4}}, - {1986, {wxTreebook, insertSubPage, 4}}, - {1987, {wxTreebook, setImageList, 1}}, - {1988, {wxTreebook, setPageSize, 1}}, - {1989, {wxTreebook, setPageImage, 2}}, - {1990, {wxTreebook, setPageText, 2}}, - {1991, {wxTreebook, setSelection, 1}}, - {1992, {wxTreebook, changeSelection, 1}}, - {1993, {wxTreebook, 'Destroy', undefined}}, - {1996, {wxTreeCtrl, new_2, 2}}, - {1997, {wxTreeCtrl, new_0, 0}}, - {1999, {wxTreeCtrl, destruct, 0}}, - {2000, {wxTreeCtrl, addRoot, 2}}, - {2001, {wxTreeCtrl, appendItem, 3}}, - {2002, {wxTreeCtrl, assignImageList, 1}}, - {2003, {wxTreeCtrl, assignStateImageList, 1}}, - {2004, {wxTreeCtrl, collapse, 1}}, - {2005, {wxTreeCtrl, collapseAndReset, 1}}, - {2006, {wxTreeCtrl, create, 2}}, - {2007, {wxTreeCtrl, delete, 1}}, - {2008, {wxTreeCtrl, deleteAllItems, 0}}, - {2009, {wxTreeCtrl, deleteChildren, 1}}, - {2010, {wxTreeCtrl, editLabel, 1}}, - {2011, {wxTreeCtrl, ensureVisible, 1}}, - {2012, {wxTreeCtrl, expand, 1}}, - {2013, {wxTreeCtrl, getBoundingRect, 3}}, - {2015, {wxTreeCtrl, getChildrenCount, 2}}, - {2016, {wxTreeCtrl, getCount, 0}}, - {2017, {wxTreeCtrl, getEditControl, 0}}, - {2018, {wxTreeCtrl, getFirstChild, 2}}, - {2019, {wxTreeCtrl, getNextChild, 2}}, - {2020, {wxTreeCtrl, getFirstVisibleItem, 0}}, - {2021, {wxTreeCtrl, getImageList, 0}}, - {2022, {wxTreeCtrl, getIndent, 0}}, - {2023, {wxTreeCtrl, getItemBackgroundColour, 1}}, - {2024, {wxTreeCtrl, getItemData, 1}}, - {2025, {wxTreeCtrl, getItemFont, 1}}, - {2026, {wxTreeCtrl, getItemImage_1, 1}}, - {2027, {wxTreeCtrl, getItemImage_2, 2}}, - {2028, {wxTreeCtrl, getItemText, 1}}, - {2029, {wxTreeCtrl, getItemTextColour, 1}}, - {2030, {wxTreeCtrl, getLastChild, 1}}, - {2031, {wxTreeCtrl, getNextSibling, 1}}, - {2032, {wxTreeCtrl, getNextVisible, 1}}, - {2033, {wxTreeCtrl, getItemParent, 1}}, - {2034, {wxTreeCtrl, getPrevSibling, 1}}, - {2035, {wxTreeCtrl, getPrevVisible, 1}}, - {2036, {wxTreeCtrl, getRootItem, 0}}, - {2037, {wxTreeCtrl, getSelection, 0}}, - {2038, {wxTreeCtrl, getSelections, 1}}, - {2039, {wxTreeCtrl, getStateImageList, 0}}, - {2040, {wxTreeCtrl, hitTest, 1}}, - {2042, {wxTreeCtrl, insertItem, 4}}, - {2043, {wxTreeCtrl, isBold, 1}}, - {2044, {wxTreeCtrl, isExpanded, 1}}, - {2045, {wxTreeCtrl, isSelected, 1}}, - {2046, {wxTreeCtrl, isVisible, 1}}, - {2047, {wxTreeCtrl, itemHasChildren, 1}}, - {2048, {wxTreeCtrl, prependItem, 3}}, - {2049, {wxTreeCtrl, scrollTo, 1}}, - {2050, {wxTreeCtrl, selectItem_1, 1}}, - {2051, {wxTreeCtrl, selectItem_2, 2}}, - {2052, {wxTreeCtrl, setIndent, 1}}, - {2053, {wxTreeCtrl, setImageList, 1}}, - {2054, {wxTreeCtrl, setItemBackgroundColour, 2}}, - {2055, {wxTreeCtrl, setItemBold, 2}}, - {2056, {wxTreeCtrl, setItemData, 2}}, - {2057, {wxTreeCtrl, setItemDropHighlight, 2}}, - {2058, {wxTreeCtrl, setItemFont, 2}}, - {2059, {wxTreeCtrl, setItemHasChildren, 2}}, - {2060, {wxTreeCtrl, setItemImage_2, 2}}, - {2061, {wxTreeCtrl, setItemImage_3, 3}}, - {2062, {wxTreeCtrl, setItemText, 2}}, - {2063, {wxTreeCtrl, setItemTextColour, 2}}, - {2064, {wxTreeCtrl, setStateImageList, 1}}, - {2065, {wxTreeCtrl, setWindowStyle, 1}}, - {2066, {wxTreeCtrl, sortChildren, 1}}, - {2067, {wxTreeCtrl, toggle, 1}}, - {2068, {wxTreeCtrl, toggleItemSelection, 1}}, - {2069, {wxTreeCtrl, unselect, 0}}, - {2070, {wxTreeCtrl, unselectAll, 0}}, - {2071, {wxTreeCtrl, unselectItem, 1}}, - {2072, {wxScrollBar, new_0, 0}}, - {2073, {wxScrollBar, new_3, 3}}, - {2074, {wxScrollBar, destruct, 0}}, - {2075, {wxScrollBar, create, 3}}, - {2076, {wxScrollBar, getRange, 0}}, - {2077, {wxScrollBar, getPageSize, 0}}, - {2078, {wxScrollBar, getThumbPosition, 0}}, - {2079, {wxScrollBar, getThumbSize, 0}}, - {2080, {wxScrollBar, setThumbPosition, 1}}, - {2081, {wxScrollBar, setScrollbar, 5}}, - {2083, {wxSpinButton, new_2, 2}}, - {2084, {wxSpinButton, new_0, 0}}, - {2085, {wxSpinButton, create, 2}}, - {2086, {wxSpinButton, getMax, 0}}, - {2087, {wxSpinButton, getMin, 0}}, - {2088, {wxSpinButton, getValue, 0}}, - {2089, {wxSpinButton, setRange, 2}}, - {2090, {wxSpinButton, setValue, 1}}, - {2091, {wxSpinButton, 'Destroy', undefined}}, - {2092, {wxSpinCtrl, new_0, 0}}, - {2093, {wxSpinCtrl, new_2, 2}}, - {2095, {wxSpinCtrl, create, 2}}, - {2098, {wxSpinCtrl, setValue_1_1, 1}}, - {2099, {wxSpinCtrl, setValue_1_0, 1}}, - {2101, {wxSpinCtrl, getValue, 0}}, - {2103, {wxSpinCtrl, setRange, 2}}, - {2104, {wxSpinCtrl, setSelection, 2}}, - {2106, {wxSpinCtrl, getMin, 0}}, - {2108, {wxSpinCtrl, getMax, 0}}, - {2109, {wxSpinCtrl, 'Destroy', undefined}}, - {2110, {wxStaticText, new_0, 0}}, - {2111, {wxStaticText, new_4, 4}}, - {2112, {wxStaticText, create, 4}}, - {2113, {wxStaticText, getLabel, 0}}, - {2114, {wxStaticText, setLabel, 1}}, - {2115, {wxStaticText, wrap, 1}}, - {2116, {wxStaticText, 'Destroy', undefined}}, - {2117, {wxStaticBitmap, new_0, 0}}, - {2118, {wxStaticBitmap, new_4, 4}}, - {2119, {wxStaticBitmap, create, 4}}, - {2120, {wxStaticBitmap, getBitmap, 0}}, - {2121, {wxStaticBitmap, setBitmap, 1}}, - {2122, {wxStaticBitmap, 'Destroy', undefined}}, - {2123, {wxRadioBox, new, 7}}, - {2125, {wxRadioBox, destruct, 0}}, - {2126, {wxRadioBox, create, 7}}, - {2127, {wxRadioBox, enable_2, 2}}, - {2128, {wxRadioBox, enable_1, 1}}, - {2129, {wxRadioBox, getSelection, 0}}, - {2130, {wxRadioBox, getString, 1}}, - {2131, {wxRadioBox, setSelection, 1}}, - {2132, {wxRadioBox, show_2, 2}}, - {2133, {wxRadioBox, show_1, 1}}, - {2134, {wxRadioBox, getColumnCount, 0}}, - {2135, {wxRadioBox, getItemHelpText, 1}}, - {2136, {wxRadioBox, getItemToolTip, 1}}, - {2138, {wxRadioBox, getItemFromPoint, 1}}, - {2139, {wxRadioBox, getRowCount, 0}}, - {2140, {wxRadioBox, isItemEnabled, 1}}, - {2141, {wxRadioBox, isItemShown, 1}}, - {2142, {wxRadioBox, setItemHelpText, 2}}, - {2143, {wxRadioBox, setItemToolTip, 2}}, - {2144, {wxRadioButton, new_0, 0}}, - {2145, {wxRadioButton, new_4, 4}}, - {2146, {wxRadioButton, create, 4}}, - {2147, {wxRadioButton, getValue, 0}}, - {2148, {wxRadioButton, setValue, 1}}, - {2149, {wxRadioButton, 'Destroy', undefined}}, - {2151, {wxSlider, new_6, 6}}, - {2152, {wxSlider, new_0, 0}}, - {2153, {wxSlider, create, 6}}, - {2154, {wxSlider, getLineSize, 0}}, - {2155, {wxSlider, getMax, 0}}, - {2156, {wxSlider, getMin, 0}}, - {2157, {wxSlider, getPageSize, 0}}, - {2158, {wxSlider, getThumbLength, 0}}, - {2159, {wxSlider, getValue, 0}}, - {2160, {wxSlider, setLineSize, 1}}, - {2161, {wxSlider, setPageSize, 1}}, - {2162, {wxSlider, setRange, 2}}, - {2163, {wxSlider, setThumbLength, 1}}, - {2164, {wxSlider, setValue, 1}}, - {2165, {wxSlider, 'Destroy', undefined}}, - {2167, {wxDialog, new_4, 4}}, - {2168, {wxDialog, new_0, 0}}, - {2170, {wxDialog, destruct, 0}}, - {2171, {wxDialog, create, 4}}, - {2172, {wxDialog, createButtonSizer, 1}}, - {2173, {wxDialog, createStdDialogButtonSizer, 1}}, - {2174, {wxDialog, endModal, 1}}, - {2175, {wxDialog, getAffirmativeId, 0}}, - {2176, {wxDialog, getReturnCode, 0}}, - {2177, {wxDialog, isModal, 0}}, - {2178, {wxDialog, setAffirmativeId, 1}}, - {2179, {wxDialog, setReturnCode, 1}}, - {2180, {wxDialog, show, 1}}, - {2181, {wxDialog, showModal, 0}}, - {2182, {wxColourDialog, new_0, 0}}, - {2183, {wxColourDialog, new_2, 2}}, - {2184, {wxColourDialog, destruct, 0}}, - {2185, {wxColourDialog, create, 2}}, - {2186, {wxColourDialog, getColourData, 0}}, - {2187, {wxColourData, new_0, 0}}, - {2188, {wxColourData, new_1, 1}}, - {2189, {wxColourData, destruct, 0}}, - {2190, {wxColourData, getChooseFull, 0}}, - {2191, {wxColourData, getColour, 0}}, - {2193, {wxColourData, getCustomColour, 1}}, - {2194, {wxColourData, setChooseFull, 1}}, - {2195, {wxColourData, setColour, 1}}, - {2196, {wxColourData, setCustomColour, 2}}, - {2197, {wxPalette, new_0, 0}}, - {2198, {wxPalette, new_4, 4}}, - {2200, {wxPalette, destruct, 0}}, - {2201, {wxPalette, create, 4}}, - {2202, {wxPalette, getColoursCount, 0}}, - {2203, {wxPalette, getPixel, 3}}, - {2204, {wxPalette, getRGB, 4}}, - {2205, {wxPalette, isOk, 0}}, - {2209, {wxDirDialog, new, 2}}, - {2210, {wxDirDialog, destruct, 0}}, - {2211, {wxDirDialog, getPath, 0}}, - {2212, {wxDirDialog, getMessage, 0}}, - {2213, {wxDirDialog, setMessage, 1}}, - {2214, {wxDirDialog, setPath, 1}}, - {2218, {wxFileDialog, new, 2}}, - {2219, {wxFileDialog, destruct, 0}}, - {2220, {wxFileDialog, getDirectory, 0}}, - {2221, {wxFileDialog, getFilename, 0}}, - {2222, {wxFileDialog, getFilenames, 1}}, - {2223, {wxFileDialog, getFilterIndex, 0}}, - {2224, {wxFileDialog, getMessage, 0}}, - {2225, {wxFileDialog, getPath, 0}}, - {2226, {wxFileDialog, getPaths, 1}}, - {2227, {wxFileDialog, getWildcard, 0}}, - {2228, {wxFileDialog, setDirectory, 1}}, - {2229, {wxFileDialog, setFilename, 1}}, - {2230, {wxFileDialog, setFilterIndex, 1}}, - {2231, {wxFileDialog, setMessage, 1}}, - {2232, {wxFileDialog, setPath, 1}}, - {2233, {wxFileDialog, setWildcard, 1}}, - {2234, {wxPickerBase, setInternalMargin, 1}}, - {2235, {wxPickerBase, getInternalMargin, 0}}, - {2236, {wxPickerBase, setTextCtrlProportion, 1}}, - {2237, {wxPickerBase, setPickerCtrlProportion, 1}}, - {2238, {wxPickerBase, getTextCtrlProportion, 0}}, - {2239, {wxPickerBase, getPickerCtrlProportion, 0}}, - {2240, {wxPickerBase, hasTextCtrl, 0}}, - {2241, {wxPickerBase, getTextCtrl, 0}}, - {2242, {wxPickerBase, isTextCtrlGrowable, 0}}, - {2243, {wxPickerBase, setPickerCtrlGrowable, 1}}, - {2244, {wxPickerBase, setTextCtrlGrowable, 1}}, - {2245, {wxPickerBase, isPickerCtrlGrowable, 0}}, - {2246, {wxFilePickerCtrl, new_0, 0}}, - {2247, {wxFilePickerCtrl, new_3, 3}}, - {2248, {wxFilePickerCtrl, create, 3}}, - {2249, {wxFilePickerCtrl, getPath, 0}}, - {2250, {wxFilePickerCtrl, setPath, 1}}, - {2251, {wxFilePickerCtrl, 'Destroy', undefined}}, - {2252, {wxDirPickerCtrl, new_0, 0}}, - {2253, {wxDirPickerCtrl, new_3, 3}}, - {2254, {wxDirPickerCtrl, create, 3}}, - {2255, {wxDirPickerCtrl, getPath, 0}}, - {2256, {wxDirPickerCtrl, setPath, 1}}, - {2257, {wxDirPickerCtrl, 'Destroy', undefined}}, - {2258, {wxColourPickerCtrl, new_0, 0}}, - {2259, {wxColourPickerCtrl, new_3, 3}}, - {2260, {wxColourPickerCtrl, create, 3}}, - {2261, {wxColourPickerCtrl, getColour, 0}}, - {2262, {wxColourPickerCtrl, setColour_1_1, 1}}, - {2263, {wxColourPickerCtrl, setColour_1_0, 1}}, - {2264, {wxColourPickerCtrl, 'Destroy', undefined}}, - {2265, {wxDatePickerCtrl, new_0, 0}}, - {2266, {wxDatePickerCtrl, new_3, 3}}, - {2267, {wxDatePickerCtrl, getRange, 2}}, - {2268, {wxDatePickerCtrl, getValue, 0}}, - {2269, {wxDatePickerCtrl, setRange, 2}}, - {2270, {wxDatePickerCtrl, setValue, 1}}, - {2271, {wxDatePickerCtrl, 'Destroy', undefined}}, - {2272, {wxFontPickerCtrl, new_0, 0}}, - {2273, {wxFontPickerCtrl, new_3, 3}}, - {2274, {wxFontPickerCtrl, create, 3}}, - {2275, {wxFontPickerCtrl, getSelectedFont, 0}}, - {2276, {wxFontPickerCtrl, setSelectedFont, 1}}, - {2277, {wxFontPickerCtrl, getMaxPointSize, 0}}, - {2278, {wxFontPickerCtrl, setMaxPointSize, 1}}, - {2279, {wxFontPickerCtrl, 'Destroy', undefined}}, - {2282, {wxFindReplaceDialog, new_0, 0}}, - {2283, {wxFindReplaceDialog, new_4, 4}}, - {2284, {wxFindReplaceDialog, destruct, 0}}, - {2285, {wxFindReplaceDialog, create, 4}}, - {2286, {wxFindReplaceDialog, getData, 0}}, - {2287, {wxFindReplaceData, new_0, 0}}, - {2288, {wxFindReplaceData, new_1, 1}}, - {2289, {wxFindReplaceData, getFindString, 0}}, - {2290, {wxFindReplaceData, getReplaceString, 0}}, - {2291, {wxFindReplaceData, getFlags, 0}}, - {2292, {wxFindReplaceData, setFlags, 1}}, - {2293, {wxFindReplaceData, setFindString, 1}}, - {2294, {wxFindReplaceData, setReplaceString, 1}}, - {2295, {wxFindReplaceData, 'Destroy', undefined}}, - {2296, {wxMultiChoiceDialog, new_0, 0}}, - {2298, {wxMultiChoiceDialog, new_5, 5}}, - {2299, {wxMultiChoiceDialog, getSelections, 0}}, - {2300, {wxMultiChoiceDialog, setSelections, 1}}, - {2301, {wxMultiChoiceDialog, 'Destroy', undefined}}, - {2302, {wxSingleChoiceDialog, new_0, 0}}, - {2304, {wxSingleChoiceDialog, new_5, 5}}, - {2305, {wxSingleChoiceDialog, getSelection, 0}}, - {2306, {wxSingleChoiceDialog, getStringSelection, 0}}, - {2307, {wxSingleChoiceDialog, setSelection, 1}}, - {2308, {wxSingleChoiceDialog, 'Destroy', undefined}}, - {2309, {wxTextEntryDialog, new, 3}}, - {2310, {wxTextEntryDialog, getValue, 0}}, - {2311, {wxTextEntryDialog, setValue, 1}}, - {2312, {wxTextEntryDialog, 'Destroy', undefined}}, - {2313, {wxPasswordEntryDialog, new, 3}}, - {2314, {wxPasswordEntryDialog, 'Destroy', undefined}}, - {2315, {wxFontData, new_0, 0}}, - {2316, {wxFontData, new_1, 1}}, - {2317, {wxFontData, destruct, 0}}, - {2318, {wxFontData, enableEffects, 1}}, - {2319, {wxFontData, getAllowSymbols, 0}}, - {2320, {wxFontData, getColour, 0}}, - {2321, {wxFontData, getChosenFont, 0}}, - {2322, {wxFontData, getEnableEffects, 0}}, - {2323, {wxFontData, getInitialFont, 0}}, - {2324, {wxFontData, getShowHelp, 0}}, - {2325, {wxFontData, setAllowSymbols, 1}}, - {2326, {wxFontData, setChosenFont, 1}}, - {2327, {wxFontData, setColour, 1}}, - {2328, {wxFontData, setInitialFont, 1}}, - {2329, {wxFontData, setRange, 2}}, - {2330, {wxFontData, setShowHelp, 1}}, - {2334, {wxFontDialog, new_0, 0}}, - {2336, {wxFontDialog, new_2, 2}}, - {2338, {wxFontDialog, create, 2}}, - {2339, {wxFontDialog, getFontData, 0}}, - {2341, {wxFontDialog, 'Destroy', undefined}}, - {2342, {wxProgressDialog, new, 3}}, - {2343, {wxProgressDialog, destruct, 0}}, - {2344, {wxProgressDialog, resume, 0}}, - {2345, {wxProgressDialog, update_2, 2}}, - {2346, {wxProgressDialog, update_0, 0}}, - {2347, {wxMessageDialog, new, 3}}, - {2348, {wxMessageDialog, destruct, 0}}, - {2349, {wxPageSetupDialog, new, 2}}, - {2350, {wxPageSetupDialog, destruct, 0}}, - {2351, {wxPageSetupDialog, getPageSetupData, 0}}, - {2352, {wxPageSetupDialog, showModal, 0}}, - {2353, {wxPageSetupDialogData, new_0, 0}}, - {2354, {wxPageSetupDialogData, new_1_0, 1}}, - {2355, {wxPageSetupDialogData, new_1_1, 1}}, - {2356, {wxPageSetupDialogData, destruct, 0}}, - {2357, {wxPageSetupDialogData, enableHelp, 1}}, - {2358, {wxPageSetupDialogData, enableMargins, 1}}, - {2359, {wxPageSetupDialogData, enableOrientation, 1}}, - {2360, {wxPageSetupDialogData, enablePaper, 1}}, - {2361, {wxPageSetupDialogData, enablePrinter, 1}}, - {2362, {wxPageSetupDialogData, getDefaultMinMargins, 0}}, - {2363, {wxPageSetupDialogData, getEnableMargins, 0}}, - {2364, {wxPageSetupDialogData, getEnableOrientation, 0}}, - {2365, {wxPageSetupDialogData, getEnablePaper, 0}}, - {2366, {wxPageSetupDialogData, getEnablePrinter, 0}}, - {2367, {wxPageSetupDialogData, getEnableHelp, 0}}, - {2368, {wxPageSetupDialogData, getDefaultInfo, 0}}, - {2369, {wxPageSetupDialogData, getMarginTopLeft, 0}}, - {2370, {wxPageSetupDialogData, getMarginBottomRight, 0}}, - {2371, {wxPageSetupDialogData, getMinMarginTopLeft, 0}}, - {2372, {wxPageSetupDialogData, getMinMarginBottomRight, 0}}, - {2373, {wxPageSetupDialogData, getPaperId, 0}}, - {2374, {wxPageSetupDialogData, getPaperSize, 0}}, - {2376, {wxPageSetupDialogData, getPrintData, 0}}, - {2377, {wxPageSetupDialogData, isOk, 0}}, - {2378, {wxPageSetupDialogData, setDefaultInfo, 1}}, - {2379, {wxPageSetupDialogData, setDefaultMinMargins, 1}}, - {2380, {wxPageSetupDialogData, setMarginTopLeft, 1}}, - {2381, {wxPageSetupDialogData, setMarginBottomRight, 1}}, - {2382, {wxPageSetupDialogData, setMinMarginTopLeft, 1}}, - {2383, {wxPageSetupDialogData, setMinMarginBottomRight, 1}}, - {2384, {wxPageSetupDialogData, setPaperId, 1}}, - {2385, {wxPageSetupDialogData, setPaperSize_1_1, 1}}, - {2386, {wxPageSetupDialogData, setPaperSize_1_0, 1}}, - {2387, {wxPageSetupDialogData, setPrintData, 1}}, - {2388, {wxPrintDialog, new_2_0, 2}}, - {2389, {wxPrintDialog, new_2_1, 2}}, - {2390, {wxPrintDialog, destruct, 0}}, - {2391, {wxPrintDialog, getPrintDialogData, 0}}, - {2392, {wxPrintDialog, getPrintDC, 0}}, - {2393, {wxPrintDialogData, new_0, 0}}, - {2394, {wxPrintDialogData, new_1_1, 1}}, - {2395, {wxPrintDialogData, new_1_0, 1}}, - {2396, {wxPrintDialogData, destruct, 0}}, - {2397, {wxPrintDialogData, enableHelp, 1}}, - {2398, {wxPrintDialogData, enablePageNumbers, 1}}, - {2399, {wxPrintDialogData, enablePrintToFile, 1}}, - {2400, {wxPrintDialogData, enableSelection, 1}}, - {2401, {wxPrintDialogData, getAllPages, 0}}, - {2402, {wxPrintDialogData, getCollate, 0}}, - {2403, {wxPrintDialogData, getFromPage, 0}}, - {2404, {wxPrintDialogData, getMaxPage, 0}}, - {2405, {wxPrintDialogData, getMinPage, 0}}, - {2406, {wxPrintDialogData, getNoCopies, 0}}, - {2407, {wxPrintDialogData, getPrintData, 0}}, - {2408, {wxPrintDialogData, getPrintToFile, 0}}, - {2409, {wxPrintDialogData, getSelection, 0}}, - {2410, {wxPrintDialogData, getToPage, 0}}, - {2411, {wxPrintDialogData, isOk, 0}}, - {2412, {wxPrintDialogData, setCollate, 1}}, - {2413, {wxPrintDialogData, setFromPage, 1}}, - {2414, {wxPrintDialogData, setMaxPage, 1}}, - {2415, {wxPrintDialogData, setMinPage, 1}}, - {2416, {wxPrintDialogData, setNoCopies, 1}}, - {2417, {wxPrintDialogData, setPrintData, 1}}, - {2418, {wxPrintDialogData, setPrintToFile, 1}}, - {2419, {wxPrintDialogData, setSelection, 1}}, - {2420, {wxPrintDialogData, setToPage, 1}}, - {2421, {wxPrintData, new_0, 0}}, - {2422, {wxPrintData, new_1, 1}}, - {2423, {wxPrintData, destruct, 0}}, - {2424, {wxPrintData, getCollate, 0}}, - {2425, {wxPrintData, getBin, 0}}, - {2426, {wxPrintData, getColour, 0}}, - {2427, {wxPrintData, getDuplex, 0}}, - {2428, {wxPrintData, getNoCopies, 0}}, - {2429, {wxPrintData, getOrientation, 0}}, - {2430, {wxPrintData, getPaperId, 0}}, - {2431, {wxPrintData, getPrinterName, 0}}, - {2432, {wxPrintData, getQuality, 0}}, - {2433, {wxPrintData, isOk, 0}}, - {2434, {wxPrintData, setBin, 1}}, - {2435, {wxPrintData, setCollate, 1}}, - {2436, {wxPrintData, setColour, 1}}, - {2437, {wxPrintData, setDuplex, 1}}, - {2438, {wxPrintData, setNoCopies, 1}}, - {2439, {wxPrintData, setOrientation, 1}}, - {2440, {wxPrintData, setPaperId, 1}}, - {2441, {wxPrintData, setPrinterName, 1}}, - {2442, {wxPrintData, setQuality, 1}}, - {2445, {wxPrintPreview, new_2, 2}}, - {2446, {wxPrintPreview, new_3, 3}}, - {2448, {wxPrintPreview, destruct, 0}}, - {2449, {wxPrintPreview, getCanvas, 0}}, - {2450, {wxPrintPreview, getCurrentPage, 0}}, - {2451, {wxPrintPreview, getFrame, 0}}, - {2452, {wxPrintPreview, getMaxPage, 0}}, - {2453, {wxPrintPreview, getMinPage, 0}}, - {2454, {wxPrintPreview, getPrintout, 0}}, - {2455, {wxPrintPreview, getPrintoutForPrinting, 0}}, - {2456, {wxPrintPreview, isOk, 0}}, - {2457, {wxPrintPreview, paintPage, 2}}, - {2458, {wxPrintPreview, print, 1}}, - {2459, {wxPrintPreview, renderPage, 1}}, - {2460, {wxPrintPreview, setCanvas, 1}}, - {2461, {wxPrintPreview, setCurrentPage, 1}}, - {2462, {wxPrintPreview, setFrame, 1}}, - {2463, {wxPrintPreview, setPrintout, 1}}, - {2464, {wxPrintPreview, setZoom, 1}}, - {2465, {wxPreviewFrame, new, 3}}, - {2466, {wxPreviewFrame, destruct, 0}}, - {2467, {wxPreviewFrame, createControlBar, 0}}, - {2468, {wxPreviewFrame, createCanvas, 0}}, - {2469, {wxPreviewFrame, initialize, 0}}, - {2470, {wxPreviewFrame, onCloseWindow, 1}}, - {2471, {wxPreviewControlBar, new, 4}}, - {2472, {wxPreviewControlBar, destruct, 0}}, - {2473, {wxPreviewControlBar, createButtons, 0}}, - {2474, {wxPreviewControlBar, getPrintPreview, 0}}, - {2475, {wxPreviewControlBar, getZoomControl, 0}}, - {2476, {wxPreviewControlBar, setZoomControl, 1}}, - {2478, {wxPrinter, new, 1}}, - {2479, {wxPrinter, createAbortWindow, 2}}, - {2480, {wxPrinter, getAbort, 0}}, - {2481, {wxPrinter, getLastError, 0}}, - {2482, {wxPrinter, getPrintDialogData, 0}}, - {2483, {wxPrinter, print, 3}}, - {2484, {wxPrinter, printDialog, 1}}, - {2485, {wxPrinter, reportError, 3}}, - {2486, {wxPrinter, setup, 1}}, - {2487, {wxPrinter, 'Destroy', undefined}}, - {2488, {wxXmlResource, new_1, 1}}, - {2489, {wxXmlResource, new_2, 2}}, - {2490, {wxXmlResource, destruct, 0}}, - {2491, {wxXmlResource, attachUnknownControl, 3}}, - {2492, {wxXmlResource, clearHandlers, 0}}, - {2493, {wxXmlResource, compareVersion, 4}}, - {2494, {wxXmlResource, get, 0}}, - {2495, {wxXmlResource, getFlags, 0}}, - {2496, {wxXmlResource, getVersion, 0}}, - {2497, {wxXmlResource, getXRCID, 2}}, - {2498, {wxXmlResource, initAllHandlers, 0}}, - {2499, {wxXmlResource, load, 1}}, - {2500, {wxXmlResource, loadBitmap, 1}}, - {2501, {wxXmlResource, loadDialog_2, 2}}, - {2502, {wxXmlResource, loadDialog_3, 3}}, - {2503, {wxXmlResource, loadFrame_2, 2}}, - {2504, {wxXmlResource, loadFrame_3, 3}}, - {2505, {wxXmlResource, loadIcon, 1}}, - {2506, {wxXmlResource, loadMenu, 1}}, - {2507, {wxXmlResource, loadMenuBar_2, 2}}, - {2508, {wxXmlResource, loadMenuBar_1, 1}}, - {2509, {wxXmlResource, loadPanel_2, 2}}, - {2510, {wxXmlResource, loadPanel_3, 3}}, - {2511, {wxXmlResource, loadToolBar, 2}}, - {2512, {wxXmlResource, set, 1}}, - {2513, {wxXmlResource, setFlags, 1}}, - {2514, {wxXmlResource, unload, 1}}, - {2515, {wxXmlResource, xrcctrl, 3}}, - {2516, {wxHtmlEasyPrinting, new, 1}}, - {2517, {wxHtmlEasyPrinting, destruct, 0}}, - {2518, {wxHtmlEasyPrinting, getPrintData, 0}}, - {2519, {wxHtmlEasyPrinting, getPageSetupData, 0}}, - {2520, {wxHtmlEasyPrinting, previewFile, 1}}, - {2521, {wxHtmlEasyPrinting, previewText, 2}}, - {2522, {wxHtmlEasyPrinting, printFile, 1}}, - {2523, {wxHtmlEasyPrinting, printText, 2}}, - {2524, {wxHtmlEasyPrinting, pageSetup, 0}}, - {2525, {wxHtmlEasyPrinting, setFonts, 3}}, - {2526, {wxHtmlEasyPrinting, setHeader, 2}}, - {2527, {wxHtmlEasyPrinting, setFooter, 2}}, - {2529, {wxGLCanvas, new_2, 2}}, - {2530, {wxGLCanvas, new_3_1, 3}}, - {2531, {wxGLCanvas, new_3_0, 3}}, - {2532, {wxGLCanvas, getContext, 0}}, - {2534, {wxGLCanvas, setCurrent, 0}}, - {2535, {wxGLCanvas, swapBuffers, 0}}, - {2536, {wxGLCanvas, 'Destroy', undefined}}, - {2537, {wxAuiManager, new, 1}}, - {2538, {wxAuiManager, destruct, 0}}, - {2539, {wxAuiManager, addPane_2_1, 2}}, - {2540, {wxAuiManager, addPane_3, 3}}, - {2541, {wxAuiManager, addPane_2_0, 2}}, - {2542, {wxAuiManager, detachPane, 1}}, - {2543, {wxAuiManager, getAllPanes, 0}}, - {2544, {wxAuiManager, getArtProvider, 0}}, - {2545, {wxAuiManager, getDockSizeConstraint, 2}}, - {2546, {wxAuiManager, getFlags, 0}}, - {2547, {wxAuiManager, getManagedWindow, 0}}, - {2548, {wxAuiManager, getManager, 1}}, - {2549, {wxAuiManager, getPane_1_1, 1}}, - {2550, {wxAuiManager, getPane_1_0, 1}}, - {2551, {wxAuiManager, hideHint, 0}}, - {2552, {wxAuiManager, insertPane, 3}}, - {2553, {wxAuiManager, loadPaneInfo, 2}}, - {2554, {wxAuiManager, loadPerspective, 2}}, - {2555, {wxAuiManager, savePaneInfo, 1}}, - {2556, {wxAuiManager, savePerspective, 0}}, - {2557, {wxAuiManager, setArtProvider, 1}}, - {2558, {wxAuiManager, setDockSizeConstraint, 2}}, - {2559, {wxAuiManager, setFlags, 1}}, - {2560, {wxAuiManager, setManagedWindow, 1}}, - {2561, {wxAuiManager, showHint, 1}}, - {2562, {wxAuiManager, unInit, 0}}, - {2563, {wxAuiManager, update, 0}}, - {2564, {wxAuiPaneInfo, new_0, 0}}, - {2565, {wxAuiPaneInfo, new_1, 1}}, - {2566, {wxAuiPaneInfo, destruct, 0}}, - {2567, {wxAuiPaneInfo, bestSize_1, 1}}, - {2568, {wxAuiPaneInfo, bestSize_2, 2}}, - {2569, {wxAuiPaneInfo, bottom, 0}}, - {2570, {wxAuiPaneInfo, bottomDockable, 1}}, - {2571, {wxAuiPaneInfo, caption, 1}}, - {2572, {wxAuiPaneInfo, captionVisible, 1}}, - {2573, {wxAuiPaneInfo, centre, 0}}, - {2574, {wxAuiPaneInfo, centrePane, 0}}, - {2575, {wxAuiPaneInfo, closeButton, 1}}, - {2576, {wxAuiPaneInfo, defaultPane, 0}}, - {2577, {wxAuiPaneInfo, destroyOnClose, 1}}, - {2578, {wxAuiPaneInfo, direction, 1}}, - {2579, {wxAuiPaneInfo, dock, 0}}, - {2580, {wxAuiPaneInfo, dockable, 1}}, - {2581, {wxAuiPaneInfo, fixed, 0}}, - {2582, {wxAuiPaneInfo, float, 0}}, - {2583, {wxAuiPaneInfo, floatable, 1}}, - {2584, {wxAuiPaneInfo, floatingPosition_1, 1}}, - {2585, {wxAuiPaneInfo, floatingPosition_2, 2}}, - {2586, {wxAuiPaneInfo, floatingSize_1, 1}}, - {2587, {wxAuiPaneInfo, floatingSize_2, 2}}, - {2588, {wxAuiPaneInfo, gripper, 1}}, - {2589, {wxAuiPaneInfo, gripperTop, 1}}, - {2590, {wxAuiPaneInfo, hasBorder, 0}}, - {2591, {wxAuiPaneInfo, hasCaption, 0}}, - {2592, {wxAuiPaneInfo, hasCloseButton, 0}}, - {2593, {wxAuiPaneInfo, hasFlag, 1}}, - {2594, {wxAuiPaneInfo, hasGripper, 0}}, - {2595, {wxAuiPaneInfo, hasGripperTop, 0}}, - {2596, {wxAuiPaneInfo, hasMaximizeButton, 0}}, - {2597, {wxAuiPaneInfo, hasMinimizeButton, 0}}, - {2598, {wxAuiPaneInfo, hasPinButton, 0}}, - {2599, {wxAuiPaneInfo, hide, 0}}, - {2600, {wxAuiPaneInfo, isBottomDockable, 0}}, - {2601, {wxAuiPaneInfo, isDocked, 0}}, - {2602, {wxAuiPaneInfo, isFixed, 0}}, - {2603, {wxAuiPaneInfo, isFloatable, 0}}, - {2604, {wxAuiPaneInfo, isFloating, 0}}, - {2605, {wxAuiPaneInfo, isLeftDockable, 0}}, - {2606, {wxAuiPaneInfo, isMovable, 0}}, - {2607, {wxAuiPaneInfo, isOk, 0}}, - {2608, {wxAuiPaneInfo, isResizable, 0}}, - {2609, {wxAuiPaneInfo, isRightDockable, 0}}, - {2610, {wxAuiPaneInfo, isShown, 0}}, - {2611, {wxAuiPaneInfo, isToolbar, 0}}, - {2612, {wxAuiPaneInfo, isTopDockable, 0}}, - {2613, {wxAuiPaneInfo, layer, 1}}, - {2614, {wxAuiPaneInfo, left, 0}}, - {2615, {wxAuiPaneInfo, leftDockable, 1}}, - {2616, {wxAuiPaneInfo, maxSize_1, 1}}, - {2617, {wxAuiPaneInfo, maxSize_2, 2}}, - {2618, {wxAuiPaneInfo, maximizeButton, 1}}, - {2619, {wxAuiPaneInfo, minSize_1, 1}}, - {2620, {wxAuiPaneInfo, minSize_2, 2}}, - {2621, {wxAuiPaneInfo, minimizeButton, 1}}, - {2622, {wxAuiPaneInfo, movable, 1}}, - {2623, {wxAuiPaneInfo, name, 1}}, - {2624, {wxAuiPaneInfo, paneBorder, 1}}, - {2625, {wxAuiPaneInfo, pinButton, 1}}, - {2626, {wxAuiPaneInfo, position, 1}}, - {2627, {wxAuiPaneInfo, resizable, 1}}, - {2628, {wxAuiPaneInfo, right, 0}}, - {2629, {wxAuiPaneInfo, rightDockable, 1}}, - {2630, {wxAuiPaneInfo, row, 1}}, - {2631, {wxAuiPaneInfo, safeSet, 1}}, - {2632, {wxAuiPaneInfo, setFlag, 2}}, - {2633, {wxAuiPaneInfo, show, 1}}, - {2634, {wxAuiPaneInfo, toolbarPane, 0}}, - {2635, {wxAuiPaneInfo, top, 0}}, - {2636, {wxAuiPaneInfo, topDockable, 1}}, - {2637, {wxAuiPaneInfo, window, 1}}, - {2638, {wxAuiNotebook, new_0, 0}}, - {2639, {wxAuiNotebook, new_2, 2}}, - {2640, {wxAuiNotebook, addPage, 3}}, - {2641, {wxAuiNotebook, create, 2}}, - {2642, {wxAuiNotebook, deletePage, 1}}, - {2643, {wxAuiNotebook, getArtProvider, 0}}, - {2644, {wxAuiNotebook, getPage, 1}}, - {2645, {wxAuiNotebook, getPageBitmap, 1}}, - {2646, {wxAuiNotebook, getPageCount, 0}}, - {2647, {wxAuiNotebook, getPageIndex, 1}}, - {2648, {wxAuiNotebook, getPageText, 1}}, - {2649, {wxAuiNotebook, getSelection, 0}}, - {2650, {wxAuiNotebook, insertPage, 4}}, - {2651, {wxAuiNotebook, removePage, 1}}, - {2652, {wxAuiNotebook, setArtProvider, 1}}, - {2653, {wxAuiNotebook, setFont, 1}}, - {2654, {wxAuiNotebook, setPageBitmap, 2}}, - {2655, {wxAuiNotebook, setPageText, 2}}, - {2656, {wxAuiNotebook, setSelection, 1}}, - {2657, {wxAuiNotebook, setTabCtrlHeight, 1}}, - {2658, {wxAuiNotebook, setUniformBitmapSize, 1}}, - {2659, {wxAuiNotebook, 'Destroy', undefined}}, - {2660, {wxMDIParentFrame, new_0, 0}}, - {2661, {wxMDIParentFrame, new_4, 4}}, - {2662, {wxMDIParentFrame, destruct, 0}}, - {2663, {wxMDIParentFrame, activateNext, 0}}, - {2664, {wxMDIParentFrame, activatePrevious, 0}}, - {2665, {wxMDIParentFrame, arrangeIcons, 0}}, - {2666, {wxMDIParentFrame, cascade, 0}}, - {2667, {wxMDIParentFrame, create, 4}}, - {2668, {wxMDIParentFrame, getActiveChild, 0}}, - {2669, {wxMDIParentFrame, getClientWindow, 0}}, - {2670, {wxMDIParentFrame, tile, 1}}, - {2671, {wxMDIChildFrame, new_0, 0}}, - {2672, {wxMDIChildFrame, new_4, 4}}, - {2673, {wxMDIChildFrame, destruct, 0}}, - {2674, {wxMDIChildFrame, activate, 0}}, - {2675, {wxMDIChildFrame, create, 4}}, - {2676, {wxMDIChildFrame, maximize, 1}}, - {2677, {wxMDIChildFrame, restore, 0}}, - {2678, {wxMDIClientWindow, new_0, 0}}, - {2679, {wxMDIClientWindow, new_2, 2}}, - {2680, {wxMDIClientWindow, destruct, 0}}, - {2681, {wxMDIClientWindow, createClient, 2}}, - {2682, {wxLayoutAlgorithm, new, 0}}, - {2683, {wxLayoutAlgorithm, layoutFrame, 2}}, - {2684, {wxLayoutAlgorithm, layoutMDIFrame, 2}}, - {2685, {wxLayoutAlgorithm, layoutWindow, 2}}, - {2686, {wxLayoutAlgorithm, 'Destroy', undefined}}, - {2687, {wxEvent, getId, 0}}, - {2688, {wxEvent, getSkipped, 0}}, - {2689, {wxEvent, getTimestamp, 0}}, - {2690, {wxEvent, isCommandEvent, 0}}, - {2691, {wxEvent, resumePropagation, 1}}, - {2692, {wxEvent, shouldPropagate, 0}}, - {2693, {wxEvent, skip, 1}}, - {2694, {wxEvent, stopPropagation, 0}}, - {2695, {wxCommandEvent, getClientData, 0}}, - {2696, {wxCommandEvent, getExtraLong, 0}}, - {2697, {wxCommandEvent, getInt, 0}}, - {2698, {wxCommandEvent, getSelection, 0}}, - {2699, {wxCommandEvent, getString, 0}}, - {2700, {wxCommandEvent, isChecked, 0}}, - {2701, {wxCommandEvent, isSelection, 0}}, - {2702, {wxCommandEvent, setInt, 1}}, - {2703, {wxCommandEvent, setString, 1}}, - {2704, {wxScrollEvent, getOrientation, 0}}, - {2705, {wxScrollEvent, getPosition, 0}}, - {2706, {wxScrollWinEvent, getOrientation, 0}}, - {2707, {wxScrollWinEvent, getPosition, 0}}, - {2708, {wxMouseEvent, altDown, 0}}, - {2709, {wxMouseEvent, button, 1}}, - {2710, {wxMouseEvent, buttonDClick, 1}}, - {2711, {wxMouseEvent, buttonDown, 1}}, - {2712, {wxMouseEvent, buttonUp, 1}}, - {2713, {wxMouseEvent, cmdDown, 0}}, - {2714, {wxMouseEvent, controlDown, 0}}, - {2715, {wxMouseEvent, dragging, 0}}, - {2716, {wxMouseEvent, entering, 0}}, - {2717, {wxMouseEvent, getButton, 0}}, - {2720, {wxMouseEvent, getPosition, 0}}, - {2721, {wxMouseEvent, getLogicalPosition, 1}}, - {2722, {wxMouseEvent, getLinesPerAction, 0}}, - {2723, {wxMouseEvent, getWheelRotation, 0}}, - {2724, {wxMouseEvent, getWheelDelta, 0}}, - {2725, {wxMouseEvent, getX, 0}}, - {2726, {wxMouseEvent, getY, 0}}, - {2727, {wxMouseEvent, isButton, 0}}, - {2728, {wxMouseEvent, isPageScroll, 0}}, - {2729, {wxMouseEvent, leaving, 0}}, - {2730, {wxMouseEvent, leftDClick, 0}}, - {2731, {wxMouseEvent, leftDown, 0}}, - {2732, {wxMouseEvent, leftIsDown, 0}}, - {2733, {wxMouseEvent, leftUp, 0}}, - {2734, {wxMouseEvent, metaDown, 0}}, - {2735, {wxMouseEvent, middleDClick, 0}}, - {2736, {wxMouseEvent, middleDown, 0}}, - {2737, {wxMouseEvent, middleIsDown, 0}}, - {2738, {wxMouseEvent, middleUp, 0}}, - {2739, {wxMouseEvent, moving, 0}}, - {2740, {wxMouseEvent, rightDClick, 0}}, - {2741, {wxMouseEvent, rightDown, 0}}, - {2742, {wxMouseEvent, rightIsDown, 0}}, - {2743, {wxMouseEvent, rightUp, 0}}, - {2744, {wxMouseEvent, shiftDown, 0}}, - {2745, {wxSetCursorEvent, getCursor, 0}}, - {2746, {wxSetCursorEvent, getX, 0}}, - {2747, {wxSetCursorEvent, getY, 0}}, - {2748, {wxSetCursorEvent, hasCursor, 0}}, - {2749, {wxSetCursorEvent, setCursor, 1}}, - {2750, {wxKeyEvent, altDown, 0}}, - {2751, {wxKeyEvent, cmdDown, 0}}, - {2752, {wxKeyEvent, controlDown, 0}}, - {2753, {wxKeyEvent, getKeyCode, 0}}, - {2754, {wxKeyEvent, getModifiers, 0}}, - {2757, {wxKeyEvent, getPosition, 0}}, - {2758, {wxKeyEvent, getRawKeyCode, 0}}, - {2759, {wxKeyEvent, getRawKeyFlags, 0}}, - {2760, {wxKeyEvent, getUnicodeKey, 0}}, - {2761, {wxKeyEvent, getX, 0}}, - {2762, {wxKeyEvent, getY, 0}}, - {2763, {wxKeyEvent, hasModifiers, 0}}, - {2764, {wxKeyEvent, metaDown, 0}}, - {2765, {wxKeyEvent, shiftDown, 0}}, - {2766, {wxSizeEvent, getSize, 0}}, - {2767, {wxMoveEvent, getPosition, 0}}, - {2768, {wxEraseEvent, getDC, 0}}, - {2769, {wxFocusEvent, getWindow, 0}}, - {2770, {wxChildFocusEvent, getWindow, 0}}, - {2771, {wxMenuEvent, getMenu, 0}}, - {2772, {wxMenuEvent, getMenuId, 0}}, - {2773, {wxMenuEvent, isPopup, 0}}, - {2774, {wxCloseEvent, canVeto, 0}}, - {2775, {wxCloseEvent, getLoggingOff, 0}}, - {2776, {wxCloseEvent, setCanVeto, 1}}, - {2777, {wxCloseEvent, setLoggingOff, 1}}, - {2778, {wxCloseEvent, veto, 1}}, - {2779, {wxShowEvent, setShow, 1}}, - {2780, {wxShowEvent, getShow, 0}}, - {2781, {wxIconizeEvent, iconized, 0}}, - {2782, {wxJoystickEvent, buttonDown, 1}}, - {2783, {wxJoystickEvent, buttonIsDown, 1}}, - {2784, {wxJoystickEvent, buttonUp, 1}}, - {2785, {wxJoystickEvent, getButtonChange, 0}}, - {2786, {wxJoystickEvent, getButtonState, 0}}, - {2787, {wxJoystickEvent, getJoystick, 0}}, - {2788, {wxJoystickEvent, getPosition, 0}}, - {2789, {wxJoystickEvent, getZPosition, 0}}, - {2790, {wxJoystickEvent, isButton, 0}}, - {2791, {wxJoystickEvent, isMove, 0}}, - {2792, {wxJoystickEvent, isZMove, 0}}, - {2793, {wxUpdateUIEvent, canUpdate, 1}}, - {2794, {wxUpdateUIEvent, check, 1}}, - {2795, {wxUpdateUIEvent, enable, 1}}, - {2796, {wxUpdateUIEvent, show, 1}}, - {2797, {wxUpdateUIEvent, getChecked, 0}}, - {2798, {wxUpdateUIEvent, getEnabled, 0}}, - {2799, {wxUpdateUIEvent, getShown, 0}}, - {2800, {wxUpdateUIEvent, getSetChecked, 0}}, - {2801, {wxUpdateUIEvent, getSetEnabled, 0}}, - {2802, {wxUpdateUIEvent, getSetShown, 0}}, - {2803, {wxUpdateUIEvent, getSetText, 0}}, - {2804, {wxUpdateUIEvent, getText, 0}}, - {2805, {wxUpdateUIEvent, getMode, 0}}, - {2806, {wxUpdateUIEvent, getUpdateInterval, 0}}, - {2807, {wxUpdateUIEvent, resetUpdateTime, 0}}, - {2808, {wxUpdateUIEvent, setMode, 1}}, - {2809, {wxUpdateUIEvent, setText, 1}}, - {2810, {wxUpdateUIEvent, setUpdateInterval, 1}}, - {2811, {wxMouseCaptureChangedEvent, getCapturedWindow, 0}}, - {2812, {wxPaletteChangedEvent, setChangedWindow, 1}}, - {2813, {wxPaletteChangedEvent, getChangedWindow, 0}}, - {2814, {wxQueryNewPaletteEvent, setPaletteRealized, 1}}, - {2815, {wxQueryNewPaletteEvent, getPaletteRealized, 0}}, - {2816, {wxNavigationKeyEvent, getDirection, 0}}, - {2817, {wxNavigationKeyEvent, setDirection, 1}}, - {2818, {wxNavigationKeyEvent, isWindowChange, 0}}, - {2819, {wxNavigationKeyEvent, setWindowChange, 1}}, - {2820, {wxNavigationKeyEvent, isFromTab, 0}}, - {2821, {wxNavigationKeyEvent, setFromTab, 1}}, - {2822, {wxNavigationKeyEvent, getCurrentFocus, 0}}, - {2823, {wxNavigationKeyEvent, setCurrentFocus, 1}}, - {2824, {wxHelpEvent, getOrigin, 0}}, - {2825, {wxHelpEvent, getPosition, 0}}, - {2826, {wxHelpEvent, setOrigin, 1}}, - {2827, {wxHelpEvent, setPosition, 1}}, - {2828, {wxContextMenuEvent, getPosition, 0}}, - {2829, {wxContextMenuEvent, setPosition, 1}}, - {2830, {wxIdleEvent, canSend, 1}}, - {2831, {wxIdleEvent, getMode, 0}}, - {2832, {wxIdleEvent, requestMore, 1}}, - {2833, {wxIdleEvent, moreRequested, 0}}, - {2834, {wxIdleEvent, setMode, 1}}, - {2835, {wxGridEvent, altDown, 0}}, - {2836, {wxGridEvent, controlDown, 0}}, - {2837, {wxGridEvent, getCol, 0}}, - {2838, {wxGridEvent, getPosition, 0}}, - {2839, {wxGridEvent, getRow, 0}}, - {2840, {wxGridEvent, metaDown, 0}}, - {2841, {wxGridEvent, selecting, 0}}, - {2842, {wxGridEvent, shiftDown, 0}}, - {2843, {wxNotifyEvent, allow, 0}}, - {2844, {wxNotifyEvent, isAllowed, 0}}, - {2845, {wxNotifyEvent, veto, 0}}, - {2846, {wxSashEvent, getEdge, 0}}, - {2847, {wxSashEvent, getDragRect, 0}}, - {2848, {wxSashEvent, getDragStatus, 0}}, - {2849, {wxListEvent, getCacheFrom, 0}}, - {2850, {wxListEvent, getCacheTo, 0}}, - {2851, {wxListEvent, getKeyCode, 0}}, - {2852, {wxListEvent, getIndex, 0}}, - {2853, {wxListEvent, getColumn, 0}}, - {2854, {wxListEvent, getPoint, 0}}, - {2855, {wxListEvent, getLabel, 0}}, - {2856, {wxListEvent, getText, 0}}, - {2857, {wxListEvent, getImage, 0}}, - {2858, {wxListEvent, getData, 0}}, - {2859, {wxListEvent, getMask, 0}}, - {2860, {wxListEvent, getItem, 0}}, - {2861, {wxListEvent, isEditCancelled, 0}}, - {2862, {wxDateEvent, getDate, 0}}, - {2863, {wxCalendarEvent, getWeekDay, 0}}, - {2864, {wxFileDirPickerEvent, getPath, 0}}, - {2865, {wxColourPickerEvent, getColour, 0}}, - {2866, {wxFontPickerEvent, getFont, 0}}, - {2867, {wxStyledTextEvent, getPosition, 0}}, - {2868, {wxStyledTextEvent, getKey, 0}}, - {2869, {wxStyledTextEvent, getModifiers, 0}}, - {2870, {wxStyledTextEvent, getModificationType, 0}}, - {2871, {wxStyledTextEvent, getText, 0}}, - {2872, {wxStyledTextEvent, getLength, 0}}, - {2873, {wxStyledTextEvent, getLinesAdded, 0}}, - {2874, {wxStyledTextEvent, getLine, 0}}, - {2875, {wxStyledTextEvent, getFoldLevelNow, 0}}, - {2876, {wxStyledTextEvent, getFoldLevelPrev, 0}}, - {2877, {wxStyledTextEvent, getMargin, 0}}, - {2878, {wxStyledTextEvent, getMessage, 0}}, - {2879, {wxStyledTextEvent, getWParam, 0}}, - {2880, {wxStyledTextEvent, getLParam, 0}}, - {2881, {wxStyledTextEvent, getListType, 0}}, - {2882, {wxStyledTextEvent, getX, 0}}, - {2883, {wxStyledTextEvent, getY, 0}}, - {2884, {wxStyledTextEvent, getDragText, 0}}, - {2885, {wxStyledTextEvent, getDragAllowMove, 0}}, - {2886, {wxStyledTextEvent, getDragResult, 0}}, - {2887, {wxStyledTextEvent, getShift, 0}}, - {2888, {wxStyledTextEvent, getControl, 0}}, - {2889, {wxStyledTextEvent, getAlt, 0}}, - {2890, {utils, getKeyState, 1}}, - {2891, {utils, getMousePosition, 2}}, - {2892, {utils, getMouseState, 0}}, - {2893, {utils, setDetectableAutoRepeat, 1}}, - {2894, {utils, bell, 0}}, - {2895, {utils, findMenuItemId, 3}}, - {2896, {utils, genericFindWindowAtPoint, 1}}, - {2897, {utils, findWindowAtPoint, 1}}, - {2898, {utils, beginBusyCursor, 1}}, - {2899, {utils, endBusyCursor, 0}}, - {2900, {utils, isBusy, 0}}, - {2901, {utils, shutdown, 1}}, - {2902, {utils, shell, 1}}, - {2903, {utils, launchDefaultBrowser, 2}}, - {2904, {utils, getEmailAddress, 0}}, - {2905, {utils, getUserId, 0}}, - {2906, {utils, getHomeDir, 0}}, - {2907, {utils, newId, 0}}, - {2908, {utils, registerId, 1}}, - {2909, {utils, getCurrentId, 0}}, - {2910, {utils, getOsDescription, 0}}, - {2911, {utils, isPlatformLittleEndian, 0}}, - {2912, {utils, isPlatform64Bit, 0}}, - {2913, {wxPrintout, new, 1}}, - {2914, {wxPrintout, destruct, 0}}, - {2915, {wxPrintout, getDC, 0}}, - {2916, {wxPrintout, getPageSizeMM, 2}}, - {2917, {wxPrintout, getPageSizePixels, 2}}, - {2918, {wxPrintout, getPaperRectPixels, 0}}, - {2919, {wxPrintout, getPPIPrinter, 2}}, - {2920, {wxPrintout, getPPIScreen, 2}}, - {2921, {wxPrintout, getTitle, 0}}, - {2922, {wxPrintout, isPreview, 0}}, - {2923, {wxPrintout, fitThisSizeToPaper, 1}}, - {2924, {wxPrintout, fitThisSizeToPage, 1}}, - {2925, {wxPrintout, fitThisSizeToPageMargins, 2}}, - {2926, {wxPrintout, mapScreenSizeToPaper, 0}}, - {2927, {wxPrintout, mapScreenSizeToPage, 0}}, - {2928, {wxPrintout, mapScreenSizeToPageMargins, 1}}, - {2929, {wxPrintout, mapScreenSizeToDevice, 0}}, - {2930, {wxPrintout, getLogicalPaperRect, 0}}, - {2931, {wxPrintout, getLogicalPageRect, 0}}, - {2932, {wxPrintout, getLogicalPageMarginsRect, 1}}, - {2933, {wxPrintout, setLogicalOrigin, 2}}, - {2934, {wxPrintout, offsetLogicalOrigin, 2}}, - {2935, {wxStyledTextCtrl, new_2, 2}}, - {2936, {wxStyledTextCtrl, new_0, 0}}, - {2937, {wxStyledTextCtrl, destruct, 0}}, - {2938, {wxStyledTextCtrl, create, 2}}, - {2939, {wxStyledTextCtrl, addText, 1}}, - {2940, {wxStyledTextCtrl, addStyledText, 1}}, - {2941, {wxStyledTextCtrl, insertText, 2}}, - {2942, {wxStyledTextCtrl, clearAll, 0}}, - {2943, {wxStyledTextCtrl, clearDocumentStyle, 0}}, - {2944, {wxStyledTextCtrl, getLength, 0}}, - {2945, {wxStyledTextCtrl, getCharAt, 1}}, - {2946, {wxStyledTextCtrl, getCurrentPos, 0}}, - {2947, {wxStyledTextCtrl, getAnchor, 0}}, - {2948, {wxStyledTextCtrl, getStyleAt, 1}}, - {2949, {wxStyledTextCtrl, redo, 0}}, - {2950, {wxStyledTextCtrl, setUndoCollection, 1}}, - {2951, {wxStyledTextCtrl, selectAll, 0}}, - {2952, {wxStyledTextCtrl, setSavePoint, 0}}, - {2953, {wxStyledTextCtrl, getStyledText, 2}}, - {2954, {wxStyledTextCtrl, canRedo, 0}}, - {2955, {wxStyledTextCtrl, markerLineFromHandle, 1}}, - {2956, {wxStyledTextCtrl, markerDeleteHandle, 1}}, - {2957, {wxStyledTextCtrl, getUndoCollection, 0}}, - {2958, {wxStyledTextCtrl, getViewWhiteSpace, 0}}, - {2959, {wxStyledTextCtrl, setViewWhiteSpace, 1}}, - {2960, {wxStyledTextCtrl, positionFromPoint, 1}}, - {2961, {wxStyledTextCtrl, positionFromPointClose, 2}}, - {2962, {wxStyledTextCtrl, gotoLine, 1}}, - {2963, {wxStyledTextCtrl, gotoPos, 1}}, - {2964, {wxStyledTextCtrl, setAnchor, 1}}, - {2965, {wxStyledTextCtrl, getCurLine, 1}}, - {2966, {wxStyledTextCtrl, getEndStyled, 0}}, - {2967, {wxStyledTextCtrl, convertEOLs, 1}}, - {2968, {wxStyledTextCtrl, getEOLMode, 0}}, - {2969, {wxStyledTextCtrl, setEOLMode, 1}}, - {2970, {wxStyledTextCtrl, startStyling, 2}}, - {2971, {wxStyledTextCtrl, setStyling, 2}}, - {2972, {wxStyledTextCtrl, getBufferedDraw, 0}}, - {2973, {wxStyledTextCtrl, setBufferedDraw, 1}}, - {2974, {wxStyledTextCtrl, setTabWidth, 1}}, - {2975, {wxStyledTextCtrl, getTabWidth, 0}}, - {2976, {wxStyledTextCtrl, setCodePage, 1}}, - {2977, {wxStyledTextCtrl, markerDefine, 3}}, - {2978, {wxStyledTextCtrl, markerSetForeground, 2}}, - {2979, {wxStyledTextCtrl, markerSetBackground, 2}}, - {2980, {wxStyledTextCtrl, markerAdd, 2}}, - {2981, {wxStyledTextCtrl, markerDelete, 2}}, - {2982, {wxStyledTextCtrl, markerDeleteAll, 1}}, - {2983, {wxStyledTextCtrl, markerGet, 1}}, - {2984, {wxStyledTextCtrl, markerNext, 2}}, - {2985, {wxStyledTextCtrl, markerPrevious, 2}}, - {2986, {wxStyledTextCtrl, markerDefineBitmap, 2}}, - {2987, {wxStyledTextCtrl, markerAddSet, 2}}, - {2988, {wxStyledTextCtrl, markerSetAlpha, 2}}, - {2989, {wxStyledTextCtrl, setMarginType, 2}}, - {2990, {wxStyledTextCtrl, getMarginType, 1}}, - {2991, {wxStyledTextCtrl, setMarginWidth, 2}}, - {2992, {wxStyledTextCtrl, getMarginWidth, 1}}, - {2993, {wxStyledTextCtrl, setMarginMask, 2}}, - {2994, {wxStyledTextCtrl, getMarginMask, 1}}, - {2995, {wxStyledTextCtrl, setMarginSensitive, 2}}, - {2996, {wxStyledTextCtrl, getMarginSensitive, 1}}, - {2997, {wxStyledTextCtrl, styleClearAll, 0}}, - {2998, {wxStyledTextCtrl, styleSetForeground, 2}}, - {2999, {wxStyledTextCtrl, styleSetBackground, 2}}, - {3000, {wxStyledTextCtrl, styleSetBold, 2}}, - {3001, {wxStyledTextCtrl, styleSetItalic, 2}}, - {3002, {wxStyledTextCtrl, styleSetSize, 2}}, - {3003, {wxStyledTextCtrl, styleSetFaceName, 2}}, - {3004, {wxStyledTextCtrl, styleSetEOLFilled, 2}}, - {3005, {wxStyledTextCtrl, styleResetDefault, 0}}, - {3006, {wxStyledTextCtrl, styleSetUnderline, 2}}, - {3007, {wxStyledTextCtrl, styleSetCase, 2}}, - {3008, {wxStyledTextCtrl, styleSetHotSpot, 2}}, - {3009, {wxStyledTextCtrl, setSelForeground, 2}}, - {3010, {wxStyledTextCtrl, setSelBackground, 2}}, - {3011, {wxStyledTextCtrl, getSelAlpha, 0}}, - {3012, {wxStyledTextCtrl, setSelAlpha, 1}}, - {3013, {wxStyledTextCtrl, setCaretForeground, 1}}, - {3014, {wxStyledTextCtrl, cmdKeyAssign, 3}}, - {3015, {wxStyledTextCtrl, cmdKeyClear, 2}}, - {3016, {wxStyledTextCtrl, cmdKeyClearAll, 0}}, - {3017, {wxStyledTextCtrl, setStyleBytes, 2}}, - {3018, {wxStyledTextCtrl, styleSetVisible, 2}}, - {3019, {wxStyledTextCtrl, getCaretPeriod, 0}}, - {3020, {wxStyledTextCtrl, setCaretPeriod, 1}}, - {3021, {wxStyledTextCtrl, setWordChars, 1}}, - {3022, {wxStyledTextCtrl, beginUndoAction, 0}}, - {3023, {wxStyledTextCtrl, endUndoAction, 0}}, - {3024, {wxStyledTextCtrl, indicatorSetStyle, 2}}, - {3025, {wxStyledTextCtrl, indicatorGetStyle, 1}}, - {3026, {wxStyledTextCtrl, indicatorSetForeground, 2}}, - {3027, {wxStyledTextCtrl, indicatorGetForeground, 1}}, - {3028, {wxStyledTextCtrl, setWhitespaceForeground, 2}}, - {3029, {wxStyledTextCtrl, setWhitespaceBackground, 2}}, - {3030, {wxStyledTextCtrl, getStyleBits, 0}}, - {3031, {wxStyledTextCtrl, setLineState, 2}}, - {3032, {wxStyledTextCtrl, getLineState, 1}}, - {3033, {wxStyledTextCtrl, getMaxLineState, 0}}, - {3034, {wxStyledTextCtrl, getCaretLineVisible, 0}}, - {3035, {wxStyledTextCtrl, setCaretLineVisible, 1}}, - {3036, {wxStyledTextCtrl, getCaretLineBackground, 0}}, - {3037, {wxStyledTextCtrl, setCaretLineBackground, 1}}, - {3038, {wxStyledTextCtrl, autoCompShow, 2}}, - {3039, {wxStyledTextCtrl, autoCompCancel, 0}}, - {3040, {wxStyledTextCtrl, autoCompActive, 0}}, - {3041, {wxStyledTextCtrl, autoCompPosStart, 0}}, - {3042, {wxStyledTextCtrl, autoCompComplete, 0}}, - {3043, {wxStyledTextCtrl, autoCompStops, 1}}, - {3044, {wxStyledTextCtrl, autoCompSetSeparator, 1}}, - {3045, {wxStyledTextCtrl, autoCompGetSeparator, 0}}, - {3046, {wxStyledTextCtrl, autoCompSelect, 1}}, - {3047, {wxStyledTextCtrl, autoCompSetCancelAtStart, 1}}, - {3048, {wxStyledTextCtrl, autoCompGetCancelAtStart, 0}}, - {3049, {wxStyledTextCtrl, autoCompSetFillUps, 1}}, - {3050, {wxStyledTextCtrl, autoCompSetChooseSingle, 1}}, - {3051, {wxStyledTextCtrl, autoCompGetChooseSingle, 0}}, - {3052, {wxStyledTextCtrl, autoCompSetIgnoreCase, 1}}, - {3053, {wxStyledTextCtrl, autoCompGetIgnoreCase, 0}}, - {3054, {wxStyledTextCtrl, userListShow, 2}}, - {3055, {wxStyledTextCtrl, autoCompSetAutoHide, 1}}, - {3056, {wxStyledTextCtrl, autoCompGetAutoHide, 0}}, - {3057, {wxStyledTextCtrl, autoCompSetDropRestOfWord, 1}}, - {3058, {wxStyledTextCtrl, autoCompGetDropRestOfWord, 0}}, - {3059, {wxStyledTextCtrl, registerImage, 2}}, - {3060, {wxStyledTextCtrl, clearRegisteredImages, 0}}, - {3061, {wxStyledTextCtrl, autoCompGetTypeSeparator, 0}}, - {3062, {wxStyledTextCtrl, autoCompSetTypeSeparator, 1}}, - {3063, {wxStyledTextCtrl, autoCompSetMaxWidth, 1}}, - {3064, {wxStyledTextCtrl, autoCompGetMaxWidth, 0}}, - {3065, {wxStyledTextCtrl, autoCompSetMaxHeight, 1}}, - {3066, {wxStyledTextCtrl, autoCompGetMaxHeight, 0}}, - {3067, {wxStyledTextCtrl, setIndent, 1}}, - {3068, {wxStyledTextCtrl, getIndent, 0}}, - {3069, {wxStyledTextCtrl, setUseTabs, 1}}, - {3070, {wxStyledTextCtrl, getUseTabs, 0}}, - {3071, {wxStyledTextCtrl, setLineIndentation, 2}}, - {3072, {wxStyledTextCtrl, getLineIndentation, 1}}, - {3073, {wxStyledTextCtrl, getLineIndentPosition, 1}}, - {3074, {wxStyledTextCtrl, getColumn, 1}}, - {3075, {wxStyledTextCtrl, setUseHorizontalScrollBar, 1}}, - {3076, {wxStyledTextCtrl, getUseHorizontalScrollBar, 0}}, - {3077, {wxStyledTextCtrl, setIndentationGuides, 1}}, - {3078, {wxStyledTextCtrl, getIndentationGuides, 0}}, - {3079, {wxStyledTextCtrl, setHighlightGuide, 1}}, - {3080, {wxStyledTextCtrl, getHighlightGuide, 0}}, - {3081, {wxStyledTextCtrl, getLineEndPosition, 1}}, - {3082, {wxStyledTextCtrl, getCodePage, 0}}, - {3083, {wxStyledTextCtrl, getCaretForeground, 0}}, - {3084, {wxStyledTextCtrl, getReadOnly, 0}}, - {3085, {wxStyledTextCtrl, setCurrentPos, 1}}, - {3086, {wxStyledTextCtrl, setSelectionStart, 1}}, - {3087, {wxStyledTextCtrl, getSelectionStart, 0}}, - {3088, {wxStyledTextCtrl, setSelectionEnd, 1}}, - {3089, {wxStyledTextCtrl, getSelectionEnd, 0}}, - {3090, {wxStyledTextCtrl, setPrintMagnification, 1}}, - {3091, {wxStyledTextCtrl, getPrintMagnification, 0}}, - {3092, {wxStyledTextCtrl, setPrintColourMode, 1}}, - {3093, {wxStyledTextCtrl, getPrintColourMode, 0}}, - {3094, {wxStyledTextCtrl, findText, 4}}, - {3095, {wxStyledTextCtrl, formatRange, 7}}, - {3096, {wxStyledTextCtrl, getFirstVisibleLine, 0}}, - {3097, {wxStyledTextCtrl, getLine, 1}}, - {3098, {wxStyledTextCtrl, getLineCount, 0}}, - {3099, {wxStyledTextCtrl, setMarginLeft, 1}}, - {3100, {wxStyledTextCtrl, getMarginLeft, 0}}, - {3101, {wxStyledTextCtrl, setMarginRight, 1}}, - {3102, {wxStyledTextCtrl, getMarginRight, 0}}, - {3103, {wxStyledTextCtrl, getModify, 0}}, - {3104, {wxStyledTextCtrl, setSelection, 2}}, - {3105, {wxStyledTextCtrl, getSelectedText, 0}}, - {3106, {wxStyledTextCtrl, getTextRange, 2}}, - {3107, {wxStyledTextCtrl, hideSelection, 1}}, - {3108, {wxStyledTextCtrl, lineFromPosition, 1}}, - {3109, {wxStyledTextCtrl, positionFromLine, 1}}, - {3110, {wxStyledTextCtrl, lineScroll, 2}}, - {3111, {wxStyledTextCtrl, ensureCaretVisible, 0}}, - {3112, {wxStyledTextCtrl, replaceSelection, 1}}, - {3113, {wxStyledTextCtrl, setReadOnly, 1}}, - {3114, {wxStyledTextCtrl, canPaste, 0}}, - {3115, {wxStyledTextCtrl, canUndo, 0}}, - {3116, {wxStyledTextCtrl, emptyUndoBuffer, 0}}, - {3117, {wxStyledTextCtrl, undo, 0}}, - {3118, {wxStyledTextCtrl, cut, 0}}, - {3119, {wxStyledTextCtrl, copy, 0}}, - {3120, {wxStyledTextCtrl, paste, 0}}, - {3121, {wxStyledTextCtrl, clear, 0}}, - {3122, {wxStyledTextCtrl, setText, 1}}, - {3123, {wxStyledTextCtrl, getText, 0}}, - {3124, {wxStyledTextCtrl, getTextLength, 0}}, - {3125, {wxStyledTextCtrl, getOvertype, 0}}, - {3126, {wxStyledTextCtrl, setCaretWidth, 1}}, - {3127, {wxStyledTextCtrl, getCaretWidth, 0}}, - {3128, {wxStyledTextCtrl, setTargetStart, 1}}, - {3129, {wxStyledTextCtrl, getTargetStart, 0}}, - {3130, {wxStyledTextCtrl, setTargetEnd, 1}}, - {3131, {wxStyledTextCtrl, getTargetEnd, 0}}, - {3132, {wxStyledTextCtrl, replaceTarget, 1}}, - {3133, {wxStyledTextCtrl, searchInTarget, 1}}, - {3134, {wxStyledTextCtrl, setSearchFlags, 1}}, - {3135, {wxStyledTextCtrl, getSearchFlags, 0}}, - {3136, {wxStyledTextCtrl, callTipShow, 2}}, - {3137, {wxStyledTextCtrl, callTipCancel, 0}}, - {3138, {wxStyledTextCtrl, callTipActive, 0}}, - {3139, {wxStyledTextCtrl, callTipPosAtStart, 0}}, - {3140, {wxStyledTextCtrl, callTipSetHighlight, 2}}, - {3141, {wxStyledTextCtrl, callTipSetBackground, 1}}, - {3142, {wxStyledTextCtrl, callTipSetForeground, 1}}, - {3143, {wxStyledTextCtrl, callTipSetForegroundHighlight, 1}}, - {3144, {wxStyledTextCtrl, callTipUseStyle, 1}}, - {3145, {wxStyledTextCtrl, visibleFromDocLine, 1}}, - {3146, {wxStyledTextCtrl, docLineFromVisible, 1}}, - {3147, {wxStyledTextCtrl, wrapCount, 1}}, - {3148, {wxStyledTextCtrl, setFoldLevel, 2}}, - {3149, {wxStyledTextCtrl, getFoldLevel, 1}}, - {3150, {wxStyledTextCtrl, getLastChild, 2}}, - {3151, {wxStyledTextCtrl, getFoldParent, 1}}, - {3152, {wxStyledTextCtrl, showLines, 2}}, - {3153, {wxStyledTextCtrl, hideLines, 2}}, - {3154, {wxStyledTextCtrl, getLineVisible, 1}}, - {3155, {wxStyledTextCtrl, setFoldExpanded, 2}}, - {3156, {wxStyledTextCtrl, getFoldExpanded, 1}}, - {3157, {wxStyledTextCtrl, toggleFold, 1}}, - {3158, {wxStyledTextCtrl, ensureVisible, 1}}, - {3159, {wxStyledTextCtrl, setFoldFlags, 1}}, - {3160, {wxStyledTextCtrl, ensureVisibleEnforcePolicy, 1}}, - {3161, {wxStyledTextCtrl, setTabIndents, 1}}, - {3162, {wxStyledTextCtrl, getTabIndents, 0}}, - {3163, {wxStyledTextCtrl, setBackSpaceUnIndents, 1}}, - {3164, {wxStyledTextCtrl, getBackSpaceUnIndents, 0}}, - {3165, {wxStyledTextCtrl, setMouseDwellTime, 1}}, - {3166, {wxStyledTextCtrl, getMouseDwellTime, 0}}, - {3167, {wxStyledTextCtrl, wordStartPosition, 2}}, - {3168, {wxStyledTextCtrl, wordEndPosition, 2}}, - {3169, {wxStyledTextCtrl, setWrapMode, 1}}, - {3170, {wxStyledTextCtrl, getWrapMode, 0}}, - {3171, {wxStyledTextCtrl, setWrapVisualFlags, 1}}, - {3172, {wxStyledTextCtrl, getWrapVisualFlags, 0}}, - {3173, {wxStyledTextCtrl, setWrapVisualFlagsLocation, 1}}, - {3174, {wxStyledTextCtrl, getWrapVisualFlagsLocation, 0}}, - {3175, {wxStyledTextCtrl, setWrapStartIndent, 1}}, - {3176, {wxStyledTextCtrl, getWrapStartIndent, 0}}, - {3177, {wxStyledTextCtrl, setLayoutCache, 1}}, - {3178, {wxStyledTextCtrl, getLayoutCache, 0}}, - {3179, {wxStyledTextCtrl, setScrollWidth, 1}}, - {3180, {wxStyledTextCtrl, getScrollWidth, 0}}, - {3181, {wxStyledTextCtrl, textWidth, 2}}, - {3182, {wxStyledTextCtrl, getEndAtLastLine, 0}}, - {3183, {wxStyledTextCtrl, textHeight, 1}}, - {3184, {wxStyledTextCtrl, setUseVerticalScrollBar, 1}}, - {3185, {wxStyledTextCtrl, getUseVerticalScrollBar, 0}}, - {3186, {wxStyledTextCtrl, appendText, 1}}, - {3187, {wxStyledTextCtrl, getTwoPhaseDraw, 0}}, - {3188, {wxStyledTextCtrl, setTwoPhaseDraw, 1}}, - {3189, {wxStyledTextCtrl, targetFromSelection, 0}}, - {3190, {wxStyledTextCtrl, linesJoin, 0}}, - {3191, {wxStyledTextCtrl, linesSplit, 1}}, - {3192, {wxStyledTextCtrl, setFoldMarginColour, 2}}, - {3193, {wxStyledTextCtrl, setFoldMarginHiColour, 2}}, - {3194, {wxStyledTextCtrl, lineDown, 0}}, - {3195, {wxStyledTextCtrl, lineDownExtend, 0}}, - {3196, {wxStyledTextCtrl, lineUp, 0}}, - {3197, {wxStyledTextCtrl, lineUpExtend, 0}}, - {3198, {wxStyledTextCtrl, charLeft, 0}}, - {3199, {wxStyledTextCtrl, charLeftExtend, 0}}, - {3200, {wxStyledTextCtrl, charRight, 0}}, - {3201, {wxStyledTextCtrl, charRightExtend, 0}}, - {3202, {wxStyledTextCtrl, wordLeft, 0}}, - {3203, {wxStyledTextCtrl, wordLeftExtend, 0}}, - {3204, {wxStyledTextCtrl, wordRight, 0}}, - {3205, {wxStyledTextCtrl, wordRightExtend, 0}}, - {3206, {wxStyledTextCtrl, home, 0}}, - {3207, {wxStyledTextCtrl, homeExtend, 0}}, - {3208, {wxStyledTextCtrl, lineEnd, 0}}, - {3209, {wxStyledTextCtrl, lineEndExtend, 0}}, - {3210, {wxStyledTextCtrl, documentStart, 0}}, - {3211, {wxStyledTextCtrl, documentStartExtend, 0}}, - {3212, {wxStyledTextCtrl, documentEnd, 0}}, - {3213, {wxStyledTextCtrl, documentEndExtend, 0}}, - {3214, {wxStyledTextCtrl, pageUp, 0}}, - {3215, {wxStyledTextCtrl, pageUpExtend, 0}}, - {3216, {wxStyledTextCtrl, pageDown, 0}}, - {3217, {wxStyledTextCtrl, pageDownExtend, 0}}, - {3218, {wxStyledTextCtrl, editToggleOvertype, 0}}, - {3219, {wxStyledTextCtrl, cancel, 0}}, - {3220, {wxStyledTextCtrl, deleteBack, 0}}, - {3221, {wxStyledTextCtrl, tab, 0}}, - {3222, {wxStyledTextCtrl, backTab, 0}}, - {3223, {wxStyledTextCtrl, newLine, 0}}, - {3224, {wxStyledTextCtrl, formFeed, 0}}, - {3225, {wxStyledTextCtrl, vCHome, 0}}, - {3226, {wxStyledTextCtrl, vCHomeExtend, 0}}, - {3227, {wxStyledTextCtrl, zoomIn, 0}}, - {3228, {wxStyledTextCtrl, zoomOut, 0}}, - {3229, {wxStyledTextCtrl, delWordLeft, 0}}, - {3230, {wxStyledTextCtrl, delWordRight, 0}}, - {3231, {wxStyledTextCtrl, lineCut, 0}}, - {3232, {wxStyledTextCtrl, lineDelete, 0}}, - {3233, {wxStyledTextCtrl, lineTranspose, 0}}, - {3234, {wxStyledTextCtrl, lineDuplicate, 0}}, - {3235, {wxStyledTextCtrl, lowerCase, 0}}, - {3236, {wxStyledTextCtrl, upperCase, 0}}, - {3237, {wxStyledTextCtrl, lineScrollDown, 0}}, - {3238, {wxStyledTextCtrl, lineScrollUp, 0}}, - {3239, {wxStyledTextCtrl, deleteBackNotLine, 0}}, - {3240, {wxStyledTextCtrl, homeDisplay, 0}}, - {3241, {wxStyledTextCtrl, homeDisplayExtend, 0}}, - {3242, {wxStyledTextCtrl, lineEndDisplay, 0}}, - {3243, {wxStyledTextCtrl, lineEndDisplayExtend, 0}}, - {3244, {wxStyledTextCtrl, homeWrapExtend, 0}}, - {3245, {wxStyledTextCtrl, lineEndWrap, 0}}, - {3246, {wxStyledTextCtrl, lineEndWrapExtend, 0}}, - {3247, {wxStyledTextCtrl, vCHomeWrap, 0}}, - {3248, {wxStyledTextCtrl, vCHomeWrapExtend, 0}}, - {3249, {wxStyledTextCtrl, lineCopy, 0}}, - {3250, {wxStyledTextCtrl, moveCaretInsideView, 0}}, - {3251, {wxStyledTextCtrl, lineLength, 1}}, - {3252, {wxStyledTextCtrl, braceHighlight, 2}}, - {3253, {wxStyledTextCtrl, braceBadLight, 1}}, - {3254, {wxStyledTextCtrl, braceMatch, 1}}, - {3255, {wxStyledTextCtrl, getViewEOL, 0}}, - {3256, {wxStyledTextCtrl, setViewEOL, 1}}, - {3257, {wxStyledTextCtrl, setModEventMask, 1}}, - {3258, {wxStyledTextCtrl, getEdgeColumn, 0}}, - {3259, {wxStyledTextCtrl, setEdgeColumn, 1}}, - {3260, {wxStyledTextCtrl, getEdgeMode, 0}}, - {3261, {wxStyledTextCtrl, getEdgeColour, 0}}, - {3262, {wxStyledTextCtrl, setEdgeColour, 1}}, - {3263, {wxStyledTextCtrl, searchAnchor, 0}}, - {3264, {wxStyledTextCtrl, searchNext, 2}}, - {3265, {wxStyledTextCtrl, searchPrev, 2}}, - {3266, {wxStyledTextCtrl, linesOnScreen, 0}}, - {3267, {wxStyledTextCtrl, usePopUp, 1}}, - {3268, {wxStyledTextCtrl, selectionIsRectangle, 0}}, - {3269, {wxStyledTextCtrl, setZoom, 1}}, - {3270, {wxStyledTextCtrl, getZoom, 0}}, - {3271, {wxStyledTextCtrl, getModEventMask, 0}}, - {3272, {wxStyledTextCtrl, setSTCFocus, 1}}, - {3273, {wxStyledTextCtrl, getSTCFocus, 0}}, - {3274, {wxStyledTextCtrl, setStatus, 1}}, - {3275, {wxStyledTextCtrl, getStatus, 0}}, - {3276, {wxStyledTextCtrl, setMouseDownCaptures, 1}}, - {3277, {wxStyledTextCtrl, getMouseDownCaptures, 0}}, - {3278, {wxStyledTextCtrl, setSTCCursor, 1}}, - {3279, {wxStyledTextCtrl, getSTCCursor, 0}}, - {3280, {wxStyledTextCtrl, setControlCharSymbol, 1}}, - {3281, {wxStyledTextCtrl, getControlCharSymbol, 0}}, - {3282, {wxStyledTextCtrl, wordPartLeft, 0}}, - {3283, {wxStyledTextCtrl, wordPartLeftExtend, 0}}, - {3284, {wxStyledTextCtrl, wordPartRight, 0}}, - {3285, {wxStyledTextCtrl, wordPartRightExtend, 0}}, - {3286, {wxStyledTextCtrl, setVisiblePolicy, 2}}, - {3287, {wxStyledTextCtrl, delLineLeft, 0}}, - {3288, {wxStyledTextCtrl, delLineRight, 0}}, - {3289, {wxStyledTextCtrl, getXOffset, 0}}, - {3290, {wxStyledTextCtrl, chooseCaretX, 0}}, - {3291, {wxStyledTextCtrl, setXCaretPolicy, 2}}, - {3292, {wxStyledTextCtrl, setYCaretPolicy, 2}}, - {3293, {wxStyledTextCtrl, getPrintWrapMode, 0}}, - {3294, {wxStyledTextCtrl, setHotspotActiveForeground, 2}}, - {3295, {wxStyledTextCtrl, setHotspotActiveBackground, 2}}, - {3296, {wxStyledTextCtrl, setHotspotActiveUnderline, 1}}, - {3297, {wxStyledTextCtrl, setHotspotSingleLine, 1}}, - {3298, {wxStyledTextCtrl, paraDownExtend, 0}}, - {3299, {wxStyledTextCtrl, paraUp, 0}}, - {3300, {wxStyledTextCtrl, paraUpExtend, 0}}, - {3301, {wxStyledTextCtrl, positionBefore, 1}}, - {3302, {wxStyledTextCtrl, positionAfter, 1}}, - {3303, {wxStyledTextCtrl, copyRange, 2}}, - {3304, {wxStyledTextCtrl, copyText, 2}}, - {3305, {wxStyledTextCtrl, setSelectionMode, 1}}, - {3306, {wxStyledTextCtrl, getSelectionMode, 0}}, - {3307, {wxStyledTextCtrl, lineDownRectExtend, 0}}, - {3308, {wxStyledTextCtrl, lineUpRectExtend, 0}}, - {3309, {wxStyledTextCtrl, charLeftRectExtend, 0}}, - {3310, {wxStyledTextCtrl, charRightRectExtend, 0}}, - {3311, {wxStyledTextCtrl, homeRectExtend, 0}}, - {3312, {wxStyledTextCtrl, vCHomeRectExtend, 0}}, - {3313, {wxStyledTextCtrl, lineEndRectExtend, 0}}, - {3314, {wxStyledTextCtrl, pageUpRectExtend, 0}}, - {3315, {wxStyledTextCtrl, pageDownRectExtend, 0}}, - {3316, {wxStyledTextCtrl, stutteredPageUp, 0}}, - {3317, {wxStyledTextCtrl, stutteredPageUpExtend, 0}}, - {3318, {wxStyledTextCtrl, stutteredPageDown, 0}}, - {3319, {wxStyledTextCtrl, stutteredPageDownExtend, 0}}, - {3320, {wxStyledTextCtrl, wordLeftEnd, 0}}, - {3321, {wxStyledTextCtrl, wordLeftEndExtend, 0}}, - {3322, {wxStyledTextCtrl, wordRightEnd, 0}}, - {3323, {wxStyledTextCtrl, wordRightEndExtend, 0}}, - {3324, {wxStyledTextCtrl, setWhitespaceChars, 1}}, - {3325, {wxStyledTextCtrl, setCharsDefault, 0}}, - {3326, {wxStyledTextCtrl, autoCompGetCurrent, 0}}, - {3327, {wxStyledTextCtrl, allocate, 1}}, - {3328, {wxStyledTextCtrl, findColumn, 2}}, - {3329, {wxStyledTextCtrl, getCaretSticky, 0}}, - {3330, {wxStyledTextCtrl, setCaretSticky, 1}}, - {3331, {wxStyledTextCtrl, toggleCaretSticky, 0}}, - {3332, {wxStyledTextCtrl, setPasteConvertEndings, 1}}, - {3333, {wxStyledTextCtrl, getPasteConvertEndings, 0}}, - {3334, {wxStyledTextCtrl, selectionDuplicate, 0}}, - {3335, {wxStyledTextCtrl, setCaretLineBackAlpha, 1}}, - {3336, {wxStyledTextCtrl, getCaretLineBackAlpha, 0}}, - {3337, {wxStyledTextCtrl, startRecord, 0}}, - {3338, {wxStyledTextCtrl, stopRecord, 0}}, - {3339, {wxStyledTextCtrl, setLexer, 1}}, - {3340, {wxStyledTextCtrl, getLexer, 0}}, - {3341, {wxStyledTextCtrl, colourise, 2}}, - {3342, {wxStyledTextCtrl, setProperty, 2}}, - {3343, {wxStyledTextCtrl, setKeyWords, 2}}, - {3344, {wxStyledTextCtrl, setLexerLanguage, 1}}, - {3345, {wxStyledTextCtrl, getProperty, 1}}, - {3346, {wxStyledTextCtrl, getStyleBitsNeeded, 0}}, - {3347, {wxStyledTextCtrl, getCurrentLine, 0}}, - {3348, {wxStyledTextCtrl, styleSetSpec, 2}}, - {3349, {wxStyledTextCtrl, styleSetFont, 2}}, - {3350, {wxStyledTextCtrl, styleSetFontAttr, 7}}, - {3351, {wxStyledTextCtrl, styleSetCharacterSet, 2}}, - {3352, {wxStyledTextCtrl, styleSetFontEncoding, 2}}, - {3353, {wxStyledTextCtrl, cmdKeyExecute, 1}}, - {3354, {wxStyledTextCtrl, setMargins, 2}}, - {3355, {wxStyledTextCtrl, getSelection, 2}}, - {3356, {wxStyledTextCtrl, pointFromPosition, 1}}, - {3357, {wxStyledTextCtrl, scrollToLine, 1}}, - {3358, {wxStyledTextCtrl, scrollToColumn, 1}}, - {3359, {wxStyledTextCtrl, sendMsg, 2}}, - {3360, {wxStyledTextCtrl, setVScrollBar, 1}}, - {3361, {wxStyledTextCtrl, setHScrollBar, 1}}, - {3362, {wxStyledTextCtrl, getLastKeydownProcessed, 0}}, - {3363, {wxStyledTextCtrl, setLastKeydownProcessed, 1}}, - {3364, {wxStyledTextCtrl, saveFile, 1}}, - {3365, {wxStyledTextCtrl, loadFile, 1}}, - {3366, {wxStyledTextCtrl, doDragOver, 3}}, - {3367, {wxStyledTextCtrl, doDropText, 3}}, - {3368, {wxStyledTextCtrl, getUseAntiAliasing, 0}}, - {3369, {wxStyledTextCtrl, addTextRaw, 1}}, - {3370, {wxStyledTextCtrl, insertTextRaw, 2}}, - {3371, {wxStyledTextCtrl, getCurLineRaw, 1}}, - {3372, {wxStyledTextCtrl, getLineRaw, 1}}, - {3373, {wxStyledTextCtrl, getSelectedTextRaw, 0}}, - {3374, {wxStyledTextCtrl, getTextRangeRaw, 2}}, - {3375, {wxStyledTextCtrl, setTextRaw, 1}}, - {3376, {wxStyledTextCtrl, getTextRaw, 0}}, - {3377, {wxStyledTextCtrl, appendTextRaw, 1}}, - {3378, {wxArtProvider, getBitmap, 2}}, - {3379, {wxArtProvider, getIcon, 2}}, - {3380, {wxTreeEvent, getKeyCode, 0}}, - {3381, {wxTreeEvent, getItem, 0}}, - {3382, {wxTreeEvent, getKeyEvent, 0}}, - {3383, {wxTreeEvent, getLabel, 0}}, - {3384, {wxTreeEvent, getOldItem, 0}}, - {3385, {wxTreeEvent, getPoint, 0}}, - {3386, {wxTreeEvent, isEditCancelled, 0}}, - {3387, {wxTreeEvent, setToolTip, 1}}, - {3388, {wxNotebookEvent, getOldSelection, 0}}, - {3389, {wxNotebookEvent, getSelection, 0}}, - {3390, {wxNotebookEvent, setOldSelection, 1}}, - {3391, {wxNotebookEvent, setSelection, 1}}, - {3392, {wxFileDataObject, new, 0}}, - {3393, {wxFileDataObject, addFile, 1}}, - {3394, {wxFileDataObject, getFilenames, 0}}, - {3395, {wxFileDataObject, 'Destroy', undefined}}, - {3396, {wxTextDataObject, new, 1}}, - {3397, {wxTextDataObject, getTextLength, 0}}, - {3398, {wxTextDataObject, getText, 0}}, - {3399, {wxTextDataObject, setText, 1}}, - {3400, {wxTextDataObject, 'Destroy', undefined}}, - {3401, {wxBitmapDataObject, new_1_1, 1}}, - {3402, {wxBitmapDataObject, new_1_0, 1}}, - {3403, {wxBitmapDataObject, getBitmap, 0}}, - {3404, {wxBitmapDataObject, setBitmap, 1}}, - {3405, {wxBitmapDataObject, 'Destroy', undefined}}, - {3407, {wxClipboard, new, 0}}, - {3408, {wxClipboard, destruct, 0}}, - {3409, {wxClipboard, addData, 1}}, - {3410, {wxClipboard, clear, 0}}, - {3411, {wxClipboard, close, 0}}, - {3412, {wxClipboard, flush, 0}}, - {3413, {wxClipboard, getData, 1}}, - {3414, {wxClipboard, isOpened, 0}}, - {3415, {wxClipboard, open, 0}}, - {3416, {wxClipboard, setData, 1}}, - {3418, {wxClipboard, usePrimarySelection, 1}}, - {3419, {wxClipboard, isSupported, 1}}, - {3420, {wxClipboard, get, 0}}, - {3421, {wxSpinEvent, getPosition, 0}}, - {3422, {wxSpinEvent, setPosition, 1}}, - {3423, {wxSplitterWindow, new_0, 0}}, - {3424, {wxSplitterWindow, new_2, 2}}, - {3425, {wxSplitterWindow, destruct, 0}}, - {3426, {wxSplitterWindow, create, 2}}, - {3427, {wxSplitterWindow, getMinimumPaneSize, 0}}, - {3428, {wxSplitterWindow, getSashGravity, 0}}, - {3429, {wxSplitterWindow, getSashPosition, 0}}, - {3430, {wxSplitterWindow, getSplitMode, 0}}, - {3431, {wxSplitterWindow, getWindow1, 0}}, - {3432, {wxSplitterWindow, getWindow2, 0}}, - {3433, {wxSplitterWindow, initialize, 1}}, - {3434, {wxSplitterWindow, isSplit, 0}}, - {3435, {wxSplitterWindow, replaceWindow, 2}}, - {3436, {wxSplitterWindow, setSashGravity, 1}}, - {3437, {wxSplitterWindow, setSashPosition, 2}}, - {3438, {wxSplitterWindow, setSashSize, 1}}, - {3439, {wxSplitterWindow, setMinimumPaneSize, 1}}, - {3440, {wxSplitterWindow, setSplitMode, 1}}, - {3441, {wxSplitterWindow, splitHorizontally, 3}}, - {3442, {wxSplitterWindow, splitVertically, 3}}, - {3443, {wxSplitterWindow, unsplit, 1}}, - {3444, {wxSplitterWindow, updateSize, 0}}, - {3445, {wxSplitterEvent, getSashPosition, 0}}, - {3446, {wxSplitterEvent, getX, 0}}, - {3447, {wxSplitterEvent, getY, 0}}, - {3448, {wxSplitterEvent, getWindowBeingRemoved, 0}}, - {3449, {wxSplitterEvent, setSashPosition, 1}}, - {3450, {wxHtmlWindow, new_0, 0}}, - {3451, {wxHtmlWindow, new_2, 2}}, - {3452, {wxHtmlWindow, appendToPage, 1}}, - {3453, {wxHtmlWindow, getOpenedAnchor, 0}}, - {3454, {wxHtmlWindow, getOpenedPage, 0}}, - {3455, {wxHtmlWindow, getOpenedPageTitle, 0}}, - {3456, {wxHtmlWindow, getRelatedFrame, 0}}, - {3457, {wxHtmlWindow, historyBack, 0}}, - {3458, {wxHtmlWindow, historyCanBack, 0}}, - {3459, {wxHtmlWindow, historyCanForward, 0}}, - {3460, {wxHtmlWindow, historyClear, 0}}, - {3461, {wxHtmlWindow, historyForward, 0}}, - {3462, {wxHtmlWindow, loadFile, 1}}, - {3463, {wxHtmlWindow, loadPage, 1}}, - {3464, {wxHtmlWindow, selectAll, 0}}, - {3465, {wxHtmlWindow, selectionToText, 0}}, - {3466, {wxHtmlWindow, selectLine, 1}}, - {3467, {wxHtmlWindow, selectWord, 1}}, - {3468, {wxHtmlWindow, setBorders, 1}}, - {3469, {wxHtmlWindow, setFonts, 3}}, - {3470, {wxHtmlWindow, setPage, 1}}, - {3471, {wxHtmlWindow, setRelatedFrame, 2}}, - {3472, {wxHtmlWindow, setRelatedStatusBar, 1}}, - {3473, {wxHtmlWindow, toText, 0}}, - {3474, {wxHtmlWindow, 'Destroy', undefined}}, - {3475, {wxHtmlLinkEvent, getLinkInfo, 0}}, - {3476, {wxSystemSettings, getColour, 1}}, - {3477, {wxSystemSettings, getFont, 1}}, - {3478, {wxSystemSettings, getMetric, 2}}, - {3479, {wxSystemSettings, getScreenType, 0}}, - {3480, {wxAuiNotebookEvent, setSelection, 1}}, - {3481, {wxAuiNotebookEvent, getSelection, 0}}, - {3482, {wxAuiNotebookEvent, setOldSelection, 1}}, - {3483, {wxAuiNotebookEvent, getOldSelection, 0}}, - {3484, {wxAuiNotebookEvent, setDragSource, 1}}, - {3485, {wxAuiNotebookEvent, getDragSource, 0}}, - {3486, {wxAuiManagerEvent, setManager, 1}}, - {3487, {wxAuiManagerEvent, getManager, 0}}, - {3488, {wxAuiManagerEvent, setPane, 1}}, - {3489, {wxAuiManagerEvent, getPane, 0}}, - {3490, {wxAuiManagerEvent, setButton, 1}}, - {3491, {wxAuiManagerEvent, getButton, 0}}, - {3492, {wxAuiManagerEvent, setDC, 1}}, - {3493, {wxAuiManagerEvent, getDC, 0}}, - {3494, {wxAuiManagerEvent, veto, 1}}, - {3495, {wxAuiManagerEvent, getVeto, 0}}, - {3496, {wxAuiManagerEvent, setCanVeto, 1}}, - {3497, {wxAuiManagerEvent, canVeto, 0}}, - {3498, {wxLogNull, new, 0}}, - {3499, {wxLogNull, 'Destroy', undefined}}, + {1757, {wxListItemAttr, new_0, 0}}, + {1758, {wxListItemAttr, new_3, 3}}, + {1759, {wxListItemAttr, getBackgroundColour, 0}}, + {1760, {wxListItemAttr, getFont, 0}}, + {1761, {wxListItemAttr, getTextColour, 0}}, + {1762, {wxListItemAttr, hasBackgroundColour, 0}}, + {1763, {wxListItemAttr, hasFont, 0}}, + {1764, {wxListItemAttr, hasTextColour, 0}}, + {1765, {wxListItemAttr, setBackgroundColour, 1}}, + {1766, {wxListItemAttr, setFont, 1}}, + {1767, {wxListItemAttr, setTextColour, 1}}, + {1768, {wxListItemAttr, 'Destroy', undefined}}, + {1769, {wxImageList, new_0, 0}}, + {1770, {wxImageList, new_3, 3}}, + {1771, {wxImageList, add_1, 1}}, + {1772, {wxImageList, add_2_0, 2}}, + {1773, {wxImageList, add_2_1, 2}}, + {1774, {wxImageList, create, 3}}, + {1776, {wxImageList, draw, 5}}, + {1777, {wxImageList, getBitmap, 1}}, + {1778, {wxImageList, getIcon, 1}}, + {1779, {wxImageList, getImageCount, 0}}, + {1780, {wxImageList, getSize, 3}}, + {1781, {wxImageList, remove, 1}}, + {1782, {wxImageList, removeAll, 0}}, + {1783, {wxImageList, replace_2, 2}}, + {1784, {wxImageList, replace_3, 3}}, + {1785, {wxImageList, 'Destroy', undefined}}, + {1786, {wxTextAttr, new_0, 0}}, + {1787, {wxTextAttr, new_2, 2}}, + {1788, {wxTextAttr, getAlignment, 0}}, + {1789, {wxTextAttr, getBackgroundColour, 0}}, + {1790, {wxTextAttr, getFont, 0}}, + {1791, {wxTextAttr, getLeftIndent, 0}}, + {1792, {wxTextAttr, getLeftSubIndent, 0}}, + {1793, {wxTextAttr, getRightIndent, 0}}, + {1794, {wxTextAttr, getTabs, 0}}, + {1795, {wxTextAttr, getTextColour, 0}}, + {1796, {wxTextAttr, hasBackgroundColour, 0}}, + {1797, {wxTextAttr, hasFont, 0}}, + {1798, {wxTextAttr, hasTextColour, 0}}, + {1799, {wxTextAttr, getFlags, 0}}, + {1800, {wxTextAttr, isDefault, 0}}, + {1801, {wxTextAttr, setAlignment, 1}}, + {1802, {wxTextAttr, setBackgroundColour, 1}}, + {1803, {wxTextAttr, setFlags, 1}}, + {1804, {wxTextAttr, setFont, 2}}, + {1805, {wxTextAttr, setLeftIndent, 2}}, + {1806, {wxTextAttr, setRightIndent, 1}}, + {1807, {wxTextAttr, setTabs, 1}}, + {1808, {wxTextAttr, setTextColour, 1}}, + {1809, {wxTextAttr, 'Destroy', undefined}}, + {1811, {wxTextCtrl, new_3, 3}}, + {1812, {wxTextCtrl, new_0, 0}}, + {1814, {wxTextCtrl, destruct, 0}}, + {1815, {wxTextCtrl, appendText, 1}}, + {1816, {wxTextCtrl, canCopy, 0}}, + {1817, {wxTextCtrl, canCut, 0}}, + {1818, {wxTextCtrl, canPaste, 0}}, + {1819, {wxTextCtrl, canRedo, 0}}, + {1820, {wxTextCtrl, canUndo, 0}}, + {1821, {wxTextCtrl, clear, 0}}, + {1822, {wxTextCtrl, copy, 0}}, + {1823, {wxTextCtrl, create, 3}}, + {1824, {wxTextCtrl, cut, 0}}, + {1825, {wxTextCtrl, discardEdits, 0}}, + {1826, {wxTextCtrl, emulateKeyPress, 1}}, + {1827, {wxTextCtrl, getDefaultStyle, 0}}, + {1828, {wxTextCtrl, getInsertionPoint, 0}}, + {1829, {wxTextCtrl, getLastPosition, 0}}, + {1830, {wxTextCtrl, getLineLength, 1}}, + {1831, {wxTextCtrl, getLineText, 1}}, + {1832, {wxTextCtrl, getNumberOfLines, 0}}, + {1833, {wxTextCtrl, getRange, 2}}, + {1834, {wxTextCtrl, getSelection, 2}}, + {1835, {wxTextCtrl, getStringSelection, 0}}, + {1836, {wxTextCtrl, getStyle, 2}}, + {1837, {wxTextCtrl, getValue, 0}}, + {1838, {wxTextCtrl, isEditable, 0}}, + {1839, {wxTextCtrl, isModified, 0}}, + {1840, {wxTextCtrl, isMultiLine, 0}}, + {1841, {wxTextCtrl, isSingleLine, 0}}, + {1842, {wxTextCtrl, loadFile, 2}}, + {1843, {wxTextCtrl, markDirty, 0}}, + {1844, {wxTextCtrl, paste, 0}}, + {1845, {wxTextCtrl, positionToXY, 3}}, + {1846, {wxTextCtrl, redo, 0}}, + {1847, {wxTextCtrl, remove, 2}}, + {1848, {wxTextCtrl, replace, 3}}, + {1849, {wxTextCtrl, saveFile, 1}}, + {1850, {wxTextCtrl, setDefaultStyle, 1}}, + {1851, {wxTextCtrl, setEditable, 1}}, + {1852, {wxTextCtrl, setInsertionPoint, 1}}, + {1853, {wxTextCtrl, setInsertionPointEnd, 0}}, + {1855, {wxTextCtrl, setMaxLength, 1}}, + {1856, {wxTextCtrl, setSelection, 2}}, + {1857, {wxTextCtrl, setStyle, 3}}, + {1858, {wxTextCtrl, setValue, 1}}, + {1859, {wxTextCtrl, showPosition, 1}}, + {1860, {wxTextCtrl, undo, 0}}, + {1861, {wxTextCtrl, writeText, 1}}, + {1862, {wxTextCtrl, xYToPosition, 2}}, + {1865, {wxNotebook, new_0, 0}}, + {1866, {wxNotebook, new_3, 3}}, + {1867, {wxNotebook, destruct, 0}}, + {1868, {wxNotebook, addPage, 3}}, + {1869, {wxNotebook, advanceSelection, 1}}, + {1870, {wxNotebook, assignImageList, 1}}, + {1871, {wxNotebook, create, 3}}, + {1872, {wxNotebook, deleteAllPages, 0}}, + {1873, {wxNotebook, deletePage, 1}}, + {1874, {wxNotebook, removePage, 1}}, + {1875, {wxNotebook, getCurrentPage, 0}}, + {1876, {wxNotebook, getImageList, 0}}, + {1878, {wxNotebook, getPage, 1}}, + {1879, {wxNotebook, getPageCount, 0}}, + {1880, {wxNotebook, getPageImage, 1}}, + {1881, {wxNotebook, getPageText, 1}}, + {1882, {wxNotebook, getRowCount, 0}}, + {1883, {wxNotebook, getSelection, 0}}, + {1884, {wxNotebook, getThemeBackgroundColour, 0}}, + {1886, {wxNotebook, hitTest, 2}}, + {1888, {wxNotebook, insertPage, 4}}, + {1889, {wxNotebook, setImageList, 1}}, + {1890, {wxNotebook, setPadding, 1}}, + {1891, {wxNotebook, setPageSize, 1}}, + {1892, {wxNotebook, setPageImage, 2}}, + {1893, {wxNotebook, setPageText, 2}}, + {1894, {wxNotebook, setSelection, 1}}, + {1895, {wxNotebook, changeSelection, 1}}, + {1896, {wxChoicebook, new_0, 0}}, + {1897, {wxChoicebook, new_3, 3}}, + {1898, {wxChoicebook, addPage, 3}}, + {1899, {wxChoicebook, advanceSelection, 1}}, + {1900, {wxChoicebook, assignImageList, 1}}, + {1901, {wxChoicebook, create, 3}}, + {1902, {wxChoicebook, deleteAllPages, 0}}, + {1903, {wxChoicebook, deletePage, 1}}, + {1904, {wxChoicebook, removePage, 1}}, + {1905, {wxChoicebook, getCurrentPage, 0}}, + {1906, {wxChoicebook, getImageList, 0}}, + {1908, {wxChoicebook, getPage, 1}}, + {1909, {wxChoicebook, getPageCount, 0}}, + {1910, {wxChoicebook, getPageImage, 1}}, + {1911, {wxChoicebook, getPageText, 1}}, + {1912, {wxChoicebook, getSelection, 0}}, + {1913, {wxChoicebook, hitTest, 2}}, + {1914, {wxChoicebook, insertPage, 4}}, + {1915, {wxChoicebook, setImageList, 1}}, + {1916, {wxChoicebook, setPageSize, 1}}, + {1917, {wxChoicebook, setPageImage, 2}}, + {1918, {wxChoicebook, setPageText, 2}}, + {1919, {wxChoicebook, setSelection, 1}}, + {1920, {wxChoicebook, changeSelection, 1}}, + {1921, {wxChoicebook, 'Destroy', undefined}}, + {1922, {wxToolbook, new_0, 0}}, + {1923, {wxToolbook, new_3, 3}}, + {1924, {wxToolbook, addPage, 3}}, + {1925, {wxToolbook, advanceSelection, 1}}, + {1926, {wxToolbook, assignImageList, 1}}, + {1927, {wxToolbook, create, 3}}, + {1928, {wxToolbook, deleteAllPages, 0}}, + {1929, {wxToolbook, deletePage, 1}}, + {1930, {wxToolbook, removePage, 1}}, + {1931, {wxToolbook, getCurrentPage, 0}}, + {1932, {wxToolbook, getImageList, 0}}, + {1934, {wxToolbook, getPage, 1}}, + {1935, {wxToolbook, getPageCount, 0}}, + {1936, {wxToolbook, getPageImage, 1}}, + {1937, {wxToolbook, getPageText, 1}}, + {1938, {wxToolbook, getSelection, 0}}, + {1940, {wxToolbook, hitTest, 2}}, + {1941, {wxToolbook, insertPage, 4}}, + {1942, {wxToolbook, setImageList, 1}}, + {1943, {wxToolbook, setPageSize, 1}}, + {1944, {wxToolbook, setPageImage, 2}}, + {1945, {wxToolbook, setPageText, 2}}, + {1946, {wxToolbook, setSelection, 1}}, + {1947, {wxToolbook, changeSelection, 1}}, + {1948, {wxToolbook, 'Destroy', undefined}}, + {1949, {wxListbook, new_0, 0}}, + {1950, {wxListbook, new_3, 3}}, + {1951, {wxListbook, addPage, 3}}, + {1952, {wxListbook, advanceSelection, 1}}, + {1953, {wxListbook, assignImageList, 1}}, + {1954, {wxListbook, create, 3}}, + {1955, {wxListbook, deleteAllPages, 0}}, + {1956, {wxListbook, deletePage, 1}}, + {1957, {wxListbook, removePage, 1}}, + {1958, {wxListbook, getCurrentPage, 0}}, + {1959, {wxListbook, getImageList, 0}}, + {1961, {wxListbook, getPage, 1}}, + {1962, {wxListbook, getPageCount, 0}}, + {1963, {wxListbook, getPageImage, 1}}, + {1964, {wxListbook, getPageText, 1}}, + {1965, {wxListbook, getSelection, 0}}, + {1967, {wxListbook, hitTest, 2}}, + {1968, {wxListbook, insertPage, 4}}, + {1969, {wxListbook, setImageList, 1}}, + {1970, {wxListbook, setPageSize, 1}}, + {1971, {wxListbook, setPageImage, 2}}, + {1972, {wxListbook, setPageText, 2}}, + {1973, {wxListbook, setSelection, 1}}, + {1974, {wxListbook, changeSelection, 1}}, + {1975, {wxListbook, 'Destroy', undefined}}, + {1976, {wxTreebook, new_0, 0}}, + {1977, {wxTreebook, new_3, 3}}, + {1978, {wxTreebook, addPage, 3}}, + {1979, {wxTreebook, advanceSelection, 1}}, + {1980, {wxTreebook, assignImageList, 1}}, + {1981, {wxTreebook, create, 3}}, + {1982, {wxTreebook, deleteAllPages, 0}}, + {1983, {wxTreebook, deletePage, 1}}, + {1984, {wxTreebook, removePage, 1}}, + {1985, {wxTreebook, getCurrentPage, 0}}, + {1986, {wxTreebook, getImageList, 0}}, + {1988, {wxTreebook, getPage, 1}}, + {1989, {wxTreebook, getPageCount, 0}}, + {1990, {wxTreebook, getPageImage, 1}}, + {1991, {wxTreebook, getPageText, 1}}, + {1992, {wxTreebook, getSelection, 0}}, + {1993, {wxTreebook, expandNode, 2}}, + {1994, {wxTreebook, isNodeExpanded, 1}}, + {1996, {wxTreebook, hitTest, 2}}, + {1997, {wxTreebook, insertPage, 4}}, + {1998, {wxTreebook, insertSubPage, 4}}, + {1999, {wxTreebook, setImageList, 1}}, + {2000, {wxTreebook, setPageSize, 1}}, + {2001, {wxTreebook, setPageImage, 2}}, + {2002, {wxTreebook, setPageText, 2}}, + {2003, {wxTreebook, setSelection, 1}}, + {2004, {wxTreebook, changeSelection, 1}}, + {2005, {wxTreebook, 'Destroy', undefined}}, + {2008, {wxTreeCtrl, new_2, 2}}, + {2009, {wxTreeCtrl, new_0, 0}}, + {2011, {wxTreeCtrl, destruct, 0}}, + {2012, {wxTreeCtrl, addRoot, 2}}, + {2013, {wxTreeCtrl, appendItem, 3}}, + {2014, {wxTreeCtrl, assignImageList, 1}}, + {2015, {wxTreeCtrl, assignStateImageList, 1}}, + {2016, {wxTreeCtrl, collapse, 1}}, + {2017, {wxTreeCtrl, collapseAndReset, 1}}, + {2018, {wxTreeCtrl, create, 2}}, + {2019, {wxTreeCtrl, delete, 1}}, + {2020, {wxTreeCtrl, deleteAllItems, 0}}, + {2021, {wxTreeCtrl, deleteChildren, 1}}, + {2022, {wxTreeCtrl, editLabel, 1}}, + {2023, {wxTreeCtrl, ensureVisible, 1}}, + {2024, {wxTreeCtrl, expand, 1}}, + {2025, {wxTreeCtrl, getBoundingRect, 3}}, + {2027, {wxTreeCtrl, getChildrenCount, 2}}, + {2028, {wxTreeCtrl, getCount, 0}}, + {2029, {wxTreeCtrl, getEditControl, 0}}, + {2030, {wxTreeCtrl, getFirstChild, 2}}, + {2031, {wxTreeCtrl, getNextChild, 2}}, + {2032, {wxTreeCtrl, getFirstVisibleItem, 0}}, + {2033, {wxTreeCtrl, getImageList, 0}}, + {2034, {wxTreeCtrl, getIndent, 0}}, + {2035, {wxTreeCtrl, getItemBackgroundColour, 1}}, + {2036, {wxTreeCtrl, getItemData, 1}}, + {2037, {wxTreeCtrl, getItemFont, 1}}, + {2038, {wxTreeCtrl, getItemImage_1, 1}}, + {2039, {wxTreeCtrl, getItemImage_2, 2}}, + {2040, {wxTreeCtrl, getItemText, 1}}, + {2041, {wxTreeCtrl, getItemTextColour, 1}}, + {2042, {wxTreeCtrl, getLastChild, 1}}, + {2043, {wxTreeCtrl, getNextSibling, 1}}, + {2044, {wxTreeCtrl, getNextVisible, 1}}, + {2045, {wxTreeCtrl, getItemParent, 1}}, + {2046, {wxTreeCtrl, getPrevSibling, 1}}, + {2047, {wxTreeCtrl, getPrevVisible, 1}}, + {2048, {wxTreeCtrl, getRootItem, 0}}, + {2049, {wxTreeCtrl, getSelection, 0}}, + {2050, {wxTreeCtrl, getSelections, 1}}, + {2051, {wxTreeCtrl, getStateImageList, 0}}, + {2052, {wxTreeCtrl, hitTest, 1}}, + {2054, {wxTreeCtrl, insertItem, 4}}, + {2055, {wxTreeCtrl, isBold, 1}}, + {2056, {wxTreeCtrl, isExpanded, 1}}, + {2057, {wxTreeCtrl, isSelected, 1}}, + {2058, {wxTreeCtrl, isVisible, 1}}, + {2059, {wxTreeCtrl, itemHasChildren, 1}}, + {2060, {wxTreeCtrl, prependItem, 3}}, + {2061, {wxTreeCtrl, scrollTo, 1}}, + {2062, {wxTreeCtrl, selectItem_1, 1}}, + {2063, {wxTreeCtrl, selectItem_2, 2}}, + {2064, {wxTreeCtrl, setIndent, 1}}, + {2065, {wxTreeCtrl, setImageList, 1}}, + {2066, {wxTreeCtrl, setItemBackgroundColour, 2}}, + {2067, {wxTreeCtrl, setItemBold, 2}}, + {2068, {wxTreeCtrl, setItemData, 2}}, + {2069, {wxTreeCtrl, setItemDropHighlight, 2}}, + {2070, {wxTreeCtrl, setItemFont, 2}}, + {2071, {wxTreeCtrl, setItemHasChildren, 2}}, + {2072, {wxTreeCtrl, setItemImage_2, 2}}, + {2073, {wxTreeCtrl, setItemImage_3, 3}}, + {2074, {wxTreeCtrl, setItemText, 2}}, + {2075, {wxTreeCtrl, setItemTextColour, 2}}, + {2076, {wxTreeCtrl, setStateImageList, 1}}, + {2077, {wxTreeCtrl, setWindowStyle, 1}}, + {2078, {wxTreeCtrl, sortChildren, 1}}, + {2079, {wxTreeCtrl, toggle, 1}}, + {2080, {wxTreeCtrl, toggleItemSelection, 1}}, + {2081, {wxTreeCtrl, unselect, 0}}, + {2082, {wxTreeCtrl, unselectAll, 0}}, + {2083, {wxTreeCtrl, unselectItem, 1}}, + {2084, {wxScrollBar, new_0, 0}}, + {2085, {wxScrollBar, new_3, 3}}, + {2086, {wxScrollBar, destruct, 0}}, + {2087, {wxScrollBar, create, 3}}, + {2088, {wxScrollBar, getRange, 0}}, + {2089, {wxScrollBar, getPageSize, 0}}, + {2090, {wxScrollBar, getThumbPosition, 0}}, + {2091, {wxScrollBar, getThumbSize, 0}}, + {2092, {wxScrollBar, setThumbPosition, 1}}, + {2093, {wxScrollBar, setScrollbar, 5}}, + {2095, {wxSpinButton, new_2, 2}}, + {2096, {wxSpinButton, new_0, 0}}, + {2097, {wxSpinButton, create, 2}}, + {2098, {wxSpinButton, getMax, 0}}, + {2099, {wxSpinButton, getMin, 0}}, + {2100, {wxSpinButton, getValue, 0}}, + {2101, {wxSpinButton, setRange, 2}}, + {2102, {wxSpinButton, setValue, 1}}, + {2103, {wxSpinButton, 'Destroy', undefined}}, + {2104, {wxSpinCtrl, new_0, 0}}, + {2105, {wxSpinCtrl, new_2, 2}}, + {2107, {wxSpinCtrl, create, 2}}, + {2110, {wxSpinCtrl, setValue_1_1, 1}}, + {2111, {wxSpinCtrl, setValue_1_0, 1}}, + {2113, {wxSpinCtrl, getValue, 0}}, + {2115, {wxSpinCtrl, setRange, 2}}, + {2116, {wxSpinCtrl, setSelection, 2}}, + {2118, {wxSpinCtrl, getMin, 0}}, + {2120, {wxSpinCtrl, getMax, 0}}, + {2121, {wxSpinCtrl, 'Destroy', undefined}}, + {2122, {wxStaticText, new_0, 0}}, + {2123, {wxStaticText, new_4, 4}}, + {2124, {wxStaticText, create, 4}}, + {2125, {wxStaticText, getLabel, 0}}, + {2126, {wxStaticText, setLabel, 1}}, + {2127, {wxStaticText, wrap, 1}}, + {2128, {wxStaticText, 'Destroy', undefined}}, + {2129, {wxStaticBitmap, new_0, 0}}, + {2130, {wxStaticBitmap, new_4, 4}}, + {2131, {wxStaticBitmap, create, 4}}, + {2132, {wxStaticBitmap, getBitmap, 0}}, + {2133, {wxStaticBitmap, setBitmap, 1}}, + {2134, {wxStaticBitmap, 'Destroy', undefined}}, + {2135, {wxRadioBox, new, 7}}, + {2137, {wxRadioBox, destruct, 0}}, + {2138, {wxRadioBox, create, 7}}, + {2139, {wxRadioBox, enable_2, 2}}, + {2140, {wxRadioBox, enable_1, 1}}, + {2141, {wxRadioBox, getSelection, 0}}, + {2142, {wxRadioBox, getString, 1}}, + {2143, {wxRadioBox, setSelection, 1}}, + {2144, {wxRadioBox, show_2, 2}}, + {2145, {wxRadioBox, show_1, 1}}, + {2146, {wxRadioBox, getColumnCount, 0}}, + {2147, {wxRadioBox, getItemHelpText, 1}}, + {2148, {wxRadioBox, getItemToolTip, 1}}, + {2150, {wxRadioBox, getItemFromPoint, 1}}, + {2151, {wxRadioBox, getRowCount, 0}}, + {2152, {wxRadioBox, isItemEnabled, 1}}, + {2153, {wxRadioBox, isItemShown, 1}}, + {2154, {wxRadioBox, setItemHelpText, 2}}, + {2155, {wxRadioBox, setItemToolTip, 2}}, + {2156, {wxRadioButton, new_0, 0}}, + {2157, {wxRadioButton, new_4, 4}}, + {2158, {wxRadioButton, create, 4}}, + {2159, {wxRadioButton, getValue, 0}}, + {2160, {wxRadioButton, setValue, 1}}, + {2161, {wxRadioButton, 'Destroy', undefined}}, + {2163, {wxSlider, new_6, 6}}, + {2164, {wxSlider, new_0, 0}}, + {2165, {wxSlider, create, 6}}, + {2166, {wxSlider, getLineSize, 0}}, + {2167, {wxSlider, getMax, 0}}, + {2168, {wxSlider, getMin, 0}}, + {2169, {wxSlider, getPageSize, 0}}, + {2170, {wxSlider, getThumbLength, 0}}, + {2171, {wxSlider, getValue, 0}}, + {2172, {wxSlider, setLineSize, 1}}, + {2173, {wxSlider, setPageSize, 1}}, + {2174, {wxSlider, setRange, 2}}, + {2175, {wxSlider, setThumbLength, 1}}, + {2176, {wxSlider, setValue, 1}}, + {2177, {wxSlider, 'Destroy', undefined}}, + {2179, {wxDialog, new_4, 4}}, + {2180, {wxDialog, new_0, 0}}, + {2182, {wxDialog, destruct, 0}}, + {2183, {wxDialog, create, 4}}, + {2184, {wxDialog, createButtonSizer, 1}}, + {2185, {wxDialog, createStdDialogButtonSizer, 1}}, + {2186, {wxDialog, endModal, 1}}, + {2187, {wxDialog, getAffirmativeId, 0}}, + {2188, {wxDialog, getReturnCode, 0}}, + {2189, {wxDialog, isModal, 0}}, + {2190, {wxDialog, setAffirmativeId, 1}}, + {2191, {wxDialog, setReturnCode, 1}}, + {2192, {wxDialog, show, 1}}, + {2193, {wxDialog, showModal, 0}}, + {2194, {wxColourDialog, new_0, 0}}, + {2195, {wxColourDialog, new_2, 2}}, + {2196, {wxColourDialog, destruct, 0}}, + {2197, {wxColourDialog, create, 2}}, + {2198, {wxColourDialog, getColourData, 0}}, + {2199, {wxColourData, new_0, 0}}, + {2200, {wxColourData, new_1, 1}}, + {2201, {wxColourData, destruct, 0}}, + {2202, {wxColourData, getChooseFull, 0}}, + {2203, {wxColourData, getColour, 0}}, + {2205, {wxColourData, getCustomColour, 1}}, + {2206, {wxColourData, setChooseFull, 1}}, + {2207, {wxColourData, setColour, 1}}, + {2208, {wxColourData, setCustomColour, 2}}, + {2209, {wxPalette, new_0, 0}}, + {2210, {wxPalette, new_4, 4}}, + {2212, {wxPalette, destruct, 0}}, + {2213, {wxPalette, create, 4}}, + {2214, {wxPalette, getColoursCount, 0}}, + {2215, {wxPalette, getPixel, 3}}, + {2216, {wxPalette, getRGB, 4}}, + {2217, {wxPalette, isOk, 0}}, + {2221, {wxDirDialog, new, 2}}, + {2222, {wxDirDialog, destruct, 0}}, + {2223, {wxDirDialog, getPath, 0}}, + {2224, {wxDirDialog, getMessage, 0}}, + {2225, {wxDirDialog, setMessage, 1}}, + {2226, {wxDirDialog, setPath, 1}}, + {2230, {wxFileDialog, new, 2}}, + {2231, {wxFileDialog, destruct, 0}}, + {2232, {wxFileDialog, getDirectory, 0}}, + {2233, {wxFileDialog, getFilename, 0}}, + {2234, {wxFileDialog, getFilenames, 1}}, + {2235, {wxFileDialog, getFilterIndex, 0}}, + {2236, {wxFileDialog, getMessage, 0}}, + {2237, {wxFileDialog, getPath, 0}}, + {2238, {wxFileDialog, getPaths, 1}}, + {2239, {wxFileDialog, getWildcard, 0}}, + {2240, {wxFileDialog, setDirectory, 1}}, + {2241, {wxFileDialog, setFilename, 1}}, + {2242, {wxFileDialog, setFilterIndex, 1}}, + {2243, {wxFileDialog, setMessage, 1}}, + {2244, {wxFileDialog, setPath, 1}}, + {2245, {wxFileDialog, setWildcard, 1}}, + {2246, {wxPickerBase, setInternalMargin, 1}}, + {2247, {wxPickerBase, getInternalMargin, 0}}, + {2248, {wxPickerBase, setTextCtrlProportion, 1}}, + {2249, {wxPickerBase, setPickerCtrlProportion, 1}}, + {2250, {wxPickerBase, getTextCtrlProportion, 0}}, + {2251, {wxPickerBase, getPickerCtrlProportion, 0}}, + {2252, {wxPickerBase, hasTextCtrl, 0}}, + {2253, {wxPickerBase, getTextCtrl, 0}}, + {2254, {wxPickerBase, isTextCtrlGrowable, 0}}, + {2255, {wxPickerBase, setPickerCtrlGrowable, 1}}, + {2256, {wxPickerBase, setTextCtrlGrowable, 1}}, + {2257, {wxPickerBase, isPickerCtrlGrowable, 0}}, + {2258, {wxFilePickerCtrl, new_0, 0}}, + {2259, {wxFilePickerCtrl, new_3, 3}}, + {2260, {wxFilePickerCtrl, create, 3}}, + {2261, {wxFilePickerCtrl, getPath, 0}}, + {2262, {wxFilePickerCtrl, setPath, 1}}, + {2263, {wxFilePickerCtrl, 'Destroy', undefined}}, + {2264, {wxDirPickerCtrl, new_0, 0}}, + {2265, {wxDirPickerCtrl, new_3, 3}}, + {2266, {wxDirPickerCtrl, create, 3}}, + {2267, {wxDirPickerCtrl, getPath, 0}}, + {2268, {wxDirPickerCtrl, setPath, 1}}, + {2269, {wxDirPickerCtrl, 'Destroy', undefined}}, + {2270, {wxColourPickerCtrl, new_0, 0}}, + {2271, {wxColourPickerCtrl, new_3, 3}}, + {2272, {wxColourPickerCtrl, create, 3}}, + {2273, {wxColourPickerCtrl, getColour, 0}}, + {2274, {wxColourPickerCtrl, setColour_1_1, 1}}, + {2275, {wxColourPickerCtrl, setColour_1_0, 1}}, + {2276, {wxColourPickerCtrl, 'Destroy', undefined}}, + {2277, {wxDatePickerCtrl, new_0, 0}}, + {2278, {wxDatePickerCtrl, new_3, 3}}, + {2279, {wxDatePickerCtrl, getRange, 2}}, + {2280, {wxDatePickerCtrl, getValue, 0}}, + {2281, {wxDatePickerCtrl, setRange, 2}}, + {2282, {wxDatePickerCtrl, setValue, 1}}, + {2283, {wxDatePickerCtrl, 'Destroy', undefined}}, + {2284, {wxFontPickerCtrl, new_0, 0}}, + {2285, {wxFontPickerCtrl, new_3, 3}}, + {2286, {wxFontPickerCtrl, create, 3}}, + {2287, {wxFontPickerCtrl, getSelectedFont, 0}}, + {2288, {wxFontPickerCtrl, setSelectedFont, 1}}, + {2289, {wxFontPickerCtrl, getMaxPointSize, 0}}, + {2290, {wxFontPickerCtrl, setMaxPointSize, 1}}, + {2291, {wxFontPickerCtrl, 'Destroy', undefined}}, + {2294, {wxFindReplaceDialog, new_0, 0}}, + {2295, {wxFindReplaceDialog, new_4, 4}}, + {2296, {wxFindReplaceDialog, destruct, 0}}, + {2297, {wxFindReplaceDialog, create, 4}}, + {2298, {wxFindReplaceDialog, getData, 0}}, + {2299, {wxFindReplaceData, new_0, 0}}, + {2300, {wxFindReplaceData, new_1, 1}}, + {2301, {wxFindReplaceData, getFindString, 0}}, + {2302, {wxFindReplaceData, getReplaceString, 0}}, + {2303, {wxFindReplaceData, getFlags, 0}}, + {2304, {wxFindReplaceData, setFlags, 1}}, + {2305, {wxFindReplaceData, setFindString, 1}}, + {2306, {wxFindReplaceData, setReplaceString, 1}}, + {2307, {wxFindReplaceData, 'Destroy', undefined}}, + {2308, {wxMultiChoiceDialog, new_0, 0}}, + {2310, {wxMultiChoiceDialog, new_5, 5}}, + {2311, {wxMultiChoiceDialog, getSelections, 0}}, + {2312, {wxMultiChoiceDialog, setSelections, 1}}, + {2313, {wxMultiChoiceDialog, 'Destroy', undefined}}, + {2314, {wxSingleChoiceDialog, new_0, 0}}, + {2316, {wxSingleChoiceDialog, new_5, 5}}, + {2317, {wxSingleChoiceDialog, getSelection, 0}}, + {2318, {wxSingleChoiceDialog, getStringSelection, 0}}, + {2319, {wxSingleChoiceDialog, setSelection, 1}}, + {2320, {wxSingleChoiceDialog, 'Destroy', undefined}}, + {2321, {wxTextEntryDialog, new, 3}}, + {2322, {wxTextEntryDialog, getValue, 0}}, + {2323, {wxTextEntryDialog, setValue, 1}}, + {2324, {wxTextEntryDialog, 'Destroy', undefined}}, + {2325, {wxPasswordEntryDialog, new, 3}}, + {2326, {wxPasswordEntryDialog, 'Destroy', undefined}}, + {2327, {wxFontData, new_0, 0}}, + {2328, {wxFontData, new_1, 1}}, + {2329, {wxFontData, destruct, 0}}, + {2330, {wxFontData, enableEffects, 1}}, + {2331, {wxFontData, getAllowSymbols, 0}}, + {2332, {wxFontData, getColour, 0}}, + {2333, {wxFontData, getChosenFont, 0}}, + {2334, {wxFontData, getEnableEffects, 0}}, + {2335, {wxFontData, getInitialFont, 0}}, + {2336, {wxFontData, getShowHelp, 0}}, + {2337, {wxFontData, setAllowSymbols, 1}}, + {2338, {wxFontData, setChosenFont, 1}}, + {2339, {wxFontData, setColour, 1}}, + {2340, {wxFontData, setInitialFont, 1}}, + {2341, {wxFontData, setRange, 2}}, + {2342, {wxFontData, setShowHelp, 1}}, + {2346, {wxFontDialog, new_0, 0}}, + {2348, {wxFontDialog, new_2, 2}}, + {2350, {wxFontDialog, create, 2}}, + {2351, {wxFontDialog, getFontData, 0}}, + {2353, {wxFontDialog, 'Destroy', undefined}}, + {2354, {wxProgressDialog, new, 3}}, + {2355, {wxProgressDialog, destruct, 0}}, + {2356, {wxProgressDialog, resume, 0}}, + {2357, {wxProgressDialog, update_2, 2}}, + {2358, {wxProgressDialog, update_0, 0}}, + {2359, {wxMessageDialog, new, 3}}, + {2360, {wxMessageDialog, destruct, 0}}, + {2361, {wxPageSetupDialog, new, 2}}, + {2362, {wxPageSetupDialog, destruct, 0}}, + {2363, {wxPageSetupDialog, getPageSetupData, 0}}, + {2364, {wxPageSetupDialog, showModal, 0}}, + {2365, {wxPageSetupDialogData, new_0, 0}}, + {2366, {wxPageSetupDialogData, new_1_0, 1}}, + {2367, {wxPageSetupDialogData, new_1_1, 1}}, + {2368, {wxPageSetupDialogData, destruct, 0}}, + {2369, {wxPageSetupDialogData, enableHelp, 1}}, + {2370, {wxPageSetupDialogData, enableMargins, 1}}, + {2371, {wxPageSetupDialogData, enableOrientation, 1}}, + {2372, {wxPageSetupDialogData, enablePaper, 1}}, + {2373, {wxPageSetupDialogData, enablePrinter, 1}}, + {2374, {wxPageSetupDialogData, getDefaultMinMargins, 0}}, + {2375, {wxPageSetupDialogData, getEnableMargins, 0}}, + {2376, {wxPageSetupDialogData, getEnableOrientation, 0}}, + {2377, {wxPageSetupDialogData, getEnablePaper, 0}}, + {2378, {wxPageSetupDialogData, getEnablePrinter, 0}}, + {2379, {wxPageSetupDialogData, getEnableHelp, 0}}, + {2380, {wxPageSetupDialogData, getDefaultInfo, 0}}, + {2381, {wxPageSetupDialogData, getMarginTopLeft, 0}}, + {2382, {wxPageSetupDialogData, getMarginBottomRight, 0}}, + {2383, {wxPageSetupDialogData, getMinMarginTopLeft, 0}}, + {2384, {wxPageSetupDialogData, getMinMarginBottomRight, 0}}, + {2385, {wxPageSetupDialogData, getPaperId, 0}}, + {2386, {wxPageSetupDialogData, getPaperSize, 0}}, + {2388, {wxPageSetupDialogData, getPrintData, 0}}, + {2389, {wxPageSetupDialogData, isOk, 0}}, + {2390, {wxPageSetupDialogData, setDefaultInfo, 1}}, + {2391, {wxPageSetupDialogData, setDefaultMinMargins, 1}}, + {2392, {wxPageSetupDialogData, setMarginTopLeft, 1}}, + {2393, {wxPageSetupDialogData, setMarginBottomRight, 1}}, + {2394, {wxPageSetupDialogData, setMinMarginTopLeft, 1}}, + {2395, {wxPageSetupDialogData, setMinMarginBottomRight, 1}}, + {2396, {wxPageSetupDialogData, setPaperId, 1}}, + {2397, {wxPageSetupDialogData, setPaperSize_1_1, 1}}, + {2398, {wxPageSetupDialogData, setPaperSize_1_0, 1}}, + {2399, {wxPageSetupDialogData, setPrintData, 1}}, + {2400, {wxPrintDialog, new_2_0, 2}}, + {2401, {wxPrintDialog, new_2_1, 2}}, + {2402, {wxPrintDialog, destruct, 0}}, + {2403, {wxPrintDialog, getPrintDialogData, 0}}, + {2404, {wxPrintDialog, getPrintDC, 0}}, + {2405, {wxPrintDialogData, new_0, 0}}, + {2406, {wxPrintDialogData, new_1_1, 1}}, + {2407, {wxPrintDialogData, new_1_0, 1}}, + {2408, {wxPrintDialogData, destruct, 0}}, + {2409, {wxPrintDialogData, enableHelp, 1}}, + {2410, {wxPrintDialogData, enablePageNumbers, 1}}, + {2411, {wxPrintDialogData, enablePrintToFile, 1}}, + {2412, {wxPrintDialogData, enableSelection, 1}}, + {2413, {wxPrintDialogData, getAllPages, 0}}, + {2414, {wxPrintDialogData, getCollate, 0}}, + {2415, {wxPrintDialogData, getFromPage, 0}}, + {2416, {wxPrintDialogData, getMaxPage, 0}}, + {2417, {wxPrintDialogData, getMinPage, 0}}, + {2418, {wxPrintDialogData, getNoCopies, 0}}, + {2419, {wxPrintDialogData, getPrintData, 0}}, + {2420, {wxPrintDialogData, getPrintToFile, 0}}, + {2421, {wxPrintDialogData, getSelection, 0}}, + {2422, {wxPrintDialogData, getToPage, 0}}, + {2423, {wxPrintDialogData, isOk, 0}}, + {2424, {wxPrintDialogData, setCollate, 1}}, + {2425, {wxPrintDialogData, setFromPage, 1}}, + {2426, {wxPrintDialogData, setMaxPage, 1}}, + {2427, {wxPrintDialogData, setMinPage, 1}}, + {2428, {wxPrintDialogData, setNoCopies, 1}}, + {2429, {wxPrintDialogData, setPrintData, 1}}, + {2430, {wxPrintDialogData, setPrintToFile, 1}}, + {2431, {wxPrintDialogData, setSelection, 1}}, + {2432, {wxPrintDialogData, setToPage, 1}}, + {2433, {wxPrintData, new_0, 0}}, + {2434, {wxPrintData, new_1, 1}}, + {2435, {wxPrintData, destruct, 0}}, + {2436, {wxPrintData, getCollate, 0}}, + {2437, {wxPrintData, getBin, 0}}, + {2438, {wxPrintData, getColour, 0}}, + {2439, {wxPrintData, getDuplex, 0}}, + {2440, {wxPrintData, getNoCopies, 0}}, + {2441, {wxPrintData, getOrientation, 0}}, + {2442, {wxPrintData, getPaperId, 0}}, + {2443, {wxPrintData, getPrinterName, 0}}, + {2444, {wxPrintData, getQuality, 0}}, + {2445, {wxPrintData, isOk, 0}}, + {2446, {wxPrintData, setBin, 1}}, + {2447, {wxPrintData, setCollate, 1}}, + {2448, {wxPrintData, setColour, 1}}, + {2449, {wxPrintData, setDuplex, 1}}, + {2450, {wxPrintData, setNoCopies, 1}}, + {2451, {wxPrintData, setOrientation, 1}}, + {2452, {wxPrintData, setPaperId, 1}}, + {2453, {wxPrintData, setPrinterName, 1}}, + {2454, {wxPrintData, setQuality, 1}}, + {2457, {wxPrintPreview, new_2, 2}}, + {2458, {wxPrintPreview, new_3, 3}}, + {2460, {wxPrintPreview, destruct, 0}}, + {2461, {wxPrintPreview, getCanvas, 0}}, + {2462, {wxPrintPreview, getCurrentPage, 0}}, + {2463, {wxPrintPreview, getFrame, 0}}, + {2464, {wxPrintPreview, getMaxPage, 0}}, + {2465, {wxPrintPreview, getMinPage, 0}}, + {2466, {wxPrintPreview, getPrintout, 0}}, + {2467, {wxPrintPreview, getPrintoutForPrinting, 0}}, + {2468, {wxPrintPreview, isOk, 0}}, + {2469, {wxPrintPreview, paintPage, 2}}, + {2470, {wxPrintPreview, print, 1}}, + {2471, {wxPrintPreview, renderPage, 1}}, + {2472, {wxPrintPreview, setCanvas, 1}}, + {2473, {wxPrintPreview, setCurrentPage, 1}}, + {2474, {wxPrintPreview, setFrame, 1}}, + {2475, {wxPrintPreview, setPrintout, 1}}, + {2476, {wxPrintPreview, setZoom, 1}}, + {2477, {wxPreviewFrame, new, 3}}, + {2478, {wxPreviewFrame, destruct, 0}}, + {2479, {wxPreviewFrame, createControlBar, 0}}, + {2480, {wxPreviewFrame, createCanvas, 0}}, + {2481, {wxPreviewFrame, initialize, 0}}, + {2482, {wxPreviewFrame, onCloseWindow, 1}}, + {2483, {wxPreviewControlBar, new, 4}}, + {2484, {wxPreviewControlBar, destruct, 0}}, + {2485, {wxPreviewControlBar, createButtons, 0}}, + {2486, {wxPreviewControlBar, getPrintPreview, 0}}, + {2487, {wxPreviewControlBar, getZoomControl, 0}}, + {2488, {wxPreviewControlBar, setZoomControl, 1}}, + {2490, {wxPrinter, new, 1}}, + {2491, {wxPrinter, createAbortWindow, 2}}, + {2492, {wxPrinter, getAbort, 0}}, + {2493, {wxPrinter, getLastError, 0}}, + {2494, {wxPrinter, getPrintDialogData, 0}}, + {2495, {wxPrinter, print, 3}}, + {2496, {wxPrinter, printDialog, 1}}, + {2497, {wxPrinter, reportError, 3}}, + {2498, {wxPrinter, setup, 1}}, + {2499, {wxPrinter, 'Destroy', undefined}}, + {2500, {wxXmlResource, new_1, 1}}, + {2501, {wxXmlResource, new_2, 2}}, + {2502, {wxXmlResource, destruct, 0}}, + {2503, {wxXmlResource, attachUnknownControl, 3}}, + {2504, {wxXmlResource, clearHandlers, 0}}, + {2505, {wxXmlResource, compareVersion, 4}}, + {2506, {wxXmlResource, get, 0}}, + {2507, {wxXmlResource, getFlags, 0}}, + {2508, {wxXmlResource, getVersion, 0}}, + {2509, {wxXmlResource, getXRCID, 2}}, + {2510, {wxXmlResource, initAllHandlers, 0}}, + {2511, {wxXmlResource, load, 1}}, + {2512, {wxXmlResource, loadBitmap, 1}}, + {2513, {wxXmlResource, loadDialog_2, 2}}, + {2514, {wxXmlResource, loadDialog_3, 3}}, + {2515, {wxXmlResource, loadFrame_2, 2}}, + {2516, {wxXmlResource, loadFrame_3, 3}}, + {2517, {wxXmlResource, loadIcon, 1}}, + {2518, {wxXmlResource, loadMenu, 1}}, + {2519, {wxXmlResource, loadMenuBar_2, 2}}, + {2520, {wxXmlResource, loadMenuBar_1, 1}}, + {2521, {wxXmlResource, loadPanel_2, 2}}, + {2522, {wxXmlResource, loadPanel_3, 3}}, + {2523, {wxXmlResource, loadToolBar, 2}}, + {2524, {wxXmlResource, set, 1}}, + {2525, {wxXmlResource, setFlags, 1}}, + {2526, {wxXmlResource, unload, 1}}, + {2527, {wxXmlResource, xrcctrl, 3}}, + {2528, {wxHtmlEasyPrinting, new, 1}}, + {2529, {wxHtmlEasyPrinting, destruct, 0}}, + {2530, {wxHtmlEasyPrinting, getPrintData, 0}}, + {2531, {wxHtmlEasyPrinting, getPageSetupData, 0}}, + {2532, {wxHtmlEasyPrinting, previewFile, 1}}, + {2533, {wxHtmlEasyPrinting, previewText, 2}}, + {2534, {wxHtmlEasyPrinting, printFile, 1}}, + {2535, {wxHtmlEasyPrinting, printText, 2}}, + {2536, {wxHtmlEasyPrinting, pageSetup, 0}}, + {2537, {wxHtmlEasyPrinting, setFonts, 3}}, + {2538, {wxHtmlEasyPrinting, setHeader, 2}}, + {2539, {wxHtmlEasyPrinting, setFooter, 2}}, + {2541, {wxGLCanvas, new_2, 2}}, + {2542, {wxGLCanvas, new_3_1, 3}}, + {2543, {wxGLCanvas, new_3_0, 3}}, + {2544, {wxGLCanvas, getContext, 0}}, + {2546, {wxGLCanvas, setCurrent, 0}}, + {2547, {wxGLCanvas, swapBuffers, 0}}, + {2548, {wxGLCanvas, 'Destroy', undefined}}, + {2549, {wxAuiManager, new, 1}}, + {2550, {wxAuiManager, destruct, 0}}, + {2551, {wxAuiManager, addPane_2_1, 2}}, + {2552, {wxAuiManager, addPane_3, 3}}, + {2553, {wxAuiManager, addPane_2_0, 2}}, + {2554, {wxAuiManager, detachPane, 1}}, + {2555, {wxAuiManager, getAllPanes, 0}}, + {2556, {wxAuiManager, getArtProvider, 0}}, + {2557, {wxAuiManager, getDockSizeConstraint, 2}}, + {2558, {wxAuiManager, getFlags, 0}}, + {2559, {wxAuiManager, getManagedWindow, 0}}, + {2560, {wxAuiManager, getManager, 1}}, + {2561, {wxAuiManager, getPane_1_1, 1}}, + {2562, {wxAuiManager, getPane_1_0, 1}}, + {2563, {wxAuiManager, hideHint, 0}}, + {2564, {wxAuiManager, insertPane, 3}}, + {2565, {wxAuiManager, loadPaneInfo, 2}}, + {2566, {wxAuiManager, loadPerspective, 2}}, + {2567, {wxAuiManager, savePaneInfo, 1}}, + {2568, {wxAuiManager, savePerspective, 0}}, + {2569, {wxAuiManager, setArtProvider, 1}}, + {2570, {wxAuiManager, setDockSizeConstraint, 2}}, + {2571, {wxAuiManager, setFlags, 1}}, + {2572, {wxAuiManager, setManagedWindow, 1}}, + {2573, {wxAuiManager, showHint, 1}}, + {2574, {wxAuiManager, unInit, 0}}, + {2575, {wxAuiManager, update, 0}}, + {2576, {wxAuiPaneInfo, new_0, 0}}, + {2577, {wxAuiPaneInfo, new_1, 1}}, + {2578, {wxAuiPaneInfo, destruct, 0}}, + {2579, {wxAuiPaneInfo, bestSize_1, 1}}, + {2580, {wxAuiPaneInfo, bestSize_2, 2}}, + {2581, {wxAuiPaneInfo, bottom, 0}}, + {2582, {wxAuiPaneInfo, bottomDockable, 1}}, + {2583, {wxAuiPaneInfo, caption, 1}}, + {2584, {wxAuiPaneInfo, captionVisible, 1}}, + {2585, {wxAuiPaneInfo, centre, 0}}, + {2586, {wxAuiPaneInfo, centrePane, 0}}, + {2587, {wxAuiPaneInfo, closeButton, 1}}, + {2588, {wxAuiPaneInfo, defaultPane, 0}}, + {2589, {wxAuiPaneInfo, destroyOnClose, 1}}, + {2590, {wxAuiPaneInfo, direction, 1}}, + {2591, {wxAuiPaneInfo, dock, 0}}, + {2592, {wxAuiPaneInfo, dockable, 1}}, + {2593, {wxAuiPaneInfo, fixed, 0}}, + {2594, {wxAuiPaneInfo, float, 0}}, + {2595, {wxAuiPaneInfo, floatable, 1}}, + {2596, {wxAuiPaneInfo, floatingPosition_1, 1}}, + {2597, {wxAuiPaneInfo, floatingPosition_2, 2}}, + {2598, {wxAuiPaneInfo, floatingSize_1, 1}}, + {2599, {wxAuiPaneInfo, floatingSize_2, 2}}, + {2600, {wxAuiPaneInfo, gripper, 1}}, + {2601, {wxAuiPaneInfo, gripperTop, 1}}, + {2602, {wxAuiPaneInfo, hasBorder, 0}}, + {2603, {wxAuiPaneInfo, hasCaption, 0}}, + {2604, {wxAuiPaneInfo, hasCloseButton, 0}}, + {2605, {wxAuiPaneInfo, hasFlag, 1}}, + {2606, {wxAuiPaneInfo, hasGripper, 0}}, + {2607, {wxAuiPaneInfo, hasGripperTop, 0}}, + {2608, {wxAuiPaneInfo, hasMaximizeButton, 0}}, + {2609, {wxAuiPaneInfo, hasMinimizeButton, 0}}, + {2610, {wxAuiPaneInfo, hasPinButton, 0}}, + {2611, {wxAuiPaneInfo, hide, 0}}, + {2612, {wxAuiPaneInfo, isBottomDockable, 0}}, + {2613, {wxAuiPaneInfo, isDocked, 0}}, + {2614, {wxAuiPaneInfo, isFixed, 0}}, + {2615, {wxAuiPaneInfo, isFloatable, 0}}, + {2616, {wxAuiPaneInfo, isFloating, 0}}, + {2617, {wxAuiPaneInfo, isLeftDockable, 0}}, + {2618, {wxAuiPaneInfo, isMovable, 0}}, + {2619, {wxAuiPaneInfo, isOk, 0}}, + {2620, {wxAuiPaneInfo, isResizable, 0}}, + {2621, {wxAuiPaneInfo, isRightDockable, 0}}, + {2622, {wxAuiPaneInfo, isShown, 0}}, + {2623, {wxAuiPaneInfo, isToolbar, 0}}, + {2624, {wxAuiPaneInfo, isTopDockable, 0}}, + {2625, {wxAuiPaneInfo, layer, 1}}, + {2626, {wxAuiPaneInfo, left, 0}}, + {2627, {wxAuiPaneInfo, leftDockable, 1}}, + {2628, {wxAuiPaneInfo, maxSize_1, 1}}, + {2629, {wxAuiPaneInfo, maxSize_2, 2}}, + {2630, {wxAuiPaneInfo, maximizeButton, 1}}, + {2631, {wxAuiPaneInfo, minSize_1, 1}}, + {2632, {wxAuiPaneInfo, minSize_2, 2}}, + {2633, {wxAuiPaneInfo, minimizeButton, 1}}, + {2634, {wxAuiPaneInfo, movable, 1}}, + {2635, {wxAuiPaneInfo, name, 1}}, + {2636, {wxAuiPaneInfo, paneBorder, 1}}, + {2637, {wxAuiPaneInfo, pinButton, 1}}, + {2638, {wxAuiPaneInfo, position, 1}}, + {2639, {wxAuiPaneInfo, resizable, 1}}, + {2640, {wxAuiPaneInfo, right, 0}}, + {2641, {wxAuiPaneInfo, rightDockable, 1}}, + {2642, {wxAuiPaneInfo, row, 1}}, + {2643, {wxAuiPaneInfo, safeSet, 1}}, + {2644, {wxAuiPaneInfo, setFlag, 2}}, + {2645, {wxAuiPaneInfo, show, 1}}, + {2646, {wxAuiPaneInfo, toolbarPane, 0}}, + {2647, {wxAuiPaneInfo, top, 0}}, + {2648, {wxAuiPaneInfo, topDockable, 1}}, + {2649, {wxAuiPaneInfo, window, 1}}, + {2650, {wxAuiNotebook, new_0, 0}}, + {2651, {wxAuiNotebook, new_2, 2}}, + {2652, {wxAuiNotebook, addPage, 3}}, + {2653, {wxAuiNotebook, create, 2}}, + {2654, {wxAuiNotebook, deletePage, 1}}, + {2655, {wxAuiNotebook, getArtProvider, 0}}, + {2656, {wxAuiNotebook, getPage, 1}}, + {2657, {wxAuiNotebook, getPageBitmap, 1}}, + {2658, {wxAuiNotebook, getPageCount, 0}}, + {2659, {wxAuiNotebook, getPageIndex, 1}}, + {2660, {wxAuiNotebook, getPageText, 1}}, + {2661, {wxAuiNotebook, getSelection, 0}}, + {2662, {wxAuiNotebook, insertPage, 4}}, + {2663, {wxAuiNotebook, removePage, 1}}, + {2664, {wxAuiNotebook, setArtProvider, 1}}, + {2665, {wxAuiNotebook, setFont, 1}}, + {2666, {wxAuiNotebook, setPageBitmap, 2}}, + {2667, {wxAuiNotebook, setPageText, 2}}, + {2668, {wxAuiNotebook, setSelection, 1}}, + {2669, {wxAuiNotebook, setTabCtrlHeight, 1}}, + {2670, {wxAuiNotebook, setUniformBitmapSize, 1}}, + {2671, {wxAuiNotebook, 'Destroy', undefined}}, + {2672, {wxMDIParentFrame, new_0, 0}}, + {2673, {wxMDIParentFrame, new_4, 4}}, + {2674, {wxMDIParentFrame, destruct, 0}}, + {2675, {wxMDIParentFrame, activateNext, 0}}, + {2676, {wxMDIParentFrame, activatePrevious, 0}}, + {2677, {wxMDIParentFrame, arrangeIcons, 0}}, + {2678, {wxMDIParentFrame, cascade, 0}}, + {2679, {wxMDIParentFrame, create, 4}}, + {2680, {wxMDIParentFrame, getActiveChild, 0}}, + {2681, {wxMDIParentFrame, getClientWindow, 0}}, + {2682, {wxMDIParentFrame, tile, 1}}, + {2683, {wxMDIChildFrame, new_0, 0}}, + {2684, {wxMDIChildFrame, new_4, 4}}, + {2685, {wxMDIChildFrame, destruct, 0}}, + {2686, {wxMDIChildFrame, activate, 0}}, + {2687, {wxMDIChildFrame, create, 4}}, + {2688, {wxMDIChildFrame, maximize, 1}}, + {2689, {wxMDIChildFrame, restore, 0}}, + {2690, {wxMDIClientWindow, new_0, 0}}, + {2691, {wxMDIClientWindow, new_2, 2}}, + {2692, {wxMDIClientWindow, destruct, 0}}, + {2693, {wxMDIClientWindow, createClient, 2}}, + {2694, {wxLayoutAlgorithm, new, 0}}, + {2695, {wxLayoutAlgorithm, layoutFrame, 2}}, + {2696, {wxLayoutAlgorithm, layoutMDIFrame, 2}}, + {2697, {wxLayoutAlgorithm, layoutWindow, 2}}, + {2698, {wxLayoutAlgorithm, 'Destroy', undefined}}, + {2699, {wxEvent, getId, 0}}, + {2700, {wxEvent, getSkipped, 0}}, + {2701, {wxEvent, getTimestamp, 0}}, + {2702, {wxEvent, isCommandEvent, 0}}, + {2703, {wxEvent, resumePropagation, 1}}, + {2704, {wxEvent, shouldPropagate, 0}}, + {2705, {wxEvent, skip, 1}}, + {2706, {wxEvent, stopPropagation, 0}}, + {2707, {wxCommandEvent, getClientData, 0}}, + {2708, {wxCommandEvent, getExtraLong, 0}}, + {2709, {wxCommandEvent, getInt, 0}}, + {2710, {wxCommandEvent, getSelection, 0}}, + {2711, {wxCommandEvent, getString, 0}}, + {2712, {wxCommandEvent, isChecked, 0}}, + {2713, {wxCommandEvent, isSelection, 0}}, + {2714, {wxCommandEvent, setInt, 1}}, + {2715, {wxCommandEvent, setString, 1}}, + {2716, {wxScrollEvent, getOrientation, 0}}, + {2717, {wxScrollEvent, getPosition, 0}}, + {2718, {wxScrollWinEvent, getOrientation, 0}}, + {2719, {wxScrollWinEvent, getPosition, 0}}, + {2720, {wxMouseEvent, altDown, 0}}, + {2721, {wxMouseEvent, button, 1}}, + {2722, {wxMouseEvent, buttonDClick, 1}}, + {2723, {wxMouseEvent, buttonDown, 1}}, + {2724, {wxMouseEvent, buttonUp, 1}}, + {2725, {wxMouseEvent, cmdDown, 0}}, + {2726, {wxMouseEvent, controlDown, 0}}, + {2727, {wxMouseEvent, dragging, 0}}, + {2728, {wxMouseEvent, entering, 0}}, + {2729, {wxMouseEvent, getButton, 0}}, + {2732, {wxMouseEvent, getPosition, 0}}, + {2733, {wxMouseEvent, getLogicalPosition, 1}}, + {2734, {wxMouseEvent, getLinesPerAction, 0}}, + {2735, {wxMouseEvent, getWheelRotation, 0}}, + {2736, {wxMouseEvent, getWheelDelta, 0}}, + {2737, {wxMouseEvent, getX, 0}}, + {2738, {wxMouseEvent, getY, 0}}, + {2739, {wxMouseEvent, isButton, 0}}, + {2740, {wxMouseEvent, isPageScroll, 0}}, + {2741, {wxMouseEvent, leaving, 0}}, + {2742, {wxMouseEvent, leftDClick, 0}}, + {2743, {wxMouseEvent, leftDown, 0}}, + {2744, {wxMouseEvent, leftIsDown, 0}}, + {2745, {wxMouseEvent, leftUp, 0}}, + {2746, {wxMouseEvent, metaDown, 0}}, + {2747, {wxMouseEvent, middleDClick, 0}}, + {2748, {wxMouseEvent, middleDown, 0}}, + {2749, {wxMouseEvent, middleIsDown, 0}}, + {2750, {wxMouseEvent, middleUp, 0}}, + {2751, {wxMouseEvent, moving, 0}}, + {2752, {wxMouseEvent, rightDClick, 0}}, + {2753, {wxMouseEvent, rightDown, 0}}, + {2754, {wxMouseEvent, rightIsDown, 0}}, + {2755, {wxMouseEvent, rightUp, 0}}, + {2756, {wxMouseEvent, shiftDown, 0}}, + {2757, {wxSetCursorEvent, getCursor, 0}}, + {2758, {wxSetCursorEvent, getX, 0}}, + {2759, {wxSetCursorEvent, getY, 0}}, + {2760, {wxSetCursorEvent, hasCursor, 0}}, + {2761, {wxSetCursorEvent, setCursor, 1}}, + {2762, {wxKeyEvent, altDown, 0}}, + {2763, {wxKeyEvent, cmdDown, 0}}, + {2764, {wxKeyEvent, controlDown, 0}}, + {2765, {wxKeyEvent, getKeyCode, 0}}, + {2766, {wxKeyEvent, getModifiers, 0}}, + {2769, {wxKeyEvent, getPosition, 0}}, + {2770, {wxKeyEvent, getRawKeyCode, 0}}, + {2771, {wxKeyEvent, getRawKeyFlags, 0}}, + {2772, {wxKeyEvent, getUnicodeKey, 0}}, + {2773, {wxKeyEvent, getX, 0}}, + {2774, {wxKeyEvent, getY, 0}}, + {2775, {wxKeyEvent, hasModifiers, 0}}, + {2776, {wxKeyEvent, metaDown, 0}}, + {2777, {wxKeyEvent, shiftDown, 0}}, + {2778, {wxSizeEvent, getSize, 0}}, + {2779, {wxMoveEvent, getPosition, 0}}, + {2780, {wxEraseEvent, getDC, 0}}, + {2781, {wxFocusEvent, getWindow, 0}}, + {2782, {wxChildFocusEvent, getWindow, 0}}, + {2783, {wxMenuEvent, getMenu, 0}}, + {2784, {wxMenuEvent, getMenuId, 0}}, + {2785, {wxMenuEvent, isPopup, 0}}, + {2786, {wxCloseEvent, canVeto, 0}}, + {2787, {wxCloseEvent, getLoggingOff, 0}}, + {2788, {wxCloseEvent, setCanVeto, 1}}, + {2789, {wxCloseEvent, setLoggingOff, 1}}, + {2790, {wxCloseEvent, veto, 1}}, + {2791, {wxShowEvent, setShow, 1}}, + {2792, {wxShowEvent, getShow, 0}}, + {2793, {wxIconizeEvent, iconized, 0}}, + {2794, {wxJoystickEvent, buttonDown, 1}}, + {2795, {wxJoystickEvent, buttonIsDown, 1}}, + {2796, {wxJoystickEvent, buttonUp, 1}}, + {2797, {wxJoystickEvent, getButtonChange, 0}}, + {2798, {wxJoystickEvent, getButtonState, 0}}, + {2799, {wxJoystickEvent, getJoystick, 0}}, + {2800, {wxJoystickEvent, getPosition, 0}}, + {2801, {wxJoystickEvent, getZPosition, 0}}, + {2802, {wxJoystickEvent, isButton, 0}}, + {2803, {wxJoystickEvent, isMove, 0}}, + {2804, {wxJoystickEvent, isZMove, 0}}, + {2805, {wxUpdateUIEvent, canUpdate, 1}}, + {2806, {wxUpdateUIEvent, check, 1}}, + {2807, {wxUpdateUIEvent, enable, 1}}, + {2808, {wxUpdateUIEvent, show, 1}}, + {2809, {wxUpdateUIEvent, getChecked, 0}}, + {2810, {wxUpdateUIEvent, getEnabled, 0}}, + {2811, {wxUpdateUIEvent, getShown, 0}}, + {2812, {wxUpdateUIEvent, getSetChecked, 0}}, + {2813, {wxUpdateUIEvent, getSetEnabled, 0}}, + {2814, {wxUpdateUIEvent, getSetShown, 0}}, + {2815, {wxUpdateUIEvent, getSetText, 0}}, + {2816, {wxUpdateUIEvent, getText, 0}}, + {2817, {wxUpdateUIEvent, getMode, 0}}, + {2818, {wxUpdateUIEvent, getUpdateInterval, 0}}, + {2819, {wxUpdateUIEvent, resetUpdateTime, 0}}, + {2820, {wxUpdateUIEvent, setMode, 1}}, + {2821, {wxUpdateUIEvent, setText, 1}}, + {2822, {wxUpdateUIEvent, setUpdateInterval, 1}}, + {2823, {wxMouseCaptureChangedEvent, getCapturedWindow, 0}}, + {2824, {wxPaletteChangedEvent, setChangedWindow, 1}}, + {2825, {wxPaletteChangedEvent, getChangedWindow, 0}}, + {2826, {wxQueryNewPaletteEvent, setPaletteRealized, 1}}, + {2827, {wxQueryNewPaletteEvent, getPaletteRealized, 0}}, + {2828, {wxNavigationKeyEvent, getDirection, 0}}, + {2829, {wxNavigationKeyEvent, setDirection, 1}}, + {2830, {wxNavigationKeyEvent, isWindowChange, 0}}, + {2831, {wxNavigationKeyEvent, setWindowChange, 1}}, + {2832, {wxNavigationKeyEvent, isFromTab, 0}}, + {2833, {wxNavigationKeyEvent, setFromTab, 1}}, + {2834, {wxNavigationKeyEvent, getCurrentFocus, 0}}, + {2835, {wxNavigationKeyEvent, setCurrentFocus, 1}}, + {2836, {wxHelpEvent, getOrigin, 0}}, + {2837, {wxHelpEvent, getPosition, 0}}, + {2838, {wxHelpEvent, setOrigin, 1}}, + {2839, {wxHelpEvent, setPosition, 1}}, + {2840, {wxContextMenuEvent, getPosition, 0}}, + {2841, {wxContextMenuEvent, setPosition, 1}}, + {2842, {wxIdleEvent, canSend, 1}}, + {2843, {wxIdleEvent, getMode, 0}}, + {2844, {wxIdleEvent, requestMore, 1}}, + {2845, {wxIdleEvent, moreRequested, 0}}, + {2846, {wxIdleEvent, setMode, 1}}, + {2847, {wxGridEvent, altDown, 0}}, + {2848, {wxGridEvent, controlDown, 0}}, + {2849, {wxGridEvent, getCol, 0}}, + {2850, {wxGridEvent, getPosition, 0}}, + {2851, {wxGridEvent, getRow, 0}}, + {2852, {wxGridEvent, metaDown, 0}}, + {2853, {wxGridEvent, selecting, 0}}, + {2854, {wxGridEvent, shiftDown, 0}}, + {2855, {wxNotifyEvent, allow, 0}}, + {2856, {wxNotifyEvent, isAllowed, 0}}, + {2857, {wxNotifyEvent, veto, 0}}, + {2858, {wxSashEvent, getEdge, 0}}, + {2859, {wxSashEvent, getDragRect, 0}}, + {2860, {wxSashEvent, getDragStatus, 0}}, + {2861, {wxListEvent, getCacheFrom, 0}}, + {2862, {wxListEvent, getCacheTo, 0}}, + {2863, {wxListEvent, getKeyCode, 0}}, + {2864, {wxListEvent, getIndex, 0}}, + {2865, {wxListEvent, getColumn, 0}}, + {2866, {wxListEvent, getPoint, 0}}, + {2867, {wxListEvent, getLabel, 0}}, + {2868, {wxListEvent, getText, 0}}, + {2869, {wxListEvent, getImage, 0}}, + {2870, {wxListEvent, getData, 0}}, + {2871, {wxListEvent, getMask, 0}}, + {2872, {wxListEvent, getItem, 0}}, + {2873, {wxListEvent, isEditCancelled, 0}}, + {2874, {wxDateEvent, getDate, 0}}, + {2875, {wxCalendarEvent, getWeekDay, 0}}, + {2876, {wxFileDirPickerEvent, getPath, 0}}, + {2877, {wxColourPickerEvent, getColour, 0}}, + {2878, {wxFontPickerEvent, getFont, 0}}, + {2879, {wxStyledTextEvent, getPosition, 0}}, + {2880, {wxStyledTextEvent, getKey, 0}}, + {2881, {wxStyledTextEvent, getModifiers, 0}}, + {2882, {wxStyledTextEvent, getModificationType, 0}}, + {2883, {wxStyledTextEvent, getText, 0}}, + {2884, {wxStyledTextEvent, getLength, 0}}, + {2885, {wxStyledTextEvent, getLinesAdded, 0}}, + {2886, {wxStyledTextEvent, getLine, 0}}, + {2887, {wxStyledTextEvent, getFoldLevelNow, 0}}, + {2888, {wxStyledTextEvent, getFoldLevelPrev, 0}}, + {2889, {wxStyledTextEvent, getMargin, 0}}, + {2890, {wxStyledTextEvent, getMessage, 0}}, + {2891, {wxStyledTextEvent, getWParam, 0}}, + {2892, {wxStyledTextEvent, getLParam, 0}}, + {2893, {wxStyledTextEvent, getListType, 0}}, + {2894, {wxStyledTextEvent, getX, 0}}, + {2895, {wxStyledTextEvent, getY, 0}}, + {2896, {wxStyledTextEvent, getDragText, 0}}, + {2897, {wxStyledTextEvent, getDragAllowMove, 0}}, + {2898, {wxStyledTextEvent, getDragResult, 0}}, + {2899, {wxStyledTextEvent, getShift, 0}}, + {2900, {wxStyledTextEvent, getControl, 0}}, + {2901, {wxStyledTextEvent, getAlt, 0}}, + {2902, {utils, getKeyState, 1}}, + {2903, {utils, getMousePosition, 2}}, + {2904, {utils, getMouseState, 0}}, + {2905, {utils, setDetectableAutoRepeat, 1}}, + {2906, {utils, bell, 0}}, + {2907, {utils, findMenuItemId, 3}}, + {2908, {utils, genericFindWindowAtPoint, 1}}, + {2909, {utils, findWindowAtPoint, 1}}, + {2910, {utils, beginBusyCursor, 1}}, + {2911, {utils, endBusyCursor, 0}}, + {2912, {utils, isBusy, 0}}, + {2913, {utils, shutdown, 1}}, + {2914, {utils, shell, 1}}, + {2915, {utils, launchDefaultBrowser, 2}}, + {2916, {utils, getEmailAddress, 0}}, + {2917, {utils, getUserId, 0}}, + {2918, {utils, getHomeDir, 0}}, + {2919, {utils, newId, 0}}, + {2920, {utils, registerId, 1}}, + {2921, {utils, getCurrentId, 0}}, + {2922, {utils, getOsDescription, 0}}, + {2923, {utils, isPlatformLittleEndian, 0}}, + {2924, {utils, isPlatform64Bit, 0}}, + {2925, {wxPrintout, new, 1}}, + {2926, {wxPrintout, destruct, 0}}, + {2927, {wxPrintout, getDC, 0}}, + {2928, {wxPrintout, getPageSizeMM, 2}}, + {2929, {wxPrintout, getPageSizePixels, 2}}, + {2930, {wxPrintout, getPaperRectPixels, 0}}, + {2931, {wxPrintout, getPPIPrinter, 2}}, + {2932, {wxPrintout, getPPIScreen, 2}}, + {2933, {wxPrintout, getTitle, 0}}, + {2934, {wxPrintout, isPreview, 0}}, + {2935, {wxPrintout, fitThisSizeToPaper, 1}}, + {2936, {wxPrintout, fitThisSizeToPage, 1}}, + {2937, {wxPrintout, fitThisSizeToPageMargins, 2}}, + {2938, {wxPrintout, mapScreenSizeToPaper, 0}}, + {2939, {wxPrintout, mapScreenSizeToPage, 0}}, + {2940, {wxPrintout, mapScreenSizeToPageMargins, 1}}, + {2941, {wxPrintout, mapScreenSizeToDevice, 0}}, + {2942, {wxPrintout, getLogicalPaperRect, 0}}, + {2943, {wxPrintout, getLogicalPageRect, 0}}, + {2944, {wxPrintout, getLogicalPageMarginsRect, 1}}, + {2945, {wxPrintout, setLogicalOrigin, 2}}, + {2946, {wxPrintout, offsetLogicalOrigin, 2}}, + {2947, {wxStyledTextCtrl, new_2, 2}}, + {2948, {wxStyledTextCtrl, new_0, 0}}, + {2949, {wxStyledTextCtrl, destruct, 0}}, + {2950, {wxStyledTextCtrl, create, 2}}, + {2951, {wxStyledTextCtrl, addText, 1}}, + {2952, {wxStyledTextCtrl, addStyledText, 1}}, + {2953, {wxStyledTextCtrl, insertText, 2}}, + {2954, {wxStyledTextCtrl, clearAll, 0}}, + {2955, {wxStyledTextCtrl, clearDocumentStyle, 0}}, + {2956, {wxStyledTextCtrl, getLength, 0}}, + {2957, {wxStyledTextCtrl, getCharAt, 1}}, + {2958, {wxStyledTextCtrl, getCurrentPos, 0}}, + {2959, {wxStyledTextCtrl, getAnchor, 0}}, + {2960, {wxStyledTextCtrl, getStyleAt, 1}}, + {2961, {wxStyledTextCtrl, redo, 0}}, + {2962, {wxStyledTextCtrl, setUndoCollection, 1}}, + {2963, {wxStyledTextCtrl, selectAll, 0}}, + {2964, {wxStyledTextCtrl, setSavePoint, 0}}, + {2965, {wxStyledTextCtrl, getStyledText, 2}}, + {2966, {wxStyledTextCtrl, canRedo, 0}}, + {2967, {wxStyledTextCtrl, markerLineFromHandle, 1}}, + {2968, {wxStyledTextCtrl, markerDeleteHandle, 1}}, + {2969, {wxStyledTextCtrl, getUndoCollection, 0}}, + {2970, {wxStyledTextCtrl, getViewWhiteSpace, 0}}, + {2971, {wxStyledTextCtrl, setViewWhiteSpace, 1}}, + {2972, {wxStyledTextCtrl, positionFromPoint, 1}}, + {2973, {wxStyledTextCtrl, positionFromPointClose, 2}}, + {2974, {wxStyledTextCtrl, gotoLine, 1}}, + {2975, {wxStyledTextCtrl, gotoPos, 1}}, + {2976, {wxStyledTextCtrl, setAnchor, 1}}, + {2977, {wxStyledTextCtrl, getCurLine, 1}}, + {2978, {wxStyledTextCtrl, getEndStyled, 0}}, + {2979, {wxStyledTextCtrl, convertEOLs, 1}}, + {2980, {wxStyledTextCtrl, getEOLMode, 0}}, + {2981, {wxStyledTextCtrl, setEOLMode, 1}}, + {2982, {wxStyledTextCtrl, startStyling, 2}}, + {2983, {wxStyledTextCtrl, setStyling, 2}}, + {2984, {wxStyledTextCtrl, getBufferedDraw, 0}}, + {2985, {wxStyledTextCtrl, setBufferedDraw, 1}}, + {2986, {wxStyledTextCtrl, setTabWidth, 1}}, + {2987, {wxStyledTextCtrl, getTabWidth, 0}}, + {2988, {wxStyledTextCtrl, setCodePage, 1}}, + {2989, {wxStyledTextCtrl, markerDefine, 3}}, + {2990, {wxStyledTextCtrl, markerSetForeground, 2}}, + {2991, {wxStyledTextCtrl, markerSetBackground, 2}}, + {2992, {wxStyledTextCtrl, markerAdd, 2}}, + {2993, {wxStyledTextCtrl, markerDelete, 2}}, + {2994, {wxStyledTextCtrl, markerDeleteAll, 1}}, + {2995, {wxStyledTextCtrl, markerGet, 1}}, + {2996, {wxStyledTextCtrl, markerNext, 2}}, + {2997, {wxStyledTextCtrl, markerPrevious, 2}}, + {2998, {wxStyledTextCtrl, markerDefineBitmap, 2}}, + {2999, {wxStyledTextCtrl, markerAddSet, 2}}, + {3000, {wxStyledTextCtrl, markerSetAlpha, 2}}, + {3001, {wxStyledTextCtrl, setMarginType, 2}}, + {3002, {wxStyledTextCtrl, getMarginType, 1}}, + {3003, {wxStyledTextCtrl, setMarginWidth, 2}}, + {3004, {wxStyledTextCtrl, getMarginWidth, 1}}, + {3005, {wxStyledTextCtrl, setMarginMask, 2}}, + {3006, {wxStyledTextCtrl, getMarginMask, 1}}, + {3007, {wxStyledTextCtrl, setMarginSensitive, 2}}, + {3008, {wxStyledTextCtrl, getMarginSensitive, 1}}, + {3009, {wxStyledTextCtrl, styleClearAll, 0}}, + {3010, {wxStyledTextCtrl, styleSetForeground, 2}}, + {3011, {wxStyledTextCtrl, styleSetBackground, 2}}, + {3012, {wxStyledTextCtrl, styleSetBold, 2}}, + {3013, {wxStyledTextCtrl, styleSetItalic, 2}}, + {3014, {wxStyledTextCtrl, styleSetSize, 2}}, + {3015, {wxStyledTextCtrl, styleSetFaceName, 2}}, + {3016, {wxStyledTextCtrl, styleSetEOLFilled, 2}}, + {3017, {wxStyledTextCtrl, styleResetDefault, 0}}, + {3018, {wxStyledTextCtrl, styleSetUnderline, 2}}, + {3019, {wxStyledTextCtrl, styleSetCase, 2}}, + {3020, {wxStyledTextCtrl, styleSetHotSpot, 2}}, + {3021, {wxStyledTextCtrl, setSelForeground, 2}}, + {3022, {wxStyledTextCtrl, setSelBackground, 2}}, + {3023, {wxStyledTextCtrl, getSelAlpha, 0}}, + {3024, {wxStyledTextCtrl, setSelAlpha, 1}}, + {3025, {wxStyledTextCtrl, setCaretForeground, 1}}, + {3026, {wxStyledTextCtrl, cmdKeyAssign, 3}}, + {3027, {wxStyledTextCtrl, cmdKeyClear, 2}}, + {3028, {wxStyledTextCtrl, cmdKeyClearAll, 0}}, + {3029, {wxStyledTextCtrl, setStyleBytes, 2}}, + {3030, {wxStyledTextCtrl, styleSetVisible, 2}}, + {3031, {wxStyledTextCtrl, getCaretPeriod, 0}}, + {3032, {wxStyledTextCtrl, setCaretPeriod, 1}}, + {3033, {wxStyledTextCtrl, setWordChars, 1}}, + {3034, {wxStyledTextCtrl, beginUndoAction, 0}}, + {3035, {wxStyledTextCtrl, endUndoAction, 0}}, + {3036, {wxStyledTextCtrl, indicatorSetStyle, 2}}, + {3037, {wxStyledTextCtrl, indicatorGetStyle, 1}}, + {3038, {wxStyledTextCtrl, indicatorSetForeground, 2}}, + {3039, {wxStyledTextCtrl, indicatorGetForeground, 1}}, + {3040, {wxStyledTextCtrl, setWhitespaceForeground, 2}}, + {3041, {wxStyledTextCtrl, setWhitespaceBackground, 2}}, + {3042, {wxStyledTextCtrl, getStyleBits, 0}}, + {3043, {wxStyledTextCtrl, setLineState, 2}}, + {3044, {wxStyledTextCtrl, getLineState, 1}}, + {3045, {wxStyledTextCtrl, getMaxLineState, 0}}, + {3046, {wxStyledTextCtrl, getCaretLineVisible, 0}}, + {3047, {wxStyledTextCtrl, setCaretLineVisible, 1}}, + {3048, {wxStyledTextCtrl, getCaretLineBackground, 0}}, + {3049, {wxStyledTextCtrl, setCaretLineBackground, 1}}, + {3050, {wxStyledTextCtrl, autoCompShow, 2}}, + {3051, {wxStyledTextCtrl, autoCompCancel, 0}}, + {3052, {wxStyledTextCtrl, autoCompActive, 0}}, + {3053, {wxStyledTextCtrl, autoCompPosStart, 0}}, + {3054, {wxStyledTextCtrl, autoCompComplete, 0}}, + {3055, {wxStyledTextCtrl, autoCompStops, 1}}, + {3056, {wxStyledTextCtrl, autoCompSetSeparator, 1}}, + {3057, {wxStyledTextCtrl, autoCompGetSeparator, 0}}, + {3058, {wxStyledTextCtrl, autoCompSelect, 1}}, + {3059, {wxStyledTextCtrl, autoCompSetCancelAtStart, 1}}, + {3060, {wxStyledTextCtrl, autoCompGetCancelAtStart, 0}}, + {3061, {wxStyledTextCtrl, autoCompSetFillUps, 1}}, + {3062, {wxStyledTextCtrl, autoCompSetChooseSingle, 1}}, + {3063, {wxStyledTextCtrl, autoCompGetChooseSingle, 0}}, + {3064, {wxStyledTextCtrl, autoCompSetIgnoreCase, 1}}, + {3065, {wxStyledTextCtrl, autoCompGetIgnoreCase, 0}}, + {3066, {wxStyledTextCtrl, userListShow, 2}}, + {3067, {wxStyledTextCtrl, autoCompSetAutoHide, 1}}, + {3068, {wxStyledTextCtrl, autoCompGetAutoHide, 0}}, + {3069, {wxStyledTextCtrl, autoCompSetDropRestOfWord, 1}}, + {3070, {wxStyledTextCtrl, autoCompGetDropRestOfWord, 0}}, + {3071, {wxStyledTextCtrl, registerImage, 2}}, + {3072, {wxStyledTextCtrl, clearRegisteredImages, 0}}, + {3073, {wxStyledTextCtrl, autoCompGetTypeSeparator, 0}}, + {3074, {wxStyledTextCtrl, autoCompSetTypeSeparator, 1}}, + {3075, {wxStyledTextCtrl, autoCompSetMaxWidth, 1}}, + {3076, {wxStyledTextCtrl, autoCompGetMaxWidth, 0}}, + {3077, {wxStyledTextCtrl, autoCompSetMaxHeight, 1}}, + {3078, {wxStyledTextCtrl, autoCompGetMaxHeight, 0}}, + {3079, {wxStyledTextCtrl, setIndent, 1}}, + {3080, {wxStyledTextCtrl, getIndent, 0}}, + {3081, {wxStyledTextCtrl, setUseTabs, 1}}, + {3082, {wxStyledTextCtrl, getUseTabs, 0}}, + {3083, {wxStyledTextCtrl, setLineIndentation, 2}}, + {3084, {wxStyledTextCtrl, getLineIndentation, 1}}, + {3085, {wxStyledTextCtrl, getLineIndentPosition, 1}}, + {3086, {wxStyledTextCtrl, getColumn, 1}}, + {3087, {wxStyledTextCtrl, setUseHorizontalScrollBar, 1}}, + {3088, {wxStyledTextCtrl, getUseHorizontalScrollBar, 0}}, + {3089, {wxStyledTextCtrl, setIndentationGuides, 1}}, + {3090, {wxStyledTextCtrl, getIndentationGuides, 0}}, + {3091, {wxStyledTextCtrl, setHighlightGuide, 1}}, + {3092, {wxStyledTextCtrl, getHighlightGuide, 0}}, + {3093, {wxStyledTextCtrl, getLineEndPosition, 1}}, + {3094, {wxStyledTextCtrl, getCodePage, 0}}, + {3095, {wxStyledTextCtrl, getCaretForeground, 0}}, + {3096, {wxStyledTextCtrl, getReadOnly, 0}}, + {3097, {wxStyledTextCtrl, setCurrentPos, 1}}, + {3098, {wxStyledTextCtrl, setSelectionStart, 1}}, + {3099, {wxStyledTextCtrl, getSelectionStart, 0}}, + {3100, {wxStyledTextCtrl, setSelectionEnd, 1}}, + {3101, {wxStyledTextCtrl, getSelectionEnd, 0}}, + {3102, {wxStyledTextCtrl, setPrintMagnification, 1}}, + {3103, {wxStyledTextCtrl, getPrintMagnification, 0}}, + {3104, {wxStyledTextCtrl, setPrintColourMode, 1}}, + {3105, {wxStyledTextCtrl, getPrintColourMode, 0}}, + {3106, {wxStyledTextCtrl, findText, 4}}, + {3107, {wxStyledTextCtrl, formatRange, 7}}, + {3108, {wxStyledTextCtrl, getFirstVisibleLine, 0}}, + {3109, {wxStyledTextCtrl, getLine, 1}}, + {3110, {wxStyledTextCtrl, getLineCount, 0}}, + {3111, {wxStyledTextCtrl, setMarginLeft, 1}}, + {3112, {wxStyledTextCtrl, getMarginLeft, 0}}, + {3113, {wxStyledTextCtrl, setMarginRight, 1}}, + {3114, {wxStyledTextCtrl, getMarginRight, 0}}, + {3115, {wxStyledTextCtrl, getModify, 0}}, + {3116, {wxStyledTextCtrl, setSelection, 2}}, + {3117, {wxStyledTextCtrl, getSelectedText, 0}}, + {3118, {wxStyledTextCtrl, getTextRange, 2}}, + {3119, {wxStyledTextCtrl, hideSelection, 1}}, + {3120, {wxStyledTextCtrl, lineFromPosition, 1}}, + {3121, {wxStyledTextCtrl, positionFromLine, 1}}, + {3122, {wxStyledTextCtrl, lineScroll, 2}}, + {3123, {wxStyledTextCtrl, ensureCaretVisible, 0}}, + {3124, {wxStyledTextCtrl, replaceSelection, 1}}, + {3125, {wxStyledTextCtrl, setReadOnly, 1}}, + {3126, {wxStyledTextCtrl, canPaste, 0}}, + {3127, {wxStyledTextCtrl, canUndo, 0}}, + {3128, {wxStyledTextCtrl, emptyUndoBuffer, 0}}, + {3129, {wxStyledTextCtrl, undo, 0}}, + {3130, {wxStyledTextCtrl, cut, 0}}, + {3131, {wxStyledTextCtrl, copy, 0}}, + {3132, {wxStyledTextCtrl, paste, 0}}, + {3133, {wxStyledTextCtrl, clear, 0}}, + {3134, {wxStyledTextCtrl, setText, 1}}, + {3135, {wxStyledTextCtrl, getText, 0}}, + {3136, {wxStyledTextCtrl, getTextLength, 0}}, + {3137, {wxStyledTextCtrl, getOvertype, 0}}, + {3138, {wxStyledTextCtrl, setCaretWidth, 1}}, + {3139, {wxStyledTextCtrl, getCaretWidth, 0}}, + {3140, {wxStyledTextCtrl, setTargetStart, 1}}, + {3141, {wxStyledTextCtrl, getTargetStart, 0}}, + {3142, {wxStyledTextCtrl, setTargetEnd, 1}}, + {3143, {wxStyledTextCtrl, getTargetEnd, 0}}, + {3144, {wxStyledTextCtrl, replaceTarget, 1}}, + {3145, {wxStyledTextCtrl, searchInTarget, 1}}, + {3146, {wxStyledTextCtrl, setSearchFlags, 1}}, + {3147, {wxStyledTextCtrl, getSearchFlags, 0}}, + {3148, {wxStyledTextCtrl, callTipShow, 2}}, + {3149, {wxStyledTextCtrl, callTipCancel, 0}}, + {3150, {wxStyledTextCtrl, callTipActive, 0}}, + {3151, {wxStyledTextCtrl, callTipPosAtStart, 0}}, + {3152, {wxStyledTextCtrl, callTipSetHighlight, 2}}, + {3153, {wxStyledTextCtrl, callTipSetBackground, 1}}, + {3154, {wxStyledTextCtrl, callTipSetForeground, 1}}, + {3155, {wxStyledTextCtrl, callTipSetForegroundHighlight, 1}}, + {3156, {wxStyledTextCtrl, callTipUseStyle, 1}}, + {3157, {wxStyledTextCtrl, visibleFromDocLine, 1}}, + {3158, {wxStyledTextCtrl, docLineFromVisible, 1}}, + {3159, {wxStyledTextCtrl, wrapCount, 1}}, + {3160, {wxStyledTextCtrl, setFoldLevel, 2}}, + {3161, {wxStyledTextCtrl, getFoldLevel, 1}}, + {3162, {wxStyledTextCtrl, getLastChild, 2}}, + {3163, {wxStyledTextCtrl, getFoldParent, 1}}, + {3164, {wxStyledTextCtrl, showLines, 2}}, + {3165, {wxStyledTextCtrl, hideLines, 2}}, + {3166, {wxStyledTextCtrl, getLineVisible, 1}}, + {3167, {wxStyledTextCtrl, setFoldExpanded, 2}}, + {3168, {wxStyledTextCtrl, getFoldExpanded, 1}}, + {3169, {wxStyledTextCtrl, toggleFold, 1}}, + {3170, {wxStyledTextCtrl, ensureVisible, 1}}, + {3171, {wxStyledTextCtrl, setFoldFlags, 1}}, + {3172, {wxStyledTextCtrl, ensureVisibleEnforcePolicy, 1}}, + {3173, {wxStyledTextCtrl, setTabIndents, 1}}, + {3174, {wxStyledTextCtrl, getTabIndents, 0}}, + {3175, {wxStyledTextCtrl, setBackSpaceUnIndents, 1}}, + {3176, {wxStyledTextCtrl, getBackSpaceUnIndents, 0}}, + {3177, {wxStyledTextCtrl, setMouseDwellTime, 1}}, + {3178, {wxStyledTextCtrl, getMouseDwellTime, 0}}, + {3179, {wxStyledTextCtrl, wordStartPosition, 2}}, + {3180, {wxStyledTextCtrl, wordEndPosition, 2}}, + {3181, {wxStyledTextCtrl, setWrapMode, 1}}, + {3182, {wxStyledTextCtrl, getWrapMode, 0}}, + {3183, {wxStyledTextCtrl, setWrapVisualFlags, 1}}, + {3184, {wxStyledTextCtrl, getWrapVisualFlags, 0}}, + {3185, {wxStyledTextCtrl, setWrapVisualFlagsLocation, 1}}, + {3186, {wxStyledTextCtrl, getWrapVisualFlagsLocation, 0}}, + {3187, {wxStyledTextCtrl, setWrapStartIndent, 1}}, + {3188, {wxStyledTextCtrl, getWrapStartIndent, 0}}, + {3189, {wxStyledTextCtrl, setLayoutCache, 1}}, + {3190, {wxStyledTextCtrl, getLayoutCache, 0}}, + {3191, {wxStyledTextCtrl, setScrollWidth, 1}}, + {3192, {wxStyledTextCtrl, getScrollWidth, 0}}, + {3193, {wxStyledTextCtrl, textWidth, 2}}, + {3194, {wxStyledTextCtrl, getEndAtLastLine, 0}}, + {3195, {wxStyledTextCtrl, textHeight, 1}}, + {3196, {wxStyledTextCtrl, setUseVerticalScrollBar, 1}}, + {3197, {wxStyledTextCtrl, getUseVerticalScrollBar, 0}}, + {3198, {wxStyledTextCtrl, appendText, 1}}, + {3199, {wxStyledTextCtrl, getTwoPhaseDraw, 0}}, + {3200, {wxStyledTextCtrl, setTwoPhaseDraw, 1}}, + {3201, {wxStyledTextCtrl, targetFromSelection, 0}}, + {3202, {wxStyledTextCtrl, linesJoin, 0}}, + {3203, {wxStyledTextCtrl, linesSplit, 1}}, + {3204, {wxStyledTextCtrl, setFoldMarginColour, 2}}, + {3205, {wxStyledTextCtrl, setFoldMarginHiColour, 2}}, + {3206, {wxStyledTextCtrl, lineDown, 0}}, + {3207, {wxStyledTextCtrl, lineDownExtend, 0}}, + {3208, {wxStyledTextCtrl, lineUp, 0}}, + {3209, {wxStyledTextCtrl, lineUpExtend, 0}}, + {3210, {wxStyledTextCtrl, charLeft, 0}}, + {3211, {wxStyledTextCtrl, charLeftExtend, 0}}, + {3212, {wxStyledTextCtrl, charRight, 0}}, + {3213, {wxStyledTextCtrl, charRightExtend, 0}}, + {3214, {wxStyledTextCtrl, wordLeft, 0}}, + {3215, {wxStyledTextCtrl, wordLeftExtend, 0}}, + {3216, {wxStyledTextCtrl, wordRight, 0}}, + {3217, {wxStyledTextCtrl, wordRightExtend, 0}}, + {3218, {wxStyledTextCtrl, home, 0}}, + {3219, {wxStyledTextCtrl, homeExtend, 0}}, + {3220, {wxStyledTextCtrl, lineEnd, 0}}, + {3221, {wxStyledTextCtrl, lineEndExtend, 0}}, + {3222, {wxStyledTextCtrl, documentStart, 0}}, + {3223, {wxStyledTextCtrl, documentStartExtend, 0}}, + {3224, {wxStyledTextCtrl, documentEnd, 0}}, + {3225, {wxStyledTextCtrl, documentEndExtend, 0}}, + {3226, {wxStyledTextCtrl, pageUp, 0}}, + {3227, {wxStyledTextCtrl, pageUpExtend, 0}}, + {3228, {wxStyledTextCtrl, pageDown, 0}}, + {3229, {wxStyledTextCtrl, pageDownExtend, 0}}, + {3230, {wxStyledTextCtrl, editToggleOvertype, 0}}, + {3231, {wxStyledTextCtrl, cancel, 0}}, + {3232, {wxStyledTextCtrl, deleteBack, 0}}, + {3233, {wxStyledTextCtrl, tab, 0}}, + {3234, {wxStyledTextCtrl, backTab, 0}}, + {3235, {wxStyledTextCtrl, newLine, 0}}, + {3236, {wxStyledTextCtrl, formFeed, 0}}, + {3237, {wxStyledTextCtrl, vCHome, 0}}, + {3238, {wxStyledTextCtrl, vCHomeExtend, 0}}, + {3239, {wxStyledTextCtrl, zoomIn, 0}}, + {3240, {wxStyledTextCtrl, zoomOut, 0}}, + {3241, {wxStyledTextCtrl, delWordLeft, 0}}, + {3242, {wxStyledTextCtrl, delWordRight, 0}}, + {3243, {wxStyledTextCtrl, lineCut, 0}}, + {3244, {wxStyledTextCtrl, lineDelete, 0}}, + {3245, {wxStyledTextCtrl, lineTranspose, 0}}, + {3246, {wxStyledTextCtrl, lineDuplicate, 0}}, + {3247, {wxStyledTextCtrl, lowerCase, 0}}, + {3248, {wxStyledTextCtrl, upperCase, 0}}, + {3249, {wxStyledTextCtrl, lineScrollDown, 0}}, + {3250, {wxStyledTextCtrl, lineScrollUp, 0}}, + {3251, {wxStyledTextCtrl, deleteBackNotLine, 0}}, + {3252, {wxStyledTextCtrl, homeDisplay, 0}}, + {3253, {wxStyledTextCtrl, homeDisplayExtend, 0}}, + {3254, {wxStyledTextCtrl, lineEndDisplay, 0}}, + {3255, {wxStyledTextCtrl, lineEndDisplayExtend, 0}}, + {3256, {wxStyledTextCtrl, homeWrapExtend, 0}}, + {3257, {wxStyledTextCtrl, lineEndWrap, 0}}, + {3258, {wxStyledTextCtrl, lineEndWrapExtend, 0}}, + {3259, {wxStyledTextCtrl, vCHomeWrap, 0}}, + {3260, {wxStyledTextCtrl, vCHomeWrapExtend, 0}}, + {3261, {wxStyledTextCtrl, lineCopy, 0}}, + {3262, {wxStyledTextCtrl, moveCaretInsideView, 0}}, + {3263, {wxStyledTextCtrl, lineLength, 1}}, + {3264, {wxStyledTextCtrl, braceHighlight, 2}}, + {3265, {wxStyledTextCtrl, braceBadLight, 1}}, + {3266, {wxStyledTextCtrl, braceMatch, 1}}, + {3267, {wxStyledTextCtrl, getViewEOL, 0}}, + {3268, {wxStyledTextCtrl, setViewEOL, 1}}, + {3269, {wxStyledTextCtrl, setModEventMask, 1}}, + {3270, {wxStyledTextCtrl, getEdgeColumn, 0}}, + {3271, {wxStyledTextCtrl, setEdgeColumn, 1}}, + {3272, {wxStyledTextCtrl, getEdgeMode, 0}}, + {3273, {wxStyledTextCtrl, getEdgeColour, 0}}, + {3274, {wxStyledTextCtrl, setEdgeColour, 1}}, + {3275, {wxStyledTextCtrl, searchAnchor, 0}}, + {3276, {wxStyledTextCtrl, searchNext, 2}}, + {3277, {wxStyledTextCtrl, searchPrev, 2}}, + {3278, {wxStyledTextCtrl, linesOnScreen, 0}}, + {3279, {wxStyledTextCtrl, usePopUp, 1}}, + {3280, {wxStyledTextCtrl, selectionIsRectangle, 0}}, + {3281, {wxStyledTextCtrl, setZoom, 1}}, + {3282, {wxStyledTextCtrl, getZoom, 0}}, + {3283, {wxStyledTextCtrl, getModEventMask, 0}}, + {3284, {wxStyledTextCtrl, setSTCFocus, 1}}, + {3285, {wxStyledTextCtrl, getSTCFocus, 0}}, + {3286, {wxStyledTextCtrl, setStatus, 1}}, + {3287, {wxStyledTextCtrl, getStatus, 0}}, + {3288, {wxStyledTextCtrl, setMouseDownCaptures, 1}}, + {3289, {wxStyledTextCtrl, getMouseDownCaptures, 0}}, + {3290, {wxStyledTextCtrl, setSTCCursor, 1}}, + {3291, {wxStyledTextCtrl, getSTCCursor, 0}}, + {3292, {wxStyledTextCtrl, setControlCharSymbol, 1}}, + {3293, {wxStyledTextCtrl, getControlCharSymbol, 0}}, + {3294, {wxStyledTextCtrl, wordPartLeft, 0}}, + {3295, {wxStyledTextCtrl, wordPartLeftExtend, 0}}, + {3296, {wxStyledTextCtrl, wordPartRight, 0}}, + {3297, {wxStyledTextCtrl, wordPartRightExtend, 0}}, + {3298, {wxStyledTextCtrl, setVisiblePolicy, 2}}, + {3299, {wxStyledTextCtrl, delLineLeft, 0}}, + {3300, {wxStyledTextCtrl, delLineRight, 0}}, + {3301, {wxStyledTextCtrl, getXOffset, 0}}, + {3302, {wxStyledTextCtrl, chooseCaretX, 0}}, + {3303, {wxStyledTextCtrl, setXCaretPolicy, 2}}, + {3304, {wxStyledTextCtrl, setYCaretPolicy, 2}}, + {3305, {wxStyledTextCtrl, getPrintWrapMode, 0}}, + {3306, {wxStyledTextCtrl, setHotspotActiveForeground, 2}}, + {3307, {wxStyledTextCtrl, setHotspotActiveBackground, 2}}, + {3308, {wxStyledTextCtrl, setHotspotActiveUnderline, 1}}, + {3309, {wxStyledTextCtrl, setHotspotSingleLine, 1}}, + {3310, {wxStyledTextCtrl, paraDownExtend, 0}}, + {3311, {wxStyledTextCtrl, paraUp, 0}}, + {3312, {wxStyledTextCtrl, paraUpExtend, 0}}, + {3313, {wxStyledTextCtrl, positionBefore, 1}}, + {3314, {wxStyledTextCtrl, positionAfter, 1}}, + {3315, {wxStyledTextCtrl, copyRange, 2}}, + {3316, {wxStyledTextCtrl, copyText, 2}}, + {3317, {wxStyledTextCtrl, setSelectionMode, 1}}, + {3318, {wxStyledTextCtrl, getSelectionMode, 0}}, + {3319, {wxStyledTextCtrl, lineDownRectExtend, 0}}, + {3320, {wxStyledTextCtrl, lineUpRectExtend, 0}}, + {3321, {wxStyledTextCtrl, charLeftRectExtend, 0}}, + {3322, {wxStyledTextCtrl, charRightRectExtend, 0}}, + {3323, {wxStyledTextCtrl, homeRectExtend, 0}}, + {3324, {wxStyledTextCtrl, vCHomeRectExtend, 0}}, + {3325, {wxStyledTextCtrl, lineEndRectExtend, 0}}, + {3326, {wxStyledTextCtrl, pageUpRectExtend, 0}}, + {3327, {wxStyledTextCtrl, pageDownRectExtend, 0}}, + {3328, {wxStyledTextCtrl, stutteredPageUp, 0}}, + {3329, {wxStyledTextCtrl, stutteredPageUpExtend, 0}}, + {3330, {wxStyledTextCtrl, stutteredPageDown, 0}}, + {3331, {wxStyledTextCtrl, stutteredPageDownExtend, 0}}, + {3332, {wxStyledTextCtrl, wordLeftEnd, 0}}, + {3333, {wxStyledTextCtrl, wordLeftEndExtend, 0}}, + {3334, {wxStyledTextCtrl, wordRightEnd, 0}}, + {3335, {wxStyledTextCtrl, wordRightEndExtend, 0}}, + {3336, {wxStyledTextCtrl, setWhitespaceChars, 1}}, + {3337, {wxStyledTextCtrl, setCharsDefault, 0}}, + {3338, {wxStyledTextCtrl, autoCompGetCurrent, 0}}, + {3339, {wxStyledTextCtrl, allocate, 1}}, + {3340, {wxStyledTextCtrl, findColumn, 2}}, + {3341, {wxStyledTextCtrl, getCaretSticky, 0}}, + {3342, {wxStyledTextCtrl, setCaretSticky, 1}}, + {3343, {wxStyledTextCtrl, toggleCaretSticky, 0}}, + {3344, {wxStyledTextCtrl, setPasteConvertEndings, 1}}, + {3345, {wxStyledTextCtrl, getPasteConvertEndings, 0}}, + {3346, {wxStyledTextCtrl, selectionDuplicate, 0}}, + {3347, {wxStyledTextCtrl, setCaretLineBackAlpha, 1}}, + {3348, {wxStyledTextCtrl, getCaretLineBackAlpha, 0}}, + {3349, {wxStyledTextCtrl, startRecord, 0}}, + {3350, {wxStyledTextCtrl, stopRecord, 0}}, + {3351, {wxStyledTextCtrl, setLexer, 1}}, + {3352, {wxStyledTextCtrl, getLexer, 0}}, + {3353, {wxStyledTextCtrl, colourise, 2}}, + {3354, {wxStyledTextCtrl, setProperty, 2}}, + {3355, {wxStyledTextCtrl, setKeyWords, 2}}, + {3356, {wxStyledTextCtrl, setLexerLanguage, 1}}, + {3357, {wxStyledTextCtrl, getProperty, 1}}, + {3358, {wxStyledTextCtrl, getStyleBitsNeeded, 0}}, + {3359, {wxStyledTextCtrl, getCurrentLine, 0}}, + {3360, {wxStyledTextCtrl, styleSetSpec, 2}}, + {3361, {wxStyledTextCtrl, styleSetFont, 2}}, + {3362, {wxStyledTextCtrl, styleSetFontAttr, 7}}, + {3363, {wxStyledTextCtrl, styleSetCharacterSet, 2}}, + {3364, {wxStyledTextCtrl, styleSetFontEncoding, 2}}, + {3365, {wxStyledTextCtrl, cmdKeyExecute, 1}}, + {3366, {wxStyledTextCtrl, setMargins, 2}}, + {3367, {wxStyledTextCtrl, getSelection, 2}}, + {3368, {wxStyledTextCtrl, pointFromPosition, 1}}, + {3369, {wxStyledTextCtrl, scrollToLine, 1}}, + {3370, {wxStyledTextCtrl, scrollToColumn, 1}}, + {3371, {wxStyledTextCtrl, sendMsg, 2}}, + {3372, {wxStyledTextCtrl, setVScrollBar, 1}}, + {3373, {wxStyledTextCtrl, setHScrollBar, 1}}, + {3374, {wxStyledTextCtrl, getLastKeydownProcessed, 0}}, + {3375, {wxStyledTextCtrl, setLastKeydownProcessed, 1}}, + {3376, {wxStyledTextCtrl, saveFile, 1}}, + {3377, {wxStyledTextCtrl, loadFile, 1}}, + {3378, {wxStyledTextCtrl, doDragOver, 3}}, + {3379, {wxStyledTextCtrl, doDropText, 3}}, + {3380, {wxStyledTextCtrl, getUseAntiAliasing, 0}}, + {3381, {wxStyledTextCtrl, addTextRaw, 1}}, + {3382, {wxStyledTextCtrl, insertTextRaw, 2}}, + {3383, {wxStyledTextCtrl, getCurLineRaw, 1}}, + {3384, {wxStyledTextCtrl, getLineRaw, 1}}, + {3385, {wxStyledTextCtrl, getSelectedTextRaw, 0}}, + {3386, {wxStyledTextCtrl, getTextRangeRaw, 2}}, + {3387, {wxStyledTextCtrl, setTextRaw, 1}}, + {3388, {wxStyledTextCtrl, getTextRaw, 0}}, + {3389, {wxStyledTextCtrl, appendTextRaw, 1}}, + {3390, {wxArtProvider, getBitmap, 2}}, + {3391, {wxArtProvider, getIcon, 2}}, + {3392, {wxTreeEvent, getKeyCode, 0}}, + {3393, {wxTreeEvent, getItem, 0}}, + {3394, {wxTreeEvent, getKeyEvent, 0}}, + {3395, {wxTreeEvent, getLabel, 0}}, + {3396, {wxTreeEvent, getOldItem, 0}}, + {3397, {wxTreeEvent, getPoint, 0}}, + {3398, {wxTreeEvent, isEditCancelled, 0}}, + {3399, {wxTreeEvent, setToolTip, 1}}, + {3400, {wxNotebookEvent, getOldSelection, 0}}, + {3401, {wxNotebookEvent, getSelection, 0}}, + {3402, {wxNotebookEvent, setOldSelection, 1}}, + {3403, {wxNotebookEvent, setSelection, 1}}, + {3404, {wxFileDataObject, new, 0}}, + {3405, {wxFileDataObject, addFile, 1}}, + {3406, {wxFileDataObject, getFilenames, 0}}, + {3407, {wxFileDataObject, 'Destroy', undefined}}, + {3408, {wxTextDataObject, new, 1}}, + {3409, {wxTextDataObject, getTextLength, 0}}, + {3410, {wxTextDataObject, getText, 0}}, + {3411, {wxTextDataObject, setText, 1}}, + {3412, {wxTextDataObject, 'Destroy', undefined}}, + {3413, {wxBitmapDataObject, new_1_1, 1}}, + {3414, {wxBitmapDataObject, new_1_0, 1}}, + {3415, {wxBitmapDataObject, getBitmap, 0}}, + {3416, {wxBitmapDataObject, setBitmap, 1}}, + {3417, {wxBitmapDataObject, 'Destroy', undefined}}, + {3419, {wxClipboard, new, 0}}, + {3420, {wxClipboard, destruct, 0}}, + {3421, {wxClipboard, addData, 1}}, + {3422, {wxClipboard, clear, 0}}, + {3423, {wxClipboard, close, 0}}, + {3424, {wxClipboard, flush, 0}}, + {3425, {wxClipboard, getData, 1}}, + {3426, {wxClipboard, isOpened, 0}}, + {3427, {wxClipboard, open, 0}}, + {3428, {wxClipboard, setData, 1}}, + {3430, {wxClipboard, usePrimarySelection, 1}}, + {3431, {wxClipboard, isSupported, 1}}, + {3432, {wxClipboard, get, 0}}, + {3433, {wxSpinEvent, getPosition, 0}}, + {3434, {wxSpinEvent, setPosition, 1}}, + {3435, {wxSplitterWindow, new_0, 0}}, + {3436, {wxSplitterWindow, new_2, 2}}, + {3437, {wxSplitterWindow, destruct, 0}}, + {3438, {wxSplitterWindow, create, 2}}, + {3439, {wxSplitterWindow, getMinimumPaneSize, 0}}, + {3440, {wxSplitterWindow, getSashGravity, 0}}, + {3441, {wxSplitterWindow, getSashPosition, 0}}, + {3442, {wxSplitterWindow, getSplitMode, 0}}, + {3443, {wxSplitterWindow, getWindow1, 0}}, + {3444, {wxSplitterWindow, getWindow2, 0}}, + {3445, {wxSplitterWindow, initialize, 1}}, + {3446, {wxSplitterWindow, isSplit, 0}}, + {3447, {wxSplitterWindow, replaceWindow, 2}}, + {3448, {wxSplitterWindow, setSashGravity, 1}}, + {3449, {wxSplitterWindow, setSashPosition, 2}}, + {3450, {wxSplitterWindow, setSashSize, 1}}, + {3451, {wxSplitterWindow, setMinimumPaneSize, 1}}, + {3452, {wxSplitterWindow, setSplitMode, 1}}, + {3453, {wxSplitterWindow, splitHorizontally, 3}}, + {3454, {wxSplitterWindow, splitVertically, 3}}, + {3455, {wxSplitterWindow, unsplit, 1}}, + {3456, {wxSplitterWindow, updateSize, 0}}, + {3457, {wxSplitterEvent, getSashPosition, 0}}, + {3458, {wxSplitterEvent, getX, 0}}, + {3459, {wxSplitterEvent, getY, 0}}, + {3460, {wxSplitterEvent, getWindowBeingRemoved, 0}}, + {3461, {wxSplitterEvent, setSashPosition, 1}}, + {3462, {wxHtmlWindow, new_0, 0}}, + {3463, {wxHtmlWindow, new_2, 2}}, + {3464, {wxHtmlWindow, appendToPage, 1}}, + {3465, {wxHtmlWindow, getOpenedAnchor, 0}}, + {3466, {wxHtmlWindow, getOpenedPage, 0}}, + {3467, {wxHtmlWindow, getOpenedPageTitle, 0}}, + {3468, {wxHtmlWindow, getRelatedFrame, 0}}, + {3469, {wxHtmlWindow, historyBack, 0}}, + {3470, {wxHtmlWindow, historyCanBack, 0}}, + {3471, {wxHtmlWindow, historyCanForward, 0}}, + {3472, {wxHtmlWindow, historyClear, 0}}, + {3473, {wxHtmlWindow, historyForward, 0}}, + {3474, {wxHtmlWindow, loadFile, 1}}, + {3475, {wxHtmlWindow, loadPage, 1}}, + {3476, {wxHtmlWindow, selectAll, 0}}, + {3477, {wxHtmlWindow, selectionToText, 0}}, + {3478, {wxHtmlWindow, selectLine, 1}}, + {3479, {wxHtmlWindow, selectWord, 1}}, + {3480, {wxHtmlWindow, setBorders, 1}}, + {3481, {wxHtmlWindow, setFonts, 3}}, + {3482, {wxHtmlWindow, setPage, 1}}, + {3483, {wxHtmlWindow, setRelatedFrame, 2}}, + {3484, {wxHtmlWindow, setRelatedStatusBar, 1}}, + {3485, {wxHtmlWindow, toText, 0}}, + {3486, {wxHtmlWindow, 'Destroy', undefined}}, + {3487, {wxHtmlLinkEvent, getLinkInfo, 0}}, + {3488, {wxSystemSettings, getColour, 1}}, + {3489, {wxSystemSettings, getFont, 1}}, + {3490, {wxSystemSettings, getMetric, 2}}, + {3491, {wxSystemSettings, getScreenType, 0}}, + {3492, {wxAuiNotebookEvent, setSelection, 1}}, + {3493, {wxAuiNotebookEvent, getSelection, 0}}, + {3494, {wxAuiNotebookEvent, setOldSelection, 1}}, + {3495, {wxAuiNotebookEvent, getOldSelection, 0}}, + {3496, {wxAuiNotebookEvent, setDragSource, 1}}, + {3497, {wxAuiNotebookEvent, getDragSource, 0}}, + {3498, {wxAuiManagerEvent, setManager, 1}}, + {3499, {wxAuiManagerEvent, getManager, 0}}, + {3500, {wxAuiManagerEvent, setPane, 1}}, + {3501, {wxAuiManagerEvent, getPane, 0}}, + {3502, {wxAuiManagerEvent, setButton, 1}}, + {3503, {wxAuiManagerEvent, getButton, 0}}, + {3504, {wxAuiManagerEvent, setDC, 1}}, + {3505, {wxAuiManagerEvent, getDC, 0}}, + {3506, {wxAuiManagerEvent, veto, 1}}, + {3507, {wxAuiManagerEvent, getVeto, 0}}, + {3508, {wxAuiManagerEvent, setCanVeto, 1}}, + {3509, {wxAuiManagerEvent, canVeto, 0}}, + {3510, {wxLogNull, new, 0}}, + {3511, {wxLogNull, 'Destroy', undefined}}, {-1, {mod, func, -1}} ]. diff --git a/lib/wx/src/gen/wxe_funcs.hrl b/lib/wx/src/gen/wxe_funcs.hrl index cf672644c6..af74caaa25 100644 --- a/lib/wx/src/gen/wxe_funcs.hrl +++ b/lib/wx/src/gen/wxe_funcs.hrl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2008-2010. All Rights Reserved. +%% Copyright Ericsson AB 2008-2011. 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 @@ -1600,1681 +1600,1693 @@ -define(wxListItem_SetText, 1754). -define(wxListItem_SetTextColour, 1755). -define(wxListItem_SetWidth, 1756). --define(wxImageList_new_0, 1757). --define(wxImageList_new_3, 1758). --define(wxImageList_Add_1, 1759). --define(wxImageList_Add_2_0, 1760). --define(wxImageList_Add_2_1, 1761). --define(wxImageList_Create, 1762). --define(wxImageList_Draw, 1764). --define(wxImageList_GetBitmap, 1765). --define(wxImageList_GetIcon, 1766). --define(wxImageList_GetImageCount, 1767). --define(wxImageList_GetSize, 1768). --define(wxImageList_Remove, 1769). --define(wxImageList_RemoveAll, 1770). --define(wxImageList_Replace_2, 1771). --define(wxImageList_Replace_3, 1772). --define(wxImageList_destroy, 1773). --define(wxTextAttr_new_0, 1774). --define(wxTextAttr_new_2, 1775). --define(wxTextAttr_GetAlignment, 1776). --define(wxTextAttr_GetBackgroundColour, 1777). --define(wxTextAttr_GetFont, 1778). --define(wxTextAttr_GetLeftIndent, 1779). --define(wxTextAttr_GetLeftSubIndent, 1780). --define(wxTextAttr_GetRightIndent, 1781). --define(wxTextAttr_GetTabs, 1782). --define(wxTextAttr_GetTextColour, 1783). --define(wxTextAttr_HasBackgroundColour, 1784). --define(wxTextAttr_HasFont, 1785). --define(wxTextAttr_HasTextColour, 1786). --define(wxTextAttr_GetFlags, 1787). --define(wxTextAttr_IsDefault, 1788). --define(wxTextAttr_SetAlignment, 1789). --define(wxTextAttr_SetBackgroundColour, 1790). --define(wxTextAttr_SetFlags, 1791). --define(wxTextAttr_SetFont, 1792). --define(wxTextAttr_SetLeftIndent, 1793). --define(wxTextAttr_SetRightIndent, 1794). --define(wxTextAttr_SetTabs, 1795). --define(wxTextAttr_SetTextColour, 1796). --define(wxTextAttr_destroy, 1797). --define(wxTextCtrl_new_3, 1799). --define(wxTextCtrl_new_0, 1800). --define(wxTextCtrl_destruct, 1802). --define(wxTextCtrl_AppendText, 1803). --define(wxTextCtrl_CanCopy, 1804). --define(wxTextCtrl_CanCut, 1805). --define(wxTextCtrl_CanPaste, 1806). --define(wxTextCtrl_CanRedo, 1807). --define(wxTextCtrl_CanUndo, 1808). --define(wxTextCtrl_Clear, 1809). --define(wxTextCtrl_Copy, 1810). --define(wxTextCtrl_Create, 1811). --define(wxTextCtrl_Cut, 1812). --define(wxTextCtrl_DiscardEdits, 1813). --define(wxTextCtrl_EmulateKeyPress, 1814). --define(wxTextCtrl_GetDefaultStyle, 1815). --define(wxTextCtrl_GetInsertionPoint, 1816). --define(wxTextCtrl_GetLastPosition, 1817). --define(wxTextCtrl_GetLineLength, 1818). --define(wxTextCtrl_GetLineText, 1819). --define(wxTextCtrl_GetNumberOfLines, 1820). --define(wxTextCtrl_GetRange, 1821). --define(wxTextCtrl_GetSelection, 1822). --define(wxTextCtrl_GetStringSelection, 1823). --define(wxTextCtrl_GetStyle, 1824). --define(wxTextCtrl_GetValue, 1825). --define(wxTextCtrl_IsEditable, 1826). --define(wxTextCtrl_IsModified, 1827). --define(wxTextCtrl_IsMultiLine, 1828). --define(wxTextCtrl_IsSingleLine, 1829). --define(wxTextCtrl_LoadFile, 1830). --define(wxTextCtrl_MarkDirty, 1831). --define(wxTextCtrl_Paste, 1832). --define(wxTextCtrl_PositionToXY, 1833). --define(wxTextCtrl_Redo, 1834). --define(wxTextCtrl_Remove, 1835). --define(wxTextCtrl_Replace, 1836). --define(wxTextCtrl_SaveFile, 1837). --define(wxTextCtrl_SetDefaultStyle, 1838). --define(wxTextCtrl_SetEditable, 1839). --define(wxTextCtrl_SetInsertionPoint, 1840). --define(wxTextCtrl_SetInsertionPointEnd, 1841). --define(wxTextCtrl_SetMaxLength, 1843). --define(wxTextCtrl_SetSelection, 1844). --define(wxTextCtrl_SetStyle, 1845). --define(wxTextCtrl_SetValue, 1846). --define(wxTextCtrl_ShowPosition, 1847). --define(wxTextCtrl_Undo, 1848). --define(wxTextCtrl_WriteText, 1849). --define(wxTextCtrl_XYToPosition, 1850). --define(wxNotebook_new_0, 1853). --define(wxNotebook_new_3, 1854). --define(wxNotebook_destruct, 1855). --define(wxNotebook_AddPage, 1856). --define(wxNotebook_AdvanceSelection, 1857). --define(wxNotebook_AssignImageList, 1858). --define(wxNotebook_Create, 1859). --define(wxNotebook_DeleteAllPages, 1860). --define(wxNotebook_DeletePage, 1861). --define(wxNotebook_RemovePage, 1862). --define(wxNotebook_GetCurrentPage, 1863). --define(wxNotebook_GetImageList, 1864). --define(wxNotebook_GetPage, 1866). --define(wxNotebook_GetPageCount, 1867). --define(wxNotebook_GetPageImage, 1868). --define(wxNotebook_GetPageText, 1869). --define(wxNotebook_GetRowCount, 1870). --define(wxNotebook_GetSelection, 1871). --define(wxNotebook_GetThemeBackgroundColour, 1872). --define(wxNotebook_HitTest, 1874). --define(wxNotebook_InsertPage, 1876). --define(wxNotebook_SetImageList, 1877). --define(wxNotebook_SetPadding, 1878). --define(wxNotebook_SetPageSize, 1879). --define(wxNotebook_SetPageImage, 1880). --define(wxNotebook_SetPageText, 1881). --define(wxNotebook_SetSelection, 1882). --define(wxNotebook_ChangeSelection, 1883). --define(wxChoicebook_new_0, 1884). --define(wxChoicebook_new_3, 1885). --define(wxChoicebook_AddPage, 1886). --define(wxChoicebook_AdvanceSelection, 1887). --define(wxChoicebook_AssignImageList, 1888). --define(wxChoicebook_Create, 1889). --define(wxChoicebook_DeleteAllPages, 1890). --define(wxChoicebook_DeletePage, 1891). --define(wxChoicebook_RemovePage, 1892). --define(wxChoicebook_GetCurrentPage, 1893). --define(wxChoicebook_GetImageList, 1894). --define(wxChoicebook_GetPage, 1896). --define(wxChoicebook_GetPageCount, 1897). --define(wxChoicebook_GetPageImage, 1898). --define(wxChoicebook_GetPageText, 1899). --define(wxChoicebook_GetSelection, 1900). --define(wxChoicebook_HitTest, 1901). --define(wxChoicebook_InsertPage, 1902). --define(wxChoicebook_SetImageList, 1903). --define(wxChoicebook_SetPageSize, 1904). --define(wxChoicebook_SetPageImage, 1905). --define(wxChoicebook_SetPageText, 1906). --define(wxChoicebook_SetSelection, 1907). --define(wxChoicebook_ChangeSelection, 1908). --define(wxChoicebook_destroy, 1909). --define(wxToolbook_new_0, 1910). --define(wxToolbook_new_3, 1911). --define(wxToolbook_AddPage, 1912). --define(wxToolbook_AdvanceSelection, 1913). --define(wxToolbook_AssignImageList, 1914). --define(wxToolbook_Create, 1915). --define(wxToolbook_DeleteAllPages, 1916). --define(wxToolbook_DeletePage, 1917). --define(wxToolbook_RemovePage, 1918). --define(wxToolbook_GetCurrentPage, 1919). --define(wxToolbook_GetImageList, 1920). --define(wxToolbook_GetPage, 1922). --define(wxToolbook_GetPageCount, 1923). --define(wxToolbook_GetPageImage, 1924). --define(wxToolbook_GetPageText, 1925). --define(wxToolbook_GetSelection, 1926). --define(wxToolbook_HitTest, 1928). --define(wxToolbook_InsertPage, 1929). --define(wxToolbook_SetImageList, 1930). --define(wxToolbook_SetPageSize, 1931). --define(wxToolbook_SetPageImage, 1932). --define(wxToolbook_SetPageText, 1933). --define(wxToolbook_SetSelection, 1934). --define(wxToolbook_ChangeSelection, 1935). --define(wxToolbook_destroy, 1936). --define(wxListbook_new_0, 1937). --define(wxListbook_new_3, 1938). --define(wxListbook_AddPage, 1939). --define(wxListbook_AdvanceSelection, 1940). --define(wxListbook_AssignImageList, 1941). --define(wxListbook_Create, 1942). --define(wxListbook_DeleteAllPages, 1943). --define(wxListbook_DeletePage, 1944). --define(wxListbook_RemovePage, 1945). --define(wxListbook_GetCurrentPage, 1946). --define(wxListbook_GetImageList, 1947). --define(wxListbook_GetPage, 1949). --define(wxListbook_GetPageCount, 1950). --define(wxListbook_GetPageImage, 1951). --define(wxListbook_GetPageText, 1952). --define(wxListbook_GetSelection, 1953). --define(wxListbook_HitTest, 1955). --define(wxListbook_InsertPage, 1956). --define(wxListbook_SetImageList, 1957). --define(wxListbook_SetPageSize, 1958). --define(wxListbook_SetPageImage, 1959). --define(wxListbook_SetPageText, 1960). --define(wxListbook_SetSelection, 1961). --define(wxListbook_ChangeSelection, 1962). --define(wxListbook_destroy, 1963). --define(wxTreebook_new_0, 1964). --define(wxTreebook_new_3, 1965). --define(wxTreebook_AddPage, 1966). --define(wxTreebook_AdvanceSelection, 1967). --define(wxTreebook_AssignImageList, 1968). --define(wxTreebook_Create, 1969). --define(wxTreebook_DeleteAllPages, 1970). --define(wxTreebook_DeletePage, 1971). --define(wxTreebook_RemovePage, 1972). --define(wxTreebook_GetCurrentPage, 1973). --define(wxTreebook_GetImageList, 1974). --define(wxTreebook_GetPage, 1976). --define(wxTreebook_GetPageCount, 1977). --define(wxTreebook_GetPageImage, 1978). --define(wxTreebook_GetPageText, 1979). --define(wxTreebook_GetSelection, 1980). --define(wxTreebook_ExpandNode, 1981). --define(wxTreebook_IsNodeExpanded, 1982). --define(wxTreebook_HitTest, 1984). --define(wxTreebook_InsertPage, 1985). --define(wxTreebook_InsertSubPage, 1986). --define(wxTreebook_SetImageList, 1987). --define(wxTreebook_SetPageSize, 1988). --define(wxTreebook_SetPageImage, 1989). --define(wxTreebook_SetPageText, 1990). --define(wxTreebook_SetSelection, 1991). --define(wxTreebook_ChangeSelection, 1992). --define(wxTreebook_destroy, 1993). --define(wxTreeCtrl_new_2, 1996). --define(wxTreeCtrl_new_0, 1997). --define(wxTreeCtrl_destruct, 1999). --define(wxTreeCtrl_AddRoot, 2000). --define(wxTreeCtrl_AppendItem, 2001). --define(wxTreeCtrl_AssignImageList, 2002). --define(wxTreeCtrl_AssignStateImageList, 2003). --define(wxTreeCtrl_Collapse, 2004). --define(wxTreeCtrl_CollapseAndReset, 2005). --define(wxTreeCtrl_Create, 2006). --define(wxTreeCtrl_Delete, 2007). --define(wxTreeCtrl_DeleteAllItems, 2008). --define(wxTreeCtrl_DeleteChildren, 2009). --define(wxTreeCtrl_EditLabel, 2010). --define(wxTreeCtrl_EnsureVisible, 2011). --define(wxTreeCtrl_Expand, 2012). --define(wxTreeCtrl_GetBoundingRect, 2013). --define(wxTreeCtrl_GetChildrenCount, 2015). --define(wxTreeCtrl_GetCount, 2016). --define(wxTreeCtrl_GetEditControl, 2017). --define(wxTreeCtrl_GetFirstChild, 2018). --define(wxTreeCtrl_GetNextChild, 2019). --define(wxTreeCtrl_GetFirstVisibleItem, 2020). --define(wxTreeCtrl_GetImageList, 2021). --define(wxTreeCtrl_GetIndent, 2022). --define(wxTreeCtrl_GetItemBackgroundColour, 2023). --define(wxTreeCtrl_GetItemData, 2024). --define(wxTreeCtrl_GetItemFont, 2025). --define(wxTreeCtrl_GetItemImage_1, 2026). --define(wxTreeCtrl_GetItemImage_2, 2027). --define(wxTreeCtrl_GetItemText, 2028). --define(wxTreeCtrl_GetItemTextColour, 2029). --define(wxTreeCtrl_GetLastChild, 2030). --define(wxTreeCtrl_GetNextSibling, 2031). --define(wxTreeCtrl_GetNextVisible, 2032). --define(wxTreeCtrl_GetItemParent, 2033). --define(wxTreeCtrl_GetPrevSibling, 2034). --define(wxTreeCtrl_GetPrevVisible, 2035). --define(wxTreeCtrl_GetRootItem, 2036). --define(wxTreeCtrl_GetSelection, 2037). --define(wxTreeCtrl_GetSelections, 2038). --define(wxTreeCtrl_GetStateImageList, 2039). --define(wxTreeCtrl_HitTest, 2040). --define(wxTreeCtrl_InsertItem, 2042). --define(wxTreeCtrl_IsBold, 2043). --define(wxTreeCtrl_IsExpanded, 2044). --define(wxTreeCtrl_IsSelected, 2045). --define(wxTreeCtrl_IsVisible, 2046). --define(wxTreeCtrl_ItemHasChildren, 2047). --define(wxTreeCtrl_PrependItem, 2048). --define(wxTreeCtrl_ScrollTo, 2049). --define(wxTreeCtrl_SelectItem_1, 2050). --define(wxTreeCtrl_SelectItem_2, 2051). --define(wxTreeCtrl_SetIndent, 2052). --define(wxTreeCtrl_SetImageList, 2053). --define(wxTreeCtrl_SetItemBackgroundColour, 2054). --define(wxTreeCtrl_SetItemBold, 2055). --define(wxTreeCtrl_SetItemData, 2056). --define(wxTreeCtrl_SetItemDropHighlight, 2057). --define(wxTreeCtrl_SetItemFont, 2058). --define(wxTreeCtrl_SetItemHasChildren, 2059). --define(wxTreeCtrl_SetItemImage_2, 2060). --define(wxTreeCtrl_SetItemImage_3, 2061). --define(wxTreeCtrl_SetItemText, 2062). --define(wxTreeCtrl_SetItemTextColour, 2063). --define(wxTreeCtrl_SetStateImageList, 2064). --define(wxTreeCtrl_SetWindowStyle, 2065). --define(wxTreeCtrl_SortChildren, 2066). --define(wxTreeCtrl_Toggle, 2067). --define(wxTreeCtrl_ToggleItemSelection, 2068). --define(wxTreeCtrl_Unselect, 2069). --define(wxTreeCtrl_UnselectAll, 2070). --define(wxTreeCtrl_UnselectItem, 2071). --define(wxScrollBar_new_0, 2072). --define(wxScrollBar_new_3, 2073). --define(wxScrollBar_destruct, 2074). --define(wxScrollBar_Create, 2075). --define(wxScrollBar_GetRange, 2076). --define(wxScrollBar_GetPageSize, 2077). --define(wxScrollBar_GetThumbPosition, 2078). --define(wxScrollBar_GetThumbSize, 2079). --define(wxScrollBar_SetThumbPosition, 2080). --define(wxScrollBar_SetScrollbar, 2081). --define(wxSpinButton_new_2, 2083). --define(wxSpinButton_new_0, 2084). --define(wxSpinButton_Create, 2085). --define(wxSpinButton_GetMax, 2086). --define(wxSpinButton_GetMin, 2087). --define(wxSpinButton_GetValue, 2088). --define(wxSpinButton_SetRange, 2089). --define(wxSpinButton_SetValue, 2090). --define(wxSpinButton_destroy, 2091). --define(wxSpinCtrl_new_0, 2092). --define(wxSpinCtrl_new_2, 2093). --define(wxSpinCtrl_Create, 2095). --define(wxSpinCtrl_SetValue_1_1, 2098). --define(wxSpinCtrl_SetValue_1_0, 2099). --define(wxSpinCtrl_GetValue, 2101). --define(wxSpinCtrl_SetRange, 2103). --define(wxSpinCtrl_SetSelection, 2104). --define(wxSpinCtrl_GetMin, 2106). --define(wxSpinCtrl_GetMax, 2108). --define(wxSpinCtrl_destroy, 2109). --define(wxStaticText_new_0, 2110). --define(wxStaticText_new_4, 2111). --define(wxStaticText_Create, 2112). --define(wxStaticText_GetLabel, 2113). --define(wxStaticText_SetLabel, 2114). --define(wxStaticText_Wrap, 2115). --define(wxStaticText_destroy, 2116). --define(wxStaticBitmap_new_0, 2117). --define(wxStaticBitmap_new_4, 2118). --define(wxStaticBitmap_Create, 2119). --define(wxStaticBitmap_GetBitmap, 2120). --define(wxStaticBitmap_SetBitmap, 2121). --define(wxStaticBitmap_destroy, 2122). --define(wxRadioBox_new, 2123). --define(wxRadioBox_destruct, 2125). --define(wxRadioBox_Create, 2126). --define(wxRadioBox_Enable_2, 2127). --define(wxRadioBox_Enable_1, 2128). --define(wxRadioBox_GetSelection, 2129). --define(wxRadioBox_GetString, 2130). --define(wxRadioBox_SetSelection, 2131). --define(wxRadioBox_Show_2, 2132). --define(wxRadioBox_Show_1, 2133). --define(wxRadioBox_GetColumnCount, 2134). --define(wxRadioBox_GetItemHelpText, 2135). --define(wxRadioBox_GetItemToolTip, 2136). --define(wxRadioBox_GetItemFromPoint, 2138). --define(wxRadioBox_GetRowCount, 2139). --define(wxRadioBox_IsItemEnabled, 2140). --define(wxRadioBox_IsItemShown, 2141). --define(wxRadioBox_SetItemHelpText, 2142). --define(wxRadioBox_SetItemToolTip, 2143). --define(wxRadioButton_new_0, 2144). --define(wxRadioButton_new_4, 2145). --define(wxRadioButton_Create, 2146). --define(wxRadioButton_GetValue, 2147). --define(wxRadioButton_SetValue, 2148). --define(wxRadioButton_destroy, 2149). --define(wxSlider_new_6, 2151). --define(wxSlider_new_0, 2152). --define(wxSlider_Create, 2153). --define(wxSlider_GetLineSize, 2154). --define(wxSlider_GetMax, 2155). --define(wxSlider_GetMin, 2156). --define(wxSlider_GetPageSize, 2157). --define(wxSlider_GetThumbLength, 2158). --define(wxSlider_GetValue, 2159). --define(wxSlider_SetLineSize, 2160). --define(wxSlider_SetPageSize, 2161). --define(wxSlider_SetRange, 2162). --define(wxSlider_SetThumbLength, 2163). --define(wxSlider_SetValue, 2164). --define(wxSlider_destroy, 2165). --define(wxDialog_new_4, 2167). --define(wxDialog_new_0, 2168). --define(wxDialog_destruct, 2170). --define(wxDialog_Create, 2171). --define(wxDialog_CreateButtonSizer, 2172). --define(wxDialog_CreateStdDialogButtonSizer, 2173). --define(wxDialog_EndModal, 2174). --define(wxDialog_GetAffirmativeId, 2175). --define(wxDialog_GetReturnCode, 2176). --define(wxDialog_IsModal, 2177). --define(wxDialog_SetAffirmativeId, 2178). --define(wxDialog_SetReturnCode, 2179). --define(wxDialog_Show, 2180). --define(wxDialog_ShowModal, 2181). --define(wxColourDialog_new_0, 2182). --define(wxColourDialog_new_2, 2183). --define(wxColourDialog_destruct, 2184). --define(wxColourDialog_Create, 2185). --define(wxColourDialog_GetColourData, 2186). --define(wxColourData_new_0, 2187). --define(wxColourData_new_1, 2188). --define(wxColourData_destruct, 2189). --define(wxColourData_GetChooseFull, 2190). --define(wxColourData_GetColour, 2191). --define(wxColourData_GetCustomColour, 2193). --define(wxColourData_SetChooseFull, 2194). --define(wxColourData_SetColour, 2195). --define(wxColourData_SetCustomColour, 2196). --define(wxPalette_new_0, 2197). --define(wxPalette_new_4, 2198). --define(wxPalette_destruct, 2200). --define(wxPalette_Create, 2201). --define(wxPalette_GetColoursCount, 2202). --define(wxPalette_GetPixel, 2203). --define(wxPalette_GetRGB, 2204). --define(wxPalette_IsOk, 2205). --define(wxDirDialog_new, 2209). --define(wxDirDialog_destruct, 2210). --define(wxDirDialog_GetPath, 2211). --define(wxDirDialog_GetMessage, 2212). --define(wxDirDialog_SetMessage, 2213). --define(wxDirDialog_SetPath, 2214). --define(wxFileDialog_new, 2218). --define(wxFileDialog_destruct, 2219). --define(wxFileDialog_GetDirectory, 2220). --define(wxFileDialog_GetFilename, 2221). --define(wxFileDialog_GetFilenames, 2222). --define(wxFileDialog_GetFilterIndex, 2223). --define(wxFileDialog_GetMessage, 2224). --define(wxFileDialog_GetPath, 2225). --define(wxFileDialog_GetPaths, 2226). --define(wxFileDialog_GetWildcard, 2227). --define(wxFileDialog_SetDirectory, 2228). --define(wxFileDialog_SetFilename, 2229). --define(wxFileDialog_SetFilterIndex, 2230). --define(wxFileDialog_SetMessage, 2231). --define(wxFileDialog_SetPath, 2232). --define(wxFileDialog_SetWildcard, 2233). --define(wxPickerBase_SetInternalMargin, 2234). --define(wxPickerBase_GetInternalMargin, 2235). --define(wxPickerBase_SetTextCtrlProportion, 2236). --define(wxPickerBase_SetPickerCtrlProportion, 2237). --define(wxPickerBase_GetTextCtrlProportion, 2238). --define(wxPickerBase_GetPickerCtrlProportion, 2239). --define(wxPickerBase_HasTextCtrl, 2240). --define(wxPickerBase_GetTextCtrl, 2241). --define(wxPickerBase_IsTextCtrlGrowable, 2242). --define(wxPickerBase_SetPickerCtrlGrowable, 2243). --define(wxPickerBase_SetTextCtrlGrowable, 2244). --define(wxPickerBase_IsPickerCtrlGrowable, 2245). --define(wxFilePickerCtrl_new_0, 2246). --define(wxFilePickerCtrl_new_3, 2247). --define(wxFilePickerCtrl_Create, 2248). --define(wxFilePickerCtrl_GetPath, 2249). --define(wxFilePickerCtrl_SetPath, 2250). --define(wxFilePickerCtrl_destroy, 2251). --define(wxDirPickerCtrl_new_0, 2252). --define(wxDirPickerCtrl_new_3, 2253). --define(wxDirPickerCtrl_Create, 2254). --define(wxDirPickerCtrl_GetPath, 2255). --define(wxDirPickerCtrl_SetPath, 2256). --define(wxDirPickerCtrl_destroy, 2257). --define(wxColourPickerCtrl_new_0, 2258). --define(wxColourPickerCtrl_new_3, 2259). --define(wxColourPickerCtrl_Create, 2260). --define(wxColourPickerCtrl_GetColour, 2261). --define(wxColourPickerCtrl_SetColour_1_1, 2262). --define(wxColourPickerCtrl_SetColour_1_0, 2263). --define(wxColourPickerCtrl_destroy, 2264). --define(wxDatePickerCtrl_new_0, 2265). --define(wxDatePickerCtrl_new_3, 2266). --define(wxDatePickerCtrl_GetRange, 2267). --define(wxDatePickerCtrl_GetValue, 2268). --define(wxDatePickerCtrl_SetRange, 2269). --define(wxDatePickerCtrl_SetValue, 2270). --define(wxDatePickerCtrl_destroy, 2271). --define(wxFontPickerCtrl_new_0, 2272). --define(wxFontPickerCtrl_new_3, 2273). --define(wxFontPickerCtrl_Create, 2274). --define(wxFontPickerCtrl_GetSelectedFont, 2275). --define(wxFontPickerCtrl_SetSelectedFont, 2276). --define(wxFontPickerCtrl_GetMaxPointSize, 2277). --define(wxFontPickerCtrl_SetMaxPointSize, 2278). --define(wxFontPickerCtrl_destroy, 2279). --define(wxFindReplaceDialog_new_0, 2282). --define(wxFindReplaceDialog_new_4, 2283). --define(wxFindReplaceDialog_destruct, 2284). --define(wxFindReplaceDialog_Create, 2285). --define(wxFindReplaceDialog_GetData, 2286). --define(wxFindReplaceData_new_0, 2287). --define(wxFindReplaceData_new_1, 2288). --define(wxFindReplaceData_GetFindString, 2289). --define(wxFindReplaceData_GetReplaceString, 2290). --define(wxFindReplaceData_GetFlags, 2291). --define(wxFindReplaceData_SetFlags, 2292). --define(wxFindReplaceData_SetFindString, 2293). --define(wxFindReplaceData_SetReplaceString, 2294). --define(wxFindReplaceData_destroy, 2295). --define(wxMultiChoiceDialog_new_0, 2296). --define(wxMultiChoiceDialog_new_5, 2298). --define(wxMultiChoiceDialog_GetSelections, 2299). --define(wxMultiChoiceDialog_SetSelections, 2300). --define(wxMultiChoiceDialog_destroy, 2301). --define(wxSingleChoiceDialog_new_0, 2302). --define(wxSingleChoiceDialog_new_5, 2304). --define(wxSingleChoiceDialog_GetSelection, 2305). --define(wxSingleChoiceDialog_GetStringSelection, 2306). --define(wxSingleChoiceDialog_SetSelection, 2307). --define(wxSingleChoiceDialog_destroy, 2308). --define(wxTextEntryDialog_new, 2309). --define(wxTextEntryDialog_GetValue, 2310). --define(wxTextEntryDialog_SetValue, 2311). --define(wxTextEntryDialog_destroy, 2312). --define(wxPasswordEntryDialog_new, 2313). --define(wxPasswordEntryDialog_destroy, 2314). --define(wxFontData_new_0, 2315). --define(wxFontData_new_1, 2316). --define(wxFontData_destruct, 2317). --define(wxFontData_EnableEffects, 2318). --define(wxFontData_GetAllowSymbols, 2319). --define(wxFontData_GetColour, 2320). --define(wxFontData_GetChosenFont, 2321). --define(wxFontData_GetEnableEffects, 2322). --define(wxFontData_GetInitialFont, 2323). --define(wxFontData_GetShowHelp, 2324). --define(wxFontData_SetAllowSymbols, 2325). --define(wxFontData_SetChosenFont, 2326). --define(wxFontData_SetColour, 2327). --define(wxFontData_SetInitialFont, 2328). --define(wxFontData_SetRange, 2329). --define(wxFontData_SetShowHelp, 2330). --define(wxFontDialog_new_0, 2334). --define(wxFontDialog_new_2, 2336). --define(wxFontDialog_Create, 2338). --define(wxFontDialog_GetFontData, 2339). --define(wxFontDialog_destroy, 2341). --define(wxProgressDialog_new, 2342). --define(wxProgressDialog_destruct, 2343). --define(wxProgressDialog_Resume, 2344). --define(wxProgressDialog_Update_2, 2345). --define(wxProgressDialog_Update_0, 2346). --define(wxMessageDialog_new, 2347). --define(wxMessageDialog_destruct, 2348). --define(wxPageSetupDialog_new, 2349). --define(wxPageSetupDialog_destruct, 2350). --define(wxPageSetupDialog_GetPageSetupData, 2351). --define(wxPageSetupDialog_ShowModal, 2352). --define(wxPageSetupDialogData_new_0, 2353). --define(wxPageSetupDialogData_new_1_0, 2354). --define(wxPageSetupDialogData_new_1_1, 2355). --define(wxPageSetupDialogData_destruct, 2356). --define(wxPageSetupDialogData_EnableHelp, 2357). --define(wxPageSetupDialogData_EnableMargins, 2358). --define(wxPageSetupDialogData_EnableOrientation, 2359). --define(wxPageSetupDialogData_EnablePaper, 2360). --define(wxPageSetupDialogData_EnablePrinter, 2361). --define(wxPageSetupDialogData_GetDefaultMinMargins, 2362). --define(wxPageSetupDialogData_GetEnableMargins, 2363). --define(wxPageSetupDialogData_GetEnableOrientation, 2364). --define(wxPageSetupDialogData_GetEnablePaper, 2365). --define(wxPageSetupDialogData_GetEnablePrinter, 2366). --define(wxPageSetupDialogData_GetEnableHelp, 2367). --define(wxPageSetupDialogData_GetDefaultInfo, 2368). --define(wxPageSetupDialogData_GetMarginTopLeft, 2369). --define(wxPageSetupDialogData_GetMarginBottomRight, 2370). --define(wxPageSetupDialogData_GetMinMarginTopLeft, 2371). --define(wxPageSetupDialogData_GetMinMarginBottomRight, 2372). --define(wxPageSetupDialogData_GetPaperId, 2373). --define(wxPageSetupDialogData_GetPaperSize, 2374). --define(wxPageSetupDialogData_GetPrintData, 2376). --define(wxPageSetupDialogData_IsOk, 2377). --define(wxPageSetupDialogData_SetDefaultInfo, 2378). --define(wxPageSetupDialogData_SetDefaultMinMargins, 2379). --define(wxPageSetupDialogData_SetMarginTopLeft, 2380). --define(wxPageSetupDialogData_SetMarginBottomRight, 2381). --define(wxPageSetupDialogData_SetMinMarginTopLeft, 2382). --define(wxPageSetupDialogData_SetMinMarginBottomRight, 2383). --define(wxPageSetupDialogData_SetPaperId, 2384). --define(wxPageSetupDialogData_SetPaperSize_1_1, 2385). --define(wxPageSetupDialogData_SetPaperSize_1_0, 2386). --define(wxPageSetupDialogData_SetPrintData, 2387). --define(wxPrintDialog_new_2_0, 2388). --define(wxPrintDialog_new_2_1, 2389). --define(wxPrintDialog_destruct, 2390). --define(wxPrintDialog_GetPrintDialogData, 2391). --define(wxPrintDialog_GetPrintDC, 2392). --define(wxPrintDialogData_new_0, 2393). --define(wxPrintDialogData_new_1_1, 2394). --define(wxPrintDialogData_new_1_0, 2395). --define(wxPrintDialogData_destruct, 2396). --define(wxPrintDialogData_EnableHelp, 2397). --define(wxPrintDialogData_EnablePageNumbers, 2398). --define(wxPrintDialogData_EnablePrintToFile, 2399). --define(wxPrintDialogData_EnableSelection, 2400). --define(wxPrintDialogData_GetAllPages, 2401). --define(wxPrintDialogData_GetCollate, 2402). --define(wxPrintDialogData_GetFromPage, 2403). --define(wxPrintDialogData_GetMaxPage, 2404). --define(wxPrintDialogData_GetMinPage, 2405). --define(wxPrintDialogData_GetNoCopies, 2406). --define(wxPrintDialogData_GetPrintData, 2407). --define(wxPrintDialogData_GetPrintToFile, 2408). --define(wxPrintDialogData_GetSelection, 2409). --define(wxPrintDialogData_GetToPage, 2410). --define(wxPrintDialogData_IsOk, 2411). --define(wxPrintDialogData_SetCollate, 2412). --define(wxPrintDialogData_SetFromPage, 2413). --define(wxPrintDialogData_SetMaxPage, 2414). --define(wxPrintDialogData_SetMinPage, 2415). --define(wxPrintDialogData_SetNoCopies, 2416). --define(wxPrintDialogData_SetPrintData, 2417). --define(wxPrintDialogData_SetPrintToFile, 2418). --define(wxPrintDialogData_SetSelection, 2419). --define(wxPrintDialogData_SetToPage, 2420). --define(wxPrintData_new_0, 2421). --define(wxPrintData_new_1, 2422). --define(wxPrintData_destruct, 2423). --define(wxPrintData_GetCollate, 2424). --define(wxPrintData_GetBin, 2425). --define(wxPrintData_GetColour, 2426). --define(wxPrintData_GetDuplex, 2427). --define(wxPrintData_GetNoCopies, 2428). --define(wxPrintData_GetOrientation, 2429). --define(wxPrintData_GetPaperId, 2430). --define(wxPrintData_GetPrinterName, 2431). --define(wxPrintData_GetQuality, 2432). --define(wxPrintData_IsOk, 2433). --define(wxPrintData_SetBin, 2434). --define(wxPrintData_SetCollate, 2435). --define(wxPrintData_SetColour, 2436). --define(wxPrintData_SetDuplex, 2437). --define(wxPrintData_SetNoCopies, 2438). --define(wxPrintData_SetOrientation, 2439). --define(wxPrintData_SetPaperId, 2440). --define(wxPrintData_SetPrinterName, 2441). --define(wxPrintData_SetQuality, 2442). --define(wxPrintPreview_new_2, 2445). --define(wxPrintPreview_new_3, 2446). --define(wxPrintPreview_destruct, 2448). --define(wxPrintPreview_GetCanvas, 2449). --define(wxPrintPreview_GetCurrentPage, 2450). --define(wxPrintPreview_GetFrame, 2451). --define(wxPrintPreview_GetMaxPage, 2452). --define(wxPrintPreview_GetMinPage, 2453). --define(wxPrintPreview_GetPrintout, 2454). --define(wxPrintPreview_GetPrintoutForPrinting, 2455). --define(wxPrintPreview_IsOk, 2456). --define(wxPrintPreview_PaintPage, 2457). --define(wxPrintPreview_Print, 2458). --define(wxPrintPreview_RenderPage, 2459). --define(wxPrintPreview_SetCanvas, 2460). --define(wxPrintPreview_SetCurrentPage, 2461). --define(wxPrintPreview_SetFrame, 2462). --define(wxPrintPreview_SetPrintout, 2463). --define(wxPrintPreview_SetZoom, 2464). --define(wxPreviewFrame_new, 2465). --define(wxPreviewFrame_destruct, 2466). --define(wxPreviewFrame_CreateControlBar, 2467). --define(wxPreviewFrame_CreateCanvas, 2468). --define(wxPreviewFrame_Initialize, 2469). --define(wxPreviewFrame_OnCloseWindow, 2470). --define(wxPreviewControlBar_new, 2471). --define(wxPreviewControlBar_destruct, 2472). --define(wxPreviewControlBar_CreateButtons, 2473). --define(wxPreviewControlBar_GetPrintPreview, 2474). --define(wxPreviewControlBar_GetZoomControl, 2475). --define(wxPreviewControlBar_SetZoomControl, 2476). --define(wxPrinter_new, 2478). --define(wxPrinter_CreateAbortWindow, 2479). --define(wxPrinter_GetAbort, 2480). --define(wxPrinter_GetLastError, 2481). --define(wxPrinter_GetPrintDialogData, 2482). --define(wxPrinter_Print, 2483). --define(wxPrinter_PrintDialog, 2484). --define(wxPrinter_ReportError, 2485). --define(wxPrinter_Setup, 2486). --define(wxPrinter_destroy, 2487). --define(wxXmlResource_new_1, 2488). --define(wxXmlResource_new_2, 2489). --define(wxXmlResource_destruct, 2490). --define(wxXmlResource_AttachUnknownControl, 2491). --define(wxXmlResource_ClearHandlers, 2492). --define(wxXmlResource_CompareVersion, 2493). --define(wxXmlResource_Get, 2494). --define(wxXmlResource_GetFlags, 2495). --define(wxXmlResource_GetVersion, 2496). --define(wxXmlResource_GetXRCID, 2497). --define(wxXmlResource_InitAllHandlers, 2498). --define(wxXmlResource_Load, 2499). --define(wxXmlResource_LoadBitmap, 2500). --define(wxXmlResource_LoadDialog_2, 2501). --define(wxXmlResource_LoadDialog_3, 2502). --define(wxXmlResource_LoadFrame_2, 2503). --define(wxXmlResource_LoadFrame_3, 2504). --define(wxXmlResource_LoadIcon, 2505). --define(wxXmlResource_LoadMenu, 2506). --define(wxXmlResource_LoadMenuBar_2, 2507). --define(wxXmlResource_LoadMenuBar_1, 2508). --define(wxXmlResource_LoadPanel_2, 2509). --define(wxXmlResource_LoadPanel_3, 2510). --define(wxXmlResource_LoadToolBar, 2511). --define(wxXmlResource_Set, 2512). --define(wxXmlResource_SetFlags, 2513). --define(wxXmlResource_Unload, 2514). --define(wxXmlResource_xrcctrl, 2515). --define(wxHtmlEasyPrinting_new, 2516). --define(wxHtmlEasyPrinting_destruct, 2517). --define(wxHtmlEasyPrinting_GetPrintData, 2518). --define(wxHtmlEasyPrinting_GetPageSetupData, 2519). --define(wxHtmlEasyPrinting_PreviewFile, 2520). --define(wxHtmlEasyPrinting_PreviewText, 2521). --define(wxHtmlEasyPrinting_PrintFile, 2522). --define(wxHtmlEasyPrinting_PrintText, 2523). --define(wxHtmlEasyPrinting_PageSetup, 2524). --define(wxHtmlEasyPrinting_SetFonts, 2525). --define(wxHtmlEasyPrinting_SetHeader, 2526). --define(wxHtmlEasyPrinting_SetFooter, 2527). --define(wxGLCanvas_new_2, 2529). --define(wxGLCanvas_new_3_1, 2530). --define(wxGLCanvas_new_3_0, 2531). --define(wxGLCanvas_GetContext, 2532). --define(wxGLCanvas_SetCurrent, 2534). --define(wxGLCanvas_SwapBuffers, 2535). --define(wxGLCanvas_destroy, 2536). --define(wxAuiManager_new, 2537). --define(wxAuiManager_destruct, 2538). --define(wxAuiManager_AddPane_2_1, 2539). --define(wxAuiManager_AddPane_3, 2540). --define(wxAuiManager_AddPane_2_0, 2541). --define(wxAuiManager_DetachPane, 2542). --define(wxAuiManager_GetAllPanes, 2543). --define(wxAuiManager_GetArtProvider, 2544). --define(wxAuiManager_GetDockSizeConstraint, 2545). --define(wxAuiManager_GetFlags, 2546). --define(wxAuiManager_GetManagedWindow, 2547). --define(wxAuiManager_GetManager, 2548). --define(wxAuiManager_GetPane_1_1, 2549). --define(wxAuiManager_GetPane_1_0, 2550). --define(wxAuiManager_HideHint, 2551). --define(wxAuiManager_InsertPane, 2552). --define(wxAuiManager_LoadPaneInfo, 2553). --define(wxAuiManager_LoadPerspective, 2554). --define(wxAuiManager_SavePaneInfo, 2555). --define(wxAuiManager_SavePerspective, 2556). --define(wxAuiManager_SetArtProvider, 2557). --define(wxAuiManager_SetDockSizeConstraint, 2558). --define(wxAuiManager_SetFlags, 2559). --define(wxAuiManager_SetManagedWindow, 2560). --define(wxAuiManager_ShowHint, 2561). --define(wxAuiManager_UnInit, 2562). --define(wxAuiManager_Update, 2563). --define(wxAuiPaneInfo_new_0, 2564). --define(wxAuiPaneInfo_new_1, 2565). --define(wxAuiPaneInfo_destruct, 2566). --define(wxAuiPaneInfo_BestSize_1, 2567). --define(wxAuiPaneInfo_BestSize_2, 2568). --define(wxAuiPaneInfo_Bottom, 2569). --define(wxAuiPaneInfo_BottomDockable, 2570). --define(wxAuiPaneInfo_Caption, 2571). --define(wxAuiPaneInfo_CaptionVisible, 2572). --define(wxAuiPaneInfo_Centre, 2573). --define(wxAuiPaneInfo_CentrePane, 2574). --define(wxAuiPaneInfo_CloseButton, 2575). --define(wxAuiPaneInfo_DefaultPane, 2576). --define(wxAuiPaneInfo_DestroyOnClose, 2577). --define(wxAuiPaneInfo_Direction, 2578). --define(wxAuiPaneInfo_Dock, 2579). --define(wxAuiPaneInfo_Dockable, 2580). --define(wxAuiPaneInfo_Fixed, 2581). --define(wxAuiPaneInfo_Float, 2582). --define(wxAuiPaneInfo_Floatable, 2583). --define(wxAuiPaneInfo_FloatingPosition_1, 2584). --define(wxAuiPaneInfo_FloatingPosition_2, 2585). --define(wxAuiPaneInfo_FloatingSize_1, 2586). --define(wxAuiPaneInfo_FloatingSize_2, 2587). --define(wxAuiPaneInfo_Gripper, 2588). --define(wxAuiPaneInfo_GripperTop, 2589). --define(wxAuiPaneInfo_HasBorder, 2590). --define(wxAuiPaneInfo_HasCaption, 2591). --define(wxAuiPaneInfo_HasCloseButton, 2592). --define(wxAuiPaneInfo_HasFlag, 2593). --define(wxAuiPaneInfo_HasGripper, 2594). --define(wxAuiPaneInfo_HasGripperTop, 2595). --define(wxAuiPaneInfo_HasMaximizeButton, 2596). --define(wxAuiPaneInfo_HasMinimizeButton, 2597). --define(wxAuiPaneInfo_HasPinButton, 2598). --define(wxAuiPaneInfo_Hide, 2599). --define(wxAuiPaneInfo_IsBottomDockable, 2600). --define(wxAuiPaneInfo_IsDocked, 2601). --define(wxAuiPaneInfo_IsFixed, 2602). --define(wxAuiPaneInfo_IsFloatable, 2603). --define(wxAuiPaneInfo_IsFloating, 2604). --define(wxAuiPaneInfo_IsLeftDockable, 2605). --define(wxAuiPaneInfo_IsMovable, 2606). --define(wxAuiPaneInfo_IsOk, 2607). --define(wxAuiPaneInfo_IsResizable, 2608). --define(wxAuiPaneInfo_IsRightDockable, 2609). --define(wxAuiPaneInfo_IsShown, 2610). --define(wxAuiPaneInfo_IsToolbar, 2611). --define(wxAuiPaneInfo_IsTopDockable, 2612). --define(wxAuiPaneInfo_Layer, 2613). --define(wxAuiPaneInfo_Left, 2614). --define(wxAuiPaneInfo_LeftDockable, 2615). --define(wxAuiPaneInfo_MaxSize_1, 2616). --define(wxAuiPaneInfo_MaxSize_2, 2617). --define(wxAuiPaneInfo_MaximizeButton, 2618). --define(wxAuiPaneInfo_MinSize_1, 2619). --define(wxAuiPaneInfo_MinSize_2, 2620). --define(wxAuiPaneInfo_MinimizeButton, 2621). --define(wxAuiPaneInfo_Movable, 2622). --define(wxAuiPaneInfo_Name, 2623). --define(wxAuiPaneInfo_PaneBorder, 2624). --define(wxAuiPaneInfo_PinButton, 2625). --define(wxAuiPaneInfo_Position, 2626). --define(wxAuiPaneInfo_Resizable, 2627). --define(wxAuiPaneInfo_Right, 2628). --define(wxAuiPaneInfo_RightDockable, 2629). --define(wxAuiPaneInfo_Row, 2630). --define(wxAuiPaneInfo_SafeSet, 2631). --define(wxAuiPaneInfo_SetFlag, 2632). --define(wxAuiPaneInfo_Show, 2633). --define(wxAuiPaneInfo_ToolbarPane, 2634). --define(wxAuiPaneInfo_Top, 2635). --define(wxAuiPaneInfo_TopDockable, 2636). --define(wxAuiPaneInfo_Window, 2637). --define(wxAuiNotebook_new_0, 2638). --define(wxAuiNotebook_new_2, 2639). --define(wxAuiNotebook_AddPage, 2640). --define(wxAuiNotebook_Create, 2641). --define(wxAuiNotebook_DeletePage, 2642). --define(wxAuiNotebook_GetArtProvider, 2643). --define(wxAuiNotebook_GetPage, 2644). --define(wxAuiNotebook_GetPageBitmap, 2645). --define(wxAuiNotebook_GetPageCount, 2646). --define(wxAuiNotebook_GetPageIndex, 2647). --define(wxAuiNotebook_GetPageText, 2648). --define(wxAuiNotebook_GetSelection, 2649). --define(wxAuiNotebook_InsertPage, 2650). --define(wxAuiNotebook_RemovePage, 2651). --define(wxAuiNotebook_SetArtProvider, 2652). --define(wxAuiNotebook_SetFont, 2653). --define(wxAuiNotebook_SetPageBitmap, 2654). --define(wxAuiNotebook_SetPageText, 2655). --define(wxAuiNotebook_SetSelection, 2656). --define(wxAuiNotebook_SetTabCtrlHeight, 2657). --define(wxAuiNotebook_SetUniformBitmapSize, 2658). --define(wxAuiNotebook_destroy, 2659). --define(wxMDIParentFrame_new_0, 2660). --define(wxMDIParentFrame_new_4, 2661). --define(wxMDIParentFrame_destruct, 2662). --define(wxMDIParentFrame_ActivateNext, 2663). --define(wxMDIParentFrame_ActivatePrevious, 2664). --define(wxMDIParentFrame_ArrangeIcons, 2665). --define(wxMDIParentFrame_Cascade, 2666). --define(wxMDIParentFrame_Create, 2667). --define(wxMDIParentFrame_GetActiveChild, 2668). --define(wxMDIParentFrame_GetClientWindow, 2669). --define(wxMDIParentFrame_Tile, 2670). --define(wxMDIChildFrame_new_0, 2671). --define(wxMDIChildFrame_new_4, 2672). --define(wxMDIChildFrame_destruct, 2673). --define(wxMDIChildFrame_Activate, 2674). --define(wxMDIChildFrame_Create, 2675). --define(wxMDIChildFrame_Maximize, 2676). --define(wxMDIChildFrame_Restore, 2677). --define(wxMDIClientWindow_new_0, 2678). --define(wxMDIClientWindow_new_2, 2679). --define(wxMDIClientWindow_destruct, 2680). --define(wxMDIClientWindow_CreateClient, 2681). --define(wxLayoutAlgorithm_new, 2682). --define(wxLayoutAlgorithm_LayoutFrame, 2683). --define(wxLayoutAlgorithm_LayoutMDIFrame, 2684). --define(wxLayoutAlgorithm_LayoutWindow, 2685). --define(wxLayoutAlgorithm_destroy, 2686). --define(wxEvent_GetId, 2687). --define(wxEvent_GetSkipped, 2688). --define(wxEvent_GetTimestamp, 2689). --define(wxEvent_IsCommandEvent, 2690). --define(wxEvent_ResumePropagation, 2691). --define(wxEvent_ShouldPropagate, 2692). --define(wxEvent_Skip, 2693). --define(wxEvent_StopPropagation, 2694). --define(wxCommandEvent_getClientData, 2695). --define(wxCommandEvent_GetExtraLong, 2696). --define(wxCommandEvent_GetInt, 2697). --define(wxCommandEvent_GetSelection, 2698). --define(wxCommandEvent_GetString, 2699). --define(wxCommandEvent_IsChecked, 2700). --define(wxCommandEvent_IsSelection, 2701). --define(wxCommandEvent_SetInt, 2702). --define(wxCommandEvent_SetString, 2703). --define(wxScrollEvent_GetOrientation, 2704). --define(wxScrollEvent_GetPosition, 2705). --define(wxScrollWinEvent_GetOrientation, 2706). --define(wxScrollWinEvent_GetPosition, 2707). --define(wxMouseEvent_AltDown, 2708). --define(wxMouseEvent_Button, 2709). --define(wxMouseEvent_ButtonDClick, 2710). --define(wxMouseEvent_ButtonDown, 2711). --define(wxMouseEvent_ButtonUp, 2712). --define(wxMouseEvent_CmdDown, 2713). --define(wxMouseEvent_ControlDown, 2714). --define(wxMouseEvent_Dragging, 2715). --define(wxMouseEvent_Entering, 2716). --define(wxMouseEvent_GetButton, 2717). --define(wxMouseEvent_GetPosition, 2720). --define(wxMouseEvent_GetLogicalPosition, 2721). --define(wxMouseEvent_GetLinesPerAction, 2722). --define(wxMouseEvent_GetWheelRotation, 2723). --define(wxMouseEvent_GetWheelDelta, 2724). --define(wxMouseEvent_GetX, 2725). --define(wxMouseEvent_GetY, 2726). --define(wxMouseEvent_IsButton, 2727). --define(wxMouseEvent_IsPageScroll, 2728). --define(wxMouseEvent_Leaving, 2729). --define(wxMouseEvent_LeftDClick, 2730). --define(wxMouseEvent_LeftDown, 2731). --define(wxMouseEvent_LeftIsDown, 2732). --define(wxMouseEvent_LeftUp, 2733). --define(wxMouseEvent_MetaDown, 2734). --define(wxMouseEvent_MiddleDClick, 2735). --define(wxMouseEvent_MiddleDown, 2736). --define(wxMouseEvent_MiddleIsDown, 2737). --define(wxMouseEvent_MiddleUp, 2738). --define(wxMouseEvent_Moving, 2739). --define(wxMouseEvent_RightDClick, 2740). --define(wxMouseEvent_RightDown, 2741). --define(wxMouseEvent_RightIsDown, 2742). --define(wxMouseEvent_RightUp, 2743). --define(wxMouseEvent_ShiftDown, 2744). --define(wxSetCursorEvent_GetCursor, 2745). --define(wxSetCursorEvent_GetX, 2746). --define(wxSetCursorEvent_GetY, 2747). --define(wxSetCursorEvent_HasCursor, 2748). --define(wxSetCursorEvent_SetCursor, 2749). --define(wxKeyEvent_AltDown, 2750). --define(wxKeyEvent_CmdDown, 2751). --define(wxKeyEvent_ControlDown, 2752). --define(wxKeyEvent_GetKeyCode, 2753). --define(wxKeyEvent_GetModifiers, 2754). --define(wxKeyEvent_GetPosition, 2757). --define(wxKeyEvent_GetRawKeyCode, 2758). --define(wxKeyEvent_GetRawKeyFlags, 2759). --define(wxKeyEvent_GetUnicodeKey, 2760). --define(wxKeyEvent_GetX, 2761). --define(wxKeyEvent_GetY, 2762). --define(wxKeyEvent_HasModifiers, 2763). --define(wxKeyEvent_MetaDown, 2764). --define(wxKeyEvent_ShiftDown, 2765). --define(wxSizeEvent_GetSize, 2766). --define(wxMoveEvent_GetPosition, 2767). --define(wxEraseEvent_GetDC, 2768). --define(wxFocusEvent_GetWindow, 2769). --define(wxChildFocusEvent_GetWindow, 2770). --define(wxMenuEvent_GetMenu, 2771). --define(wxMenuEvent_GetMenuId, 2772). --define(wxMenuEvent_IsPopup, 2773). --define(wxCloseEvent_CanVeto, 2774). --define(wxCloseEvent_GetLoggingOff, 2775). --define(wxCloseEvent_SetCanVeto, 2776). --define(wxCloseEvent_SetLoggingOff, 2777). --define(wxCloseEvent_Veto, 2778). --define(wxShowEvent_SetShow, 2779). --define(wxShowEvent_GetShow, 2780). --define(wxIconizeEvent_Iconized, 2781). --define(wxJoystickEvent_ButtonDown, 2782). --define(wxJoystickEvent_ButtonIsDown, 2783). --define(wxJoystickEvent_ButtonUp, 2784). --define(wxJoystickEvent_GetButtonChange, 2785). --define(wxJoystickEvent_GetButtonState, 2786). --define(wxJoystickEvent_GetJoystick, 2787). --define(wxJoystickEvent_GetPosition, 2788). --define(wxJoystickEvent_GetZPosition, 2789). --define(wxJoystickEvent_IsButton, 2790). --define(wxJoystickEvent_IsMove, 2791). --define(wxJoystickEvent_IsZMove, 2792). --define(wxUpdateUIEvent_CanUpdate, 2793). --define(wxUpdateUIEvent_Check, 2794). --define(wxUpdateUIEvent_Enable, 2795). --define(wxUpdateUIEvent_Show, 2796). --define(wxUpdateUIEvent_GetChecked, 2797). --define(wxUpdateUIEvent_GetEnabled, 2798). --define(wxUpdateUIEvent_GetShown, 2799). --define(wxUpdateUIEvent_GetSetChecked, 2800). --define(wxUpdateUIEvent_GetSetEnabled, 2801). --define(wxUpdateUIEvent_GetSetShown, 2802). --define(wxUpdateUIEvent_GetSetText, 2803). --define(wxUpdateUIEvent_GetText, 2804). --define(wxUpdateUIEvent_GetMode, 2805). --define(wxUpdateUIEvent_GetUpdateInterval, 2806). --define(wxUpdateUIEvent_ResetUpdateTime, 2807). --define(wxUpdateUIEvent_SetMode, 2808). --define(wxUpdateUIEvent_SetText, 2809). --define(wxUpdateUIEvent_SetUpdateInterval, 2810). --define(wxMouseCaptureChangedEvent_GetCapturedWindow, 2811). --define(wxPaletteChangedEvent_SetChangedWindow, 2812). --define(wxPaletteChangedEvent_GetChangedWindow, 2813). --define(wxQueryNewPaletteEvent_SetPaletteRealized, 2814). --define(wxQueryNewPaletteEvent_GetPaletteRealized, 2815). --define(wxNavigationKeyEvent_GetDirection, 2816). --define(wxNavigationKeyEvent_SetDirection, 2817). --define(wxNavigationKeyEvent_IsWindowChange, 2818). --define(wxNavigationKeyEvent_SetWindowChange, 2819). --define(wxNavigationKeyEvent_IsFromTab, 2820). --define(wxNavigationKeyEvent_SetFromTab, 2821). --define(wxNavigationKeyEvent_GetCurrentFocus, 2822). --define(wxNavigationKeyEvent_SetCurrentFocus, 2823). --define(wxHelpEvent_GetOrigin, 2824). --define(wxHelpEvent_GetPosition, 2825). --define(wxHelpEvent_SetOrigin, 2826). --define(wxHelpEvent_SetPosition, 2827). --define(wxContextMenuEvent_GetPosition, 2828). --define(wxContextMenuEvent_SetPosition, 2829). --define(wxIdleEvent_CanSend, 2830). --define(wxIdleEvent_GetMode, 2831). --define(wxIdleEvent_RequestMore, 2832). --define(wxIdleEvent_MoreRequested, 2833). --define(wxIdleEvent_SetMode, 2834). --define(wxGridEvent_AltDown, 2835). --define(wxGridEvent_ControlDown, 2836). --define(wxGridEvent_GetCol, 2837). --define(wxGridEvent_GetPosition, 2838). --define(wxGridEvent_GetRow, 2839). --define(wxGridEvent_MetaDown, 2840). --define(wxGridEvent_Selecting, 2841). --define(wxGridEvent_ShiftDown, 2842). --define(wxNotifyEvent_Allow, 2843). --define(wxNotifyEvent_IsAllowed, 2844). --define(wxNotifyEvent_Veto, 2845). --define(wxSashEvent_GetEdge, 2846). --define(wxSashEvent_GetDragRect, 2847). --define(wxSashEvent_GetDragStatus, 2848). --define(wxListEvent_GetCacheFrom, 2849). --define(wxListEvent_GetCacheTo, 2850). --define(wxListEvent_GetKeyCode, 2851). --define(wxListEvent_GetIndex, 2852). --define(wxListEvent_GetColumn, 2853). --define(wxListEvent_GetPoint, 2854). --define(wxListEvent_GetLabel, 2855). --define(wxListEvent_GetText, 2856). --define(wxListEvent_GetImage, 2857). --define(wxListEvent_GetData, 2858). --define(wxListEvent_GetMask, 2859). --define(wxListEvent_GetItem, 2860). --define(wxListEvent_IsEditCancelled, 2861). --define(wxDateEvent_GetDate, 2862). --define(wxCalendarEvent_GetWeekDay, 2863). --define(wxFileDirPickerEvent_GetPath, 2864). --define(wxColourPickerEvent_GetColour, 2865). --define(wxFontPickerEvent_GetFont, 2866). --define(wxStyledTextEvent_GetPosition, 2867). --define(wxStyledTextEvent_GetKey, 2868). --define(wxStyledTextEvent_GetModifiers, 2869). --define(wxStyledTextEvent_GetModificationType, 2870). --define(wxStyledTextEvent_GetText, 2871). --define(wxStyledTextEvent_GetLength, 2872). --define(wxStyledTextEvent_GetLinesAdded, 2873). --define(wxStyledTextEvent_GetLine, 2874). --define(wxStyledTextEvent_GetFoldLevelNow, 2875). --define(wxStyledTextEvent_GetFoldLevelPrev, 2876). --define(wxStyledTextEvent_GetMargin, 2877). --define(wxStyledTextEvent_GetMessage, 2878). --define(wxStyledTextEvent_GetWParam, 2879). --define(wxStyledTextEvent_GetLParam, 2880). --define(wxStyledTextEvent_GetListType, 2881). --define(wxStyledTextEvent_GetX, 2882). --define(wxStyledTextEvent_GetY, 2883). --define(wxStyledTextEvent_GetDragText, 2884). --define(wxStyledTextEvent_GetDragAllowMove, 2885). --define(wxStyledTextEvent_GetDragResult, 2886). --define(wxStyledTextEvent_GetShift, 2887). --define(wxStyledTextEvent_GetControl, 2888). --define(wxStyledTextEvent_GetAlt, 2889). --define(utils_wxGetKeyState, 2890). --define(utils_wxGetMousePosition, 2891). --define(utils_wxGetMouseState, 2892). --define(utils_wxSetDetectableAutoRepeat, 2893). --define(utils_wxBell, 2894). --define(utils_wxFindMenuItemId, 2895). --define(utils_wxGenericFindWindowAtPoint, 2896). --define(utils_wxFindWindowAtPoint, 2897). --define(utils_wxBeginBusyCursor, 2898). --define(utils_wxEndBusyCursor, 2899). --define(utils_wxIsBusy, 2900). --define(utils_wxShutdown, 2901). --define(utils_wxShell, 2902). --define(utils_wxLaunchDefaultBrowser, 2903). --define(utils_wxGetEmailAddress, 2904). --define(utils_wxGetUserId, 2905). --define(utils_wxGetHomeDir, 2906). --define(utils_wxNewId, 2907). --define(utils_wxRegisterId, 2908). --define(utils_wxGetCurrentId, 2909). --define(utils_wxGetOsDescription, 2910). --define(utils_wxIsPlatformLittleEndian, 2911). --define(utils_wxIsPlatform64Bit, 2912). --define(wxPrintout_new, 2913). --define(wxPrintout_destruct, 2914). --define(wxPrintout_GetDC, 2915). --define(wxPrintout_GetPageSizeMM, 2916). --define(wxPrintout_GetPageSizePixels, 2917). --define(wxPrintout_GetPaperRectPixels, 2918). --define(wxPrintout_GetPPIPrinter, 2919). --define(wxPrintout_GetPPIScreen, 2920). --define(wxPrintout_GetTitle, 2921). --define(wxPrintout_IsPreview, 2922). --define(wxPrintout_FitThisSizeToPaper, 2923). --define(wxPrintout_FitThisSizeToPage, 2924). --define(wxPrintout_FitThisSizeToPageMargins, 2925). --define(wxPrintout_MapScreenSizeToPaper, 2926). --define(wxPrintout_MapScreenSizeToPage, 2927). --define(wxPrintout_MapScreenSizeToPageMargins, 2928). --define(wxPrintout_MapScreenSizeToDevice, 2929). --define(wxPrintout_GetLogicalPaperRect, 2930). --define(wxPrintout_GetLogicalPageRect, 2931). --define(wxPrintout_GetLogicalPageMarginsRect, 2932). --define(wxPrintout_SetLogicalOrigin, 2933). --define(wxPrintout_OffsetLogicalOrigin, 2934). --define(wxStyledTextCtrl_new_2, 2935). --define(wxStyledTextCtrl_new_0, 2936). --define(wxStyledTextCtrl_destruct, 2937). --define(wxStyledTextCtrl_Create, 2938). --define(wxStyledTextCtrl_AddText, 2939). --define(wxStyledTextCtrl_AddStyledText, 2940). --define(wxStyledTextCtrl_InsertText, 2941). --define(wxStyledTextCtrl_ClearAll, 2942). --define(wxStyledTextCtrl_ClearDocumentStyle, 2943). --define(wxStyledTextCtrl_GetLength, 2944). --define(wxStyledTextCtrl_GetCharAt, 2945). --define(wxStyledTextCtrl_GetCurrentPos, 2946). --define(wxStyledTextCtrl_GetAnchor, 2947). --define(wxStyledTextCtrl_GetStyleAt, 2948). --define(wxStyledTextCtrl_Redo, 2949). --define(wxStyledTextCtrl_SetUndoCollection, 2950). --define(wxStyledTextCtrl_SelectAll, 2951). --define(wxStyledTextCtrl_SetSavePoint, 2952). --define(wxStyledTextCtrl_GetStyledText, 2953). --define(wxStyledTextCtrl_CanRedo, 2954). --define(wxStyledTextCtrl_MarkerLineFromHandle, 2955). --define(wxStyledTextCtrl_MarkerDeleteHandle, 2956). --define(wxStyledTextCtrl_GetUndoCollection, 2957). --define(wxStyledTextCtrl_GetViewWhiteSpace, 2958). --define(wxStyledTextCtrl_SetViewWhiteSpace, 2959). --define(wxStyledTextCtrl_PositionFromPoint, 2960). --define(wxStyledTextCtrl_PositionFromPointClose, 2961). --define(wxStyledTextCtrl_GotoLine, 2962). --define(wxStyledTextCtrl_GotoPos, 2963). --define(wxStyledTextCtrl_SetAnchor, 2964). --define(wxStyledTextCtrl_GetCurLine, 2965). --define(wxStyledTextCtrl_GetEndStyled, 2966). --define(wxStyledTextCtrl_ConvertEOLs, 2967). --define(wxStyledTextCtrl_GetEOLMode, 2968). --define(wxStyledTextCtrl_SetEOLMode, 2969). --define(wxStyledTextCtrl_StartStyling, 2970). --define(wxStyledTextCtrl_SetStyling, 2971). --define(wxStyledTextCtrl_GetBufferedDraw, 2972). --define(wxStyledTextCtrl_SetBufferedDraw, 2973). --define(wxStyledTextCtrl_SetTabWidth, 2974). --define(wxStyledTextCtrl_GetTabWidth, 2975). --define(wxStyledTextCtrl_SetCodePage, 2976). --define(wxStyledTextCtrl_MarkerDefine, 2977). --define(wxStyledTextCtrl_MarkerSetForeground, 2978). --define(wxStyledTextCtrl_MarkerSetBackground, 2979). --define(wxStyledTextCtrl_MarkerAdd, 2980). --define(wxStyledTextCtrl_MarkerDelete, 2981). --define(wxStyledTextCtrl_MarkerDeleteAll, 2982). --define(wxStyledTextCtrl_MarkerGet, 2983). --define(wxStyledTextCtrl_MarkerNext, 2984). --define(wxStyledTextCtrl_MarkerPrevious, 2985). --define(wxStyledTextCtrl_MarkerDefineBitmap, 2986). --define(wxStyledTextCtrl_MarkerAddSet, 2987). --define(wxStyledTextCtrl_MarkerSetAlpha, 2988). --define(wxStyledTextCtrl_SetMarginType, 2989). --define(wxStyledTextCtrl_GetMarginType, 2990). --define(wxStyledTextCtrl_SetMarginWidth, 2991). --define(wxStyledTextCtrl_GetMarginWidth, 2992). --define(wxStyledTextCtrl_SetMarginMask, 2993). --define(wxStyledTextCtrl_GetMarginMask, 2994). --define(wxStyledTextCtrl_SetMarginSensitive, 2995). --define(wxStyledTextCtrl_GetMarginSensitive, 2996). --define(wxStyledTextCtrl_StyleClearAll, 2997). --define(wxStyledTextCtrl_StyleSetForeground, 2998). --define(wxStyledTextCtrl_StyleSetBackground, 2999). --define(wxStyledTextCtrl_StyleSetBold, 3000). --define(wxStyledTextCtrl_StyleSetItalic, 3001). --define(wxStyledTextCtrl_StyleSetSize, 3002). --define(wxStyledTextCtrl_StyleSetFaceName, 3003). --define(wxStyledTextCtrl_StyleSetEOLFilled, 3004). --define(wxStyledTextCtrl_StyleResetDefault, 3005). --define(wxStyledTextCtrl_StyleSetUnderline, 3006). --define(wxStyledTextCtrl_StyleSetCase, 3007). --define(wxStyledTextCtrl_StyleSetHotSpot, 3008). --define(wxStyledTextCtrl_SetSelForeground, 3009). --define(wxStyledTextCtrl_SetSelBackground, 3010). --define(wxStyledTextCtrl_GetSelAlpha, 3011). --define(wxStyledTextCtrl_SetSelAlpha, 3012). --define(wxStyledTextCtrl_SetCaretForeground, 3013). --define(wxStyledTextCtrl_CmdKeyAssign, 3014). --define(wxStyledTextCtrl_CmdKeyClear, 3015). --define(wxStyledTextCtrl_CmdKeyClearAll, 3016). --define(wxStyledTextCtrl_SetStyleBytes, 3017). --define(wxStyledTextCtrl_StyleSetVisible, 3018). --define(wxStyledTextCtrl_GetCaretPeriod, 3019). --define(wxStyledTextCtrl_SetCaretPeriod, 3020). --define(wxStyledTextCtrl_SetWordChars, 3021). --define(wxStyledTextCtrl_BeginUndoAction, 3022). --define(wxStyledTextCtrl_EndUndoAction, 3023). --define(wxStyledTextCtrl_IndicatorSetStyle, 3024). --define(wxStyledTextCtrl_IndicatorGetStyle, 3025). --define(wxStyledTextCtrl_IndicatorSetForeground, 3026). --define(wxStyledTextCtrl_IndicatorGetForeground, 3027). --define(wxStyledTextCtrl_SetWhitespaceForeground, 3028). --define(wxStyledTextCtrl_SetWhitespaceBackground, 3029). --define(wxStyledTextCtrl_GetStyleBits, 3030). --define(wxStyledTextCtrl_SetLineState, 3031). --define(wxStyledTextCtrl_GetLineState, 3032). --define(wxStyledTextCtrl_GetMaxLineState, 3033). --define(wxStyledTextCtrl_GetCaretLineVisible, 3034). --define(wxStyledTextCtrl_SetCaretLineVisible, 3035). --define(wxStyledTextCtrl_GetCaretLineBackground, 3036). --define(wxStyledTextCtrl_SetCaretLineBackground, 3037). --define(wxStyledTextCtrl_AutoCompShow, 3038). --define(wxStyledTextCtrl_AutoCompCancel, 3039). --define(wxStyledTextCtrl_AutoCompActive, 3040). --define(wxStyledTextCtrl_AutoCompPosStart, 3041). --define(wxStyledTextCtrl_AutoCompComplete, 3042). --define(wxStyledTextCtrl_AutoCompStops, 3043). --define(wxStyledTextCtrl_AutoCompSetSeparator, 3044). --define(wxStyledTextCtrl_AutoCompGetSeparator, 3045). --define(wxStyledTextCtrl_AutoCompSelect, 3046). --define(wxStyledTextCtrl_AutoCompSetCancelAtStart, 3047). --define(wxStyledTextCtrl_AutoCompGetCancelAtStart, 3048). --define(wxStyledTextCtrl_AutoCompSetFillUps, 3049). --define(wxStyledTextCtrl_AutoCompSetChooseSingle, 3050). --define(wxStyledTextCtrl_AutoCompGetChooseSingle, 3051). --define(wxStyledTextCtrl_AutoCompSetIgnoreCase, 3052). --define(wxStyledTextCtrl_AutoCompGetIgnoreCase, 3053). --define(wxStyledTextCtrl_UserListShow, 3054). --define(wxStyledTextCtrl_AutoCompSetAutoHide, 3055). --define(wxStyledTextCtrl_AutoCompGetAutoHide, 3056). --define(wxStyledTextCtrl_AutoCompSetDropRestOfWord, 3057). --define(wxStyledTextCtrl_AutoCompGetDropRestOfWord, 3058). --define(wxStyledTextCtrl_RegisterImage, 3059). --define(wxStyledTextCtrl_ClearRegisteredImages, 3060). --define(wxStyledTextCtrl_AutoCompGetTypeSeparator, 3061). --define(wxStyledTextCtrl_AutoCompSetTypeSeparator, 3062). --define(wxStyledTextCtrl_AutoCompSetMaxWidth, 3063). --define(wxStyledTextCtrl_AutoCompGetMaxWidth, 3064). --define(wxStyledTextCtrl_AutoCompSetMaxHeight, 3065). --define(wxStyledTextCtrl_AutoCompGetMaxHeight, 3066). --define(wxStyledTextCtrl_SetIndent, 3067). --define(wxStyledTextCtrl_GetIndent, 3068). --define(wxStyledTextCtrl_SetUseTabs, 3069). --define(wxStyledTextCtrl_GetUseTabs, 3070). --define(wxStyledTextCtrl_SetLineIndentation, 3071). --define(wxStyledTextCtrl_GetLineIndentation, 3072). --define(wxStyledTextCtrl_GetLineIndentPosition, 3073). --define(wxStyledTextCtrl_GetColumn, 3074). --define(wxStyledTextCtrl_SetUseHorizontalScrollBar, 3075). --define(wxStyledTextCtrl_GetUseHorizontalScrollBar, 3076). --define(wxStyledTextCtrl_SetIndentationGuides, 3077). --define(wxStyledTextCtrl_GetIndentationGuides, 3078). --define(wxStyledTextCtrl_SetHighlightGuide, 3079). --define(wxStyledTextCtrl_GetHighlightGuide, 3080). --define(wxStyledTextCtrl_GetLineEndPosition, 3081). --define(wxStyledTextCtrl_GetCodePage, 3082). --define(wxStyledTextCtrl_GetCaretForeground, 3083). --define(wxStyledTextCtrl_GetReadOnly, 3084). --define(wxStyledTextCtrl_SetCurrentPos, 3085). --define(wxStyledTextCtrl_SetSelectionStart, 3086). --define(wxStyledTextCtrl_GetSelectionStart, 3087). --define(wxStyledTextCtrl_SetSelectionEnd, 3088). --define(wxStyledTextCtrl_GetSelectionEnd, 3089). --define(wxStyledTextCtrl_SetPrintMagnification, 3090). --define(wxStyledTextCtrl_GetPrintMagnification, 3091). --define(wxStyledTextCtrl_SetPrintColourMode, 3092). --define(wxStyledTextCtrl_GetPrintColourMode, 3093). --define(wxStyledTextCtrl_FindText, 3094). --define(wxStyledTextCtrl_FormatRange, 3095). --define(wxStyledTextCtrl_GetFirstVisibleLine, 3096). --define(wxStyledTextCtrl_GetLine, 3097). --define(wxStyledTextCtrl_GetLineCount, 3098). --define(wxStyledTextCtrl_SetMarginLeft, 3099). --define(wxStyledTextCtrl_GetMarginLeft, 3100). --define(wxStyledTextCtrl_SetMarginRight, 3101). --define(wxStyledTextCtrl_GetMarginRight, 3102). --define(wxStyledTextCtrl_GetModify, 3103). --define(wxStyledTextCtrl_SetSelection, 3104). --define(wxStyledTextCtrl_GetSelectedText, 3105). --define(wxStyledTextCtrl_GetTextRange, 3106). --define(wxStyledTextCtrl_HideSelection, 3107). --define(wxStyledTextCtrl_LineFromPosition, 3108). --define(wxStyledTextCtrl_PositionFromLine, 3109). --define(wxStyledTextCtrl_LineScroll, 3110). --define(wxStyledTextCtrl_EnsureCaretVisible, 3111). --define(wxStyledTextCtrl_ReplaceSelection, 3112). --define(wxStyledTextCtrl_SetReadOnly, 3113). --define(wxStyledTextCtrl_CanPaste, 3114). --define(wxStyledTextCtrl_CanUndo, 3115). --define(wxStyledTextCtrl_EmptyUndoBuffer, 3116). --define(wxStyledTextCtrl_Undo, 3117). --define(wxStyledTextCtrl_Cut, 3118). --define(wxStyledTextCtrl_Copy, 3119). --define(wxStyledTextCtrl_Paste, 3120). --define(wxStyledTextCtrl_Clear, 3121). --define(wxStyledTextCtrl_SetText, 3122). --define(wxStyledTextCtrl_GetText, 3123). --define(wxStyledTextCtrl_GetTextLength, 3124). --define(wxStyledTextCtrl_GetOvertype, 3125). --define(wxStyledTextCtrl_SetCaretWidth, 3126). --define(wxStyledTextCtrl_GetCaretWidth, 3127). --define(wxStyledTextCtrl_SetTargetStart, 3128). --define(wxStyledTextCtrl_GetTargetStart, 3129). --define(wxStyledTextCtrl_SetTargetEnd, 3130). --define(wxStyledTextCtrl_GetTargetEnd, 3131). --define(wxStyledTextCtrl_ReplaceTarget, 3132). --define(wxStyledTextCtrl_SearchInTarget, 3133). --define(wxStyledTextCtrl_SetSearchFlags, 3134). --define(wxStyledTextCtrl_GetSearchFlags, 3135). --define(wxStyledTextCtrl_CallTipShow, 3136). --define(wxStyledTextCtrl_CallTipCancel, 3137). --define(wxStyledTextCtrl_CallTipActive, 3138). --define(wxStyledTextCtrl_CallTipPosAtStart, 3139). --define(wxStyledTextCtrl_CallTipSetHighlight, 3140). --define(wxStyledTextCtrl_CallTipSetBackground, 3141). --define(wxStyledTextCtrl_CallTipSetForeground, 3142). --define(wxStyledTextCtrl_CallTipSetForegroundHighlight, 3143). --define(wxStyledTextCtrl_CallTipUseStyle, 3144). --define(wxStyledTextCtrl_VisibleFromDocLine, 3145). --define(wxStyledTextCtrl_DocLineFromVisible, 3146). --define(wxStyledTextCtrl_WrapCount, 3147). --define(wxStyledTextCtrl_SetFoldLevel, 3148). --define(wxStyledTextCtrl_GetFoldLevel, 3149). --define(wxStyledTextCtrl_GetLastChild, 3150). --define(wxStyledTextCtrl_GetFoldParent, 3151). --define(wxStyledTextCtrl_ShowLines, 3152). --define(wxStyledTextCtrl_HideLines, 3153). --define(wxStyledTextCtrl_GetLineVisible, 3154). --define(wxStyledTextCtrl_SetFoldExpanded, 3155). --define(wxStyledTextCtrl_GetFoldExpanded, 3156). --define(wxStyledTextCtrl_ToggleFold, 3157). --define(wxStyledTextCtrl_EnsureVisible, 3158). --define(wxStyledTextCtrl_SetFoldFlags, 3159). --define(wxStyledTextCtrl_EnsureVisibleEnforcePolicy, 3160). --define(wxStyledTextCtrl_SetTabIndents, 3161). --define(wxStyledTextCtrl_GetTabIndents, 3162). --define(wxStyledTextCtrl_SetBackSpaceUnIndents, 3163). --define(wxStyledTextCtrl_GetBackSpaceUnIndents, 3164). --define(wxStyledTextCtrl_SetMouseDwellTime, 3165). --define(wxStyledTextCtrl_GetMouseDwellTime, 3166). --define(wxStyledTextCtrl_WordStartPosition, 3167). --define(wxStyledTextCtrl_WordEndPosition, 3168). --define(wxStyledTextCtrl_SetWrapMode, 3169). --define(wxStyledTextCtrl_GetWrapMode, 3170). --define(wxStyledTextCtrl_SetWrapVisualFlags, 3171). --define(wxStyledTextCtrl_GetWrapVisualFlags, 3172). --define(wxStyledTextCtrl_SetWrapVisualFlagsLocation, 3173). --define(wxStyledTextCtrl_GetWrapVisualFlagsLocation, 3174). --define(wxStyledTextCtrl_SetWrapStartIndent, 3175). --define(wxStyledTextCtrl_GetWrapStartIndent, 3176). --define(wxStyledTextCtrl_SetLayoutCache, 3177). --define(wxStyledTextCtrl_GetLayoutCache, 3178). --define(wxStyledTextCtrl_SetScrollWidth, 3179). --define(wxStyledTextCtrl_GetScrollWidth, 3180). --define(wxStyledTextCtrl_TextWidth, 3181). --define(wxStyledTextCtrl_GetEndAtLastLine, 3182). --define(wxStyledTextCtrl_TextHeight, 3183). --define(wxStyledTextCtrl_SetUseVerticalScrollBar, 3184). --define(wxStyledTextCtrl_GetUseVerticalScrollBar, 3185). --define(wxStyledTextCtrl_AppendText, 3186). --define(wxStyledTextCtrl_GetTwoPhaseDraw, 3187). --define(wxStyledTextCtrl_SetTwoPhaseDraw, 3188). --define(wxStyledTextCtrl_TargetFromSelection, 3189). --define(wxStyledTextCtrl_LinesJoin, 3190). --define(wxStyledTextCtrl_LinesSplit, 3191). --define(wxStyledTextCtrl_SetFoldMarginColour, 3192). --define(wxStyledTextCtrl_SetFoldMarginHiColour, 3193). --define(wxStyledTextCtrl_LineDown, 3194). --define(wxStyledTextCtrl_LineDownExtend, 3195). --define(wxStyledTextCtrl_LineUp, 3196). --define(wxStyledTextCtrl_LineUpExtend, 3197). --define(wxStyledTextCtrl_CharLeft, 3198). --define(wxStyledTextCtrl_CharLeftExtend, 3199). --define(wxStyledTextCtrl_CharRight, 3200). --define(wxStyledTextCtrl_CharRightExtend, 3201). --define(wxStyledTextCtrl_WordLeft, 3202). --define(wxStyledTextCtrl_WordLeftExtend, 3203). --define(wxStyledTextCtrl_WordRight, 3204). --define(wxStyledTextCtrl_WordRightExtend, 3205). --define(wxStyledTextCtrl_Home, 3206). --define(wxStyledTextCtrl_HomeExtend, 3207). --define(wxStyledTextCtrl_LineEnd, 3208). --define(wxStyledTextCtrl_LineEndExtend, 3209). --define(wxStyledTextCtrl_DocumentStart, 3210). --define(wxStyledTextCtrl_DocumentStartExtend, 3211). --define(wxStyledTextCtrl_DocumentEnd, 3212). --define(wxStyledTextCtrl_DocumentEndExtend, 3213). --define(wxStyledTextCtrl_PageUp, 3214). --define(wxStyledTextCtrl_PageUpExtend, 3215). --define(wxStyledTextCtrl_PageDown, 3216). --define(wxStyledTextCtrl_PageDownExtend, 3217). --define(wxStyledTextCtrl_EditToggleOvertype, 3218). --define(wxStyledTextCtrl_Cancel, 3219). --define(wxStyledTextCtrl_DeleteBack, 3220). --define(wxStyledTextCtrl_Tab, 3221). --define(wxStyledTextCtrl_BackTab, 3222). --define(wxStyledTextCtrl_NewLine, 3223). --define(wxStyledTextCtrl_FormFeed, 3224). --define(wxStyledTextCtrl_VCHome, 3225). --define(wxStyledTextCtrl_VCHomeExtend, 3226). --define(wxStyledTextCtrl_ZoomIn, 3227). --define(wxStyledTextCtrl_ZoomOut, 3228). --define(wxStyledTextCtrl_DelWordLeft, 3229). --define(wxStyledTextCtrl_DelWordRight, 3230). --define(wxStyledTextCtrl_LineCut, 3231). --define(wxStyledTextCtrl_LineDelete, 3232). --define(wxStyledTextCtrl_LineTranspose, 3233). --define(wxStyledTextCtrl_LineDuplicate, 3234). --define(wxStyledTextCtrl_LowerCase, 3235). --define(wxStyledTextCtrl_UpperCase, 3236). --define(wxStyledTextCtrl_LineScrollDown, 3237). --define(wxStyledTextCtrl_LineScrollUp, 3238). --define(wxStyledTextCtrl_DeleteBackNotLine, 3239). --define(wxStyledTextCtrl_HomeDisplay, 3240). --define(wxStyledTextCtrl_HomeDisplayExtend, 3241). --define(wxStyledTextCtrl_LineEndDisplay, 3242). --define(wxStyledTextCtrl_LineEndDisplayExtend, 3243). --define(wxStyledTextCtrl_HomeWrapExtend, 3244). --define(wxStyledTextCtrl_LineEndWrap, 3245). --define(wxStyledTextCtrl_LineEndWrapExtend, 3246). --define(wxStyledTextCtrl_VCHomeWrap, 3247). --define(wxStyledTextCtrl_VCHomeWrapExtend, 3248). --define(wxStyledTextCtrl_LineCopy, 3249). --define(wxStyledTextCtrl_MoveCaretInsideView, 3250). --define(wxStyledTextCtrl_LineLength, 3251). --define(wxStyledTextCtrl_BraceHighlight, 3252). --define(wxStyledTextCtrl_BraceBadLight, 3253). --define(wxStyledTextCtrl_BraceMatch, 3254). --define(wxStyledTextCtrl_GetViewEOL, 3255). --define(wxStyledTextCtrl_SetViewEOL, 3256). --define(wxStyledTextCtrl_SetModEventMask, 3257). --define(wxStyledTextCtrl_GetEdgeColumn, 3258). --define(wxStyledTextCtrl_SetEdgeColumn, 3259). --define(wxStyledTextCtrl_GetEdgeMode, 3260). --define(wxStyledTextCtrl_GetEdgeColour, 3261). --define(wxStyledTextCtrl_SetEdgeColour, 3262). --define(wxStyledTextCtrl_SearchAnchor, 3263). --define(wxStyledTextCtrl_SearchNext, 3264). --define(wxStyledTextCtrl_SearchPrev, 3265). --define(wxStyledTextCtrl_LinesOnScreen, 3266). --define(wxStyledTextCtrl_UsePopUp, 3267). --define(wxStyledTextCtrl_SelectionIsRectangle, 3268). --define(wxStyledTextCtrl_SetZoom, 3269). --define(wxStyledTextCtrl_GetZoom, 3270). --define(wxStyledTextCtrl_GetModEventMask, 3271). --define(wxStyledTextCtrl_SetSTCFocus, 3272). --define(wxStyledTextCtrl_GetSTCFocus, 3273). --define(wxStyledTextCtrl_SetStatus, 3274). --define(wxStyledTextCtrl_GetStatus, 3275). --define(wxStyledTextCtrl_SetMouseDownCaptures, 3276). --define(wxStyledTextCtrl_GetMouseDownCaptures, 3277). --define(wxStyledTextCtrl_SetSTCCursor, 3278). --define(wxStyledTextCtrl_GetSTCCursor, 3279). --define(wxStyledTextCtrl_SetControlCharSymbol, 3280). --define(wxStyledTextCtrl_GetControlCharSymbol, 3281). --define(wxStyledTextCtrl_WordPartLeft, 3282). --define(wxStyledTextCtrl_WordPartLeftExtend, 3283). --define(wxStyledTextCtrl_WordPartRight, 3284). --define(wxStyledTextCtrl_WordPartRightExtend, 3285). --define(wxStyledTextCtrl_SetVisiblePolicy, 3286). --define(wxStyledTextCtrl_DelLineLeft, 3287). --define(wxStyledTextCtrl_DelLineRight, 3288). --define(wxStyledTextCtrl_GetXOffset, 3289). --define(wxStyledTextCtrl_ChooseCaretX, 3290). --define(wxStyledTextCtrl_SetXCaretPolicy, 3291). --define(wxStyledTextCtrl_SetYCaretPolicy, 3292). --define(wxStyledTextCtrl_GetPrintWrapMode, 3293). --define(wxStyledTextCtrl_SetHotspotActiveForeground, 3294). --define(wxStyledTextCtrl_SetHotspotActiveBackground, 3295). --define(wxStyledTextCtrl_SetHotspotActiveUnderline, 3296). --define(wxStyledTextCtrl_SetHotspotSingleLine, 3297). --define(wxStyledTextCtrl_ParaDownExtend, 3298). --define(wxStyledTextCtrl_ParaUp, 3299). --define(wxStyledTextCtrl_ParaUpExtend, 3300). --define(wxStyledTextCtrl_PositionBefore, 3301). --define(wxStyledTextCtrl_PositionAfter, 3302). --define(wxStyledTextCtrl_CopyRange, 3303). --define(wxStyledTextCtrl_CopyText, 3304). --define(wxStyledTextCtrl_SetSelectionMode, 3305). --define(wxStyledTextCtrl_GetSelectionMode, 3306). --define(wxStyledTextCtrl_LineDownRectExtend, 3307). --define(wxStyledTextCtrl_LineUpRectExtend, 3308). --define(wxStyledTextCtrl_CharLeftRectExtend, 3309). --define(wxStyledTextCtrl_CharRightRectExtend, 3310). --define(wxStyledTextCtrl_HomeRectExtend, 3311). --define(wxStyledTextCtrl_VCHomeRectExtend, 3312). --define(wxStyledTextCtrl_LineEndRectExtend, 3313). --define(wxStyledTextCtrl_PageUpRectExtend, 3314). --define(wxStyledTextCtrl_PageDownRectExtend, 3315). --define(wxStyledTextCtrl_StutteredPageUp, 3316). --define(wxStyledTextCtrl_StutteredPageUpExtend, 3317). --define(wxStyledTextCtrl_StutteredPageDown, 3318). --define(wxStyledTextCtrl_StutteredPageDownExtend, 3319). --define(wxStyledTextCtrl_WordLeftEnd, 3320). --define(wxStyledTextCtrl_WordLeftEndExtend, 3321). --define(wxStyledTextCtrl_WordRightEnd, 3322). --define(wxStyledTextCtrl_WordRightEndExtend, 3323). --define(wxStyledTextCtrl_SetWhitespaceChars, 3324). --define(wxStyledTextCtrl_SetCharsDefault, 3325). --define(wxStyledTextCtrl_AutoCompGetCurrent, 3326). --define(wxStyledTextCtrl_Allocate, 3327). --define(wxStyledTextCtrl_FindColumn, 3328). --define(wxStyledTextCtrl_GetCaretSticky, 3329). --define(wxStyledTextCtrl_SetCaretSticky, 3330). --define(wxStyledTextCtrl_ToggleCaretSticky, 3331). --define(wxStyledTextCtrl_SetPasteConvertEndings, 3332). --define(wxStyledTextCtrl_GetPasteConvertEndings, 3333). --define(wxStyledTextCtrl_SelectionDuplicate, 3334). --define(wxStyledTextCtrl_SetCaretLineBackAlpha, 3335). --define(wxStyledTextCtrl_GetCaretLineBackAlpha, 3336). --define(wxStyledTextCtrl_StartRecord, 3337). --define(wxStyledTextCtrl_StopRecord, 3338). --define(wxStyledTextCtrl_SetLexer, 3339). --define(wxStyledTextCtrl_GetLexer, 3340). --define(wxStyledTextCtrl_Colourise, 3341). --define(wxStyledTextCtrl_SetProperty, 3342). --define(wxStyledTextCtrl_SetKeyWords, 3343). --define(wxStyledTextCtrl_SetLexerLanguage, 3344). --define(wxStyledTextCtrl_GetProperty, 3345). --define(wxStyledTextCtrl_GetStyleBitsNeeded, 3346). --define(wxStyledTextCtrl_GetCurrentLine, 3347). --define(wxStyledTextCtrl_StyleSetSpec, 3348). --define(wxStyledTextCtrl_StyleSetFont, 3349). --define(wxStyledTextCtrl_StyleSetFontAttr, 3350). --define(wxStyledTextCtrl_StyleSetCharacterSet, 3351). --define(wxStyledTextCtrl_StyleSetFontEncoding, 3352). --define(wxStyledTextCtrl_CmdKeyExecute, 3353). --define(wxStyledTextCtrl_SetMargins, 3354). --define(wxStyledTextCtrl_GetSelection, 3355). --define(wxStyledTextCtrl_PointFromPosition, 3356). --define(wxStyledTextCtrl_ScrollToLine, 3357). --define(wxStyledTextCtrl_ScrollToColumn, 3358). --define(wxStyledTextCtrl_SendMsg, 3359). --define(wxStyledTextCtrl_SetVScrollBar, 3360). --define(wxStyledTextCtrl_SetHScrollBar, 3361). --define(wxStyledTextCtrl_GetLastKeydownProcessed, 3362). --define(wxStyledTextCtrl_SetLastKeydownProcessed, 3363). --define(wxStyledTextCtrl_SaveFile, 3364). --define(wxStyledTextCtrl_LoadFile, 3365). --define(wxStyledTextCtrl_DoDragOver, 3366). --define(wxStyledTextCtrl_DoDropText, 3367). --define(wxStyledTextCtrl_GetUseAntiAliasing, 3368). --define(wxStyledTextCtrl_AddTextRaw, 3369). --define(wxStyledTextCtrl_InsertTextRaw, 3370). --define(wxStyledTextCtrl_GetCurLineRaw, 3371). --define(wxStyledTextCtrl_GetLineRaw, 3372). --define(wxStyledTextCtrl_GetSelectedTextRaw, 3373). --define(wxStyledTextCtrl_GetTextRangeRaw, 3374). --define(wxStyledTextCtrl_SetTextRaw, 3375). --define(wxStyledTextCtrl_GetTextRaw, 3376). --define(wxStyledTextCtrl_AppendTextRaw, 3377). --define(wxArtProvider_GetBitmap, 3378). --define(wxArtProvider_GetIcon, 3379). --define(wxTreeEvent_GetKeyCode, 3380). --define(wxTreeEvent_GetItem, 3381). --define(wxTreeEvent_GetKeyEvent, 3382). --define(wxTreeEvent_GetLabel, 3383). --define(wxTreeEvent_GetOldItem, 3384). --define(wxTreeEvent_GetPoint, 3385). --define(wxTreeEvent_IsEditCancelled, 3386). --define(wxTreeEvent_SetToolTip, 3387). --define(wxNotebookEvent_GetOldSelection, 3388). --define(wxNotebookEvent_GetSelection, 3389). --define(wxNotebookEvent_SetOldSelection, 3390). --define(wxNotebookEvent_SetSelection, 3391). --define(wxFileDataObject_new, 3392). --define(wxFileDataObject_AddFile, 3393). --define(wxFileDataObject_GetFilenames, 3394). --define(wxFileDataObject_destroy, 3395). --define(wxTextDataObject_new, 3396). --define(wxTextDataObject_GetTextLength, 3397). --define(wxTextDataObject_GetText, 3398). --define(wxTextDataObject_SetText, 3399). --define(wxTextDataObject_destroy, 3400). --define(wxBitmapDataObject_new_1_1, 3401). --define(wxBitmapDataObject_new_1_0, 3402). --define(wxBitmapDataObject_GetBitmap, 3403). --define(wxBitmapDataObject_SetBitmap, 3404). --define(wxBitmapDataObject_destroy, 3405). --define(wxClipboard_new, 3407). --define(wxClipboard_destruct, 3408). --define(wxClipboard_AddData, 3409). --define(wxClipboard_Clear, 3410). --define(wxClipboard_Close, 3411). --define(wxClipboard_Flush, 3412). --define(wxClipboard_GetData, 3413). --define(wxClipboard_IsOpened, 3414). --define(wxClipboard_Open, 3415). --define(wxClipboard_SetData, 3416). --define(wxClipboard_UsePrimarySelection, 3418). --define(wxClipboard_IsSupported, 3419). --define(wxClipboard_Get, 3420). --define(wxSpinEvent_GetPosition, 3421). --define(wxSpinEvent_SetPosition, 3422). --define(wxSplitterWindow_new_0, 3423). --define(wxSplitterWindow_new_2, 3424). --define(wxSplitterWindow_destruct, 3425). --define(wxSplitterWindow_Create, 3426). --define(wxSplitterWindow_GetMinimumPaneSize, 3427). --define(wxSplitterWindow_GetSashGravity, 3428). --define(wxSplitterWindow_GetSashPosition, 3429). --define(wxSplitterWindow_GetSplitMode, 3430). --define(wxSplitterWindow_GetWindow1, 3431). --define(wxSplitterWindow_GetWindow2, 3432). --define(wxSplitterWindow_Initialize, 3433). --define(wxSplitterWindow_IsSplit, 3434). --define(wxSplitterWindow_ReplaceWindow, 3435). --define(wxSplitterWindow_SetSashGravity, 3436). --define(wxSplitterWindow_SetSashPosition, 3437). --define(wxSplitterWindow_SetSashSize, 3438). --define(wxSplitterWindow_SetMinimumPaneSize, 3439). --define(wxSplitterWindow_SetSplitMode, 3440). --define(wxSplitterWindow_SplitHorizontally, 3441). --define(wxSplitterWindow_SplitVertically, 3442). --define(wxSplitterWindow_Unsplit, 3443). --define(wxSplitterWindow_UpdateSize, 3444). --define(wxSplitterEvent_GetSashPosition, 3445). --define(wxSplitterEvent_GetX, 3446). --define(wxSplitterEvent_GetY, 3447). --define(wxSplitterEvent_GetWindowBeingRemoved, 3448). --define(wxSplitterEvent_SetSashPosition, 3449). --define(wxHtmlWindow_new_0, 3450). --define(wxHtmlWindow_new_2, 3451). --define(wxHtmlWindow_AppendToPage, 3452). --define(wxHtmlWindow_GetOpenedAnchor, 3453). --define(wxHtmlWindow_GetOpenedPage, 3454). --define(wxHtmlWindow_GetOpenedPageTitle, 3455). --define(wxHtmlWindow_GetRelatedFrame, 3456). --define(wxHtmlWindow_HistoryBack, 3457). --define(wxHtmlWindow_HistoryCanBack, 3458). --define(wxHtmlWindow_HistoryCanForward, 3459). --define(wxHtmlWindow_HistoryClear, 3460). --define(wxHtmlWindow_HistoryForward, 3461). --define(wxHtmlWindow_LoadFile, 3462). --define(wxHtmlWindow_LoadPage, 3463). --define(wxHtmlWindow_SelectAll, 3464). --define(wxHtmlWindow_SelectionToText, 3465). --define(wxHtmlWindow_SelectLine, 3466). --define(wxHtmlWindow_SelectWord, 3467). --define(wxHtmlWindow_SetBorders, 3468). --define(wxHtmlWindow_SetFonts, 3469). --define(wxHtmlWindow_SetPage, 3470). --define(wxHtmlWindow_SetRelatedFrame, 3471). --define(wxHtmlWindow_SetRelatedStatusBar, 3472). --define(wxHtmlWindow_ToText, 3473). --define(wxHtmlWindow_destroy, 3474). --define(wxHtmlLinkEvent_GetLinkInfo, 3475). --define(wxSystemSettings_GetColour, 3476). --define(wxSystemSettings_GetFont, 3477). --define(wxSystemSettings_GetMetric, 3478). --define(wxSystemSettings_GetScreenType, 3479). --define(wxAuiNotebookEvent_SetSelection, 3480). --define(wxAuiNotebookEvent_GetSelection, 3481). --define(wxAuiNotebookEvent_SetOldSelection, 3482). --define(wxAuiNotebookEvent_GetOldSelection, 3483). --define(wxAuiNotebookEvent_SetDragSource, 3484). --define(wxAuiNotebookEvent_GetDragSource, 3485). --define(wxAuiManagerEvent_SetManager, 3486). --define(wxAuiManagerEvent_GetManager, 3487). --define(wxAuiManagerEvent_SetPane, 3488). --define(wxAuiManagerEvent_GetPane, 3489). --define(wxAuiManagerEvent_SetButton, 3490). --define(wxAuiManagerEvent_GetButton, 3491). --define(wxAuiManagerEvent_SetDC, 3492). --define(wxAuiManagerEvent_GetDC, 3493). --define(wxAuiManagerEvent_Veto, 3494). --define(wxAuiManagerEvent_GetVeto, 3495). --define(wxAuiManagerEvent_SetCanVeto, 3496). --define(wxAuiManagerEvent_CanVeto, 3497). --define(wxLogNull_new, 3498). --define(wxLogNull_destroy, 3499). +-define(wxListItemAttr_new_0, 1757). +-define(wxListItemAttr_new_3, 1758). +-define(wxListItemAttr_GetBackgroundColour, 1759). +-define(wxListItemAttr_GetFont, 1760). +-define(wxListItemAttr_GetTextColour, 1761). +-define(wxListItemAttr_HasBackgroundColour, 1762). +-define(wxListItemAttr_HasFont, 1763). +-define(wxListItemAttr_HasTextColour, 1764). +-define(wxListItemAttr_SetBackgroundColour, 1765). +-define(wxListItemAttr_SetFont, 1766). +-define(wxListItemAttr_SetTextColour, 1767). +-define(wxListItemAttr_destroy, 1768). +-define(wxImageList_new_0, 1769). +-define(wxImageList_new_3, 1770). +-define(wxImageList_Add_1, 1771). +-define(wxImageList_Add_2_0, 1772). +-define(wxImageList_Add_2_1, 1773). +-define(wxImageList_Create, 1774). +-define(wxImageList_Draw, 1776). +-define(wxImageList_GetBitmap, 1777). +-define(wxImageList_GetIcon, 1778). +-define(wxImageList_GetImageCount, 1779). +-define(wxImageList_GetSize, 1780). +-define(wxImageList_Remove, 1781). +-define(wxImageList_RemoveAll, 1782). +-define(wxImageList_Replace_2, 1783). +-define(wxImageList_Replace_3, 1784). +-define(wxImageList_destroy, 1785). +-define(wxTextAttr_new_0, 1786). +-define(wxTextAttr_new_2, 1787). +-define(wxTextAttr_GetAlignment, 1788). +-define(wxTextAttr_GetBackgroundColour, 1789). +-define(wxTextAttr_GetFont, 1790). +-define(wxTextAttr_GetLeftIndent, 1791). +-define(wxTextAttr_GetLeftSubIndent, 1792). +-define(wxTextAttr_GetRightIndent, 1793). +-define(wxTextAttr_GetTabs, 1794). +-define(wxTextAttr_GetTextColour, 1795). +-define(wxTextAttr_HasBackgroundColour, 1796). +-define(wxTextAttr_HasFont, 1797). +-define(wxTextAttr_HasTextColour, 1798). +-define(wxTextAttr_GetFlags, 1799). +-define(wxTextAttr_IsDefault, 1800). +-define(wxTextAttr_SetAlignment, 1801). +-define(wxTextAttr_SetBackgroundColour, 1802). +-define(wxTextAttr_SetFlags, 1803). +-define(wxTextAttr_SetFont, 1804). +-define(wxTextAttr_SetLeftIndent, 1805). +-define(wxTextAttr_SetRightIndent, 1806). +-define(wxTextAttr_SetTabs, 1807). +-define(wxTextAttr_SetTextColour, 1808). +-define(wxTextAttr_destroy, 1809). +-define(wxTextCtrl_new_3, 1811). +-define(wxTextCtrl_new_0, 1812). +-define(wxTextCtrl_destruct, 1814). +-define(wxTextCtrl_AppendText, 1815). +-define(wxTextCtrl_CanCopy, 1816). +-define(wxTextCtrl_CanCut, 1817). +-define(wxTextCtrl_CanPaste, 1818). +-define(wxTextCtrl_CanRedo, 1819). +-define(wxTextCtrl_CanUndo, 1820). +-define(wxTextCtrl_Clear, 1821). +-define(wxTextCtrl_Copy, 1822). +-define(wxTextCtrl_Create, 1823). +-define(wxTextCtrl_Cut, 1824). +-define(wxTextCtrl_DiscardEdits, 1825). +-define(wxTextCtrl_EmulateKeyPress, 1826). +-define(wxTextCtrl_GetDefaultStyle, 1827). +-define(wxTextCtrl_GetInsertionPoint, 1828). +-define(wxTextCtrl_GetLastPosition, 1829). +-define(wxTextCtrl_GetLineLength, 1830). +-define(wxTextCtrl_GetLineText, 1831). +-define(wxTextCtrl_GetNumberOfLines, 1832). +-define(wxTextCtrl_GetRange, 1833). +-define(wxTextCtrl_GetSelection, 1834). +-define(wxTextCtrl_GetStringSelection, 1835). +-define(wxTextCtrl_GetStyle, 1836). +-define(wxTextCtrl_GetValue, 1837). +-define(wxTextCtrl_IsEditable, 1838). +-define(wxTextCtrl_IsModified, 1839). +-define(wxTextCtrl_IsMultiLine, 1840). +-define(wxTextCtrl_IsSingleLine, 1841). +-define(wxTextCtrl_LoadFile, 1842). +-define(wxTextCtrl_MarkDirty, 1843). +-define(wxTextCtrl_Paste, 1844). +-define(wxTextCtrl_PositionToXY, 1845). +-define(wxTextCtrl_Redo, 1846). +-define(wxTextCtrl_Remove, 1847). +-define(wxTextCtrl_Replace, 1848). +-define(wxTextCtrl_SaveFile, 1849). +-define(wxTextCtrl_SetDefaultStyle, 1850). +-define(wxTextCtrl_SetEditable, 1851). +-define(wxTextCtrl_SetInsertionPoint, 1852). +-define(wxTextCtrl_SetInsertionPointEnd, 1853). +-define(wxTextCtrl_SetMaxLength, 1855). +-define(wxTextCtrl_SetSelection, 1856). +-define(wxTextCtrl_SetStyle, 1857). +-define(wxTextCtrl_SetValue, 1858). +-define(wxTextCtrl_ShowPosition, 1859). +-define(wxTextCtrl_Undo, 1860). +-define(wxTextCtrl_WriteText, 1861). +-define(wxTextCtrl_XYToPosition, 1862). +-define(wxNotebook_new_0, 1865). +-define(wxNotebook_new_3, 1866). +-define(wxNotebook_destruct, 1867). +-define(wxNotebook_AddPage, 1868). +-define(wxNotebook_AdvanceSelection, 1869). +-define(wxNotebook_AssignImageList, 1870). +-define(wxNotebook_Create, 1871). +-define(wxNotebook_DeleteAllPages, 1872). +-define(wxNotebook_DeletePage, 1873). +-define(wxNotebook_RemovePage, 1874). +-define(wxNotebook_GetCurrentPage, 1875). +-define(wxNotebook_GetImageList, 1876). +-define(wxNotebook_GetPage, 1878). +-define(wxNotebook_GetPageCount, 1879). +-define(wxNotebook_GetPageImage, 1880). +-define(wxNotebook_GetPageText, 1881). +-define(wxNotebook_GetRowCount, 1882). +-define(wxNotebook_GetSelection, 1883). +-define(wxNotebook_GetThemeBackgroundColour, 1884). +-define(wxNotebook_HitTest, 1886). +-define(wxNotebook_InsertPage, 1888). +-define(wxNotebook_SetImageList, 1889). +-define(wxNotebook_SetPadding, 1890). +-define(wxNotebook_SetPageSize, 1891). +-define(wxNotebook_SetPageImage, 1892). +-define(wxNotebook_SetPageText, 1893). +-define(wxNotebook_SetSelection, 1894). +-define(wxNotebook_ChangeSelection, 1895). +-define(wxChoicebook_new_0, 1896). +-define(wxChoicebook_new_3, 1897). +-define(wxChoicebook_AddPage, 1898). +-define(wxChoicebook_AdvanceSelection, 1899). +-define(wxChoicebook_AssignImageList, 1900). +-define(wxChoicebook_Create, 1901). +-define(wxChoicebook_DeleteAllPages, 1902). +-define(wxChoicebook_DeletePage, 1903). +-define(wxChoicebook_RemovePage, 1904). +-define(wxChoicebook_GetCurrentPage, 1905). +-define(wxChoicebook_GetImageList, 1906). +-define(wxChoicebook_GetPage, 1908). +-define(wxChoicebook_GetPageCount, 1909). +-define(wxChoicebook_GetPageImage, 1910). +-define(wxChoicebook_GetPageText, 1911). +-define(wxChoicebook_GetSelection, 1912). +-define(wxChoicebook_HitTest, 1913). +-define(wxChoicebook_InsertPage, 1914). +-define(wxChoicebook_SetImageList, 1915). +-define(wxChoicebook_SetPageSize, 1916). +-define(wxChoicebook_SetPageImage, 1917). +-define(wxChoicebook_SetPageText, 1918). +-define(wxChoicebook_SetSelection, 1919). +-define(wxChoicebook_ChangeSelection, 1920). +-define(wxChoicebook_destroy, 1921). +-define(wxToolbook_new_0, 1922). +-define(wxToolbook_new_3, 1923). +-define(wxToolbook_AddPage, 1924). +-define(wxToolbook_AdvanceSelection, 1925). +-define(wxToolbook_AssignImageList, 1926). +-define(wxToolbook_Create, 1927). +-define(wxToolbook_DeleteAllPages, 1928). +-define(wxToolbook_DeletePage, 1929). +-define(wxToolbook_RemovePage, 1930). +-define(wxToolbook_GetCurrentPage, 1931). +-define(wxToolbook_GetImageList, 1932). +-define(wxToolbook_GetPage, 1934). +-define(wxToolbook_GetPageCount, 1935). +-define(wxToolbook_GetPageImage, 1936). +-define(wxToolbook_GetPageText, 1937). +-define(wxToolbook_GetSelection, 1938). +-define(wxToolbook_HitTest, 1940). +-define(wxToolbook_InsertPage, 1941). +-define(wxToolbook_SetImageList, 1942). +-define(wxToolbook_SetPageSize, 1943). +-define(wxToolbook_SetPageImage, 1944). +-define(wxToolbook_SetPageText, 1945). +-define(wxToolbook_SetSelection, 1946). +-define(wxToolbook_ChangeSelection, 1947). +-define(wxToolbook_destroy, 1948). +-define(wxListbook_new_0, 1949). +-define(wxListbook_new_3, 1950). +-define(wxListbook_AddPage, 1951). +-define(wxListbook_AdvanceSelection, 1952). +-define(wxListbook_AssignImageList, 1953). +-define(wxListbook_Create, 1954). +-define(wxListbook_DeleteAllPages, 1955). +-define(wxListbook_DeletePage, 1956). +-define(wxListbook_RemovePage, 1957). +-define(wxListbook_GetCurrentPage, 1958). +-define(wxListbook_GetImageList, 1959). +-define(wxListbook_GetPage, 1961). +-define(wxListbook_GetPageCount, 1962). +-define(wxListbook_GetPageImage, 1963). +-define(wxListbook_GetPageText, 1964). +-define(wxListbook_GetSelection, 1965). +-define(wxListbook_HitTest, 1967). +-define(wxListbook_InsertPage, 1968). +-define(wxListbook_SetImageList, 1969). +-define(wxListbook_SetPageSize, 1970). +-define(wxListbook_SetPageImage, 1971). +-define(wxListbook_SetPageText, 1972). +-define(wxListbook_SetSelection, 1973). +-define(wxListbook_ChangeSelection, 1974). +-define(wxListbook_destroy, 1975). +-define(wxTreebook_new_0, 1976). +-define(wxTreebook_new_3, 1977). +-define(wxTreebook_AddPage, 1978). +-define(wxTreebook_AdvanceSelection, 1979). +-define(wxTreebook_AssignImageList, 1980). +-define(wxTreebook_Create, 1981). +-define(wxTreebook_DeleteAllPages, 1982). +-define(wxTreebook_DeletePage, 1983). +-define(wxTreebook_RemovePage, 1984). +-define(wxTreebook_GetCurrentPage, 1985). +-define(wxTreebook_GetImageList, 1986). +-define(wxTreebook_GetPage, 1988). +-define(wxTreebook_GetPageCount, 1989). +-define(wxTreebook_GetPageImage, 1990). +-define(wxTreebook_GetPageText, 1991). +-define(wxTreebook_GetSelection, 1992). +-define(wxTreebook_ExpandNode, 1993). +-define(wxTreebook_IsNodeExpanded, 1994). +-define(wxTreebook_HitTest, 1996). +-define(wxTreebook_InsertPage, 1997). +-define(wxTreebook_InsertSubPage, 1998). +-define(wxTreebook_SetImageList, 1999). +-define(wxTreebook_SetPageSize, 2000). +-define(wxTreebook_SetPageImage, 2001). +-define(wxTreebook_SetPageText, 2002). +-define(wxTreebook_SetSelection, 2003). +-define(wxTreebook_ChangeSelection, 2004). +-define(wxTreebook_destroy, 2005). +-define(wxTreeCtrl_new_2, 2008). +-define(wxTreeCtrl_new_0, 2009). +-define(wxTreeCtrl_destruct, 2011). +-define(wxTreeCtrl_AddRoot, 2012). +-define(wxTreeCtrl_AppendItem, 2013). +-define(wxTreeCtrl_AssignImageList, 2014). +-define(wxTreeCtrl_AssignStateImageList, 2015). +-define(wxTreeCtrl_Collapse, 2016). +-define(wxTreeCtrl_CollapseAndReset, 2017). +-define(wxTreeCtrl_Create, 2018). +-define(wxTreeCtrl_Delete, 2019). +-define(wxTreeCtrl_DeleteAllItems, 2020). +-define(wxTreeCtrl_DeleteChildren, 2021). +-define(wxTreeCtrl_EditLabel, 2022). +-define(wxTreeCtrl_EnsureVisible, 2023). +-define(wxTreeCtrl_Expand, 2024). +-define(wxTreeCtrl_GetBoundingRect, 2025). +-define(wxTreeCtrl_GetChildrenCount, 2027). +-define(wxTreeCtrl_GetCount, 2028). +-define(wxTreeCtrl_GetEditControl, 2029). +-define(wxTreeCtrl_GetFirstChild, 2030). +-define(wxTreeCtrl_GetNextChild, 2031). +-define(wxTreeCtrl_GetFirstVisibleItem, 2032). +-define(wxTreeCtrl_GetImageList, 2033). +-define(wxTreeCtrl_GetIndent, 2034). +-define(wxTreeCtrl_GetItemBackgroundColour, 2035). +-define(wxTreeCtrl_GetItemData, 2036). +-define(wxTreeCtrl_GetItemFont, 2037). +-define(wxTreeCtrl_GetItemImage_1, 2038). +-define(wxTreeCtrl_GetItemImage_2, 2039). +-define(wxTreeCtrl_GetItemText, 2040). +-define(wxTreeCtrl_GetItemTextColour, 2041). +-define(wxTreeCtrl_GetLastChild, 2042). +-define(wxTreeCtrl_GetNextSibling, 2043). +-define(wxTreeCtrl_GetNextVisible, 2044). +-define(wxTreeCtrl_GetItemParent, 2045). +-define(wxTreeCtrl_GetPrevSibling, 2046). +-define(wxTreeCtrl_GetPrevVisible, 2047). +-define(wxTreeCtrl_GetRootItem, 2048). +-define(wxTreeCtrl_GetSelection, 2049). +-define(wxTreeCtrl_GetSelections, 2050). +-define(wxTreeCtrl_GetStateImageList, 2051). +-define(wxTreeCtrl_HitTest, 2052). +-define(wxTreeCtrl_InsertItem, 2054). +-define(wxTreeCtrl_IsBold, 2055). +-define(wxTreeCtrl_IsExpanded, 2056). +-define(wxTreeCtrl_IsSelected, 2057). +-define(wxTreeCtrl_IsVisible, 2058). +-define(wxTreeCtrl_ItemHasChildren, 2059). +-define(wxTreeCtrl_PrependItem, 2060). +-define(wxTreeCtrl_ScrollTo, 2061). +-define(wxTreeCtrl_SelectItem_1, 2062). +-define(wxTreeCtrl_SelectItem_2, 2063). +-define(wxTreeCtrl_SetIndent, 2064). +-define(wxTreeCtrl_SetImageList, 2065). +-define(wxTreeCtrl_SetItemBackgroundColour, 2066). +-define(wxTreeCtrl_SetItemBold, 2067). +-define(wxTreeCtrl_SetItemData, 2068). +-define(wxTreeCtrl_SetItemDropHighlight, 2069). +-define(wxTreeCtrl_SetItemFont, 2070). +-define(wxTreeCtrl_SetItemHasChildren, 2071). +-define(wxTreeCtrl_SetItemImage_2, 2072). +-define(wxTreeCtrl_SetItemImage_3, 2073). +-define(wxTreeCtrl_SetItemText, 2074). +-define(wxTreeCtrl_SetItemTextColour, 2075). +-define(wxTreeCtrl_SetStateImageList, 2076). +-define(wxTreeCtrl_SetWindowStyle, 2077). +-define(wxTreeCtrl_SortChildren, 2078). +-define(wxTreeCtrl_Toggle, 2079). +-define(wxTreeCtrl_ToggleItemSelection, 2080). +-define(wxTreeCtrl_Unselect, 2081). +-define(wxTreeCtrl_UnselectAll, 2082). +-define(wxTreeCtrl_UnselectItem, 2083). +-define(wxScrollBar_new_0, 2084). +-define(wxScrollBar_new_3, 2085). +-define(wxScrollBar_destruct, 2086). +-define(wxScrollBar_Create, 2087). +-define(wxScrollBar_GetRange, 2088). +-define(wxScrollBar_GetPageSize, 2089). +-define(wxScrollBar_GetThumbPosition, 2090). +-define(wxScrollBar_GetThumbSize, 2091). +-define(wxScrollBar_SetThumbPosition, 2092). +-define(wxScrollBar_SetScrollbar, 2093). +-define(wxSpinButton_new_2, 2095). +-define(wxSpinButton_new_0, 2096). +-define(wxSpinButton_Create, 2097). +-define(wxSpinButton_GetMax, 2098). +-define(wxSpinButton_GetMin, 2099). +-define(wxSpinButton_GetValue, 2100). +-define(wxSpinButton_SetRange, 2101). +-define(wxSpinButton_SetValue, 2102). +-define(wxSpinButton_destroy, 2103). +-define(wxSpinCtrl_new_0, 2104). +-define(wxSpinCtrl_new_2, 2105). +-define(wxSpinCtrl_Create, 2107). +-define(wxSpinCtrl_SetValue_1_1, 2110). +-define(wxSpinCtrl_SetValue_1_0, 2111). +-define(wxSpinCtrl_GetValue, 2113). +-define(wxSpinCtrl_SetRange, 2115). +-define(wxSpinCtrl_SetSelection, 2116). +-define(wxSpinCtrl_GetMin, 2118). +-define(wxSpinCtrl_GetMax, 2120). +-define(wxSpinCtrl_destroy, 2121). +-define(wxStaticText_new_0, 2122). +-define(wxStaticText_new_4, 2123). +-define(wxStaticText_Create, 2124). +-define(wxStaticText_GetLabel, 2125). +-define(wxStaticText_SetLabel, 2126). +-define(wxStaticText_Wrap, 2127). +-define(wxStaticText_destroy, 2128). +-define(wxStaticBitmap_new_0, 2129). +-define(wxStaticBitmap_new_4, 2130). +-define(wxStaticBitmap_Create, 2131). +-define(wxStaticBitmap_GetBitmap, 2132). +-define(wxStaticBitmap_SetBitmap, 2133). +-define(wxStaticBitmap_destroy, 2134). +-define(wxRadioBox_new, 2135). +-define(wxRadioBox_destruct, 2137). +-define(wxRadioBox_Create, 2138). +-define(wxRadioBox_Enable_2, 2139). +-define(wxRadioBox_Enable_1, 2140). +-define(wxRadioBox_GetSelection, 2141). +-define(wxRadioBox_GetString, 2142). +-define(wxRadioBox_SetSelection, 2143). +-define(wxRadioBox_Show_2, 2144). +-define(wxRadioBox_Show_1, 2145). +-define(wxRadioBox_GetColumnCount, 2146). +-define(wxRadioBox_GetItemHelpText, 2147). +-define(wxRadioBox_GetItemToolTip, 2148). +-define(wxRadioBox_GetItemFromPoint, 2150). +-define(wxRadioBox_GetRowCount, 2151). +-define(wxRadioBox_IsItemEnabled, 2152). +-define(wxRadioBox_IsItemShown, 2153). +-define(wxRadioBox_SetItemHelpText, 2154). +-define(wxRadioBox_SetItemToolTip, 2155). +-define(wxRadioButton_new_0, 2156). +-define(wxRadioButton_new_4, 2157). +-define(wxRadioButton_Create, 2158). +-define(wxRadioButton_GetValue, 2159). +-define(wxRadioButton_SetValue, 2160). +-define(wxRadioButton_destroy, 2161). +-define(wxSlider_new_6, 2163). +-define(wxSlider_new_0, 2164). +-define(wxSlider_Create, 2165). +-define(wxSlider_GetLineSize, 2166). +-define(wxSlider_GetMax, 2167). +-define(wxSlider_GetMin, 2168). +-define(wxSlider_GetPageSize, 2169). +-define(wxSlider_GetThumbLength, 2170). +-define(wxSlider_GetValue, 2171). +-define(wxSlider_SetLineSize, 2172). +-define(wxSlider_SetPageSize, 2173). +-define(wxSlider_SetRange, 2174). +-define(wxSlider_SetThumbLength, 2175). +-define(wxSlider_SetValue, 2176). +-define(wxSlider_destroy, 2177). +-define(wxDialog_new_4, 2179). +-define(wxDialog_new_0, 2180). +-define(wxDialog_destruct, 2182). +-define(wxDialog_Create, 2183). +-define(wxDialog_CreateButtonSizer, 2184). +-define(wxDialog_CreateStdDialogButtonSizer, 2185). +-define(wxDialog_EndModal, 2186). +-define(wxDialog_GetAffirmativeId, 2187). +-define(wxDialog_GetReturnCode, 2188). +-define(wxDialog_IsModal, 2189). +-define(wxDialog_SetAffirmativeId, 2190). +-define(wxDialog_SetReturnCode, 2191). +-define(wxDialog_Show, 2192). +-define(wxDialog_ShowModal, 2193). +-define(wxColourDialog_new_0, 2194). +-define(wxColourDialog_new_2, 2195). +-define(wxColourDialog_destruct, 2196). +-define(wxColourDialog_Create, 2197). +-define(wxColourDialog_GetColourData, 2198). +-define(wxColourData_new_0, 2199). +-define(wxColourData_new_1, 2200). +-define(wxColourData_destruct, 2201). +-define(wxColourData_GetChooseFull, 2202). +-define(wxColourData_GetColour, 2203). +-define(wxColourData_GetCustomColour, 2205). +-define(wxColourData_SetChooseFull, 2206). +-define(wxColourData_SetColour, 2207). +-define(wxColourData_SetCustomColour, 2208). +-define(wxPalette_new_0, 2209). +-define(wxPalette_new_4, 2210). +-define(wxPalette_destruct, 2212). +-define(wxPalette_Create, 2213). +-define(wxPalette_GetColoursCount, 2214). +-define(wxPalette_GetPixel, 2215). +-define(wxPalette_GetRGB, 2216). +-define(wxPalette_IsOk, 2217). +-define(wxDirDialog_new, 2221). +-define(wxDirDialog_destruct, 2222). +-define(wxDirDialog_GetPath, 2223). +-define(wxDirDialog_GetMessage, 2224). +-define(wxDirDialog_SetMessage, 2225). +-define(wxDirDialog_SetPath, 2226). +-define(wxFileDialog_new, 2230). +-define(wxFileDialog_destruct, 2231). +-define(wxFileDialog_GetDirectory, 2232). +-define(wxFileDialog_GetFilename, 2233). +-define(wxFileDialog_GetFilenames, 2234). +-define(wxFileDialog_GetFilterIndex, 2235). +-define(wxFileDialog_GetMessage, 2236). +-define(wxFileDialog_GetPath, 2237). +-define(wxFileDialog_GetPaths, 2238). +-define(wxFileDialog_GetWildcard, 2239). +-define(wxFileDialog_SetDirectory, 2240). +-define(wxFileDialog_SetFilename, 2241). +-define(wxFileDialog_SetFilterIndex, 2242). +-define(wxFileDialog_SetMessage, 2243). +-define(wxFileDialog_SetPath, 2244). +-define(wxFileDialog_SetWildcard, 2245). +-define(wxPickerBase_SetInternalMargin, 2246). +-define(wxPickerBase_GetInternalMargin, 2247). +-define(wxPickerBase_SetTextCtrlProportion, 2248). +-define(wxPickerBase_SetPickerCtrlProportion, 2249). +-define(wxPickerBase_GetTextCtrlProportion, 2250). +-define(wxPickerBase_GetPickerCtrlProportion, 2251). +-define(wxPickerBase_HasTextCtrl, 2252). +-define(wxPickerBase_GetTextCtrl, 2253). +-define(wxPickerBase_IsTextCtrlGrowable, 2254). +-define(wxPickerBase_SetPickerCtrlGrowable, 2255). +-define(wxPickerBase_SetTextCtrlGrowable, 2256). +-define(wxPickerBase_IsPickerCtrlGrowable, 2257). +-define(wxFilePickerCtrl_new_0, 2258). +-define(wxFilePickerCtrl_new_3, 2259). +-define(wxFilePickerCtrl_Create, 2260). +-define(wxFilePickerCtrl_GetPath, 2261). +-define(wxFilePickerCtrl_SetPath, 2262). +-define(wxFilePickerCtrl_destroy, 2263). +-define(wxDirPickerCtrl_new_0, 2264). +-define(wxDirPickerCtrl_new_3, 2265). +-define(wxDirPickerCtrl_Create, 2266). +-define(wxDirPickerCtrl_GetPath, 2267). +-define(wxDirPickerCtrl_SetPath, 2268). +-define(wxDirPickerCtrl_destroy, 2269). +-define(wxColourPickerCtrl_new_0, 2270). +-define(wxColourPickerCtrl_new_3, 2271). +-define(wxColourPickerCtrl_Create, 2272). +-define(wxColourPickerCtrl_GetColour, 2273). +-define(wxColourPickerCtrl_SetColour_1_1, 2274). +-define(wxColourPickerCtrl_SetColour_1_0, 2275). +-define(wxColourPickerCtrl_destroy, 2276). +-define(wxDatePickerCtrl_new_0, 2277). +-define(wxDatePickerCtrl_new_3, 2278). +-define(wxDatePickerCtrl_GetRange, 2279). +-define(wxDatePickerCtrl_GetValue, 2280). +-define(wxDatePickerCtrl_SetRange, 2281). +-define(wxDatePickerCtrl_SetValue, 2282). +-define(wxDatePickerCtrl_destroy, 2283). +-define(wxFontPickerCtrl_new_0, 2284). +-define(wxFontPickerCtrl_new_3, 2285). +-define(wxFontPickerCtrl_Create, 2286). +-define(wxFontPickerCtrl_GetSelectedFont, 2287). +-define(wxFontPickerCtrl_SetSelectedFont, 2288). +-define(wxFontPickerCtrl_GetMaxPointSize, 2289). +-define(wxFontPickerCtrl_SetMaxPointSize, 2290). +-define(wxFontPickerCtrl_destroy, 2291). +-define(wxFindReplaceDialog_new_0, 2294). +-define(wxFindReplaceDialog_new_4, 2295). +-define(wxFindReplaceDialog_destruct, 2296). +-define(wxFindReplaceDialog_Create, 2297). +-define(wxFindReplaceDialog_GetData, 2298). +-define(wxFindReplaceData_new_0, 2299). +-define(wxFindReplaceData_new_1, 2300). +-define(wxFindReplaceData_GetFindString, 2301). +-define(wxFindReplaceData_GetReplaceString, 2302). +-define(wxFindReplaceData_GetFlags, 2303). +-define(wxFindReplaceData_SetFlags, 2304). +-define(wxFindReplaceData_SetFindString, 2305). +-define(wxFindReplaceData_SetReplaceString, 2306). +-define(wxFindReplaceData_destroy, 2307). +-define(wxMultiChoiceDialog_new_0, 2308). +-define(wxMultiChoiceDialog_new_5, 2310). +-define(wxMultiChoiceDialog_GetSelections, 2311). +-define(wxMultiChoiceDialog_SetSelections, 2312). +-define(wxMultiChoiceDialog_destroy, 2313). +-define(wxSingleChoiceDialog_new_0, 2314). +-define(wxSingleChoiceDialog_new_5, 2316). +-define(wxSingleChoiceDialog_GetSelection, 2317). +-define(wxSingleChoiceDialog_GetStringSelection, 2318). +-define(wxSingleChoiceDialog_SetSelection, 2319). +-define(wxSingleChoiceDialog_destroy, 2320). +-define(wxTextEntryDialog_new, 2321). +-define(wxTextEntryDialog_GetValue, 2322). +-define(wxTextEntryDialog_SetValue, 2323). +-define(wxTextEntryDialog_destroy, 2324). +-define(wxPasswordEntryDialog_new, 2325). +-define(wxPasswordEntryDialog_destroy, 2326). +-define(wxFontData_new_0, 2327). +-define(wxFontData_new_1, 2328). +-define(wxFontData_destruct, 2329). +-define(wxFontData_EnableEffects, 2330). +-define(wxFontData_GetAllowSymbols, 2331). +-define(wxFontData_GetColour, 2332). +-define(wxFontData_GetChosenFont, 2333). +-define(wxFontData_GetEnableEffects, 2334). +-define(wxFontData_GetInitialFont, 2335). +-define(wxFontData_GetShowHelp, 2336). +-define(wxFontData_SetAllowSymbols, 2337). +-define(wxFontData_SetChosenFont, 2338). +-define(wxFontData_SetColour, 2339). +-define(wxFontData_SetInitialFont, 2340). +-define(wxFontData_SetRange, 2341). +-define(wxFontData_SetShowHelp, 2342). +-define(wxFontDialog_new_0, 2346). +-define(wxFontDialog_new_2, 2348). +-define(wxFontDialog_Create, 2350). +-define(wxFontDialog_GetFontData, 2351). +-define(wxFontDialog_destroy, 2353). +-define(wxProgressDialog_new, 2354). +-define(wxProgressDialog_destruct, 2355). +-define(wxProgressDialog_Resume, 2356). +-define(wxProgressDialog_Update_2, 2357). +-define(wxProgressDialog_Update_0, 2358). +-define(wxMessageDialog_new, 2359). +-define(wxMessageDialog_destruct, 2360). +-define(wxPageSetupDialog_new, 2361). +-define(wxPageSetupDialog_destruct, 2362). +-define(wxPageSetupDialog_GetPageSetupData, 2363). +-define(wxPageSetupDialog_ShowModal, 2364). +-define(wxPageSetupDialogData_new_0, 2365). +-define(wxPageSetupDialogData_new_1_0, 2366). +-define(wxPageSetupDialogData_new_1_1, 2367). +-define(wxPageSetupDialogData_destruct, 2368). +-define(wxPageSetupDialogData_EnableHelp, 2369). +-define(wxPageSetupDialogData_EnableMargins, 2370). +-define(wxPageSetupDialogData_EnableOrientation, 2371). +-define(wxPageSetupDialogData_EnablePaper, 2372). +-define(wxPageSetupDialogData_EnablePrinter, 2373). +-define(wxPageSetupDialogData_GetDefaultMinMargins, 2374). +-define(wxPageSetupDialogData_GetEnableMargins, 2375). +-define(wxPageSetupDialogData_GetEnableOrientation, 2376). +-define(wxPageSetupDialogData_GetEnablePaper, 2377). +-define(wxPageSetupDialogData_GetEnablePrinter, 2378). +-define(wxPageSetupDialogData_GetEnableHelp, 2379). +-define(wxPageSetupDialogData_GetDefaultInfo, 2380). +-define(wxPageSetupDialogData_GetMarginTopLeft, 2381). +-define(wxPageSetupDialogData_GetMarginBottomRight, 2382). +-define(wxPageSetupDialogData_GetMinMarginTopLeft, 2383). +-define(wxPageSetupDialogData_GetMinMarginBottomRight, 2384). +-define(wxPageSetupDialogData_GetPaperId, 2385). +-define(wxPageSetupDialogData_GetPaperSize, 2386). +-define(wxPageSetupDialogData_GetPrintData, 2388). +-define(wxPageSetupDialogData_IsOk, 2389). +-define(wxPageSetupDialogData_SetDefaultInfo, 2390). +-define(wxPageSetupDialogData_SetDefaultMinMargins, 2391). +-define(wxPageSetupDialogData_SetMarginTopLeft, 2392). +-define(wxPageSetupDialogData_SetMarginBottomRight, 2393). +-define(wxPageSetupDialogData_SetMinMarginTopLeft, 2394). +-define(wxPageSetupDialogData_SetMinMarginBottomRight, 2395). +-define(wxPageSetupDialogData_SetPaperId, 2396). +-define(wxPageSetupDialogData_SetPaperSize_1_1, 2397). +-define(wxPageSetupDialogData_SetPaperSize_1_0, 2398). +-define(wxPageSetupDialogData_SetPrintData, 2399). +-define(wxPrintDialog_new_2_0, 2400). +-define(wxPrintDialog_new_2_1, 2401). +-define(wxPrintDialog_destruct, 2402). +-define(wxPrintDialog_GetPrintDialogData, 2403). +-define(wxPrintDialog_GetPrintDC, 2404). +-define(wxPrintDialogData_new_0, 2405). +-define(wxPrintDialogData_new_1_1, 2406). +-define(wxPrintDialogData_new_1_0, 2407). +-define(wxPrintDialogData_destruct, 2408). +-define(wxPrintDialogData_EnableHelp, 2409). +-define(wxPrintDialogData_EnablePageNumbers, 2410). +-define(wxPrintDialogData_EnablePrintToFile, 2411). +-define(wxPrintDialogData_EnableSelection, 2412). +-define(wxPrintDialogData_GetAllPages, 2413). +-define(wxPrintDialogData_GetCollate, 2414). +-define(wxPrintDialogData_GetFromPage, 2415). +-define(wxPrintDialogData_GetMaxPage, 2416). +-define(wxPrintDialogData_GetMinPage, 2417). +-define(wxPrintDialogData_GetNoCopies, 2418). +-define(wxPrintDialogData_GetPrintData, 2419). +-define(wxPrintDialogData_GetPrintToFile, 2420). +-define(wxPrintDialogData_GetSelection, 2421). +-define(wxPrintDialogData_GetToPage, 2422). +-define(wxPrintDialogData_IsOk, 2423). +-define(wxPrintDialogData_SetCollate, 2424). +-define(wxPrintDialogData_SetFromPage, 2425). +-define(wxPrintDialogData_SetMaxPage, 2426). +-define(wxPrintDialogData_SetMinPage, 2427). +-define(wxPrintDialogData_SetNoCopies, 2428). +-define(wxPrintDialogData_SetPrintData, 2429). +-define(wxPrintDialogData_SetPrintToFile, 2430). +-define(wxPrintDialogData_SetSelection, 2431). +-define(wxPrintDialogData_SetToPage, 2432). +-define(wxPrintData_new_0, 2433). +-define(wxPrintData_new_1, 2434). +-define(wxPrintData_destruct, 2435). +-define(wxPrintData_GetCollate, 2436). +-define(wxPrintData_GetBin, 2437). +-define(wxPrintData_GetColour, 2438). +-define(wxPrintData_GetDuplex, 2439). +-define(wxPrintData_GetNoCopies, 2440). +-define(wxPrintData_GetOrientation, 2441). +-define(wxPrintData_GetPaperId, 2442). +-define(wxPrintData_GetPrinterName, 2443). +-define(wxPrintData_GetQuality, 2444). +-define(wxPrintData_IsOk, 2445). +-define(wxPrintData_SetBin, 2446). +-define(wxPrintData_SetCollate, 2447). +-define(wxPrintData_SetColour, 2448). +-define(wxPrintData_SetDuplex, 2449). +-define(wxPrintData_SetNoCopies, 2450). +-define(wxPrintData_SetOrientation, 2451). +-define(wxPrintData_SetPaperId, 2452). +-define(wxPrintData_SetPrinterName, 2453). +-define(wxPrintData_SetQuality, 2454). +-define(wxPrintPreview_new_2, 2457). +-define(wxPrintPreview_new_3, 2458). +-define(wxPrintPreview_destruct, 2460). +-define(wxPrintPreview_GetCanvas, 2461). +-define(wxPrintPreview_GetCurrentPage, 2462). +-define(wxPrintPreview_GetFrame, 2463). +-define(wxPrintPreview_GetMaxPage, 2464). +-define(wxPrintPreview_GetMinPage, 2465). +-define(wxPrintPreview_GetPrintout, 2466). +-define(wxPrintPreview_GetPrintoutForPrinting, 2467). +-define(wxPrintPreview_IsOk, 2468). +-define(wxPrintPreview_PaintPage, 2469). +-define(wxPrintPreview_Print, 2470). +-define(wxPrintPreview_RenderPage, 2471). +-define(wxPrintPreview_SetCanvas, 2472). +-define(wxPrintPreview_SetCurrentPage, 2473). +-define(wxPrintPreview_SetFrame, 2474). +-define(wxPrintPreview_SetPrintout, 2475). +-define(wxPrintPreview_SetZoom, 2476). +-define(wxPreviewFrame_new, 2477). +-define(wxPreviewFrame_destruct, 2478). +-define(wxPreviewFrame_CreateControlBar, 2479). +-define(wxPreviewFrame_CreateCanvas, 2480). +-define(wxPreviewFrame_Initialize, 2481). +-define(wxPreviewFrame_OnCloseWindow, 2482). +-define(wxPreviewControlBar_new, 2483). +-define(wxPreviewControlBar_destruct, 2484). +-define(wxPreviewControlBar_CreateButtons, 2485). +-define(wxPreviewControlBar_GetPrintPreview, 2486). +-define(wxPreviewControlBar_GetZoomControl, 2487). +-define(wxPreviewControlBar_SetZoomControl, 2488). +-define(wxPrinter_new, 2490). +-define(wxPrinter_CreateAbortWindow, 2491). +-define(wxPrinter_GetAbort, 2492). +-define(wxPrinter_GetLastError, 2493). +-define(wxPrinter_GetPrintDialogData, 2494). +-define(wxPrinter_Print, 2495). +-define(wxPrinter_PrintDialog, 2496). +-define(wxPrinter_ReportError, 2497). +-define(wxPrinter_Setup, 2498). +-define(wxPrinter_destroy, 2499). +-define(wxXmlResource_new_1, 2500). +-define(wxXmlResource_new_2, 2501). +-define(wxXmlResource_destruct, 2502). +-define(wxXmlResource_AttachUnknownControl, 2503). +-define(wxXmlResource_ClearHandlers, 2504). +-define(wxXmlResource_CompareVersion, 2505). +-define(wxXmlResource_Get, 2506). +-define(wxXmlResource_GetFlags, 2507). +-define(wxXmlResource_GetVersion, 2508). +-define(wxXmlResource_GetXRCID, 2509). +-define(wxXmlResource_InitAllHandlers, 2510). +-define(wxXmlResource_Load, 2511). +-define(wxXmlResource_LoadBitmap, 2512). +-define(wxXmlResource_LoadDialog_2, 2513). +-define(wxXmlResource_LoadDialog_3, 2514). +-define(wxXmlResource_LoadFrame_2, 2515). +-define(wxXmlResource_LoadFrame_3, 2516). +-define(wxXmlResource_LoadIcon, 2517). +-define(wxXmlResource_LoadMenu, 2518). +-define(wxXmlResource_LoadMenuBar_2, 2519). +-define(wxXmlResource_LoadMenuBar_1, 2520). +-define(wxXmlResource_LoadPanel_2, 2521). +-define(wxXmlResource_LoadPanel_3, 2522). +-define(wxXmlResource_LoadToolBar, 2523). +-define(wxXmlResource_Set, 2524). +-define(wxXmlResource_SetFlags, 2525). +-define(wxXmlResource_Unload, 2526). +-define(wxXmlResource_xrcctrl, 2527). +-define(wxHtmlEasyPrinting_new, 2528). +-define(wxHtmlEasyPrinting_destruct, 2529). +-define(wxHtmlEasyPrinting_GetPrintData, 2530). +-define(wxHtmlEasyPrinting_GetPageSetupData, 2531). +-define(wxHtmlEasyPrinting_PreviewFile, 2532). +-define(wxHtmlEasyPrinting_PreviewText, 2533). +-define(wxHtmlEasyPrinting_PrintFile, 2534). +-define(wxHtmlEasyPrinting_PrintText, 2535). +-define(wxHtmlEasyPrinting_PageSetup, 2536). +-define(wxHtmlEasyPrinting_SetFonts, 2537). +-define(wxHtmlEasyPrinting_SetHeader, 2538). +-define(wxHtmlEasyPrinting_SetFooter, 2539). +-define(wxGLCanvas_new_2, 2541). +-define(wxGLCanvas_new_3_1, 2542). +-define(wxGLCanvas_new_3_0, 2543). +-define(wxGLCanvas_GetContext, 2544). +-define(wxGLCanvas_SetCurrent, 2546). +-define(wxGLCanvas_SwapBuffers, 2547). +-define(wxGLCanvas_destroy, 2548). +-define(wxAuiManager_new, 2549). +-define(wxAuiManager_destruct, 2550). +-define(wxAuiManager_AddPane_2_1, 2551). +-define(wxAuiManager_AddPane_3, 2552). +-define(wxAuiManager_AddPane_2_0, 2553). +-define(wxAuiManager_DetachPane, 2554). +-define(wxAuiManager_GetAllPanes, 2555). +-define(wxAuiManager_GetArtProvider, 2556). +-define(wxAuiManager_GetDockSizeConstraint, 2557). +-define(wxAuiManager_GetFlags, 2558). +-define(wxAuiManager_GetManagedWindow, 2559). +-define(wxAuiManager_GetManager, 2560). +-define(wxAuiManager_GetPane_1_1, 2561). +-define(wxAuiManager_GetPane_1_0, 2562). +-define(wxAuiManager_HideHint, 2563). +-define(wxAuiManager_InsertPane, 2564). +-define(wxAuiManager_LoadPaneInfo, 2565). +-define(wxAuiManager_LoadPerspective, 2566). +-define(wxAuiManager_SavePaneInfo, 2567). +-define(wxAuiManager_SavePerspective, 2568). +-define(wxAuiManager_SetArtProvider, 2569). +-define(wxAuiManager_SetDockSizeConstraint, 2570). +-define(wxAuiManager_SetFlags, 2571). +-define(wxAuiManager_SetManagedWindow, 2572). +-define(wxAuiManager_ShowHint, 2573). +-define(wxAuiManager_UnInit, 2574). +-define(wxAuiManager_Update, 2575). +-define(wxAuiPaneInfo_new_0, 2576). +-define(wxAuiPaneInfo_new_1, 2577). +-define(wxAuiPaneInfo_destruct, 2578). +-define(wxAuiPaneInfo_BestSize_1, 2579). +-define(wxAuiPaneInfo_BestSize_2, 2580). +-define(wxAuiPaneInfo_Bottom, 2581). +-define(wxAuiPaneInfo_BottomDockable, 2582). +-define(wxAuiPaneInfo_Caption, 2583). +-define(wxAuiPaneInfo_CaptionVisible, 2584). +-define(wxAuiPaneInfo_Centre, 2585). +-define(wxAuiPaneInfo_CentrePane, 2586). +-define(wxAuiPaneInfo_CloseButton, 2587). +-define(wxAuiPaneInfo_DefaultPane, 2588). +-define(wxAuiPaneInfo_DestroyOnClose, 2589). +-define(wxAuiPaneInfo_Direction, 2590). +-define(wxAuiPaneInfo_Dock, 2591). +-define(wxAuiPaneInfo_Dockable, 2592). +-define(wxAuiPaneInfo_Fixed, 2593). +-define(wxAuiPaneInfo_Float, 2594). +-define(wxAuiPaneInfo_Floatable, 2595). +-define(wxAuiPaneInfo_FloatingPosition_1, 2596). +-define(wxAuiPaneInfo_FloatingPosition_2, 2597). +-define(wxAuiPaneInfo_FloatingSize_1, 2598). +-define(wxAuiPaneInfo_FloatingSize_2, 2599). +-define(wxAuiPaneInfo_Gripper, 2600). +-define(wxAuiPaneInfo_GripperTop, 2601). +-define(wxAuiPaneInfo_HasBorder, 2602). +-define(wxAuiPaneInfo_HasCaption, 2603). +-define(wxAuiPaneInfo_HasCloseButton, 2604). +-define(wxAuiPaneInfo_HasFlag, 2605). +-define(wxAuiPaneInfo_HasGripper, 2606). +-define(wxAuiPaneInfo_HasGripperTop, 2607). +-define(wxAuiPaneInfo_HasMaximizeButton, 2608). +-define(wxAuiPaneInfo_HasMinimizeButton, 2609). +-define(wxAuiPaneInfo_HasPinButton, 2610). +-define(wxAuiPaneInfo_Hide, 2611). +-define(wxAuiPaneInfo_IsBottomDockable, 2612). +-define(wxAuiPaneInfo_IsDocked, 2613). +-define(wxAuiPaneInfo_IsFixed, 2614). +-define(wxAuiPaneInfo_IsFloatable, 2615). +-define(wxAuiPaneInfo_IsFloating, 2616). +-define(wxAuiPaneInfo_IsLeftDockable, 2617). +-define(wxAuiPaneInfo_IsMovable, 2618). +-define(wxAuiPaneInfo_IsOk, 2619). +-define(wxAuiPaneInfo_IsResizable, 2620). +-define(wxAuiPaneInfo_IsRightDockable, 2621). +-define(wxAuiPaneInfo_IsShown, 2622). +-define(wxAuiPaneInfo_IsToolbar, 2623). +-define(wxAuiPaneInfo_IsTopDockable, 2624). +-define(wxAuiPaneInfo_Layer, 2625). +-define(wxAuiPaneInfo_Left, 2626). +-define(wxAuiPaneInfo_LeftDockable, 2627). +-define(wxAuiPaneInfo_MaxSize_1, 2628). +-define(wxAuiPaneInfo_MaxSize_2, 2629). +-define(wxAuiPaneInfo_MaximizeButton, 2630). +-define(wxAuiPaneInfo_MinSize_1, 2631). +-define(wxAuiPaneInfo_MinSize_2, 2632). +-define(wxAuiPaneInfo_MinimizeButton, 2633). +-define(wxAuiPaneInfo_Movable, 2634). +-define(wxAuiPaneInfo_Name, 2635). +-define(wxAuiPaneInfo_PaneBorder, 2636). +-define(wxAuiPaneInfo_PinButton, 2637). +-define(wxAuiPaneInfo_Position, 2638). +-define(wxAuiPaneInfo_Resizable, 2639). +-define(wxAuiPaneInfo_Right, 2640). +-define(wxAuiPaneInfo_RightDockable, 2641). +-define(wxAuiPaneInfo_Row, 2642). +-define(wxAuiPaneInfo_SafeSet, 2643). +-define(wxAuiPaneInfo_SetFlag, 2644). +-define(wxAuiPaneInfo_Show, 2645). +-define(wxAuiPaneInfo_ToolbarPane, 2646). +-define(wxAuiPaneInfo_Top, 2647). +-define(wxAuiPaneInfo_TopDockable, 2648). +-define(wxAuiPaneInfo_Window, 2649). +-define(wxAuiNotebook_new_0, 2650). +-define(wxAuiNotebook_new_2, 2651). +-define(wxAuiNotebook_AddPage, 2652). +-define(wxAuiNotebook_Create, 2653). +-define(wxAuiNotebook_DeletePage, 2654). +-define(wxAuiNotebook_GetArtProvider, 2655). +-define(wxAuiNotebook_GetPage, 2656). +-define(wxAuiNotebook_GetPageBitmap, 2657). +-define(wxAuiNotebook_GetPageCount, 2658). +-define(wxAuiNotebook_GetPageIndex, 2659). +-define(wxAuiNotebook_GetPageText, 2660). +-define(wxAuiNotebook_GetSelection, 2661). +-define(wxAuiNotebook_InsertPage, 2662). +-define(wxAuiNotebook_RemovePage, 2663). +-define(wxAuiNotebook_SetArtProvider, 2664). +-define(wxAuiNotebook_SetFont, 2665). +-define(wxAuiNotebook_SetPageBitmap, 2666). +-define(wxAuiNotebook_SetPageText, 2667). +-define(wxAuiNotebook_SetSelection, 2668). +-define(wxAuiNotebook_SetTabCtrlHeight, 2669). +-define(wxAuiNotebook_SetUniformBitmapSize, 2670). +-define(wxAuiNotebook_destroy, 2671). +-define(wxMDIParentFrame_new_0, 2672). +-define(wxMDIParentFrame_new_4, 2673). +-define(wxMDIParentFrame_destruct, 2674). +-define(wxMDIParentFrame_ActivateNext, 2675). +-define(wxMDIParentFrame_ActivatePrevious, 2676). +-define(wxMDIParentFrame_ArrangeIcons, 2677). +-define(wxMDIParentFrame_Cascade, 2678). +-define(wxMDIParentFrame_Create, 2679). +-define(wxMDIParentFrame_GetActiveChild, 2680). +-define(wxMDIParentFrame_GetClientWindow, 2681). +-define(wxMDIParentFrame_Tile, 2682). +-define(wxMDIChildFrame_new_0, 2683). +-define(wxMDIChildFrame_new_4, 2684). +-define(wxMDIChildFrame_destruct, 2685). +-define(wxMDIChildFrame_Activate, 2686). +-define(wxMDIChildFrame_Create, 2687). +-define(wxMDIChildFrame_Maximize, 2688). +-define(wxMDIChildFrame_Restore, 2689). +-define(wxMDIClientWindow_new_0, 2690). +-define(wxMDIClientWindow_new_2, 2691). +-define(wxMDIClientWindow_destruct, 2692). +-define(wxMDIClientWindow_CreateClient, 2693). +-define(wxLayoutAlgorithm_new, 2694). +-define(wxLayoutAlgorithm_LayoutFrame, 2695). +-define(wxLayoutAlgorithm_LayoutMDIFrame, 2696). +-define(wxLayoutAlgorithm_LayoutWindow, 2697). +-define(wxLayoutAlgorithm_destroy, 2698). +-define(wxEvent_GetId, 2699). +-define(wxEvent_GetSkipped, 2700). +-define(wxEvent_GetTimestamp, 2701). +-define(wxEvent_IsCommandEvent, 2702). +-define(wxEvent_ResumePropagation, 2703). +-define(wxEvent_ShouldPropagate, 2704). +-define(wxEvent_Skip, 2705). +-define(wxEvent_StopPropagation, 2706). +-define(wxCommandEvent_getClientData, 2707). +-define(wxCommandEvent_GetExtraLong, 2708). +-define(wxCommandEvent_GetInt, 2709). +-define(wxCommandEvent_GetSelection, 2710). +-define(wxCommandEvent_GetString, 2711). +-define(wxCommandEvent_IsChecked, 2712). +-define(wxCommandEvent_IsSelection, 2713). +-define(wxCommandEvent_SetInt, 2714). +-define(wxCommandEvent_SetString, 2715). +-define(wxScrollEvent_GetOrientation, 2716). +-define(wxScrollEvent_GetPosition, 2717). +-define(wxScrollWinEvent_GetOrientation, 2718). +-define(wxScrollWinEvent_GetPosition, 2719). +-define(wxMouseEvent_AltDown, 2720). +-define(wxMouseEvent_Button, 2721). +-define(wxMouseEvent_ButtonDClick, 2722). +-define(wxMouseEvent_ButtonDown, 2723). +-define(wxMouseEvent_ButtonUp, 2724). +-define(wxMouseEvent_CmdDown, 2725). +-define(wxMouseEvent_ControlDown, 2726). +-define(wxMouseEvent_Dragging, 2727). +-define(wxMouseEvent_Entering, 2728). +-define(wxMouseEvent_GetButton, 2729). +-define(wxMouseEvent_GetPosition, 2732). +-define(wxMouseEvent_GetLogicalPosition, 2733). +-define(wxMouseEvent_GetLinesPerAction, 2734). +-define(wxMouseEvent_GetWheelRotation, 2735). +-define(wxMouseEvent_GetWheelDelta, 2736). +-define(wxMouseEvent_GetX, 2737). +-define(wxMouseEvent_GetY, 2738). +-define(wxMouseEvent_IsButton, 2739). +-define(wxMouseEvent_IsPageScroll, 2740). +-define(wxMouseEvent_Leaving, 2741). +-define(wxMouseEvent_LeftDClick, 2742). +-define(wxMouseEvent_LeftDown, 2743). +-define(wxMouseEvent_LeftIsDown, 2744). +-define(wxMouseEvent_LeftUp, 2745). +-define(wxMouseEvent_MetaDown, 2746). +-define(wxMouseEvent_MiddleDClick, 2747). +-define(wxMouseEvent_MiddleDown, 2748). +-define(wxMouseEvent_MiddleIsDown, 2749). +-define(wxMouseEvent_MiddleUp, 2750). +-define(wxMouseEvent_Moving, 2751). +-define(wxMouseEvent_RightDClick, 2752). +-define(wxMouseEvent_RightDown, 2753). +-define(wxMouseEvent_RightIsDown, 2754). +-define(wxMouseEvent_RightUp, 2755). +-define(wxMouseEvent_ShiftDown, 2756). +-define(wxSetCursorEvent_GetCursor, 2757). +-define(wxSetCursorEvent_GetX, 2758). +-define(wxSetCursorEvent_GetY, 2759). +-define(wxSetCursorEvent_HasCursor, 2760). +-define(wxSetCursorEvent_SetCursor, 2761). +-define(wxKeyEvent_AltDown, 2762). +-define(wxKeyEvent_CmdDown, 2763). +-define(wxKeyEvent_ControlDown, 2764). +-define(wxKeyEvent_GetKeyCode, 2765). +-define(wxKeyEvent_GetModifiers, 2766). +-define(wxKeyEvent_GetPosition, 2769). +-define(wxKeyEvent_GetRawKeyCode, 2770). +-define(wxKeyEvent_GetRawKeyFlags, 2771). +-define(wxKeyEvent_GetUnicodeKey, 2772). +-define(wxKeyEvent_GetX, 2773). +-define(wxKeyEvent_GetY, 2774). +-define(wxKeyEvent_HasModifiers, 2775). +-define(wxKeyEvent_MetaDown, 2776). +-define(wxKeyEvent_ShiftDown, 2777). +-define(wxSizeEvent_GetSize, 2778). +-define(wxMoveEvent_GetPosition, 2779). +-define(wxEraseEvent_GetDC, 2780). +-define(wxFocusEvent_GetWindow, 2781). +-define(wxChildFocusEvent_GetWindow, 2782). +-define(wxMenuEvent_GetMenu, 2783). +-define(wxMenuEvent_GetMenuId, 2784). +-define(wxMenuEvent_IsPopup, 2785). +-define(wxCloseEvent_CanVeto, 2786). +-define(wxCloseEvent_GetLoggingOff, 2787). +-define(wxCloseEvent_SetCanVeto, 2788). +-define(wxCloseEvent_SetLoggingOff, 2789). +-define(wxCloseEvent_Veto, 2790). +-define(wxShowEvent_SetShow, 2791). +-define(wxShowEvent_GetShow, 2792). +-define(wxIconizeEvent_Iconized, 2793). +-define(wxJoystickEvent_ButtonDown, 2794). +-define(wxJoystickEvent_ButtonIsDown, 2795). +-define(wxJoystickEvent_ButtonUp, 2796). +-define(wxJoystickEvent_GetButtonChange, 2797). +-define(wxJoystickEvent_GetButtonState, 2798). +-define(wxJoystickEvent_GetJoystick, 2799). +-define(wxJoystickEvent_GetPosition, 2800). +-define(wxJoystickEvent_GetZPosition, 2801). +-define(wxJoystickEvent_IsButton, 2802). +-define(wxJoystickEvent_IsMove, 2803). +-define(wxJoystickEvent_IsZMove, 2804). +-define(wxUpdateUIEvent_CanUpdate, 2805). +-define(wxUpdateUIEvent_Check, 2806). +-define(wxUpdateUIEvent_Enable, 2807). +-define(wxUpdateUIEvent_Show, 2808). +-define(wxUpdateUIEvent_GetChecked, 2809). +-define(wxUpdateUIEvent_GetEnabled, 2810). +-define(wxUpdateUIEvent_GetShown, 2811). +-define(wxUpdateUIEvent_GetSetChecked, 2812). +-define(wxUpdateUIEvent_GetSetEnabled, 2813). +-define(wxUpdateUIEvent_GetSetShown, 2814). +-define(wxUpdateUIEvent_GetSetText, 2815). +-define(wxUpdateUIEvent_GetText, 2816). +-define(wxUpdateUIEvent_GetMode, 2817). +-define(wxUpdateUIEvent_GetUpdateInterval, 2818). +-define(wxUpdateUIEvent_ResetUpdateTime, 2819). +-define(wxUpdateUIEvent_SetMode, 2820). +-define(wxUpdateUIEvent_SetText, 2821). +-define(wxUpdateUIEvent_SetUpdateInterval, 2822). +-define(wxMouseCaptureChangedEvent_GetCapturedWindow, 2823). +-define(wxPaletteChangedEvent_SetChangedWindow, 2824). +-define(wxPaletteChangedEvent_GetChangedWindow, 2825). +-define(wxQueryNewPaletteEvent_SetPaletteRealized, 2826). +-define(wxQueryNewPaletteEvent_GetPaletteRealized, 2827). +-define(wxNavigationKeyEvent_GetDirection, 2828). +-define(wxNavigationKeyEvent_SetDirection, 2829). +-define(wxNavigationKeyEvent_IsWindowChange, 2830). +-define(wxNavigationKeyEvent_SetWindowChange, 2831). +-define(wxNavigationKeyEvent_IsFromTab, 2832). +-define(wxNavigationKeyEvent_SetFromTab, 2833). +-define(wxNavigationKeyEvent_GetCurrentFocus, 2834). +-define(wxNavigationKeyEvent_SetCurrentFocus, 2835). +-define(wxHelpEvent_GetOrigin, 2836). +-define(wxHelpEvent_GetPosition, 2837). +-define(wxHelpEvent_SetOrigin, 2838). +-define(wxHelpEvent_SetPosition, 2839). +-define(wxContextMenuEvent_GetPosition, 2840). +-define(wxContextMenuEvent_SetPosition, 2841). +-define(wxIdleEvent_CanSend, 2842). +-define(wxIdleEvent_GetMode, 2843). +-define(wxIdleEvent_RequestMore, 2844). +-define(wxIdleEvent_MoreRequested, 2845). +-define(wxIdleEvent_SetMode, 2846). +-define(wxGridEvent_AltDown, 2847). +-define(wxGridEvent_ControlDown, 2848). +-define(wxGridEvent_GetCol, 2849). +-define(wxGridEvent_GetPosition, 2850). +-define(wxGridEvent_GetRow, 2851). +-define(wxGridEvent_MetaDown, 2852). +-define(wxGridEvent_Selecting, 2853). +-define(wxGridEvent_ShiftDown, 2854). +-define(wxNotifyEvent_Allow, 2855). +-define(wxNotifyEvent_IsAllowed, 2856). +-define(wxNotifyEvent_Veto, 2857). +-define(wxSashEvent_GetEdge, 2858). +-define(wxSashEvent_GetDragRect, 2859). +-define(wxSashEvent_GetDragStatus, 2860). +-define(wxListEvent_GetCacheFrom, 2861). +-define(wxListEvent_GetCacheTo, 2862). +-define(wxListEvent_GetKeyCode, 2863). +-define(wxListEvent_GetIndex, 2864). +-define(wxListEvent_GetColumn, 2865). +-define(wxListEvent_GetPoint, 2866). +-define(wxListEvent_GetLabel, 2867). +-define(wxListEvent_GetText, 2868). +-define(wxListEvent_GetImage, 2869). +-define(wxListEvent_GetData, 2870). +-define(wxListEvent_GetMask, 2871). +-define(wxListEvent_GetItem, 2872). +-define(wxListEvent_IsEditCancelled, 2873). +-define(wxDateEvent_GetDate, 2874). +-define(wxCalendarEvent_GetWeekDay, 2875). +-define(wxFileDirPickerEvent_GetPath, 2876). +-define(wxColourPickerEvent_GetColour, 2877). +-define(wxFontPickerEvent_GetFont, 2878). +-define(wxStyledTextEvent_GetPosition, 2879). +-define(wxStyledTextEvent_GetKey, 2880). +-define(wxStyledTextEvent_GetModifiers, 2881). +-define(wxStyledTextEvent_GetModificationType, 2882). +-define(wxStyledTextEvent_GetText, 2883). +-define(wxStyledTextEvent_GetLength, 2884). +-define(wxStyledTextEvent_GetLinesAdded, 2885). +-define(wxStyledTextEvent_GetLine, 2886). +-define(wxStyledTextEvent_GetFoldLevelNow, 2887). +-define(wxStyledTextEvent_GetFoldLevelPrev, 2888). +-define(wxStyledTextEvent_GetMargin, 2889). +-define(wxStyledTextEvent_GetMessage, 2890). +-define(wxStyledTextEvent_GetWParam, 2891). +-define(wxStyledTextEvent_GetLParam, 2892). +-define(wxStyledTextEvent_GetListType, 2893). +-define(wxStyledTextEvent_GetX, 2894). +-define(wxStyledTextEvent_GetY, 2895). +-define(wxStyledTextEvent_GetDragText, 2896). +-define(wxStyledTextEvent_GetDragAllowMove, 2897). +-define(wxStyledTextEvent_GetDragResult, 2898). +-define(wxStyledTextEvent_GetShift, 2899). +-define(wxStyledTextEvent_GetControl, 2900). +-define(wxStyledTextEvent_GetAlt, 2901). +-define(utils_wxGetKeyState, 2902). +-define(utils_wxGetMousePosition, 2903). +-define(utils_wxGetMouseState, 2904). +-define(utils_wxSetDetectableAutoRepeat, 2905). +-define(utils_wxBell, 2906). +-define(utils_wxFindMenuItemId, 2907). +-define(utils_wxGenericFindWindowAtPoint, 2908). +-define(utils_wxFindWindowAtPoint, 2909). +-define(utils_wxBeginBusyCursor, 2910). +-define(utils_wxEndBusyCursor, 2911). +-define(utils_wxIsBusy, 2912). +-define(utils_wxShutdown, 2913). +-define(utils_wxShell, 2914). +-define(utils_wxLaunchDefaultBrowser, 2915). +-define(utils_wxGetEmailAddress, 2916). +-define(utils_wxGetUserId, 2917). +-define(utils_wxGetHomeDir, 2918). +-define(utils_wxNewId, 2919). +-define(utils_wxRegisterId, 2920). +-define(utils_wxGetCurrentId, 2921). +-define(utils_wxGetOsDescription, 2922). +-define(utils_wxIsPlatformLittleEndian, 2923). +-define(utils_wxIsPlatform64Bit, 2924). +-define(wxPrintout_new, 2925). +-define(wxPrintout_destruct, 2926). +-define(wxPrintout_GetDC, 2927). +-define(wxPrintout_GetPageSizeMM, 2928). +-define(wxPrintout_GetPageSizePixels, 2929). +-define(wxPrintout_GetPaperRectPixels, 2930). +-define(wxPrintout_GetPPIPrinter, 2931). +-define(wxPrintout_GetPPIScreen, 2932). +-define(wxPrintout_GetTitle, 2933). +-define(wxPrintout_IsPreview, 2934). +-define(wxPrintout_FitThisSizeToPaper, 2935). +-define(wxPrintout_FitThisSizeToPage, 2936). +-define(wxPrintout_FitThisSizeToPageMargins, 2937). +-define(wxPrintout_MapScreenSizeToPaper, 2938). +-define(wxPrintout_MapScreenSizeToPage, 2939). +-define(wxPrintout_MapScreenSizeToPageMargins, 2940). +-define(wxPrintout_MapScreenSizeToDevice, 2941). +-define(wxPrintout_GetLogicalPaperRect, 2942). +-define(wxPrintout_GetLogicalPageRect, 2943). +-define(wxPrintout_GetLogicalPageMarginsRect, 2944). +-define(wxPrintout_SetLogicalOrigin, 2945). +-define(wxPrintout_OffsetLogicalOrigin, 2946). +-define(wxStyledTextCtrl_new_2, 2947). +-define(wxStyledTextCtrl_new_0, 2948). +-define(wxStyledTextCtrl_destruct, 2949). +-define(wxStyledTextCtrl_Create, 2950). +-define(wxStyledTextCtrl_AddText, 2951). +-define(wxStyledTextCtrl_AddStyledText, 2952). +-define(wxStyledTextCtrl_InsertText, 2953). +-define(wxStyledTextCtrl_ClearAll, 2954). +-define(wxStyledTextCtrl_ClearDocumentStyle, 2955). +-define(wxStyledTextCtrl_GetLength, 2956). +-define(wxStyledTextCtrl_GetCharAt, 2957). +-define(wxStyledTextCtrl_GetCurrentPos, 2958). +-define(wxStyledTextCtrl_GetAnchor, 2959). +-define(wxStyledTextCtrl_GetStyleAt, 2960). +-define(wxStyledTextCtrl_Redo, 2961). +-define(wxStyledTextCtrl_SetUndoCollection, 2962). +-define(wxStyledTextCtrl_SelectAll, 2963). +-define(wxStyledTextCtrl_SetSavePoint, 2964). +-define(wxStyledTextCtrl_GetStyledText, 2965). +-define(wxStyledTextCtrl_CanRedo, 2966). +-define(wxStyledTextCtrl_MarkerLineFromHandle, 2967). +-define(wxStyledTextCtrl_MarkerDeleteHandle, 2968). +-define(wxStyledTextCtrl_GetUndoCollection, 2969). +-define(wxStyledTextCtrl_GetViewWhiteSpace, 2970). +-define(wxStyledTextCtrl_SetViewWhiteSpace, 2971). +-define(wxStyledTextCtrl_PositionFromPoint, 2972). +-define(wxStyledTextCtrl_PositionFromPointClose, 2973). +-define(wxStyledTextCtrl_GotoLine, 2974). +-define(wxStyledTextCtrl_GotoPos, 2975). +-define(wxStyledTextCtrl_SetAnchor, 2976). +-define(wxStyledTextCtrl_GetCurLine, 2977). +-define(wxStyledTextCtrl_GetEndStyled, 2978). +-define(wxStyledTextCtrl_ConvertEOLs, 2979). +-define(wxStyledTextCtrl_GetEOLMode, 2980). +-define(wxStyledTextCtrl_SetEOLMode, 2981). +-define(wxStyledTextCtrl_StartStyling, 2982). +-define(wxStyledTextCtrl_SetStyling, 2983). +-define(wxStyledTextCtrl_GetBufferedDraw, 2984). +-define(wxStyledTextCtrl_SetBufferedDraw, 2985). +-define(wxStyledTextCtrl_SetTabWidth, 2986). +-define(wxStyledTextCtrl_GetTabWidth, 2987). +-define(wxStyledTextCtrl_SetCodePage, 2988). +-define(wxStyledTextCtrl_MarkerDefine, 2989). +-define(wxStyledTextCtrl_MarkerSetForeground, 2990). +-define(wxStyledTextCtrl_MarkerSetBackground, 2991). +-define(wxStyledTextCtrl_MarkerAdd, 2992). +-define(wxStyledTextCtrl_MarkerDelete, 2993). +-define(wxStyledTextCtrl_MarkerDeleteAll, 2994). +-define(wxStyledTextCtrl_MarkerGet, 2995). +-define(wxStyledTextCtrl_MarkerNext, 2996). +-define(wxStyledTextCtrl_MarkerPrevious, 2997). +-define(wxStyledTextCtrl_MarkerDefineBitmap, 2998). +-define(wxStyledTextCtrl_MarkerAddSet, 2999). +-define(wxStyledTextCtrl_MarkerSetAlpha, 3000). +-define(wxStyledTextCtrl_SetMarginType, 3001). +-define(wxStyledTextCtrl_GetMarginType, 3002). +-define(wxStyledTextCtrl_SetMarginWidth, 3003). +-define(wxStyledTextCtrl_GetMarginWidth, 3004). +-define(wxStyledTextCtrl_SetMarginMask, 3005). +-define(wxStyledTextCtrl_GetMarginMask, 3006). +-define(wxStyledTextCtrl_SetMarginSensitive, 3007). +-define(wxStyledTextCtrl_GetMarginSensitive, 3008). +-define(wxStyledTextCtrl_StyleClearAll, 3009). +-define(wxStyledTextCtrl_StyleSetForeground, 3010). +-define(wxStyledTextCtrl_StyleSetBackground, 3011). +-define(wxStyledTextCtrl_StyleSetBold, 3012). +-define(wxStyledTextCtrl_StyleSetItalic, 3013). +-define(wxStyledTextCtrl_StyleSetSize, 3014). +-define(wxStyledTextCtrl_StyleSetFaceName, 3015). +-define(wxStyledTextCtrl_StyleSetEOLFilled, 3016). +-define(wxStyledTextCtrl_StyleResetDefault, 3017). +-define(wxStyledTextCtrl_StyleSetUnderline, 3018). +-define(wxStyledTextCtrl_StyleSetCase, 3019). +-define(wxStyledTextCtrl_StyleSetHotSpot, 3020). +-define(wxStyledTextCtrl_SetSelForeground, 3021). +-define(wxStyledTextCtrl_SetSelBackground, 3022). +-define(wxStyledTextCtrl_GetSelAlpha, 3023). +-define(wxStyledTextCtrl_SetSelAlpha, 3024). +-define(wxStyledTextCtrl_SetCaretForeground, 3025). +-define(wxStyledTextCtrl_CmdKeyAssign, 3026). +-define(wxStyledTextCtrl_CmdKeyClear, 3027). +-define(wxStyledTextCtrl_CmdKeyClearAll, 3028). +-define(wxStyledTextCtrl_SetStyleBytes, 3029). +-define(wxStyledTextCtrl_StyleSetVisible, 3030). +-define(wxStyledTextCtrl_GetCaretPeriod, 3031). +-define(wxStyledTextCtrl_SetCaretPeriod, 3032). +-define(wxStyledTextCtrl_SetWordChars, 3033). +-define(wxStyledTextCtrl_BeginUndoAction, 3034). +-define(wxStyledTextCtrl_EndUndoAction, 3035). +-define(wxStyledTextCtrl_IndicatorSetStyle, 3036). +-define(wxStyledTextCtrl_IndicatorGetStyle, 3037). +-define(wxStyledTextCtrl_IndicatorSetForeground, 3038). +-define(wxStyledTextCtrl_IndicatorGetForeground, 3039). +-define(wxStyledTextCtrl_SetWhitespaceForeground, 3040). +-define(wxStyledTextCtrl_SetWhitespaceBackground, 3041). +-define(wxStyledTextCtrl_GetStyleBits, 3042). +-define(wxStyledTextCtrl_SetLineState, 3043). +-define(wxStyledTextCtrl_GetLineState, 3044). +-define(wxStyledTextCtrl_GetMaxLineState, 3045). +-define(wxStyledTextCtrl_GetCaretLineVisible, 3046). +-define(wxStyledTextCtrl_SetCaretLineVisible, 3047). +-define(wxStyledTextCtrl_GetCaretLineBackground, 3048). +-define(wxStyledTextCtrl_SetCaretLineBackground, 3049). +-define(wxStyledTextCtrl_AutoCompShow, 3050). +-define(wxStyledTextCtrl_AutoCompCancel, 3051). +-define(wxStyledTextCtrl_AutoCompActive, 3052). +-define(wxStyledTextCtrl_AutoCompPosStart, 3053). +-define(wxStyledTextCtrl_AutoCompComplete, 3054). +-define(wxStyledTextCtrl_AutoCompStops, 3055). +-define(wxStyledTextCtrl_AutoCompSetSeparator, 3056). +-define(wxStyledTextCtrl_AutoCompGetSeparator, 3057). +-define(wxStyledTextCtrl_AutoCompSelect, 3058). +-define(wxStyledTextCtrl_AutoCompSetCancelAtStart, 3059). +-define(wxStyledTextCtrl_AutoCompGetCancelAtStart, 3060). +-define(wxStyledTextCtrl_AutoCompSetFillUps, 3061). +-define(wxStyledTextCtrl_AutoCompSetChooseSingle, 3062). +-define(wxStyledTextCtrl_AutoCompGetChooseSingle, 3063). +-define(wxStyledTextCtrl_AutoCompSetIgnoreCase, 3064). +-define(wxStyledTextCtrl_AutoCompGetIgnoreCase, 3065). +-define(wxStyledTextCtrl_UserListShow, 3066). +-define(wxStyledTextCtrl_AutoCompSetAutoHide, 3067). +-define(wxStyledTextCtrl_AutoCompGetAutoHide, 3068). +-define(wxStyledTextCtrl_AutoCompSetDropRestOfWord, 3069). +-define(wxStyledTextCtrl_AutoCompGetDropRestOfWord, 3070). +-define(wxStyledTextCtrl_RegisterImage, 3071). +-define(wxStyledTextCtrl_ClearRegisteredImages, 3072). +-define(wxStyledTextCtrl_AutoCompGetTypeSeparator, 3073). +-define(wxStyledTextCtrl_AutoCompSetTypeSeparator, 3074). +-define(wxStyledTextCtrl_AutoCompSetMaxWidth, 3075). +-define(wxStyledTextCtrl_AutoCompGetMaxWidth, 3076). +-define(wxStyledTextCtrl_AutoCompSetMaxHeight, 3077). +-define(wxStyledTextCtrl_AutoCompGetMaxHeight, 3078). +-define(wxStyledTextCtrl_SetIndent, 3079). +-define(wxStyledTextCtrl_GetIndent, 3080). +-define(wxStyledTextCtrl_SetUseTabs, 3081). +-define(wxStyledTextCtrl_GetUseTabs, 3082). +-define(wxStyledTextCtrl_SetLineIndentation, 3083). +-define(wxStyledTextCtrl_GetLineIndentation, 3084). +-define(wxStyledTextCtrl_GetLineIndentPosition, 3085). +-define(wxStyledTextCtrl_GetColumn, 3086). +-define(wxStyledTextCtrl_SetUseHorizontalScrollBar, 3087). +-define(wxStyledTextCtrl_GetUseHorizontalScrollBar, 3088). +-define(wxStyledTextCtrl_SetIndentationGuides, 3089). +-define(wxStyledTextCtrl_GetIndentationGuides, 3090). +-define(wxStyledTextCtrl_SetHighlightGuide, 3091). +-define(wxStyledTextCtrl_GetHighlightGuide, 3092). +-define(wxStyledTextCtrl_GetLineEndPosition, 3093). +-define(wxStyledTextCtrl_GetCodePage, 3094). +-define(wxStyledTextCtrl_GetCaretForeground, 3095). +-define(wxStyledTextCtrl_GetReadOnly, 3096). +-define(wxStyledTextCtrl_SetCurrentPos, 3097). +-define(wxStyledTextCtrl_SetSelectionStart, 3098). +-define(wxStyledTextCtrl_GetSelectionStart, 3099). +-define(wxStyledTextCtrl_SetSelectionEnd, 3100). +-define(wxStyledTextCtrl_GetSelectionEnd, 3101). +-define(wxStyledTextCtrl_SetPrintMagnification, 3102). +-define(wxStyledTextCtrl_GetPrintMagnification, 3103). +-define(wxStyledTextCtrl_SetPrintColourMode, 3104). +-define(wxStyledTextCtrl_GetPrintColourMode, 3105). +-define(wxStyledTextCtrl_FindText, 3106). +-define(wxStyledTextCtrl_FormatRange, 3107). +-define(wxStyledTextCtrl_GetFirstVisibleLine, 3108). +-define(wxStyledTextCtrl_GetLine, 3109). +-define(wxStyledTextCtrl_GetLineCount, 3110). +-define(wxStyledTextCtrl_SetMarginLeft, 3111). +-define(wxStyledTextCtrl_GetMarginLeft, 3112). +-define(wxStyledTextCtrl_SetMarginRight, 3113). +-define(wxStyledTextCtrl_GetMarginRight, 3114). +-define(wxStyledTextCtrl_GetModify, 3115). +-define(wxStyledTextCtrl_SetSelection, 3116). +-define(wxStyledTextCtrl_GetSelectedText, 3117). +-define(wxStyledTextCtrl_GetTextRange, 3118). +-define(wxStyledTextCtrl_HideSelection, 3119). +-define(wxStyledTextCtrl_LineFromPosition, 3120). +-define(wxStyledTextCtrl_PositionFromLine, 3121). +-define(wxStyledTextCtrl_LineScroll, 3122). +-define(wxStyledTextCtrl_EnsureCaretVisible, 3123). +-define(wxStyledTextCtrl_ReplaceSelection, 3124). +-define(wxStyledTextCtrl_SetReadOnly, 3125). +-define(wxStyledTextCtrl_CanPaste, 3126). +-define(wxStyledTextCtrl_CanUndo, 3127). +-define(wxStyledTextCtrl_EmptyUndoBuffer, 3128). +-define(wxStyledTextCtrl_Undo, 3129). +-define(wxStyledTextCtrl_Cut, 3130). +-define(wxStyledTextCtrl_Copy, 3131). +-define(wxStyledTextCtrl_Paste, 3132). +-define(wxStyledTextCtrl_Clear, 3133). +-define(wxStyledTextCtrl_SetText, 3134). +-define(wxStyledTextCtrl_GetText, 3135). +-define(wxStyledTextCtrl_GetTextLength, 3136). +-define(wxStyledTextCtrl_GetOvertype, 3137). +-define(wxStyledTextCtrl_SetCaretWidth, 3138). +-define(wxStyledTextCtrl_GetCaretWidth, 3139). +-define(wxStyledTextCtrl_SetTargetStart, 3140). +-define(wxStyledTextCtrl_GetTargetStart, 3141). +-define(wxStyledTextCtrl_SetTargetEnd, 3142). +-define(wxStyledTextCtrl_GetTargetEnd, 3143). +-define(wxStyledTextCtrl_ReplaceTarget, 3144). +-define(wxStyledTextCtrl_SearchInTarget, 3145). +-define(wxStyledTextCtrl_SetSearchFlags, 3146). +-define(wxStyledTextCtrl_GetSearchFlags, 3147). +-define(wxStyledTextCtrl_CallTipShow, 3148). +-define(wxStyledTextCtrl_CallTipCancel, 3149). +-define(wxStyledTextCtrl_CallTipActive, 3150). +-define(wxStyledTextCtrl_CallTipPosAtStart, 3151). +-define(wxStyledTextCtrl_CallTipSetHighlight, 3152). +-define(wxStyledTextCtrl_CallTipSetBackground, 3153). +-define(wxStyledTextCtrl_CallTipSetForeground, 3154). +-define(wxStyledTextCtrl_CallTipSetForegroundHighlight, 3155). +-define(wxStyledTextCtrl_CallTipUseStyle, 3156). +-define(wxStyledTextCtrl_VisibleFromDocLine, 3157). +-define(wxStyledTextCtrl_DocLineFromVisible, 3158). +-define(wxStyledTextCtrl_WrapCount, 3159). +-define(wxStyledTextCtrl_SetFoldLevel, 3160). +-define(wxStyledTextCtrl_GetFoldLevel, 3161). +-define(wxStyledTextCtrl_GetLastChild, 3162). +-define(wxStyledTextCtrl_GetFoldParent, 3163). +-define(wxStyledTextCtrl_ShowLines, 3164). +-define(wxStyledTextCtrl_HideLines, 3165). +-define(wxStyledTextCtrl_GetLineVisible, 3166). +-define(wxStyledTextCtrl_SetFoldExpanded, 3167). +-define(wxStyledTextCtrl_GetFoldExpanded, 3168). +-define(wxStyledTextCtrl_ToggleFold, 3169). +-define(wxStyledTextCtrl_EnsureVisible, 3170). +-define(wxStyledTextCtrl_SetFoldFlags, 3171). +-define(wxStyledTextCtrl_EnsureVisibleEnforcePolicy, 3172). +-define(wxStyledTextCtrl_SetTabIndents, 3173). +-define(wxStyledTextCtrl_GetTabIndents, 3174). +-define(wxStyledTextCtrl_SetBackSpaceUnIndents, 3175). +-define(wxStyledTextCtrl_GetBackSpaceUnIndents, 3176). +-define(wxStyledTextCtrl_SetMouseDwellTime, 3177). +-define(wxStyledTextCtrl_GetMouseDwellTime, 3178). +-define(wxStyledTextCtrl_WordStartPosition, 3179). +-define(wxStyledTextCtrl_WordEndPosition, 3180). +-define(wxStyledTextCtrl_SetWrapMode, 3181). +-define(wxStyledTextCtrl_GetWrapMode, 3182). +-define(wxStyledTextCtrl_SetWrapVisualFlags, 3183). +-define(wxStyledTextCtrl_GetWrapVisualFlags, 3184). +-define(wxStyledTextCtrl_SetWrapVisualFlagsLocation, 3185). +-define(wxStyledTextCtrl_GetWrapVisualFlagsLocation, 3186). +-define(wxStyledTextCtrl_SetWrapStartIndent, 3187). +-define(wxStyledTextCtrl_GetWrapStartIndent, 3188). +-define(wxStyledTextCtrl_SetLayoutCache, 3189). +-define(wxStyledTextCtrl_GetLayoutCache, 3190). +-define(wxStyledTextCtrl_SetScrollWidth, 3191). +-define(wxStyledTextCtrl_GetScrollWidth, 3192). +-define(wxStyledTextCtrl_TextWidth, 3193). +-define(wxStyledTextCtrl_GetEndAtLastLine, 3194). +-define(wxStyledTextCtrl_TextHeight, 3195). +-define(wxStyledTextCtrl_SetUseVerticalScrollBar, 3196). +-define(wxStyledTextCtrl_GetUseVerticalScrollBar, 3197). +-define(wxStyledTextCtrl_AppendText, 3198). +-define(wxStyledTextCtrl_GetTwoPhaseDraw, 3199). +-define(wxStyledTextCtrl_SetTwoPhaseDraw, 3200). +-define(wxStyledTextCtrl_TargetFromSelection, 3201). +-define(wxStyledTextCtrl_LinesJoin, 3202). +-define(wxStyledTextCtrl_LinesSplit, 3203). +-define(wxStyledTextCtrl_SetFoldMarginColour, 3204). +-define(wxStyledTextCtrl_SetFoldMarginHiColour, 3205). +-define(wxStyledTextCtrl_LineDown, 3206). +-define(wxStyledTextCtrl_LineDownExtend, 3207). +-define(wxStyledTextCtrl_LineUp, 3208). +-define(wxStyledTextCtrl_LineUpExtend, 3209). +-define(wxStyledTextCtrl_CharLeft, 3210). +-define(wxStyledTextCtrl_CharLeftExtend, 3211). +-define(wxStyledTextCtrl_CharRight, 3212). +-define(wxStyledTextCtrl_CharRightExtend, 3213). +-define(wxStyledTextCtrl_WordLeft, 3214). +-define(wxStyledTextCtrl_WordLeftExtend, 3215). +-define(wxStyledTextCtrl_WordRight, 3216). +-define(wxStyledTextCtrl_WordRightExtend, 3217). +-define(wxStyledTextCtrl_Home, 3218). +-define(wxStyledTextCtrl_HomeExtend, 3219). +-define(wxStyledTextCtrl_LineEnd, 3220). +-define(wxStyledTextCtrl_LineEndExtend, 3221). +-define(wxStyledTextCtrl_DocumentStart, 3222). +-define(wxStyledTextCtrl_DocumentStartExtend, 3223). +-define(wxStyledTextCtrl_DocumentEnd, 3224). +-define(wxStyledTextCtrl_DocumentEndExtend, 3225). +-define(wxStyledTextCtrl_PageUp, 3226). +-define(wxStyledTextCtrl_PageUpExtend, 3227). +-define(wxStyledTextCtrl_PageDown, 3228). +-define(wxStyledTextCtrl_PageDownExtend, 3229). +-define(wxStyledTextCtrl_EditToggleOvertype, 3230). +-define(wxStyledTextCtrl_Cancel, 3231). +-define(wxStyledTextCtrl_DeleteBack, 3232). +-define(wxStyledTextCtrl_Tab, 3233). +-define(wxStyledTextCtrl_BackTab, 3234). +-define(wxStyledTextCtrl_NewLine, 3235). +-define(wxStyledTextCtrl_FormFeed, 3236). +-define(wxStyledTextCtrl_VCHome, 3237). +-define(wxStyledTextCtrl_VCHomeExtend, 3238). +-define(wxStyledTextCtrl_ZoomIn, 3239). +-define(wxStyledTextCtrl_ZoomOut, 3240). +-define(wxStyledTextCtrl_DelWordLeft, 3241). +-define(wxStyledTextCtrl_DelWordRight, 3242). +-define(wxStyledTextCtrl_LineCut, 3243). +-define(wxStyledTextCtrl_LineDelete, 3244). +-define(wxStyledTextCtrl_LineTranspose, 3245). +-define(wxStyledTextCtrl_LineDuplicate, 3246). +-define(wxStyledTextCtrl_LowerCase, 3247). +-define(wxStyledTextCtrl_UpperCase, 3248). +-define(wxStyledTextCtrl_LineScrollDown, 3249). +-define(wxStyledTextCtrl_LineScrollUp, 3250). +-define(wxStyledTextCtrl_DeleteBackNotLine, 3251). +-define(wxStyledTextCtrl_HomeDisplay, 3252). +-define(wxStyledTextCtrl_HomeDisplayExtend, 3253). +-define(wxStyledTextCtrl_LineEndDisplay, 3254). +-define(wxStyledTextCtrl_LineEndDisplayExtend, 3255). +-define(wxStyledTextCtrl_HomeWrapExtend, 3256). +-define(wxStyledTextCtrl_LineEndWrap, 3257). +-define(wxStyledTextCtrl_LineEndWrapExtend, 3258). +-define(wxStyledTextCtrl_VCHomeWrap, 3259). +-define(wxStyledTextCtrl_VCHomeWrapExtend, 3260). +-define(wxStyledTextCtrl_LineCopy, 3261). +-define(wxStyledTextCtrl_MoveCaretInsideView, 3262). +-define(wxStyledTextCtrl_LineLength, 3263). +-define(wxStyledTextCtrl_BraceHighlight, 3264). +-define(wxStyledTextCtrl_BraceBadLight, 3265). +-define(wxStyledTextCtrl_BraceMatch, 3266). +-define(wxStyledTextCtrl_GetViewEOL, 3267). +-define(wxStyledTextCtrl_SetViewEOL, 3268). +-define(wxStyledTextCtrl_SetModEventMask, 3269). +-define(wxStyledTextCtrl_GetEdgeColumn, 3270). +-define(wxStyledTextCtrl_SetEdgeColumn, 3271). +-define(wxStyledTextCtrl_GetEdgeMode, 3272). +-define(wxStyledTextCtrl_GetEdgeColour, 3273). +-define(wxStyledTextCtrl_SetEdgeColour, 3274). +-define(wxStyledTextCtrl_SearchAnchor, 3275). +-define(wxStyledTextCtrl_SearchNext, 3276). +-define(wxStyledTextCtrl_SearchPrev, 3277). +-define(wxStyledTextCtrl_LinesOnScreen, 3278). +-define(wxStyledTextCtrl_UsePopUp, 3279). +-define(wxStyledTextCtrl_SelectionIsRectangle, 3280). +-define(wxStyledTextCtrl_SetZoom, 3281). +-define(wxStyledTextCtrl_GetZoom, 3282). +-define(wxStyledTextCtrl_GetModEventMask, 3283). +-define(wxStyledTextCtrl_SetSTCFocus, 3284). +-define(wxStyledTextCtrl_GetSTCFocus, 3285). +-define(wxStyledTextCtrl_SetStatus, 3286). +-define(wxStyledTextCtrl_GetStatus, 3287). +-define(wxStyledTextCtrl_SetMouseDownCaptures, 3288). +-define(wxStyledTextCtrl_GetMouseDownCaptures, 3289). +-define(wxStyledTextCtrl_SetSTCCursor, 3290). +-define(wxStyledTextCtrl_GetSTCCursor, 3291). +-define(wxStyledTextCtrl_SetControlCharSymbol, 3292). +-define(wxStyledTextCtrl_GetControlCharSymbol, 3293). +-define(wxStyledTextCtrl_WordPartLeft, 3294). +-define(wxStyledTextCtrl_WordPartLeftExtend, 3295). +-define(wxStyledTextCtrl_WordPartRight, 3296). +-define(wxStyledTextCtrl_WordPartRightExtend, 3297). +-define(wxStyledTextCtrl_SetVisiblePolicy, 3298). +-define(wxStyledTextCtrl_DelLineLeft, 3299). +-define(wxStyledTextCtrl_DelLineRight, 3300). +-define(wxStyledTextCtrl_GetXOffset, 3301). +-define(wxStyledTextCtrl_ChooseCaretX, 3302). +-define(wxStyledTextCtrl_SetXCaretPolicy, 3303). +-define(wxStyledTextCtrl_SetYCaretPolicy, 3304). +-define(wxStyledTextCtrl_GetPrintWrapMode, 3305). +-define(wxStyledTextCtrl_SetHotspotActiveForeground, 3306). +-define(wxStyledTextCtrl_SetHotspotActiveBackground, 3307). +-define(wxStyledTextCtrl_SetHotspotActiveUnderline, 3308). +-define(wxStyledTextCtrl_SetHotspotSingleLine, 3309). +-define(wxStyledTextCtrl_ParaDownExtend, 3310). +-define(wxStyledTextCtrl_ParaUp, 3311). +-define(wxStyledTextCtrl_ParaUpExtend, 3312). +-define(wxStyledTextCtrl_PositionBefore, 3313). +-define(wxStyledTextCtrl_PositionAfter, 3314). +-define(wxStyledTextCtrl_CopyRange, 3315). +-define(wxStyledTextCtrl_CopyText, 3316). +-define(wxStyledTextCtrl_SetSelectionMode, 3317). +-define(wxStyledTextCtrl_GetSelectionMode, 3318). +-define(wxStyledTextCtrl_LineDownRectExtend, 3319). +-define(wxStyledTextCtrl_LineUpRectExtend, 3320). +-define(wxStyledTextCtrl_CharLeftRectExtend, 3321). +-define(wxStyledTextCtrl_CharRightRectExtend, 3322). +-define(wxStyledTextCtrl_HomeRectExtend, 3323). +-define(wxStyledTextCtrl_VCHomeRectExtend, 3324). +-define(wxStyledTextCtrl_LineEndRectExtend, 3325). +-define(wxStyledTextCtrl_PageUpRectExtend, 3326). +-define(wxStyledTextCtrl_PageDownRectExtend, 3327). +-define(wxStyledTextCtrl_StutteredPageUp, 3328). +-define(wxStyledTextCtrl_StutteredPageUpExtend, 3329). +-define(wxStyledTextCtrl_StutteredPageDown, 3330). +-define(wxStyledTextCtrl_StutteredPageDownExtend, 3331). +-define(wxStyledTextCtrl_WordLeftEnd, 3332). +-define(wxStyledTextCtrl_WordLeftEndExtend, 3333). +-define(wxStyledTextCtrl_WordRightEnd, 3334). +-define(wxStyledTextCtrl_WordRightEndExtend, 3335). +-define(wxStyledTextCtrl_SetWhitespaceChars, 3336). +-define(wxStyledTextCtrl_SetCharsDefault, 3337). +-define(wxStyledTextCtrl_AutoCompGetCurrent, 3338). +-define(wxStyledTextCtrl_Allocate, 3339). +-define(wxStyledTextCtrl_FindColumn, 3340). +-define(wxStyledTextCtrl_GetCaretSticky, 3341). +-define(wxStyledTextCtrl_SetCaretSticky, 3342). +-define(wxStyledTextCtrl_ToggleCaretSticky, 3343). +-define(wxStyledTextCtrl_SetPasteConvertEndings, 3344). +-define(wxStyledTextCtrl_GetPasteConvertEndings, 3345). +-define(wxStyledTextCtrl_SelectionDuplicate, 3346). +-define(wxStyledTextCtrl_SetCaretLineBackAlpha, 3347). +-define(wxStyledTextCtrl_GetCaretLineBackAlpha, 3348). +-define(wxStyledTextCtrl_StartRecord, 3349). +-define(wxStyledTextCtrl_StopRecord, 3350). +-define(wxStyledTextCtrl_SetLexer, 3351). +-define(wxStyledTextCtrl_GetLexer, 3352). +-define(wxStyledTextCtrl_Colourise, 3353). +-define(wxStyledTextCtrl_SetProperty, 3354). +-define(wxStyledTextCtrl_SetKeyWords, 3355). +-define(wxStyledTextCtrl_SetLexerLanguage, 3356). +-define(wxStyledTextCtrl_GetProperty, 3357). +-define(wxStyledTextCtrl_GetStyleBitsNeeded, 3358). +-define(wxStyledTextCtrl_GetCurrentLine, 3359). +-define(wxStyledTextCtrl_StyleSetSpec, 3360). +-define(wxStyledTextCtrl_StyleSetFont, 3361). +-define(wxStyledTextCtrl_StyleSetFontAttr, 3362). +-define(wxStyledTextCtrl_StyleSetCharacterSet, 3363). +-define(wxStyledTextCtrl_StyleSetFontEncoding, 3364). +-define(wxStyledTextCtrl_CmdKeyExecute, 3365). +-define(wxStyledTextCtrl_SetMargins, 3366). +-define(wxStyledTextCtrl_GetSelection, 3367). +-define(wxStyledTextCtrl_PointFromPosition, 3368). +-define(wxStyledTextCtrl_ScrollToLine, 3369). +-define(wxStyledTextCtrl_ScrollToColumn, 3370). +-define(wxStyledTextCtrl_SendMsg, 3371). +-define(wxStyledTextCtrl_SetVScrollBar, 3372). +-define(wxStyledTextCtrl_SetHScrollBar, 3373). +-define(wxStyledTextCtrl_GetLastKeydownProcessed, 3374). +-define(wxStyledTextCtrl_SetLastKeydownProcessed, 3375). +-define(wxStyledTextCtrl_SaveFile, 3376). +-define(wxStyledTextCtrl_LoadFile, 3377). +-define(wxStyledTextCtrl_DoDragOver, 3378). +-define(wxStyledTextCtrl_DoDropText, 3379). +-define(wxStyledTextCtrl_GetUseAntiAliasing, 3380). +-define(wxStyledTextCtrl_AddTextRaw, 3381). +-define(wxStyledTextCtrl_InsertTextRaw, 3382). +-define(wxStyledTextCtrl_GetCurLineRaw, 3383). +-define(wxStyledTextCtrl_GetLineRaw, 3384). +-define(wxStyledTextCtrl_GetSelectedTextRaw, 3385). +-define(wxStyledTextCtrl_GetTextRangeRaw, 3386). +-define(wxStyledTextCtrl_SetTextRaw, 3387). +-define(wxStyledTextCtrl_GetTextRaw, 3388). +-define(wxStyledTextCtrl_AppendTextRaw, 3389). +-define(wxArtProvider_GetBitmap, 3390). +-define(wxArtProvider_GetIcon, 3391). +-define(wxTreeEvent_GetKeyCode, 3392). +-define(wxTreeEvent_GetItem, 3393). +-define(wxTreeEvent_GetKeyEvent, 3394). +-define(wxTreeEvent_GetLabel, 3395). +-define(wxTreeEvent_GetOldItem, 3396). +-define(wxTreeEvent_GetPoint, 3397). +-define(wxTreeEvent_IsEditCancelled, 3398). +-define(wxTreeEvent_SetToolTip, 3399). +-define(wxNotebookEvent_GetOldSelection, 3400). +-define(wxNotebookEvent_GetSelection, 3401). +-define(wxNotebookEvent_SetOldSelection, 3402). +-define(wxNotebookEvent_SetSelection, 3403). +-define(wxFileDataObject_new, 3404). +-define(wxFileDataObject_AddFile, 3405). +-define(wxFileDataObject_GetFilenames, 3406). +-define(wxFileDataObject_destroy, 3407). +-define(wxTextDataObject_new, 3408). +-define(wxTextDataObject_GetTextLength, 3409). +-define(wxTextDataObject_GetText, 3410). +-define(wxTextDataObject_SetText, 3411). +-define(wxTextDataObject_destroy, 3412). +-define(wxBitmapDataObject_new_1_1, 3413). +-define(wxBitmapDataObject_new_1_0, 3414). +-define(wxBitmapDataObject_GetBitmap, 3415). +-define(wxBitmapDataObject_SetBitmap, 3416). +-define(wxBitmapDataObject_destroy, 3417). +-define(wxClipboard_new, 3419). +-define(wxClipboard_destruct, 3420). +-define(wxClipboard_AddData, 3421). +-define(wxClipboard_Clear, 3422). +-define(wxClipboard_Close, 3423). +-define(wxClipboard_Flush, 3424). +-define(wxClipboard_GetData, 3425). +-define(wxClipboard_IsOpened, 3426). +-define(wxClipboard_Open, 3427). +-define(wxClipboard_SetData, 3428). +-define(wxClipboard_UsePrimarySelection, 3430). +-define(wxClipboard_IsSupported, 3431). +-define(wxClipboard_Get, 3432). +-define(wxSpinEvent_GetPosition, 3433). +-define(wxSpinEvent_SetPosition, 3434). +-define(wxSplitterWindow_new_0, 3435). +-define(wxSplitterWindow_new_2, 3436). +-define(wxSplitterWindow_destruct, 3437). +-define(wxSplitterWindow_Create, 3438). +-define(wxSplitterWindow_GetMinimumPaneSize, 3439). +-define(wxSplitterWindow_GetSashGravity, 3440). +-define(wxSplitterWindow_GetSashPosition, 3441). +-define(wxSplitterWindow_GetSplitMode, 3442). +-define(wxSplitterWindow_GetWindow1, 3443). +-define(wxSplitterWindow_GetWindow2, 3444). +-define(wxSplitterWindow_Initialize, 3445). +-define(wxSplitterWindow_IsSplit, 3446). +-define(wxSplitterWindow_ReplaceWindow, 3447). +-define(wxSplitterWindow_SetSashGravity, 3448). +-define(wxSplitterWindow_SetSashPosition, 3449). +-define(wxSplitterWindow_SetSashSize, 3450). +-define(wxSplitterWindow_SetMinimumPaneSize, 3451). +-define(wxSplitterWindow_SetSplitMode, 3452). +-define(wxSplitterWindow_SplitHorizontally, 3453). +-define(wxSplitterWindow_SplitVertically, 3454). +-define(wxSplitterWindow_Unsplit, 3455). +-define(wxSplitterWindow_UpdateSize, 3456). +-define(wxSplitterEvent_GetSashPosition, 3457). +-define(wxSplitterEvent_GetX, 3458). +-define(wxSplitterEvent_GetY, 3459). +-define(wxSplitterEvent_GetWindowBeingRemoved, 3460). +-define(wxSplitterEvent_SetSashPosition, 3461). +-define(wxHtmlWindow_new_0, 3462). +-define(wxHtmlWindow_new_2, 3463). +-define(wxHtmlWindow_AppendToPage, 3464). +-define(wxHtmlWindow_GetOpenedAnchor, 3465). +-define(wxHtmlWindow_GetOpenedPage, 3466). +-define(wxHtmlWindow_GetOpenedPageTitle, 3467). +-define(wxHtmlWindow_GetRelatedFrame, 3468). +-define(wxHtmlWindow_HistoryBack, 3469). +-define(wxHtmlWindow_HistoryCanBack, 3470). +-define(wxHtmlWindow_HistoryCanForward, 3471). +-define(wxHtmlWindow_HistoryClear, 3472). +-define(wxHtmlWindow_HistoryForward, 3473). +-define(wxHtmlWindow_LoadFile, 3474). +-define(wxHtmlWindow_LoadPage, 3475). +-define(wxHtmlWindow_SelectAll, 3476). +-define(wxHtmlWindow_SelectionToText, 3477). +-define(wxHtmlWindow_SelectLine, 3478). +-define(wxHtmlWindow_SelectWord, 3479). +-define(wxHtmlWindow_SetBorders, 3480). +-define(wxHtmlWindow_SetFonts, 3481). +-define(wxHtmlWindow_SetPage, 3482). +-define(wxHtmlWindow_SetRelatedFrame, 3483). +-define(wxHtmlWindow_SetRelatedStatusBar, 3484). +-define(wxHtmlWindow_ToText, 3485). +-define(wxHtmlWindow_destroy, 3486). +-define(wxHtmlLinkEvent_GetLinkInfo, 3487). +-define(wxSystemSettings_GetColour, 3488). +-define(wxSystemSettings_GetFont, 3489). +-define(wxSystemSettings_GetMetric, 3490). +-define(wxSystemSettings_GetScreenType, 3491). +-define(wxAuiNotebookEvent_SetSelection, 3492). +-define(wxAuiNotebookEvent_GetSelection, 3493). +-define(wxAuiNotebookEvent_SetOldSelection, 3494). +-define(wxAuiNotebookEvent_GetOldSelection, 3495). +-define(wxAuiNotebookEvent_SetDragSource, 3496). +-define(wxAuiNotebookEvent_GetDragSource, 3497). +-define(wxAuiManagerEvent_SetManager, 3498). +-define(wxAuiManagerEvent_GetManager, 3499). +-define(wxAuiManagerEvent_SetPane, 3500). +-define(wxAuiManagerEvent_GetPane, 3501). +-define(wxAuiManagerEvent_SetButton, 3502). +-define(wxAuiManagerEvent_GetButton, 3503). +-define(wxAuiManagerEvent_SetDC, 3504). +-define(wxAuiManagerEvent_GetDC, 3505). +-define(wxAuiManagerEvent_Veto, 3506). +-define(wxAuiManagerEvent_GetVeto, 3507). +-define(wxAuiManagerEvent_SetCanVeto, 3508). +-define(wxAuiManagerEvent_CanVeto, 3509). +-define(wxLogNull_new, 3510). +-define(wxLogNull_destroy, 3511). diff --git a/lib/wx/src/wxe_server.erl b/lib/wx/src/wxe_server.erl index 40412987a5..69e2189fac 100644 --- a/lib/wx/src/wxe_server.erl +++ b/lib/wx/src/wxe_server.erl @@ -1,19 +1,19 @@ %% %% %CopyrightBegin% -%% -%% Copyright Ericsson AB 2008-2009. All Rights Reserved. -%% +%% +%% Copyright Ericsson AB 2008-2011. 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% %%%------------------------------------------------------------------- %%% File : wxe_server.erl @@ -24,7 +24,7 @@ %%% Created : 17 Jan 2007 by Dan Gudmundsson <[email protected]> %%%------------------------------------------------------------------- -%% @hidden +%% @hidden -module(wxe_server). -behaviour(gen_server). @@ -65,7 +65,7 @@ start() -> end; Env = #wx_env{sv=Pid} -> case erlang:is_process_alive(Pid) of - true -> + true -> Env; false -> %% Ok we got an old wx env, someone forgot erase(?WXE_IDENTIFIER), %% to call wx:destroy() @@ -94,7 +94,7 @@ init([]) -> {ok,#state{port=Port, cb_port=CBPort, users=gb_trees:empty(), cb=gb_trees:empty(), cb_cnt=1}}. -%% Register process +%% Register process handle_call(register_me, {From,_}, State=#state{users=Users}) -> erlang:monitor(process, From), case gb_trees:is_defined(From, Users) of @@ -147,7 +147,7 @@ handle_cast({debug, Level}, State) -> put(?WXE_IDENTIFIER, Env#wx_env{debug=Level}), {noreply, State}; -handle_cast(_Msg, State) -> +handle_cast(_Msg, State) -> ?log("Unknown message ~p sent to ~p~n",[_Msg, ?MODULE]), {noreply, State}. @@ -156,7 +156,7 @@ handle_cast(_Msg, State) -> %% Callback request from driver handle_info(Cb = {_, _, '_wx_invoke_cb_'}, State) -> invoke_cb(Cb, State), - {noreply, State}; + {noreply, State}; handle_info({wx_delete_cb, FunId}, State0 = #state{cb=CB}) when is_integer(FunId) -> case get(FunId) of undefined -> @@ -166,7 +166,7 @@ handle_info({wx_delete_cb, FunId}, State0 = #state{cb=CB}) when is_integer(FunId {noreply, State0#state{cb=gb_trees:delete(Fun, CB)}} end; handle_info({'DOWN',_,process,Pid,_}, State=#state{users=Users0,cleaners=Cs}) -> - try + try User = gb_trees:get(Pid,Users0), Users = gb_trees:delete(Pid,Users0), Env = wx:get_env(), @@ -210,7 +210,7 @@ handle_connect(Object, EvData, From, State0 = #state{users=Users}) -> case Handler0 of #wx_ref{} when Callback =:= 0 -> CBHandler = Handler0, - Handler = Handler0; + Handler = Handler0; undefined when Callback =:= 0 -> Handler = new_evt_listener(State0), CBHandler = Handler; @@ -225,7 +225,7 @@ handle_connect(Object, EvData, From, State0 = #state{users=Users}) -> {FunId, State} = attach_fun(Callback,State1), Res = wxEvtHandler:connect_impl(CBHandler,Object, wxEvtHandler:replace_fun_with_id(EvData,FunId)), - case Res of + case Res of ok -> {reply,Res,State}; _Error -> {reply,Res,State0} end; @@ -238,11 +238,7 @@ invoke_cb({{Ev=#wx{}, Ref=#wx_ref{}}, FunId,_}, _S) -> %% Event callbacks case get(FunId) of Fun when is_function(Fun) -> - invoke_callback(fun() -> - wxe_util:cast(?WXE_CB_START, <<>>), - Fun(Ev, Ref), - <<>> - end); + invoke_callback(fun() -> Fun(Ev, Ref), <<>> end); Err -> ?log("Internal Error ~p~n",[Err]) end; @@ -254,12 +250,14 @@ invoke_cb({FunId, Args, _}, _S) when is_list(Args), is_integer(FunId) -> Err -> ?log("Internal Error ~p ~p ~p~n",[Err, FunId, Args]) end. - + invoke_callback(Fun) -> Env = get(?WXE_IDENTIFIER), CB = fun() -> wx:set_env(Env), - Res = try Return = Fun(), + wxe_util:cast(?WXE_CB_START, <<>>), + Res = try + Return = Fun(), true = is_binary(Return), Return catch _:Reason -> @@ -278,9 +276,9 @@ new_evt_listener(State) -> get_result(State). get_result(_State) -> - receive + receive {'_wxe_result_', Res} -> Res; - {'_wxe_error_', Op, Error} -> + {'_wxe_error_', Op, Error} -> erlang:error({Error, {wxEvtHandler, {internal_installer, Op}}}) end. @@ -289,7 +287,7 @@ attach_fun(Fun, S = #state{cb=CB,cb_cnt=Next}) -> {value, ID} -> {ID,S}; none -> - put(Next,Fun), + put(Next,Fun), {Next,S#state{cb=gb_trees:insert(Fun,Next,CB),cb_cnt=Next+1}} end. @@ -297,7 +295,7 @@ handle_disconnect(Object, Evh, From, State0 = #state{users=Users0}) -> User0 = #user{events=Evs0, evt_handler=PidH} = gb_trees:get(From, Users0), Fun = wxEvtHandler:get_callback(Evh), case find_handler(Evs0, Object, Fun) of - [] -> + [] -> {reply, false, State0}; Handlers -> case disconnect(Object,Evh, Handlers) of @@ -310,7 +308,7 @@ handle_disconnect(Object, Evh, From, State0 = #state{users=Users0}) -> [] when PidH =/= undefined -> wxEvtHandler:destroy_evt_listener(PidH), User0#user{events=[], evt_handler=undefined}; - Evs -> + Evs -> User0#user{events=Evs} end, {reply, true, State0#state{users=gb_trees:update(From,User,Users0)}}; @@ -345,7 +343,7 @@ find_handler([],_Object,_Fun,Res) -> %% Cleanup -%% The server handles callbacks from driver so every other wx call must +%% The server handles callbacks from driver so every other wx call must %% be called from another process, therefore the cleaning must be spawned. %% cleanup(Env, _Pid, Data) -> @@ -358,7 +356,7 @@ cleanup(#user{objects=_Os,events=Evs, evt_handler=Handler}) -> lists:foreach(fun(#event{object=_O, callback=CB, cb_handler=CbH}) -> %%catch wxEvtHandler:disconnect_impl(CbH,O), case is_function(CB) of - true -> + true -> wxEvtHandler:destroy_evt_listener(CbH); false -> ignore diff --git a/lib/wx/test/wx_class_SUITE.erl b/lib/wx/test/wx_class_SUITE.erl index 79e6833e9b..b75b0cc74e 100644 --- a/lib/wx/test/wx_class_SUITE.erl +++ b/lib/wx/test/wx_class_SUITE.erl @@ -18,14 +18,14 @@ %%%------------------------------------------------------------------- %%% File : wx_class_SUITE.erl %%% Author : Dan Gudmundsson <[email protected]> -%%% Description : +%%% Description : %%% %%% Created : 13 Nov 2008 by Dan Gudmundsson <[email protected]> %%%------------------------------------------------------------------- -module(wx_class_SUITE). --export([all/0, suite/0,groups/0,init_per_group/2,end_per_group/2, - init_per_suite/1, end_per_suite/1, +-export([all/0, suite/0,groups/0,init_per_group/2,end_per_group/2, + init_per_suite/1, end_per_suite/1, init_per_testcase/2, end_per_testcase/2]). -compile(export_all). @@ -41,18 +41,18 @@ end_per_suite(Config) -> init_per_testcase(Func,Config) -> wx_test_lib:init_per_testcase(Func,Config). -end_per_testcase(Func,Config) -> +end_per_testcase(Func,Config) -> wx_test_lib:end_per_testcase(Func,Config). %% SUITE specification suite() -> [{ct_hooks,[ts_install_cth]}]. -all() -> +all() -> [calendarCtrl, treeCtrl, notebook, staticBoxSizer, - clipboard, helpFrame, htmlWindow, listCtrlSort, + clipboard, helpFrame, htmlWindow, listCtrlSort, listCtrlVirtual, radioBox, systemSettings]. -groups() -> +groups() -> []. init_per_group(_GroupName, Config) -> @@ -70,9 +70,9 @@ calendarCtrl(Config) -> Frame = ?mt(wxFrame, wxFrame:new(Wx, 1, "Calendar", [])), Panel = wxPanel:new(Frame), Sz = wxBoxSizer:new(?wxVERTICAL), - + {YMD={_,_,Day},_} = DateTime = calendar:now_to_datetime(erlang:now()), - Cal = ?mt(wxCalendarCtrl, wxCalendarCtrl:new(Panel, ?wxID_ANY, + Cal = ?mt(wxCalendarCtrl, wxCalendarCtrl:new(Panel, ?wxID_ANY, [{date,DateTime} ])), wxSizer:add(Sz,Cal), @@ -91,25 +91,25 @@ calendarCtrl(Config) -> ?m({0,243,0,255}, wxCalendarDateAttr:getBackgroundColour(DateAttr1)), ?m({YMD, _},wxCalendarCtrl:getDate(Cal)), - - wxCalendarCtrl:connect(Cal, calendar_weekday_clicked), - wxCalendarCtrl:connect(Cal, calendar_day_changed), - wxCalendarCtrl:connect(Cal, calendar_month_changed), + + wxCalendarCtrl:connect(Cal, calendar_weekday_clicked), + wxCalendarCtrl:connect(Cal, calendar_day_changed), + wxCalendarCtrl:connect(Cal, calendar_month_changed), wxCalendarCtrl:connect(Cal, calendar_year_changed), - wxCalendarCtrl:connect(Cal, calendar_doubleclicked), + wxCalendarCtrl:connect(Cal, calendar_doubleclicked), wxCalendarCtrl:connect(Cal, calendar_sel_changed), - + wxWindow:setSizer(Panel,Sz), wxSizer:setSizeHints(Sz,Frame), - wxWindow:show(Frame), - + wxWindow:show(Frame), + wx_test_lib:wx_destroy(Frame,Config). treeCtrl(TestInfo) when is_atom(TestInfo) -> wx_test_lib:tc_info(TestInfo); treeCtrl(Config) -> Wx = wx:new(), - + Frame = wxFrame:new(Wx, ?wxID_ANY, "Frame"), Panel = wxPanel:new(Frame, []), Tree = ?mt(wxTreeCtrl,wxTreeCtrl:new(Panel, [{style , ?wxTR_HAS_BUTTONS}])), @@ -122,25 +122,25 @@ treeCtrl(Config) -> ?m(ok, wxTreeCtrl:setItemData(Tree, Item2, {data, item2})), Item3 = wxTreeCtrl:appendItem(Tree, Root, "Item3", []), ?m(ok, wxTreeCtrl:setItemData(Tree, Item3, {data, item3})), - + Sizer = wxBoxSizer:new(?wxVERTICAL), wxSizer:add(Sizer, Tree, [{flag, ?wxEXPAND}, {proportion, 1}]), wxWindow:setSizerAndFit(Panel, Sizer), wxFrame:show(Frame), - + ?m([], wxTreeCtrl:getItemData(Tree, Root)), ?m({data,item1}, wxTreeCtrl:getItemData(Tree, Item1)), ?m({data,item2}, wxTreeCtrl:getItemData(Tree, Item2)), ?m({data,item3}, wxTreeCtrl:getItemData(Tree, Item3)), - + wxFrame:connect(Tree, command_tree_item_expanded), wxFrame:connect(Tree, command_tree_item_collapsed), wxFrame:connect(Frame, close_window), wxTreeCtrl:editLabel(Tree, Root), - + wx_test_lib:wx_destroy(Frame,Config). notebook(TestInfo) when is_atom(TestInfo) -> wx_test_lib:tc_info(TestInfo); @@ -210,13 +210,13 @@ staticBoxSizer(Config) -> Frame = wxFrame:new(Wx, ?wxID_ANY, "Frame"), Panel = wxPanel:new(Frame, []), InclSizer = ?mt(wxStaticBoxSizer, - wxStaticBoxSizer:new(?wxVERTICAL, Panel, + wxStaticBoxSizer:new(?wxVERTICAL, Panel, [{label, "Module inclusion policy"}])), Sizer = wxBoxSizer:new(?wxVERTICAL), wxSizer:add(Sizer, InclSizer, [{border, 2}, {flag, ?wxALL bor ?wxEXPAND}, {proportion, 1}]), - wxWindow:setSizerAndFit(Panel, Sizer), - + wxWindow:setSizerAndFit(Panel, Sizer), + wxWindow:show(Frame), wx_test_lib:wx_destroy(Frame,Config). @@ -263,13 +263,13 @@ clipboard(_Config) -> wxClipboard:flush(CB), ?log("Stopping ~n",[]), ok. - + helpFrame(TestInfo) when is_atom(TestInfo) -> wx_test_lib:tc_info(TestInfo); helpFrame(Config) -> Wx = wx:new(), MFrame = wx:batch(fun() -> MFrame = wxFrame:new(Wx, ?wxID_ANY, "Main Frame"), - wxPanel:new(MFrame, [{size, {600,400}}]), + wxPanel:new(MFrame, [{size, {600,400}}]), wxWindow:show(MFrame), MFrame end), @@ -279,11 +279,11 @@ helpFrame(Config) -> {X, Y, W,H} = wxWindow:getScreenRect(MFrame), io:format("Pos0: ~p ~p ~p Pos: ~p:~p Size: ~p:~p ~n", [X0,Y0, wxWindow:clientToScreen(MFrame, {0,0}), X,Y,W,H]), - + Pos = {X+5, Y+(H div 2)}, Size = {W-10, (H div 2) - 5}, - Comp = wxFrame:new(MFrame, ?wxID_ANY, "Completion Window", + Comp = wxFrame:new(MFrame, ?wxID_ANY, "Completion Window", [{pos, Pos}, {size, Size}, {style, ?wxFRAME_FLOAT_ON_PARENT}]), LB = wxListBox:new(Comp, 42, [{style, ?wxLB_SINGLE}, @@ -301,7 +301,7 @@ htmlWindow(Config) -> {MFrame,HPanel} = wx:batch(fun() -> MFrame = wxFrame:new(Wx, ?wxID_ANY, "Main Frame"), - HPanel = wxHtmlWindow:new(MFrame, [{size, {600,400}}]), + HPanel = wxHtmlWindow:new(MFrame, [{size, {600,400}}]), wxWindow:show(MFrame), {MFrame, HPanel} end), @@ -310,7 +310,7 @@ htmlWindow(Config) -> WxMod = code:which(wx), WxDir = filename:split(filename:dirname(WxMod)) -- ["ebin"], Html = filename:join(filename:join(WxDir),filename:join("doc", "html")), - + Index = filename:join(Html, "wx.html"), ?m(ok, wxHtmlWindow:connect(HPanel, command_html_link_clicked, @@ -318,7 +318,7 @@ htmlWindow(Config) -> fun(Ev,_) -> io:format("Link clicked: ~p~n",[Ev]) end}])), - + case filelib:is_file(Index) of true -> ?m(true, wxHtmlWindow:loadFile(HPanel, Index)), @@ -326,7 +326,7 @@ htmlWindow(Config) -> false -> ok end, - + wx_test_lib:wx_destroy(MFrame,Config). @@ -334,18 +334,18 @@ listCtrlSort(TestInfo) when is_atom(TestInfo) -> wx_test_lib:tc_info(TestInfo); listCtrlSort(Config) -> Wx = wx:new(), Frame = wxFrame:new(Wx, ?wxID_ANY, "Frame"), - + LC = wxListCtrl:new(Frame, [{style, ?wxLC_REPORT bor ?wxLC_SORT_ASCENDING}]), %% must be done crashes in wxwidgets otherwise. wxListCtrl:insertColumn(LC, 0, "Column"), - - Add = fun(Int) -> + + Add = fun(Int) -> wxListCtrl:insertItem(LC, Int, integer_to_list(Int)), %% ItemData Can only be integers currently wxListCtrl:setItemData(LC, Int, abs(2500-Int)) end, - + wx:foreach(Add, lists:seq(0,5000)), wxWindow:show(Frame), @@ -360,10 +360,10 @@ listCtrlSort(Config) -> end end) end, - + Time = timer:tc(erlang, apply, [Sort,[]]), io:format("Sorted ~p ~n",[Time]), - + Item = wxListItem:new(), _List = wx:map(fun(Int) -> wxListItem:setId(Item, Int), @@ -374,6 +374,48 @@ listCtrlSort(Config) -> wx_test_lib:wx_destroy(Frame,Config). +listCtrlVirtual(TestInfo) when is_atom(TestInfo) -> wx_test_lib:tc_info(TestInfo); +listCtrlVirtual(Config) -> + Wx = wx:new(), + Frame = wxFrame:new(Wx, ?wxID_ANY, "Frame"), + IA = wxListItemAttr:new(), + wxListItemAttr:setTextColour(IA, {190, 25, 25}), + LC = wxListCtrl:new(Frame, + [{style, ?wxLC_REPORT bor ?wxLC_VIRTUAL}, + {onGetItemText, fun(_This, Item, 0) -> + "Row " ++ integer_to_list(Item); + (_, Item, 1) when Item rem 5 == 0 -> + "Column 2"; + (_, _, _) -> "" + end}, + {onGetItemAttr, fun(_This, Item) when Item rem 3 == 0 -> + IA; + (_This, _Item) -> + wx:typeCast(wx:null(), wxListItemAttr) + end}, + {onGetItemColumnImage, fun(_This, Item, 1) -> + Item rem 4; + (_, _, _) -> + -1 + end} + ]), + + IL = wxImageList:new(16,16), + wxImageList:add(IL, wxArtProvider:getBitmap("wxART_COPY", [{size, {16,16}}])), + wxImageList:add(IL, wxArtProvider:getBitmap("wxART_MISSING_IMAGE", [{size, {16,16}}])), + wxImageList:add(IL, wxArtProvider:getBitmap("wxART_TICK_MARK", [{size, {16,16}}])), + wxImageList:add(IL, wxArtProvider:getBitmap("wxART_CROSS_MARK", [{size, {16,16}}])), + wxListCtrl:assignImageList(LC, IL, ?wxIMAGE_LIST_SMALL), + + wxListCtrl:insertColumn(LC, 0, "Column 1"), + wxListCtrl:insertColumn(LC, 1, "Column 2"), + wxListCtrl:setColumnWidth(LC, 0, 200), + wxListCtrl:setColumnWidth(LC, 1, 200), + wxListCtrl:setItemCount(LC, 1000000), + + wxWindow:show(Frame), + wx_test_lib:wx_destroy(Frame,Config). + radioBox(TestInfo) when is_atom(TestInfo) -> wx_test_lib:tc_info(TestInfo); radioBox(Config) -> @@ -382,7 +424,7 @@ radioBox(Config) -> TrSortRadioBox = wxRadioBox:new(Frame, ?wxID_ANY, "Sort by:", {100, 100},{100, 100}, ["Timestamp"]), - + io:format("TrSortRadioBox ~p ~n", [TrSortRadioBox]), %% If I uncomment any of these lines, it will crash @@ -398,7 +440,7 @@ systemSettings(TestInfo) when is_atom(TestInfo) -> wx_test_lib:tc_info(TestInfo) systemSettings(Config) -> Wx = wx:new(), Frame = wxFrame:new(Wx, ?wxID_ANY, "Frame"), - + ?m({_,_,_,_}, wxSystemSettings:getColour(?wxSYS_COLOUR_DESKTOP)), ?mt(wxFont, wxSystemSettings:getFont(?wxSYS_SYSTEM_FONT)), ?m(true, is_integer(wxSystemSettings:getMetric(?wxSYS_MOUSE_BUTTONS))), @@ -406,3 +448,25 @@ systemSettings(Config) -> wxWindow:show(Frame), wx_test_lib:wx_destroy(Frame,Config). + + +textCtrl(TestInfo) when is_atom(TestInfo) -> wx_test_lib:tc_info(TestInfo); +textCtrl(Config) -> + Wx = wx:new(), + Frame = wxFrame:new(Wx, ?wxID_ANY, "Frame"), + + TC = ?mt(wxTextCtrl, wxTextCtrl:new(Frame, ?wxID_ANY, [{style, ?wxTE_MULTILINE bor ?wxTE_RICH2}])), + wxTextCtrl:appendText(TC, "This line is in default color\n"), + Attr = ?mt(wxTextAttr, wxTextAttr:new(?wxRED)), + wxTextCtrl:setDefaultStyle(TC, Attr), + wxTextCtrl:appendText(TC, "This line is in ?wxRED color\n"), + wxTextAttr:setTextColour(Attr, ?wxBLACK), + wxTextCtrl:setDefaultStyle(TC, Attr), + wxTextCtrl:appendText(TC, "This line is in ?wxBLACK color\n"), + Default = wxSystemSettings:getColour(?wxSYS_COLOUR_WINDOWTEXT), + wxTextAttr:setTextColour(Attr, Default), + wxTextCtrl:setDefaultStyle(TC, Attr), + wxTextCtrl:appendText(TC, "This line is in default color\n"), + wxTextAttr:destroy(Attr), + wxWindow:show(Frame), + wx_test_lib:wx_destroy(Frame,Config). diff --git a/lib/wx/test/wxt.erl b/lib/wx/test/wxt.erl index 2f52c58f26..c14d3f8647 100644 --- a/lib/wx/test/wxt.erl +++ b/lib/wx/test/wxt.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2008-2010. All Rights Reserved. +%% Copyright Ericsson AB 2008-2011. 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 diff --git a/lib/wx/vsn.mk b/lib/wx/vsn.mk index 02899f4115..8685c633d4 100644 --- a/lib/wx/vsn.mk +++ b/lib/wx/vsn.mk @@ -1 +1 @@ -WX_VSN = 0.98.10 +WX_VSN = 0.99 diff --git a/lib/xmerl/doc/src/notes.xml b/lib/xmerl/doc/src/notes.xml index 697823eee2..15c42d6f6a 100644 --- a/lib/xmerl/doc/src/notes.xml +++ b/lib/xmerl/doc/src/notes.xml @@ -31,6 +31,63 @@ <p>This document describes the changes made to the Xmerl application.</p> +<section><title>Xmerl 1.2.10</title> + + <section><title>Fixed Bugs and Malfunctions</title> + <list> + <item> + <p> Fixed a schema search bug in xmerl_xsd. </p> <p> A + new flag was needed in the xsd_state record so if the + state is saved there is an incompatibility and a state + conversion is needed. </p> + <p> + *** INCOMPATIBILITY with R14B03 ***</p> + <p> + Own Id: OTP-9410</p> + </item> + <item> + <p> Fixed xmerl_scan problems with entities in attribute + values. </p> + <p> + Own Id: OTP-9411</p> + </item> + <item> + <p> Streaming bug in xmerl_scan. </p> <p> If the + continuation_fun runs out of input at the end of an + attribute value then it crashed. (Thanks to Simon + Cornish) </p> + <p> + Own Id: OTP-9457</p> + </item> + <item> + <p> + Fixed xmerl_ucs UCS2 little endian en/decoding</p> + <p> + Corrected number of shift bytes in + xmerl_ucs:char_to_ucs2le and recursive call from + from_ucs2le to from_ucs4le. (Thanks to Michal Ptaszek)</p> + <p> + Own Id: OTP-9548</p> + </item> + <item> + <p> + Add latin9 (iso-8859-15) support in xmerl_ucs (Thanks to + David Julien)</p> + <p> + Own Id: OTP-9552</p> + </item> + <item> + <p> + Improve spelling throughout documentation, code comments + and error messages</p> + <p> + Own Id: OTP-9555</p> + </item> + </list> + </section> + +</section> + <section><title>Xmerl 1.2.9</title> <section><title>Fixed Bugs and Malfunctions</title> diff --git a/lib/xmerl/src/xmerl_scan.erl b/lib/xmerl/src/xmerl_scan.erl index e598c5f56d..25c6547497 100644 --- a/lib/xmerl/src/xmerl_scan.erl +++ b/lib/xmerl/src/xmerl_scan.erl @@ -2074,10 +2074,10 @@ scan_element(T, S, Pos, Name, StartL, StartC, Attrs, Lang, Parents, {AttName, NamespaceInfo, T1, S1} = scan_name(T, S), {T2, S2} = scan_eq(T1, S1), {AttType,_DefaultDecl} = get_att_type(S2,AttName,Name), - {AttValue, T3, S3,IsNorm} = scan_att_value(T2, S2, AttType), + {AttValue, T3a, S3a,IsNorm} = scan_att_value(T2, S2, AttType), %% check_default_value(S3,DefaultDecl,AttValue), NewNS = check_namespace(AttName, NamespaceInfo, AttValue, NS), - wfc_whitespace_betw_attrs(hd(T3),S3), + {T3,S3} = wfc_whitespace_betw_attrs(T3a,S3a), ?strip4, AttrPos = case Attrs of [] -> @@ -3284,12 +3284,17 @@ wfc_legal_char(Ch,S) -> end. -wfc_whitespace_betw_attrs(WS,_S) when ?whitespace(WS) -> - ok; -wfc_whitespace_betw_attrs($/,_S) -> - ok; -wfc_whitespace_betw_attrs($>,_S) -> - ok; +wfc_whitespace_betw_attrs([WS |_]=L,S) when ?whitespace(WS) -> + {L,S}; +wfc_whitespace_betw_attrs([$/ |_]=L,S) -> + {L,S}; +wfc_whitespace_betw_attrs([$> |_]=L,S) -> + {L,S}; +wfc_whitespace_betw_attrs([],S=#xmerl_scanner{continuation_fun = F}) -> + ?dbg("cont()...~n", []), + F(fun(MoreBytes, S1) -> wfc_whitespace_betw_attrs(MoreBytes, S1) end, + fun(S1) -> ?fatal(unexpected_end, S1) end, + S); wfc_whitespace_betw_attrs(_,S) -> ?fatal({whitespace_required_between_attributes},S). diff --git a/lib/xmerl/src/xmerl_ucs.erl b/lib/xmerl/src/xmerl_ucs.erl index 7c45c838ab..6550a9d954 100644 --- a/lib/xmerl/src/xmerl_ucs.erl +++ b/lib/xmerl/src/xmerl_ucs.erl @@ -1,19 +1,19 @@ %% %% %CopyrightBegin% -%% -%% Copyright Ericsson AB 2005-2009. All Rights Reserved. -%% +%% +%% Copyright Ericsson AB 2005-2011. 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% %% @@ -43,6 +43,7 @@ -export([to_utf16be/1, from_utf16be/1, from_utf16be/2]). -export([to_utf16le/1, from_utf16le/1, from_utf16le/2]). -export([to_utf8/1, from_utf8/1]). +-export([from_latin9/1]). %%% NB: Non-canonical UTF-8 encodings and incorrectly used %%% surrogate-pair codes are disallowed by this code. There are @@ -177,13 +178,27 @@ to_utf8(List) when is_list(List) -> lists:flatmap(fun to_utf8/1, List); to_utf8(Ch) -> char_to_utf8(Ch). from_utf8(Bin) when is_binary(Bin) -> from_utf8(binary_to_list(Bin)); -from_utf8(List) -> +from_utf8(List) -> case expand_utf8(List) of {Result,0} -> Result; {_Res,_NumBadChar} -> exit({ucs,{bad_utf8_character_code}}) end. +%%% Latin9 support +from_latin9(Bin) when is_binary(Bin) -> from_latin9(binary_to_list(Bin)); +from_latin9(List) -> + [ latin9_to_ucs4(Char) || Char <- List]. + +latin9_to_ucs4(16#A4) -> 16#20AC; +latin9_to_ucs4(16#A6) -> 16#160; +latin9_to_ucs4(16#A8) -> 16#161; +latin9_to_ucs4(16#B4) -> 16#17D; +latin9_to_ucs4(16#B8) -> 16#17E; +latin9_to_ucs4(16#BC) -> 16#152; +latin9_to_ucs4(16#BD) -> 16#153; +latin9_to_ucs4(16#BE) -> 16#178; +latin9_to_ucs4(Other) -> Other. @@ -238,7 +253,7 @@ from_ucs4le(Bin,Acc,Tail) -> %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%% UCS-2 support -%%% FIXME! Don't know how to encode UCS-2!! +%%% FIXME! Don't know how to encode UCS-2!! %%% Currently I just encode as UCS-4, but strips the 16 higher bits. char_to_ucs2be(Ch) -> true = is_iso10646(Ch), @@ -259,15 +274,15 @@ from_ucs2be(Bin,Acc,Tail) -> char_to_ucs2le(Ch) -> true = is_iso10646(Ch), - [(Ch bsr 16) band 16#FF, - (Ch bsr 24)]. + [Ch band 16#FF, + (Ch bsr 8) band 16#FF]. from_ucs2le(<<Ch:16/little-signed-integer, Rest/binary>>,Acc,Tail) -> if Ch < 0; Ch >= 16#D800, Ch < 16#E000; Ch =:= 16#FFFE; Ch =:= 16#FFFF -> exit({bad_character_code,Ch}); true -> - from_ucs4le(Rest,[Ch|Acc],Tail) + from_ucs2le(Rest,[Ch|Acc],Tail) end; from_ucs2le(<<>>,Acc,Tail) -> lists:reverse(Acc,Tail); @@ -476,6 +491,8 @@ to_unicode(Input,Cs) when Cs=='iso_8859-1:1987';Cs=='iso-ir-100'; Cs=='l1';Cs=='ibm819'; Cs=='cp819';Cs=='csisolatin1' -> Input; +to_unicode(Input,Cs) when Cs=='iso_8859-15';Cs=='iso-8859-15';Cs=='latin9' -> + from_latin9(Input); % to_unicode(Input,Cs) when Cs=='mnemonic';Cs=='"mnemonic+ascii+38'; % Cs=='mnem';Cs=='"mnemonic+ascii+8200' -> % from_mnemonic(Input); diff --git a/lib/xmerl/src/xmerl_xsd.erl b/lib/xmerl/src/xmerl_xsd.erl index f003cc74ba..dfdc6138ef 100644 --- a/lib/xmerl/src/xmerl_xsd.erl +++ b/lib/xmerl/src/xmerl_xsd.erl @@ -355,9 +355,9 @@ initiate_state(Opts,Schema) -> XSDBase = filename:dirname(Schema), {{state,S},RestOpts}=new_state(Opts), S2 = create_tables(S), - S3 = initiate_state2(S2#xsd_state{schema_name = Schema, xsd_base=XSDBase, - fetch_fun = fun fetch/2}, - RestOpts). + initiate_state2(S2#xsd_state{schema_name = Schema, xsd_base=XSDBase, + fetch_fun = fun fetch/2}, + RestOpts). initiate_state2(S,[]) -> S; @@ -742,7 +742,7 @@ element_content({IDC,S},El,Env) {{IDC,IDConstr},S3}; Err -> S3 = acc_errs(S2,{error_path(El,El#xmlElement.name),?MODULE, - {erronous_content_in_identity_constraint,IDC,Err}}), + {erroneous_content_in_identity_constraint,IDC,Err}}), {{IDC,[]},S3} end; element_content({selector,S},Sel,_Env) -> @@ -5571,7 +5571,7 @@ format_error({incomplete_file,_FileName,_Other}) -> "Schema: The file containing a schema state must be produced by xmerl_xsd:state2file/[1,2]."; format_error({unexpected_content_in_any,A}) -> io_lib:format("Schema: The any type is considered to have no content besides annotation. ~p was found.",[A]); -format_error({erronous_content_in_identity_constraint,IDC,Err}) -> +format_error({erroneous_content_in_identity_constraint,IDC,Err}) -> io_lib:format("Schema: An ~p identity constraint must have one selector and one or more field in content. This case ~p",[IDC,Err]); format_error({missing_xpath_attribute,IDCContent}) -> io_lib:format("Schema: A ~p in a identity constraint must have a xpath attribute.",[IDCContent]); diff --git a/lib/xmerl/test/xmerl_SUITE.erl b/lib/xmerl/test/xmerl_SUITE.erl index 0c809dbcb6..94c38d4d48 100644 --- a/lib/xmerl/test/xmerl_SUITE.erl +++ b/lib/xmerl/test/xmerl_SUITE.erl @@ -58,7 +58,7 @@ groups() -> {ticket_tests, [], [ticket_5998, ticket_7211, ticket_7214, ticket_7430, ticket_6873, ticket_7496, ticket_8156, ticket_8697, - ticket_9411]}, + ticket_9411, ticket_9457]}, {app_test, [], [{xmerl_app_test, all}]}, {appup_test, [], [{xmerl_appup_test, all}]}]. @@ -588,7 +588,26 @@ ticket_9411(Config) -> ?line {E, _} = xmerl_scan:string(Xml), ?line {E, _} = xmerl_xsd:validate(E, Schema). - +ticket_9457(suite) -> []; +ticket_9457(doc) -> + ["Test that xmerl_scan handles continuation correct when current input runs out at the end of an attribute value"]; +ticket_9457(Config) -> + Opts = [{continuation_fun, fun ticket_9457_cont/3, start}, {space, normalize}], + ?line {E, _} = xmerl_scan:string([], Opts). + +ticket_9457_cont(Continue, Exception, GlobalState) -> + case xmerl_scan:cont_state(GlobalState) of + start -> + G1 = xmerl_scan:cont_state(next, GlobalState), + Bytes = "<?xml version=\"1.0\" ?>\r\n<item a=\"b\"", + Continue(Bytes, G1); + next -> + G1 = xmerl_scan:cont_state(last, GlobalState), + Bytes = ">blah</item>\r\n", + Continue(Bytes, G1); + _ -> + Exception(GlobalState) + end. %%====================================================================== %% Support Functions diff --git a/lib/xmerl/vsn.mk b/lib/xmerl/vsn.mk index 965a0ae7b4..82df8fdeef 100644 --- a/lib/xmerl/vsn.mk +++ b/lib/xmerl/vsn.mk @@ -1 +1 @@ -XMERL_VSN = 1.2.9 +XMERL_VSN = 1.2.10 |
