You've already forked lazarus-ccr
First implementation of the "WSDL to Pascal" fonctionality support in ws_helper.
ws_helper now has the following parameters :
ws_helper [-u] [-p] [-b] [-i] [-oPATH] inputFilename
-u Generate the pascal translation of the WSDL input file
-p Generate service proxy
-b Generate service binder
-i Generate service minimal implementation
-o PATH Relative output directory
-a PATH Absolute output directory
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@135 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
109
wst/trunk/tests/test_suite/test_parserdef.pas
Normal file
109
wst/trunk/tests/test_suite/test_parserdef.pas
Normal file
@ -0,0 +1,109 @@
|
||||
unit test_parserdef;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, parserdefs, fpcunit, testregistry;
|
||||
|
||||
type
|
||||
|
||||
{ TTest_TClassTypeDefinition }
|
||||
|
||||
TTest_TClassTypeDefinition = class(TTestCase)
|
||||
published
|
||||
procedure IsDescendantOf();
|
||||
procedure SetParent();
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{ TTest_TClassTypeDefinition }
|
||||
|
||||
procedure TTest_TClassTypeDefinition.IsDescendantOf();
|
||||
var
|
||||
a, b , c, d : TClassTypeDefinition;
|
||||
begin
|
||||
a := nil;
|
||||
b := nil;
|
||||
c := nil;
|
||||
d := nil;
|
||||
try
|
||||
a := TClassTypeDefinition.Create('a');
|
||||
|
||||
b := TClassTypeDefinition.Create('b');
|
||||
b.SetParent(a);
|
||||
|
||||
c := TClassTypeDefinition.Create('c');
|
||||
c.SetParent(b);
|
||||
|
||||
d := TClassTypeDefinition.Create('d');
|
||||
|
||||
AssertTrue('b IsDescendantOf a',b.IsDescendantOf(a));
|
||||
AssertTrue('c IsDescendantOf b',c.IsDescendantOf(b));
|
||||
AssertTrue('c IsDescendantOf a',c.IsDescendantOf(a));
|
||||
|
||||
AssertFalse('b IsDescendantOf c',b.IsDescendantOf(c));
|
||||
AssertFalse('a IsDescendantOf b',a.IsDescendantOf(b));
|
||||
AssertFalse('a IsDescendantOf c',a.IsDescendantOf(c));
|
||||
|
||||
AssertFalse('d IsDescendantOf a',d.IsDescendantOf(a));
|
||||
|
||||
finally
|
||||
FreeAndNil(d);
|
||||
FreeAndNil(c);
|
||||
FreeAndNil(b);
|
||||
FreeAndNil(a);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TTest_TClassTypeDefinition.SetParent();
|
||||
var
|
||||
a, b , c, d : TClassTypeDefinition;
|
||||
excp : Boolean;
|
||||
begin
|
||||
a := nil;
|
||||
b := nil;
|
||||
c := nil;
|
||||
d := nil;
|
||||
try
|
||||
a := TClassTypeDefinition.Create('a');
|
||||
|
||||
b := TClassTypeDefinition.Create('b');
|
||||
b.SetParent(a);
|
||||
|
||||
c := TClassTypeDefinition.Create('c');
|
||||
c.SetParent(b);
|
||||
|
||||
d := TClassTypeDefinition.Create('d');
|
||||
|
||||
excp := False;;
|
||||
try
|
||||
c.SetParent(c);
|
||||
except
|
||||
excp := True;
|
||||
end;
|
||||
if not excp then begin
|
||||
Fail('c.SetParent(c);');
|
||||
end;
|
||||
|
||||
AssertSame('a.Parent = nil',nil,a.Parent);
|
||||
AssertSame('b.Parent = a',a,b.Parent);
|
||||
AssertSame('c.Parent = b',b,c.Parent);
|
||||
AssertSame('d.Parent = nil',nil,d.Parent);
|
||||
|
||||
finally
|
||||
FreeAndNil(d);
|
||||
FreeAndNil(c);
|
||||
FreeAndNil(b);
|
||||
FreeAndNil(a);
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
initialization
|
||||
RegisterTest(TTest_TClassTypeDefinition);
|
||||
|
||||
end.
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -7,7 +7,7 @@
|
||||
<MainUnit Value="0"/>
|
||||
<IconPath Value="./"/>
|
||||
<TargetFileExt Value=".exe"/>
|
||||
<ActiveEditorIndexAtStart Value="9"/>
|
||||
<ActiveEditorIndexAtStart Value="1"/>
|
||||
</General>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
@ -18,7 +18,7 @@
|
||||
<RunParams>
|
||||
<local>
|
||||
<FormatVersion Value="1"/>
|
||||
<CommandLineParams Value="-a"/>
|
||||
<CommandLineParams Value="-a >res.xml"/>
|
||||
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
|
||||
</local>
|
||||
</RunParams>
|
||||
@ -27,23 +27,23 @@
|
||||
<PackageName Value="FPCUnitTestRunner"/>
|
||||
</Item1>
|
||||
</RequiredPackages>
|
||||
<Units Count="47">
|
||||
<Units Count="40">
|
||||
<Unit0>
|
||||
<Filename Value="wst_test_suite.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="wst_test_suite"/>
|
||||
<CursorPos X="69" Y="11"/>
|
||||
<TopLine Value="9"/>
|
||||
<UsageCount Value="149"/>
|
||||
<CursorPos X="33" Y="11"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="200"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="testformatter_unit.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="testformatter_unit"/>
|
||||
<CursorPos X="27" Y="905"/>
|
||||
<TopLine Value="886"/>
|
||||
<EditorIndex Value="9"/>
|
||||
<UsageCount Value="149"/>
|
||||
<CursorPos X="42" Y="2999"/>
|
||||
<TopLine Value="2972"/>
|
||||
<EditorIndex Value="4"/>
|
||||
<UsageCount Value="200"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
@ -52,49 +52,50 @@
|
||||
<UnitName Value="server_service_soap"/>
|
||||
<CursorPos X="20" Y="205"/>
|
||||
<TopLine Value="162"/>
|
||||
<EditorIndex Value="2"/>
|
||||
<UsageCount Value="149"/>
|
||||
<Loaded Value="True"/>
|
||||
<UsageCount Value="200"/>
|
||||
</Unit2>
|
||||
<Unit3>
|
||||
<Filename Value="..\..\soap_formatter.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="soap_formatter"/>
|
||||
<CursorPos X="8" Y="97"/>
|
||||
<TopLine Value="86"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<UsageCount Value="149"/>
|
||||
<Loaded Value="True"/>
|
||||
<CursorPos X="10" Y="118"/>
|
||||
<TopLine Value="89"/>
|
||||
<UsageCount Value="200"/>
|
||||
</Unit3>
|
||||
<Unit4>
|
||||
<Filename Value="..\..\base_binary_formatter.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="base_binary_formatter"/>
|
||||
<CursorPos X="39" Y="180"/>
|
||||
<TopLine Value="171"/>
|
||||
<EditorIndex Value="6"/>
|
||||
<UsageCount Value="149"/>
|
||||
<Loaded Value="True"/>
|
||||
<CursorPos X="48" Y="502"/>
|
||||
<TopLine Value="497"/>
|
||||
<UsageCount Value="200"/>
|
||||
<Bookmarks Count="1">
|
||||
<Item0 X="45" Y="1161" ID="0"/>
|
||||
</Bookmarks>
|
||||
</Unit4>
|
||||
<Unit5>
|
||||
<Filename Value="..\..\base_service_intf.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="base_service_intf"/>
|
||||
<CursorPos X="3" Y="106"/>
|
||||
<TopLine Value="121"/>
|
||||
<CursorPos X="21" Y="263"/>
|
||||
<TopLine Value="250"/>
|
||||
<EditorIndex Value="0"/>
|
||||
<UsageCount Value="149"/>
|
||||
<UsageCount Value="200"/>
|
||||
<Bookmarks Count="1">
|
||||
<Item0 X="5" Y="1159" ID="1"/>
|
||||
</Bookmarks>
|
||||
<Loaded Value="True"/>
|
||||
</Unit5>
|
||||
<Unit6>
|
||||
<Filename Value="..\..\base_soap_formatter.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="base_soap_formatter"/>
|
||||
<CursorPos X="1" Y="1082"/>
|
||||
<TopLine Value="1061"/>
|
||||
<EditorIndex Value="7"/>
|
||||
<UsageCount Value="149"/>
|
||||
<Loaded Value="True"/>
|
||||
<CursorPos X="34" Y="900"/>
|
||||
<TopLine Value="872"/>
|
||||
<UsageCount Value="200"/>
|
||||
<Bookmarks Count="1">
|
||||
<Item0 X="22" Y="1236" ID="1"/>
|
||||
</Bookmarks>
|
||||
</Unit6>
|
||||
<Unit7>
|
||||
<Filename Value="..\..\binary_formatter.pas"/>
|
||||
@ -102,17 +103,15 @@
|
||||
<UnitName Value="binary_formatter"/>
|
||||
<CursorPos X="15" Y="44"/>
|
||||
<TopLine Value="33"/>
|
||||
<EditorIndex Value="4"/>
|
||||
<UsageCount Value="149"/>
|
||||
<Loaded Value="True"/>
|
||||
<UsageCount Value="200"/>
|
||||
</Unit7>
|
||||
<Unit8>
|
||||
<Filename Value="..\..\binary_streamer.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="binary_streamer"/>
|
||||
<CursorPos X="32" Y="38"/>
|
||||
<TopLine Value="22"/>
|
||||
<UsageCount Value="149"/>
|
||||
<CursorPos X="18" Y="40"/>
|
||||
<TopLine Value="40"/>
|
||||
<UsageCount Value="200"/>
|
||||
</Unit8>
|
||||
<Unit9>
|
||||
<Filename Value="..\..\server_binary_formatter.pas"/>
|
||||
@ -120,281 +119,351 @@
|
||||
<UnitName Value="server_binary_formatter"/>
|
||||
<CursorPos X="5" Y="136"/>
|
||||
<TopLine Value="92"/>
|
||||
<UsageCount Value="149"/>
|
||||
<UsageCount Value="200"/>
|
||||
</Unit9>
|
||||
<Unit10>
|
||||
<Filename Value="D:\lazarusClean\fpcsrc\fcl\fpcunit\fpcunit.pp"/>
|
||||
<UnitName Value="fpcunit"/>
|
||||
<CursorPos X="39" Y="66"/>
|
||||
<TopLine Value="66"/>
|
||||
<UsageCount Value="6"/>
|
||||
</Unit10>
|
||||
<Unit11>
|
||||
<Filename Value="D:\lazarusClean\fpcsrc\fcl\fpcunit\testregistry.pp"/>
|
||||
<UnitName Value="testregistry"/>
|
||||
<CursorPos X="11" Y="29"/>
|
||||
<TopLine Value="35"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit11>
|
||||
<Unit12>
|
||||
<Filename Value="D:\lazarusClean\fpcsrc\rtl\objpas\typinfo.pp"/>
|
||||
<UnitName Value="typinfo"/>
|
||||
<CursorPos X="11" Y="216"/>
|
||||
<TopLine Value="230"/>
|
||||
<UsageCount Value="3"/>
|
||||
</Unit12>
|
||||
<Unit13>
|
||||
<Filename Value="D:\lazarusClean\fpcsrc\rtl\objpas\sysutils\sysstrh.inc"/>
|
||||
<CursorPos X="10" Y="137"/>
|
||||
<TopLine Value="127"/>
|
||||
<UsageCount Value="1"/>
|
||||
</Unit13>
|
||||
<Unit14>
|
||||
<Filename Value="D:\lazarusClean\fpcsrc\rtl\objpas\sysutils\sysstr.inc"/>
|
||||
<CursorPos X="23" Y="1007"/>
|
||||
<TopLine Value="1005"/>
|
||||
<UsageCount Value="1"/>
|
||||
</Unit14>
|
||||
<Unit15>
|
||||
<Filename Value="D:\lazarusClean\fpcsrc\rtl\inc\systemh.inc"/>
|
||||
<CursorPos X="65" Y="452"/>
|
||||
<TopLine Value="441"/>
|
||||
<UsageCount Value="6"/>
|
||||
</Unit15>
|
||||
<Unit16>
|
||||
<Filename Value="D:\lazarusClean\fpcsrc\rtl\win32\system.pp"/>
|
||||
<UnitName Value="System"/>
|
||||
<CursorPos X="20" Y="1012"/>
|
||||
<TopLine Value="1011"/>
|
||||
<UsageCount Value="6"/>
|
||||
</Unit16>
|
||||
<Unit17>
|
||||
<Filename Value="D:\lazarusClean\fpcsrc\fcl\inc\contnrs.pp"/>
|
||||
<UnitName Value="contnrs"/>
|
||||
<CursorPos X="3" Y="625"/>
|
||||
<TopLine Value="623"/>
|
||||
<UsageCount Value="1"/>
|
||||
</Unit17>
|
||||
<Unit18>
|
||||
</Unit10>
|
||||
<Unit11>
|
||||
<Filename Value="..\..\metadata_repository.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="metadata_repository"/>
|
||||
<CursorPos X="3" Y="79"/>
|
||||
<TopLine Value="70"/>
|
||||
<UsageCount Value="124"/>
|
||||
</Unit18>
|
||||
<Unit19>
|
||||
<UsageCount Value="200"/>
|
||||
</Unit11>
|
||||
<Unit12>
|
||||
<Filename Value="D:\Lazarus\fpcsrc\rtl\objpas\typinfo.pp"/>
|
||||
<UnitName Value="typinfo"/>
|
||||
<CursorPos X="15" Y="579"/>
|
||||
<TopLine Value="565"/>
|
||||
<UsageCount Value="5"/>
|
||||
</Unit19>
|
||||
<Unit20>
|
||||
<UsageCount Value="7"/>
|
||||
</Unit12>
|
||||
<Unit13>
|
||||
<Filename Value="testmetadata_unit.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="testmetadata_unit"/>
|
||||
<CursorPos X="83" Y="119"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="8"/>
|
||||
<UsageCount Value="117"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit20>
|
||||
<Unit21>
|
||||
<TopLine Value="46"/>
|
||||
<UsageCount Value="199"/>
|
||||
</Unit13>
|
||||
<Unit14>
|
||||
<Filename Value="..\..\ws_helper\metadata_generator.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="metadata_generator"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<TopLine Value="31"/>
|
||||
<UsageCount Value="117"/>
|
||||
</Unit21>
|
||||
<Unit22>
|
||||
<UsageCount Value="199"/>
|
||||
</Unit14>
|
||||
<Unit15>
|
||||
<Filename Value="..\..\ws_helper\parserdefs.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="parserdefs"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="117"/>
|
||||
</Unit22>
|
||||
<Unit23>
|
||||
<Filename Value="D:\Lazarus\fpcsrc\fcl\fpcunit\fpcunit.pp"/>
|
||||
<UnitName Value="fpcunit"/>
|
||||
<CursorPos X="21" Y="81"/>
|
||||
<TopLine Value="71"/>
|
||||
<UsageCount Value="2"/>
|
||||
</Unit23>
|
||||
<Unit24>
|
||||
<Filename Value="D:\Lazarus\fpcsrc\fcl\fpcunit\testregistry.pp"/>
|
||||
<UnitName Value="testregistry"/>
|
||||
<CursorPos X="11" Y="29"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="3"/>
|
||||
</Unit24>
|
||||
<Unit25>
|
||||
<Filename Value="D:\Lazarus\fpcsrc\rtl\inc\heaph.inc"/>
|
||||
<CursorPos X="10" Y="87"/>
|
||||
<TopLine Value="61"/>
|
||||
<UsageCount Value="2"/>
|
||||
</Unit25>
|
||||
<Unit26>
|
||||
<Filename Value="D:\Lazarus\fpcsrc\rtl\inc\heap.inc"/>
|
||||
<CursorPos X="3" Y="235"/>
|
||||
<TopLine Value="223"/>
|
||||
<UsageCount Value="2"/>
|
||||
</Unit26>
|
||||
<Unit27>
|
||||
<Filename Value="D:\Lazarus\fpcsrc\rtl\objpas\classes\classesh.inc"/>
|
||||
<CursorPos X="3" Y="1248"/>
|
||||
<TopLine Value="1238"/>
|
||||
<UsageCount Value="2"/>
|
||||
</Unit27>
|
||||
<Unit28>
|
||||
<EditorIndex Value="2"/>
|
||||
<UsageCount Value="199"/>
|
||||
<Bookmarks Count="2">
|
||||
<Item0 X="45" Y="1146" ID="0"/>
|
||||
<Item1 X="18" Y="1133" ID="2"/>
|
||||
</Bookmarks>
|
||||
<Loaded Value="True"/>
|
||||
</Unit15>
|
||||
<Unit16>
|
||||
<Filename Value="..\..\metadata_wsdl.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="metadata_wsdl"/>
|
||||
<CursorPos X="38" Y="148"/>
|
||||
<TopLine Value="142"/>
|
||||
<UsageCount Value="109"/>
|
||||
</Unit28>
|
||||
<Unit29>
|
||||
<CursorPos X="25" Y="759"/>
|
||||
<TopLine Value="751"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<UsageCount Value="191"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit16>
|
||||
<Unit17>
|
||||
<Filename Value="D:\Lazarus\fpcsrc\fcl\xml\dom.pp"/>
|
||||
<UnitName Value="DOM"/>
|
||||
<CursorPos X="15" Y="429"/>
|
||||
<TopLine Value="413"/>
|
||||
<UsageCount Value="4"/>
|
||||
</Unit29>
|
||||
<Unit30>
|
||||
<Filename Value="D:\lazarusClean\fpcsrc\rtl\win32\classes.pp"/>
|
||||
<UnitName Value="Classes"/>
|
||||
<CursorPos X="14" Y="32"/>
|
||||
<TopLine Value="13"/>
|
||||
<UsageCount Value="6"/>
|
||||
</Unit30>
|
||||
<Unit31>
|
||||
<Filename Value="D:\lazarusClean\fpcsrc\rtl\objpas\classes\classesh.inc"/>
|
||||
<CursorPos X="14" Y="149"/>
|
||||
<TopLine Value="138"/>
|
||||
<UsageCount Value="6"/>
|
||||
</Unit31>
|
||||
<Unit32>
|
||||
<Filename Value="D:\lazarusClean\fpcsrc\rtl\objpas\classes\lists.inc"/>
|
||||
<CursorPos X="3" Y="29"/>
|
||||
<TopLine Value="27"/>
|
||||
<UsageCount Value="6"/>
|
||||
</Unit32>
|
||||
<Unit33>
|
||||
</Unit17>
|
||||
<Unit18>
|
||||
<Filename Value="D:\lazarusClean\fpc\2.0.4\source\rtl\objpas\sysutils\sysutilh.inc"/>
|
||||
<CursorPos X="13" Y="235"/>
|
||||
<TopLine Value="215"/>
|
||||
<UsageCount Value="8"/>
|
||||
</Unit33>
|
||||
<Unit34>
|
||||
<Filename Value="D:\lazarusClean\fpc\2.0.4\source\rtl\objpas\sysutils\sysutils.inc"/>
|
||||
<CursorPos X="9" Y="110"/>
|
||||
<TopLine Value="106"/>
|
||||
<UsageCount Value="7"/>
|
||||
</Unit34>
|
||||
<Unit35>
|
||||
<Filename Value="D:\lazarusClean\fpc\2.0.4\source\rtl\inc\heaptrc.pp"/>
|
||||
<UnitName Value="heaptrc"/>
|
||||
<CursorPos X="40" Y="1168"/>
|
||||
<TopLine Value="1190"/>
|
||||
<UsageCount Value="7"/>
|
||||
</Unit35>
|
||||
<Unit36>
|
||||
<UsageCount Value="0"/>
|
||||
</Unit18>
|
||||
<Unit19>
|
||||
<Filename Value="D:\lazarusClean\fpc\2.0.4\source\fcl\xml\dom.pp"/>
|
||||
<UnitName Value="DOM"/>
|
||||
<CursorPos X="3" Y="187"/>
|
||||
<TopLine Value="175"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit36>
|
||||
<Unit37>
|
||||
<UsageCount Value="1"/>
|
||||
</Unit19>
|
||||
<Unit20>
|
||||
<Filename Value="..\..\server_service_intf.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="server_service_intf"/>
|
||||
<CursorPos X="35" Y="379"/>
|
||||
<TopLine Value="376"/>
|
||||
<EditorIndex Value="3"/>
|
||||
<UsageCount Value="43"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit37>
|
||||
<Unit38>
|
||||
<TopLine Value="397"/>
|
||||
<UsageCount Value="125"/>
|
||||
</Unit20>
|
||||
<Unit21>
|
||||
<Filename Value="..\..\service_intf.pas"/>
|
||||
<UnitName Value="service_intf"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<TopLine Value="23"/>
|
||||
<EditorIndex Value="5"/>
|
||||
<UsageCount Value="19"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit38>
|
||||
<Unit39>
|
||||
<UsageCount Value="11"/>
|
||||
</Unit21>
|
||||
<Unit22>
|
||||
<Filename Value="D:\lazarusClean\fpc\2.0.4\source\rtl\objpas\classes\classesh.inc"/>
|
||||
<CursorPos X="3" Y="316"/>
|
||||
<TopLine Value="304"/>
|
||||
<UsageCount Value="8"/>
|
||||
</Unit39>
|
||||
<Unit40>
|
||||
<UsageCount Value="0"/>
|
||||
</Unit22>
|
||||
<Unit23>
|
||||
<Filename Value="D:\lazarusClean\fpc\2.0.4\source\rtl\objpas\classes\lists.inc"/>
|
||||
<CursorPos X="3" Y="407"/>
|
||||
<TopLine Value="404"/>
|
||||
<UsageCount Value="8"/>
|
||||
</Unit40>
|
||||
<Unit41>
|
||||
<UsageCount Value="0"/>
|
||||
</Unit23>
|
||||
<Unit24>
|
||||
<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="8"/>
|
||||
</Unit41>
|
||||
<Unit42>
|
||||
<UsageCount Value="0"/>
|
||||
</Unit24>
|
||||
<Unit25>
|
||||
<Filename Value="D:\lazarusClean\fpc\2.0.4\source\rtl\inc\objpash.inc"/>
|
||||
<CursorPos X="27" Y="121"/>
|
||||
<TopLine Value="104"/>
|
||||
<UsageCount Value="8"/>
|
||||
</Unit42>
|
||||
<Unit43>
|
||||
<UsageCount Value="0"/>
|
||||
</Unit25>
|
||||
<Unit26>
|
||||
<Filename Value="D:\lazarusClean\fpc\2.0.4\source\rtl\inc\objpas.inc"/>
|
||||
<CursorPos X="9" Y="166"/>
|
||||
<TopLine Value="142"/>
|
||||
<UsageCount Value="8"/>
|
||||
</Unit43>
|
||||
<Unit44>
|
||||
<UsageCount Value="0"/>
|
||||
</Unit26>
|
||||
<Unit27>
|
||||
<Filename Value="D:\Lazarus\components\fpcunit\guitestrunner.pas"/>
|
||||
<ComponentName Value="GUITestRunner"/>
|
||||
<HasResources Value="True"/>
|
||||
<UnitName Value="GuiTestRunner"/>
|
||||
<CursorPos X="34" Y="32"/>
|
||||
<TopLine Value="25"/>
|
||||
<UsageCount Value="8"/>
|
||||
</Unit44>
|
||||
<Unit45>
|
||||
<UsageCount Value="0"/>
|
||||
</Unit27>
|
||||
<Unit28>
|
||||
<Filename Value="D:\lazarusClean\fpc\2.0.4\source\fcl\fpcunit\fpcunit.pp"/>
|
||||
<UnitName Value="fpcunit"/>
|
||||
<CursorPos X="26" Y="231"/>
|
||||
<TopLine Value="193"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit45>
|
||||
<Unit46>
|
||||
<UsageCount Value="1"/>
|
||||
</Unit28>
|
||||
<Unit29>
|
||||
<Filename Value="..\..\..\..\..\lazarusClean\fpc\2.0.4\source\fcl\fpcunit\fpcunit.pp"/>
|
||||
<UnitName Value="fpcunit"/>
|
||||
<CursorPos X="21" Y="94"/>
|
||||
<TopLine Value="80"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit46>
|
||||
<TopLine Value="83"/>
|
||||
<UsageCount Value="8"/>
|
||||
</Unit29>
|
||||
<Unit30>
|
||||
<Filename Value="..\..\..\..\..\lazarusClean\fpc\2.0.4\source\fcl\fpcunit\DUnitCompatibleInterface.inc"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<TopLine Value="4"/>
|
||||
<UsageCount Value="2"/>
|
||||
</Unit30>
|
||||
<Unit31>
|
||||
<Filename Value="..\..\imp_utils.pas"/>
|
||||
<UnitName Value="imp_utils"/>
|
||||
<CursorPos X="15" Y="36"/>
|
||||
<TopLine Value="22"/>
|
||||
<UsageCount Value="2"/>
|
||||
</Unit31>
|
||||
<Unit32>
|
||||
<Filename Value="..\..\..\..\..\lazarusClean\fpc\2.0.4\source\fcl\xml\dom.pp"/>
|
||||
<UnitName Value="DOM"/>
|
||||
<CursorPos X="3" Y="1412"/>
|
||||
<TopLine Value="1407"/>
|
||||
<UsageCount Value="6"/>
|
||||
</Unit32>
|
||||
<Unit33>
|
||||
<Filename Value="..\..\..\..\..\lazarusClean\fpc\2.0.4\source\rtl\objpas\typinfo.pp"/>
|
||||
<UnitName Value="typinfo"/>
|
||||
<CursorPos X="33" Y="192"/>
|
||||
<TopLine Value="186"/>
|
||||
<UsageCount Value="5"/>
|
||||
</Unit33>
|
||||
<Unit34>
|
||||
<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="6"/>
|
||||
</Unit34>
|
||||
<Unit35>
|
||||
<Filename Value="..\..\..\..\..\lazarusClean\fpc\2.0.4\source\rtl\objpas\sysutils\datih.inc"/>
|
||||
<CursorPos X="10" Y="109"/>
|
||||
<TopLine Value="107"/>
|
||||
<UsageCount Value="7"/>
|
||||
</Unit35>
|
||||
<Unit36>
|
||||
<Filename Value="..\..\..\..\..\lazarusClean\fpc\2.0.4\source\rtl\objpas\sysutils\dati.inc"/>
|
||||
<CursorPos X="46" Y="130"/>
|
||||
<TopLine Value="122"/>
|
||||
<UsageCount Value="7"/>
|
||||
</Unit36>
|
||||
<Unit37>
|
||||
<Filename Value="test_parserdef.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="test_parserdef"/>
|
||||
<CursorPos X="93" Y="76"/>
|
||||
<TopLine Value="11"/>
|
||||
<EditorIndex Value="3"/>
|
||||
<UsageCount Value="45"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit37>
|
||||
<Unit38>
|
||||
<Filename Value="..\..\..\..\..\lazarusClean\fpc\2.0.4\source\fcl\fpcunit\testutils.pp"/>
|
||||
<UnitName Value="testutils"/>
|
||||
<CursorPos X="34" Y="25"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="7"/>
|
||||
</Unit38>
|
||||
<Unit39>
|
||||
<Filename Value="..\..\..\..\..\lazarusClean\fpc\2.0.4\source\fcl\fpcunit\testregistry.pp"/>
|
||||
<UnitName Value="testregistry"/>
|
||||
<CursorPos X="18" Y="17"/>
|
||||
<TopLine Value="16"/>
|
||||
<UsageCount Value="7"/>
|
||||
</Unit39>
|
||||
</Units>
|
||||
<JumpHistory Count="3" HistoryIndex="2">
|
||||
<JumpHistory Count="30" HistoryIndex="29">
|
||||
<Position1>
|
||||
<Filename Value="testformatter_unit.pas"/>
|
||||
<Caret Line="875" Column="3" TopLine="866"/>
|
||||
<Filename Value="..\..\ws_helper\parserdefs.pas"/>
|
||||
<Caret Line="1128" Column="39" TopLine="1122"/>
|
||||
</Position1>
|
||||
<Position2>
|
||||
<Filename Value="testformatter_unit.pas"/>
|
||||
<Caret Line="2126" Column="1" TopLine="143"/>
|
||||
<Filename Value="..\..\ws_helper\parserdefs.pas"/>
|
||||
<Caret Line="956" Column="19" TopLine="935"/>
|
||||
</Position2>
|
||||
<Position3>
|
||||
<Filename Value="testformatter_unit.pas"/>
|
||||
<Caret Line="877" Column="26" TopLine="863"/>
|
||||
<Filename Value="..\..\ws_helper\parserdefs.pas"/>
|
||||
<Caret Line="977" Column="50" TopLine="956"/>
|
||||
</Position3>
|
||||
<Position4>
|
||||
<Filename Value="..\..\ws_helper\parserdefs.pas"/>
|
||||
<Caret Line="978" Column="33" TopLine="957"/>
|
||||
</Position4>
|
||||
<Position5>
|
||||
<Filename Value="..\..\ws_helper\parserdefs.pas"/>
|
||||
<Caret Line="1118" Column="28" TopLine="1112"/>
|
||||
</Position5>
|
||||
<Position6>
|
||||
<Filename Value="..\..\ws_helper\parserdefs.pas"/>
|
||||
<Caret Line="1" Column="1" TopLine="1"/>
|
||||
</Position6>
|
||||
<Position7>
|
||||
<Filename Value="..\..\ws_helper\parserdefs.pas"/>
|
||||
<Caret Line="956" Column="48" TopLine="935"/>
|
||||
</Position7>
|
||||
<Position8>
|
||||
<Filename Value="..\..\ws_helper\parserdefs.pas"/>
|
||||
<Caret Line="977" Column="28" TopLine="956"/>
|
||||
</Position8>
|
||||
<Position9>
|
||||
<Filename Value="..\..\ws_helper\parserdefs.pas"/>
|
||||
<Caret Line="1142" Column="1" TopLine="1129"/>
|
||||
</Position9>
|
||||
<Position10>
|
||||
<Filename Value="..\..\ws_helper\parserdefs.pas"/>
|
||||
<Caret Line="1" Column="1" TopLine="1"/>
|
||||
</Position10>
|
||||
<Position11>
|
||||
<Filename Value="..\..\ws_helper\parserdefs.pas"/>
|
||||
<Caret Line="986" Column="21" TopLine="951"/>
|
||||
</Position11>
|
||||
<Position12>
|
||||
<Filename Value="..\..\ws_helper\parserdefs.pas"/>
|
||||
<Caret Line="963" Column="27" TopLine="941"/>
|
||||
</Position12>
|
||||
<Position13>
|
||||
<Filename Value="..\..\ws_helper\parserdefs.pas"/>
|
||||
<Caret Line="974" Column="1" TopLine="957"/>
|
||||
</Position13>
|
||||
<Position14>
|
||||
<Filename Value="..\..\ws_helper\parserdefs.pas"/>
|
||||
<Caret Line="976" Column="17" TopLine="962"/>
|
||||
</Position14>
|
||||
<Position15>
|
||||
<Filename Value="..\..\ws_helper\parserdefs.pas"/>
|
||||
<Caret Line="978" Column="50" TopLine="964"/>
|
||||
</Position15>
|
||||
<Position16>
|
||||
<Filename Value="..\..\ws_helper\parserdefs.pas"/>
|
||||
<Caret Line="980" Column="33" TopLine="965"/>
|
||||
</Position16>
|
||||
<Position17>
|
||||
<Filename Value="testformatter_unit.pas"/>
|
||||
<Caret Line="1050" Column="19" TopLine="1039"/>
|
||||
</Position17>
|
||||
<Position18>
|
||||
<Filename Value="testformatter_unit.pas"/>
|
||||
<Caret Line="214" Column="45" TopLine="210"/>
|
||||
</Position18>
|
||||
<Position19>
|
||||
<Filename Value="testformatter_unit.pas"/>
|
||||
<Caret Line="2881" Column="31" TopLine="2866"/>
|
||||
</Position19>
|
||||
<Position20>
|
||||
<Filename Value="testformatter_unit.pas"/>
|
||||
<Caret Line="213" Column="35" TopLine="200"/>
|
||||
</Position20>
|
||||
<Position21>
|
||||
<Filename Value="..\..\base_service_intf.pas"/>
|
||||
<Caret Line="1139" Column="42" TopLine="1126"/>
|
||||
</Position21>
|
||||
<Position22>
|
||||
<Filename Value="..\..\base_service_intf.pas"/>
|
||||
<Caret Line="467" Column="3" TopLine="465"/>
|
||||
</Position22>
|
||||
<Position23>
|
||||
<Filename Value="..\..\base_service_intf.pas"/>
|
||||
<Caret Line="3667" Column="88" TopLine="3647"/>
|
||||
</Position23>
|
||||
<Position24>
|
||||
<Filename Value="..\..\base_service_intf.pas"/>
|
||||
<Caret Line="1" Column="1" TopLine="1"/>
|
||||
</Position24>
|
||||
<Position25>
|
||||
<Filename Value="..\..\ws_helper\parserdefs.pas"/>
|
||||
<Caret Line="1132" Column="44" TopLine="1113"/>
|
||||
</Position25>
|
||||
<Position26>
|
||||
<Filename Value="..\..\base_service_intf.pas"/>
|
||||
<Caret Line="1167" Column="124" TopLine="1145"/>
|
||||
</Position26>
|
||||
<Position27>
|
||||
<Filename Value="..\..\base_service_intf.pas"/>
|
||||
<Caret Line="3927" Column="13" TopLine="3912"/>
|
||||
</Position27>
|
||||
<Position28>
|
||||
<Filename Value="..\..\base_service_intf.pas"/>
|
||||
<Caret Line="1" Column="1" TopLine="1"/>
|
||||
</Position28>
|
||||
<Position29>
|
||||
<Filename Value="testformatter_unit.pas"/>
|
||||
<Caret Line="416" Column="3" TopLine="414"/>
|
||||
</Position29>
|
||||
<Position30>
|
||||
<Filename Value="testformatter_unit.pas"/>
|
||||
<Caret Line="2965" Column="35" TopLine="2960"/>
|
||||
</Position30>
|
||||
</JumpHistory>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
@ -423,7 +492,7 @@
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
<Debugging>
|
||||
<BreakPoints Count="19">
|
||||
<BreakPoints Count="14">
|
||||
<Item1>
|
||||
<Source Value="..\google_api\home\inoussa\Projets\Laz\tests\soap\test_soap.pas"/>
|
||||
<Line Value="15"/>
|
||||
@ -477,29 +546,9 @@
|
||||
<Line Value="568"/>
|
||||
</Item13>
|
||||
<Item14>
|
||||
<Source Value="testformatter_unit.pas"/>
|
||||
<Line Value="366"/>
|
||||
</Item14>
|
||||
<Item15>
|
||||
<Source Value="testformatter_unit.pas"/>
|
||||
<Line Value="337"/>
|
||||
</Item15>
|
||||
<Item16>
|
||||
<Source Value="testformatter_unit.pas"/>
|
||||
<Line Value="194"/>
|
||||
</Item16>
|
||||
<Item17>
|
||||
<Source Value="testformatter_unit.pas"/>
|
||||
<Line Value="349"/>
|
||||
</Item17>
|
||||
<Item18>
|
||||
<Source Value="testformatter_unit.pas"/>
|
||||
<Line Value="363"/>
|
||||
</Item18>
|
||||
<Item19>
|
||||
<Source Value="testformatter_unit.pas"/>
|
||||
<Line Value="909"/>
|
||||
</Item19>
|
||||
</Item14>
|
||||
</BreakPoints>
|
||||
<Watches Count="2">
|
||||
<Item1>
|
||||
|
||||
@ -8,7 +8,8 @@ uses
|
||||
server_service_soap, soap_formatter, base_binary_formatter,
|
||||
base_service_intf, base_soap_formatter, binary_formatter, binary_streamer,
|
||||
server_binary_formatter, metadata_repository,
|
||||
metadata_generator, parserdefs, server_service_intf, metadata_wsdl;
|
||||
metadata_generator, parserdefs, server_service_intf, metadata_wsdl,
|
||||
test_parserdef;
|
||||
|
||||
Const
|
||||
ShortOpts = 'alh';
|
||||
|
||||
Reference in New Issue
Block a user