mirror of
https://github.com/johndoe6345789/metabuilder.git
synced 2026-04-29 16:24:58 +00:00
126 lines
3.2 KiB
C
126 lines
3.2 KiB
C
/* stringlib: partition implementation */
|
|
|
|
#ifndef STRINGLIB_FASTSEARCH_H
|
|
# error must include "stringlib/fastsearch.h" before including this module
|
|
#endif
|
|
|
|
#if !STRINGLIB_MUTABLE && !defined(STRINGLIB_GET_EMPTY)
|
|
# error "STRINGLIB_GET_EMPTY must be defined if STRINGLIB_MUTABLE is zero"
|
|
#endif
|
|
|
|
|
|
Ty_LOCAL_INLINE(TyObject*)
|
|
STRINGLIB(partition)(TyObject* str_obj,
|
|
const STRINGLIB_CHAR* str, Ty_ssize_t str_len,
|
|
TyObject* sep_obj,
|
|
const STRINGLIB_CHAR* sep, Ty_ssize_t sep_len)
|
|
{
|
|
TyObject* out;
|
|
Ty_ssize_t pos;
|
|
|
|
if (sep_len == 0) {
|
|
TyErr_SetString(TyExc_ValueError, "empty separator");
|
|
return NULL;
|
|
}
|
|
|
|
out = TyTuple_New(3);
|
|
if (!out)
|
|
return NULL;
|
|
|
|
pos = FASTSEARCH(str, str_len, sep, sep_len, -1, FAST_SEARCH);
|
|
|
|
if (pos < 0) {
|
|
#if STRINGLIB_MUTABLE
|
|
TyTuple_SET_ITEM(out, 0, STRINGLIB_NEW(str, str_len));
|
|
TyTuple_SET_ITEM(out, 1, STRINGLIB_NEW(NULL, 0));
|
|
TyTuple_SET_ITEM(out, 2, STRINGLIB_NEW(NULL, 0));
|
|
|
|
if (TyErr_Occurred()) {
|
|
Ty_DECREF(out);
|
|
return NULL;
|
|
}
|
|
#else
|
|
Ty_INCREF(str_obj);
|
|
TyTuple_SET_ITEM(out, 0, (TyObject*) str_obj);
|
|
TyObject *empty = (TyObject*)STRINGLIB_GET_EMPTY();
|
|
assert(empty != NULL);
|
|
Ty_INCREF(empty);
|
|
TyTuple_SET_ITEM(out, 1, empty);
|
|
Ty_INCREF(empty);
|
|
TyTuple_SET_ITEM(out, 2, empty);
|
|
#endif
|
|
return out;
|
|
}
|
|
|
|
TyTuple_SET_ITEM(out, 0, STRINGLIB_NEW(str, pos));
|
|
Ty_INCREF(sep_obj);
|
|
TyTuple_SET_ITEM(out, 1, sep_obj);
|
|
pos += sep_len;
|
|
TyTuple_SET_ITEM(out, 2, STRINGLIB_NEW(str + pos, str_len - pos));
|
|
|
|
if (TyErr_Occurred()) {
|
|
Ty_DECREF(out);
|
|
return NULL;
|
|
}
|
|
|
|
return out;
|
|
}
|
|
|
|
Ty_LOCAL_INLINE(TyObject*)
|
|
STRINGLIB(rpartition)(TyObject* str_obj,
|
|
const STRINGLIB_CHAR* str, Ty_ssize_t str_len,
|
|
TyObject* sep_obj,
|
|
const STRINGLIB_CHAR* sep, Ty_ssize_t sep_len)
|
|
{
|
|
TyObject* out;
|
|
Ty_ssize_t pos;
|
|
|
|
if (sep_len == 0) {
|
|
TyErr_SetString(TyExc_ValueError, "empty separator");
|
|
return NULL;
|
|
}
|
|
|
|
out = TyTuple_New(3);
|
|
if (!out)
|
|
return NULL;
|
|
|
|
pos = FASTSEARCH(str, str_len, sep, sep_len, -1, FAST_RSEARCH);
|
|
|
|
if (pos < 0) {
|
|
#if STRINGLIB_MUTABLE
|
|
TyTuple_SET_ITEM(out, 0, STRINGLIB_NEW(NULL, 0));
|
|
TyTuple_SET_ITEM(out, 1, STRINGLIB_NEW(NULL, 0));
|
|
TyTuple_SET_ITEM(out, 2, STRINGLIB_NEW(str, str_len));
|
|
|
|
if (TyErr_Occurred()) {
|
|
Ty_DECREF(out);
|
|
return NULL;
|
|
}
|
|
#else
|
|
TyObject *empty = (TyObject*)STRINGLIB_GET_EMPTY();
|
|
assert(empty != NULL);
|
|
Ty_INCREF(empty);
|
|
TyTuple_SET_ITEM(out, 0, empty);
|
|
Ty_INCREF(empty);
|
|
TyTuple_SET_ITEM(out, 1, empty);
|
|
Ty_INCREF(str_obj);
|
|
TyTuple_SET_ITEM(out, 2, (TyObject*) str_obj);
|
|
#endif
|
|
return out;
|
|
}
|
|
|
|
TyTuple_SET_ITEM(out, 0, STRINGLIB_NEW(str, pos));
|
|
Ty_INCREF(sep_obj);
|
|
TyTuple_SET_ITEM(out, 1, sep_obj);
|
|
pos += sep_len;
|
|
TyTuple_SET_ITEM(out, 2, STRINGLIB_NEW(str + pos, str_len - pos));
|
|
|
|
if (TyErr_Occurred()) {
|
|
Ty_DECREF(out);
|
|
return NULL;
|
|
}
|
|
|
|
return out;
|
|
}
|
|
|