contrib/less/tags.c

62 	struct tag *tl_first;
63 	struct tag *tl_last;
65 #define TAG_END  ((struct tag *) &taglist)
67 struct tag {
68 	struct tag *next, *prev; /* List links */
69 	char *tag_file;		/* Source file containing the tag */
71 	char *tag_pattern;	/* Pattern used to find the tag */
74 static struct tag *curtag;
87  * Delete tag structures.
92 	register struct tag *tp;
95 	 * Delete any existing tag list.
97 	 *    can load some other tag information. }}
109  * Create a new tag entry.
111 	static struct tag *
119 	register struct tag *tp;
121 	tp = (struct tag *) ecalloc(sizeof(struct tag), 1);
137  * Get tag mode.
164  * Find tags in tag file.
165  * Find a tag in the "tags" file.
166  * Sets "tag_file" to the name of the file containing the tag,
168  * to find the tag.
171 findtag(tag)
172 	register char *tag;
178 		result = findctag(tag);
180 		result = findgtag(tag, type);
190 		error("No such tag in tags file", NULL_PARG);
193 		error("unknown tag type", NULL_PARG);
199  * Search for a tag.
213  * Go to the next tag.
227  * Go to the previous tag.
250  * Return the sequence number of current tag.
264  * Sets curtag to the first tag entry.
267 findctag(tag)
268 	register char *tag;
280 	struct tag *tp;
290 	taglen = strlen(tag);
293 	 * Search the tags file for the desired tag.
300 		if (strncmp(tag, tline, taglen) != 0 || !WHITESP(tline[taglen]))
305 		 * The line contains the tag, the filename and the
314 		 * Skip over the whitespace after the tag name.
363 		tp = maketagent(tag, tagfile, taglinenum, tagpattern, tagendline);
387  * Search for a tag.
393  *	parentheses (which are almost always found in a tag).
465  * Find tags in the GLOBAL's tag file.
466  * The findgtag() will try and load information about the requested tag.
467  * It does this by calling "global -x tag" and storing the parsed output
469  * Sets curtag to the first tag entry.
472 findgtag(tag, type)
473 	char *tag;		/* tag to load */
478 	struct tag *tp;
480 	if (type != T_CTAGS_X && tag == NULL)
493 		/* Set tag default because we cannot read stdin again. */
527 		qtag = shell_quote(tag);
529 			qtag = tag;
533 		if (qtag != tag)
599 static int circular = 0;	/* 1: circular tag structure */
604  * appropriate tag.
609 	struct tag *tp;
612 		/* No tag loaded */
634  * at the appropriate tag.
639 	struct tag *tp;
642 		/* No tag loaded */
662  * Position the current file at at what is hopefully the tag that was chosen
664  * if it was unable to position at the tag, 0 if successful.
678  * <tag>   <lineno>  <file>         <image>
689  * <tag>   <type>  <lineno>   <file>        <image>
699  * The tag, file, and line will each be NUL-terminated pointers
703 getentry(buf, tag, file, line)
705 	char **tag;	/* name of the tag we actually found */
706 	char **file;	/* file in which to find this tag */
707 	char **line;	/* line number of file where this tag is found */
711 	for (*tag = p;  *p && !IS_SPACE(*p);  p++)	/* tag name */
722 	 * it is assumed tag type. Skip it.
726 		for ( ;  *p && !IS_SPACE(*p);  p++)	/* (skip tag type) */
751 	if (strlen(*tag) && strlen(*line) && strlen(*file) && atoi(*line) > 0)