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

    32

    const "_categories" {

    33

        noindex > HMI_ROOT

    34

        noindex > HMI_LABEL

    35

        noindex > HMI_CLASS

    36

        noindex > HMI_PLC_STATUS

    37

        noindex > HMI_CURRENT_PAGE

    38

    }

    39

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

    40

    //const "indexed_hmitree", "$hmitree[not(local-name() = $categories/noindex/text())]";

    41

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

    42

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

    43

    45

        param "index", "0";

    46

        param "parentpath", "''";

    47

        const "content" {

    48

            const "path"

    49

                choose {

    50

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

    51

                    otherwise > «$parentpath»/«@name»

    52

                }

    53

            choose {

    54

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

    55

                    xsl:copy {

    56

                        attrib "index" > «$index»

    57

                        attrib "hmipath" > «$path»

    58

                        foreach "@*" xsl:copy;

    59

                    }

    60

                    /* no node expected below value nodes */

    61

                }

    62

                otherwise {

    63

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

    64

                        with "index", "$index";

    65

                        with "parentpath" > «$path»

    66

                    }

    67

                }

    68

            }

    69

        }

    70

    71

        copy "$content";

    72

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

    73

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

    74

            with "parentpath" > «$parentpath»

    75

        }

    76

    }

    77

    78

    /* Identity template :

    79

     *  - copy every attributes 

    80

     *  - copy every sub-elements

    81

     */

    82

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

    83

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

    84

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

    85

    }

    86

    88

    89

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

    90

    template "/" { 

    91

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

    92

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

    93

            head;

    94

            body style="margin:0;" {

    95

                xsl:copy {

    96

                    comment {

    98

                    }

    99

                    comment {

   100

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

   101

                    }

   102

                    comment {

   103

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

   104

                    }

   105

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

   106

                }

   107

                script{

   108

                    call "scripts";

   109

                }

   110

            }

   111

        }

   112

    }

   113

   114

    func:function name="func:parselabel" {

   115

        param "label";

   116

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

   117

   118

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

   119

        const "args" choose {

   120

            when "$_args" value "$_args";

   121

            otherwise value "$description";

   122

        }

   123

   124

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

   125

        const "type" choose {

   126

            when "$_type" value "$_type";

   127

            otherwise value "$args";

   128

        }

   129

   130

        const "ast" if "$type" widget {

   131

            attrib "type" > «$type»

   133

                arg {

   134

                    attrib "value" > «.»

   135

                }

   136

            }

   137

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

   138

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

   139

                path {

   140

                    attrib "value" > «.»

   141

                }

   142

            }

   143

        }

   144

   145

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

   146

    }

   147

   148

    function "scripts"

   149

    {

   150

        /* TODO : paste hmitree hash stored in hmi tree root node */

   151

   152

        /* TODO re-enable

   153

        ||

   154

        function evaluate_js_from_descriptions() {

   155

            var Page;

   156

            var Input;

   157

            var Display;

   158

            var res = [];

   159

        ||

   160

        const "midmark" > \n«$mark»

   161

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

   162

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

   163

              mode="code_from_descs";

   164

        ||

   165

            return res;

   166

        }

   167

        ||

   168

        */

   169

   170

        /*TODO add :

   171

          - pages content

   172

            + with ref to elt ?

   173

          - widgets parameters

   174

        */

   175

   176

        | var hmi_index = {

   177

   178

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

   179

        foreach "$indexed_hmitree/*" {

   180

            | «@index»: {

   181

            |     name: "«@name»",

   182

            |     hmipath: "«@hmipath»"

   183

            |     ids: [

   184

            const "hmipath","@hmipath";

   185

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

   186

            |         "«@id»"`if "position()!=last()" > ,`

   187

            }

   188

            |     ]

   189

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

   190

        }

   191

   192

        | }

   193

        |

   194

        | var page_desc = {

   195

   209

        }

   210

        | }

   211

   212

        include text svghmi.js

   213

    }

   214

   215

    /*

   216

        Parses:

   217

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

   218

   219

        Into:

   220

        widget type="WidgetType" {

   221

            arg value="param1";

   222

            arg value="param2";

   223

            path value="path1";

   224

            path value="path2";

   225

        }

   226

    */

   227

   228

    template "*", mode="page_desc" {

   229

    }

   230

   231

    template "*", mode="code_from_descs" {

   232

        ||

   233

        {

   234

            var path, role, name, priv;

   235

            var id = "«@id»";

   236

        ||

   237

   238

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

   239

        if "@inkscape:label"

   240

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

   241

   242

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

   243

   244

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

   245

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

   246

        // nobody reads generated code anyhow...

   247

   248

        ||

   249

   250

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

   251

            res.push({

   252

                path:path,

   253

                role:role,

   254

                name:name,

   255

                priv:priv

   256

            })

   257

        }

   258

        ||

   259

    }

   260

   261

   262

    template "bbox", mode="testgeo"{

   263

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

   264

    }

   265

   266

    template "*", mode="testtree"{

   267

        param "indent", "''";

   268

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

   269

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

   270

        > \n

   271

        apply "*", mode="testtree" {

   272

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

   273

        };

   274

    }

   275

}