NSHeraldImpl.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.
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]