1 files changed, 19 insertions, 0 deletions

diff --git a/Lib/test/test_socket_ssl.py b/Lib/test/test_socket_ssl.py
index 42efb6e..fd4383f 100644
--- a/Lib/test/test_socket_ssl.py
+++ b/Lib/test/test_socket_ssl.py
@@ -106,6 +106,25 @@ class BasicTests(unittest.TestCase):
         connector()
         t.join()
 
+    def test_978833(self):
+        if test_support.verbose:
+            print("test_978833 ...")
+
+        import os, httplib
+        with test_support.transient_internet():
+            s = socket.socket(socket.AF_INET)
+            s.connect(("www.sf.net", 443))
+            fd = s.fileno()
+            sock = httplib.FakeSocket(s, socket.ssl(s))
+            s = None
+            sock.close()
+            try:
+                os.fstat(fd)
+            except OSError:
+                pass
+            else:
+                raise test_support.TestFailed("Failed to close socket")
+
 class OpenSSLTests(unittest.TestCase):
 
     def testBasic(self):

path: root/Lib/test/test_socket_ssl.py

/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
 * Copyright by The HDF Group.                                               *
 * Copyright by the Board of Trustees of the University of Illinois.         *
 * All rights reserved.                                                      *
 *                                                                           *
 * This file is part of HDF5.  The full HDF5 copyright notice, including     *
 * terms governing use, modification, and redistribution, is contained in    *
 * the files COPYING and Copyright.html.  COPYING can be found at the root   *
 * of the source code distribution tree; Copyright.html can be found at the  *
 * root level of an installed copy of the electronic HDF5 document set and   *
 * is linked from the top-level documents page.  It can also be found at     *
 * http://hdfgroup.org/HDF5/doc/Copyright.html.  If you do not have          *
 * access to either file, you may request a copy from help@hdfgroup.org.     *
 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */

/*-------------------------------------------------------------------------
 *
 * Created:		H5trace.c
 *			Aug 21 2006
 *			Quincey Koziol <koziol@hdfgroup.org>
 *
 * Purpose:		Internal code for tracing API calls
 *
 *-------------------------------------------------------------------------
 */

/****************/
/* Module Setup */
/****************/
#define H5I_PACKAGE		/*suppress error about including H5Ipkg	  */


/***********/
/* Headers */
/***********/
#include "H5private.h"		/* Generic Functions			*/
#include "H5Dprivate.h"		/* Datasets				*/
#include "H5Eprivate.h"		/* Error handling		  	*/
#include "H5FDprivate.h"	/* File drivers				*/
#include "H5Ipkg.h"		/* IDs			  		*/
#include "H5MMprivate.h"	/* Memory management			*/

#ifdef H5_HAVE_PARALLEL
/* datatypes of predefined drivers needed by H5_trace() */
#include "H5FDmpio.h"
#endif /* H5_HAVE_PARALLEL */


/****************/
/* Local Macros */
/****************/


/******************/
/* Local Typedefs */
/******************/


/********************/
/* Package Typedefs */
/********************/


/********************/
/* Local Prototypes */
/********************/


/*********************/
/* Package Variables */
/*********************/


/*****************************/
/* Library Private Variables */
/*****************************/


/*******************/
/* Local Variables */
/*******************/



