paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-27 18:33:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

added svn2revisioninc

Browse Source 
git-svn-id: trunk@7855 -
This commit is contained in:
vincents 2005-09-29 21:10:01 +00:00
parent 5c83b4fae9
commit e3b7e8c3e5
4 changed files with 481 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -2009,4 +2009,6 @@ tools/lazarusmake.ini svneol=native#text/plain
tools/lazres.lpi svneol=native#text/plain
tools/lazres.pp svneol=native#text/pascal
tools/runwait.sh -text svneol=native#application/x-sh
tools/svn2revisioninc.lpi svneol=native#text/plain
tools/svn2revisioninc.pas svneol=native#text/plain
tools/updatepofiles.pas svneol=native#text/pascal

320
tools/svn2revisioninc.lpi Normal file
View File

@ -0,0 +1,320 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<PathDelim Value="\"/>
<Version Value="5"/>
<General>
<MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="0"/>
</General>
<LazDoc Paths=""/>
<Units Count="11">
<Unit0>
<CursorPos X="70" Y="100"/>
<EditorIndex Value="0"/>
<Filename Value="svn2revisioninc.pas"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<TopLine Value="83"/>
<UnitName Value="Svn2RevisionInc"/>
<UsageCount Value="23"/>
</Unit0>
<Unit1>
<CursorPos X="13" Y="8"/>
<Filename Value="C:\lazarus\source\fpc\2.1\fcl\inc\process.pp"/>
<TopLine Value="1"/>
<UnitName Value="process"/>
<UsageCount Value="11"/>
</Unit1>
<Unit2>
<CursorPos X="1" Y="426"/>
<EditorIndex Value="5"/>
<Filename Value="updatepofiles.pas"/>
<Loaded Value="True"/>
<TopLine Value="118"/>
<UnitName Value="UpdatePoFiles"/>
<UsageCount Value="12"/>
</Unit2>
<Unit3>
<CursorPos X="22" Y="41"/>
<EditorIndex Value="4"/>
<Filename Value="C:\lazarus\source\lazarus\lcl\fileutil.pas"/>
<Loaded Value="True"/>
<TopLine Value="14"/>
<UnitName Value="FileUtil"/>
<UsageCount Value="12"/>
</Unit3>
<Unit4>
<CursorPos X="3" Y="5335"/>
<Filename Value="C:\lazarus\source\lazarus\lcl\grids.pas"/>
<TopLine Value="5330"/>
<UnitName Value="Grids"/>
<UsageCount Value="10"/>
</Unit4>
<Unit5>
<CursorPos X="33" Y="63"/>
<Filename Value="C:\lazarus\source\fpc\2.0\rtl\objpas\objpas.pp"/>
<TopLine Value="46"/>
<UnitName Value="objpas"/>
<UsageCount Value="10"/>
</Unit5>
<Unit6>
<CursorPos X="15" Y="95"/>
<Filename Value="C:\lazarus\source\fpc\2.0\fcl\inc\process.pp"/>
<TopLine Value="78"/>
<UnitName Value="process"/>
<UsageCount Value="10"/>
</Unit6>
<Unit7>
<CursorPos X="3" Y="31"/>
<EditorIndex Value="3"/>
<Filename Value="C:\lazarus\source\fpc\2.0\fcl\inc\pipes.pp"/>
<Loaded Value="True"/>
<TopLine Value="14"/>
<UnitName Value="Pipes"/>
<UsageCount Value="11"/>
</Unit7>
<Unit8>
<CursorPos X="3" Y="180"/>
<Filename Value="C:\lazarus\source\fpc\2.0\fcl\win32\process.inc"/>
<TopLine Value="166"/>
<UsageCount Value="10"/>
</Unit8>
<Unit9>
<CursorPos X="1" Y="1"/>
<EditorIndex Value="2"/>
<Filename Value="C:\lazarus\source\fpc\2.0\fcl\xml\xmlread.pp"/>
<Loaded Value="True"/>
<TopLine Value="1"/>
<UnitName Value="XMLRead"/>
<UsageCount Value="10"/>
</Unit9>
<Unit10>
<CursorPos X="15" Y="204"/>
<EditorIndex Value="1"/>
<Filename Value="C:\lazarus\source\fpc\2.0\fcl\xml\DOM.pp"/>
<Loaded Value="True"/>
<TopLine Value="200"/>
<UnitName Value="DOM"/>
<UsageCount Value="10"/>
</Unit10>
</Units>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="2">
<Item1>
<PackageName Value="LCL"/>
</Item1>
<Item2>
<PackageName Value="FCL"/>
</Item2>
</RequiredPackages>
<JumpHistory Count="24" HistoryIndex="23">
<Position1>
<Filename Value="C:\lazarus\source\lazarus\lcl\FileUtil.pas"/>
<Caret Line="46" Column="30" TopLine="29"/>
</Position1>
<Position2>
<Filename Value="C:\lazarus\source\lazarus\lcl\fileutil.pas"/>
<Caret Line="47" Column="40" TopLine="30"/>
</Position2>
<Position3>
<Filename Value="svn2revisioninc.pas"/>
<Caret Line="1" Column="1" TopLine="27"/>
</Position3>
<Position4>
<Filename Value="svn2revisioninc.pas"/>
<Caret Line="75" Column="11" TopLine="58"/>
</Position4>
<Position5>
<Filename Value="svn2revisioninc.pas"/>
<Caret Line="89" Column="24" TopLine="64"/>
</Position5>
<Position6>
<Filename Value="svn2revisioninc.pas"/>
<Caret Line="110" Column="14" TopLine="79"/>
</Position6>
<Position7>
<Filename Value="svn2revisioninc.pas"/>
<Caret Line="66" Column="45" TopLine="49"/>
</Position7>
<Position8>
<Filename Value="svn2revisioninc.pas"/>
<Caret Line="71" Column="14" TopLine="54"/>
</Position8>
<Position9>
<Filename Value="svn2revisioninc.pas"/>
<Caret Line="61" Column="16" TopLine="54"/>
</Position9>
<Position10>
<Filename Value="svn2revisioninc.pas"/>
<Caret Line="77" Column="74" TopLine="60"/>
</Position10>
<Position11>
<Filename Value="svn2revisioninc.pas"/>
<Caret Line="78" Column="31" TopLine="64"/>
</Position11>
<Position12>
<Filename Value="svn2revisioninc.pas"/>
<Caret Line="70" Column="16" TopLine="61"/>
</Position12>
<Position13>
<Filename Value="svn2revisioninc.pas"/>
<Caret Line="47" Column="42" TopLine="30"/>
</Position13>
<Position14>
<Filename Value="svn2revisioninc.pas"/>
<Caret Line="93" Column="28" TopLine="62"/>
</Position14>
<Position15>
<Filename Value="svn2revisioninc.pas"/>
<Caret Line="89" Column="22" TopLine="72"/>
</Position15>
<Position16>
<Filename Value="C:\lazarus\source\fpc\2.0\fcl\xml\DOM.pp"/>
<Caret Line="208" Column="34" TopLine="179"/>
</Position16>
<Position17>
<Filename Value="C:\lazarus\source\fpc\2.0\fcl\xml\DOM.pp"/>
<Caret Line="52" Column="13" TopLine="35"/>
</Position17>
<Position18>
<Filename Value="svn2revisioninc.pas"/>
<Caret Line="88" Column="21" TopLine="72"/>
</Position18>
<Position19>
<Filename Value="C:\lazarus\source\fpc\2.0\fcl\xml\DOM.pp"/>
<Caret Line="382" Column="31" TopLine="365"/>
</Position19>
<Position20>
<Filename Value="C:\lazarus\source\fpc\2.0\fcl\xml\DOM.pp"/>
<Caret Line="353" Column="38" TopLine="349"/>
</Position20>
<Position21>
<Filename Value="C:\lazarus\source\fpc\2.0\fcl\xml\DOM.pp"/>
<Caret Line="245" Column="37" TopLine="241"/>
</Position21>
<Position22>
<Filename Value="svn2revisioninc.pas"/>
<Caret Line="99" Column="46" TopLine="72"/>
</Position22>
<Position23>
<Filename Value="svn2revisioninc.pas"/>
<Caret Line="98" Column="98" TopLine="80"/>
</Position23>
<Position24>
<Filename Value="svn2revisioninc.pas"/>
<Caret Line="100" Column="64" TopLine="83"/>
</Position24>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<PathDelim Value="\"/>
<CodeGeneration>
<SmartLinkUnit Value="True"/>
<Generate Value="Faster"/>
</CodeGeneration>
<Linking>
<Debugging>
<UseLineInfoUnit Value="False"/>
</Debugging>
<LinkSmart Value="True"/>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<BreakPoints Count="15">
<Item1>
<Source Value="C:\lazarus\source\lazarus\lcl\include\custommemo.inc"/>
<Line Value="151"/>
</Item1>
<Item2>
<Source Value="C:\lazarus\source\lazarus\lcl\include\custommemo.inc"/>
<Line Value="112"/>
</Item2>
<Item3>
<Source Value="C:\lazarus\source\lazarus\lcl\include\custommemo.inc"/>
<Line Value="34"/>
</Item3>
<Item4>
<Source Value="C:\lazarus\source\lazarus\lcl\include\custommemo.inc"/>
<Line Value="162"/>
</Item4>
<Item5>
<Source Value="C:\lazarus\source\lazarus\lcl\include\custommemo.inc"/>
<Line Value="128"/>
</Item5>
<Item6>
<Source Value="c:\lazarus\source\lazarus\lcl\interfaces\win32\win32wsstdctrls.pp"/>
<Line Value="881"/>
</Item6>
<Item7>
<Source Value="C:\lazarus\source\fpc\2.1\rtl\objpas\classes\stringl.inc"/>
<Line Value="188"/>
</Item7>
<Item8>
<Source Value="c:\lazarus\source\lazarus\lcl\interfaces\win32\win32wsstdctrls.pp"/>
<Line Value="914"/>
</Item8>
<Item9>
<Source Value="C:\lazarus\source\fpc\2.1\rtl\objpas\classes\reader.inc"/>
<Line Value="770"/>
</Item9>
<Item10>
<Source Value="c:\lazarus\source\lazarus\lcl\interfaces\win32\win32memostrings.inc"/>
<Line Value="74"/>
</Item10>
<Item11>
<Source Value="C:\lazarus\source\lazarus\lcl\include\custommemo.inc"/>
<Line Value="146"/>
</Item11>
<Item12>
<Source Value="C:\lazarus\source\lazarus\ide\uniteditor.pp"/>
<Line Value="1996"/>
</Item12>
<Item13>
<Source Value="C:\lazarus\source\lazarus\lcl\FPCAdds.pas"/>
<Line Value="83"/>
</Item13>
<Item14>
<Source Value="C:\lazarus\source\lazarus\lcl\calendar.pp"/>
<Line Value="163"/>
</Item14>
<Item15>
<Source Value="C:\lazarus\source\lazarus\lcl\calendar.pp"/>
<Line Value="266"/>
</Item15>
</BreakPoints>
<Watches Count="2">
<Item1>
<Expression Value="FWidgetSetClass"/>
</Item1>
<Item2>
<Expression Value="FWidgetSetClass^"/>
</Item2>
</Watches>
<Exceptions Count="2">
<Item1>
<Name Value="ECodetoolError"/>
</Item1>
<Item2>
<Name Value="EFOpenError"/>
</Item2>
</Exceptions>
</Debugging>
</CONFIG>

