/[emacs]/emacs/lib-src/etags.c
ViewVC logotype

Diff of /emacs/lib-src/etags.c

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

revision 3.30 by pot, Fri Aug 30 16:38:58 2002 UTC revision 3.31 by pot, Tue Sep 3 15:21:07 2002 UTC
# Line 35  Line 35 
35   *   *
36   */   */
37    
38  char pot_etags_version[] = "@(#) pot revision number is 16.54";  char pot_etags_version[] = "@(#) pot revision number is $Revision$";
39    
40  #define TRUE    1  #define TRUE    1
41  #define FALSE   0  #define FALSE   0
# Line 1871  pfnote (name, is_func, linestart, linele Line 1871  pfnote (name, is_func, linestart, linele
1871  {  {
1872    register node *np;    register node *np;
1873    
1874      assert (name == NULL || name[0] != '\0');
1875    if (CTAGS && name == NULL)    if (CTAGS && name == NULL)
1876      return;      return;
1877    
# Line 5727  substitute (in, out, regs) Line 5728  substitute (in, out, regs)
5728        size -= 1;        size -= 1;
5729    
5730    /* Allocate space and do the substitutions. */    /* Allocate space and do the substitutions. */
5731      assert (size >= 0);
5732    result = xnew (size + 1, char);    result = xnew (size + 1, char);
5733    
5734    for (t = result; *out != '\0'; out++)    for (t = result; *out != '\0'; out++)
# Line 5741  substitute (in, out, regs) Line 5743  substitute (in, out, regs)
5743        *t++ = *out;        *t++ = *out;
5744    *t = '\0';    *t = '\0';
5745    
5746    assert (t <= result + size && t - result == (int)strlen (result));    assert (t <= result + size);
5747      assert (t - result == (int)strlen (result));
5748    
5749    return result;    return result;
5750  }  }
# Line 5828  regex_tag_multiline () Line 5831  regex_tag_multiline ()
5831                  if (buffer[charno++] == '\n')                  if (buffer[charno++] == '\n')
5832                    lineno++, linecharno = charno;                    lineno++, linecharno = charno;
5833                name = rp->name;                name = rp->name;
5834                if (name[0] != '\0')                if (name[0] == '\0')
5835                  /* Make a named tag. */                  name = NULL;
5836                  else /* make a named tag */
5837                  name = substitute (buffer, rp->name, &rp->regs);                  name = substitute (buffer, rp->name, &rp->regs);
5838                if (rp->force_explicit_name)                if (rp->force_explicit_name)
5839                  /* Force explicit tag name, if a name is there. */                  /* Force explicit tag name, if a name is there. */
# Line 6151  readline (lbp, stream) Line 6155  readline (lbp, stream)
6155              default:              default:
6156                /* Match occurred.  Construct a tag. */                /* Match occurred.  Construct a tag. */
6157                name = rp->name;                name = rp->name;
6158                if (name[0] != '\0')                if (name[0] == '\0')
6159                  /* Make a named tag. */                  name = NULL;
6160                  else /* make a named tag */
6161                  name = substitute (lbp->buffer, rp->name, &rp->regs);                  name = substitute (lbp->buffer, rp->name, &rp->regs);
6162                if (rp->force_explicit_name)                if (rp->force_explicit_name)
6163                  /* Force explicit tag name, if a name is there. */                  /* Force explicit tag name, if a name is there. */

Legend:
Removed from v.3.30  
changed lines
  Added in v.3.31

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