1

include yslt_noindent.yml2

     2

     3

// overrides yslt's output function to set CDATA

     4

decl output(method, cdata-section-elements="script");

     5

     6

istylesheet

     7

            /* From Inkscape */

     8

            xmlns:dc="http://purl.org/dc/elements/1.1/"

     9

            xmlns:cc="http://creativecommons.org/ns#"

    10

            xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"

    11

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

    12

            xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd"

    13

            xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"

    14

    15

            /* Our namespace to invoke python code */

    16

            xmlns:ns="beremiz"

    17

            extension-element-prefixes="ns func"

    18

            exclude-result-prefixes="ns str regexp exsl func" {

    19

    20

    /* This retrieves geometry obtained through "inkscape -S"

    21

     * already parsed by python and presented as a list of

    22

     * <bbox x="0" y="0" w="42" h="42">

    23

     */

    24

    const "geometry", "ns:GetSVGGeometry()";

    25

    const "hmitree", "ns:GetHMITree()";

    26

    28

    const "hmi_geometry", "$geometry[@Id = $hmi_elements/@id]";

    29

    30

    const "hmi_pages", "$hmi_elements[func:parselabel(@inkscape:label)/widget/@type = 'Page']";

    31

    32

    const "default_page" choose {

    33

        when "count($hmi_pages) > 1" {

    34

            const "Home_page", 

    35

                "$hmi_pages[func:parselabel(@inkscape:label)/widget/arg[1]/@value = 'Home']";

    36

            choose {

    37

                when "$Home_page" > Home

    38

                otherwise {

    39

                    error "No Home page defined!";

    40

                }

    41

            }

    42

        }

    43

        when "count($hmi_pages) = 0" {

    44

            error "No page defined!";

    45

        }

    46

        otherwise > «func:parselabel($hmi_pages/@inkscape:label)/widget/arg[1]/@value»

    47

    }

    48

    49

    const "_categories" {

    50

        noindex > HMI_ROOT

    51

        noindex > HMI_LABEL

    52

        noindex > HMI_CLASS

    53

        noindex > HMI_PLC_STATUS

    54

        noindex > HMI_CURRENT_PAGE

    55

    }

    56

    const "categories", "exsl:node-set($_categories)";

    57

    const "_indexed_hmitree" apply "$hmitree", mode="index";

    58

    const "indexed_hmitree", "exsl:node-set($_indexed_hmitree)";

    59

    60

    template "*", mode="index" {

    61

        param "index", "0";

    62

        param "parentpath", "''";

    63

        const "content" {

    64

            const "path"

    65

                choose {

    66

                    when "local-name() = 'HMI_ROOT'" > «$parentpath»

    67

                    otherwise > «$parentpath»/«@name»

    68

                }

    69

            choose {

    70

                when "not(local-name() = $categories/noindex)" {

    71

                    xsl:copy {

    72

                        attrib "index" > «$index»

    73

                        attrib "hmipath" > «$path»

    74

                        foreach "@*" xsl:copy;

    75

                    }

    76

                    /* no node expected below value nodes */

    77

                }

    78

                otherwise {

    79

                    apply "*[1]", mode="index"{

    80

                        with "index", "$index";

    81

                        with "parentpath" > «$path»

    82

                    }

    83

                }

    84

            }

    85

        }

    86

    87

        copy "$content";

    88

        apply "following-sibling::*[1]", mode="index" {

    89

            with "index", "$index + count(exsl:node-set($content)/*)";

    90

            with "parentpath" > «$parentpath»

    91

        }

    92

    }

    93

    94

    /* Identity template :

    95

     *  - copy every attributes 

    96

     *  - copy every sub-elements

    97

     */

    98

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

    99

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

   100

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

   101

    }

   102

   103

    /*const "mark" > =HMI=\n*/

   104

   105

    /* copy root node and add geometry as comment for a test */

   106

    template "/" { 

   107

        comment > Made with SVGHMI. https://beremiz.org

   108

        html xmlns="http://www.w3.org/1999/xhtml" {

   109

            head;

   110

            body style="margin:0;" {

   111

                xsl:copy {

   112

                    comment {

   113

                        apply "$hmi_geometry", mode="testgeo";

   114

                    }

   115

                    comment {

   116

                        apply "$hmitree", mode="testtree";

   117

                    }

   118

                    comment {

   119

                        apply "$indexed_hmitree", mode="testtree";

   120

                    }

   121

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

   122

                }

   123

                script{

   124

                    call "scripts";

   125

                }

   126

            }

   127

        }

   128

    }

   129

   130

    func:function name="func:parselabel" {

   131

        param "label";

   132

        const "description", "substring-after($label,'HMI:')";

   133

   134

        const "_args", "substring-before($description,'@')";

   135

        const "args" choose {

   136

            when "$_args" value "$_args";

   137

            otherwise value "$description";

   138

        }

   139

   140

        const "_type", "substring-before($args,':')";

   141

        const "type" choose {

   142

            when "$_type" value "$_type";

   143

            otherwise value "$args";

   144

        }

   145

   146

        const "ast" if "$type" widget {

   147

            attrib "type" > «$type»

   148

            foreach "str:split(substring-after($args, ':'), ':')" {

   149

                arg {

   150

                    attrib "value" > «.»

   151

                }

   152

            }

   153

            const "paths", "substring-after($description,'@')";

   154

            foreach "str:split($paths, '@')" {

   155

                path {

   156

                    attrib "value" > «.»

   157

                }

   158

            }

   159

        }

   160

   161

        func:result select="exsl:node-set($ast)"

   162

    }

   163

   164

    function "scripts"

   165

    {

   168

   169

        /* TODO re-enable

   170

        ||

   171

        function evaluate_js_from_descriptions() {

   172

            var Page;

   173

            var Input;

   174

            var Display;

   175

            var res = [];

   176

        ||

   177

        const "midmark" > \n«$mark»

   178

        apply """//*[contains(child::svg:desc, $midmark) or \

   179

                     starts-with(child::svg:desc, $mark)]""",2 

   180

              mode="code_from_descs";

   181

        ||

   182

            return res;

   183

        }

   184

        ||

   185

        */

   186

   211

   212

        const "svg","/"; /* foreach loses document root */

   213

        foreach "$indexed_hmitree/*" {

   216

            |     ids: [

   217

            const "hmipath","@hmipath";

   218

            foreach "$svg//*[substring-after(@inkscape:label,'@') = $hmipath]" {

   220

            }

   221

            |     ]

   222

            | }`if "position()!=last()" > ,`

   223

        }

   224

   226

        |

   227

        | var page_desc = {

   228

   229

        foreach "$hmi_pages" {

   230

            const "desc", "func:parselabel(@inkscape:label)/widget";

   237

            |     "«$desc/arg[1]/@value»": {

   238

            |         id: "«@id»",

   239

            |         widgets: [

   242

            }

   243

            |         ]

   255

        }

   256

        | }

   257

   258

        |

   259

        | var default_page = "«$default_page»";

   260

   261

        include text svghmi.js

   262

    }

   263

   264

    /*

   265

        Parses:

   266

        "HMI:WidgetType:param1:param2@path1@path2"

   267

   268

        Into:

   269

        widget type="WidgetType" {

   270

            arg value="param1";

   271

            arg value="param2";

   272

            path value="path1";

   273

            path value="path2";

   274

        }

   275

    */

   276

   277

    template "*", mode="page_desc" {

   278

    }

   279

   280

    template "*", mode="code_from_descs" {

   281

        ||

   282

        {

   283

            var path, role, name, priv;

   284

            var id = "«@id»";

   285

        ||

   286

   287

        /* if label is used, use it as default name */

   288

        if "@inkscape:label"

   289

            |> name = "«@inkscape:label»";

   290

   291

        | /* -------------- */

   292

   293

        // this breaks indent, but fixing indent could break string literals

   294

        value "substring-after(svg:desc, $mark)";

   295

        // nobody reads generated code anyhow...

   296

   297

        ||

   298

   299

            /* -------------- */

   300

            res.push({

   301

                path:path,

   302

                role:role,

   303

                name:name,

   304

                priv:priv

   305

            })

   306

        }

   307

        ||

   308

    }

   309

   310

   311

    template "bbox", mode="testgeo"{

   312

        | ID: «@Id» x: «@x» y: «@y» w: «@w» h: «@h»

   313

    }

   314

   315

    template "*", mode="testtree"{

   316

        param "indent", "''";

   317

        > «$indent» «local-name()» 

   318

        foreach "@*" > «local-name()»=«.» 

   319

        > \n

   320

        apply "*", mode="testtree" {

   321

            with "indent" value "concat($indent,'>')"

   322

        };

   323

    }

   329

}