path: root/pico/lib/picokpr.c

/*
 * Copyright (C) 2008-2009 SVOX AG, Baslerstr. 30, 8048 Zuerich, Switzerland
 *
 * Licensed under the Apache License, Version 2.0 (the "License");
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at
 *
 *     http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 */
/**
 * @file picokpr.c
 *
 * knowledge handling for text preprocessing
 *
 * Copyright (C) 2008-2009 SVOX AG, Baslerstr. 30, 8048 Zuerich, Switzerland
 * All rights reserved.
 *
 * History:
 * - 2009-04-20 -- initial version
 *
 */
#include "picoos.h"
#include "picodbg.h"
#include "picodata.h"
#include "picoknow.h"
#include "picokpr.h"

#ifdef __cplusplus
extern "C" {
#endif
#if 0
}
#endif


/* ************************************************************/
/* preproc */
/* ************************************************************/

/*
  overview:
*/


/* ************************************************************/
/* preproc data defines */
/* ************************************************************/

#define KPR_STR_SIZE 1
#define KPR_LEXCAT_SIZE 2
#define KPR_ATTRVAL_SIZE 4
#define KPR_OUTITEM_SIZE 7
#define KPR_TOK_SIZE 16
#define KPR_PROD_SIZE 12
#define KPR_CTX_SIZE 12

#define KPR_NETNAME_OFFSET        0
#define KPR_STRARRLEN_OFFSET      4
#define KPR_LEXCATARRLEN_OFFSET   8
#define KPR_ATTRVALARRLEN_OFFSET  12
#define KPR_OUTITEMARRLEN_OFFSET  16
#define KPR_TOKARRLEN_OFFSET      20
#define KPR_PRODARRLEN_OFFSET     24
#define KPR_CTXARRLEN_OFFSET      28

#define KPR_ARRAY_START           32

#define KPR_MAX_INT32             2147483647

#define KPR_STR_OFS               0

#define KPR_LEXCAT_OFS            0

#define KPR_ATTRVAL_INT_OFS       0
#define KPR_ATTRVAL_STROFS_OFS    0
#define KPR_ATTRVAL_PRODOFS_OFS   0
#define KPR_ATTRVAL_OUTITMOFS_OFS 0
#define KPR_ATTRVAL_LEXCATOFS_OFS 0

#define KPR_OUTITEM_NEXTOFS_OFS   0
#define KPR_OUTITEM_TYPE_OFS      2
#define KPR_OUTITEM_STROFS_OFS    3
#define KPR_OUTITEM_VAL_OFS       3
#define KPR_OUTITEM_ARGOFS_OFS    3

#define KPR_TOK_SETWP_OFS         0
#define KPR_TOK_SETNP_OFS         4
#define KPR_TOK_NEXTOFS_OFS       8
#define KPR_TOK_ALTLOFS_OFS       10
#define KPR_TOK_ALTROFS_OFS       12
#define KPR_TOK_ATTRIBOFS_OFS     14

#define KPR_PROD_PRODPREFCOST_OFS 0
#define KPR_PROD_PRODNAMEOFS_OFS  4
#define KPR_PROD_ATOKOFS_OFS      8
#define KPR_PROD_ETOKOFS_OFS      10

#define KPR_CTX_CTXNAMEOFS_OFS    0
#define KPR_CTX_NETNAMEOFS_OFS    4
#define KPR_CTX_PRODNAMEOFS_OFS   8

/* ************************************************************/
/* preproc type and loading */
/* ************************************************************/

/* variable array element types */
typedef picoos_uint8 picokpr_Str[KPR_STR_SIZE];
typedef picoos_uint16 picokpr_LexCat2;
typedef picoos_uint8 picokpr_AttrVal[KPR_ATTRVAL_SIZE];
typedef picoos_uint8 picokpr_OutItem[KPR_OUTITEM_SIZE];
typedef picoos_uint8 picokpr_Tok[KPR_TOK_SIZE];
typedef picoos_uint8 picokpr_Prod[KPR_PROD_SIZE];
typedef picoos_uint8 picokpr_Ctx[KPR_CTX_SIZE];

