paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

defaultElementForm, defaultAttributeForm : XSD generation.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4231 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa 2015-07-30 19:15:27 +00:00
parent d5f0b8a092
commit 5622ce75fd
6 changed files with 194 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
wst/trunk/tests/test_suite/files/default_attribute_qualified.xsd Normal file
View File

@ -0,0 +1,7 @@
<?xml version="1.0" encoding="utf-8"?>
<schema
xmlns:tns="default_attribute_qualified"
xmlns:xsd="http://www.w3.org/2001/XMLSchema"
targetNamespace="default_attribute_qualified"
attributeFormDefault="qualified"
/>

7
wst/trunk/tests/test_suite/files/default_attribute_unqualified.xsd Normal file
View File

@ -0,0 +1,7 @@
<?xml version="1.0" encoding="utf-8"?>
<schema
xmlns:tns="default_attribute_unqualified"
xmlns:xsd="http://www.w3.org/2001/XMLSchema"
targetNamespace="default_attribute_unqualified"
attributeFormDefault="unqualified"
/>

7
wst/trunk/tests/test_suite/files/default_element_qualified.xsd Normal file
View File

@ -0,0 +1,7 @@
<?xml version="1.0" encoding="utf-8"?>
<schema
xmlns:tns="default_element_qualified"
xmlns:xsd="http://www.w3.org/2001/XMLSchema"
targetNamespace="default_element_qualified"
elementFormDefault="qualified"
/>

7
wst/trunk/tests/test_suite/files/default_element_unqualified.xsd Normal file
View File

@ -0,0 +1,7 @@
<?xml version="1.0" encoding="utf-8"?>
<schema
xmlns:tns="default_element_unqualified"
xmlns:xsd="http://www.w3.org/2001/XMLSchema"
targetNamespace="default_element_unqualified"
elementFormDefault="unqualified"
/>

137
wst/trunk/tests/test_suite/test_generators.pas
View File

@ -54,6 +54,11 @@ type
procedure type_alias_widestring();
procedure type_hint_array_item();
procedure type_hint_record_item();
procedure default_element_qualified();
procedure default_element_unqualified();
procedure default_attribute_qualified();
procedure default_attribute_unqualified();
end;
TTest_XsdGenerator = class(TTest_CustomXsdGenerator)
@ -1014,6 +1019,138 @@ begin
end;
end;
procedure TTest_CustomXsdGenerator.default_element_qualified();
const MODULE_NAME = 'default_element_qualified';
var
tr : TwstPasTreeContainer;
mdl : TPasModule;
g : IGenerator;
locDoc, locExistDoc : TXMLDocument;
fileName : string;
begin
locDoc := nil;
locExistDoc := nil;
tr := TwstPasTreeContainer.Create();
try
CreateWstInterfaceSymbolTable(tr);
mdl := TPasModule(tr.CreateElement(TPasModule,MODULE_NAME,tr.Package,visDefault,'',0));
tr.Package.Modules.Add(mdl);
mdl.InterfaceSection := TInterfaceSection(tr.CreateElement(TInterfaceSection,'',mdl,visDefault,'',0));
tr.Properties.SetValue(mdl,s_elementFormDefault,s_qualified);
locDoc := CreateDoc();
g := CreateGenerator(locDoc);
g.Execute(tr,mdl.Name);
fileName := MODULE_NAME + '.xsd';
//WriteXMLFile(locDoc,'.\'+fileName);
locExistDoc := LoadXmlFromFilesList(fileName);
Check(CompareNodes(locExistDoc.DocumentElement,locDoc.DocumentElement),'generated document differs from the existent one.');
finally
ReleaseDomNode(locExistDoc);
ReleaseDomNode(locDoc);
FreeAndNil(tr);
end;
end;
procedure TTest_CustomXsdGenerator.default_element_unqualified();
const MODULE_NAME = 'default_element_unqualified';
var
tr : TwstPasTreeContainer;
mdl : TPasModule;
g : IGenerator;
locDoc, locExistDoc : TXMLDocument;
fileName : string;
begin
locDoc := nil;
locExistDoc := nil;
tr := TwstPasTreeContainer.Create();
try
CreateWstInterfaceSymbolTable(tr);
mdl := TPasModule(tr.CreateElement(TPasModule,MODULE_NAME,tr.Package,visDefault,'',0));
tr.Package.Modules.Add(mdl);
mdl.InterfaceSection := TInterfaceSection(tr.CreateElement(TInterfaceSection,'',mdl,visDefault,'',0));
tr.Properties.SetValue(mdl,s_elementFormDefault,s_unqualified);
locDoc := CreateDoc();
g := CreateGenerator(locDoc);
g.Execute(tr,mdl.Name);
fileName := MODULE_NAME + '.xsd';
WriteXMLFile(locDoc,'.\'+fileName);
locExistDoc := LoadXmlFromFilesList(fileName);
Check(CompareNodes(locExistDoc.DocumentElement,locDoc.DocumentElement),'generated document differs from the existent one.');
finally
ReleaseDomNode(locExistDoc);
ReleaseDomNode(locDoc);
FreeAndNil(tr);
end;
end;
procedure TTest_CustomXsdGenerator.default_attribute_qualified();
const MODULE_NAME = 'default_attribute_qualified';
var
tr : TwstPasTreeContainer;
mdl : TPasModule;
g : IGenerator;
locDoc, locExistDoc : TXMLDocument;
fileName : string;
begin
locDoc := nil;
locExistDoc := nil;
tr := TwstPasTreeContainer.Create();
try
CreateWstInterfaceSymbolTable(tr);
mdl := TPasModule(tr.CreateElement(TPasModule,MODULE_NAME,tr.Package,visDefault,'',0));
tr.Package.Modules.Add(mdl);
mdl.InterfaceSection := TInterfaceSection(tr.CreateElement(TInterfaceSection,'',mdl,visDefault,'',0));
tr.Properties.SetValue(mdl,s_attributeFormDefault,s_qualified);
locDoc := CreateDoc();
g := CreateGenerator(locDoc);
g.Execute(tr,mdl.Name);
fileName := MODULE_NAME + '.xsd';
//WriteXMLFile(locDoc,'.\'+fileName);
locExistDoc := LoadXmlFromFilesList(fileName);
Check(CompareNodes(locExistDoc.DocumentElement,locDoc.DocumentElement),'generated document differs from the existent one.');
finally
ReleaseDomNode(locExistDoc);
ReleaseDomNode(locDoc);
FreeAndNil(tr);
end;
end;
procedure TTest_CustomXsdGenerator.default_attribute_unqualified();
const MODULE_NAME = 'default_attribute_unqualified';
var
tr : TwstPasTreeContainer;
mdl : TPasModule;
g : IGenerator;
locDoc, locExistDoc : TXMLDocument;
fileName : string;
begin
locDoc := nil;
locExistDoc := nil;
tr := TwstPasTreeContainer.Create();
try
CreateWstInterfaceSymbolTable(tr);
mdl := TPasModule(tr.CreateElement(TPasModule,MODULE_NAME,tr.Package,visDefault,'',0));
tr.Package.Modules.Add(mdl);
mdl.InterfaceSection := TInterfaceSection(tr.CreateElement(TInterfaceSection,'',mdl,visDefault,'',0));
tr.Properties.SetValue(mdl,s_attributeFormDefault,s_unqualified);
locDoc := CreateDoc();
g := CreateGenerator(locDoc);
g.Execute(tr,mdl.Name);
fileName := MODULE_NAME + '.xsd';
WriteXMLFile(locDoc,'.\'+fileName);
locExistDoc := LoadXmlFromFilesList(fileName);
Check(CompareNodes(locExistDoc.DocumentElement,locDoc.DocumentElement),'generated document differs from the existent one.');
finally
ReleaseDomNode(locExistDoc);
ReleaseDomNode(locDoc);
FreeAndNil(tr);
end;
end;
function TTest_CustomXsdGenerator.LoadXmlFromFilesList(const AFileName: string): TXMLDocument;
begin
ReadXMLFile(Result,wstExpandLocalFileName(TestFilesPath + AFileName));

29
wst/trunk/ws_helper/xsd_generator.pas
View File

@ -117,6 +117,10 @@ type
ASymTable : TwstPasTreeContainer;
AModule : TPasModule
);virtual;
procedure GenerateModuleOptions(
ASymTable : TwstPasTreeContainer;
AModule : TPasModule
);virtual;
property Document : TDOMDocument read FDocument;
property Options : TGeneratorOptions read FOptions;
public
@ -1373,6 +1377,7 @@ begin
raise EXsdGeneratorException.CreateFmt('Unable to find module : "%s".',[AModuleName]);
Prepare(ASymTable,mdl);
GenerateImports(ASymTable,mdl);
GenerateModuleOptions(ASymTable,mdl);
gr := GetXsdTypeHandlerRegistry();
typeList := mdl.InterfaceSection.Declarations;
k := typeList.Count;
@ -1419,6 +1424,30 @@ begin
end;
procedure TCustomXsdGenerator.GenerateModuleOptions(
ASymTable : TwstPasTreeContainer;
AModule : TPasModule
);
var
s : string;
locSchemaNode : TDOMElement;
begin
if ASymTable.Properties.HasValue(AModule,s_elementFormDefault) then begin
s := Trim(ASymTable.Properties.GetValue(AModule,s_elementFormDefault));
if (s <> '') then begin
locSchemaNode := GetSchemaNode(FDocument) as TDOMElement;
locSchemaNode.SetAttribute(s_elementFormDefault,s);
end;
end;
if ASymTable.Properties.HasValue(AModule,s_attributeFormDefault) then begin
s := Trim(ASymTable.Properties.GetValue(AModule,s_attributeFormDefault));
if (s <> '') then begin
locSchemaNode := GetSchemaNode(FDocument) as TDOMElement;
locSchemaNode.SetAttribute(s_attributeFormDefault,s);
end;
end;
end;
constructor TCustomXsdGenerator.Create(const ADocument : TDOMDocument);
begin
Create(ADocument,[]);