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-05-12 15:51:20 +00:00
parent ab29120eed
commit 9df2a671b4
3 changed files with 47 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ase/stx/hash.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: hash.c,v 1.7 2005-05-12 15:25:06 bacon Exp $ * $Id: hash.c,v 1.8 2005-05-12 15:51:20 bacon Exp $
*/ */
#include <xp/stx/hash.h> #include <xp/stx/hash.h>
@ -85,7 +85,6 @@ void xp_stx_hash_traverse (
link = XP_STX_AT(stx,table,size); link = XP_STX_AT(stx,table,size);
while (link != stx->nil) { while (link != stx->nil) {
xp_stx_word_t key = XP_STX_AT(stx,link,1);
func (stx,link); func (stx,link);
link = XP_STX_AT(stx,link,0); link = XP_STX_AT(stx,link,0);
} }

27
ase/stx/parser.c Normal file
View File

@ -0,0 +1,27 @@
/*
* $Id: parser.c,v 1.1 2005-05-12 15:49:07 bacon Exp $
*/
#include <xp/stx/parser.h>
static void __emit_code (
xp_stx_t* stx, xp_stx_word_t method, int value)
{
}
static void __emit_instruction (
xp_stx_t* stx, xp_stx_word_t method, int high, int low)
{
if (low >= 16) {
__emit_instruction (stx, method, Extended, high);
__emit_code (low);
}
else __emit_code (high * 16 + low);
}
int xp_stx_parse (
xp_stx_t* stx, xp_stx_word_t method, const xp_char_t* text)
{
return 0;
}

19
ase/stx/parser.h Normal file
View File

@ -0,0 +1,19 @@
/*
* $Id: parser.h,v 1.1 2005-05-12 15:49:07 bacon Exp $
*/
#ifndef _XP_STX_PARSER_H_
#define _XP_STX_PARSER_H_
#ifdef __cplusplus
extern "C" {
#endif
int xp_stx_parse (
xp_stx_t* stx, xp_stx_word_t method, const xp_char_t* text);
#ifdef __cplusplus
}
#endif
#endif