First import of hookgen
This commit is contained in:
ocoursiere
32
bepascal/bepascal/hookgen/README.txt
Normal file
32
bepascal/bepascal/hookgen/README.txt
Normal file
@@ -0,0 +1,32 @@
|
||||
HookGen
|
||||
=======
|
||||
|
||||
HookGen is a developper tool written in pascal. It is designed to
|
||||
generate pascal and C++ source files needed to implement
|
||||
BeOS hooks functions in BePascal. This tool work with a description
|
||||
of the BeOS hooks functions stored in a XML file.
|
||||
|
||||
Files
|
||||
=====
|
||||
|
||||
README.txt : this file !
|
||||
|
||||
hookgen.pp : the main program !
|
||||
|
||||
typenum.pp : this tool read hook.xml and write a file with all C++ types.
|
||||
hookgen use the result file to translate a C++ type in a
|
||||
pascal type.
|
||||
|
||||
hooks.xml : XML description of BeOS hook functions
|
||||
|
||||
typemap.txt : the type map needed to convert C++ types to pascal types.
|
||||
|
||||
Installation
|
||||
============
|
||||
|
||||
Compile kookgen.pp et typenum.pp with the -S2 option :
|
||||
|
||||
fpc -S2 hookgen.pp
|
||||
fpc -S2 typenum.pp
|
||||
|
||||
(only tested with fpc 1.06)
|
||||
537
bepascal/bepascal/hookgen/hookgen.pp
Normal file
537
bepascal/bepascal/hookgen/hookgen.pp
Normal file
@@ -0,0 +1,537 @@
|
||||
program hookgen;
|
||||
|
||||
{$H+} // use AnsiStrings
|
||||
|
||||
uses
|
||||
Classes, SysUtils, xmlread, DOM;
|
||||
|
||||
const
|
||||
Eol = #10;
|
||||
StartExternalC = '#if defined(__cplusplus)' + Eol +
|
||||
'extern "C" {' + Eol+
|
||||
'#endif' + Eol;
|
||||
|
||||
EndExternalC = '#if defined(__cplusplus)' + Eol +
|
||||
'}' + Eol +
|
||||
'#endif';
|
||||
|
||||
type
|
||||
TSourceWriter = class(TObject)
|
||||
private
|
||||
FH : TStringList;
|
||||
FCpp : TStringList;
|
||||
FPas : TStringList;
|
||||
FTypMap : TStringList;
|
||||
FFileName : string;
|
||||
public
|
||||
constructor Create(FileName : string); virtual;
|
||||
destructor Destroy; override;
|
||||
property H : TStringList read FH;
|
||||
property Cpp : TStringList read FCpp;
|
||||
property Pas : TStringList read FPas;
|
||||
property TypMap : TStringList read FTypMap;
|
||||
end;
|
||||
|
||||
constructor TSourceWriter.Create(FileName : string);
|
||||
begin
|
||||
inherited Create;
|
||||
FFileName := FileName;
|
||||
FH := TStringList.Create;
|
||||
FCpp := TStringList.Create;
|
||||
FPas := TStringList.Create;
|
||||
FTypMap := TStringList.Create;
|
||||
FTypMap.LoadFromFile('typemap.txt');
|
||||
end;
|
||||
|
||||
destructor TSourceWriter.Destroy;
|
||||
begin
|
||||
FH.SaveToFile(FFileName + '.h');
|
||||
FH.Free;
|
||||
FCpp.SaveToFile(FFileName + '.cpp');
|
||||
FCpp.Free;
|
||||
FPas.SaveToFile(FFileName + '.pas');
|
||||
FPas.Free;
|
||||
FTypMap.Free;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
type
|
||||
TClasse = class;
|
||||
TFunction = class(TObject)
|
||||
private
|
||||
FName : string;
|
||||
FParent : TClasse;
|
||||
FParams : TStringList;
|
||||
FResultType : string;
|
||||
public
|
||||
constructor Create(Parent : TClasse; FunctionName : string); virtual;
|
||||
destructor Destroy; override;
|
||||
function GetPascalParams(TypMap : TStringList) : string;
|
||||
function GetCppParams(StartWithComma : boolean) : string;
|
||||
function GetCppParamNames(StartWithComma : boolean) : string;
|
||||
function PascalHookVar(TypMap : TStringList) : string;
|
||||
function PascalInit(TypMap : TStringList) : string;
|
||||
function PascalHookImpl(TypMap : TStringList) : string;
|
||||
function PascalHookDecl(TypMap : TStringList) : string;
|
||||
function CppTypedef : string;
|
||||
function CppVarDecl : string;
|
||||
function CppClassDecl : string;
|
||||
function CppHookImpl : string;
|
||||
property Name : string read FName write FName;
|
||||
property Params : TStringList read FParams write FParams;
|
||||
property ResultType : string read FResultType write FResultType;
|
||||
end;
|
||||
|
||||
TClasse = class(TObject)
|
||||
private
|
||||
FTypeName : string;
|
||||
FAncestor : string;
|
||||
FHookFunctions : TStringList;
|
||||
function GetName : string;
|
||||
function GetAncestorName : string;
|
||||
public
|
||||
constructor Create(ClasseName : string); virtual;
|
||||
destructor Destroy; override;
|
||||
property TypeName : string read FTypeName write FTypeName;
|
||||
property Name : string read GetName;
|
||||
property Ancestor : string read FAncestor write FAncestor;
|
||||
property AncestorName : string read GetAncestorName;
|
||||
property HookFunctions : TStringList read FHookFunctions write FHookFunctions;
|
||||
function PascalClasse(TypMap : TStringList) : string;
|
||||
function PascalHookVar(TypMap : TStringList) : string;
|
||||
function PascalHookDecl(TypMap : TStringList) : string;
|
||||
function PascalHookImpl(TypMap : TStringList) : string;
|
||||
function PascalInit(TypMap : TStringList) : string;
|
||||
function CppTypedef : string;
|
||||
function CppVarDecl : string;
|
||||
function CppClassDecl : string;
|
||||
function CppHookImpl : string;
|
||||
end;
|
||||
|
||||
// TFunction ---------------------------------------------------------
|
||||
|
||||
constructor TFunction.Create(Parent : TClasse; FunctionName : string);
|
||||
begin
|
||||
inherited Create;
|
||||
FName := FunctionName;
|
||||
FParams := TStringList.Create;
|
||||
FParent := Parent;
|
||||
end;
|
||||
|
||||
destructor TFunction.Destroy;
|
||||
begin
|
||||
FParams.Free;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TFunction.GetPascalParams(TypMap : TStringList) : string;
|
||||
function FormatParams : string;
|
||||
var
|
||||
i : integer;
|
||||
begin
|
||||
Result := '';
|
||||
for i := 0 to FParams.Count - 1 do
|
||||
begin
|
||||
if i > 0 then
|
||||
Result := Result + '; ';
|
||||
if FParams.Names[i] <> '' then
|
||||
Result := Result + Format('%s : %s', [FParams.Names[i], TypMap.Values[FParams.Values[FParams.Names[i]]] ]);
|
||||
end;
|
||||
end;
|
||||
begin
|
||||
if FParams.Count = 0 then
|
||||
Result := ''
|
||||
else
|
||||
begin
|
||||
Result := Format('%s', [FormatParams]);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TFunction.PascalHookVar(TypMap : TStringList) : string;
|
||||
begin
|
||||
Result := Format(' %s_%s_hook : Pointer; cvar; external;', [FParent.Name, Name]);
|
||||
end;
|
||||
|
||||
function TFunction.PascalInit(TypMap : TStringList) : string;
|
||||
begin
|
||||
Result := Format(' %s_%s_hook := @%s_%s_hook_func;', [FParent.Name, Name, FParent.Name, Name]);
|
||||
end;
|
||||
|
||||
function TFunction.PascalHookDecl(TypMap : TStringList) : string;
|
||||
function CommaIfNotEmpty(s : string) : string;
|
||||
begin
|
||||
if s <> '' then
|
||||
Result := ', '
|
||||
else
|
||||
Result := '';
|
||||
end;
|
||||
begin
|
||||
Result := '';
|
||||
Result := Format(' function %s_%s_hook(%s : %s%s%s);',
|
||||
[FParent.TypeName, Name, FParent.Name, 'T' + FParent.Name,
|
||||
CommaIfNotEmpty(GetPascalParams(TypMap)), GetPascalParams(TypMap)]) +
|
||||
Format(' cdecl; external BePascalLibName name ''%s_%s'';',
|
||||
[FParent.TypeName, Name]);
|
||||
end;
|
||||
|
||||
function TFunction.PascalHookImpl(TypMap : TStringList) : string;
|
||||
begin
|
||||
Result := '';
|
||||
end;
|
||||
|
||||
function TFunction.GetCppParams(StartWithComma : boolean) : string;
|
||||
function FormatParams : string;
|
||||
var
|
||||
i : integer;
|
||||
begin
|
||||
Result := '';
|
||||
for i := 0 to FParams.Count - 1 do
|
||||
begin
|
||||
if (i > 0) then
|
||||
Result := Result + ', ';
|
||||
if FParams.Names[i] <> '' then
|
||||
Result := Result + Format('%s%s', [FParams.Values[FParams.Names[i]], FParams.Names[i] ]);
|
||||
end;
|
||||
end;
|
||||
begin
|
||||
if FParams.Count = 0 then
|
||||
Result := ''
|
||||
else
|
||||
begin
|
||||
if (FormatParams <> '') and StartWithComma then
|
||||
Result := Format(', %s', [FormatParams])
|
||||
else if FormatParams <> '' then
|
||||
Result := Format('%s', [FormatParams])
|
||||
else if StartWithComma then
|
||||
Result := ''
|
||||
else
|
||||
Result := 'void';
|
||||
end;
|
||||
end;
|
||||
|
||||
function TFunction.GetCppParamNames(StartWithComma : boolean) : string;
|
||||
function FormatParamNames : string;
|
||||
var
|
||||
i : integer;
|
||||
begin
|
||||
Result := '';
|
||||
for i := 0 to FParams.Count - 1 do
|
||||
begin
|
||||
if (i > 0) then
|
||||
Result := Result + ', ';
|
||||
if FParams.Names[i] <> '' then
|
||||
Result := Result + Format('%s', [FParams.Names[i] ]);
|
||||
end;
|
||||
end;
|
||||
begin
|
||||
if FParams.Count = 0 then
|
||||
Result := ''
|
||||
else
|
||||
begin
|
||||
if (FormatParamNames <> '') and StartWithComma then
|
||||
Result := Format(', %s', [FormatParamNames])
|
||||
else if FormatParamNames <> '' then
|
||||
Result := Format('%s', [FormatParamNames])
|
||||
else if StartWithComma then
|
||||
Result := ''
|
||||
else
|
||||
Result := 'void';
|
||||
end;
|
||||
end;
|
||||
|
||||
function TFunction.CppTypedef : string;
|
||||
begin
|
||||
Result := Format('typedef %s (*%s_%s_hook) (TPasObject PasObject%s);',
|
||||
[ResultType, FParent.TypeName, Name, GetCppParams(True)]);
|
||||
end;
|
||||
|
||||
function TFunction.CppVarDecl : string;
|
||||
begin
|
||||
Result := Format('%s_%s_hook %s_%s_hook;', [FParent.TypeName, Name, FParent.Name, Name]);
|
||||
end;
|
||||
|
||||
function TFunction.CppClassDecl : string;
|
||||
begin
|
||||
Result := Format(' virtual %s %s(%s);', [ResultType, Name, GetCppParams(False)]);
|
||||
end;
|
||||
|
||||
function TFunction.CppHookImpl : string;
|
||||
begin
|
||||
Result := Format('%s BP%s::%s(%s)',
|
||||
[ResultType, FParent.Name, Name, GetCppParams(False)]) + Eol;
|
||||
Result := Result + '{' + Eol;
|
||||
if ResultType <> 'void' then
|
||||
Result := Result + Format(' return %s_%s_hook(GetPasObject()%s);',
|
||||
[FParent.Name, Name, GetCppParamNames(True)])
|
||||
else
|
||||
Result := Result + Format(' %s_%s_hook(GetPasObject()%s);',
|
||||
[FParent.Name, Name, GetCppParamNames(True)]);
|
||||
Result := Result + Eol + '}' + Eol;
|
||||
end;
|
||||
|
||||
// TClasse -------------------------------------
|
||||
|
||||
constructor TClasse.Create(ClasseName : string);
|
||||
begin
|
||||
inherited Create;
|
||||
FTypeName := ClasseName;
|
||||
FHookFunctions := TStringList.Create;
|
||||
end;
|
||||
|
||||
destructor TClasse.Destroy;
|
||||
var
|
||||
i : integer;
|
||||
begin
|
||||
for i := 0 to FHookFunctions.Count - 1 do
|
||||
FHookFunctions.Objects[i].Free;
|
||||
FHookFunctions.Free;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TClasse.GetName : string;
|
||||
begin
|
||||
Result := TypeName;
|
||||
// Delete the first letter in the C++ type name
|
||||
Delete(Result, 1, 1);
|
||||
end;
|
||||
|
||||
function TClasse.GetAncestorName : string;
|
||||
begin
|
||||
Result := Ancestor;
|
||||
// Delete the first letter in the C++ type name
|
||||
Delete(Result, 1, 1);
|
||||
end;
|
||||
|
||||
function TClasse.PascalClasse(TypMap : TStringList) : string;
|
||||
var
|
||||
i : integer;
|
||||
begin
|
||||
// We add ' *' to the ancestor to find the corresponding type in the type map
|
||||
Result := Format(' T%s = class(%s)', [Name, TypMap.Values[Self.Ancestor + ' *']]);
|
||||
Result := Result + Eol + ' // Hook functions';
|
||||
for i := 0 to HookFunctions.Count - 1 do
|
||||
begin
|
||||
Result := Result + Eol + Format(' procedure %s(%s); virtual;', [HookFunctions[i], TFunction(Self.HookFunctions.Objects[i]).GetPascalParams(TypMap)]);
|
||||
end;
|
||||
Result := Result + Eol + ' end;';
|
||||
WriteLn(Result);
|
||||
end;
|
||||
|
||||
function TClasse.PascalHookVar(TypMap : TStringList) : string;
|
||||
var
|
||||
i : integer;
|
||||
begin
|
||||
Result := 'var';
|
||||
for i := 0 to HookFunctions.Count - 1 do
|
||||
begin
|
||||
Result := Result + Eol + TFunction(Self.HookFunctions.Objects[i]).PascalHookVar(TypMap);
|
||||
end;
|
||||
WriteLn(Result);
|
||||
end;
|
||||
|
||||
function TClasse.PascalInit(TypMap : TStringList) : string;
|
||||
var
|
||||
i : integer;
|
||||
begin
|
||||
Result := 'initialization' + Eol;
|
||||
for i := 0 to HookFunctions.Count - 1 do
|
||||
begin
|
||||
Result := Result + TFunction(Self.HookFunctions.Objects[i]).PascalInit(TypMap) + Eol;
|
||||
end;
|
||||
WriteLn(Result);
|
||||
end;
|
||||
|
||||
function TClasse.PascalHookDecl(TypMap : TStringList) : string;
|
||||
var
|
||||
i : integer;
|
||||
begin
|
||||
Result := 'var' + Eol;
|
||||
for i := 0 to HookFunctions.Count - 1 do
|
||||
begin
|
||||
Result := Result + TFunction(Self.HookFunctions.Objects[i]).PascalHookDecl(TypMap) + Eol;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TClasse.PascalHookImpl(TypMap : TStringList) : string;
|
||||
begin
|
||||
Result := '';
|
||||
end;
|
||||
|
||||
function TClasse.CppTypedef : string;
|
||||
var
|
||||
i : integer;
|
||||
begin
|
||||
Result := '';
|
||||
for i := 0 to HookFunctions.Count - 1 do
|
||||
begin
|
||||
Result := Result + TFunction(Self.HookFunctions.Objects[i]).CppTypedef + Eol;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TClasse.CppVarDecl : string;
|
||||
var
|
||||
i : integer;
|
||||
begin
|
||||
Result := '';
|
||||
for i := 0 to HookFunctions.Count - 1 do
|
||||
begin
|
||||
Result := Result + TFunction(Self.HookFunctions.Objects[i]).CppVarDecl + Eol;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TClasse.CppClassDecl : string;
|
||||
var
|
||||
i : integer;
|
||||
begin
|
||||
Result := Format('class BP%s : public %s, public BP%s',
|
||||
[Name, TypeName, AncestorName]) + Eol;
|
||||
Result := Result + '{' + Eol;
|
||||
Result := Result + ' public:' + Eol;
|
||||
Result := Result + ' // <BView_Constructor>' + Eol;
|
||||
for i := 0 to HookFunctions.Count - 1 do
|
||||
begin
|
||||
Result := Result + TFunction(Self.HookFunctions.Objects[i]).CppClassDecl + Eol;
|
||||
end;
|
||||
Result := Result + ' private:' + Eol;
|
||||
Result := Result + '}' + Eol;
|
||||
end;
|
||||
|
||||
function TClasse.CppHookImpl : string;
|
||||
var
|
||||
i : integer;
|
||||
begin
|
||||
Result := '';
|
||||
for i := 0 to HookFunctions.Count - 1 do
|
||||
begin
|
||||
Result := Result + TFunction(Self.HookFunctions.Objects[i]).CppHookImpl + Eol;
|
||||
end;
|
||||
end;
|
||||
|
||||
//****************************************************************************************
|
||||
|
||||
procedure NodeInfo(Node : TDOMNode);
|
||||
begin
|
||||
WriteLn(Node.NodeName + ',' + Node.NodeValue + ',' + IntToStr(Node.NodeType));
|
||||
end;
|
||||
|
||||
function HandleParams(Node : TDOMNode; Parent : TClasse) : TFunction;
|
||||
var
|
||||
paramtmp : TDOMNode;
|
||||
begin
|
||||
Result := TFunction.Create(Parent, Node.Attributes.GetNamedItem('NAME').NodeValue);
|
||||
paramtmp := Node.FirstChild.FirstChild;
|
||||
Result.Params.Values[paramtmp.Attributes.GetNamedItem('NAME').NodeValue] := paramtmp.Attributes.GetNamedItem('TYPE').NodeValue;
|
||||
while paramtmp.NextSibling <> nil do
|
||||
begin
|
||||
paramtmp := paramtmp.NextSibling;
|
||||
Result.Params.Values[paramtmp.Attributes.GetNamedItem('NAME').NodeValue] := paramtmp.Attributes.GetNamedItem('TYPE').NodeValue;
|
||||
end;
|
||||
Result.ResultType := Node.FindNode('RESULT').Attributes.GetNamedItem('TYPE').NodeValue;
|
||||
WriteLn('FunctionName : ' + Result.Name);
|
||||
WriteLn(Result.Params.Text);
|
||||
WriteLn('Result = ' + Result.ResultType);
|
||||
WriteLn('');
|
||||
end;
|
||||
|
||||
function HandleClasse(Node : TDOMNode) : TClasse;
|
||||
var
|
||||
hooktmp : TDOMNode;
|
||||
begin
|
||||
Result := TClasse.Create(Node.Attributes.GetNamedItem('NAME').NodeValue);
|
||||
if Node.Attributes.GetNamedItem('ANCESTOR') <> nil then
|
||||
Result.Ancestor := Node.Attributes.GetNamedItem('ANCESTOR').NodeValue;
|
||||
hooktmp := Node.FirstChild.FirstChild;
|
||||
Result.HookFunctions.AddObject(hooktmp.Attributes.GetNamedItem('NAME').NodeValue, HandleParams(hooktmp, Result));
|
||||
while hooktmp.NextSibling <> nil do
|
||||
begin
|
||||
hooktmp := hooktmp.NextSibling;
|
||||
Result.HookFunctions.AddObject(hooktmp.Attributes.GetNamedItem('NAME').NodeValue, HandleParams(hooktmp, Result));
|
||||
end;
|
||||
WriteLn('ClasseName : ' + Result.TypeName);
|
||||
WriteLn(Result.HookFunctions.Text);
|
||||
end;
|
||||
|
||||
//****************************************************************************************
|
||||
|
||||
var
|
||||
ADoc : TXMLDocument;
|
||||
tmp : TDOMNode;
|
||||
classe : TClasse;
|
||||
ClassesList : TStringList;
|
||||
i : integer;
|
||||
srcWriter : TSourceWriter;
|
||||
begin
|
||||
ReadXMLFile(ADoc, 'hooks.xml');
|
||||
ClassesList := TStringList.Create;
|
||||
try
|
||||
NodeInfo(ADoc);
|
||||
// root -> BEOSAPI
|
||||
NodeInfo(ADoc.DocumentElement);
|
||||
// -> CLASSES
|
||||
NodeInfo(ADoc.DocumentElement.FirstChild);
|
||||
// -> CLASSE
|
||||
NodeInfo(ADoc.DocumentElement.FirstChild.FirstChild);
|
||||
// -> CLASSE NAME=
|
||||
NodeInfo(ADoc.DocumentElement.FirstChild.FirstChild.Attributes.GetNamedItem('NAME'));
|
||||
tmp := ADoc.DocumentElement.FirstChild.FirstChild;
|
||||
Classe := HandleClasse(tmp);
|
||||
ClassesList.AddObject(Classe.TypeName, Classe);
|
||||
while tmp.NextSibling <> nil do
|
||||
begin
|
||||
tmp := tmp.NextSibling;
|
||||
Classe := HandleClasse(tmp);
|
||||
ClassesList.AddObject(Classe.TypeName, Classe);
|
||||
end;
|
||||
// -> HOOKS
|
||||
NodeInfo(ADoc.DocumentElement.FirstChild.FirstChild.FirstChild);
|
||||
// -> HOOKFUNCTION
|
||||
NodeInfo(ADoc.DocumentElement.FirstChild.FirstChild.FirstChild.FirstChild);
|
||||
NodeInfo(ADoc.DocumentElement.FirstChild.FirstChild.FirstChild.FirstChild.FirstChild);
|
||||
|
||||
// -------------------------------
|
||||
// Generating source files
|
||||
// -------------------------------
|
||||
|
||||
WriteLn('<Begining Pascal code>');
|
||||
srcWriter := TSourceWriter.Create('looper');
|
||||
try
|
||||
with srcWriter.Pas do
|
||||
begin
|
||||
Add('type');
|
||||
Add(TClasse(ClassesList.objects[0]).PascalClasse(srcWriter.TypMap));
|
||||
Add('');
|
||||
Add(TClasse(ClassesList.Objects[0]).PascalHookDecl(srcWriter.TypMap));
|
||||
Add('implementation' + Eol);
|
||||
Add(TClasse(ClassesList.objects[0]).PascalHookVar(srcWriter.TypMap));
|
||||
Add('');
|
||||
Add(TClasse(ClassesList.objects[0]).PascalInit(srcWriter.TypMap));
|
||||
|
||||
Add('type');
|
||||
Add(TClasse(ClassesList.objects[1]).PascalClasse(srcWriter.TypMap));
|
||||
Add('');
|
||||
Add(TClasse(ClassesList.Objects[1]).PascalHookDecl(srcWriter.TypMap));
|
||||
Add('implementation' + Eol);
|
||||
Add(TClasse(ClassesList.objects[1]).PascalHookVar(srcWriter.TypMap));
|
||||
Add('');
|
||||
Add(TClasse(ClassesList.objects[1]).PascalInit(srcWriter.TypMap));
|
||||
end;
|
||||
with srcWriter.Cpp do
|
||||
begin
|
||||
Add(TClasse(ClassesList.Objects[0]).CppTypedef);
|
||||
Add(StartExternalC);
|
||||
Add(TClasse(ClassesList.Objects[0]).CppVarDecl);
|
||||
Add(EndExternalC);
|
||||
Add('');
|
||||
Add(TClasse(ClassesList.Objects[0]).CppClassDecl);
|
||||
Add(TClasse(ClassesList.Objects[0]).CppHookImpl);
|
||||
end;
|
||||
finally
|
||||
srcWriter.Free;
|
||||
end;
|
||||
finally
|
||||
ADoc.Free;
|
||||
for i := 0 to ClassesList.Count - 1 do
|
||||
ClassesList.Objects[i].Free;
|
||||
ClassesList.Free;
|
||||
end;
|
||||
end.
|
||||
592
bepascal/bepascal/hookgen/hooks.xml
Normal file
592
bepascal/bepascal/hookgen/hooks.xml
Normal file
@@ -0,0 +1,592 @@
|
||||
<?xml version="1.0"?>
|
||||
<BEOSAPI>
|
||||
<CLASSES>
|
||||
<CLASSE NAME="BLooper" ANCESTOR="BHandler">
|
||||
<HOOKS>
|
||||
<HOOKFUNCTION NAME="DispatchMessage">
|
||||
<PARAMS>
|
||||
<PARAM NAME="message" TYPE="BMessage *"/>
|
||||
<PARAM NAME="target" TYPE="BHandler *"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="QuitRequested">
|
||||
<PARAMS>
|
||||
<PARAM NAME="" TYPE="void"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="bool"/>
|
||||
</HOOKFUNCTION>
|
||||
</HOOKS>
|
||||
</CLASSE>
|
||||
<CLASSE NAME="BMessageFilter">
|
||||
<HOOKS>
|
||||
<HOOKFUNCTION NAME="Filter">
|
||||
<PARAMS>
|
||||
<PARAM NAME="message" TYPE="BMessage *"/>
|
||||
<PARAM NAME="target" TYPE="BHandler **"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="filter_result"/>
|
||||
</HOOKFUNCTION>
|
||||
</HOOKS>
|
||||
</CLASSE>
|
||||
<CLASSE NAME="BHandler">
|
||||
<HOOKS>
|
||||
<HOOKFUNCTION NAME="MessageReceived">
|
||||
<PARAMS>
|
||||
<PARAM NAME="message" TYPE="BMessage *"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
</HOOKS>
|
||||
</CLASSE>
|
||||
<CLASSE NAME="BApplication">
|
||||
<HOOKS>
|
||||
<HOOKFUNCTION NAME="AboutRequested">
|
||||
<PARAMS>
|
||||
<PARAM NAME="" TYPE="void"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="AppActivated">
|
||||
<PARAMS>
|
||||
<PARAM NAME="active" TYPE="bool"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="ArgvReceived">
|
||||
<PARAMS>
|
||||
<PARAM NAME="argc" TYPE="int32"/>
|
||||
<PARAM NAME="argv" TYPE="char **"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="Pulse">
|
||||
<PARAMS>
|
||||
<PARAM NAME="" TYPE="void"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="ReadyToRun">
|
||||
<PARAMS>
|
||||
<PARAM NAME="" TYPE="void"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="RefsReceived">
|
||||
<PARAMS>
|
||||
<PARAM NAME="message" TYPE="BMessage *"/>
|
||||
</PARAMS>
|
||||
<RESULT NAME="" TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
</HOOKS>
|
||||
</CLASSE>
|
||||
<CLASSE NAME="BWindow">
|
||||
<HOOKS>
|
||||
<HOOKFUNCTION NAME="FrameMoved">
|
||||
<PARAMS>
|
||||
<PARAM NAME="origin" TYPE="BPoint *"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="FrameResized">
|
||||
<PARAMS>
|
||||
<PARAM NAME="width" TYPE="float"/>
|
||||
<PARAM NAME="height" TYPE="float"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="MenusBeginning">
|
||||
<PARAMS>
|
||||
<PARAM NAME="" TYPE="void"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="MenusEnded">
|
||||
<PARAMS>
|
||||
<PARAM NAME="" TYPE="void"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="Minimize">
|
||||
<PARAMS>
|
||||
<PARAM NAME="minimize" TYPE="bool"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="ScreenChanged">
|
||||
<PARAMS>
|
||||
<PARAM NAME="frame" TYPE="BRect"/>
|
||||
<PARAM NAME="mode" TYPE="color_space"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="WindowActivated">
|
||||
<PARAMS>
|
||||
<PARAM NAME="active" TYPE="bool"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="WorkspaceActivated">
|
||||
<PARAMS>
|
||||
<PARAM NAME="workspace" TYPE="int32"/>
|
||||
<PARAM NAME="active" TYPE="bool"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="WorkspacesChanged">
|
||||
<PARAMS>
|
||||
<PARAM NAME="oldWorkspaces" TYPE="uint32"/>
|
||||
<PARAM NAME="newWorkspaces" TYPE="uint32"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="Zoom">
|
||||
<PARAMS>
|
||||
<PARAM NAME="origin" TYPE="BPoint"/>
|
||||
<PARAM NAME="width" TYPE="float"/>
|
||||
<PARAM NAME="height" TYPE="float"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
</HOOKS>
|
||||
</CLASSE>
|
||||
<CLASSE NAME="BView">
|
||||
<HOOKS>
|
||||
<HOOKFUNCTION NAME="AllAttached">
|
||||
<PARAMS>
|
||||
<PARAM NAME="" TYPE="void"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="AllDetached">
|
||||
<PARAMS>
|
||||
<PARAM NAME="" TYPE="void"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="AttachedToWindow">
|
||||
<PARAMS>
|
||||
<PARAM NAME="" TYPE="void"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="DetachedFromWindow">
|
||||
<PARAMS>
|
||||
<PARAM NAME="" TYPE="void"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="Draw">
|
||||
<PARAMS>
|
||||
<PARAM NAME="updateRect" TYPE="BRect"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="DrawAfterChildren">
|
||||
<PARAMS>
|
||||
<PARAM NAME="updateRect" TYPE="BRect"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="FrameMoved">
|
||||
<PARAMS>
|
||||
<PARAM NAME="parentPoint" TYPE="BPoint"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="FrameResized">
|
||||
<PARAMS>
|
||||
<PARAM NAME="width" TYPE="float"/>
|
||||
<PARAM NAME="height" TYPE="float"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="GetPreferredSize">
|
||||
<PARAMS>
|
||||
<PARAM NAME="width" TYPE="float *"/>
|
||||
<PARAM NAME="height" TYPE="float *"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="ResizeToPreferred">
|
||||
<PARAMS>
|
||||
<PARAM NAME="" TYPE="void"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="KeyDown">
|
||||
<PARAMS>
|
||||
<PARAM NAME="bytes" TYPE="char *"/>
|
||||
<PARAM NAME="numBytes" TYPE="int32"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="KeyUp">
|
||||
<PARAMS>
|
||||
<PARAM NAME="bytes" TYPE="char *"/>
|
||||
<PARAM NAME="numBytes" TYPE="int32"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="MouseDown">
|
||||
<PARAMS>
|
||||
<PARAM NAME="point" TYPE="BPoint"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="MouseMoved">
|
||||
<PARAMS>
|
||||
<PARAM NAME="point" TYPE="BPoint"/>
|
||||
<PARAM NAME="transit" TYPE="uint32"/>
|
||||
<PARAM NAME="message" TYPE="BMessage *"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="MouseUp">
|
||||
<PARAMS>
|
||||
<PARAM NAME="point" TYPE="BPoint"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="Pulse">
|
||||
<PARAMS>
|
||||
<PARAM NAME="" TYPE="void"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="TargetedByScrollView">
|
||||
<PARAMS>
|
||||
<PARAM NAME="scroller" TYPE="BScrollView *"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="WindowActivated">
|
||||
<PARAMS>
|
||||
<PARAM NAME="active" TYPE="bool"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
</HOOKS>
|
||||
</CLASSE>
|
||||
<CLASSE NAME="BControl">
|
||||
<HOOKS>
|
||||
<HOOKFUNCTION NAME="SetEnabled">
|
||||
<PARAMS>
|
||||
<PARAM NAME="enabled" TYPE="bool"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="SetValue">
|
||||
<PARAMS>
|
||||
<PARAM NAME="value" TYPE="int32"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
</HOOKS>
|
||||
</CLASSE>
|
||||
<CLASSE NAME="BMenu">
|
||||
<HOOKS>
|
||||
<HOOKFUNCTION NAME="ScreenLocation">
|
||||
<PARAMS>
|
||||
<PARAM NAME="" TYPE="void"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="BPoint"/>
|
||||
</HOOKFUNCTION>
|
||||
</HOOKS>
|
||||
</CLASSE>
|
||||
<CLASSE NAME="BMenuItem">
|
||||
<HOOKS>
|
||||
<HOOKFUNCTION NAME="Draw">
|
||||
<PARAMS>
|
||||
<PARAM NAME="" TYPE="void"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="DrawContent">
|
||||
<PARAMS>
|
||||
<PARAM NAME="" TYPE="void"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
</HOOKS>
|
||||
</CLASSE>
|
||||
<CLASSE NAME="BListView">
|
||||
<HOOKS>
|
||||
<HOOKFUNCTION NAME="InitiateDrag">
|
||||
<PARAMS>
|
||||
<PARAM NAME="point" TYPE="BPoint"/>
|
||||
<PARAM NAME="index" TYPE="int32"/>
|
||||
<PARAM NAME="wasSelected" TYPE="bool"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="bool"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="SelectionChanged">
|
||||
<PARAMS>
|
||||
<PARAM NAME="" TYPE="void"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
</HOOKS>
|
||||
</CLASSE>
|
||||
<CLASSE NAME="BListItem">
|
||||
<HOOKS>
|
||||
<HOOKFUNCTION NAME="DrawItem">
|
||||
<PARAMS>
|
||||
<PARAM NAME="owner" TYPE="BView *"/>
|
||||
<PARAM NAME="itemRect" TYPE="BRect"/>
|
||||
<PARAM NAME="drawEverything" TYPE="bool" DEFAULT="false"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="Update">
|
||||
<PARAMS>
|
||||
<PARAM NAME="owner" TYPE="BView *"/>
|
||||
<PARAM NAME="font" TYPE="BFont *"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
</HOOKS>
|
||||
</CLASSE>
|
||||
<CLASSE NAME="BScrollBar">
|
||||
<HOOKS>
|
||||
<HOOKFUNCTION NAME="ValueChanged">
|
||||
<PARAMS>
|
||||
<PARAM NAME="newValue" TYPE="float"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
</HOOKS>
|
||||
</CLASSE>
|
||||
<CLASSE NAME="BShelf">
|
||||
<HOOKS>
|
||||
<HOOKFUNCTION NAME="CanAcceptReplicantMessage">
|
||||
<PARAMS>
|
||||
<PARAM NAME="archive" TYPE="BMessage *"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="bool"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="CanAcceptReplicantView">
|
||||
<PARAMS>
|
||||
<PARAM NAME="destRect" TYPE="BRect"/>
|
||||
<PARAM NAME="view" TYPE="BView *"/>
|
||||
<PARAM NAME="archive" TYPE="BMessage *"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="bool"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="AdjustReplicantBy">
|
||||
<PARAMS>
|
||||
<PARAM NAME="destRect" TYPE="BRect"/>
|
||||
<PARAM NAME="archive" TYPE="BMessage *"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="BPoint"/>
|
||||
</HOOKFUNCTION>
|
||||
</HOOKS>
|
||||
</CLASSE>
|
||||
<CLASSE NAME="BTab">
|
||||
<HOOKS>
|
||||
<HOOKFUNCTION NAME="Deselect">
|
||||
<PARAMS>
|
||||
<PARAM NAME="" TYPE="void"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="DrawFocusMark">
|
||||
<PARAMS>
|
||||
<PARAM NAME="owner" TYPE="BView *"/>
|
||||
<PARAM NAME="frame" TYPE="BRect"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="DrawTab">
|
||||
<PARAMS>
|
||||
<PARAM NAME="owner" TYPE="BView *"/>
|
||||
<PARAM NAME="frame" TYPE="BRect"/>
|
||||
<PARAM NAME="position" TYPE="tab_position"/>
|
||||
<PARAM NAME="full" TYPE="bool" DEFAULT="true"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="DrawLabel">
|
||||
<PARAMS>
|
||||
<PARAM NAME="owner" TYPE="BView *"/>
|
||||
<PARAM NAME="frame" TYPE="BRect"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="Select">
|
||||
<PARAMS>
|
||||
<PARAM NAME="owner" TYPE="BView *"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="SetEnabled">
|
||||
<PARAMS>
|
||||
<PARAM NAME="enabled" TYPE="bool"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="SetLabel">
|
||||
<PARAMS>
|
||||
<PARAM NAME="label" TYPE="char *"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="SetView">
|
||||
<PARAMS>
|
||||
<PARAM NAME="view" TYPE="BView *"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
</HOOKS>
|
||||
</CLASSE>
|
||||
<CLASSE NAME="BTabView">
|
||||
<HOOKS>
|
||||
<HOOKFUNCTION NAME="AddTab">
|
||||
<PARAMS>
|
||||
<PARAM NAME="target" TYPE="BView *"/>
|
||||
<PARAM NAME="tab" TYPE="BTab *" DEFAULT="NULL"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="Draw">
|
||||
<PARAMS>
|
||||
<PARAM NAME="updateRect" TYPE="BRect"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="DrawBox">
|
||||
<PARAMS>
|
||||
<PARAM NAME="selfTabRect" TYPE="BRect"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="DrawTabs">
|
||||
<PARAMS>
|
||||
<PARAM NAME="" TYPE="void"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="BRect"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="MakeFocus">
|
||||
<PARAMS>
|
||||
<PARAM NAME="focused" TYPE="bool" DEFAULT="true"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="RemoveTab">
|
||||
<PARAMS>
|
||||
<PARAM NAME="tab_index" TYPE="int32"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="BTab *"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="Select">
|
||||
<PARAMS>
|
||||
<PARAM NAME="tab" TYPE="int32"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="SetFocusTab">
|
||||
<PARAMS>
|
||||
<PARAM NAME="tab" TYPE="int32"/>
|
||||
<PARAM NAME="focused" TYPE="bool"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="SetTabHeight">
|
||||
<PARAMS>
|
||||
<PARAM NAME="height" TYPE="float"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="SetTabWidth">
|
||||
<PARAMS>
|
||||
<PARAM NAME="width" TYPE="button_width"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="TabAt">
|
||||
<PARAMS>
|
||||
<PARAM NAME="tab_index" TYPE="int32"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="BTab *"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="TabFrame">
|
||||
<PARAMS>
|
||||
<PARAM NAME="tab_index" TYPE="int32"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="BRect"/>
|
||||
</HOOKFUNCTION>
|
||||
</HOOKS>
|
||||
</CLASSE>
|
||||
<CLASSE NAME="BTextView">
|
||||
<HOOKS>
|
||||
<HOOKFUNCTION NAME="AcceptsDrop">
|
||||
<PARAMS>
|
||||
<PARAM NAME="message" TYPE="BMessage *"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="bool"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="AcceptsPaste">
|
||||
<PARAMS>
|
||||
<PARAM NAME="clipboard" TYPE="BClipboard *"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="bool"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="CanEndLine">
|
||||
<PARAMS>
|
||||
<PARAM NAME="offset" TYPE="int32"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="bool"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="DeleteText">
|
||||
<PARAMS>
|
||||
<PARAM NAME="start" TYPE="int32"/>
|
||||
<PARAM NAME="finish" TYPE="int32"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="FindWord">
|
||||
<PARAMS>
|
||||
<PARAM NAME="offset" TYPE="int32"/>
|
||||
<PARAM NAME="start" TYPE="int32 *"/>
|
||||
<PARAM NAME="finish" TYPE="int32 *"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="GetDragParameters">
|
||||
<PARAMS>
|
||||
<PARAM NAME="drag" TYPE="BMessage *"/>
|
||||
<PARAM NAME="bitmap" TYPE="BBitmap **"/>
|
||||
<PARAM NAME="point" TYPE="BPoint *"/>
|
||||
<PARAM NAME="handler" TYPE="BHandler **"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="InsertText">
|
||||
<PARAMS>
|
||||
<PARAM NAME="text" TYPE="char *"/>
|
||||
<PARAM NAME="length" TYPE="int32"/>
|
||||
<PARAM NAME="offset" TYPE="int32"/>
|
||||
<PARAM NAME="runs" TYPE="text_run_array"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
<HOOKFUNCTION NAME="Undo">
|
||||
<PARAMS>
|
||||
<PARAM NAME="clipboard" TYPE="BClipboard *"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
</HOOKS>
|
||||
</CLASSE>
|
||||
<CLASSE NAME="BButton">
|
||||
<HOOKS>
|
||||
<HOOKFUNCTION NAME="MakeDefault">
|
||||
<PARAMS>
|
||||
<PARAM NAME="flag" TYPE="bool"/>
|
||||
</PARAMS>
|
||||
<RESULT TYPE="void"/>
|
||||
</HOOKFUNCTION>
|
||||
</HOOKS>
|
||||
</CLASSE>
|
||||
</CLASSES>
|
||||
</BEOSAPI>
|
||||
26
bepascal/bepascal/hookgen/typemap.txt
Normal file
26
bepascal/bepascal/hookgen/typemap.txt
Normal file
@@ -0,0 +1,26 @@
|
||||
BMessage *=TMessage
|
||||
BHandler *=THandler
|
||||
void=
|
||||
bool=boolean
|
||||
BHandler **=^THandler
|
||||
filter_result=
|
||||
int32=integer
|
||||
char **=^PChar
|
||||
BPoint *=TPoint
|
||||
float=double
|
||||
BRect=TRect
|
||||
color_space=
|
||||
uint32=cardinal
|
||||
BPoint=TPoint
|
||||
float *=^double
|
||||
char *=PChar
|
||||
BScrollView *=TScrollView
|
||||
BView *=TView
|
||||
BFont *=TFont
|
||||
tab_position=
|
||||
BTab *=TTab
|
||||
button_width=
|
||||
BClipboard *=TClipboard
|
||||
int32 *=^integer
|
||||
BBitmap **=^TBitmap
|
||||
text_run_array=
|
||||
|
After Width: | Height: | Size: 409 B |
48
bepascal/bepascal/hookgen/typenum.pp
Normal file
48
bepascal/bepascal/hookgen/typenum.pp
Normal file
@@ -0,0 +1,48 @@
|
||||
program typenum;
|
||||
|
||||
uses
|
||||
SysUtils, Classes, xmlread, DOM;
|
||||
|
||||
procedure NodeInfo(Node : TDOMNode);
|
||||
begin
|
||||
WriteLn(Node.NodeName + ',' + Node.NodeValue + ',' + IntToStr(Node.NodeType));
|
||||
end;
|
||||
|
||||
var
|
||||
ADoc : TXMLDocument;
|
||||
TypeList : TStringList;
|
||||
classeNode, fonction : TDOMNode;
|
||||
list : TDOMNodeList;
|
||||
i : integer;
|
||||
begin
|
||||
ReadXMLFile(ADoc, 'hooks.xml');
|
||||
TypeList := TStringList.Create;
|
||||
try
|
||||
classeNode := ADoc.FirstChild.FirstChild.FirstChild;
|
||||
NodeInfo(classeNode);
|
||||
while classeNode <> nil do
|
||||
begin
|
||||
fonction := classeNode.FirstChild.FirstChild;
|
||||
Write('Toto : ');
|
||||
NodeInfo(fonction);
|
||||
while fonction <> nil do
|
||||
begin
|
||||
list := fonction.FirstChild.ChildNodes;
|
||||
WriteLn(IntToStr(list.Count));
|
||||
for i := 0 to list.Count - 1 do
|
||||
begin
|
||||
WriteLn(list.item[i].NodeValue + ';' + list.item[i].NodeName);
|
||||
TypeList.Values[list.item[i].Attributes.GetNamedItem('TYPE').NodeValue] := '';
|
||||
end;
|
||||
NodeInfo(fonction.FindNode('RESULT'));
|
||||
TypeList.Values[fonction.FindNode('RESULT').Attributes.GetNamedItem('TYPE').NodeValue] := '';
|
||||
fonction := fonction.NextSibling;
|
||||
end;
|
||||
classeNode := classeNode.NextSibling;
|
||||
end;
|
||||
finally
|
||||
TypeList.SaveToFile('typemap.txt');
|
||||
list.Release;
|
||||
TypeList.Free;
|
||||
end;
|
||||
end.
|
||||
Reference in New Issue
Block a user