/[pspp]/pspp/src/pfm-read.c
ViewVC logotype

Diff of /pspp/src/pfm-read.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.21 by jmd, Fri Apr 29 01:02:15 2005 UTC revision 1.22 by blp, Mon May 2 06:21:20 2005 UTC
# Line 520  read_variables (struct pfm_reader *r, st Line 520  read_variables (struct pfm_reader *r, st
520        read_string (r, name);        read_string (r, name);
521        for (j = 0; j < 6; j++)        for (j = 0; j < 6; j++)
522          fmt[j] = read_int (r);          fmt[j] = read_int (r);
 #if 0  
          /* Weirdly enough, there is no # character in the SPSS portable  
          character set, so we can't check for it. */  
       if (strlen (name) > SHORT_NAME_LEN)  
         lose ((r, _("position %d: Variable name has %u characters."),  
                i, strlen (name)));  
       if ((name[0] < 74 /* A */ || name[0] > 125 /* Z */)  
           && name[0] != 152 /* @ */)  
         lose ((r, _("position %d: Variable name begins with invalid "  
                     "character."), i));  
       if (name[0] >= 100 /* a */ && name[0] <= 125 /* z */)  
         {  
           corrupt_msg (r, _("position %d: Variable name begins with "  
                             "lowercase letter %c."),  
                        i, name[0] - 100 + 'a');  
           name[0] -= 26 /* a - A */;  
         }  
523    
524        /* Verify remaining characters of variable name. */        if (!var_is_valid_name (name, false) || *name == '#' || *name == '$')
       for (j = 1; j < (int) strlen (name); j++)  
         {  
           int c = name[j];  
 #endif  
       if (!var_is_valid_name (name, false) || *name == '#')  
525          error (r, _("position %d: Invalid variable name `%s'."), name);          error (r, _("position %d: Invalid variable name `%s'."), name);
526        st_uppercase (name);        st_uppercase (name);
527    

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26