/[pspp]/pspp/src/repeat.c
ViewVC logotype

Diff of /pspp/src/repeat.c

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

revision 1.13 by jmd, Wed Apr 13 10:09:59 2005 UTC revision 1.14 by jmd, Wed Apr 27 04:45:26 2005 UTC
# Line 40  Line 40 
40  struct repeat_entry  struct repeat_entry
41    {    {
42      int type;                   /* 1=variable names, 0=any other. */      int type;                   /* 1=variable names, 0=any other. */
43      char id[SHORT_NAME_LEN + 1];        /* Macro identifier. */      char id[LONG_NAME_LEN + 1]; /* Macro identifier. */
44      char **replacement;         /* Macro replacement. */      char **replacement;         /* Macro replacement. */
45      struct repeat_entry *next;      struct repeat_entry *next;
46    };    };
# Line 125  static int Line 125  static int
125  internal_cmd_do_repeat (void)  internal_cmd_do_repeat (void)
126  {  {
127    /* Name of first DO REPEAT macro. */    /* Name of first DO REPEAT macro. */
128    char first_name[SHORT_NAME_LEN + 1];    char first_name[LONG_NAME_LEN + 1];
129    
130    /* Current filename. */    /* Current filename. */
131    const char *current_filename = NULL;    const char *current_filename = NULL;
# Line 553  perform_DO_REPEAT_substitutions (void) Line 553  perform_DO_REPEAT_substitutions (void)
553    
554        /* Collect an identifier. */        /* Collect an identifier. */
555        {        {
556          char name[SHORT_NAME_LEN + 1];          char name[LONG_NAME_LEN + 1];
557          char *start = cp;          char *start = cp;
558          char *np = name;          char *np = name;
559          char *substitution;          char *substitution;
560    
561          while (CHAR_IS_IDN (*cp) && np < &name[SHORT_NAME_LEN])          while (CHAR_IS_IDN (*cp) && np < &name[LONG_NAME_LEN])
562            *np++ = *cp++;            *np++ = *cp++;
563          while (CHAR_IS_IDN (*cp))          while (CHAR_IS_IDN (*cp))
564            cp++;            cp++;

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

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