From 409a5f8ba73a3bf9441a8e764e9076c62b8a34ca Mon Sep 17 00:00:00 2001 From: inoussa Date: Fri, 15 Oct 2010 13:46:26 +0000 Subject: [PATCH] Add xsd:language git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1351 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- wst/trunk/base_service_intf.pas | 4 +++- wst/trunk/ws_helper/pascal_parser_intf.pas | 1 + 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/wst/trunk/base_service_intf.pas b/wst/trunk/base_service_intf.pas index 2dffbced9..c0e27cfa8 100644 --- a/wst/trunk/base_service_intf.pas +++ b/wst/trunk/base_service_intf.pas @@ -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'); diff --git a/wst/trunk/ws_helper/pascal_parser_intf.pas b/wst/trunk/ws_helper/pascal_parser_intf.pas index 144cf276b..ea452e0be 100644 --- a/wst/trunk/ws_helper/pascal_parser_intf.pas +++ b/wst/trunk/ws_helper/pascal_parser_intf.pas @@ -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);