hyung-hwan/qse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
hyung-hwan 2005-09-18 11:54:23 +00:00
parent 68fde07ef9
commit 4f9c21e00b
5 changed files with 50 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ase/lsp/env.h
View File

@ -1,11 +1,11 @@
/* /*
* $Id: env.h,v 1.5 2005-09-18 11:34:35 bacon Exp $ * $Id: env.h,v 1.6 2005-09-18 11:54:23 bacon Exp $
*/ */
#ifndef _XP_LSP_ENV_H_ #ifndef _XP_LSP_ENV_H_
#define _XP_LSP_ENV_H_ #define _XP_LSP_ENV_H_
#include <xp/lsp/object.h> #include <xp/lsp/obj.h>
struct xp_lsp_assoc_t struct xp_lsp_assoc_t
{ {

4
ase/lsp/lsp.h
View File

@ -1,5 +1,5 @@
/* /*
* $Id: lsp.h,v 1.7 2005-09-18 11:34:35 bacon Exp $ * $Id: lsp.h,v 1.8 2005-09-18 11:54:23 bacon Exp $
*/ */
#ifndef _XP_LSP_LSP_H_ #ifndef _XP_LSP_LSP_H_
@ -14,7 +14,7 @@
#include <xp/lsp/types.h> #include <xp/lsp/types.h>
#include <xp/lsp/token.h> #include <xp/lsp/token.h>
#include <xp/lsp/object.h> #include <xp/lsp/obj.h>
#include <xp/lsp/mem.h> #include <xp/lsp/mem.h>
#define XP_LSP_ERR(lsp) ((lsp)->errnum) #define XP_LSP_ERR(lsp) ((lsp)->errnum)

4
ase/lsp/mem.h
View File

@ -1,11 +1,11 @@
/* /*
* $Id: mem.h,v 1.1 2005-09-18 11:34:35 bacon Exp $ * $Id: mem.h,v 1.2 2005-09-18 11:54:23 bacon Exp $
*/ */
#ifndef _XP_LSP_MEM_H_ #ifndef _XP_LSP_MEM_H_
#define _XP_LSP_MEM_H_ #define _XP_LSP_MEM_H_
#include <xp/lsp/object.h> #include <xp/lsp/obj.h>
#include <xp/lsp/env.h> #include <xp/lsp/env.h>
#include <xp/lsp/array.h> #include <xp/lsp/array.h>

6
ase/lsp/object.h → ase/lsp/obj.h
View File

@ -1,9 +1,9 @@
/* /*
* $Id: object.h,v 1.6 2005-09-18 08:10:50 bacon Exp $ * $Id: obj.h,v 1.1 2005-09-18 11:54:23 bacon Exp $
*/ */
#ifndef _XP_LSP_OBJECT_H_ #ifndef _XP_LSP_OBJ_H_
#define _XP_LSP_OBJECT_H_ #define _XP_LSP_OBJ_H_
#include <xp/lsp/types.h> #include <xp/lsp/types.h>

49
ase/test/lsp/lisp.c
View File

@ -8,20 +8,51 @@
#include <mcheck.h> #include <mcheck.h>
#endif #endif
static int get_char (xp_cint_t* ch, void* arg) static int get_char (int cmd, void* owner, void* arg)
{ {
xp_cint_t c; xp_cint_t c;
c = xp_fgetc(xp_stdin); switch (cmd) {
case XP_LSP_IO_OPEN:
case XP_LSP_IO_CLOSE:
return 0;
case XP_LSP_IO_CHAR:
c = xp_fgetc (xp_stdin);
if (c == XP_CHAR_EOF) { if (c == XP_CHAR_EOF) {
if (xp_ferror(xp_stdin)) return -1; if (xp_ferror(xp_stdin)) return -1;
c = XP_CHAR_EOF;
} }
*ch = c; break;
case XP_LSP_IO_STR:
return -1;
}
return 0; return 0;
} }
static int put_char (int cmd, void* owner, void* arg)
{
switch (cmd) {
case XP_LSP_IO_OPEN:
case XP_LSP_IO_CLOSE:
return 0;
case XP_LSP_IO_CHAR:
xp_fputc (*(xp_char_t*)arg, xp_stdout);
break;
case XP_LSP_IO_STR:
xp_fputs ((xp_char_t*)arg, xp_stdout);
break;
}
return 0;
}
int to_int (const xp_char_t* str) int to_int (const xp_char_t* str)
{ {
int r = 0; int r = 0;
@ -64,6 +95,7 @@ int handle_cli_error (
return -1; return -1;
} }
xp_cli_t* parse_cli (int argc, xp_char_t* argv[]) xp_cli_t* parse_cli (int argc, xp_char_t* argv[])
{ {
static const xp_char_t* optsta[] = static const xp_char_t* optsta[] =
@ -128,6 +160,7 @@ int xp_main (int argc, xp_char_t* argv[])
xp_printf (XP_TEXT("LSP 0.0001\n")); xp_printf (XP_TEXT("LSP 0.0001\n"));
xp_lsp_attach_input (lsp, get_char); xp_lsp_attach_input (lsp, get_char);
xp_lsp_attach_output (lsp, put_char);
for (;;) { for (;;) {
xp_printf (XP_TEXT("%s> "), argv[0]); xp_printf (XP_TEXT("%s> "), argv[0]);
@ -151,14 +184,8 @@ int xp_main (int argc, xp_char_t* argv[])
else { else {
if (lsp->errnum == XP_LSP_ERR_ABORT) break; if (lsp->errnum == XP_LSP_ERR_ABORT) break;
xp_fprintf (xp_stderr, xp_fprintf (xp_stderr,
XP_TEXT("error while reading: %d\n"), lsp->errnum); XP_TEXT("error while evaluating: %d\n"), lsp->errnum);
} }
/*
printf ("-----------\n");
xp_lsp_print (lsp, obj);
printf ("\n-----------\n");
*/
} }
xp_lsp_close (lsp); xp_lsp_close (lsp);