/* variable array types */
typedef picokpr_Str * picokpr_VarStrArr;
typedef picokpr_LexCat2 * picokpr_VarLexCatArr;
typedef picokpr_AttrVal * picokpr_VarAttrValArr;
typedef picokpr_OutItem * picokpr_VarOutItemArr;
typedef picokpr_Tok * picokpr_VarTokArr;
typedef picokpr_Prod * picokpr_VarProdArr;
typedef picokpr_Ctx * picokpr_VarCtxArr;

/* ************************************************************/
/* preproc type and loading */
/* ************************************************************/

/** object       : PreprocKnowledgeBase
 *  shortcut     : kpr
 *  derived from : picoknow_KnowledgeBase
 */

typedef struct kpr_subobj * kpr_SubObj;

typedef struct kpr_subobj
{
    picoos_uchar * rNetName;

    picoos_int32 rStrArrLen;
    picoos_int32 rLexCatArrLen;
    picoos_int32 rAttrValArrLen;
    picoos_int32 rOutItemArrLen;
    picoos_int32 rTokArrLen;
    picoos_int32 rProdArrLen;
    picoos_int32 rCtxArrLen;

    picoos_uint8 * rStrArr;
    picokpr_LexCat2 * rLexCatArr;
    picokpr_AttrVal * rAttrValArr;
    picokpr_OutItem * rOutItemArr;
    picokpr_Tok * rTokArr;
    picokpr_Prod * rProdArr;
    picokpr_Ctx * rCtxArr;
} kpr_subobj_t;


static picoos_uint32 kpr_getUInt32(picoos_uint8 * p)
{
    return p[0] + 256*p[1] + 256*256*p[2] + 256*256*256*p[3];
}


static pico_status_t kprInitialize(register picoknow_KnowledgeBase this,
                                   picoos_Common common)
{
    picoos_uint32 offset = 0;
    kpr_subobj_t * kpr;

    PICODBG_DEBUG(("start"));

    if (NULL == this || NULL == this->subObj) {
        return picoos_emRaiseException(common->em, PICO_EXC_KB_MISSING,
                                       NULL, NULL);
    }
    kpr = (kpr_subobj_t *) this->subObj;

    kpr->rStrArrLen = kpr_getUInt32(&(this->base[KPR_STRARRLEN_OFFSET]));
    kpr->rLexCatArrLen = kpr_getUInt32(&(this->base[KPR_LEXCATARRLEN_OFFSET]));
    kpr->rAttrValArrLen = kpr_getUInt32(&(this->base[KPR_ATTRVALARRLEN_OFFSET]));
    kpr->rOutItemArrLen = kpr_getUInt32(&(this->base[KPR_OUTITEMARRLEN_OFFSET]));
    kpr->rTokArrLen = kpr_getUInt32(&(this->base[KPR_TOKARRLEN_OFFSET]));
    kpr->rProdArrLen = kpr_getUInt32(&(this->base[KPR_PRODARRLEN_OFFSET]));
    kpr->rCtxArrLen = kpr_getUInt32(&(this->base[KPR_CTXARRLEN_OFFSET]));

    offset = KPR_ARRAY_START;
    kpr->rStrArr = &(this->base[offset]);
    PICODBG_DEBUG(("rStrArr     : cs: %i, ss: %i, offset: %i", sizeof(picokpr_Str), KPR_STR_SIZE, offset));
    offset = offset + kpr->rStrArrLen * 1;

    kpr->rLexCatArr = (picokpr_LexCat2 *)&(this->base[offset]);
    PICODBG_DEBUG(("rLexCatArr  : cs: %i, ss: %i, offset: %i", KPR_LEXCAT_SIZE, sizeof(picokpr_LexCat2), offset));
    offset = offset + kpr->rLexCatArrLen * KPR_LEXCAT_SIZE;

    kpr->rAttrValArr = (picokpr_AttrVal *)&(this->base[offset]);
    PICODBG_DEBUG(("rAttrValArr : cs: %i, ss: %i, offset: %i", KPR_ATTRVAL_SIZE, sizeof(picokpr_AttrVal), offset));
    offset = offset + kpr->rAttrValArrLen * KPR_ATTRVAL_SIZE;

    kpr->rOutItemArr = (picokpr_OutItem *)&(this->base[offset]);
    PICODBG_DEBUG(("rOutItemArr : cs: %i, ss: %i, offset: %i", KPR_OUTITEM_SIZE, sizeof(picokpr_OutItem), offset));
    offset = offset + kpr->rOutItemArrLen * KPR_OUTITEM_SIZE;

    kpr->rTokArr = (picokpr_Tok *)&(this->base[offset]);
    PICODBG_DEBUG(("rTokArr     : cs: %i, ss: %i, offset: %i", KPR_TOK_SIZE, sizeof(picokpr_Tok), offset));
    offset = offset + kpr->rTokArrLen * KPR_TOK_SIZE;

    kpr->rProdArr = (picokpr_Prod *)&(this->base[offset]);
    PICODBG_DEBUG(("rProdArr    : cs: %i, ss: %i, offset: %i", KPR_PROD_SIZE, sizeof(picokpr_Prod), offset));
    offset = offset + kpr->rProdArrLen * KPR_PROD_SIZE;

    kpr->rCtxArr = (picokpr_Ctx *)&(this->base[offset]);
    PICODBG_DEBUG(("rCtxArr     : cs: %i, ss: %i, offset: %i", KPR_CTX_SIZE, sizeof(picokpr_Ctx), offset));
    offset = offset + kpr->rCtxArrLen * KPR_CTX_SIZE;

    kpr->rNetName = &(kpr->rStrArr[kpr_getUInt32(&(this->base[KPR_NETNAME_OFFSET]))]);

    return PICO_OK;
}


