image_pack 0.2.0

data/ext/image_pack/vendor/mozjpeg/simd/x86_64/jsimdcpu.asm

@@ -0,0 +1,86 @@
+;
+; jsimdcpu.asm - SIMD instruction support check
+;
+; Copyright 2009 Pierre Ossman <ossman@cendio.se> for Cendio AB
+; Copyright (C) 2016, D. R. Commander.
+;
+; Based on
+; x86 SIMD extension for IJG JPEG library
+; Copyright (C) 1999-2006, MIYASAKA Masaru.
+; For conditions of distribution and use, see copyright notice in jsimdext.inc
+;
+; This file should be assembled with NASM (Netwide Assembler),
+; can *not* be assembled with Microsoft's MASM or any compatible
+; assembler (including Borland's Turbo Assembler).
+; NASM is available from http://nasm.sourceforge.net/ or
+; http://sourceforge.net/project/showfiles.php?group_id=6208
+
+%include "jsimdext.inc"
+
+; --------------------------------------------------------------------------
+    SECTION     SEG_TEXT
+    BITS        64
+;
+; Check if the CPU supports SIMD instructions
+;
+; GLOBAL(unsigned int)
+; jpeg_simd_cpu_support(void)
+;
+
+    align       32
+    GLOBAL_FUNCTION(jpeg_simd_cpu_support)
+
+EXTN(jpeg_simd_cpu_support):
+    push        rbx
+    push        rdi
+
+    xor         rdi, rdi                ; simd support flag
+
+    ; Assume that all x86-64 processors support SSE & SSE2 instructions
+    or          rdi, JSIMD_SSE2
+    or          rdi, JSIMD_SSE
+
+    ; Check whether CPUID leaf 07H is supported
+    ; (leaf 07H is used to check for AVX2 instruction support)
+    mov         rax, 0
+    cpuid
+    cmp         rax, 7
+    jl          short .return           ; Maximum leaf < 07H
+
+    ; Check for AVX2 instruction support
+    mov         rax, 7
+    xor         rcx, rcx
+    cpuid
+    mov         rax, rbx                ; rax = Extended feature flags
+
+    test        rax, 1<<5               ; bit5:AVX2
+    jz          short .return
+
+    ; Check for AVX2 O/S support
+    mov         rax, 1
+    xor         rcx, rcx
+    cpuid
+    test        rcx, 1<<27
+    jz          short .return           ; O/S does not support XSAVE
+    test        rcx, 1<<28
+    jz          short .return           ; CPU does not support AVX2
+
+    xor         rcx, rcx
+    xgetbv
+    and         rax, 6
+    cmp         rax, 6                  ; O/S does not manage XMM/YMM state
+                                        ; using XSAVE
+    jnz         short .return
+
+    or          rdi, JSIMD_AVX2
+
+.return:
+    mov         rax, rdi
+
+    pop         rdi
+    pop         rbx
+    ret
+
+; For some reason, the OS X linker does not honor the request to align the
+; segment unless we do this.
+    align       32

data/ext/image_pack/vendor/mozjpeg/strtest.c

@@ -0,0 +1,170 @@
+/*
+ * Copyright (C)2022-2023 D. R. Commander.  All Rights Reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions are met:
+ *
+ * - Redistributions of source code must retain the above copyright notice,
+ *   this list of conditions and the following disclaimer.
+ * - Redistributions in binary form must reproduce the above copyright notice,
+ *   this list of conditions and the following disclaimer in the documentation
+ *   and/or other materials provided with the distribution.
+ * - Neither the name of the libjpeg-turbo Project nor the names of its
+ *   contributors may be used to endorse or promote products derived from this
+ *   software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS",
+ * AND ANY EXPRESS 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 COPYRIGHT HOLDERS OR 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.
+ */
+
+#include "jinclude.h"
+#include <errno.h>
+
+
+#define CHECK_VALUE(actual, expected, desc) \
+  if (actual != expected) { \
+    printf("ERROR in line %d: " desc " is %d, should be %d\n", \
+           __LINE__, actual, expected); \
+    return -1; \
+  }
+
+#define CHECK_ERRNO(errno_return, expected_errno) \
+  CHECK_VALUE(errno_return, expected_errno, "Return value") \
+  CHECK_VALUE(errno, expected_errno, "errno") \
+
+
+#ifdef _MSC_VER
+
+void invalid_parameter_handler(const wchar_t *expression,
+                               const wchar_t *function, const wchar_t *file,
+                               unsigned int line, uintptr_t pReserved)
+{
+}
+
+#endif
+
+
+int main(int argc, char **argv)
+{
+#if !defined(NO_GETENV) || !defined(NO_PUTENV)
+  int err;
+#endif
+#ifndef NO_GETENV
+  char env[3];
+#endif
+
+#ifdef _MSC_VER
+  _set_invalid_parameter_handler(invalid_parameter_handler);
+#endif
+
+  /***************************************************************************/
+
+#ifndef NO_PUTENV
+
+  printf("PUTENV_S():\n");
+
+  errno = 0;
+  err = PUTENV_S(NULL, "12");
+  CHECK_ERRNO(err, EINVAL);
+
+  errno = 0;
+  err = PUTENV_S("TESTENV", NULL);
+  CHECK_ERRNO(err, EINVAL);
+
+  errno = 0;
+  err = PUTENV_S("TESTENV", "12");
+  CHECK_ERRNO(err, 0);
+
+  printf("SUCCESS!\n\n");
+
+#endif
+
+  /***************************************************************************/
+
+#ifndef NO_GETENV
+
+  printf("GETENV_S():\n");
+
+  errno = 0;
+  env[0] = 1;
+  env[1] = 2;
+  env[2] = 3;
+  err = GETENV_S(env, 3, NULL);
+  CHECK_ERRNO(err, 0);
+  CHECK_VALUE(env[0], 0, "env[0]");
+  CHECK_VALUE(env[1], 2, "env[1]");
+  CHECK_VALUE(env[2], 3, "env[2]");
+
+  errno = 0;
+  env[0] = 1;
+  env[1] = 2;
+  env[2] = 3;
+  err = GETENV_S(env, 3, "TESTENV2");
+  CHECK_ERRNO(err, 0);
+  CHECK_VALUE(env[0], 0, "env[0]");
+  CHECK_VALUE(env[1], 2, "env[1]");
+  CHECK_VALUE(env[2], 3, "env[2]");
+
+  errno = 0;
+  err = GETENV_S(NULL, 3, "TESTENV");
+  CHECK_ERRNO(err, EINVAL);
+
+  errno = 0;
+  err = GETENV_S(NULL, 0, "TESTENV");
+  CHECK_ERRNO(err, 0);
+
+  errno = 0;
+  env[0] = 1;
+  err = GETENV_S(env, 0, "TESTENV");
+  CHECK_ERRNO(err, EINVAL);
+  CHECK_VALUE(env[0], 1, "env[0]");
+
+  errno = 0;
+  env[0] = 1;
+  env[1] = 2;
+  env[2] = 3;
+  err = GETENV_S(env, 1, "TESTENV");
+  CHECK_VALUE(err, ERANGE, "Return value");
+  CHECK_VALUE(errno, 0, "errno");
+  CHECK_VALUE(env[0], 0, "env[0]");
+  CHECK_VALUE(env[1], 2, "env[1]");
+  CHECK_VALUE(env[2], 3, "env[2]");
+
+  errno = 0;
+  env[0] = 1;
+  env[1] = 2;
+  env[2] = 3;
+  err = GETENV_S(env, 2, "TESTENV");
+  CHECK_VALUE(err, ERANGE, "Return value");
+  CHECK_VALUE(errno, 0, "errno");
+  CHECK_VALUE(env[0], 0, "env[0]");
+  CHECK_VALUE(env[1], 2, "env[1]");
+  CHECK_VALUE(env[2], 3, "env[2]");
+
+  errno = 0;
+  env[0] = 1;
+  env[1] = 2;
+  env[2] = 3;
+  err = GETENV_S(env, 3, "TESTENV");
+  CHECK_ERRNO(err, 0);
+  CHECK_VALUE(env[0], '1', "env[0]");
+  CHECK_VALUE(env[1], '2', "env[1]");
+  CHECK_VALUE(env[2], 0, "env[2]");
+
+  printf("SUCCESS!\n\n");
+
+#endif
+
+  /***************************************************************************/
+
+  return 0;
+}