paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-14 16:52:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: h2p example: writing output unit to disk

Browse Source 
git-svn-id: trunk@14673 -
This commit is contained in:
mattias 2008-03-28 09:44:14 +00:00
parent eeeb05193c
commit a7ea084059
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/codetools/examples/h2pastest.lpr
View File

@ -56,11 +56,12 @@ begin
if CCode=nil then
raise Exception.Create('loading failed '+Filename);
// Step 2: create the output file
OutputFilename:='h2pasoutput.pas';
OutputFilename:=CleanAndExpandFilename(AppendPathDelim(GetCurrentDir)+'h2pasoutput.pas');
PasCode:=CodeToolBoss.CreateFile(OutputFilename);
if PasCode=nil then
raise Exception.Create('creating failed '+OutputFilename);
// Step3: convert
Tool:=TH2PasTool.Create;
Tool.SourceName:=ExtractFileNameOnly(PasCode.Filename);
Tool.Convert(CCode,PasCode);
@ -71,6 +72,12 @@ begin
writeln('=============================================');
writeln(PasCode.Source);
Tool.Free;
// Step 4: write unit
if PasCode.Save then
writeln('Wrote ',PasCode.Filename)
else
writeln('Failed writing ',PasCode.Filename);
except
on E: ECCodeParserException do begin
CCodeTool:=ECCodeParserException(E).Sender;