*** empty log message ***

This commit is contained in:
hyung-hwan 2006-11-19 06:15:58 +00:00
parent 7111ee2808
commit d28fa830ac
6 changed files with 67 additions and 30 deletions

View File

@ -18,7 +18,6 @@ LD = ilink32
AR = tlib AR = tlib
JAVAC = javac JAVAC = javac
CFLAGS_COMMON = -O2 -WM -WU -RT- -w -I../.. $(JNI_INC) CFLAGS_COMMON = -O2 -WM -WU -RT- -w -I../.. $(JNI_INC)
CFLAGS_RELEASE = $(CFLAGS_COMMON) -DNDEBUG CFLAGS_RELEASE = $(CFLAGS_COMMON) -DNDEBUG
CFLAGS_DEBUG = $(CFLAGS_COMMON) -D_DEBUG CFLAGS_DEBUG = $(CFLAGS_COMMON) -D_DEBUG
@ -32,7 +31,7 @@ LIBS = import32.lib cw32mt.lib
all: lib jni all: lib jni
lib: $(C_OBJS) lib: $(C_OBJS)
$(AR) $(OUT).lib @&&! $(AR) aseawk.lib @&&!
+-$(**: = &^ +-$(**: = &^
+-) +-)
! !

View File

@ -1,5 +1,5 @@
/* /*
* $Id: rex.c,v 1.42 2006-11-15 05:49:22 bacon Exp $ * $Id: rex.c,v 1.43 2006-11-19 06:15:25 bacon Exp $
*/ */
#include <ase/awk/awk_i.h> #include <ase/awk/awk_i.h>
@ -1586,7 +1586,7 @@ xp_printf (ASE_T("__match occurrences: si = %d [%s]\n"), si, mat->match_ptr);
return p; return p;
} }
ase_bool_t __test_charset ( static ase_bool_t __test_charset (
__matcher_t* matcher, const ase_byte_t* p, ase_size_t csc, ase_char_t c) __matcher_t* matcher, const ase_byte_t* p, ase_size_t csc, ase_char_t c)
{ {
ase_size_t i; ase_size_t i;
@ -1595,20 +1595,20 @@ ase_bool_t __test_charset (
{ {
ase_char_t c0, c1, c2; ase_char_t c0, c1, c2;
c0 = *(ase_char_t*)p; c0 = *(const ase_char_t*)p;
p += ase_sizeof(c0); p += ase_sizeof(c0);
if (c0 == CHARSET_ONE) if (c0 == CHARSET_ONE)
{ {
c1 = *(ase_char_t*)p; c1 = *(const ase_char_t*)p;
if (matcher->ignorecase) if (matcher->ignorecase)
c1 = ASE_AWK_TOUPPER(matcher->awk, c1); c1 = ASE_AWK_TOUPPER(matcher->awk, c1);
if (c == c1) return ase_true; if (c == c1) return ase_true;
} }
else if (c0 == CHARSET_RANGE) else if (c0 == CHARSET_RANGE)
{ {
c1 = *(ase_char_t*)p; c1 = *(const ase_char_t*)p;
p += ase_sizeof(c1); p += ase_sizeof(c1);
c2 = *(ase_char_t*)p; c2 = *(const ase_char_t*)p;
if (matcher->ignorecase) if (matcher->ignorecase)
{ {
@ -1619,7 +1619,7 @@ ase_bool_t __test_charset (
} }
else if (c0 == CHARSET_CLASS) else if (c0 == CHARSET_CLASS)
{ {
c1 = *(ase_char_t*)p; c1 = *(const ase_char_t*)p;
if (__char_class[c1].func ( if (__char_class[c1].func (
matcher->awk, c)) return ase_true; matcher->awk, c)) return ase_true;
} }

View File

@ -1,5 +1,5 @@
/* /*
* $Id: run.c,v 1.266 2006-11-18 15:36:57 bacon Exp $ * $Id: run.c,v 1.267 2006-11-19 06:15:25 bacon Exp $
*/ */
#include <ase/awk/awk_i.h> #include <ase/awk/awk_i.h>
@ -5644,10 +5644,14 @@ ase_char_t* ase_awk_format (
run->awk->syscas.sprintf ( run->awk->syscas.sprintf (
run->sprintf.tmp, run->sprintf.tmp,
ase_countof(run->sprintf.tmp), ase_countof(run->sprintf.tmp),
#ifdef _WIN32 #if ASE_SIZEOF_LONG_LONG > 0
ASE_T("%I64d"), (__int64)l);
#else
ASE_T("%lld"), (long long)l); ASE_T("%lld"), (long long)l);
#elif ASE_SIZEOF___INT64 > 0
ASE_T("%I64d"), (__int64)l);
#elif ASE_SIZEOF_LONG > 0
ASE_T("%ld"), (long)l);
#elif ASE_SIZEOF_INT > 0
ASE_T("%d"), (int)l);
#endif #endif
p = run->sprintf.tmp; p = run->sprintf.tmp;
@ -5750,10 +5754,14 @@ ase_char_t* ase_awk_format (
run->awk->syscas.sprintf ( run->awk->syscas.sprintf (
run->sprintf.tmp, run->sprintf.tmp,
ase_countof(run->sprintf.tmp), ase_countof(run->sprintf.tmp),
#ifdef _WIN32 #if ASE_SIZEOF_LONG_LONG > 0
ASE_T("%I64d"), (__int64)l);
#else
ASE_T("%lld"), (long long)l); ASE_T("%lld"), (long long)l);
#elif ASE_SIZEOF___INT64 > 0
ASE_T("%I64d"), (__int64)l);
#elif ASE_SIZEOF_LONG > 0
ASE_T("%ld"), (long)l);
#elif ASE_SIZEOF_INT > 0
ASE_T("%d"), (int)l);
#endif #endif
p = run->sprintf.tmp; p = run->sprintf.tmp;
@ -5787,9 +5795,23 @@ ase_char_t* ase_awk_format (
ase_char_t* p; ase_char_t* p;
int n; int n;
#if ASE_SIZEOF_LONG_LONG > 0
FMT_CHAR (ASE_T('l')); FMT_CHAR (ASE_T('l'));
FMT_CHAR (ASE_T('l')); FMT_CHAR (ASE_T('l'));
FMT_CHAR (fmt[i]); FMT_CHAR (fmt[i]);
#elif ASE_SIZEOF___INT64 > 0
FMT_CHAR (ASE_T('I'));
FMT_CHAR (ASE_T('6'));
FMT_CHAR (ASE_T('4'));
FMT_CHAR (fmt[i]);
#elif ASE_SIZEOF_LONG > 0
FMT_CHAR (ASE_T('l'));
FMT_CHAR (fmt[i]);
#elif ASE_SIZEOF_INT > 0
FMT_CHAR (fmt[i]);
#else
#error unsupported integer size
#endif
if (args == ASE_NULL) if (args == ASE_NULL)
{ {
@ -5829,11 +5851,15 @@ ase_char_t* ase_awk_format (
run->sprintf.tmp, run->sprintf.tmp,
ase_countof(run->sprintf.tmp), ase_countof(run->sprintf.tmp),
ASE_AWK_STR_BUF(fbu), ASE_AWK_STR_BUF(fbu),
#ifdef _WIN32 #if ASE_SIZEOF_LONG_LONG > 0
(__int64)l);
#else
(long long)l); (long long)l);
#endif #elif ASE_SIZEOF___INT64 > 0
(__int64)l);
#elif ASE_SIZEOF_LONG > 0
(long)l);
#elif ASE_SIZEOF_INT > 0
(int)l);
#endif
p = run->sprintf.tmp; p = run->sprintf.tmp;
while (*p != ASE_T('\0')) while (*p != ASE_T('\0'))

