BSD 4_4 release

[unix-history] / usr / src / usr.bin / f77 / libI77 / sue.c

diff --git a/usr/src/usr.bin/f77/libI77/sue.c b/usr/src/usr.bin/f77/libI77/sue.c
index 9c59a35..b61b3ce 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/sue.c
+++ b/usr/src/usr.bin/f77/libI77/sue.c
@@ -1,6 +1,17 @@
-/*
-char id_sue[] = "@(#)sue.c     1.4";
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.

  *
  *

+ * This module is believed to contain source code proprietary to AT&T.
+ * Use and redistribution is subject to the Berkeley Software License
+ * Agreement and your Software Agreement with AT&T (Western Electric).
+ */
+
+#ifndef lint
+static char sccsid[] = "@(#)sue.c      5.3 (Berkeley) 4/12/91";
+#endif /* not lint */
+
+/*

  * sequential unformatted external read/write routines
  */
 
  * sequential unformatted external read/write routines
  */
 


@@ -41,7 +52,7 @@ s_wsue(a) cilist *a;
 }
 
 LOCAL
 }
 
 LOCAL

-c_sue(a,flag) cilist *a;
+c_sue(a,flg) cilist *a;

 {      int n;
        external = sequential = YES;
        formatted = NO;
 {      int n;
        external = sequential = YES;
        formatted = NO;


@@ -52,7 +63,7 @@ c_sue(a,flag) cilist *a;
        lunit = a->ciunit;
        if(not_legal(lunit)) err(errflag,F_ERUNIT,rsue+5)
        curunit = &units[lunit];
        lunit = a->ciunit;
        if(not_legal(lunit)) err(errflag,F_ERUNIT,rsue+5)
        curunit = &units[lunit];

-       if(!curunit->ufd && (n=fk_open(flag,SEQ,UNF,(ftnint)lunit)))
+       if(!curunit->ufd && (n=fk_open(flg,SEQ,UNF,(ftnint)lunit)))

                err(errflag,n,rsue+5)
        cf = curunit->ufd;
        elist = YES;
                err(errflag,n,rsue+5)
        cf = curunit->ufd;
        elist = YES;