paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 23:29:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Support writing resource strings

Browse Source 
git-svn-id: trunk@46280 -
This commit is contained in:
michael 2020-08-06 06:50:29 +00:00
parent e4ec420bf5
commit 492b1cf4ca
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/fcl-passrc/src/paswrite.pp
View File

@ -83,6 +83,7 @@ type
constructor Create(AStream: TStream); virtual; constructor Create(AStream: TStream); virtual;
destructor Destroy; override; destructor Destroy; override;
procedure AddForwardClasses(aSection: TPasSection); virtual; procedure AddForwardClasses(aSection: TPasSection); virtual;
procedure WriteResourceString(aStr: TPasResString); virtual;
procedure WriteEnumType(AType: TPasEnumType); virtual; procedure WriteEnumType(AType: TPasEnumType); virtual;
procedure WriteElement(AElement: TPasElement);virtual; procedure WriteElement(AElement: TPasElement);virtual;
procedure WriteType(AType: TPasType; Full : Boolean = True);virtual; procedure WriteType(AType: TPasType; Full : Boolean = True);virtual;
@ -247,10 +248,19 @@ begin
WriteProcImpl(TProcedureBody(AElement)) WriteProcImpl(TProcedureBody(AElement))
else if AElement.InheritsFrom(TPasImplCommand) or AElement.InheritsFrom(TPasImplCommands) then else if AElement.InheritsFrom(TPasImplCommand) or AElement.InheritsFrom(TPasImplCommands) then
WriteImplElement(TPasImplElement(AElement),false) WriteImplElement(TPasImplElement(AElement),false)
else if AElement.InheritsFrom(TPasResString) then
WriteResourceString(TPasResString(AElement))
else else
raise EPasWriter.CreateFmt('Writing not implemented for %s nodes',[AElement.ElementTypeName]); raise EPasWriter.CreateFmt('Writing not implemented for %s nodes',[AElement.ElementTypeName]);
end; end;
procedure TPasWriter.WriteResourceString(aStr : TPasResString);
begin
PrepareDeclSection('resourcestring');
AddLn(Astr.GetDeclaration(True)+';');
end;
procedure TPasWriter.WriteEnumType(AType: TPasEnumType); procedure TPasWriter.WriteEnumType(AType: TPasEnumType);
begin begin