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

Linux compatibility fixing

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@162 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2007-05-06 19:31:24 +00:00
parent 320f639458
commit 790cf39be4
12 changed files with 423 additions and 447 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
wst/trunk/samples/amazon/AWSECommerceService.pas
View File

@ -2,7 +2,7 @@
This unit has been produced by ws_helper. This unit has been produced by ws_helper.
Input unit name : "AWSECommerceService". Input unit name : "AWSECommerceService".
This unit name : "AWSECommerceService". This unit name : "AWSECommerceService".
Date : "05/05/2007 10:07". Date : "6-5-07 19:37:08".
} }
unit AWSECommerceService; unit AWSECommerceService;
{$IFDEF FPC} {$mode objfpc}{$H+} {$ENDIF} {$IFDEF FPC} {$mode objfpc}{$H+} {$ENDIF}
@ -7256,7 +7256,7 @@ type
end; end;
AWSECommerceServicePortType = interface(IInvokable) AWSECommerceServicePortType = interface(IInvokable)
['{C470F61C-058A-4BDA-B4BC-2E565FE84674}'] ['{44FE21A3-034C-4AC2-81F3-73F0DD856713}']
function Help( function Help(
Const HelpParam : Help_Type Const HelpParam : Help_Type
):HelpResponse_Type; ):HelpResponse_Type;

4
wst/trunk/samples/amazon/AWSECommerceService_proxy.pas
View File

@ -2,7 +2,7 @@
This unit has been produced by ws_helper. This unit has been produced by ws_helper.
Input unit name : "AWSECommerceService". Input unit name : "AWSECommerceService".
This unit name : "AWSECommerceService_proxy". This unit name : "AWSECommerceService_proxy".
Date : "05/05/2007 10:07". Date : "6-5-07 19:37:08".
} }
Unit AWSECommerceService_proxy; Unit AWSECommerceService_proxy;
@ -575,5 +575,5 @@ initialization
{$IF DECLARED(Register_AWSECommerceService_ServiceMetadata)} {$IF DECLARED(Register_AWSECommerceService_ServiceMetadata)}
Register_AWSECommerceService_ServiceMetadata(); Register_AWSECommerceService_ServiceMetadata();
{$ENDIF} {$IFEND}
End. End.

36
wst/trunk/samples/amazon/amazon_sample.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="\"/> <PathDelim Value="/"/>
<Version Value="5"/> <Version Value="5"/>
<General> <General>
<Flags> <Flags>
@ -12,7 +12,7 @@
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/> <IconPath Value="./"/>
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="2"/> <ActiveEditorIndexAtStart Value="0"/>
</General> </General>
<VersionInfo> <VersionInfo>
<ProjectVersion Value=""/> <ProjectVersion Value=""/>
@ -29,23 +29,23 @@
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/> <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local> </local>
</RunParams> </RunParams>
<Units Count="5"> <Units Count="6">
<Unit0> <Unit0>
<Filename Value="amazon_sample.pas"/> <Filename Value="amazon_sample.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="amazon_sample"/> <UnitName Value="amazon_sample"/>
<CursorPos X="4" Y="8"/> <CursorPos X="33" Y="12"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<UsageCount Value="20"/> <UsageCount Value="20"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="..\..\synapse_http_protocol.pas"/> <Filename Value="../../synapse_http_protocol.pas"/>
<UnitName Value="synapse_http_protocol"/> <UnitName Value="synapse_http_protocol"/>
<CursorPos X="9" Y="23"/> <CursorPos X="9" Y="23"/>
<TopLine Value="2"/> <TopLine Value="2"/>
<EditorIndex Value="3"/> <EditorIndex Value="4"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit1> </Unit1>
@ -68,25 +68,31 @@
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
<Filename Value="..\..\..\..\..\lazarus23_213\others_package\synapse\httpsend.pas"/> <Filename Value="../../../../../lazarus23_213/others_package/synapse/httpsend.pas"/>
<UnitName Value="httpsend"/> <UnitName Value="httpsend"/>
<CursorPos X="27" Y="2"/> <CursorPos X="27" Y="2"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="4"/> <UsageCount Value="10"/>
</Unit4>
<Unit5>
<Filename Value="../../base_service_intf.pas"/>
<UnitName Value="base_service_intf"/>
<CursorPos X="1" Y="4148"/>
<TopLine Value="4118"/>
<EditorIndex Value="3"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit4> </Unit5>
</Units> </Units>
<JumpHistory Count="0" HistoryIndex="-1"/> <JumpHistory Count="0" HistoryIndex="-1"/>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="5"/>
<PathDelim Value="\"/>
<Target> <Target>
<Filename Value="amazon_sample"/> <Filename Value="amazon_sample"/>
</Target> </Target>
<SearchPaths> <SearchPaths>
<OtherUnitFiles Value="..\..\;$(LazarusDir)\others_package\synapse\"/> <OtherUnitFiles Value="../../;$(LazarusDir)/others_package/synapse/"/>
<UnitOutputDirectory Value="obj"/> <UnitOutputDirectory Value="obj"/>
</SearchPaths> </SearchPaths>
<CodeGeneration> <CodeGeneration>
@ -99,19 +105,19 @@
<Debugging> <Debugging>
<BreakPoints Count="4"> <BreakPoints Count="4">
<Item1> <Item1>
<Source Value="D:\lazarusClean\fpcsrc\rtl\inc\getopts.pp"/> <Source Value="D:/lazarusClean/fpcsrc/rtl/inc/getopts.pp"/>
<Line Value="230"/> <Line Value="230"/>
</Item1> </Item1>
<Item2> <Item2>
<Source Value="D:\lazarusClean\fpcsrc\rtl\inc\getopts.pp"/> <Source Value="D:/lazarusClean/fpcsrc/rtl/inc/getopts.pp"/>
<Line Value="193"/> <Line Value="193"/>
</Item2> </Item2>
<Item3> <Item3>
<Source Value="D:\lazarusClean\fpcsrc\rtl\inc\getopts.pp"/> <Source Value="D:/lazarusClean/fpcsrc/rtl/inc/getopts.pp"/>
<Line Value="198"/> <Line Value="198"/>
</Item3> </Item3>
<Item4> <Item4>
<Source Value="..\..\ws_helper\wsdl2pas_imp.pas"/> <Source Value="../../ws_helper/wsdl2pas_imp.pas"/>
<Line Value="606"/> <Line Value="606"/>
</Item4> </Item4>
</BreakPoints> </BreakPoints>

89
wst/trunk/samples/library_server/lib_server.lpi
View File

@ -1,12 +1,13 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="\"/> <PathDelim Value="/"/>
<Version Value="5"/> <Version Value="5"/>
<General> <General>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="3"/> <ActiveEditorIndexAtStart Value="4"/>
</General> </General>
<VersionInfo> <VersionInfo>
<ProjectVersion Value=""/> <ProjectVersion Value=""/>
@ -23,19 +24,19 @@
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/> <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local> </local>
</RunParams> </RunParams>
<Units Count="5"> <Units Count="6">
<Unit0> <Unit0>
<Filename Value="lib_server.lpr"/> <Filename Value="lib_server.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="lib_server"/> <UnitName Value="lib_server"/>
<CursorPos X="45" Y="35"/> <CursorPos X="45" Y="35"/>
<TopLine Value="19"/> <TopLine Value="14"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<UsageCount Value="20"/> <UsageCount Value="20"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="..\..\library_server_intf.pas"/> <Filename Value="../../library_server_intf.pas"/>
<UnitName Value="library_server_intf"/> <UnitName Value="library_server_intf"/>
<CursorPos X="51" Y="27"/> <CursorPos X="51" Y="27"/>
<TopLine Value="14"/> <TopLine Value="14"/>
@ -44,7 +45,7 @@
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="..\user_service_intf_imp.pas"/> <Filename Value="../user_service_intf_imp.pas"/>
<UnitName Value="user_service_intf_imp"/> <UnitName Value="user_service_intf_imp"/>
<CursorPos X="43" Y="179"/> <CursorPos X="43" Y="179"/>
<TopLine Value="157"/> <TopLine Value="157"/>
@ -53,16 +54,16 @@
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="..\..\wst_rtti_filter\rtti_filters.pas"/> <Filename Value="../../wst_rtti_filter/rtti_filters.pas"/>
<UnitName Value="rtti_filters"/> <UnitName Value="rtti_filters"/>
<CursorPos X="53" Y="43"/> <CursorPos X="53" Y="43"/>
<TopLine Value="184"/> <TopLine Value="184"/>
<EditorIndex Value="4"/> <EditorIndex Value="5"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
<Filename Value="..\user_service_intf_binder.pas"/> <Filename Value="../user_service_intf_binder.pas"/>
<UnitName Value="user_service_intf_binder"/> <UnitName Value="user_service_intf_binder"/>
<CursorPos X="54" Y="32"/> <CursorPos X="54" Y="32"/>
<TopLine Value="22"/> <TopLine Value="22"/>
@ -70,66 +71,30 @@
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit4> </Unit4>
<Unit5>
<Filename Value="../../base_service_intf.pas"/>
<UnitName Value="base_service_intf"/>
<CursorPos X="52" Y="4125"/>
<TopLine Value="4118"/>
<EditorIndex Value="4"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit5>
</Units> </Units>
<JumpHistory Count="12" HistoryIndex="11"> <JumpHistory Count="1" HistoryIndex="0">
<Position1> <Position1>
<Filename Value="lib_server.lpr"/> <Filename Value="../../base_service_intf.pas"/>
<Caret Line="5" Column="19" TopLine="1"/> <Caret Line="1" Column="1" TopLine="1"/>
</Position1> </Position1>
<Position2>
<Filename Value="lib_server.lpr"/>
<Caret Line="17" Column="1" TopLine="1"/>
</Position2>
<Position3>
<Filename Value="lib_server.lpr"/>
<Caret Line="26" Column="50" TopLine="15"/>
</Position3>
<Position4>
<Filename Value="lib_server.lpr"/>
<Caret Line="17" Column="5" TopLine="1"/>
</Position4>
<Position5>
<Filename Value="lib_server.lpr"/>
<Caret Line="20" Column="3" TopLine="7"/>
</Position5>
<Position6>
<Filename Value="..\..\library_server_intf.pas"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position6>
<Position7>
<Filename Value="..\user_service_intf_imp.pas"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position7>
<Position8>
<Filename Value="..\..\wst_rtti_filter\rtti_filters.pas"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position8>
<Position9>
<Filename Value="..\..\wst_rtti_filter\rtti_filters.pas"/>
<Caret Line="43" Column="53" TopLine="24"/>
</Position9>
<Position10>
<Filename Value="lib_server.lpr"/>
<Caret Line="20" Column="3" TopLine="7"/>
</Position10>
<Position11>
<Filename Value="lib_server.lpr"/>
<Caret Line="27" Column="24" TopLine="19"/>
</Position11>
<Position12>
<Filename Value="lib_server.lpr"/>
<Caret Line="40" Column="44" TopLine="19"/>
</Position12>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="5"/>
<PathDelim Value="\"/>
<Target> <Target>
<Filename Value="lib_server.dll"/> <Filename Value="lib_server.dll"/>
</Target> </Target>
<SearchPaths> <SearchPaths>
<OtherUnitFiles Value="..\;..\..\;..\..\wst_rtti_filter\"/> <OtherUnitFiles Value="../;../../;../../wst_rtti_filter/"/>
<UnitOutputDirectory Value="obj"/> <UnitOutputDirectory Value="obj"/>
</SearchPaths> </SearchPaths>
<CodeGeneration> <CodeGeneration>
@ -147,19 +112,19 @@
<Debugging> <Debugging>
<BreakPoints Count="4"> <BreakPoints Count="4">
<Item1> <Item1>
<Source Value="D:\lazarusClean\fpcsrc\rtl\inc\getopts.pp"/> <Source Value="D:/lazarusClean/fpcsrc/rtl/inc/getopts.pp"/>
<Line Value="230"/> <Line Value="230"/>
</Item1> </Item1>
<Item2> <Item2>
<Source Value="D:\lazarusClean\fpcsrc\rtl\inc\getopts.pp"/> <Source Value="D:/lazarusClean/fpcsrc/rtl/inc/getopts.pp"/>
<Line Value="193"/> <Line Value="193"/>
</Item2> </Item2>
<Item3> <Item3>
<Source Value="D:\lazarusClean\fpcsrc\rtl\inc\getopts.pp"/> <Source Value="D:/lazarusClean/fpcsrc/rtl/inc/getopts.pp"/>
<Line Value="198"/> <Line Value="198"/>
</Item3> </Item3>
<Item4> <Item4>
<Source Value="..\..\ws_helper\wsdl2pas_imp.pas"/> <Source Value="../../ws_helper/wsdl2pas_imp.pas"/>
<Line Value="606"/> <Line Value="606"/>
</Item4> </Item4>
</BreakPoints> </BreakPoints>

