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

Recovered from cvs revision 2007-06-19 03:59:00

Browse Source
This commit is contained in:
hyung-hwan 2007-06-19 13:14:00 +00:00
parent fdb13f1536
commit 2bf9b055e6
6 changed files with 45 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ase/ase.bdsgroup
View File

@ -17,10 +17,6 @@
<Projects Name="asetestawk++.exe">test\awk\asetestawk++.bdsproj</Projects>
<Projects Name="Targets">asecmn.lib aseawk.lib aseawk++.lib aseutl.lib asetestawk.exe asetestawk++.exe</Projects>
</Projects>
<Dependencies>
<Dependency GUID="{F0848980-053C-44B1-B7A0-4C834C1EB585}">
<Dependency GUID="{ECF01FD9-EC35-4278-B781-5106BC34F70E}"/>
</Dependency>
</Dependencies>
<Dependencies/>
</Default.Personality>
</BorlandProject>

4
ase/awk/awk.h
View File

@ -1,5 +1,5 @@
/*
* $Id: awk.h,v 1.6 2007/06/17 14:54:10 bacon Exp $
* $Id: awk.h,v 1.7 2007/06/18 14:05:18 bacon Exp $
*
* {License}
*/
@ -414,7 +414,7 @@ void ase_awk_setoption (ase_awk_t* awk, int opt);
ase_size_t ase_awk_getmaxdepth (ase_awk_t* awk, int type);
void ase_awk_setmaxdepth (ase_awk_t* awk, int types, ase_size_t depth);
int ase_awk_setkeyword (ase_awk_t* awk,
int ase_awk_setword (ase_awk_t* awk,
const ase_char_t* okw, ase_size_t olen,
const ase_char_t* nkw, ase_size_t nlen);

35
ase/awk/func.c
View File

@ -1,5 +1,5 @@
/*
* $Id: func.c,v 1.5 2007/05/28 13:54:47 bacon Exp $
* $Id: func.c,v 1.7 2007/06/18 14:26:30 bacon Exp $
*
* {License}
*/
@ -156,14 +156,28 @@ ase_awk_bfn_t* ase_awk_getbfn (
ase_awk_t* awk, const ase_char_t* name, ase_size_t len)
{
ase_awk_bfn_t* p;
ase_awk_pair_t* pair;
const ase_char_t* k;
ase_size_t l;
for (p = __sys_bfn; p->name.ptr != ASE_NULL; p++)
{
if (p->valid != 0 &&
(awk->option & p->valid) == 0) continue;
if (ase_strxncmp (
p->name.ptr, p->name.len, name, len) == 0) return p;
pair = ase_awk_map_get (awk->kwtab, p->name.ptr, p->name.len);
if (pair != ASE_NULL)
{
k = ((ase_cstr_t*)(pair->val))->ptr;
l = ((ase_cstr_t*)(pair->val))->len;
}
else
{
k = p->name.ptr;
l = p->name.len;
}
if (ase_strxncmp (k, l, name, len) == 0) return p;
}
for (p = awk->bfn.user; p != ASE_NULL; p = p->next)
@ -171,8 +185,19 @@ ase_awk_bfn_t* ase_awk_getbfn (
if (p->valid != 0 &&
(awk->option & p->valid) == 0) continue;
if (ase_strxncmp (
p->name.ptr, p->name.len, name, len) == 0) return p;
pair = ase_awk_map_get (awk->kwtab, p->name.ptr, p->name.len);
if (pair != ASE_NULL)
{
k = ((ase_cstr_t*)(pair->val))->ptr;
l = ((ase_cstr_t*)(pair->val))->len;
}
else
{
k = p->name.ptr;
l = p->name.len;
}
if (ase_strxncmp (k, l, name, len) == 0) return p;
}
return ASE_NULL;

5
ase/awk/parse.c
View File

@ -1,5 +1,5 @@
/*
* $Id: parse.c,v 1.7 2007/06/17 15:29:29 bacon Exp $
* $Id: parse.c,v 1.8 2007/06/18 14:05:18 bacon Exp $
*
* {License}
*/
@ -398,7 +398,7 @@ const ase_char_t* ase_awk_getglobalname (
}
int ase_awk_setkeyword (ase_awk_t* awk,
int ase_awk_setword (ase_awk_t* awk,
const ase_char_t* okw, ase_size_t olen,
const ase_char_t* nkw, ase_size_t nlen)
{
@ -4772,7 +4772,6 @@ static int classify_ident (
kwent_t* kwp;
ase_awk_pair_t* pair;
for (kwp = kwtab; kwp->name != ASE_NULL; kwp++)
{
const ase_char_t* k;

2
ase/change.log
View File

@ -1,6 +1,8 @@
[0.2.1]
* changed the wrong macro name WIN32 to _WIN32 in utl/stdio.h
* added ase_awk_setword to enable customization of keywords and
implicit function names.
[0.2.0]

2
ase/test/awk/asetestawk.bdsproj
View File

@ -215,7 +215,7 @@
<Debugging Name="DebugSourceDirs"></Debugging>
</Debugging>
<Parameters>
<Parameters Name="RunParams">arg.awk ""</Parameters>
<Parameters Name="RunParams">-f arg.awk ""</Parameters>
<Parameters Name="Launcher"></Parameters>
<Parameters Name="UseLauncher">True</Parameters>
<Parameters Name="DebugCWD">C:\projects\ase\test\awk</Parameters>