static pico_status_t kprSubObjDeallocate(register picoknow_KnowledgeBase this,
                                         picoos_MemoryManager mm)
{
    if (NULL != this) {
        picoos_deallocate(mm, (void *) &this->subObj);
    }
    return PICO_OK;
}


/* we don't offer a specialized constructor for a PreprocKnowledgeBase but
 * instead a "specializer" of an allready existing generic
 * picoknow_KnowledgeBase */

pico_status_t picokpr_specializePreprocKnowledgeBase(picoknow_KnowledgeBase this,
                                                     picoos_Common common)
{
    if (NULL == this) {
        return picoos_emRaiseException(common->em, PICO_EXC_KB_MISSING,
                                       NULL, NULL);
    }
    this->subDeallocate = kprSubObjDeallocate;
    this->subObj = picoos_allocate(common->mm, sizeof(kpr_subobj_t));
    if (NULL == this->subObj) {
        return picoos_emRaiseException(common->em, PICO_EXC_OUT_OF_MEM,
                                       NULL, NULL);
    }
    return kprInitialize(this, common);
}

/* ************************************************************/
/* preproc getPreproc */
/* ************************************************************/

picokpr_Preproc picokpr_getPreproc(picoknow_KnowledgeBase this)
{
    if (NULL == this) {
        return NULL;
    } else {
        return (picokpr_Preproc) this->subObj;
    }
}


/* *****************************************************************************/
/* knowledge base access routines for strings in StrArr */
/* *****************************************************************************/

extern picokpr_VarStrPtr picokpr_getVarStrPtr(picokpr_Preproc preproc, picokpr_StrArrOffset ofs)
{
    picoos_uint8 * p = (picoos_uint8 *)&(((kpr_SubObj)preproc)->rStrArr[ofs]);

    return p;
}

/* *****************************************************************************/

extern picoos_bool picokpr_isEqual (picokpr_Preproc preproc, picoos_uchar str[], picoos_int32 len__9, picokpr_StrArrOffset str2)
{
    picokpr_VarStrPtr lstrp;
    len__9 = len__9;        /*PP 13.10.08 : fix warning "var not used in this function"*/
    lstrp = (picokpr_VarStrPtr)&((kpr_SubObj)preproc)->rStrArr[str2];
    return picoos_strcmp((picoos_char*)lstrp,(picoos_char*)str) == 0;
}



extern picoos_bool picokpr_isEqualHead (picokpr_Preproc preproc, picoos_uchar str[], picoos_int32 len__10, picokpr_StrArrOffset head)
{
    picokpr_VarStrPtr lstrp;
    len__10 = len__10;        /*PP 13.10.08 : fix warning "var not used in this function"*/
    lstrp = (picokpr_VarStrPtr)&((kpr_SubObj)preproc)->rStrArr[head];
    return (picoos_strstr((picoos_char*)str, (picoos_char*)lstrp) == (picoos_char*)str);
}



