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. –TestPattern.mesa Copyright (C) Xerox Corporation 1981, 1982, 1983, 1984, 1985, 1986. All rights reserved. Last edited by Jacks: 8-Jul-85 17:43:16 Tim Diebert: October 27, 1986 12:40:45 pm PST <> It is client's responsibility to open the test pattern file. Raises NotFound, which should not be resumed. Calls proc once for each Test Pattern (not necessarily in id order). Raises NotFound if the test pattern is not resident on the filing volume. The signal may be resumed, in which case the name of the TP is still returned, if known. If the name is unknown NSString.nullString is returned. ÊÛ˜codešœ™KšœX™XKšœ(™(K™-—K˜K™AK˜šÏk ˜ Kšœ œ ˜Kšœœ ˜—K˜KšÏnœœœ˜&˜Kšœœ˜)—˜K˜K˜"K˜K˜K˜%K˜$K˜K˜K˜K˜$K˜K˜1K˜5K˜*Kšœœ˜—˜KšžœœÏc/˜AK˜Kš žœ œ@œœŸRœ˜³—˜šžœ œœ.˜_Kšœ<™