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

*** empty log message ***

Browse Source
This commit is contained in:
hyung-hwan 2006-09-28 13:48:25 +00:00
parent 5a8894fb13
commit 35f724b6c9
2 changed files with 37 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ase/awk/run.c
View File

@ -1,5 +1,5 @@
/*
* $Id: run.c,v 1.210 2006-09-28 06:56:30 bacon Exp $
* $Id: run.c,v 1.211 2006-09-28 13:47:58 bacon Exp $
*/
#include <xp/awk/awk_i.h>
@ -2804,8 +2804,7 @@ static int __cmp_nil_real (
static int __cmp_nil_str (
xp_awk_run_t* run, xp_awk_val_t* left, xp_awk_val_t* right)
{
/* TODO */
return 0;
return (((xp_awk_val_str_t*)right)->len == 0)? 0: -1;
}
static int __cmp_int_nil (
@ -2881,7 +2880,7 @@ static int __cmp_real_str (
static int __cmp_str_nil (
xp_awk_run_t* run, xp_awk_val_t* left, xp_awk_val_t* right)
{
return __cmp_nil_str (run, right, left);
return (((xp_awk_val_str_t*)left)->len == 0)? 0: 1;
}
static int __cmp_str_int (

40
ase/test/awk/comp.awk
View File

@ -1,16 +1,44 @@
BEGIN {
print 1 == 1;
print 1 == 0;
print "1==1 : " (1 == 1);
print "1==0 : " (1 == 0);
print 1.0 == 1;
print 1.1 == 1;
print "1.0==1 : " (1.0 == 1);
print "1.1==1 : " (1.1 == 1);
print 1.0 != 1;
print 1.1 != 1;
print "1.0!=1 : " (1.0 != 1);
print "1.1!=1 : " (1.1 != 1);
print "abc" == "abc";
print "abc" != "abc";
print "------------------------";
print "a == \"\" : " (a == "");
print "a >= \"\" : " (a >= "");
print "a <= \"\" : " (a <= "");
print "a > \"\" : " (a > "");
print "a < \"\" : " (a < "");
print "------------------------";
print "a == \" \" : " (a == " ");
print "a >= \" \" : " (a >= " ");
print "a <= \" \" : " (a <= " ");
print "a > \" \" : " (a > " ");
print "a < \" \" : " (a < " ");
print "------------------------";
print "\"\" == a : " ("" == a);
print "\"\" >= a: " ("" >= a);
print "\"\" <= a: " ("" <= a);
print "\"\" > a: " ("" > a);
print "\"\" < a: " ("" < a);
print "------------------------";
print "\" \" == a : " (" " == a);
print "\" \" >= a: " (" " >= a);
print "\" \" <= a: " (" " <= a);
print "\" \" > a: " (" " > a);
print "\" \" < a: " (" " < a);
a[10] = 2;
print a == 1;
}