extern picoos_bool picokpr_isEqualMid (picokpr_Preproc preproc, picoos_uchar str[], picoos_int32 len__11, picokpr_StrArrOffset mid)
{
    picokpr_VarStrPtr lstrp;
    len__11 = len__11;        /*PP 13.10.08 : fix warning "var not used in this function"*/
    lstrp = (picokpr_VarStrPtr)(void *) &((kpr_SubObj)preproc)->rStrArr[mid];
    return (picoos_strstr((picoos_char*)str, (picoos_char*)lstrp) != NULL);
}



extern picoos_bool picokpr_isEqualTail (picokpr_Preproc preproc, picoos_uchar str[], picoos_int32 len__12, picokpr_StrArrOffset tail)
{
    picoos_int32 lstart;
    picokpr_VarStrPtr lstrp;
    len__12 = len__12;        /* avoid warning "var not used in this function"*/
    lstrp = (picokpr_VarStrPtr)&((kpr_SubObj)preproc)->rStrArr[tail];
    lstart = picoos_strlen((picoos_char*)str) - picoos_strlen((picoos_char*)lstrp);
    if (lstart >= 0) {
        return (picoos_strstr((picoos_char*)&(str[lstart]), (picoos_char*)lstrp) != NULL);
    } else {
        return FALSE;
    }
}

/* *****************************************************************************/
/* knowledge base access routines for lexical categories in LexCatArr */
/* *****************************************************************************/

extern picokpr_LexCat picokpr_getLexCat(picokpr_Preproc preproc, picokpr_LexCatArrOffset ofs)
{
    picoos_uint8 * p = (picoos_uint8 *)&(((kpr_SubObj)preproc)->rLexCatArr[ofs]);

    return p[0] + 256*p[1];
}

/* *****************************************************************************/
/* knowledge base access routines for AttrVal fields in AttrValArr */
/* *****************************************************************************/

extern picoos_int32 picokpr_getAttrValArrInt32(picokpr_Preproc preproc, picokpr_AttrValArrOffset ofs)
{
    picoos_uint8 * p = (picoos_uint8 *)&(((kpr_SubObj)preproc)->rAttrValArr[ofs]);
    picoos_uint32 c =              p[KPR_ATTRVAL_INT_OFS] +
                               256*p[KPR_ATTRVAL_INT_OFS+1] +
                           256*256*p[KPR_ATTRVAL_INT_OFS+2] +
                       256*256*256*p[KPR_ATTRVAL_INT_OFS+3];

    if (c > KPR_MAX_INT32) {
        return (c - KPR_MAX_INT32) - 1;
    } else {
        return (((int)c + (int) -(KPR_MAX_INT32)) - 1);
    }
}

/* *****************************************************************************/
/* knowledge base access routines for AttrVal fields in AttrValArr */
/* *****************************************************************************/

extern picokpr_OutItemArrOffset picokpr_getOutItemNextOfs(picokpr_Preproc preproc, picokpr_OutItemArrOffset ofs)
{
    picoos_uint8 * p = (picoos_uint8 *)&(((kpr_SubObj)preproc)->rOutItemArr[ofs]);

    return p[KPR_OUTITEM_NEXTOFS_OFS+0] + 256*p[KPR_OUTITEM_NEXTOFS_OFS+1];
}


extern picoos_int32 picokpr_getOutItemType(picokpr_Preproc preproc, picokpr_OutItemArrOffset ofs)
{
    picoos_uint8 * p = (picoos_uint8 *)&(((kpr_SubObj)preproc)->rOutItemArr[ofs]);

    return p[KPR_OUTITEM_TYPE_OFS+0];
}


