RAPL

Diff
Login

Diff

Annotate Patch Side-by-side Diff

Differences From Artifact [0befb44b28]:

To Artifact [f2b70785de]:

︙
94
95
96
97
98
99
100
101
102
103
104
105
106
107




108
109
110
111
112








113
114

115
116
117

118
119

120
121
122

123
124

125
126
127
128
129
130
131
132

94
95
96
97
98
99
100







101
102
103
104





105
106
107
108
109
110
111
112


113



114
115

116



117


118

119
120
121
122
123
124
125








-
-
-
-
-
-
-
+
+
+
+
-
-
-
-
-
+
+
+
+
+
+
+
+
-
-
+
-
-
-
+

-
+
-
-
-
+
-
-
+
-








    }
    interp.setResultInt(interp.string_obj_type.stringLast(needle_str, needle_len, haystack_str, haystack_len, idx));
    return interp.OK;
  });

  /* ==================== command string match ===================================== */
  interp.registerSubCommand("::string", "match", function (interp, args) {
    args.shift();
    this.requireMinArgc(args, 2, "string match", "");
    var usage = "string match ?-nocase? pattern string";
    var nocase = 0;
    var pattern = args.shift().toString();
    if (pattern == "-nocase") {
      if (args.length < 3) {
    var opt_case = false;
    var i = 1;

    if (args.length != 3 && args.length != 4) {
        throw usage;
      }
      nocase = 1;
      pattern = args.shift().toString();
    }
      interp.wrongNumArgs(1, args, "?-nocase? pattern string");
      return interp.ERROR;
    }
    if (args[1].getString().charAt(0) == "-") {
      if (args[1].getString() != "-nocase") {
        interp.wrongNumArgs(1, args, "?-nocase? pattern string");
        return interp.ERROR;
      }
    pattern = Tcl.toGlob(interp, pattern);
    if (nocase) {
      opt_case  = true;
      pattern = new RegExp(pattern, "i");
    } else {
      pattern = new RegExp(pattern);
      i++;
    }
    var str = args.shift().toString();
     ret_code = args[i].stringMatchObj(args[i+1], !opt_case);
    try {
      var result = pattern.test(str);
      return result;
    interp.setResultBool(ret_code == interp.OK);
    } catch (e) {
      return "";
    return interp.OK;
    }
  });

  /* ==================== command string range ===================================== */
  interp.registerSubCommand("::string", "range", function (interp, args) {
    this.requireExactArgc(args, 4, "string range", "");
    var s = args[1];
    try {
︙