DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

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

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦e09d8a82e⟧ Ada Source

    Length: 8192 (0x2000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Stunix4, seg_0496cd

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧

E3 Source Code



with Ftp;
with Ftp_Profile;
with Profile;  
with Bounded_String;
use Bounded_String;

procedure Stunix4 is

    procedure Transfert (The_Object : String := "<REGION>";
                         To_Object : String := "MEVEL";
                         To_Machine : String := "belladone") is

    begin

        Ftp.Put (From_Local_File => The_Object,
                 To_Remote_File => To_Object,
                 Remote_Machine => "belladone",
                 Username => "lsi02",
                 Password => "bonovox",
                 Account => Ftp_Profile.Account,
                 Remote_Directory => Ftp_Profile.Remote_Directory,
                 Remote_Type => Ftp_Profile.Remote_Type,
                 Append_To_File => False,
                 Transfer_Type => Ftp_Profile.Transfer_Type,
                 Transfer_Mode => Ftp_Profile.Transfer_Mode,
                 Transfer_Structure => Ftp_Profile.Transfer_Structure,
                 Send_Port => Ftp_Profile.Send_Port_Enabled,
                 Response => Profile.Get);
    end Transfert;

begin
    --Transfert ("scenario", "scenario", "Belladone");


    Transfert ("Compare_Clavier'SPEC", "compclav.ads", "Belladone");
    Transfert ("Compare_Clavier'BODY", "compclav.adb", "Belladone");
    Transfert ("Compare_Entier'SPEC", "compenti.ads", "Belladone");
    Transfert ("Compare_Entier'BODY", "compenti.adb", "Belladone");
    Transfert ("Compare_Id'SPEC", "compid.ads", "Belladone");
    Transfert ("Compare_Id'BODY", "compid.adb", "Belladone");
    Transfert ("Compare_Id1'SPEC", "compid1.ads", "Belladone");
    Transfert ("Compare_Id1'BODY", "compid1.adb", "Belladone");
    Transfert ("Erreur'SPEC", "erreur.ads", "Belladone");
    Transfert ("Erreur'BODY", "erreur.adb", "Belladone");
    Transfert ("La_Grammaire'SPEC", "lagramm.ads", "Belladone");
    Transfert ("La_Grammaire'BODY", "lagramm.adb", "Belladone");
    Transfert ("Les_Complements'SPEC", "lescompl.ads", "Belladone");
    Transfert ("Les_Complements'BODY", "lescompl.adb", "Belladone");
    Transfert ("Les_Conditions'SPEC", "lescondi.ads", "Belladone");
    Transfert ("Les_Conditions'BODY", "lescondi.adb", "Belladone");
    Transfert ("Les_Entites'SPEC", "lesenti.ads", "Belladone");
    Transfert ("Les_Entites'BODY", "lesenti.adb", "Belladone");
    Transfert ("Les_Entites1'SPEC", "lesenti1.ads", "Belladone");
    Transfert ("Les_Entites1'BODY", "lesenti1.adb", "Belladone");
    Transfert ("Les_Initialisations'SPEC", "lesinit.ads", "Belladone");
    Transfert ("Les_Initialisations'BODY", "lesinit.adb", "Belladone");
    Transfert ("Les_Initialisations1'SPEC", "lesinit1.ads", "Belladone");
    Transfert ("Les_Initialisations1'BODY", "lesinit1.adb", "Belladone");
    Transfert ("Les_Synonymes'SPEC", "lessynon.ads", "Belladone");
    Transfert ("Les_Synonymes'BODY", "lessynon.adb", "Belladone");
    Transfert ("Les_Variables'SPEC", "lesvar.ads", "Belladone");
    Transfert ("Les_Variables'BODY", "lesvar.adb", "Belladone");
    Transfert ("Les_Verbes'SPEC", "lesverb.ads", "Belladone");
    Transfert ("Les_Verbes'BODY", "lesverb.adb", "Belladone");
    Transfert ("Une_Affectation'SPEC", "uneaff.ads", "Belladone");
    Transfert ("Une_Affectation'BODY", "uneaff.adb", "Belladone");
    Transfert ("Une_Condition'SPEC", "unecond.ads", "Belladone");
    Transfert ("Une_Condition'BODY", "unecond.adb", "Belladone");
    Transfert ("Une_Instruction'SPEC", "uneinst.ads", "Belladone");
    Transfert ("Une_Instruction'BODY", "uneinst.adb", "Belladone");
    Transfert ("Une_Liste_Champs'SPEC", "unelch.ads", "Belladone");
    Transfert ("Une_Liste_Champs'BODY", "unelch.adb", "Belladone");
    Transfert ("Une_Liste_Champs1'SPEC", "unelch1.ads", "Belladone");
    Transfert ("Une_Liste_Champs1'BODY", "unelch1.adb", "Belladone");
    Transfert ("Une_Liste_Id'SPEC", "unelid.ads", "Belladone");
    Transfert ("Une_Liste_Id'BODY", "unelid.adb", "Belladone");
    Transfert ("Une_Liste_Id1'SPEC", "unelid1.ads", "Belladone");
    Transfert ("Une_Liste_Id1'BODY", "unelid1.adb", "Belladone");
    Transfert ("Une_Liste_Id2'SPEC", "unelid2.ads", "Belladone");
    Transfert ("Une_Liste_Id2'BODY", "unelid2.adb", "Belladone");
    Transfert ("Une_Valeur'SPEC", "uneval.ads", "Belladone");
    Transfert ("Une_Valeur'BODY", "uneval.adb", "Belladone");
    Transfert ("Une_Valeur1'SPEC", "uneval1.ads", "Belladone");
    Transfert ("Une_Valeur1'BODY", "uneval1.adb", "Belladone");
    Transfert ("Une_Valeur2'SPEC", "uneval2.ads", "Belladone");
    Transfert ("Une_Valeur2'BODY", "uneval2.adb", "Belladone");
    Transfert ("Un_Affichage'SPEC", "unaffich.ads", "Belladone");
    Transfert ("Un_Affichage'BODY", "unaffich.adb", "Belladone");
    Transfert ("Un_Bloc_Instructions'SPEC", "unblocin.ads", "Belladone");
    Transfert ("Un_Bloc_Instructions'BODY", "unblocin.adb", "Belladone");
    Transfert ("Un_Facteur'SPEC", "unfact.ads", "Belladone");
    Transfert ("Un_Facteur'BODY", "unfact.adb", "Belladone");
    Transfert ("Un_Id_Compose'SPEC", "unidcom.ads", "Belladone");
    Transfert ("Un_Id_Compose'BODY", "unidcom.adb", "Belladone");
    Transfert ("Un_Id_Compose1'SPEC", "unidcom1.ads", "Belladone");
    Transfert ("Un_Id_Compose1'BODY", "unidcom1.adb", "Belladone");
    Transfert ("Un_Id_Compose2'SPEC", "unidcom2.ads", "Belladone");
    Transfert ("Un_Id_Compose2'BODY", "unidcom2.adb", "Belladone");
    Transfert ("Un_Nombre'SPEC", "unnomb.ads", "Belladone");
    Transfert ("Un_Nombre'BODY", "unnomb.adb", "Belladone");
    Transfert ("Un_Nombre1'SPEC", "unnomb1.ads", "Belladone");
    Transfert ("Un_Nombre1'BODY", "unnomb1.adb", "Belladone");
    Transfert ("Un_Terme'SPEC", "unterme.ads", "Belladone");
    Transfert ("Un_Terme'BODY", "unterme.adb", "Belladone");
    Transfert ("Un_Terme1'SPEC", "unterme1.ads", "Belladone");
    Transfert ("Un_Terme1'BODY", "unterme1.adb", "Belladone");
    Transfert ("Un_Test'SPEC", "untest.ads", "Belladone");
    Transfert ("Un_Test'BODY", "untest.adb", "Belladone");
    Transfert ("Un_Test1'SPEC", "untest1.ads", "Belladone");
    Transfert ("Un_Test1'BODY", "untest1.adb", "Belladone");
    Transfert ("Un_Type'SPEC", "untyp.ads", "Belladone");
    Transfert ("Un_Type'BODY", "untyp.adb", "Belladone");
    Transfert ("Un_Type_De_Base'SPEC", "untypbas.ads", "Belladone");
    Transfert ("Un_Type_De_Base'BODY", "untypbas.adb", "Belladone");



end Stunix4;

E3 Meta Data

    nblk1=7
    nid=0
    hdr6=e
        [0x00] rec0=1c rec1=00 rec2=01 rec3=044
        [0x01] rec0=14 rec1=00 rec2=02 rec3=068
        [0x02] rec0=0f rec1=00 rec2=05 rec3=01c
        [0x03] rec0=0f rec1=00 rec2=03 rec3=008
        [0x04] rec0=0f rec1=00 rec2=04 rec3=00a
        [0x05] rec0=0f rec1=00 rec2=07 rec3=03c
        [0x06] rec0=0c rec1=00 rec2=06 rec3=000
    tail 0x2174dd0c4865e60536744 0x42a00088462060003