qse/ase/test/lsp/lsp.c

399 lines
7.5 KiB
C
Raw Normal View History

2006-10-26 08:47:30 +00:00
#include <ase/lsp/lsp.h>
2007-02-21 04:18:09 +00:00
#include <ase/utl/ctype.h>
#include <ase/utl/stdio.h>
#include <ase/utl/main.h>
#include <string.h>
#include <stdlib.h>
2006-10-26 08:47:30 +00:00
2006-10-29 13:48:06 +00:00
#ifdef _WIN32
2007-02-10 13:52:41 +00:00
#include <windows.h>
2006-10-29 13:00:39 +00:00
#include <tchar.h>
2006-10-29 13:48:06 +00:00
#endif
2006-10-29 13:00:39 +00:00
#if defined(_WIN32) && defined(_MSC_VER) && defined(_DEBUG)
#define _CRTDBG_MAP_ALLOC
#include <crtdbg.h>
#endif
2006-10-26 08:47:30 +00:00
#ifdef __linux
#include <mcheck.h>
#endif
2007-02-21 04:18:09 +00:00
#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>
2007-02-10 13:52:41 +00:00
#endif
2007-03-08 13:58:52 +00:00
#ifndef NDEBUG
void ase_assert_abort (void)
{
abort ();
}
void ase_assert_printf (const ase_char_t* fmt, ...)
{
va_list ap;
#ifdef _WIN32
int n;
ase_char_t buf[1024];
#endif
va_start (ap, fmt);
#if defined(_WIN32)
n = _vsntprintf (buf, ASE_COUNTOF(buf), fmt, ap);
if (n < 0) buf[ASE_COUNTOF(buf)-1] = ASE_T('\0');
#if defined(_MSC_VER) && (_MSC_VER<1400)
MessageBox (NULL, buf,
ASE_T("Assertion Failure"), MB_OK|MB_ICONERROR);
#else
MessageBox (NULL, buf,
ASE_T("\uB2DD\uAE30\uB9AC \uC870\uB610"), MB_OK|MB_ICONERROR);
#endif
#else
ase_vprintf (fmt, ap);
#endif
va_end (ap);
}
#endif
2007-02-10 13:52:41 +00:00
static ase_ssize_t get_input (
int cmd, void* arg, ase_char_t* data, ase_size_t size)
2006-10-26 08:47:30 +00:00
{
2006-10-28 16:08:34 +00:00
switch (cmd)
{
2007-02-06 14:52:51 +00:00
case ASE_LSP_IO_OPEN:
case ASE_LSP_IO_CLOSE:
return 0;
case ASE_LSP_IO_READ:
{
2007-02-10 13:52:41 +00:00
/*
2007-02-21 04:18:09 +00:00
if (ase_fgets (data, size, stdin) == ASE_NULL)
2007-02-10 13:52:41 +00:00
{
if (ferror(stdin)) return -1;
return 0;
}
return ase_lsp_strlen(data);
*/
ase_cint_t c;
if (size <= 0) return -1;
2007-02-21 04:18:09 +00:00
c = ase_fgetc (stdin);
2007-02-10 13:52:41 +00:00
if (c == ASE_CHAR_EOF)
{
if (ferror(stdin)) return -1;
return 0;
}
data[0] = c;
return 1;
2007-02-06 14:52:51 +00:00
}
2006-10-26 08:47:30 +00:00
}
return -1;
}
2007-02-10 13:52:41 +00:00
static ase_ssize_t put_output (
int cmd, void* arg, ase_char_t* data, ase_size_t size)
2006-10-26 08:47:30 +00:00
{
2006-10-28 16:08:34 +00:00
switch (cmd)
{
2007-02-06 14:52:51 +00:00
case ASE_LSP_IO_OPEN:
case ASE_LSP_IO_CLOSE:
return 0;
2006-10-26 08:47:30 +00:00
2007-02-06 14:52:51 +00:00
case ASE_LSP_IO_WRITE:
2007-02-10 13:52:41 +00:00
{
int n = ase_fprintf (
stdout, ASE_T("%.*s"), size, data);
if (n < 0) return -1;
2006-10-26 08:47:30 +00:00
2007-02-10 13:52:41 +00:00
return size;
}
2006-10-26 08:47:30 +00:00
}
return -1;
}
#ifdef _WIN32
2007-02-10 13:52:41 +00:00
typedef struct prmfns_data_t prmfns_data_t;
struct prmfns_data_t
2006-10-26 08:47:30 +00:00
{
HANDLE heap;
};
#endif
2007-02-24 14:32:44 +00:00
static void* custom_lsp_malloc (void* custom, ase_size_t n)
2006-10-26 08:47:30 +00:00
{
#ifdef _WIN32
2007-02-24 14:32:44 +00:00
return HeapAlloc (((prmfns_data_t*)custom)->heap, 0, n);
2006-10-26 08:47:30 +00:00
#else
return malloc (n);
#endif
}
2007-02-24 14:32:44 +00:00
static void* custom_lsp_realloc (void* custom, void* ptr, ase_size_t n)
2006-10-26 08:47:30 +00:00
{
#ifdef _WIN32
/* HeapReAlloc behaves differently from realloc */
if (ptr == NULL)
2007-02-24 14:32:44 +00:00
return HeapAlloc (((prmfns_data_t*)custom)->heap, 0, n);
2006-10-26 08:47:30 +00:00
else
2007-02-24 14:32:44 +00:00
return HeapReAlloc (((prmfns_data_t*)custom)->heap, 0, ptr, n);
2006-10-26 08:47:30 +00:00
#else
return realloc (ptr, n);
#endif
}
2007-02-24 14:32:44 +00:00
static void custom_lsp_free (void* custom, void* ptr)
2006-10-26 08:47:30 +00:00
{
#ifdef _WIN32
2007-02-24 14:32:44 +00:00
HeapFree (((prmfns_data_t*)custom)->heap, 0, ptr);
2006-10-26 08:47:30 +00:00
#else
free (ptr);
#endif
}
2007-02-24 14:32:44 +00:00
static ase_bool_t custom_lsp_isupper (void* custom, ase_cint_t c)
{
return ase_isupper (c);
}
static ase_bool_t custom_lsp_islower (void* custom, ase_cint_t c)
{
return ase_islower (c);
}
static ase_bool_t custom_lsp_isalpha (void* custom, ase_cint_t c)
{
return ase_isalpha (c);
}
static ase_bool_t custom_lsp_isdigit (void* custom, ase_cint_t c)
{
return ase_isdigit (c);
}
static ase_bool_t custom_lsp_isxdigit (void* custom, ase_cint_t c)
{
return ase_isxdigit (c);
}
static ase_bool_t custom_lsp_isalnum (void* custom, ase_cint_t c)
{
return ase_isalnum (c);
}
static ase_bool_t custom_lsp_isspace (void* custom, ase_cint_t c)
{
return ase_isspace (c);
}
static ase_bool_t custom_lsp_isprint (void* custom, ase_cint_t c)
{
return ase_isprint (c);
}
static ase_bool_t custom_lsp_isgraph (void* custom, ase_cint_t c)
{
return ase_isgraph (c);
}
static ase_bool_t custom_lsp_iscntrl (void* custom, ase_cint_t c)
{
return ase_iscntrl (c);
}
static ase_bool_t custom_lsp_ispunct (void* custom, ase_cint_t c)
{
return ase_ispunct (c);
}
static ase_cint_t custom_lsp_toupper (void* custom, ase_cint_t c)
{
return ase_toupper (c);
}
static ase_cint_t custom_lsp_tolower (void* custom, ase_cint_t c)
{
return ase_tolower (c);
}
static int custom_lsp_sprintf (
void* custom, ase_char_t* buf, ase_size_t size,
const ase_char_t* fmt, ...)
{
int n;
va_list ap;
va_start (ap, fmt);
n = ase_vsprintf (buf, size, fmt, ap);
va_end (ap);
return n;
}
2006-10-26 08:47:30 +00:00
2007-02-24 14:32:44 +00:00
static void custom_lsp_dprintf (void* custom, const ase_char_t* fmt, ...)
2006-10-28 16:08:34 +00:00
{
va_list ap;
va_start (ap, fmt);
2007-02-01 08:52:10 +00:00
ase_vfprintf (stderr, fmt, ap);
va_end (ap);
}
2006-10-28 16:08:34 +00:00
2007-02-24 14:32:44 +00:00
2007-02-10 13:52:41 +00:00
int lsp_main (int argc, ase_char_t* argv[])
2006-10-26 08:47:30 +00:00
{
ase_lsp_t* lsp;
ase_lsp_obj_t* obj;
int mem, inc;
2007-02-10 13:52:41 +00:00
ase_lsp_prmfns_t prmfns;
2006-10-29 13:00:39 +00:00
#ifdef _WIN32
2007-02-10 13:52:41 +00:00
prmfns_data_t prmfns_data;
2006-10-29 13:00:39 +00:00
#endif
2006-10-26 08:47:30 +00:00
2007-02-10 13:52:41 +00:00
mem = 1000;
inc = 1000;
2006-10-26 08:47:30 +00:00
if (mem <= 0)
{
2007-02-10 13:52:41 +00:00
ase_printf (ASE_T("error: invalid memory size given\n"));
2006-10-26 08:47:30 +00:00
return -1;
}
2007-02-10 13:52:41 +00:00
memset (&prmfns, 0, sizeof(prmfns));
2006-10-26 08:47:30 +00:00
2007-02-24 14:32:44 +00:00
prmfns.mmgr.malloc = custom_lsp_malloc;
prmfns.mmgr.realloc = custom_lsp_realloc;
prmfns.mmgr.free = custom_lsp_free;
2006-10-29 13:00:39 +00:00
#ifdef _WIN32
2007-02-10 13:52:41 +00:00
prmfns_data.heap = HeapCreate (0, 1000000, 1000000);
if (prmfns_data.heap == NULL)
2006-10-29 13:00:39 +00:00
{
2007-02-10 13:52:41 +00:00
ase_printf (ASE_T("Error: cannot create an lsp heap\n"));
2006-10-29 13:00:39 +00:00
return -1;
}
2007-02-23 10:57:09 +00:00
prmfns.mmgr.custom_data = &prmfns_data;
#else
prmfns.mmgr.custom_data = ASE_NULL;
2006-10-29 13:00:39 +00:00
#endif
2007-02-24 14:32:44 +00:00
prmfns.ccls.is_upper = custom_lsp_isupper;
prmfns.ccls.is_lower = custom_lsp_islower;
prmfns.ccls.is_alpha = custom_lsp_isalpha;
prmfns.ccls.is_digit = custom_lsp_isdigit;
prmfns.ccls.is_xdigit = custom_lsp_isxdigit;
prmfns.ccls.is_alnum = custom_lsp_isalnum;
prmfns.ccls.is_space = custom_lsp_isspace;
prmfns.ccls.is_print = custom_lsp_isprint;
prmfns.ccls.is_graph = custom_lsp_isgraph;
prmfns.ccls.is_cntrl = custom_lsp_iscntrl;
prmfns.ccls.is_punct = custom_lsp_ispunct;
prmfns.ccls.to_upper = custom_lsp_toupper;
prmfns.ccls.to_lower = custom_lsp_tolower;
2007-02-23 10:57:09 +00:00
prmfns.ccls.custom_data = ASE_NULL;
2007-02-24 14:32:44 +00:00
prmfns.misc.sprintf = custom_lsp_sprintf;
prmfns.misc.dprintf = custom_lsp_dprintf;
prmfns.misc.custom_data = ASE_NULL;
2007-02-23 10:57:09 +00:00
2007-02-10 13:52:41 +00:00
lsp = ase_lsp_open (&prmfns, mem, inc);
2007-02-06 14:52:51 +00:00
if (lsp == ASE_NULL)
2006-10-26 08:47:30 +00:00
{
2006-10-29 13:00:39 +00:00
#ifdef _WIN32
2007-02-10 13:52:41 +00:00
HeapDestroy (prmfns_data.heap);
2006-10-29 13:00:39 +00:00
#endif
2007-02-10 13:52:41 +00:00
ase_printf (ASE_T("error: cannot create a lsp instance\n"));
2006-10-26 08:47:30 +00:00
return -1;
}
2007-02-11 09:07:50 +00:00
ase_printf (ASE_T("ASELSP 0.0001\n"));
2006-10-26 08:47:30 +00:00
2007-02-11 09:07:50 +00:00
ase_lsp_attinput (lsp, get_input, ASE_NULL);
ase_lsp_attoutput (lsp, put_output, ASE_NULL);
2006-10-26 08:47:30 +00:00
while (1)
{
2007-02-13 06:05:29 +00:00
ase_printf (ASE_T("ASELSP $ "));
2007-02-10 13:52:41 +00:00
fflush (stdout);
2006-10-26 08:47:30 +00:00
obj = ase_lsp_read (lsp);
2007-02-06 14:52:51 +00:00
if (obj == ASE_NULL)
2006-10-26 08:47:30 +00:00
{
2007-02-11 09:07:50 +00:00
int errnum;
const ase_char_t* errmsg;
ase_lsp_geterror (lsp, &errnum, &errmsg);
2006-10-26 08:47:30 +00:00
2007-02-10 13:52:41 +00:00
if (errnum != ASE_LSP_EEND &&
errnum != ASE_LSP_EEXIT)
2006-10-26 08:47:30 +00:00
{
2007-02-10 13:52:41 +00:00
ase_printf (
ASE_T("error in read: [%d] %s\n"),
2007-02-11 09:07:50 +00:00
errnum, errmsg);
2006-10-26 08:47:30 +00:00
}
2007-02-11 09:07:50 +00:00
/* TODO: change the following check */
if (errnum < ASE_LSP_ESYNTAX) break;
2006-10-26 08:47:30 +00:00
continue;
}
2007-02-06 14:52:51 +00:00
if ((obj = ase_lsp_eval (lsp, obj)) != ASE_NULL)
2006-10-29 13:00:39 +00:00
{
2006-10-26 08:47:30 +00:00
ase_lsp_print (lsp, obj);
2007-02-10 13:52:41 +00:00
ase_printf (ASE_T("\n"));
2006-10-26 08:47:30 +00:00
}
2006-10-29 13:00:39 +00:00
else
{
2006-10-26 08:47:30 +00:00
int errnum;
2007-02-11 09:07:50 +00:00
const ase_char_t* errmsg;
2006-10-26 08:47:30 +00:00
2007-02-11 09:07:50 +00:00
ase_lsp_geterror (lsp, &errnum, &errmsg);
2007-02-10 13:52:41 +00:00
if (errnum == ASE_LSP_EEXIT) break;
2006-10-26 08:47:30 +00:00
2007-02-10 13:52:41 +00:00
ase_printf (
2007-02-11 09:07:50 +00:00
ASE_T("error in eval: [%d] %s\n"),
errnum, errmsg);
2006-10-26 08:47:30 +00:00
}
}
ase_lsp_close (lsp);
2006-10-29 13:00:39 +00:00
#ifdef _WIN32
2007-02-10 13:52:41 +00:00
HeapDestroy (prmfns_data.heap);
2006-10-29 13:00:39 +00:00
#endif
2006-10-26 08:47:30 +00:00
return 0;
}
2007-02-10 13:52:41 +00:00
int ase_main (int argc, ase_char_t* argv[])
2006-10-26 09:14:27 +00:00
{
int n;
#if defined(__linux) && defined(_DEBUG)
mtrace ();
#endif
2007-02-10 13:52:41 +00:00
n = lsp_main (argc, argv);
2006-10-26 09:14:27 +00:00
#if defined(__linux) && defined(_DEBUG)
muntrace ();
#endif
#if defined(_WIN32) && defined(_MSC_VER) && defined(_DEBUG)
_CrtDumpMemoryLeaks ();
wprintf (L"Press ENTER to quit\n");
getchar ();
#endif
return n;
2006-10-26 09:31:28 +00:00
}