root/trunk/orca/internal.h

#ifndef INTERNAL_H
#define INTERNAL_H


#define MAX_WORD_LEN        32      /* LIMIT: word length */

#define BIN_ATOM_NAMES      0

#define GLOBAL_CTXN         0
#define GLOBAL_WORDS_BLKN   1

#define orGlobalCtx(c) \
    c.wblkN = GLOBAL_WORDS_BLKN; \
    c.vblkN = GLOBAL_CTXN


#define orStackGrow(n)      orEnv->dataStack.used += n
#define orStackDrop(n)      orEnv->dataStack.used -= n

#define OA_EXPAND1(type,arr,newptr) \
    orArrayReserve(arr, sizeof(type), arr->used+1); \
    newptr = ((type*) arr->buf) + arr->used; \
    ++arr->used


// Spec type fields.
#define LAST_ARG    argc
#define TYPE_INDEX  refc


// Evaluator Op-Codes
#define OC_SETWORD         1
#define OC_CALLINFIX       2
#define OC_CALLOP2         3
#define OC_SETPATH         4


typedef struct
{
    short argc;
    short refc;
}
CallArgs;


typedef struct
{
    union
    {
        OValue*     value;
        int         offset;
        CallArgs    arg;
    };
    short   opcode;
    short   count;
}
CallRecord;


#define LIST_HEAD       0
#define LIST_TAIL       1

#define LIST_PREV       index
#define LIST_NEXT       func.bodyBlk
#define LIST_FREE       func.context
#define LIST_LINKED     argc

#define LIST_REMOVED_ERROR  "list has been removed"

#define orListNextNode(blk,it) \
    it = blk->values + it->LIST_NEXT


#endif  /* INTERNAL_H */