/ Check-in [11e32963]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment::-) (CVS 42)
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 11e3296319843356cf09832577f7dea4b33c78be
User & Date: drh 2000-06-02 18:52:13
Context
2000-06-02
23:04
:-) (CVS 43) check-in: 60f45a3b user: drh tags: trunk
18:52
:-) (CVS 42) check-in: 11e32963 user: drh tags: trunk
15:51
:-) (CVS 41) check-in: 90cfd617 user: drh tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to tool/lemon.c.

  2990   2990     if( mhflag ){
  2991   2991       fprintf(out,"#if INTERFACE\n"); lineno++;
  2992   2992     }
  2993   2993     name = lemp->name ? lemp->name : "Parse";
  2994   2994     if( lemp->arg && lemp->arg[0] ){
  2995   2995       int i;
  2996   2996       i = strlen(lemp->arg);
  2997         -    while( i>=1 && isalnum(lemp->arg[i-1]) ) i--;
         2997  +    while( i>=1 && isspace(lemp->arg[i-1]) ) i--;
         2998  +    while( i>=1 && (isalnum(lemp->arg[i-1]) || lemp->arg[i-1]=='_') ) i--;
  2998   2999       fprintf(out,"#define %sARGDECL ,%s\n",name,&lemp->arg[i]);  lineno++;
  2999   3000       fprintf(out,"#define %sXARGDECL %s;\n",name,lemp->arg);  lineno++;
  3000   3001       fprintf(out,"#define %sANSIARGDECL ,%s\n",name,lemp->arg);  lineno++;
  3001   3002     }else{
  3002   3003       fprintf(out,"#define %sARGDECL\n",name);  lineno++;
  3003   3004       fprintf(out,"#define %sXARGDECL\n",name);  lineno++;
  3004   3005       fprintf(out,"#define %sANSIARGDECL\n",name);  lineno++;