int utag(BW *bw)
{
BW *pbw;
pbw = wmkpw(bw->parent, joe_gettext(_("Tag search: ")), &taghist, dotag, NULL, NULL, tag_cmplt, NULL, NULL, locale_map, 0);
if (pbw && joe_isalnum_(bw->b->o.charmap,brch(bw->cursor))) {
P *p = pdup(bw->cursor, "utag");
P *q = pdup(p, "utag");
int c;
while (joe_isalnum_(bw->b->o.charmap,(c = prgetc(p))))
/* do nothing */;
if (c != NO_MORE_DATA) {
pgetc(p);
}
pset(q, p);
while (joe_isalnum_(bw->b->o.charmap,(c = pgetc(q))))
/* do nothing */;
if (c != NO_MORE_DATA) {
prgetc(q);
}
binsb(pbw->cursor, bcpy(p, q));
pset(pbw->cursor, pbw->b->eof);
pbw->cursor->xcol = piscol(pbw->cursor);
prm(p);
prm(q);
}
if (pbw) {
return 0;
} else {
return -1;
}
}
static void parseone(struct charmap *map,unsigned char *s,unsigned char **rtn_name,long *rtn_line)
{
int x, y, flg;
unsigned char *name = NULL;
long line = -1;
y=0;
flg=0;
do {
/* Skip to first word */
for (x = y; s[x] && !(joe_isalnum_(map,s[x]) || s[x] == '.' || s[x] == '/'); ++x) ;
/* Skip to end of first word */
for (y = x; joe_isalnum_(map,s[y]) || s[y] == '.' || s[y] == '/' || s[y]=='-'; ++y)
if (s[y] == '.')
flg = 1;
} while (!flg && x!=y);
/* Save file name */
if (x != y)
name = vsncpy(NULL, 0, s + x, y - x);
/* Skip to first number */
for (x = y; s[x] && (s[x] < '0' || s[x] > '9'); ++x) ;
/* Skip to end of first number */
for (y = x; s[y] >= '0' && s[y] <= '9'; ++y) ;
/* Save line number */
if (x != y)
sscanf((char *)(s + x), "%ld", &line);
if (line != -1)
--line;
/* Look for ':' */
flg = 0;
while (s[y]) {
/* Allow : anywhere on line: works for MIPS C compiler */
/*
for (y = 0; s[y];)
*/
if (s[y]==':') {
flg = 1;
break;
}
++y;
}
if (!flg)
line = -1;
*rtn_name = name;
*rtn_line = line;
}
int parse_ident(unsigned char **pp, unsigned char *buf, int len)
{
unsigned char *p = *pp;
if (joe_isalpha_(locale_map,*p)) {
while(len > 1 && joe_isalnum_(locale_map,*p))
*buf++= *p++, --len;
*buf=0;
while(joe_isalnum_(locale_map,*p))
++p;
*pp = p;
return 0;
} else
return -1;
}
int parse_kw(unsigned char **pp, unsigned char *kw)
{
unsigned char *p = *pp;
while(*kw && *kw==*p)
++kw, ++p;
if(!*kw && !joe_isalnum_(locale_map,*p)) {
*pp = p;
return 0;
} else
return -1;
}
