*** empty log message ***

ase/awk/parse.c

@@ -1,5 +1,5 @@
 /*
- * $Id: parse.c,v 1.155 2006-08-03 15:49:37 bacon Exp $
+ * $Id: parse.c,v 1.156 2006-08-04 06:39:05 bacon Exp $
  */
 
 #include <xp/awk/awk_i.h>
@@ -2267,7 +2267,7 @@ static xp_awk_nde_t* __parse_primary_ident (xp_awk_t* awk)
 		return XP_NULL;			
 	}
 
-	/* what if name_dup is a built-in function name */
+	/* check if name_dup is a built-in function name */
 	bfn = xp_awk_getbfn (awk, name_dup);
 	if (bfn != XP_NULL)
 	{

ase/test/awk/t2.awk

@@ -15,12 +15,10 @@ function sum (i)
 	return y;
 }
 
-BEGIN 
+END {
-{
 	/*x = sum (10000000);
 	*/
 	x = sum (100);
 	s = x;
 	ss = z;
 }
-

ase/test/awk/t3.awk

@@ -6,8 +6,7 @@ func func1 (x)
 	x["abc"] = 123;
 }
 
-BEGIN
+BEGIN {
-{
 	idx="abc";
 	x[idx] = 12345;
 	i = x[idx];

ase/test/awk/t5.awk

@@ -1,5 +1,4 @@
-BEGIN 
+BEGIN {
-{
 	x[1] = 20;
 	x[2] = 40;
 	x[3] = 50;

ase/test/awk/t6.awk

@@ -1,5 +1,4 @@
-BEGIN
+BEGIN {
-{
 	j = -20;
 
 	for (i = -10; i < 10; i++) 
@@ -16,8 +15,7 @@ BEGIN
 	}
 }
 
-END
+END {
-{
 	print "i = ", i;
 	print "j = ", j;
 }