extern picokpr_StrArrOffset picokpr_getOutItemStrOfs(picokpr_Preproc preproc, picokpr_OutItemArrOffset ofs)
{
    picoos_uint8 * p = (picoos_uint8 *)&(((kpr_SubObj)preproc)->rOutItemArr[ofs]);

    return             p[KPR_OUTITEM_STROFS_OFS+0] +
                   256*p[KPR_OUTITEM_STROFS_OFS+1] +
               256*256*p[KPR_OUTITEM_STROFS_OFS+2] +
           256*256*256*p[KPR_OUTITEM_STROFS_OFS+3];
}


extern picokpr_VarStrPtr picokpr_getOutItemStr(picokpr_Preproc preproc, picokpr_OutItemArrOffset ofs)
{
    picoos_uint8 * p = (picoos_uint8 *)&(((kpr_SubObj)preproc)->rOutItemArr[ofs]);
    picoos_uint32 c =  p[KPR_OUTITEM_STROFS_OFS+0] +
                   256*p[KPR_OUTITEM_STROFS_OFS+1] +
               256*256*p[KPR_OUTITEM_STROFS_OFS+2] +
           256*256*256*p[KPR_OUTITEM_STROFS_OFS+3];

    return (picoos_uint8 *)&(((kpr_SubObj)preproc)->rStrArr[c]);
}

extern picoos_int32 picokpr_getOutItemVal(picokpr_Preproc preproc, picokpr_OutItemArrOffset ofs)
{
    picoos_uint8 * p = (picoos_uint8 *)&(((kpr_SubObj)preproc)->rOutItemArr[ofs]);
    picoos_uint32 c =  p[KPR_OUTITEM_VAL_OFS+0] +
                   256*p[KPR_OUTITEM_VAL_OFS+1] +
               256*256*p[KPR_OUTITEM_VAL_OFS+2] +
           256*256*256*p[KPR_OUTITEM_VAL_OFS+3];

    if (c > KPR_MAX_INT32) {
        return (c - KPR_MAX_INT32) - 1;
    } else {
        return (((int)c + (int) -(KPR_MAX_INT32)) - 1);
    }
}


extern picokpr_OutItemArrOffset picokpr_getOutItemArgOfs(picokpr_Preproc preproc, picokpr_OutItemArrOffset ofs)
{
    picoos_uint8 * p = (picoos_uint8 *)&(((kpr_SubObj)preproc)->rOutItemArr[ofs]);

    return             p[KPR_OUTITEM_ARGOFS_OFS+0] +
                   256*p[KPR_OUTITEM_ARGOFS_OFS+1] +
               256*256*p[KPR_OUTITEM_ARGOFS_OFS+2] +
           256*256*256*p[KPR_OUTITEM_ARGOFS_OFS+3];
}


/* *****************************************************************************/
/* knowledge base access routines for tokens in TokArr */
/* *****************************************************************************/

extern picokpr_TokSetNP picokpr_getTokSetNP(picokpr_Preproc preproc, picokpr_TokArrOffset ofs)
{
    picoos_uint32 c/*, b*/;
    picoos_uint8 * p = (picoos_uint8 *)&(((kpr_SubObj)preproc)->rTokArr[ofs]) + KPR_TOK_SETNP_OFS;
    /*picoos_uint8 * p = (picoos_uint8 *)&(((kpr_SubObj)preproc)->rTokArr[ofs]);*/
    picoos_uint32 p0, p1, p2, p3;

        p0 = *(p++);
        p1 = *(p++);
        p2 = *(p++);
        p3 = *p;

        c = p0 + (p1<<8) + (p2<<16) + (p3<<24);

        return c;

        /*
    c =                p[KPR_TOK_SETNP_OFS+0] +
                   256*p[KPR_TOK_SETNP_OFS+1] +
               256*256*p[KPR_TOK_SETNP_OFS+2] +
           256*256*256*p[KPR_TOK_SETNP_OFS+3];

    b = 0;
    i = 0;
    while ((i <= 31) && (c > 0)) {
        if (c % 2 == 1) {
            b |= (1<<i);
        }
        c = c / 2;
        i++;
    }

    return b;
        */
}


