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

Recovered from cvs revision 2007-10-01 11:45:00

Browse Source
This commit is contained in:
hyung-hwan
2007-10-02 00:22:00 +00:00
parent 5c8dda1041
commit 6bc6f6c9db
11 changed files with 445 additions and 89 deletions
Download Patch File Download Diff File Expand all files Collapse all files

210
ase/awk/Awk.cpp
View File

@ -1,5 +1,5 @@
/*
* $Id: Awk.cpp,v 1.60 2007/09/27 11:30:20 bacon Exp $
* $Id: Awk.cpp,v 1.61 2007/09/30 15:12:20 bacon Exp $
*
* {License}
*/
@ -137,6 +137,9 @@ Awk::Console::Mode Awk::Console::getMode () const
Awk::Argument::Argument (): run (ASE_NULL), val (ASE_NULL)
{
this->inum = 0;
this->rnum = 0.0;
this->str.ptr = ASE_NULL;
this->str.len = 0;
}
@ -148,21 +151,52 @@ Awk::Argument::~Argument ()
void Awk::Argument::clear ()
{
if (this->str.ptr != ASE_NULL)
if (this->val == ASE_NULL)
{
ASE_ASSERT (this->run != ASE_NULL);
ase_awk_free (
ase_awk_getrunawk(this->run), this->str.ptr);
/* case 1. not initialized.
* case 2. initialized with the second init.
* none of the cases creates a new string so the sttring
* that str.ptr is pointing at doesn't have to be freed */
this->str.ptr = ASE_NULL;
this->str.len = 0;
}
if (this->val != ASE_NULL)
else if (this->val->type == ASE_AWK_VAL_MAP)
{
ASE_ASSERT (this->run != ASE_NULL);
/* when the value is a map, str.ptr and str.len are
* used for index iteration in getFirstIndex & getNextIndex */
ase_awk_refdownval (this->run, this->val);
this->val = ASE_NULL;
}
else
{
ASE_ASSERT (this->run != ASE_NULL);
if (this->str.ptr != ASE_NULL)
{
if (this->val->type != ASE_AWK_VAL_STR)
{
ase_awk_free (
ase_awk_getrunawk(this->run),
this->str.ptr);
}
this->str.ptr = ASE_NULL;
this->str.len = 0;
}
if (this->val != ASE_NULL)
{
ase_awk_refdownval (this->run, this->val);
this->val = ASE_NULL;
}
}
this->rnum = 0.0;
this->inum = 0;
this->run = ASE_NULL;
}
void* Awk::Argument::operator new (size_t n, awk_t* awk) throw ()
@ -232,13 +266,17 @@ int Awk::Argument::init (run_t* run, val_t* v)
this->inum = (ase_long_t)this->rnum;
return 0;
}
this->str.ptr = ((ase_awk_val_str_t*)this->val)->buf;
this->str.len = ((ase_awk_val_str_t*)this->val)->len;
}
else if (v->type == ASE_AWK_VAL_INT)
{
this->inum = ((ase_awk_val_int_t*)v)->val;
this->rnum = (ase_real_t)((ase_awk_val_int_t*)v)->val;
this->str.ptr = ase_awk_valtostr (run, v, 0, ASE_NULL, &this->str.len);
this->str.ptr = ase_awk_valtostr (
run, v, 0, ASE_NULL, &this->str.len);
if (this->str.ptr != ASE_NULL) return 0;
}
else if (v->type == ASE_AWK_VAL_REAL)
@ -246,7 +284,8 @@ int Awk::Argument::init (run_t* run, val_t* v)
this->inum = (ase_long_t)((ase_awk_val_real_t*)v)->val;
this->rnum = ((ase_awk_val_real_t*)v)->val;
this->str.ptr = ase_awk_valtostr (run, v, 0, ASE_NULL, &this->str.len);
this->str.ptr = ase_awk_valtostr (
run, v, 0, ASE_NULL, &this->str.len);
if (this->str.ptr != ASE_NULL) return 0;
}
else if (v->type == ASE_AWK_VAL_NIL)
@ -254,51 +293,151 @@ int Awk::Argument::init (run_t* run, val_t* v)
this->inum = 0;
this->rnum = 0.0;
this->str.ptr = ase_awk_valtostr (run, v, 0, ASE_NULL, &this->str.len);
this->str.ptr = ase_awk_valtostr (
run, v, 0, ASE_NULL, &this->str.len);
if (this->str.ptr != ASE_NULL) return 0;
}
else if (v->type == ASE_AWK_VAL_MAP)
{
// TODO: support this propertly...
this->inum = 0;
this->rnum = 0.0;
this->str.ptr = ASE_NULL;
this->str.len = 0;
return 0;
}
// an error has occurred
ase_awk_refdownval (run, v);
this->run = ASE_NULL;
this->val = ASE_NULL;
return -1;
}
int Awk::Argument::init (run_t* run, const char_t* str, size_t len)
{
ASE_ASSERT (this->run == ASE_NULL && this->val == ASE_NULL);
this->run = run;
this->str.ptr = (char_t*)str;
this->str.len = len;
if (ase_awk_strtonum (run, str, len, &this->inum, &this->rnum) == 0)
{
this->rnum = (real_t)this->inum;
}
else
{
this->inum = (long_t)this->rnum;
}
return 0;
}
Awk::long_t Awk::Argument::toInt () const
{
if (this->run == ASE_NULL || this->val == ASE_NULL) return 0;
return this->inum;
}
Awk::real_t Awk::Argument::toReal () const
{
if (this->run == ASE_NULL || this->val == ASE_NULL) return 0.0;
return this->rnum;
}
const Awk::char_t* Awk::Argument::toStr (size_t* len) const
{
if (this->run == ASE_NULL || this->val == ASE_NULL)
if (this->val != ASE_NULL && this->val->type == ASE_AWK_VAL_MAP)
{
*len = 0;
return ASE_NULL;
return ASE_T("");
}
if (this->str.ptr != ASE_NULL)
else if (this->str.ptr == ASE_NULL)
{
*len = 0;
return ASE_T("");
}
else
{
*len = this->str.len;
return this->str.ptr;
}
else
{
ASE_ASSERT (val->type == ASE_AWK_VAL_STR);
*len = ((ase_awk_val_str_t*)this->val)->len;
return ((ase_awk_val_str_t*)this->val)->buf;
}
}
bool Awk::Argument::isIndexed () const
{
if (this->val == ASE_NULL) return false;
return this->val->type == ASE_AWK_VAL_MAP;
}
int Awk::Argument::getIndexedAt (const char_t* idxptr, Awk::Argument& val) const
{
return getIndexedAt (idxptr, ase_strlen(idxptr), val);
}
int Awk::Argument::getIndexedAt (const char_t* idxptr, size_t idxlen, Awk::Argument& val) const
{
val.clear ();
// not initialized yet. val is just nil. not an error
if (this->val == ASE_NULL) return 0;
// not a map. val is just nil. not an error
if (this->val->type != ASE_AWK_VAL_MAP) return 0;
// get the value from the map.
ase_awk_val_map_t* m = (ase_awk_val_map_t*)this->val;
ase_awk_pair_t* pair = ase_awk_map_get (m->map, idxptr, idxlen);
// the key is not found. it is not an error. val is just nil
if (pair == ASE_NULL) return 0;
// if val.init fails, it should return an error
return val.init (this->run, (val_t*)pair->val);
}
#include <ase/utl/stdio.h>
int Awk::Argument::getFirstIndex (Awk::Argument& val) const
{
val.clear ();
if (this->val == ASE_NULL) return -1;
if (this->val->type != ASE_AWK_VAL_MAP) return -1;
ase_size_t buckno;
ase_awk_val_map_t* m = (ase_awk_val_map_t*)this->val;
ase_awk_pair_t* pair = ase_awk_map_getfirstpair (m->map, &buckno);
if (pair == ASE_NULL) return 0; // no more key
if (val.init (this->run, pair->key.ptr, pair->key.len) == -1) return -1;
// reuse the string field as an interator.
this->str.ptr = (char_t*)pair;
this->str.len = buckno;
return 1;
}
int Awk::Argument::getNextIndex (Awk::Argument& val) const
{
val.clear ();
if (this->val == ASE_NULL) return -1;
if (this->val->type != ASE_AWK_VAL_MAP) return -1;
ase_awk_val_map_t* m = (ase_awk_val_map_t*)this->val;
ase_awk_pair_t* pair = (ase_awk_pair_t*)this->str.ptr;
ase_size_t buckno = this->str.len;
pair = ase_awk_map_getnextpair (m->map, pair, &buckno);
if (pair == ASE_NULL) return 0;
if (val.init (this->run, pair->key.ptr, pair->key.len) == -1) return -1;
// reuse the string field as an interator.
this->str.ptr = (char_t*)pair;
this->str.len = buckno;
return 1;
}
//////////////////////////////////////////////////////////////////
@ -427,6 +566,22 @@ const Awk::char_t* Awk::Run::getErrorMessage () const
return ase_awk_getrunerrmsg (this->run);
}
void Awk::Run::setError (
ErrorCode code, size_t line, const char_t* arg, size_t len)
{
ASE_ASSERT (this->run != ASE_NULL);
ase_cstr_t x = { arg, len };
ase_awk_setrunerror (this->run, code, line, &x, 1);
}
void Awk::Run::setError (
ErrorCode code, size_t line, const char_t* msg)
{
ASE_ASSERT (this->run != ASE_NULL);
ase_awk_setrunerrmsg (this->run, code, line, msg);
}
int Awk::Run::setGlobal (int id, long_t v)
{
ASE_ASSERT (this->run != ASE_NULL);
@ -434,8 +589,7 @@ int Awk::Run::setGlobal (int id, long_t v)
ase_awk_val_t* tmp = ase_awk_makeintval (run, v);
if (tmp == ASE_NULL)
{
ase_awk_setrunerror (
this->run, ASE_AWK_ENOMEM, 0, ASE_NULL, 0);
setError (ERR_NOMEM);
return -1;
}
@ -452,8 +606,7 @@ int Awk::Run::setGlobal (int id, real_t v)
ase_awk_val_t* tmp = ase_awk_makerealval (run, v);
if (tmp == ASE_NULL)
{
ase_awk_setrunerror (
this->run, ASE_AWK_ENOMEM, 0, ASE_NULL, 0);
setError (ERR_NOMEM);
return -1;
}
@ -470,8 +623,7 @@ int Awk::Run::setGlobal (int id, const char_t* ptr, size_t len)
ase_awk_val_t* tmp = ase_awk_makestrval (run, ptr, len);
if (tmp == ASE_NULL)
{
ase_awk_setrunerror (
this->run, ASE_AWK_ENOMEM, 0, ASE_NULL, 0);
setError (ERR_NOMEM);
return -1;
}

29
ase/awk/Awk.hpp
View File

@ -1,5 +1,5 @@
/*
* $Id: Awk.hpp,v 1.62 2007/09/27 11:04:10 bacon Exp $
* $Id: Awk.hpp,v 1.63 2007/09/30 15:12:20 bacon Exp $
*
* {License}
*/
@ -315,23 +315,31 @@ public:
protected:
int init (run_t* run, val_t* v);
int init (run_t* run, const char_t* str, size_t len);
public:
long_t toInt () const;
real_t toReal () const;
const char_t* toStr (size_t* len) const;
bool isIndexed () const;
int getIndexedAt (const char_t* idxptr, Awk::Argument& val) const;
int getIndexedAt (const char_t* idxptr, size_t idxlen, Awk::Argument& val) const;
int getFirstIndex (Awk::Argument& val) const;
int getNextIndex (Awk::Argument& val) const;
protected:
run_t* run;
val_t* val;
ase_long_t inum;
ase_real_t rnum;
struct
mutable struct
{
char_t* ptr;
size_t len;
char_t* ptr;
size_t len;
} str;
};
@ -346,6 +354,11 @@ public:
Return (awk_t* awk);
~Return ();
private:
Return (const Return&);
Return& operator= (const Return&);
protected:
val_t* toVal (run_t* run) const;
public:
@ -355,6 +368,8 @@ public:
void clear ();
// TODO: Support MAP HERE...
protected:
awk_t* awk;
int type;
@ -556,6 +571,10 @@ public:
size_t getErrorLine () const;
const char_t* getErrorMessage () const;
void setError (ErrorCode code, size_t line = 0,
const char_t* arg = ASE_NULL, size_t len = 0);
void setError (ErrorCode code, size_t line, const char_t* msg);
/**
* Sets the value of a global variable. The global variable
* is indicated by the first parameter.

48
ase/awk/map.c
View File

@ -1,5 +1,5 @@
/*
* $Id: map.c,v 1.9 2007/07/25 09:53:28 bacon Exp $
* $Id: map.c,v 1.10 2007/09/30 15:12:20 bacon Exp $
*
* {License}
*/
@ -281,6 +281,52 @@ int ase_awk_map_walk (ase_awk_map_t* map,
return 0;
}
ase_awk_pair_t* ase_awk_map_getfirstpair (
ase_awk_map_t* map, ase_size_t* buckno)
{
ase_size_t i;
ase_awk_pair_t* pair;
for (i = 0; i < map->capa; i++)
{
pair = map->buck[i];
if (pair != ASE_NULL)
{
*buckno = i;
return pair;
}
}
return ASE_NULL;
}
ase_awk_pair_t* ase_awk_map_getnextpair (
ase_awk_map_t* map, ase_awk_pair_t* pair, ase_size_t* buckno)
{
ase_size_t i;
ase_awk_pair_t* next;
next = ASE_AWK_PAIR_LNK(pair);
if (next != ASE_NULL)
{
/* no change in bucket number */
return next;
}
for (i = (*buckno)+1; i < map->capa; i++)
{
pair = map->buck[i];
if (pair != ASE_NULL)
{
*buckno = i;
return pair;
}
}
return ASE_NULL;
}
static ase_size_t hashkey (const ase_char_t* keyptr, ase_size_t keylen)
{
ase_size_t n = 0, i;

20
ase/awk/map.h
View File

@ -1,5 +1,5 @@
/*
* $Id: map.h,v 1.7 2007/07/25 07:00:09 bacon Exp $
* $Id: map.h,v 1.8 2007/09/30 15:12:20 bacon Exp $
*
* {License}
*/
@ -23,6 +23,8 @@ struct ase_awk_pair_t
} key;
void* val;
/* used internally */
ase_awk_pair_t* next;
};
@ -85,6 +87,22 @@ int ase_awk_map_remove (
int ase_awk_map_walk (ase_awk_map_t* map,
int (*walker)(ase_awk_pair_t*,void*), void* arg);
/**
* Gets the pointer to the first pair in the map.
* @param map [in]
* @param buckno [out]
*/
ase_awk_pair_t* ase_awk_map_getfirstpair (
ase_awk_map_t* map, ase_size_t* buckno);
/**
* Gets the pointer to the next pair in the map.
* @param map [in]
* @param pair [in]
* @param buckno [in out]
*/
ase_awk_pair_t* ase_awk_map_getnextpair (
ase_awk_map_t* map, ase_awk_pair_t* pair, ase_size_t* buckno);
#ifdef __cplusplus
}
#endif