Parse constants like luajit-ffi about cffi-lua HOT 2 OPEN

#include <cstdlib>
#include <cstdio>

#include "util.hh"

// MSVC uses __cdecl calling convention for new/delete :-O
#ifdef _MSC_VER
#  define NEWDEL_CALL __cdecl
#else
#  define NEWDEL_CALL
#endif

void *NEWDEL_CALL operator new(size_t n) {
    void *p = malloc(n);
    if (!p) {
        abort(); /* FIXME: do not abort */
    }
    return p;
}

void *NEWDEL_CALL operator new[](size_t n) {
    void *p = malloc(n);
    if (!p) {
        abort();
    }
    return p;
}

void NEWDEL_CALL operator delete(void *p) {
    free(p);
}

void NEWDEL_CALL operator delete[](void *p) {
    free(p);
}

void NEWDEL_CALL operator delete(void *p, size_t) {
    free(p);
}

void NEWDEL_CALL operator delete[](void *p, size_t) {
    free(p);
}

extern "C" void __cxa_pure_virtual ()
{
    puts("__cxa_pure_virtual called\n");
    abort ();
}

extern "C" int __cxa_thread_atexit(void (*func)(), void *obj,
                                   void *dso_symbol) {
  int __cxa_thread_atexit_impl(void (*)(), void *, void *);
  return __cxa_thread_atexit_impl(func, obj, dso_symbol);
}