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] bNSHeraldImpl.mesa Copyright (C) 1984, 1985 by Xerox Corporation. All rights reserved. Last revised by Yuliongsiu: 2-Sep-86 17:26:33 Tim Diebert: December 10, 1986 2:51:41 pm PST CEDAR VERSION 1.0 Overview: This module implements the NSHerald interface. It provides information to determine the name and version of the current Server. Κ‘˜codešœ™KšœD™DKšœ4™4K™-—K˜Kšœ™K˜Kšœ ™ Kšœ‚™‚K˜K˜šΟk ˜ Kšœ œ˜Kšœ œ ˜K˜—šΠln œœ˜Kšœ˜Kšœ ˜K˜—˜š Οn œœ œ œ˜GK˜(K˜Kšœ˜K˜—š Ÿ œœ œ œ˜KK˜.K˜Kšœ˜K˜—šŸœœ œ œ˜IKšœI˜IK˜—š Ÿœœ œœ œ˜CKšœœ0œœ ˜LK˜——˜šŸ œœ œ œ˜BKšœ œ˜K˜——˜KšœΟc˜—K˜K˜K˜—…—fY