1

// inline_svg.ysl2

     2

//

     3

// Produce Inline SVG element of resulting XHTML page.

     4

     5

// Since stylesheet output namespace is xhtml, templates that output svg have to be explicitely declared as such 

     6

in xsl decl svgtmpl(match, xmlns="http://www.w3.org/2000/svg") alias template;

     7

in xsl decl svgfunc(name, xmlns="http://www.w3.org/2000/svg") alias template;

     8

     9

    10

// Identity template :

    11

//  - copy every attributes 

    12

//  - copy every sub-elements

    13

template "@* | node()", mode="inline_svg" {

    14

  // use real xsl:copy instead copy-of alias from yslt.yml2

    15

  if "not(@id = $discardable_elements/@id)"

    16

      xsl:copy apply "@* | node()", mode="inline_svg";

    17

}

    18

    19

// replaces inkscape's height and width hints. forces fit

    20

template "svg:svg/@width", mode="inline_svg";

    21

template "svg:svg/@height", mode="inline_svg";

    22

svgtmpl "svg:svg", mode="inline_svg" svg {

    23

    attrib "preserveAspectRatio" > none

    24

    attrib "height" > 100vh

    25

    attrib "width" > 100vw

    26

    apply "@* | node()", mode="inline_svg";

    27

}

    28

// ensure that coordinate in CSV file generated by inkscape are in default reference frame

    29

template "svg:svg[@viewBox!=concat('0 0 ', @width, ' ', @height)]", mode="inline_svg" {

    30

    error > ViewBox settings other than X=0, Y=0 and Scale=1 are not supported

    31

}

    32

// ensure that coordinate in CSV file generated by inkscape match svg default unit

    33

template "sodipodi:namedview[@units!='px' or @inkscape:document-units!='px']", mode="inline_svg" {

    34

    error > All units must be set to "px" in Inkscape's document properties

    35

}

    36

    37

////// Clone unlinking

    38

//

    39

// svg:use (inkscape's clones) inside a widgets are

    40

// replaced by real elements they refer in order to :

    41

//  - allow finding "needle" element in "meter" widget,

    42

//    even if "needle" is in a group refered by a svg use.

    43

//  - if "needle" is visible through a svg:use for

    44

//    each instance of the widget, then needle would show

    45

//    the same position in all instances

    46

//

    47

// For now, clone unlinkink applies to descendants of all widget except HMI:Page

    48

// TODO: narrow application of clone unlinking to active elements,

    49

//       while keeping static decoration cloned

    50

const "hmi_lists_descs", "$parsed_widgets/widget[@type = 'List']";

    51

const "hmi_lists", "$hmi_elements[@id = $hmi_lists_descs/@id]";

    52

const "targets_not_to_unlink", "$hmi_lists/descendant-or-self::svg:*";

    53

const "to_unlink", "$hmi_elements[not(@id = $hmi_pages/@id)]/descendant-or-self::svg:use";

    54

svgtmpl "svg:use", mode="inline_svg"

    55

{

    56

    param "seed";

    57

    const "targetid","substring-after(@xlink:href,'#')";

    58

    choose {

    59

        when "@id = $to_unlink/@id and not($targetid = $targets_not_to_unlink/@id)" {

    60

            call "unlink_clone" {

    61

                with "targetid", "$targetid";

    62

                with "seed","$seed";

    63

            }

    64

        }

    65

        otherwise

    66

            xsl:copy apply "@* | node()", mode="inline_svg";

    67

    }

    68

}

    69

    70

// to unlink a clone, an group containing a copy of target element is created

    71

// that way, style and transforms can be preserved

    72

const "_excluded_use_attrs" {

    73

    name > href

    74

    name > width

    75

    name > height

    76

    name > x

    77

    name > y

    78

    name > id

    79

}

    80

const "excluded_use_attrs","exsl:node-set($_excluded_use_attrs)";

    81

    82

const "_merge_use_attrs" {

    83

    name > transform

    84

    name > style

    85

}

    86

const "merge_use_attrs","exsl:node-set($_merge_use_attrs)";

    87

    88

svgfunc "unlink_clone"{

    89

    param "targetid";

    90

    param "seed";

    91

    const "target", "//svg:*[@id = $targetid]";

    92

    const "seeded_id","concat($seed, @id)";

    93

    g{

    94

        attrib "id" value "$seeded_id";

    95

        choose {

    96

            when "$target[self::svg:g]" {

    97

                foreach "@*[not(local-name() = $excluded_use_attrs/name | $merge_use_attrs)]"

    98

                    attrib "{name()}" > «.»

    99

   100

                if "@style | $target/@style"

   101

                    attrib "style" {

   102

                        > «@style»

   103

                        if "@style and $target/@style" > ;

   104

                        > «$target/@style»

   105

                    }

   106

   107

                if "@transform | $target/@transform"

   108

                    attrib "transform" {

   109

                        > «@transform»

   110

                        if "@transform and $target/@transform" >  

   111

                        > «$target/@transform»

   112

                    }

   113

   114

                apply "$target/*", mode="unlink_clone"{

   115

                    with "seed","concat($seed, @id)";

   116

                }

   117

            }

   118

            otherwise {

   119

                // include non excluded attributes

   120

                foreach "@*[not(local-name() = $excluded_use_attrs/name)]"

   121

                    attrib "{name()}" > «.»

   122

   123

                apply "$target", mode="unlink_clone"{

   124

                    with "seed","concat($seed, @id)";

   125

                }

   126

            }

   127

        }

   128

    }

   129

}

   130

   131

// clone unlinking is really similar to deep-copy

   132

// all nodes are sytematically copied

   133

svgtmpl "@id", mode="unlink_clone" {

   134

    param "seed";

   135

    attrib "id" > «$seed»_«.»

   136

}

   137

   138

svgtmpl "@*", mode="unlink_clone" xsl:copy;

   139

   140

svgtmpl "svg:use", mode="unlink_clone" {

   141

    param "seed";

   142

    apply "." mode="inline_svg" with "seed","concat($seed, '_')";

   143

}

   144

   145

// copying widgets would have unwanted effect

   146

// instead widget is refered through a svg:use.

   147

svgtmpl "svg:*", mode="unlink_clone" {

   148

    param "seed";

   149

    choose {

   150

        // node recursive copy ends when finding a widget

   151

        when "@id = $hmi_elements/@id" {

   152

            // place a clone instead of copying

   153

            use{

   154

                attrib "xlink:href" > «concat('#',@id)»

   155

            }

   156

        }

   157

        otherwise {

   158

            xsl:copy apply "@* | node()", mode="unlink_clone" {

   159

                with "seed","$seed";

   160

            }

   161

        }

   162

    }

   163

}

   164

   165

const "result_svg" apply "/", mode="inline_svg";

   166

const "result_svg_ns", "exsl:node-set($result_svg)";

   167

   168

emit "preamble:inline-svg" {

   169

    | let id = document.getElementById.bind(document);

   170

    | var svg_root = id("«$svg/@id»");

   171

}

   172

   173

emit "debug:clone-unlinking" {

   174

    |

   175

    | Unlinked :

   176

    foreach "$to_unlink"{

   177

        | «@id»

   178

    }

   179

    | Not to unlink :

   180

    foreach "$targets_not_to_unlink"{

   181

        | «@id»

   182

    }

   183

}