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

⟦297c223d0⟧ Ada Source

    Length: 10240 (0x2800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Stunix, seg_044378

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 Stunix is

    procedure Transfert (The_Object : String := "<REGION>";
                         To_Machine : String := "belladone") is
        Tampom : Variable_String (80);

    begin  
        Free (Tampon);
        Copy (Tampon, The_Object);

        Ftp.Put (From_Local_File => The_Object,
                 To_Remote_File => "",
                 Remote_Machine => "belladone",
                 Username => "lsi17",
                 Password => "bmw2002",
                 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 ("actions'SPEC", "Belladone");
    Transfert ("binary_trees_pkg'SPEC", "Belladone");
    Transfert ("bounded_string'SPEC", "Belladone");
    Transfert ("connexions'SPEC", "Belladone");
    Transfert ("corps_cond'SPEC", "Belladone");
    Transfert ("def_connexions'SPEC", "Belladone");
    Transfert ("definitions'SPEC", "Belladone");
    Transfert ("definitions_simples'SPEC", "Belladone");
    Transfert ("dynamic_object'SPEC", "Belladone");
    Transfert ("erreur'SPEC", "Belladone");
    Transfert ("etat'SPEC", "Belladone");
    Transfert ("exp_cond'SPEC", "Belladone");
    Transfert ("expression'SPEC", "Belladone");
    Transfert ("expression_generale'SPEC", "Belladone");
    Transfert ("facteur'SPEC", "Belladone");
    Transfert ("facteur_cond'SPEC", "Belladone");
    Transfert ("fields'SPEC", "Belladone");
    Transfert ("fin_jeu'SPEC", "Belladone");
    Transfert ("init_complexe'SPEC", "Belladone");
    Transfert ("init_simple'SPEC", "Belladone");
    Transfert ("initialisation'SPEC", "Belladone");
    Transfert ("instruction_pour'SPEC", "Belladone");
    Transfert ("instruction_si'SPEC", "Belladone");
    Transfert ("instructions'SPEC", "Belladone");
    Transfert ("instructions_generales'SPEC", "Belladone");
    Transfert ("instructions_globales'SPEC", "Belladone");
    Transfert ("instructions_locales'SPEC", "Belladone");
    Transfert ("les_actions'SPEC", "Belladone");
    Transfert ("les_anims_generales'SPEC", "Belladone");
    Transfert ("les_anims_globales'SPEC", "Belladone");
    Transfert ("les_anims_locales'SPEC", "Belladone");
    Transfert ("les_definitions'SPEC", "Belladone");
    Transfert ("les_liaisons'SPEC", "Belladone");
    Transfert ("les_presentations'SPEC", "Belladone");
    Transfert ("lexical'SPEC", "Belladone");
    Transfert ("liaisons'SPEC", "Belladone");
    Transfert ("liens'SPEC", "Belladone");
    Transfert ("liste_des_entrees'SPEC", "Belladone");
    Transfert ("liste_synonymes'SPEC", "Belladone");
    Transfert ("lists'SPEC", "Belladone");
    Transfert ("main'SPEC", "Belladone");
    Transfert ("models'SPEC", "Belladone");
    Transfert ("nom_de_type'SPEC", "Belladone");
    Transfert ("nom_de_variable'SPEC", "Belladone");
    Transfert ("nom_jeu'SPEC", "Belladone");
    Transfert ("nombre'SPEC", "Belladone");
    Transfert ("noms'SPEC", "Belladone");
    Transfert ("noms_enumeres'SPEC", "Belladone");
    Transfert ("param_afficher'SPEC", "Belladone");
    Transfert ("presentations'SPEC", "Belladone");
    Transfert ("qualificateur'SPEC", "Belladone");
    Transfert ("source'SPEC", "Belladone");
    Transfert ("symbols'SPEC", "Belladone");
    Transfert ("synonymes'SPEC", "Belladone");
    Transfert ("t_value'SPEC", "Belladone");
    Transfert ("terme'SPEC", "Belladone");
    Transfert ("terme_cond'SPEC", "Belladone");
    Transfert ("test'SPEC", "Belladone");
    Transfert ("token_list'SPEC", "Belladone");
    Transfert ("variable'SPEC", "Belladone");
    Transfert ("verbs_dictionary'SPEC", "Belladone");
    Transfert ("actions'BODY", "Belladone");
    Transfert ("binary_trees_pkg'BODY", "Belladone");
    Transfert ("bounded_string'BODY", "Belladone");
    Transfert ("connexions'BODY", "Belladone");
    Transfert ("corps_cond'BODY", "Belladone");
    Transfert ("def_connexions'BODY", "Belladone");
    Transfert ("definitions'BODY", "Belladone");
    Transfert ("definitions_simples'BODY", "Belladone");
    Transfert ("dynamic_object'BODY", "Belladone");
    Transfert ("erreur'BODY", "Belladone");
    Transfert ("etat'BODY", "Belladone");
    Transfert ("exp_cond'BODY", "Belladone");
    Transfert ("expression'BODY", "Belladone");
    Transfert ("expression_generale'BODY", "Belladone");
    Transfert ("facteur'BODY", "Belladone");
    Transfert ("facteur_cond'BODY", "Belladone");
    Transfert ("fields'BODY", "Belladone");
    Transfert ("fin_jeu'BODY", "Belladone");
    Transfert ("init_complexe'BODY", "Belladone");
    Transfert ("init_simple'BODY", "Belladone");
    Transfert ("initialisation'BODY", "Belladone");
    Transfert ("instruction_pour'BODY", "Belladone");
    Transfert ("instruction_si'BODY", "Belladone");
    Transfert ("instructions'BODY", "Belladone");
    Transfert ("instructions_generales'BODY", "Belladone");
    Transfert ("instructions_globales'BODY", "Belladone");
    Transfert ("instructions_locales'BODY", "Belladone");
    Transfert ("les_actions'BODY", "Belladone");
    Transfert ("les_anims_generales'BODY", "Belladone");
    Transfert ("les_anims_globales'BODY", "Belladone");
    Transfert ("les_anims_locales'BODY", "Belladone");
    Transfert ("les_definitions'BODY", "Belladone");
    Transfert ("les_liaisons'BODY", "Belladone");
    Transfert ("les_presentations'BODY", "Belladone");
    Transfert ("lexical'BODY", "Belladone");
    Transfert ("liaisons'BODY", "Belladone");
    Transfert ("liens'BODY", "Belladone");
    Transfert ("liste_des_entrees'BODY", "Belladone");
    Transfert ("liste_synonymes'BODY", "Belladone");
    Transfert ("lists'BODY", "Belladone");
    Transfert ("main'BODY", "Belladone");
    Transfert ("models'BODY", "Belladone");
    Transfert ("nom_de_type'BODY", "Belladone");
    Transfert ("nom_de_variable'BODY", "Belladone");
    Transfert ("nom_jeu'BODY", "Belladone");
    Transfert ("nombre'BODY", "Belladone");
    Transfert ("noms'BODY", "Belladone");
    Transfert ("noms_enumeres'BODY", "Belladone");
    Transfert ("param_afficher'BODY", "Belladone");
    Transfert ("presentations'BODY", "Belladone");
    Transfert ("qualificateur'BODY", "Belladone");
    Transfert ("source'BODY", "Belladone");
    Transfert ("symbols'BODY", "Belladone");
    Transfert ("synonymes'BODY", "Belladone");
    Transfert ("t_value'BODY", "Belladone");
    Transfert ("terme'BODY", "Belladone");
    Transfert ("terme_cond'BODY", "Belladone");
    Transfert ("test'BODY", "Belladone");
    Transfert ("token_list'BODY", "Belladone");
    Transfert ("variable'BODY", "Belladone");
    Transfert ("verbs_dictionary'BODY", "Belladone");


end Stunix;

E3 Meta Data

    nblk1=9
    nid=0
    hdr6=12
        [0x00] rec0=1c rec1=00 rec2=01 rec3=08c
        [0x01] rec0=06 rec1=00 rec2=09 rec3=01a
        [0x02] rec0=14 rec1=00 rec2=08 rec3=018
        [0x03] rec0=12 rec1=00 rec2=02 rec3=058
        [0x04] rec0=15 rec1=00 rec2=03 rec3=04a
        [0x05] rec0=14 rec1=00 rec2=04 rec3=048
        [0x06] rec0=13 rec1=00 rec2=05 rec3=02a
        [0x07] rec0=15 rec1=00 rec2=06 rec3=00e
        [0x08] rec0=06 rec1=00 rec2=07 rec3=001
    tail 0x217453b0e863e598f72e4 0x42a00088462060003