mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-20 21:02:12 +02:00
f6ddabde85
resource compilation happens and that the standard FPC resource
helpers are not available. What happens is that all files specified
in {$r xxx} statements are packed together into an <appname>.jar
file, under the namespace "org.freepascal.rawresources". They
can be loaded using the java.lang.Class.getResource/getResourceAsStream()
api
git-svn-id: branches/jvmbackend@18776 -
39 lines
1000 B
ObjectPascal
39 lines
1000 B
ObjectPascal
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.
|