*** empty log message ***
This commit is contained in:
parent
d1183a418d
commit
ab969f2171
@ -1,5 +1,5 @@
|
||||
/*
|
||||
* $Id: run.c,v 1.252 2006-11-01 04:16:08 bacon Exp $
|
||||
* $Id: run.c,v 1.253 2006-11-02 11:36:41 bacon Exp $
|
||||
*/
|
||||
|
||||
#include <ase/awk/awk_i.h>
|
||||
@ -1562,14 +1562,6 @@ static int __run_statement (ase_awk_run_t* run, ase_awk_nde_t* nde)
|
||||
break;
|
||||
}
|
||||
|
||||
/*
|
||||
case ASE_AWK_NDE_PRINT:
|
||||
{
|
||||
TODO: PRINTF
|
||||
break;
|
||||
}
|
||||
*/
|
||||
|
||||
default:
|
||||
{
|
||||
ase_awk_val_t* v;
|
||||
@ -2316,7 +2308,7 @@ static int __run_printf (ase_awk_run_t* run, ase_awk_nde_print_t* nde)
|
||||
ase_awk_nde_print_t* p = (ase_awk_nde_print_t*)nde;
|
||||
ase_char_t* out = ASE_NULL;
|
||||
const ase_char_t* dst;
|
||||
ase_awk_val_t* v;
|
||||
ase_awk_val_t* v, * fmt;
|
||||
ase_awk_nde_t* head, * np;
|
||||
int n;
|
||||
|
||||
@ -2378,7 +2370,6 @@ static int __run_printf (ase_awk_run_t* run, ase_awk_nde_print_t* nde)
|
||||
"a valid printf statement should have at least one argument. "
|
||||
"the parser must ensure this.");
|
||||
|
||||
|
||||
if (p->args->type == ASE_AWK_NDE_GRP)
|
||||
{
|
||||
/* parenthesized print */
|
||||
@ -2387,29 +2378,22 @@ static int __run_printf (ase_awk_run_t* run, ase_awk_nde_print_t* nde)
|
||||
}
|
||||
else head = p->args;
|
||||
|
||||
for (np = head; np != ASE_NULL; np = np->next)
|
||||
{
|
||||
if (np != head)
|
||||
{
|
||||
n = ase_awk_writeextio_str (
|
||||
run, p->out_type, dst,
|
||||
run->global.ofs.ptr,
|
||||
run->global.ofs.len);
|
||||
if (n < 0 && run->errnum != ASE_AWK_EIOHANDLER)
|
||||
{
|
||||
if (out != ASE_NULL) ASE_AWK_FREE (run->awk, out);
|
||||
return -1;
|
||||
}
|
||||
}
|
||||
ASE_AWK_ASSERTX (run->awk, head != ASE_NULL,
|
||||
"a valid printf statement should have at least one argument. "
|
||||
"the parser must ensure this.");
|
||||
|
||||
v = __eval_expression (run, np);
|
||||
v = __eval_expression (run, head);
|
||||
if (v == ASE_NULL)
|
||||
{
|
||||
if (out != ASE_NULL) ASE_AWK_FREE (run->awk, out);
|
||||
return -1;
|
||||
}
|
||||
ase_awk_refupval (v);
|
||||
|
||||
ase_awk_refupval (v);
|
||||
if (v->type != ASE_AWK_VAL_STR)
|
||||
{
|
||||
/* the remaining arguments are ignored as the format cannot
|
||||
* contain any % characters */
|
||||
n = ase_awk_writeextio_val (run, p->out_type, dst, v);
|
||||
if (n < 0 && run->errnum != ASE_AWK_EIOHANDLER)
|
||||
{
|
||||
@ -2417,13 +2401,29 @@ static int __run_printf (ase_awk_run_t* run, ase_awk_nde_print_t* nde)
|
||||
ase_awk_refdownval (run, v);
|
||||
return -1;
|
||||
}
|
||||
|
||||
ase_awk_refdownval (run, v);
|
||||
|
||||
|
||||
/* TODO: how to handle n == -1 && run->errnum == ASE_AWK_EIOHANDLER.
|
||||
* that is the user handler returned an error... */
|
||||
}
|
||||
else
|
||||
{
|
||||
/* check the formatting characters */
|
||||
ase_char_t* fmt = ((ase_awk_val_str_t*)v)->buf;
|
||||
ase_size_t fmt_len = ((ase_awk_val_str_t*)v)->len;
|
||||
ase_size_t i;
|
||||
|
||||
for (i = 0; i < fmt_len; i++)
|
||||
{
|
||||
if (fmt[i] == ASE_T('%'))
|
||||
{
|
||||
/* TODO: */
|
||||
}
|
||||
else
|
||||
{
|
||||
/* TODO: do buffering and call these... */
|
||||
ase_awk_writeextio_str (
|
||||
run, p->out_type, dst, &fmt[i], 1);
|
||||
}
|
||||
}
|
||||
}
|
||||
ase_awk_refdownval (run, v);
|
||||
|
||||
if (out != ASE_NULL) ASE_AWK_FREE (run->awk, out);
|
||||
|
||||
@ -4772,7 +4772,11 @@ static int __get_reference (
|
||||
pair = ase_awk_map_put (
|
||||
&run->named, tgt->id.name,
|
||||
tgt->id.name_len, ase_awk_val_nil);
|
||||
if (pair == ASE_NULL) PANIC_I (run, ASE_AWK_ENOMEM);
|
||||
if (pair == ASE_NULL)
|
||||
{
|
||||
run->errnum = ASE_AWK_ENOMEM;
|
||||
return -1;
|
||||
}
|
||||
}
|
||||
|
||||
*ref = (ase_awk_val_t**)&pair->val;
|
||||
@ -4808,7 +4812,11 @@ static int __get_reference (
|
||||
pair = ase_awk_map_put (
|
||||
&run->named, tgt->id.name,
|
||||
tgt->id.name_len, ase_awk_val_nil);
|
||||
if (pair == ASE_NULL) PANIC_I (run, ASE_AWK_ENOMEM);
|
||||
if (pair == ASE_NULL)
|
||||
{
|
||||
run->errnum = ASE_AWK_ENOMEM;
|
||||
return -1;
|
||||
}
|
||||
}
|
||||
|
||||
tmp = __get_reference_indexed (
|
||||
@ -4857,15 +4865,24 @@ static int __get_reference (
|
||||
n = ase_awk_valtonum (run, v, &lv, &rv);
|
||||
ase_awk_refdownval (run, v);
|
||||
|
||||
if (n == -1) PANIC_I (run, ASE_AWK_EPOSIDX);
|
||||
if (n == -1)
|
||||
{
|
||||
run->errnum = ASE_AWK_EPOSIDX;
|
||||
return -1;
|
||||
}
|
||||
if (n == 1) lv = (ase_long_t)rv;
|
||||
if (!IS_VALID_POSIDX(lv)) PANIC_I (run, ASE_AWK_EPOSIDX);
|
||||
if (!IS_VALID_POSIDX(lv))
|
||||
{
|
||||
run->errnum = ASE_AWK_EPOSIDX;
|
||||
return -1;
|
||||
}
|
||||
|
||||
*ref = (ase_awk_val_t**)((ase_size_t)lv);
|
||||
return 0;
|
||||
}
|
||||
|
||||
PANIC_I (run, ASE_AWK_ENOTREFERENCEABLE);
|
||||
run->errnum = ASE_AWK_ENOTREFERENCEABLE;
|
||||
return -1;
|
||||
}
|
||||
|
||||
static ase_awk_val_t** __get_reference_indexed (
|
||||
|
@ -13,11 +13,13 @@ BEGIN {
|
||||
print "ARGV[" i "]", ARGV[i];
|
||||
}
|
||||
|
||||
|
||||
#for (i = 0
|
||||
# i < 20
|
||||
# i;;) print i;
|
||||
# i;;) print "[" i "]";
|
||||
#for (i = 0
|
||||
# (i < 20)
|
||||
# i;;) print "[" i "]";
|
||||
|
||||
|
||||
if (ARGC >= 0) printf "ARGC is positive";
|
||||
#printf 10, 20, 30;
|
||||
if (ARGC >= 0) printf "ARGC is positive\n";
|
||||
}
|
||||
|
@ -1,5 +1,5 @@
|
||||
/*
|
||||
* $Id: awk.c,v 1.109 2006-10-31 14:32:50 bacon Exp $
|
||||
* $Id: awk.c,v 1.110 2006-11-02 11:36:41 bacon Exp $
|
||||
*/
|
||||
|
||||
#include <ase/awk/awk.h>
|
||||
@ -161,13 +161,15 @@ static FILE* popen_t (const ase_char_t* cmd, const ase_char_t* mode)
|
||||
#ifdef WIN32
|
||||
#define fgets_t _fgetts
|
||||
#define fputs_t _fputts
|
||||
#define fputc_t _fputtc
|
||||
#else
|
||||
#ifdef ASE_CHAR_IS_MCHAR
|
||||
#define fgets_t fgets
|
||||
#define fputs_t fputs
|
||||
#define fputc_t fputc
|
||||
#else
|
||||
#define fgets_t fgetws
|
||||
#define fputs_t fputws
|
||||
#define fputc_t fputwc
|
||||
#endif
|
||||
#endif
|
||||
|
||||
@ -271,8 +273,12 @@ xp_printf (ASE_T("closing %s of type (pipe) %d\n"), epa->name, epa->type);
|
||||
|
||||
case ASE_AWK_IO_WRITE:
|
||||
{
|
||||
/* TODO: size... */
|
||||
fputs_t (data, (FILE*)epa->handle);
|
||||
ase_size_t i;
|
||||
/* TODO: how to return error or 0 */
|
||||
for (i = 0; i < size; i++)
|
||||
{
|
||||
fputc_t (data[i], (FILE*)epa->handle);
|
||||
}
|
||||
return size;
|
||||
}
|
||||
|
||||
@ -336,8 +342,12 @@ xp_printf (ASE_T("closing %s of type %d (file)\n"), epa->name, epa->type);
|
||||
|
||||
case ASE_AWK_IO_WRITE:
|
||||
{
|
||||
ase_size_t i;
|
||||
/* TODO: how to return error or 0 */
|
||||
fputs_t (data, /*size,*/ (FILE*)epa->handle);
|
||||
for (i = 0; i < size; i++)
|
||||
{
|
||||
fputc_t (data[i], (FILE*)epa->handle);
|
||||
}
|
||||
return size;
|
||||
}
|
||||
|
||||
@ -437,8 +447,13 @@ xp_printf (ASE_T("open the next console [%s]\n"), infiles[infile_no]);
|
||||
}
|
||||
else if (cmd == ASE_AWK_IO_WRITE)
|
||||
{
|
||||
ase_size_t i;
|
||||
/* TODO: how to return error or 0 */
|
||||
fputs_t (data, /*size,*/ (FILE*)epa->handle);
|
||||
for (i = 0; i < size; i++)
|
||||
{
|
||||
fputc_t (data[i], (FILE*)epa->handle);
|
||||
}
|
||||
|
||||
/*MessageBox (NULL, data, data, MB_OK);*/
|
||||
return size;
|
||||
}
|
||||
|
Loading…
x
Reference in New Issue
Block a user