libmyoox_private_mox.h File Reference

tag: nhi1-release-250425 More...

#include <tcl.h>
#include "libmyoox_mox.h"
#include "debug_mox.h"
#include "rl_mox.h"

Include dependency graph for libmyoox_private_mox.h:

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Macros
#define	MOX_EXTERN   __attribute__ ((visibility("default")))
#define	MOX_USE_OBJ_PRINTF   1
#define	MOX_SETUP_hdl_static
#define	printOther(__ptr)
#define	STR2VAL(str)
#define	VAL2STR(val)
#define	VAL2SELF(val)
#define	VAL2CLASS(val)

Functions
mox_inline MOX_STRN	libmyoox__InspectI_direct (MOX_OBJ_T o)

Detailed Description

tag: nhi1-release-250425

Copyright

(C) NHI - #1 - Project - Group This software has NO permission to copy, please contact AUTHOR for additional information

Definition in file libmyoox_private_mox.h.

Macro Definition Documentation

MOX_EXTERN

#define MOX_EXTERN   __attribute__ ((visibility("default")))

Definition at line 16 of file libmyoox_private_mox.h.

MOX_SETUP_hdl_static

#define MOX_SETUP_hdl_static

Value:

  MOX_UNUSED int __skip=1;    \
  MOX_UNUSED MOX_RT_T moxrt = clientData; \

Definition at line 19 of file libmyoox_private_mox.h.

#define MOX_SETUP_hdl_static  \
  MOX_UNUSED int __skip=1;    \
  MOX_UNUSED MOX_RT_T moxrt = clientData; \
 

MOX_USE_OBJ_PRINTF

#define MOX_USE_OBJ_PRINTF   1

Definition at line 17 of file libmyoox_private_mox.h.

printOther

#define printOther

(

__ptr

)

Value:

  do {                                                                             \
  Var *_ptr = __ptr;                                                                               \
  printV(#__ptr ": %p," , _ptr->value.objPtr);                                                             \
  printV("  | TclIsVarScalar=%d, TclIsVarLink=%d, TclIsVarArray=%d, TclIsVarUndefined=%d",                 \
              TclIsVarScalar(_ptr), TclIsVarLink(_ptr), TclIsVarArray(_ptr),                               \
                TclIsVarUndefined(_ptr));                                                                  \
  printV("  | TclIsVarArrayElement=%d, TclIsVarTemporary=%d, TclIsVarArgument=%d, TclIsVarResolved=%d",    \
              TclIsVarArrayElement(_ptr), TclIsVarTemporary(_ptr), TclIsVarArgument(_ptr),                 \
                TclIsVarResolved(_ptr));                                                                   \
  printV("  | TclIsVarNamespaceVar=%d",                                                                    \
              TclIsVarNamespaceVar(_ptr));                                                                 \
} while (0)

Definition at line 38 of file libmyoox_private_mox.h.

#define printOther(__ptr) do {                                                                             \
  Var *_ptr = __ptr;                                                                               \
  printV(#__ptr ": %p," , _ptr->value.objPtr);                                                             \
  printV("  | TclIsVarScalar=%d, TclIsVarLink=%d, TclIsVarArray=%d, TclIsVarUndefined=%d",                 \
              TclIsVarScalar(_ptr), TclIsVarLink(_ptr), TclIsVarArray(_ptr),                               \
                TclIsVarUndefined(_ptr));                                                                  \
  printV("  | TclIsVarArrayElement=%d, TclIsVarTemporary=%d, TclIsVarArgument=%d, TclIsVarResolved=%d",    \
              TclIsVarArrayElement(_ptr), TclIsVarTemporary(_ptr), TclIsVarArgument(_ptr),                 \
                TclIsVarResolved(_ptr));                                                                   \
  printV("  | TclIsVarNamespaceVar=%d",                                                                    \
              TclIsVarNamespaceVar(_ptr));                                                                 \
} while (0)

STR2VAL

#define STR2VAL

(

str

)

Value:

Tcl_NewStringObj((MOX_STRN)str,-1)

Definition at line 53 of file libmyoox_private_mox.h.

VAL2CLASS

#define VAL2CLASS

(

val

)

Value:

(val)

Definition at line 57 of file libmyoox_private_mox.h.

VAL2SELF

#define VAL2SELF

(

val

)

Value:

(val)

Definition at line 56 of file libmyoox_private_mox.h.

VAL2STR

#define VAL2STR

(

val

)

Value:

Tcl_GetString(val)

Definition at line 55 of file libmyoox_private_mox.h.

Function Documentation

libmyoox__InspectI_direct()

mox_inline MOX_STRN libmyoox__InspectI_direct

(

MOX_OBJ_T

o

)

Definition at line 25 of file libmyoox_private_mox.h.

{
  static __thread char buf[256]; buf[0] = '\0';
  if (o == NULL) {
    snprintf(buf,256,"Inspect: NULL");
  } else {
    snprintf(buf,256,"Inspect: %-30s [ref=%i, typ=%-20s, prt1=%-10p, prt2=%-10p]", 
      o->bytes, o->refCount, o->typePtr ? o->typePtr->name : "ukn", 
        o->internalRep.twoPtrValue.ptr1, o->internalRep.twoPtrValue.ptr2);
  }
  return buf;
};