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

    14

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

    15

    16

template "node()", mode="inline_svg" {

    17

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

    18

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

    19

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

    20

}

    21

    22

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

    23

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

    24

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

    25

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

    26

    attrib "preserveAspectRatio" > none

    27

    attrib "height" > 100vh

    28

    attrib "width" > 100vw

    29

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

    30

}

    31

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

    32

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

    33

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

    34

}

    35

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

    36

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

    37

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

    38

}

    39

    40

// remove i18n markers, so that defs_by_labels can find text elements

    41

svgtmpl "svg:text/@inkscape:label[starts-with(., '_')]", mode="inline_svg" {

    42

    attrib "{name()}" > «substring(., 2)»

    43

}

    44

    45

// remove "reference" and "frame" rectangles

    46

svgtmpl "svg:rect[@inkscape:label='reference' or @inkscape:label='frame']", mode="inline_svg" {

    47

    // nothing

    48

}

    49

    50

svgtmpl "svg:g[svg:rect/@inkscape:label='frame']", mode="inline_svg" {

    51

    const "reference_rect","(../svg:rect | ../svg:g/svg:rect)[@inkscape:label='reference']";

    52

    const "frame_rect","svg:rect[@inkscape:label='frame']";

    53

    const "offset","func:offset($frame_rect, $reference_rect)";

    54

    55

    xsl:copy {

    56

        attrib "svghmi_x_offset" value "$offset/vector/@x";

    57

        attrib "svghmi_y_offset" value "$offset/vector/@y";

    58

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

    59

    }

    60

}

    61

    62

////// Clone unlinking

    63

//

    64

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

    65

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

    66

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

    67

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

    68

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

    69

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

    70

//    the same position in all instances

    71

//

    72

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

    73

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

    74

//       while keeping static decoration cloned

    75

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

    76

const "to_unlink", "$hmi_widgets/descendant-or-self::svg:use";

    77

    78

def "func:is_unlinkable" {

    79

    param "targetid";

    80

    param "eltid";

    81

    result "$eltid = $to_unlink/@id and not($targetid = $targets_not_to_unlink/@id)";

    82

}

    83

    84

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

    85

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

    86

    choose {

    87

        when "func:is_unlinkable($targetid, @id)" {

    88

            call "unlink_clone" {

    89

                with "targetid", "$targetid";

    90

            }

    91

        }

    92

        otherwise xsl:copy apply "@*", mode="inline_svg";

    93

    }

    94

}

    95

    96

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

    97

// that way, style and transforms can be preserved

    98

const "_excluded_use_attrs" {

    99

    name > href

   100

    name > width

   101

    name > height

   102

    name > x

   103

    name > y

   104

    name > id

   105

}

   106

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

   107

   108

const "_merge_use_attrs" {

   109

    name > transform

   110

    name > style

   111

}

   112

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

   113

   114

svgfunc "unlink_clone"{

   115

    param "targetid";

   116

    param "seed","''";

   117

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

   118

    const "seeded_id" choose {

   119

        when "string-length($seed) > 0" > «$seed»_«@id»

   120

        otherwise value "@id";

   121

    }

   122

    g{

   123

        attrib "id" value "$seeded_id";

   124

        attrib "original" value "@id";

   125

   126

        choose {

   127

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

   128

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

   129

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

   130

   131

                if "@style | $target/@style"

   132

                    attrib "style" {

   133

                        > «@style»

   134

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

   135

                        > «$target/@style»

   136

                    }

   137

   138

                if "@transform | $target/@transform"

   139

                    attrib "transform" {

   140

                        > «@transform»

   141

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

   142

                        > «$target/@transform»

   143

                    }

   144

   145

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

   146

                    with "seed","$seeded_id";

   147

                }

   148

            }

   149

            otherwise {

   150

                // include non excluded attributes

   151

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

   152

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

   153

   154

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

   155

                    with "seed","$seeded_id";

   156

                }

   157

            }

   158

        }

   159

    }

   160

}

   161

   162

// clone unlinking is really similar to deep-copy

   163

// all nodes are sytematically copied

   164

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

   165

    param "seed";

   166

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

   167

    attrib "original" > «.»

   168

}

   169

   170

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

   171

   172

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

   173

    param "seed";

   174

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

   175

    choose {

   176

        when "func:is_unlinkable($targetid, @id)" {

   177

            call "unlink_clone" {

   178

                with "targetid", "$targetid";

   179

                with "seed","$seed";

   180

            }

   181

        }

   182

        otherwise xsl:copy apply "@*", mode="unlink_clone" {

   183

            with "seed","$seed";

   184

        }

   185

    }

   186

}

   187

   188

// copying widgets would have unwanted effect

   189

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

   190

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

   191

    param "seed";

   192

    choose {

   193

        // node recursive copy ends when finding a widget

   194

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

   195

            // place a clone instead of copying

   196

            use{

   197

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

   198

            }

   199

        }

   200

        otherwise {

   201

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

   202

                with "seed","$seed";

   203

            }

   204

        }

   205

    }

   206

}

   207

   208

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

   209

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

   210

   211

emit "preamble:inline-svg" {

   212

    | const xmlns = "http://www.w3.org/2000/svg";

   213

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

   214

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

   215

}

   216

   217

emit "debug:clone-unlinking" {

   218

    |

   219

    | Unlinked :

   220

    foreach "$to_unlink"{

   221

        | «@id»

   222

    }

   223

    | Not to unlink :

   224

    foreach "$targets_not_to_unlink"{

   225

        | «@id»

   226

    }

   227

}