extern picokpr_TokSetWP picokpr_getTokSetWP(picokpr_Preproc preproc, picokpr_TokArrOffset ofs)
{
    picoos_uint32 c/*, b*/;
    /* picoos_uint8 * p = (picoos_uint8 *)&(((kpr_SubObj)preproc)->rTokArr[ofs]);*/
    picoos_uint8 * p = (picoos_uint8 *)&(((kpr_SubObj)preproc)->rTokArr[ofs]) + KPR_TOK_SETWP_OFS;
    picoos_uint32 p0, p1, p2, p3;

    p0 = *(p++);
    p1 = *(p++);
    p2 = *(p++);
    p3 = *p;

    c = p0 + (p1<<8) + (p2<<16) + (p3<<24);
    return c;

    /*
    c =                p[KPR_TOK_SETWP_OFS+0] +
                   256*p[KPR_TOK_SETWP_OFS+1] +
               256*256*p[KPR_TOK_SETWP_OFS+2] +
           256*256*256*p[KPR_TOK_SETWP_OFS+3];

    b = 0;
    i = 0;
    while ((i <= 31) && (c > 0)) {
        if (c % 2 == 1) {
            b |= (1<<i);
        }
        c = c / 2;
        i++;
    }

    return b;
    */
}


extern picokpr_TokArrOffset picokpr_getTokNextOfs(picokpr_Preproc preproc, picokpr_TokArrOffset ofs)
{
    picoos_uint8 * p = (picoos_uint8 *)&(((kpr_SubObj)preproc)->rTokArr[ofs]);

    return p[KPR_TOK_NEXTOFS_OFS+0] + 256*p[KPR_TOK_NEXTOFS_OFS+1];
}


extern picokpr_TokArrOffset picokpr_getTokAltLOfs(picokpr_Preproc preproc, picokpr_TokArrOffset ofs)
{
    picoos_uint8 * p = (picoos_uint8 *)&(((kpr_SubObj)preproc)->rTokArr[ofs]) + KPR_TOK_ALTLOFS_OFS;
    picokpr_TokArrOffset c = *p++;
    return c +   256**p;

    /*picoos_uint8 * p = (picoos_uint8 *)&(((kpr_SubObj)preproc)->rTokArr[ofs]);

      return p[KPR_TOK_ALTLOFS_OFS+0] + 256*p[KPR_TOK_ALTLOFS_OFS+1];
    */
}


extern picokpr_TokArrOffset picokpr_getTokAltROfs(picokpr_Preproc preproc, picokpr_TokArrOffset ofs)
{
     picoos_uint8 * p = (picoos_uint8 *)&(((kpr_SubObj)preproc)->rTokArr[ofs]) + KPR_TOK_ALTROFS_OFS;
    picokpr_TokArrOffset c = *p++;
    return c +   256**p;

    /*picoos_uint8 * p = (picoos_uint8 *)&(((kpr_SubObj)preproc)->rTokArr[ofs]);

      return p[KPR_TOK_ALTROFS_OFS+0] + 256*p[KPR_TOK_ALTROFS_OFS+1];*/
}


extern picokpr_AttrValArrOffset picokpr_getTokAttribOfs(picokpr_Preproc preproc, picokpr_TokArrOffset ofs)
{
    picoos_uint8 * p = (picoos_uint8 *)&(((kpr_SubObj)preproc)->rTokArr[ofs]);

    return p[KPR_TOK_ATTRIBOFS_OFS+0] + 256*p[KPR_TOK_ATTRIBOFS_OFS+1];
}

/* *****************************************************************************/
/* knowledge base access routines for productions in ProdArr */
/* *****************************************************************************/

extern picoos_int32 picokpr_getProdArrLen(picokpr_Preproc preproc)
{
    return ((kpr_SubObj)preproc)->rProdArrLen;
}

extern picoos_int32 picokpr_getProdPrefCost(picokpr_Preproc preproc, picokpr_ProdArrOffset ofs)
{
    picoos_uint8 * p = (picoos_uint8 *)&(((kpr_SubObj)preproc)->rProdArr[ofs]);
    picoos_uint32 c =  p[KPR_PROD_PRODPREFCOST_OFS+0] +
                   256*p[KPR_PROD_PRODPREFCOST_OFS+1] +
               256*256*p[KPR_PROD_PRODPREFCOST_OFS+2] +
           256*256*256*p[KPR_PROD_PRODPREFCOST_OFS+3];


    if (c > KPR_MAX_INT32) {
        return (c - KPR_MAX_INT32) - 1;
    } else {
        return (((int)c + (int) -(KPR_MAX_INT32)) - 1);
    }
}


