LibC/Uefi/compat.c

4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync/*
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * Copyright (c) 1998 Todd C. Miller <Todd.Miller@courtesan.com>
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * All rights reserved.
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync *
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * Redistribution and use in source and binary forms, with or without
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * modification, are permitted provided that the following conditions
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * are met:
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * 1. Redistributions of source code must retain the above copyright
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync *    notice, this list of conditions and the following disclaimer.
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * 2. Redistributions in binary form must reproduce the above copyright
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync *    notice, this list of conditions and the following disclaimer in the
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync *    documentation and/or other materials provided with the distribution.
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * 3. The name of the author may not be used to endorse or promote products
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync *    derived from this software without specific prior written permission.
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync *
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES,
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync *
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * $Id: compat.c,v 1.1.1.1 2008/08/24 05:33:08 gmcgarry Exp $
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * Copyright (c) 1997, 2002 The NetBSD Foundation, Inc.
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * All rights reserved.
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync *
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * This code is derived from software contributed to The NetBSD Foundation
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * by Klaus Klein and Jason R. Thorpe.
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync *
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * Redistribution and use in source and binary forms, with or without
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * modification, are permitted provided that the following conditions
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * are met:
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * 1. Redistributions of source code must retain the above copyright
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync *    notice, this list of conditions and the following disclaimer.
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * 2. Redistributions in binary form must reproduce the above copyright
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync *    notice, this list of conditions and the following disclaimer in the
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync *    documentation and/or other materials provided with the distribution.
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * 3. All advertising materials mentioning features or use of this software
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync *    must display the following acknowledgement:
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync *        This product includes software developed by the NetBSD
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync *        Foundation, Inc. and its contributors.
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * 4. Neither the name of The NetBSD Foundation nor the names of its
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync *    contributors may be used to endorse or promote products derived
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync *    from this software without specific prior written permission.
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync *
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * POSSIBILITY OF SUCH DAMAGE.
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync *
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync *  $NetBSD: compat.c,v 1.1.1.1 2008/08/24 05:33:08 gmcgarry Exp $
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * Copyright (c) 1987, 1993
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync *  The Regents of the University of California.  All rights reserved.
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync *
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * Redistribution and use in source and binary forms, with or without
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * modification, are permitted provided that the following conditions
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * are met:
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * 1. Redistributions of source code must retain the above copyright
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync *    notice, this list of conditions and the following disclaimer.
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * 2. Redistributions in binary form must reproduce the above copyright
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync *    notice, this list of conditions and the following disclaimer in the
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync *    documentation and/or other materials provided with the distribution.
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * 3. Neither the name of the University nor the names of its contributors
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync *    may be used to endorse or promote products derived from this software
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync *    without specific prior written permission.
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync *
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * SUCH DAMAGE.
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync *
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync *  $NetBSD: compat.c,v 1.1.1.1 2008/08/24 05:33:08 gmcgarry Exp $
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#include  <LibConfig.h>
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#include  <string.h>
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#include  <fcntl.h>
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#include  <sys/syslimits.h>
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#ifndef HAVE_GETOPT
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncchar *optarg;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncint optind = 1;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncint
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncgetopt(int argc, char **argv, char *args)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync{
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        size_t n;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  size_t nlen = strlen(args);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        char cmd;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        char rv;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        if (argv[optind] && *argv[optind] == '-') {
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync                cmd = *(argv[optind] + 1);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync                for (n = 0; n < nlen; n++) {
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync                        if (args[n] == ':')
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        continue;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync                        if (args[n] == cmd) {
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync                                rv = *(argv[optind] + 1);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync                                if (args[n+1] == ':') {
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync          if (*(argv[optind] + 2) != '\0') {
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync                                          optarg = argv[optind] + 2;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync            optind += 1;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync          } else {
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync                                          optarg = argv[optind + 1];
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync                                          optind += 2;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync          }
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync                                        if (!optarg)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync             optarg="";
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync                                        return rv;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync                                } else {
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync                                        optarg = NULL;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync                                        optind += 1;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync                                        return rv;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync                                }
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync                        }
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync                }
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        }
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        return -1;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync}
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#endif
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#define ISPATHSEPARATOR(x) ((x == '/') || (x == '\\'))
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#ifdef HAVE_BASENAME
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#ifndef PATH_MAX
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  #define PATH_MAX 5000
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#endif
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncchar *
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncbasename(char *path)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync{
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  static char singledot[] = ".";
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  static char result[PATH_MAX];
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  char *p, *lastp;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  size_t len;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  /*
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync   * If `path' is a null pointer or points to an empty string,
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync   * return a pointer to the string ".".
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync   */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  if ((path == NULL) || (*path == '\0'))
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    return (singledot);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  /* Strip trailing slashes, if any. */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  lastp = path + strlen(path) - 1;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  while (lastp != path && ISPATHSEPARATOR(*lastp))
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    lastp--;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  /* Now find the beginning of this (final) component. */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  p = lastp;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  while (p != path && !ISPATHSEPARATOR(*(p - 1)))
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    p--;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  /* ...and copy the result into the result buffer. */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  len = (lastp - p) + 1 /* last char */;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  if (len > (PATH_MAX - 1))
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    len = PATH_MAX - 1;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  memcpy(result, p, len);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  result[len] = '\0';
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  return (result);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync}
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#endif
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#if !defined(HAVE_MKSTEMP) && !defined(WIN32)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncint
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncmkstemp(char *path)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync{
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  char *start, *trv;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  unsigned int pid;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  /* To guarantee multiple calls generate unique names even if
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync     the file is not created. 676 different possibilities with 7
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync     or more X's, 26 with 6 or less. */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  static char xtra[2] = "aa";
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  int xcnt = 0;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  pid = getpid();
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  /* Move to end of path and count trailing X's. */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  for (trv = path; *trv; ++trv)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    if (*trv == 'X')
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      xcnt++;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    else
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      xcnt = 0;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  /* Use at least one from xtra.  Use 2 if more than 6 X's. */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  if (*(trv - 1) == 'X')
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    *--trv = xtra[0];
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  if (xcnt > 6 && *(trv - 1) == 'X')
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    *--trv = xtra[1];
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  /* Set remaining X's to pid digits with 0's to the left. */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  while (*--trv == 'X') {
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    *trv = (pid % 10) + '0';
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    pid /= 10;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  }
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  /* update xtra for next call. */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  if (xtra[0] != 'z')
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    xtra[0]++;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  else {
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    xtra[0] = 'a';
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    if (xtra[1] != 'z')
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      xtra[1]++;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    else
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      xtra[1] = 'a';
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  }
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  return open(path, O_CREAT | O_EXCL | O_RDWR, 0600);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync}
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#endif
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#ifdef HAVE_FFS
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncint
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncffs(int x)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync{
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  int r = 1;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  if (!x) return 0;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  if (!(x & 0xffff)) { x >>= 16; r += 16; }
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  if (!(x &   0xff)) { x >>= 8;  r += 8;  }
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  if (!(x &    0xf)) { x >>= 4;  r += 4;  }
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  if (!(x &      3)) { x >>= 2;  r += 2;  }
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  if (!(x &      1)) { x >>= 1;  r += 1;  }
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  return r;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync}
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#endif
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync/*
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * Copyright Patrick Powell 1995
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * This code is based on code written by Patrick Powell (papowell@astart.com)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * It may be used for any purpose as long as this notice remains intact
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * on all source code distributions
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#if !defined(HAVE_SNPRINTF) || !defined(HAVE_VSNPRINTF)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncstatic void
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncdopr(char *buffer, size_t maxlen, const char *format, va_list args);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncstatic void
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncfmtstr(char *buffer, size_t *currlen, size_t maxlen, char *value, int flags,
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    int min, int max);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncstatic void
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncfmtint(char *buffer, size_t *currlen, size_t maxlen, long value, int base,
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    int min, int max, int flags);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncstatic void
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncfmtfp(char *buffer, size_t *currlen, size_t maxlen, long double fvalue,
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    int min, int max, int flags);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncstatic void
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncdopr_outch(char *buffer, size_t *currlen, size_t maxlen, char c);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync/*
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * dopr(): poor man's version of doprintf
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync/* format read states */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#define DP_S_DEFAULT 0
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#define DP_S_FLAGS   1
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#define DP_S_MIN     2
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#define DP_S_DOT     3
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#define DP_S_MAX     4
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#define DP_S_MOD     5
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#define DP_S_CONV    6
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#define DP_S_DONE    7
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync/* format flags - Bits */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#define DP_F_MINUS  (1 << 0)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#define DP_F_PLUS   (1 << 1)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#define DP_F_SPACE  (1 << 2)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#define DP_F_NUM    (1 << 3)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#define DP_F_ZERO   (1 << 4)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#define DP_F_UP     (1 << 5)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#define DP_F_UNSIGNED   (1 << 6)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync/* Conversion Flags */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#define DP_C_SHORT     1
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#define DP_C_LONG      2
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#define DP_C_LDOUBLE   3
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#define DP_C_LONG_LONG 4
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#define char_to_int(p) (p - '0')
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#define abs_val(p) (p < 0 ? -p : p)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncstatic void
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncdopr(char *buffer, size_t maxlen, const char *format, va_list args)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync{
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  char *strvalue, ch;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  long value;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  long double fvalue;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  int min = 0, max = -1, state = DP_S_DEFAULT, flags = 0, cflags = 0;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  size_t currlen = 0;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  ch = *format++;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  while (state != DP_S_DONE) {
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    if ((ch == '\0') || (currlen >= maxlen))
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      state = DP_S_DONE;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    switch(state) {
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    case DP_S_DEFAULT:
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      if (ch == '%')
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        state = DP_S_FLAGS;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      else
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        dopr_outch(buffer, &currlen, maxlen, ch);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      ch = *format++;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      break;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    case DP_S_FLAGS:
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      switch (ch) {
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      case '-':
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        flags |= DP_F_MINUS;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        ch = *format++;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        break;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      case '+':
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        flags |= DP_F_PLUS;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        ch = *format++;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        break;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      case ' ':
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        flags |= DP_F_SPACE;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        ch = *format++;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        break;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      case '#':
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        flags |= DP_F_NUM;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        ch = *format++;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        break;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      case '0':
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        flags |= DP_F_ZERO;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        ch = *format++;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        break;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      default:
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        state = DP_S_MIN;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        break;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      }
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      break;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    case DP_S_MIN:
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      if (isdigit((unsigned char)ch)) {
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        min = 10 * min + char_to_int (ch);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        ch = *format++;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      } else if (ch == '*') {
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        min = va_arg (args, int);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        ch = *format++;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        state = DP_S_DOT;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      } else
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        state = DP_S_DOT;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      break;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    case DP_S_DOT:
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      if (ch == '.') {
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        state = DP_S_MAX;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        ch = *format++;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      } else
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        state = DP_S_MOD;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      break;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    case DP_S_MAX:
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      if (isdigit((unsigned char)ch)) {
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        if (max < 0)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync          max = 0;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        max = 10 * max + char_to_int(ch);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        ch = *format++;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      } else if (ch == '*') {
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        max = va_arg (args, int);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        ch = *format++;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        state = DP_S_MOD;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      } else
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        state = DP_S_MOD;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      break;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    case DP_S_MOD:
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      switch (ch) {
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      case 'h':
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        cflags = DP_C_SHORT;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        ch = *format++;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        break;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      case 'l':
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        cflags = DP_C_LONG;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        ch = *format++;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        if (ch == 'l') {
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync          cflags = DP_C_LONG_LONG;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync          ch = *format++;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        }
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        break;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      case 'q':
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        cflags = DP_C_LONG_LONG;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        ch = *format++;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        break;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      case 'L':
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        cflags = DP_C_LDOUBLE;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        ch = *format++;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        break;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      default:
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        break;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      }
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      state = DP_S_CONV;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      break;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    case DP_S_CONV:
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      switch (ch) {
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      case 'd':
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      case 'i':
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        if (cflags == DP_C_SHORT)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync          value = va_arg(args, int);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        else if (cflags == DP_C_LONG)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync          value = va_arg(args, long int);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        else if (cflags == DP_C_LONG_LONG)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync          value = va_arg (args, long long);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        else
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync          value = va_arg (args, int);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        fmtint(buffer, &currlen, maxlen, value, 10, min, max, flags);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        break;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      case 'o':
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        flags |= DP_F_UNSIGNED;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        if (cflags == DP_C_SHORT)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync          value = va_arg(args, unsigned int);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        else if (cflags == DP_C_LONG)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync          value = va_arg(args, unsigned long int);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        else if (cflags == DP_C_LONG_LONG)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync          value = va_arg(args, unsigned long long);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        else
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync          value = va_arg(args, unsigned int);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        fmtint(buffer, &currlen, maxlen, value, 8, min, max, flags);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        break;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      case 'u':
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        flags |= DP_F_UNSIGNED;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        if (cflags == DP_C_SHORT)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync          value = va_arg(args, unsigned int);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        else if (cflags == DP_C_LONG)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync          value = va_arg(args, unsigned long int);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        else if (cflags == DP_C_LONG_LONG)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync          value = va_arg(args, unsigned long long);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        else
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync          value = va_arg(args, unsigned int);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        fmtint (buffer, &currlen, maxlen, value, 10, min, max, flags);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        break;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      case 'X':
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        flags |= DP_F_UP;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      case 'x':
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        flags |= DP_F_UNSIGNED;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        if (cflags == DP_C_SHORT)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync          value = va_arg(args, unsigned int);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        else if (cflags == DP_C_LONG)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync          value = va_arg(args, unsigned long int);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        else if (cflags == DP_C_LONG_LONG)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync          value = va_arg(args, unsigned long long);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        else
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync          value = va_arg(args, unsigned int);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        fmtint(buffer, &currlen, maxlen, value, 16, min, max, flags);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        break;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      case 'f':
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        if (cflags == DP_C_LDOUBLE)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync          fvalue = va_arg(args, long double);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        else
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync          fvalue = va_arg(args, double);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        /* um, floating point? */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        fmtfp(buffer, &currlen, maxlen, fvalue, min, max, flags);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        break;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      case 'E':
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        flags |= DP_F_UP;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      case 'e':
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        if (cflags == DP_C_LDOUBLE)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync          fvalue = va_arg(args, long double);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        else
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync          fvalue = va_arg(args, double);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        break;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      case 'G':
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        flags |= DP_F_UP;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      case 'g':
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        if (cflags == DP_C_LDOUBLE)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync          fvalue = va_arg(args, long double);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        else
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync          fvalue = va_arg(args, double);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        break;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      case 'c':
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        dopr_outch(buffer, &currlen, maxlen, va_arg(args, int));
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        break;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      case 's':
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        strvalue = va_arg(args, char *);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        if (max < 0)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync          max = maxlen; /* ie, no max */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        fmtstr(buffer, &currlen, maxlen, strvalue, flags, min, max);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        break;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      case 'p':
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        strvalue = va_arg(args, void *);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        fmtint(buffer, &currlen, maxlen, (long) strvalue, 16, min, max, flags);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        break;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      case 'n':
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        if (cflags == DP_C_SHORT) {
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync          short int *num;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync          num = va_arg(args, short int *);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync          *num = currlen;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        } else if (cflags == DP_C_LONG) {
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync          long int *num;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync          num = va_arg(args, long int *);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync          *num = currlen;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        } else if (cflags == DP_C_LONG_LONG) {
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync          long long *num;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync          num = va_arg(args, long long *);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync          *num = currlen;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        } else {
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync          int *num;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync          num = va_arg(args, int *);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync          *num = currlen;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        }
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        break;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      case '%':
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        dopr_outch(buffer, &currlen, maxlen, ch);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        break;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      case 'w': /* not supported yet, treat as next char */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        ch = *format++;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        break;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      default: /* Unknown, skip */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      break;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      }
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      ch = *format++;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      state = DP_S_DEFAULT;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      flags = cflags = min = 0;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      max = -1;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      break;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    case DP_S_DONE:
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      break;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    default: /* hmm? */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      break; /* some picky compilers need this */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    }
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  }
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  if (currlen < maxlen - 1)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    buffer[currlen] = '\0';
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  else
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    buffer[maxlen - 1] = '\0';
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync}
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncstatic void
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncfmtstr(char *buffer, size_t *currlen, size_t maxlen,
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    char *value, int flags, int min, int max)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync{
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  int cnt = 0, padlen, strln;     /* amount to pad */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  if (value == 0)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    value = "<NULL>";
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  for (strln = 0; value[strln]; ++strln); /* strlen */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  padlen = min - strln;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  if (padlen < 0)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    padlen = 0;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  if (flags & DP_F_MINUS)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    padlen = -padlen; /* Left Justify */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  while ((padlen > 0) && (cnt < max)) {
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    dopr_outch(buffer, currlen, maxlen, ' ');
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    --padlen;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    ++cnt;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  }
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  while (*value && (cnt < max)) {
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    dopr_outch(buffer, currlen, maxlen, *value++);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    ++cnt;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  }
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  while ((padlen < 0) && (cnt < max)) {
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    dopr_outch(buffer, currlen, maxlen, ' ');
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    ++padlen;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    ++cnt;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  }
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync}
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync/* Have to handle DP_F_NUM (ie 0x and 0 alternates) */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncstatic void
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncfmtint(char *buffer, size_t *currlen, size_t maxlen,
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    long value, int base, int min, int max, int flags)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync{
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  unsigned long uvalue;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  char convert[20];
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  int signvalue = 0, place = 0, caps = 0;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  int spadlen = 0; /* amount to space pad */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  int zpadlen = 0; /* amount to zero pad */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#define PADMAX(x,y) ((x) > (y) ? (x) : (y))
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  if (max < 0)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    max = 0;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  uvalue = value;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  if (!(flags & DP_F_UNSIGNED)) {
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    if (value < 0) {
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      signvalue = '-';
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      uvalue = -value;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    } else if (flags & DP_F_PLUS)  /* Do a sign (+/i) */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      signvalue = '+';
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    else if (flags & DP_F_SPACE)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      signvalue = ' ';
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  }
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  if (flags & DP_F_UP)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    caps = 1; /* Should characters be upper case? */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  do {
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    convert[place++] =
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        (caps ? "0123456789ABCDEF" : "0123456789abcdef")
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        [uvalue % (unsigned)base];
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    uvalue = (uvalue / (unsigned)base );
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  } while (uvalue && (place < 20));
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  if (place == 20)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    place--;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  convert[place] = 0;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  zpadlen = max - place;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  spadlen = min - PADMAX(max, place) - (signvalue ? 1 : 0);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  if (zpadlen < 0)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    zpadlen = 0;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  if (spadlen < 0)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    spadlen = 0;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  if (flags & DP_F_ZERO) {
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    zpadlen = PADMAX(zpadlen, spadlen);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    spadlen = 0;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  }
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  if (flags & DP_F_MINUS)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    spadlen = -spadlen; /* Left Justifty */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  /* Spaces */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  while (spadlen > 0) {
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    dopr_outch(buffer, currlen, maxlen, ' ');
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    --spadlen;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  }
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  /* Sign */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  if (signvalue)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    dopr_outch(buffer, currlen, maxlen, signvalue);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  /* Zeros */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  if (zpadlen > 0) {
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    while (zpadlen > 0) {
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      dopr_outch(buffer, currlen, maxlen, '0');
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      --zpadlen;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    }
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  }
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  /* Digits */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  while (place > 0)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    dopr_outch(buffer, currlen, maxlen, convert[--place]);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  /* Left Justified spaces */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  while (spadlen < 0) {
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    dopr_outch (buffer, currlen, maxlen, ' ');
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    ++spadlen;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  }
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync}
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncstatic long double
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncpow10(int exp)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync{
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  long double result = 1;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  while (exp) {
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    result *= 10;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    exp--;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  }
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  return result;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync}
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncstatic long
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncround(long double value)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync{
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  long intpart = value;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  value -= intpart;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  if (value >= 0.5)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    intpart++;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  return intpart;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync}
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncstatic void
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncfmtfp(char *buffer, size_t *currlen, size_t maxlen, long double fvalue,
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      int min, int max, int flags)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync{
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  char iconvert[20], fconvert[20];
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  int signvalue = 0, iplace = 0, fplace = 0;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  int padlen = 0; /* amount to pad */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  int zpadlen = 0, caps = 0;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  long intpart, fracpart;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  long double ufvalue;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  /*
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync   * AIX manpage says the default is 0, but Solaris says the default
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync   * is 6, and sprintf on AIX defaults to 6
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync   */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  if (max < 0)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    max = 6;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  ufvalue = abs_val(fvalue);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  if (fvalue < 0)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    signvalue = '-';
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  else if (flags & DP_F_PLUS)  /* Do a sign (+/i) */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    signvalue = '+';
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  else if (flags & DP_F_SPACE)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    signvalue = ' ';
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  intpart = ufvalue;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  /*
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync   * Sorry, we only support 9 digits past the decimal because of our
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync   * conversion method
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync   */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  if (max > 9)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    max = 9;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  /* We "cheat" by converting the fractional part to integer by
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync   * multiplying by a factor of 10
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync   */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  fracpart = round((pow10 (max)) * (ufvalue - intpart));
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  if (fracpart >= pow10 (max)) {
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    intpart++;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    fracpart -= pow10 (max);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  }
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  /* Convert integer part */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  do {
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    iconvert[iplace++] =
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        (caps ? "0123456789ABCDEF" : "0123456789abcdef")
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        [intpart % 10];
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    intpart = (intpart / 10);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  } while(intpart && (iplace < 20));
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  if (iplace == 20)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    iplace--;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  iconvert[iplace] = 0;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  /* Convert fractional part */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  do {
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    fconvert[fplace++] =
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        (caps ? "0123456789ABCDEF" : "0123456789abcdef")
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync        [fracpart % 10];
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    fracpart = (fracpart / 10);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  } while(fracpart && (fplace < 20));
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  if (fplace == 20)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    fplace--;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  fconvert[fplace] = 0;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  /* -1 for decimal point, another -1 if we are printing a sign */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  padlen = min - iplace - max - 1 - ((signvalue) ? 1 : 0);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  zpadlen = max - fplace;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  if (zpadlen < 0)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    zpadlen = 0;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  if (padlen < 0)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    padlen = 0;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  if (flags & DP_F_MINUS)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    padlen = -padlen; /* Left Justifty */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  if ((flags & DP_F_ZERO) && (padlen > 0)) {
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    if (signvalue) {
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      dopr_outch(buffer, currlen, maxlen, signvalue);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      --padlen;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      signvalue = 0;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    }
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    while (padlen > 0) {
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      dopr_outch(buffer, currlen, maxlen, '0');
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync      --padlen;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    }
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  }
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  while (padlen > 0) {
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    dopr_outch(buffer, currlen, maxlen, ' ');
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    --padlen;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  }
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  if (signvalue)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    dopr_outch(buffer, currlen, maxlen, signvalue);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  while (iplace > 0)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    dopr_outch(buffer, currlen, maxlen, iconvert[--iplace]);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  /*
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync   * Decimal point.  This should probably use locale to find the
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync   * correct char to print out.
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync   */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  dopr_outch(buffer, currlen, maxlen, '.');
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  while (fplace > 0)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    dopr_outch(buffer, currlen, maxlen, fconvert[--fplace]);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  while (zpadlen > 0) {
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    dopr_outch(buffer, currlen, maxlen, '0');
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    --zpadlen;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  }
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  while (padlen < 0) {
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    dopr_outch(buffer, currlen, maxlen, ' ');
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    ++padlen;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  }
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync}
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncstatic void
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncdopr_outch(char *buffer, size_t *currlen, size_t maxlen, char c)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync{
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  if (*currlen < maxlen)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync    buffer[(*currlen)++] = c;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync}
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#endif /* !defined(HAVE_SNPRINTF) || !defined(HAVE_VSNPRINTF) */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#ifndef HAVE_VSNPRINTF
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncint
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncvsnprintf(char *str, size_t count, const char *fmt, va_list args)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync{
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  str[0] = 0;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  dopr(str, count, fmt, args);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  return(strlen(str));
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync}
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#endif /* !HAVE_VSNPRINTF */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#ifndef HAVE_SNPRINTF
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncint
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncsnprintf(char *str,size_t count,const char *fmt,...)
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync{
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  va_list ap;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  va_start(ap, fmt);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  (void) vsnprintf(str, count, fmt, ap);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  va_end(ap);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync  return(strlen(str));
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync}
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#endif /* !HAVE_SNPRINTF */