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/fio/fdevblk.x | 42 ++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 42 insertions(+) create mode 100644 sys/fio/fdevblk.x (limited to 'sys/fio/fdevblk.x') diff --git a/sys/fio/fdevblk.x b/sys/fio/fdevblk.x new file mode 100644 index 00000000..b3a73cab --- /dev/null +++ b/sys/fio/fdevblk.x @@ -0,0 +1,42 @@ +# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc. + +include +include + +# FDEVBLK -- Get the device block size of the device on which the named logical +# directory resides. The named logical directory must have write permission. +# A file pathname may be used to pass the logical directory name. + +int procedure fdevblk (path) + +char path[ARB] # pathname of directory or file + +pointer sp, fname, ldir, tempfn +int fd, junk, block_size +int fstati(), open(), fnldir() +errchk mktemp, open, close + +begin + call smark (sp) + call salloc (ldir, SZ_PATHNAME, TY_CHAR) + call salloc (fname, SZ_PATHNAME, TY_CHAR) + call salloc (tempfn, SZ_PATHNAME, TY_CHAR) + + # Generate the name of a temporary file in named directory. + junk = fnldir (path, Memc[ldir], SZ_PATHNAME) + call strcpy (Memc[ldir], Memc[fname], SZ_PATHNAME) + call strcat ("zbk", Memc[fname], SZ_PATHNAME) + call mktemp (Memc[fname], Memc[tempfn], SZ_PATHNAME) + + # Open the file and get the device block size. + iferr { + fd = open (Memc[tempfn], NEW_FILE, BINARY_FILE) + block_size = fstati (fd, F_BLKSIZE) + call close (fd) + call delete (Memc[tempfn]) + } then + call syserrs (SYS_FACCDIR, Memc[ldir]) + + call sfree (sp) + return (block_size) +end -- cgit