paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 02:19:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: h2p: implemented converting typedef variable

Browse Source 
git-svn-id: trunk@14681 -
This commit is contained in:
mattias 2008-03-28 14:36:05 +00:00
parent 554a5e5ce0
commit f0bbffbdde
2 changed files with 27 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/examples/scanexamples/test.h
View File

@ -163,6 +163,8 @@ static inline int bacmp(const bdaddr_t *ba1, const bdaddr_t *ba2)
return memcmp(ba1, ba2, sizeof(bdaddr_t));
}
typedef unsigned short sa_family_t;
#ifdef __cplusplus
}
#endif

30
components/codetools/h2pastool.pas
View File

@ -349,16 +349,16 @@ begin
Add('short*','pcshort');
Add('signed short','csshort');
Add('signed short*','pcsshort');
Add('unsigned short','csshort');
Add('unsigned short*','pcsshort');
Add('unsigned short','cushort');
Add('unsigned short*','pcushort');
Add('short int','cshort');
Add('short int*','pcshort');
Add('signed short int','csshort');
Add('signed short int*','pcsshort');
Add('short signed int','csshort');
Add('short signed int*','pcsshort');
Add('short unsigned int','csshort');
Add('short unsigned int*','pcsshort');
Add('short unsigned int','cushort');
Add('short unsigned int*','pcushort');
// int8
Add('int8','cint8');
Add('int8*','pcint8');
@ -732,6 +732,26 @@ begin
ChildNode:=CNode.FirstChild;
case ChildNode.Desc of
ccnVariable: // typedef variable
begin
CurName:=CTool.ExtractVariableName(ChildNode);
CurType:=CTool.ExtractVariableType(ChildNode);
SimpleType:=GetSimplePascalTypeOfCVar(ChildNode);
if SimpleType='' then begin
// this variable has a complex type
TypeH2PNode:=GetH2PNodeForComplexType(ChildNode);
if TypeH2PNode<>nil then
SimpleType:=TypeH2PNode.PascalName;
end;
if SimpleType<>'' then begin
H2PNode:=CreateH2PNode(CurName,CurName,CNode,ctnTypeDefinition,
SimpleType,nil,true);
DebugLn(['TH2PasTool.ConvertTypedef added: ',H2PNode.DescAsString(CTool)]);
end else begin
DebugLn(['TH2PasTool.ConvertTypedef SKIPPING Typedef Variable Name="',CurName,'" Type="',CurType,'"']);
end;
end;
ccnStruct: // typedef struct
begin
ChildNode:=CNode.FirstChild.FirstChild;
@ -777,7 +797,7 @@ begin
end;
else // typedef
DebugLn(['TH2PasTool.ConvertTypedef SKIPPING typedef ',CCNodeDescAsString(CNode.FirstChild.Desc),' at ',CTool.CleanPosToStr(CNode.StartPos)]);
DebugLn(['TH2PasTool.ConvertTypedef SKIPPING typedef ',CTool.NodeAsString(ChildNode)]);
end;
end;