pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* removed objcparser dependencies on units being under development.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@669 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2009-01-23 06:53:34 +00:00
parent d612a6cfac
commit 50400d4c00
2 changed files with 21 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
bindings/pascocoa/parser/ObjCParserTypes.pas
View File

@ -135,14 +135,19 @@ type
TEntity = class(TObject) TEntity = class(TObject)
protected protected
function DoParse(AParser: TTextParser): Boolean; virtual; abstract; function DoParse(AParser: TTextParser): Boolean; virtual; abstract;
public public
owner : TEntity; Owner : TEntity;
Items : TList; Items : TList;
TagComment : AnsiString; TagComment : AnsiString;
constructor Create(AOwner: TEntity);
constructor Create(AOwner: TEntity); virtual;
destructor Destroy; override; destructor Destroy; override;
function Parse(AParser: TTextParser): Boolean; virtual; function Parse(AParser: TTextParser): Boolean; virtual;
procedure Assign(AEntity: TEntity); virtual;
end; end;
TEntityClass = class of TEntity;
TCPrepocessor = class(TEntity); TCPrepocessor = class(TEntity);
@ -426,7 +431,7 @@ type
public public
_Classes : TStringList; _Classes : TStringList;
_isClasses : Boolean; // classes or protocols _isClasses : Boolean; // classes or protocols
constructor Create(AOwner: TEntity); constructor Create(AOwner: TEntity); override;
destructor Destroy; override; destructor Destroy; override;
end; end;
@ -450,7 +455,7 @@ type
_SuperClass : AnsiString; _SuperClass : AnsiString;
_Category : AnsiString; _Category : AnsiString;
_Protocols : TStringList; _Protocols : TStringList;
constructor Create(AOwner : TEntity); constructor Create(AOwner : TEntity); override;
destructor Destroy; override; destructor Destroy; override;
end; end;
@ -465,7 +470,7 @@ type
function DoParse(AParser: TTextParser): Boolean; override; function DoParse(AParser: TTextParser): Boolean; override;
public public
_FileName : AnsiString; _FileName : AnsiString;
constructor Create(AOwner: TEntity = nil); constructor Create(AOwner: TEntity = nil); override;
end; end;
const const
@ -1305,6 +1310,11 @@ end;
{ TEntity } { TEntity }
procedure TEntity.Assign(AEntity: TEntity);
begin
TagComment := AEntity.TagComment;
end;
constructor TEntity.Create(AOwner: TEntity); constructor TEntity.Create(AOwner: TEntity);
begin begin
inherited Create; inherited Create;

13
bindings/pascocoa/parser/objcparser.pas
View File

@ -1,7 +1,7 @@
{ * This file is part of ObjCParser tool { * This file is part of ObjCParser tool
* Copyright (C) 2008-2009 by Dmitry Boyarintsev under the GNU LGPL * 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 * license version 2.0 or 2.1. You should have received a copy of the
* LGPL license along with at http://www.gnu.org/ * LGPL license along with at http://www.gnu.org/
} }
program objcparser; program objcparser;
@ -21,7 +21,7 @@ uses
SysUtils, SysUtils,
ObjCParserUtils, ObjCParserUtils,
ObjCParserTypes, ObjCParserTypes,
CToPasWriter, gnuccFeatures; gnuccFeatures;
type type
// this object is used only for precomile directives handling // this object is used only for precomile directives handling
@ -470,7 +470,7 @@ begin
end; end;
end; end;
procedure DoTest(const InputFile: AnsiString); {procedure DoTest(const InputFile: AnsiString);
var var
hdr : TObjCHeader; hdr : TObjCHeader;
@ -501,7 +501,7 @@ begin
wrt.Free; wrt.Free;
hdr.Free; hdr.Free;
end; end;
end; end;}
begin begin
doOutput := true; doOutput := true;
@ -515,9 +515,6 @@ begin
Exit; Exit;
end; end;
DoTest(inpf);
Exit;
st := TStringList.Create; st := TStringList.Create;
try try
if not ReadAndParseFile(inpf, st, err) then if not ReadAndParseFile(inpf, st, err) then