1

// widget_jsontable.ysl2

     2

     3

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

     4

    ||

     5

    class JsonTableWidget extends Widget{

     6

        cache = [100,50];

     7

        do_http_request(...opt) {

     8

            const query = {

     9

                args: this.args,

    10

                range: this.cache[1],

    11

                position: this.cache[2],

    12

                visible: this.visible,

    13

                options: opt

    14

            };

    15

    16

            const options = {

    17

                 method: 'POST',

    18

                 body: JSON.stringify(query),

    19

                 headers: {'Content-Type': 'application/json'}

    20

            };

    21

    22

            fetch(this.args[0], options)

    23

                .then(res => res.json())

    24

                .then(this.spread_json_data.bind(this));

    25

    26

        }

    27

        dispatch(value, oldval, index) {

    28

            this.cache[index] = value;

    29

            this.do_http_request();

    30

        }

    31

        on_click(evt, ...options) {

    32

            this.do_http_request(...options);

    33

        }

    34

    }

    35

    ||

    36

    37

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

    38

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

    39

}

    40

    41

    42

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

    43

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

    44

    45

const "textstylelist_related" foreach "$hmi_textstylelists" list {

    46

    attrib "listid" value "@id";

    47

    foreach "func:refered_elements(.)" elt {

    48

        attrib "eltid" value "@id";

    49

    }

    50

}

    51

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

    52

    53

def "func:json_expressions" {

    54

    param "expressions";

    55

    param "label";

    56

    57

    // compute javascript expressions to access JSON data

    58

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

    59

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

    60

    61

    choose {

    62

        when "$label" {

    63

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

    64

            const "res" foreach "$suffixes" expression {

    65

                const "suffix",".";

    66

                const "pos","position()";

    67

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

    68

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

    69

                choose {

    70

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

    71

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

    72

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

    73

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

    74

                        attrib "name" value "$name";

    75

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

    76

                    }

    77

                    otherwise {

    78

                        copy "$expr/@name";

    79

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

    80

                    }

    81

                }

    82

            }

    83

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

    84

        }

    85

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

    86

        otherwise result "$expressions";

    87

    }

    88

    89

}

    90

    91

const "initexpr" expression attrib "content" > jdata

    92

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

    93

    94

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

    95

    param "expressions";

    96

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

    97

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

    98

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

    99

   100

    choose {

   101

        when "count($from_list) > 0" {

   102

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

   103

            // obtain new target id from HMI:List widget

   104

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

   105

        }

   106

        otherwise

   107

            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.

   108

    }

   109

}

   110

   111

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

   112

    param "expressions";

   113

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

   114

    const "original", "@original";

   115

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

   116

    choose {

   117

   118

        when "count($from_textstylelist) > 0" {

   119

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

   120

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

   121

                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.

   122

            |         {

   123

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

   124

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

   125

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

   126

            |         }

   127

        }

   128

        otherwise {

   129

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

   130

        }

   131

    }

   132

}

   133

   134

   135

// only labels comming from Json widget are counted in

   136

def "func:filter_non_widget_label" {

   137

    param "elt";

   138

    param "widget_elts";

   139

    const "eltid" choose {

   140

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

   141

        otherwise value "$elt/@id";

   142

    }

   143

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

   144

}

   145

   146

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

   147

    param "expressions";

   148

    param "widget_elts";

   149

   150

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

   151

    // filter out "# commented" elements

   152

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

   153

        apply ".", mode="json_table_render"{

   154

            with "expressions", "$expressions";

   155

            with "widget_elts", "$widget_elts";

   156

            with "label", "$label";

   157

        }

   158

}

   159

   160

   161

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

   162

    param "expressions";

   163

    param "widget_elts";

   164

    param "label";

   165

   166

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

   167

   168

    const "elt",".";

   169

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

   170

    |         id("«$elt/@id»").setAttribute("onclick", "hmi_widgets['"+this.element_id+"'].on_click(evt, '«@name»', '"+«@content»+"')");

   171

   172

    apply ".", mode="json_table_elt_render"

   173

        with "expressions", "$new_expressions";

   174

}

   175

   176

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

   177

    param "expressions";

   178

    param "widget_elts";

   179

    param "label";

   180

    const "gid", "@id";

   181

   182

    // use intermediate variables for optimization

   183

    const "varprefix" > obj_«$gid»_

   184

    |         try {

   185

   186

    foreach "$expressions/expression"{

   187

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

   188

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

   189

    |               console.log("«$varprefix»«position()» = «@content»");

   190

    |               throw null;

   191

    |          }

   192

    }

   193

   194

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

   195

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

   196

        copy "@name";

   197

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

   198

    }

   199

   200

    // revert hiding in case it did happen before

   201

    |           id("«@id»").setAttribute("style", "«@style»");

   202

   203

    apply "*", mode="json_table_render_except_comments" {

   204

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

   205

        with "widget_elts", "$widget_elts";

   206

    }

   207

    |         } catch(err) {

   208

    |           id("«$gid»").setAttribute("style", "display:none");

   209

    |         }

   210

}

   211

   212

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

   213

    param "hmi_element";

   214

    labels("data");

   215

    optional_labels("forward backward cursor");

   216

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

   217

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

   218

    |     spread_json_data: function(janswer) {

   219

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

   220

    |         this.apply_hmi_value(1, range);

   221

    |         this.apply_hmi_value(2, position);

   223

    |         console.log(range,position,jdata);

   224

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

   225

        with "expressions","$initexpr_ns";

   226

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

   227

    }

   228

    |     }

   229

}