// IfsVersion.bcpl - prints file system name and version
// Copyright Xerox Corporation 1979, 1980, 1981, 1982, 1983
// Last modified October 13, 1983  6:26 PM by Taft

get "IFS.decl"

external
[
// outgoing procedures
PrintIFSVersion

// incoming procedures
PutTemplate

// incoming statics
primaryIFS; leafPresent
]


//----------------------------------------------------------------------------
let PrintIFSVersion(stream, serverName) be
//----------------------------------------------------------------------------
[
PutTemplate(stream, "$S 1.38$S",
 primaryIFS>>IFS.name, (leafPresent? "L", ""))
if serverName ne 0 then
   PutTemplate(stream, ", $S of October 13, 1983", serverName)
]