X-Git-Url: https://git.subgeniuskitty.com/unix-history/.git/blobdiff_plain/0f4556f12c8f75078501c9d1338ae7648a97f975..95f51977ddc18faa2e212f30c00a39540b39f325:/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 336740bcc0..ab5ad46205 100644
--- 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
@@ -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 ERRCHK(x)	if(n=(x)) goto got_err;
+#define chk_len(w) if(recpos+w > line_len) PUT('\n');
 
 typedef union
 {	short	flshort;