fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2009-01-26 21:18 UTC+0100 Viktor Szakats (harbour.01 syenar hu)

Browse Source 
* source/common/hbprintf.c
    ! Some fixes to make it compile under BCC.
      Still doesn't compile however.
      I'll rather disable this code for now, unless someone jumps
      in an fixes these problems.
    ; TOFIX: For MSVC, too:
      source\common\hbprintf.c(213) : error C2061: syntax error : identifier 'intmax_t'
      source\common\hbprintf.c(214) : error C2061: syntax error : identifier 'as_x_uintmax_t'
      source\common\hbprintf.c(214) : error C2059: syntax error : ';'
      source\common\hbprintf.c(222) : error C2059: syntax error : '}'
      source\common\hbprintf.c(226) : error C2061: syntax error : identifier 'x_type'
      source\common\hbprintf.c(227) : error C2059: syntax error : '}'
      source\common\hbprintf.c(379) : error C2146: syntax error : missing ')' before identifier 'value'
      source\common\hbprintf.c(379) : error C2081: 'uintmax_t' : name in formal parameter list illegal
      source\common\hbprintf.c(379) : error C2061: syntax error : identifier 'value'
      source\common\hbprintf.c(379) : error C2059: syntax error : ';'
      source\common\hbprintf.c(379) : error C2059: syntax error : ','
      source\common\hbprintf.c(379) : error C2059: syntax error : ')'
      source\common\hbprintf.c(434) : error C2146: syntax error : missing ')' before identifier 'value'
      source\common\hbprintf.c(434) : error C2081: 'uintmax_t' : name in formal parameter list illegal
      source\common\hbprintf.c(434) : error C2061: syntax error : identifier 'value'
      source\common\hbprintf.c(434) : error C2059: syntax error : ';'
      source\common\hbprintf.c(434) : error C2059: syntax error : ','
      source\common\hbprintf.c(435) : error C2059: syntax error : ')'
      source\common\hbprintf.c(615) : error C2146: syntax error : missing ')' before identifier 'value'
      source\common\hbprintf.c(615) : error C2081: 'uintmax_t' : name in formal parameter list illegal
      source\common\hbprintf.c(615) : error C2061: syntax error : identifier 'value'
      source\common\hbprintf.c(615) : error C2059: syntax error : ';'
      source\common\hbprintf.c(615) : error C2059: syntax error : ','
      source\common\hbprintf.c(616) : error C2059: syntax error : ')'
      source\common\hbprintf.c(700) : error C2059: syntax error : '{'
      source\common\hbprintf.c(700) : error C2065: 'n' : undeclared identifier
      source\common\hbprintf.c(700) : error C2059: syntax error : ')'
      source\common\hbprintf.c(702) : error C2143: syntax error : missing '{' before '-='
      source\common\hbprintf.c(702) : error C2059: syntax error : '-='
      source\common\hbprintf.c(703) : error C2059: syntax error : 'if'
      source\common\hbprintf.c(710) : error C2059: syntax error : 'while'
      source\common\hbprintf.c(717) : error C2059: syntax error : 'while'
      source\common\hbprintf.c(725) : error C2059: syntax error : 'return'
      source\common\hbprintf.c(726) : error C2059: syntax error : '}'
This commit is contained in:
Viktor Szakats
2009-01-26 20:19:10 +00:00
parent b158b7656a
commit 8e46452b13
2 changed files with 69 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
harbour/ChangeLog
View File

