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

"schema" node finding for non qualified name

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@567 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2008-09-21 16:59:30 +00:00
parent 650f9e9b34
commit 0a9511fbc8
2 changed files with 11 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -124,7 +124,7 @@
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="8"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Target> <Target>
<Filename Value="ws_helper.exe"/> <Filename Value="ws_helper.exe"/>
@ -141,7 +141,6 @@
</SyntaxOptions> </SyntaxOptions>
</Parsing> </Parsing>
<CodeGeneration> <CodeGeneration>
<Generate Value="Faster"/>
<Optimizations> <Optimizations>
<OptimizationLevel Value="2"/> <OptimizationLevel Value="2"/>
</Optimizations> </Optimizations>

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

@ -1231,6 +1231,15 @@ begin
ParseFilter(CreateQualifiedNameFilterStr(s_schema,FXSShortNames),TDOMNodeRttiExposer) ParseFilter(CreateQualifiedNameFilterStr(s_schema,FXSShortNames),TDOMNodeRttiExposer)
); );
FSchemaCursor.Reset(); FSchemaCursor.Reset();
if FSchemaCursor.MoveNext() then begin
FSchemaCursor.Reset();
end else begin
FSchemaCursor := CreateCursorOn(
CreateChildrenCursor(locObj.InnerObject,cetRttiNode),
ParseFilter(Format('%s=%s',[s_NODE_NAME,QuotedStr(s_schema)]),TDOMNodeRttiExposer)
);
FSchemaCursor.Reset();
end;
end; end;
end; end;
@ -1248,7 +1257,7 @@ var
begin begin
i := FXsdParsers.IndexOf(ANamespace); i := FXsdParsers.IndexOf(ANamespace);
if ( i < 0 ) then if ( i < 0 ) then
raise EXsdParserAssertException.CreateFmt('Unable to find the parser of the parser, namespace : "%s".',[ANamespace]); raise EXsdParserAssertException.CreateFmt('Unable to find the parser, namespace : "%s".',[ANamespace]);
Result := (FXsdParsers.Objects[i] as TIntfObjectRef).Intf as IXsdPaser; Result := (FXsdParsers.Objects[i] as TIntfObjectRef).Intf as IXsdPaser;
end; end;