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
2006-10-28 16:08:34 +00:00
parent 33dd3d9677
commit 361819ecd4
5 changed files with 48 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
ase/test/lsp/lsp.c
View File

@ -17,7 +17,8 @@ static xp_ssize_t get_input (int cmd, void* arg, xp_char_t* data, xp_size_t size
{
xp_ssize_t n;
switch (cmd) {
switch (cmd)
{
case ASE_LSP_IO_OPEN:
case ASE_LSP_IO_CLOSE:
return 0;
@ -36,7 +37,8 @@ static xp_ssize_t get_input (int cmd, void* arg, xp_char_t* data, xp_size_t size
static xp_ssize_t put_output (int cmd, void* arg, xp_char_t* data, xp_size_t size)
{
switch (cmd) {
switch (cmd)
{
case ASE_LSP_IO_OPEN:
case ASE_LSP_IO_CLOSE:
return 0;
@ -53,7 +55,8 @@ int to_int (const xp_char_t* str)
{
int r = 0;
while (*str != XP_CHAR('\0')) {
while (*str != XP_CHAR('\0'))
{
if (!xp_isdigit(*str)) break;
r = r * 10 + (*str - XP_CHAR('0'));
str++;
@ -157,7 +160,7 @@ static void __lsp_free (void* ptr, void* custom_data)
#endif
}
static int __dprintf (const xp_char_t* fmt, ...)
static int __aprintf (const xp_char_t* fmt, ...)
{
int n;
va_list ap;
@ -181,6 +184,21 @@ static int __dprintf (const xp_char_t* fmt, ...)
return n;
}
static int __dprintf (const ase_char_t* fmt, ...)
{
int n;
va_list ap;
va_start (ap, fmt);
#ifdef _WIN32
n = _vftprintf (stderr, fmt, ap);
#else
n = xp_vfprintf (stderr, fmt, ap);
#endif
va_end (ap);
return n;
}
int __main (int argc, xp_char_t* argv[])
{
@ -247,6 +265,7 @@ int __main (int argc, xp_char_t* argv[])
syscas.memcpy = memcpy;
syscas.memset = memset;
syscas.sprintf = xp_sprintf;
syscas.aprintf = __aprintf;
syscas.dprintf = __dprintf;
syscas.abort = abort;

19
ase/test/lsp/makefile.bcc Normal file
View File

@ -0,0 +1,19 @@
CC = bcc32
LD = ilink32
CFLAGS = -I..\..\.. -I$(XPKIT)
LDFLAGS = -L..\..\lsp -L"c:\program files\borland\bds\4.0\lib" -L$(XPKIT)\xp\bas
LIBS = import32.lib cw32mt.lib aselsp.lib xpbas.lib
STARTUP = c0x32w.obj
all: lsp
lsp: lsp.obj
$(LD) $(LDFLAGS) $(STARTUP) lsp.obj,lsp.exe,,$(LIBS),,
clean:
del $(OBJS) *.obj $(OUT)
.SUFFIXES: .c .obj
.c.obj:
$(CC) $(CFLAGS) -c $<