DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download
Index: ┃ T V ┃

⟦c6c54e693⟧ TextFile

    Length: 1911 (0x777)
    Types: TextFile
    Names: »V«

Derivation

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

TextFile

with Action;
with Directory;
with Error_Messages;
with Object_Module_Support;
with Profile;

package Conversion is

    package Omf renames Object_Module_Support.Object_Module_Format;

    type Object_Module_Formats is
       (Hp_Unix_Object_Module_Format, Rational_Object_Module_Format,
        Unix_Coff_Object_Module_Format, Os2000_Object_Module_Format,
        Msdos_Object_Module_Format, Ibm370_Object_Module_Format,
        S_Record_Object_Module_Format, Ibm_Xcoff_Object_Module_Format);

    procedure Convert (Old_Module     : Omf.Object_Module;
                       Old_Format     : Object_Module_Formats;
                       New_Module     : Directory.Version := Directory.Nil;
                       New_Format     : Object_Module_Formats;
                       Options        : String;
                       Action_Id      : Action.Id;
                       Status_Not_Log : Boolean;
                       Success        : in out Boolean;
                       Status         : in out Error_Messages.Errors;
                       Response       : Profile.Response_Profile);

    procedure Convert (Old_Module     :        Omf.Object_Module;
                       Old_Format     :        Object_Module_Formats;
                       New_Module     :        String;
                       New_Format     :        Object_Module_Formats;
                       Options        :        String;
                       Action_Id      :        Action.Id;
                       Status_Not_Log :        Boolean;
                       Success        : in out Boolean;
                       Status         : in out Error_Messages.Errors;  
                       Response       :        Profile.Response_Profile);

    -- Status_Not_Log = True => return status result as string and Success
    --    is valid,
    -- False => status result goes to log, Success is indeterminant.

end Conversion;