DataMuseum.dk

top - download

    Length: 8740 (0x2224)
    Types: TextFile
    Notes: R1k Text-file segment

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

TextFile

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 ("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 ("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 ("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 ("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_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_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 ("List_Of_Inst'SPEC","list_ins.ads","Belladone");
Transfert ("List_Of_Inst'BODY","list_ins.adb","Belladone");
Transfert ("Main'BODY","main.ada","Belladone");
Transfert ("Main2'BODY","main2.ada","Belladone");
Transfert ("Models'SPEC","models.ads","Belladone");
Transfert ("Models'BODY","models.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 ("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");


end Stunix