/*-------------------------------------------------------------------------
 * Function:	H5_trace
 *
 * Purpose:	This function is called whenever an API function is called
 *		and tracing is turned on.  If RETURNING is non-zero then
 *		the caller is about to return and RETURNING points to the
 *              time for the corresponding function call event.  Otherwise
 *              we print the function name and the arguments.
 *
 *		The TYPE argument is a string which gives the type of each of
 *		the following argument pairs.  Each type is zero or more
 *		asterisks (one for each level of indirection, although some
 *		types have one level of indirection already implied) followed
 *		by either one letter (lower case) or two letters (first one
 *		uppercase).
 *
 *		The variable argument list consists of pairs of values. Each
 *		pair is a string which is the formal argument name in the
 *		calling function, followed by the argument value.  The type
 *		of the argument value is given by the TYPE string.
 *
 * Note:	The TYPE string is meant to be terse and is generated by a
 *		separate perl script.
 *
 * WARNING:	DO NOT CALL ANY HDF5 FUNCTION THAT CALLS FUNC_ENTER(). DOING
 *		SO MAY CAUSE H5_trace() TO BE INVOKED RECURSIVELY OR MAY
 *		CAUSE LIBRARY INITIALIZATIONS THAT ARE NOT DESIRED.
 *
 * Return:	void
 *
 * Programmer:	Robb Matzke
 *              Tuesday, June 16, 1998
 *
 *-------------------------------------------------------------------------
 */