120
wst/trunk/samples/tcp_server/tcp_server.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="\"/> <PathDelim Value="/"/>
<Version Value="5"/> <Version Value="5"/>
<General> <General>
<Flags> <Flags>
@ -12,7 +12,7 @@
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/> <IconPath Value="./"/>
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="1"/> <ActiveEditorIndexAtStart Value="2"/>
</General> </General>
<VersionInfo> <VersionInfo>
<ProjectVersion Value=""/> <ProjectVersion Value=""/>
@ -34,8 +34,8 @@
<Filename Value="tcp_server.pas"/> <Filename Value="tcp_server.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="tcp_server"/> <UnitName Value="tcp_server"/>
<CursorPos X="14" Y="22"/> <CursorPos X="51" Y="21"/>
<TopLine Value="12"/> <TopLine Value="27"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<UsageCount Value="68"/> <UsageCount Value="68"/>
<Loaded Value="True"/> <Loaded Value="True"/>
@ -48,213 +48,215 @@
<UsageCount Value="65"/> <UsageCount Value="65"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="..\..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\objpas\classes\classesh.inc"/> <Filename Value="../../../../../lazarus23_213/fpc/2.1.3/source/rtl/objpas/classes/classesh.inc"/>
<CursorPos X="26" Y="686"/> <CursorPos X="26" Y="686"/>
<TopLine Value="672"/> <TopLine Value="672"/>
<UsageCount Value="9"/> <UsageCount Value="9"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="..\..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\win\sysosh.inc"/> <Filename Value="../../../../../lazarus23_213/fpc/2.1.3/source/rtl/win/sysosh.inc"/>
<CursorPos X="3" Y="25"/> <CursorPos X="3" Y="25"/>
<TopLine Value="4"/> <TopLine Value="4"/>
<UsageCount Value="6"/> <UsageCount Value="6"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
<Filename Value="..\..\..\..\..\lazarus23_213\others_package\synapse\blcksock.pas"/> <Filename Value="../../../../../lazarus23_213/others_package/synapse/blcksock.pas"/>
<UnitName Value="blcksock"/> <UnitName Value="blcksock"/>
<CursorPos X="1" Y="2407"/> <CursorPos X="1" Y="2407"/>
<TopLine Value="2395"/> <TopLine Value="2395"/>
<UsageCount Value="9"/> <UsageCount Value="9"/>
</Unit4> </Unit4>
<Unit5> <Unit5>
<Filename Value="..\..\binary_streamer.pas"/> <Filename Value="../../binary_streamer.pas"/>
<UnitName Value="binary_streamer"/> <UnitName Value="binary_streamer"/>
<CursorPos X="37" Y="13"/> <CursorPos X="37" Y="13"/>
<TopLine Value="178"/> <TopLine Value="178"/>
<UsageCount Value="8"/> <UsageCount Value="8"/>
</Unit5> </Unit5>
<Unit6> <Unit6>
<Filename Value="..\..\server_service_soap.pas"/> <Filename Value="../../server_service_soap.pas"/>
<UnitName Value="server_service_soap"/> <UnitName Value="server_service_soap"/>
<CursorPos X="35" Y="29"/> <CursorPos X="35" Y="29"/>
<TopLine Value="8"/> <TopLine Value="8"/>
<UsageCount Value="22"/> <UsageCount Value="22"/>
</Unit6> </Unit6>
<Unit7> <Unit7>
<Filename Value="..\..\server_binary_formatter.pas"/> <Filename Value="../../server_binary_formatter.pas"/>
<UnitName Value="server_binary_formatter"/> <UnitName Value="server_binary_formatter"/>
<CursorPos X="24" Y="22"/> <CursorPos X="24" Y="22"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit7> </Unit7>
<Unit8> <Unit8>
<Filename Value="..\..\metadata_service.pas"/> <Filename Value="../../metadata_service.pas"/>
<UnitName Value="metadata_service"/> <UnitName Value="metadata_service"/>
<CursorPos X="96" Y="118"/> <CursorPos X="96" Y="118"/>
<TopLine Value="103"/> <TopLine Value="103"/>
<UsageCount Value="8"/> <UsageCount Value="8"/>
</Unit8> </Unit8>
<Unit9> <Unit9>
<Filename Value="..\..\metadata_service_imp.pas"/> <Filename Value="../../metadata_service_imp.pas"/>
<UnitName Value="metadata_service_imp"/> <UnitName Value="metadata_service_imp"/>
<CursorPos X="1" Y="39"/> <CursorPos X="1" Y="39"/>
<TopLine Value="28"/> <TopLine Value="28"/>
<UsageCount Value="8"/> <UsageCount Value="8"/>
</Unit9> </Unit9>
<Unit10> <Unit10>
<Filename Value="..\..\metadata_service_binder.pas"/> <Filename Value="../../metadata_service_binder.pas"/>
<UnitName Value="metadata_service_binder"/> <UnitName Value="metadata_service_binder"/>
<CursorPos X="69" Y="11"/> <CursorPos X="69" Y="11"/>
<TopLine Value="9"/> <TopLine Value="9"/>
<UsageCount Value="8"/> <UsageCount Value="8"/>
</Unit10> </Unit10>
<Unit11> <Unit11>
<Filename Value="..\user_service_intf.pas"/> <Filename Value="../user_service_intf.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="user_service_intf"/> <UnitName Value="user_service_intf"/>
<CursorPos X="14" Y="48"/> <CursorPos X="14" Y="48"/>
<TopLine Value="55"/> <TopLine Value="55"/>
<EditorIndex Value="3"/> <EditorIndex Value="4"/>
<UsageCount Value="68"/> <UsageCount Value="68"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit11> </Unit11>
<Unit12> <Unit12>
<Filename Value="..\..\base_service_intf.pas"/> <Filename Value="../../base_service_intf.pas"/>
<UnitName Value="base_service_intf"/> <UnitName Value="base_service_intf"/>
<CursorPos X="38" Y="569"/> <CursorPos X="1" Y="4148"/>
<TopLine Value="551"/> <TopLine Value="4118"/>
<EditorIndex Value="1"/>
<UsageCount Value="24"/> <UsageCount Value="24"/>
<Bookmarks Count="1"> <Bookmarks Count="1">
<Item0 X="19" Y="545" ID="0"/> <Item0 X="19" Y="545" ID="0"/>
</Bookmarks> </Bookmarks>
<Loaded Value="True"/>
</Unit12> </Unit12>
<Unit13> <Unit13>
<Filename Value="..\..\wst_rtti_filter\std_cursors.pas"/> <Filename Value="../../wst_rtti_filter/std_cursors.pas"/>
<UnitName Value="std_cursors"/> <UnitName Value="std_cursors"/>
<CursorPos X="1" Y="48"/> <CursorPos X="1" Y="48"/>
<TopLine Value="36"/> <TopLine Value="36"/>
<EditorIndex Value="5"/> <EditorIndex Value="6"/>
<UsageCount Value="33"/> <UsageCount Value="33"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit13> </Unit13>
<Unit14> <Unit14>
<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="27"/> <CursorPos X="3" Y="27"/>
<TopLine Value="15"/> <TopLine Value="15"/>
<UsageCount Value="24"/> <UsageCount Value="24"/>
</Unit14> </Unit14>
<Unit15> <Unit15>
<Filename Value="..\user_service_intf_binder.pas"/> <Filename Value="../user_service_intf_binder.pas"/>
<UnitName Value="user_service_intf_binder"/> <UnitName Value="user_service_intf_binder"/>
<CursorPos X="30" Y="7"/> <CursorPos X="30" Y="7"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="2"/> <EditorIndex Value="3"/>
<UsageCount Value="34"/> <UsageCount Value="34"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit15> </Unit15>
<Unit16> <Unit16>
<Filename Value="..\user_service_intf.wst"/> <Filename Value="../user_service_intf.wst"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="8"/> <UsageCount Value="8"/>
<SyntaxHighlighter Value="None"/> <SyntaxHighlighter Value="None"/>
</Unit16> </Unit16>
<Unit17> <Unit17>
<Filename Value="..\..\metadata_repository.pas"/> <Filename Value="../../metadata_repository.pas"/>
<UnitName Value="metadata_repository"/> <UnitName Value="metadata_repository"/>
<CursorPos X="37" Y="571"/> <CursorPos X="37" Y="571"/>
<TopLine Value="562"/> <TopLine Value="562"/>
<UsageCount Value="8"/> <UsageCount Value="8"/>
</Unit17> </Unit17>
<Unit18> <Unit18>
<Filename Value="..\..\wst_resources_imp.pas"/> <Filename Value="../../wst_resources_imp.pas"/>
<UnitName Value="wst_resources_imp"/> <UnitName Value="wst_resources_imp"/>
<CursorPos X="15" Y="63"/> <CursorPos X="15" Y="63"/>
<TopLine Value="45"/> <TopLine Value="45"/>
<UsageCount Value="8"/> <UsageCount Value="8"/>
</Unit18> </Unit18>
<Unit19> <Unit19>
<Filename Value="..\..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\inc\except.inc"/> <Filename Value="../../../../../lazarus23_213/fpc/2.1.3/source/rtl/inc/except.inc"/>
<CursorPos X="3" Y="95"/> <CursorPos X="3" Y="95"/>
<TopLine Value="73"/> <TopLine Value="73"/>
<UsageCount Value="6"/> <UsageCount Value="6"/>
</Unit19> </Unit19>
<Unit20> <Unit20>
<Filename Value="..\..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\i386\setjump.inc"/> <Filename Value="../../../../../lazarus23_213/fpc/2.1.3/source/rtl/i386/setjump.inc"/>
<CursorPos X="1" Y="36"/> <CursorPos X="1" Y="36"/>
<TopLine Value="16"/> <TopLine Value="16"/>
<UsageCount Value="6"/> <UsageCount Value="6"/>
</Unit20> </Unit20>
<Unit21> <Unit21>
<Filename Value="..\..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\inc\objpas.inc"/> <Filename Value="../../../../../lazarus23_213/fpc/2.1.3/source/rtl/inc/objpas.inc"/>
<CursorPos X="1" Y="76"/> <CursorPos X="1" Y="76"/>
<TopLine Value="64"/> <TopLine Value="64"/>
<UsageCount Value="6"/> <UsageCount Value="6"/>
</Unit21> </Unit21>
<Unit22> <Unit22>
<Filename Value="..\..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\objpas\classes\collect.inc"/> <Filename Value="../../../../../lazarus23_213/fpc/2.1.3/source/rtl/objpas/classes/collect.inc"/>
<CursorPos X="1" Y="264"/> <CursorPos X="1" Y="264"/>
<TopLine Value="252"/> <TopLine Value="252"/>
<UsageCount Value="6"/> <UsageCount Value="6"/>
</Unit22> </Unit22>
<Unit23> <Unit23>
<Filename Value="..\..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\objpas\classes\lists.inc"/> <Filename Value="../../../../../lazarus23_213/fpc/2.1.3/source/rtl/objpas/classes/lists.inc"/>
<CursorPos X="1" Y="381"/> <CursorPos X="1" Y="381"/>
<TopLine Value="369"/> <TopLine Value="369"/>
<UsageCount Value="6"/> <UsageCount Value="6"/>
</Unit23> </Unit23>
<Unit24> <Unit24>
<Filename Value="..\..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\inc\system.inc"/> <Filename Value="../../../../../lazarus23_213/fpc/2.1.3/source/rtl/inc/system.inc"/>
<CursorPos X="1" Y="674"/> <CursorPos X="1" Y="674"/>
<TopLine Value="662"/> <TopLine Value="662"/>
<UsageCount Value="6"/> <UsageCount Value="6"/>
</Unit24> </Unit24>
<Unit25> <Unit25>
<Filename Value="..\..\server_service_intf.pas"/> <Filename Value="../../server_service_intf.pas"/>
<UnitName Value="server_service_intf"/> <UnitName Value="server_service_intf"/>
<CursorPos X="16" Y="346"/> <CursorPos X="16" Y="346"/>
<TopLine Value="323"/> <TopLine Value="323"/>
<UsageCount Value="8"/> <UsageCount Value="8"/>
</Unit25> </Unit25>
<Unit26> <Unit26>
<Filename Value="..\..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\i386\i386.inc"/> <Filename Value="../../../../../lazarus23_213/fpc/2.1.3/source/rtl/i386/i386.inc"/>
<CursorPos X="1" Y="1125"/> <CursorPos X="1" Y="1125"/>
<TopLine Value="1113"/> <TopLine Value="1113"/>
<UsageCount Value="6"/> <UsageCount Value="6"/>
</Unit26> </Unit26>
<Unit27> <Unit27>
<Filename Value="..\user_service_intf_imp.pas"/> <Filename Value="../user_service_intf_imp.pas"/>
<UnitName Value="user_service_intf_imp"/> <UnitName Value="user_service_intf_imp"/>
<CursorPos X="42" Y="16"/> <CursorPos X="25" Y="13"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="4"/> <EditorIndex Value="5"/>
<UsageCount Value="34"/> <UsageCount Value="34"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit27> </Unit27>
<Unit28> <Unit28>
<Filename Value="..\..\service_intf.pas"/> <Filename Value="../../service_intf.pas"/>
<UnitName Value="service_intf"/> <UnitName Value="service_intf"/>
<CursorPos X="15" Y="23"/> <CursorPos X="15" Y="23"/>
<TopLine Value="19"/> <TopLine Value="19"/>
<UsageCount Value="7"/> <UsageCount Value="7"/>
</Unit28> </Unit28>
<Unit29> <Unit29>
<Filename Value="..\..\base_soap_formatter.pas"/> <Filename Value="../../base_soap_formatter.pas"/>
<UnitName Value="base_soap_formatter"/> <UnitName Value="base_soap_formatter"/>
<CursorPos X="65" Y="313"/> <CursorPos X="65" Y="313"/>
<TopLine Value="304"/> <TopLine Value="304"/>
<UsageCount Value="9"/> <UsageCount Value="9"/>
</Unit29> </Unit29>
<Unit30> <Unit30>
<Filename Value="..\..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\objpas\typinfo.pp"/> <Filename Value="../../../../../lazarus23_213/fpc/2.1.3/source/rtl/objpas/typinfo.pp"/>
<UnitName Value="typinfo"/> <UnitName Value="typinfo"/>
<CursorPos X="11" Y="247"/> <CursorPos X="11" Y="247"/>
<TopLine Value="226"/> <TopLine Value="226"/>
<UsageCount Value="8"/> <UsageCount Value="8"/>
</Unit30> </Unit30>
<Unit31> <Unit31>
<Filename Value="..\..\base_binary_formatter.pas"/> <Filename Value="../../base_binary_formatter.pas"/>
<UnitName Value="base_binary_formatter"/> <UnitName Value="base_binary_formatter"/>
<CursorPos X="3" Y="1063"/> <CursorPos X="3" Y="1063"/>
<TopLine Value="1055"/> <TopLine Value="1055"/>
@ -269,50 +271,44 @@
<UsageCount Value="37"/> <UsageCount Value="37"/>
</Unit32> </Unit32>
<Unit33> <Unit33>
<Filename Value="..\..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\objpas\classes\persist.inc"/> <Filename Value="../../../../../lazarus23_213/fpc/2.1.3/source/rtl/objpas/classes/persist.inc"/>
<CursorPos X="3" Y="36"/> <CursorPos X="3" Y="36"/>
<TopLine Value="32"/> <TopLine Value="32"/>
<UsageCount Value="9"/> <UsageCount Value="9"/>
</Unit33> </Unit33>
<Unit34> <Unit34>
<Filename Value="..\..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\objpas\classes\streams.inc"/> <Filename Value="../../../../../lazarus23_213/fpc/2.1.3/source/rtl/objpas/classes/streams.inc"/>
<CursorPos X="43" Y="511"/> <CursorPos X="43" Y="511"/>
<TopLine Value="506"/> <TopLine Value="506"/>
<UsageCount Value="9"/> <UsageCount Value="9"/>
</Unit34> </Unit34>
<Unit35> <Unit35>
<Filename Value="..\..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\win\sysutils.pp"/> <Filename Value="../../../../../lazarus23_213/fpc/2.1.3/source/rtl/win/sysutils.pp"/>
<UnitName Value="sysutils"/> <UnitName Value="sysutils"/>
<CursorPos X="1" Y="326"/> <CursorPos X="1" Y="326"/>
<TopLine Value="314"/> <TopLine Value="314"/>
<UsageCount Value="9"/> <UsageCount Value="9"/>
</Unit35> </Unit35>
<Unit36> <Unit36>
<Filename Value="..\..\synapse_tcp_server.pas"/> <Filename Value="../../synapse_tcp_server.pas"/>
<UnitName Value="synapse_tcp_server"/> <UnitName Value="synapse_tcp_server"/>
<CursorPos X="83" Y="24"/> <CursorPos X="34" Y="240"/>
<TopLine Value="10"/> <TopLine Value="231"/>
<EditorIndex Value="1"/> <EditorIndex Value="2"/>
<UsageCount Value="12"/> <UsageCount Value="12"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit36> </Unit36>
</Units> </Units>
<JumpHistory Count="1" HistoryIndex="0"> <JumpHistory Count="0" HistoryIndex="-1"/>
<Position1>
<Filename Value="..\..\synapse_tcp_server.pas"/>
<Caret Line="174" Column="57" TopLine="176"/>
</Position1>
</JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="5"/>
<PathDelim Value="\"/>
<Target> <Target>
<Filename Value="tcp_server.exe"/> <Filename Value="tcp_server.exe"/>
</Target> </Target>
<SearchPaths> <SearchPaths>
<IncludeFiles Value="C:\Programmes\lazarus\wst\"/> <IncludeFiles Value="../../"/>
<OtherUnitFiles Value="..\;..\..\;..\..\wst\wst_rtti_filter\;$(LazarusDir)\others_package\synapse\"/> <OtherUnitFiles Value="../;../../;../../wst_rtti_filter/;$(LazarusDir)/others_package/synapse/"/>
<UnitOutputDirectory Value="obj"/> <UnitOutputDirectory Value="obj"/>
</SearchPaths> </SearchPaths>
<CodeGeneration> <CodeGeneration>
@ -325,23 +321,23 @@
<Debugging> <Debugging>
<BreakPoints Count="5"> <BreakPoints Count="5">
<Item1> <Item1>
<Source Value="D:\lazarusClean\fpcsrc\rtl\inc\getopts.pp"/> <Source Value="D:/lazarusClean/fpcsrc/rtl/inc/getopts.pp"/>
<Line Value="230"/> <Line Value="230"/>
</Item1> </Item1>
<Item2> <Item2>
<Source Value="D:\lazarusClean\fpcsrc\rtl\inc\getopts.pp"/> <Source Value="D:/lazarusClean/fpcsrc/rtl/inc/getopts.pp"/>
<Line Value="193"/> <Line Value="193"/>
</Item2> </Item2>
<Item3> <Item3>
<Source Value="D:\lazarusClean\fpcsrc\rtl\inc\getopts.pp"/> <Source Value="D:/lazarusClean/fpcsrc/rtl/inc/getopts.pp"/>
<Line Value="198"/> <Line Value="198"/>
</Item3> </Item3>
<Item4> <Item4>
<Source Value="..\..\ws_helper\wsdl2pas_imp.pas"/> <Source Value="../../ws_helper/wsdl2pas_imp.pas"/>
<Line Value="606"/> <Line Value="606"/>
</Item4> </Item4>
<Item5> <Item5>
<Source Value="..\user_service_intf_imp.pas"/> <Source Value="../user_service_intf_imp.pas"/>
<Line Value="176"/> <Line Value="176"/>
</Item5> </Item5>
</BreakPoints> </BreakPoints>

