*** empty log message ***
This commit is contained in:
parent
4d2dca2438
commit
57721d5b86
@ -3,14 +3,14 @@
|
||||
#
|
||||
|
||||
SRCS = awk.c err.c tree.c str.c tab.c map.c parse.c \
|
||||
run.c rec.c val.c misc.c extio.c rex.c
|
||||
run.c rec.c val.c func.c misc.c extio.c rex.c
|
||||
OBJS = awk.obj err.obj tree.obj str.obj tab.obj map.obj parse.obj \
|
||||
run.obj rec.obj val.obj misc.obj extio.obj rex.obj
|
||||
run.obj rec.obj val.obj func.obj misc.obj extio.obj rex.obj
|
||||
OUT = aseawk.lib
|
||||
|
||||
CC = tcc
|
||||
AR = tlib
|
||||
CFLAGS = -1 -O -mh -w -f87 -G -I..\.. -Ddos
|
||||
CFLAGS = -1 -O -mh -w -f87 -G -g0 -I..\.. -D_DEBUG
|
||||
|
||||
all: $(OBJS)
|
||||
-del $(OUT)
|
||||
@ -24,6 +24,7 @@ all: $(OBJS)
|
||||
$(AR) $(OUT) +run.obj
|
||||
$(AR) $(OUT) +rec.obj
|
||||
$(AR) $(OUT) +val.obj
|
||||
$(AR) $(OUT) +func.obj
|
||||
$(AR) $(OUT) +misc.obj
|
||||
$(AR) $(OUT) +extio.obj
|
||||
$(AR) $(OUT) +rex.obj
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
/*
|
||||
* $Id: rex.c,v 1.41 2006-10-27 10:34:40 bacon Exp $
|
||||
* $Id: rex.c,v 1.42 2006-11-15 05:49:22 bacon Exp $
|
||||
*/
|
||||
|
||||
#include <ase/awk/awk_i.h>
|
||||
@ -1696,6 +1696,8 @@ static ase_bool_t __cc_isxdigit (ase_awk_t* awk, ase_char_t c)
|
||||
return ASE_AWK_ISXDIGIT (awk, c);
|
||||
}
|
||||
|
||||
#ifdef DEBUG_REX
|
||||
|
||||
void ase_awk_printrex (void* rex)
|
||||
{
|
||||
__print_pattern (rex);
|
||||
@ -1836,3 +1838,4 @@ static const ase_byte_t* __print_atom (const ase_byte_t* p)
|
||||
return p;
|
||||
}
|
||||
|
||||
#endif
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
/*
|
||||
* $Id: rex.h,v 1.21 2006-10-24 04:10:12 bacon Exp $
|
||||
* $Id: rex.h,v 1.22 2006-11-15 05:49:22 bacon Exp $
|
||||
**/
|
||||
|
||||
#ifndef _ASE_AWK_REX_H_
|
||||
@ -64,7 +64,9 @@ void ase_awk_freerex (ase_awk_t* awk, void* code);
|
||||
|
||||
ase_bool_t ase_awk_isemptyrex (ase_awk_t* awk, void* code);
|
||||
|
||||
void ase_awk_printrex (void* code);
|
||||
#ifdef DEBUG_REX
|
||||
void ase_awk_printrex (void* rex);
|
||||
#endif
|
||||
|
||||
#ifdef __cplusplus
|
||||
}
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
/*
|
||||
* $Id: val.c,v 1.82 2006-11-14 14:54:18 bacon Exp $
|
||||
* $Id: val.c,v 1.83 2006-11-15 05:49:22 bacon Exp $
|
||||
*/
|
||||
|
||||
#include <ase/awk/awk_i.h>
|
||||
@ -431,8 +431,10 @@ ase_char_t* ase_awk_valtostr (
|
||||
}
|
||||
|
||||
/* TODO: process more value types */
|
||||
run->awk->syscas.dprintf (
|
||||
ASE_T("ERROR: WRONG VALUE TYPE [%d] in ase_awk_valtostr\n"),
|
||||
v->type);
|
||||
|
||||
xp_printf (ASE_T("*** ERROR: WRONG VALUE TYPE [%d] in ase_awk_valtostr v=> %p***\n"), v->type, v);
|
||||
run->errnum = ASE_AWK_EVALTYPE;
|
||||
return ASE_NULL;
|
||||
}
|
||||
@ -650,7 +652,10 @@ int ase_awk_valtonum (
|
||||
return 0; /* long */
|
||||
}
|
||||
|
||||
xp_printf (ASE_T("*** ERROR: WRONG VALUE TYPE [%d] in ase_awk_valtonum v=> %p***\n"), v->type, v);
|
||||
run->awk->syscas.dprintf (
|
||||
ASE_T("ERROR: WRONG VALUE TYPE [%d] in ase_awk_valtonum\n"),
|
||||
v->type);
|
||||
|
||||
run->errnum = ASE_AWK_EVALTYPE;
|
||||
return -1; /* error */
|
||||
}
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
/*
|
||||
* $Id: conf_dos.h,v 1.7 2006-10-24 04:30:13 bacon Exp $
|
||||
* $Id: conf_dos.h,v 1.8 2006-11-15 05:49:22 bacon Exp $
|
||||
*/
|
||||
|
||||
#if !defined(__LARGE__) && !defined(__HUGE__)
|
||||
@ -25,7 +25,7 @@
|
||||
|
||||
#define ASE_SIZEOF_FLOAT 4
|
||||
#define ASE_SIZEOF_DOUBLE 8
|
||||
#define ASE_SIZEOF_LONG_DOUBLE 10 /* turbo c 2.01 */
|
||||
#define ASE_SIZEOF_LONG_DOUBLE 10 /* turbo c 2.01/turbo c++ 1.0 */
|
||||
#define ASE_SIZEOF_WCHAR_T 0
|
||||
|
||||
#define ASE_CHAR_IS_MCHAR
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
/*
|
||||
* $Id: awk.c,v 1.111 2006-11-13 09:11:09 bacon Exp $
|
||||
* $Id: awk.c,v 1.112 2006-11-15 05:49:22 bacon Exp $
|
||||
*/
|
||||
|
||||
#include <ase/awk/awk.h>
|
||||
@ -14,7 +14,7 @@
|
||||
#include <wctype.h>
|
||||
#endif
|
||||
|
||||
#ifdef _WIN32
|
||||
#if defined(_WIN32)
|
||||
#include <windows.h>
|
||||
#include <tchar.h>
|
||||
#include <limits.h>
|
||||
@ -28,11 +28,25 @@
|
||||
|
||||
#define xp_vsprintf _vsntprintf
|
||||
#define xp_sprintf _sntprintf
|
||||
#define xp_frintf _ftprintf
|
||||
#define xp_fprintf _ftprintf
|
||||
#define xp_printf _tprintf
|
||||
#define xp_assert assert
|
||||
|
||||
#pragma warning (disable: 4996)
|
||||
#elif defined(__MSDOS__)
|
||||
#include <limits.h>
|
||||
#include <assert.h>
|
||||
#include <ctype.h>
|
||||
#include <stdlib.h>
|
||||
|
||||
#ifndef PATH_MAX
|
||||
#define ASE_PATH_MAX 4096
|
||||
#else
|
||||
#define ASE_PATH_MAX PATH_MAX
|
||||
#endif
|
||||
|
||||
#define xp_printf printf
|
||||
#define xp_assert assert
|
||||
#else
|
||||
#include <xp/bas/stdio.h>
|
||||
#include <xp/bas/stdlib.h>
|
||||
@ -85,6 +99,25 @@ static FILE* fopen_t (const ase_char_t* path, const ase_char_t* mode)
|
||||
#endif
|
||||
}
|
||||
|
||||
static int __sprintf (
|
||||
ase_char_t* buf, ase_size_t len, const ase_char_t* fmt, ...)
|
||||
{
|
||||
int n;
|
||||
va_list ap;
|
||||
|
||||
va_start (ap, fmt);
|
||||
#if defined(_WIN32)
|
||||
n = _sntprintf (buf, len, fmt, ap);
|
||||
#elif defined(__MSDOS__)
|
||||
/* TODO: check buffer overflow */
|
||||
n = vsprintf (buf, fmt, ap);
|
||||
#else
|
||||
n = xp_vsprintf (buf, len, fmt, ap);
|
||||
#endif
|
||||
va_end (ap);
|
||||
return n;
|
||||
}
|
||||
|
||||
static int __aprintf (const ase_char_t* fmt, ...)
|
||||
{
|
||||
int n;
|
||||
@ -94,15 +127,16 @@ static int __aprintf (const ase_char_t* fmt, ...)
|
||||
#endif
|
||||
|
||||
va_start (ap, fmt);
|
||||
#ifdef _WIN32
|
||||
#if defined(_WIN32)
|
||||
n = _vsntprintf (buf, ase_countof(buf), fmt, ap);
|
||||
|
||||
#if defined(_MSC_VER) && (_MSC_VER<1400)
|
||||
#if defined(_MSC_VER) && (_MSC_VER<1400)
|
||||
MessageBox (NULL, buf, ASE_T("Assertion Failure"), MB_OK | MB_ICONERROR);
|
||||
#else
|
||||
#else
|
||||
MessageBox (NULL, buf, ASE_T("\uB2DD\uAE30\uB9AC \uC870\uB610"), MB_OK | MB_ICONERROR);
|
||||
#endif
|
||||
|
||||
#endif
|
||||
#elif defined(__MSDOS__)
|
||||
n = vprintf (fmt, ap);
|
||||
#else
|
||||
n = xp_vprintf (fmt, ap);
|
||||
#endif
|
||||
@ -116,8 +150,10 @@ static int __dprintf (const ase_char_t* fmt, ...)
|
||||
va_list ap;
|
||||
va_start (ap, fmt);
|
||||
|
||||
#ifdef _WIN32
|
||||
#if defined(_WIN32)
|
||||
n = _vftprintf (stderr, fmt, ap);
|
||||
#elif defined(__MSDOS__)
|
||||
n = vfprintf (stderr, fmt, ap);
|
||||
#else
|
||||
n = xp_vfprintf (stderr, fmt, ap);
|
||||
#endif
|
||||
@ -133,8 +169,11 @@ static ase_real_t __awk_pow (ase_real_t x, ase_real_t y)
|
||||
|
||||
static FILE* popen_t (const ase_char_t* cmd, const ase_char_t* mode)
|
||||
{
|
||||
#ifdef _WIN32
|
||||
#if defined(_WIN32)
|
||||
return _tpopen (cmd, mode);
|
||||
#elif defined(__MSDOS__)
|
||||
/* TODO: support this */
|
||||
return NULL;
|
||||
#else
|
||||
#ifdef ASE_CHAR_IS_MCHAR
|
||||
const ase_mchar_t* cmd_mb;
|
||||
@ -589,7 +628,7 @@ static void __stop_run (int sig)
|
||||
{
|
||||
signal (SIGINT, SIG_IGN);
|
||||
ase_awk_stop (app_awk, app_run);
|
||||
//ase_awk_stoprun (awk, handle);
|
||||
/*ase_awk_stoprun (awk, handle);*/
|
||||
/*ase_awk_stopallruns (awk); */
|
||||
signal (SIGINT, __stop_run);
|
||||
}
|
||||
@ -654,6 +693,53 @@ static void __awk_free (void* ptr, void* custom_data)
|
||||
#endif
|
||||
}
|
||||
|
||||
#if defined(ASE_CHAR_IS_MCHAR)
|
||||
#if (__TURBOC__<=513) /* turboc 2.01 or earlier */
|
||||
static int __awk_isupper (int c) { return isupper (c); }
|
||||
static int __awk_islower (int c) { return islower (c); }
|
||||
static int __awk_isalpha (int c) { return isalpha (c); }
|
||||
static int __awk_isdigit (int c) { return isdigit (c); }
|
||||
static int __awk_isxdigit (int c) { return isxdigit (c); }
|
||||
static int __awk_isalnum (int c) { return isalnum (c); }
|
||||
static int __awk_isspace (int c) { return isspace (c); }
|
||||
static int __awk_isprint (int c) { return isprint (c); }
|
||||
static int __awk_isgraph (int c) { return isgraph (c); }
|
||||
static int __awk_iscntrl (int c) { return iscntrl (c); }
|
||||
static int __awk_ispunct (int c) { return ispunct (c); }
|
||||
static int __awk_toupper (int c) { return toupper (c); }
|
||||
static int __awk_tolower (int c) { return tolower (c); }
|
||||
#else
|
||||
#define __awk_isupper isupper
|
||||
#define __awk_islower islower
|
||||
#define __awk_isalpha isalpha
|
||||
#define __awk_isdigit isdigit
|
||||
#define __awk_isxdigit isxdigit
|
||||
#define __awk_isalnum isalnum
|
||||
#define __awk_isspace isspace
|
||||
#define __awk_isprint isprint
|
||||
#define __awk_isgraph isgraph
|
||||
#define __awk_iscntrl iscntrl
|
||||
#define __awk_ispunct ispunct
|
||||
#define __awk_toupper tolower
|
||||
#define __awk_toupper toupper
|
||||
#endif
|
||||
#else
|
||||
#define __awk_isupper iswupper
|
||||
#define __awk_islower iswlower
|
||||
#define __awk_isalpha iswalpha
|
||||
#define __awk_isdigit iswdigit
|
||||
#define __awk_isxdigit iswxdigit
|
||||
#define __awk_isalnum iswalnum
|
||||
#define __awk_isspace iswspace
|
||||
#define __awk_isprint iswprint
|
||||
#define __awk_isgraph iswgraph
|
||||
#define __awk_iscntrl iswcntrl
|
||||
#define __awk_ispunct iswpunct
|
||||
|
||||
#define __awk_toupper towlower
|
||||
#define __awk_toupper towupper
|
||||
#endif
|
||||
|
||||
static int __main (int argc, ase_char_t* argv[])
|
||||
{
|
||||
ase_awk_t* awk;
|
||||
@ -712,39 +798,24 @@ static int __main (int argc, ase_char_t* argv[])
|
||||
syscas.lock = NULL;
|
||||
syscas.unlock = NULL;
|
||||
|
||||
#ifdef ASE_CHAR_IS_MCHAR
|
||||
syscas.is_upper = isupper;
|
||||
syscas.is_lower = islower;
|
||||
syscas.is_alpha = isalpha;
|
||||
syscas.is_digit = isdigit;
|
||||
syscas.is_xdigit = isxdigit;
|
||||
syscas.is_alnum = isalnum;
|
||||
syscas.is_space = isspace;
|
||||
syscas.is_print = isprint;
|
||||
syscas.is_graph = isgraph;
|
||||
syscas.is_cntrl = iscntrl;
|
||||
syscas.is_punct = ispunct;
|
||||
syscas.to_upper = toupper;
|
||||
syscas.to_lower = tolower;
|
||||
#else
|
||||
syscas.is_upper = iswupper;
|
||||
syscas.is_lower = iswlower;
|
||||
syscas.is_alpha = iswalpha;
|
||||
syscas.is_digit = iswdigit;
|
||||
syscas.is_xdigit = iswxdigit;
|
||||
syscas.is_alnum = iswalnum;
|
||||
syscas.is_space = iswspace;
|
||||
syscas.is_print = iswprint;
|
||||
syscas.is_graph = iswgraph;
|
||||
syscas.is_cntrl = iswcntrl;
|
||||
syscas.is_punct = iswpunct;
|
||||
syscas.to_upper = towupper;
|
||||
syscas.to_lower = towlower;
|
||||
#endif
|
||||
syscas.is_upper = __awk_isupper;
|
||||
syscas.is_lower = __awk_islower;
|
||||
syscas.is_alpha = __awk_isalpha;
|
||||
syscas.is_digit = __awk_isdigit;
|
||||
syscas.is_xdigit = __awk_isxdigit;
|
||||
syscas.is_alnum = __awk_isalnum;
|
||||
syscas.is_space = __awk_isspace;
|
||||
syscas.is_print = __awk_isprint;
|
||||
syscas.is_graph = __awk_isgraph;
|
||||
syscas.is_cntrl = __awk_iscntrl;
|
||||
syscas.is_punct = __awk_ispunct;
|
||||
syscas.to_upper = __awk_toupper;
|
||||
syscas.to_lower = __awk_tolower;
|
||||
|
||||
syscas.memcpy = memcpy;
|
||||
syscas.memset = memset;
|
||||
syscas.pow = __awk_pow;
|
||||
syscas.sprintf = xp_sprintf;
|
||||
syscas.sprintf = __sprintf;
|
||||
syscas.aprintf = __aprintf;
|
||||
syscas.dprintf = __dprintf;
|
||||
syscas.abort = abort;
|
||||
@ -778,17 +849,10 @@ static int __main (int argc, ase_char_t* argv[])
|
||||
if (ase_awk_parse (awk, &srcios) == -1)
|
||||
{
|
||||
int errnum = ase_awk_geterrnum(awk);
|
||||
#if !defined(_WIN32) && defined(ASE_CHAR_IS_WCHAR)
|
||||
wprintf (
|
||||
ASE_T("ERROR: cannot parse program - line %u [%d] %ls\n"),
|
||||
(unsigned int)ase_awk_getsrcline(awk),
|
||||
errnum, ase_awk_geterrstr(errnum));
|
||||
#else
|
||||
_tprintf (
|
||||
xp_printf (
|
||||
ASE_T("ERROR: cannot parse program - line %u [%d] %s\n"),
|
||||
(unsigned int)ase_awk_getsrcline(awk),
|
||||
errnum, ase_awk_geterrstr(errnum));
|
||||
#endif
|
||||
ase_awk_close (awk);
|
||||
return -1;
|
||||
}
|
||||
@ -820,16 +884,9 @@ static int __main (int argc, ase_char_t* argv[])
|
||||
if (ase_awk_run (awk, &runios, &runcbs, runarg) == -1)
|
||||
{
|
||||
int errnum = ase_awk_geterrnum(awk);
|
||||
#if !defined(_WIN32) && defined(ASE_CHAR_IS_WCHAR)
|
||||
wprintf (
|
||||
ASE_T("error: cannot run program - [%d] %ls\n"),
|
||||
errnum, ase_awk_geterrstr(errnum));
|
||||
#else
|
||||
_tprintf (
|
||||
xp_printf (
|
||||
ASE_T("error: cannot run program - [%d] %s\n"),
|
||||
errnum, ase_awk_geterrstr(errnum));
|
||||
#endif
|
||||
|
||||
ase_awk_close (awk);
|
||||
return -1;
|
||||
}
|
||||
@ -1007,6 +1064,8 @@ int /*__declspec(naked)*/ is_debugger_present2 (void)
|
||||
|
||||
#if defined(_WIN32)
|
||||
int _tmain (int argc, ase_char_t* argv[])
|
||||
#elif defined(__MSDOS__)
|
||||
int main (int argc, ase_char_t* argv[])
|
||||
#else
|
||||
int xp_main (int argc, ase_char_t* argv[])
|
||||
#endif
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
CC = tcc
|
||||
CFLAGS = -1 -O -mh -w -f87 -I..\..\.. -Ddos -D__STAND_ALONE
|
||||
CFLAGS = -1 -O -mh -w -f87 -I..\..\..
|
||||
LDFLAGS = -L..\..\awk
|
||||
LIBS = xpawk.lib
|
||||
LIBS = aseawk.lib
|
||||
|
||||
all: awk
|
||||
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
/*
|
||||
* $Id: types.h,v 1.58 2006-10-24 04:30:13 bacon Exp $
|
||||
* $Id: types.h,v 1.59 2006-11-15 05:49:22 bacon Exp $
|
||||
*/
|
||||
|
||||
#ifndef _ASE_TYPES_H_
|
||||
@ -9,7 +9,7 @@
|
||||
#include <ase/conf_msw.h>
|
||||
#elif defined(vms) || defined(__vms)
|
||||
#include <ase/conf_vms.h>
|
||||
#elif defined(dos) || defined(__dos)
|
||||
#elif defined(__MSDOS__) || defined(_MSDOS) || defined(MSDOS)
|
||||
#include <ase/conf_dos.h>
|
||||
#else
|
||||
#include <ase/config.h>
|
||||
|
||||
Loading…
Reference in New Issue
Block a user