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"

    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

    27

    const "_categories" {

    28

        noindex > HMI_ROOT

    29

        noindex > HMI_LABEL

    30

        noindex > HMI_CLASS

    31

        noindex > HMI_PLC_STATUS

    32

        noindex > HMI_CURRENT_PAGE

    33

    }

    34

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

    35

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

    36

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

    37

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

    38

    39

    template "*", mode="index"{

    40

        param "index", "0";

    41

        param "parentpath", "''";

    42

        const "content" {

    43

            const "path"

    44

                choose {

    45

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

    46

                    otherwise > «$parentpath»/«@name»

    47

                }

    48

            choose {

    49

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

    50

                    xsl:copy {

    51

                        attrib "index" > «$index»

    52

                        attrib "hmipath" > «$path»

    53

                        foreach "@*" xsl:copy;

    54

                    }

    55

                    /* no node expected below value nodes */

    56

                }

    57

                otherwise {

    58

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

    59

                        with "index", "$index";

    60

                        with "parentpath" > «$path»

    61

                    }

    62

                }

    63

            }

    64

        }

    65

    66

        copy "$content";

    67

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

    68

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

    69

            with "parentpath" > «$parentpath»

    70

        }

    71

    }

    72

    73

    /* Identity template :

    74

     *  - copy every attributes 

    75

     *  - copy every sub-elements

    76

     */

    77

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

    78

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

    79

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

    80

    }

    81

    82

    const "mark" > =HMI=\n

    83

    84

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

    85

    template "/" { 

    87

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

    88

            head;

    89

            body style="margin:0;" {

    90

                xsl:copy {

    91

                    comment {

    92

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

    93

                    }

    94

                    comment {

    95

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

    96

                    }

    97

                    comment {

    98

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

    99

                    }

   100

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

   101

                }

   102

                script{

   103

                    call "scripts";

   104

                }

   105

            }

   106

        }

   107

    }

   108

   143

    function "scripts"

   144

    {

   145

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

   146

   147

        /* TODO re-enable

   148

        ||

   149

        function evaluate_js_from_descriptions() {

   150

            var Page;

   151

            var Input;

   152

            var Display;

   153

            var res = [];

   154

        ||

   155

        const "midmark" > \n«$mark»

   156

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

   157

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

   158

              mode="code_from_descs";

   159

        ||

   160

            return res;

   161

        }

   162

        ||

   163

        */

   164

   165

        /*TODO add :

   166

          - pages content

   167

            + with ref to elt ?

   168

          - widgets parameters

   169

        */

   170

   171

        | var hmi_index = {

   172

   173

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

   174

        foreach "$indexed_hmitree/*" {

   175

            | «@index»: {

   176

            |     name: "«@name»",

   177

            |     hmipath: "«@hmipath»"

   178

            |     ids: [

   179

            const "hmipath","@hmipath";

   180

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

   181

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

   182

            }

   183

            |     ]

   184

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

   185

        }

   186

   187

        | }

   188

        |

   189

        | var page_desc = {

   190

   191

        // apply "//*[substring-after(substring-before(@inkscape:label, '@'), 'HMI'

   193

            | «@inkscape:label»

   196

        }

   197

        | }

   198

   199

        include text svghmi.js

   200

    }

   201

   202

    /*

   203

        Parses:

   204

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

   205

   206

        Into:

   207

        widget type="WidgetType" {

   208

            arg value="param1";

   209

            arg value="param2";

   210

            path value="path1";

   211

            path value="path2";

   212

        }

   213

    */

   214

   215

    template "*", mode="page_desc" {

   216

    }

   217

   218

    template "*", mode="code_from_descs" {

   219

        ||

   220

        {

   221

            var path, role, name, priv;

   222

            var id = "«@id»";

   223

        ||

   224

   225

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

   226

        if "@inkscape:label"

   227

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

   228

   229

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

   230

   231

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

   232

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

   233

        // nobody reads generated code anyhow...

   234

   235

        ||

   236

   237

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

   238

            res.push({

   239

                path:path,

   240

                role:role,

   241

                name:name,

   242

                priv:priv

   243

            })

   244

        }

   245

        ||

   246

    }

   247

   248

   249

    template "bbox", mode="testgeo"{

   250

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

   251

    }

   252

   253

    template "*", mode="testtree"{

   254

        param "indent", "''";

   255

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

   256

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

   257

        > \n

   258

        apply "*", mode="testtree" {

   259

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

   260

        };

   261

    }

   262

}