SpinifexCellPredicatesImpl.mesa
Copyright © 1984 by Xerox Corporation. All rights reserved.
Written by Shand, September 12, 1983 11:40 pm
Last Edited by: Shand, August 24, 1984 6:42:53 pm PDT
Last Edited by: Beretta, October 30, 1984 9:54:10 am PST
DIRECTORY
CD USING [ObPtr, CellPtr],
CDProperties USING [GetPropFromObject],
SpinifexCellPredicates
;
SpinifexCellPredicatesImpl:
CEDAR
PROGRAM
IMPORTS CDProperties
EXPORTS SpinifexCellPredicates
~ BEGIN
IsLogicalCell:
PUBLIC PROCEDURE [ob:
CD.ObPtr]
RETURNS [
BOOLEAN] ~ {
Conditional:
PROCEDURE [ob:
CD.ObPtr]
RETURNS [
BOOLEAN] ~ {
RETURN [CDProperties.GetPropFromObject[ob, $CDxPropagate]=$CDxPropagate]
};
RETURN [~Conditional[ob] AND ob.p.inDirectory]
};
CanDisplayErrors:
PUBLIC PROCEDURE [ob:
CD.ObPtr]
RETURNS [
BOOLEAN] ~ {
-- Two tests to make doubly sure that object is a cell (with application list).
RETURN [ob.p.objectType = $Cell AND ISTYPE[ob.specificRef, CD.CellPtr]];
};
END.