diff -r be6c3a036844 -r 7280349a3375 plcopen/instances_path.ysl2 --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/plcopen/instances_path.ysl2 Wed Oct 09 23:06:47 2013 +0200 @@ -0,0 +1,135 @@ +include yslt.yml2 +estylesheet xmlns:ppx="http://www.plcopen.org/xml/tc6_0201" + xmlns:xhtml="http://www.w3.org/1999/xhtml" + xmlns:ns="instances_ns" + extension-element-prefixes="ns" + exclude-result-prefixes="ns" { + + param "instance_type"; + + template "text()"; + + variable "project" { + copy "document('project')/project/*"; + } + + variable "stdlib" { + copy "document('stdlib')/stdlib/*"; + } + variable "extensions" { + copy "document('extensions')/extensions/*"; + } + + template "ppx:project" { + instances { + apply "ppx:instances/ppx:configurations/ppx:configuration"; + } + } + + template "ppx:configuration" { + apply "ppx:globalVars/ppx:variable[ppx:type/ppx:derived] | ppx:resource" { + with "parent_path" > «@name» + } + } + + template "ppx:resource" { + param "parent_path"; + variable "resource_path" > «$parent_path».«@name» + apply "ppx:globalVars/ppx:variable[ppx:type/ppx:derived] | ppx:pouInstance | ppx:task/ppx:pouInstance" { + with "parent_path" > «$resource_path» + } + } + + template "ppx:pouInstance" { + param "parent_path"; + variable "pou_instance_path" > «$parent_path».«@name» + choose { + when "@typeName=$instance_type" { + value "ns:AddInstance($pou_instance_path)"; + } + otherwise { + variable "type_name" > «@typeName» + apply """exsl:node-set($project)/ppx:project/ppx:types/ppx:pous/ppx:pou[@name=$type_name] | + exsl:node-set($project)/ppx:project/ppx:types/ppx:dataTypes/ppx:dataType[@name=$type_name] | + exsl:node-set($stdlib)/ppx:project/ppx:types/ppx:pous/ppx:pou[@name=$type_name] | + exsl:node-set($stdlib)/ppx:project/ppx:types/ppx:dataTypes/ppx:dataType[@name=$type_name] | + exsl:node-set($extensions)/ppx:project/ppx:types/ppx:pous/ppx:pou[@name=$type_name] | + exsl:node-set($extensions)/ppx:project/ppx:types/ppx:dataTypes/ppx:dataType[@name=$type_name]""" { + with "instance_path" > «$pou_instance_path» + } + } + } + } + + template "ppx:pou" { + param "instance_path"; + apply "ppx:interface/*/ppx:variable[ppx:type/ppx:derived]" { + with "parent_path" > «$instance_path» + } + } + + template "ppx:dataType" { + param "instance_path"; + apply "ppx:baseType/*[self::ppx:derived or self::ppx:struct or self::ppx:array]" { + with "parent_path" > «$instance_path» + } + } + + template "ppx:variable" { + param "parent_path"; + variable "variable_path" > «$parent_path».«@name» + apply "ppx:type/ppx:derived" { + with "variable_path" > «$variable_path» + } + } + + template "ppx:derived" { + param "variable_path"; + choose { + when "@name=$instance_type" { + value "ns:AddInstance($variable_path)"; + } + otherwise { + variable "type_name" > «@name» + apply """exsl:node-set($project)/ppx:project/ppx:types/ppx:pous/ppx:pou[@name=$type_name] | + exsl:node-set($project)/ppx:project/ppx:types/ppx:dataTypes/ppx:dataType[@name=$type_name] | + exsl:node-set($stdlib)/ppx:project/ppx:types/ppx:pous/ppx:pou[@name=$type_name] | + exsl:node-set($stdlib)/ppx:project/ppx:types/ppx:dataTypes/ppx:dataType[@name=$type_name] | + exsl:node-set($extensions)/ppx:project/ppx:types/ppx:pous/ppx:pou[@name=$type_name] | + exsl:node-set($extensions)/ppx:project/ppx:types/ppx:dataTypes/ppx:dataType[@name=$type_name]""" { + with "instance_path" > «$variable_path» + } + } + } + } + + template "ppx:struct" { + param "variable_path"; + foreach "ppx:variable[ppx:type/ppx:derived or ppx:type/ppx:struct or ppx:type/ppx:array]" { + variable "element_path" > «$variable_path».«@name» + } + apply "ppx:type/*[self::ppx:derived or self::ppx:struct or self::ppx:array]" { + with "variable_path" > «$element_path» + } + } + + template "ppx:array" { + param "variable_path"; + apply "ppx:baseType/*[self::ppx:derived or self::ppx:struct or self::ppx:array]" { + with "variable_path" > «$variable_path» + } + } + + template "pou_instance" { + apply { + with "instance_path" > «@pou_path» + } + } + + template "datatype_instance" { + apply { + with "instance_path" > «@datatype_path» + } + } + +}