pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

+ add delphi DUnit (9.3) test suite

Browse Source 
delphi compatibility 

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@224 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2007-07-25 00:30:44 +00:00
parent 0e95629552
commit 02efb4cb8a
11 changed files with 807 additions and 460 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
wst/trunk/base_service_intf.pas
View File

@ -16,7 +16,11 @@ unit base_service_intf;
interface interface
uses uses
Classes, SysUtils, TypInfo, Contnrs, syncobjs, semaphore; Classes, SysUtils, TypInfo, Contnrs, syncobjs, semaphore
{$IFNDEF FPC}
,Windows
{$ENDIF}
;
{$INCLUDE wst.inc} {$INCLUDE wst.inc}
{$INCLUDE wst_delphi.inc} {$INCLUDE wst_delphi.inc}
@ -1195,6 +1199,9 @@ const
function IsStoredPropClass(AClass : TClass;PropInfo : PPropInfo) : TPropStoreType; function IsStoredPropClass(AClass : TClass;PropInfo : PPropInfo) : TPropStoreType;
var
wst_FormatSettings : TFormatSettings;
implementation implementation
uses imp_utils; uses imp_utils;
@ -1570,7 +1577,7 @@ begin
case pt^.Kind of case pt^.Kind of
tkInt64{$IFDEF FPC},tkQWord{$ENDIF} : tkInt64{$IFDEF FPC},tkQWord{$ENDIF} :
begin begin
int64Data := GetOrdProp(AObject,p^.Name); int64Data := GetInt64Prop(AObject,p^.Name);
AStore.Put(prpName,pt,int64Data); AStore.Put(prpName,pt,int64Data);
end; end;
tkLString{$IFDEF FPC},tkAString{$ENDIF} : tkLString{$IFDEF FPC},tkAString{$ENDIF} :
@ -1661,11 +1668,13 @@ begin
floatDt.CurrencyData := GetFloatProp(AObject,p^.Name); floatDt.CurrencyData := GetFloatProp(AObject,p^.Name);
AStore.Put(prpName,pt,floatDt.CurrencyData); AStore.Put(prpName,pt,floatDt.CurrencyData);
end; end;
{$IFDEF CPU86}
ftComp : ftComp :
begin begin
floatDt.CompData := GetFloatProp(AObject,p^.Name); floatDt.CompData := GetFloatProp(AObject,p^.Name);
AStore.Put(prpName,pt,floatDt.CompData); AStore.Put(prpName,pt,floatDt.CompData);
end; end;
{$ENDIF}
end; end;
end; end;
end; end;
@ -1737,10 +1746,10 @@ begin
try try
Case pt^.Kind Of Case pt^.Kind Of
tkInt64{$IFDEF FPC},tkQWord{$ENDIF} : tkInt64{$IFDEF FPC},tkQWord{$ENDIF} :
Begin begin
AStore.Get(pt,propName,int64Data); AStore.Get(pt,propName,int64Data);
SetOrdProp(AObject,p^.Name,int64Data); SetInt64Prop(AObject,p^.Name,int64Data);
End; end;
tkLString{$IFDEF FPC}, tkAString{$ENDIF} : tkLString{$IFDEF FPC}, tkAString{$ENDIF} :
Begin Begin
AStore.Get(pt,propName,strData); AStore.Get(pt,propName,strData);
@ -3658,11 +3667,13 @@ begin
floatDt.CurrencyData := GetFloatProp(AObject,p^.Name); floatDt.CurrencyData := GetFloatProp(AObject,p^.Name);
AStore.Put(propName,pt,floatDt.CurrencyData); AStore.Put(propName,pt,floatDt.CurrencyData);
end; end;
{$IFDEF CPU86}
ftComp : ftComp :
begin begin
floatDt.CompData := GetFloatProp(AObject,p^.Name); floatDt.CompData := GetFloatProp(AObject,p^.Name);
AStore.Put(propName,pt,floatDt.CompData); AStore.Put(propName,pt,floatDt.CompData);
end; end;
{$ENDIF}
end; end;
end; end;
end; end;
@ -4493,6 +4504,12 @@ end;
initialization initialization
{$IFDEF FPC}
wst_FormatSettings := DefaultFormatSettings;
{$ELSE}
GetLocaleFormatSettings(GetThreadLocale(),wst_FormatSettings);
{$ENDIF}
wst_FormatSettings.DecimalSeparator := '.';
TypeRegistryInstance := TTypeRegistry.Create(); TypeRegistryInstance := TTypeRegistry.Create();
SerializeOptionsRegistryInstance := TSerializeOptionsRegistry.Create(); SerializeOptionsRegistryInstance := TSerializeOptionsRegistry.Create();

32
wst/trunk/base_soap_formatter.pas
View File

