1

// widget_jsontable.ysl2

     2

     3

template "widget[@type='JsonTable']", mode="widget_class"

     4

    ||

     5

    class JsonTableWidget extends Widget{

     6

        // arbitrary defaults to avoid missing entries in query

     7

        cache = [0,100,50];

     8

        init() {

     9

            this.spread_json_data_bound = this.spread_json_data.bind(this);

    13

        }

    14

    15

        handle_http_response(response) {

    16

            if (!response.ok) {

    17

              console.log("HTTP error, status = " + response.status);

    18

            }

    19

            return response.json();

    20

        }

    21

    26

        do_http_request(...opt) {

    28

            const query = {

    29

                args: this.args,

    30

                range: this.cache[1],

    31

                position: this.cache[2],

    32

                visible: this.visible,

    33

                extra: this.cache.slice(4),

    34

                options: opt

    35

            };

    36

    37

            const options = {

    38

                 method: 'POST',

    39

                 body: JSON.stringify(query),

    42

            };

    43

    55

        dispatch(value, oldval, index) {

    70

        }

    71

        make_on_click(...options){

    72

            let that = this;

    73

            return function(evt){

    74

                that.do_http_request(...options);

    75

            }

    76

        }

    77

        // on_click(evt, ...options) {

    78

        //     this.do_http_request(...options);

    79

        // }

    80

    }

    81

    ||

    82

    83

template "svg:*", mode="json_table_elt_render" {

    84

    error > JsonTable Widget can't contain element of type «local-name()».

    85

}

    86

    87

    88

const "hmi_textstylelists_descs", "$parsed_widgets/widget[@type = 'TextStyleList']";

    89

const "hmi_textstylelists", "$hmi_elements[@id = $hmi_textstylelists_descs/@id]";

    90

    91

const "textstylelist_related" foreach "$hmi_textstylelists" list {

    92

    attrib "listid" value "@id";

    93

    foreach "func:refered_elements(.)" elt {

    94

        attrib "eltid" value "@id";

    95

    }

    96

}

    97

const "textstylelist_related_ns", "exsl:node-set($textstylelist_related)";

    98

    99

def "func:json_expressions" {

   100

    param "expressions";

   101

    param "label";

   102

   103

    // compute javascript expressions to access JSON data

   104

    // desscribed in given svg element's "label"

   105

    // knowing that parent element already has given "expressions".

   106

   107

    choose {

   108

        when "$label" {

   109

            const "suffixes", "str:split($label)";

   110

            const "res" foreach "$suffixes" expression {

   111

                const "suffix",".";

   112

                const "pos","position()";

   113

                // take last available expression (i.e can have more suffixes than expressions)

   114

                const "expr","$expressions[position() <= $pos][last()]/expression";

   115

                choose {

   116

                    when "contains($suffix,'=')" {

   117

                        const "name", "substring-before($suffix,'=')";

   118

                        if "$expr/@name[. != $name]"

   119

                            error > JsonTable : missplaced '=' or inconsistent names in Json data expressions.

   120

                        attrib "name" value "$name";

   121

                        attrib "content" > «$expr/@content»«substring-after($suffix,'=')»

   122

                    }

   123

                    otherwise {

   124

                        copy "$expr/@name";

   125

                        attrib "content" > «$expr/@content»«$suffix»

   126

                    }

   127

                }

   128

            }

   129

            result "exsl:node-set($res)";

   130

        }

   131

        // Empty labels are ignored, expressions are then passed as-is.

   132

        otherwise result "$expressions";

   133

    }

   134

   135

}

   136

   137

const "initexpr" expression attrib "content" > jdata

   138

const "initexpr_ns", "exsl:node-set($initexpr)";

   139

   140

template "svg:use", mode="json_table_elt_render" {

   141

    param "expressions";

   142

    // cloned element must be part of a HMI:List

   143

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

   144

    const "from_list", "$hmi_lists[(@id | */@id) = $targetid]";

   145

   146

    choose {

   147

        when "count($from_list) > 0" {

   148

            |         id("«@id»").setAttribute("xlink:href",

   149

            // obtain new target id from HMI:List widget

   150

            |             "#"+hmi_widgets["«$from_list/@id»"].items[«$expressions/expression[1]/@content»]);

   151

        }

   152

        otherwise

   153

            warning > Clones (svg:use) in JsonTable Widget must point to a valid HMI:List widget or item. Reference "«@xlink:href»" is not valid and will not be updated.

   154

    }

   155

}

   156

   157

template "svg:text", mode="json_table_elt_render" {

   158

    param "expressions";

   159

    const "value_expr", "$expressions/expression[1]/@content";

   160

    const "original", "@original";

   161

    const "from_textstylelist", "$textstylelist_related_ns/list[elt/@eltid = $original]";

   162

    choose {

   163

   164

        when "count($from_textstylelist) > 0" {

   165

            const "content_expr", "$expressions/expression[2]/@content";

   166

            if "string-length($content_expr) = 0 or $expressions/expression[2]/@name != 'textContent'"

   167

                error > Clones (svg:use) in JsonTable Widget pointing to a HMI:TextStyleList widget or item must have a "textContent=.someVal" assignement following value expression in label.

   168

            |         {

   169

            |           let elt = id("«@id»");

   170

            |           elt.textContent = String(«$content_expr»);

   171

            |           elt.style = hmi_widgets["«$from_textstylelist/@listid»"].styles[«$value_expr»];

   172

            |         }

   173

        }

   174

        otherwise {

   175

            |         id("«@id»").textContent = String(«$value_expr»);

   176

        }

   177

    }

   178

}

   179

   180

   181

// only labels comming from Json widget are counted in

   182

def "func:filter_non_widget_label" {

   183

    param "elt";

   184

    param "widget_elts";

   185

    const "eltid" choose {

   186

        when "$elt/@original" value "$elt/@original";

   187

        otherwise value "$elt/@id";

   188

    }

   189

    result "$widget_elts[@id=$eltid]/@inkscape:label";

   190

}

   191

   192

template "svg:*", mode="json_table_render_except_comments"{

   193

    param "expressions";

   194

    param "widget_elts";

   195

   196

    const "label", "func:filter_non_widget_label(., $widget_elts)";

   197

    // filter out "# commented" elements

   198

    if "not(starts-with($label,'#'))" 

   199

        apply ".", mode="json_table_render"{

   200

            with "expressions", "$expressions";

   201

            with "widget_elts", "$widget_elts";

   202

            with "label", "$label";

   203

        }

   204

}

   205

   206

   207

template "svg:*", mode="json_table_render" {

   208

    param "expressions";

   209

    param "widget_elts";

   210

    param "label";

   211

   212

    const "new_expressions", "func:json_expressions($expressions, $label)";

   213

   214

    const "elt",".";

   215

    foreach "$new_expressions/expression[position() > 1][starts-with(@name,'onClick')]"

   216

    |         id("«$elt/@id»").onclick = this.make_on_click('«@name»', «@content»);

   217

   218

    apply ".", mode="json_table_elt_render"

   219

        with "expressions", "$new_expressions";

   220

}

   221

   222

template "svg:g", mode="json_table_render" {

   223

    param "expressions";

   224

    param "widget_elts";

   225

    param "label";

   226

   227

    // use intermediate variables for optimization

   229

    |         try {

   230

   231

    foreach "$expressions/expression"{

   232

    |          let «$varprefix»«position()» = «@content»;

   233

    |          if(«$varprefix»«position()» == undefined) {

   234

    |               throw null;

   235

    |          }

   236

    }

   237

   238

    // because we put values in a variables, we can replace corresponding expression with variable name

   239

    const "new_expressions" foreach "$expressions/expression" xsl:copy {

   240

        copy "@name";

   241

        attrib "content" > «$varprefix»«position()»

   242

    }

   243

   244

    // revert hiding in case it did happen before

   245

    |           id("«@id»").style = "«@style»";

   246

   247

    apply "*", mode="json_table_render_except_comments" {

   248

        with "expressions", "func:json_expressions(exsl:node-set($new_expressions), $label)";

   249

        with "widget_elts", "$widget_elts";

   250

    }

   251

    |         } catch(err) {

   253

    |         }

   254

}

   255

   256

template "widget[@type='JsonTable']", mode="widget_defs" {

   257

    param "hmi_element";

   258

    labels("data");

   259

    optional_labels("forward backward cursor");

   260

    const "data_elt", "$result_svg_ns//*[@id = $hmi_element/@id]/*[@inkscape:label = 'data']";

   261

    |     visible: «count($data_elt/*[@inkscape:label])»,

   262

    |     spread_json_data: function(janswer) {

   263

    |         let [range,position,jdata] = janswer;

   268

    apply "$data_elt", mode="json_table_render_except_comments" {

   269

        with "expressions","$initexpr_ns";

   270

        with "widget_elts","$hmi_element/*[@inkscape:label = 'data']/descendant::svg:*";

   271

    }

   272

    |     }

   273

}