double
H5_trace(const double *returning, const char *func, const char *type, ...)
{
    va_list		ap;
    char		buf[64], *rest;
    const char		*argname;
    int			argno = 0, ptr, asize_idx;
    hssize_t		asize[16];
    hssize_t		i;
    void		*vp = NULL;
    FILE		*out = H5_debug_g.trace;
    H5_timer_t          event_time;
    static H5_timer_t   first_time = {0.0, 0.0, 0.0};
    static int          current_depth = 0;
    static int          last_call_depth = 0;

    /* FUNC_ENTER() should not be called */

    if(!out)
        return 0.0;	/*tracing is off*/
    va_start(ap, type);

    if(H5_debug_g.ttop) {
        if(returning) {
            if(current_depth > 1) {
                --current_depth;
                return 0.0;
            } /* end if */
        } /* end if */
        else {
            if(current_depth > 0) {
                /*do not update last_call_depth*/
                current_depth++;
                return 0.0;
            } /* end if */
        } /* end else */
    } /* end if */

    /* Get tim for event */
    if(HDfabs(first_time.etime) < 0.0000000001)
        /* That is == 0.0, but direct comparison between floats is bad */
        H5_timer_begin(&first_time);
    if(H5_debug_g.ttimes)
        H5_timer_begin(&event_time);
    else
        HDmemset(&event_time, 0, sizeof event_time);

    /* Print the first part of the line.  This is the indication of the
     * nesting depth followed by the function name and either start of
     * argument list or start of return value.  If this call is for a
     * function return and no other calls have been made to H5_trace()
     * since the one for the function call, then we're continuing
     * the same line. */
    if(returning) {
        HDassert(current_depth > 0);
        --current_depth;
        if(current_depth < last_call_depth) {
            /* We are at the beginning of a line */
            if(H5_debug_g.ttimes) {
                char tmp[128];

                sprintf(tmp, "%.6f", event_time.etime-first_time.etime);
                fprintf(out, " %*s ", (int)HDstrlen(tmp), "");
            } /* end if */
            for(i = 0; i < current_depth; i++)
                HDfputc('+', out);
            fprintf(out, "%*s%s = ", 2*current_depth, "", func);
        } /* end if */
        else {
            /* Continue current line with return value */
            fprintf(out, " = ");
        } /* end else */
    } /* end if */
    else {
        if(current_depth>last_call_depth)
            HDfputs(" = <delayed>\n", out);
        if(H5_debug_g.ttimes)
            fprintf(out, "@%.6f ", event_time.etime - first_time.etime);
        for(i = 0; i < current_depth; i++)
            HDfputc('+', out);
        fprintf(out, "%*s%s(", 2*current_depth, "", func);
    } /* end else */

    /* Clear array sizes */
    for(i = 0; i < (hssize_t)NELMTS(asize); i++)
        asize[i] = -1;

    /* Parse the argument types */
    for(argno = 0; *type; argno++, type += (HDisupper(*type) ? 2 : 1)) {
	/* Count levels of indirection */
	for(ptr = 0; '*' == *type; type++)
            ptr++;
	if('[' == *type) {
	    if('a' == type[1]) {
		asize_idx = (int)HDstrtol(type + 2, &rest, 10);
                HDassert(0 <= asize_idx && asize_idx < (int) NELMTS(asize));
		HDassert(']'==*rest);
		type = rest + 1;
	    } else {
		rest = (char *)HDstrchr(type, ']');
		HDassert(rest);
		type = rest + 1;
		asize_idx = -1;
	    }
	} /* end if */
        else
	    asize_idx = -1;

	/*
	 * The argument name.  Leave off the `_id' part.  If the argument
	 * name is the null pointer then don't print the argument or the
	 * following `='.  This is used for return values.
	 */
	argname = va_arg(ap, char *); /*lint !e64 Type mismatch not really occuring */
	if(argname) {
	    unsigned n = (unsigned)MAX (0, (int)HDstrlen(argname) - 3); /*lint !e666 Allow expression with side effects */

	    if(!HDstrcmp(argname + n, "_id")) {
		HDstrncpy(buf, argname, (size_t)MIN((int)sizeof(buf) - 1, n));
		buf[MIN((int)sizeof(buf) - 1, n)] = '\0';
		argname = buf;
	    } /* end if */
	    fprintf(out, "%s%s=", argno?", ":"", argname);
	} /* end if */
        else
	    argname = "";

	/* The value */
	if(ptr)
            vp = va_arg(ap, void *); /*lint !e64 Type mismatch not really occuring */
	switch(type[0]) {
            case 'a':
                if(ptr) {
                    if(vp)
                        fprintf(out, "0x%lx", (unsigned long)vp);
                    else
                        fprintf(out, "NULL");
                } /* end if */
                else {
                    haddr_t addr = va_arg(ap, haddr_t); /*lint !e732 Loss of sign not really occuring */

                    HDfprintf(out, "%a", addr);
                } /* end else */
                break;

            case 'b':
                if(ptr) {
                    if(vp)
                        fprintf(out, "0x%lx", (unsigned long)vp);
                    else
                        fprintf(out, "NULL");
                } /* end if */
                else {
                    hbool_t bool_var = va_arg(ap, hbool_t); /*lint !e732 Loss of sign not really occuring */

                    if(TRUE == bool_var)
                        fprintf(out, "TRUE");
                    else if(!bool_var)
                        fprintf(out, "FALSE");
                    else
                        fprintf(out, "TRUE(%u)", (unsigned)bool_var);
                }
                break;

            case 'd':
                if(ptr) {
                    if(vp)
                        fprintf(out, "0x%lx", (unsigned long)vp);
                    else
                        fprintf(out, "NULL");
                } /* end if */
                else {
                    double dbl = va_arg(ap, double);

                    fprintf(out, "%g", dbl);
                } /* end else */
                break;

            case 'D':
                switch(type[1]) {
                    case 'a':
                        if(ptr) {
                            if(vp)
                                fprintf (out, "0x%lx", (unsigned long)vp);
                            else
                                fprintf(out, "NULL");
                        } /* end if */
                        else {
                            H5D_alloc_time_t alloc_time = (H5D_alloc_time_t)va_arg(ap, int);

                            switch(alloc_time) {
                                case H5D_ALLOC_TIME_ERROR:
                                    fprintf(out, "H5D_ALLOC_TIME_ERROR");
                                    break;

                                case H5D_ALLOC_TIME_DEFAULT:
                                    fprintf(out, "H5D_ALLOC_TIME_DEFAULT");
                                    break;

                                case H5D_ALLOC_TIME_EARLY:
                                    fprintf(out, "H5D_ALLOC_TIME_EARLY");
                                    break;

                                case H5D_ALLOC_TIME_LATE:
                                    fprintf(out, "H5D_ALLOC_TIME_LATE");
                                    break;

                                case H5D_ALLOC_TIME_INCR:
                                    fprintf(out, "H5D_ALLOC_TIME_INCR");
                                    break;

                                default:
                                    fprintf(out, "%ld", (long)alloc_time);
                                    break;
                            } /* end switch */
                        } /* end else */
                        break;

                    case 'c':
                        if(ptr) {
                            if(vp)
                                fprintf(out, "0x%lx", (unsigned long)vp);
                            else
                                fprintf(out, "NULL");
                        } /* end if */
                        else {
                            H5FD_mpio_collective_opt_t opt = (H5FD_mpio_collective_opt_t)va_arg(ap, int);

                            switch(opt) {
                                case H5FD_MPIO_COLLECTIVE_IO:
                                    fprintf(out, "H5FD_MPIO_COLLECTIVE_IO");
                                    break;

                                case H5FD_MPIO_INDIVIDUAL_IO:
                                    fprintf(out, "H5FD_MPIO_INDIVIDUAL_IO");
                                    break;

                                default:
                                    fprintf(out, "%ld", (long)opt);
                                    break;
                            } /* end switch */
                        } /* end else */
                        break;

                    case 'f':
                        if(ptr) {
                            if(vp)
                                fprintf(out, "0x%lx", (unsigned long)vp);
                            else
                                fprintf(out, "NULL");
                        } /* end if */
                        else {
                            H5D_fill_time_t fill_time = (H5D_fill_time_t)va_arg(ap, int);

                            switch(fill_time) {
                                case H5D_FILL_TIME_ERROR:
                                    fprintf(out, "H5D_FILL_TIME_ERROR");
                                    break;

                                case H5D_FILL_TIME_ALLOC:
                                    fprintf(out, "H5D_FILL_TIME_ALLOC");
                                    break;

                                case H5D_FILL_TIME_NEVER:
                                    fprintf(out, "H5D_FILL_TIME_NEVER");
                                    break;

                                case H5D_FILL_TIME_IFSET:
                                    fprintf(out, "H5D_FILL_TIME_IFSET");
                                    break;

                                default:
                                    fprintf(out, "%ld", (long)fill_time);
                                    break;
                            } /* end switch */
                        } /* end else */
                        break;

                    case 'F':
                        if(ptr) {
                            if(vp)
                                fprintf(out, "0x%lx", (unsigned long)vp);
                            else
                                fprintf(out, "NULL");
                        } /* end if */
                        else {
                            H5D_fill_value_t fill_value = (H5D_fill_value_t)va_arg(ap, int);

                            switch(fill_value) {
                                case H5D_FILL_VALUE_ERROR:
                                    fprintf(out, "H5D_FILL_VALUE_ERROR");
                                    break;

                                case H5D_FILL_VALUE_UNDEFINED:
                                    fprintf(out, "H5D_FILL_VALUE_UNDEFINED");
                                    break;

                                case H5D_FILL_VALUE_DEFAULT:
                                    fprintf(out, "H5D_FILL_VALUE_DEFAULT");
                                    break;

                                case H5D_FILL_VALUE_USER_DEFINED:
                                    fprintf(out, "H5D_FILL_VALUE_USER_DEFINED");
                                    break;

                                default:
                                    fprintf(out, "%ld", (long)fill_value);
                                    break;
                            } /* end switch */
                        } /* end else */
                        break;

                    case 'h':
                        if(ptr) {
                            if(vp)
                                fprintf(out, "0x%lx", (unsigned long)vp);
                            else
                                fprintf(out, "NULL");
                        } /* end if */
                        else {
                            H5FD_mpio_chunk_opt_t opt = (H5FD_mpio_chunk_opt_t)va_arg(ap, int);

                            switch(opt) {
                                case H5FD_MPIO_CHUNK_DEFAULT:
                                    fprintf(out, "H5FD_MPIO_CHUNK_DEFAULT");
                                    break;

                                case H5FD_MPIO_CHUNK_ONE_IO:
                                    fprintf(out, "H5FD_MPIO_CHUNK_ONE_IO");
                                    break;

                                case H5FD_MPIO_CHUNK_MULTI_IO:
                                    fprintf(out, "H5FD_MPIO_CHUNK_MULTI_IO");
                                    break;

                                default:
                                    fprintf(out, "%ld", (long)opt);
                                    break;
                            } /* end switch */
                        } /* end else */
                        break;

                    case 'i':
                        if(ptr) {
                            if(vp)
                                fprintf(out, "0x%lx", (unsigned long)vp);
                            else
                                fprintf(out, "NULL");
                        } /* end if */
                        else {
                            H5D_mpio_actual_io_mode_t actual_io_mode = (H5D_mpio_actual_io_mode_t)va_arg(ap, int);

                            switch(actual_io_mode) {
                                case H5D_MPIO_NO_COLLECTIVE:
                                    fprintf(out, "H5D_MPIO_NO_COLLECTIVE");
                                    break;

                                case H5D_MPIO_CHUNK_INDEPENDENT:
                                    fprintf(out, "H5D_MPIO_CHUNK_INDEPENDENT");
                                    break;

                                case H5D_MPIO_CHUNK_COLLECTIVE:
                                    fprintf(out, "H5D_MPIO_CHUNK_COLLECTIVE");
                                    break;

                                case H5D_MPIO_CHUNK_MIXED:
                                    fprintf(out, "H5D_MPIO_CHUNK_MIXED");
                                    break;

                                case H5D_MPIO_CONTIGUOUS_COLLECTIVE:
                                    fprintf(out, "H5D_MPIO_CONTIGUOUS_COLLECTIVE");
                                    break;

                                default:
                                    fprintf(out, "%ld", (long)actual_io_mode);
                                    break;
                            } /* end switch */
                        } /* end else */
                        break;

                    case 'l':
                        if(ptr) {
                            if(vp)
                                fprintf(out, "0x%lx", (unsigned long)vp);
                            else
                                fprintf(out, "NULL");
                        } /* end if */
                        else {
                            H5D_layout_t layout = (H5D_layout_t)va_arg(ap, int);

                            switch(layout) {
                                case H5D_LAYOUT_ERROR:
                                    fprintf(out, "H5D_LAYOUT_ERROR");
                                    break;

                                case H5D_COMPACT:
                                    fprintf(out, "H5D_COMPACT");
                                    break;

                                case H5D_CONTIGUOUS:
                                    fprintf(out, "H5D_CONTIGUOUS");
                                    break;

                                case H5D_CHUNKED:
                                    fprintf(out, "H5D_CHUNKED");
                                    break;

                                case H5D_NLAYOUTS:
                                    fprintf(out, "H5D_NLAYOUTS");
                                    break;

                                default:
                                    fprintf(out, "%ld", (long)layout);
                                    break;
                            } /* end switch */
                        } /* end else */
                        break;

                    case 'n':
                        if(ptr) {
                            if(vp)
                                fprintf(out, "0x%lx", (unsigned long)vp);
                            else
                                fprintf(out, "NULL");
                        } /* end if */
                        else {
                            H5D_mpio_no_collective_cause_t nocol_cause_mode = (H5D_mpio_no_collective_cause_t)va_arg(ap, int);
                            hbool_t flag_already_displayed = FALSE;

                            /* Check for all bit-flags which might be set */
                            if(nocol_cause_mode & H5D_MPIO_COLLECTIVE) {
                                fprintf(out, "H5D_MPIO_COLLECTIVE");
                                flag_already_displayed = TRUE;
                            } /* end if */
                            if(nocol_cause_mode & H5D_MPIO_SET_INDEPENDENT) {
                                fprintf(out, "%sH5D_MPIO_SET_INDEPENDENT", flag_already_displayed ? " | " : "");
                                flag_already_displayed = TRUE;
                            } /* end if */
                            if(nocol_cause_mode & H5D_MPIO_DATATYPE_CONVERSION) {
                                fprintf(out, "%sH5D_MPIO_DATATYPE_CONVERSION", flag_already_displayed ? " | " : "");
                                flag_already_displayed = TRUE;
                            } /* end if */
                            if(nocol_cause_mode & H5D_MPIO_DATA_TRANSFORMS) {
                                fprintf(out, "%sH5D_MPIO_DATA_TRANSFORMS", flag_already_displayed ? " | " : "");
                                flag_already_displayed = TRUE;
                            } /* end if */
                            if(nocol_cause_mode & H5D_MPIO_MPI_OPT_TYPES_ENV_VAR_DISABLED) {
                                fprintf(out, "%sH5D_MPIO_MPI_OPT_TYPES_ENV_VAR_DISABLED", flag_already_displayed ? " | " : "");
                                flag_already_displayed = TRUE;
                            } /* end if */
                            if(nocol_cause_mode & H5D_MPIO_NOT_SIMPLE_OR_SCALAR_DATASPACES) {
                                fprintf(out, "%sH5D_MPIO_NOT_SIMPLE_OR_SCALAR_DATASPACES", flag_already_displayed ? " | " : "");
                                flag_already_displayed = TRUE;
                            } /* end if */
                            if(nocol_cause_mode & H5D_MPIO_NOT_CONTIGUOUS_OR_CHUNKED_DATASET) {
                                fprintf(out, "%sH5D_MPIO_NOT_CONTIGUOUS_OR_CHUNKED_DATASET", flag_already_displayed ? " | " : "");
                                flag_already_displayed = TRUE;
                            } /* end if */
                            if(nocol_cause_mode & H5D_MPIO_FILTERS) {
                                fprintf(out, "%sH5D_MPIO_FILTERS", flag_already_displayed ? " | " : "");
                                flag_already_displayed = TRUE;
                            } /* end if */

                            /* Display '<none>' if there's no flags set */
                            if(!flag_already_displayed)
                                fprintf(out, "<none>");
                        } /* end else */
                        break;

                    case 'o':
                        if(ptr) {
                            if(vp)
                                fprintf(out, "0x%lx", (unsigned long)vp);
                            else
                                fprintf(out, "NULL");
                        } /* end if */
                        else {
                            H5D_mpio_actual_chunk_opt_mode_t chunk_opt_mode = (H5D_mpio_actual_chunk_opt_mode_t)va_arg(ap, int);

                            switch(chunk_opt_mode) {
                                case H5D_MPIO_NO_CHUNK_OPTIMIZATION:
                                    fprintf(out, "H5D_MPIO_NO_CHUNK_OPTIMIZATION");
                                    break;

                                case H5D_MPIO_LINK_CHUNK:
                                    fprintf(out, "H5D_MPIO_LINK_CHUNK");
                                    break;

                                case H5D_MPIO_MULTI_CHUNK:
                                    fprintf(out, "H5D_MPIO_MULTI_CHUNK");
                                    break;

                                default:
                                    fprintf(out, "%ld", (long)chunk_opt_mode);
                                    break;
                            } /* end switch */
                        } /* end else */
                        break;

                    case 's':
                        if(ptr) {
                            if(vp)
                                fprintf(out, "0x%lx", (unsigned long)vp);
                            else
                                fprintf(out, "NULL");
                        } /* end if */
                        else {
                            H5D_space_status_t space_status = (H5D_space_status_t)va_arg(ap, int);

                            switch(space_status) {
                                case H5D_SPACE_STATUS_NOT_ALLOCATED:
                                    fprintf(out, "H5D_SPACE_STATUS_NOT_ALLOCATED");
                                    break;

                                case H5D_SPACE_STATUS_PART_ALLOCATED:
                                    fprintf(out, "H5D_SPACE_STATUS_PART_ALLOCATED");
                                    break;

                                case H5D_SPACE_STATUS_ALLOCATED:
                                    fprintf(out, "H5D_SPACE_STATUS_ALLOCATED");
                                    break;

                                case H5D_SPACE_STATUS_ERROR:
                                    fprintf(out, "H5D_SPACE_STATUS_ERROR");
                                    break;

                                default:
                                    fprintf(out, "%ld", (long)space_status);
                                    break;
                            } /* end switch */
                        } /* end else */
                        break;

                    case 't':
                        if(ptr) {
                            if(vp)
                                fprintf(out, "0x%lx", (unsigned long)vp);
                            else
                                fprintf(out, "NULL");
                        } /* end if */
                        else {
                            H5FD_mpio_xfer_t transfer = (H5FD_mpio_xfer_t)va_arg(ap, int);

                            switch(transfer) {
                                case H5FD_MPIO_INDEPENDENT:
                                    fprintf(out, "H5FD_MPIO_INDEPENDENT");
                                    break;

                                case H5FD_MPIO_COLLECTIVE:
                                    fprintf(out, "H5FD_MPIO_COLLECTIVE");
                                    break;

                                default:
                                    fprintf(out, "%ld", (long)transfer);
                                    break;
                            } /* end switch */
                        } /* end else */
                        break;

                    default:
                        fprintf (out, "BADTYPE(D%c)", type[1]);
                        goto error;
                } /* end switch */
                break;

            case 'e':
                if(ptr) {
                    if(vp)
                        fprintf(out, "0x%lx", (unsigned long)vp);
                    else
                        fprintf(out, "NULL");
                } /* end if */
                else {
                    herr_t status = va_arg(ap, herr_t);

                    if(status >= 0)
                        fprintf(out, "SUCCEED");
                    else 
                        fprintf(out, "FAIL");
                } /* end else */
                break;

            case 'E':
                switch(type[1]) {
                    case 'd':
                        if(ptr) {
                            if(vp)
                                fprintf(out, "0x%lx", (unsigned long)vp);
                            else
                                fprintf(out, "NULL");
                        } /* end if */
                        else {
                            H5E_direction_t direction = (H5E_direction_t)va_arg(ap, int);

                            switch(direction) {
                                case H5E_WALK_UPWARD:
                                    fprintf(out, "H5E_WALK_UPWARD");
                                    break;

                                case H5E_WALK_DOWNWARD:
                                    fprintf(out, "H5E_WALK_DOWNWARD");
                                    break;

                                default:
                                    fprintf(out, "%ld", (long)direction);
                                    break;
                            } /* end switch */
                        } /* end else */
                        break;

                    case 'e':
                        if(ptr) {
                            if(vp)
                                fprintf(out, "0x%lx", (unsigned long)vp);
                            else
                                fprintf(out, "NULL");
                        } /* end if */
                        else {
                            H5E_error2_t *error = va_arg(ap, H5E_error2_t *); /*lint !e64 Type mismatch not really occuring */

                            fprintf(out, "0x%lx", (unsigned long)error);
                        } /* end else */
                        break;

                    case 't':
                        if(ptr) {
                            if(vp)
                                fprintf(out, "0x%lx", (unsigned long)vp);
                            else
                                fprintf(out, "NULL");
                        } /* end if */
                        else {
                            H5E_type_t etype = (H5E_type_t)va_arg(ap, int);

                            switch(etype) {
                                case H5E_MAJOR:
                                    fprintf(out, "H5E_MAJOR");
                                    break;

                                case H5E_MINOR:
                                    fprintf(out, "H5E_MINOR");
                                    break;

                                default:
                                    fprintf(out, "%ld", (long)etype);
                                    break;
                            } /* end switch */
                        } /* end else */
                        break;

                    default:
                        fprintf(out, "BADTYPE(E%c)", type[1]);
                        goto error;
                } /* end switch */
                break;

            case 'F':
                switch(type[1]) {
                    case 'd':
                        if(ptr) {
                            if(vp)
                                fprintf(out, "0x%lx", (unsigned long)vp);
                            else
                                fprintf(out, "NULL");
                        } /* end if */
                        else {
                            H5F_close_degree_t degree = (H5F_close_degree_t)va_arg(ap, int);

                            switch(degree) {
                                case H5F_CLOSE_DEFAULT: