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

Add xsd:language

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1351 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa 2010-10-15 13:46:26 +00:00
parent 2e7fa04712
commit 409a5f8ba7
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
wst/trunk/base_service_intf.pas
View File

@ -41,6 +41,7 @@ type
{ standart data types defines }
anyURI = type string;
token = type string;
language = type string;
nonNegativeInteger = type LongWord;
positiveInteger = type nonNegativeInteger;
float = Single;
@ -1778,7 +1779,8 @@ begin
r.Register(sXSD_NS,TypeInfo(anyURI),'anyURI').AddPascalSynonym('anyURI');
r.Register(sXSD_NS,TypeInfo(anyType_Type),'anyType').AddPascalSynonym('anyType_Type');
r.Register(sXSD_NS,TypeInfo(schema_Type),'schema').AddPascalSynonym('schema_Type');
r.Register(sXSD_NS,TypeInfo(token),'token').AddPascalSynonym('token');
r.Register(sXSD_NS,TypeInfo(token),'token').AddPascalSynonym('token');
r.Register(sXSD_NS,TypeInfo(language),'language').AddPascalSynonym('language');
r.Register(sXSD_NS,TypeInfo(boolean),'boolean').AddPascalSynonym('boolean');

1
wst/trunk/ws_helper/pascal_parser_intf.pas
View File

@ -460,6 +460,7 @@ begin
AddClassDef(Result,'TArrayOfFloatCurrencyRemotable','TBaseSimpleTypeArrayRemotable');
AddAlias('token','string',Result);
AddAlias('language','string',Result);
AddAlias('anyURI','string',Result);
AddAlias('ID','string',Result);
//AddAlias('float','Single',Result);