<> <> <> <> <<<>>> DIRECTORY NSString USING [String], PrintingTypes USING [Option]; TestPattern: CEDAR DEFINITIONS = BEGIN TestPatternID: TYPE = [0..tpLastPlusOne); tp0: TestPatternID = 0; tp1, alignment: TestPatternID = 1; tp2: TestPatternID = 2; tp3, cam: TestPatternID = 3; tp4, lightDusting: TestPatternID = 4; tp5, darkDusting: TestPatternID = 5; tp6: TestPatternID = 6; tp7: TestPatternID = 7; tp8: TestPatternID = 8; tp9, greyDusting: TestPatternID = 9; tp10: TestPatternID = 10; tp11, bansheeAlignment: TestPatternID = tp10 + 1; tp12, randomAssignFromHere: TestPatternID = tp11 + 1; tpLast: TestPatternID = tpLastPlusOne - 1; tpLastPlusOne: CARDINAL = 40; NotFound: SIGNAL; --raised if test pattern not resident on server Init: PROCEDURE [printingOption: PrintingTypes.Option, deleteIncompatibleTPs: BOOLEAN _ TRUE --if TRUE, test patterns incompatible with current printing option will be deleted ]; Locate: PROCEDURE [name: NSString.String] RETURNS [fileID: NSString.String, id: TestPatternID]; <> <> Enumerate: PROCEDURE [proc: PROC [id: TestPatternID, name: NSString.String]]; <> Name: PROCEDURE [id: TestPattern.TestPatternID] RETURNS [name: NSString.String]; <> CatalogTPs: PROCEDURE[]; END. -- of TestPattern LOG July 23, 1981 8:47 PM by J. Beeley: Created file. 17-Dec-81 11:07:06 By Muntz: Converted to NSFile, Locate RETURNS NSFile.Handle. 10-Feb-82 17:05:09 By JB: Changed LONG STRING to NSString.String; added Enumerate and tp's. 27-Feb-82 16:00:49 by JB: Added CatalogTPs. 27-Sep-82 8:03:55 - Alfvin - Converted to Pilot 9.0, Filing 5.0 and Services 5.0. 17-Aug-83 14:14:24 - Jacks - Changed as part of PSCommand rework: changed Locate to find a test pattern given its name instead of its id. 20-Jan-84 19:34:02 - Jacks - Converted to 8.0 FS. 30-Jan-84 19:02:56 - Jacks - Locate returns ID instead of reference. 14-Jun-85 17:14:57 - Jacks - Added copyright notice; folded in changes from TestPatternExtras: added Init, changed NotFound from ERROR to SIGNAL; allow Name to raise NotFound.