// CompileIfs.cm
// Copyright Xerox Corporation 1979, 1980, 1981, 1984
// Last modified 8 August 1984 by Fiala,
// Last modified September 23, 1982  1:15 PM by Taft

// This command file assumes a disk constructed using IfsDevDisk.cm,
//  and leaves it with all IFS .br files compiled and all sources
//  and unnecessary other files deleted.

// What file server has the IFS dump files'?
CopyQuote DumpFileServer.cm ← @DumpFileServer@

Ftp @DumpFileServer@ Directory/c IFS Load/c IfsDecl.dm IfsKernel.dm
@CompileIfsKernel@
Delete *.bcpl *.asm

Ftp @DumpFileServer@ Directory/c IFS Load/c IfsFileSys.dm
@CompileIfsFileSys@
Delete *.bcpl *.asm

Ftp @DumpFileServer@ Directory/c IFS Load/c IfsRsMgr.dm
@CompileIfsRsMgr@
Delete *.bcpl *.asm

Ftp @DumpFileServer@ Directory/c IFS Load/c IfsFtp.dm
@CompileIfsFtp@
Delete *.bcpl *.asm

Ftp @DumpFileServer@ Directory/c IFS Load/c IfsMail.dm
@CompileIfsMail@
Delete *.bcpl *.asm

Ftp @DumpFileServer@ Directory/c IFS Load/c IfsCopyDisk.dm
@CompileIfsCopyDisk@
Delete *.bcpl *.asm

Ftp @DumpFileServer@ Directory/c IFS Load/c IfsMisc.dm
@CompileIfsMisc@
Delete *.bcpl *.asm

Ftp @DumpFileServer@ Directory/c IFS Load/c IfsLeaf.dm
@CompileIfsLeaf@
Delete *.bcpl *.asm

Ftp @DumpFileServer@ Directory/c IFS Load/c IfsTelnet.dm
@CompileIfsTelnet@
Delete *.bcpl *.asm

Ftp @DumpFileServer@ Directory/c IFS Load/c IfsBackup.dm
@CompileIfsBackup@
Delete *.bcpl *.asm

Ftp @DumpFileServer@ Directory/c IFS Load/c IfsLeftovers.dm
@CompileIfsLeftovers@
Delete *.bcpl *.asm

Ftp @DumpFileServer@ Directory/c IFS Load/c IfsMc.dm Close/c ↑
Open/c Indigo Directory/c Alto ↑
 Retrieve/c Mu.run PackMu.run ↑
Directory/c AltoSource ↑
 Retrieve/c AltoConsts23.mu ↑
 Load/s TFSSources.dm TriconBody.mu
@CompileIfsMc@
Delete *.mu Mu.run PackMu.run

// There should be no errors in any of the error files!
Copy Ifs.errorFiles ← *.bt *.er
Delete *.bt *.er DumpFileServer.cm

WriteDirectory

@LoadIfs@