Cross Reference: /external/icu/icu4c/source/test/intltest/regextst.cpp

Lines Matching refs:perlExpr
4155         UnicodeString perlExpr = fields[3];
4157         groupsMat->reset(perlExpr);
4158         cgMat->reset(perlExpr);
4161         while (perlExpr.length() > 0) {
4164             groupsMat->reset(perlExpr);
4165             cgMat->reset(perlExpr);
4168             if (perlExpr.startsWith("$&")) {
4170                 perlExpr.remove(0, 2);
4188                 perlExpr.remove(0, groupsMat->end(status));
4200                 perlExpr.remove(0, cgMat->end(status));
4203             else if (perlExpr.startsWith("@-")) {
4211                 perlExpr.remove(0, 2);
4214             else if (perlExpr.startsWith("@+")) {
4222                 perlExpr.remove(0, 2);
4225             else if (perlExpr.startsWith(UNICODE_STRING_SIMPLE("\\"))) {    // \Escape.  Take following char as a literal.
4227                 if (perlExpr.length() > 1) {
4228                     perlExpr.remove(0, 1);  // Remove the '\', but only if not last char.
4230                 UChar c = perlExpr.charAt(0);
4236                 perlExpr.remove(0, 1);
4243                 resultString.append(perlExpr.charAt(0));
4244                 perlExpr.remove(0, 1);
4550         UnicodeString perlExpr = fields[3];
4552         while (perlExpr.length() > 0) {
4553             groupsMat->reset(perlExpr);
4554             cgMat->reset(perlExpr);
4556             if (perlExpr.startsWith("$&")) {
4558                 perlExpr.remove(0, 2);
4576                 perlExpr.remove(0, groupsMat->end(status));
4588                 perlExpr.remove(0, cgMat->end(status));
4591             else if (perlExpr.startsWith("@-")) {
4599                 perlExpr.remove(0, 2);
4602             else if (perlExpr.startsWith("@+")) {
4610                 perlExpr.remove(0, 2);
4613             else if (perlExpr.startsWith(UNICODE_STRING_SIMPLE("\\"))) {    // \Escape.  Take following char as a literal.
4615                 if (perlExpr.length() > 1) {
4616                     perlExpr.remove(0, 1);  // Remove the '\', but only if not last char.
4618                 UChar c = perlExpr.charAt(0);
4624                 perlExpr.remove(0, 1);
4631                 resultString.append(perlExpr.charAt(0));
4632                 perlExpr.remove(0, 1);