DataMuseum.dk

top - download

    Length: 2374 (0x946)
    Types: TextFile
    Names: »B«

└─⟦afbc8121e⟧ Bits:30000532 8mm tape, Rational 1000, MC68020_OS2000 7_2_2
    └─ ⟦77aa8350c⟧ »DATA« 
        └─⟦f794ecd1d⟧ 
            └─⟦4c85d69e2⟧ 
                └─⟦this⟧ 

TextFile

--    The use of this system is subject to the software license terms and
--    conditions agreed upon between Rational and the Customer.
--
--                Copyright 1988 by Rational.
--
--                          RESTRICTED RIGHTS LEGEND
--
--    Use, duplication, or disclosure by the Government is subject to
--    restrictions as set forth in subdivision (b)(3)(ii) of the Rights in
--    Technical Data and Computer Software clause at 52.227-7013.
--
--
--                Rational
--                3320 Scott Boulevard
--                Santa Clara, California 95054-3197
--
--   PROPRIETARY AND CONFIDENTIAL INFORMATION OF RATIONAL;
--   USE OR COPYING WITHOUT EXPRESS WRITTEN AUTHORIZATION
--   IS STRICTLY PROHIBITED.  THIS MATERIAL IS PROTECTED AS
--   AN UNPUBLISHED WORK UNDER THE U.S. COPYRIGHT ACT OF
--   1976.  CREATED 1988.  ALL RIGHTS RESERVED.
--
--

separate (Os_Dependent_Io)

procedure Convert_Error (Status : Os2000_Io.Stratus; In_Op : Io_Operation) is
begin
    if Status = Os2000_Io.E_Success then
        null;

    elsif (Status = Os2000_Io.E_Pnnf or else Status = Os2000_Io.E_Bpnam) then
        -- Trace ("Odi.Convert_Error raising Name_Error");
        raise Io_Exceptions.Name_Error;

    elsif Status = Os2000_Io.E_Bmode then
        -- Trace ("Odi.Convert_Error raising Mode_Error");
        raise Io_Exceptions.Mode_Error;

    elsif Status = Os2000_Io.E_Eof then
        -- Trace ("Odi.Convert_Error raising End_Error");
        raise Io_Exceptions.End_Error;

    elsif (Status = Os2000_Io.E_Pthful or else
           Status = Os2000_Io.E_Fna or else Status = Os2000_Io.E_Share or else
           Status = Os2000_Io.E_Bpnum or else Status = Os2000_Io.E_Cef) then
        -- Trace ("Odi.Convert_Error raising Use_Error");
        raise Io_Exceptions.Use_Error;

    elsif Status = Os2000_Io.E_Read or else Status = Os2000_Io.E_Write then
        -- Trace ("Odi.Convert_Error raising Device_Error");
        raise Io_Exceptions.Device_Error;

    else-- Unknown error code
        -- Trace ("Odi.Convert_Error raising Device_Error with unknown code",
        --        Absorb_Output => False);
        -- Trace ("   got status " & Integer'Image (Status) &
        --        " in operation " & Io_Operation'Image (In_Op),
        --        Absorb_Output => False);
        raise Io_Exceptions.Device_Error;
    end if;
end Convert_Error;