3.8

1 files changed, 0 insertions, 236 deletions

diff --git a/shared/ossp_uuid/perl/uuid.xs b/shared/ossp_uuid/perl/uuid.xs
deleted file mode 100644
index a9ed41d2..00000000
--- a/shared/ossp_uuid/perl/uuid.xs
+++ /dev/null
@@ -1,236 +0,0 @@
-/*
-**  OSSP uuid - Universally Unique Identifier
-**  Copyright (c) 2004-2007 Ralf S. Engelschall <rse@engelschall.com>
-**  Copyright (c) 2004-2007 The OSSP Project <http://www.ossp.org/>
-**
-**  This file is part of OSSP uuid, a library for the generation
-**  of UUIDs which can found at http://www.ossp.org/pkg/lib/uuid/
-**
-**  Permission to use, copy, modify, and distribute this software for
-**  any purpose with or without fee is hereby granted, provided that
-**  the above copyright notice and this permission notice appear in all
-**  copies.
-**
-**  THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
-**  WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-**  MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
-**  IN NO EVENT SHALL THE AUTHORS AND COPYRIGHT HOLDERS AND THEIR
-**  CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
-**  SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
-**  LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
-**  USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
-**  ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-**  OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
-**  OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
-**  SUCH DAMAGE.
-**
-**  uuid.xs: Perl Binding (Perl/XS part)
-*/
-
-#include "uuid.h"
-
-#include "EXTERN.h"
-#include "perl.h"
-#include "XSUB.h"
-
-MODULE = OSSP::uuid PACKAGE = OSSP::uuid
-
-void
-constant(sv)
-    PREINIT:
-        dXSTARG;
-        STRLEN          len;
-        int             i;
-        static struct {
-            const char *name;
-            int         value;
-        } constant_table[] = {
-            { "UUID_VERSION", UUID_VERSION },
-            { "UUID_LEN_BIN", UUID_LEN_BIN },
-            { "UUID_LEN_STR", UUID_LEN_STR },
-            { "UUID_LEN_SIV", UUID_LEN_SIV },
-            { "UUID_RC_OK",   UUID_RC_OK   },
-            { "UUID_RC_ARG",  UUID_RC_ARG  },
-            { "UUID_RC_MEM",  UUID_RC_MEM  },
-            { "UUID_RC_SYS",  UUID_RC_SYS  },
-            { "UUID_RC_INT",  UUID_RC_INT  },
-            { "UUID_RC_IMP",  UUID_RC_IMP  },
-            { "UUID_MAKE_V1", UUID_MAKE_V1 },
-            { "UUID_MAKE_V3", UUID_MAKE_V3 },
-            { "UUID_MAKE_V4", UUID_MAKE_V4 },
-            { "UUID_MAKE_V5", UUID_MAKE_V5 },
-            { "UUID_MAKE_MC", UUID_MAKE_MC },
-            { "UUID_FMT_BIN", UUID_FMT_BIN },
-            { "UUID_FMT_STR", UUID_FMT_STR },
-            { "UUID_FMT_SIV", UUID_FMT_SIV },
-            { "UUID_FMT_TXT", UUID_FMT_TXT }
-        };
-    INPUT:
-        SV             *sv;
-        const char     *s = SvPV(sv, len);
-    PPCODE:
-        for (i = 0; i < sizeof(constant_table)/sizeof(constant_table[0]); i++) {
-            if (strcmp(s, constant_table[i].name) == 0) {
-                EXTEND(SP, 1);
-                PUSHs(&PL_sv_undef);
-                PUSHi(constant_table[i].value);
-                break;
-            }
-        }
-        if (i == sizeof(constant_table)/sizeof(constant_table[0])) {
-            sv = sv_2mortal(newSVpvf("unknown contant OSSP::uuid::%s", s));
-            PUSHs(sv);
-        }
-
-
-uuid_rc_t
-uuid_create(uuid)
-    PROTOTYPE:
-        $
-    INPUT:
-        uuid_t *&uuid = NO_INIT
-    CODE:
-        RETVAL = uuid_create(&uuid);
-    OUTPUT:
-        uuid
-        RETVAL
-
-uuid_rc_t
-uuid_destroy(uuid)
-    PROTOTYPE:
-        $
-    INPUT:
-        uuid_t *uuid
-    CODE:
-        RETVAL = uuid_destroy(uuid);
-    OUTPUT:
-        RETVAL
-
-uuid_rc_t
-uuid_load(uuid,name)
-    PROTOTYPE:
-        $$
-    INPUT:
-        uuid_t *uuid
-        const char *name
-    CODE:
-        RETVAL = uuid_load(uuid, name);
-    OUTPUT:
-        RETVAL
-
-uuid_rc_t
-uuid_make(uuid,mode,...)
-    PROTOTYPE:
-        $$;$$
-    INPUT:
-        uuid_t *uuid
-        unsigned int mode
-    PREINIT:
-        uuid_t *ns;
-        const char *name;
-    CODE:
-        if ((mode & UUID_MAKE_V3) || (mode & UUID_MAKE_V5)) {
-            if (items != 4)
-                croak("mode UUID_MAKE_V3/UUID_MAKE_V5 requires two additional arguments to uuid_make()");
-	        if (!SvROK(ST(2)))
-                croak("mode UUID_MAKE_V3/UUID_MAKE_V5 requires a UUID object as namespace");
-            ns   = INT2PTR(uuid_t *, SvIV((SV*)SvRV(ST(2))));
-            name = (const char *)SvPV_nolen(ST(3));
-            RETVAL = uuid_make(uuid, mode, ns, name);
-        }
-        else {
-            if (items != 2)
-                croak("invalid number of arguments to uuid_make()");
-            RETVAL = uuid_make(uuid, mode);
-        }
-    OUTPUT:
-        RETVAL
-
-uuid_rc_t
-uuid_isnil(uuid,result)
-    PROTOTYPE:
-        $$
-    INPUT:
-        uuid_t *uuid
-        int &result = NO_INIT
-    CODE:
-        RETVAL = uuid_isnil(uuid, &result);
-    OUTPUT:
-        result
-        RETVAL
-
-uuid_rc_t
-uuid_compare(uuid,uuid2,result)
-    PROTOTYPE:
-        $$$
-    INPUT:
-        uuid_t *uuid
-        uuid_t *uuid2
-        int &result = NO_INIT
-    CODE:
-        RETVAL = uuid_compare(uuid, uuid2, &result);
-    OUTPUT:
-        result
-        RETVAL
-
-uuid_rc_t
-uuid_import(uuid,fmt,data_ptr,data_len)
-    PROTOTYPE:
-        $$$$
-    INPUT:
-        uuid_t *uuid
-        uuid_fmt_t fmt
-        const void *data_ptr
-        size_t data_len
-    CODE:
-        if (ST(3) == &PL_sv_undef)
-            data_len = sv_len(ST(2));
-        RETVAL = uuid_import(uuid, fmt, data_ptr, data_len);
-    OUTPUT:
-        RETVAL
-
-uuid_rc_t
-uuid_export(uuid,fmt,data_ptr,data_len)
-    PROTOTYPE:
-        $$$$
-    INPUT:
-        uuid_t *uuid
-        uuid_fmt_t fmt
-        void *&data_ptr = NO_INIT
-        size_t &data_len = NO_INIT
-    PPCODE:
-        data_ptr = NULL;
-        data_len = 0;
-        RETVAL = uuid_export(uuid, fmt, &data_ptr, &data_len);
-        if (RETVAL == UUID_RC_OK) {
-            if (fmt == UUID_FMT_SIV)
-                data_len = strlen((char *)data_ptr);
-            else if (fmt == UUID_FMT_STR || fmt == UUID_FMT_TXT)
-                data_len--; /* Perl doesn't wish NUL-termination on strings */
-            sv_setpvn(ST(2), data_ptr, data_len);
-            free(data_ptr);
-            if (ST(3) != &PL_sv_undef)
-                sv_setuv(ST(3), (UV)data_len);
-        }
-        PUSHi((IV)RETVAL);
-
-char *
-uuid_error(rc)
-    PROTOTYPE:
-        $
-    INPUT:
-        uuid_rc_t rc
-    CODE:
-        RETVAL = uuid_error(rc);
-    OUTPUT:
-        RETVAL
-
-unsigned long
-uuid_version()
-    PROTOTYPE:
-    INPUT:
-    CODE:
-        RETVAL = uuid_version();
-    OUTPUT:
-        RETVAL
-