8
wst/trunk/samples/tcp_server/tcp_server.pas
View File

@ -15,6 +15,14 @@ program tcp_server;
{$INCLUDE wst.inc} {$INCLUDE wst.inc}
uses uses
{$IFDEF FPC}
{$IFDEF UNIX}
{$DEFINE UseCThreads}
{$ENDIF}
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
{$ENDIF}
Classes, SysUtils, Classes, SysUtils,
base_service_intf, server_service_soap, base_service_intf, server_service_soap,
base_binary_formatter, server_binary_formatter, base_binary_formatter, server_binary_formatter,

248
wst/trunk/samples/user_client_console/user_client_console.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="\"/> <PathDelim Value="/"/>
<Version Value="5"/> <Version Value="5"/>
<General> <General>
<Flags> <Flags>
@ -12,7 +12,7 @@
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/> <IconPath Value="./"/>
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="7"/> <ActiveEditorIndexAtStart Value="1"/>
</General> </General>
<VersionInfo> <VersionInfo>
<ProjectVersion Value=""/> <ProjectVersion Value=""/>
@ -34,283 +34,157 @@
<Filename Value="user_client_console.pas"/> <Filename Value="user_client_console.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="user_client_console"/> <UnitName Value="user_client_console"/>
<CursorPos X="22" Y="7"/> <CursorPos X="12" Y="14"/>
<TopLine Value="4"/> <TopLine Value="16"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<UsageCount Value="34"/> <UsageCount Value="34"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="..\user_service_intf_proxy.pas"/> <Filename Value="../user_service_intf_proxy.pas"/>
<UnitName Value="user_service_intf_proxy"/> <UnitName Value="user_service_intf_proxy"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="5"/>
<UsageCount Value="17"/>
<Loaded Value="True"/>
</Unit1>
<Unit2>
<Filename Value="../../synapse_tcp_protocol.pas"/>
<UnitName Value="synapse_tcp_protocol"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<EditorIndex Value="8"/>
<UsageCount Value="17"/>
<Loaded Value="True"/>
</Unit2>
<Unit3>
<Filename Value="../../service_intf.pas"/>
<UnitName Value="service_intf"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<EditorIndex Value="4"/>
<UsageCount Value="17"/>
<Loaded Value="True"/>
</Unit3>
<Unit4>
<Filename Value="../user_service_intf.pas"/>
<UnitName Value="user_service_intf"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<EditorIndex Value="7"/> <EditorIndex Value="7"/>
<UsageCount Value="17"/> <UsageCount Value="17"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit1>
<Unit2>
<Filename Value="..\..\synapse_tcp_protocol.pas"/>
<UnitName Value="synapse_tcp_protocol"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<EditorIndex Value="10"/>
<UsageCount Value="17"/>
<Loaded Value="True"/>
</Unit2>
<Unit3>
<Filename Value="..\..\service_intf.pas"/>
<UnitName Value="service_intf"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<EditorIndex Value="6"/>
<UsageCount Value="17"/>
<Loaded Value="True"/>
</Unit3>
<Unit4>
<Filename Value="..\user_service_intf.pas"/>
<UnitName Value="user_service_intf"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<EditorIndex Value="9"/>
<UsageCount Value="17"/>
<Loaded Value="True"/>
</Unit4> </Unit4>
<Unit5> <Unit5>
<Filename Value="..\..\..\..\..\lazarus23_213\others_package\synapse\blcksock.pas"/> <Filename Value="../../../../../lazarus23_213/others_package/synapse/blcksock.pas"/>
<UnitName Value="blcksock"/> <UnitName Value="blcksock"/>
<CursorPos X="60" Y="2413"/> <CursorPos X="60" Y="2413"/>
<TopLine Value="2393"/> <TopLine Value="2393"/>
<UsageCount Value="9"/> <UsageCount Value="9"/>
</Unit5> </Unit5>
<Unit6> <Unit6>
<Filename Value="..\..\base_service_intf.pas"/> <Filename Value="../../base_service_intf.pas"/>
<UnitName Value="base_service_intf"/> <UnitName Value="base_service_intf"/>
<CursorPos X="19" Y="20"/> <CursorPos X="52" Y="4135"/>
<TopLine Value="1"/> <TopLine Value="4000"/>
<EditorIndex Value="4"/> <EditorIndex Value="3"/>
<UsageCount Value="17"/> <UsageCount Value="17"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit6> </Unit6>
<Unit7> <Unit7>
<Filename Value="..\..\library_protocol.pas"/> <Filename Value="../../library_protocol.pas"/>
<UnitName Value="library_protocol"/> <UnitName Value="library_protocol"/>
<CursorPos X="1" Y="1"/> <CursorPos X="18" Y="5"/>
<TopLine Value="1"/> <TopLine Value="26"/>
<EditorIndex Value="2"/> <EditorIndex Value="1"/>
<UsageCount Value="17"/> <UsageCount Value="17"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit7> </Unit7>
<Unit8> <Unit8>
<Filename Value="..\..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\objpas\sysutils\finah.inc"/> <Filename Value="../../../../../lazarus23_213/fpc/2.1.3/source/rtl/objpas/sysutils/finah.inc"/>
<CursorPos X="10" Y="33"/> <CursorPos X="10" Y="33"/>
<TopLine Value="17"/> <TopLine Value="17"/>
<UsageCount Value="9"/> <UsageCount Value="9"/>
</Unit8> </Unit8>
<Unit9> <Unit9>
<Filename Value="..\..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\objpas\sysutils\fina.inc"/> <Filename Value="../../../../../lazarus23_213/fpc/2.1.3/source/rtl/objpas/sysutils/fina.inc"/>
<CursorPos X="13" Y="112"/> <CursorPos X="13" Y="112"/>
<TopLine Value="105"/> <TopLine Value="105"/>
<UsageCount Value="9"/> <UsageCount Value="9"/>
</Unit9> </Unit9>
<Unit10> <Unit10>
<Filename Value="..\..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\objpas\sysutils\sysutilh.inc"/> <Filename Value="../../../../../lazarus23_213/fpc/2.1.3/source/rtl/objpas/sysutils/sysutilh.inc"/>
<CursorPos X="33" Y="202"/> <CursorPos X="33" Y="202"/>
<TopLine Value="188"/> <TopLine Value="188"/>
<UsageCount Value="9"/> <UsageCount Value="9"/>
</Unit10> </Unit10>
<Unit11> <Unit11>
<Filename Value="..\..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\win32\system.pp"/> <Filename Value="../../../../../lazarus23_213/fpc/2.1.3/source/rtl/win32/system.pp"/>
<UnitName Value="System"/> <UnitName Value="System"/>
<CursorPos X="20" Y="35"/> <CursorPos X="20" Y="35"/>
<TopLine Value="21"/> <TopLine Value="21"/>
<UsageCount Value="9"/> <UsageCount Value="9"/>
</Unit11> </Unit11>
<Unit12> <Unit12>
<Filename Value="..\..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\inc\fexpand.inc"/> <Filename Value="../../../../../lazarus23_213/fpc/2.1.3/source/rtl/inc/fexpand.inc"/>
<CursorPos X="10" Y="86"/> <CursorPos X="10" Y="86"/>
<TopLine Value="226"/> <TopLine Value="226"/>
<UsageCount Value="9"/> <UsageCount Value="9"/>
</Unit12> </Unit12>
<Unit13> <Unit13>
<Filename Value="..\..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\objpas\sysutils\sysstrh.inc"/> <Filename Value="../../../../../lazarus23_213/fpc/2.1.3/source/rtl/objpas/sysutils/sysstrh.inc"/>
<CursorPos X="54" Y="33"/> <CursorPos X="54" Y="33"/>
<TopLine Value="19"/> <TopLine Value="19"/>
<UsageCount Value="9"/> <UsageCount Value="9"/>
</Unit13> </Unit13>
<Unit14> <Unit14>
<Filename Value="..\..\synapse_http_protocol.pas"/> <Filename Value="../../synapse_http_protocol.pas"/>
<UnitName Value="synapse_http_protocol"/> <UnitName Value="synapse_http_protocol"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="22"/>
<EditorIndex Value="1"/>
<UsageCount Value="17"/> <UsageCount Value="17"/>
<Loaded Value="True"/>
</Unit14> </Unit14>
<Unit15> <Unit15>
<Filename Value="..\..\metadata_repository.pas"/> <Filename Value="../../metadata_repository.pas"/>
<UnitName Value="metadata_repository"/> <UnitName Value="metadata_repository"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="8"/> <EditorIndex Value="6"/>
<UsageCount Value="17"/> <UsageCount Value="17"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit15> </Unit15>
<Unit16> <Unit16>
<Filename Value="..\..\wst.inc"/> <Filename Value="../../wst.inc"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="5"/>
<UsageCount Value="12"/> <UsageCount Value="12"/>
<Loaded Value="True"/>
</Unit16> </Unit16>
<Unit17> <Unit17>
<Filename Value="..\..\library_imp_utils.pas"/> <Filename Value="../../library_imp_utils.pas"/>
<UnitName Value="library_imp_utils"/> <UnitName Value="library_imp_utils"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="3"/> <EditorIndex Value="2"/>
<UsageCount Value="12"/> <UsageCount Value="12"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit17> </Unit17>
<Unit18> <Unit18>
<Filename Value="..\..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\win\dynlibs.inc"/> <Filename Value="../../../../../lazarus23_213/fpc/2.1.3/source/rtl/win/dynlibs.inc"/>
<CursorPos X="17" Y="27"/> <CursorPos X="17" Y="27"/>
<TopLine Value="13"/> <TopLine Value="13"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit18> </Unit18>
</Units> </Units>
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="0" HistoryIndex="-1"/>
<Position1>
<Filename Value="..\..\service_intf.pas"/>
<Caret Line="104" Column="64" TopLine="90"/>
</Position1>
<Position2>
<Filename Value="..\..\service_intf.pas"/>
<Caret Line="262" Column="28" TopLine="248"/>
</Position2>
<Position3>
<Filename Value="..\..\base_service_intf.pas"/>
<Caret Line="509" Column="3" TopLine="498"/>
</Position3>
<Position4>
<Filename Value="..\..\base_service_intf.pas"/>
<Caret Line="353" Column="63" TopLine="339"/>
</Position4>
<Position5>
<Filename Value="..\..\base_service_intf.pas"/>
<Caret Line="332" Column="37" TopLine="323"/>
</Position5>
<Position6>
<Filename Value="..\..\base_service_intf.pas"/>
<Caret Line="353" Column="75" TopLine="339"/>
</Position6>
<Position7>
<Filename Value="..\..\base_service_intf.pas"/>
<Caret Line="483" Column="43" TopLine="468"/>
</Position7>
<Position8>
<Filename Value="..\..\base_service_intf.pas"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position8>
<Position9>
<Filename Value="..\..\base_service_intf.pas"/>
<Caret Line="447" Column="55" TopLine="431"/>
</Position9>
<Position10>
<Filename Value="..\..\base_service_intf.pas"/>
<Caret Line="332" Column="1" TopLine="324"/>
</Position10>
<Position11>
<Filename Value="..\..\base_service_intf.pas"/>
<Caret Line="56" Column="46" TopLine="28"/>
</Position11>
<Position12>
<Filename Value="..\..\base_service_intf.pas"/>
<Caret Line="399" Column="76" TopLine="385"/>
</Position12>
<Position13>
<Filename Value="..\..\base_service_intf.pas"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position13>
<Position14>
<Filename Value="..\..\base_service_intf.pas"/>
<Caret Line="330" Column="39" TopLine="316"/>
</Position14>
<Position15>
<Filename Value="..\..\base_service_intf.pas"/>
<Caret Line="332" Column="37" TopLine="318"/>
</Position15>
<Position16>
<Filename Value="..\..\base_service_intf.pas"/>
<Caret Line="353" Column="75" TopLine="339"/>
</Position16>
<Position17>
<Filename Value="..\..\base_service_intf.pas"/>
<Caret Line="365" Column="75" TopLine="351"/>
</Position17>
<Position18>
<Filename Value="..\..\base_service_intf.pas"/>
<Caret Line="545" Column="43" TopLine="539"/>
</Position18>
<Position19>
<Filename Value="..\..\base_service_intf.pas"/>
<Caret Line="527" Column="22" TopLine="519"/>
</Position19>
<Position20>
<Filename Value="..\..\base_service_intf.pas"/>
<Caret Line="1846" Column="14" TopLine="1831"/>
</Position20>
<Position21>
<Filename Value="..\..\base_service_intf.pas"/>
<Caret Line="531" Column="26" TopLine="516"/>
</Position21>
<Position22>
<Filename Value="..\..\wst.inc"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position22>
<Position23>
<Filename Value="user_client_console.pas"/>
<Caret Line="119" Column="26" TopLine="106"/>
</Position23>
<Position24>
<Filename Value="user_client_console.pas"/>
<Caret Line="7" Column="23" TopLine="4"/>
</Position24>
<Position25>
<Filename Value="..\..\library_protocol.pas"/>
<Caret Line="24" Column="16" TopLine="13"/>
</Position25>
<Position26>
<Filename Value="..\..\library_imp_utils.pas"/>
<Caret Line="32" Column="21" TopLine="28"/>
</Position26>
<Position27>
<Filename Value="..\..\library_imp_utils.pas"/>
<Caret Line="74" Column="26" TopLine="61"/>
</Position27>
<Position28>
<Filename Value="..\..\library_imp_utils.pas"/>
<Caret Line="75" Column="26" TopLine="60"/>
</Position28>
<Position29>
<Filename Value="user_client_console.pas"/>
<Caret Line="10" Column="14" TopLine="4"/>
</Position29>
<Position30>
<Filename Value="user_client_console.pas"/>
<Caret Line="7" Column="22" TopLine="4"/>
</Position30>
</JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="5"/>
<PathDelim Value="\"/>
<Target> <Target>
<Filename Value="user_client_console.exe"/> <Filename Value="user_client_console.exe"/>
</Target> </Target>
<SearchPaths> <SearchPaths>
<OtherUnitFiles Value="..\;..\..\;$(LazarusDir)\others_package\synapse\"/> <OtherUnitFiles Value="../;../../;$(LazarusDir)/others_package/synapse/"/>
<UnitOutputDirectory Value="obj"/> <UnitOutputDirectory Value="obj"/>
</SearchPaths> </SearchPaths>
<CodeGeneration> <CodeGeneration>
@ -323,19 +197,19 @@
<Debugging> <Debugging>
<BreakPoints Count="4"> <BreakPoints Count="4">
<Item1> <Item1>
<Source Value="D:\lazarusClean\fpcsrc\rtl\inc\getopts.pp"/> <Source Value="D:/lazarusClean/fpcsrc/rtl/inc/getopts.pp"/>
<Line Value="230"/> <Line Value="230"/>
</Item1> </Item1>
<Item2> <Item2>
<Source Value="D:\lazarusClean\fpcsrc\rtl\inc\getopts.pp"/> <Source Value="D:/lazarusClean/fpcsrc/rtl/inc/getopts.pp"/>
<Line Value="193"/> <Line Value="193"/>
</Item2> </Item2>
<Item3> <Item3>
<Source Value="D:\lazarusClean\fpcsrc\rtl\inc\getopts.pp"/> <Source Value="D:/lazarusClean/fpcsrc/rtl/inc/getopts.pp"/>
<Line Value="198"/> <Line Value="198"/>
</Item3> </Item3>
<Item4> <Item4>
<Source Value="..\..\ws_helper\wsdl2pas_imp.pas"/> <Source Value="../../ws_helper/wsdl2pas_imp.pas"/>
<Line Value="606"/> <Line Value="606"/>
</Item4> </Item4>
</BreakPoints> </BreakPoints>

