beremiz: etherlab/entries_list.ysl2@48c9a5f6ce38 (annotated)

2165 02a2b5dee5e3 Merged GPL + LGPL v2 or later EtherCAT extension. Fixed headers and copyright notice. Edouard Tisserant <edouard.tisserant@gmail.com> parents: 2162 diff changeset	1	/*
02a2b5dee5e3 Merged GPL + LGPL v2 or later EtherCAT extension. Fixed headers and copyright notice. Edouard Tisserant <edouard.tisserant@gmail.com> parents: 2162 diff changeset	2
02a2b5dee5e3 Merged GPL + LGPL v2 or later EtherCAT extension. Fixed headers and copyright notice. Edouard Tisserant <edouard.tisserant@gmail.com> parents: 2162 diff changeset	3	Stylesheet used to list EtherCat dictionnary entries.
02a2b5dee5e3 Merged GPL + LGPL v2 or later EtherCAT extension. Fixed headers and copyright notice. Edouard Tisserant <edouard.tisserant@gmail.com> parents: 2162 diff changeset	4
02a2b5dee5e3 Merged GPL + LGPL v2 or later EtherCAT extension. Fixed headers and copyright notice. Edouard Tisserant <edouard.tisserant@gmail.com> parents: 2162 diff changeset	5	Copyright (C) 2011-2014: Laurent BESSARD
02a2b5dee5e3 Merged GPL + LGPL v2 or later EtherCAT extension. Fixed headers and copyright notice. Edouard Tisserant <edouard.tisserant@gmail.com> parents: 2162 diff changeset	6
02a2b5dee5e3 Merged GPL + LGPL v2 or later EtherCAT extension. Fixed headers and copyright notice. Edouard Tisserant <edouard.tisserant@gmail.com> parents: 2162 diff changeset	7	Distributed under the terms of the GNU Lesser General Public License as
02a2b5dee5e3 Merged GPL + LGPL v2 or later EtherCAT extension. Fixed headers and copyright notice. Edouard Tisserant <edouard.tisserant@gmail.com> parents: 2162 diff changeset	8	published by the Free Software Foundation; either version 2 of the License, or
02a2b5dee5e3 Merged GPL + LGPL v2 or later EtherCAT extension. Fixed headers and copyright notice. Edouard Tisserant <edouard.tisserant@gmail.com> parents: 2162 diff changeset	9	(at your option) any later version.
02a2b5dee5e3 Merged GPL + LGPL v2 or later EtherCAT extension. Fixed headers and copyright notice. Edouard Tisserant <edouard.tisserant@gmail.com> parents: 2162 diff changeset	10
02a2b5dee5e3 Merged GPL + LGPL v2 or later EtherCAT extension. Fixed headers and copyright notice. Edouard Tisserant <edouard.tisserant@gmail.com> parents: 2162 diff changeset	11	See COPYING file for copyrights details.
02a2b5dee5e3 Merged GPL + LGPL v2 or later EtherCAT extension. Fixed headers and copyright notice. Edouard Tisserant <edouard.tisserant@gmail.com> parents: 2162 diff changeset	12
02a2b5dee5e3 Merged GPL + LGPL v2 or later EtherCAT extension. Fixed headers and copyright notice. Edouard Tisserant <edouard.tisserant@gmail.com> parents: 2162 diff changeset	13	*/
02a2b5dee5e3 Merged GPL + LGPL v2 or later EtherCAT extension. Fixed headers and copyright notice. Edouard Tisserant <edouard.tisserant@gmail.com> parents: 2162 diff changeset	14
2162 43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	15	include yslt.yml2
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	16	estylesheet xmlns:ns="entries_list_ns"
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	17	extension-element-prefixes="ns"
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	18	exclude-result-prefixes="ns" {
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	19
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	20	param "min_index";
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	21	param "max_index";
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	22
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	23	template "text()";
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	24
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	25	template "Device" {
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	26	apply "Profile/Dictionary/Objects/Object";
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	27	foreach "RxPdo" {
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	28	call "pdo_entries" with "direction", "'Receive'";
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	29	}
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	30	foreach "TxPdo" {
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	31	call "pdo_entries" with "direction", "'Transmit'";
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	32	}
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	33	}
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	34
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	35	template "Object" {
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	36	variable "index" > «ns:HexDecValue(Index/text())»
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	37	variable "entry_name" > «ns:EntryName(Name)»
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	38	choose {
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	39	when "$index >= $min_index and $index <= $max_index" {
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	40	variable "datatype_name" > «Type/text()»
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	41	choose {
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	42	when "ancestor::Dictionary/child::DataTypes/DataType[Name/text()=$datatype_name][SubItem]" {
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	43	apply "ancestor::Dictionary/child::DataTypes/DataType[Name/text()=$datatype_name][SubItem]" {
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	44	with "index" > «$index»
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	45	with "entry_name" > «$entry_name»
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	46	}
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	47	}
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	48	otherwise {
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	49	variable "subindex" > 0
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	50	variable "entry" {
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	51	> «ns:AddEntry($index, $subindex, $entry_name, $datatype_name, BitSize/text(), Flags/Access/text(), Flags/PdoMapping/text())»
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	52	}
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	53	}
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	54	}
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	55	}
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	56	}
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	57	}
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	58
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	59	template "DataType" {
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	60	param "index";
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	61	param "entry_name";
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	62	foreach "SubItem" {
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	63	variable "subindex" > «ns:HexDecValue(SubIdx/text())»
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	64	variable "subentry_name" > «$entry_name» - «ns:EntryName(DisplayName, Name/text())»
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	65	variable "entry" {
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	66	> «ns:AddEntry($index, $subindex, $subentry_name, Type/text(), BitSize/text(), Flags/Access/text(), Flags/PdoMapping/text())»
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	67	}
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	68	}
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	69	}
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	70
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	71	function "pdo_entries" {
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	72	param "direction";
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	73	variable "pdo_index" > «ns:HexDecValue(Index/text())»
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	74	variable "pdo_name" > «ns:EntryName(Name)»
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	75	foreach "Entry" {
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	76	variable "index" > «ns:HexDecValue(Index/text())»
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	77	choose {
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	78	when "$index >= $min_index and $index <= $max_index" {
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	79	variable "subindex" > «ns:HexDecValue(SubIndex/text())»
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	80	variable "subentry_name" > «ns:EntryName(Name)»
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	81	variable "access" {
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	82	choose {
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	83	when "$direction='Transmit'" > ro
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	84	otherwise > wo
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	85	}
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	86	}
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	87	variable "pdo_mapping" {
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	88	choose {
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	89	when "$direction='Transmit'" > T
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	90	otherwise > R
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	91	}
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	92	}
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	93	variable "entry" {
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	94	> «ns:AddEntry($index, $subindex, $subentry_name, DataType/text(), BitLen/text(), $access, $pdo_mapping, $pdo_index, $pdo_name, $direction)»
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	95	}
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	96	}
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	97	}
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	98	}
43ab74687f45 Fixed xslt stylesheet for extracting entries defined in module, rewiting xslt stylesheet to yslt Laurent Bessard parents: diff changeset	99	}
2165 02a2b5dee5e3 Merged GPL + LGPL v2 or later EtherCAT extension. Fixed headers and copyright notice. Edouard Tisserant <edouard.tisserant@gmail.com> parents: 2162 diff changeset	100	}

author	Edouard Tisserant <edouard.tisserant@gmail.com>
	Fri, 03 Apr 2020 08:30:00 +0200
branch	svghmi
changeset 2915	48c9a5f6ce38
parent 2165	02a2b5dee5e3
child 2641	c9deff128c37
permissions	-rw-r--r--