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

Parse only _once_ any binding (wsdl).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@999 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2009-11-09 09:58:51 +00:00
parent 5d40568799
commit b2525ef5c1
1 changed files with 18 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -943,6 +943,7 @@ begin
if ExtractBindingQName(bindingName) then begin if ExtractBindingQName(bindingName) then begin
i := Pos(':',bindingName); i := Pos(':',bindingName);
bindingName := Copy(bindingName,( i + 1 ), MaxInt); bindingName := Copy(bindingName,( i + 1 ), MaxInt);
if ( SymbolTable.FindBinding(bindingName) = nil ) then begin
bindingNode := FindBindingNode(bindingName); bindingNode := FindBindingNode(bindingName);
if Assigned(bindingNode) then begin if Assigned(bindingNode) then begin
if ExtractTypeQName(bindingNode,typeName) then begin if ExtractTypeQName(bindingNode,typeName) then begin
@ -962,6 +963,7 @@ begin
end; end;
end; end;
end; end;
end;
end; end;
function TWsdlParser.ParsePortType( function TWsdlParser.ParsePortType(