home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 2000 April & May / AMIGA_2000_04.iso / pd-disketten / dms-gepackt / 1_96s / apd-1-96s-5.dms / apd-1-96s-5.adf / FloppyInstall < prev    next >
Text File  |  1995-12-06  |  9KB  |  342 lines
  1. ;;
  2. ;;  $Final Writer Demo Floppy Installation Script German Version $
  3. ;;  $Date: 1995/11/03 16:47:15 $
  4. ;;  $Revision: 1.3 $
  5. ;;
  6. ;;  Deutsche Uebersetzung: Helmut Eisenkolb
  7.  
  8. (set is_update 0)
  9. (set @user-level 1)    ; force to use average mode
  10. (complete 0)
  11.  
  12. ; Installation Disk Names
  13. ;
  14. (set #install_disk_1 "AMIGA-Magazin-PD")
  15.  
  16. (set #program_disk_1 "FWProgram")
  17. (set #program_disk_2 "FWSystem")
  18. (set #program_disk_3 "FWExtras")
  19.  
  20. (set #ram_disk "ram:")
  21.  
  22. (set #fw_drawer_name "FinalWriter_Demo_D")
  23.  
  24. ; LHex file
  25. ;
  26. (set #lhex_program
  27. (cat    #install_disk_1
  28.         ":lhex"
  29. ))
  30.  
  31. ; Format program
  32. ;
  33. (set #format_program
  34. (cat    #install_disk_1
  35.         ":Format"
  36. ))
  37.  
  38. ; -------------------------------------------------------------------
  39. ; TEXT TRANSLATION SHOULD BEGIN HERE - Translate everything in quotes.
  40. ;
  41.  
  42. (set #ask_disk_prompt
  43. (cat    "\n\nBitte legen Sie \"%s\" in ein beliebiges Laufwerke ein."
  44. ))
  45.  
  46. (set #ask_disk1_help
  47. (cat    "\"%s\" enthält das Final Writer Programm, Libraries, System-Schriftarten, und Daten, die installiert werden.\n\n"
  48.         @askdisk-help
  49. ))
  50.  
  51. (set #ask_disk_prompt_extra
  52. (cat    "\n(Dies ist die zuletzt formatierte Diskette.)"
  53. ))
  54.  
  55. (set #install_program        "Installiere Final Writer Programm von \"%s\".")
  56. (set #install_program_icon    "Installiere Final Writer Programm und Icon von \"%s\".")
  57. (set #install_datafiles        "Installiere Daten von \"%s\".")
  58. (set #install_libs            "Installiere Libraries von \"%s\".")
  59. (set #install_sysfonts        "Installiere System-Schriftarten von \"%s\".")
  60.  
  61. (set #install_program_err        "Fehler bei der Installation des Final Writer Programmes.")
  62. (set #install_datafiles_err    "Fehler bei der Installation der Daten.")
  63. (set #install_libs_err            "Fehler bei der Installation der Libraries.")
  64. (set #install_sysfonts_err        "Fehler bei der Installation der System-Schriftarten.")
  65.  
  66. (set #kickstart_err
  67. (cat    "Sie benötigen Workbench 2.04 oder höher um Final Writer zu installieren! "
  68.         "(Workbench Version 37.67 und Kickstart 37.175 oder höher.)"
  69. ))
  70.  
  71. (set #welcome_message
  72. (cat    "Willkommen bei der FinalWriter-Demo Disketten-Installation. "
  73.         "Sie benötigen drei (3) leere Disketten für die Installation. "
  74.         "Dieses Programm formatiert die Disketten und installiert "
  75.         "die richtigen Dateien auf ihnen. Bitte beachten Sie, "
  76.         "daß alle auf den Disketten gespeicherten Daten gelöscht werden. "
  77.         "Zum Schutz sollten Sie sicherstellen, daß die Installationsdisketten "
  78.         "(AMIGA-Magazin-PD) schreibgeschützt sind.\n\n"
  79.         "Die drei Disketten werden "
  80.         #program_disk_1
  81.         ", "
  82.         #program_disk_2
  83.         " und "
  84.         #program_disk_3
  85.         " genannt."
  86. ))
  87.  
  88. (set #insert_empty_message
  89. (cat    "Bitte legen Sie einer leere Diskette in Laufwerk df0: ein.\n\n"
  90.         "Diese Diskette wird als \"%s\" formatiert und die entsprechenden Dateien werden auf ihr installiert.\n\n"
  91.         "WARNUNG: Alle Daten, die sich auf dieser Diskette befinden gehen verloren! Bitte wählen Sie \"Proceed\" "
  92.         "wenn Sie sicher sind, daß sich eine leere Diskette im Laufwerk df0: befindet."
  93. ))
  94.  
  95. (set #format_message
  96. (cat    "Diskette \"%s\" wird formatiert.\n"
  97.         "Bitte warten..."
  98. ))
  99.  
  100. (set #format_err
  101. (cat    "Fehler beim Formatieren der Diskette \"%s\"."
  102. ))
  103.  
  104. ;
  105. ; TEXT TRANSLATION SHOULD END HERE - nothing below needs translation.
  106. ; -------------------------------------------------------------------
  107.  
  108.  
  109. ;==========================================
  110. ; Procedure to get and format an empty disk
  111. ;
  112. ; Inputs:
  113. ;    format_disk_name    - the name of the disk to format.
  114. ;
  115. ;==========================================
  116. (procedure GetAndFormatDisk
  117.     (set @execute-dir "")
  118.     (set empty_disk 0)
  119.     (set last_disk 3)
  120.  
  121.     (while (= empty_disk 0)
  122.         (
  123.             ; Ask for empty disk.
  124.             ;
  125.             (message (#insert_empty_message format_disk_name))
  126.  
  127.             ; Check if the inserted disk is empty.
  128.             ; We will consider it empty if the disk is not one
  129.             ; of our installation disks or one of the floppy
  130.             ; disks that the installation has created.
  131.             ;
  132.             (set which_disk 0)
  133.             (set no_go 0)
  134.             (set device_name (getassign "df0" "d"))
  135.             (while (AND (<= which_disk last_disk) (= no_go 0))
  136.                 (
  137.                     (set which_disk_name
  138.                         (select which_disk
  139.                             #install_disk_1
  140.                             #program_disk_1
  141.                             #program_disk_2
  142.                             #program_disk_3
  143.                         )
  144.                     )
  145.  
  146.                     (if (= device_name (cat which_disk_name ":"))
  147.                         (set no_go 1)
  148.                     )
  149.  
  150.                     (set which_disk (+ which_disk 1))
  151.                 )
  152.             )
  153.  
  154.             (if (AND (= no_go 0) (> which_disk last_disk))
  155.                 (set empty_disk 1)
  156.             )
  157.         )
  158.     )
  159.  
  160.     (working (#format_message format_disk_name))
  161.     (set error
  162.         (run
  163.             ("%s DRIVE DF0: NAME %s FFS NOICONS" Formatter format_disk_name)
  164.         )
  165.     )
  166.  
  167.     (if error
  168.         (abort (#format_err format_disk_name))
  169.     )
  170. )
  171.  
  172. ;==========================================
  173. ; Procedure to get archive file and install
  174. ; its files to a program disk.
  175. ;
  176. ; Inputs:
  177. ;    install_disk_name        -    the name of the installation disk the file is on.
  178. ;    install_disk_help        -    help string for ask disk.
  179. ;    lha_file                    -    the name of the archive file
  180. ;    program_disk_name        -    name of the program disk to install to
  181. ;    new_drawer_name        -    name of drawer to create on program disk.
  182. ;                                    empty string "" if no drawer needed.
  183. ;    working_msg                -    message to display when installing
  184. ;    error_msg                -    message in case of error.
  185. ;
  186. ;==========================================
  187. (procedure InstallArchive
  188.     ;
  189.     ; Ask for the installation disk.
  190.     (askdisk
  191.         (prompt    (#ask_disk_prompt install_disk_name))
  192.         (help        (install_disk_help install_disk_name))
  193.         (dest        install_disk_name)
  194.     )
  195.  
  196.     ; Copy the lha file to ram:
  197.     (copyfiles
  198.         (source    (cat install_disk_name ":" lha_file))
  199.         (dest        #ram_disk)
  200.     )
  201.  
  202.     ; Ask for the program disk.
  203.     (askdisk
  204.         (prompt    (cat (#ask_disk_prompt program_disk_name) #ask_disk_prompt_extra))
  205.         (help        @askdisk-help)
  206.         (dest        program_disk_name)
  207.     )
  208.  
  209.     ; Make the drawer.
  210.     (if new_drawer_name
  211.         (makedir (cat program_disk_name ":" new_drawer_name) (infos))
  212.     )
  213.  
  214.     ; Unarchive the lha files.
  215.     (set @execute-dir (cat program_disk_name ":" new_drawer_name))
  216.     (working (working_msg install_disk_name))
  217.     (set error
  218.         (run
  219.             ("\"%s\" -f x \"%s\" >NIL:" DeArcher (cat #ram_disk lha_file))
  220.         )
  221.     )
  222.     (delete (cat #ram_disk lha_file))
  223.  
  224.     (if error
  225.         (abort error_msg)
  226.     )
  227. )
  228.  
  229.  
  230. ; Make sure we are running under V37 or higher...
  231. (if (< (/ (getversion) 65536) 37)
  232.     (
  233.     (abort    #kickstart_err)
  234.     )
  235. )
  236.  
  237. (message #welcome_message)
  238.  
  239. ; Copy the extraction and format utility
  240. ; to ram: and remember where they are.
  241. (copyfiles
  242.     (source    #lhex_program)
  243.     (dest        #ram_disk)
  244. )
  245. (set DeArcher (tackon #ram_disk "lhex"))
  246.  
  247. (copyfiles
  248.     (source    #format_program)
  249.     (dest        #ram_disk)
  250. )
  251. (set Formatter (tackon #ram_disk "Format"))
  252.  
  253.  
  254. ; ==========================================
  255. ; Get and Format FWProgram: (program disk 1)
  256. ; ==========================================
  257. (set format_disk_name #program_disk_1)
  258. (GetAndFormatDisk)
  259.  
  260. ; --------------------------
  261. ; Install the program.
  262. ;
  263. (set install_disk_name #install_disk_1)
  264. (set install_disk_help #ask_disk1_help)
  265. (set lha_file "FinalWriter.lha")
  266. (set program_disk_name #program_disk_1)
  267. (set new_drawer_name "")
  268. (set working_msg #install_program_icon)
  269. (set error_msg #install_program_err)
  270. (InstallArchive)
  271.  
  272. (complete 20)
  273.  
  274.  
  275. ; =========================================
  276. ; Get and Format FWSystem: (program disk 2)
  277. ; =========================================
  278. (set format_disk_name #program_disk_2)
  279. (GetAndFormatDisk)
  280.  
  281. ; --------------------
  282. ; First install FWFiles...
  283. ;
  284. (set install_disk_name #install_disk_1)
  285. (set install_disk_help #ask_disk1_help)
  286. (set lha_file "FWFiles.lha")
  287. (set program_disk_name #program_disk_2)
  288. (set new_drawer_name "FWFiles")
  289. (set working_msg #install_datafiles)
  290. (set error_msg #install_datafiles_err)
  291. (InstallArchive)
  292.  
  293. (complete 40)
  294.  
  295. ; ---------------------
  296. ; Now Install FWLibs...
  297. ;
  298. (set install_disk_name #install_disk_1)
  299. (set install_disk_help #ask_disk1_help)
  300. (set lha_file "FWLibs.lha")
  301. (set program_disk_name #program_disk_2)
  302. (set new_drawer_name "FWLibs")
  303. (set working_msg #install_libs)
  304. (set error_msg #install_libs_err)
  305. (InstallArchive)
  306.  
  307. (complete 60)
  308.  
  309. ; ---------------------
  310. ; Now Install FWFonts...
  311. ;
  312. (set install_disk_name #install_disk_1)
  313. (set install_disk_help #ask_disk1_help)
  314. (set lha_file "FWFonts.lha")
  315. (set program_disk_name #program_disk_2)
  316. (set new_drawer_name "FWFonts")
  317. (set working_msg #install_sysfonts)
  318. (set error_msg #install_sysfonts_err)
  319. (InstallArchive)
  320.  
  321. (complete 80)
  322.  
  323. ; =========================================
  324. ; Get and Format FWExtras: (program disk 3)
  325. ; =========================================
  326. (set format_disk_name #program_disk_3)
  327. (GetAndFormatDisk)
  328.  
  329. (makedir (cat #program_disk_3 ":FWDocs") (infos))
  330. (makedir (cat #program_disk_3 ":FWClipArt") (infos))
  331. (makedir (cat #program_disk_3 ":FWTextClips") (infos))
  332.  
  333. (delete DeArcher)
  334. (delete Formatter)
  335. (run ("C:Avail FLUSH"))
  336.  
  337. (complete 100)
  338.  
  339. (set @default-dest "")
  340. (exit)
  341.  
  342.