mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-18 17:19:23 +02:00
carbon: removed objcparser from pascocoa
git-svn-id: trunk@24107 -
This commit is contained in:
dmitry
parent
6a78f28957
commit
f1812c07c0
9
.gitattributes
vendored
9
.gitattributes
vendored
@ -4557,15 +4557,6 @@ lcl/interfaces/carbon/pascocoa/foundation/NSString.inc svneol=native#text/plain
|
|||||||
lcl/interfaces/carbon/pascocoa/foundation/NSValue.inc svneol=native#text/plain
|
lcl/interfaces/carbon/pascocoa/foundation/NSValue.inc svneol=native#text/plain
|
||||||
lcl/interfaces/carbon/pascocoa/foundation/NSZone.inc svneol=native#text/plain
|
lcl/interfaces/carbon/pascocoa/foundation/NSZone.inc svneol=native#text/plain
|
||||||
lcl/interfaces/carbon/pascocoa/foundation/foundation.pas svneol=native#text/plain
|
lcl/interfaces/carbon/pascocoa/foundation/foundation.pas svneol=native#text/plain
|
||||||
lcl/interfaces/carbon/pascocoa/parser/ObjCParserTypes.pas svneol=native#text/plain
|
|
||||||
lcl/interfaces/carbon/pascocoa/parser/ObjCParserUtils.pas svneol=native#text/plain
|
|
||||||
lcl/interfaces/carbon/pascocoa/parser/ObjCTemplate.pas svneol=native#text/plain
|
|
||||||
lcl/interfaces/carbon/pascocoa/parser/ObjCToPas.pas svneol=native#text/plain
|
|
||||||
lcl/interfaces/carbon/pascocoa/parser/default.ini svneol=native#text/plain
|
|
||||||
lcl/interfaces/carbon/pascocoa/parser/gnuccFeatures.pas svneol=native#text/plain
|
|
||||||
lcl/interfaces/carbon/pascocoa/parser/objcparser.lpi svneol=native#text/plain
|
|
||||||
lcl/interfaces/carbon/pascocoa/parser/objcparser.pas svneol=native#text/plain
|
|
||||||
lcl/interfaces/carbon/pascocoa/parser/testparser.sh svneol=native#text/plain
|
|
||||||
lcl/interfaces/cocoa/Makefile svneol=native#text/plain
|
lcl/interfaces/cocoa/Makefile svneol=native#text/plain
|
||||||
lcl/interfaces/cocoa/Makefile.fpc svneol=native#text/plain
|
lcl/interfaces/cocoa/Makefile.fpc svneol=native#text/plain
|
||||||
lcl/interfaces/cocoa/cocoaint.pas svneol=native#text/plain
|
lcl/interfaces/cocoa/cocoaint.pas svneol=native#text/plain
|
||||||
|
|||||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@ -1,242 +0,0 @@
|
|||||||
unit ObjCTemplate;
|
|
||||||
|
|
||||||
interface
|
|
||||||
|
|
||||||
{$ifdef fpc}{$mode delphi}{$h+}{$endif}
|
|
||||||
|
|
||||||
uses
|
|
||||||
Classes, SysUtils, ObjCParserTypes, ObjCParserUtils;
|
|
||||||
|
|
||||||
type
|
|
||||||
TTemplateList = class(TObject)
|
|
||||||
public
|
|
||||||
Params : TStringList;
|
|
||||||
SubLists : TList;
|
|
||||||
Owner : TTemplateList;
|
|
||||||
Name : AnsiString;
|
|
||||||
constructor Create(AOwner: TTemplateList);
|
|
||||||
destructor Destroy; override;
|
|
||||||
end;
|
|
||||||
|
|
||||||
TTemplateValues = class(TObject)
|
|
||||||
public
|
|
||||||
procedure ProcSpecial(const Special: AnsiString; var ReplaceText: AnsiString); virtual;
|
|
||||||
end;
|
|
||||||
|
|
||||||
TTemplateProc = class(TObject)
|
|
||||||
private
|
|
||||||
fTemplate : AnsiString;
|
|
||||||
|
|
||||||
fRoot : TTemplateList;
|
|
||||||
fStack : TList;
|
|
||||||
|
|
||||||
fValues : TTemplateValues;
|
|
||||||
fText : AnsiString;
|
|
||||||
|
|
||||||
protected
|
|
||||||
function CurrentList: TTEmplateList;
|
|
||||||
|
|
||||||
function GetReplace(const tmp: AnsiString; var AtIndex: Integer): AnsiString;
|
|
||||||
function ParseNextProc(var Proc: AnsiString; var idx: Integer): AnsiString;
|
|
||||||
|
|
||||||
procedure DoParse(var idx: Integer; const EndTmp: AnsiString);
|
|
||||||
public
|
|
||||||
function Parse(const Template: AnsiString; RootList: TTemplateList; AValues: TTemplateValues): AnsiString;
|
|
||||||
end;
|
|
||||||
|
|
||||||
|
|
||||||
TPascalValues = class(TTemplateValues)
|
|
||||||
private
|
|
||||||
fEndsCount : Integer;
|
|
||||||
|
|
||||||
ClassEnd : Boolean;
|
|
||||||
ClassSection : AnsiString;
|
|
||||||
public
|
|
||||||
procedure ProcSpecial(const Special: AnsiString; var ReplaceText: AnsiString); override;
|
|
||||||
end;
|
|
||||||
|
|
||||||
|
|
||||||
implementation
|
|
||||||
|
|
||||||
const
|
|
||||||
PreProcChar : AnsiChar = '%';
|
|
||||||
PreProcMark : TCharSet = ['%'];
|
|
||||||
|
|
||||||
function GetTmpParam(const temp: AnsiString; var i: Integer): AnsiString;
|
|
||||||
begin
|
|
||||||
ScanWhile(temp, i, [#13, #10, #32, #9]);
|
|
||||||
Result := ScanTo(temp, i, [#32, #9, #13, #10]);
|
|
||||||
end;
|
|
||||||
|
|
||||||
{ TTemplate }
|
|
||||||
|
|
||||||
function TTemplateProc.CurrentList: TTemplateList;
|
|
||||||
begin
|
|
||||||
Result := TTemplateList(fStack[fStack.Count-1])
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TTemplateProc.DoParse(var idx: Integer; const EndTmp: AnsiString);
|
|
||||||
var
|
|
||||||
prc : AnsiString;
|
|
||||||
isValue : Boolean;
|
|
||||||
t : AnsiString;
|
|
||||||
begin
|
|
||||||
while idx <= length(fTemplate) do begin
|
|
||||||
fText := fText + ParseNextProc(prc, idx);
|
|
||||||
isValue := false;
|
|
||||||
if (EndTmp <> '') and (prc = EndTmp) then Exit;
|
|
||||||
if prc = '' then Continue;
|
|
||||||
|
|
||||||
if prc[1] = '_' then begin
|
|
||||||
prc := Copy(prc, 2, length(prc)-1);
|
|
||||||
isValue := true;
|
|
||||||
end;
|
|
||||||
if prc = '' then Continue;
|
|
||||||
|
|
||||||
if isValue then begin
|
|
||||||
if Assigned(fValues) then begin
|
|
||||||
fValues.ProcSpecial(AnsiLowerCase(prc), t);
|
|
||||||
fText := fText + t
|
|
||||||
end;
|
|
||||||
end else begin
|
|
||||||
//inc(idx);
|
|
||||||
fText := fText + GetReplace(AnsiLowerCase(prc), idx);
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TTemplateProc.GetReplace(const tmp: AnsiString; var AtIndex: Integer): AnsiString;
|
|
||||||
var
|
|
||||||
i : Integer;
|
|
||||||
nm : AnsiString;
|
|
||||||
j : Integer;
|
|
||||||
l : TTemplateList;
|
|
||||||
ExitIndex:Integer;
|
|
||||||
idx : Integer;
|
|
||||||
begin
|
|
||||||
Result := '';
|
|
||||||
i := 1;
|
|
||||||
if AnsiLowerCase(GetTmpParam(tmp, i)) = 'foreach' then begin
|
|
||||||
nm := GetTmpParam(tmp, i);
|
|
||||||
ExitIndex := AtIndex;
|
|
||||||
for j := 0 to CurrentList.SubLists.Count - 1 do begin
|
|
||||||
l := TTemplateList(CurrentList.SubLists[j]);
|
|
||||||
idx := AtIndex;
|
|
||||||
if l.Name = nm then begin
|
|
||||||
fStack.Add(l);
|
|
||||||
DoParse(idx, 'end');
|
|
||||||
fStack.Delete(fStack.Count-1);
|
|
||||||
ExitIndex := idx;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
AtIndex := ExitIndex;
|
|
||||||
end else begin
|
|
||||||
Result := CurrentList.Params.Values[tmp];
|
|
||||||
end;
|
|
||||||
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TTemplateProc.Parse(const Template: String;
|
|
||||||
RootList: TTemplateList; AValues: TTemplateValues): AnsiString;
|
|
||||||
var
|
|
||||||
i : integer;
|
|
||||||
begin
|
|
||||||
fTemplate := Template;
|
|
||||||
fRoot := RootList;
|
|
||||||
fValues := AValues;
|
|
||||||
|
|
||||||
fStack := TList.Create;
|
|
||||||
try
|
|
||||||
i := 1;
|
|
||||||
fStack.Add(RootList);
|
|
||||||
DoParse(i, '');
|
|
||||||
finally
|
|
||||||
fStack.Free;
|
|
||||||
end;
|
|
||||||
|
|
||||||
Result := fText;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TTemplateProc.ParseNextProc(var Proc: string; var idx: Integer): AnsiString;
|
|
||||||
var
|
|
||||||
canQuit : Boolean;
|
|
||||||
begin
|
|
||||||
canQuit := false; // just don't like: repeat until false;
|
|
||||||
Result := '';
|
|
||||||
repeat
|
|
||||||
Result := Result + ScanTo(fTemplate, idx, PreProcMark);
|
|
||||||
|
|
||||||
if idx > length(fTemplate) then begin
|
|
||||||
Proc := '';
|
|
||||||
canQuit := true;
|
|
||||||
end else begin
|
|
||||||
if (idx < length(fTemplate)) and (fTemplate[idx+1] = PreProcChar) then begin
|
|
||||||
Result := Result + PreProcChar;
|
|
||||||
inc(idx,2);
|
|
||||||
end else begin
|
|
||||||
inc(idx);
|
|
||||||
Proc := ScanTo(fTemplate, idx, PreProcMark);
|
|
||||||
CanQuit := true;
|
|
||||||
inc(idx);
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
until canQuit;
|
|
||||||
|
|
||||||
end;
|
|
||||||
|
|
||||||
{ TTemplateList }
|
|
||||||
|
|
||||||
constructor TTemplateList.Create(AOwner: TTemplateList);
|
|
||||||
begin
|
|
||||||
Owner := AOwner;
|
|
||||||
SubLists := TList.Create;
|
|
||||||
Params := TStringList.Create;
|
|
||||||
end;
|
|
||||||
|
|
||||||
destructor TTemplateList.Destroy;
|
|
||||||
begin
|
|
||||||
SubLists.Free;
|
|
||||||
Params.Free;
|
|
||||||
inherited;
|
|
||||||
end;
|
|
||||||
|
|
||||||
{ TPascalValues }
|
|
||||||
|
|
||||||
procedure TPascalValues.ProcSpecial(const Special: AnsiString;
|
|
||||||
var ReplaceText: AnsiString);
|
|
||||||
begin
|
|
||||||
ReplaceText := '';
|
|
||||||
|
|
||||||
if (Special = 'pasprivate') or (Special = 'pasprotected') or (Special = 'paspublic') then begin
|
|
||||||
|
|
||||||
if ClassSection = '' then begin
|
|
||||||
ClassEnd := true;
|
|
||||||
inc(fEndsCount);
|
|
||||||
end;
|
|
||||||
|
|
||||||
if ClassSection <> Special then
|
|
||||||
ReplaceText := Copy(Special, 4, length(Special) - 3); //removed 'pas' prefix
|
|
||||||
ClassSection := Special;
|
|
||||||
|
|
||||||
end else if (Special = 'pasend') or (Special = 'pasend.') or (Special = 'pasend;')then begin
|
|
||||||
if fEndsCount > 0 then begin
|
|
||||||
ReplaceText := Copy(Special, 4, length(Special) - 3); //removed 'pas' prefix
|
|
||||||
dec(fEndsCount);
|
|
||||||
if classEnd then begin
|
|
||||||
classEnd := false;
|
|
||||||
ClassSection := '';
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
end;
|
|
||||||
|
|
||||||
{ TTemplateValues }
|
|
||||||
|
|
||||||
procedure TTemplateValues.ProcSpecial(const Special: AnsiString;
|
|
||||||
var ReplaceText: AnsiString);
|
|
||||||
begin
|
|
||||||
ReplaceText := '';
|
|
||||||
end;
|
|
||||||
|
|
||||||
end.
|
|
||||||
@ -1,95 +0,0 @@
|
|||||||
unit ObjCToPas;
|
|
||||||
{ * This file is part of ObjCParser tool
|
|
||||||
* Copyright (C) 2008-2009 by Dmitry Boyarintsev under the GNU LGPL
|
|
||||||
* license version 2.0 or 2.1. You should have received a copy of the
|
|
||||||
* LGPL license along with at http://www.gnu.org/
|
|
||||||
}
|
|
||||||
// the unit contains (should contain) lobjc to Pascal convertion utility routines
|
|
||||||
// todo: move all ObjCParserUtils functions here.
|
|
||||||
|
|
||||||
interface
|
|
||||||
|
|
||||||
{$ifdef fpc}{$mode delphi}{$h+}{$endif}
|
|
||||||
|
|
||||||
uses
|
|
||||||
SysUtils, ObjCParserTypes;
|
|
||||||
|
|
||||||
const
|
|
||||||
ObjCDefaultParamDelim = '_';
|
|
||||||
|
|
||||||
|
|
||||||
type
|
|
||||||
TCProcessor = class(TObject)
|
|
||||||
public
|
|
||||||
procedure ProcessTree(Root: TEntity); virtual; abstract;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function ObjCToPasMethodName(mtd: TClassMethodDef; CutLastDelims: Boolean = false; ParamDelim: AnsiChar = ObjCDefaultParamDelim): AnsiString;
|
|
||||||
function IsPascalReserved(const s: AnsiString): Boolean;
|
|
||||||
|
|
||||||
implementation
|
|
||||||
|
|
||||||
function ObjCToPasMethodName(mtd: TClassMethodDef; CutLastDelims: Boolean; ParamDelim: AnsiChar): AnsiString;
|
|
||||||
var
|
|
||||||
i : Integer;
|
|
||||||
obj : TObject;
|
|
||||||
begin
|
|
||||||
Result := mtd._Name;
|
|
||||||
for i := 0 to mtd.Items.Count - 1 do begin
|
|
||||||
obj := mtd.Items[i];
|
|
||||||
if not Assigned(obj) then Continue;
|
|
||||||
if obj is TParamDescr then begin
|
|
||||||
Result := Result + TParamDescr(obj)._Descr;
|
|
||||||
end else if obj is TObjCParameterDef then
|
|
||||||
Result := Result + ParamDelim;
|
|
||||||
end;
|
|
||||||
|
|
||||||
if CutLastDelims then begin
|
|
||||||
i := length(Result);
|
|
||||||
while (i > 0) and (Result[i] = ParamDelim) do dec(i);
|
|
||||||
Result := Copy(Result, 1, i);
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
// 'result' is considered reserved word!
|
|
||||||
function IsPascalReserved(const s: AnsiString): Boolean;
|
|
||||||
var
|
|
||||||
ls : AnsiString;
|
|
||||||
begin
|
|
||||||
//todo: a hash table should be used!
|
|
||||||
Result := false;
|
|
||||||
if s = '' then Exit;
|
|
||||||
ls := AnsiLowerCase(s);
|
|
||||||
case ls[1] of
|
|
||||||
'a': Result := (ls = 'absolute') or (ls = 'abstract') or (ls = 'and') or (ls = 'array') or (ls = 'as') or (ls= 'asm') or (ls = 'assembler');
|
|
||||||
'b': Result := (ls = 'begin') or (ls = 'break');
|
|
||||||
'c': Result := (ls = 'cdecl') or (ls = 'class') or (ls = 'const') or (ls = 'constructor') or (ls = 'continue') or (ls = 'cppclass');
|
|
||||||
'd': Result := (ls = 'deprecated') or (ls = 'destructor') or (ls = 'div') or (ls = 'do') or (ls = 'downto');
|
|
||||||
'e': Result := (ls = 'else') or (ls = 'end') or (ls = 'except') or (ls = 'exit') or (ls = 'export') or (ls = 'exports') or (ls = 'external');
|
|
||||||
'f': Result := (ls = 'fail') or (ls = 'false') or (ls = 'far') or (ls = 'file') or (ls = 'finally') or (ls = 'for') or (ls = 'forward') or (ls = 'function');
|
|
||||||
'g': Result := (ls = 'goto');
|
|
||||||
'i':
|
|
||||||
Result := (ls = 'if') or (ls = 'implementation') or (ls = 'in') or (ls = 'index') or (ls = 'inherited') or (ls = 'initialization') or (ls = 'inline')
|
|
||||||
or (ls = 'interface') or (ls = 'interrupt') or (ls = 'is');
|
|
||||||
'l': Result := (ls = 'label') or (ls = 'library');
|
|
||||||
'm': Result := (ls = 'mod');
|
|
||||||
'n': Result := {(ls = 'name') or} (ls = 'near') or (ls = 'nil') or (ls = 'not');
|
|
||||||
'o': Result := (ls = 'object') or (ls = 'of') or (ls = 'on') or (ls = 'operator') or (ls = 'or') or (ls = 'otherwise');
|
|
||||||
'p':
|
|
||||||
Result := (ls = 'packed') or (ls = 'popstack') or (ls = 'private') or (ls = 'procedure') or (ls = 'program') or (ls = 'property')
|
|
||||||
or (ls = 'protected') or (ls = 'public');
|
|
||||||
'r': Result := (ls = 'raise') or (ls = 'record') or (ls = 'reintroduce') or (ls = 'repeat') or (ls = 'result');
|
|
||||||
's': Result := (ls = 'self') or (ls = 'set') or (ls = 'shl') or (ls = 'shr') or (ls = 'stdcall') or (ls = 'string');
|
|
||||||
't': Result := (ls = 'then') or (ls = 'to') or (ls = 'true') or (ls = 'try') or (ls = 'type');
|
|
||||||
'u': Result := (ls = 'unimplemented') or (ls = 'unit') or (ls = 'until') or (ls = 'uses');
|
|
||||||
'v': Result := (ls = 'var') or (ls = 'virtual');
|
|
||||||
'w': Result := (ls = 'while') or (ls = 'with');
|
|
||||||
'x': Result := (ls = 'xor');
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
end.
|
|
||||||
@ -1,270 +0,0 @@
|
|||||||
[common]
|
|
||||||
ignoreincludes0=CoreFoundation/
|
|
||||||
ignoreincludes1=stdint.h setjmp.h stdarg.h stdbool.h limits.h stdarg.h
|
|
||||||
ignoreincludes2=AvailabilityMacros.h
|
|
||||||
ignoreincludes3=ApplicationServices/
|
|
||||||
ignoreincludes4=ApplicationServices/../FrameWorks/CoreGraphics.framework/Headers/
|
|
||||||
ignoreincludes5=AvailabilityMacros.h
|
|
||||||
|
|
||||||
[TypeReplace]
|
|
||||||
NSStringRef=CFStringRef
|
|
||||||
NSStringRef*=CFStringRef
|
|
||||||
NSArray=CFArrayRef
|
|
||||||
NSArray*=CFArrayRef
|
|
||||||
NSCharacterSet=CFCharacterSetRef
|
|
||||||
NSCharacterSet*=CFCharacterSetRef
|
|
||||||
NSData=CFDataRef
|
|
||||||
NSData*=CFDataRef
|
|
||||||
NSDate=CFDateRef
|
|
||||||
NSDate*=CFDateRef
|
|
||||||
NSDictionary=CFDictionaryRef
|
|
||||||
NSDictionary*=CFDictionaryRef
|
|
||||||
NSMutableArray=CFMutableArrayRef
|
|
||||||
NSMutableArray*=CFMutableArrayRef
|
|
||||||
NSMutableCharacterSetRef=CFMutableCharacterSetRef
|
|
||||||
NSMutableCharacterSetRef*=CFMutableCharacterSetRef
|
|
||||||
NSMutableData = CFMutableDataRef
|
|
||||||
NSMutableDictionary = CFMutableDictionaryRef
|
|
||||||
NSMutableSet = CFMutableSetRef
|
|
||||||
NSMutableString = CFMutableStringRef
|
|
||||||
NSNumber = CFNumberRef
|
|
||||||
NSInputStream = CFReadStreamRef
|
|
||||||
NSTimer= CFRunLoopTimerRef
|
|
||||||
NSSet= CFSetRef
|
|
||||||
NSString=CFStringRef
|
|
||||||
NSTimeZone= CFTimeZoneRef
|
|
||||||
NSURL= CFURLRef
|
|
||||||
NSOutputStream = CFWriteStreamRef
|
|
||||||
AEDesc*=AEDescPtr
|
|
||||||
NSMutableData*= CFMutableDataRef
|
|
||||||
NSMutableDictionary*= CFMutableDictionaryRef
|
|
||||||
NSMutableSet*= CFMutableSetRef
|
|
||||||
NSMutableString* = CFMutableStringRef
|
|
||||||
NSNumber* = CFNumberRef
|
|
||||||
NSInputStream*= CFReadStreamRef
|
|
||||||
NSTimer*= CFRunLoopTimerRef
|
|
||||||
NSSet*= CFSetRef
|
|
||||||
NSString*= CFStringRef
|
|
||||||
NSTimeZone*= CFTimeZoneRef
|
|
||||||
NSURL*= CFURLRef
|
|
||||||
NSOutputStream*= CFWriteStreamRef
|
|
||||||
|
|
||||||
[TypeDefs]
|
|
||||||
CGRect=struct
|
|
||||||
CGSize=struct
|
|
||||||
CGPoint=struct
|
|
||||||
CFTimeInterval=float
|
|
||||||
CGAffineTransform=struct
|
|
||||||
NSRect=struct
|
|
||||||
NSPoint=struct
|
|
||||||
NSSize=struct
|
|
||||||
NSRange=struct
|
|
||||||
NSTimeInterval=float
|
|
||||||
NSAffineTransformStruct=struct
|
|
||||||
|
|
||||||
NSAffineTransform=objcclass
|
|
||||||
NSAppleEventDescriptor=objcclass
|
|
||||||
NSAppleEventManager=objcclass
|
|
||||||
NSAppleScript=objcclass
|
|
||||||
NSArchiver=objcclass
|
|
||||||
NSUnarchiver=objcclass
|
|
||||||
NSObject=objcclass
|
|
||||||
NSArray=objcclass
|
|
||||||
NSMutableArray=objcclass
|
|
||||||
NSAttributedString=objcclass
|
|
||||||
NSMutableAttributedString=objcclass
|
|
||||||
NSAutoreleasePool=objcclass
|
|
||||||
NSBundle=objcclass
|
|
||||||
NSCalendar=objcclass
|
|
||||||
NSDateComponents=objcclass
|
|
||||||
NSCalendarDate=objcclass
|
|
||||||
NSDate=objcclass
|
|
||||||
NSCharacterSet=objcclass
|
|
||||||
NSMutableCharacterSet=objcclass
|
|
||||||
NSClassDescription=objcclass
|
|
||||||
NSCoder=objcclass
|
|
||||||
NSComparisonPredicate=objcclass
|
|
||||||
NSCompoundPredicate=objcclass
|
|
||||||
NSConnection=objcclass
|
|
||||||
NSDistantObjectRequest=objcclass
|
|
||||||
NSData=objcclass
|
|
||||||
NSMutableData=objcclass
|
|
||||||
NSDateFormatter=objcclass
|
|
||||||
NSDecimalNumber=objcclass
|
|
||||||
NSDecimalNumberHandler=objcclass
|
|
||||||
NSNumber=objcclass
|
|
||||||
NSScanner=objcclass
|
|
||||||
NSDictionary=objcclass
|
|
||||||
NSMutableDictionary=objcclass
|
|
||||||
NSDistantObject=objcclass
|
|
||||||
NSDistributedLock=objcclass
|
|
||||||
NSDistributedNotificationCenter=objcclass
|
|
||||||
NSEnumerator=objcclass
|
|
||||||
NSError=objcclass
|
|
||||||
NSException=objcclass
|
|
||||||
NSAssertionHandler=objcclass
|
|
||||||
NSExpression=objcclass
|
|
||||||
NSFileHandle=objcclass
|
|
||||||
NSPipe=objcclass
|
|
||||||
NSFileManager=objcclass
|
|
||||||
NSDirectoryEnumerator=objcclass
|
|
||||||
NSFormatter=objcclass
|
|
||||||
NSGarbageCollector=objcclass
|
|
||||||
NSValue=objcclass
|
|
||||||
NSHashTable=objcclass
|
|
||||||
NSHost=objcclass
|
|
||||||
NSHTTPCookie=objcclass
|
|
||||||
NSHTTPCookieStorage=objcclass
|
|
||||||
NSIndexPath=objcclass
|
|
||||||
NSIndexSet=objcclass
|
|
||||||
NSMutableIndexSet=objcclass
|
|
||||||
NSInvocation=objcclass
|
|
||||||
NSKeyedArchiver=objcclass
|
|
||||||
NSKeyedUnarchiver=objcclass
|
|
||||||
NSSet=objcclass
|
|
||||||
NSLocale=objcclass
|
|
||||||
NSLock=objcclass
|
|
||||||
NSConditionLock=objcclass
|
|
||||||
NSRecursiveLock=objcclass
|
|
||||||
NSCondition=objcclass
|
|
||||||
NSMapTable=objcclass
|
|
||||||
NSMetadataQuery=objcclass
|
|
||||||
NSMetadataItem=objcclass
|
|
||||||
NSMetadataQueryAttributeValueTuple=objcclass
|
|
||||||
NSMetadataQueryResultGroup=objcclass
|
|
||||||
NSMethodSignature=objcclass
|
|
||||||
NSNetService=objcclass
|
|
||||||
NSNetServiceBrowser=objcclass
|
|
||||||
NSNotification=objcclass
|
|
||||||
NSNotificationCenter=objcclass
|
|
||||||
NSNotificationQueue=objcclass
|
|
||||||
NSNull=objcclass
|
|
||||||
NSNumberFormatter=objcclass
|
|
||||||
NSOperation=objcclass
|
|
||||||
NSInvocationOperation=objcclass
|
|
||||||
NSOperationQueue=objcclass
|
|
||||||
NSString=objcclass
|
|
||||||
NSPointerArray=objcclass
|
|
||||||
NSPointerFunctions=objcclass
|
|
||||||
NSPort=objcclass
|
|
||||||
NSMachPort=objcclass
|
|
||||||
NSMessagePort=objcclass
|
|
||||||
NSSocketPort=objcclass
|
|
||||||
NSPortCoder=objcclass
|
|
||||||
NSPortMessage=objcclass
|
|
||||||
NSPortNameServer=objcclass
|
|
||||||
NSMachBootstrapServer=objcclass
|
|
||||||
NSMessagePortNameServer=objcclass
|
|
||||||
NSSocketPortNameServer=objcclass
|
|
||||||
NSPredicate=objcclass
|
|
||||||
NSMutableSet=objcclass
|
|
||||||
NSProcessInfo=objcclass
|
|
||||||
NSPropertyListSerialization=objcclass
|
|
||||||
NSProtocolChecker=objcclass
|
|
||||||
NSProxy=objcclass
|
|
||||||
NSRunLoop=objcclass
|
|
||||||
NSScriptClassDescription=objcclass
|
|
||||||
NSScriptCoercionHandler=objcclass
|
|
||||||
NSScriptCommand=objcclass
|
|
||||||
NSScriptCommandDescription=objcclass
|
|
||||||
NSScriptExecutionContext=objcclass
|
|
||||||
NSScriptObjectSpecifier=objcclass
|
|
||||||
NSIndexSpecifier=objcclass
|
|
||||||
NSMiddleSpecifier=objcclass
|
|
||||||
NSNameSpecifier=objcclass
|
|
||||||
NSPositionalSpecifier=objcclass
|
|
||||||
NSPropertySpecifier=objcclass
|
|
||||||
NSRandomSpecifier=objcclass
|
|
||||||
NSRangeSpecifier=objcclass
|
|
||||||
NSRelativeSpecifier=objcclass
|
|
||||||
NSUniqueIDSpecifier=objcclass
|
|
||||||
NSWhoseSpecifier=objcclass
|
|
||||||
NSCloneCommand=objcclass
|
|
||||||
NSCloseCommand=objcclass
|
|
||||||
NSCountCommand=objcclass
|
|
||||||
NSCreateCommand=objcclass
|
|
||||||
NSDeleteCommand=objcclass
|
|
||||||
NSExistsCommand=objcclass
|
|
||||||
NSGetCommand=objcclass
|
|
||||||
NSMoveCommand=objcclass
|
|
||||||
NSQuitCommand=objcclass
|
|
||||||
NSSetCommand=objcclass
|
|
||||||
NSScriptSuiteRegistry=objcclass
|
|
||||||
NSScriptWhoseTest=objcclass
|
|
||||||
NSLogicalTest=objcclass
|
|
||||||
NSSpecifierTest=objcclass
|
|
||||||
NSCountedSet=objcclass
|
|
||||||
NSSortDescriptor=objcclass
|
|
||||||
NSSpellServer=objcclass
|
|
||||||
NSStream=objcclass
|
|
||||||
NSInputStream=objcclass
|
|
||||||
NSOutputStream=objcclass
|
|
||||||
NSMutableString=objcclass
|
|
||||||
NSSimpleCString=objcclass
|
|
||||||
NSConstantString=objcclass
|
|
||||||
NSTask=objcclass
|
|
||||||
NSThread=objcclass
|
|
||||||
NSTimer=objcclass
|
|
||||||
NSTimeZone=objcclass
|
|
||||||
NSUndoManager=objcclass
|
|
||||||
NSURL=objcclass
|
|
||||||
NSURLAuthenticationChallenge=objcclass
|
|
||||||
NSCachedURLResponse=objcclass
|
|
||||||
NSURLCache=objcclass
|
|
||||||
NSURLConnection=objcclass
|
|
||||||
NSURLCredential=objcclass
|
|
||||||
NSURLCredentialStorage=objcclass
|
|
||||||
NSURLDownload=objcclass
|
|
||||||
NSURLHandle=objcclass
|
|
||||||
NSURLProtectionSpace=objcclass
|
|
||||||
NSURLProtocol=objcclass
|
|
||||||
NSURLRequest=objcclass
|
|
||||||
NSMutableURLRequest=objcclass
|
|
||||||
NSURLResponse=objcclass
|
|
||||||
NSHTTPURLResponse=objcclass
|
|
||||||
NSUserDefaults=objcclass
|
|
||||||
NSValueTransformer=objcclass
|
|
||||||
NSXMLDocument=objcclass
|
|
||||||
NSXMLDTD=objcclass
|
|
||||||
NSXMLDTDNode=objcclass
|
|
||||||
NSXMLElement=objcclass
|
|
||||||
NSXMLNode=objcclass
|
|
||||||
NSXMLParser=objcclass
|
|
||||||
|
|
||||||
[TokenReplace]
|
|
||||||
APPKIT_EXTERN=
|
|
||||||
AVAILABLE_MAC_OS_X_VERSION_10_1_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4=
|
|
||||||
AVAILABLE_MAC_OS_X_VERSION_10_1_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_5=
|
|
||||||
AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER=
|
|
||||||
AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED=
|
|
||||||
DEPRECATED_IN_MAC_OS_X_VERSION_10_0_AND_LATER=
|
|
||||||
AVAILABLE_MAC_OS_X_VERSION_10_1_AND_LATER=
|
|
||||||
AVAILABLE_MAC_OS_X_VERSION_10_1_AND_LATER_BUT_DEPRECATED=
|
|
||||||
AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_1=
|
|
||||||
DEPRECATED_IN_MAC_OS_X_VERSION_10_1_AND_LATER=
|
|
||||||
AVAILABLE_MAC_OS_X_VERSION_10_2_AND_LATER=
|
|
||||||
AVAILABLE_MAC_OS_X_VERSION_10_2_AND_LATER_BUT_DEPRECATED=
|
|
||||||
AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_2=
|
|
||||||
AVAILABLE_MAC_OS_X_VERSION_10_1_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_2=
|
|
||||||
DEPRECATED_IN_MAC_OS_X_VERSION_10_2_AND_LATER=
|
|
||||||
AVAILABLE_MAC_OS_X_VERSION_10_3_AND_LATER=
|
|
||||||
AVAILABLE_MAC_OS_X_VERSION_10_3_AND_LATER_BUT_DEPRECATED=
|
|
||||||
AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_3=
|
|
||||||
AVAILABLE_MAC_OS_X_VERSION_10_1_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_3=
|
|
||||||
AVAILABLE_MAC_OS_X_VERSION_10_2_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_3=
|
|
||||||
DEPRECATED_IN_MAC_OS_X_VERSION_10_3_AND_LATER=
|
|
||||||
AVAILABLE_MAC_OS_X_VERSION_10_4_AND_LATER=
|
|
||||||
AVAILABLE_MAC_OS_X_VERSION_10_4_AND_LATER_BUT_DEPRECATED=
|
|
||||||
AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4=
|
|
||||||
AVAILABLE_MAC_OS_X_VERSION_10_1_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4=
|
|
||||||
AVAILABLE_MAC_OS_X_VERSION_10_2_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4=
|
|
||||||
AVAILABLE_MAC_OS_X_VERSION_10_3_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4=
|
|
||||||
DEPRECATED_IN_MAC_OS_X_VERSION_10_4_AND_LATER=
|
|
||||||
AVAILABLE_MAC_OS_X_VERSION_10_5_AND_LATER=
|
|
||||||
AVAILABLE_MAC_OS_X_VERSION_10_5_AND_LATER_BUT_DEPRECATED=
|
|
||||||
AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_5=
|
|
||||||
AVAILABLE_MAC_OS_X_VERSION_10_1_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_5=
|
|
||||||
AVAILABLE_MAC_OS_X_VERSION_10_2_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_5=
|
|
||||||
AVAILABLE_MAC_OS_X_VERSION_10_3_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_5=
|
|
||||||
AVAILABLE_MAC_OS_X_VERSION_10_4_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_5=
|
|
||||||
DEPRECATED_IN_MAC_OS_X_VERSION_10_5_AND_LATER=
|
|
||||||
@ -1,70 +0,0 @@
|
|||||||
{ * This file is part of ObjCParser tool
|
|
||||||
* Copyright (C) 2008-2009 by Dmitry Boyarintsev under the GNU LGPL
|
|
||||||
* license version 2.0 or 2.1. You should have received a copy of the
|
|
||||||
* LGPL license along with at http://www.gnu.org/
|
|
||||||
}
|
|
||||||
|
|
||||||
unit gnuccFeatures;
|
|
||||||
|
|
||||||
{list of GNU CC features, that might be found at header files
|
|
||||||
it's extermly possible that these language and precomipler features
|
|
||||||
are not to be compatible with MS C/C++ header files }
|
|
||||||
|
|
||||||
interface
|
|
||||||
|
|
||||||
{$ifdef fpc}{$mode delphi}{$h+}{$endif}
|
|
||||||
|
|
||||||
uses
|
|
||||||
ObjCParserTypes;
|
|
||||||
|
|
||||||
type
|
|
||||||
TAttribute = class(TEntity)
|
|
||||||
protected
|
|
||||||
function DoParse(AParser: TTextParser): Boolean; override;
|
|
||||||
public
|
|
||||||
Expression : AnsiString;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function ParseAttribute(Parent: TEntity; Parser: TTextParser): TEntity;
|
|
||||||
|
|
||||||
implementation
|
|
||||||
|
|
||||||
function ParseAttribute(Parent: TEntity; Parser: TTextParser): TEntity;
|
|
||||||
var
|
|
||||||
attr : TAttribute;
|
|
||||||
begin
|
|
||||||
attr := TAttribute.Create(nil);
|
|
||||||
try
|
|
||||||
if attr.Parse(Parser) then begin
|
|
||||||
Parent.Items.Add(attr);
|
|
||||||
attr.owner := Parent;
|
|
||||||
Result:=attr;
|
|
||||||
end else begin
|
|
||||||
attr.Free;
|
|
||||||
Result := nil;
|
|
||||||
end;
|
|
||||||
finally
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
{ TAttribute }
|
|
||||||
|
|
||||||
function TAttribute.DoParse(AParser: TTextParser): Boolean;
|
|
||||||
var
|
|
||||||
s : string;
|
|
||||||
tt : TTokenType;
|
|
||||||
begin
|
|
||||||
Result := AParser.FindNextToken(s, tt);
|
|
||||||
|
|
||||||
if not Result or (s <> '__attribute__') then begin
|
|
||||||
Result := false;
|
|
||||||
Exit;
|
|
||||||
end;
|
|
||||||
Expression := ParseSeq(AParser, '(', ')');
|
|
||||||
Result := true;
|
|
||||||
end;
|
|
||||||
|
|
||||||
initialization
|
|
||||||
RegisterEntity( @ParseAttribute);
|
|
||||||
|
|
||||||
end.
|
|
||||||
@ -1,212 +0,0 @@
|
|||||||
<?xml version="1.0"?>
|
|
||||||
<CONFIG>
|
|
||||||
<ProjectOptions>
|
|
||||||
<PathDelim Value="\"/>
|
|
||||||
<Version Value="7"/>
|
|
||||||
<General>
|
|
||||||
<Flags>
|
|
||||||
<MainUnitHasUsesSectionForAllUnits Value="False"/>
|
|
||||||
<MainUnitHasCreateFormStatements Value="False"/>
|
|
||||||
<MainUnitHasTitleStatement Value="False"/>
|
|
||||||
<LRSInOutputDirectory Value="False"/>
|
|
||||||
</Flags>
|
|
||||||
<MainUnit Value="0"/>
|
|
||||||
<TargetFileExt Value=""/>
|
|
||||||
<ActiveEditorIndexAtStart Value="2"/>
|
|
||||||
</General>
|
|
||||||
<VersionInfo>
|
|
||||||
<ProjectVersion Value=""/>
|
|
||||||
<Language Value=""/>
|
|
||||||
<CharSet Value=""/>
|
|
||||||
</VersionInfo>
|
|
||||||
<PublishOptions>
|
|
||||||
<Version Value="2"/>
|
|
||||||
<IgnoreBinaries Value="False"/>
|
|
||||||
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
|
|
||||||
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
|
|
||||||
</PublishOptions>
|
|
||||||
<RunParams>
|
|
||||||
<local>
|
|
||||||
<FormatVersion Value="1"/>
|
|
||||||
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
|
|
||||||
</local>
|
|
||||||
</RunParams>
|
|
||||||
<Units Count="4">
|
|
||||||
<Unit0>
|
|
||||||
<Filename Value="objcparser.pas"/>
|
|
||||||
<IsPartOfProject Value="True"/>
|
|
||||||
<UnitName Value="objcparser"/>
|
|
||||||
<CursorPos X="29" Y="24"/>
|
|
||||||
<TopLine Value="10"/>
|
|
||||||
<EditorIndex Value="0"/>
|
|
||||||
<UsageCount Value="26"/>
|
|
||||||
<Loaded Value="True"/>
|
|
||||||
</Unit0>
|
|
||||||
<Unit1>
|
|
||||||
<Filename Value="ObjCParserUtils.pas"/>
|
|
||||||
<UnitName Value="ObjCParserUtils"/>
|
|
||||||
<CursorPos X="37" Y="888"/>
|
|
||||||
<TopLine Value="880"/>
|
|
||||||
<EditorIndex Value="2"/>
|
|
||||||
<UsageCount Value="13"/>
|
|
||||||
<Loaded Value="True"/>
|
|
||||||
</Unit1>
|
|
||||||
<Unit2>
|
|
||||||
<Filename Value="ObjCParserTypes.pas"/>
|
|
||||||
<UnitName Value="ObjCParserTypes"/>
|
|
||||||
<CursorPos X="18" Y="503"/>
|
|
||||||
<TopLine Value="503"/>
|
|
||||||
<EditorIndex Value="3"/>
|
|
||||||
<UsageCount Value="13"/>
|
|
||||||
<Loaded Value="True"/>
|
|
||||||
</Unit2>
|
|
||||||
<Unit3>
|
|
||||||
<Filename Value="gnuccFeatures.pas"/>
|
|
||||||
<UnitName Value="gnuccFeatures"/>
|
|
||||||
<CursorPos X="1" Y="1"/>
|
|
||||||
<TopLine Value="1"/>
|
|
||||||
<EditorIndex Value="1"/>
|
|
||||||
<UsageCount Value="10"/>
|
|
||||||
<Loaded Value="True"/>
|
|
||||||
</Unit3>
|
|
||||||
</Units>
|
|
||||||
<JumpHistory Count="30" HistoryIndex="29">
|
|
||||||
<Position1>
|
|
||||||
<Filename Value="ObjCParserUtils.pas"/>
|
|
||||||
<Caret Line="1834" Column="30" TopLine="1824"/>
|
|
||||||
</Position1>
|
|
||||||
<Position2>
|
|
||||||
<Filename Value="ObjCParserUtils.pas"/>
|
|
||||||
<Caret Line="7" Column="1" TopLine="1"/>
|
|
||||||
</Position2>
|
|
||||||
<Position3>
|
|
||||||
<Filename Value="ObjCParserUtils.pas"/>
|
|
||||||
<Caret Line="1171" Column="8" TopLine="1139"/>
|
|
||||||
</Position3>
|
|
||||||
<Position4>
|
|
||||||
<Filename Value="ObjCParserUtils.pas"/>
|
|
||||||
<Caret Line="1" Column="1" TopLine="1"/>
|
|
||||||
</Position4>
|
|
||||||
<Position5>
|
|
||||||
<Filename Value="ObjCParserUtils.pas"/>
|
|
||||||
<Caret Line="144" Column="138" TopLine="128"/>
|
|
||||||
</Position5>
|
|
||||||
<Position6>
|
|
||||||
<Filename Value="ObjCParserTypes.pas"/>
|
|
||||||
<Caret Line="293" Column="14" TopLine="283"/>
|
|
||||||
</Position6>
|
|
||||||
<Position7>
|
|
||||||
<Filename Value="ObjCParserTypes.pas"/>
|
|
||||||
<Caret Line="1" Column="1" TopLine="1"/>
|
|
||||||
</Position7>
|
|
||||||
<Position8>
|
|
||||||
<Filename Value="ObjCParserTypes.pas"/>
|
|
||||||
<Caret Line="284" Column="9" TopLine="274"/>
|
|
||||||
</Position8>
|
|
||||||
<Position9>
|
|
||||||
<Filename Value="ObjCParserTypes.pas"/>
|
|
||||||
<Caret Line="1" Column="1" TopLine="1"/>
|
|
||||||
</Position9>
|
|
||||||
<Position10>
|
|
||||||
<Filename Value="ObjCParserTypes.pas"/>
|
|
||||||
<Caret Line="284" Column="9" TopLine="274"/>
|
|
||||||
</Position10>
|
|
||||||
<Position11>
|
|
||||||
<Filename Value="ObjCParserTypes.pas"/>
|
|
||||||
<Caret Line="285" Column="9" TopLine="274"/>
|
|
||||||
</Position11>
|
|
||||||
<Position12>
|
|
||||||
<Filename Value="objcparser.pas"/>
|
|
||||||
<Caret Line="17" Column="18" TopLine="1"/>
|
|
||||||
</Position12>
|
|
||||||
<Position13>
|
|
||||||
<Filename Value="ObjCParserUtils.pas"/>
|
|
||||||
<Caret Line="1754" Column="3" TopLine="1751"/>
|
|
||||||
</Position13>
|
|
||||||
<Position14>
|
|
||||||
<Filename Value="ObjCParserTypes.pas"/>
|
|
||||||
<Caret Line="422" Column="12" TopLine="412"/>
|
|
||||||
</Position14>
|
|
||||||
<Position15>
|
|
||||||
<Filename Value="ObjCParserTypes.pas"/>
|
|
||||||
<Caret Line="5" Column="18" TopLine="1"/>
|
|
||||||
</Position15>
|
|
||||||
<Position16>
|
|
||||||
<Filename Value="ObjCParserTypes.pas"/>
|
|
||||||
<Caret Line="16" Column="1" TopLine="11"/>
|
|
||||||
</Position16>
|
|
||||||
<Position17>
|
|
||||||
<Filename Value="ObjCParserTypes.pas"/>
|
|
||||||
<Caret Line="117" Column="29" TopLine="107"/>
|
|
||||||
</Position17>
|
|
||||||
<Position18>
|
|
||||||
<Filename Value="ObjCParserUtils.pas"/>
|
|
||||||
<Caret Line="54" Column="34" TopLine="46"/>
|
|
||||||
</Position18>
|
|
||||||
<Position19>
|
|
||||||
<Filename Value="ObjCParserUtils.pas"/>
|
|
||||||
<Caret Line="124" Column="5" TopLine="93"/>
|
|
||||||
</Position19>
|
|
||||||
<Position20>
|
|
||||||
<Filename Value="ObjCParserUtils.pas"/>
|
|
||||||
<Caret Line="1" Column="1" TopLine="1"/>
|
|
||||||
</Position20>
|
|
||||||
<Position21>
|
|
||||||
<Filename Value="ObjCParserUtils.pas"/>
|
|
||||||
<Caret Line="159" Column="143" TopLine="143"/>
|
|
||||||
</Position21>
|
|
||||||
<Position22>
|
|
||||||
<Filename Value="ObjCParserUtils.pas"/>
|
|
||||||
<Caret Line="838" Column="36" TopLine="822"/>
|
|
||||||
</Position22>
|
|
||||||
<Position23>
|
|
||||||
<Filename Value="ObjCParserUtils.pas"/>
|
|
||||||
<Caret Line="880" Column="51" TopLine="872"/>
|
|
||||||
</Position23>
|
|
||||||
<Position24>
|
|
||||||
<Filename Value="ObjCParserUtils.pas"/>
|
|
||||||
<Caret Line="1" Column="1" TopLine="1"/>
|
|
||||||
</Position24>
|
|
||||||
<Position25>
|
|
||||||
<Filename Value="ObjCParserUtils.pas"/>
|
|
||||||
<Caret Line="151" Column="1" TopLine="143"/>
|
|
||||||
</Position25>
|
|
||||||
<Position26>
|
|
||||||
<Filename Value="ObjCParserUtils.pas"/>
|
|
||||||
<Caret Line="159" Column="143" TopLine="143"/>
|
|
||||||
</Position26>
|
|
||||||
<Position27>
|
|
||||||
<Filename Value="ObjCParserUtils.pas"/>
|
|
||||||
<Caret Line="838" Column="36" TopLine="822"/>
|
|
||||||
</Position27>
|
|
||||||
<Position28>
|
|
||||||
<Filename Value="ObjCParserUtils.pas"/>
|
|
||||||
<Caret Line="888" Column="26" TopLine="872"/>
|
|
||||||
</Position28>
|
|
||||||
<Position29>
|
|
||||||
<Filename Value="ObjCParserUtils.pas"/>
|
|
||||||
<Caret Line="1" Column="1" TopLine="1"/>
|
|
||||||
</Position29>
|
|
||||||
<Position30>
|
|
||||||
<Filename Value="ObjCParserUtils.pas"/>
|
|
||||||
<Caret Line="159" Column="143" TopLine="143"/>
|
|
||||||
</Position30>
|
|
||||||
</JumpHistory>
|
|
||||||
</ProjectOptions>
|
|
||||||
<CompilerOptions>
|
|
||||||
<Version Value="8"/>
|
|
||||||
<Other>
|
|
||||||
<CompilerPath Value="$(CompPath)"/>
|
|
||||||
</Other>
|
|
||||||
</CompilerOptions>
|
|
||||||
<Debugging>
|
|
||||||
<Exceptions Count="2">
|
|
||||||
<Item1>
|
|
||||||
<Name Value="ECodetoolError"/>
|
|
||||||
</Item1>
|
|
||||||
<Item2>
|
|
||||||
<Name Value="EFOpenError"/>
|
|
||||||
</Item2>
|
|
||||||
</Exceptions>
|
|
||||||
</Debugging>
|
|
||||||
</CONFIG>
|
|
||||||
@ -1,611 +0,0 @@
|
|||||||
{ * This file is part of ObjCParser tool
|
|
||||||
* Copyright (C) 2008-2009 by Dmitry Boyarintsev under the GNU LGPL
|
|
||||||
* license version 2.0 or 2.1. You should have received a copy of the
|
|
||||||
* LGPL license along with at http://www.gnu.org/
|
|
||||||
}
|
|
||||||
|
|
||||||
program objcparser;
|
|
||||||
|
|
||||||
{$ifdef fpc}
|
|
||||||
{$mode delphi}{$H+}
|
|
||||||
{$else}
|
|
||||||
{$APPTYPE CONSOLE}
|
|
||||||
{$warn unsafe_code off}
|
|
||||||
{$warn unsafe_type off}
|
|
||||||
{$warn unsafe_cast off}
|
|
||||||
{$endif}
|
|
||||||
|
|
||||||
uses
|
|
||||||
Classes,
|
|
||||||
IniFiles,
|
|
||||||
SysUtils,
|
|
||||||
ObjCParserUtils,
|
|
||||||
ObjCParserTypes,
|
|
||||||
ObjCTemplate,
|
|
||||||
gnuccFeatures;
|
|
||||||
|
|
||||||
type
|
|
||||||
// this object is used only for precomile directives handling
|
|
||||||
|
|
||||||
{ TPrecompileHandler }
|
|
||||||
TPrecompileHandler = class(TObject)
|
|
||||||
public
|
|
||||||
hdr : TObjCHeader;
|
|
||||||
procedure OnPrecompile(Sender: TObject; Precomp: TObject);
|
|
||||||
procedure OnComment(Sender: TObject; const Comment: AnsiString);
|
|
||||||
constructor Create(AHeader: TObjCHeader);
|
|
||||||
end;
|
|
||||||
|
|
||||||
var
|
|
||||||
updIni : AnsiString = '';
|
|
||||||
doOutput : Boolean = false;
|
|
||||||
doparseAll : Boolean = false;
|
|
||||||
|
|
||||||
const
|
|
||||||
TokenReplaceSec = 'TokenReplace';
|
|
||||||
TypeDefsSec = 'TypeDefs';
|
|
||||||
TypeReplaceSec = 'TypeReplace';
|
|
||||||
IgnoreIncludesSec = 'IgnoreIncludes';
|
|
||||||
CommonSec = 'Common';
|
|
||||||
|
|
||||||
function FindMax(const c: array of Integer; len: Integer): Integer;
|
|
||||||
var
|
|
||||||
i : integer;
|
|
||||||
mn : Integer;
|
|
||||||
begin
|
|
||||||
Result := -1;
|
|
||||||
if len = 0 then Exit;
|
|
||||||
|
|
||||||
mn := 0;
|
|
||||||
for i := 1 to len - 1 do begin
|
|
||||||
if c[i] < c[mn] then mn := i;
|
|
||||||
end;
|
|
||||||
Result := mn;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TPrecompileHandler.OnPrecompile(Sender: TObject; Precomp: TObject);
|
|
||||||
var
|
|
||||||
parser : TTextParser;
|
|
||||||
preEntity : TPrecompiler;
|
|
||||||
lst : TEntity;
|
|
||||||
prc : TPrecompilerEvent;
|
|
||||||
begin
|
|
||||||
parser := Sender as TTextParser;
|
|
||||||
//todo: change for something nicier =)
|
|
||||||
prc := parser.OnPrecompile;
|
|
||||||
parser.OnPrecompile := nil;
|
|
||||||
try
|
|
||||||
if parser.Stack.Count > 0 then
|
|
||||||
lst := TEntity(parser.Stack[parser.Stack.Count-1])
|
|
||||||
else
|
|
||||||
lst := nil;
|
|
||||||
|
|
||||||
preEntity := TPrecompiler.Create(lst);
|
|
||||||
preEntity.Parse(parser);
|
|
||||||
lst.Items.Add(preEntity);
|
|
||||||
finally
|
|
||||||
parser.OnPrecompile := prc;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TPrecompileHandler.OnComment(Sender: TObject; const Comment: AnsiString);
|
|
||||||
var
|
|
||||||
parser : TTextParser;
|
|
||||||
cmt : TComment;
|
|
||||||
ent : TEntity;
|
|
||||||
begin
|
|
||||||
if length(Comment) < 2 then Exit;
|
|
||||||
parser := TTextParser(Sender);
|
|
||||||
|
|
||||||
if parser.Stack.Count > 0
|
|
||||||
then ent := TEntity(parser.Stack[parser.Stack.Count-1])
|
|
||||||
else ent := nil;
|
|
||||||
|
|
||||||
if not Assigned(ent) then Exit;
|
|
||||||
cmt := TComment.Create(ent);
|
|
||||||
cmt._Comment := Comment;
|
|
||||||
if IsSubStr('/*', cmt._Comment, 1) then begin
|
|
||||||
cmt._Comment[1] := '(';
|
|
||||||
if isSubStr('*/', cmt._Comment, length(cmt._Comment) - 1) then
|
|
||||||
cmt._Comment[ length(cmt._Comment)] := ')';
|
|
||||||
end;
|
|
||||||
ent.Items.Add(cmt);
|
|
||||||
end;
|
|
||||||
|
|
||||||
constructor TPrecompileHandler.Create(AHeader: TObjCHeader);
|
|
||||||
begin
|
|
||||||
hdr := AHeader;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure UpdateIniWithEntity(Sets: TConvertSettings; Ini: TIniFile; Entity: TEntity);
|
|
||||||
var
|
|
||||||
cnv : AnsiString;
|
|
||||||
i : Integer;
|
|
||||||
begin
|
|
||||||
if Entity is TClassDef then begin
|
|
||||||
Ini.WriteString(TypeDefsSec, TClassDef(Entity)._ClassName, 'objcclass');
|
|
||||||
end else if Entity is TEntityStruct then begin
|
|
||||||
Ini.WriteString(TypeDefsSec, TEntityStruct(Entity)._Name, 'struct');
|
|
||||||
end else if Entity is TTypeNameDef then begin
|
|
||||||
if Assigned(Sets) then begin
|
|
||||||
cnv := AnsiLowerCase(ObjCToDelphiType(TTypeNameDef(Entity)._Inherited, false ));
|
|
||||||
if (cnv = 'float') or (cnv = 'double') then
|
|
||||||
Ini.WriteString(TypeDefsSec, TTypeNameDef(Entity)._TypeName, 'float')
|
|
||||||
else if (cnv = 'Int64') then
|
|
||||||
Ini.WriteString(TypeDefsSec, TTypeNameDef(Entity)._TypeName, 'struct')
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
for i := 0 to Entity.Items.Count - 1 do
|
|
||||||
UpdateIniWithEntity(Sets, Ini, Entity.Items[i]);
|
|
||||||
end;
|
|
||||||
|
|
||||||
function ReadAndParseFile(const FileName: AnsiString; outdata: TStrings; var Err: AnsiString): Boolean;
|
|
||||||
var
|
|
||||||
hdr : TObjCHeader;
|
|
||||||
parser : TTextParser;
|
|
||||||
prec : TPrecompileHandler ;
|
|
||||||
s : AnsiString;
|
|
||||||
i, cnt : integer;
|
|
||||||
upini : TIniFile;
|
|
||||||
|
|
||||||
repl : TStringList;
|
|
||||||
begin
|
|
||||||
Result :=false;
|
|
||||||
if not FileExists(FileName) then begin
|
|
||||||
Err := 'File not found: ' + FileName;
|
|
||||||
Exit;
|
|
||||||
end;
|
|
||||||
|
|
||||||
s := StrFromFile(FileName);
|
|
||||||
hdr := TObjCHeader.Create;
|
|
||||||
prec := TPrecompileHandler.Create(hdr);
|
|
||||||
parser := CreateCParser(s, true);
|
|
||||||
try
|
|
||||||
repl := TStringList.Create;
|
|
||||||
ConvertSettings.TokenReplace.GetReplaces(repl);
|
|
||||||
for i := 0 to repl.Count - 1 do begin
|
|
||||||
TCMacroHandler(parser.MacroHandler).AddSimpleMacro(repl.Names[i], repl.ValueFromIndex[i]);
|
|
||||||
end;
|
|
||||||
parser.Buf := s;
|
|
||||||
try
|
|
||||||
parser.UsePrecompileEntities := false;
|
|
||||||
parser.UseCommentEntities := false;
|
|
||||||
parser.OnPrecompile := prec.OnPrecompile;
|
|
||||||
parser.OnComment := prec.OnComment;
|
|
||||||
|
|
||||||
{for i := 0 to repl.Count - 1 do begin
|
|
||||||
TCMacroHandler(parser.MacroHandler).AddSimpleMacro(
|
|
||||||
ConvertSettings.IgnoreTokens[i], '');
|
|
||||||
//parser.IgnoreTokens.AddStrings(ConvertSettings.IgnoreTokens);
|
|
||||||
end;}
|
|
||||||
|
|
||||||
hdr._FileName := ExtractFileName(FileName);
|
|
||||||
Result := hdr.Parse(parser);
|
|
||||||
if not Result then begin
|
|
||||||
if parser.Errors.Count > 0 then Err := parser.Errors[0]
|
|
||||||
else Err := 'undesribed error';
|
|
||||||
|
|
||||||
Err := Err + #13#10;
|
|
||||||
cnt := 120;
|
|
||||||
i := parser.Index - cnt;
|
|
||||||
if i <= 0 then begin
|
|
||||||
i := 1;
|
|
||||||
cnt := parser.Index;
|
|
||||||
end;
|
|
||||||
Err := Err + Copy(parser.Buf, i, cnt);
|
|
||||||
end;
|
|
||||||
|
|
||||||
except
|
|
||||||
end;
|
|
||||||
|
|
||||||
if updIni <> '' then begin
|
|
||||||
upIni := TIniFile.Create(updIni);
|
|
||||||
try
|
|
||||||
UpdateIniWithEntity(ConvertSettings, upIni, hdr);
|
|
||||||
finally
|
|
||||||
upIni.Free;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
WriteOutIncludeFile(hdr, outdata);
|
|
||||||
finally
|
|
||||||
parser.TokenTable.Free;
|
|
||||||
parser.Free;
|
|
||||||
prec.Free;
|
|
||||||
//FreeEntity(hdr);
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure ParseAll;
|
|
||||||
var
|
|
||||||
// ch : char;
|
|
||||||
srch : TSearchRec;
|
|
||||||
res : Integer;
|
|
||||||
i : Integer;
|
|
||||||
pth : AnsiString;
|
|
||||||
incs : AnsiString;
|
|
||||||
st : TStringList;
|
|
||||||
f : Text;
|
|
||||||
err : AnsiString;
|
|
||||||
begin
|
|
||||||
{ err := '';
|
|
||||||
writeln('would you like to parse all current directory files .h to inc?');
|
|
||||||
readln(ch);
|
|
||||||
if (ch <> 'Y') and (ch <> 'y') then begin
|
|
||||||
writeln('as you wish, bye!');
|
|
||||||
Exit;
|
|
||||||
end;}
|
|
||||||
|
|
||||||
pth := IncludeTrailingPathDelimiter( GetCurrentDir);
|
|
||||||
res := FindFirst(pth + '*.h', -1, srch);
|
|
||||||
if res = 0 then begin
|
|
||||||
st := TStringList.Create;
|
|
||||||
try
|
|
||||||
repeat
|
|
||||||
write('found: ', srch.Name);
|
|
||||||
write(' parsing...');
|
|
||||||
//writeln('parsing: ', pth+srch.Name);
|
|
||||||
if ReadAndParseFile(pth+srch.Name, st, err) then begin
|
|
||||||
write(' parsed ');
|
|
||||||
incs := pth + Copy(srch.Name,1, length(srch.Name) - length(ExtractFileExt(srch.Name)));
|
|
||||||
incs := incs + '.inc';
|
|
||||||
//writeln(incs);
|
|
||||||
if doOutput then begin
|
|
||||||
assignfile(f, incs); rewrite(f);
|
|
||||||
try
|
|
||||||
for i := 0 to st.Count - 1 do
|
|
||||||
writeln(f, st[i]);
|
|
||||||
finally
|
|
||||||
closefile(f);
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
st.Clear;
|
|
||||||
end else begin
|
|
||||||
end;
|
|
||||||
until FindNext(srch) <> 0;
|
|
||||||
|
|
||||||
finally
|
|
||||||
FindClose(srch);
|
|
||||||
st.Free;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
const
|
|
||||||
ParamKey = '-';
|
|
||||||
|
|
||||||
function isParamValue(const s: AnsiString; var ParName, ParValue: AnsiString): Boolean;
|
|
||||||
var
|
|
||||||
i : Integer;
|
|
||||||
begin
|
|
||||||
Result := false;
|
|
||||||
if s = '' then Exit;
|
|
||||||
Result := (s[1] = ParamKey);
|
|
||||||
if not Result then Exit;
|
|
||||||
i := 1;
|
|
||||||
ScanWhile(s, i, [ParamKey]);
|
|
||||||
ParName := ScanTo(s, i, [#32, #9, '=']);
|
|
||||||
ScanWhile(s, i, [#32, #9, '=']);
|
|
||||||
ParValue := Copy(s, i, length(s) - i + 1);
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure AddSpaceSeparated(const s: AnsiString; Strings: TStringList);
|
|
||||||
var
|
|
||||||
i : Integer;
|
|
||||||
ns : AnsiString;
|
|
||||||
begin
|
|
||||||
i := 1;
|
|
||||||
while i <= length(s) do begin
|
|
||||||
ScanTo(s, i, ['A'..'Z', 'a'..'z']);
|
|
||||||
ns := ScanTo(s, i, [#32, #9, '"']);
|
|
||||||
if ns <> '' then Strings.Add(ns);
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
|
|
||||||
function isNameofPointer(const name: AnsiString): Boolean;
|
|
||||||
begin
|
|
||||||
Result := false;
|
|
||||||
if name = '' then Exit;
|
|
||||||
Result := name[length(name)] = '*';
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure ReadIniFile(Settings: TConvertSettings; const FileName: AnsiString);
|
|
||||||
var
|
|
||||||
ini : TIniFile;
|
|
||||||
values : TStringList;
|
|
||||||
a, b : AnsiString;
|
|
||||||
i : Integer;
|
|
||||||
IniName : AnsiString;
|
|
||||||
begin
|
|
||||||
// uikit.ini
|
|
||||||
if not FileExists(FileName) then begin
|
|
||||||
Exit;
|
|
||||||
end;
|
|
||||||
{$ifndef fpc}
|
|
||||||
if ExtractFileName(FileName) = FileName then
|
|
||||||
IniName := IncludeTrailingPathDelimiter( GetCurrentDir) + FileName
|
|
||||||
else
|
|
||||||
IniName := FileName;
|
|
||||||
{$else}
|
|
||||||
IniName := FileName;
|
|
||||||
{$endif}
|
|
||||||
ini := TIniFile.Create(IniName);
|
|
||||||
values := TStringList.Create;
|
|
||||||
try
|
|
||||||
values.Clear;
|
|
||||||
{ ini.ReadSection('TypeReplace', values);
|
|
||||||
for i := 0 to values.Count - 1 do begin
|
|
||||||
a := values.ValueFromIndex[i];
|
|
||||||
b := values.Values[a];
|
|
||||||
if b <> '' then begin
|
|
||||||
ense
|
|
||||||
Settings.TypeDefReplace[a] := b;
|
|
||||||
end;}
|
|
||||||
|
|
||||||
//[Common]
|
|
||||||
values.Clear;
|
|
||||||
a := ini.ReadString(CommonSec, 'mainunit', '');
|
|
||||||
if a <> '' then begin
|
|
||||||
b := '{%mainunit '+ a + '}';
|
|
||||||
for i := 0 to ConvertSettings.ConvertPrefix.Count - 1 do
|
|
||||||
if Pos(ConvertSettings.ConvertPrefix[i], '{%mainunit') = 1 then begin
|
|
||||||
ConvertSettings.ConvertPrefix[i] := b;
|
|
||||||
a := '';
|
|
||||||
Break;
|
|
||||||
end;
|
|
||||||
if a <> '' then
|
|
||||||
ConvertSettings.ConvertPrefix.Add(b);
|
|
||||||
end;
|
|
||||||
|
|
||||||
a := ini.ReadString(CommonSec, 'ignoreincludes', '');
|
|
||||||
ini.ReadSection('Common', values);
|
|
||||||
for i := 0 to values.Count - 1 do begin
|
|
||||||
if Pos('ignoreincludes', values[i]) = 1 then begin
|
|
||||||
b := ini.ReadString(CommonSec,values[i], '');
|
|
||||||
AddSpaceSeparated(b, ConvertSettings.IgnoreIncludes);
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
{ini.ReadSectionValues(IgnoreIncludesSec, values);
|
|
||||||
for i := 0 to values.Count - 1 do begin
|
|
||||||
ConvertSettings.IgnoreIncludes.AddStrings(values);
|
|
||||||
end;}
|
|
||||||
|
|
||||||
// [TokenReplace]
|
|
||||||
Values.Clear;
|
|
||||||
ini.ReadSection(TokenReplaceSec, values);
|
|
||||||
for i := 0 to values.Count - 1 do begin
|
|
||||||
a := Values[i];
|
|
||||||
b := ini.ReadString(TokenReplaceSec, a, '');
|
|
||||||
{if b ='' then
|
|
||||||
Settings.IgnoreTokens.Add(a)
|
|
||||||
else}
|
|
||||||
Settings.TokenReplace[a] := b;
|
|
||||||
end;
|
|
||||||
|
|
||||||
// [TypeReplace]
|
|
||||||
values.Clear;
|
|
||||||
ini.ReadSection(TypeDefsSec, values);
|
|
||||||
for i := 0 to values.Count - 1 do begin
|
|
||||||
a := Values[i];
|
|
||||||
b := AnsiLowerCase(ini.ReadString(TypeDefsSec, a, ''));
|
|
||||||
if b = 'objcclass' then
|
|
||||||
Settings.ObjCClassTypes.Add(a)
|
|
||||||
else if b = 'struct' then
|
|
||||||
Settings.StructTypes.Add(a)
|
|
||||||
else if b = 'float' then
|
|
||||||
Settings.FloatTypes.Add(a);
|
|
||||||
end;
|
|
||||||
|
|
||||||
values.Clear;
|
|
||||||
ini.ReadSection(TypeReplaceSec, values);
|
|
||||||
for i := 0 to values.Count - 1 do begin
|
|
||||||
a := Values[i];
|
|
||||||
b := ini.ReadString(TypeReplaceSec, a, '');
|
|
||||||
if isNameofPointer(a) then
|
|
||||||
Settings.PtrTypeReplace[ Copy(a, 1, length(a) - 1)] := b
|
|
||||||
else
|
|
||||||
Settings.TypeDefReplace[a] := b;
|
|
||||||
end;
|
|
||||||
|
|
||||||
finally
|
|
||||||
values.Free;
|
|
||||||
ini.Free;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
|
|
||||||
function GetConvertSettings(Settings : TConvertSettings; var FileName: AnsiString): Boolean;
|
|
||||||
var
|
|
||||||
i : integer;
|
|
||||||
prm : AnsiString;
|
|
||||||
vlm : AnsiString;
|
|
||||||
Params : TStringList;
|
|
||||||
begin
|
|
||||||
prm := '';
|
|
||||||
vlm := '';
|
|
||||||
Params := TStringList.Create;
|
|
||||||
Params.CaseSensitive := false;
|
|
||||||
try
|
|
||||||
for i := 1 to ParamCount do begin
|
|
||||||
if isParamValue(ParamStr(i), prm, vlm) then begin
|
|
||||||
prm := AnsiLowerCase(prm);
|
|
||||||
if prm = 'noout' then doOutput:=false
|
|
||||||
else if prm = 'all' then doparseAll:=true
|
|
||||||
else if (prm = 'id') and (vlm <> '') then ConvertSettings.ObjcIDReplace:=vlm
|
|
||||||
else if (prm = 'call') then ConvertSettings.CallConv:=vlm
|
|
||||||
else if (prm = 'userefs') then ConvertSettings.UseRefClassType := true
|
|
||||||
else if (prm = 'refpostfix') then ConvertSettings.RefClassPostfix := vlm
|
|
||||||
else if prm = 'ini' then begin
|
|
||||||
ReadIniFile(Settings, vlm);
|
|
||||||
end else
|
|
||||||
Params.Values[prm] := vlm;
|
|
||||||
end else
|
|
||||||
FileName := ParamStr(i);
|
|
||||||
end;
|
|
||||||
|
|
||||||
vlm := Params.Values['uini'];
|
|
||||||
if vlm <> '' then
|
|
||||||
updIni := vlm;
|
|
||||||
|
|
||||||
|
|
||||||
finally
|
|
||||||
Params.Free;
|
|
||||||
end;
|
|
||||||
Result := true;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TypeHelp;
|
|
||||||
begin
|
|
||||||
writeln('Obj-C parser usage:');
|
|
||||||
writeln('objcparser [switches] objcheaderfilename');
|
|
||||||
writeln('');
|
|
||||||
writeln('keys:');
|
|
||||||
writeln(' -ini=filename.ini config file to use for pascal file generation');
|
|
||||||
writeln(' multiple "-ini" switches are allowed');
|
|
||||||
writeln(' -uini=filename.ini config file to update the data');
|
|
||||||
writeln(' -noout prevents from .inc files generated');
|
|
||||||
writeln(' -all parses headers (*.h) in the current directory');
|
|
||||||
writeln('');
|
|
||||||
writeln(' hidden keys (they''re temporary, and will be removed in future versions)');
|
|
||||||
writeln(' -id=IDENTIFIER the identifier to replace objective-c id type name');
|
|
||||||
writeln(' default = lobjc.id');
|
|
||||||
writeln(' -call=IDENTIFIER specifies the function''s calling convention.');
|
|
||||||
writeln(' default is cdecl. Please note, that calling convention');
|
|
||||||
writeln(' also effect external functions name. Thus, using ');
|
|
||||||
writeln(' if calling convention is not cdecl, the external name');
|
|
||||||
writeln(' -useRefs enables additional types to be created, for lobjc.id ');
|
|
||||||
writeln(' replacements at the parameter and result types');
|
|
||||||
writeln(' -refPostFix post-fix for each ref type. The default postfix is ''Ref''');
|
|
||||||
end;
|
|
||||||
|
|
||||||
var
|
|
||||||
inpf : AnsiString = '';
|
|
||||||
st : TStrings = nil;
|
|
||||||
err : AnsiString = '';
|
|
||||||
i : integer;
|
|
||||||
|
|
||||||
|
|
||||||
function FileToString(const FileName: WideString): AnsiString;
|
|
||||||
var
|
|
||||||
fs : TFileStream;
|
|
||||||
begin
|
|
||||||
Result := '';
|
|
||||||
try
|
|
||||||
fs := TfileStream.Create(FileName, fmOpenRead or fmShareDenyNone);
|
|
||||||
try
|
|
||||||
SetLength(Result, fs.Size);
|
|
||||||
fs.Read(Result[1], fs.Size)
|
|
||||||
finally
|
|
||||||
fs.Free;
|
|
||||||
end;
|
|
||||||
except
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
{procedure DoTest(const InputFile: AnsiString);
|
|
||||||
var
|
|
||||||
hdr : TObjCHeader;
|
|
||||||
|
|
||||||
wrt : TStringsWriter;
|
|
||||||
cnv : TDefaultConverter;
|
|
||||||
i : Integer;
|
|
||||||
names : TPascalNames;
|
|
||||||
begin
|
|
||||||
hdr := TObjCHeader.Create;
|
|
||||||
wrt := TStringsWriter.Create;
|
|
||||||
wrt.Strings := TStringList.Create;
|
|
||||||
try
|
|
||||||
if not ParserCHeader( FileToString(InputFile), hdr) then Exit;
|
|
||||||
|
|
||||||
cnv := TDefaultConverter.Create;
|
|
||||||
names := CreateDefaultPascalNames;
|
|
||||||
try
|
|
||||||
cnv.WriteCHeader(hdr, wrt, names);
|
|
||||||
finally
|
|
||||||
cnv.Free;
|
|
||||||
end;
|
|
||||||
|
|
||||||
for i := 0 to wrt.Strings.Count - 1 do
|
|
||||||
writeln(wrt.Strings[i]);
|
|
||||||
|
|
||||||
finally
|
|
||||||
wrt.Strings.Free;
|
|
||||||
wrt.Free;
|
|
||||||
hdr.Free;
|
|
||||||
end;
|
|
||||||
end;}
|
|
||||||
|
|
||||||
|
|
||||||
procedure TestTemplate;
|
|
||||||
var
|
|
||||||
fn : TFileStream;
|
|
||||||
tmp : AnsiString;
|
|
||||||
|
|
||||||
tp : TTemplateProc;
|
|
||||||
s : string;
|
|
||||||
pv : TPascalValues;
|
|
||||||
root: TTemplateList;
|
|
||||||
cl : TTemplateList;
|
|
||||||
begin
|
|
||||||
root:=TTemplateList.Create(nil);
|
|
||||||
cl:=TTemplateList.Create(root);
|
|
||||||
cl.Name :='class';
|
|
||||||
cl.Params.Values['class_objcname'] := 'NSNotebook';
|
|
||||||
cl.Params.Values['class_objcsupername'] := 'NSObject';
|
|
||||||
|
|
||||||
root.SubLists.Add(cl);
|
|
||||||
|
|
||||||
fn := TFileStream.Create('templatesample.txt', fmOpenRead or fmShareDenyNone);
|
|
||||||
tp := TTemplateProc.Create;
|
|
||||||
pv := TPascalValues.Create;
|
|
||||||
try
|
|
||||||
SetLength(tmp, fn.Size);
|
|
||||||
fn.Read(tmp[1], fn.Size);
|
|
||||||
|
|
||||||
|
|
||||||
s := tp.Parse(tmp, root, pv);
|
|
||||||
writeln(s);
|
|
||||||
readln;
|
|
||||||
finally
|
|
||||||
pv.Free;
|
|
||||||
tp.Free;
|
|
||||||
fn.Free;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
begin
|
|
||||||
// TestTemplate;
|
|
||||||
// Exit;
|
|
||||||
|
|
||||||
doOutput := true;
|
|
||||||
try
|
|
||||||
GetConvertSettings(ConvertSettings, inpf);
|
|
||||||
if doParseAll then begin
|
|
||||||
ParseAll;
|
|
||||||
Exit;
|
|
||||||
end else if not FileExists(inpf) then begin
|
|
||||||
TypeHelp;
|
|
||||||
Exit;
|
|
||||||
end;
|
|
||||||
|
|
||||||
st := TStringList.Create;
|
|
||||||
try
|
|
||||||
if not ReadAndParseFile(inpf, st, err) then
|
|
||||||
writeln('Error: ', err)
|
|
||||||
else begin
|
|
||||||
if doOutput then
|
|
||||||
for i := 0 to st.Count - 1 do
|
|
||||||
writeln(st[i]);
|
|
||||||
end;
|
|
||||||
except
|
|
||||||
end;
|
|
||||||
st.Free;
|
|
||||||
except
|
|
||||||
on e: exception do
|
|
||||||
writeln(e.Message);
|
|
||||||
end;
|
|
||||||
end.
|
|
||||||
|
|
||||||
|
|
||||||
@ -1 +0,0 @@
|
|||||||
./objcparser /System/Library/Frameworks/AppKit.framework/Headers/NSButton.h > NSButton.inc
|
|
||||||
Loading…
Reference in New Issue
Block a user