Lingua-ZH-TaBE

 view release on metacpan or  search on metacpan

TaBE.xs  view on Meta::CPAN

    CODE:
        RETVAL = chu->num_chunk;
    OUTPUT:
        RETVAL

void
chunk(chu, i=0, tmp=NULL)
        Chu     chu
        unsigned long int   i
        SV*     tmp
    PPCODE:
        if (chu->num_chunk <= 0) XSRETURN_EMPTY;
        EXTEND(SP, chu->num_chunk);
        for (; i < chu->num_chunk; i++) {
            tmp = newSV(0);
            sv_setref_pv(tmp, "Lingua::ZH::TaBE::Chunk", &(chu->chunk[i]));
            PUSHs(tmp);
        }

int
ToChunkInfo(chu)

TaBE.xs  view on Meta::CPAN

    CODE:
        RETVAL = chunk->num_tsi;
    OUTPUT:
        RETVAL

void
tsi(chunk, i=0, tmp=NULL)
        Chunk   chunk
        unsigned long int   i
        SV*     tmp
    PPCODE:
        if (chunk->num_tsi <= 0) XSRETURN_EMPTY;
        EXTEND(SP, chunk->num_tsi);
        for (; i < chunk->num_tsi; i++) {
            tmp = newSV(0);
            sv_setref_pv(tmp, "Lingua::ZH::TaBE::Tsi", &(chunk->tsi[i]));
            PUSHs(tmp);
        }

int
SegmentationSimplex(chunk, tsidb=TSIDB)

TaBE.xs  view on Meta::CPAN

    CODE:
        RETVAL = tsi->yinnum;
    OUTPUT:
        RETVAL

void
yindata(tsi, i=0, tmp=NULL)
        Tsi                 tsi
        unsigned long int   i
        SV*     tmp
    PPCODE:
        if (tsi->yinnum <= 0) XSRETURN_EMPTY;
        EXTEND(SP, tsi->yinnum);
        for (; i < tsi->yinnum; i++) {
            tmp = newSV(0);
            sv_setref_uv(tmp, "Lingua::ZH::TaBE::Yin", tsi->yindata[i]);
            PUSHs(tmp);
        }

int
LookupPossibleTsiYin(tsi, tsidb=TSIDB)

TaBE.xs  view on Meta::CPAN

        RETVAL = tsiyin->tsinum;
    OUTPUT:
        RETVAL

void
tsidata(tsiyin, i=0, tmp=NULL, tsi=NULL)
        TsiYin              tsiyin
        unsigned long int   i
        Tsi                 tsi
        SV *                tmp
    PPCODE:
        if (tsiyin->tsinum <= 0) XSRETURN_EMPTY;
        EXTEND(SP, tsiyin->tsinum);
        for (; i < tsiyin->tsinum; i++) {
            New(0, tsi, 1, struct TsiInfo);
            strncpy(
                tsi->tsi, 
                (char *)tsiyin->tsidata+((i * tsiyin->yinlen)) * 2,
                tsiyin->yinlen * 2 + 1
            );
            tsi->refcount = -1;