sanders@sanders.uucp (Tony Sanders) (12/01/89)
This will mostly be interesting to you if you have ex 3.7 source and like to hack C code. The other day I generated a /usr/lib/tags file for all of libc, include files and /usr/sys. I found (of course) many duplicate entries. So I set out to "solve" this problem. What I did was remove the compile time switch "FASTTAG" and changed it to a runtime option (:se). When you set fasttags (the default) Everything works like normal. When you turn off fasttags a ":ta foobar" will work like normal and doing a ":ta" (no param) will look up the next tag in the tags file. This allows you to sequence through tags with the same name. Good luck! -- sanders DONT forget to fix ex_vars.h (makeoptions is supposed to do it) -------------- diffs to ex_cmdsub.c, ex_data.c and ex_tagsio.c --------- ex_data.c 54a55 > "fasttags", "ft", ONOFF, 1, 1, 0, ex_tagio.c 10c10 < #ifdef FASTTAG --- > /* #ifdef FASTTAG -- fasttag is now a runtime switch, :se fasttag */ 105c105 < #endif --- > /* #endif FASTTAG */ ex_cmdsub.c 481c481,484 < #ifdef FASTTAG --- > /* tws -- if cmd is :ta then inc number of times we must match */ > static tagcount = 0; > int counter = 0; /* how many times have we matched (for :ta) */ > /* #ifdef FASTTAG -- fasttag is now a runtime option :se fasttag */ 486d488 < #endif 491a494 > tagcount = 1; 501,502c504,508 < } else if (lasttag[0] == 0) < error("No previous tag"); --- > } else { > tagcount++; > if (lasttag[0] == 0) > error("No previous tag"); > } 523,546c529,548 < #ifdef FASTTAG < iof = topen(fn, iofbuf); < if (iof == -1) < continue; < tfcount++; < fstat(iof, &sbuf); < top = sbuf.st_size; < if (top == 0L ) < top = -1L; < bot = 0L; < while (top >= bot) { < #else < /* < * Avoid stdio and scan tag file linearly. < */ < io = open(fn, 0); < if (io<0) < continue; < tfcount++; < if (fstat(io, &sbuf) < 0) < bsize = LBSIZE; < else { < bsize = sbuf.st_blksize; < if (bsize <= 0) --- > > if (value(FASTTAGS)) { > iof = topen(fn, iofbuf); > if (iof == -1) > continue; > tfcount++; > fstat(iof, &sbuf); > top = sbuf.st_size; > if (top == 0L ) > top = -1L; > bot = 0L; > } else { > /* > * Avoid stdio and scan tag file linearly. > */ > io = open(fn, 0); > if (io<0) > continue; > tfcount++; > if (fstat(io, &sbuf) < 0) 547a550,554 > else { > bsize = sbuf.st_blksize; > if (bsize <= 0) > bsize = LBSIZE; > } 549,550c556,557 < while (getfile() == 0) { < #endif --- > > while ( value(FASTTAGS) ? (top >= bot) : (getfile() == 0) ) { 556,559c563,567 < #ifdef FASTTAG < mid = (top + bot) / 2; < tseek(iof, mid); < if (mid > 0) /* to get first tag in file to work */ --- > if (value(FASTTAGS)) { > mid = (top + bot) / 2; > tseek(iof, mid); > /* to get first tag in file to work */ > if (mid > 0) 562,564c570,572 < goto goleft; < /* get the line itself */ < if(tgets(linebuf, sizeof linebuf, iof)==NULL) --- > goto goleft; > /* get the line itself */ > if(tgets(linebuf, sizeof linebuf, iof)==NULL) 567c575,576 < printf("tag: %o %o %o %s\n", bot, mid, top, linebuf); --- > printf("tag: %o %o %o %s\n", bot, mid, top, > linebuf); 569c578,579 < #endif --- > } > 574c584,585 < #ifdef FASTTAG --- > > if (value(FASTTAGS)) { 580c591 < #endif --- > } 584a596,597 > if (!value(FASTTAGS) && (++counter < tagcount)) > continue; 588,592c601,604 < #ifdef FASTTAG < tclose(iof); < #else < close(io); < #endif --- > if (value(FASTTAGS)) > tclose(iof); > else > close(io); 670,674c682,685 < #ifdef FASTTAG < tclose(iof); < #else < close(io); < #endif --- > if (value(FASTTAGS)) > tclose(iof); > else > close(io); ---------------- cut here ------------------ -- sanders Reply-To: cs.utexas.edu!ibmaus!auschs!sanders.austin.ibm.com!sanders Thought should exist outside any governmental framework.