158
tools/svn2revisioninc.pas Normal file
View File

@ -0,0 +1,158 @@
{
***************************************************************************
* *
* This source is free software; you can redistribute it and/or modify *
* it under the terms of the GNU General Public License as published by *
* the Free Software Foundation; either version 2 of the License, or *
* (at your option) any later version. *
* *
* This code is distributed in the hope that it will be useful, but *
* WITHOUT ANY WARRANTY; without even the implied warranty of *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *
* General Public License for more details. *
* *
* A copy of the GNU General Public License is available on the World *
* Wide Web at <http://www.gnu.org/copyleft/gpl.html>. You can also *
* obtain it by writing to the Free Software Foundation, *
* Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *
* *
***************************************************************************
Author: Vincent Snijders
Name:
svn2revisioninc - creates an include file with the revision number
Synopsis:
svn2revisioninc sourcedir revision.inc
Description:
svn2revisioninc creates an include file with the current revision number.
If the source directory contains a .svn subdirectory, it tries to execute
svnversion to get the revision number.
If that fails - for example, because it can't find svnversion - it opens
.svn/entries to get the revision number of the source directory.
If it can't find revision information, it checks whether the revision.inc
exists. If it doesn't exist, it will create one, indicating that the
revision number is unknown.
}
program Svn2RevisionInc;
{$mode objfpc}{$H+}
uses
Classes, SysUtils, Process, FileUtil, Dom, XmlRead;
var
SourceDirectory,
RevisionIncFileName: string;
RevisionStr: string = 'Unknown';
function FindRevision: boolean;
var
SvnDir: string;
function GetRevisionFromSvnVersion : boolean;
var
SvnVersionProcess: TProcess;
Buffer: string;
n: LongInt;
begin
Result:=false;
SvnVersionProcess := TProcess.Create(nil);
try
with SvnVersionProcess do begin
CommandLine := 'svnversion -n '+SourceDirectory;
Options := [poUsePipes, poWaitOnExit];
try
Execute;
SetLength(Buffer, 80);
n:=OutPut.Read(Buffer[1], 80);
RevisionStr := Copy(Buffer, 1, n);
Result:=true;
writeln('Retrieved revision with svnversion.');
except
// ignore error, default result is false
end;
end;
finally
SvnVersionProcess.Free;
end;
end;
function GetRevisionFromEntries: boolean;
var
EntriesFileName: string;
EntriesDoc: TXMLDocument;
EntryNode: TDomNode;
NameAttribute: TDOMNode;
begin
Result:=false;
EntriesFileName:=AppendPathDelim(SourceDirectory)+'.svn'+PathDelim+'entries';
if FileExists(EntriesFileName) then begin
try
ReadXMLFile(EntriesDoc, EntriesFileName);
EntryNode := EntriesDoc.FirstChild.FirstChild;
while not Result and (EntryNode<>nil) do begin
if EntryNode.Attributes.GetNamedItem('name').NodeValue='' then begin
RevisionStr:=EntryNode.Attributes.GetNamedItem('revision').NodeValue;
Result:=true;
end;
EntryNode := EntryNode.NextSibling;
end;
except
// ignore error, default result is false
end;
end;
end;
begin
Result:=false;
SvnDir:= AppendPathDelim(SourceDirectory)+'.svn';
if DirectoryExists(SvnDir) then
Result := GetRevisionFromSvnVersion or GetRevisionFromEntries;
end;
procedure WriteRevisionInc;
var
RevisionIncText: Text;
begin
AssignFile(RevisionIncText, RevisionIncFileName);
Rewrite(RevisionIncText);
writeln(RevisionIncText, '// Created by Svn2RevisionInc');
writeln(RevisionIncText, 'const RevisionStr = ''', RevisionStr, '''');
CloseFile(RevisionIncText);
writeln(format('Created %s for revision: %s',
[RevisionIncFileName, RevisionStr]));
end;
function ParamsValid: boolean;
var
RevisionIncDirName: string;
begin
Result := false;
if ParamCount<>2 then exit;
SourceDirectory:=ParamStr(1);
if not DirectoryExists(SourceDirectory) then begin
writeln('Error: Source directory "', SourceDirectory, '" doesn''t exist.');
exit;
end;
RevisionIncFileName:=ParamStr(2);
RevisionIncDirName:=ExtractFilePath(RevisionIncFileName);
if not DirectoryExists(SourceDirectory) then begin
writeln('Error: Target Directory "', RevisionIncDirName, '" doesn''t exist.');
exit;
end;
Result := true;
end;
begin
if not ParamsValid then begin
writeln('Usage: ',ExtractFileName(ParamStr(0)),' sourcedir revision.inc');
halt(1);
end;
if FindRevision or not FileExists(RevisionIncFileName) then
WriteRevisionInc;
end.

2
tools/updatepofiles.pas
View File

@ -21,7 +21,7 @@
Author: Mattias Gaertner
Name:
updatepofiles - creates an lazarus resource file from files
updatepofiles - updates po files.
Synopsis:
updatepofiles filename1.po [filename2.po ... filenameN.po]