… | |
… | |
1220 | bool matched = count && SvTRUE (TOPs); |
1220 | bool matched = count && SvTRUE (TOPs); |
1221 | |
1221 | |
1222 | CALL_END; |
1222 | CALL_END; |
1223 | |
1223 | |
1224 | return matched; |
1224 | return matched; |
|
|
1225 | } |
|
|
1226 | |
|
|
1227 | object * |
|
|
1228 | match_one (const char *expr, object *ob, object *self, object *source, object *originator) |
|
|
1229 | { |
|
|
1230 | if (!strncmp (expr, "match ", sizeof ("match ") - 1)) |
|
|
1231 | expr += sizeof ("match ") - 1; |
|
|
1232 | |
|
|
1233 | CALL_BEGIN (5); |
|
|
1234 | CALL_ARG (expr); |
|
|
1235 | CALL_ARG (ob); |
|
|
1236 | CALL_ARG (self); |
|
|
1237 | CALL_ARG (source); |
|
|
1238 | CALL_ARG (originator); |
|
|
1239 | CALL_CALL (cv_cf_match_match, G_ARRAY); |
|
|
1240 | |
|
|
1241 | object *one = 0; |
|
|
1242 | |
|
|
1243 | if (count) |
|
|
1244 | sv_to (TOPs, one); |
|
|
1245 | |
|
|
1246 | CALL_END; |
|
|
1247 | |
|
|
1248 | return one; |
1225 | } |
1249 | } |
1226 | |
1250 | |
1227 | ///////////////////////////////////////////////////////////////////////////// |
1251 | ///////////////////////////////////////////////////////////////////////////// |
1228 | |
1252 | |
1229 | struct EVAPI *evapi::GEVAPI; |
1253 | struct EVAPI *evapi::GEVAPI; |