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