AISStubsImpl.mesa
Copyright Ó 1992 by Xerox Corporation. All rights reserved.
Bier, August 19, 1991 2:51 pm PDT
DIRECTORY
AIS, Rope;
AISStubsImpl: CEDAR PROGRAM
EXPORTS AIS ~
BEGIN
ROPE: TYPE ~ Rope.ROPE;
FRef: TYPE ~ AIS.FRef;
ARef: TYPE = AIS.ARef;
WRef: TYPE ~ AIS.WRef;
BRef: TYPE ~ AIS.BRef;
ScanMode: TYPE ~ AIS.ScanMode;
Raster: TYPE ~ AIS.Raster;
Placement: TYPE ~ AIS.Placement;
Photometry: TYPE ~ AIS.Photometry;
Histogram: TYPE ~ AIS.Histogram;
Error: PUBLIC SIGNAL [type: AIS.ErrorType] = CODE;
File operations
CreateFile: PUBLIC PROC [name: ROPE, raster: Raster, attributeLength: CARDINAL ¬ 0] RETURNS [f: FRef] = {
attributeLength is in AIS pages (1024 word blocks).
ERROR Error[notImplemented];
};
DeleteFile: PUBLIC PROC [name: ROPE] = {
ERROR Error[notImplemented];
};
OpenFile: PUBLIC PROC [name: ROPE, write: BOOLEAN ¬ FALSE] RETURNS [f: FRef] = {
ERROR Error[notImplemented];
};
CloseFile: PUBLIC PROC [f: FRef] = {
ERROR Error[notImplemented];
};
ReadComment: PUBLIC PROC [f: FRef] RETURNS [ROPE] = {
ERROR Error[notImplemented];
};
WriteComment: PUBLIC PROC [f: FRef, comment: ROPE] = {
ERROR Error[notImplemented];
};
ReadPlacement: PUBLIC PROC [f: FRef] RETURNS [placement: Placement] = {
ERROR Error[notImplemented];
};
WritePlacement: PUBLIC PROC [f: FRef, placement: Placement] = {
ERROR Error[notImplemented];
};
ReadPhotometry: PUBLIC PROC [f: FRef] RETURNS [Photometry] = {
ERROR Error[notImplemented];
};
ReadHistogram: PUBLIC PROC [f: FRef] RETURNS [Histogram] = {
ERROR Error[notImplemented];
};
Error is histogram length # photometry.histogramLength
WritePhotometry: PUBLIC PROC [f: FRef, photometry: Photometry, histogram: Histogram ¬ NIL] = {
ERROR Error[notImplemented];
};
ReadRaster: PUBLIC PROC [f: FRef] RETURNS [Raster] = {
ERROR Error[notImplemented];
};
Window operations
OpenWindow: PUBLIC PROC [f: FRef, firstScan: CARDINAL ¬ 0, lastScan: CARDINAL ¬ LAST[CARDINAL], firstPixel: CARDINAL ¬ 0, lastPixel: CARDINAL ¬ LAST[CARDINAL]]
RETURNS [w: WRef] = {
ERROR Error[notImplemented];
};
CloseWindow: PUBLIC PROC [w: WRef] = {
ERROR Error[notImplemented];
};
GetWindowParams: PUBLIC PROC [w: WRef] RETURNS [firstScan: CARDINAL, lastScan: CARDINAL, firstPixel: CARDINAL, lastPixel: CARDINAL] = {
ERROR Error[notImplemented];
};
MinBufferSize: PUBLIC PROC [w: WRef] RETURNS [length: CARDINAL] = {
ERROR Error[notImplemented];
};
EndOfWindow: PUBLIC PROC [w: WRef] RETURNS [BOOLEAN] = {
ERROR Error[notImplemented];
};
Buffer: TYPE ~ AIS.Buffer;
UnsafeReadLine: PUBLIC UNSAFE PROC [w: WRef, buffer: Buffer, line: INTEGER ¬ -1] = {
ERROR Error[notImplemented];
};
UnsafeWriteLine: PUBLIC UNSAFE PROC [w: WRef, buffer: Buffer, line: INTEGER ¬ -1] = {
ERROR Error[notImplemented];
};
ReadSample: PUBLIC PROC [w: WRef, line, pixel: CARDINAL] RETURNS [value: CARDINAL] = {
ERROR Error[notImplemented];
};
WriteSample: PUBLIC PROC [w: WRef, value: CARDINAL, line, pixel: CARDINAL] = {
ERROR Error[notImplemented];
};
END.