<> <> <> <> <> <> <> DIRECTORY NSHerald USING [], NSString USING [String]; NSHeraldImpl: CEDAR PROGRAM IMPORTS EXPORTS NSHerald = BEGIN GetHerald: PUBLIC PROCEDURE [proc: PROCEDURE [NSString.String]] = BEGIN proc["Cedar Services Common Software "]; GetVersion[proc] END; GetExecHerald: PUBLIC PROCEDURE [proc: PROCEDURE [NSString.String]] = BEGIN proc["Cedar Services Common Software Exec. "]; GetVersion[proc] END; GetCopyrightMsg: PUBLIC PROCEDURE [proc: PROCEDURE [NSString.String]] = { proc["Copyright (c) 1986 by Xerox Corporation. All rights reserved.\n"]}; DevelopmentMode: PUBLIC PROCEDURE RETURNS [develMode: BOOLEAN] = { proc: PROC [s: NSString.String]={develMode _ (s[s.length] NOT IN ['0..'9])}; GetVersion[proc]}; GetVersion: PUBLIC PROCEDURE [proc: PROCEDURE [NSString.String]] = BEGIN proc["1.0"] END; END. -- of NSHeraldImpl Log [Time - Person - Action]