You've already forked lazarus-ccr
Fix fpc pooling
Services implementation pooling Services configuration in external file git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@216 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
448
wst/trunk/tests/test_suite/test_utilities.pas
Normal file
448
wst/trunk/tests/test_suite/test_utilities.pas
Normal file
@ -0,0 +1,448 @@
|
||||
unit test_utilities;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, fpcunit, testutils, testregistry,
|
||||
TypInfo,
|
||||
base_service_intf, server_service_intf;
|
||||
|
||||
type
|
||||
|
||||
ITest = interface
|
||||
['{61442DCF-0F6B-490F-AA33-FF856C07A757}']
|
||||
procedure SayHello();
|
||||
procedure DontPool();
|
||||
end;
|
||||
|
||||
{ TTestClass }
|
||||
|
||||
TTestClass = class(TActivableServiceImplementation,IObjectControl,ITest)
|
||||
private
|
||||
FPooled : Boolean;
|
||||
protected
|
||||
procedure SayHello();
|
||||
function CanBePooled() : Boolean;
|
||||
procedure DontPool();
|
||||
public
|
||||
constructor Create();override;
|
||||
end;
|
||||
|
||||
|
||||
{ TTest_TIntfPool }
|
||||
|
||||
TTest_TIntfPool= class(TTestCase)
|
||||
published
|
||||
procedure Create_ZEROS();
|
||||
procedure Create_NON_ZERO_MIN();
|
||||
procedure Release();
|
||||
procedure Release_NON();
|
||||
procedure Discard();
|
||||
end;
|
||||
|
||||
{ TTest_TSimpleItemFactoryEx }
|
||||
|
||||
TTest_TSimpleItemFactoryEx = class(TTestCase)
|
||||
published
|
||||
procedure NOT_Pooled();
|
||||
procedure POOLED_Create_ZEROS();
|
||||
procedure POOLED_Release();
|
||||
procedure POOLED_Release_NON();
|
||||
procedure POOLED_Discard();
|
||||
end;
|
||||
|
||||
{ TTest_TImplementationFactory }
|
||||
|
||||
TTest_TImplementationFactory = class(TTestCase)
|
||||
published
|
||||
procedure POOLED_Discard();
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{ TTestClass }
|
||||
|
||||
procedure TTestClass.SayHello();
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
function TTestClass.CanBePooled() : Boolean;
|
||||
begin
|
||||
Result := FPooled;
|
||||
end;
|
||||
|
||||
procedure TTestClass.DontPool();
|
||||
begin
|
||||
FPooled := False;
|
||||
end;
|
||||
|
||||
constructor TTestClass.Create();
|
||||
begin
|
||||
inherited Create();
|
||||
FPooled := True;
|
||||
_AddRef(); // not to allow the rtl to reuse the same memory for another instance of the same class!!
|
||||
end;
|
||||
|
||||
{ TTest_TIntfPool }
|
||||
|
||||
procedure TTest_TIntfPool.Create_ZEROS();
|
||||
var
|
||||
ok : Boolean;
|
||||
obj : TIntfPool;
|
||||
begin
|
||||
ok := False;
|
||||
try
|
||||
obj := TIntfPool.Create(0,0,TSimpleItemFactory.Create(TTestClass));
|
||||
except
|
||||
ok := True;
|
||||
end;
|
||||
Check(ok);
|
||||
end;
|
||||
|
||||
procedure TTest_TIntfPool.Create_NON_ZERO_MIN();
|
||||
const MIN_A = Integer(1); MAX_A = Integer(5);
|
||||
var
|
||||
obj : TIntfPool;
|
||||
begin
|
||||
obj := TIntfPool.Create(MIN_A,MAX_A,TSimpleItemFactory.Create(TTestClass));
|
||||
CheckEquals(MIN_A,obj.Min);
|
||||
CheckEquals(MAX_A,obj.Max);
|
||||
CheckEquals(MIN_A,obj.GetInstancesCount());
|
||||
end;
|
||||
|
||||
procedure TTest_TIntfPool.Release();
|
||||
const MIN_A = Integer(1); MAX_A = Integer(5); MIN_B = Integer(0);
|
||||
var
|
||||
obj : TIntfPool;
|
||||
elt : ITest;
|
||||
i : Integer;
|
||||
begin
|
||||
obj := TIntfPool.Create(MIN_A,MAX_A,TSimpleItemFactory.Create(TTestClass));
|
||||
for i := 0 to 300 do begin
|
||||
elt := obj.Get(0) as ITest;
|
||||
elt.SayHello();
|
||||
obj.Release(elt);
|
||||
end;
|
||||
|
||||
FreeAndNil(obj);
|
||||
obj := TIntfPool.Create(MIN_B,MAX_A,TSimpleItemFactory.Create(TTestClass));
|
||||
for i := 0 to 300 do begin
|
||||
elt := obj.Get(0) as ITest;
|
||||
elt.SayHello();
|
||||
obj.Release(elt);
|
||||
end;
|
||||
|
||||
FreeAndNil(obj);
|
||||
obj := TIntfPool.Create(MAX_A,MAX_A,TSimpleItemFactory.Create(TTestClass));
|
||||
for i := 0 to 300 do begin
|
||||
elt := obj.Get(0) as ITest;
|
||||
elt.SayHello();
|
||||
obj.Release(elt);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TTest_TIntfPool.Release_NON();
|
||||
const MIN_A = Integer(1); MAX_A = Integer(5); MIN_B = Integer(0);
|
||||
var
|
||||
obj : TIntfPool;
|
||||
elt : ITest;
|
||||
i : Integer;
|
||||
ok : Boolean;
|
||||
il : IInterfaceList;
|
||||
begin
|
||||
il := TInterfaceList.Create();
|
||||
obj := TIntfPool.Create(MIN_A,MAX_A,TSimpleItemFactory.Create(TTestClass));
|
||||
for i := 1 to MAX_A do begin
|
||||
elt := obj.Get(100) as ITest;
|
||||
elt.SayHello();
|
||||
il.Add(elt);
|
||||
//obj.Release(elt); do not release
|
||||
end;
|
||||
ok := False;
|
||||
try
|
||||
elt := obj.Get(100) as ITest;
|
||||
except
|
||||
ok := True;
|
||||
end;
|
||||
Check(ok);
|
||||
CheckEquals(MAX_A,obj.GetInstancesCount());
|
||||
for i := 0 to Pred(MAX_A) do begin
|
||||
obj.Release(il[0]);
|
||||
il.Delete(0);
|
||||
end;
|
||||
|
||||
for i := 1 to 100 do begin
|
||||
elt := obj.Get(100) as ITest;
|
||||
elt.SayHello();
|
||||
il.Add(elt);
|
||||
obj.Release(elt);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TTest_TIntfPool.Discard();
|
||||
const MIN_A = Integer(1); MAX_A = Integer(5); MIN_B = Integer(0);
|
||||
var
|
||||
obj : TIntfPool;
|
||||
oldElt, elt : ITest;
|
||||
begin
|
||||
obj := TIntfPool.Create(MIN_A,MIN_A,TSimpleItemFactory.Create(TTestClass));
|
||||
elt := obj.Get(10) as ITest;
|
||||
oldElt := elt;
|
||||
obj.Release(elt);
|
||||
elt := obj.Get(10) as ITest;
|
||||
Check(oldElt = elt);
|
||||
obj.Discard(elt);
|
||||
elt := obj.Get(10) as ITest;
|
||||
Check(oldElt <> elt );
|
||||
|
||||
FreeAndNil(obj);oldElt := nil; elt := nil;
|
||||
obj := TIntfPool.Create(MIN_A,MAX_A,TSimpleItemFactory.Create(TTestClass));
|
||||
elt := obj.Get(10) as ITest;
|
||||
oldElt := elt;
|
||||
obj.Release(elt);
|
||||
elt := obj.Get(10) as ITest;
|
||||
Check(oldElt = elt);
|
||||
obj.Discard(elt);
|
||||
elt := obj.Get(10) as ITest;
|
||||
Check(oldElt <> elt );
|
||||
|
||||
FreeAndNil(obj);oldElt := nil; elt := nil;
|
||||
obj := TIntfPool.Create(MIN_B,MIN_A,TSimpleItemFactory.Create(TTestClass));
|
||||
elt := obj.Get(10) as ITest;
|
||||
oldElt := elt;
|
||||
obj.Release(elt);
|
||||
elt := obj.Get(10) as ITest;
|
||||
Check(oldElt = elt);
|
||||
obj.Discard(elt);
|
||||
elt := obj.Get(10) as ITest;
|
||||
Check(oldElt <> elt );
|
||||
|
||||
FreeAndNil(obj);oldElt := nil; elt := nil;
|
||||
obj := TIntfPool.Create(MIN_B,MAX_A,TSimpleItemFactory.Create(TTestClass));
|
||||
elt := obj.Get(10) as ITest;
|
||||
oldElt := elt;
|
||||
obj.Release(elt);
|
||||
elt := obj.Get(10) as ITest;
|
||||
Check(oldElt = elt);
|
||||
obj.Discard(elt);
|
||||
elt := obj.Get(10) as ITest;
|
||||
Check(oldElt <> elt );
|
||||
end;
|
||||
|
||||
{ TTest_TSimpleItemFactoryEx }
|
||||
|
||||
procedure TTest_TSimpleItemFactoryEx.NOT_Pooled();
|
||||
const MIN_A = Integer(1); MAX_A = Integer(5); MIN_B = Integer(0);
|
||||
var
|
||||
obj : IItemFactoryEx;
|
||||
elt : ITest;
|
||||
i : Integer;
|
||||
begin
|
||||
obj := TSimpleItemFactoryEx.Create(TTestClass);
|
||||
for i := 0 to 300 do begin
|
||||
elt := obj.CreateInstance() as ITest;
|
||||
elt.SayHello();
|
||||
end;
|
||||
|
||||
obj := TSimpleItemFactoryEx.Create(TTestClass,'');
|
||||
for i := 0 to 300 do begin
|
||||
elt := obj.CreateInstance() as ITest;
|
||||
elt.SayHello();
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TTest_TSimpleItemFactoryEx.POOLED_Create_ZEROS();
|
||||
var
|
||||
ok : Boolean;
|
||||
obj : IItemFactoryEx;
|
||||
begin
|
||||
ok := False;
|
||||
try
|
||||
obj := TSimpleItemFactoryEx.Create(TTestClass,Format('PoolMin=%d;PoolMax=%d;Pooled=True',[0,0]));
|
||||
except
|
||||
ok := True;
|
||||
end;
|
||||
Check(ok);
|
||||
end;
|
||||
|
||||
procedure TTest_TSimpleItemFactoryEx.POOLED_Release();
|
||||
const MIN_A = Integer(1); MAX_A = Integer(5); MIN_B = Integer(0);
|
||||
var
|
||||
obj : IItemFactoryEx;
|
||||
elt : ITest;
|
||||
i : Integer;
|
||||
begin
|
||||
obj := TSimpleItemFactoryEx.Create(TTestClass,Format('PoolMin=%d;PoolMax=%d;Pooled=True',[MIN_A,MAX_A]));
|
||||
for i := 0 to 300 do begin
|
||||
elt := obj.CreateInstance() as ITest;
|
||||
elt.SayHello();
|
||||
obj.ReleaseInstance(elt);
|
||||
end;
|
||||
|
||||
obj := TSimpleItemFactoryEx.Create(TTestClass,Format('PoolMin=%d;PoolMax=%d;Pooled=True',[MIN_B,MAX_A]));
|
||||
for i := 0 to 300 do begin
|
||||
elt := obj.CreateInstance() as ITest;
|
||||
elt.SayHello();
|
||||
obj.ReleaseInstance(elt);
|
||||
end;
|
||||
|
||||
obj := TSimpleItemFactoryEx.Create(TTestClass,Format('PoolMin=%d;PoolMax=%d;Pooled=True',[MAX_A,MAX_A]));
|
||||
for i := 0 to 300 do begin
|
||||
elt := obj.CreateInstance() as ITest;
|
||||
elt.SayHello();
|
||||
obj.ReleaseInstance(elt);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TTest_TSimpleItemFactoryEx.POOLED_Release_NON();
|
||||
const MIN_A = Integer(1); MAX_A = Integer(5); MIN_B = Integer(0);
|
||||
var
|
||||
obj : IItemFactoryEx;
|
||||
elt : ITest;
|
||||
i : Integer;
|
||||
ok : Boolean;
|
||||
il : IInterfaceList;
|
||||
begin
|
||||
il := TInterfaceList.Create();
|
||||
obj := TSimpleItemFactoryEx.Create(TTestClass,Format('PoolMin=%d;PoolMax=%d;TimeOut=100;Pooled=True',[MIN_A,MAX_A]));
|
||||
for i := 1 to MAX_A do begin
|
||||
elt := obj.CreateInstance() as ITest;
|
||||
elt.SayHello();
|
||||
il.Add(elt);
|
||||
//obj.Release(elt); do not release
|
||||
end;
|
||||
ok := False;
|
||||
try
|
||||
elt := obj.CreateInstance() as ITest;
|
||||
except
|
||||
ok := True;
|
||||
end;
|
||||
Check(ok);
|
||||
for i := 0 to Pred(MAX_A) do begin
|
||||
obj.ReleaseInstance(il[0]);
|
||||
il.Delete(0);
|
||||
end;
|
||||
|
||||
for i := 1 to 100 do begin
|
||||
elt := obj.CreateInstance() as ITest;
|
||||
elt.SayHello();
|
||||
il.Add(elt);
|
||||
obj.ReleaseInstance(elt);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TTest_TSimpleItemFactoryEx.POOLED_Discard();
|
||||
const MIN_A = Integer(1); MAX_A = Integer(5); MIN_B = Integer(0);
|
||||
var
|
||||
obj : IItemFactoryEx;
|
||||
oldElt, elt : ITest;
|
||||
begin
|
||||
obj := TSimpleItemFactoryEx.Create(TTestClass,Format('PoolMin=%d;PoolMax=%d;TimeOut=100;Pooled=True',[MIN_A,MIN_A]));
|
||||
elt := obj.CreateInstance() as ITest;
|
||||
oldElt := elt;
|
||||
obj.ReleaseInstance(elt);
|
||||
elt := obj.CreateInstance() as ITest;
|
||||
Check(oldElt = elt,'1.1');
|
||||
obj.DiscardInstance(elt);
|
||||
elt := obj.CreateInstance() as ITest;
|
||||
Check(oldElt <> elt, '1.2' );
|
||||
|
||||
oldElt := nil; elt := nil;
|
||||
obj := TSimpleItemFactoryEx.Create(TTestClass,Format('PoolMin=%d;PoolMax=%d;TimeOut=100;Pooled=True',[MIN_A,MAX_A]));
|
||||
elt := obj.CreateInstance() as ITest;
|
||||
oldElt := elt;
|
||||
obj.ReleaseInstance(elt);
|
||||
elt := obj.CreateInstance() as ITest;
|
||||
Check(oldElt = elt,'2.1');
|
||||
obj.DiscardInstance(elt);
|
||||
elt := obj.CreateInstance() as ITest;
|
||||
Check(oldElt <> elt ,'2.2');
|
||||
|
||||
oldElt := nil; elt := nil;
|
||||
obj := TSimpleItemFactoryEx.Create(TTestClass,Format('PoolMin=%d;PoolMax=%d;TimeOut=100;Pooled=True',[MIN_B,MIN_A]));
|
||||
elt := obj.CreateInstance() as ITest;
|
||||
oldElt := elt;
|
||||
obj.ReleaseInstance(elt);
|
||||
elt := obj.CreateInstance() as ITest;
|
||||
Check(oldElt = elt,'3.1');
|
||||
obj.DiscardInstance(elt);
|
||||
elt := obj.CreateInstance() as ITest;
|
||||
Check(oldElt <> elt ,'3.2');
|
||||
|
||||
oldElt := nil; elt := nil;
|
||||
obj := TSimpleItemFactoryEx.Create(TTestClass,Format('PoolMin=%d;PoolMax=%d;TimeOut=100;Pooled=True',[MIN_B,MAX_A]));
|
||||
elt := obj.CreateInstance() as ITest;
|
||||
oldElt := elt;
|
||||
obj.ReleaseInstance(elt);
|
||||
elt := obj.CreateInstance() as ITest;
|
||||
Check(oldElt = elt,'4.1');
|
||||
obj.DiscardInstance(elt);
|
||||
elt := obj.CreateInstance() as ITest;
|
||||
Check(oldElt <> elt,'4.2');
|
||||
end;
|
||||
|
||||
{ TTest_TImplementationFactory }
|
||||
|
||||
procedure TTest_TImplementationFactory.POOLED_Discard();
|
||||
const MIN_A = Integer(1); MAX_A = Integer(5); MIN_B = Integer(0);
|
||||
var
|
||||
obj : IItemFactoryEx;
|
||||
oldElt, elt : ITest;
|
||||
begin
|
||||
obj := TImplementationFactory.Create(TTestClass,Format('PoolMin=%d;PoolMax=%d;TimeOut=100;Pooled=True',[MIN_A,MIN_A]));
|
||||
elt := obj.CreateInstance() as ITest;
|
||||
oldElt := elt;
|
||||
obj.ReleaseInstance(elt);
|
||||
elt := obj.CreateInstance() as ITest;
|
||||
Check(oldElt = elt,'1.1');
|
||||
elt.DontPool();
|
||||
obj.ReleaseInstance(elt);
|
||||
elt := obj.CreateInstance() as ITest;
|
||||
Check(oldElt <> elt, '1.2' );
|
||||
|
||||
oldElt := nil; elt := nil;
|
||||
obj := TImplementationFactory.Create(TTestClass,Format('PoolMin=%d;PoolMax=%d;TimeOut=100;Pooled=True',[MIN_A,MAX_A]));
|
||||
elt := obj.CreateInstance() as ITest;
|
||||
oldElt := elt;
|
||||
obj.ReleaseInstance(elt);
|
||||
elt := obj.CreateInstance() as ITest;
|
||||
Check(oldElt = elt,'2.1');
|
||||
elt.DontPool();
|
||||
obj.ReleaseInstance(elt);
|
||||
elt := obj.CreateInstance() as ITest;
|
||||
Check(oldElt <> elt ,'2.2');
|
||||
|
||||
oldElt := nil; elt := nil;
|
||||
obj := TImplementationFactory.Create(TTestClass,Format('PoolMin=%d;PoolMax=%d;TimeOut=100;Pooled=True',[MIN_B,MIN_A]));
|
||||
elt := obj.CreateInstance() as ITest;
|
||||
oldElt := elt;
|
||||
obj.ReleaseInstance(elt);
|
||||
elt := obj.CreateInstance() as ITest;
|
||||
Check(oldElt = elt,'3.1');
|
||||
elt.DontPool();
|
||||
obj.ReleaseInstance(elt);
|
||||
elt := obj.CreateInstance() as ITest;
|
||||
Check(oldElt <> elt ,'3.2');
|
||||
|
||||
oldElt := nil; elt := nil;
|
||||
obj := TImplementationFactory.Create(TTestClass,Format('PoolMin=%d;PoolMax=%d;TimeOut=100;Pooled=True',[MIN_B,MAX_A]));
|
||||
elt := obj.CreateInstance() as ITest;
|
||||
oldElt := elt;
|
||||
obj.ReleaseInstance(elt);
|
||||
elt := obj.CreateInstance() as ITest;
|
||||
Check(oldElt = elt,'4.1');
|
||||
elt.DontPool();
|
||||
obj.ReleaseInstance(elt);
|
||||
elt := obj.CreateInstance() as ITest;
|
||||
Check(oldElt <> elt,'4.2');
|
||||
end;
|
||||
|
||||
initialization
|
||||
RegisterTest(TTest_TIntfPool);
|
||||
RegisterTest(TTest_TSimpleItemFactoryEx);
|
||||
RegisterTest(TTest_TImplementationFactory);
|
||||
|
||||
end.
|
||||
@ -7,7 +7,7 @@
|
||||
<MainUnit Value="0"/>
|
||||
<IconPath Value="./"/>
|
||||
<TargetFileExt Value=".exe"/>
|
||||
<ActiveEditorIndexAtStart Value="14"/>
|
||||
<ActiveEditorIndexAtStart Value="1"/>
|
||||
</General>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
@ -27,7 +27,7 @@
|
||||
<PackageName Value="FPCUnitTestRunner"/>
|
||||
</Item1>
|
||||
</RequiredPackages>
|
||||
<Units Count="57">
|
||||
<Units Count="60">
|
||||
<Unit0>
|
||||
<Filename Value="wst_test_suite.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
@ -40,9 +40,9 @@
|
||||
<Filename Value="testformatter_unit.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="testformatter_unit"/>
|
||||
<CursorPos X="22" Y="13"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="12"/>
|
||||
<CursorPos X="1" Y="19"/>
|
||||
<TopLine Value="55"/>
|
||||
<EditorIndex Value="2"/>
|
||||
<UsageCount Value="200"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit1>
|
||||
@ -60,9 +60,7 @@
|
||||
<UnitName Value="soap_formatter"/>
|
||||
<CursorPos X="26" Y="13"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="6"/>
|
||||
<UsageCount Value="200"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit3>
|
||||
<Unit4>
|
||||
<Filename Value="..\..\base_binary_formatter.pas"/>
|
||||
@ -70,21 +68,19 @@
|
||||
<UnitName Value="base_binary_formatter"/>
|
||||
<CursorPos X="3" Y="11"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<UsageCount Value="200"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit4>
|
||||
<Unit5>
|
||||
<Filename Value="..\..\base_service_intf.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="base_service_intf"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<TopLine Value="1"/>
|
||||
<CursorPos X="3" Y="1064"/>
|
||||
<TopLine Value="1069"/>
|
||||
<EditorIndex Value="0"/>
|
||||
<UsageCount Value="200"/>
|
||||
<Bookmarks Count="2">
|
||||
<Item0 X="33" Y="1127" ID="0"/>
|
||||
<Item1 X="5" Y="1181" ID="1"/>
|
||||
<Item0 X="33" Y="1130" ID="0"/>
|
||||
<Item1 X="5" Y="1184" ID="1"/>
|
||||
</Bookmarks>
|
||||
<Loaded Value="True"/>
|
||||
</Unit5>
|
||||
@ -94,9 +90,7 @@
|
||||
<UnitName Value="base_soap_formatter"/>
|
||||
<CursorPos X="26" Y="13"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="2"/>
|
||||
<UsageCount Value="200"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit6>
|
||||
<Unit7>
|
||||
<Filename Value="..\..\binary_formatter.pas"/>
|
||||
@ -112,12 +106,10 @@
|
||||
<UnitName Value="binary_streamer"/>
|
||||
<CursorPos X="26" Y="13"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="8"/>
|
||||
<UsageCount Value="200"/>
|
||||
<Bookmarks Count="1">
|
||||
<Item0 X="38" Y="489" ID="2"/>
|
||||
</Bookmarks>
|
||||
<Loaded Value="True"/>
|
||||
</Unit8>
|
||||
<Unit9>
|
||||
<Filename Value="..\..\server_binary_formatter.pas"/>
|
||||
@ -125,9 +117,7 @@
|
||||
<UnitName Value="server_binary_formatter"/>
|
||||
<CursorPos X="26" Y="13"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="11"/>
|
||||
<UsageCount Value="200"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit9>
|
||||
<Unit10>
|
||||
<Filename Value="..\..\metadata_repository.pas"/>
|
||||
@ -141,9 +131,9 @@
|
||||
<Filename Value="testmetadata_unit.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="testmetadata_unit"/>
|
||||
<CursorPos X="48" Y="180"/>
|
||||
<TopLine Value="158"/>
|
||||
<EditorIndex Value="14"/>
|
||||
<CursorPos X="31" Y="194"/>
|
||||
<TopLine Value="170"/>
|
||||
<EditorIndex Value="4"/>
|
||||
<UsageCount Value="202"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit11>
|
||||
@ -153,9 +143,7 @@
|
||||
<UnitName Value="metadata_generator"/>
|
||||
<CursorPos X="1" Y="19"/>
|
||||
<TopLine Value="67"/>
|
||||
<EditorIndex Value="10"/>
|
||||
<UsageCount Value="202"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit12>
|
||||
<Unit13>
|
||||
<Filename Value="..\..\ws_helper\parserdefs.pas"/>
|
||||
@ -175,7 +163,7 @@
|
||||
<UnitName Value="metadata_wsdl"/>
|
||||
<CursorPos X="44" Y="21"/>
|
||||
<TopLine Value="209"/>
|
||||
<EditorIndex Value="13"/>
|
||||
<EditorIndex Value="3"/>
|
||||
<UsageCount Value="206"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit14>
|
||||
@ -184,59 +172,61 @@
|
||||
<UnitName Value="DOM"/>
|
||||
<CursorPos X="15" Y="429"/>
|
||||
<TopLine Value="413"/>
|
||||
<UsageCount Value="8"/>
|
||||
<UsageCount Value="6"/>
|
||||
</Unit15>
|
||||
<Unit16>
|
||||
<Filename Value="D:\lazarusClean\fpc\2.0.4\source\rtl\objpas\sysutils\sysutilh.inc"/>
|
||||
<CursorPos X="13" Y="235"/>
|
||||
<TopLine Value="215"/>
|
||||
<UsageCount Value="2"/>
|
||||
<UsageCount Value="0"/>
|
||||
</Unit16>
|
||||
<Unit17>
|
||||
<Filename Value="..\..\server_service_intf.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="server_service_intf"/>
|
||||
<CursorPos X="35" Y="379"/>
|
||||
<TopLine Value="397"/>
|
||||
<CursorPos X="52" Y="140"/>
|
||||
<TopLine Value="134"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<UsageCount Value="203"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit17>
|
||||
<Unit18>
|
||||
<Filename Value="..\..\service_intf.pas"/>
|
||||
<UnitName Value="service_intf"/>
|
||||
<CursorPos X="3" Y="38"/>
|
||||
<TopLine Value="27"/>
|
||||
<UsageCount Value="18"/>
|
||||
<UsageCount Value="16"/>
|
||||
</Unit18>
|
||||
<Unit19>
|
||||
<Filename Value="D:\lazarusClean\fpc\2.0.4\source\rtl\objpas\classes\classesh.inc"/>
|
||||
<CursorPos X="3" Y="316"/>
|
||||
<TopLine Value="304"/>
|
||||
<UsageCount Value="2"/>
|
||||
<UsageCount Value="0"/>
|
||||
</Unit19>
|
||||
<Unit20>
|
||||
<Filename Value="D:\lazarusClean\fpc\2.0.4\source\rtl\objpas\classes\lists.inc"/>
|
||||
<CursorPos X="3" Y="407"/>
|
||||
<TopLine Value="404"/>
|
||||
<UsageCount Value="2"/>
|
||||
<UsageCount Value="0"/>
|
||||
</Unit20>
|
||||
<Unit21>
|
||||
<Filename Value="D:\lazarusClean\fpc\2.0.4\source\fcl\inc\contnrs.pp"/>
|
||||
<UnitName Value="contnrs"/>
|
||||
<CursorPos X="3" Y="474"/>
|
||||
<TopLine Value="471"/>
|
||||
<UsageCount Value="2"/>
|
||||
<UsageCount Value="0"/>
|
||||
</Unit21>
|
||||
<Unit22>
|
||||
<Filename Value="D:\lazarusClean\fpc\2.0.4\source\rtl\inc\objpash.inc"/>
|
||||
<CursorPos X="27" Y="121"/>
|
||||
<TopLine Value="104"/>
|
||||
<UsageCount Value="2"/>
|
||||
<UsageCount Value="0"/>
|
||||
</Unit22>
|
||||
<Unit23>
|
||||
<Filename Value="D:\lazarusClean\fpc\2.0.4\source\rtl\inc\objpas.inc"/>
|
||||
<CursorPos X="9" Y="166"/>
|
||||
<TopLine Value="142"/>
|
||||
<UsageCount Value="2"/>
|
||||
<UsageCount Value="0"/>
|
||||
</Unit23>
|
||||
<Unit24>
|
||||
<Filename Value="D:\Lazarus\components\fpcunit\guitestrunner.pas"/>
|
||||
@ -245,41 +235,41 @@
|
||||
<UnitName Value="GuiTestRunner"/>
|
||||
<CursorPos X="34" Y="32"/>
|
||||
<TopLine Value="25"/>
|
||||
<UsageCount Value="2"/>
|
||||
<UsageCount Value="0"/>
|
||||
</Unit24>
|
||||
<Unit25>
|
||||
<Filename Value="..\..\..\..\..\lazarusClean\fpc\2.0.4\source\fcl\fpcunit\fpcunit.pp"/>
|
||||
<UnitName Value="fpcunit"/>
|
||||
<CursorPos X="21" Y="94"/>
|
||||
<TopLine Value="83"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="8"/>
|
||||
</Unit25>
|
||||
<Unit26>
|
||||
<Filename Value="..\..\..\..\..\lazarusClean\fpc\2.0.4\source\fcl\fpcunit\DUnitCompatibleInterface.inc"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<TopLine Value="4"/>
|
||||
<UsageCount Value="4"/>
|
||||
<UsageCount Value="2"/>
|
||||
</Unit26>
|
||||
<Unit27>
|
||||
<Filename Value="..\..\imp_utils.pas"/>
|
||||
<UnitName Value="imp_utils"/>
|
||||
<CursorPos X="15" Y="36"/>
|
||||
<TopLine Value="22"/>
|
||||
<UsageCount Value="4"/>
|
||||
<UsageCount Value="2"/>
|
||||
</Unit27>
|
||||
<Unit28>
|
||||
<Filename Value="..\..\..\..\..\lazarusClean\fpc\2.0.4\source\fcl\xml\dom.pp"/>
|
||||
<UnitName Value="DOM"/>
|
||||
<CursorPos X="3" Y="51"/>
|
||||
<TopLine Value="41"/>
|
||||
<UsageCount Value="4"/>
|
||||
<UsageCount Value="2"/>
|
||||
</Unit28>
|
||||
<Unit29>
|
||||
<Filename Value="..\..\..\..\..\lazarusClean\fpc\2.0.4\source\fcl\xml\xmlread.pp"/>
|
||||
<UnitName Value="XMLRead"/>
|
||||
<CursorPos X="43" Y="13"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="8"/>
|
||||
<UsageCount Value="6"/>
|
||||
</Unit29>
|
||||
<Unit30>
|
||||
<Filename Value="test_parserdef.pas"/>
|
||||
@ -287,41 +277,39 @@
|
||||
<UnitName Value="test_parserdef"/>
|
||||
<CursorPos X="93" Y="76"/>
|
||||
<TopLine Value="11"/>
|
||||
<UsageCount Value="145"/>
|
||||
<UsageCount Value="160"/>
|
||||
</Unit30>
|
||||
<Unit31>
|
||||
<Filename Value="..\..\..\..\..\lazarusClean\fpc\2.0.4\source\rtl\inc\objpash.inc"/>
|
||||
<CursorPos X="8" Y="190"/>
|
||||
<TopLine Value="133"/>
|
||||
<UsageCount Value="9"/>
|
||||
<UsageCount Value="7"/>
|
||||
</Unit31>
|
||||
<Unit32>
|
||||
<Filename Value="..\..\wst.inc"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="5"/>
|
||||
<UsageCount Value="14"/>
|
||||
<Loaded Value="True"/>
|
||||
<UsageCount Value="13"/>
|
||||
</Unit32>
|
||||
<Unit33>
|
||||
<Filename Value="..\..\..\..\..\lazarusClean\fpc\2.0.4\source\rtl\objpas\objpas.pp"/>
|
||||
<UnitName Value="objpas"/>
|
||||
<CursorPos X="47" Y="64"/>
|
||||
<TopLine Value="38"/>
|
||||
<UsageCount Value="4"/>
|
||||
<UsageCount Value="2"/>
|
||||
</Unit33>
|
||||
<Unit34>
|
||||
<Filename Value="..\..\..\..\..\lazarusClean\fpc\2.0.4\source\rtl\inc\heaph.inc"/>
|
||||
<CursorPos X="43" Y="100"/>
|
||||
<TopLine Value="83"/>
|
||||
<UsageCount Value="7"/>
|
||||
<UsageCount Value="5"/>
|
||||
</Unit34>
|
||||
<Unit35>
|
||||
<Filename Value="..\test_fpc\interface_problem\interface_problem.pas"/>
|
||||
<UnitName Value="interface_problem"/>
|
||||
<CursorPos X="1" Y="10"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="15"/>
|
||||
<UsageCount Value="13"/>
|
||||
</Unit35>
|
||||
<Unit36>
|
||||
<Filename Value="..\..\base_xmlrpc_formatter.pas"/>
|
||||
@ -329,125 +317,121 @@
|
||||
<UnitName Value="base_xmlrpc_formatter"/>
|
||||
<CursorPos X="26" Y="13"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="7"/>
|
||||
<UsageCount Value="83"/>
|
||||
<Loaded Value="True"/>
|
||||
<UsageCount Value="98"/>
|
||||
</Unit36>
|
||||
<Unit37>
|
||||
<Filename Value="..\..\ws_helper\pscanner.pp"/>
|
||||
<UnitName Value="PScanner"/>
|
||||
<CursorPos X="19" Y="505"/>
|
||||
<TopLine Value="491"/>
|
||||
<UsageCount Value="22"/>
|
||||
<UsageCount Value="20"/>
|
||||
</Unit37>
|
||||
<Unit38>
|
||||
<Filename Value="..\..\ws_helper\pascal_parser_intf.pas"/>
|
||||
<UnitName Value="pascal_parser_intf"/>
|
||||
<CursorPos X="62" Y="296"/>
|
||||
<TopLine Value="296"/>
|
||||
<UsageCount Value="32"/>
|
||||
<UsageCount Value="30"/>
|
||||
</Unit38>
|
||||
<Unit39>
|
||||
<Filename Value="..\..\ws_helper\pastree.pp"/>
|
||||
<UnitName Value="PasTree"/>
|
||||
<CursorPos X="18" Y="254"/>
|
||||
<TopLine Value="243"/>
|
||||
<UsageCount Value="22"/>
|
||||
<UsageCount Value="20"/>
|
||||
</Unit39>
|
||||
<Unit40>
|
||||
<Filename Value="..\..\..\..\..\..\lazarus_23_215\fpc\2.1.5\source\packages\fcl-xml\src\dom.pp"/>
|
||||
<UnitName Value="DOM"/>
|
||||
<CursorPos X="38" Y="225"/>
|
||||
<TopLine Value="203"/>
|
||||
<UsageCount Value="21"/>
|
||||
<UsageCount Value="19"/>
|
||||
</Unit40>
|
||||
<Unit41>
|
||||
<Filename Value="..\..\wst_rtti_filter\cursor_intf.pas"/>
|
||||
<UnitName Value="cursor_intf"/>
|
||||
<CursorPos X="3" Y="75"/>
|
||||
<TopLine Value="70"/>
|
||||
<UsageCount Value="13"/>
|
||||
<UsageCount Value="11"/>
|
||||
</Unit41>
|
||||
<Unit42>
|
||||
<Filename Value="..\..\wst_rtti_filter\dom_cursors.pas"/>
|
||||
<UnitName Value="dom_cursors"/>
|
||||
<CursorPos X="3" Y="182"/>
|
||||
<TopLine Value="180"/>
|
||||
<UsageCount Value="13"/>
|
||||
<UsageCount Value="11"/>
|
||||
</Unit42>
|
||||
<Unit43>
|
||||
<Filename Value="..\..\..\..\..\..\lazarus_23_215\fpc\2.1.5\source\packages\fcl-fpcunit\src\fpcunit.pp"/>
|
||||
<UnitName Value="fpcunit"/>
|
||||
<CursorPos X="1" Y="446"/>
|
||||
<TopLine Value="434"/>
|
||||
<UsageCount Value="11"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit43>
|
||||
<Unit44>
|
||||
<Filename Value="..\..\..\..\..\..\lazarus_23_215\fpc\2.1.5\source\rtl\i386\i386.inc"/>
|
||||
<CursorPos X="1" Y="1284"/>
|
||||
<TopLine Value="1268"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="8"/>
|
||||
</Unit44>
|
||||
<Unit45>
|
||||
<Filename Value="..\..\..\..\..\..\lazarus_23_215\fpc\2.1.5\source\rtl\objpas\classes\streams.inc"/>
|
||||
<CursorPos X="1" Y="107"/>
|
||||
<TopLine Value="95"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="8"/>
|
||||
</Unit45>
|
||||
<Unit46>
|
||||
<Filename Value="..\..\semaphore.pas"/>
|
||||
<UnitName Value="semaphore"/>
|
||||
<CursorPos X="44" Y="6"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="12"/>
|
||||
<CursorPos X="3" Y="30"/>
|
||||
<TopLine Value="23"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit46>
|
||||
<Unit47>
|
||||
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\packages\fcl-xml\src\dom.pp"/>
|
||||
<UnitName Value="DOM"/>
|
||||
<CursorPos X="19" Y="328"/>
|
||||
<TopLine Value="313"/>
|
||||
<UsageCount Value="13"/>
|
||||
<UsageCount Value="11"/>
|
||||
</Unit47>
|
||||
<Unit48>
|
||||
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\win32\system.pp"/>
|
||||
<UnitName Value="System"/>
|
||||
<CursorPos X="22" Y="33"/>
|
||||
<TopLine Value="18"/>
|
||||
<UsageCount Value="11"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit48>
|
||||
<Unit49>
|
||||
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\packages\fcl-base\src\inc\contnrs.pp"/>
|
||||
<UnitName Value="contnrs"/>
|
||||
<CursorPos X="3" Y="964"/>
|
||||
<TopLine Value="962"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="8"/>
|
||||
</Unit49>
|
||||
<Unit50>
|
||||
<Filename Value="..\..\wst_delphi.inc"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="4"/>
|
||||
<UsageCount Value="14"/>
|
||||
<Loaded Value="True"/>
|
||||
<UsageCount Value="13"/>
|
||||
</Unit50>
|
||||
<Unit51>
|
||||
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\objpas\strutils.pp"/>
|
||||
<UnitName Value="strutils"/>
|
||||
<CursorPos X="10" Y="29"/>
|
||||
<TopLine Value="14"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="8"/>
|
||||
</Unit51>
|
||||
<Unit52>
|
||||
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\inc\objpash.inc"/>
|
||||
<CursorPos X="20" Y="168"/>
|
||||
<TopLine Value="166"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="8"/>
|
||||
</Unit52>
|
||||
<Unit53>
|
||||
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\inc\objpas.inc"/>
|
||||
<CursorPos X="11" Y="442"/>
|
||||
<TopLine Value="556"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="8"/>
|
||||
</Unit53>
|
||||
<Unit54>
|
||||
<Filename Value="..\..\wst_fpc_xml.pas"/>
|
||||
@ -455,27 +439,168 @@
|
||||
<UnitName Value="wst_fpc_xml"/>
|
||||
<CursorPos X="8" Y="38"/>
|
||||
<TopLine Value="11"/>
|
||||
<EditorIndex Value="3"/>
|
||||
<UsageCount Value="29"/>
|
||||
<Loaded Value="True"/>
|
||||
<UsageCount Value="44"/>
|
||||
</Unit54>
|
||||
<Unit55>
|
||||
<Filename Value="..\..\wst_global.inc"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="9"/>
|
||||
<UsageCount Value="12"/>
|
||||
<Loaded Value="True"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit55>
|
||||
<Unit56>
|
||||
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\packages\fcl-base\src\inc\custapp.pp"/>
|
||||
<UnitName Value="CustApp"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="8"/>
|
||||
</Unit56>
|
||||
<Unit57>
|
||||
<Filename Value="test_utilities.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="test_utilities"/>
|
||||
<CursorPos X="39" Y="97"/>
|
||||
<TopLine Value="42"/>
|
||||
<EditorIndex Value="5"/>
|
||||
<UsageCount Value="35"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit57>
|
||||
<Unit58>
|
||||
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\packages\fcl-fpcunit\src\fpcunit.pp"/>
|
||||
<UnitName Value="fpcunit"/>
|
||||
<CursorPos X="3" Y="212"/>
|
||||
<TopLine Value="217"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit58>
|
||||
<Unit59>
|
||||
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\packages\fcl-fpcunit\src\testregistry.pp"/>
|
||||
<UnitName Value="testregistry"/>
|
||||
<CursorPos X="35" Y="40"/>
|
||||
<TopLine Value="19"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit59>
|
||||
</Units>
|
||||
<JumpHistory Count="0" HistoryIndex="-1"/>
|
||||
<JumpHistory Count="30" HistoryIndex="29">
|
||||
<Position1>
|
||||
<Filename Value="test_utilities.pas"/>
|
||||
<Caret Line="182" Column="3" TopLine="188"/>
|
||||
</Position1>
|
||||
<Position2>
|
||||
<Filename Value="test_utilities.pas"/>
|
||||
<Caret Line="367" Column="22" TopLine="345"/>
|
||||
</Position2>
|
||||
<Position3>
|
||||
<Filename Value="test_utilities.pas"/>
|
||||
<Caret Line="366" Column="29" TopLine="353"/>
|
||||
</Position3>
|
||||
<Position4>
|
||||
<Filename Value="test_utilities.pas"/>
|
||||
<Caret Line="225" Column="38" TopLine="203"/>
|
||||
</Position4>
|
||||
<Position5>
|
||||
<Filename Value="test_utilities.pas"/>
|
||||
<Caret Line="370" Column="116" TopLine="360"/>
|
||||
</Position5>
|
||||
<Position6>
|
||||
<Filename Value="test_utilities.pas"/>
|
||||
<Caret Line="340" Column="13" TopLine="327"/>
|
||||
</Position6>
|
||||
<Position7>
|
||||
<Filename Value="test_utilities.pas"/>
|
||||
<Caret Line="334" Column="15" TopLine="328"/>
|
||||
</Position7>
|
||||
<Position8>
|
||||
<Filename Value="..\..\base_service_intf.pas"/>
|
||||
<Caret Line="1063" Column="81" TopLine="1059"/>
|
||||
</Position8>
|
||||
<Position9>
|
||||
<Filename Value="test_utilities.pas"/>
|
||||
<Caret Line="58" Column="3" TopLine="56"/>
|
||||
</Position9>
|
||||
<Position10>
|
||||
<Filename Value="test_utilities.pas"/>
|
||||
<Caret Line="393" Column="43" TopLine="379"/>
|
||||
</Position10>
|
||||
<Position11>
|
||||
<Filename Value="test_utilities.pas"/>
|
||||
<Caret Line="22" Column="45" TopLine="9"/>
|
||||
</Position11>
|
||||
<Position12>
|
||||
<Filename Value="test_utilities.pas"/>
|
||||
<Caret Line="394" Column="23" TopLine="379"/>
|
||||
</Position12>
|
||||
<Position13>
|
||||
<Filename Value="..\..\server_service_intf.pas"/>
|
||||
<Caret Line="693" Column="21" TopLine="675"/>
|
||||
</Position13>
|
||||
<Position14>
|
||||
<Filename Value="test_utilities.pas"/>
|
||||
<Caret Line="394" Column="47" TopLine="379"/>
|
||||
</Position14>
|
||||
<Position15>
|
||||
<Filename Value="test_utilities.pas"/>
|
||||
<Caret Line="22" Column="31" TopLine="17"/>
|
||||
</Position15>
|
||||
<Position16>
|
||||
<Filename Value="..\..\server_service_intf.pas"/>
|
||||
<Caret Line="177" Column="48" TopLine="164"/>
|
||||
</Position16>
|
||||
<Position17>
|
||||
<Filename Value="..\..\server_service_intf.pas"/>
|
||||
<Caret Line="167" Column="42" TopLine="154"/>
|
||||
</Position17>
|
||||
<Position18>
|
||||
<Filename Value="test_utilities.pas"/>
|
||||
<Caret Line="85" Column="3" TopLine="82"/>
|
||||
</Position18>
|
||||
<Position19>
|
||||
<Filename Value="test_utilities.pas"/>
|
||||
<Caret Line="394" Column="26" TopLine="384"/>
|
||||
</Position19>
|
||||
<Position20>
|
||||
<Filename Value="..\..\server_service_intf.pas"/>
|
||||
<Caret Line="194" Column="20" TopLine="178"/>
|
||||
</Position20>
|
||||
<Position21>
|
||||
<Filename Value="..\..\server_service_intf.pas"/>
|
||||
<Caret Line="683" Column="38" TopLine="673"/>
|
||||
</Position21>
|
||||
<Position22>
|
||||
<Filename Value="..\..\server_service_intf.pas"/>
|
||||
<Caret Line="187" Column="20" TopLine="181"/>
|
||||
</Position22>
|
||||
<Position23>
|
||||
<Filename Value="..\..\server_service_intf.pas"/>
|
||||
<Caret Line="191" Column="27" TopLine="181"/>
|
||||
</Position23>
|
||||
<Position24>
|
||||
<Filename Value="test_utilities.pas"/>
|
||||
<Caret Line="394" Column="27" TopLine="384"/>
|
||||
</Position24>
|
||||
<Position25>
|
||||
<Filename Value="..\..\server_service_intf.pas"/>
|
||||
<Caret Line="187" Column="21" TopLine="179"/>
|
||||
</Position25>
|
||||
<Position26>
|
||||
<Filename Value="..\..\server_service_intf.pas"/>
|
||||
<Caret Line="689" Column="22" TopLine="680"/>
|
||||
</Position26>
|
||||
<Position27>
|
||||
<Filename Value="..\..\server_service_intf.pas"/>
|
||||
<Caret Line="133" Column="25" TopLine="120"/>
|
||||
</Position27>
|
||||
<Position28>
|
||||
<Filename Value="..\..\server_service_intf.pas"/>
|
||||
<Caret Line="776" Column="44" TopLine="766"/>
|
||||
</Position28>
|
||||
<Position29>
|
||||
<Filename Value="test_utilities.pas"/>
|
||||
<Caret Line="394" Column="45" TopLine="390"/>
|
||||
</Position29>
|
||||
<Position30>
|
||||
<Filename Value="test_utilities.pas"/>
|
||||
<Caret Line="431" Column="45" TopLine="416"/>
|
||||
</Position30>
|
||||
</JumpHistory>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="5"/>
|
||||
|
||||
@ -9,7 +9,7 @@ uses
|
||||
base_service_intf, base_soap_formatter, binary_formatter, binary_streamer,
|
||||
server_binary_formatter, metadata_repository,
|
||||
metadata_generator, parserdefs, server_service_intf, metadata_wsdl,
|
||||
test_parserdef, base_xmlrpc_formatter, wst_fpc_xml;
|
||||
test_parserdef, base_xmlrpc_formatter, wst_fpc_xml, test_utilities;
|
||||
|
||||
Const
|
||||
ShortOpts = 'alh';
|
||||
|
||||
Reference in New Issue
Block a user