octave-lojdl/gnulib-hg: lib/msvc-inval.c annotate

annotate lib/msvc-inval.c @ 16229:daac1ca4c436

inttypes: Modernize. * lib/inttypes.in.h (strtoimax, strtoumax): Use the C++ safe idioms. * modules/inttypes-incomplete (Depends-on): Add snippet/c++defs. (Makefile.am): Update inttypes.h rule.

author	Bruno Haible <bruno@clisp.org>
date	Thu, 05 Jan 2012 18:42:08 +0100
parents	ec738d6aeef5
children	bb182ee4a09d

rev	line source
15645 6ef4d991e582 New module 'msvc-inval'. Bruno Haible <bruno@clisp.org> parents: diff changeset	1 /* Invalid parameter handler for MSVC runtime libraries.
16201 8250f2777afc maint: update all copyright year number ranges Jim Meyering <meyering@redhat.com> parents: 15786 diff changeset	2 Copyright (C) 2011-2012 Free Software Foundation, Inc.
15645 6ef4d991e582 New module 'msvc-inval'. Bruno Haible <bruno@clisp.org> parents: diff changeset	3
6ef4d991e582 New module 'msvc-inval'. Bruno Haible <bruno@clisp.org> parents: diff changeset	4 This program is free software; you can redistribute it and/or modify
6ef4d991e582 New module 'msvc-inval'. Bruno Haible <bruno@clisp.org> parents: diff changeset	5 it under the terms of the GNU General Public License as published by
6ef4d991e582 New module 'msvc-inval'. Bruno Haible <bruno@clisp.org> parents: diff changeset	6 the Free Software Foundation; either version 2, or (at your option)
6ef4d991e582 New module 'msvc-inval'. Bruno Haible <bruno@clisp.org> parents: diff changeset	7 any later version.
6ef4d991e582 New module 'msvc-inval'. Bruno Haible <bruno@clisp.org> parents: diff changeset	8
6ef4d991e582 New module 'msvc-inval'. Bruno Haible <bruno@clisp.org> parents: diff changeset	9 This program is distributed in the hope that it will be useful,
6ef4d991e582 New module 'msvc-inval'. Bruno Haible <bruno@clisp.org> parents: diff changeset	10 but WITHOUT ANY WARRANTY; without even the implied warranty of
6ef4d991e582 New module 'msvc-inval'. Bruno Haible <bruno@clisp.org> parents: diff changeset	11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
6ef4d991e582 New module 'msvc-inval'. Bruno Haible <bruno@clisp.org> parents: diff changeset	12 GNU General Public License for more details.
6ef4d991e582 New module 'msvc-inval'. Bruno Haible <bruno@clisp.org> parents: diff changeset	13
6ef4d991e582 New module 'msvc-inval'. Bruno Haible <bruno@clisp.org> parents: diff changeset	14 You should have received a copy of the GNU General Public License along
6ef4d991e582 New module 'msvc-inval'. Bruno Haible <bruno@clisp.org> parents: diff changeset	15 with this program; if not, write to the Free Software Foundation,
6ef4d991e582 New module 'msvc-inval'. Bruno Haible <bruno@clisp.org> parents: diff changeset	16 Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */
6ef4d991e582 New module 'msvc-inval'. Bruno Haible <bruno@clisp.org> parents: diff changeset	17
6ef4d991e582 New module 'msvc-inval'. Bruno Haible <bruno@clisp.org> parents: diff changeset	18 #include <config.h>
6ef4d991e582 New module 'msvc-inval'. Bruno Haible <bruno@clisp.org> parents: diff changeset	19
6ef4d991e582 New module 'msvc-inval'. Bruno Haible <bruno@clisp.org> parents: diff changeset	20 /* Specification. */
6ef4d991e582 New module 'msvc-inval'. Bruno Haible <bruno@clisp.org> parents: diff changeset	21 #include "msvc-inval.h"
6ef4d991e582 New module 'msvc-inval'. Bruno Haible <bruno@clisp.org> parents: diff changeset	22
15786 104b4f91678d msvc-inval: Allow three invalid parameter handling modes. Bruno Haible <bruno@clisp.org> parents: 15785 diff changeset	23 #if HAVE_MSVC_INVALID_PARAMETER_HANDLER \
104b4f91678d msvc-inval: Allow three invalid parameter handling modes. Bruno Haible <bruno@clisp.org> parents: 15785 diff changeset	24 && !(MSVC_INVALID_PARAMETER_HANDLING == SANE_LIBRARY_HANDLING)
104b4f91678d msvc-inval: Allow three invalid parameter handling modes. Bruno Haible <bruno@clisp.org> parents: 15785 diff changeset	25
104b4f91678d msvc-inval: Allow three invalid parameter handling modes. Bruno Haible <bruno@clisp.org> parents: 15785 diff changeset	26 /* Get _invalid_parameter_handler type and _set_invalid_parameter_handler
104b4f91678d msvc-inval: Allow three invalid parameter handling modes. Bruno Haible <bruno@clisp.org> parents: 15785 diff changeset	27 declaration. */
104b4f91678d msvc-inval: Allow three invalid parameter handling modes. Bruno Haible <bruno@clisp.org> parents: 15785 diff changeset	28 # include <stdlib.h>
104b4f91678d msvc-inval: Allow three invalid parameter handling modes. Bruno Haible <bruno@clisp.org> parents: 15785 diff changeset	29
104b4f91678d msvc-inval: Allow three invalid parameter handling modes. Bruno Haible <bruno@clisp.org> parents: 15785 diff changeset	30 # if MSVC_INVALID_PARAMETER_HANDLING == DEFAULT_HANDLING
104b4f91678d msvc-inval: Allow three invalid parameter handling modes. Bruno Haible <bruno@clisp.org> parents: 15785 diff changeset	31
104b4f91678d msvc-inval: Allow three invalid parameter handling modes. Bruno Haible <bruno@clisp.org> parents: 15785 diff changeset	32 static void cdecl
104b4f91678d msvc-inval: Allow three invalid parameter handling modes. Bruno Haible <bruno@clisp.org> parents: 15785 diff changeset	33 gl_msvc_invalid_parameter_handler (const wchar_t *expression,
104b4f91678d msvc-inval: Allow three invalid parameter handling modes. Bruno Haible <bruno@clisp.org> parents: 15785 diff changeset	34 const wchar_t *function,
104b4f91678d msvc-inval: Allow three invalid parameter handling modes. Bruno Haible <bruno@clisp.org> parents: 15785 diff changeset	35 const wchar_t *file,
104b4f91678d msvc-inval: Allow three invalid parameter handling modes. Bruno Haible <bruno@clisp.org> parents: 15785 diff changeset	36 unsigned int line,
104b4f91678d msvc-inval: Allow three invalid parameter handling modes. Bruno Haible <bruno@clisp.org> parents: 15785 diff changeset	37 uintptr_t dummy)
104b4f91678d msvc-inval: Allow three invalid parameter handling modes. Bruno Haible <bruno@clisp.org> parents: 15785 diff changeset	38 {
104b4f91678d msvc-inval: Allow three invalid parameter handling modes. Bruno Haible <bruno@clisp.org> parents: 15785 diff changeset	39 }
104b4f91678d msvc-inval: Allow three invalid parameter handling modes. Bruno Haible <bruno@clisp.org> parents: 15785 diff changeset	40
104b4f91678d msvc-inval: Allow three invalid parameter handling modes. Bruno Haible <bruno@clisp.org> parents: 15785 diff changeset	41 # else
15645 6ef4d991e582 New module 'msvc-inval'. Bruno Haible <bruno@clisp.org> parents: diff changeset	42
16214 ec738d6aeef5 Talk about "native Windows API", not "Win32". Bruno Haible <bruno@clisp.org> parents: 16201 diff changeset	43 /* Get declarations of the native Windows API functions. */
15786 104b4f91678d msvc-inval: Allow three invalid parameter handling modes. Bruno Haible <bruno@clisp.org> parents: 15785 diff changeset	44 # define WIN32_LEAN_AND_MEAN
104b4f91678d msvc-inval: Allow three invalid parameter handling modes. Bruno Haible <bruno@clisp.org> parents: 15785 diff changeset	45 # include <windows.h>
15645 6ef4d991e582 New module 'msvc-inval'. Bruno Haible <bruno@clisp.org> parents: diff changeset	46
15786 104b4f91678d msvc-inval: Allow three invalid parameter handling modes. Bruno Haible <bruno@clisp.org> parents: 15785 diff changeset	47 # if defined _MSC_VER
15645 6ef4d991e582 New module 'msvc-inval'. Bruno Haible <bruno@clisp.org> parents: diff changeset	48
6ef4d991e582 New module 'msvc-inval'. Bruno Haible <bruno@clisp.org> parents: diff changeset	49 static void cdecl
6ef4d991e582 New module 'msvc-inval'. Bruno Haible <bruno@clisp.org> parents: diff changeset	50 gl_msvc_invalid_parameter_handler (const wchar_t *expression,
6ef4d991e582 New module 'msvc-inval'. Bruno Haible <bruno@clisp.org> parents: diff changeset	51 const wchar_t *function,
6ef4d991e582 New module 'msvc-inval'. Bruno Haible <bruno@clisp.org> parents: diff changeset	52 const wchar_t *file,
6ef4d991e582 New module 'msvc-inval'. Bruno Haible <bruno@clisp.org> parents: diff changeset	53 unsigned int line,
6ef4d991e582 New module 'msvc-inval'. Bruno Haible <bruno@clisp.org> parents: diff changeset	54 uintptr_t dummy)
6ef4d991e582 New module 'msvc-inval'. Bruno Haible <bruno@clisp.org> parents: diff changeset	55 {
6ef4d991e582 New module 'msvc-inval'. Bruno Haible <bruno@clisp.org> parents: diff changeset	56 RaiseException (STATUS_GNULIB_INVALID_PARAMETER, 0, 0, NULL);
6ef4d991e582 New module 'msvc-inval'. Bruno Haible <bruno@clisp.org> parents: diff changeset	57 }
6ef4d991e582 New module 'msvc-inval'. Bruno Haible <bruno@clisp.org> parents: diff changeset	58
15786 104b4f91678d msvc-inval: Allow three invalid parameter handling modes. Bruno Haible <bruno@clisp.org> parents: 15785 diff changeset	59 # else
15784 f1e8251b45f3 msvc-inval: Install handler globally. Bruno Haible <bruno@clisp.org> parents: 15645 diff changeset	60
15785 5e020d269ce6 msvc-inval: Make handler multithread-safe. Bruno Haible <bruno@clisp.org> parents: 15784 diff changeset	61 /* An index to thread-local storage. */
5e020d269ce6 msvc-inval: Make handler multithread-safe. Bruno Haible <bruno@clisp.org> parents: 15784 diff changeset	62 static DWORD tls_index;
5e020d269ce6 msvc-inval: Make handler multithread-safe. Bruno Haible <bruno@clisp.org> parents: 15784 diff changeset	63 static int tls_initialized /* = 0 */;
5e020d269ce6 msvc-inval: Make handler multithread-safe. Bruno Haible <bruno@clisp.org> parents: 15784 diff changeset	64
5e020d269ce6 msvc-inval: Make handler multithread-safe. Bruno Haible <bruno@clisp.org> parents: 15784 diff changeset	65 /* Used as a fallback only. */
5e020d269ce6 msvc-inval: Make handler multithread-safe. Bruno Haible <bruno@clisp.org> parents: 15784 diff changeset	66 static struct gl_msvc_inval_per_thread not_per_thread;
5e020d269ce6 msvc-inval: Make handler multithread-safe. Bruno Haible <bruno@clisp.org> parents: 15784 diff changeset	67
5e020d269ce6 msvc-inval: Make handler multithread-safe. Bruno Haible <bruno@clisp.org> parents: 15784 diff changeset	68 struct gl_msvc_inval_per_thread *
5e020d269ce6 msvc-inval: Make handler multithread-safe. Bruno Haible <bruno@clisp.org> parents: 15784 diff changeset	69 gl_msvc_inval_current (void)
5e020d269ce6 msvc-inval: Make handler multithread-safe. Bruno Haible <bruno@clisp.org> parents: 15784 diff changeset	70 {
5e020d269ce6 msvc-inval: Make handler multithread-safe. Bruno Haible <bruno@clisp.org> parents: 15784 diff changeset	71 if (!tls_initialized)
5e020d269ce6 msvc-inval: Make handler multithread-safe. Bruno Haible <bruno@clisp.org> parents: 15784 diff changeset	72 {
5e020d269ce6 msvc-inval: Make handler multithread-safe. Bruno Haible <bruno@clisp.org> parents: 15784 diff changeset	73 tls_index = TlsAlloc ();
5e020d269ce6 msvc-inval: Make handler multithread-safe. Bruno Haible <bruno@clisp.org> parents: 15784 diff changeset	74 tls_initialized = 1;
5e020d269ce6 msvc-inval: Make handler multithread-safe. Bruno Haible <bruno@clisp.org> parents: 15784 diff changeset	75 }
5e020d269ce6 msvc-inval: Make handler multithread-safe. Bruno Haible <bruno@clisp.org> parents: 15784 diff changeset	76 if (tls_index == TLS_OUT_OF_INDEXES)
5e020d269ce6 msvc-inval: Make handler multithread-safe. Bruno Haible <bruno@clisp.org> parents: 15784 diff changeset	77 /* TlsAlloc had failed. */
5e020d269ce6 msvc-inval: Make handler multithread-safe. Bruno Haible <bruno@clisp.org> parents: 15784 diff changeset	78 return &not_per_thread;
5e020d269ce6 msvc-inval: Make handler multithread-safe. Bruno Haible <bruno@clisp.org> parents: 15784 diff changeset	79 else
5e020d269ce6 msvc-inval: Make handler multithread-safe. Bruno Haible <bruno@clisp.org> parents: 15784 diff changeset	80 {
5e020d269ce6 msvc-inval: Make handler multithread-safe. Bruno Haible <bruno@clisp.org> parents: 15784 diff changeset	81 struct gl_msvc_inval_per_thread *pointer =
5e020d269ce6 msvc-inval: Make handler multithread-safe. Bruno Haible <bruno@clisp.org> parents: 15784 diff changeset	82 (struct gl_msvc_inval_per_thread *) TlsGetValue (tls_index);
5e020d269ce6 msvc-inval: Make handler multithread-safe. Bruno Haible <bruno@clisp.org> parents: 15784 diff changeset	83 if (pointer == NULL)
5e020d269ce6 msvc-inval: Make handler multithread-safe. Bruno Haible <bruno@clisp.org> parents: 15784 diff changeset	84 {
5e020d269ce6 msvc-inval: Make handler multithread-safe. Bruno Haible <bruno@clisp.org> parents: 15784 diff changeset	85 /* First call. Allocate a new 'struct gl_msvc_inval_per_thread'. */
5e020d269ce6 msvc-inval: Make handler multithread-safe. Bruno Haible <bruno@clisp.org> parents: 15784 diff changeset	86 pointer =
5e020d269ce6 msvc-inval: Make handler multithread-safe. Bruno Haible <bruno@clisp.org> parents: 15784 diff changeset	87 (struct gl_msvc_inval_per_thread *)
5e020d269ce6 msvc-inval: Make handler multithread-safe. Bruno Haible <bruno@clisp.org> parents: 15784 diff changeset	88 malloc (sizeof (struct gl_msvc_inval_per_thread));
5e020d269ce6 msvc-inval: Make handler multithread-safe. Bruno Haible <bruno@clisp.org> parents: 15784 diff changeset	89 if (pointer == NULL)
5e020d269ce6 msvc-inval: Make handler multithread-safe. Bruno Haible <bruno@clisp.org> parents: 15784 diff changeset	90 /* Could not allocate memory. Use the global storage. */
5e020d269ce6 msvc-inval: Make handler multithread-safe. Bruno Haible <bruno@clisp.org> parents: 15784 diff changeset	91 pointer = &not_per_thread;
5e020d269ce6 msvc-inval: Make handler multithread-safe. Bruno Haible <bruno@clisp.org> parents: 15784 diff changeset	92 TlsSetValue (tls_index, pointer);
5e020d269ce6 msvc-inval: Make handler multithread-safe. Bruno Haible <bruno@clisp.org> parents: 15784 diff changeset	93 }
5e020d269ce6 msvc-inval: Make handler multithread-safe. Bruno Haible <bruno@clisp.org> parents: 15784 diff changeset	94 return pointer;
5e020d269ce6 msvc-inval: Make handler multithread-safe. Bruno Haible <bruno@clisp.org> parents: 15784 diff changeset	95 }
5e020d269ce6 msvc-inval: Make handler multithread-safe. Bruno Haible <bruno@clisp.org> parents: 15784 diff changeset	96 }
15784 f1e8251b45f3 msvc-inval: Install handler globally. Bruno Haible <bruno@clisp.org> parents: 15645 diff changeset	97
f1e8251b45f3 msvc-inval: Install handler globally. Bruno Haible <bruno@clisp.org> parents: 15645 diff changeset	98 static void cdecl
f1e8251b45f3 msvc-inval: Install handler globally. Bruno Haible <bruno@clisp.org> parents: 15645 diff changeset	99 gl_msvc_invalid_parameter_handler (const wchar_t *expression,
f1e8251b45f3 msvc-inval: Install handler globally. Bruno Haible <bruno@clisp.org> parents: 15645 diff changeset	100 const wchar_t *function,
f1e8251b45f3 msvc-inval: Install handler globally. Bruno Haible <bruno@clisp.org> parents: 15645 diff changeset	101 const wchar_t *file,
f1e8251b45f3 msvc-inval: Install handler globally. Bruno Haible <bruno@clisp.org> parents: 15645 diff changeset	102 unsigned int line,
f1e8251b45f3 msvc-inval: Install handler globally. Bruno Haible <bruno@clisp.org> parents: 15645 diff changeset	103 uintptr_t dummy)
f1e8251b45f3 msvc-inval: Install handler globally. Bruno Haible <bruno@clisp.org> parents: 15645 diff changeset	104 {
15785 5e020d269ce6 msvc-inval: Make handler multithread-safe. Bruno Haible <bruno@clisp.org> parents: 15784 diff changeset	105 struct gl_msvc_inval_per_thread *current = gl_msvc_inval_current ();
5e020d269ce6 msvc-inval: Make handler multithread-safe. Bruno Haible <bruno@clisp.org> parents: 15784 diff changeset	106 if (current->restart_valid)
5e020d269ce6 msvc-inval: Make handler multithread-safe. Bruno Haible <bruno@clisp.org> parents: 15784 diff changeset	107 longjmp (current->restart, 1);
15784 f1e8251b45f3 msvc-inval: Install handler globally. Bruno Haible <bruno@clisp.org> parents: 15645 diff changeset	108 else
f1e8251b45f3 msvc-inval: Install handler globally. Bruno Haible <bruno@clisp.org> parents: 15645 diff changeset	109 /* An invalid parameter notification from outside the gnulib code.
f1e8251b45f3 msvc-inval: Install handler globally. Bruno Haible <bruno@clisp.org> parents: 15645 diff changeset	110 Give the caller a chance to intervene. */
f1e8251b45f3 msvc-inval: Install handler globally. Bruno Haible <bruno@clisp.org> parents: 15645 diff changeset	111 RaiseException (STATUS_GNULIB_INVALID_PARAMETER, 0, 0, NULL);
f1e8251b45f3 msvc-inval: Install handler globally. Bruno Haible <bruno@clisp.org> parents: 15645 diff changeset	112 }
f1e8251b45f3 msvc-inval: Install handler globally. Bruno Haible <bruno@clisp.org> parents: 15645 diff changeset	113
15786 104b4f91678d msvc-inval: Allow three invalid parameter handling modes. Bruno Haible <bruno@clisp.org> parents: 15785 diff changeset	114 # endif
104b4f91678d msvc-inval: Allow three invalid parameter handling modes. Bruno Haible <bruno@clisp.org> parents: 15785 diff changeset	115
15784 f1e8251b45f3 msvc-inval: Install handler globally. Bruno Haible <bruno@clisp.org> parents: 15645 diff changeset	116 # endif
f1e8251b45f3 msvc-inval: Install handler globally. Bruno Haible <bruno@clisp.org> parents: 15645 diff changeset	117
15645 6ef4d991e582 New module 'msvc-inval'. Bruno Haible <bruno@clisp.org> parents: diff changeset	118 static int gl_msvc_inval_initialized /* = 0 */;
6ef4d991e582 New module 'msvc-inval'. Bruno Haible <bruno@clisp.org> parents: diff changeset	119
6ef4d991e582 New module 'msvc-inval'. Bruno Haible <bruno@clisp.org> parents: diff changeset	120 void
6ef4d991e582 New module 'msvc-inval'. Bruno Haible <bruno@clisp.org> parents: diff changeset	121 gl_msvc_inval_ensure_handler (void)
6ef4d991e582 New module 'msvc-inval'. Bruno Haible <bruno@clisp.org> parents: diff changeset	122 {
6ef4d991e582 New module 'msvc-inval'. Bruno Haible <bruno@clisp.org> parents: diff changeset	123 if (gl_msvc_inval_initialized == 0)
6ef4d991e582 New module 'msvc-inval'. Bruno Haible <bruno@clisp.org> parents: diff changeset	124 {
6ef4d991e582 New module 'msvc-inval'. Bruno Haible <bruno@clisp.org> parents: diff changeset	125 _set_invalid_parameter_handler (gl_msvc_invalid_parameter_handler);
6ef4d991e582 New module 'msvc-inval'. Bruno Haible <bruno@clisp.org> parents: diff changeset	126 gl_msvc_inval_initialized = 1;
6ef4d991e582 New module 'msvc-inval'. Bruno Haible <bruno@clisp.org> parents: diff changeset	127 }
6ef4d991e582 New module 'msvc-inval'. Bruno Haible <bruno@clisp.org> parents: diff changeset	128 }
6ef4d991e582 New module 'msvc-inval'. Bruno Haible <bruno@clisp.org> parents: diff changeset	129
6ef4d991e582 New module 'msvc-inval'. Bruno Haible <bruno@clisp.org> parents: diff changeset	130 #endif

Mercurial > hg > octave-lojdl > gnulib-hg

annotate lib/msvc-inval.c @ 16229:daac1ca4c436