rom/filesys/CDVDFS/CDVDFS.Install

   1 ;$VER: CDVDFS Install 1.2 (06.05.07)
   2 ;(C) 1994 Thomas Kessler
   3 ;(C) 2005-2007 Pavel Fedin
   4
   5 (set #amicdrom-version "1.4")
   6 (set #amicdrom-date "(16-Jun-08)")
   7 (set #install-version "1.2")
   8
   9 (set old-level @user-level)
  10 (set @default-dest "SYS:")
  11
  12 (set #wbversion (getversion))
  13 (set #wbversion (/ #wbversion 65536) )
  14 (set #morphos (exists "SYS:MorphOS"))
  15 (set #mountvernum (getversion "C:Mount"))
  16 (set #mountversion (/ #mountvernum 65536))
  17 (set #na "N/A")
  18
  19 (set ldir "SYS:L")
  20 (set ldir2 "SYS:L/")
  21 (set cdir "SYS:C")
  22 (set cdir2 "SYS:C/")
  23 (set charsetsdir "SYS:Libs/Charsets/")
  24 (set docdir "Locale:Help")
  25
  26 (complete 0)
  27
  28 (set #space " ")
  29 (if (<= #mountversion 37) (set #space "+"))
  30
  31 (if (NOT (exists "C/GetNames")) (abort "Can't find file: 'C/GetNames'"))
  32
  33 (run
  34         (prompt "")
  35         (help #na)
  36         "C/GetNames DEVICES ENV NOROM SCSI EXCLUDE QUIET" ; © 1994 Thomas Kessler
  37 )
  38
  39 (set dev0 "enter device by hand")
  40 (if (exists ("ENV:Name.1")) (set dev1 (getenv "Name.1")))
  41 (if (exists ("ENV:Name.2")) (set dev2 (getenv "Name.2")))
  42 (if (exists ("ENV:Name.3")) (set dev3 (getenv "Name.3")))
  43 (if (exists ("ENV:Name.4")) (set dev4 (getenv "Name.4")))
  44 (if (exists ("ENV:Name.5")) (set dev5 (getenv "Name.5")))
  45 (if (exists ("ENV:Name.6")) (set dev6 (getenv "Name.6")))
  46 (if (exists ("ENV:Name.7")) (set dev7 (getenv "Name.7")))
  47 (if (exists ("ENV:Name.8")) (set dev8 (getenv "Name.8")))
  48 (if (exists ("ENV:Name.9")) (set dev9 (getenv "Name.9")))
  49 (if (exists ("ENV:Name.10")) (set dev10 (getenv "Name.10")))
  50 (if (exists ("ENV:Name.11")) (set dev11 (getenv "Name.11")))
  51 (if (exists ("ENV:Name.12")) (set dev12 (getenv "Name.12")))
  52 (if (exists ("ENV:Name.13")) (set dev13 (getenv "Name.13")))
  53 (if (exists ("ENV:Name.14")) (set dev14 (getenv "Name.14")))
  54 (if (exists ("ENV:Name.15")) (set dev15 (getenv "Name.15")))
  55 (if (exists ("ENV:Name.16")) (set dev16 (getenv "Name.16")))
  56 (if (exists ("ENV:Name.17")) (set dev17 (getenv "Name.17")))
  57 (if (exists ("ENV:Name.18")) (set dev18 (getenv "Name.18")))
  58 (if (exists ("ENV:Name.19")) (set dev19 (getenv "Name.19")))
  59 (if (exists ("ENV:Name.20")) (set dev20 (getenv "Name.20")))
  60 (if (exists ("ENV:Name.21")) (set dev21 (getenv "Name.21")))
  61
  62 (run
  63         (prompt "")
  64         (help #na)
  65         "C:Delete >NIL: ENV:Name.#? FORCE"
  66 )
  67 ;(delete (prompt "") (help #na) "ENV:Name.x" (optional force))
  68
  69 (complete 1)
  70
  71 (user 2)
  72 (message        "\n\nCDVDFS "#amicdrom-version"\n\n"
  73         "a CDROM filesystem for Amiga family of operating systems\n\n"
  74         "Version "#amicdrom-version" "#amicdrom-date" © 2007 Pavel Fedin\n"
  75         "Based on AmiCDROM 1.15 © 1993,1994 Frank Munkert\nAll rights reserved.\n"
  76         "Install-Script "#install-version" © 1994 Thomas Kessler, 2005-2007 Pavel Fedin\nAll rights reserved.")
  77
  78 (user old-level)
  79 (complete 5)
  80
  81
  82 (if dev1
  83         (
  84                 (user 2)
  85                 (set ask-device
  86                         (askchoice
  87                                 (if dev18
  88                                         (prompt "Choose your SCSI/AT device:")
  89                                         (prompt "\nChoose your SCSI/AT device:\n")
  90                                 )
  91                                 (help "\n"
  92                                         "The first field (DEVICE) contains the name of your "
  93                                         "SCSI/AT device."
  94                                 )
  95                                         (if dev1 (choices dev0 dev1))
  96                                         (if dev2 (choices dev0 dev1 dev2))
  97                                         (if dev3 (choices dev0 dev1 dev2 dev3))
  98                                         (if dev4 (choices dev0 dev1 dev2 dev3 dev4))
  99                                         (if dev5 (choices dev0 dev1 dev2 dev3 dev4 dev5))
 100                                         (if dev6 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6))
 101                                         (if dev7 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6 dev7))
 102                                         (if dev8 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6 dev7 dev8))
 103                                         (if dev9 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6 dev7 dev8 dev9))
 104                                         (if dev10 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6 dev7 dev8 dev9 dev10))
 105                                         (if dev11 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6 dev7 dev8 dev9 dev10 dev11))
 106                                         (if dev12 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6 dev7 dev8 dev9 dev10 dev11 dev12))
 107                                         (if dev13 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6 dev7 dev8 dev9 dev10 dev11 dev12 dev13))
 108                                         (if dev14 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6 dev7 dev8 dev9 dev10 dev11 dev12 dev13 dev14))
 109                                         (if dev15 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6 dev7 dev8 dev9 dev10 dev11 dev12 dev13 dev14 dev15))
 110                                         (if dev16 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6 dev7 dev8 dev9 dev10 dev11 dev12 dev13 dev14 dev15 dev16))
 111                                         (if dev17 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6 dev7 dev8 dev9 dev10 dev11 dev12 dev13 dev14 dev15 dev16 dev17))
 112                                         (if dev18 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6 dev7 dev8 dev9 dev10 dev11 dev12 dev13 dev14 dev15 dev16 dev17 dev18))
 113                                         (if dev19 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6 dev7 dev8 dev9 dev10 dev11 dev12 dev13 dev14 dev15 dev16 dev17 dev18 dev19))
 114                                         (if dev20 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6 dev7 dev8 dev9 dev10 dev11 dev12 dev13 dev14 dev15 dev16 dev17 dev18 dev19 dev20))
 115                                         (if dev21 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6 dev7 dev8 dev9 dev10 dev11 dev12 dev13 dev14 dev15 dev16 dev17 dev18 dev19 dev20 dev21))
 116                                 (default 0)
 117                         )
 118                 )
 119                 (user old-level)
 120         )
 121 )
 122
 123 (if #morphos
 124         (set default-device "ide.device")
 125         (set default-device "scsi.device")
 126 )
 127
 128 (if ask-device
 129         (
 130                 (if (= 1 ask-device) (set device dev1))
 131                 (if (= 2 ask-device) (set device dev2))
 132                 (if (= 3 ask-device) (set device dev3))
 133                 (if (= 4 ask-device) (set device dev4))
 134                 (if (= 5 ask-device) (set device dev5))
 135                 (if (= 6 ask-device) (set device dev6))
 136                 (if (= 7 ask-device) (set device dev7))
 137                 (if (= 8 ask-device) (set device dev8))
 138                 (if (= 9 ask-device) (set device dev9))
 139                 (if (= 10 ask-device) (set device dev10))
 140                 (if (= 11 ask-device) (set device dev11))
 141                 (if (= 12 ask-device) (set device dev12))
 142                 (if (= 13 ask-device) (set device dev13))
 143                 (if (= 14 ask-device) (set device dev14))
 144                 (if (= 15 ask-device) (set device dev15))
 145                 (if (= 16 ask-device) (set device dev16))
 146                 (if (= 17 ask-device) (set device dev17))
 147                 (if (= 18 ask-device) (set device dev18))
 148                 (if (= 19 ask-device) (set device dev19))
 149                 (if (= 20 ask-device) (set device dev20))
 150                 (if (= 21 ask-device) (set device dev21))
 151         )
 152         (
 153                 (user 2)
 154                 (set device
 155                         (askstring
 156                                 (prompt "\nEnter the name of your SCSI/AT device:\n")
 157                                 (help "\n"
 158                                         "The first field (DEVICE) contains the name of "
 159                                         "your SCSI/AT device."
 160                                 )
 161                                 (default default-device)
 162                         )
 163                 )
 164                 (user old-level)
 165         )
 166 )
 167 (complete 10)
 168
 169 (user 2)
 170 (set unit
 171         (askchoice
 172                 (prompt "\n\nChoose the unit (ID) of your CDROM drive:\n\n")
 173                 (help "\n"
 174                         "The second field (UNIT) contains the target ID (aka \"SCSI-ID\") "
 175                         "of your CDROM drive. If your CDROM drive supports multiple logical units, "
 176                         "such as the Pioneer DRM-604X six disk changer drive, then the 10s digit "
 177                         "of the number in this field should be the LUN of the desired disk."
 178                 )
 179                 (choices "unit 0" "unit 1" "unit 2" "unit 3" "unit 4" "unit 5" "unit 6" "unit 7")
 180                 (default 0)
 181         )
 182 )
 183 (user old-level)
 184 (complete 15)
 185
 186 (user 2)
 187
 188 (if #morphos
 189         (set default-mem 3)
 190         (set default-mem 0)
 191 )
 192 (set memtype
 193         (askchoice
 194                 (prompt "\nMemory options:\n")
 195                 (help "\n"
 196                         "Some SCSI devices can only read from or write to chip memory. "
 197                         "(The A3000 scsi.device is able to use fast memory.)\n\n"
 198                         "\"24 bit DMA memory\" means that only "
 199                         "memory addresses below 0x01000000 are considered for "
 200                         "buffering.\n\n"
 201                         "IDE controllers are usually able to use any memory."
 202                 )
 203                 (choices
 204                         "use CHIP memory for SCSI buffers"
 205                         "use FAST memory for SCSI buffers"
 206                         "use 24 bit DMA memory for SCSI buffers"
 207                         "use ANY memory available")
 208                 (default default-mem)
 209         )
 210 )
 211 (user old-level)
 212 (complete 20)
 213
 214 (if memtype
 215         (
 216                 (if (= 0 memtype) (set memtype "2"))
 217                 (if (= 1 memtype) (set memtype "4"))
 218                 (if (= 2 memtype) (set memtype "32"))
 219                 (if (= 3 memtype) (set memtype "0"))
 220
 221         )
 222 )
 223
 224 (user 2)
 225 (set other-options
 226         (askoptions
 227                 (prompt "\nOther options:\n")
 228                 (help "\n"
 229                         "ROCKRIDGE=R: Use Rock Ridge file names, if possible.\n\n"
 230                         "JOLIET=J: Use Joliet file names, if possible.\n\n"
 231                         "SHOWVERSION=SV: Show version numbers.\n\n"
 232                         "RETRY: Do not report an error if the CDROM drive is switched off while "
 233                         "mounting the filesystem. The \"C:Mount\" program will hang until "
 234                         "the CDROM drive is switched on."
 235                 )
 236                 (choices
 237                         "use Rock Ridge file names, if possible"
 238                         "use Joliet file names, if possible"
 239                         "use trackdisk-device instead of SCSI-direct"
 240                         "show version numbers"
 241                         "don't report an error if CDROM is switched off"
 242                 )
 243                 (default 3)
 244         )
 245 )
 246 (user old-level)
 247 (complete 25)
 248
 249 (set startstr "")
 250 (if (IN other-options 0) (set startstr (cat startstr #space "ROCKRIDGE")))
 251 (if (IN other-options 1) (set startstr (cat startstr #space "JOLIET")))
 252 (if (IN other-options 2) (set startstr (cat startstr #space "SHOWVERSION")))
 253 (if (IN other-options 3) (set startstr (cat startstr #space "RETRY")))
 254
 255 (user 2)
 256 (set case-options
 257         (askchoice
 258                 (prompt "\nMap filenames to lower case:\n")
 259                 (help "\n"
 260                         "LOWERCASE=L: Map ISO-9660 names to lower case.\n\n"
 261                         "MAYBELOWERCASE=ML: Do not convert the filenames if the CDROM is a "
 262                         "CDTV or CD32 disk, or a disk created by Mkisofs. "
 263                         "Otherwise, map the filenames to lower case.\n\n"
 264                         "(LOWERCASE and MAYBELOWERCASE are mutually exclusive.)"
 265                 )
 266                 (choices
 267                         "map to lower (except CDTV, CD32, Mkisoft)"
 268                         "map to lower case (always)"
 269                         "don't map filenames")
 270                 (default 0)
 271         )
 272 )
 273 (user old-level)
 274 (complete 30)
 275
 276 (if (= 0 case-options) (set startstr (cat startstr #space "MAYBELOWERCASE")))
 277 (if (= 1 case-options) (set startstr (cat startstr #space "LOWERCASE")))
 278 ;(if (= 2 case-options) (...))
 279
 280 (user 2)
 281 (set std-buf
 282         (asknumber
 283                 (prompt
 284                         "\n\nEnter the number of 2048 byte buffers for\n"
 285                         "general access to the CDROM drive:\n")
 286                 (help "\n"
 287                         "Number of 2048 byte buffers for general access to the "
 288                         "CDROM drive. Default = 5 buffers"
 289                 )
 290                 (default 5)
 291         )
 292 )
 293 (user old-level)
 294 (complete 35)
 295
 296 (user 2)
 297 (set file-buf
 298         (asknumber
 299                 (prompt
 300                         "\n\nEnter the number of 2048 byte buffers for\n"
 301                         "file access with the AmigaDOS Read() call:\n")
 302                 (help "\n"
 303                         "FILEBUFFERS=FB: Number of 2048 byte buffers for file access with the "
 304                         "AmigaDOS Read() call. Default = 5 buffers"
 305                 )
 306                 (default 5)
 307         )
 308 )
 309 (user old-level)
 310 (complete 40)
 311
 312 (if (<> 5 file-buf) (set startstr (cat startstr #space "FILEBUFFERS=" file-buf)))
 313
 314 (user 2)
 315 (set diskchg
 316         (asknumber
 317                 (prompt
 318                         "\nEnter the time between two successive diskchange checks in seconds.\n\n"
 319                         "If the value of this option is 0, then no diskchange "
 320                         "checks will be performed; in this case, you have to use "
 321                         "the C:DiskChange command in order to inform AmiCDROM that "
 322                         "a disk has been changed.\n")
 323                 (help "\n"
 324                         "SCANINTERVAL=SI: Time between two successive diskchange checks. "
 325                         "Default = 3 seconds.\n"
 326                         "If the value of this option is 0, then no diskchange "
 327                         "checks will be performed; in this case, you have to use "
 328                         "the C:DiskChange command in order to inform AmiCDROM that "
 329                         "a disk has been changed.\n"
 330                 )
 331                 (default 3)
 332         )
 333 )
 334 (user old-level)
 335 (complete 45)
 336
 337 (if (<> 3 diskchg) (set startstr (cat startstr #space "SCANINTERVAL=" diskchg)))
 338
 339 (user 2)
 340 (set cdda-file
 341         (askfile
 342                 (prompt
 343                         "Select the command which should be executed, when you "
 344                         "double-click a CD-DA (AudioCD) icon or click Proceed.")
 345                 (help "\n"
 346                         "PLAYCDDA=PC: Name of the command to be executed if the user double-"
 347                         "clicks at the \"CD-DA\" icon. If you want to execute "
 348                         "a command with parameters, you have to create "
 349                         "a script file containing the command plus parameters. "
 350                         "The name of the script file has to be passed as an "
 351                         "argument to the PC option. Don't forget to set the "
 352                         "\"S\" protection bit of the script file."
 353                 )
 354                 (default "")
 355         )
 356 )
 357 (user old-level)
 358 (complete 50)
 359
 360 (if (NOT (= "" cdda-file)) (set startstr (cat startstr #space "PLAYCDDA=" cdda-file)))
 361
 362 (user 2)
 363 (set icon-pos
 364         (askchoice
 365                 (prompt "\n\nSelect CD-DA (AudioCD) icon position:\n")
 366                 (help "\nDefault: WB selects position.")
 367                 (choices
 368                         "Workbench selects position"
 369                         "enter own position")
 370                 (default 0)
 371         )
 372 )
 373 (user old-level)
 374 (complete 55)
 375
 376 (if icon-pos
 377         (
 378                 (user 2)
 379                 (set x-pos
 380                         (asknumber
 381                                 (prompt "\n\nEnter the x-position for the CD-DA (AudioCD) icon:\n")
 382                                 (help "\nX position of CD-DA icon. (Default: WB selects position.)")
 383                         )
 384                 )
 385                 (set y-pos
 386                         (asknumber
 387                                 (prompt "\n\nEnter the y-position for the CD-DA (AudioCD) icon:\n")
 388                                 (help "\nY position of CD-DA icon. (Default: WB selects position.)")
 389                         )
 390                 )
 391                 (user old-level)
 392
 393                 (if x-pos (set startstr (cat startstr #space "XPOS=" x-pos)))
 394                 (if y-pos (set startstr (cat startstr #space "YPOS=" y-pos)))
 395         )
 396 )
 397 (complete 60)
 398
 399 ;Mac
 400
 401 (user 2)
 402 (set ask-mac
 403         (askbool
 404                 (prompt
 405                         "\n\n\nDo you want to configure also the options\n"
 406                         "which are for Mac-CDs only?\n")
 407                 (help "\n"
 408                         "The following options are only interesting for you, "
 409                         "if you have some Mac-CDs or if you plan to get some "
 410                         "in future."
 411                 )
 412                 (default 0)
 413         )
 414 )
 415 (user old-level)
 416 (complete 65)
 417
 418 (if ask-mac
 419         (
 420                 (user 2)
 421                 (set other-options
 422                         (askoptions
 423                                 (prompt "\nMac options:\n")
 424                                 (help "\n"
 425                                         "MACTOISO=MI: Convert Mac characters into ISO-Latin-1 (Amiga) characters. "
 426                                         "(The conversion applies only to the filenames, not to "
 427                                         "the contents of the files.) Additionally, the character "
 428                                         "':' will be converted into a '.', and '/' will be "
 429                                         "converted into '-'; this is necessary because AmigaDOS cannot "
 430                                         "handle filenames containing those characters.\n\n"
 431                                         "CONVERTSPACES=CS: Convert spaces in MacHFS filenames into underscores ('_').\n\n"
 432                                         "HFSFIRST=HF: If a new disk is mounted, AmiCDROM normally tests first "
 433                                         "if the new disk is a ISO-9660 disk. If the option \"HF\" "
 434                                         "is given, then the disk is first examined for a HFS "
 435                                         "partition.\n"
 436                                         "This option is useful if you have a \"multi-platform\" "
 437                                         "disk with both a ISO-9660 and a HFS partition. Without "
 438                                         "the option you get the ISO partition; with the option "
 439                                         "you get the HFS partition."
 440                                 )
 441                                 (choices
 442                                         "convert Mac characters into Amiga characters"
 443                                         "convert space in MacHFS filenames to underscore"
 444                                         "examine CD first for a HFS partition"
 445                                 )
 446                                 (default 0)
 447                         )
 448                 )
 449                 (user old-level)
 450                 (complete 67)
 451
 452                 (if (IN other-options 0) (set startstr (cat startstr #space "MACTOISO")))
 453                 (if (IN other-options 1) (set startstr (cat startstr #space "CONVERTSPACES")))
 454                 (if (IN other-options 2) (set startstr (cat startstr #space "HFSFIRST")))
 455
 456                 (user 2)
 457                 (set data-fork
 458                         (askstring
 459                                 (prompt
 460                                         "\nEnter the extension for the data fork\n"
 461                                         "of a file on MacHFS disks:\n\n"
 462                                         "(leave it empty, if you are not sure!)\n")
 463                                 (help "\n"
 464                                         "DATAEXT=DE: Extension for the data fork of a file on MacHFS disks.\n\n"
 465                                         "RESOURCEEXT=RE: Extension for the resource fork of a file on MacHFS disks.\n\n"
 466                                         "(If neither DE nor RE are given, DE is set to the empty "
 467                                         "string and RE is set to \".rsrc\".)"
 468                                 )
 469                         )
 470                 )
 471                 (complete 68)
 472                 (set res-fork
 473                         (askstring
 474                                 (prompt
 475                                         "\nEnter the extension for the resource fork\n"
 476                                         "of a file on MacHFS disks:\n\n"
 477                                         "(leave it empty, if you are not sure!)\n")
 478                                 (help "\n"
 479                                         "DATAEXT=DE: Extension for the data fork of a file on MacHFS disks.\n\n"
 480                                         "RESOURCEEXT=RE: Extension for the resource fork of a file on MacHFS disks.\n\n"
 481                                         "(If neither DE nor RE are given, DE is set to the empty "
 482                                         "string and RE is set to \".rsrc\".)"
 483                                 )
 484                         )
 485                 )
 486                 (user old-level)
 487
 488                 (if res-fork (set startstr (cat startstr #space "RESOURCEEXT=" res-fork)))
 489                 (if data-fork (set startstr (cat startstr #space "DATAEXT=" data-fork)))
 490         )
 491 )
 492 (complete 70)
 493
 494 (user 2)
 495 (set copy-charsets
 496         (askbool
 497                 (prompt
 498                         "\n\n\nDo you want to install supplied\n"
 499                         "character set tables?\n")
 500                 (help "\n"
 501                         "You may choose not to install them, if you already "
 502                         "have them, for example if you have codesets.library "
 503                         "installed."
 504                 )
 505                 (default 0)
 506         )
 507 )
 508 (user old-level)
 509
 510 (if copy-charsets
 511         (copyfiles
 512                 (prompt "\nInstalling character set tables")
 513                 (help #na)
 514                 (source "Charsets")
 515                 (dest   charsetsdir)
 516                 (all)
 517         )
 518 )
 519
 520 (user 2)
 521 (set charset-file
 522         (askfile
 523                 (prompt
 524                         "Select the character set translation table you wish "
 525                         "to use for Joliet disks or click Proceed for default "
 526                         "built-in Latin-1 table.\n\n"
 527                         "These tables are usually placed in LIBS:Charsets.")
 528                 (help "\n"
 529                         "UNICODETABLE=UT: Name of the external table used to "
 530                         "translate characters on Joliet disks. "
 531                         "The name of the table file has to be passed in an "
 532                         "absolute form."
 533                 )
 534                 (default charsetsdir)
 535         )
 536 )
 537 (user old-level)
 538 (complete 73)
 539
 540 (if (NOT (= charsetsdir charset-file)) (set startstr (cat startstr #space "UNICODETABLE=" charset-file)))
 541
 542 (set startstr (substr startstr 1 (strlen startstr)))
 543 (set startstr (cat "\"" startstr "\"")) ; startup fertig
 544
 545 (user 2)
 546 (set dosdevice
 547         (askstring
 548                 (prompt "\n\n"
 549                         "Enter the AmigaDOS device-name you want to use for your CDROM drive:\n\n"
 550                 )
 551                 (help #na)
 552                 (default "CD0:")
 553         )
 554 )
 555 (user old-level)
 556
 557 (complete 75)
 558
 559 ; copy 'device' to 'dev-name' and kill ':'
 560 (set dev-name (substr dosdevice 0 (- (strlen dosdevice) 1)))
 561
 562 (user 2)
 563 (set auto-mount
 564         (askbool
 565                 (prompt "Do you want to auto-mount "device" during every system-start?\n"
 566                         "\n"
 567                         "KillDevice tool (for MorphOS) will not be inserted into\n"
 568                         "Startup-Sequence automatically, you will need to do it manually"
 569                 )
 570                 (help "\n"
 571                         "Workbench 2.0:\n\n"
 572                         "Auto-Mount: The entry \"Mount >NIL: "device"\" will be added "
 573                         "in your user-startup\n\n"
 574                         "No: Nothing will be added anywhere. If you want to access your "
 575                         "CDs, you will have to type \"Mount "device"\" in your shell first.\n\n"
 576                         "Workbench 2.1+ or MorphOS:\n\n"
 577                         "Auto-Mount: The file "dev-name" will be placed in your "
 578                         "directory \"SYS:Devs/DOSDrivers\"\n\n"
 579                         "No: The file "dev-name" will be placed in your "
 580                         "directory \"SYS:Storage/DOSDrivers\"\n"
 581                 )
 582                 (choices "Auto-Mount" "No")
 583         )
 584 )
 585 (user old-level)
 586 (complete 80)
 587
 588 (if (<= #wbversion 37)
 589         (
 590                 (protect "DEVS:MountList" "+wd")
 591                 (textfile
 592                         (prompt "\nCreating Workbench 2.0 Mountlist-Entry")
 593                         (help #na)
 594                         (dest   "DEVS:MountList")
 595                         (if (exists "DEVS:MountList") (include "DEVS:MountList"))
 596                         (append "\n/* CDVDFS filesystem V"#amicdrom-version" */\n\n"
 597                                 dosdevice"     Handler       = "ldir2"cdrom-handler\n"
 598                                 "        Stacksize      = 10000\n"
 599                                 "        Priority       = 5\n"
 600                                 "        GlobVec        = -1\n"
 601                                 "        Mount          = 1\n"
 602                                 "        Device         = "device"\n"
 603                                 "        Unit           = "unit"\n"
 604                                 "        LowCyl         = 0\n"
 605                                 "        HighCyl        = 0\n"
 606                                 "        Surfaces       = 1\n"
 607                                 "        BlocksPerTrack = 1\n"
 608                                 "        Buffers        = "std-buf"\n"
 609                                 "        BufMemType     = "memtype"\n"
 610                                 "        DosType        = 0x43444653\n"
 611                                 "        Control        = "startstr"\n"
 612                                 "#\n")
 613                 )
 614                 (if auto-mount
 615                         (
 616                                 (user 1) ; nicht auf EXPERT!!
 617                                 (startup
 618                                         "AmiCDROM"
 619                                         (prompt "\nEditing your startup")
 620                                         (help #na)
 621                                         (command (cat "Mount >NIL: " dosdevice))
 622                                 )
 623                                 (user old-level)
 624                         )
 625                 )
 626         )
 627         (
 628                 (if auto-mount
 629                         (set dev-dir "SYS:Devs/DOSDrivers")
 630                         (set dev-dir "SYS:Storage/DOSDrivers")
 631                 )
 632
 633                 (protect (tackon dev-dir dev-name) "+wd")
 634                 (textfile
 635                         (prompt "\nCreating Workbench 2.1+ mount-entry")
 636                         (help #na)
 637                         (dest (tackon dev-dir dev-name))
 638                         (append "/* CDVDFS filesystem V"#amicdrom-version" */\n\n"
 639                                 " Handler        = "ldir2"cdrom-handler\n"
 640                                 " Stacksize      = 10000\n"
 641                                 " Priority       = 5\n"
 642                                 " GlobVec        = -1\n"
 643                                 " Mount          = 1\n"
 644                                 " ForceLoad      = 1\n"
 645                                 " Device         = "device"\n"
 646                                 " Unit           = "unit"\n"
 647                                 " LowCyl         = 0\n"
 648                                 " HighCyl        = 0\n"
 649                                 " Surfaces       = 1\n"
 650                                 " BlocksPerTrack = 1\n"
 651                                 " Buffers        = "std-buf"\n"
 652                                 " BufMemType     = "memtype"\n"
 653                                 " DosType        = 0x43444653\n"
 654                                 " Control        = "startstr"\n"
 655                         )
 656                 )
 657
 658                 (protect (cat (tackon dev-dir dev-name) ".info") "+wd")
 659                 (copyfiles
 660                         (prompt "\nCreating Workbench 2.1+ mount-entry icon")
 661                         (help #na)
 662                         (source "CD0.info")             ; ***TODO***
 663                         (dest   dev-dir)
 664                         (newname (cat dev-name ".info"))
 665                 )
 666
 667                 (tooltype
 668                         (dest (tackon dev-dir dev-name))
 669                         (noposition)
 670                 )
 671         )
 672 )
 673
 674 (complete 90)
 675
 676 (copyfiles
 677         (prompt "\nInstalling "ldir2"cdrom-handler")
 678         (help #na)
 679         (source "l/cdrom-handler")              ; ***TODO***
 680         (dest   ldir)
 681 )
 682 (copyfiles
 683         (prompt "\nInstalling "cdir2"cdcontrol")
 684         (help #na)
 685         (source "c/cdcontrol")
 686         (dest   cdir)
 687 )
 688 (copyfiles
 689         (prompt "\nInstalling "cdir2"checkcd")
 690         (help #na)
 691         (source "c/checkcd")
 692         (dest   cdir)
 693 )
 694 (copyfiles
 695         (prompt "\nInstalling "cdir2"cdrom")
 696         (help #na)
 697         (source "c/cdrom")
 698         (dest   cdir)
 699 )
 700 (if #morphos
 701         (copyfiles
 702                 (prompt "\nInstalling "cdir2"KillDevice")
 703                 (help #na)
 704                 (source "C/KillDevice")
 705                 (dest   cdir)
 706         )
 707 )
 708 (copyfiles
 709         (prompt "\nInstalling documentation")
 710         (help #na)
 711         (source "CDVDFS.guide")
 712         (dest   docdir)
 713         (infos)
 714 )
 715
 716 (complete 100)
 717