*** empty log message ***
This commit is contained in:
@@ -1,16 +1,17 @@
|
||||
#include <ase/lsp/lsp.h>
|
||||
#include "../../etc/printf.c"
|
||||
#include "../../etc/main.c"
|
||||
|
||||
#include <ase/utl/ctype.h>
|
||||
#include <ase/utl/stdio.h>
|
||||
#include <ase/utl/main.h>
|
||||
|
||||
#include <string.h>
|
||||
#include <stdlib.h>
|
||||
|
||||
#ifdef _WIN32
|
||||
#include <windows.h>
|
||||
#include <tchar.h>
|
||||
#endif
|
||||
|
||||
#include <string.h>
|
||||
#include <wctype.h>
|
||||
#include <stdlib.h>
|
||||
|
||||
#if defined(_WIN32) && defined(_MSC_VER) && defined(_DEBUG)
|
||||
#define _CRTDBG_MAP_ALLOC
|
||||
#include <crtdbg.h>
|
||||
@@ -20,21 +21,11 @@
|
||||
#include <mcheck.h>
|
||||
#endif
|
||||
|
||||
#if defined(_WIN32)
|
||||
#define lsp_fgets _fgetts
|
||||
#define lsp_fgetc _fgettc
|
||||
#define lsp_fputs _fputts
|
||||
#define lsp_fputc _fputtc
|
||||
#elif defined(ASE_CHAR_IS_MCHAR)
|
||||
#define lsp_fgets fgets
|
||||
#define lsp_fgetc fgetc
|
||||
#define lsp_fputs fputs
|
||||
#define lsp_fputc fputc
|
||||
#else
|
||||
#define lsp_fgets fgetws
|
||||
#define lsp_fgetc fgetwc
|
||||
#define lsp_fputs fputws
|
||||
#define lsp_fputc fputwc
|
||||
#if defined(vms) || defined(__vms)
|
||||
/* it seems that the main function should be placed in the main object file
|
||||
* in OpenVMS. otherwise, the first function in the main object file seems
|
||||
* to become the main function resulting in program start-up failure. */
|
||||
#include <ase/utl/main.c>
|
||||
#endif
|
||||
|
||||
static ase_ssize_t get_input (
|
||||
@@ -49,7 +40,7 @@ static ase_ssize_t get_input (
|
||||
case ASE_LSP_IO_READ:
|
||||
{
|
||||
/*
|
||||
if (lsp_fgets (data, size, stdin) == ASE_NULL)
|
||||
if (ase_fgets (data, size, stdin) == ASE_NULL)
|
||||
{
|
||||
if (ferror(stdin)) return -1;
|
||||
return 0;
|
||||
@@ -60,7 +51,7 @@ static ase_ssize_t get_input (
|
||||
ase_cint_t c;
|
||||
|
||||
if (size <= 0) return -1;
|
||||
c = lsp_fgetc (stdin);
|
||||
c = ase_fgetc (stdin);
|
||||
|
||||
if (c == ASE_CHAR_EOF)
|
||||
{
|
||||
@@ -106,7 +97,7 @@ struct prmfns_data_t
|
||||
};
|
||||
#endif
|
||||
|
||||
static void* __lsp_malloc (ase_size_t n, void* custom_data)
|
||||
static void* lsp_malloc (ase_size_t n, void* custom_data)
|
||||
{
|
||||
#ifdef _WIN32
|
||||
return HeapAlloc (((prmfns_data_t*)custom_data)->heap, 0, n);
|
||||
@@ -115,7 +106,7 @@ static void* __lsp_malloc (ase_size_t n, void* custom_data)
|
||||
#endif
|
||||
}
|
||||
|
||||
static void* __lsp_realloc (void* ptr, ase_size_t n, void* custom_data)
|
||||
static void* lsp_realloc (void* ptr, ase_size_t n, void* custom_data)
|
||||
{
|
||||
#ifdef _WIN32
|
||||
/* HeapReAlloc behaves differently from realloc */
|
||||
@@ -128,7 +119,7 @@ static void* __lsp_realloc (void* ptr, ase_size_t n, void* custom_data)
|
||||
#endif
|
||||
}
|
||||
|
||||
static void __lsp_free (void* ptr, void* custom_data)
|
||||
static void lsp_free (void* ptr, void* custom_data)
|
||||
{
|
||||
#ifdef _WIN32
|
||||
HeapFree (((prmfns_data_t*)custom_data)->heap, 0, ptr);
|
||||
@@ -147,70 +138,11 @@ static void* lsp_memset (void* dst, int val, ase_size_t n)
|
||||
return memset (dst, val, n);
|
||||
}
|
||||
|
||||
#if defined(ASE_CHAR_IS_MCHAR)
|
||||
#if (__TURBOC__<=513) /* turboc 2.01 or earlier */
|
||||
static int lsp_isupper (int c) { return isupper (c); }
|
||||
static int lsp_islower (int c) { return islower (c); }
|
||||
static int lsp_isalpha (int c) { return isalpha (c); }
|
||||
static int lsp_isdigit (int c) { return isdigit (c); }
|
||||
static int lsp_isxdigit (int c) { return isxdigit (c); }
|
||||
static int lsp_isalnum (int c) { return isalnum (c); }
|
||||
static int lsp_isspace (int c) { return isspace (c); }
|
||||
static int lsp_isprint (int c) { return isprint (c); }
|
||||
static int lsp_isgraph (int c) { return isgraph (c); }
|
||||
static int lsp_iscntrl (int c) { return iscntrl (c); }
|
||||
static int lsp_ispunct (int c) { return ispunct (c); }
|
||||
static int lsp_toupper (int c) { return toupper (c); }
|
||||
static int lsp_tolower (int c) { return tolower (c); }
|
||||
#else
|
||||
#define lsp_isupper isupper
|
||||
#define lsp_islower islower
|
||||
#define lsp_isalpha isalpha
|
||||
#define lsp_isdigit isdigit
|
||||
#define lsp_isxdigit isxdigit
|
||||
#define lsp_isalnum isalnum
|
||||
#define lsp_isspace isspace
|
||||
#define lsp_isprint isprint
|
||||
#define lsp_isgraph isgraph
|
||||
#define lsp_iscntrl iscntrl
|
||||
#define lsp_ispunct ispunct
|
||||
#define lsp_toupper tolower
|
||||
#define lsp_tolower tolower
|
||||
#endif
|
||||
#else
|
||||
#define lsp_isupper iswupper
|
||||
#define lsp_islower iswlower
|
||||
#define lsp_isalpha iswalpha
|
||||
#define lsp_isdigit iswdigit
|
||||
#define lsp_isxdigit iswxdigit
|
||||
#define lsp_isalnum iswalnum
|
||||
#define lsp_isspace iswspace
|
||||
#define lsp_isprint iswprint
|
||||
#define lsp_isgraph iswgraph
|
||||
#define lsp_iscntrl iswcntrl
|
||||
#define lsp_ispunct iswpunct
|
||||
|
||||
#define lsp_toupper towlower
|
||||
#define lsp_tolower towlower
|
||||
#endif
|
||||
|
||||
static void lsp_abort (void* custom_data)
|
||||
{
|
||||
abort ();
|
||||
}
|
||||
|
||||
static int lsp_sprintf (
|
||||
ase_char_t* buf, ase_size_t len, const ase_char_t* fmt, ...)
|
||||
{
|
||||
int n;
|
||||
va_list ap;
|
||||
|
||||
va_start (ap, fmt);
|
||||
n = ase_vsprintf (buf, len, fmt, ap);
|
||||
va_end (ap);
|
||||
return n;
|
||||
}
|
||||
|
||||
static void lsp_aprintf (const ase_char_t* fmt, ...)
|
||||
{
|
||||
va_list ap;
|
||||
@@ -265,30 +197,30 @@ int lsp_main (int argc, ase_char_t* argv[])
|
||||
}
|
||||
|
||||
memset (&prmfns, 0, sizeof(prmfns));
|
||||
prmfns.malloc = __lsp_malloc;
|
||||
prmfns.realloc = __lsp_realloc;
|
||||
prmfns.free = __lsp_free;
|
||||
prmfns.malloc = lsp_malloc;
|
||||
prmfns.realloc = lsp_realloc;
|
||||
prmfns.free = lsp_free;
|
||||
prmfns.memcpy = lsp_memcpy;
|
||||
prmfns.memset = lsp_memset;
|
||||
|
||||
prmfns.is_upper = (ase_lsp_isctype_t)lsp_isupper;
|
||||
prmfns.is_lower = (ase_lsp_isctype_t)lsp_islower;
|
||||
prmfns.is_alpha = (ase_lsp_isctype_t)lsp_isalpha;
|
||||
prmfns.is_digit = (ase_lsp_isctype_t)lsp_isdigit;
|
||||
prmfns.is_xdigit = (ase_lsp_isctype_t)lsp_isxdigit;
|
||||
prmfns.is_alnum = (ase_lsp_isctype_t)lsp_isalnum;
|
||||
prmfns.is_space = (ase_lsp_isctype_t)lsp_isspace;
|
||||
prmfns.is_print = (ase_lsp_isctype_t)lsp_isprint;
|
||||
prmfns.is_graph = (ase_lsp_isctype_t)lsp_isgraph;
|
||||
prmfns.is_cntrl = (ase_lsp_isctype_t)lsp_iscntrl;
|
||||
prmfns.is_punct = (ase_lsp_isctype_t)lsp_ispunct;
|
||||
prmfns.to_upper = (ase_lsp_toctype_t)lsp_toupper;
|
||||
prmfns.to_lower = (ase_lsp_toctype_t)lsp_tolower;
|
||||
prmfns.is_upper = (ase_lsp_isctype_t)ase_isupper;
|
||||
prmfns.is_lower = (ase_lsp_isctype_t)ase_islower;
|
||||
prmfns.is_alpha = (ase_lsp_isctype_t)ase_isalpha;
|
||||
prmfns.is_digit = (ase_lsp_isctype_t)ase_isdigit;
|
||||
prmfns.is_xdigit = (ase_lsp_isctype_t)ase_isxdigit;
|
||||
prmfns.is_alnum = (ase_lsp_isctype_t)ase_isalnum;
|
||||
prmfns.is_space = (ase_lsp_isctype_t)ase_isspace;
|
||||
prmfns.is_print = (ase_lsp_isctype_t)ase_isprint;
|
||||
prmfns.is_graph = (ase_lsp_isctype_t)ase_isgraph;
|
||||
prmfns.is_cntrl = (ase_lsp_isctype_t)ase_iscntrl;
|
||||
prmfns.is_punct = (ase_lsp_isctype_t)ase_ispunct;
|
||||
prmfns.to_upper = (ase_lsp_toctype_t)ase_toupper;
|
||||
prmfns.to_lower = (ase_lsp_toctype_t)ase_tolower;
|
||||
|
||||
prmfns.memcpy = lsp_memcpy;
|
||||
prmfns.memset = lsp_memset;
|
||||
prmfns.sprintf = lsp_sprintf;
|
||||
prmfns.sprintf = ase_sprintf;
|
||||
prmfns.aprintf = lsp_aprintf;
|
||||
prmfns.dprintf = lsp_dprintf;
|
||||
prmfns.abort = lsp_abort;
|
||||
prmfns.abort = lsp_abort;
|
||||
|
||||
#ifdef _WIN32
|
||||
prmfns_data.heap = HeapCreate (0, 1000000, 1000000);
|
||||
|
||||
Reference in New Issue
Block a user