1

// widget_jsontable.ysl2

     2

     3

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

     4

    ||

     5

    class JsonTableWidget extends Widget{

     6

        cache = [];

     7

        do_http_request() {

     8

            const query = {

     9

                args: this.args,

    12

            };

    13

    14

            const options = {

    15

                 method: 'POST',

    16

                 body: JSON.stringify(query),

    17

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

    18

            };

    19

    20

            fetch(this.args[0], options)

    21

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

    22

                .then(this.spread_json_data);

    23

    24

        }

    25

        dispatch(value, oldval, index) {

    26

            this.cache[index] = value;

    27

            this.do_http_request();

    28

        }

    29

        on_click(evt) {

    30

            this.do_http_request();

    31

        }

    32

        init() {

    33

            this.element.setAttribute("onclick", "hmi_widgets['"+this.element_id+"'].on_click(evt)");

    34

        }

    35

    }

    36

    ||

    37

    38

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

    39

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

    40

}

    41

    42

    43

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

    44

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

    45

    46

const "textstylelist_related" foreach "$hmi_textstylelists" list {

    47

    attrib "listid" value "@id";

    48

    foreach "func:refered_elements(.)" elt {

    49

        attrib "eltid" value "@id";

    50

    }

    51

}

    52

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

    53

    54

def "func:json_expressions" {

    55

    param "expressions";

    56

    param "label";

    57

    58

    // compute javascript expressions to access JSON data

    59

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

    60

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

    61

    62

    choose {

    63

        when "$label" {

    64

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

    65

            const "res" foreach "$suffixes" expression {

    66

                const "suffix",".";

    67

                const "pos","position()";

    68

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

    69

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

    70

                choose {

    71

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

    72

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

    73

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

    74

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

    75

                        attrib "name" value "$name";

    76

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

    77

                    }

    78

                    otherwise {

    79

                        copy "$expr/@name";

    80

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

    81

                    }

    82

                }

    83

            }

    84

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

    85

        }

    86

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

    87

        otherwise result "$expressions";

    88

    }

    89

    90

}

    91

    92

const "initexpr" expression attrib "content" > jdata

    93

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

    94

    95

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

    96

    param "expressions";

    97

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

    98

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

    99

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

   100

   101

    choose {

   102

        when "count($from_list) > 0" {

   103

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

   104

            // obtain new target id from HMI:List widget

   105

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

   106

        }

   107

        otherwise

   108

            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.

   109

    }

   110

}

   111

   112

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

   113

    param "expressions";

   114

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

   115

    const "original", "@original";

   116

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

   117

    choose {

   118

   119

        when "count($from_textstylelist) > 0" {

   120

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

   121

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

   122

                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.

   123

            |         {

   124

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

   125

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

   126

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

   127

            |         }

   128

        }

   129

        otherwise {

   130

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

   131

        }

   132

    }

   133

}

   134

   135

   136

// only labels comming from Json widget are counted in

   137

def "func:filter_non_widget_label" {

   138

    param "elt";

   139

    param "widget_elts";

   140

    const "eltid" choose {

   141

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

   142

        otherwise value "$elt/@id";

   143

    }

   144

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

   145

}

   146

   147

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

   148

    param "expressions";

   149

    param "widget_elts";

   150

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

   151

    apply ".", mode="json_table_elt_render" {

   152

        with "expressions", "func:json_expressions($expressions, $label)";

   153

    }

   154

}

   155

   156

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

   157

    param "expressions";

   158

    param "widget_elts";

   182

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

   183

    apply "*", mode="json_table_render" {

   185

        with "widget_elts", "$widget_elts";

   186

    }

   190

}

   191

   192

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

   193

    param "hmi_element";

   194

    labels("data");

   195

    optional_labels("forward backward cursor");

   196

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

   201

    apply "$data_elt/*", mode="json_table_render" {

   202

        with "expressions","$initexpr_ns";

   203

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

   204

    }

   205

    |     }

   206

}