| 171 | } |
| 172 | |
| 173 | txBoolean fxIsRegExp(txMachine* the, txSlot* slot) |
| 174 | { |
| 175 | #if mxRegExp |
| 176 | if (mxIsReference(slot)) { |
| 177 | txSlot* instance = slot->value.reference; |
| 178 | mxPushSlot(slot); |
| 179 | mxGetID(mxID(_Symbol_match)); |
| 180 | if (the->stack->kind != XS_UNDEFINED_KIND) |
| 181 | return fxToBoolean(the, the->stack++); |
| 182 | mxPop(); |
| 183 | if ((instance->next) && (instance->next->flag & XS_INTERNAL_FLAG) && (instance->next->kind == XS_REGEXP_KIND)) |
| 184 | return 1; |
| 185 | } |
| 186 | #endif |
| 187 | return 0; |
| 188 | } |
| 189 | |
| 190 | txSlot* fxNewRegExpInstance(txMachine* the) |
| 191 | { |
no test coverage detected