Browse Source

* Removed unused unit jarparamparser.pas

git-svn-id: trunk@24549 -
joost 12 years ago
parent
commit
14ffdf6b8d
2 changed files with 0 additions and 39 deletions
  1. 0 1
      .gitattributes
  2. 0 38
      utils/fpcres/jarparamparser.pas

+ 0 - 1
.gitattributes

@@ -14314,7 +14314,6 @@ utils/fpcres/closablefilestream.pas svneol=native#text/plain
 utils/fpcres/fpcjres.pas svneol=native#text/plain
 utils/fpcres/fpcres.pas svneol=native#text/plain
 utils/fpcres/fpmake.pp svneol=native#text/plain
-utils/fpcres/jarparamparser.pas svneol=native#text/plain
 utils/fpcres/jarsourcehandler.pas svneol=native#text/plain
 utils/fpcres/msghandler.pas svneol=native#text/plain
 utils/fpcres/paramparser.pas svneol=native#text/plain

+ 0 - 38
utils/fpcres/jarparamparser.pas

@@ -1,38 +0,0 @@
-unit jarparamparser;
-
-{$mode objfpc}{$h+}
-
-interface
-
-uses
-  paramparser;
-
-type
-  TJarParameters = class(TParameters)
-    procedure ParseOutputFormat(aList : TStringList; var index : integer; const parname : string);override;
-    procedure ParseArchitecture(aList : TStringList; var index : integer; const parname : string);override;
-    procedure ParseSubArchitecture(aList : TStringList; var index : integer; const parname : string);override;
-  end;
-
-
-implementation
-
-
-{ TJarParameters }
-
-procedure TJarParameters.ParseOutputFormat(aList: TStringList; var index: integer; const parname: string);
-begin
-  raise EUnknownParameterException.Create(tmp);
-end;
-
-procedure TJarParameters.ParseArchitecture(aList: TStringList; var index: integer; const parname: string);
-begin
-  raise EUnknownParameterException.Create(tmp);
-end;
-
-procedure TJarParameters.ParseSubArchitecture(aList: TStringList; var index: integer; const parname: string);
-begin
-  raise EUnknownParameterException.Create(tmp);
-end;
-
-end.