2
wst/trunk/samples/user_service_intf_proxy.pas
View File

@ -2,7 +2,7 @@
This unit has been produced by ws_helper. This unit has been produced by ws_helper.
Input unit name : "user_service_intf". Input unit name : "user_service_intf".
This unit name : "user_service_intf_proxy". This unit name : "user_service_intf_proxy".
Date : "05/05/2007 19:12". Date : "6-5-07 16:06:17".
} }
Unit user_service_intf_proxy; Unit user_service_intf_proxy;

2
wst/trunk/synapse_tcp_server.pas
View File

@ -237,7 +237,7 @@ begin
FSocketObject.RaiseExcept := True; FSocketObject.RaiseExcept := True;
FSocketObject.CreateSocket(); FSocketObject.CreateSocket();
FSocketObject.SetLinger(True,10); FSocketObject.SetLinger(True,10);
FSocketObject.Bind('0.0.0.0',sSERVER_PORT); FSocketObject.Bind('127.0.0.1',sSERVER_PORT);
FSocketObject.Listen(); FSocketObject.Listen();
while not Terminated do begin while not Terminated do begin
if FSocketObject.CanRead(DefaultTimeOut) then begin if FSocketObject.CanRead(DefaultTimeOut) then begin

349
wst/trunk/ws_helper/ws_helper.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="\"/> <PathDelim Value="/"/>
<Version Value="5"/> <Version Value="5"/>
<General> <General>
<Flags> <Flags>
@ -12,11 +12,10 @@
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/> <IconPath Value="./"/>
<TargetFileExt Value=""/> <TargetFileExt Value=""/>
<ActiveEditorIndexAtStart Value="1"/> <ActiveEditorIndexAtStart Value="0"/>
</General> </General>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
<DestinationDirectory Value="$(TestDir)\publishedproject\"/>
<IgnoreBinaries Value="False"/> <IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/> <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/> <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
@ -24,8 +23,8 @@
<RunParams> <RunParams>
<local> <local>
<FormatVersion Value="1"/> <FormatVersion Value="1"/>
<CommandLineParams Value="-p -a&quot;C:\Programmes\lazarus\wst\samples&quot; &quot;C:\Programmes\lazarus\wst\samples\user_service_intf.pas&quot;"/> <CommandLineParams Value="-uA -p -a&quot;/home/inoussa/programmes/wst/trunk/samples/amazon/&quot; &quot;/home/inoussa/programmes/wst/trunk/samples/amazon/AWSECommerceService.wsdl&quot;"/>
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/> <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local> </local>
</RunParams> </RunParams>
<RequiredPackages Count="1"> <RequiredPackages Count="1">
@ -33,14 +32,14 @@
<PackageName Value="FCL"/> <PackageName Value="FCL"/>
</Item1> </Item1>
</RequiredPackages> </RequiredPackages>
<Units Count="36"> <Units Count="43">
<Unit0> <Unit0>
<Filename Value="ws_helper.pas"/> <Filename Value="ws_helper.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="ws_helper"/> <UnitName Value="ws_helper"/>
<CursorPos X="39" Y="28"/> <CursorPos X="1" Y="119"/>
<TopLine Value="10"/> <TopLine Value="112"/>
<EditorIndex Value="9"/> <EditorIndex Value="0"/>
<UsageCount Value="200"/> <UsageCount Value="200"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit0> </Unit0>
@ -50,37 +49,31 @@
<UnitName Value="ws_parser"/> <UnitName Value="ws_parser"/>
<CursorPos X="15" Y="457"/> <CursorPos X="15" Y="457"/>
<TopLine Value="444"/> <TopLine Value="444"/>
<EditorIndex Value="8"/>
<UsageCount Value="200"/> <UsageCount Value="200"/>
<Loaded Value="True"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="generator.pas"/> <Filename Value="generator.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="generator"/> <UnitName Value="generator"/>
<CursorPos X="15" Y="82"/> <CursorPos X="23" Y="177"/>
<TopLine Value="155"/> <TopLine Value="107"/>
<EditorIndex Value="0"/>
<UsageCount Value="200"/> <UsageCount Value="200"/>
<Bookmarks Count="3"> <Bookmarks Count="3">
<Item0 X="69" Y="889" ID="1"/> <Item0 X="69" Y="889" ID="1"/>
<Item1 X="17" Y="221" ID="2"/> <Item1 X="17" Y="221" ID="2"/>
<Item2 X="23" Y="1900" ID="4"/> <Item2 X="23" Y="1900" ID="4"/>
</Bookmarks> </Bookmarks>
<Loaded Value="True"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="parserdefs.pas"/> <Filename Value="parserdefs.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="parserdefs"/> <UnitName Value="parserdefs"/>
<CursorPos X="58" Y="452"/> <CursorPos X="31" Y="20"/>
<TopLine Value="431"/> <TopLine Value="8"/>
<EditorIndex Value="6"/>
<UsageCount Value="200"/> <UsageCount Value="200"/>
<Bookmarks Count="1"> <Bookmarks Count="1">
<Item0 X="69" Y="1245" ID="0"/> <Item0 X="69" Y="1245" ID="0"/>
</Bookmarks> </Bookmarks>
<Loaded Value="True"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
<Filename Value="parserutils.pas"/> <Filename Value="parserutils.pas"/>
@ -88,37 +81,35 @@
<UnitName Value="parserutils"/> <UnitName Value="parserutils"/>
<CursorPos X="1" Y="40"/> <CursorPos X="1" Y="40"/>
<TopLine Value="19"/> <TopLine Value="19"/>
<EditorIndex Value="7"/>
<UsageCount Value="200"/> <UsageCount Value="200"/>
<Loaded Value="True"/>
</Unit4> </Unit4>
<Unit5> <Unit5>
<Filename Value="ws_helper.lpi"/> <Filename Value="ws_helper.lpi"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="3"/> <UsageCount Value="2"/>
<SyntaxHighlighter Value="None"/> <SyntaxHighlighter Value="None"/>
</Unit5> </Unit5>
<Unit6> <Unit6>
<Filename Value="usr\share\fpcsrc\rtl\unix\classes.pp"/> <Filename Value="usr/share/fpcsrc/rtl/unix/classes.pp"/>
<UnitName Value="Classes"/> <UnitName Value="Classes"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="3"/> <UsageCount Value="2"/>
</Unit6> </Unit6>
<Unit7> <Unit7>
<Filename Value="usr\share\fpcsrc\rtl\objpas\strutils.pp"/> <Filename Value="usr/share/fpcsrc/rtl/objpas/strutils.pp"/>
<UnitName Value="strutils"/> <UnitName Value="strutils"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="3"/> <UsageCount Value="2"/>
</Unit7> </Unit7>
<Unit8> <Unit8>
<Filename Value="usr\share\fpcsrc\rtl\unix\sysutils.pp"/> <Filename Value="usr/share/fpcsrc/rtl/unix/sysutils.pp"/>
<UnitName Value="sysutils"/> <UnitName Value="sysutils"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="3"/> <UsageCount Value="2"/>
</Unit8> </Unit8>
<Unit9> <Unit9>
<Filename Value="source_utils.pas"/> <Filename Value="source_utils.pas"/>
@ -129,23 +120,23 @@
<UsageCount Value="201"/> <UsageCount Value="201"/>
</Unit9> </Unit9>
<Unit10> <Unit10>
<Filename Value="D:\lazarusClean\fpcsrc\rtl\objpas\strutils.pp"/> <Filename Value="D:/lazarusClean/fpcsrc/rtl/objpas/strutils.pp"/>
<UnitName Value="strutils"/> <UnitName Value="strutils"/>
<CursorPos X="23" Y="246"/> <CursorPos X="23" Y="246"/>
<TopLine Value="246"/> <TopLine Value="246"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit10> </Unit10>
<Unit11> <Unit11>
<Filename Value="D:\lazarusClean\fpcsrc\rtl\objpas\sysutils\sysstrh.inc"/> <Filename Value="D:/lazarusClean/fpcsrc/rtl/objpas/sysutils/sysstrh.inc"/>
<CursorPos X="10" Y="74"/> <CursorPos X="10" Y="74"/>
<TopLine Value="70"/> <TopLine Value="70"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit11> </Unit11>
<Unit12> <Unit12>
<Filename Value="D:\lazarusClean\fpcsrc\rtl\objpas\sysutils\sysstr.inc"/> <Filename Value="D:/lazarusClean/fpcsrc/rtl/objpas/sysutils/sysstr.inc"/>
<CursorPos X="3" Y="185"/> <CursorPos X="3" Y="185"/>
<TopLine Value="180"/> <TopLine Value="180"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit12> </Unit12>
<Unit13> <Unit13>
<Filename Value="command_line_parser.pas"/> <Filename Value="command_line_parser.pas"/>
@ -159,14 +150,12 @@
<Filename Value="metadata_generator.pas"/> <Filename Value="metadata_generator.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="metadata_generator"/> <UnitName Value="metadata_generator"/>
<CursorPos X="51" Y="97"/> <CursorPos X="15" Y="82"/>
<TopLine Value="64"/> <TopLine Value="64"/>
<EditorIndex Value="10"/>
<UsageCount Value="200"/> <UsageCount Value="200"/>
<Loaded Value="True"/>
</Unit14> </Unit14>
<Unit15> <Unit15>
<Filename Value="..\binary_streamer.pas"/> <Filename Value="../binary_streamer.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="binary_streamer"/> <UnitName Value="binary_streamer"/>
<CursorPos X="32" Y="344"/> <CursorPos X="32" Y="344"/>
@ -182,14 +171,14 @@
<UsageCount Value="200"/> <UsageCount Value="200"/>
</Unit16> </Unit16>
<Unit17> <Unit17>
<Filename Value="..\..\..\..\lazarusClean\fpc\2.0.4\source\rtl\win32\classes.pp"/> <Filename Value="../../../../lazarusClean/fpc/2.0.4/source/rtl/win32/classes.pp"/>
<UnitName Value="Classes"/> <UnitName Value="Classes"/>
<CursorPos X="1" Y="47"/> <CursorPos X="1" Y="47"/>
<TopLine Value="5"/> <TopLine Value="5"/>
<UsageCount Value="5"/> <UsageCount Value="4"/>
</Unit17> </Unit17>
<Unit18> <Unit18>
<Filename Value="..\wsdl_to_pascal\wsdl2pas_imp.pas"/> <Filename Value="../wsdl_to_pascal/wsdl2pas_imp.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="wsdl2pas_imp"/> <UnitName Value="wsdl2pas_imp"/>
<CursorPos X="29" Y="1641"/> <CursorPos X="29" Y="1641"/>
@ -197,51 +186,51 @@
<UsageCount Value="201"/> <UsageCount Value="201"/>
</Unit18> </Unit18>
<Unit19> <Unit19>
<Filename Value="..\wst_rtti_filter\rtti_filters.pas"/> <Filename Value="../wst_rtti_filter/rtti_filters.pas"/>
<UnitName Value="rtti_filters"/> <UnitName Value="rtti_filters"/>
<CursorPos X="1" Y="564"/> <CursorPos X="1" Y="648"/>
<TopLine Value="543"/> <TopLine Value="629"/>
<EditorIndex Value="3"/> <EditorIndex Value="4"/>
<UsageCount Value="79"/> <UsageCount Value="80"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit19> </Unit19>
<Unit20> <Unit20>
<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="60" Y="14"/> <CursorPos X="1" Y="196"/>
<TopLine Value="1"/> <TopLine Value="183"/>
<EditorIndex Value="4"/> <EditorIndex Value="3"/>
<UsageCount Value="103"/> <UsageCount Value="103"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit20> </Unit20>
<Unit21> <Unit21>
<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="1" Y="113"/> <CursorPos X="1" Y="106"/>
<TopLine Value="97"/> <TopLine Value="93"/>
<EditorIndex Value="5"/> <EditorIndex Value="2"/>
<UsageCount Value="105"/> <UsageCount Value="105"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit21> </Unit21>
<Unit22> <Unit22>
<Filename Value="..\..\..\..\lazarusClean\fpc\2.0.4\source\rtl\objpas\sysutils\sysstrh.inc"/> <Filename Value="../../../../lazarusClean/fpc/2.0.4/source/rtl/objpas/sysutils/sysstrh.inc"/>
<CursorPos X="10" Y="100"/> <CursorPos X="10" Y="100"/>
<TopLine Value="86"/> <TopLine Value="86"/>
<UsageCount Value="19"/> <UsageCount Value="18"/>
</Unit22> </Unit22>
<Unit23> <Unit23>
<Filename Value="..\..\..\..\lazarusClean\fpc\2.0.4\source\rtl\objpas\classes\classesh.inc"/> <Filename Value="../../../../lazarusClean/fpc/2.0.4/source/rtl/objpas/classes/classesh.inc"/>
<CursorPos X="14" Y="151"/> <CursorPos X="14" Y="151"/>
<TopLine Value="137"/> <TopLine Value="137"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit23> </Unit23>
<Unit24> <Unit24>
<Filename Value="wsdl2pas_imp.pas"/> <Filename Value="wsdl2pas_imp.pas"/>
<UnitName Value="wsdl2pas_imp"/> <UnitName Value="wsdl2pas_imp"/>
<CursorPos X="15" Y="9"/> <CursorPos X="53" Y="921"/>
<TopLine Value="1"/> <TopLine Value="906"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<UsageCount Value="98"/> <UsageCount Value="99"/>
<Bookmarks Count="2"> <Bookmarks Count="2">
<Item0 X="21" Y="732" ID="3"/> <Item0 X="21" Y="732" ID="3"/>
<Item1 X="50" Y="633" ID="5"/> <Item1 X="50" Y="633" ID="5"/>
@ -249,96 +238,256 @@
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit24> </Unit24>
<Unit25> <Unit25>
<Filename Value="..\..\..\..\lazarus211\fpc\2.1.1\source\rtl\inc\getopts.pp"/> <Filename Value="../../../../lazarus211/fpc/2.1.1/source/rtl/inc/getopts.pp"/>
<UnitName Value="getopts"/> <UnitName Value="getopts"/>
<CursorPos X="1" Y="231"/> <CursorPos X="1" Y="231"/>
<TopLine Value="218"/> <TopLine Value="218"/>
<UsageCount Value="6"/> <UsageCount Value="5"/>
</Unit25> </Unit25>
<Unit26> <Unit26>
<Filename Value="..\..\..\..\lazarus211\fpc\2.1.1\source\packages\fcl-xml\src\dom.pp"/> <Filename Value="../../../../lazarus211/fpc/2.1.1/source/packages/fcl-xml/src/dom.pp"/>
<UnitName Value="DOM"/> <UnitName Value="DOM"/>
<CursorPos X="27" Y="41"/> <CursorPos X="27" Y="41"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="2"/> <UsageCount Value="1"/>
</Unit26> </Unit26>
<Unit27> <Unit27>
<Filename Value="..\..\..\..\lazarus211\fpc\2.1.1\source\packages\fcl-base\src\inc\avl_tree.pp"/> <Filename Value="../../../../lazarus211/fpc/2.1.1/source/packages/fcl-base/src/inc/avl_tree.pp"/>
<UnitName Value="AVL_Tree"/> <UnitName Value="AVL_Tree"/>
<CursorPos X="54" Y="156"/> <CursorPos X="54" Y="156"/>
<TopLine Value="332"/> <TopLine Value="332"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit27> </Unit27>
<Unit28> <Unit28>
<Filename Value="..\..\..\..\lazarusClean\fpc\2.0.4\source\fcl\inc\contnrs.pp"/> <Filename Value="../../../../lazarusClean/fpc/2.0.4/source/fcl/inc/contnrs.pp"/>
<UnitName Value="contnrs"/> <UnitName Value="contnrs"/>
<CursorPos X="30" Y="685"/> <CursorPos X="30" Y="685"/>
<TopLine Value="683"/> <TopLine Value="683"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit28> </Unit28>
<Unit29> <Unit29>
<Filename Value="..\..\..\..\lazarusClean\fpc\2.0.4\source\rtl\objpas\classes\lists.inc"/> <Filename Value="../../../../lazarusClean/fpc/2.0.4/source/rtl/objpas/classes/lists.inc"/>
<CursorPos X="3" Y="29"/> <CursorPos X="3" Y="29"/>
<TopLine Value="27"/> <TopLine Value="27"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit29> </Unit29>
<Unit30> <Unit30>
<Filename Value="..\..\..\..\lazarusClean\fpc\2.0.4\source\rtl\objpas\sysutils\sysstr.inc"/> <Filename Value="../../../../lazarusClean/fpc/2.0.4/source/rtl/objpas/sysutils/sysstr.inc"/>
<CursorPos X="1" Y="689"/> <CursorPos X="1" Y="689"/>
<TopLine Value="686"/> <TopLine Value="686"/>
<UsageCount Value="19"/> <UsageCount Value="18"/>
</Unit30> </Unit30>
<Unit31> <Unit31>
<Filename Value="..\..\..\..\lazarus211\fpc\2.1.1\source\rtl\objpas\sysutils\syswideh.inc"/> <Filename Value="../../../../lazarus211/fpc/2.1.1/source/rtl/objpas/sysutils/syswideh.inc"/>
<CursorPos X="10" Y="30"/> <CursorPos X="10" Y="30"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="5"/> <UsageCount Value="4"/>
</Unit31> </Unit31>
<Unit32> <Unit32>
<Filename Value="..\..\..\..\lazarus211\fpc\2.1.1\source\rtl\objpas\sysutils\syswide.inc"/> <Filename Value="../../../../lazarus211/fpc/2.1.1/source/rtl/objpas/sysutils/syswide.inc"/>
<CursorPos X="5" Y="92"/> <CursorPos X="5" Y="92"/>
<TopLine Value="90"/> <TopLine Value="90"/>
<UsageCount Value="5"/> <UsageCount Value="4"/>
</Unit32> </Unit32>
<Unit33> <Unit33>
<Filename Value="..\..\..\..\lazarus23_213\others_package\indy\indy-10.2.0.1\lazarus\IdDsnCoreResourceStrings.pas"/> <Filename Value="../../../../lazarus23_213/others_package/indy/indy-10.2.0.1/lazarus/IdDsnCoreResourceStrings.pas"/>
<UnitName Value="IdDsnCoreResourceStrings"/> <UnitName Value="IdDsnCoreResourceStrings"/>
<CursorPos X="9" Y="76"/> <CursorPos X="9" Y="76"/>
<TopLine Value="64"/> <TopLine Value="64"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit33> </Unit33>
<Unit34> <Unit34>
<Filename Value="..\..\..\..\lazarus23_213\others_package\indy\indy-10.2.0.1\fpc\System\IdGlobal.pas"/> <Filename Value="../../../../lazarus23_213/others_package/indy/indy-10.2.0.1/fpc/System/IdGlobal.pas"/>
<UnitName Value="IdGlobal"/> <UnitName Value="IdGlobal"/>
<CursorPos X="44" Y="989"/> <CursorPos X="44" Y="989"/>
<TopLine Value="981"/> <TopLine Value="981"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit34> </Unit34>
<Unit35> <Unit35>
<Filename Value="..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\inc\getopts.pp"/> <Filename Value="../../../../lazarus23_213/fpc/2.1.3/source/rtl/inc/getopts.pp"/>
<UnitName Value="getopts"/> <UnitName Value="getopts"/>
<CursorPos X="1" Y="231"/> <CursorPos X="1" Y="231"/>
<TopLine Value="217"/> <TopLine Value="217"/>
<EditorIndex Value="2"/> <UsageCount Value="10"/>
<UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit35> </Unit35>
<Unit36>
<Filename Value="../../../lazarus/lcl/graphics.pp"/>
<UnitName Value="Graphics"/>
<CursorPos X="17" Y="36"/>
<TopLine Value="20"/>
<UsageCount Value="10"/>
</Unit36>
<Unit37>
<Filename Value="../../../fpc/packages/fcl-xml/src/xmlread.pp"/>
<UnitName Value="XMLRead"/>
<CursorPos X="3" Y="3270"/>
<TopLine Value="3266"/>
<UsageCount Value="9"/>
</Unit37>
<Unit38>
<Filename Value="../../../fpc/rtl/unix/sysutils.pp"/>
<UnitName Value="sysutils"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="34"/>
<UsageCount Value="9"/>
</Unit38>
<Unit39>
<Filename Value="../../../fpc/utils/fppkg/fcl20/contnrs.pp"/>
<UnitName Value="contnrs"/>
<CursorPos X="70" Y="21"/>
<TopLine Value="34"/>
<UsageCount Value="9"/>
</Unit39>
<Unit40>
<Filename Value="../../../fpc/rtl/objpas/typinfo.pp"/>
<UnitName Value="typinfo"/>
<CursorPos X="3" Y="1078"/>
<TopLine Value="1068"/>
<UsageCount Value="10"/>
</Unit40>
<Unit41>
<Filename Value="../../../fpc/rtl/objpas/sysutils/sysstrh.inc"/>
<CursorPos X="10" Y="83"/>
<TopLine Value="70"/>
<UsageCount Value="10"/>
</Unit41>
<Unit42>
<Filename Value="../../../fpc/rtl/objpas/sysutils/sysstr.inc"/>
<CursorPos X="5" Y="453"/>
<TopLine Value="451"/>
<UsageCount Value="10"/>
</Unit42>
</Units> </Units>
<JumpHistory Count="1" HistoryIndex="0"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="wsdl2pas_imp.pas"/> <Filename Value="wsdl2pas_imp.pas"/>
<Caret Line="940" Column="53" TopLine="920"/> <Caret Line="936" Column="1" TopLine="923"/>
</Position1> </Position1>
<Position2>
<Filename Value="wsdl2pas_imp.pas"/>
<Caret Line="919" Column="1" TopLine="906"/>
</Position2>
<Position3>
<Filename Value="wsdl2pas_imp.pas"/>
<Caret Line="936" Column="1" TopLine="923"/>
</Position3>
<Position4>
<Filename Value="wsdl2pas_imp.pas"/>
<Caret Line="919" Column="1" TopLine="906"/>
</Position4>
<Position5>
<Filename Value="wsdl2pas_imp.pas"/>
<Caret Line="936" Column="1" TopLine="923"/>
</Position5>
<Position6>
<Filename Value="wsdl2pas_imp.pas"/>
<Caret Line="919" Column="1" TopLine="906"/>
</Position6>
<Position7>
<Filename Value="wsdl2pas_imp.pas"/>
<Caret Line="936" Column="1" TopLine="923"/>
</Position7>
<Position8>
<Filename Value="wsdl2pas_imp.pas"/>
<Caret Line="919" Column="1" TopLine="906"/>
</Position8>
<Position9>
<Filename Value="wsdl2pas_imp.pas"/>
<Caret Line="936" Column="1" TopLine="923"/>
</Position9>
<Position10>
<Filename Value="wsdl2pas_imp.pas"/>
<Caret Line="919" Column="1" TopLine="906"/>
</Position10>
<Position11>
<Filename Value="wsdl2pas_imp.pas"/>
<Caret Line="936" Column="1" TopLine="923"/>
</Position11>
<Position12>
<Filename Value="wsdl2pas_imp.pas"/>
<Caret Line="919" Column="1" TopLine="906"/>
</Position12>
<Position13>
<Filename Value="wsdl2pas_imp.pas"/>
<Caret Line="936" Column="1" TopLine="923"/>
</Position13>
<Position14>
<Filename Value="wsdl2pas_imp.pas"/>
<Caret Line="919" Column="1" TopLine="906"/>
</Position14>
<Position15>
<Filename Value="wsdl2pas_imp.pas"/>
<Caret Line="936" Column="1" TopLine="923"/>
</Position15>
<Position16>
<Filename Value="wsdl2pas_imp.pas"/>
<Caret Line="919" Column="1" TopLine="906"/>
</Position16>
<Position17>
<Filename Value="wsdl2pas_imp.pas"/>
<Caret Line="936" Column="1" TopLine="923"/>
</Position17>
<Position18>
<Filename Value="wsdl2pas_imp.pas"/>
<Caret Line="919" Column="1" TopLine="906"/>
</Position18>
<Position19>
<Filename Value="wsdl2pas_imp.pas"/>
<Caret Line="936" Column="1" TopLine="923"/>
</Position19>
<Position20>
<Filename Value="wsdl2pas_imp.pas"/>
<Caret Line="919" Column="1" TopLine="906"/>
</Position20>
<Position21>
<Filename Value="wsdl2pas_imp.pas"/>
<Caret Line="936" Column="1" TopLine="923"/>
</Position21>
<Position22>
<Filename Value="wsdl2pas_imp.pas"/>
<Caret Line="919" Column="1" TopLine="906"/>
</Position22>
<Position23>
<Filename Value="wsdl2pas_imp.pas"/>
<Caret Line="936" Column="1" TopLine="923"/>
</Position23>
<Position24>
<Filename Value="wsdl2pas_imp.pas"/>
<Caret Line="919" Column="1" TopLine="906"/>
</Position24>
<Position25>
<Filename Value="wsdl2pas_imp.pas"/>
<Caret Line="936" Column="1" TopLine="923"/>
</Position25>
<Position26>
<Filename Value="wsdl2pas_imp.pas"/>
<Caret Line="919" Column="1" TopLine="906"/>
</Position26>
<Position27>
<Filename Value="wsdl2pas_imp.pas"/>
<Caret Line="936" Column="1" TopLine="923"/>
</Position27>
<Position28>
<Filename Value="ws_helper.pas"/>
<Caret Line="199" Column="1" TopLine="186"/>
</Position28>
<Position29>
<Filename Value="wsdl2pas_imp.pas"/>
<Caret Line="919" Column="1" TopLine="906"/>
</Position29>
<Position30>
<Filename Value="wsdl2pas_imp.pas"/>
<Caret Line="936" Column="1" TopLine="923"/>
</Position30>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="5"/>
<PathDelim Value="\"/>
<Target> <Target>
<Filename Value="ws_helper.exe"/> <Filename Value="ws_helper.exe"/>
</Target> </Target>
<SearchPaths> <SearchPaths>
<OtherUnitFiles Value="..\;..\wst_rtti_filter\"/> <OtherUnitFiles Value="../;../wst_rtti_filter/"/>
<UnitOutputDirectory Value="obj"/> <UnitOutputDirectory Value="obj"/>
</SearchPaths> </SearchPaths>
<Parsing> <Parsing>
@ -367,28 +516,6 @@
</Other> </Other>
</CompilerOptions> </CompilerOptions>
<Debugging> <Debugging>
<BreakPoints Count="5">
<Item1>
<Source Value="D:\lazarusClean\fpcsrc\rtl\inc\getopts.pp"/>
<Line Value="230"/>
</Item1>
<Item2>
<Source Value="D:\lazarusClean\fpcsrc\rtl\inc\getopts.pp"/>
<Line Value="193"/>
</Item2>
<Item3>
<Source Value="D:\lazarusClean\fpcsrc\rtl\inc\getopts.pp"/>
<Line Value="198"/>
</Item3>
<Item4>
<Source Value="wsdl2pas_imp.pas"/>
<Line Value="917"/>
</Item4>
<Item5>
<Source Value="wsdl2pas_imp.pas"/>
<Line Value="934"/>
</Item5>
</BreakPoints>
<Watches Count="2"> <Watches Count="2">
<Item1> <Item1>
<Expression Value="locStrFilter"/> <Expression Value="locStrFilter"/>

