BSD 4_4_Lite1 release

[unix-history] / usr / src / usr.bin / ctags / fortran.c

diff --git a/usr/src/usr.bin/ctags/fortran.c b/usr/src/usr.bin/ctags/fortran.c
index 586d919..d0db9ed 100644 (file)
--- a/usr/src/usr.bin/ctags/fortran.c
+++ b/usr/src/usr.bin/ctags/fortran.c
@@ -1,38 +1,68 @@
 /*
 /*

- * Copyright (c) 1987, 1993
+ * Copyright (c) 1987, 1993, 1994

  *     The Regents of the University of California.  All rights reserved.
  *
  *     The Regents of the University of California.  All rights reserved.
  *

- * %sccs.include.redist.c%
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *     This product includes software developed by the University of
+ *     California, Berkeley and its contributors.
+ * 4. 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 BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.

  */
 
 #ifndef lint
  */
 
 #ifndef lint

-static char sccsid[] = "@(#)fortran.c  8.1 (Berkeley) %G%";
+static char sccsid[] = "@(#)fortran.c  8.3 (Berkeley) 4/2/94";

 #endif /* not lint */
 
 #endif /* not lint */
 

+#include <ctype.h>
+#include <limits.h>

 #include <stdio.h>
 #include <string.h>
 #include <stdio.h>
 #include <string.h>

+

 #include "ctags.h"
 
 #include "ctags.h"
 

-static void takeprec();
+static void takeprec __P((void));

 
 char *lbp;                             /* line buffer pointer */
 
 
 char *lbp;                             /* line buffer pointer */
 

+int

 PF_funcs()
 {
 PF_funcs()
 {

-       register bool   pfcnt;          /* pascal/fortran functions found */
-       register char   *cp;
-       char    tok[MAXTOKEN],
-               *gettoken();
+       bool    pfcnt;                  /* pascal/fortran functions found */
+       char    *cp;
+       char    tok[MAXTOKEN];

 
        for (pfcnt = NO;;) {
                lineftell = ftell(inf);
 
        for (pfcnt = NO;;) {
                lineftell = ftell(inf);

-               if (!fgets(lbuf,sizeof(lbuf),inf))
-                       return(pfcnt);
+               if (!fgets(lbuf, sizeof(lbuf), inf))
+                       return (pfcnt);

                ++lineno;
                lbp = lbuf;
                if (*lbp == '%')        /* Ratfor escape to fortran */
                        ++lbp;
                ++lineno;
                lbp = lbuf;
                if (*lbp == '%')        /* Ratfor escape to fortran */
                        ++lbp;

-               for (;isspace(*lbp);++lbp);
+               for (; isspace(*lbp); ++lbp)
+                       continue;

                if (!*lbp)
                        continue;
                switch (*lbp | ' ') {   /* convert to lower-case */
                if (!*lbp)
                        continue;
                switch (*lbp | ' ') {   /* convert to lower-case */


@@ -42,7 +72,8 @@ PF_funcs()
                        break;
                case 'd':
                        if (cicmp("double")) {
                        break;
                case 'd':
                        if (cicmp("double")) {

-                               for (;isspace(*lbp);++lbp);
+                               for (; isspace(*lbp); ++lbp)
+                                       continue;

                                if (!*lbp)
                                        continue;
                                if (cicmp("precision"))
                                if (!*lbp)
                                        continue;
                                if (cicmp("precision"))


@@ -63,7 +94,8 @@ PF_funcs()
                                takeprec();
                        break;
                }
                                takeprec();
                        break;
                }

-               for (;isspace(*lbp);++lbp);
+               for (; isspace(*lbp); ++lbp)
+                       continue;

                if (!*lbp)
                        continue;
                switch (*lbp | ' ') {
                if (!*lbp)
                        continue;
                switch (*lbp | ' ') {


@@ -81,16 +113,18 @@ PF_funcs()
                default:
                        continue;
                }
                default:
                        continue;
                }

-               for (;isspace(*lbp);++lbp);
+               for (; isspace(*lbp); ++lbp)
+                       continue;

                if (!*lbp)
                        continue;
                if (!*lbp)
                        continue;

-               for (cp = lbp + 1;*cp && intoken(*cp);++cp);
+               for (cp = lbp + 1; *cp && intoken(*cp); ++cp)
+                       continue;

                if (cp = lbp + 1)
                        continue;
                *cp = EOS;
                if (cp = lbp + 1)
                        continue;
                *cp = EOS;

-               (void)strcpy(tok,lbp);
+               (void)strcpy(tok, lbp);

                getline();                      /* process line for ex(1) */
                getline();                      /* process line for ex(1) */

-               pfnote(tok,lineno);
+               pfnote(tok, lineno);

                pfcnt = YES;
        }
        /*NOTREACHED*/
                pfcnt = YES;
        }
        /*NOTREACHED*/


@@ -100,30 +134,35 @@ PF_funcs()
  * cicmp --
  *     do case-independent strcmp
  */
  * cicmp --
  *     do case-independent strcmp
  */

+int

 cicmp(cp)
 cicmp(cp)

-       register char   *cp;
+       char    *cp;

 {
 {

-       register int    len;
-       register char   *bp;
+       int     len;
+       char    *bp;

 
 

-       for (len = 0,bp = lbp;*cp && (*cp &~ ' ') == (*bp++ &~ ' ');
-           ++cp,++len);
+       for (len = 0, bp = lbp; *cp && (*cp &~ ' ') == (*bp++ &~ ' ');
+           ++cp, ++len)
+               continue;

        if (!*cp) {
                lbp += len;
        if (!*cp) {
                lbp += len;

-               return(YES);
+               return (YES);

        }
        }

-       return(NO);
+       return (NO);

 }
 
 static void
 takeprec()
 {
 }
 
 static void
 takeprec()
 {

-       for (;isspace(*lbp);++lbp);
+       for (; isspace(*lbp); ++lbp)
+               continue;

        if (*lbp == '*') {
        if (*lbp == '*') {

-               for (++lbp;isspace(*lbp);++lbp);
+               for (++lbp; isspace(*lbp); ++lbp)
+                       continue;

                if (!isdigit(*lbp))
                        --lbp;                  /* force failure */
                else
                if (!isdigit(*lbp))
                        --lbp;                  /* force failure */
                else

-                       while (isdigit(*++lbp));
+                       while (isdigit(*++lbp))
+                               continue;

        }
 }
        }
 }