// IfsVersion.bcpl - prints file system name and version
// Copyright Xerox Corporation 1979, 1980, 1981, 1982, 1983, 1984
// Last modified February 14, 1984  6:47 AM by Boggs

get "IFS.decl"

external
[
// outgoing procedures
PrintIFSVersion

// incoming procedures
PutTemplate

// incoming statics
primaryIFS; leafPresent
]


//----------------------------------------------------------------------------
let PrintIFSVersion(stream, serverName) be
//----------------------------------------------------------------------------
[
PutTemplate(stream, "$S 1.38.1$S",
 primaryIFS>>IFS.name, (leafPresent? "L", ""))
if serverName ne 0 then
   PutTemplate(stream, ", $S of February 14, 1984", serverName)
]