2
wst/trunk/ws_helper/wsdl2pas_imp.pas
View File

@ -288,7 +288,7 @@ begin
if Assigned(attCrs) then begin if Assigned(attCrs) then begin
crs := CreateCursorOn(attCrs,fltr); crs := CreateCursorOn(attCrs,fltr);
crs.Reset(); crs.Reset();
if crs.MoveNext() and WideSameText(AName,TDOMNodeRttiExposer(crs.GetCurrent()).NodeValue) then begin if crs.MoveNext() and AnsiSameText(AName,TDOMNodeRttiExposer(crs.GetCurrent()).NodeValue) then begin
Result := curObj.InnerObject; Result := curObj.InnerObject;
exit; exit;
end; end;

6
wst/trunk/wst_rtti_filter/rtti_filters.pas
View File

@ -646,9 +646,9 @@ end;
function TRttiExpWideStringNodeItem.Evaluate(AInstance: TRttiFilterCreatorTarget): Boolean; function TRttiExpWideStringNodeItem.Evaluate(AInstance: TRttiFilterCreatorTarget): Boolean;
begin begin
case Operation of case Operation of
sfoEqualCaseSensitive : Result := ( GetStrProp(AInstance,PropInfo) = ComparedValue ); sfoEqualCaseSensitive : Result := AnsiSameStr(GetStrProp(AInstance,PropInfo),ComparedValue);
sfoEqualCaseInsensitive : Result := WideSameText(GetStrProp(AInstance,PropInfo),ComparedValue); sfoEqualCaseInsensitive : Result := AnsiSameText(GetStrProp(AInstance,PropInfo),ComparedValue);
sfoNotEqual : Result := ( GetStrProp(AInstance,PropInfo) <> ComparedValue ); sfoNotEqual : Result := not AnsiSameText(GetStrProp(AInstance,PropInfo),ComparedValue);
end; end;
end; end;