// 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) ]