BSD 4_1_snap release

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

diff --git a/usr/src/lib/libI77uc/dofio.c b/usr/src/lib/libI77uc/dofio.c
index 4fabfe6..6b61aaa 100644 (file)
--- a/usr/src/lib/libI77uc/dofio.c
+++ b/usr/src/lib/libI77uc/dofio.c
@@ -1,9 +1,11 @@
 /*
 /*

+char id_dofio[] = "@(#)dofio.c 1.2";
+ *

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

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

 
 #define DO(x)  if(n=x) err(n>0?errflag:endflag,n,dfio)
 #define STKSZ 10
 
 #define DO(x)  if(n=x) err(n>0?errflag:endflag,n,dfio)
 #define STKSZ 10


@@ -43,12 +45,12 @@ do_fio(number,ptr,len) ftnint *number; ftnlen len; char *ptr;
                more--;
                break;
        case STACK:             /* repeat count */
                more--;
                break;
        case STACK:             /* repeat count */

-               if(++cp==STKSZ) err(errflag,100,"too many nested ()")
+               if(++cp==STKSZ) err(errflag,F_ERFMT,"too many nested ()")

                cnt[cp]=p->p1;
                pc++;
                break;
        case RET:               /* open paren */
                cnt[cp]=p->p1;
                pc++;
                break;
        case RET:               /* open paren */

-               if(++rp==STKSZ) err(errflag,100,"too many nested ()")
+               if(++rp==STKSZ) err(errflag,F_ERFMT,"too many nested ()")

                ret[rp]=p->p1;
                pc++;
                break;
                ret[rp]=p->p1;
                pc++;
                break;


@@ -106,7 +108,7 @@ do_fio(number,ptr,len) ftnint *number; ftnlen len; char *ptr;
                pc++;
                break;
        default:
                pc++;
                break;
        default:

-               err(errflag,100,"impossible code")
+               err(errflag,F_ERFMT,"impossible code")

        }
 }
 
        }
 }
 


@@ -118,7 +120,7 @@ fmt_bg()
 
 type_f(n)
 {
 
 type_f(n)
 {

-#ifdef debug
+#ifdef DEBUG

        fprintf(stderr," pc=%d, cnt[%d]=%d, ret[%d]=%d, op=%d\n",
                pc,cp,cnt[cp],rp,ret[rp],n); /*for debug*/
 #endif
        fprintf(stderr," pc=%d, cnt[%d]=%d, ret[%d]=%d, op=%d\n",
                pc,cp,cnt[cp],rp,ret[rp],n); /*for debug*/
 #endif