home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 April (Special) / Chip-Special_1997-04_cd.bin / panasoni / 720wintb / 720wintb.exe / OEMSETUP.INF < prev    next >
INI File  |  1996-01-08  |  14KB  |  387 lines
  1. ;***********************************************************************
  2. ; OEMSETUP.INF (01/08/96 up version)
  3. ;         GUI setup file for Panasonic d720mini based products
  4. ;    All Rights Reserved,
  5. ;           (C)COPYRIGHT 1995,96 KYUSHU MATSUSHITA ELECTRIC CO., LTD.
  6. ;***********************************************************************
  7. [Identification]
  8.     OptionType = SCSI
  9.  
  10. [LanguagesSupported]
  11.     ENG
  12.  
  13. [Options]
  14.     "d720mini"       = d720mini
  15.  
  16. [OptionsTextENG]
  17.  
  18.     "d720mini"      = "Panasonic KXLC001 SCSI Host Adapter, for NT3.51"
  19.  
  20. [MiniportDrivers]
  21.     d720mini    = !SERVICE_KERNEL_DRIVER, "SCSI Miniport", !SERVICE_ERROR_NORMAL,  17, %SystemRoot%\System32\IoLogMsg.dll , 7
  22.  
  23. [Identify]
  24.     read-syms Identification
  25.  
  26.     set Status     = STATUS_SUCCESSFUL
  27.     set Identifier = $(OptionType)
  28.     set Media      = #("Source Media Descriptions", 1, 1)
  29.  
  30.     Return $(Status) $(Identifier) $(Media)
  31.  
  32. [ReturnOptions]
  33.     set Status        = STATUS_FAILED
  34.     set OptionList     = {}
  35.     set OptionTextList = {}
  36.  
  37.     set LanguageList = ^(LanguagesSupported, 1)
  38.     Ifcontains(i) $($0) in $(LanguageList)
  39.         goto returnoptions
  40.     else
  41.         set Status = STATUS_NOLANGUAGE
  42.         goto finish_ReturnOptions
  43.     endif
  44.  
  45. returnoptions = +
  46.     set OptionList     = ^(Options, 0)
  47.     set OptionTextList = ^(OptionsText$($0), 1)
  48.     set Status         = STATUS_SUCCESSFUL
  49.  
  50. finish_ReturnOptions = +
  51.     Return $(Status) $(OptionList) $(OptionTextList)
  52.  
  53. [InstallOption]
  54.     set KeyName = "System\CurrentControlSet\Services\Pcmcia\DataBase"
  55.     OpenRegKey $(!REG_H_LOCAL) "" $(KeyName) $(!REG_KEY_ALL_ACCESS) PcmciaKeyHandle
  56.     ifstr(i) $(PcmciaKeyHandle) != ""
  57.         OpenRegKey $(!REG_H_LOCAL) "" $(KeyName)"\KME" $(!REG_KEY_ALL_ACCESS) TestKeyHandle
  58.                 ifstr(i) $(TestKeyHandle) == ""
  59.             CreateRegKey $(PcmciaKeyHandle) {"KME",0,GenericClass} "" $(!REG_KEY_ALL_ACCESS) "" KmeKeyHandle
  60.                     CreateRegKey $(KmeKeyHandle) {"KXLC001",0,GenericClass} "" $(!REG_KEY_ALL_ACCESS) "" Kxlc001KeyHandle
  61.                     SetRegValue    $(Kxlc001KeyHandle) {Driver,0,$(!REG_VT_SZ),"d720mini"}
  62.                 CloseRegKey $(Kxlc001KeyHandle)
  63.             CloseRegKey $(KmeKeyHandle)
  64.         endif
  65.         CloseRegKey $(TestKeyHandle)
  66.     endif
  67.     CloseRegKey $(PcmciaKeyHandle)
  68.  
  69.     set KeyName = "System\CurrentControlSet\Services\Scsidisk"
  70.     OpenRegKey $(!REG_H_LOCAL) "" $(KeyName) $(!REG_KEY_ALL_ACCESS) ScsidiskKeyHandle
  71.     ifstr(i) $(ScsidiskKeyHandle) != ""
  72.         GetRegValue $(ScsidiskKeyHandle) Start StartInfo
  73.         ifint *($(StartInfo),4) == 4      
  74.             SetRegValue    $(ScsidiskKeyHandle) {Start,0,$(!REG_VT_DWORD),1}
  75.         endif
  76.     endif
  77.     CloseRegKey $(PcmciaKeyHandle)
  78.  
  79.     set Status = STATUS_FAILED
  80.     set DrivesToFree = {}
  81.  
  82.     set Option   = $($1)
  83.     set SrcDir   = $($2)
  84.     set AddCopy  = $($3)
  85.     set DoCopy   = $($4)
  86.     set DoConfig = $($5)
  87.  
  88.     set LanguageList = ^(LanguagesSupported, 1)
  89.     Ifcontains(i) $($0) in $(LanguageList)
  90.     else
  91.         set Status = STATUS_NOLANGUAGE
  92.         goto finish_InstallOption
  93.     endif
  94.     read-syms Strings$($0)
  95.  
  96.     set OptionList = ^(Options, 0)
  97.     ifcontains $(Option) in $(OptionList)
  98.     else
  99.         Debug-Output "SCSI.INF: SCSI option is not supported."
  100.         goto finish_InstallOption
  101.     endif
  102.     set OptionList = ""
  103.  
  104.     set MiniportDriver   =   #(Options,         $(Option),         1)
  105.     set Type             = $(#(MiniportDrivers, $(MiniportDriver), 1))
  106.     set Group            =   #(MiniportDrivers, $(MiniportDriver), 2)
  107.     set ErrorControl     = $(#(MiniportDrivers, $(MiniportDriver), 3))
  108.     set Tag              =   #(MiniportDrivers, $(MiniportDriver), 4)
  109.     set EventMessageFile =   #(MiniportDrivers, $(MiniportDriver), 5)
  110.     set TypesSupported   =   #(MiniportDrivers, $(MiniportDriver), 6)
  111.  
  112.     set Start            =   $(!SERVICE_BOOT_START)
  113.  
  114. installtheoption = +
  115.  
  116.     ifstr(i) $(AddCopy) == "YES"
  117.         set DoActualCopy = NO
  118.         set FileToCheck = #(Files-ScsiMiniportDrivers, $(MiniportDriver), 2)
  119.         LibraryProcedure STATUS,$(!LIBHANDLE),CheckFileExistance $(!STF_WINDOWSSYSPATH)"\drivers\"$(FileToCheck)
  120.         ifstr(i) $(STATUS) == NO
  121.             set DoActualCopy = YES
  122.         endif
  123.  
  124.         ifstr(i) $(DoActualCopy) == NO
  125.             shell "subroutn.inf" DriversExist $($0) $(String1)
  126.             ifint $($ShellCode) != $(!SHELL_CODE_OK)
  127.                 Debug-Output "SCSI.INF: shelling DriversExist failed"
  128.                 goto finish_InstallOption
  129.             endif
  130.  
  131.             ifstr(i) $($R0) == STATUS_CURRENT
  132.             else-ifstr(i) $($R0) == STATUS_NEW
  133.                 set DoActualCopy = YES
  134.             else-ifstr(i) $($R0) == STATUS_USERCANCEL
  135.                 Debug-Output "SCSI.INF: User cancelled SCSI installation"
  136.                 goto finish_InstallOption
  137.             else
  138.                 Debug-Output "SCSI.INF: Error reported in DriversExist routine in SUBROUTN.INF"
  139.                 goto finish_InstallOption
  140.             endif
  141.         endif
  142.  
  143.         ifstr(i) $(DoActualCopy) == YES
  144.  
  145.             shell "subroutn.inf" DoAskSourceEx $(SrcDir) $(String2)
  146.             ifint $($ShellCode) != $(!SHELL_CODE_OK)
  147.                 Debug-Output "SCSI.INF: shelling DoAskSourceEx failed"
  148.                 goto finish_InstallOption
  149.             endif
  150.  
  151.             ifstr(i) $($R0) == STATUS_SUCCESSFUL
  152.                 set SrcDir = $($R1)
  153.                 ifstr(i) $($R2) != ""
  154.                     set DrivesToFree = >($(DrivesToFree), $($R2))
  155.                 endif
  156.             else
  157.                 Debug-Output "SCSI.INF: User cancelled asking source."
  158.                 goto finish_InstallOption
  159.             endif
  160.  
  161.             install Install-AddCopyOption
  162.             ifstr(i) $(STF_INSTALL_OUTCOME) != "STF_SUCCESS"
  163.                 Debug-Output "Adding SCSI files to copy list failed"
  164.                 goto finish_InstallOption
  165.             endif
  166.         else
  167.             set DoCopy = NO
  168.         endif
  169.  
  170.     endif
  171.  
  172.     ifstr(i) $(DoCopy) == "YES"
  173.         read-syms ProgressCopy$($0)
  174.         install Install-DoCopyOption
  175.         ifstr(i) $(STF_INSTALL_OUTCOME) == "STF_FAILURE"
  176.             Debug-Output "Copying files failed"
  177.             goto finish_InstallOption
  178.         else-ifstr(i) $(STF_INSTALL_OUTCOME) == "STF_USERQUIT"
  179.             set Status = STATUS_USERCANCEL
  180.             goto finish_InstallOption
  181.         endif
  182.     endif
  183.  
  184.     ifstr(i) $(DoConfig) == "YES"
  185.  
  186.         shell "registry.inf" CheckSetupModify
  187.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  188.             goto finish_InstallOption
  189.         endif
  190.  
  191.         ifstr(i) $($R0) != STATUS_SUCCESSFUL
  192.             goto finish_InstallOption
  193.         endif
  194.  
  195.         set ServiceNode   = $(MiniportDriver)
  196.         set ServiceBinary = System32\drivers\#(Files-ScsiMiniportDrivers, $(MiniportDriver), 2)
  197.  
  198.         set ServicesValues   = { +
  199.                 {Type,           0, $(!REG_VT_DWORD),     $(Type)                  }, +
  200.                 {Start,          0, $(!REG_VT_DWORD),     $(Start)                 }, +
  201.                 {Group,          0, $(!REG_VT_SZ),        $(Group)                 }, +
  202.                 {ErrorControl,   0, $(!REG_VT_DWORD),     $(ErrorControl)          }, +
  203.                 {Tag,            0, $(!REG_VT_DWORD),     $(Tag)                   }, +
  204.                 {BinaryPathName, 0, $(!REG_VT_EXPAND_SZ), $(ServiceBinary)         }  +
  205.                 }
  206.         set ParametersValues = ""
  207.         set DeviceValues     = {}
  208.         set EventLogValues   = { +
  209.                 {EventMessageFile, 0, $(!REG_VT_EXPAND_SZ), $(EventMessageFile) }, +
  210.                 {TypesSupported,   0, $(!REG_VT_DWORD),     $(TypesSupported)   }  +
  211.                 }
  212.  
  213.         shell "registry.inf"  MakeServicesEntry $(ServiceNode)      +
  214.                                                 $(ServicesValues)   +
  215.                                                 $(ParametersValues) +
  216.                                                 $(DeviceValues)     +
  217.                                                 $(EventLogValues)   +
  218.                                                 Parameters
  219.  
  220.  
  221.  
  222.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  223.             Debug-Output "Couldn't execute MakeServicesEntry in registry.inf"
  224.             goto finish_InstallOption
  225.         endif
  226.  
  227.         ifstr(i) $($R0) != STATUS_SUCCESSFUL
  228.             Debug-Output "MakeServicesEntry failed for SCSI"
  229.             goto finish_InstallOption
  230.         endif
  231.  
  232.     endif
  233.  
  234.     set Status = STATUS_SUCCESSFUL
  235. finish_InstallOption = +
  236.     ForListDo $(DrivesToFree)
  237.         LibraryProcedure STATUS,$(!LIBHANDLE), DeleteNetConnection $($) "TRUE"
  238.     EndForListDo
  239.  
  240.     Return $(Status)
  241.  
  242.  
  243. [Install-AddCopyOption]
  244.     AddSectionKeyFileToCopyList   Files-ScsiMiniportDrivers         +
  245.                                   $(MiniportDriver)                 +
  246.                                   $(SrcDir)                      +
  247.                                   $(!STF_WINDOWSSYSPATH)\drivers
  248.  
  249.     exit
  250.  
  251.  
  252. [Install-DoCopyOption]
  253.     CopyFilesInCopyList
  254.     exit
  255.  
  256. [DeInstallOption]
  257.     set KeyName = "System\CurrentControlSet\Services\Pcmcia\DataBase"
  258.     OpenRegKey $(!REG_H_LOCAL) "" $(KeyName) $(!REG_KEY_ALL_ACCESS) PcmciaKeyHandle
  259.         OpenRegKey $(!REG_H_LOCAL) "" $(KeyName)"\KME" $(!REG_KEY_ALL_ACCESS) TestKeyHandle
  260.         ifstr(i) $(TestKeyHandle) != ""
  261.             DeleteRegTree $(PcmciaKeyHandle) "KME"
  262.         endif
  263.         CloseRegKey $(TestKeyHandle)
  264.     CloseRegKey $(PcmciaKeyHandle)
  265.  
  266.     set Status   = STATUS_FAILED
  267.     set Option   = $($1)
  268.  
  269.     set LanguageList = ^(LanguagesSupported, 1)
  270.     Ifcontains(i) $($0) in $(LanguageList)
  271.     else
  272.         set Status = STATUS_NOLANGUAGE
  273.         goto finish_DeInstallOption
  274.     endif
  275.     read-syms Strings$($0)
  276.  
  277.     set OptionList = ^(Options, 0)
  278.     ifcontains $(Option) in $(OptionList)
  279.     else
  280.         goto finish_DeInstallOption
  281.     endif
  282.     set OptionList = ""
  283.  
  284.     set MiniportDriver = #(Options, $(Option), 1)
  285.     set MiniportFile   = #(Files-ScsiMiniportDrivers, $(MiniportDriver), 2)
  286.     set FilePath       = $(!STF_WINDOWSSYSPATH)"\drivers\"$(MiniportFile)
  287.  
  288.     LibraryProcedure STATUS,$(!LIBHANDLE),CheckFileExistance $(FilePath)
  289.     ifstr(i) $(STATUS) == "NO"
  290.         set Status = STATUS_SUCCESSFUL
  291.         goto finish_DeInstallOption
  292.     endif
  293.  
  294.     shell "registry.inf" GetServicesEntryStart $(MiniportDriver)
  295.     ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
  296.         set Status = STATUS_SUCCESSFUL
  297.         goto finish_DeInstallOption
  298.     endif
  299.  
  300.     ifstr(i) $($R1) == $(!SERVICE_BOOT_START)
  301.         shell "subroutn.inf" SetupMessage $(!STF_LANGUAGE) "WARNING" $(String3)
  302.         ifstr(i) $($R0) != STATUS_SUCCESSFUL
  303.             goto do_removal
  304.         endif
  305.         ifstr(i) $($R1) == "CANCEL"
  306.             goto finish_DeInstallOption
  307.         endif
  308.     endif
  309.  
  310. do_removal =+
  311.  
  312.     shell "registry.inf" RemoveServicesEntry $(MiniportDriver)
  313.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  314.         Debug-Output "SCSI.INF: Failed to shell RemoveServicesEntry"
  315.         goto finish_DeInstallOption
  316.     endif
  317.  
  318.     ifstr(i) $($R0) != STATUS_SUCCESSFUL
  319.         Debug-Output "SCSI.INF: Failed to disable services entry"
  320.         goto finish_DeInstallOption
  321.     endif
  322.  
  323.     set Status = STATUS_SUCCESSFUL
  324.  
  325. finish_DeInstallOption =+
  326.     return $(Status)
  327.  
  328. [GetInstalledOptions]
  329.     set Status = STATUS_FAILED
  330.     set InstalledOptions = {}
  331.     set InstalledOptionsText = {}
  332.  
  333.     set LanguageList = ^(LanguagesSupported, 1)
  334.     Ifcontains(i) $($0) in $(LanguageList)
  335.     else
  336.         set Status = STATUS_NOLANGUAGE
  337.         goto finish_GetInstalledOptions
  338.     endif
  339.  
  340.     set OptionList = ^(Options, 0)
  341.     ForListDo $(OptionList)
  342.         set MiniportDriver = #(Options, $($), 1)
  343.         set MiniportFile   = #(Files-ScsiMiniportDrivers, $(MiniportDriver), 2)
  344.         set FilePath       = $(!STF_WINDOWSSYSPATH)"\drivers\"$(MiniportFile)
  345.         LibraryProcedure STATUS,$(!LIBHANDLE),CheckFileExistance $(FilePath)
  346.         ifstr(i) $(STATUS) == "YES"
  347.             shell "registry.inf" GetServicesEntryStart $(MiniportDriver)
  348.             ifint $($ShellCode) == $(!SHELL_CODE_OK)
  349.                 ifstr(i) $($R0) == STATUS_SUCCESSFUL
  350.                     ifstr(i) $($R1) != $(!SERVICE_DISABLED)
  351.  
  352.                         set OptionText = #(OptionsText$($0), $($), 1)
  353.                         set InstalledOptions     = >($(InstalledOptions), $($))
  354.                         set InstalledOptionsText = >($(InstalledOptionsText), $(OptionText))
  355.  
  356.                     endif
  357.                 endif
  358.             endif
  359.         endif
  360.     EndForListDo
  361.     set Status = STATUS_SUCCESSFUL
  362. finish_GetInstalledOptions =+
  363.     Return $(Status) $(InstalledOptions) $(InstalledOptionsText)
  364.  
  365. [ProgressCopyENG]
  366.     ProCaption   = "Windows NT Setup"
  367.     ProCancel    = "Cancel"
  368.     ProCancelMsg = "Windows NT is not correcly installed.  Are you sure you want "+
  369.                    "to cancel copying files?"
  370.     ProCancelCap = "Setup Message"
  371.     ProText1     = "Copying:"
  372.     ProText2     = "To:"
  373.  
  374. [StringsENG]
  375.     String1 = "SCSI Adapter"
  376.     String2 = "Please enter a:\ or b:\ to copy the KXLC001 SCSI "+
  377.               "Adapter files. Then choose Continue."
  378.     String3 = "The SCSI Adapter has been marked as a boot device. Removing "+
  379.               "it may cause the system not to boot."$(!LF)$(!LF)"Are you sure "+
  380.               "you want to remove the Adapter."
  381.  
  382. [Source Media Descriptions]
  383.     1  = "Panasonic SCSI Controller Drivers Disk 1 of 1"  , TAGFILE = disk1
  384.  
  385. [Files-ScsiMiniportDrivers]
  386. d720mini   = 1, d720mini.sys, SIZE=10592
  387.