From d0018a31d68a3b8dcc07a454fd6d57506aaa5f07 Mon Sep 17 00:00:00 2001 From: hyung-hwan Date: Fri, 27 Jun 2008 04:46:00 +0000 Subject: [PATCH] --- ase/cmd/lsp/lsp.c | 2 +- ase/cmd/makefile.am | 2 +- ase/cmd/tgp/makefile.am | 9 ++ ase/cmd/tgp/tgp.c | 242 ++++++++++++++++++++++++++++++++++++++++ 4 files changed, 253 insertions(+), 2 deletions(-) create mode 100644 ase/cmd/tgp/makefile.am create mode 100644 ase/cmd/tgp/tgp.c diff --git a/ase/cmd/lsp/lsp.c b/ase/cmd/lsp/lsp.c index 3cf29da7..e6357bcc 100644 --- a/ase/cmd/lsp/lsp.c +++ b/ase/cmd/lsp/lsp.c @@ -348,7 +348,7 @@ int lsp_main (int argc, ase_char_t* argv[]) while (1) { ase_printf (ASE_T("ASELSP $ ")); - fflush (stdout); + ase_fflush (stdout); obj = ase_lsp_read (lsp); if (obj == ASE_NULL) diff --git a/ase/cmd/makefile.am b/ase/cmd/makefile.am index 5b1287d9..bd65783b 100644 --- a/ase/cmd/makefile.am +++ b/ase/cmd/makefile.am @@ -1,2 +1,2 @@ -SUBDIRS = awk lsp +SUBDIRS = awk lsp tgp DIST_SUBDIRS = $(SUBDIRS) diff --git a/ase/cmd/tgp/makefile.am b/ase/cmd/tgp/makefile.am new file mode 100644 index 00000000..880a6873 --- /dev/null +++ b/ase/cmd/tgp/makefile.am @@ -0,0 +1,9 @@ + +AM_CPPFLAGS = -I$(top_srcdir)/include + +bin_PROGRAMS = asetgp + +asetgp_SOURCES = tgp.c +asetgp_LDFLAGS = -L../../lib/tgp -L../../lib/utl +asetgp_LDADD = -laseutl -lasetgp $(LIBM) + diff --git a/ase/cmd/tgp/tgp.c b/ase/cmd/tgp/tgp.c new file mode 100644 index 00000000..618aadce --- /dev/null +++ b/ase/cmd/tgp/tgp.c @@ -0,0 +1,242 @@ +/* + * $Id: tgp.c,v 1.5 2007/05/16 09:15:14 bacon Exp $ + */ + +#include + +#include +#include +#include +#include +#include +#include + +/* +#include +#include +#include +#include +*/ + + +#include +#include + +#ifdef _WIN32 +#include +#include +#endif + +#if defined(_WIN32) && defined(_MSC_VER) && defined(_DEBUG) +#define _CRTDBG_MAP_ALLOC +#include +#endif + +#if defined(__linux) && defined(_DEBUG) +#include +#endif + +static ase_ssize_t get_input ( + int cmd, void* arg, ase_char_t* data, ase_size_t size) +{ + switch (cmd) + { + case ASE_TGP_IO_OPEN: + case ASE_TGP_IO_CLOSE: + return 0; + + case ASE_TGP_IO_READ: + { + /* + if (ase_fgets (data, size, stdin) == ASE_NULL) + { + if (ferror(stdin)) return -1; + return 0; + } + return ase_tgp_strlen(data); + */ + + ase_cint_t c; + + if (size <= 0) return -1; + c = ase_fgetc (stdin); + + if (c == ASE_CHAR_EOF) + { + if (ferror(stdin)) return -1; + return 0; + } + + data[0] = c; + return 1; + } + } + + return -1; +} + +static ase_ssize_t put_output ( + int cmd, void* arg, ase_char_t* data, ase_size_t size) +{ + switch (cmd) + { + case ASE_TGP_IO_OPEN: + case ASE_TGP_IO_CLOSE: + return 0; + + case ASE_TGP_IO_WRITE: + { + int n = ase_fprintf ( + stdout, ASE_T("%.*s"), size, data); + if (n < 0) return -1; + + return size; + } + } + + return -1; +} + +static void* custom_tgp_malloc (void* custom, ase_size_t n) +{ + return malloc (n); +} + +static void* custom_tgp_realloc (void* custom, void* ptr, ase_size_t n) +{ + return realloc (ptr, n); +} + +static void custom_tgp_free (void* custom, void* ptr) +{ + free (ptr); +} + +static int custom_tgp_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; +} + + +static void custom_tgp_dprintf (void* custom, const ase_char_t* fmt, ...) +{ + va_list ap; + va_start (ap, fmt); + ase_vfprintf (stderr, fmt, ap); + va_end (ap); +} + +static void print_usage (const ase_char_t* argv0) +{ + ase_fprintf (ASE_STDERR, + ASE_T("Usage: %s [options]\n"), argv0); + ase_fprintf (ASE_STDERR, + ASE_T(" -h print this message\n")); + ase_fprintf (ASE_STDERR, + ASE_T(" -m integer number of memory cells\n")); + ase_fprintf (ASE_STDERR, + ASE_T(" -i integer number of memory cell increments\n")); +} + +static int handle_args (int argc, ase_char_t* argv[]) +{ + ase_opt_t opt; + ase_cint_t c; + + ase_memset (&opt, 0, ASE_SIZEOF(opt)); + opt.str = ASE_T("m:i:"); + + while ((c = ase_getopt (argc, argv, &opt)) != ASE_CHAR_EOF) + { + switch (c) + { + case ASE_T('h'): + print_usage (argv[0]); + return -1; + + case ASE_T('m'): + opt_memsize = ase_strtoi(opt.arg); + break; + + case ASE_T('i'): + opt_meminc = ase_strtoi(opt.arg); + break; + + case ASE_T('?'): + ase_fprintf (ASE_STDERR, ASE_T("Error: illegal option - %c\n"), opt.opt); + print_usage (argv[0]); + return -1; + + case ASE_T(':'): + ase_fprintf (ASE_STDERR, ASE_T("Error: missing argument for %c\n"), opt.opt); + print_usage (argv[0]); + return -1; + } + } + + if (opt.ind < argc) + { + ase_printf (ASE_T("Error: redundant argument - %s\n"), argv[opt.ind]); + print_usage (argv[0]); + return -1; + } + + if (opt_memsize <= 0) + { + ase_printf (ASE_T("Error: invalid memory size given\n")); + return -1; + } + return 0; +} + +int tgp_main (int argc, ase_char_t* argv[]) +{ + ase_tgp_t* tgp; + + if (handle_args (argc, argv) == -1) return -1; + + tgp = ase_tgp_open (ASE_GETMMGR()); + if (tgp == ASE_NULL) + { + ase_fprintf (ASE_STDERR, + ASE_T("Error: cannot create a tgp instance\n")); + return -1; + } + + ase_tgp_attinput (tgp, get_input, ASE_NULL); + ase_tgp_attoutput (tgp, put_output, ASE_NULL); + + ase_tgp_close (tgp); + return 0; +} + +int ase_main (int argc, ase_achar_t* argv[]) +{ + int n; + +#if defined(__linux) && defined(_DEBUG) + mtrace (); +#endif + + n = ase_runmain (argc, argv, tgp_main); + +#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; +}