*** empty log message ***

ase/awk/func.c

@@ -1,5 +1,5 @@
 /*
- * $Id: func.c,v 1.13 2006-07-17 14:27:09 bacon Exp $
+ * $Id: func.c,v 1.14 2006-08-02 03:22:51 bacon Exp $
  */
 
 #include <xp/awk/awk_i.h>
@@ -124,37 +124,67 @@ static int __bfn_close (void* run)
 {
 	xp_size_t nargs;
 	xp_str_t buf;
-	xp_awk_val_t* v;
+	xp_awk_val_t* v, * a0;
 	int errnum, n;
 
+	xp_char_t* name;
+	xp_size_t len;
+       
 	nargs = xp_awk_getnargs (run);
 	xp_assert (nargs == 1);
 /* TODO: support close (xxx, "to"/"from") like gawk */
 
-	if (xp_str_open (&buf, 256) == XP_NULL)
+	a0 = xp_awk_getarg(run, 0);
+	xp_assert (a0 != XP_NULL);
+
+	if (a0->type == XP_AWK_VAL_STR)
 	{
-		xp_awk_seterrnum (run, XP_AWK_ENOMEM);
+		name = ((xp_awk_val_str_t*)a0)->buf;
-		return -1;
+		len = ((xp_awk_val_str_t*)a0)->len;
+	}
+	else
+	{
+		if (xp_str_open (&buf, 256) == XP_NULL)
+		{
+			xp_awk_seterrnum (run, XP_AWK_ENOMEM);
+			return -1;
+		}
+
+		if (xp_awk_valtostr (a0, &errnum, &buf, XP_NULL) == XP_NULL)
+		{
+			xp_str_close (&buf);
+			xp_awk_seterrnum (run, errnum);
+			return -1;
+		}
+
+		name = XP_STR_BUF(&buf);
+		len = XP_STR_LEN(&buf);
 	}
 
-	if (xp_awk_valtostr (
+	while (len > 0)
-		xp_awk_getarg(run, 0), &errnum, &buf, XP_NULL) == XP_NULL)
 	{
-		xp_str_close (&buf);
+		if (name[--len] == XP_T('\0'))
-		xp_awk_seterrnum (run, errnum);
+		{
-		return -1;
+			/* the name contains a null string. 
+			 * make close return -1 */
+			if (a0->type != XP_AWK_VAL_STR) xp_str_close (&buf);
+			n = -1;
+			/* TODO: need to set ERRNO??? */
+			goto skip_close;
+		}
 	}	
 
-	n = xp_awk_closeextio (run, XP_STR_BUF(&buf), &errnum);
+	n = xp_awk_closeextio (run, name, &errnum);
 	if (n == -1 && errnum != XP_AWK_ENOERR)
 	{
-		xp_str_close (&buf);
+		if (a0->type != XP_AWK_VAL_STR) xp_str_close (&buf);
 		xp_awk_seterrnum (run, errnum);
 		return -1;
 	}
 
-	xp_str_close (&buf);
+	if (a0->type != XP_AWK_VAL_STR) xp_str_close (&buf);
 
+skip_close:
 	v = xp_awk_makeintval (run, n);
 	if (v == XP_NULL)
 	{

ase/awk/run.c

@@ -1,5 +1,5 @@
 /*
- * $Id: run.c,v 1.151 2006-08-01 16:00:18 bacon Exp $
+ * $Id: run.c,v 1.152 2006-08-02 03:22:51 bacon Exp $
  */
 
 #include <xp/awk/awk_i.h>
@@ -1356,17 +1356,37 @@ static int __run_print (xp_awk_run_t* run, xp_awk_nde_print_t* nde)
 
 	if (p->out != XP_NULL)
 	{
+		xp_size_t len;
+
 		v = __eval_expression (run, p->out);
 		if (v == XP_NULL) return -1;
 
 		xp_awk_refupval (v);
-		out = xp_awk_valtostr (v, &errnum, XP_NULL, XP_NULL);
+		out = xp_awk_valtostr (v, &errnum, XP_NULL, &len);
 		if (out == XP_NULL) 
 		{
 			xp_awk_refdownval (run, v);
 			PANIC_I (run, errnum);
 		}
 		xp_awk_refdownval (run, v);
+
+		while (len > 0)
+		{
+			if (out[--len] == XP_T('\0'))
+			{
+				/* the output destination name contains a null 
+				 * character. make getline return -1 */
+				xp_free (out);
+				goto skip_write;
+				/* TODO: how to handle error???
+				 *       make print return -1??? not possible.
+				 *       throw an exception??
+				 *       set ERRNO or what??? this seems most
+				 *       reasonable. or can it have a global
+				 *       flag variable for print/printf such
+				 *       as PRINT_ERRNO?  */
+			}
+		}
 	}
 
 	dst = (out == XP_NULL)? XP_T(""): out;
@@ -1424,8 +1444,7 @@ static int __run_print (xp_awk_run_t* run, xp_awk_nde_print_t* nde)
 	}
 	xp_awk_refupval (v);
 
-	n = xp_awk_writeextio (
+	n = xp_awk_writeextio (run, p->out_type, dst, v, &errnum);
-		run, p->out_type, dst, v, &errnum);
 	if (n < 0 && errnum != XP_AWK_ENOERR)
 	{
 		if (out != XP_NULL) xp_free (out);
@@ -1437,6 +1456,8 @@ static int __run_print (xp_awk_run_t* run, xp_awk_nde_print_t* nde)
 	/* TODO: how to handle n == -1 && errnum == XP_AWK_ENOERR. that is the user handler returned an error... */
 
 	if (out != XP_NULL) xp_free (out);
+
+skip_write:
 	return 0;
 }
 
@@ -3864,17 +3885,36 @@ static xp_awk_val_t* __eval_getline (xp_awk_run_t* run, xp_awk_nde_t* nde)
 
 	if (p->in != XP_NULL)
 	{
+		xp_size_t len;
+
 		v = __eval_expression (run, p->in);
 		if (v == XP_NULL) return XP_NULL;
 
+		/* TODO: distinction between v->type == XP_AWK_VAL_STR 
+		 *       and v->type != XP_AWK_VAL_STR
+		 *       if you use the buffer the v directly when
+		 *       v->type == XP_AWK_VAL_STR, xp_awk_refdownval(v)
+		 *       should not be called immediately below */
 		xp_awk_refupval (v);
-		in = xp_awk_valtostr (v, &errnum, XP_NULL, XP_NULL);
+		in = xp_awk_valtostr (v, &errnum, XP_NULL, &len);
 		if (in == XP_NULL) 
 		{
 			xp_awk_refdownval (run, v);
 			PANIC (run, errnum);
 		}
 		xp_awk_refdownval (run, v);
+
+		while (len > 0)
+		{
+			if (in[--len] == XP_T('\0'))
+			{
+				/* the input source name contains a null 
+				 * character. make getline return -1 */
+				xp_free (in);
+				n = -1;
+				goto skip_read;
+			}
+		}
 	}
 
 	dst = (in == XP_NULL)? XP_T(""): in;
@@ -3942,6 +3982,7 @@ static xp_awk_val_t* __eval_getline (xp_awk_run_t* run, xp_awk_nde_t* nde)
 		xp_str_close (&buf);
 	}
 	
+skip_read:
 	res =  xp_awk_makeintval (run, n);
 	if (res == XP_NULL) PANIC (run, XP_AWK_ENOMEM);