Mercurial > pub > ModelGenerator
changeset 0:cbdada054b4a
Basic schemas for generating csharp internal dom from model definition
author | cin |
---|---|
date | Wed, 21 Feb 2018 03:01:53 +0300 |
parents | |
children | 7f803979305f |
files | .hgignore data/csmodel.xml data/model.xml data/rccs.xml data/types.xml xslt/csharp.xsl xslt/json.xsl xslt/model.xslt xslt/preprocess.xslt xslt/text-tools.xsl |
diffstat | 10 files changed, 952 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/.hgignore Wed Feb 21 03:01:53 2018 +0300 @@ -0,0 +1,2 @@ +syntax: glob +*.out.xml
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/data/csmodel.xml Wed Feb 21 03:01:53 2018 +0300 @@ -0,0 +1,27 @@ +<?xml version="1.0" encoding="utf-8"?> +<code xmlns="http://implab.org/schemas/code-dom/csharp.v1.xsd"> + <namespace name="Pallada.PoiskMore.Model"> + <using name="System"/> + <using name="Linq2Db"/> + <using name="Data"/> + + <class name="SarRcc" modifiers="public partial"> + <extends name="AbstractEntity"/> + <implements name="INotifyPropertyChange"/> + + <property name="Id" type="Guid" modifiers="public"> + <attribute/> + </property> + + <property name="Name" type="string" modifiers="public" binding="true"> + <attribute type="Column" params='"rccname", NotNull=true'/> + <get/> + <set/> + </property> + + <property name="Master" type="SarRcc" nullable="false"> + <generateAssociation/> + </property> + </class> + </namespace> +</code> \ No newline at end of file
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/data/model.xml Wed Feb 21 03:01:53 2018 +0300 @@ -0,0 +1,128 @@ +<?xml version="1.0"?> +<package xmlns="http://implab.org/schemas/data-model.v1.xsd" + xmlns:f="http://implab.org/schemas/data-model/geo.v1.xsd" xmlns:clr="http://implab.org/schemas/data-model/dotnet.v1.xsd" + xmlns:sql="http://implab.org/schemas/data-model/sql.v1.xsd" xmlns:esri="http://geopallada.ru/schemas/data-model/esri.v1.xsd" + name="poisk-more" version="1.0" clr:namespace="Pallada.PoiskMore.Model"> + + <!-- Импортируем стандартные типы для строк, дат, чисел и т.п. --> + <import href="types.xml" /> + <import href="rccs.xml" /> + + <!-- определяем внешние типы, которые объявлены вне модели, но на них есть + ссылки в самой модели --> + <type name="IncidentData"> + <clr:type name="IncidentData" namespace="Pallada.Exchange.Sar" /> + </type> + + <entity name="BaseEntity"> + <!-- <extends type="MaritimeRcc"/> --> + </entity> + + <f:simpleFeature name="SarUnit"> + <description>Поисково-спасательная единица, характеризует + судно, + принимающее участие в ПСО + </description> + <f:geometry name="Location" type="Point"> + <description>Местоположение СРУ на момент начала ПСО</description> + <esri:geometry name="Shape" type="esriGeometryPoint" + mode="shape" /> + </f:geometry> + <primaryKey name="Id" type="uuid" /> + <hasA name="Region" type="Region"> + <description>Район проведения операции, в котором будет работать + данная единица. + </description> + <thisKey name="RegionId" matches="Id" /> + </hasA> + <hasA name="Operation" type="Operation" optional="true"> + <description>Идентификатор операции, используется для фильтрации + объектов на карте. + </description> + <thisKey name="OperationId"> + <esri:field name="OperId" mode="shape" /> + </thisKey> + </hasA> + <property name="Departure" type="datetime"> + <description>Дата отправления из исходной точки</description> + </property> + <property name="EstimatedArrival" type="datetime"> + <description>Ожидаемое время прибытия в конечную точку</description> + <esri:field name="Eta" mode="shape" /> + </property> + <property name="CrewFactor" type="datetime"> + <description>Коэффициент усталости экипажа</description> + <esri:field name="Fcrew" mode="shape" /> + </property> + </f:simpleFeature> + + <entity name="Operation"> + <sql:table name="Operation" /> + <primaryKey name="Id" type="uuid" /> + <property name="Name" type="string"> + <clr:type ref="string" /> + <description>Название операции</description> + </property> + <hasA name="Case" type="SarCase" optional="true"> + <description>Дело, с которым связана операция</description> + <thisKey name="CaseId" /> + <clr:lazy /> + <clr:association /> + </hasA> + <property name="Closed" type="bool"> + <description>Признак того, что операция завершена, т.е. ее нельзя + редактировать и она не отображается в списке операций + </description> + </property> + <property name="Date" type="datetime"> + <description>Дата начала операции</description> + </property> + <hasMany name="Regions" type="Region"> + <description>Список районов поиска</description> + <otherKey name="OperationId" /> + <clr:association> + <clr:type ref="listOf"> + <clr:type ref="Region" /> + </clr:type> + </clr:association> + </hasMany> + <property name="IncidentData" type="IncidentData"> + <description>Информация о происшествии на основании которой + строилась + данная операция + </description> + <sql:type name="text" /> + <xmlMember /> + </property> + <hasA name="Coordinator" type="MaritimeRcc" nullable="true"> + <thisKey name="CoordinatorId" /> + </hasA> + </entity> + + <entity name="SarCase"> + <description>Поисково-спасательное дело, собирает в себе информацию об + операциях, аварийном случае, поступающих данных.</description> + <sql:table name="SarCase" /> + <primaryKey name="Id" type="uuid" /> + <property name="CaseNo" type="string" sql:nullable="false"> + <description>Номер дела, которое объединяет несколько операций, + номера дел должны быть уникальными и не пустыми. + </description> + </property> + <hasMany name="Operations" type="Operation"> + <description>Операции выполненные в рамках текущего дела + </description> + <otherKey name="Case" /> + <clr:association> + <clr:type> + <arrayOf type="Operation"/> + </clr:type> + </clr:association> + </hasMany> + </entity> + + <entity name="Region"> + <description>Район проведение поисково-спасательной операции</description> + </entity> + +</package> \ No newline at end of file
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/data/rccs.xml Wed Feb 21 03:01:53 2018 +0300 @@ -0,0 +1,23 @@ +<?xml version="1.0"?> +<package xmlns="http://implab.org/schemas/data-model.v1.xsd" + xmlns:f="http://implab.org/schemas/data-model/geo.v1.xsd" + xmlns:clr="http://implab.org/schemas/data-model/dotnet.v1.xsd" + xmlns:sql="http://implab.org/schemas/data-model/sql.v1.xsd" + xmlns:esri="http://geopallada.ru/schemas/data-model/esri.v1.xsd" + name="rccs" version="1.0" clr:namespace="Pallada.PoiskMore.Model" +> + + <!-- Импортируем стандартные типы для строк, дат, чисел и т.п. --> + <import href="types.xml"/> + <import href="model.xml"/> + + <entity name="Rcc" clr:name="SarRcc"> + <extends type="BaseEntity"/> + <primaryKey name="Id" type="uuid"/> + </entity> + + <entity name="MaritimeRcc" clr:name="SarMaritimeRcc"> + <extends type="Rcc"/> + </entity> + +</package> \ No newline at end of file
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/data/types.xml Wed Feb 21 03:01:53 2018 +0300 @@ -0,0 +1,31 @@ +<?xml version="1.0"?> +<package xmlns="http://implab.org/schemas/data-model.v1.xsd" + xmlns:f="http://implab.org/schemas/data-model/geo.v1.xsd" xmlns:clr="http://implab.org/schemas/data-model/dotnet.v1.xsd" + xmlns:sql="http://implab.org/schemas/data-model/sql.v1.xsd" xmlns:esri="http://geopallada.ru/schemas/data-model/esri.v1.xsd" + xmlns:cs="http://implab.org/schemas/code-dom/csharp.v1.xsd" xmlns:pg="http://implab.org/schemas/data-model/sql-pg.v1.xsd" + name="types"> + <type name="string"> + <sql:type name="varchar(255)" nullable="true" /> + <clr:type name="String" cs:name="string" namespace="System" /> + </type> + <type name="uuid"> + <pg:type name="uuid" /> + <sql:type name="char(40)" /> + <clr:type name="Guid" namespace="System" struct="true" /> + </type> + <type name="incidentData"> + <clr:type name="IncidentData" namespace="Pallada.Sar.Exchange" /> + </type> + <type name="datetime"> + <pg:type name="timestamp with timezone" /> + <clr:type name="DateTime" namespace="System" struct="true" /> + </type> + <type name="listOf"> + <clr:type name="List" namespace="System.Collections.Generic" /> + </type> + <type name="bool"> + <sql:type name="boolean" /> + <clr:type name="Boolean" namespace="System" cs:name="bool" + struct="true" /> + </type> +</package> \ No newline at end of file
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/xslt/csharp.xsl Wed Feb 21 03:01:53 2018 +0300 @@ -0,0 +1,85 @@ +<?xml version="1.0" encoding="UTF-8"?> +<xsl:stylesheet version="1.0" + xmlns:xsl="http://www.w3.org/1999/XSL/Transform" + xmlns:cs="http://implab.org/schemas/code-dom/csharp.v1.xsd"> + <xsl:import href="text-tools.xsl" /> + + <!-- CODE GENERATION --> + + <!-- GENERATE NAMESPACE --> + <xsl:template match="cs:namespace"> + <xsl:param name="level" select="0" /> + <xsl:call-template name="write-line"> + <xsl:with-param name="level" select="$level" /> + <xsl:with-param name="text"> + <xsl:text>namespace </xsl:text> + <xsl:value-of select="@name" /> + <xsl:text> {</xsl:text> + </xsl:with-param> + </xsl:call-template> + <xsl:apply-templates> + <xsl:with-param name="level" select="$level+1" /> + </xsl:apply-templates> + <xsl:call-template name="write-line"> + <xsl:with-param name="level" select="$level" /> + <xsl:with-param name="text"> + } + </xsl:with-param> + </xsl:call-template> + </xsl:template> + + <!-- GENERATE CLASS --> + <xsl:template match="cs:class"> + <xsl:param name="level" select="0" /> + <xsl:call-template name="write-line"> + <xsl:with-param name="level" select="$level" /> + <xsl:with-param name="text"> + <xsl:text>class </xsl:text> + <xsl:value-of select="@name" /> + <xsl:text> {</xsl:text> + </xsl:with-param> + </xsl:call-template> + + <xsl:apply-templates mode="members"> + <xsl:with-param name="level" select="$level+1" /> + <xsl:with-param name="declaringType" select="." /> + </xsl:apply-templates> + + <xsl:call-template name="write-line"> + <xsl:with-param name="level" select="$level" /> + <xsl:with-param name="text" select="'}'" /> + </xsl:call-template> + </xsl:template> + + <!-- GENERATE FIELDS --> + <xsl:template match="cs:field" mode="members"> + <xsl:param name="level" select="0" /> + <xsl:call-template name="write-line"> + <xsl:with-param name="level" select="$level" /> + <xsl:with-param name="text"> + <xsl:value-of select="concat(@type,' ', @name)" /> + <xsl:if test="@initializer"> + <xsl:text> = </xsl:text> + <xsl:value-of select="@initializer" /> + </xsl:if> + <xsl:text>;</xsl:text> + </xsl:with-param> + </xsl:call-template> + </xsl:template> + + <!-- GENERATE PROPERTIES --> + <xsl:template match="cs:property" mode="members"> + <xsl:param name="level" select="0" /> + <xsl:call-template name="write-line"> + <xsl:with-param name="level" select="$level" /> + <xsl:with-param name="text" select="concat(@type,' ', @name, ' {')" /> + </xsl:call-template> + <xsl:apply-templates> + <xsl:with-param name="level" select="$level + 1" /> + </xsl:apply-templates> + <xsl:call-template name="write-line"> + <xsl:with-param name="level" select="$level" /> + <xsl:with-param name="text" select="'}'" /> + </xsl:call-template> + </xsl:template> +</xsl:stylesheet> \ No newline at end of file
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/xslt/json.xsl Wed Feb 21 03:01:53 2018 +0300 @@ -0,0 +1,38 @@ +<?xml version="1.0" encoding="UTF-8"?> +<xsl:stylesheet version="1.0" + xmlns:xsl="http://www.w3.org/1999/XSL/Transform"> + <xsl:output method="text"/> + + <xsl:template match="/"> + <xsl:apply-templates mode="json-array" /> + </xsl:template> + + <xsl:template match="*" mode="json-array"> + [ + <xsl:for-each select="*"> + <xsl:apply-templates select="." mode="json-value"/> + <xsl:if test="position() != last()">,</xsl:if> + </xsl:for-each> + ] + </xsl:template> + + <xsl:template match="*[count(*) != 0]" mode="json-array-item"> + "<xsl:value-of select="name()"/> : <xsl:apply-templates mode="json-value"/>" + <xsl:if test="position() != last()">,</xsl:if> + </xsl:template> + + <xsl:template match="*" mode="json-value"> + <xsl:choose> + <xsl:when test="count(*) != 0">{ <xsl:apply-templates mode="json-named-value" /> }</xsl:when> + <xsl:when test="text() = 'true'">true</xsl:when> + <xsl:when test="text() = 'false'">false</xsl:when> + <xsl:when test="text() = 'null'">null</xsl:when> + <xsl:when test="string(number(.)) != 'NaN'"><xsl:value-of select="number(.)"/></xsl:when> + <xsl:otherwise>"<xsl:value-of select="text()"/>"</xsl:otherwise> + </xsl:choose> + </xsl:template> + + <xsl:template match="*" mode="json-named-value"> + <xsl:value-of select="name()"/> : <xsl:apply-templates select="." mode="json-value"/> + </xsl:template> +</xsl:stylesheet> \ No newline at end of file
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/xslt/model.xslt Wed Feb 21 03:01:53 2018 +0300 @@ -0,0 +1,558 @@ +<?xml version="1.0" encoding="utf-8"?> +<xsl:stylesheet version="1.0" + xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:m="http://implab.org/schemas/data-model.v1.xsd" + xmlns:clr="http://implab.org/schemas/data-model/dotnet.v1.xsd" + xmlns:cs="http://implab.org/schemas/code-dom/csharp.v1.xsd" xmlns:sql="http://implab.org/schemas/data-model/sql.v1.xsd" + xmlns:t="http://implab.org/schemas/temp" xmlns:exsl="http://exslt.org/common" + exclude-result-prefixes="clr m xsl exsl sql"> + <xsl:output method="xml" indent="yes" /> + + <xsl:key name="type" match="m:package/m:*" use="@name" /> + + <xsl:variable name="fragment"> + <t:fragment> + <xsl:call-template name="preprocess" /> + </t:fragment> + </xsl:variable> + + <xsl:template name="preprocess"> + <xsl:param name="root" select="/" /> + <xsl:param name="pending" select="$root/m:package/m:import[@href]" /> + <xsl:param name="seen" select="/.." /> + <xsl:param name="file" select="''" /> + <xsl:param name="primary" select="true()" /> + + <xsl:if test="not($seen[generate-id() = generate-id($root)])"> + <xsl:apply-templates select="$root" mode="preprocess"> + <xsl:with-param name="primary" select="$primary" /> + <xsl:with-param name="file" select="$file" /> + </xsl:apply-templates> + <xsl:if test="$pending"> + <xsl:variable name="doc" select="document($pending[1]/@href)" /> + <xsl:call-template name="preprocess"> + <xsl:with-param name="root" select="$doc" /> + <xsl:with-param name="file" select="$pending[1]/@href" /> + <xsl:with-param name="pending" + select="$pending[position() > 1] | $doc/m:package/m:import[@href]" /> + <xsl:with-param name="seen" select="$root | $seen" /> + <xsl:with-param name="primary" select="false()" /> + </xsl:call-template> + </xsl:if> + </xsl:if> + </xsl:template> + + <xsl:template match="m:package" mode="preprocess"> + <xsl:param name="primary" /> + <xsl:param name="file" /> + <xsl:copy> + <xsl:copy-of select="@*" /> + <xsl:if test="$primary"> + <xsl:attribute name="primary"><xsl:value-of select="$primary" /></xsl:attribute> + </xsl:if> + <xsl:if test="$file"> + <xsl:attribute name="file"><xsl:value-of select="$file" /></xsl:attribute> + </xsl:if> + <xsl:apply-templates mode="preprocess"> + <xsl:with-param name="primary" select="$primary" /> + <xsl:with-param name="file" select="$file" /> + </xsl:apply-templates> + </xsl:copy> + </xsl:template> + + <xsl:template match="*|/" mode="preprocess"> + <xsl:param name="primary" /> + <xsl:param name="file" /> + <xsl:copy> + <xsl:copy-of select="@*" /> + <xsl:apply-templates mode="preprocess"> + <xsl:with-param name="primary" select="$primary" /> + <xsl:with-param name="file" select="$file" /> + </xsl:apply-templates> + </xsl:copy> + </xsl:template> + + <xsl:template match="/"> + <cs:document> + <xsl:apply-templates select="exsl:node-set($fragment)" + mode="generate-document" /> + </cs:document> + </xsl:template> + + <!-- code generation --> + + <!-- disable default template --> + <xsl:template match="*|text()" mode="generate-document" /> + + <xsl:template match="t:fragment" mode="generate-document"> + <xsl:apply-templates mode="generate-document" /> + </xsl:template> + + <!-- generate code for primary package --> + <xsl:template match="m:package[@primary='true' and @clr:namespace]" + mode="generate-document" priority="1"> + <cs:namespace name="{@clr:namespace}"> + <xsl:apply-templates mode="generate-document" /> + </cs:namespace> + </xsl:template> + + <xsl:template match="m:package[@primary='true']" mode="generate-document"> + <xsl:apply-templates mode="generate-document" /> + </xsl:template> + + <xsl:template match="m:entity" mode="generate-document"> + <cs:class name="{@name}" modifiers="partial "> + <xsl:apply-templates mode="attributes" /> + <xsl:apply-templates mode="members" /> + </cs:class> + </xsl:template> + + <xsl:template match="*|text()" mode="attributes" /> + + <xsl:template match="sql:table" mode="attributes"> + <cs:attribute> + <cs:type name="Table" namespace="Linq2Db" /> + <cs:parameter><cs:string text="{@name}"/></cs:parameter> + </cs:attribute> + </xsl:template> + + <!-- class-name --> + <xsl:template match="*[@name]" mode="type-name"> + <xsl:value-of select="@name"/> + </xsl:template> + + <xsl:template match="*[@clr:name]" mode="type-name"> + <xsl:value-of select="@clr:name"/> + </xsl:template> + + <!-- generate members --> + + <xsl:template match="*|text()" mode="members" /> + + <xsl:template match="m:primaryKey | m:property | m:thisKey | clr:association" mode="members"> + <t:trace msg="{name()} {@name}"/> + <xsl:apply-templates select="." mode="property"/> + </xsl:template> + + <!-- hasA and hasMany doesn't generate members itself, they delegate this work to inner members --> + <xsl:template match="m:hasA | m:hasMany" mode="members"> + <t:trace msg="{name()} {@name}" /> + <xsl:apply-templates mode="members" /> + </xsl:template> + + <xsl:template match="m:hasA/clr:lazy" mode="members"> + <xsl:apply-templates select="." mode="field"/> + </xsl:template> + + <!-- member-name --> + <xsl:template match="*|text()|@*" mode="member-name" /> + + <xsl:template match="*[@name]" mode="member-name"> + <xsl:value-of select="@name"/> + </xsl:template> + <xsl:template match="*[@clr:name]" mode="member-name"> + <xsl:value-of select="@clr:name"/> + </xsl:template> + + <!-- member-type --> + <xsl:template match="*|text()|@*" mode="member-type" /> + + <xsl:template match="*[@type]" mode="member-type"> + <xsl:call-template name="getClrType"> + <xsl:with-param name="type" select="@type" /> + </xsl:call-template> + </xsl:template> + + <xsl:template match="*[clr:type]" mode="member-type"> + <xsl:apply-templates select="clr:type" mode="clr-type" /> + </xsl:template> + + <!-- member-attributes --> + <xsl:template match="*|text()" mode="member-attributes"/> + + <!-- member-extension --> + <xsl:template match="*|text()" mode="member-extension"/> + <xsl:template match="*" mode="member-extension"> + <xsl:apply-templates mode="member-extension-comments"/> + </xsl:template> + + <xsl:template match="m:hasA/* | m:hasMany/*" mode="member-extension"> + <xsl:variable name="comments" select="../m:description | m:description"/> + <xsl:apply-templates select="$comments[position() = count($comments)]" mode="member-extension-comments"/> + </xsl:template> + + <!-- member-extension-comments --> + <xsl:template match="*|text()" mode="member-extension-comments"/> + + <xsl:template match="m:description" mode="member-extension-comments"> + <cs:comments> + <xsl:apply-templates mode="comments" /> + </cs:comments> + </xsl:template> + + + + <!-- property --> + + <xsl:template match="*" mode="property"> + <cs:property modifiers="public"> + <xsl:attribute name="name"><xsl:apply-templates select="." mode="property-name"/></xsl:attribute> + <xsl:apply-templates select="." mode="property-type"/> + <xsl:apply-templates select="." mode="property-attributes"/> + <xsl:apply-templates select="." mode="property-extension" /> + <xsl:apply-templates select="." mode="property-accessors"/> + </cs:property> + </xsl:template> + + <!-- property-name --> + + <xsl:template match="m:hasA/clr:association[not(@name|@clr:name)]" mode="property-name"> + <!-- if the association doesn't define a name, use it from the parent node --> + <xsl:apply-templates select=".." mode="property-name"/> + </xsl:template> + <xsl:template match="m:hasMany/clr:association[not(@name|@clr:name)]" mode="property-name"> + <!-- if the association doesn't define a name, use it from the parent node --> + <xsl:apply-templates select=".." mode="property-name"/> + </xsl:template> + + <xsl:template match="*" mode="property-name"> + <xsl:apply-templates select="." mode="member-name"/> + </xsl:template> + + <!-- property-type --> + <xsl:template match="m:hasA[@type]/clr:association[not(clr:type)]" mode="property-type"> + <xsl:apply-templates select=".." mode="property-type"/> + </xsl:template> + + <xsl:template match="m:hasMany[@type]/clr:association[not(clr:type)]" mode="property-type"> + <cs:array> + <xsl:apply-templates select=".." mode="property-type"/> + </cs:array> + </xsl:template> + + <xsl:template match="m:hasA[@type]/m:thisKey" mode="property-type"> + <xsl:call-template name="getKeyType"> + <xsl:with-param name="type" select="../@type"/> + </xsl:call-template> + </xsl:template> + + <xsl:template match="m:hasA[@type and boolean(@optional)]/m:thisKey" mode="property-type"> + <cs:nullable> + <xsl:call-template name="getKeyType"> + <xsl:with-param name="type" select="../@type"/> + </xsl:call-template> + </cs:nullable> + </xsl:template> + + <xsl:template match="*" mode="property-type"> + <xsl:apply-templates select="." mode="member-type"/> + </xsl:template> + + <!-- property-attributes --> + <xsl:template match="m:primaryKey" mode="property-attributes"> + <cs:attribute> + <cs:type name="PrimaryKey" namespace="Linq2Db" /> + </cs:attribute> + </xsl:template> + + <xsl:template match="m:hasA/clr:association" mode="property-attributes"> + <cs:attribute> + <cs:type name="Association" namespace="Linq2Db"/> + <cs:parameter name="thisKey">nameof(<xsl:apply-templates select="../m:thisKey" mode="property-name"/>)</cs:parameter> + <cs:parameter name="otherKey">nameof(<cs:typeName> + <xsl:apply-templates select="." mode="property-type"/> + </cs:typeName>.<xsl:call-template name="getKeyName"> + <xsl:with-param name="type" select="../@type"/> + </xsl:call-template>)</cs:parameter> + </cs:attribute> + </xsl:template> + + <xsl:template match="m:hasMany/clr:association" mode="property-attributes"> + <cs:attribute> + <cs:type name="Association" namespace="Linq2Db"/> + <!-- thisKey points to own primaryKey which may be inherited, using getKeyName to address such cases --> + <cs:parameter name="thisKey">nameof(<xsl:call-template name="getKeyName"> + <xsl:with-param name="type" select="../../@name"/> + </xsl:call-template>)</cs:parameter> + <cs:parameter name="otherKey">nameof(<cs:typeName> + <xsl:call-template name="getClrType"> + <xsl:with-param name="type" select="../@type"/> + </xsl:call-template> + </cs:typeName>.<xsl:call-template name="getClrPropertyName"> + <xsl:with-param name="member" select="../m:otherKey/@name"/> + <xsl:with-param name="type" select="../@type"/> + </xsl:call-template>)</cs:parameter> + </cs:attribute> + </xsl:template> + + <xsl:template match="*" mode="property-attributes"> + <xsl:apply-templates select="." mode="member-attributes"/> + </xsl:template> + + <!-- property-extension --> + <xsl:template match="*" mode="property-extension"> + <xsl:apply-templates select="." mode="member-extension"/> + </xsl:template> + + <!-- property-accessors --> + <xsl:template match="*" mode="property-accessors"> + <cs:get/> + <cs:set/> + </xsl:template> + + <xsl:template match="m:hasA[clr:lazy]/m:thisKey" mode="property-accessors"> + <cs:get> + <xsl:text>return </xsl:text> + <xsl:apply-templates select="../clr:lazy" mode="field-name"/> + <xsl:text>.Key;</xsl:text> + </cs:get> + <cs:set> + <xsl:apply-templates select="../clr:lazy" mode="field-name"/> + <xsl:text>.Key = value;</xsl:text> + </cs:set> + </xsl:template> + + <xsl:template match="m:hasA[clr:lazy]/clr:association" mode="property-accessors"> + <cs:get> + <xsl:text>return </xsl:text> + <xsl:apply-templates select="../clr:lazy" mode="field-name"/> + <xsl:text>.Instance;</xsl:text> + </cs:get> + <cs:set> + <xsl:apply-templates select="../clr:lazy" mode="field-name"/> + <xsl:text>.Instance = value;</xsl:text> + </cs:set> + </xsl:template> + + <!-- fields --> + <xsl:template match="*" mode="field"> + <cs:field> + <xsl:attribute name="name"><xsl:apply-templates select="." mode="field-name"/></xsl:attribute> + <xsl:apply-templates select="." mode="field-type"/> + <xsl:apply-templates select="." mode="field-initializer"/> + </cs:field> + </xsl:template> + + <!-- field-name --> + <xsl:template match="m:hasA/clr:lazy" mode="field-name"> + <xsl:text>m_lazy</xsl:text> + <xsl:apply-templates select=".." mode="property-name"/> + </xsl:template> + + <xsl:template match="clr:lazy[@field]" mode="field-name"> + <xsl:value-of select="@field"/> + </xsl:template> + + <xsl:template match="*" mode="field-name"> + <xsl:apply-templates select="." mode="member-name"/> + </xsl:template> + + <!-- field-type --> + <xsl:template match="m:hasA[@optional='true']/clr:lazy" mode="field-type"> + <cs:type name="NullableReference" namespace="Pallada.Data"> + <xsl:call-template name="getKeyType"> + <xsl:with-param name="type" select="../@type"/> + </xsl:call-template> + <xsl:apply-templates select=".." mode="property-type"/> + </cs:type> + </xsl:template> + <xsl:template match="m:hasA[@optional!='true']/clr:lazy" mode="field-type"> + <cs:type name="Reference" namespace="Pallada.Data"> + <xsl:apply-templates select="../m:thisKey" mode="property-type"/> + <xsl:apply-templates select=".." mode="property-type"/> + </cs:type> + </xsl:template> + + <xsl:template match="*" mode="field-type"> + <xsl:apply-templates select="." mode="member-type"/> + </xsl:template> + <!-- field-initializer --> + <xsl:template match="*|text()" mode="field-initializer"/> + + <!-- primary key --> + + <!-- Resolves primaryKey information for the given type name. + @returns m:primaryKey node copy with additional attribute + @declaringType which points to the type where this primaryKey + was defined. + --> + <xsl:template name="getKey"> + <xsl:param name="type" /> + <xsl:for-each select="exsl:node-set($fragment)"> + <xsl:apply-templates select="key('type', $type)" + mode="resolvePK" /> + </xsl:for-each> + </xsl:template> + + <!-- --> + <xsl:template name="getKeyType"> + <xsl:param name="type" /> + <xsl:variable name="otherKey"> + <xsl:call-template name="getKey"> + <xsl:with-param name="type" select="$type" /> + </xsl:call-template> + </xsl:variable> + <xsl:apply-templates select="exsl:node-set($otherKey)/m:primaryKey" mode="property-type"/> + </xsl:template> + + <xsl:template name="getKeyName"> + <xsl:param name="type" /> + <xsl:variable name="otherKey"> + <xsl:call-template name="getKey"> + <xsl:with-param name="type" select="$type" /> + </xsl:call-template> + </xsl:variable> + <xsl:apply-templates select="exsl:node-set($otherKey)/m:primaryKey" mode="property-name"/> + </xsl:template> + + <!-- internal. applied to the entity with a primaryKey node --> + <xsl:template match="m:entity[m:primaryKey]" mode="resolvePK"> + <xsl:apply-templates select="m:primaryKey" mode="resolvePK" /> + </xsl:template> + + <!-- + This template formats the result of 'resolvePk' template, + override this template to extend returned metadata, beware that + other templates rely on the resulting format of this template. + --> + <xsl:template match="m:primaryKey" mode="resolvePK"> + <xsl:copy> + <xsl:copy-of select="@*" /> + <xsl:attribute name="declaringType"><xsl:value-of select="../@name" /></xsl:attribute> + <xsl:copy-of select="*" /> + </xsl:copy> + </xsl:template> + + <!-- internal, used to traverse the hierarchy --> + <xsl:template match="m:entity" mode="resolvePK"> + <xsl:apply-templates select="m:extends" mode="resolvePK" /> + </xsl:template> + + <!-- internal, used to traverse the hierarchy --> + <xsl:template match="m:extends" mode="resolvePK"> + <xsl:apply-templates select="key('type', @type)" + mode="resolvePK" /> + </xsl:template> + + <!-- resolves CLR type for the given type --> + <xsl:template name="getClrType"> + <xsl:param name="type" /> + <xsl:param name="typeArgs" select="/.." /> + <!-- <t:trace msg="resolveClrType {$type}"/> --> + <xsl:for-each select="exsl:node-set($fragment)"> + <xsl:apply-templates select="key('type', $type)" + mode="clr-type"> + <xsl:with-param name="typeArgs" select="$typeArgs"/> + </xsl:apply-templates> + </xsl:for-each> + </xsl:template> + + <!-- CLR type construction --> + <xsl:template match="*" mode="clr-type" /> + + <xsl:template match="m:type[clr:type]" mode="clr-type"> + <xsl:param name="typeArgs" select="clr:type/*" /> + <xsl:apply-templates select="clr:type" mode="clr-type"> + <xsl:with-param name="typeArgs" select="$typeArgs" /> + </xsl:apply-templates> + </xsl:template> + + <xsl:template match="m:entity" mode="clr-type"> + <cs:type name="{@clr:name | @name[not(../@clr:name)]}" namespace="{ancestor::*[@clr:namespace]/@clr:namespace}" /> + </xsl:template> + + <xsl:template match="clr:type" mode="clr-type"> + <xsl:apply-templates mode="clr-type"/> + </xsl:template> + + <xsl:template match="clr:type[@ref]" mode="clr-type"> + <xsl:param name="typeArgs" select="*" /> + <xsl:call-template name="getClrType"> + <xsl:with-param name="type" select="@ref" /> + <xsl:with-param name="typeArgs" select="$typeArgs" /> + </xsl:call-template> + </xsl:template> + + <xsl:template match="clr:type[@cs:name or @name]" mode="clr-type"> + <xsl:param name="typeArgs" select="*" /> + <xsl:variable name="ns" + select="@cs:namespace | @namespace[not(../@cs:namespace)]" /> + <cs:type name="{@cs:name | @name[not(../@cs:name)]}"> + <xsl:if test="$ns"> + <xsl:attribute name="namespace"><xsl:value-of select="$ns" /></xsl:attribute> + </xsl:if> + <xsl:copy-of select="@struct"/> + + <xsl:apply-templates select="$typeArgs | *[not($typeArgs)]" + mode="clr-type" /> + </cs:type> + </xsl:template> + + <xsl:template match="clr:arrayOf[@type]" mode="clr-type"> + <xsl:param name="typeArgs" select="*" /> + <cs:array> + <xsl:call-template name="getClrType"> + <xsl:with-param name="type" select="@type" /> + <xsl:with-param name="typeArgs" select="$typeArgs" /> + </xsl:call-template> + </cs:array> + </xsl:template> + + <xsl:template match="clr:arrayOf[@cs:name or @name]" mode="clr-type"> + <xsl:param name="typeArgs" select="*" /> + <xsl:variable name="ns" + select="@cs:namespace | @namespace[not(../@cs:namespace)]" /> + <cs:array> + <cs:type name="{@cs:name | @name[not(../@cs:name)]}"> + <xsl:if test="$ns"> + <xsl:attribute name="namespace"><xsl:value-of + select="$ns" /></xsl:attribute> + </xsl:if> + <xsl:apply-templates select="$typeArgs | *[not($typeArgs)]" + mode="clr-type" /> + </cs:type> + </cs:array> + </xsl:template> + + <!-- member resolution traits --> + + <!-- lookups for the specified member for the specified type + and returns the CLR property name --> + <xsl:template name="getClrPropertyName"> + <xsl:param name="type"/> + <xsl:param name="member"/> + <trace msg="getClrPropertyName {$type}.{$member}"/> + <xsl:for-each select="exsl:node-set($fragment)"> + <xsl:apply-templates select="key('type', $type)" + mode="member-lookup"> + <xsl:with-param name="member" select="$member"/> + </xsl:apply-templates> + </xsl:for-each> + </xsl:template> + + <xsl:template match="*" mode="member-lookup"/> + + <xsl:template match="m:entity" mode="member-lookup"> + <xsl:param name="member"/> + <xsl:variable name="match" select="*[@name=$member]"/> + <xsl:choose> + <xsl:when test="$match"> + <xsl:apply-templates select="$match" mode="member-lookup"/> + </xsl:when> + <xsl:when test="m:extends"> + <xsl:call-template name="getClrPropertyName"> + <xsl:with-param name="type" select="m:extends/@type"/> + <xsl:with-param name="member" select="$member"/> + </xsl:call-template> + </xsl:when> + </xsl:choose> + </xsl:template> + + <xsl:template match="m:property | m:primaryKey" mode="member-lookup"> + <xsl:apply-templates select="." mode="property-name" /> + </xsl:template> + + <xsl:template match="m:hasA" mode="member-lookup"> + <xsl:apply-templates select="m:thisKey" mode="property-name"/> + </xsl:template> + +</xsl:stylesheet>
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/xslt/preprocess.xslt Wed Feb 21 03:01:53 2018 +0300 @@ -0,0 +1,19 @@ +<?xml version="1.0" encoding="utf-8"?> +<xsl:stylesheet version="1.0" + xmlns:xsl="http://www.w3.org/1999/XSL/Transform" + xmlns:m="urn:implab.org:schemas:data-models:v1" + xmlns:dom="urn:implab.org:schemas:code-dom:v1" + xmlns:exsl="http://exslt.org/common"> + <xsl:output method="xml" indent="yes" /> + <xsl:template match="/"> + <xsl:apply-templates mode="preprocess"/> + </xsl:template> + + <xsl:template match="package"> + <xsl:apply-templates> + </xsl:template> + + <xsl:template match="m:include" mode="preprocess"> + <xsl:variable name="doc" select="document(@href)"/> + </xsl:template> +</xsl:stylesheet> \ No newline at end of file
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/xslt/text-tools.xsl Wed Feb 21 03:01:53 2018 +0300 @@ -0,0 +1,41 @@ +<?xml version="1.0" encoding="UTF-8"?> +<xsl:stylesheet version="1.0" + xmlns:xsl="http://www.w3.org/1999/XSL/Transform"> + <!-- TEXT ROUTINES --> + <xsl:template name="write-line"> + <xsl:param name="level" select="0" /> + <xsl:param name="text" /> + <xsl:call-template name="indent"> + <xsl:with-param name="level" select="$level" /> + </xsl:call-template> + <xsl:value-of select="$text" /> + <xsl:text>
</xsl:text> + </xsl:template> + + <xsl:template name="indent"> + <xsl:param name="level" select="0" /> + <xsl:if test="$level > 0"> + <xsl:text> </xsl:text> + <xsl:call-template name="indent"> + <xsl:with-param name="level" select="$level - 1" /> + </xsl:call-template> + </xsl:if> + </xsl:template> + + <xsl:template name="to-lower-first"> + <xsl:param name="value" /> + <xsl:variable name="smallcase" select="'abcdefghijklmnopqrstuvwxyz'" /> + <xsl:variable name="uppercase" select="'ABCDEFGHIJKLMNOPQRSTUVWXYZ'" /> + <xsl:variable name="before" select="substring($value,1,1)" /> + <xsl:variable name="after" select="substring($value,2)" /> + <xsl:value-of + select="concat(translate($before,$uppercase,$smallcase), $after)" /> + </xsl:template> + + <xsl:template name="to-lower"> + <xsl:param name="value" /> + <xsl:variable name="smallcase" select="'abcdefghijklmnopqrstuvwxyz'" /> + <xsl:variable name="uppercase" select="'ABCDEFGHIJKLMNOPQRSTUVWXYZ'" /> + <xsl:value-of select="translate($value,$uppercase,$smallcase)" /> + </xsl:template> +</xsl:stylesheet> \ No newline at end of file