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

⟦75b21282b⟧ Ada Source

    Length: 15360 (0x3c00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Stunix, seg_04868b

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦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_Object : String := "CLADE";
                         To_Machine : String := "belladone") is

    begin

        Ftp.Put (From_Local_File => The_Object,
                 To_Remote_File => To_Object,
                 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 ("Ex_Jeu", "Ex_Jeu", "Belladone");


    Transfert ("Abstract_Tree'SPEC", "abstree.ads", "Belladone");
    Transfert ("Abstract_Tree'BODY", "abstree.adb", "Belladone");
    Transfert ("Actions'SPEC", "actions.ads", "Belladone");
    Transfert ("Actions'BODY", "actions.adb", "Belladone");
    Transfert ("Binary_Trees_Pkg'SPEC", "bintree.ads", "Belladone");
    Transfert ("Binary_Trees_Pkg'BODY", "bintree.adb", "Belladone");
    Transfert ("Compiler'SPEC", "Compiler.ads", "Belladone");  
    Transfert ("Compiler'BODY", "Compiler.adb", "Belladone");

    Transfert ("Comps_Dictionary'SPEC", "comp_dic.ads", "Belladone");
    Transfert ("Comps_Dictionary'BODY", "comp_dic.adb", "Belladone");
    Transfert ("Connexions'SPEC", "connexio.ads", "Belladone");
    Transfert ("Connexions'BODY", "connexio.adb", "Belladone");
    Transfert ("Corps_Cond'SPEC", "corp_con.ads", "Belladone");
    Transfert ("Corps_Cond'BODY", "corp_com.adb", "Belladone");
    Transfert ("Definitions'SPEC", "definit.ads", "Belladone");
    Transfert ("Definitions'BODY", "definit.adb", "Belladone");
    Transfert ("Definitions_Simples'SPEC", "def_simp.ads", "Belladone");
    Transfert ("Definitions_Simples'BODY", "def_simp.adb", "Belladone");
    Transfert ("Def_Connexions'SPEC", "def_conn.ads", "Belladone");
    Transfert ("Def_Connexions'BODY", "def_conn.adb", "Belladone");
    Transfert ("Displays'BODY", "Displays.adb", "Belladone");  
    Transfert ("Displays'SPEC", "Displays.ads", "Belladone");

    Transfert ("Dynamic_Object'SPEC", "dynobjet.ads", "Belladone");
    Transfert ("Dynamic_Object'BODY", "dynobjet.adb", "Belladone");
    Transfert ("Erreur'SPEC", "erreur.ads", "Belladone");
    Transfert ("Erreur'BODY", "erreur.adb", "Belladone");
    Transfert ("Etat'SPEC", "etat.ads", "Belladone");
    Transfert ("Etat'BODY", "etat.adb", "Belladone");
    Transfert ("Expression'SPEC", "expressi.ads", "Belladone");
    Transfert ("Expression'BODY", "expressi.adb", "Belladone");
    Transfert ("Expression_Generale'SPEC", "exp_gen.ads", "Belladone");
    Transfert ("Expression_Generale'BODY", "exp_gen.adb", "Belladone");
    Transfert ("Exp_Cond'SPEC", "exp_cond.ads", "Belladone");
    Transfert ("Exp_Cond'BODY", "exp_cond.adb", "Belladone");
    Transfert ("Facteur'SPEC", "facteur.ads", "Belladone");
    Transfert ("Facteur'BODY", "facteur.adb", "Belladone");
    Transfert ("Facteur_Cond'SPEC", "fac_cond.ads", "Belladone");
    Transfert ("Facteur_Cond'BODY", "fac_cond.adb", "Belladone");
    Transfert ("Fields'SPEC", "fields.ads", "Belladone");
    Transfert ("Fields'BODY", "fields.adb", "Belladone");
    Transfert ("Fin_Jeu'SPEC", "fin_jeu.ads", "Belladone");
    Transfert ("Fin_Jeu'BODY", "fin_jeu.adb", "Belladone");
    Transfert ("Game'SPEC", "Game.ads", "Belladone");  
    Transfert ("Game'BODY", "Game.adb", "Belladone");

    Transfert ("Initialisation'SPEC", "initiali.ads", "Belladone");
    Transfert ("Initialisation'BODY", "initiali.adb", "Belladone");
    Transfert ("Init_Complexe'SPEC", "ini_comp.ads", "Belladone");
    Transfert ("Init_Complexe'BODY", "ini_comp.adb", "Belladone");
    Transfert ("Init_Simple'SPEC", "ini_simp.ads", "Belladone");
    Transfert ("Init_Simple'BODY", "ini_simp.adb", "Belladone");
    Transfert ("Instructions'SPEC", "instruct.ads", "Belladone");
    Transfert ("Instructions'BODY", "instruct.adb", "Belladone");
    Transfert (" Instructions_D_Introduction'SPEC",
               "ins_intr.ads", "Belladone");  
    Transfert (" Instructions_D_Introduction'BODY",
               "ins_intr.adb", "Belladone");

    Transfert ("Instructions_Generales'SPEC", "ins_gene.ads", "Belladone");
    Transfert ("Instructions_Generales'BODY", "ins_gene.adb", "Belladone");
    Transfert ("Instructions_Globales'SPEC", "ins_glob.ads", "Belladone");
    Transfert ("Instructions_Globales'BODY", "ins_glob.adb", "Belladone");
    Transfert ("Instructions_Locales'SPEC", "ins_loca.ads", "Belladone");
    Transfert ("Instructions_Locales'BODY", "ins_loca.adb", "Belladone");
    Transfert ("Instruction_Pour'SPEC", "ins_pour.ads", "Belladone");
    Transfert ("Instruction_Pour'BODY", "ins_pour.adb", "Belladone");
    Transfert ("Instruction_Si'SPEC", "ins_si.ads", "Belladone");
    Transfert ("Instruction_Si'BODY", "ins_si.adb", "Belladone");
    Transfert ("Ins_Lis'SPEC", "ins_lis.ads", "Belladone");
    Transfert ("Les_Actions'SPEC", "l_action.ads", "Belladone");
    Transfert ("Les_Actions'BODY", "l_action.adb", "Belladone");
    Transfert ("Les_Anims_Generales'SPEC", "l_an_gen.ads", "Belladone");
    Transfert ("Les_Anims_Generales'BODY", "l_an_gen.adb", "Belladone");
    Transfert ("Les_Anims_Globales'SPEC", "l_an_glo.ads", "Belladone");
    Transfert ("Les_Anims_Globales'BODY", "l_an_glo.adb", "Belladone");
    Transfert ("Les_Anims_Locales'SPEC", "l_an_loc.ads", "Belladone");
    Transfert ("Les_Anims_Locales'BODY", "l_an_loc.adb", "Belladone");
    Transfert ("Les_Definitions'SPEC", "l_definit.ads", "Belladone");
    Transfert ("Les_Definitions'BODY", "l_definit.adb", "Belladone");
    Transfert ("Les_Liaisons'SPEC", "l_liaiso.ads", "Belladone");
    Transfert ("Les_Liaisons'BODY", "l_liaiso.adb", "Belladone");
    Transfert ("Les_Presentations'SPEC", "l_presen.ads", "Belladone");
    Transfert ("Les_Presentations'BODY", "l_presen.adb", "Belladone");
    Transfert ("Lexical'SPEC", "lexical.ads", "Belladone");
    Transfert ("Lexical'BODY", "lexical.adb", "Belladone");
    Transfert ("Liaisons'SPEC", "liaisons.ads", "Belladone");
    Transfert ("Liaisons'BODY", "liaisons.adb", "Belladone");
    Transfert ("Liens'SPEC", "liens.ads", "Belladone");
    Transfert ("Liens'BODY", "liens.adb", "Belladone");
    Transfert ("Liste_Des_Entrees'SPEC", "list_ent.ads", "Belladone");
    Transfert ("Liste_Des_Entrees'BODY", "list_ent.adb", "Belladone");
    Transfert ("Liste_D_Instructions'SPEC", "List_ins.ads", "Belladone");
    Transfert ("Liste_D_Instructions'BODY", "List_ins.adb", "Belladone");

    Transfert ("Liste_Synonymes'SPEC", "list_syn.ads", "Belladone");
    Transfert ("Liste_Synonymes'BODY", "list_syn.adb", "Belladone");
    Transfert ("Lists'SPEC", "lists.ads", "Belladone");
    Transfert ("Lists'BODY", "lists.adb", "Belladone");
    Transfert ("Models'SPEC", "models.ads", "Belladone");
    Transfert ("Models'BODY", "models.adb", "Belladone");
    Transfert (" Moteur'SPEC", " Moteur.ads", "Belladone");
    Transfert (" Moteur'BODY", " Moteur.adb", "Belladone");

    Transfert ("Nombre'SPEC", "nombre.ads", "Belladone");
    Transfert ("Nombre'BODY", "nombre.adb", "Belladone");
    Transfert ("Noms'SPEC", "noms.ads", "Belladone");
    Transfert ("Noms'BODY", "noms.adb", "Belladone");
    Transfert ("Noms_Enumeres'SPEC", "nom_enum.ads", "Belladone");
    Transfert ("Noms_Enumeres'BODY", "nom_enu.adb", "Belladone");
    Transfert ("Nom_De_Type'SPEC", "nom_type.ads", "Belladone");
    Transfert ("Nom_De_Type'BODY", "nom_type.adb", "Belladone");
    Transfert ("Nom_De_Variable'SPEC", "nom_var.ads", "Belladone");
    Transfert ("Nom_De_Variable'BODY", "nom_var.adb", "Belladone");
    Transfert ("Nom_Jeu'SPEC", "nom_jeu.ads", "Belladone");
    Transfert ("Nom_Jeu'BODY", "nom_jeu.adb", "Belladone");
    Transfert ("Param_Afficher'SPEC", "param_af.ads", "Belladone");
    Transfert ("Param_Afficher'BODY", "param_af.adb", "Belladone");
    Transfert ("Presentations'SPEC", "present.ads", "Belladone");
    Transfert ("Presentations'BODY", "present.adb", "Belladone");
    Transfert ("Qualificateur'SPEC", "qualif.ads", "Belladone");
    Transfert ("Qualificateur'BODY", "qualif.adb", "Belladone");
    Transfert ("Set_Of_Connections'SPEC", "set_conx.ads", "Belladone");
    Transfert ("Set_Of_Connections'BODY", "set_conx.adb", "Belladone");
    Transfert ("Set_Of_Links'SPEC", "set_link.ads", "Belladone");
    Transfert ("Set_Of_Links'BODY", "set_link.adb", "Belladone");
    Transfert ("Simulateur_Itr'SPEC", "sim_itr.ads", "Belladone");
    Transfert ("Simulateur_Itr'BODY", "sim_itr.adb", "Belladone");
    Transfert ("Simulateur_Tds'SPEC", "sim_Tds.ads", "Belladone");
    Transfert ("Simulateur_Tds'BODY", "sim_Tds.adb", "Belladone");

    Transfert ("Source'SPEC", "source.ads", "Belladone");
    Transfert ("Source'BODY", "source.adb", "Belladone");
    Transfert ("Symbols'SPEC", "symbols.ads", "Belladone");
    Transfert ("Symbols'BODY", "symbols.adb", "Belladone");
    Transfert ("Synonymes'SPEC", "synonyme.ads", "Belladone");
    Transfert ("Synonymes'BODY", "synonyme.adb", "Belladone");
    Transfert ("Terme'SPEC", "terme.ads", "Belladone");
    Transfert ("Terme'BODY", "terme.adb", "Belladone");
    Transfert ("Terme_Cond'SPEC", "term_con.ads", "Belladone");
    Transfert ("Terme_Cond'BODY", "term_con.adb", "Belladone");
    Transfert ("Test'SPEC", "test.ads", "Belladone");
    Transfert ("Test'BODY", "test.adb", "Belladone");
    Transfert ("Token_List'SPEC", "tok_list.ads", "Belladone");
    Transfert ("Token_List'BODY", "tok_list.adb", "Belladone");
    Transfert ("Type_Inst'SPEC", "type_ins.ads", "Belladone");
    Transfert ("T_Value'SPEC", "t_value.ads", "Belladone");
    Transfert ("T_Value'BODY", "t_value.adb", "Belladone");
    Transfert ("Variable'SPEC", "variabl.ads", "Belladone");
    Transfert ("Variable'BODY", "variabl.adb", "Belladone");
    Transfert ("Verbs_Dictionary'SPEC", "verb_dic.ads", "Belladone");
    Transfert ("Verbs_Dictionary'BODY", "verb_dic.adb", "Belladone");
    Transfert ("lex_player'SPEC", "lexplay.ads", "Belladone");
    Transfert ("lex_player'BODY", "lexplay.adb", "Belladone");
    Transfert ("player_entries'SPEC", "entries.ads", "Belladone");
    Transfert ("player_entries'BODY", "entries.adb", "Belladone");
    Transfert ("interprete'SPEC", "interprt.ads", "Belladone");
    Transfert ("interprete'BODY", "interprt.adb", "Belladone");


end Stunix;

E3 Meta Data

    nblk1=e
    nid=0
    hdr6=1c
        [0x00] rec0=1b rec1=00 rec2=01 rec3=04c
        [0x01] rec0=15 rec1=00 rec2=02 rec3=058
        [0x02] rec0=11 rec1=00 rec2=0c rec3=004
        [0x03] rec0=0f rec1=00 rec2=03 rec3=062
        [0x04] rec0=12 rec1=00 rec2=05 rec3=026
        [0x05] rec0=0a rec1=00 rec2=04 rec3=058
        [0x06] rec0=0f rec1=00 rec2=06 rec3=006
        [0x07] rec0=11 rec1=00 rec2=07 rec3=044
        [0x08] rec0=01 rec1=00 rec2=0d rec3=00c
        [0x09] rec0=0f rec1=00 rec2=08 rec3=050
        [0x0a] rec0=10 rec1=00 rec2=09 rec3=066
        [0x0b] rec0=05 rec1=00 rec2=0e rec3=022
        [0x0c] rec0=0f rec1=00 rec2=0a rec3=07e
        [0x0d] rec0=05 rec1=00 rec2=0b rec3=000
    tail 0x215459fa086598207c78e 0x42a00088462060003