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

start page: added links to RTL, FCL and LCL docs

Browse Source 
git-svn-id: trunk@14189 -
This commit is contained in:
mattias 2008-02-19 09:23:24 +00:00
parent d992ea6cf8
commit fc54ba9a4c
2 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/h2pas/h2pasconvert.pas
View File

@ -2025,14 +2025,13 @@ begin
exit; exit;
end; end;
//DebugLn(['TH2PasConverter.ConvertFile CCC1 ',TextConverter.Source]);
// run h2pas // run h2pas
Tool:=TH2PasTool.Create; Tool:=TH2PasTool.Create;
try try
Tool.Title:='h2pas'; Tool.Title:='h2pas';
Tool.H2PasFile:=AFile; Tool.H2PasFile:=AFile;
//DebugLn(['TH2PasConverter.ConvertFile AAA TempCHeaderFilename="',TempCHeaderFilename,'" CurrentType=',ord(TextConverter.CurrentType),' FileSize=',FileSize(TempCHeaderFilename)]);
Tool.TargetFilename:=TextConverter.Filename; Tool.TargetFilename:=TextConverter.Filename;
//DebugLn(['TH2PasConverter.ConvertFile BBB TempCHeaderFilename="',TempCHeaderFilename,'" CurrentType=',ord(TextConverter.CurrentType),' FileSize=',FileSize(TempCHeaderFilename)]);
Tool.Filename:=GetH2PasFilename; Tool.Filename:=GetH2PasFilename;
Tool.CmdLineParams:=AFile.GetH2PasParameters(Tool.TargetFilename); Tool.CmdLineParams:=AFile.GetH2PasParameters(Tool.TargetFilename);
Tool.ScanOutput:=true; Tool.ScanOutput:=true;
@ -2050,6 +2049,7 @@ begin
// run beautification tools for new pascal code // run beautification tools for new pascal code
TextConverter.InitWithFilename(OutputFilename); TextConverter.InitWithFilename(OutputFilename);
//DebugLn(['TH2PasConverter.ConvertFile Output: ',copy(TextConverter.Source,1,300)]); //DebugLn(['TH2PasConverter.ConvertFile Output: ',copy(TextConverter.Source,1,300)]);
//DebugLn(['TH2PasConverter.ConvertFile CCC2 ',TextConverter.Source]);
Result:=ExecuteTools(Project.PostH2PasTools,OutputFilename); Result:=ExecuteTools(Project.PostH2PasTools,OutputFilename);
if Result<>mrOk then begin if Result<>mrOk then begin
DebugLn(['TH2PasConverter.ConvertFile Failed running Project.PostH2PasTools on ',OutputFilename]); DebugLn(['TH2PasConverter.ConvertFile Failed running Project.PostH2PasTools on ',OutputFilename]);
@ -4191,6 +4191,7 @@ begin
Result:=mrCancel; Result:=mrCancel;
if aText=nil then exit; if aText=nil then exit;
Source:=aText.Source; Source:=aText.Source;
//DebugLn(['TRemoveDoubleSemicolons.Execute START ',Source]);
// find all double semicolons // find all double semicolons
Position:=1; Position:=1;
@ -4456,7 +4457,7 @@ var
begin begin
Result:=mrCancel; Result:=mrCancel;
if aText=nil then exit; if aText=nil then exit;
//DebugLn(['TAddMissingPointerTypes.Execute ',aText.Source]); DebugLn(['TAddMissingPointerTypes.Execute START ',aText.Source]);
if (not FilenameIsPascalUnit(aText.Filename)) then begin if (not FilenameIsPascalUnit(aText.Filename)) then begin
DebugLn(['TAddMissingPointerTypes.Execute file is not pascal: ',aText.Filename]); DebugLn(['TAddMissingPointerTypes.Execute file is not pascal: ',aText.Filename]);
exit(mrOk);// ignore exit(mrOk);// ignore
@ -4492,6 +4493,7 @@ begin
NeededPointerTypes.Free; NeededPointerTypes.Free;
end; end;
end; end;
DebugLn(['TAddMissingPointerTypes.Execute END ',aText.Source]);
Result:=mrOk; Result:=mrOk;
end; end;

3
docs/index.html
View File

@ -31,6 +31,9 @@ The Lazarus Component Library is licensed under a modified GNU Lesser
General Public General Public
License.<br> License.<br>
The Lazarus IDE is licensed under the GNU General Public License.<br> <br> The Lazarus IDE is licensed under the GNU General Public License.<br> <br>
<a href="http://lazarus-ccr.sourceforge.net/docs/rtl">RTL - Free Pascal Run Time Library</a><br>
<a href="http://lazarus-ccr.sourceforge.net/docs/fcl">FCL - Free Component Library</a><br>
<a href="http://lazarus-ccr.sourceforge.net/docs/lcl">LCL - Lazarus Component Library</a><br>
</td> </tr> </tbody> </td> </tr> </tbody>
</table><big><br> </table><big><br>
</big><br></body></html> </big><br></body></html>