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 |
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 |
|
|
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++) |
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 |
} |
} |
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. */ |
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. */ |