From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001 From: Joseph Hunkeler Date: Wed, 8 Jul 2015 20:46:52 -0400 Subject: Initial commit --- sys/mtio/mtstatus.x | 34 ++++++++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) create mode 100644 sys/mtio/mtstatus.x (limited to 'sys/mtio/mtstatus.x') diff --git a/sys/mtio/mtstatus.x b/sys/mtio/mtstatus.x new file mode 100644 index 00000000..967d25df --- /dev/null +++ b/sys/mtio/mtstatus.x @@ -0,0 +1,34 @@ +# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc. + +# MTSTATUS -- Print the status of an allocated magtape device, i.e., print the +# lock file as a text file. Called by the DEVSTATUS task. + +procedure mtstatus (out, mtname) + +int out #I output file +char mtname[ARB] #I magtape specification + +int in +pointer sp, lockfile +errchk open, fcopyo +int open(), access() + +begin + call smark (sp) + call salloc (lockfile, SZ_FNAME, TY_CHAR) + + call mt_sync (OK) + + call mt_glock (mtname, Memc[lockfile], SZ_FNAME) + if (access (Memc[lockfile], 0, 0) == NO) { + call fprintf (out, "tape position for %s is undefined\n") + call pargstr (mtname) + } else { + # Print the lockfile. + in = open (Memc[lockfile], READ_ONLY, TEXT_FILE) + call fcopyo (in, out) + call close (in) + } + + call sfree (sp) +end -- cgit