BSD 4_3 release

[unix-history] / usr / src / usr.lib / libI77 / lio.h

diff --git a/usr/src/usr.lib/libI77/lio.h b/usr/src/usr.lib/libI77/lio.h
index 336740b..ab5ad46 100644 (file)
--- a/usr/src/usr.lib/libI77/lio.h
+++ b/usr/src/usr.lib/libI77/lio.h
@@ -1,6 +1,12 @@
 /*
 /*

-char id_lio[] = "@(#)lio.h     1.1";
+ * Copyright (c) 1980 Regents of the University of California.
+ * All rights reserved.  The Berkeley software License Agreement
+ * specifies the terms and conditions for redistribution.

  *
  *

+ *     @(#)lio.h       5.2 (Berkeley) 7/30/85
+ */
+
+/*

  * copy of ftypes from the compiler
  * variable types numeric assumptions:
  *     int < reals < complexes
  * copy of ftypes from the compiler
  * variable types numeric assumptions:
  *     int < reals < complexes


@@ -46,6 +52,8 @@ char id_lio[] = "@(#)lio.h    1.1";
 #define width(z) ((z!=0.0 && (abs(z)>=LHIGH || abs(z)<LLOW))?LEW:LFW)
 #define dwidth(z) ((z!=0.0 && (abs(z)>=LDHIGH || abs(z)<LLOW))?LDEW:LDFW)
 #define ERR(x) if(n=(x)) err(n>0?errflag:endflag,n,"list io")
 #define width(z) ((z!=0.0 && (abs(z)>=LHIGH || abs(z)<LLOW))?LEW:LFW)
 #define dwidth(z) ((z!=0.0 && (abs(z)>=LDHIGH || abs(z)<LLOW))?LDEW:LDFW)
 #define ERR(x) if(n=(x)) err(n>0?errflag:endflag,n,"list io")

+#define ERRCHK(x)      if(n=(x)) goto got_err;
+#define chk_len(w) if(recpos+w > line_len) PUT('\n');

 
 typedef union
 {      short   flshort;
 
 typedef union
 {      short   flshort;