BSD 4_1_snap release

[unix-history] / usr / src / lib / libI77uc / fmt.c

diff --git a/usr/src/lib/libI77uc/fmt.c b/usr/src/lib/libI77uc/fmt.c
index 0df7251..96611fc 100644 (file)
--- a/usr/src/lib/libI77uc/fmt.c
+++ b/usr/src/lib/libI77uc/fmt.c
@@ -1,9 +1,11 @@
 /*
 /*

+char id_fmt[] = "@(#)fmt.c     1.2";
+ *

  * fortran format parser
  */
 
 #include "fio.h"
  * fortran format parser
  */
 
 #include "fio.h"

-#include "fmt.h"
+#include "format.h"

 
 #define isdigit(x)     (x>='0' && x<='9')
 #define isspace(s)     (s==' ')
 
 #define isdigit(x)     (x>='0' && x<='9')
 #define isspace(s)     (s==' ')


@@ -251,9 +253,9 @@ op_gen(a,b,c,d,s) char *s;
 {      struct syl *p= &syl[pc];
        if(pc>=SYLMX)
        {       fmtptr = s;
 {      struct syl *p= &syl[pc];
        if(pc>=SYLMX)
        {       fmtptr = s;

-               fatal(100,"format too complex");
+               fatal(F_ERFMT,"format too complex");

        }
        }

-#ifdef debug
+#ifdef DEBUG

        fprintf(stderr,"%3d opgen: %d %d %d %d %c\n",
                pc,a,b,c,d,*s==GLITCH?'"':*s); /* for debug */
 #endif
        fprintf(stderr,"%3d opgen: %d %d %d %d %c\n",
                pc,a,b,c,d,*s==GLITCH?'"':*s); /* for debug */
 #endif


@@ -290,5 +292,5 @@ char *ap_end(s) char *s;
                if(*s==quote && *++s!=quote) return(s);
        }
        fmtptr = s;
                if(*s==quote && *++s!=quote) return(s);
        }
        fmtptr = s;

-       fatal(100,"bad string");
+       fatal(F_ERFMT,"bad string");

 }
 }