[Pspp-cvs] pspp/src/language/expressions ChangeLog parse.c

[Ben Pfaff]

CVSROOT:        /cvsroot/pspp
Module name:    pspp
Changes by:     Ben Pfaff <blp> 07/02/01 15:01:42

Modified files:
        src/language/expressions: ChangeLog parse.c 

Log message:
        Accept TO in any case for use with n-ary functions.  Fixes bug #18923.
        Thanks to John Darrington for reporting this bug.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/pspp/src/language/expressions/ChangeLog?cvsroot=pspp&r1=1.9&r2=1.10
http://cvs.savannah.gnu.org/viewcvs/pspp/src/language/expressions/parse.c?cvsroot=pspp&r1=1.23&r2=1.24

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/pspp/pspp/src/language/expressions/ChangeLog,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -b -r1.9 -r1.10
--- ChangeLog   16 Dec 2006 20:22:14 -0000      1.9
+++ ChangeLog   1 Feb 2007 15:01:42 -0000       1.10
@@ -1,3 +1,9 @@
+Thu Feb  1 06:59:27 2007  Ben Pfaff  <address@hidden>
+
+       * parse.c (parse_function): Accept TO in any case for use with
+       n-ary functions.  Fixes bug #18923.  Thanks to John Darrington for
+       reporting this bug.
+
 Sat Dec 16 12:20:14 2006  Ben Pfaff  <address@hidden>
 
        * operations.def: Reverse order of arguments to DATEDIFF, for

Index: parse.c
===================================================================
RCS file: /cvsroot/pspp/pspp/src/language/expressions/parse.c,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -b -r1.23 -r1.24
--- parse.c     16 Jan 2007 00:14:41 -0000      1.23
+++ parse.c     1 Feb 2007 15:01:42 -0000       1.24
@@ -1216,7 +1216,8 @@
   if (lex_token (lexer) != ')')
     for (;;)
       {
-        if (lex_token (lexer) == T_ID && lex_look_ahead (lexer) == 'T')
+        if (lex_token (lexer) == T_ID
+            && toupper (lex_look_ahead (lexer)) == 'T')
           {
             struct variable **vars;
             size_t var_cnt;