home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1999 May / VPR9905A.BIN / DRIVER / TEKRAM / DC390FU / WINNT / 3_51-4_X / TRM390W.INF < prev    next >
INI File  |  1999-01-12  |  11KB  |  356 lines
  1. [Identification]
  2.     OptionType = SCSI
  3.  
  4. [LanguagesSupported]
  5.     ENG
  6.  
  7. [Options]
  8.     "TRM390W"    = trm390w
  9.  
  10. [OptionsTextENG]
  11.     "TRM390W" = "Tekram DC-390U/W/F/U2B NT ver 3.51 - 4.x PCI SCSI Driver Ver 3.10"
  12.  
  13. [MiniportDrivers]
  14.     trm390w = !SERVICE_KERNEL_DRIVER, "SCSI Miniport", !SERVICE_ERROR_NORMAL, 5, %SystemRoot%System32\IoLogMsg.dll , 7
  15.  
  16. [Identify]
  17.     read-syms Identification
  18.  
  19.     set Status       = STATUS_SUCCESSFUL
  20.     set Identifier = $(OptionType)
  21.     set Media       = #("Source Media Descriptions", 1, 1)
  22.  
  23.     Return $(Status) $(Identifier) $(Media)
  24.  
  25. [ReturnOptions]
  26.     set Status          = STATUS_FAILED
  27.     set OptionList     = {}
  28.     set OptionTextList = {}
  29.  
  30.     set LanguageList = ^(LanguagesSupported, 1)
  31.     Ifcontains(i) $($0) in $(LanguageList)
  32.     goto returnoptions
  33.     else
  34.     set Status = STATUS_NOLANGUAGE
  35.     goto finish_ReturnOptions
  36.     endif
  37.  
  38. returnoptions = +
  39.     set OptionList     = ^(Options, 0)
  40.     set OptionTextList = ^(OptionsText$($0), 1)
  41.     set Status           = STATUS_SUCCESSFUL
  42.  
  43. finish_ReturnOptions = +
  44.     Return $(Status) $(OptionList) $(OptionTextList)
  45.  
  46. [InstallOption]
  47.     set Status = STATUS_FAILED
  48.     set DrivesToFree = {}
  49.  
  50.     set Option     = $($1)
  51.     set SrcDir     = $($2)
  52.     set AddCopy  = $($3)
  53.     set DoCopy     = $($4)
  54.     set DoConfig = $($5)
  55.  
  56.     set LanguageList = ^(LanguagesSupported, 1)
  57.     Ifcontains(i) $($0) in $(LanguageList)
  58.     else
  59.     set Status = STATUS_NOLANGUAGE
  60.     goto finish_InstallOption
  61.     endif
  62.     read-syms Strings$($0)
  63.  
  64.     set OptionList = ^(Options, 0)
  65.     ifcontains $(Option) in $(OptionList)
  66.     else
  67.     Debug-Output "SCSI.INF: SCSI option is not supported."
  68.     goto finish_InstallOption
  69.     endif
  70.     set OptionList = ""
  71.  
  72.     set MiniportDriver     =   #(Options,     $(Option),       1)
  73.     set Type         = $(#(MiniportDrivers, $(MiniportDriver), 1))
  74.     set Group         =   #(MiniportDrivers, $(MiniportDriver), 2)
  75.     set ErrorControl     = $(#(MiniportDrivers, $(MiniportDriver), 3))
  76.     set Tag         =   #(MiniportDrivers, $(MiniportDriver), 4)
  77.     set EventMessageFile =   #(MiniportDrivers, $(MiniportDriver), 5)
  78.     set TypesSupported     =   #(MiniportDrivers, $(MiniportDriver), 6)
  79.  
  80.     set Start         =   $(!SERVICE_BOOT_START)
  81.     shell "registry.inf" GetServicesEntryStart $(MiniportDriver)
  82.     ifint $($ShellCode) == $(!SHELL_CODE_OK)
  83.     ifstr(i) $($R0) == "STATUS_SUCCESSFUL"
  84.         ifstr(i) $($R1) == $(!SERVICE_BOOT_START)
  85.         set Start = $(!SERVICE_BOOT_START)
  86.         endif
  87.     endif
  88.     endif
  89.  
  90. installtheoption = +
  91.  
  92.     ifstr(i) $(AddCopy) == "YES"
  93.     set DoActualCopy = NO
  94.     set FileToCheck = #(Files-ScsiMiniportDrivers, $(MiniportDriver), 2)
  95.     LibraryProcedure STATUS,$(!LIBHANDLE),CheckFileExistance $(!STF_WINDOWSSYSPATH)"\drivers\"$(FileToCheck)
  96.     ifstr(i) $(STATUS) == NO
  97.         set DoActualCopy = YES
  98.     endif
  99.  
  100.     ifstr(i) $(DoActualCopy) == NO
  101.         shell "subroutn.inf" DriversExist $($0) $(String1)
  102.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  103.         Debug-Output "SCSI.INF: shelling DriversExist failed"
  104.         goto finish_InstallOption
  105.         endif
  106.  
  107.         ifstr(i) $($R0) == STATUS_CURRENT
  108.         else-ifstr(i) $($R0) == STATUS_NEW
  109.         set DoActualCopy = YES
  110.         else-ifstr(i) $($R0) == STATUS_USERCANCEL
  111.         Debug-Output "SCSI.INF: User cancelled SCSI installation"
  112.         goto finish_InstallOption
  113.         else
  114.         Debug-Output "SCSI.INF: Error reported in DriversExist routine in SUBROUTN.INF"
  115.         goto finish_InstallOption
  116.         endif
  117.     endif
  118.  
  119.     ifstr(i) $(DoActualCopy) == YES
  120.  
  121.         shell "subroutn.inf" DoAskSourceEx $(SrcDir) $(String2)
  122.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  123.         Debug-Output "SCSI.INF: shelling DoAskSourceEx failed"
  124.         goto finish_InstallOption
  125.         endif
  126.  
  127.         ifstr(i) $($R0) == STATUS_SUCCESSFUL
  128.         set SrcDir = $($R1)
  129.         ifstr(i) $($R2) != ""
  130.             set DrivesToFree = >($(DrivesToFree), $($R2))
  131.         endif
  132.         else
  133.         Debug-Output "SCSI.INF: User cancelled asking source."
  134.         goto finish_InstallOption
  135.         endif
  136.  
  137.         install Install-AddCopyOption
  138.         ifstr(i) $(STF_INSTALL_OUTCOME) != "STF_SUCCESS"
  139.         Debug-Output "Adding SCSI files to copy list failed"
  140.         goto finish_InstallOption
  141.         endif
  142.     else
  143.         set DoCopy = NO
  144.     endif
  145.  
  146.     endif
  147.  
  148.     ifstr(i) $(DoCopy) == "YES"
  149.     read-syms ProgressCopy$($0)
  150.     install Install-DoCopyOption
  151.     ifstr(i) $(STF_INSTALL_OUTCOME) == "STF_FAILURE"
  152.         Debug-Output "Copying files failed"
  153.         goto finish_InstallOption
  154.     else-ifstr(i) $(STF_INSTALL_OUTCOME) == "STF_USERQUIT"
  155.         set Status = STATUS_USERCANCEL
  156.         goto finish_InstallOption
  157.     endif
  158.     endif
  159.  
  160.     ifstr(i) $(DoConfig) == "YES"
  161.     shell "registry.inf" CheckSetupModify
  162.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  163.         goto finish_InstallOption
  164.     endif
  165.  
  166.     ifstr(i) $($R0) != STATUS_SUCCESSFUL
  167.         goto finish_InstallOption
  168.     endif
  169.  
  170.     set ServiceNode   = $(MiniportDriver)
  171.     set ServiceBinary = %SystemRoot%\System32\drivers\#(Files-ScsiMiniportDrivers, $(MiniportDriver), 2)
  172.  
  173.     set ServicesValues   = { +
  174.         {Type,         0, $(!REG_VT_DWORD),      $(Type)           }, +
  175.         {Start,      0, $(!REG_VT_DWORD),      $(Start)           }, +
  176.         {Group,      0, $(!REG_VT_SZ),      $(Group)           }, +
  177.         {ErrorControl,     0, $(!REG_VT_DWORD),      $(ErrorControl)       }, +
  178.         {Tag,         0, $(!REG_VT_DWORD),      $(Tag)           }, +
  179.         {BinaryPathName, 0, $(!REG_VT_EXPAND_SZ), $(ServiceBinary)       }  +
  180.         }
  181.     set ParametersValues = ""
  182.     set DeviceValues     = {}
  183.     set EventLogValues   = { +
  184.         {EventMessageFile, 0, $(!REG_VT_EXPAND_SZ), $(EventMessageFile) }, +
  185.         {TypesSupported,   0, $(!REG_VT_DWORD),     $(TypesSupported)    }  +
  186.         }
  187.  
  188.     shell "registry.inf"  MakeServicesEntry $(ServiceNode)      +
  189.                         $(ServicesValues)   +
  190.                         $(ParametersValues) +
  191.                         $(DeviceValues)     +
  192.                         $(EventLogValues)   +
  193.                         Devices
  194.  
  195.  
  196.  
  197.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  198.         Debug-Output "Couldn't execute MakeServicesEntry in registry.inf"
  199.         goto finish_InstallOption
  200.     endif
  201.  
  202.     ifstr(i) $($R0) != STATUS_SUCCESSFUL
  203.         Debug-Output "MakeServicesEntry failed for SCSI"
  204.         goto finish_InstallOption
  205.     endif
  206.     endif
  207.  
  208.     set Status = STATUS_SUCCESSFUL
  209. finish_InstallOption = +
  210.     ForListDo $(DrivesToFree)
  211.     LibraryProcedure STATUS,$(!LIBHANDLE), DeleteNetConnection $($) "TRUE"
  212.     EndForListDo
  213.  
  214.     Return $(Status)
  215.  
  216.  
  217. [Install-AddCopyOption]
  218.     AddSectionKeyFileToCopyList   Files-ScsiMiniportDrivers        +
  219.                   $(MiniportDriver)            +
  220.                   $(SrcDir)             +
  221.                   $(!STF_WINDOWSSYSPATH)\drivers
  222.  
  223.     exit
  224.  
  225.  
  226. [Install-DoCopyOption]
  227.     CopyFilesInCopyList
  228.     exit
  229.  
  230. [DeInstallOption]
  231.     set Status     = STATUS_FAILED
  232.     set Option     = $($1)
  233.  
  234.     set LanguageList = ^(LanguagesSupported, 1)
  235.     Ifcontains(i) $($0) in $(LanguageList)
  236.     else
  237.     set Status = STATUS_NOLANGUAGE
  238.     goto finish_DeInstallOption
  239.     endif
  240.     read-syms Strings$($0)
  241.  
  242.     set OptionList = ^(Options, 0)
  243.     ifcontains $(Option) in $(OptionList)
  244.     else
  245.     goto finish_DeInstallOption
  246.     endif
  247.     set OptionList = ""
  248.  
  249.     set MiniportDriver = #(Options, $(Option), 1)
  250.     set MiniportFile   = #(Files-ScsiMiniportDrivers, $(MiniportDriver), 2)
  251.     set FilePath       = $(!STF_WINDOWSSYSPATH)"\drivers\"$(MiniportFile)
  252.  
  253.     LibraryProcedure STATUS,$(!LIBHANDLE),CheckFileExistance $(FilePath)
  254.     ifstr(i) $(STATUS) == "NO"
  255.     set Status = STATUS_SUCCESSFUL
  256.     goto finish_DeInstallOption
  257.     endif
  258.  
  259.     shell "registry.inf" GetServicesEntryStart $(MiniportDriver)
  260.     ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
  261.     ; this could happen if there is no start value or there is no
  262.     ; key, in which case the option is not installed
  263.     set Status = STATUS_SUCCESSFUL
  264.     goto finish_DeInstallOption
  265.     endif
  266.  
  267.     ifstr(i) $($R1) == $(!SERVICE_BOOT_START)
  268.     shell "subroutn.inf" SetupMessage $(!STF_LANGUAGE) "WARNING" $(String3)
  269.     ifstr(i) $($R0) != STATUS_SUCCESSFUL
  270.         goto do_removal
  271.     endif
  272.     ifstr(i) $($R1) == "CANCEL"
  273.         goto finish_DeInstallOption
  274.     endif
  275.     endif
  276.  
  277. do_removal =+
  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.     set Status = STATUS_SUCCESSFUL
  291.  
  292. finish_DeInstallOption =+
  293.     return $(Status)
  294.  
  295.  
  296. [GetInstalledOptions]
  297.     set Status = STATUS_FAILED
  298.     set InstalledOptions = {}
  299.     set InstalledOptionsText = {}
  300.  
  301.     set LanguageList = ^(LanguagesSupported, 1)
  302.     Ifcontains(i) $($0) in $(LanguageList)
  303.     else
  304.     set Status = STATUS_NOLANGUAGE
  305.     goto finish_GetInstalledOptions
  306.     endif
  307.  
  308.     set OptionList = ^(Options, 0)
  309.     ForListDo $(OptionList)
  310.     set MiniportDriver = #(Options, $($), 1)
  311.     set MiniportFile   = #(Files-ScsiMiniportDrivers, $(MiniportDriver), 2)
  312.     set FilePath       = $(!STF_WINDOWSSYSPATH)"\drivers\"$(MiniportFile)
  313.     LibraryProcedure STATUS,$(!LIBHANDLE),CheckFileExistance $(FilePath)
  314.     ifstr(i) $(STATUS) == "YES"
  315.         shell "registry.inf" GetServicesEntryStart $(MiniportDriver)
  316.         ifint $($ShellCode) == $(!SHELL_CODE_OK)
  317.         ifstr(i) $($R0) == STATUS_SUCCESSFUL
  318.             ifstr(i) $($R1) != $(!SERVICE_DISABLED)
  319.  
  320.             set OptionText = #(OptionsText$($0), $($), 1)
  321.             set InstalledOptions     = >($(InstalledOptions), $($))
  322.             set InstalledOptionsText = >($(InstalledOptionsText), $(OptionText))
  323.  
  324.             endif
  325.         endif
  326.         endif
  327.     endif
  328.     EndForListDo
  329.     set Status = STATUS_SUCCESSFUL
  330. finish_GetInstalledOptions =+
  331.     Return $(Status) $(InstalledOptions) $(InstalledOptionsText)
  332.  
  333. [ProgressCopyENG]
  334.     ProCaption     = "Windows NT Setup"
  335.     ProCancel     = "Cancel"
  336.     ProCancelMsg = "Windows NT is not correcly installed.  Are you sure you want "+
  337.            "to cancel copying files?"
  338.     ProCancelCap = "Setup Message"
  339.     ProText1     = "Copying:"
  340.     ProText2     = "To:"
  341.  
  342. [StringsENG]
  343.     String1 = "SCSI Adapter"
  344.     String2 = "Please enter the full path to the Tekram's installation files."$(!LF)$(!LF)+
  345.           "These files are located in \WINNT\3_51-4_x on the Tekram Installation "+
  346.           "diskette. Then choose Continue."
  347.     String3 = "The SCSI Adapter has been marked as a boot device.  Removing "+
  348.           "it may cause the system not to boot."$(!LF)$(!LF)"Are you sure "+
  349.           "you want to remove the Adapter."
  350.  
  351. [Source Media Descriptions]
  352.     1  = "Tekram DC-390U/W/F/U2B PCI SCSI Driver Disk"  , TAGFILE = dcscsi
  353.  
  354. [Files-ScsiMiniportDrivers]
  355. trm390w  = 1,trm390w.sys , SIZE=999
  356.