extern picokpr_StrArrOffset picokpr_getProdNameOfs(picokpr_Preproc preproc, picokpr_ProdArrOffset ofs)
{
    picoos_uint8 * p = (picoos_uint8 *)&(((kpr_SubObj)preproc)->rProdArr[ofs]);

    return             p[KPR_PROD_PRODNAMEOFS_OFS+0] +
                   256*p[KPR_PROD_PRODNAMEOFS_OFS+1] +
               256*256*p[KPR_PROD_PRODNAMEOFS_OFS+2] +
           256*256*256*p[KPR_PROD_PRODNAMEOFS_OFS+3];

}


extern picokpr_TokArrOffset picokpr_getProdATokOfs(picokpr_Preproc preproc, picokpr_ProdArrOffset ofs)
{
    picoos_uint8 * p = (picoos_uint8 *)&(((kpr_SubObj)preproc)->rProdArr[ofs]);

    return p[KPR_PROD_ATOKOFS_OFS+0] + 256*p[KPR_PROD_ATOKOFS_OFS+1];
}


extern picokpr_TokArrOffset picokpr_getProdETokOfs(picokpr_Preproc preproc, picokpr_ProdArrOffset ofs)
{
    picoos_uint8 * p = (picoos_uint8 *)&(((kpr_SubObj)preproc)->rProdArr[ofs]);

    return p[KPR_PROD_ETOKOFS_OFS+0] + 256*p[KPR_PROD_ETOKOFS_OFS+1];
}

/* *****************************************************************************/
/* knowledge base access routines for contexts in CtxArr */
/* *****************************************************************************/

extern picoos_int32 picokpr_getCtxArrLen(picokpr_Preproc preproc)
{
    return ((kpr_SubObj)preproc)->rCtxArrLen;
}

extern picokpr_StrArrOffset picokpr_getCtxCtxNameOfs(picokpr_Preproc preproc, picokpr_CtxArrOffset ofs)
{
    picoos_uint8 * p = (picoos_uint8 *)&(((kpr_SubObj)preproc)->rCtxArr[ofs]);

    return             p[KPR_CTX_CTXNAMEOFS_OFS+0] +
                   256*p[KPR_CTX_CTXNAMEOFS_OFS+1] +
               256*256*p[KPR_CTX_CTXNAMEOFS_OFS+2] +
           256*256*256*p[KPR_CTX_CTXNAMEOFS_OFS+3];
}


extern picokpr_StrArrOffset picokpr_getCtxNetNameOfs(picokpr_Preproc preproc, picokpr_CtxArrOffset ofs)
{
    picoos_uint8 * p = (picoos_uint8 *)&(((kpr_SubObj)preproc)->rCtxArr[ofs]);

    return             p[KPR_CTX_NETNAMEOFS_OFS+0] +
                   256*p[KPR_CTX_NETNAMEOFS_OFS+1] +
               256*256*p[KPR_CTX_NETNAMEOFS_OFS+2] +
           256*256*256*p[KPR_CTX_NETNAMEOFS_OFS+3];
}


extern picokpr_StrArrOffset picokpr_getCtxProdNameOfs(picokpr_Preproc preproc, picokpr_CtxArrOffset ofs)
{
    picoos_uint8 * p = (picoos_uint8 *)&(((kpr_SubObj)preproc)->rCtxArr[ofs]);

    return             p[KPR_CTX_PRODNAMEOFS_OFS+0] +
                   256*p[KPR_CTX_PRODNAMEOFS_OFS+1] +
               256*256*p[KPR_CTX_PRODNAMEOFS_OFS+2] +
           256*256*256*p[KPR_CTX_PRODNAMEOFS_OFS+3];
}

/* *****************************************************************************/
/* knowledge base access routines for networks */
/* *****************************************************************************/

extern picokpr_VarStrPtr picokpr_getPreprocNetName(picokpr_Preproc preproc)
{
    return ((kpr_SubObj)preproc)->rNetName;
}


#ifdef __cplusplus
}
#endif


/* end */