BSD 4_3_Reno release

[unix-history] / usr / src / pgrm / ctags / print.c

/*
* Copyright (c) 1987 The Regents of the University of California.
* All rights reserved.
*
* Redistribution and use in source and binary forms are permitted
* provided that: (1) source distributions retain this entire copyright
* notice and comment, and (2) distributions including binaries display
* the following acknowledgement:  ``This product includes software
* developed by the University of California, Berkeley and its contributors''
* in the documentation or other materials provided with the distribution
* and in all advertising materials mentioning features or use of this
* software. Neither the name of the University nor the names of its
* contributors may be used to endorse or promote products derived
* from this software without specific prior written permission.
* THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
* IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
*/

#ifndef lint
static char sccsid[] = "@(#)print.c     5.3 (Berkeley) 6/1/90";
#endif /* not lint */

#include <sys/types.h>
#include <sys/file.h>
#include <ctags.h>

extern char     searchar;               /* ex search character */

/*
* getline --
*      get the line the token of interest occurred on,
*      prepare it for printing.
*/
getline()
{
       register long   saveftell;
       register int    c,
                       cnt;
       register char   *cp;

       saveftell = ftell(inf);
       (void)fseek(inf,lineftell,L_SET);
       if (xflag)
               for (cp = lbuf;GETC(!=,'\n');*cp++ = c);
       /*
        * do all processing here, so we don't step through the
        * line more than once; means you don't call this routine
        * unless you're sure you've got a keeper.
        */
       else for (cnt = 0,cp = lbuf;GETC(!=,EOF) && cnt < ENDLINE;++cnt) {
               if (c == (int)'\\') {           /* backslashes */
                       if (cnt > ENDLINE - 2)
                               break;
                       *cp++ = '\\'; *cp++ = '\\';
                       ++cnt;
               }
               else if (c == (int)searchar) {  /* search character */
                       if (cnt > ENDLINE - 2)
                               break;
                       *cp++ = '\\'; *cp++ = c;
                       ++cnt;
               }
               else if (c == (int)'\n') {      /* end of keep */
                       *cp++ = '$';            /* can find whole line */
                       break;
               }
               else
                       *cp++ = c;
       }
       *cp = EOS;
       (void)fseek(inf,saveftell,L_SET);
}

/*
* put_entries --
*      write out the tags
*/
put_entries(node)
       register NODE   *node;
{
       extern FILE     *outf;          /* ioptr for tags file */
       extern int      vflag;          /* -v: vgrind style output */

       if (node->left)
               put_entries(node->left);
       if (vflag)
               printf("%s %s %d\n",
                   node->entry,node->file,(node->lno + 63) / 64);
       else if (xflag)
               printf("%-16s%4d %-16s %s\n",
                   node->entry,node->lno,node->file,node->pat);
       else
               fprintf(outf,"%s\t%s\t%c^%s%c\n",
                   node->entry,node->file,searchar,node->pat,searchar);
       if (node->right)
               put_entries(node->right);
}

char *
savestr(str)
       char    *str;
{
       register u_int  len;
       register char   *space;
       char    *malloc();

       len = strlen(str) + 1;
       if (!(space = malloc((u_int)len))) {
               /*
                * should probably free up the tree, here,
                * we're just as likely to fail here as we
                * are when getting the NODE structure
                */
               fputs("ctags: no more space.\n",stderr);
               exit(1);
       }
       bcopy(str,space,len);
       return(space);
}