IPAttributes.mesa
Copyright Ó 1992 by Xerox Corporation. All rights reserved.
Kenneth A. Pier, January 31, 1992 10:08 am PST
Michael Plass, July 6, 1993 10:01 am PDT
This module provides a procedure that can be called from registered Interpress decomposers. It is used to translate IP printing instructions found in the IP skeleton into attributes that the downstream decomposer understands. As the decomposer evolves so must the implementation of this module; in particular, the attributes it registers with itself must track those registered by the AttributeTranslation module.
DIRECTORY
BasicTime, DecomposerRegistry, InterpressInterpreter, Rope, Prop;
IPAttributes:
CEDAR
DEFINITIONS =
BEGIN
FileID: TYPE ~ REF FileIDRep;
FileIDRep:
TYPE ~
RECORD [
fileName: Rope.ROPE,
uid: BasicTime.GMT
];
TaggedMaster: TYPE ~ REF TaggedMasterRep;
TaggedMasterRep:
TYPE ~
RECORD [
fileID: FileID,
master: InterpressInterpreter.Master,
propList: Prop.PropList ¬ NIL
];
MasterFromInstance:
PROC [instance: DecomposerRegistry.InstanceData]
RETURNS [InterpressInterpreter.Master] ~
INLINE {
WITH instance.private
SELECT
FROM
tm: TaggedMaster => RETURN [tm.master];
ENDCASE => RETURN [NIL];
};
IPAttr: DecomposerRegistry.AttributesProc;
END.