View File

@ -1,5 +1,5 @@
/* /*
* $Id: conf_msw.h,v 1.5 2006-10-24 04:30:13 bacon Exp $ * $Id: conf_msw.h,v 1.6 2006-11-19 06:15:57 bacon Exp $
*/ */
/* /*
@ -29,14 +29,26 @@ _M_X64 x64 platform
#define ASE_SIZEOF_LONG 4 #define ASE_SIZEOF_LONG 4
#endif #endif
#define ASE_SIZEOF_LONG_LONG 0 #ifdef __POCC__
/* pelles c with no microsoft extension */
#define ASE_SIZEOF_LONG_LONG 8
#define ASE_SIZEOF___INT8 1 #define ASE_SIZEOF___INT8 0
#define ASE_SIZEOF___INT16 2 #define ASE_SIZEOF___INT16 0
#define ASE_SIZEOF___INT32 4 #define ASE_SIZEOF___INT32 0
#define ASE_SIZEOF___INT64 8 #define ASE_SIZEOF___INT64 0
#define ASE_SIZEOF___INT96 0 #define ASE_SIZEOF___INT96 0
#define ASE_SIZEOF___INT128 0 #define ASE_SIZEOF___INT128 0
#else
#define ASE_SIZEOF_LONG_LONG 0
#define ASE_SIZEOF___INT8 1
#define ASE_SIZEOF___INT16 2
#define ASE_SIZEOF___INT32 4
#define ASE_SIZEOF___INT64 8
#define ASE_SIZEOF___INT96 0
#define ASE_SIZEOF___INT128 0
#endif
#ifdef _WIN64 #ifdef _WIN64
#define ASE_SIZEOF_VOID_P 8 #define ASE_SIZEOF_VOID_P 8

View File

@ -17,7 +17,7 @@ STARTUP = c0x32w.obj
all: awk all: awk
awk: awk.obj awk: awk.obj
$(LD) $(LDFLAGS) $(STARTUP) awk.obj,awk.exe,,$(LIBS),, $(LD) $(LDFLAGS) $(STARTUP) awk.obj,$@.exe,,$(LIBS),,
clean: clean:
del $(OBJS) *.obj $(OUT) del $(OBJS) *.obj $(OUT)

View File

@ -6,7 +6,7 @@ LIBS = aseawk.lib kernel32.lib user32.lib
all: awk #rex2 rex3 all: awk #rex2 rex3
awk: awk.obj awk: awk.obj
link /nologo /out:awk.exe $(LDFLAGS) $(LIBS) awk.obj link /nologo /out:$@.exe $(LDFLAGS) $(LIBS) awk.obj
rex: rex.obj rex: rex.obj
link /nologo /out:rex.exe $(LDFLAGS) $(LIBS) rex.obj link /nologo /out:rex.exe $(LDFLAGS) $(LIBS) rex.obj