@ -344,6 +344,7 @@ type
End; End;
{$M-} {$M-}
implementation implementation
Uses {$IFNDEF FPC}XMLDoc,XMLIntf,{$ELSE}XMLWrite, XMLRead,wst_fpc_xml,{$ENDIF} Uses {$IFNDEF FPC}XMLDoc,XMLIntf,{$ELSE}XMLWrite, XMLRead,wst_fpc_xml,{$ENDIF}
StrUtils, imp_utils; StrUtils, imp_utils;
@ -741,7 +742,7 @@ function TSOAPBaseFormatter.PutFloat(
):TDOMNode; ):TDOMNode;
Var Var
s, frmt : string; s, frmt : string;
prcsn,i : Integer; prcsn : Integer;
begin begin
Case GetTypeData(ATypeInfo)^.FloatType Of Case GetTypeData(ATypeInfo)^.FloatType Of
ftSingle, ftSingle,
@ -751,10 +752,10 @@ begin
ftExtended : prcsn := 15; ftExtended : prcsn := 15;
End; End;
frmt := '#.' + StringOfChar('#',prcsn) + 'E-0'; frmt := '#.' + StringOfChar('#',prcsn) + 'E-0';
s := FormatFloat(frmt,AData); s := FormatFloat(frmt,AData,wst_FormatSettings);
i := Pos(',',s); // i := Pos(',',s);
If ( i > 0 ) Then //If ( i > 0 ) Then
s[i] := '.'; //s[i] := '.';
Result := InternalPutData(AName,ATypeInfo,s); Result := InternalPutData(AName,ATypeInfo,s);
end; end;
@ -845,7 +846,7 @@ procedure TSOAPBaseFormatter.GetFloat(
var AData : Extended var AData : Extended
); );
begin begin
AData := StrToFloatDef(Trim(GetNodeValue(AName)),0); AData := StrToFloatDef(Trim(GetNodeValue(AName)),0,wst_FormatSettings);
end; end;
procedure TSOAPBaseFormatter.GetStr( procedure TSOAPBaseFormatter.GetStr(
@ -1591,7 +1592,9 @@ begin
ftDouble : Double(AData) := floatDt; ftDouble : Double(AData) := floatDt;
ftExtended : Extended(AData) := floatDt; ftExtended : Extended(AData) := floatDt;
ftCurr : Currency(AData) := floatDt; ftCurr : Currency(AData) := floatDt;
{$IFDEF CPU86}
ftComp : Comp(AData) := floatDt; ftComp : Comp(AData) := floatDt;
{$ENDIF}
End; End;
End; End;
End; End;
@ -1650,13 +1653,15 @@ begin
end; end;
tkFloat : tkFloat :
begin begin
floatDt := StrToFloatDef(Trim(dataBuffer),0); floatDt := StrToFloatDef(Trim(dataBuffer),0,wst_FormatSettings);
case GetTypeData(ATypeInfo)^.FloatType of case GetTypeData(ATypeInfo)^.FloatType of
ftSingle : Single(AData) := floatDt; ftSingle : Single(AData) := floatDt;
ftDouble : Double(AData) := floatDt; ftDouble : Double(AData) := floatDt;
ftExtended : Extended(AData) := floatDt; ftExtended : Extended(AData) := floatDt;
ftCurr : Currency(AData) := floatDt; ftCurr : Currency(AData) := floatDt;
{$IFDEF CPU86}
ftComp : Comp(AData) := floatDt; ftComp : Comp(AData) := floatDt;
{$ENDIF}
end; end;
end; end;
end; end;
@ -1730,13 +1735,18 @@ end;
{ TEmbeddedArrayStackItem } { TEmbeddedArrayStackItem }
function TEmbeddedArrayStackItem.CreateList(const ANodeName: string): TDOMNodeList; function TEmbeddedArrayStackItem.CreateList(const ANodeName: string): TDOMNodeList;
{$IFNDEF FPC}
var
slct : IDOMNodeSelect;
{$ENDIF}
begin begin
if ScopeObject.HasChildNodes() then begin if ScopeObject.HasChildNodes() then begin
{$IFNDEF FPC} {$IFNDEF FPC}
Result := ScopeObject.childNodes; slct := ScopeObject as IDOMNodeSelect;
{$ELSE} Result := slct.selectNodes(ANodeName); //ScopeObject.childNodes;
{$ELSE}
Result := {$IFNDEF FPC_211}TDOMNodeList{$ELSE}TDOMElementList{$ENDIF}.Create(ScopeObject,ANodeName); Result := {$IFNDEF FPC_211}TDOMNodeList{$ELSE}TDOMElementList{$ENDIF}.Create(ScopeObject,ANodeName);
{$ENDIF} {$ENDIF}
end else begin end else begin
Result := nil; Result := nil;
end; end;

4
wst/trunk/base_xmlrpc_formatter.pas
View File

@ -834,7 +834,7 @@ procedure TXmlRpcBaseFormatter.GetFloat(
var AData : Extended var AData : Extended
); );
begin begin
AData := StrToFloatDef(Trim(GetNodeValue(AName)),0); AData := StrToFloatDef(Trim(GetNodeValue(AName)),0,wst_FormatSettings);
end; end;
procedure TXmlRpcBaseFormatter.GetStr( procedure TXmlRpcBaseFormatter.GetStr(
@ -1321,7 +1321,7 @@ begin
end; end;
tkFloat : tkFloat :
begin begin
floatDt := StrToFloatDef(Trim(dataBuffer),0); floatDt := StrToFloatDef(Trim(dataBuffer),0,wst_FormatSettings);
case GetTypeData(ATypeInfo)^.FloatType of case GetTypeData(ATypeInfo)^.FloatType of
ftSingle : Single(AData) := floatDt; ftSingle : Single(AData) := floatDt;
ftDouble : Double(AData) := floatDt; ftDouble : Double(AData) := floatDt;

1
wst/trunk/tests/test_suite/delphi/exec.bat Normal file
View File

@ -0,0 +1 @@
wst_test_suite.exe >res.txt

44
wst/trunk/tests/test_suite/delphi/wst_test_suite.cfg Normal file
View File

@ -0,0 +1,44 @@
-$A8
-$B-
-$C+
-$D+
-$E-
-$F-
-$G+
-$H+
-$I+
-$J-
-$K-
-$L+
-$M-
-$N+
-$O+
-$P+
-$Q-
-$R-
-$S-
-$T-
-$U-
-$V+
-$W-
-$X+
-$YD
-$Z1
-cg
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
-H+
-W+
-M
-$M16384,1048576
-K$00400000
-N"obj"
-LE"c:\program files\borland\delphi7\Projects\Bpl"
-LN"c:\program files\borland\delphi7\Projects\Bpl"
-U"..\;..\..\;..\..\..\;C:\Program Files\Borland\Delphi7\plate_forme\dunit\dunit-9.3.0\src"
-O"..\;..\..\;..\..\..\;C:\Program Files\Borland\Delphi7\plate_forme\dunit\dunit-9.3.0\src"
-I"..\;..\..\;..\..\..\;C:\Program Files\Borland\Delphi7\plate_forme\dunit\dunit-9.3.0\src"
-R"..\;..\..\;..\..\..\;C:\Program Files\Borland\Delphi7\plate_forme\dunit\dunit-9.3.0\src"
-DDUnit
-w-UNSAFE_TYPE
-w-UNSAFE_CODE
-w-UNSAFE_CAST

165
wst/trunk/tests/test_suite/delphi/wst_test_suite.dof Normal file
View File

@ -0,0 +1,165 @@
[FileVersion]
Version=7.0
[Compiler]
A=8
B=0
C=1
D=1
E=0
F=0
G=1
H=1
I=1
J=0
K=0
L=1
M=0
N=1
O=1
P=1
Q=0
R=0
S=0
T=0
U=0
V=1
W=0
X=1
Y=1
Z=1
ShowHints=1
ShowWarnings=1
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
NamespacePrefix=
SymbolDeprecated=1
SymbolLibrary=1
SymbolPlatform=1
UnitLibrary=1
UnitPlatform=1
UnitDeprecated=1
HResultCompat=1
HidingMember=1
HiddenVirtual=1
Garbage=1
BoundsError=1
ZeroNilCompat=1
StringConstTruncated=1
ForLoopVarVarPar=1
TypedConstVarPar=1
AsgToTypedConst=1
CaseLabelRange=1
ForVariable=1
ConstructingAbstract=1
ComparisonFalse=1
ComparisonTrue=1
ComparingSignedUnsigned=1
CombiningSignedUnsigned=1
UnsupportedConstruct=1
FileOpen=1
FileOpenUnitSrc=1
BadGlobalSymbol=1
DuplicateConstructorDestructor=1
InvalidDirective=1
PackageNoLink=1
PackageThreadVar=1
ImplicitImport=1
HPPEMITIgnored=1
NoRetVal=1
UseBeforeDef=1
ForLoopVarUndef=1
UnitNameMismatch=1
NoCFGFileFound=1
MessageDirective=1
ImplicitVariants=1
UnicodeToLocale=1
LocaleToUnicode=1
ImagebaseMultiple=1
SuspiciousTypecast=1
PrivatePropAccessor=1
UnsafeType=0
UnsafeCode=0
UnsafeCast=0
[Linker]
MapFile=0
OutputObjs=0
ConsoleApp=1
DebugInfo=0
RemoteSymbols=0
MinStackSize=16384
MaxStackSize=1048576
ImageBase=4194304
ExeDescription=
[Directories]
OutputDir=
UnitOutputDir=obj
PackageDLLOutputDir=
PackageDCPOutputDir=
SearchPath=..\;..\..\;..\..\..\;C:\Program Files\Borland\Delphi7\plate_forme\dunit\dunit-9.3.0\src
Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP;FIBDBMidas7;Jcl;JclVcl;JvCoreD7R;JvSystemD7R;JvStdCtrlsD7R;JvAppFrmD7R;JvBandsD7R;JvDBD7R;JvDlgsD7R;JvBDED7R;JvCmpD7R;JvCryptD7R;JvCtrlsD7R;JvCustomD7R;JvDockingD7R;JvDotNetCtrlsD7R;JvEDID7R;JvGlobusD7R;JvHMID7R;JvInterpreterD7R;JvJansD7R;JvManagedThreadsD7R;JvMMD7R;JvNetD7R;JvPageCompsD7R;JvPluginD7R;JvPrintPreviewD7R;JvRuntimeDesignD7R;JvTimeFrameworkD7R;JvUIBD7R;JvValidatorsD7R;JvWizardD7R;JvXPCtrlsD7R;dxForumLibD7;cxLibraryVCLD7;cxPageControlVCLD7;dxBarD7;dxComnD7;dxBarDBNavD7;dxBarExtItemsD7;dxBarExtDBItemsD7;dxsbD7;dxmdsD7;dxdbtrD7;dxtrmdD7;dxorgcD7;dxdborD7;dxEdtrD7;EQTLD7;ECQDBCD7;EQDBTLD7;EQGridD7;dxGrEdD7;dxExELD7;dxELibD7;cxEditorsVCLD7;cxGridVCLD7;dxThemeD7;cxDataD7;cxGridUtilsVCLD7;dxPSCoreD7;dxPsPrVwAdvD7;dxPSLnksD7;dxPSTeeChartD7;dxPSDBTeeChartD7;dxPSdxDBTVLnkD7;dxPSdxOCLnkD7;dxPSdxDBOCLnkD7;dxPScxGridLnkD7;dxPSTLLnkD7;qrpt
Conditionals=DUnit
DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=
Launcher=
UseLauncher=0
DebugCWD=
[Language]
ActiveLang=
ProjectLang=
RootDir=C:\Program Files\Borland\Delphi7\Bin\
[Version Info]
IncludeVerInfo=0
AutoIncBuild=0
MajorVer=1
MinorVer=0
Release=0
Build=0
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=1036
CodePage=1252
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=
[Excluded Packages]
C:\Program Files\Developer Express Inc\ExpressPrinting System\Delphi 7\Lib\dxPSdxDBTLLnkD7.bpl=ExpressPrinting System ReportLink for ExpressQuantumDBTreeList by Developer Express Inc.
C:\Program Files\Developer Express Inc\ExpressPrinting System\Delphi 7\Lib\dxPSdxDBGrLnkD7.bpl=ExpressPrinting System ReportLink for ExpressQuantumGrid by Developer Express Inc.
C:\Program Files\Developer Express Inc\ExpressPrinting System\Delphi 7\Lib\dxPSdxInsLnkD7.bpl=ExpressPrinting System ReportLink for ExpressInspector by Developer Express Inc.
C:\Program Files\Developer Express Inc\ExpressPrinting System\Delphi 7\Lib\dxPSdxOILnkD7.bpl=ExpressPrinting System ReportLink for ExpressRTTIInspector by Developer Express Inc.
C:\Program Files\Developer Express Inc\ExpressPrinting System\Delphi 7\Lib\dxPSdxMVLnkD7.bpl=ExpressPrinting System ReportLink for ExpressMasterView by Developer Express Inc.
C:\Program Files\Developer Express Inc\ExpressPrinting System\Delphi 7\Lib\dxPSdxFCLnkD7.bpl=ExpressPrinting System ReportLinks for ExpressFlowChart by Developer Express Inc.
C:\Program Files\Developer Express Inc\ExpressPrinting System\Delphi 7\Lib\dxPScxSSLnkD7.bpl=ExpressPrinting System ReportLink for ExpressSpreadSheet by Developer Express Inc.
[HistoryLists\hlConditionals]
Count=1
Item0=DUnit
[HistoryLists\hlUnitAliases]
Count=1
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
[HistoryLists\hlSearchPath]
Count=10
Item0=..\;..\..\;..\..\..\;C:\Program Files\Borland\Delphi7\plate_forme\dunit\dunit-9.3.0\src
Item1=..\;..\..\;..\..\..\;C:\Programmes\lazarus\wst\trunk\ws_helper;C:\Program Files\Borland\Delphi7\plate_forme\dunit\dunit-9.3.0\src
Item2=..\;..\..\;..\..\..\;..\..\ws_helper;C:\Program Files\Borland\Delphi7\plate_forme\dunit\dunit-9.3.0\src
Item3=..\;..\..\;..\..\..\;..\..\ws_helper\;C:\Program Files\Borland\Delphi7\plate_forme\dunit\dunit-9.3.0\src
Item4=..\;..\..\;..\..\..\;..\..\ws_helper\;C:\Program Files\Borland\Delphi7\plate_forme\dunit\dunit-9.3.0\src;C:\Programmes\lazarus\wst\trunk\ws_helper
Item5=..\;..\..\;..\..\..\;..\..\..\ws_helper\;C:\Program Files\Borland\Delphi7\plate_forme\dunit\dunit-9.3.0\src
Item6=..\;..\..\;C:\Program Files\Borland\Delphi7\plate_forme\dunit\dunit-9.3.0\src
Item7=..\;C:\Program Files\Borland\Delphi7\plate_forme\dunit\dunit-9.3.0\src
Item8=C:\Program Files\Borland\Delphi7\plate_forme\dunit\dunit-9.3.0\src
Item9=..\
[HistoryLists\hlUnitOutputDirectory]
Count=1
Item0=obj

19
wst/trunk/tests/test_suite/delphi/wst_test_suite.dpr Normal file
View File

@ -0,0 +1,19 @@
{$APPTYPE CONSOLE}
program wst_test_suite;
uses
SysUtils, ActiveX,
TestFrameWork,
TextTestRunner,
test_utilities in '..\test_utilities.pas',
testformatter_unit in '..\testformatter_unit.pas';
{$R *.res}
begin
CoInitialize(nil);
try
TextTestRunner.RunRegisteredTests(rxbContinue);
finally
CoUninitialize();
end;
end.

19
wst/trunk/tests/test_suite/test_utilities.pas
View File

@ -1,14 +1,21 @@
{$INCLUDE wst_global.inc}
unit test_utilities; unit test_utilities;
{$mode objfpc}{$H+}
interface interface
uses uses
Classes, SysUtils, fpcunit, testutils, testregistry, Classes, SysUtils,
{$IFDEF FPC}
fpcunit, testutils, testregistry,
{$ELSE}
TestFrameWork,
{$ENDIF}
TypInfo, TypInfo,
base_service_intf, server_service_intf; base_service_intf, server_service_intf;
{$INCLUDE wst.inc}
{$INCLUDE wst_delphi.inc}
type type
ITest = interface ITest = interface
@ -441,8 +448,14 @@ begin
end; end;
initialization initialization
{$IFDEF FPC}
RegisterTest(TTest_TIntfPool); RegisterTest(TTest_TIntfPool);
RegisterTest(TTest_TSimpleItemFactoryEx); RegisterTest(TTest_TSimpleItemFactoryEx);
RegisterTest(TTest_TImplementationFactory); RegisterTest(TTest_TImplementationFactory);
{$ELSE}
RegisterTest(TTest_TIntfPool.Suite);
RegisterTest(TTest_TSimpleItemFactoryEx.Suite);
RegisterTest(TTest_TImplementationFactory.Suite);
{$ENDIF}
end. end.

628
wst/trunk/tests/test_suite/testformatter_unit.pas
View File

File diff suppressed because it is too large Load Diff

14
wst/trunk/tests/test_suite/testmetadata_unit.pas
View File

@ -11,19 +11,25 @@
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
} }
{$INCLUDE wst_global.inc}
unit testmetadata_unit; unit testmetadata_unit;
{$mode objfpc}{$H+}
interface interface
uses uses
Classes, SysUtils, DOM, XMLWrite, Classes, SysUtils,
fpcunit, testutils, testregistry, {$IFDEF FPC}
fpcunit, testutils, testregistry, DOM, XMLWrite,
{$ELSE}
TestFrameWork, xmldom, wst_delphi_xml,
{$ENDIF}
metadata_generator, binary_streamer, metadata_repository, pastree, metadata_generator, binary_streamer, metadata_repository, pastree,
pascal_parser_intf, pascal_parser_intf,
metadata_wsdl; metadata_wsdl;
{$INCLUDE wst.inc}
{$INCLUDE wst_delphi.inc}
type type
{ TTestMetadata } { TTestMetadata }

296
wst/trunk/tests/test_suite/wst_test_suite.lpi
View File

@ -7,7 +7,7 @@
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/> <IconPath Value="./"/>
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="1"/> <ActiveEditorIndexAtStart Value="3"/>
</General> </General>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
@ -27,7 +27,7 @@
<PackageName Value="FPCUnitTestRunner"/> <PackageName Value="FPCUnitTestRunner"/>
</Item1> </Item1>
</RequiredPackages> </RequiredPackages>
<Units Count="60"> <Units Count="65">
<Unit0> <Unit0>
<Filename Value="wst_test_suite.lpr"/> <Filename Value="wst_test_suite.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
@ -40,9 +40,9 @@
<Filename Value="testformatter_unit.pas"/> <Filename Value="testformatter_unit.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="testformatter_unit"/> <UnitName Value="testformatter_unit"/>
<CursorPos X="1" Y="19"/> <CursorPos X="1" Y="1"/>
<TopLine Value="55"/> <TopLine Value="1"/>
<EditorIndex Value="2"/> <EditorIndex Value="6"/>
<UsageCount Value="200"/> <UsageCount Value="200"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit1> </Unit1>
@ -74,8 +74,8 @@
<Filename Value="..\..\base_service_intf.pas"/> <Filename Value="..\..\base_service_intf.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="base_service_intf"/> <UnitName Value="base_service_intf"/>
<CursorPos X="3" Y="1064"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1069"/> <TopLine Value="1"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<UsageCount Value="200"/> <UsageCount Value="200"/>
<Bookmarks Count="2"> <Bookmarks Count="2">
@ -88,9 +88,11 @@
<Filename Value="..\..\base_soap_formatter.pas"/> <Filename Value="..\..\base_soap_formatter.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="base_soap_formatter"/> <UnitName Value="base_soap_formatter"/>
<CursorPos X="26" Y="13"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="1"/>
<UsageCount Value="200"/> <UsageCount Value="200"/>
<Loaded Value="True"/>
</Unit6> </Unit6>
<Unit7> <Unit7>
<Filename Value="..\..\binary_formatter.pas"/> <Filename Value="..\..\binary_formatter.pas"/>
@ -131,9 +133,9 @@
<Filename Value="testmetadata_unit.pas"/> <Filename Value="testmetadata_unit.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="testmetadata_unit"/> <UnitName Value="testmetadata_unit"/>
<CursorPos X="31" Y="194"/> <CursorPos X="1" Y="1"/>
<TopLine Value="170"/> <TopLine Value="1"/>
<EditorIndex Value="4"/> <EditorIndex Value="9"/>
<UsageCount Value="202"/> <UsageCount Value="202"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit11> </Unit11>
@ -163,7 +165,7 @@
<UnitName Value="metadata_wsdl"/> <UnitName Value="metadata_wsdl"/>
<CursorPos X="44" Y="21"/> <CursorPos X="44" Y="21"/>
<TopLine Value="209"/> <TopLine Value="209"/>
<EditorIndex Value="3"/> <EditorIndex Value="8"/>
<UsageCount Value="206"/> <UsageCount Value="206"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit14> </Unit14>
@ -172,21 +174,21 @@
<UnitName Value="DOM"/> <UnitName Value="DOM"/>
<CursorPos X="15" Y="429"/> <CursorPos X="15" Y="429"/>
<TopLine Value="413"/> <TopLine Value="413"/>
<UsageCount Value="6"/> <UsageCount Value="5"/>
</Unit15> </Unit15>
<Unit16> <Unit16>
<Filename Value="D:\lazarusClean\fpc\2.0.4\source\rtl\objpas\sysutils\sysutilh.inc"/> <Filename Value="D:\lazarusClean\fpc\2.0.4\source\rtl\objpas\sysutils\sysutilh.inc"/>
<CursorPos X="13" Y="235"/> <CursorPos X="13" Y="235"/>
<TopLine Value="215"/> <TopLine Value="215"/>
<UsageCount Value="0"/> <UsageCount Value="9"/>
</Unit16> </Unit16>
<Unit17> <Unit17>
<Filename Value="..\..\server_service_intf.pas"/> <Filename Value="..\..\server_service_intf.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="server_service_intf"/> <UnitName Value="server_service_intf"/>
<CursorPos X="52" Y="140"/> <CursorPos X="27" Y="19"/>
<TopLine Value="134"/> <TopLine Value="1"/>
<EditorIndex Value="1"/> <EditorIndex Value="4"/>
<UsageCount Value="203"/> <UsageCount Value="203"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit17> </Unit17>
@ -195,38 +197,38 @@
<UnitName Value="service_intf"/> <UnitName Value="service_intf"/>
<CursorPos X="3" Y="38"/> <CursorPos X="3" Y="38"/>
<TopLine Value="27"/> <TopLine Value="27"/>
<UsageCount Value="16"/> <UsageCount Value="15"/>
</Unit18> </Unit18>
<Unit19> <Unit19>
<Filename Value="D:\lazarusClean\fpc\2.0.4\source\rtl\objpas\classes\classesh.inc"/> <Filename Value="D:\lazarusClean\fpc\2.0.4\source\rtl\objpas\classes\classesh.inc"/>
<CursorPos X="3" Y="316"/> <CursorPos X="3" Y="316"/>
<TopLine Value="304"/> <TopLine Value="304"/>
<UsageCount Value="0"/> <UsageCount Value="9"/>
</Unit19> </Unit19>
<Unit20> <Unit20>
<Filename Value="D:\lazarusClean\fpc\2.0.4\source\rtl\objpas\classes\lists.inc"/> <Filename Value="D:\lazarusClean\fpc\2.0.4\source\rtl\objpas\classes\lists.inc"/>
<CursorPos X="3" Y="407"/> <CursorPos X="3" Y="407"/>
<TopLine Value="404"/> <TopLine Value="404"/>
<UsageCount Value="0"/> <UsageCount Value="9"/>
</Unit20> </Unit20>
<Unit21> <Unit21>
<Filename Value="D:\lazarusClean\fpc\2.0.4\source\fcl\inc\contnrs.pp"/> <Filename Value="D:\lazarusClean\fpc\2.0.4\source\fcl\inc\contnrs.pp"/>
<UnitName Value="contnrs"/> <UnitName Value="contnrs"/>
<CursorPos X="3" Y="474"/> <CursorPos X="3" Y="474"/>
<TopLine Value="471"/> <TopLine Value="471"/>
<UsageCount Value="0"/> <UsageCount Value="9"/>
</Unit21> </Unit21>
<Unit22> <Unit22>
<Filename Value="D:\lazarusClean\fpc\2.0.4\source\rtl\inc\objpash.inc"/> <Filename Value="D:\lazarusClean\fpc\2.0.4\source\rtl\inc\objpash.inc"/>
<CursorPos X="27" Y="121"/> <CursorPos X="27" Y="121"/>
<TopLine Value="104"/> <TopLine Value="104"/>
<UsageCount Value="0"/> <UsageCount Value="9"/>
</Unit22> </Unit22>
<Unit23> <Unit23>
<Filename Value="D:\lazarusClean\fpc\2.0.4\source\rtl\inc\objpas.inc"/> <Filename Value="D:\lazarusClean\fpc\2.0.4\source\rtl\inc\objpas.inc"/>
<CursorPos X="9" Y="166"/> <CursorPos X="9" Y="166"/>
<TopLine Value="142"/> <TopLine Value="142"/>
<UsageCount Value="0"/> <UsageCount Value="9"/>
</Unit23> </Unit23>
<Unit24> <Unit24>
<Filename Value="D:\Lazarus\components\fpcunit\guitestrunner.pas"/> <Filename Value="D:\Lazarus\components\fpcunit\guitestrunner.pas"/>
@ -235,41 +237,41 @@
<UnitName Value="GuiTestRunner"/> <UnitName Value="GuiTestRunner"/>
<CursorPos X="34" Y="32"/> <CursorPos X="34" Y="32"/>
<TopLine Value="25"/> <TopLine Value="25"/>
<UsageCount Value="0"/> <UsageCount Value="9"/>
</Unit24> </Unit24>
<Unit25> <Unit25>
<Filename Value="..\..\..\..\..\lazarusClean\fpc\2.0.4\source\fcl\fpcunit\fpcunit.pp"/> <Filename Value="..\..\..\..\..\lazarusClean\fpc\2.0.4\source\fcl\fpcunit\fpcunit.pp"/>
<UnitName Value="fpcunit"/> <UnitName Value="fpcunit"/>
<CursorPos X="21" Y="94"/> <CursorPos X="21" Y="94"/>
<TopLine Value="83"/> <TopLine Value="83"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit25> </Unit25>
<Unit26> <Unit26>
<Filename Value="..\..\..\..\..\lazarusClean\fpc\2.0.4\source\fcl\fpcunit\DUnitCompatibleInterface.inc"/> <Filename Value="..\..\..\..\..\lazarusClean\fpc\2.0.4\source\fcl\fpcunit\DUnitCompatibleInterface.inc"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="4"/> <TopLine Value="4"/>
<UsageCount Value="2"/> <UsageCount Value="1"/>
</Unit26> </Unit26>
<Unit27> <Unit27>
<Filename Value="..\..\imp_utils.pas"/> <Filename Value="..\..\imp_utils.pas"/>
<UnitName Value="imp_utils"/> <UnitName Value="imp_utils"/>
<CursorPos X="15" Y="36"/> <CursorPos X="15" Y="36"/>
<TopLine Value="22"/> <TopLine Value="22"/>
<UsageCount Value="2"/> <UsageCount Value="1"/>
</Unit27> </Unit27>
<Unit28> <Unit28>
<Filename Value="..\..\..\..\..\lazarusClean\fpc\2.0.4\source\fcl\xml\dom.pp"/> <Filename Value="..\..\..\..\..\lazarusClean\fpc\2.0.4\source\fcl\xml\dom.pp"/>
<UnitName Value="DOM"/> <UnitName Value="DOM"/>
<CursorPos X="3" Y="51"/> <CursorPos X="3" Y="51"/>
<TopLine Value="41"/> <TopLine Value="41"/>
<UsageCount Value="2"/> <UsageCount Value="1"/>
</Unit28> </Unit28>
<Unit29> <Unit29>
<Filename Value="..\..\..\..\..\lazarusClean\fpc\2.0.4\source\fcl\xml\xmlread.pp"/> <Filename Value="..\..\..\..\..\lazarusClean\fpc\2.0.4\source\fcl\xml\xmlread.pp"/>
<UnitName Value="XMLRead"/> <UnitName Value="XMLRead"/>
<CursorPos X="43" Y="13"/> <CursorPos X="43" Y="13"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="6"/> <UsageCount Value="5"/>
</Unit29> </Unit29>
<Unit30> <Unit30>
<Filename Value="test_parserdef.pas"/> <Filename Value="test_parserdef.pas"/>
@ -277,39 +279,39 @@
<UnitName Value="test_parserdef"/> <UnitName Value="test_parserdef"/>
<CursorPos X="93" Y="76"/> <CursorPos X="93" Y="76"/>
<TopLine Value="11"/> <TopLine Value="11"/>
<UsageCount Value="160"/> <UsageCount Value="170"/>
</Unit30> </Unit30>
<Unit31> <Unit31>
<Filename Value="..\..\..\..\..\lazarusClean\fpc\2.0.4\source\rtl\inc\objpash.inc"/> <Filename Value="..\..\..\..\..\lazarusClean\fpc\2.0.4\source\rtl\inc\objpash.inc"/>
<CursorPos X="8" Y="190"/> <CursorPos X="8" Y="190"/>
<TopLine Value="133"/> <TopLine Value="133"/>
<UsageCount Value="7"/> <UsageCount Value="6"/>
</Unit31> </Unit31>
<Unit32> <Unit32>
<Filename Value="..\..\wst.inc"/> <Filename Value="..\..\wst.inc"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="13"/> <UsageCount Value="12"/>
</Unit32> </Unit32>
<Unit33> <Unit33>
<Filename Value="..\..\..\..\..\lazarusClean\fpc\2.0.4\source\rtl\objpas\objpas.pp"/> <Filename Value="..\..\..\..\..\lazarusClean\fpc\2.0.4\source\rtl\objpas\objpas.pp"/>
<UnitName Value="objpas"/> <UnitName Value="objpas"/>
<CursorPos X="47" Y="64"/> <CursorPos X="47" Y="64"/>
<TopLine Value="38"/> <TopLine Value="38"/>
<UsageCount Value="2"/> <UsageCount Value="1"/>
</Unit33> </Unit33>
<Unit34> <Unit34>
<Filename Value="..\..\..\..\..\lazarusClean\fpc\2.0.4\source\rtl\inc\heaph.inc"/> <Filename Value="..\..\..\..\..\lazarusClean\fpc\2.0.4\source\rtl\inc\heaph.inc"/>
<CursorPos X="43" Y="100"/> <CursorPos X="43" Y="100"/>
<TopLine Value="83"/> <TopLine Value="83"/>
<UsageCount Value="5"/> <UsageCount Value="4"/>
</Unit34> </Unit34>
<Unit35> <Unit35>
<Filename Value="..\test_fpc\interface_problem\interface_problem.pas"/> <Filename Value="..\test_fpc\interface_problem\interface_problem.pas"/>
<UnitName Value="interface_problem"/> <UnitName Value="interface_problem"/>
<CursorPos X="1" Y="10"/> <CursorPos X="1" Y="10"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="13"/> <UsageCount Value="12"/>
</Unit35> </Unit35>
<Unit36> <Unit36>
<Filename Value="..\..\base_xmlrpc_formatter.pas"/> <Filename Value="..\..\base_xmlrpc_formatter.pas"/>
@ -317,121 +319,121 @@
<UnitName Value="base_xmlrpc_formatter"/> <UnitName Value="base_xmlrpc_formatter"/>
<CursorPos X="26" Y="13"/> <CursorPos X="26" Y="13"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="98"/> <UsageCount Value="108"/>
</Unit36> </Unit36>
<Unit37> <Unit37>
<Filename Value="..\..\ws_helper\pscanner.pp"/> <Filename Value="..\..\ws_helper\pscanner.pp"/>
<UnitName Value="PScanner"/> <UnitName Value="PScanner"/>
<CursorPos X="19" Y="505"/> <CursorPos X="19" Y="505"/>
<TopLine Value="491"/> <TopLine Value="491"/>
<UsageCount Value="20"/> <UsageCount Value="19"/>
</Unit37> </Unit37>
<Unit38> <Unit38>
<Filename Value="..\..\ws_helper\pascal_parser_intf.pas"/> <Filename Value="..\..\ws_helper\pascal_parser_intf.pas"/>
<UnitName Value="pascal_parser_intf"/> <UnitName Value="pascal_parser_intf"/>
<CursorPos X="62" Y="296"/> <CursorPos X="62" Y="296"/>
<TopLine Value="296"/> <TopLine Value="296"/>
<UsageCount Value="30"/> <UsageCount Value="29"/>
</Unit38> </Unit38>
<Unit39> <Unit39>
<Filename Value="..\..\ws_helper\pastree.pp"/> <Filename Value="..\..\ws_helper\pastree.pp"/>
<UnitName Value="PasTree"/> <UnitName Value="PasTree"/>
<CursorPos X="18" Y="254"/> <CursorPos X="18" Y="254"/>
<TopLine Value="243"/> <TopLine Value="243"/>
<UsageCount Value="20"/> <UsageCount Value="19"/>
</Unit39> </Unit39>
<Unit40> <Unit40>
<Filename Value="..\..\..\..\..\..\lazarus_23_215\fpc\2.1.5\source\packages\fcl-xml\src\dom.pp"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215\fpc\2.1.5\source\packages\fcl-xml\src\dom.pp"/>
<UnitName Value="DOM"/> <UnitName Value="DOM"/>
<CursorPos X="38" Y="225"/> <CursorPos X="38" Y="225"/>
<TopLine Value="203"/> <TopLine Value="203"/>
<UsageCount Value="19"/> <UsageCount Value="18"/>
</Unit40> </Unit40>
<Unit41> <Unit41>
<Filename Value="..\..\wst_rtti_filter\cursor_intf.pas"/> <Filename Value="..\..\wst_rtti_filter\cursor_intf.pas"/>
<UnitName Value="cursor_intf"/> <UnitName Value="cursor_intf"/>
<CursorPos X="3" Y="75"/> <CursorPos X="3" Y="75"/>
<TopLine Value="70"/> <TopLine Value="70"/>
<UsageCount Value="11"/> <UsageCount Value="10"/>
</Unit41> </Unit41>
<Unit42> <Unit42>
<Filename Value="..\..\wst_rtti_filter\dom_cursors.pas"/> <Filename Value="..\..\wst_rtti_filter\dom_cursors.pas"/>
<UnitName Value="dom_cursors"/> <UnitName Value="dom_cursors"/>
<CursorPos X="3" Y="182"/> <CursorPos X="3" Y="182"/>
<TopLine Value="180"/> <TopLine Value="180"/>
<UsageCount Value="11"/> <UsageCount Value="10"/>
</Unit42> </Unit42>
<Unit43> <Unit43>
<Filename Value="..\..\..\..\..\..\lazarus_23_215\fpc\2.1.5\source\packages\fcl-fpcunit\src\fpcunit.pp"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215\fpc\2.1.5\source\packages\fcl-fpcunit\src\fpcunit.pp"/>
<UnitName Value="fpcunit"/> <UnitName Value="fpcunit"/>
<CursorPos X="1" Y="446"/> <CursorPos X="1" Y="446"/>
<TopLine Value="434"/> <TopLine Value="434"/>
<UsageCount Value="9"/> <UsageCount Value="8"/>
</Unit43> </Unit43>
<Unit44> <Unit44>
<Filename Value="..\..\..\..\..\..\lazarus_23_215\fpc\2.1.5\source\rtl\i386\i386.inc"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215\fpc\2.1.5\source\rtl\i386\i386.inc"/>
<CursorPos X="1" Y="1284"/> <CursorPos X="1" Y="1284"/>
<TopLine Value="1268"/> <TopLine Value="1268"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit44> </Unit44>
<Unit45> <Unit45>
<Filename Value="..\..\..\..\..\..\lazarus_23_215\fpc\2.1.5\source\rtl\objpas\classes\streams.inc"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215\fpc\2.1.5\source\rtl\objpas\classes\streams.inc"/>
<CursorPos X="1" Y="107"/> <CursorPos X="1" Y="107"/>
<TopLine Value="95"/> <TopLine Value="95"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit45> </Unit45>
<Unit46> <Unit46>
<Filename Value="..\..\semaphore.pas"/> <Filename Value="..\..\semaphore.pas"/>
<UnitName Value="semaphore"/> <UnitName Value="semaphore"/>
<CursorPos X="3" Y="30"/> <CursorPos X="3" Y="30"/>
<TopLine Value="23"/> <TopLine Value="23"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit46> </Unit46>
<Unit47> <Unit47>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\packages\fcl-xml\src\dom.pp"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\packages\fcl-xml\src\dom.pp"/>
<UnitName Value="DOM"/> <UnitName Value="DOM"/>
<CursorPos X="19" Y="328"/> <CursorPos X="19" Y="328"/>
<TopLine Value="313"/> <TopLine Value="313"/>
<UsageCount Value="11"/> <UsageCount Value="10"/>
</Unit47> </Unit47>
<Unit48> <Unit48>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\win32\system.pp"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\win32\system.pp"/>
<UnitName Value="System"/> <UnitName Value="System"/>
<CursorPos X="22" Y="33"/> <CursorPos X="22" Y="33"/>
<TopLine Value="18"/> <TopLine Value="18"/>
<UsageCount Value="9"/> <UsageCount Value="8"/>
</Unit48> </Unit48>
<Unit49> <Unit49>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\packages\fcl-base\src\inc\contnrs.pp"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\packages\fcl-base\src\inc\contnrs.pp"/>
<UnitName Value="contnrs"/> <UnitName Value="contnrs"/>
<CursorPos X="3" Y="964"/> <CursorPos X="3" Y="964"/>
<TopLine Value="962"/> <TopLine Value="962"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit49> </Unit49>
<Unit50> <Unit50>
<Filename Value="..\..\wst_delphi.inc"/> <Filename Value="..\..\wst_delphi.inc"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="13"/> <UsageCount Value="12"/>
</Unit50> </Unit50>
<Unit51> <Unit51>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\objpas\strutils.pp"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\objpas\strutils.pp"/>
<UnitName Value="strutils"/> <UnitName Value="strutils"/>
<CursorPos X="10" Y="29"/> <CursorPos X="10" Y="29"/>
<TopLine Value="14"/> <TopLine Value="14"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit51> </Unit51>
<Unit52> <Unit52>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\inc\objpash.inc"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\inc\objpash.inc"/>
<CursorPos X="20" Y="168"/> <CursorPos X="20" Y="168"/>
<TopLine Value="166"/> <TopLine Value="166"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit52> </Unit52>
<Unit53> <Unit53>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\inc\objpas.inc"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\inc\objpas.inc"/>
<CursorPos X="11" Y="442"/> <CursorPos X="11" Y="442"/>
<TopLine Value="556"/> <TopLine Value="556"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit53> </Unit53>
<Unit54> <Unit54>
<Filename Value="..\..\wst_fpc_xml.pas"/> <Filename Value="..\..\wst_fpc_xml.pas"/>
@ -439,166 +441,210 @@
<UnitName Value="wst_fpc_xml"/> <UnitName Value="wst_fpc_xml"/>
<CursorPos X="8" Y="38"/> <CursorPos X="8" Y="38"/>
<TopLine Value="11"/> <TopLine Value="11"/>
<UsageCount Value="44"/> <UsageCount Value="54"/>
</Unit54> </Unit54>
<Unit55> <Unit55>
<Filename Value="..\..\wst_global.inc"/> <Filename Value="..\..\wst_global.inc"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit55> </Unit55>
<Unit56> <Unit56>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\packages\fcl-base\src\inc\custapp.pp"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\packages\fcl-base\src\inc\custapp.pp"/>
<UnitName Value="CustApp"/> <UnitName Value="CustApp"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit56> </Unit56>
<Unit57> <Unit57>
<Filename Value="test_utilities.pas"/> <Filename Value="test_utilities.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="test_utilities"/> <UnitName Value="test_utilities"/>
<CursorPos X="39" Y="97"/> <CursorPos X="29" Y="43"/>
<TopLine Value="42"/> <TopLine Value="20"/>
<EditorIndex Value="5"/> <EditorIndex Value="11"/>
<UsageCount Value="35"/> <UsageCount Value="45"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit57> </Unit57>
<Unit58> <Unit58>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\packages\fcl-fpcunit\src\fpcunit.pp"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\packages\fcl-fpcunit\src\fpcunit.pp"/>
<UnitName Value="fpcunit"/> <UnitName Value="fpcunit"/>
<CursorPos X="3" Y="212"/> <CursorPos X="21" Y="99"/>
<TopLine Value="217"/> <TopLine Value="84"/>
<UsageCount Value="9"/> <EditorIndex Value="12"/>
<UsageCount Value="14"/>
<Loaded Value="True"/>
</Unit58> </Unit58>
<Unit59> <Unit59>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\packages\fcl-fpcunit\src\testregistry.pp"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\packages\fcl-fpcunit\src\testregistry.pp"/>
<UnitName Value="testregistry"/> <UnitName Value="testregistry"/>
<CursorPos X="35" Y="40"/> <CursorPos X="39" Y="27"/>
<TopLine Value="19"/> <TopLine Value="17"/>
<UsageCount Value="9"/> <EditorIndex Value="10"/>
<UsageCount Value="14"/>
<Loaded Value="True"/>
</Unit59> </Unit59>
<Unit60>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\packages\fcl-fpcunit\src\testdecorator.pp"/>
<UnitName Value="testdecorator"/>
<CursorPos X="3" Y="30"/>
<TopLine Value="1"/>
<UsageCount Value="9"/>
</Unit60>
<Unit61>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\packages\fcl-fpcunit\src\DUnitCompatibleInterface.inc"/>
<CursorPos X="11" Y="49"/>
<TopLine Value="47"/>
<EditorIndex Value="7"/>
<UsageCount Value="14"/>
<Loaded Value="True"/>
</Unit61>
<Unit62>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\objpas\typinfo.pp"/>
<UnitName Value="typinfo"/>
<CursorPos X="79" Y="218"/>
<TopLine Value="203"/>
<EditorIndex Value="5"/>
<UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit62>
<Unit63>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\objpas\sysutils\sysstrh.inc"/>
<CursorPos X="89" Y="122"/>
<TopLine Value="106"/>
<EditorIndex Value="2"/>
<UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit63>
<Unit64>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\objpas\sysutils\sysinth.inc"/>
<CursorPos X="24" Y="63"/>
<TopLine Value="46"/>
<EditorIndex Value="3"/>
<UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit64>
</Units> </Units>
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="test_utilities.pas"/> <Filename Value="..\..\base_soap_formatter.pas"/>
<Caret Line="182" Column="3" TopLine="188"/> <Caret Line="19" Column="26" TopLine="7"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="test_utilities.pas"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\objpas\typinfo.pp"/>
<Caret Line="367" Column="22" TopLine="345"/> <Caret Line="1" Column="1" TopLine="1"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="test_utilities.pas"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\objpas\typinfo.pp"/>
<Caret Line="366" Column="29" TopLine="353"/> <Caret Line="40" Column="59" TopLine="25"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="test_utilities.pas"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\objpas\typinfo.pp"/>
<Caret Line="225" Column="38" TopLine="203"/> <Caret Line="125" Column="20" TopLine="110"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="test_utilities.pas"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\objpas\typinfo.pp"/>
<Caret Line="370" Column="116" TopLine="360"/> <Caret Line="126" Column="51" TopLine="111"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="test_utilities.pas"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\objpas\typinfo.pp"/>
<Caret Line="340" Column="13" TopLine="327"/> <Caret Line="216" Column="70" TopLine="201"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="test_utilities.pas"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\objpas\typinfo.pp"/>
<Caret Line="334" Column="15" TopLine="328"/> <Caret Line="217" Column="71" TopLine="202"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="..\..\base_service_intf.pas"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\objpas\typinfo.pp"/>
<Caret Line="1063" Column="81" TopLine="1059"/> <Caret Line="218" Column="77" TopLine="203"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="test_utilities.pas"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\objpas\typinfo.pp"/>
<Caret Line="58" Column="3" TopLine="56"/> <Caret Line="219" Column="77" TopLine="204"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="test_utilities.pas"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\objpas\typinfo.pp"/>
<Caret Line="393" Column="43" TopLine="379"/> <Caret Line="261" Column="19" TopLine="246"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="test_utilities.pas"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\objpas\typinfo.pp"/>
<Caret Line="22" Column="45" TopLine="9"/> <Caret Line="1" Column="1" TopLine="1"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="test_utilities.pas"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\objpas\typinfo.pp"/>
<Caret Line="394" Column="23" TopLine="379"/> <Caret Line="40" Column="67" TopLine="18"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="..\..\server_service_intf.pas"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\objpas\typinfo.pp"/>
<Caret Line="693" Column="21" TopLine="675"/> <Caret Line="127" Column="20" TopLine="105"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="test_utilities.pas"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\objpas\typinfo.pp"/>
<Caret Line="394" Column="47" TopLine="379"/> <Caret Line="133" Column="84" TopLine="106"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="test_utilities.pas"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\objpas\typinfo.pp"/>
<Caret Line="22" Column="31" TopLine="17"/> <Caret Line="790" Column="12" TopLine="773"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="..\..\server_service_intf.pas"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\objpas\typinfo.pp"/>
<Caret Line="177" Column="48" TopLine="164"/> <Caret Line="857" Column="50" TopLine="845"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="..\..\server_service_intf.pas"/> <Filename Value="..\..\server_service_intf.pas"/>
<Caret Line="167" Column="42" TopLine="154"/> <Caret Line="19" Column="27" TopLine="1"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="test_utilities.pas"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\objpas\typinfo.pp"/>
<Caret Line="85" Column="3" TopLine="82"/> <Caret Line="1" Column="1" TopLine="1"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="test_utilities.pas"/> <Filename Value="..\..\base_soap_formatter.pas"/>
<Caret Line="394" Column="26" TopLine="384"/> <Caret Line="19" Column="26" TopLine="7"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="..\..\server_service_intf.pas"/> <Filename Value="..\..\base_soap_formatter.pas"/>
<Caret Line="194" Column="20" TopLine="178"/> <Caret Line="848" Column="22" TopLine="833"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="..\..\server_service_intf.pas"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\objpas\sysutils\sysstrh.inc"/>
<Caret Line="683" Column="38" TopLine="673"/> <Caret Line="170" Column="86" TopLine="153"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="..\..\server_service_intf.pas"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\objpas\sysutils\sysstrh.inc"/>
<Caret Line="187" Column="20" TopLine="181"/> <Caret Line="21" Column="67" TopLine="19"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="..\..\server_service_intf.pas"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\objpas\sysutils\sysstrh.inc"/>
<Caret Line="191" Column="27" TopLine="181"/> <Caret Line="31" Column="16" TopLine="16"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="test_utilities.pas"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\objpas\sysutils\sysstrh.inc"/>
<Caret Line="394" Column="27" TopLine="384"/> <Caret Line="121" Column="16" TopLine="106"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="..\..\server_service_intf.pas"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\objpas\sysutils\sysstrh.inc"/>
<Caret Line="187" Column="21" TopLine="179"/> <Caret Line="122" Column="77" TopLine="107"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="..\..\server_service_intf.pas"/> <Filename Value="..\..\base_soap_formatter.pas"/>
<Caret Line="689" Column="22" TopLine="680"/> <Caret Line="1586" Column="24" TopLine="1579"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="..\..\server_service_intf.pas"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\objpas\sysutils\sysstrh.inc"/>
<Caret Line="133" Column="25" TopLine="120"/> <Caret Line="234" Column="60" TopLine="221"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="..\..\server_service_intf.pas"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\objpas\sysutils\sysstrh.inc"/>
<Caret Line="776" Column="44" TopLine="766"/> <Caret Line="1" Column="1" TopLine="1"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="test_utilities.pas"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\objpas\sysutils\sysstrh.inc"/>
<Caret Line="394" Column="45" TopLine="390"/> <Caret Line="31" Column="16" TopLine="16"/>
</Position29> </Position29>
<Position30> <Position30>
<Filename Value="test_utilities.pas"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\objpas\sysutils\sysstrh.inc"/>
<Caret Line="431" Column="45" TopLine="416"/> <Caret Line="122" Column="89" TopLine="106"/>
</Position30> </Position30>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>