@@ -8,6 +8,48 @@
2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
*/
2009-01-26 21:18 UTC+0100 Viktor Szakats (harbour.01 syenar hu)
* source/common/hbprintf.c
! Some fixes to make it compile under BCC.
Still doesn't compile however.
I'll rather disable this code for now, unless someone jumps
in an fixes these problems.
; TOFIX: For MSVC, too:
source\common\hbprintf.c(213) : error C2061: syntax error : identifier 'intmax_t'
source\common\hbprintf.c(214) : error C2061: syntax error : identifier 'as_x_uintmax_t'
source\common\hbprintf.c(214) : error C2059: syntax error : ';'
source\common\hbprintf.c(222) : error C2059: syntax error : '}'
source\common\hbprintf.c(226) : error C2061: syntax error : identifier 'x_type'
source\common\hbprintf.c(227) : error C2059: syntax error : '}'
source\common\hbprintf.c(379) : error C2146: syntax error : missing ')' before identifier 'value'
source\common\hbprintf.c(379) : error C2081: 'uintmax_t' : name in formal parameter list illegal
source\common\hbprintf.c(379) : error C2061: syntax error : identifier 'value'
source\common\hbprintf.c(379) : error C2059: syntax error : ';'
source\common\hbprintf.c(379) : error C2059: syntax error : ','
source\common\hbprintf.c(379) : error C2059: syntax error : ')'
source\common\hbprintf.c(434) : error C2146: syntax error : missing ')' before identifier 'value'
source\common\hbprintf.c(434) : error C2081: 'uintmax_t' : name in formal parameter list illegal
source\common\hbprintf.c(434) : error C2061: syntax error : identifier 'value'
source\common\hbprintf.c(434) : error C2059: syntax error : ';'
source\common\hbprintf.c(434) : error C2059: syntax error : ','
source\common\hbprintf.c(435) : error C2059: syntax error : ')'
source\common\hbprintf.c(615) : error C2146: syntax error : missing ')' before identifier 'value'
source\common\hbprintf.c(615) : error C2081: 'uintmax_t' : name in formal parameter list illegal
source\common\hbprintf.c(615) : error C2061: syntax error : identifier 'value'
source\common\hbprintf.c(615) : error C2059: syntax error : ';'
source\common\hbprintf.c(615) : error C2059: syntax error : ','
source\common\hbprintf.c(616) : error C2059: syntax error : ')'
source\common\hbprintf.c(700) : error C2059: syntax error : '{'
source\common\hbprintf.c(700) : error C2065: 'n' : undeclared identifier
source\common\hbprintf.c(700) : error C2059: syntax error : ')'
source\common\hbprintf.c(702) : error C2143: syntax error : missing '{' before '-='
source\common\hbprintf.c(702) : error C2059: syntax error : '-='
source\common\hbprintf.c(703) : error C2059: syntax error : 'if'
source\common\hbprintf.c(710) : error C2059: syntax error : 'while'
source\common\hbprintf.c(717) : error C2059: syntax error : 'while'
source\common\hbprintf.c(725) : error C2059: syntax error : 'return'
source\common\hbprintf.c(726) : error C2059: syntax error : '}'
2009-01-26 20:24 UTC+0100 Francesco Saverio Giudice (info/at/fsgiudice.com)
* harbour/ChangeLog
* added missed entry I haven't uploaded and fixed my wrong phrase.

29
harbour/source/common/hbprintf.c
View File

@@ -78,7 +78,7 @@ not support it then it can be eliminated by
#define __NO_LONGDOUBLE__
If positional parameters are not necessary then support for them can be
diabled by
disabled by
#define __NO_ARGPOS__
In such case this code neither allocates memory nor extensively use stack
as memory buffer. All conversions are done "on the fly". If memory
@@ -95,11 +95,21 @@ optimized.
# define _GNU_SOURCE
#endif
#if defined(__DJGPP__)
# include <libm/math.h>
_LIB_VERSION_TYPE _LIB_VERSION = _XOPEN_;
#else
# include <math.h>
#endif
#include "hbmath.h"
#include <stdarg.h>
#if defined( __GNUC__ )
#include <stdint.h>
#endif
#include <stddef.h>
#include <string.h>
#include <math.h>
#ifndef __NO_ARGPOS__
# include <stdlib.h> /* malloc()/realloc()/free() */
#endif
@@ -110,9 +120,19 @@ optimized.
# define _EXTERN_C extern
#endif
#if defined( __GNUC__ )
_EXTERN_C int hb_snprintf_c( char *buffer, size_t bufsize, const char *format, ... )
__attribute__ (( format (printf, 3, 4)));
#else
#define strnlen( s, maxlen ) \
( { size_t n = maxlen, size = 0; \
while( n < maxlen && s[ size ] ) \
++size; \
size; \
} )
#endif
#define _F_ALTERNATE 0x01 /* only for: o xX aA eE fF gG */
#define _F_ZEROPADED 0x02 /* only for: d i o u xX aA eE fF gG */
@@ -489,7 +509,11 @@ static size_t put_dbl( char *buffer, size_t bufsize, size_t size,
* platform then it can be replaced by 'value < 0' but in such case
* -0.0 will be shown as 0.0
*/
#if defined( __GNUC__ )
sign = signbit( value );
#else
sign = value < 0;
#endif
if( sign )
value = - value;
@@ -1057,3 +1081,4 @@ int hb_snprintf_c( char * buffer, size_t bufsize, const char * format, ... )
return ( int ) size;
}