From 161423a61968da81bdb898223e6dc1cbec64e8a5 Mon Sep 17 00:00:00 2001 From: Robert Elz Date: Sat, 8 Jun 1985 07:02:01 -0800 Subject: [PATCH] Add copyright SCCS-vsn: usr.bin/f77/libU77/access_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/alarm_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/chdir_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/chmod_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/ctime_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/dtime_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/etime_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/f77lid_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/fdate_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/fgetc_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/fork_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/fputc_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/fseek_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/fstat_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/ftell_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/gerror_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/getarg_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/getc_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/getcwd_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/getenv_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/getgid_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/getlog_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/getpid_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/getuid_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/gmtime_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/hostnm_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/iargc_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/idate_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/ierrno_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/isatty_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/itime_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/kill_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/link_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/loc_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/lstat_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/ltime_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/malloc_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/mkindx.c 5.1 SCCS-vsn: usr.bin/f77/libU77/mkvers.c 5.1 SCCS-vsn: usr.bin/f77/libU77/perror_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/putc_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/qsort_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/rename_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/sleep_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/stat_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/symlnk_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/system_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/tapeio.c 5.1 SCCS-vsn: usr.bin/f77/libU77/time_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/ttynam_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/unlink_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/wait_.c 5.1 SCCS-vsn: usr.bin/f77/libU77/Makefile 5.1 SCCS-vsn: usr.bin/f77/libF77/Makefile 5.1 SCCS-vsn: usr.bin/f77/libI77/f_errno.h 5.1 SCCS-vsn: usr.bin/f77/libI77/fio.h 5.1 SCCS-vsn: usr.bin/f77/libI77/fiodefs.h 5.1 SCCS-vsn: usr.bin/f77/libI77/format.h 5.1 SCCS-vsn: usr.bin/f77/libI77/lio.h 5.1 SCCS-vsn: usr.bin/f77/libI77/Makefile 5.1 SCCS-vsn: usr.bin/f77/libI77/backspace.c 5.1 SCCS-vsn: usr.bin/f77/libI77/c_dfe.c 5.1 SCCS-vsn: usr.bin/f77/libI77/c_iio.c 5.1 SCCS-vsn: usr.bin/f77/libI77/c_sfe.c 5.1 SCCS-vsn: usr.bin/f77/libI77/close.c 5.1 SCCS-vsn: usr.bin/f77/libI77/dofio.c 5.1 SCCS-vsn: usr.bin/f77/libI77/dolio.c 5.1 SCCS-vsn: usr.bin/f77/libI77/douio.c 5.1 SCCS-vsn: usr.bin/f77/libI77/due.c 5.1 SCCS-vsn: usr.bin/f77/libI77/endfile.c 5.1 SCCS-vsn: usr.bin/f77/libI77/err.c 5.1 SCCS-vsn: usr.bin/f77/libI77/f_errlist.c 5.1 SCCS-vsn: usr.bin/f77/libI77/fmt.c 5.1 SCCS-vsn: usr.bin/f77/libI77/fmtlib.c 5.1 SCCS-vsn: usr.bin/f77/libI77/inquire.c 5.1 SCCS-vsn: usr.bin/f77/libI77/libI66.c 5.1 SCCS-vsn: usr.bin/f77/libI77/lread.c 5.1 SCCS-vsn: usr.bin/f77/libI77/lwrite.c 5.1 SCCS-vsn: usr.bin/f77/libI77/mkindx.c 5.1 SCCS-vsn: usr.bin/f77/libI77/mkvers.c 5.1 SCCS-vsn: usr.bin/f77/libI77/open.c 5.1 SCCS-vsn: usr.bin/f77/libI77/rdfe.c 5.1 SCCS-vsn: usr.bin/f77/libI77/rdfmt.c 5.1 SCCS-vsn: usr.bin/f77/libI77/rewind.c 5.1 SCCS-vsn: usr.bin/f77/libI77/rfi.c 5.1 SCCS-vsn: usr.bin/f77/libI77/rsfe.c 5.1 SCCS-vsn: usr.bin/f77/libI77/rsli.c 5.1 SCCS-vsn: usr.bin/f77/libI77/sue.c 5.1 SCCS-vsn: usr.bin/f77/libI77/util.c 5.1 SCCS-vsn: usr.bin/f77/libI77/wdfe.c 5.1 SCCS-vsn: usr.bin/f77/libI77/wfi.c 5.1 SCCS-vsn: usr.bin/f77/libI77/wrtfmt.c 5.1 SCCS-vsn: usr.bin/f77/libI77/wsfe.c 5.1 SCCS-vsn: usr.bin/f77/libI77/wsli.c 5.1 SCCS-vsn: usr.bin/f77/libU77/ioinit.f 5.1 --- usr/src/usr.bin/f77/libF77/Makefile | 9 +++++++-- usr/src/usr.bin/f77/libI77/Makefile | 10 ++++++++-- usr/src/usr.bin/f77/libI77/backspace.c | 8 +++++++- usr/src/usr.bin/f77/libI77/c_dfe.c | 8 +++++++- usr/src/usr.bin/f77/libI77/c_iio.c | 8 +++++++- usr/src/usr.bin/f77/libI77/c_sfe.c | 8 +++++++- usr/src/usr.bin/f77/libI77/close.c | 8 +++++++- usr/src/usr.bin/f77/libI77/dofio.c | 8 +++++++- usr/src/usr.bin/f77/libI77/dolio.c | 8 +++++++- usr/src/usr.bin/f77/libI77/douio.c | 8 +++++++- usr/src/usr.bin/f77/libI77/due.c | 8 +++++++- usr/src/usr.bin/f77/libI77/endfile.c | 8 +++++++- usr/src/usr.bin/f77/libI77/err.c | 8 +++++++- usr/src/usr.bin/f77/libI77/f_errlist.c | 8 +++++++- usr/src/usr.bin/f77/libI77/f_errno.h | 8 +++++++- usr/src/usr.bin/f77/libI77/fio.h | 8 +++++++- usr/src/usr.bin/f77/libI77/fiodefs.h | 8 +++++++- usr/src/usr.bin/f77/libI77/fmt.c | 8 +++++++- usr/src/usr.bin/f77/libI77/fmtlib.c | 8 +++++++- usr/src/usr.bin/f77/libI77/format.h | 8 +++++++- usr/src/usr.bin/f77/libI77/inquire.c | 8 +++++++- usr/src/usr.bin/f77/libI77/libI66.c | 10 +++++++++- usr/src/usr.bin/f77/libI77/lio.h | 8 +++++++- usr/src/usr.bin/f77/libI77/lread.c | 8 +++++++- usr/src/usr.bin/f77/libI77/lwrite.c | 8 +++++++- usr/src/usr.bin/f77/libI77/mkindx.c | 8 +++++++- usr/src/usr.bin/f77/libI77/mkvers.c | 8 +++++++- usr/src/usr.bin/f77/libI77/open.c | 8 +++++++- usr/src/usr.bin/f77/libI77/rdfe.c | 8 +++++++- usr/src/usr.bin/f77/libI77/rdfmt.c | 8 +++++++- usr/src/usr.bin/f77/libI77/rewind.c | 8 +++++++- usr/src/usr.bin/f77/libI77/rfi.c | 8 +++++++- usr/src/usr.bin/f77/libI77/rsfe.c | 8 +++++++- usr/src/usr.bin/f77/libI77/rsli.c | 8 +++++++- usr/src/usr.bin/f77/libI77/sue.c | 8 +++++++- usr/src/usr.bin/f77/libI77/util.c | 8 +++++++- usr/src/usr.bin/f77/libI77/wdfe.c | 8 +++++++- usr/src/usr.bin/f77/libI77/wfi.c | 8 +++++++- usr/src/usr.bin/f77/libI77/wrtfmt.c | 8 +++++++- usr/src/usr.bin/f77/libI77/wsfe.c | 8 +++++++- usr/src/usr.bin/f77/libI77/wsli.c | 8 +++++++- usr/src/usr.bin/f77/libU77/Makefile | 8 +++++++- usr/src/usr.bin/f77/libU77/access_.c | 8 +++++++- usr/src/usr.bin/f77/libU77/alarm_.c | 8 +++++++- usr/src/usr.bin/f77/libU77/chdir_.c | 8 +++++++- usr/src/usr.bin/f77/libU77/chmod_.c | 8 +++++++- usr/src/usr.bin/f77/libU77/ctime_.c | 8 +++++++- usr/src/usr.bin/f77/libU77/dtime_.c | 8 +++++++- usr/src/usr.bin/f77/libU77/etime_.c | 8 +++++++- usr/src/usr.bin/f77/libU77/f77lid_.c | 10 +++++++++- usr/src/usr.bin/f77/libU77/fdate_.c | 8 +++++++- usr/src/usr.bin/f77/libU77/fgetc_.c | 8 +++++++- usr/src/usr.bin/f77/libU77/fork_.c | 8 +++++++- usr/src/usr.bin/f77/libU77/fputc_.c | 8 +++++++- usr/src/usr.bin/f77/libU77/fseek_.c | 8 +++++++- usr/src/usr.bin/f77/libU77/fstat_.c | 8 +++++++- usr/src/usr.bin/f77/libU77/ftell_.c | 8 +++++++- usr/src/usr.bin/f77/libU77/gerror_.c | 8 +++++++- usr/src/usr.bin/f77/libU77/getarg_.c | 8 +++++++- usr/src/usr.bin/f77/libU77/getc_.c | 8 +++++++- usr/src/usr.bin/f77/libU77/getcwd_.c | 9 ++++++++- usr/src/usr.bin/f77/libU77/getenv_.c | 8 +++++++- usr/src/usr.bin/f77/libU77/getgid_.c | 8 +++++++- usr/src/usr.bin/f77/libU77/getlog_.c | 8 +++++++- usr/src/usr.bin/f77/libU77/getpid_.c | 8 +++++++- usr/src/usr.bin/f77/libU77/getuid_.c | 8 +++++++- usr/src/usr.bin/f77/libU77/gmtime_.c | 8 +++++++- usr/src/usr.bin/f77/libU77/hostnm_.c | 9 ++++++++- usr/src/usr.bin/f77/libU77/iargc_.c | 8 +++++++- usr/src/usr.bin/f77/libU77/idate_.c | 8 +++++++- usr/src/usr.bin/f77/libU77/ierrno_.c | 8 +++++++- usr/src/usr.bin/f77/libU77/ioinit.f | 9 ++++++++- usr/src/usr.bin/f77/libU77/isatty_.c | 8 +++++++- usr/src/usr.bin/f77/libU77/itime_.c | 8 +++++++- usr/src/usr.bin/f77/libU77/kill_.c | 8 +++++++- usr/src/usr.bin/f77/libU77/link_.c | 8 +++++++- usr/src/usr.bin/f77/libU77/loc_.c | 8 +++++++- usr/src/usr.bin/f77/libU77/lstat_.c | 8 +++++++- usr/src/usr.bin/f77/libU77/ltime_.c | 8 +++++++- usr/src/usr.bin/f77/libU77/malloc_.c | 8 +++++++- usr/src/usr.bin/f77/libU77/mkindx.c | 8 +++++++- usr/src/usr.bin/f77/libU77/mkvers.c | 8 +++++++- usr/src/usr.bin/f77/libU77/perror_.c | 8 +++++++- usr/src/usr.bin/f77/libU77/putc_.c | 8 +++++++- usr/src/usr.bin/f77/libU77/qsort_.c | 8 +++++++- usr/src/usr.bin/f77/libU77/rename_.c | 8 +++++++- usr/src/usr.bin/f77/libU77/sleep_.c | 8 +++++++- usr/src/usr.bin/f77/libU77/stat_.c | 8 +++++++- usr/src/usr.bin/f77/libU77/symlnk_.c | 8 +++++++- usr/src/usr.bin/f77/libU77/system_.c | 8 +++++++- usr/src/usr.bin/f77/libU77/tapeio.c | 8 +++++++- usr/src/usr.bin/f77/libU77/time_.c | 8 +++++++- usr/src/usr.bin/f77/libU77/ttynam_.c | 8 +++++++- usr/src/usr.bin/f77/libU77/unlink_.c | 8 +++++++- usr/src/usr.bin/f77/libU77/wait_.c | 8 +++++++- 95 files changed, 673 insertions(+), 97 deletions(-) diff --git a/usr/src/usr.bin/f77/libF77/Makefile b/usr/src/usr.bin/f77/libF77/Makefile index a77f14fbb1..814ce9c539 100644 --- a/usr/src/usr.bin/f77/libF77/Makefile +++ b/usr/src/usr.bin/f77/libF77/Makefile @@ -1,6 +1,11 @@ -# Makefile for f77 math & startup lib, libF77.a # -# @(#)Makefile 1.7 (Berkeley) %G% +# Copyright (c) 1980 Regents of the University of California. +# All rights reserved. The Berkeley software License Agreement +# specifies the terms and conditions for redistribution. +# +# @(#)Makefile 5.1 (Berkeley) %G% +# +# Makefile for f77 math & startup lib, libF77.a CFLAGS = -O diff --git a/usr/src/usr.bin/f77/libI77/Makefile b/usr/src/usr.bin/f77/libI77/Makefile index 999aa63a7d..b6b32ae847 100644 --- a/usr/src/usr.bin/f77/libI77/Makefile +++ b/usr/src/usr.bin/f77/libI77/Makefile @@ -1,6 +1,12 @@ -# Makefile for f77 I/O lib, libI77.a # -# @(#)Makefile 1.3 (Berkeley) %G% +# Copyright (c) 1980 Regents of the University of California. +# All rights reserved. The Berkeley software License Agreement +# specifies the terms and conditions for redistribution. +# +# @(#)Makefile 5.1 (Berkeley) %G% +# + +# Makefile for f77 I/O lib, libI77.a CFLAGS = -O diff --git a/usr/src/usr.bin/f77/libI77/backspace.c b/usr/src/usr.bin/f77/libI77/backspace.c index fae5780478..4cb1d3e097 100644 --- a/usr/src/usr.bin/f77/libI77/backspace.c +++ b/usr/src/usr.bin/f77/libI77/backspace.c @@ -1,6 +1,12 @@ /* -char id_backspace[] = "@(#)backspace.c 1.6"; + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. * + * @(#)backspace.c 5.1 %G% + */ + +/* * Backspace records */ diff --git a/usr/src/usr.bin/f77/libI77/c_dfe.c b/usr/src/usr.bin/f77/libI77/c_dfe.c index 2f82891b4a..35ea394979 100644 --- a/usr/src/usr.bin/f77/libI77/c_dfe.c +++ b/usr/src/usr.bin/f77/libI77/c_dfe.c @@ -1,6 +1,12 @@ /* -char id_c_dfe[] = "@(#)c_dfe.c 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. * + * @(#)c_dfe.c 5.1 %G% + */ + +/* * direct formatted external i/o - common read/write routines */ diff --git a/usr/src/usr.bin/f77/libI77/c_iio.c b/usr/src/usr.bin/f77/libI77/c_iio.c index 771ba9ceb8..cc9d2f3eea 100644 --- a/usr/src/usr.bin/f77/libI77/c_iio.c +++ b/usr/src/usr.bin/f77/libI77/c_iio.c @@ -1,6 +1,12 @@ /* -char id_c_iio[] = "@(#)c_iio.c 1.3"; + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. * + * @(#)c_iio.c 5.1 %G% + */ + +/* * internal (character array) i/o: common portions */ diff --git a/usr/src/usr.bin/f77/libI77/c_sfe.c b/usr/src/usr.bin/f77/libI77/c_sfe.c index d45f4398ba..88a991e27e 100644 --- a/usr/src/usr.bin/f77/libI77/c_sfe.c +++ b/usr/src/usr.bin/f77/libI77/c_sfe.c @@ -1,6 +1,12 @@ /* -char id_csfe[] = "@(#)c_sfe.c 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. * + * @(#)c_sfe.c 5.1 %G% + */ + +/* * sequential formatted external I/O - common read & write routines */ diff --git a/usr/src/usr.bin/f77/libI77/close.c b/usr/src/usr.bin/f77/libI77/close.c index 0abaada003..04ebebaf28 100644 --- a/usr/src/usr.bin/f77/libI77/close.c +++ b/usr/src/usr.bin/f77/libI77/close.c @@ -1,6 +1,12 @@ /* -char id_close[] = "@(#)close.c 1.7"; + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. * + * @(#)close.c 5.1 %G% + */ + +/* * f_clos(): f77 file close * t_runc(): truncation * f_exit(): I/O library exit routines diff --git a/usr/src/usr.bin/f77/libI77/dofio.c b/usr/src/usr.bin/f77/libI77/dofio.c index 9e196dd5a5..63cf084913 100644 --- a/usr/src/usr.bin/f77/libI77/dofio.c +++ b/usr/src/usr.bin/f77/libI77/dofio.c @@ -1,6 +1,12 @@ /* -char id_dofio[] = "@(#)dofio.c 1.9"; + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. * + * @(#)dofio.c 5.1 %G% + */ + +/* * fortran format executer */ diff --git a/usr/src/usr.bin/f77/libI77/dolio.c b/usr/src/usr.bin/f77/libI77/dolio.c index c8721d418d..ea687d9357 100644 --- a/usr/src/usr.bin/f77/libI77/dolio.c +++ b/usr/src/usr.bin/f77/libI77/dolio.c @@ -1,6 +1,12 @@ /* -char id_dolio[] = "@(#)dolio.c 1.2"; + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. * + * @(#)dolio.c 5.1 %G% + */ + +/* * list directed i/o common routines */ diff --git a/usr/src/usr.bin/f77/libI77/douio.c b/usr/src/usr.bin/f77/libI77/douio.c index fd379545ca..b677b94f32 100644 --- a/usr/src/usr.bin/f77/libI77/douio.c +++ b/usr/src/usr.bin/f77/libI77/douio.c @@ -1,6 +1,12 @@ /* -char id_douio[] = "@(#)douio.c 1.4"; + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. * + * @(#)douio.c 5.1 %G% + */ + +/* * unformatted external i/o */ diff --git a/usr/src/usr.bin/f77/libI77/due.c b/usr/src/usr.bin/f77/libI77/due.c index bf2dfd1353..2856397e30 100644 --- a/usr/src/usr.bin/f77/libI77/due.c +++ b/usr/src/usr.bin/f77/libI77/due.c @@ -1,6 +1,12 @@ /* -char id_due[] = "@(#)due.c 1.4"; + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. * + * @(#)due.c 5.1 %G% + */ + +/* * direct unformatted external i/o */ diff --git a/usr/src/usr.bin/f77/libI77/endfile.c b/usr/src/usr.bin/f77/libI77/endfile.c index 681c8cba96..75b9810779 100644 --- a/usr/src/usr.bin/f77/libI77/endfile.c +++ b/usr/src/usr.bin/f77/libI77/endfile.c @@ -1,6 +1,12 @@ /* -char id_endfile[] = "@(#)endfile.c 1.8"; + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. * + * @(#)endfile.c 5.1 %G% + */ + +/* * endfile */ diff --git a/usr/src/usr.bin/f77/libI77/err.c b/usr/src/usr.bin/f77/libI77/err.c index 66431ed8eb..bed9da7f56 100644 --- a/usr/src/usr.bin/f77/libI77/err.c +++ b/usr/src/usr.bin/f77/libI77/err.c @@ -1,6 +1,12 @@ /* -char id_err[] = "@(#)err.c 1.16"; + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. * + * @(#)err.c 5.1 %G% + */ + +/* * fatal(): i/o error routine * flush_(): flush file buffer */ diff --git a/usr/src/usr.bin/f77/libI77/f_errlist.c b/usr/src/usr.bin/f77/libI77/f_errlist.c index d4b1e52b43..44f8e31a5b 100644 --- a/usr/src/usr.bin/f77/libI77/f_errlist.c +++ b/usr/src/usr.bin/f77/libI77/f_errlist.c @@ -1,6 +1,12 @@ /* -char id_f_errlist[] = "@(#)f_errlist.c 1.6"; + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. * + * @(#)f_errlist.c 5.1 %G% + */ + +/* * f77 I/O error messages */ diff --git a/usr/src/usr.bin/f77/libI77/f_errno.h b/usr/src/usr.bin/f77/libI77/f_errno.h index c8edeb4cc4..fd01d9b4be 100644 --- a/usr/src/usr.bin/f77/libI77/f_errno.h +++ b/usr/src/usr.bin/f77/libI77/f_errno.h @@ -1,6 +1,12 @@ /* -char id_f_errno[] = "@(#)f_errno.h 1.8"; + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. * + * @(#)f_errno.h 5.1 (Berkeley) %G% + */ + +/* * f77 I/O error definitions */ diff --git a/usr/src/usr.bin/f77/libI77/fio.h b/usr/src/usr.bin/f77/libI77/fio.h index e8af1adfba..98d3288d26 100644 --- a/usr/src/usr.bin/f77/libI77/fio.h +++ b/usr/src/usr.bin/f77/libI77/fio.h @@ -1,6 +1,12 @@ /* -char id_fio[] = "@(#)fio.h 1.3"; + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. * + * @(#)fio.h 5.1 (Berkeley) %G% + */ + +/* * f77 file i/o common definitions */ diff --git a/usr/src/usr.bin/f77/libI77/fiodefs.h b/usr/src/usr.bin/f77/libI77/fiodefs.h index d498b9d571..b0de93d5ba 100644 --- a/usr/src/usr.bin/f77/libI77/fiodefs.h +++ b/usr/src/usr.bin/f77/libI77/fiodefs.h @@ -1,6 +1,12 @@ /* -char id_fiodefs[] = "@(#)fiodefs.h 1.4"; + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. * + * @(#)fiodefs.h 5.1 (Berkeley) %G% + */ + +/* * fortran file i/o type definitions */ diff --git a/usr/src/usr.bin/f77/libI77/fmt.c b/usr/src/usr.bin/f77/libI77/fmt.c index fb2c801dc3..ee34edbe62 100644 --- a/usr/src/usr.bin/f77/libI77/fmt.c +++ b/usr/src/usr.bin/f77/libI77/fmt.c @@ -1,6 +1,12 @@ /* -char id_fmt[] = "@(#)fmt.c 1.9"; + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. * + * @(#)fmt.c 5.1 %G% + */ + +/* * fortran format parser */ diff --git a/usr/src/usr.bin/f77/libI77/fmtlib.c b/usr/src/usr.bin/f77/libI77/fmtlib.c index 500a29a198..477c37686e 100644 --- a/usr/src/usr.bin/f77/libI77/fmtlib.c +++ b/usr/src/usr.bin/f77/libI77/fmtlib.c @@ -1,6 +1,12 @@ /* -char id_fmtlib[] = "@(#)fmtlib.c 1.3"; + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. * + * @(#)fmtlib.c 5.1 %G% + */ + +/* * integer to ascii conversion * * This code has been rearranged to produce optimized runtime code. diff --git a/usr/src/usr.bin/f77/libI77/format.h b/usr/src/usr.bin/f77/libI77/format.h index f9a91b33e2..1348dbe35d 100644 --- a/usr/src/usr.bin/f77/libI77/format.h +++ b/usr/src/usr.bin/f77/libI77/format.h @@ -1,6 +1,12 @@ /* -char id_format[] = "@(#)format.h 1.7"; + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. * + * @(#)format.h 5.1 (Berkeley) %G% + */ + +/* * format parser definitions */ diff --git a/usr/src/usr.bin/f77/libI77/inquire.c b/usr/src/usr.bin/f77/libI77/inquire.c index 7bb8e94abe..770ee06dbc 100644 --- a/usr/src/usr.bin/f77/libI77/inquire.c +++ b/usr/src/usr.bin/f77/libI77/inquire.c @@ -1,6 +1,12 @@ /* -char id_inquire[] = "@(#)inquire.c 1.3"; + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. * + * @(#)inquire.c 5.1 %G% + */ + +/* * inquire.c - f77 i/o inquire statement routine */ diff --git a/usr/src/usr.bin/f77/libI77/libI66.c b/usr/src/usr.bin/f77/libI77/libI66.c index 2278e8bf14..8a8af0e8bc 100644 --- a/usr/src/usr.bin/f77/libI77/libI66.c +++ b/usr/src/usr.bin/f77/libI77/libI66.c @@ -1,6 +1,14 @@ +/* + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. + * + * @(#)libI66.c 5.1 %G% + */ + /* * set flag to initialize fortran-66 mods - * @(#)libI66.c 1.4 + * * usage: f77 ... -lI66 ... */ diff --git a/usr/src/usr.bin/f77/libI77/lio.h b/usr/src/usr.bin/f77/libI77/lio.h index 336740bcc0..9be1620e5b 100644 --- a/usr/src/usr.bin/f77/libI77/lio.h +++ b/usr/src/usr.bin/f77/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.1 (Berkeley) %G% + */ + +/* * copy of ftypes from the compiler * variable types numeric assumptions: * int < reals < complexes diff --git a/usr/src/usr.bin/f77/libI77/lread.c b/usr/src/usr.bin/f77/libI77/lread.c index b358a47cda..f21721839f 100644 --- a/usr/src/usr.bin/f77/libI77/lread.c +++ b/usr/src/usr.bin/f77/libI77/lread.c @@ -1,6 +1,12 @@ /* -char id_lread[] = "@(#)lread.c 1.12"; + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. * + * @(#)lread.c 5.1 %G% + */ + +/* * list directed read */ diff --git a/usr/src/usr.bin/f77/libI77/lwrite.c b/usr/src/usr.bin/f77/libI77/lwrite.c index 3a85057a07..3c7ad3e472 100644 --- a/usr/src/usr.bin/f77/libI77/lwrite.c +++ b/usr/src/usr.bin/f77/libI77/lwrite.c @@ -1,6 +1,12 @@ /* -char id_lwrite[] = "@(#)lwrite.c 1.6"; + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. * + * @(#)lwrite.c 5.1 %G% + */ + +/* * list directed write */ diff --git a/usr/src/usr.bin/f77/libI77/mkindx.c b/usr/src/usr.bin/f77/libI77/mkindx.c index 75e4c75b24..207f8a9df3 100644 --- a/usr/src/usr.bin/f77/libI77/mkindx.c +++ b/usr/src/usr.bin/f77/libI77/mkindx.c @@ -1,3 +1,9 @@ +/* + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. + */ + /* * mkindx.c - utility to format a nice index to source files, etc. * @@ -6,7 +12,7 @@ # include -char id_mkindx[] = "@(#)mkindx.c 1.1"; +char id_mkindx[] = "@(#)mkindx.c 5.1 %G%"; char list[10000] = "pwd >>index; echo \" \" >>index; ls -l "; char *apndx = ">>index"; diff --git a/usr/src/usr.bin/f77/libI77/mkvers.c b/usr/src/usr.bin/f77/libI77/mkvers.c index dfee0d3896..9e424e51e4 100644 --- a/usr/src/usr.bin/f77/libI77/mkvers.c +++ b/usr/src/usr.bin/f77/libI77/mkvers.c @@ -1,4 +1,10 @@ -char id_mkvers[] = "@(#)mkvers.c 1.2"; +/* + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. + */ + +char id_mkvers[] = "@(#)mkvers.c 5.1 %G%"; /* * extract sccs id strings from source files * first arg is lib name. diff --git a/usr/src/usr.bin/f77/libI77/open.c b/usr/src/usr.bin/f77/libI77/open.c index aaeeb927ac..91249c0712 100644 --- a/usr/src/usr.bin/f77/libI77/open.c +++ b/usr/src/usr.bin/f77/libI77/open.c @@ -1,6 +1,12 @@ /* -char id_open[] = "@(#)open.c 1.12"; + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. * + * @(#)open.c 5.1 %G% + */ + +/* * open.c - f77 file open and I/O library initialization routines */ diff --git a/usr/src/usr.bin/f77/libI77/rdfe.c b/usr/src/usr.bin/f77/libI77/rdfe.c index e0d65f04c7..00fe21c373 100644 --- a/usr/src/usr.bin/f77/libI77/rdfe.c +++ b/usr/src/usr.bin/f77/libI77/rdfe.c @@ -1,6 +1,12 @@ /* -char id_rdfe[] = "@(#)rdfe.c 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. * + * @(#)rdfe.c 5.1 %G% + */ + +/* * read direct formatted external i/o */ diff --git a/usr/src/usr.bin/f77/libI77/rdfmt.c b/usr/src/usr.bin/f77/libI77/rdfmt.c index f3c3b426ac..4f79b75ffe 100644 --- a/usr/src/usr.bin/f77/libI77/rdfmt.c +++ b/usr/src/usr.bin/f77/libI77/rdfmt.c @@ -1,6 +1,12 @@ /* -char id_rdfmt[] = "@(#)rdfmt.c 1.12"; + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. * + * @(#)rdfmt.c 5.1 %G% + */ + +/* * formatted read routines */ diff --git a/usr/src/usr.bin/f77/libI77/rewind.c b/usr/src/usr.bin/f77/libI77/rewind.c index c774c9f54d..69090d356d 100644 --- a/usr/src/usr.bin/f77/libI77/rewind.c +++ b/usr/src/usr.bin/f77/libI77/rewind.c @@ -1,6 +1,12 @@ /* -char id_rewind[] = "@(#)rewind.c 1.3"; + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. * + * @(#)rewind.c 5.1 %G% + */ + +/* * rewind.c - f77 file rewind */ diff --git a/usr/src/usr.bin/f77/libI77/rfi.c b/usr/src/usr.bin/f77/libI77/rfi.c index b9a5aa1651..b31bd9e9fc 100644 --- a/usr/src/usr.bin/f77/libI77/rfi.c +++ b/usr/src/usr.bin/f77/libI77/rfi.c @@ -1,6 +1,12 @@ /* -char id_rfi[] = "@(#)rfi.c 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. * + * @(#)rfi.c 5.1 %G% + */ + +/* * internal (character array) i/o: read formatted, sequential and direct */ diff --git a/usr/src/usr.bin/f77/libI77/rsfe.c b/usr/src/usr.bin/f77/libI77/rsfe.c index 7d0693ae71..c1af6d07ba 100644 --- a/usr/src/usr.bin/f77/libI77/rsfe.c +++ b/usr/src/usr.bin/f77/libI77/rsfe.c @@ -1,6 +1,12 @@ /* -char id_rsfe[] = "@(#)rsfe.c 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. * + * @(#)rsfe.c 5.1 %G% + */ + +/* * read sequential formatted external */ diff --git a/usr/src/usr.bin/f77/libI77/rsli.c b/usr/src/usr.bin/f77/libI77/rsli.c index c02f245dde..216c976a0f 100644 --- a/usr/src/usr.bin/f77/libI77/rsli.c +++ b/usr/src/usr.bin/f77/libI77/rsli.c @@ -1,6 +1,12 @@ /* -char id_rsli[] = "@(#)rsli.c 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. * + * @(#)rsli.c 5.1 %G% + */ + +/* * internal (character array) i/o: read sequential list */ diff --git a/usr/src/usr.bin/f77/libI77/sue.c b/usr/src/usr.bin/f77/libI77/sue.c index 9c59a356dc..2fe9c7de98 100644 --- a/usr/src/usr.bin/f77/libI77/sue.c +++ b/usr/src/usr.bin/f77/libI77/sue.c @@ -1,6 +1,12 @@ /* -char id_sue[] = "@(#)sue.c 1.4"; + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. * + * @(#)sue.c 5.1 %G% + */ + +/* * sequential unformatted external read/write routines */ diff --git a/usr/src/usr.bin/f77/libI77/util.c b/usr/src/usr.bin/f77/libI77/util.c index 7dba9cef97..d2d7b6f77c 100644 --- a/usr/src/usr.bin/f77/libI77/util.c +++ b/usr/src/usr.bin/f77/libI77/util.c @@ -1,6 +1,12 @@ /* -char id_util[] = "@(#)util.c 1.8"; + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. * + * @(#)util.c 5.1 %G% + */ + +/* * utility routines */ diff --git a/usr/src/usr.bin/f77/libI77/wdfe.c b/usr/src/usr.bin/f77/libI77/wdfe.c index a923faac53..72a054bb3f 100644 --- a/usr/src/usr.bin/f77/libI77/wdfe.c +++ b/usr/src/usr.bin/f77/libI77/wdfe.c @@ -1,6 +1,12 @@ /* -char id_wdfe[] = "@(#)wdfe.c 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. * + * @(#)wdfe.c 5.1 %G% + */ + +/* * write direct formatted external i/o */ diff --git a/usr/src/usr.bin/f77/libI77/wfi.c b/usr/src/usr.bin/f77/libI77/wfi.c index 6d420bbfc6..83c94a82f4 100644 --- a/usr/src/usr.bin/f77/libI77/wfi.c +++ b/usr/src/usr.bin/f77/libI77/wfi.c @@ -1,6 +1,12 @@ /* -char id_wfi[] = "@(#)wfi.c 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. * + * @(#)wfi.c 5.1 %G% + */ + +/* * internal (character array) i/o: write formatted, sequential and direct */ diff --git a/usr/src/usr.bin/f77/libI77/wrtfmt.c b/usr/src/usr.bin/f77/libI77/wrtfmt.c index 15e24f4a52..db67438c25 100644 --- a/usr/src/usr.bin/f77/libI77/wrtfmt.c +++ b/usr/src/usr.bin/f77/libI77/wrtfmt.c @@ -1,6 +1,12 @@ /* -char id_wrtfmt[] = "@(#)wrtfmt.c 1.11"; + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. * + * @(#)wrtfmt.c 5.1 %G% + */ + +/* * formatted write routines */ diff --git a/usr/src/usr.bin/f77/libI77/wsfe.c b/usr/src/usr.bin/f77/libI77/wsfe.c index baa0c1318c..a9c103afa5 100644 --- a/usr/src/usr.bin/f77/libI77/wsfe.c +++ b/usr/src/usr.bin/f77/libI77/wsfe.c @@ -1,6 +1,12 @@ /* -char id_wsfe[] = "@(#)wsfe.c 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. * + * @(#)wsfe.c 5.1 %G% + */ + +/* * write sequential formatted external */ diff --git a/usr/src/usr.bin/f77/libI77/wsli.c b/usr/src/usr.bin/f77/libI77/wsli.c index dabbff4a36..c4316911ad 100644 --- a/usr/src/usr.bin/f77/libI77/wsli.c +++ b/usr/src/usr.bin/f77/libI77/wsli.c @@ -1,6 +1,12 @@ /* -char id_wsli[] = "@(#)wsli.c 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. * + * @(#)wsli.c 5.1 %G% + */ + +/* * internal (character array) i/o: write sequential list */ diff --git a/usr/src/usr.bin/f77/libU77/Makefile b/usr/src/usr.bin/f77/libU77/Makefile index 7898ce5a27..433a59399a 100644 --- a/usr/src/usr.bin/f77/libU77/Makefile +++ b/usr/src/usr.bin/f77/libU77/Makefile @@ -1,5 +1,11 @@ +# +# Copyright (c) 1980 Regents of the University of California. +# All rights reserved. The Berkeley software License Agreement +# specifies the terms and conditions for redistribution. +# +# @(#)Makefile 5.1 (Berkeley) %G% +# # Makefile for f77 system lib, libU77.a -# @(#)Makefile 1.6 (Berkeley) %G% CFLAGS = -O diff --git a/usr/src/usr.bin/f77/libU77/access_.c b/usr/src/usr.bin/f77/libU77/access_.c index f8ef5b3ade..0db158d614 100644 --- a/usr/src/usr.bin/f77/libU77/access_.c +++ b/usr/src/usr.bin/f77/libU77/access_.c @@ -1,6 +1,12 @@ /* -char id_access[] = "@(#)access_.c 1.3"; + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. * + * @(#)access_.c 5.1 %G% + */ + +/* * determine accessability of a file * * calling format: diff --git a/usr/src/usr.bin/f77/libU77/alarm_.c b/usr/src/usr.bin/f77/libU77/alarm_.c index e231f385e7..ff126858d6 100644 --- a/usr/src/usr.bin/f77/libU77/alarm_.c +++ b/usr/src/usr.bin/f77/libU77/alarm_.c @@ -1,6 +1,12 @@ /* -char id_alarm[] = "@(#)alarm_.c 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. * + * @(#)alarm_.c 5.1 %G% + */ + +/* * set an alarm time, arrange for user specified action, and return. * * calling sequence: diff --git a/usr/src/usr.bin/f77/libU77/chdir_.c b/usr/src/usr.bin/f77/libU77/chdir_.c index 7c381dde7b..ef769d0e8d 100644 --- a/usr/src/usr.bin/f77/libU77/chdir_.c +++ b/usr/src/usr.bin/f77/libU77/chdir_.c @@ -1,6 +1,12 @@ /* -char id_chdir[] = "@(#)chdir_.c 1.3"; + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. * + * @(#)chdir_.c 5.1 %G% + */ + +/* * change default directory * * calling sequence: diff --git a/usr/src/usr.bin/f77/libU77/chmod_.c b/usr/src/usr.bin/f77/libU77/chmod_.c index 992b0f6131..e8774b2972 100644 --- a/usr/src/usr.bin/f77/libU77/chmod_.c +++ b/usr/src/usr.bin/f77/libU77/chmod_.c @@ -1,6 +1,12 @@ /* -char id_chmod[] = "@(#)chmod_.c 1.2"; + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. * + * @(#)chmod_.c 5.1 %G% + */ + +/* * chmod - change file mode bits * * synopsis: diff --git a/usr/src/usr.bin/f77/libU77/ctime_.c b/usr/src/usr.bin/f77/libU77/ctime_.c index 53408b115f..d005cf0584 100644 --- a/usr/src/usr.bin/f77/libU77/ctime_.c +++ b/usr/src/usr.bin/f77/libU77/ctime_.c @@ -1,6 +1,12 @@ /* -char id_ctime[] = "@(#)ctime_.c 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. * + * @(#)ctime_.c 5.1 %G% + */ + +/* * convert system time to ascii string * * calling sequence: diff --git a/usr/src/usr.bin/f77/libU77/dtime_.c b/usr/src/usr.bin/f77/libU77/dtime_.c index f7a8b9bd2e..818f927a9a 100644 --- a/usr/src/usr.bin/f77/libU77/dtime_.c +++ b/usr/src/usr.bin/f77/libU77/dtime_.c @@ -1,6 +1,12 @@ /* -char id_dtime[] = "@(#)dtime_.c 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. * + * @(#)dtime_.c 5.1 %G% + */ + +/* * Returns the delta time since the last call to dtime. * * calling sequence: diff --git a/usr/src/usr.bin/f77/libU77/etime_.c b/usr/src/usr.bin/f77/libU77/etime_.c index 2cebb6d328..09d746075c 100644 --- a/usr/src/usr.bin/f77/libU77/etime_.c +++ b/usr/src/usr.bin/f77/libU77/etime_.c @@ -1,6 +1,12 @@ /* -char id_etime[] = "@(#)etime_.c 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. * + * @(#)etime_.c 5.1 %G% + */ + +/* * Return the elapsed execution time for this process. * * calling sequence: diff --git a/usr/src/usr.bin/f77/libU77/f77lid_.c b/usr/src/usr.bin/f77/libU77/f77lid_.c index 1ef12a3e70..803465f9b9 100644 --- a/usr/src/usr.bin/f77/libU77/f77lid_.c +++ b/usr/src/usr.bin/f77/libU77/f77lid_.c @@ -1,6 +1,14 @@ +/* + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. + * + * @(#)f77lid_.c 5.1 %G% + */ + /* * f77lid_ - the ID strings for f77 libraries. - * @(#)f77lid_.c 1.1 + * * Usage: * include 'external f77lid' in the declarations in any f77 module. */ diff --git a/usr/src/usr.bin/f77/libU77/fdate_.c b/usr/src/usr.bin/f77/libU77/fdate_.c index 909c9332ed..f35ecc5b72 100644 --- a/usr/src/usr.bin/f77/libU77/fdate_.c +++ b/usr/src/usr.bin/f77/libU77/fdate_.c @@ -1,6 +1,12 @@ /* -char id_fdate[] = "@(#)fdate_.c 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. * + * @(#)fdate_.c 5.1 %G% + */ + +/* * Return date and time in an ASCII string. * * calling sequence: diff --git a/usr/src/usr.bin/f77/libU77/fgetc_.c b/usr/src/usr.bin/f77/libU77/fgetc_.c index 3835422295..dd007f38e1 100644 --- a/usr/src/usr.bin/f77/libU77/fgetc_.c +++ b/usr/src/usr.bin/f77/libU77/fgetc_.c @@ -1,6 +1,12 @@ /* -char id_fgetc[] = "@(#)fgetc_.c 1.5"; + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. * + * @(#)fgetc_.c 5.1 %G% + */ + +/* * get a character from a logical unit bypassing formatted I/O * * calling sequence: diff --git a/usr/src/usr.bin/f77/libU77/fork_.c b/usr/src/usr.bin/f77/libU77/fork_.c index 31a376f526..34b48c3530 100644 --- a/usr/src/usr.bin/f77/libU77/fork_.c +++ b/usr/src/usr.bin/f77/libU77/fork_.c @@ -1,6 +1,12 @@ /* -char id_fork[] = "@(#)fork_.c 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. * + * @(#)fork_.c 5.1 %G% + */ + +/* * fork a copy of this process * * calling sequence: diff --git a/usr/src/usr.bin/f77/libU77/fputc_.c b/usr/src/usr.bin/f77/libU77/fputc_.c index 6d212b184b..de82608a8c 100644 --- a/usr/src/usr.bin/f77/libU77/fputc_.c +++ b/usr/src/usr.bin/f77/libU77/fputc_.c @@ -1,6 +1,12 @@ /* -char id_fputc[] = @(#)fputc_.c 1.4"; + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. * + * @(#)fputc_.c 5.1 %G% + */ + +/* * write a character to a logical unit bypassing formatted I/O * * calling sequence: diff --git a/usr/src/usr.bin/f77/libU77/fseek_.c b/usr/src/usr.bin/f77/libU77/fseek_.c index 5cbe13c75c..7e28675a11 100644 --- a/usr/src/usr.bin/f77/libU77/fseek_.c +++ b/usr/src/usr.bin/f77/libU77/fseek_.c @@ -1,6 +1,12 @@ /* -char id_fseek[] = "@(#)fseek_.c 1.2"; + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. * + * @(#)fseek_.c 5.1 %G% + */ + +/* * position a file associated with a fortran logical unit * * calling sequence: diff --git a/usr/src/usr.bin/f77/libU77/fstat_.c b/usr/src/usr.bin/f77/libU77/fstat_.c index b60166c0b3..9070feb6e8 100644 --- a/usr/src/usr.bin/f77/libU77/fstat_.c +++ b/usr/src/usr.bin/f77/libU77/fstat_.c @@ -1,6 +1,12 @@ /* -char id_fstat[] = "@(#)fstat_.c 1.3"; + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. * + * @(#)fstat_.c 5.1 %G% + */ + +/* * get file status * * calling sequence: diff --git a/usr/src/usr.bin/f77/libU77/ftell_.c b/usr/src/usr.bin/f77/libU77/ftell_.c index 0b0dcd022d..805b26ec9c 100644 --- a/usr/src/usr.bin/f77/libU77/ftell_.c +++ b/usr/src/usr.bin/f77/libU77/ftell_.c @@ -1,6 +1,12 @@ /* -char id_ftell[] = "@(#)ftell_.c 1.2"; + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. * + * @(#)ftell_.c 5.1 %G% + */ + +/* * return current file position * * calling sequence: diff --git a/usr/src/usr.bin/f77/libU77/gerror_.c b/usr/src/usr.bin/f77/libU77/gerror_.c index b984e9e17e..c6deb29731 100644 --- a/usr/src/usr.bin/f77/libU77/gerror_.c +++ b/usr/src/usr.bin/f77/libU77/gerror_.c @@ -1,6 +1,12 @@ /* -char id_gerror[] = "@(#)gerror_.c 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. * + * @(#)gerror_.c 5.1 %G% + */ + +/* * Return a standard error message in a character string. * * calling sequence: diff --git a/usr/src/usr.bin/f77/libU77/getarg_.c b/usr/src/usr.bin/f77/libU77/getarg_.c index fa02dd06d2..b3a9c3ed3c 100644 --- a/usr/src/usr.bin/f77/libU77/getarg_.c +++ b/usr/src/usr.bin/f77/libU77/getarg_.c @@ -1,6 +1,12 @@ /* -char id_getarg[] = "@(#)getarg_.c 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. * + * @(#)getarg_.c 5.1 %G% + */ + +/* * return a specified command line argument * * calling sequence: diff --git a/usr/src/usr.bin/f77/libU77/getc_.c b/usr/src/usr.bin/f77/libU77/getc_.c index eddd815427..1f26f82c53 100644 --- a/usr/src/usr.bin/f77/libU77/getc_.c +++ b/usr/src/usr.bin/f77/libU77/getc_.c @@ -1,6 +1,12 @@ /* -char id_getc[] = "@(#)getc_.c 1.4"; + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. * + * @(#)getc_.c 5.1 %G% + */ + +/* * get a character from the standard input * * calling sequence: diff --git a/usr/src/usr.bin/f77/libU77/getcwd_.c b/usr/src/usr.bin/f77/libU77/getcwd_.c index 4adaf0e3c3..8aa93d6e65 100644 --- a/usr/src/usr.bin/f77/libU77/getcwd_.c +++ b/usr/src/usr.bin/f77/libU77/getcwd_.c @@ -1,5 +1,12 @@ /* -char id_getcwd[] = "@(#)getcwd_.c 1.5"; + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. + * + * @(#)getcwd_.c 5.1 %G% + */ + +/* * Get pathname of current working directory. * * calling sequence: diff --git a/usr/src/usr.bin/f77/libU77/getenv_.c b/usr/src/usr.bin/f77/libU77/getenv_.c index bf73c2a2cc..173cb5bd00 100644 --- a/usr/src/usr.bin/f77/libU77/getenv_.c +++ b/usr/src/usr.bin/f77/libU77/getenv_.c @@ -1,6 +1,12 @@ /* -char id_getenv[] = "@(#)getenv_.c 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. * + * @(#)getenv_.c 5.1 %G% + */ + +/* * return environment variables * * calling sequence: diff --git a/usr/src/usr.bin/f77/libU77/getgid_.c b/usr/src/usr.bin/f77/libU77/getgid_.c index b367426b09..39872f1433 100644 --- a/usr/src/usr.bin/f77/libU77/getgid_.c +++ b/usr/src/usr.bin/f77/libU77/getgid_.c @@ -1,6 +1,12 @@ /* -char id_getgid[] = "@(#)getgid_.c 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. * + * @(#)getgid_.c 5.1 %G% + */ + +/* * get group id * * calling sequence: diff --git a/usr/src/usr.bin/f77/libU77/getlog_.c b/usr/src/usr.bin/f77/libU77/getlog_.c index cc4e6f761a..e5c4243354 100644 --- a/usr/src/usr.bin/f77/libU77/getlog_.c +++ b/usr/src/usr.bin/f77/libU77/getlog_.c @@ -1,6 +1,12 @@ /* -char id_getlog[] = "@(#)getlog_.c 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. * + * @(#)getlog_.c 5.1 %G% + */ + +/* * get login name of user * * calling sequence: diff --git a/usr/src/usr.bin/f77/libU77/getpid_.c b/usr/src/usr.bin/f77/libU77/getpid_.c index e0fb50d52c..15ee5a52cb 100644 --- a/usr/src/usr.bin/f77/libU77/getpid_.c +++ b/usr/src/usr.bin/f77/libU77/getpid_.c @@ -1,6 +1,12 @@ /* -char id_getpid[] = "@(#)getpid_.c 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. * + * @(#)getpid_.c 5.1 %G% + */ + +/* * get process id * * calling sequence: diff --git a/usr/src/usr.bin/f77/libU77/getuid_.c b/usr/src/usr.bin/f77/libU77/getuid_.c index 52912d7d83..792c7d4746 100644 --- a/usr/src/usr.bin/f77/libU77/getuid_.c +++ b/usr/src/usr.bin/f77/libU77/getuid_.c @@ -1,6 +1,12 @@ /* -char id_getuid[] = "@(#)getuid_.c 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. * + * @(#)getuid_.c 5.1 %G% + */ + +/* * get user id * * calling sequence: diff --git a/usr/src/usr.bin/f77/libU77/gmtime_.c b/usr/src/usr.bin/f77/libU77/gmtime_.c index 7f2369d28d..dcefd65c20 100644 --- a/usr/src/usr.bin/f77/libU77/gmtime_.c +++ b/usr/src/usr.bin/f77/libU77/gmtime_.c @@ -1,6 +1,12 @@ /* -char id_gmtime[] = "@(#)gmtime_.c 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. * + * @(#)gmtime_.c 5.1 %G% + */ + +/* * return broken down time * * calling sequence: diff --git a/usr/src/usr.bin/f77/libU77/hostnm_.c b/usr/src/usr.bin/f77/libU77/hostnm_.c index 61edd3b2e2..806f121bfa 100644 --- a/usr/src/usr.bin/f77/libU77/hostnm_.c +++ b/usr/src/usr.bin/f77/libU77/hostnm_.c @@ -1,6 +1,13 @@ +/* + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. + * + * @(#)hostnm_.c 5.1 %G% + */ + /* * hostnm - return this machines hostname - * @(#)hostnm_.c 1.1 * * synopsis: * integer function hostnm (name) diff --git a/usr/src/usr.bin/f77/libU77/iargc_.c b/usr/src/usr.bin/f77/libU77/iargc_.c index e1ba1000ce..716fdab22a 100644 --- a/usr/src/usr.bin/f77/libU77/iargc_.c +++ b/usr/src/usr.bin/f77/libU77/iargc_.c @@ -1,6 +1,12 @@ /* -char id_iargc[] = "@(#)iargc_.c 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. * + * @(#)iargc_.c 5.1 %G% + */ + +/* * return the number of args on the command line following the command name * * calling sequence: diff --git a/usr/src/usr.bin/f77/libU77/idate_.c b/usr/src/usr.bin/f77/libU77/idate_.c index 129ed08139..9dd3dae9bf 100644 --- a/usr/src/usr.bin/f77/libU77/idate_.c +++ b/usr/src/usr.bin/f77/libU77/idate_.c @@ -1,6 +1,12 @@ /* -char id_idate[] = "@(#)idate_.c 1.2"; + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. * + * @(#)idate_.c 5.1 %G% + */ + +/* * return date in numerical form * * calling sequence: diff --git a/usr/src/usr.bin/f77/libU77/ierrno_.c b/usr/src/usr.bin/f77/libU77/ierrno_.c index 0709ff55e7..7e78ba4ced 100644 --- a/usr/src/usr.bin/f77/libU77/ierrno_.c +++ b/usr/src/usr.bin/f77/libU77/ierrno_.c @@ -1,6 +1,12 @@ /* -char id_ierrno[] = "@(#)ierrno_.c 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. * + * @(#)ierrno_.c 5.1 %G% + */ + +/* * return the current value of the system error register * * calling sequence: diff --git a/usr/src/usr.bin/f77/libU77/ioinit.f b/usr/src/usr.bin/f77/libU77/ioinit.f index 0953118f1c..ca4f3e2090 100644 --- a/usr/src/usr.bin/f77/libU77/ioinit.f +++ b/usr/src/usr.bin/f77/libU77/ioinit.f @@ -1,6 +1,13 @@ C +C Copyright (c) 1980 Regents of the University of California. +C All rights reserved. The Berkeley software License Agreement +C specifies the terms and conditions for redistribution. +C +C @(#)ioinit.f 5.1 (Berkeley) %G% +C +C C ioinit - initialize the I/O system -C @(#)ioinit.f 1.5 +C C synopsis: C logical function ioinit (cctl, bzro, apnd, prefix, vrbose) C logical cctl, bzro, apnd, vrbose diff --git a/usr/src/usr.bin/f77/libU77/isatty_.c b/usr/src/usr.bin/f77/libU77/isatty_.c index c9fcdde2b2..30a895edf4 100644 --- a/usr/src/usr.bin/f77/libU77/isatty_.c +++ b/usr/src/usr.bin/f77/libU77/isatty_.c @@ -1,6 +1,12 @@ /* -char id_isatty[] = "@(#)isatty_.c 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. * + * @(#)isatty_.c 5.1 %G% + */ + +/* * determine if stream is associated with a tty (async port) * * calling sequence: diff --git a/usr/src/usr.bin/f77/libU77/itime_.c b/usr/src/usr.bin/f77/libU77/itime_.c index 4caac0b32b..f901c3d2c1 100644 --- a/usr/src/usr.bin/f77/libU77/itime_.c +++ b/usr/src/usr.bin/f77/libU77/itime_.c @@ -1,6 +1,12 @@ /* -char id_itime[] = "@(#)itime_.c 1.2"; + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. * + * @(#)itime_.c 5.1 %G% + */ + +/* * return the current time in numerical form * * calling sequence: diff --git a/usr/src/usr.bin/f77/libU77/kill_.c b/usr/src/usr.bin/f77/libU77/kill_.c index b5334faba6..6dbde45e5b 100644 --- a/usr/src/usr.bin/f77/libU77/kill_.c +++ b/usr/src/usr.bin/f77/libU77/kill_.c @@ -1,6 +1,12 @@ /* -char id_kill[] = "@(#)kill_.c 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. * + * @(#)kill_.c 5.1 %G% + */ + +/* * send a signal to a process * * calling sequence: diff --git a/usr/src/usr.bin/f77/libU77/link_.c b/usr/src/usr.bin/f77/libU77/link_.c index 5cc0d0c4e9..d826d55ef9 100644 --- a/usr/src/usr.bin/f77/libU77/link_.c +++ b/usr/src/usr.bin/f77/libU77/link_.c @@ -1,6 +1,12 @@ /* -char id_link[] = "@(#)link_.c 1.2"; + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. * + * @(#)link_.c 5.1 %G% + */ + +/* * make a link to an existing file * * calling sequence: diff --git a/usr/src/usr.bin/f77/libU77/loc_.c b/usr/src/usr.bin/f77/libU77/loc_.c index a48b620b9b..eb6cce876a 100644 --- a/usr/src/usr.bin/f77/libU77/loc_.c +++ b/usr/src/usr.bin/f77/libU77/loc_.c @@ -1,6 +1,12 @@ /* -char id_loc[] = "@(#)loc_.c 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. * + * @(#)loc_.c 5.1 %G% + */ + +/* * Return the address of the argument. * * calling sequence: diff --git a/usr/src/usr.bin/f77/libU77/lstat_.c b/usr/src/usr.bin/f77/libU77/lstat_.c index 4fe09183e2..4d3a9799ee 100644 --- a/usr/src/usr.bin/f77/libU77/lstat_.c +++ b/usr/src/usr.bin/f77/libU77/lstat_.c @@ -1,6 +1,12 @@ /* -char id_stat[] = "@(#)lstat_.c 1.2"; + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. * + * @(#)lstat_.c 5.1 %G% + */ + +/* * get file status * * calling sequence: diff --git a/usr/src/usr.bin/f77/libU77/ltime_.c b/usr/src/usr.bin/f77/libU77/ltime_.c index 93db9b8d30..9693f634f7 100644 --- a/usr/src/usr.bin/f77/libU77/ltime_.c +++ b/usr/src/usr.bin/f77/libU77/ltime_.c @@ -1,6 +1,12 @@ /* -char id_ltime[] = "@(#)ltime_.c 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. * + * @(#)ltime_.c 5.1 %G% + */ + +/* * return broken down time * * calling sequence: diff --git a/usr/src/usr.bin/f77/libU77/malloc_.c b/usr/src/usr.bin/f77/libU77/malloc_.c index 09f9708e52..29232e9a6a 100644 --- a/usr/src/usr.bin/f77/libU77/malloc_.c +++ b/usr/src/usr.bin/f77/libU77/malloc_.c @@ -1,6 +1,12 @@ /* -char id_malloc[] = "@(#)malloc_.c 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. * + * @(#)malloc_.c 5.1 %G% + */ + +/* * allows f77 programs to dynamicly allocate space * three routines: * call malloc(need, addr) diff --git a/usr/src/usr.bin/f77/libU77/mkindx.c b/usr/src/usr.bin/f77/libU77/mkindx.c index 75e4c75b24..207f8a9df3 100644 --- a/usr/src/usr.bin/f77/libU77/mkindx.c +++ b/usr/src/usr.bin/f77/libU77/mkindx.c @@ -1,3 +1,9 @@ +/* + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. + */ + /* * mkindx.c - utility to format a nice index to source files, etc. * @@ -6,7 +12,7 @@ # include -char id_mkindx[] = "@(#)mkindx.c 1.1"; +char id_mkindx[] = "@(#)mkindx.c 5.1 %G%"; char list[10000] = "pwd >>index; echo \" \" >>index; ls -l "; char *apndx = ">>index"; diff --git a/usr/src/usr.bin/f77/libU77/mkvers.c b/usr/src/usr.bin/f77/libU77/mkvers.c index dfee0d3896..9e424e51e4 100644 --- a/usr/src/usr.bin/f77/libU77/mkvers.c +++ b/usr/src/usr.bin/f77/libU77/mkvers.c @@ -1,4 +1,10 @@ -char id_mkvers[] = "@(#)mkvers.c 1.2"; +/* + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. + */ + +char id_mkvers[] = "@(#)mkvers.c 5.1 %G%"; /* * extract sccs id strings from source files * first arg is lib name. diff --git a/usr/src/usr.bin/f77/libU77/perror_.c b/usr/src/usr.bin/f77/libU77/perror_.c index ded1cc9735..6fc86b93c9 100644 --- a/usr/src/usr.bin/f77/libU77/perror_.c +++ b/usr/src/usr.bin/f77/libU77/perror_.c @@ -1,6 +1,12 @@ /* -char id_perror[] = "@(#)perror_.c 1.2"; + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. * + * @(#)perror_.c 5.1 %G% + */ + +/* * write a standard error message to the standard error output * * calling sequence: diff --git a/usr/src/usr.bin/f77/libU77/putc_.c b/usr/src/usr.bin/f77/libU77/putc_.c index 261f09f54c..a63d21f017 100644 --- a/usr/src/usr.bin/f77/libU77/putc_.c +++ b/usr/src/usr.bin/f77/libU77/putc_.c @@ -1,6 +1,12 @@ /* -char id_putc[] = "@(#)putc_.c 1.3"; + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. * + * @(#)putc_.c 5.1 %G% + */ + +/* * write a character to the standard output * * calling sequence: diff --git a/usr/src/usr.bin/f77/libU77/qsort_.c b/usr/src/usr.bin/f77/libU77/qsort_.c index e119a23a51..2bc5fe0131 100644 --- a/usr/src/usr.bin/f77/libU77/qsort_.c +++ b/usr/src/usr.bin/f77/libU77/qsort_.c @@ -1,6 +1,12 @@ /* -char id_qsort[] = "@(#)qsort_.c 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. * + * @(#)qsort_.c 5.1 %G% + */ + +/* * quick sort interface * * calling sequence: diff --git a/usr/src/usr.bin/f77/libU77/rename_.c b/usr/src/usr.bin/f77/libU77/rename_.c index 66cb09744e..b486cc36a0 100644 --- a/usr/src/usr.bin/f77/libU77/rename_.c +++ b/usr/src/usr.bin/f77/libU77/rename_.c @@ -1,6 +1,12 @@ /* -char id_rename[] = "@(#)rename_.c 1.2"; + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. * + * @(#)rename_.c 5.1 %G% + */ + +/* * rename a file atomically * * synopsis: diff --git a/usr/src/usr.bin/f77/libU77/sleep_.c b/usr/src/usr.bin/f77/libU77/sleep_.c index b159131119..8546867881 100644 --- a/usr/src/usr.bin/f77/libU77/sleep_.c +++ b/usr/src/usr.bin/f77/libU77/sleep_.c @@ -1,6 +1,12 @@ /* -char id_sleep[] = "@(#)sleep_.c 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. * + * @(#)sleep_.c 5.1 %G% + */ + +/* * sleep for awhile * * calling sequence: diff --git a/usr/src/usr.bin/f77/libU77/stat_.c b/usr/src/usr.bin/f77/libU77/stat_.c index 5e1aaed066..3d63957875 100644 --- a/usr/src/usr.bin/f77/libU77/stat_.c +++ b/usr/src/usr.bin/f77/libU77/stat_.c @@ -1,6 +1,12 @@ /* -char id_stat[] = "@(#)stat_.c 1.3"; + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. * + * @(#)stat_.c 5.1 %G% + */ + +/* * get file status * * calling sequence: diff --git a/usr/src/usr.bin/f77/libU77/symlnk_.c b/usr/src/usr.bin/f77/libU77/symlnk_.c index 7e614309be..c359f7fc23 100644 --- a/usr/src/usr.bin/f77/libU77/symlnk_.c +++ b/usr/src/usr.bin/f77/libU77/symlnk_.c @@ -1,6 +1,12 @@ /* -char id_symlnk[] = "@(#)symlnk_.c 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. * + * @(#)symlnk_.c 5.1 %G% + */ + +/* * make a symbolic link to a file * * calling sequence: diff --git a/usr/src/usr.bin/f77/libU77/system_.c b/usr/src/usr.bin/f77/libU77/system_.c index be52f45910..6d1d9a74fa 100644 --- a/usr/src/usr.bin/f77/libU77/system_.c +++ b/usr/src/usr.bin/f77/libU77/system_.c @@ -1,6 +1,12 @@ /* -char id_system[] = "@(#)system_.c 1.5"; + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. * + * @(#)system_.c 5.1 %G% + */ + +/* * execute a unix command * * calling sequence: diff --git a/usr/src/usr.bin/f77/libU77/tapeio.c b/usr/src/usr.bin/f77/libU77/tapeio.c index f1a55a8d76..5c72ce6f5f 100644 --- a/usr/src/usr.bin/f77/libU77/tapeio.c +++ b/usr/src/usr.bin/f77/libU77/tapeio.c @@ -1,6 +1,12 @@ /* -char id_tapeio[] = "@(#)tapeio.c 1.2"; + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. * + * @(#)tapeio.c 5.1 %G% + */ + +/* * tapeio - tape device specific I/O routines * * ierr = topen (tlu, name, labelled) diff --git a/usr/src/usr.bin/f77/libU77/time_.c b/usr/src/usr.bin/f77/libU77/time_.c index a4805ccae0..4f814c7bca 100644 --- a/usr/src/usr.bin/f77/libU77/time_.c +++ b/usr/src/usr.bin/f77/libU77/time_.c @@ -1,6 +1,12 @@ /* -char id_time[] = "@(#)time_.c 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. * + * @(#)time_.c 5.1 %G% + */ + +/* * return the current time as an integer * * calling sequence: diff --git a/usr/src/usr.bin/f77/libU77/ttynam_.c b/usr/src/usr.bin/f77/libU77/ttynam_.c index 3e0d790fb4..e53e08cba2 100644 --- a/usr/src/usr.bin/f77/libU77/ttynam_.c +++ b/usr/src/usr.bin/f77/libU77/ttynam_.c @@ -1,6 +1,12 @@ /* -char id_ttynam[] = "@(#)ttynam_.c 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. * + * @(#)ttynam_.c 5.1 %G% + */ + +/* * Return name of tty port associated with lunit * * calling sequence: diff --git a/usr/src/usr.bin/f77/libU77/unlink_.c b/usr/src/usr.bin/f77/libU77/unlink_.c index bfdbe07fba..592686ca19 100644 --- a/usr/src/usr.bin/f77/libU77/unlink_.c +++ b/usr/src/usr.bin/f77/libU77/unlink_.c @@ -1,6 +1,12 @@ /* -char id_unlink[] = "@(#)unlink_.c 1.2"; + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. * + * @(#)unlink_.c 5.1 %G% + */ + +/* * unlink (remove) a file * * calling sequence: diff --git a/usr/src/usr.bin/f77/libU77/wait_.c b/usr/src/usr.bin/f77/libU77/wait_.c index ca3153f43d..14f56bb048 100644 --- a/usr/src/usr.bin/f77/libU77/wait_.c +++ b/usr/src/usr.bin/f77/libU77/wait_.c @@ -1,6 +1,12 @@ /* -char id_wait[] = "@(#)wait_.c 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. * + * @(#)wait_.c 5.1 %G% + */ + +/* * wait for a child to die * * calling sequence: -- 2.20.1