p99_double.h

Go to the documentation of this file.

/* This may look like nonsense, but it really is -*- mode: C; coding: utf-8 -*- */
/*                                                                              */
/* Except for parts copied from previous work and as explicitly stated below,   */
/* the authors and copyright holders for this work are as follows:              */
/* (C) copyright  2010-2011 Jens Gustedt, INRIA, France                         */
/* (C) copyright  2012 William Morris                                           */
/*                                                                              */
/* This file is free software; it is part of the P99 project.                   */
/*                                                                              */
/* Licensed under the Apache License, Version 2.0 (the "License");              */
/* you may not use this file except in compliance with the License.             */
/* You may obtain a copy of the License at                                      */
/*                                                                              */
/*     http://www.apache.org/licenses/LICENSE-2.0                               */
/*                                                                              */
/* Unless required by applicable law or agreed to in writing, software          */
/* distributed under the License is distributed on an "AS IS" BASIS,            */
/* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.     */
/* See the License for the specific language governing permissions and          */
/* limitations under the License.                                               */
/*                                                                              */
#ifndef     P99_DOUBLE_H_
# define    P99_DOUBLE_H_
 
#include "p99_if.h"
 
#define P00_DEC_DOUBLE(SIGN, INT, FRAC, ESIGN, EXP, ...)       \
  P99_IF_EMPTY(SIGN)(+)(SIGN)P00_SKIP_ P99_PASTE(              \
  P99_IF_EMPTY(INT)(0)(INT),                                   \
  .,                                                           \
  P99_IF_EMPTY(FRAC)(0)(FRAC),                                 \
  E,                                                           \
  P99_IF_EMPTY(ESIGN)(+)(ESIGN),                               \
  P99_IF_EMPTY(EXP)(0)(EXP),                                   \
  __VA_ARGS__)
 
#ifdef P00_DOXYGEN
 
#define P99_DEC_DOUBLE(SIGN, INT, FRAC, ESIGN, EXP)
#else
P00_DOCUMENT_NUMBER_ARGUMENT(P99_DEC_DOUBLE, 1)
P00_DOCUMENT_NUMBER_ARGUMENT(P99_DEC_DOUBLE, 2)
P00_DOCUMENT_NUMBER_ARGUMENT(P99_DEC_DOUBLE, 4)
#define P99_DEC_DOUBLE(...)                                    \
  P99_IF_GE(P99_NARG(__VA_ARGS__), 6)                          \
  (P00_DEC_DOUBLE(__VA_ARGS__))                                \
  (P00_DEC_DOUBLE(__VA_ARGS__,,,,,))
#endif
 
 
#define P00_HEX_DOUBLE(SIGN, HEXINT, HEXFRAC, ESIGN, BINEXP, ...) \
  P99_IF_EMPTY(SIGN)(+)(SIGN)P00_SKIP_ P99_PASTE(                 \
  0x,                                                             \
  P99_IF_EMPTY(HEXINT)(0)(HEXINT),                                \
  .,                                                              \
  P99_IF_EMPTY(HEXFRAC)(0)(HEXFRAC),                              \
  P,                                                              \
  P99_IF_EMPTY(ESIGN)(+)(ESIGN),                                  \
  P99_IF_EMPTY(BINEXP)(0)(BINEXP),                                \
  __VA_ARGS__)
 
#ifdef P00_DOXYGEN
 
#define P99_HEX_DOUBLE(SIGN, HEXINT, HEXFRAC, ESIGN, BINEXP)
#else
P00_DOCUMENT_NUMBER_ARGUMENT(P99_HEX_DOUBLE, 1)
P00_DOCUMENT_NUMBER_ARGUMENT(P99_HEX_DOUBLE, 2)
P00_DOCUMENT_NUMBER_ARGUMENT(P99_HEX_DOUBLE, 4)
#define P99_HEX_DOUBLE(...)                                    \
  P99_IF_GE(P99_NARG(__VA_ARGS__), 6)                          \
  (P00_HEX_DOUBLE(__VA_ARGS__))                                \
  (P00_HEX_DOUBLE(__VA_ARGS__,,,,,))
#endif
 
#endif      /* !P99_DOUBLE_H_ */