zeus/code/framework/lualib-src/lua-ccd/objects.h

/* The MIT License (MIT)
 *
 * Copyright (c) 2021 Stefano Trettel
 *
 * Software repository: MoonCCD, https://github.com/stetre/moonccd
 *
 * Permission is hereby granted, free of charge, to any person obtaining a copy
 * of this software and associated documentation files (the "Software"), to deal
 * in the Software without restriction, including without limitation the rights
 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
 * copies of the Software, and to permit persons to whom the Software is
 * furnished to do so, subject to the following conditions:
 *
 * The above copyright notice and this permission notice shall be included in all
 * copies or substantial portions of the Software.
 *
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
 * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
 * SOFTWARE.
 */

#ifndef objectsDEFINED
#define objectsDEFINED

#include "tree.h"
#include "udata.h"

/* libccd renaming (for internal use) */
#define vec3_t ccd_vec3_t
#define quat_t ccd_quat_t
#define real_t ccd_real_t

/* Objects' metatable names */
#define CCDPAR_MT "moonccd_ccdpar" /* ccd_t */

/* Userdata memory associated with objects */
#define ud_t moonccd_ud_t
typedef struct moonccd_ud_s ud_t;

struct moonccd_ud_s
{
    void *handle;                              /* the object handle bound to this userdata */
    int (*destructor)(lua_State *L, ud_t *ud); /* self destructor */
    ud_t *parent_ud;                           /* the ud of the parent object */
    uint32_t marks;
    int ref[6]; /* refs for callbacks, automatically unreferenced at destruction */
    void *info; /* object specific info (ud_info_t, subject to Free() at destruction, if not NULL) */
};

/* Marks.  m_ = marks word (uint32_t) , i_ = bit number (0 .. 31)  */
#define MarkGet(m_, i_) (((m_) & ((uint32_t)1 << (i_))) == ((uint32_t)1 << (i_)))
#define MarkSet(m_, i_)                        \
    do                                         \
    {                                          \
        (m_) = ((m_) | ((uint32_t)1 << (i_))); \
    } while (0)
#define MarkReset(m_, i_)                         \
    do                                            \
    {                                             \
        (m_) = ((m_) & (~((uint32_t)1 << (i_)))); \
    } while (0)

#define IsValid(ud) MarkGet((ud)->marks, 0)
#define MarkValid(ud) MarkSet((ud)->marks, 0)
#define CancelValid(ud) MarkReset((ud)->marks, 0)

#if 0
/* .c */
#define moonccd_
#endif

#define setmetatable moonccd_setmetatable
int setmetatable(lua_State *L, const char *mt);

#define newuserdata moonccd_newuserdata
ud_t *newuserdata(lua_State *L, void *handle, const char *mt, const char *tracename);
#define freeuserdata moonccd_freeuserdata
int freeuserdata(lua_State *L, ud_t *ud, const char *tracename);
#define pushuserdata moonccd_pushuserdata
int pushuserdata(lua_State *L, ud_t *ud);

#define freechildren moonccd_freechildren
int freechildren(lua_State *L, const char *mt, ud_t *parent_ud);

#define userdata_unref(L, handle) udata_unref((L), (handle))

#define UD(handle) userdata((handle)) /* dispatchable objects only */
#define userdata moonccd_userdata
ud_t *userdata(const void *handle);
#define testxxx moonccd_testxxx
void *testxxx(lua_State *L, int arg, ud_t **udp, const char *mt);
#define checkxxx moonccd_checkxxx
void *checkxxx(lua_State *L, int arg, ud_t **udp, const char *mt);
#define optxxx moonccd_optxxx
void *optxxx(lua_State *L, int arg, ud_t **udp, const char *mt);
#define pushxxx moonccd_pushxxx
int pushxxx(lua_State *L, void *handle);
#define checkxxxlist moonccd_checkxxxlist
void **checkxxxlist(lua_State *L, int arg, int *count, int *err, const char *mt);

#if 0 // 7yy
/* zzz.c */
#define checkzzz(L, arg, udp) (zzz_t *)checkxxx((L), (arg), (udp), ZZZ_MT)
#define testzzz(L, arg, udp) (zzz_t *)testxxx((L), (arg), (udp), ZZZ_MT)
#define optzzz(L, arg, udp) (zzz_t *)optxxx((L), (arg), (udp), ZZZ_MT)
#define pushzzz(L, handle) pushxxx((L), (void *)(handle))
#define checkzzzlist(L, arg, count, err) checkxxxlist((L), (arg), (count), (err), ZZZ_MT)

#endif

/* ccd.c */
#define checkccd(L, arg, udp) (ccd_t *)checkxxx((L), (arg), (udp), CCDPAR_MT)
#define testccd(L, arg, udp) (ccd_t *)testxxx((L), (arg), (udp), CCDPAR_MT)
#define optccd(L, arg, udp) (ccd_t *)optxxx((L), (arg), (udp), CCDPAR_MT)
#define pushccd(L, handle) pushxxx((L), (void *)(handle))
#define checkccdlist(L, arg, count, err) checkxxxlist((L), (arg), (count), (err), CCDPAR_MT)

#define RAW_FUNC(xxx)                                          \
    static int Raw(lua_State *L)                               \
    {                                                          \
        lua_pushinteger(L, (uintptr_t)check##xxx(L, 1, NULL)); \
        return 1;                                              \
    }

#define TYPE_FUNC(xxx) /* NONCL */    \
    static int Type(lua_State *L)     \
    {                                 \
        (void)check##xxx(L, 1, NULL); \
        lua_pushstring(L, "" #xxx);   \
        return 1;                     \
    }

#define DESTROY_FUNC(xxx)                   \
    static int Destroy(lua_State *L)        \
    {                                       \
        ud_t *ud;                           \
        (void)test##xxx(L, 1, &ud);         \
        if (!ud)                            \
            return 0; /* already deleted */ \
        return ud->destructor(L, ud);       \
    }

#define PARENT_FUNC(xxx)                       \
    static int Parent(lua_State *L)            \
    {                                          \
        ud_t *ud;                              \
        (void)check##xxx(L, 1, &ud);           \
        if (!ud->parent_ud)                    \
            return 0;                          \
        return pushuserdata(L, ud->parent_ud); \
    }

#endif /* objectsDEFINED */