home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 May / IMM0595.ISO / driver / mitsumi / mtmnt111.exe / OEMSETUP.INF < prev    next >
Encoding:
INI File  |  1994-04-19  |  13.7 KB  |  400 lines
  1.  
  2. [Identification]
  3.     OptionType = SCSI
  4.  
  5. [LanguagesSupported]
  6.     ENG
  7.  
  8. [Options]
  9.     "OEMMTM"    = MtmCD
  10.  
  11. [OptionsTextENG]
  12.     "OEMMTM"    = "MITSUMI CD-ROM Drive"
  13.  
  14. [MiniportDrivers]
  15.     MtmCD  = !SERVICE_KERNEL_DRIVER, "SCSI CDROM Class", !SERVICE_ERROR_NORMAL,  2, %SystemRoot%\System32\IoLogMsg.dll , 7
  16.  
  17. [Identify]
  18.     read-syms Identification
  19.     set Status     = STATUS_SUCCESSFUL
  20.     set Identifier = $(OptionType)
  21.     set Media      = #("Source Media Descriptions", 1, 1)
  22.     Return $(Status) $(Identifier) $(Media)
  23.  
  24. [ReturnOptions]
  25.     set Status        = STATUS_FAILED
  26.     set OptionList     = {}
  27.     set OptionTextList = {}
  28.     ;
  29.     ; Check if the language requested is supported
  30.     ;
  31.     set LanguageList = ^(LanguagesSupported, 1)
  32.     Ifcontains(i) $($0) in $(LanguageList)
  33.         goto returnoptions
  34.     else
  35.         set Status = STATUS_NOLANGUAGE
  36.         goto finish_ReturnOptions
  37.     endif
  38.     ;
  39.     ; form a list of all the options and another of the text representing
  40.     ;
  41. returnoptions = +
  42.     set OptionList     = ^(Options, 0)
  43.     set OptionTextList = ^(OptionsText$($0), 1)
  44.     set Status         = STATUS_SUCCESSFUL
  45. finish_ReturnOptions = +
  46.     Return $(Status) $(OptionList) $(OptionTextList)
  47.  
  48. [InstallOption]
  49.     ;
  50.     ; Set default values for
  51.     ;
  52.     set Status = STATUS_FAILED
  53.     set DrivesToFree = {}
  54.     ;
  55.     ; extract parameters
  56.     ;
  57.     set Option   = $($1)
  58.     set SrcDir   = $($2)
  59.     set AddCopy  = $($3)
  60.     set DoCopy   = $($4)
  61.     set DoConfig = $($5)
  62.     set ExitCode = 0
  63.     ;
  64.     ; Check if the language requested is supported
  65.     ;
  66.     set LanguageList = ^(LanguagesSupported, 1)
  67.     Ifcontains(i) $($0) in $(LanguageList)
  68.     else
  69.         set Status = STATUS_NOLANGUAGE
  70.         goto finish_InstallOption
  71.     endif
  72.     read-syms Strings$($0)
  73.     ;
  74.     ; check to see if Option is supported.
  75.     ;
  76.     set OptionList = ^(Options, 0)
  77.     ifcontains $(Option) in $(OptionList)
  78.     else
  79.         Debug-Output "SCSI.INF: SCSI option is not supported."
  80.         goto finish_InstallOption
  81.     endif
  82.     set OptionList = ""
  83.     ;
  84.     ; Option has been defined already
  85.     ;
  86.     set MiniportDriver   =   #(Options,         $(Option),         1)
  87.     set Type             = $(#(MiniportDrivers, $(MiniportDriver), 1))
  88.     set Group            =   #(MiniportDrivers, $(MiniportDriver), 2)
  89.     set ErrorControl     = $(#(MiniportDrivers, $(MiniportDriver), 3))
  90.     set Tag              =   #(MiniportDrivers, $(MiniportDriver), 4)
  91.     set EventMessageFile =   #(MiniportDrivers, $(MiniportDriver), 5)
  92.     set TypesSupported   =   #(MiniportDrivers, $(MiniportDriver), 6)
  93.     set Start            =   $(!SERVICE_BOOT_START)
  94.  
  95. installtheoption = +
  96.     ;
  97.     ; Code to add files to copy list
  98.     ;
  99.     ifstr(i) $(AddCopy) == "YES"
  100.         set DoActualCopy = NO
  101.         set FileToCheck = #(Files-ScsiMiniportDrivers, $(MiniportDriver), 2)
  102.         LibraryProcedure STATUS,$(!LIBHANDLE),CheckFileExistance $(!STF_WINDOWSSYSPATH)"\drivers\"$(FileToCheck)
  103.         ifstr(i) $(STATUS) == NO
  104.             set DoActualCopy = YES
  105.         endif
  106.  
  107.         set DoActualSetup = YES
  108.         set FileToCheckE = #(Files-Setup, $(MiniportDriver), 2)
  109.         LibraryProcedure STATUS,$(!LIBHANDLE),CheckFileExistance $(!STF_WINDOWSSYSPATH)\$(FileToCheckE)
  110.         ifstr(i) $(STATUS) == NO
  111.             set DoActualSetup = NO
  112.         endif
  113.  
  114.         ifstr(i) $(DoActualCopy) == NO
  115.             shell "subroutn.inf" DriversExist $($0) $(String1)
  116.             ifint $($ShellCode) != $(!SHELL_CODE_OK)
  117.                 Debug-Output "SCSI.INF: shelling DriversExist failed"
  118.                 goto finish_InstallOption
  119.             endif
  120.  
  121.             ifstr(i) $($R0) == STATUS_CURRENT
  122.             else-ifstr(i) $($R0) == STATUS_NEW
  123.                 set DoActualCopy = YES
  124.             else-ifstr(i) $($R0) == STATUS_USERCANCEL
  125.                 Debug-Output "SCSI.INF: User cancelled SCSI installation"
  126.                 goto finish_InstallOption
  127.             else
  128.                 Debug-Output "SCSI.INF: Error reported in DriversExist routine in SUBROUTN.INF"
  129.                 goto finish_InstallOption
  130.             endif
  131.         endif
  132.  
  133.         ifstr(i) $(DoActualCopy) == YES
  134.             shell "subroutn.inf" DoAskSourceEx $(SrcDir) $(String2)
  135.             ifint $($ShellCode) != $(!SHELL_CODE_OK)
  136.                 Debug-Output "SCSI.INF: shelling DoAskSourceEx failed"
  137.                 goto finish_InstallOption
  138.             endif
  139.  
  140.             ifstr(i) $($R0) == STATUS_SUCCESSFUL
  141.                 set SrcDir = $($R1)
  142.                 ifstr(i) $($R2) != ""
  143.                     set DrivesToFree = >($(DrivesToFree), $($R2))
  144.                 endif
  145.             else
  146.                 Debug-Output "SCSI.INF: User cancelled asking source."
  147.                 goto finish_InstallOption
  148.             endif
  149.         else
  150.             set DoCopy = NO
  151.         endif
  152.     endif
  153.  
  154.     ifstr(i) $(DoConfig) == "YES"
  155.         ;
  156.         ; first run a privilege check on modifying the setup node
  157.         ;
  158.         shell "registry.inf" CheckSetupModify
  159.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  160.             goto finish_InstallOption
  161.         endif
  162.  
  163.         ifstr(i) $($R0) != STATUS_SUCCESSFUL
  164.             goto finish_InstallOption
  165.         endif
  166.  
  167.         ifstr(i) $(DoCopy) == "YES"
  168.             ;
  169.             ; call SETUPB.EXE
  170.             ;
  171.             RunProgram ExitCode "" "" $(SrcDir)\setupb.exe 1
  172.             ifint $(ExitCode) != 0
  173.                 set Status = STATUS_USERCANCEL
  174.                 goto finish_InstallOption
  175.             endif
  176.         else
  177.             ifstr(i) $(DoActualSetup) == "YES"
  178.                 ;
  179.                 ; call SETUPB.EXE
  180.                 ;
  181.                 RunProgram ExitCode "" "" $(!STF_WINDOWSSYSPATH)\setupb.exe 2
  182.                 ifint $(ExitCode) != 0
  183.                     set Status = STATUS_USERCANCEL
  184.                     goto finish_InstallOption
  185.                 endif
  186.             else
  187.                 ;
  188.                 ; enable the registry entry
  189.                 ;
  190.                 shell "registry.inf" ModifyServicesEntry $(MiniportDriver) $(!SERVICE_BOOT_START)
  191.                 ifint $($ShellCode) != $(!SHELL_CODE_OK)
  192.                     Debug-Output "SCSI.INF: Failed to shell ModifyServicesEntry"
  193.                     goto finish_InstallOption
  194.                 endif
  195.  
  196.                 ifstr(i) $($R0) != STATUS_SUCCESSFUL
  197.                     Debug-Output "SCSI.INF: Failed to enable services entry"
  198.                     goto finish_InstallOption
  199.                 endif
  200.             endif
  201.         endif
  202.     endif
  203.  
  204.     set Status = STATUS_SUCCESSFUL
  205. finish_InstallOption = +
  206.     ForListDo $(DrivesToFree)
  207.         LibraryProcedure STATUS,$(!LIBHANDLE), DeleteNetConnection $($) "TRUE"
  208.     EndForListDo
  209.  
  210.     Return $(Status)
  211.  
  212. [DeInstallOption]
  213.     Debug-Output "MTMCD: DeInstallOptions Section..."
  214.     ;
  215.     ; Set default values for
  216.     ;
  217.     set Status   = STATUS_FAILED
  218.     ;
  219.     ; extract parameters
  220.     ;
  221.     set Option   = $($1)
  222.     ;
  223.     ; Check if the language requested is supported
  224.     ;
  225.     set LanguageList = ^(LanguagesSupported, 1)
  226.     Ifcontains(i) $($0) in $(LanguageList)
  227.     else
  228.         set Status = STATUS_NOLANGUAGE
  229.         goto finish_DeInstallOption
  230.     endif
  231.     read-syms Strings$($0)
  232.     ;
  233.     ; check to see if Option is supported.
  234.     ;
  235.     set OptionList = ^(Options, 0)
  236.     ifcontains $(Option) in $(OptionList)
  237.     else
  238.         goto finish_DeInstallOption
  239.     endif
  240.     set OptionList = ""
  241.     ;
  242.     ; fetch details about option
  243.     ;
  244.     set MiniportDriver = #(Options, $(Option), 1)
  245.     set MiniportFile   = #(Files-ScsiMiniportDrivers, $(MiniportDriver), 2)
  246.     set FilePath       = $(!STF_WINDOWSSYSPATH)"\drivers\"$(MiniportFile)
  247.     ;
  248.     ; check to see if file is installed
  249.     ; if not give success
  250.     ;
  251.     LibraryProcedure STATUS,$(!LIBHANDLE),CheckFileExistance $(FilePath)
  252.     ifstr(i) $(STATUS) == "NO"
  253.         set Status = STATUS_SUCCESSFUL
  254.         goto finish_DeInstallOption
  255.     endif
  256.  
  257.     shell "registry.inf" GetServicesEntryStart $(MiniportDriver)
  258.     ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
  259.         ; this could happen if there is no start value or there is no
  260.         ; key, in which case the option is not installed
  261.         set Status = STATUS_SUCCESSFUL
  262.         goto finish_DeInstallOption
  263.     endif
  264.  
  265.     ifstr(i) $($R1) == $(!SERVICE_BOOT_START)
  266.         shell "subroutn.inf" SetupMessage $(!STF_LANGUAGE) "WARNING" $(String3)
  267.         ifstr(i) $($R0) != STATUS_SUCCESSFUL
  268.             goto do_removal
  269.         endif
  270.         ifstr(i) $($R1) == "CANCEL"
  271.             goto finish_DeInstallOption
  272.         endif
  273.     endif
  274.  
  275. do_removal =+
  276.     ;
  277.     ; disable the registry entry
  278.     ;
  279.     shell "registry.inf" RemoveServicesEntry $(MiniportDriver)
  280.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  281.         Debug-Output "SCSI.INF: Failed to shell RemoveServicesEntry"
  282.         goto finish_DeInstallOption
  283.     endif
  284.  
  285.     ifstr(i) $($R0) != STATUS_SUCCESSFUL
  286.         Debug-Output "SCSI.INF: Failed to disable services entry"
  287.         goto finish_DeInstallOption
  288.     endif
  289.     ;
  290.     ; we won't remove the file because we can only do so during the next boot.
  291.     ; if the user chooses to reinstall the same driver during this boot
  292.     ; he will still end up deleting the driver on next boot. if the file
  293.     ; should be deleted a warning should be put up saying that the user should
  294.     ; not try to reinstall the driver during this boot
  295.     ;
  296.     ;    AddFileToDeleteList $(FilePath)
  297.  
  298.     set Status = STATUS_SUCCESSFUL
  299. finish_DeInstallOption =+
  300.     return $(Status)
  301.  
  302. [GetInstalledOptions]
  303.     set Status = STATUS_FAILED
  304.     set InstalledOptions = {}
  305.     set InstalledOptionsText = {}
  306.     ;
  307.     ; Check if the language requested is supported
  308.     ;
  309.     set LanguageList = ^(LanguagesSupported, 1)
  310.     Ifcontains(i) $($0) in $(LanguageList)
  311.     else
  312.         set Status = STATUS_NOLANGUAGE
  313.         goto finish_GetInstalledOptions
  314.     endif
  315.  
  316.     set OptionList = ^(Options, 0)
  317.     ForListDo $(OptionList)
  318.         set MiniportDriver = #(Options, $($), 1)
  319.         set MiniportFile   = #(Files-ScsiMiniportDrivers, $(MiniportDriver), 2)
  320.         set FilePath       = $(!STF_WINDOWSSYSPATH)"\drivers\"$(MiniportFile)
  321.         LibraryProcedure STATUS,$(!LIBHANDLE),CheckFileExistance $(FilePath)
  322.         ifstr(i) $(STATUS) == "YES"
  323.             shell "registry.inf" GetServicesEntryStart $(MiniportDriver)
  324.             ifint $($ShellCode) == $(!SHELL_CODE_OK)
  325.                 ifstr(i) $($R0) == STATUS_SUCCESSFUL
  326.                     ifstr(i) $($R1) != $(!SERVICE_DISABLED)
  327.  
  328.                         set OptionText = #(OptionsText$($0), $($), 1)
  329.                         set InstalledOptions     = >($(InstalledOptions), $($))
  330.                         set InstalledOptionsText = >($(InstalledOptionsText), $(OptionText))
  331.  
  332.                     endif
  333.                 endif
  334.             endif
  335.         endif
  336.     EndForListDo
  337.     set Status = STATUS_SUCCESSFUL
  338. finish_GetInstalledOptions =+
  339.     Return $(Status) $(InstalledOptions) $(InstalledOptionsText)
  340.  
  341. ;**************************************************************************
  342. ; PROGRESS GUAGE VARIABLES
  343. ;**************************************************************************
  344.  
  345. ;[ProgressCopyENG]
  346. ;    ProCaption   = "Windows NT Setup"
  347. ;    ProCancel    = "Cancel"
  348. ;    ProCancelMsg = "Windows NT is not correcly installed.  Are you sure you want "+
  349. ;                   "to cancel copying files?"
  350. ;    ProCancelCap = "Setup Message"
  351. ;    ProText1     = "Copying:"
  352. ;    ProText2     = "To:"
  353.  
  354. [StringsENG]
  355.     String1 = "MITSUMI Adapter"
  356.     String2 = "Please enter the full path to the MITSUMI "+
  357.               "Adapter files.  Then choose Continue."
  358.     String3 = "The MITSUMI Adapter has been marked as a boot device.  Removing "+
  359.               "it may cause the system not to boot."$(!LF)$(!LF)"Are you sure "+
  360.               "you want to remove the Adapter."
  361.  
  362. ;[StringF  ]
  363. ;   String1 = "Adaptateur MITSUMI"
  364. ;   String2 = "Entrez le chemin dÆaccΦs complet aux fichiers "+
  365. ;             "de lÆadaptateur MITSUMI, puis choisissez ôcontinuerö."
  366. ;   String3 = "LÆadaptateur MITSUMI a ΘtΘ repΘrΘ comme composante de mise en route. "+
  367. ;             "Sa suppression risque dÆentraver le lancement du systΦme. "+
  368. ;             "Voulez-vous rΘellement supprimer lÆadaptateur?"
  369. ;[StringG  ]
  370. ;   String1 = "MITSUMI Adapter
  371. ;   String2 = "Bitte geben Sie die vollstΣndige Pfadbezeichnung fⁿr "+
  372. ;             "die MITSUMI Adapter-Dateien ein. Dann wΣhlen Sie Fortfahren."
  373. ;   String3 = "Der MITSUMI Adapter wurde als StartgerΣt gekennzeichnet. "+
  374. ;             "Seine Entfernung kann das System am Booten hindern. "+
  375. ;             "Sind Sie sicher, da▀ Sie den Adapter entfernen m÷chten?"
  376. ;[StringI  ]
  377. ;   String1 = "Adattore MITSUMI"
  378. ;   String2 = "Prego digitare il cammino completo verso i file "+
  379. ;              dellÆadattatore MITSUMI. Poi setezionare Continua."
  380. ;   String3 = "LÆadattatore MITSUMI Φ stato marcato come unitα di boot. "+
  381. ;              Togliendolo potrebbe succedere che il sistema non riesce "+
  382. ;              pi∙ ad innescare. Siete sicuri di voler togliere lÆadattatore?"
  383. ;[StringS  ]
  384. ;   String1 = "Adaptador MITSUMI"
  385. ;   String2 = "Por favor, escriba el nombre completo del directorio para "+
  386. ;              los archivos del adaptador MITSUMI. DespuΘs seleccione Continuar."
  387. ;   String3 = "El adaptador MITSUMI ha sido determinado como unidad cargadora. "+
  388. ;              Quitarlo puede causar que el sistema no cargue. "+
  389. ;              ┐Estß Ud. seguro que quiere quitar el adaptador?"
  390.  
  391. [Source Media Descriptions]
  392.     1 = "" , TAGFILE = mtmminip.tag
  393.  
  394. [Files-ScsiMiniportDrivers]
  395. MtmCD = 1 , mtmcdaeb.sys , SIZE=57856
  396.  
  397. [Files-Setup]
  398. MtmCD = 1 , setupb.exe , SIZE=37888
  399.  
  400.