home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / d / d423_zhw / 8.ddi / HARDWARE.IN_ / HARDWARE.IN
Encoding:
INI File  |  1993-07-24  |  15.2 KB  |  398 lines
  1. [SystemInformationClasses]
  2.     Language
  3. [InitialHardwareInstall]
  4.     StartWait
  5.     set Status = STATUS_FAILED
  6.     set !STF_LANGUAGE_HACK = NO
  7.     set ConfigureOptions = {}
  8.     read-syms OemOptionDiskettes$(!STF_LANGUAGE)
  9.     read-syms Strings$(!STF_LANGUAGE)
  10.     shell "subroutn.inf" PushBillboard STATUSDLG $(Error6)
  11.     set OptionTypeList = {Language}
  12.     ForListDo $(OptionTypeList)
  13.         read-syms $($)Vars
  14.         detect    $($)Vars
  15.     EndForListDo
  16.     ForListDo $(OptionTypeList)
  17.         shell "" InitOptionVars $(!STF_LANGUAGE) $($) $($($)HardwareDetected) $($($)SystemSet) $($($)Default)
  18.         ifstr(i) $($R0) == "STATUS_SUCCESSFUL"
  19.             set $($)OurINFOptions = $($R1)
  20.             set $($)OemINFOptions = $($R2)
  21.             set $($)MergedOptions = $($R3)
  22.             set $($)SpecialOption = $($R4)
  23.             set $($)CurrentOption = $($R5)
  24.             set $($)Option        = *($($R5), 1)
  25.         else
  26.             shell "subroutn.inf" PopBillboard
  27.             EndWait
  28.             shell "subroutn.inf" SetupMessage $(!STF_LANGUAGE) "FATAL" $(Error1)
  29.             StartWait
  30.             goto finish_system
  31.         endif
  32.     EndForListDo
  33.     ForListDo $(OptionTypeList)
  34.         shell "" InitListBoxVars $(!STF_LANGUAGE) $($($)MergedOptions) $($($)SpecialOption) $(Other)
  35.         ifstr(i) $($R0) == "STATUS_SUCCESSFUL"
  36.             set $($)OptionList     = $($R1)
  37.             set $($)OptionTextList = $($R2)
  38.         else
  39.             shell "subroutn.inf" PopBillboard
  40.             EndWait
  41.             shell "subroutn.inf" SetupMessage $(!STF_LANGUAGE) "FATAL" $(Error2)
  42.             StartWait
  43.             goto  finish_system
  44.         endif
  45.     EndForListDo
  46.     shell "subroutn.inf" PopBillboard
  47. system = +
  48.     read-syms SystemDlg$(!STF_LANGUAGE)
  49.     EndWait
  50.     ui start "System"
  51.     ifstr(i) $(DLGEVENT) == "CONTINUE"
  52.         ForListDo $(OptionTypeList)
  53.             set $($)Option = *($($($)OptionList), ~($(Combo$(#)List), $(Combo$(#)Out)))
  54.         EndForListDo
  55.         ui pop 1
  56.         goto install_system
  57.     else-ifstr(i) $(DLGEVENT) == "NOTIFY"
  58.         set OptionNum = $(ButtonChecked)
  59.         set Option    = *($(OptionTypeList), $(ButtonChecked))
  60.         set ReInit    = YES
  61.         ifstr(i) $(Combo$(OptionNum)Out) != $(Other)
  62.             set $(Option)Option = *($($(Option)OptionList), ~($(Combo$(OptionNum)List), $(Combo$(OptionNum)Out)))
  63.             set ReInit = NO
  64.         else
  65.             shell "other.inf" GetNewOEMOption $(!STF_LANGUAGE) $($(Option)OemINFOptions) $(Option) $($(Option)DisketteSrc)
  66.             ifstr(i) $($R0) == STATUS_SUCCESSFUL
  67.                 set $(Option)OemINFOptions  = $($R1)
  68.                 set $(Option)Option         = $($R2)
  69.                 set $(Option)DisketteSrc    = $($R4)
  70.                 shell "" MergeOptions $($(Option)OurINFOptions) $($(Option)OemINFOptions)
  71.                 ifstr(i) $($R0) == STATUS_SUCCESSFUL
  72.                     set $(Option)MergedOptions = {$($R1), $($R2)}
  73.                 else
  74.                     shell "subroutn.inf" SetupMessage $(!STF_LANGUAGE) "FATAL" $(Error4)
  75.                     ui pop 1
  76.                     StartWait
  77.                     goto finish_system
  78.                 endif
  79.                 shell "" InitListBoxVars $(!STF_LANGUAGE) $($(Option)MergedOptions) $($(Option)SpecialOption) $(Other)
  80.                 ifstr(i) $($R0) == "STATUS_SUCCESSFUL"
  81.                     set $(Option)OptionList     = $($R1)
  82.                     set $(Option)OptionTextList = $($R2)
  83.                 else
  84.                     shell "subroutn.inf" SetupMessage $(!STF_LANGUAGE) "FATAL" $(Error2)
  85.                     ui pop 1
  86.                     StartWait
  87.                     goto  finish_system
  88.                 endif
  89.                 set ReInit = YES
  90.                 goto system
  91.             else-ifstr(i) $($R0) == "STATUS_USERCANCEL"
  92.                 set ReInit = YES
  93.                 goto system
  94.             else
  95.                 shell "subroutn.inf" SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(Error3)
  96.                 set ReInit = YES
  97.                 goto system
  98.             endif
  99.         endif
  100.         goto system
  101.     else-ifstr(i) $(DLGEVENT) == "EXIT"
  102.         shell "subroutn.inf" QueryUserQuit $(!STF_LANGUAGE)
  103.         ifstr(i) $($R1) == "OK"
  104.             set Status = STATUS_USERQUIT
  105.             ui pop 1
  106.             StartWait
  107.             goto finish_system
  108.         else
  109.             set  ReInit = NO
  110.             goto system
  111.         endif
  112.     else
  113.         ui pop 1
  114.         StartWait
  115.         goto finish_system
  116.     endif
  117. install_system = +
  118.     StartWait
  119.     ForListDo $(OptionTypeList)
  120.         set Changed = YES
  121.         ifstr(i) $($($)Option) == $($($)SystemSet)
  122.             set Changed = NO
  123.         endif
  124.         ifstr(i) $(Changed) == "NO"
  125.             ifstr(i) $(!STF_INSTALL_TYPE) == "SETUPBOOTED"
  126.                 set $($)Install = "NO"
  127.                 goto skip_setinstall
  128.             endif
  129.         endif
  130.         set $($)Install = "YES"
  131.         ifstr(i) $($($)SpecialOption) != {}
  132.             ifstr(i) $($($)Option) == *($($($)SpecialOption), 1)
  133.                 goto skip_setinstall
  134.             endif
  135.         endif
  136.         shell "" GetOptionFile $($($)Option) $($($)OemINFOptions)
  137.         ifstr(i) $($R0) == "STATUS_SUCCESSFUL"
  138.             set $($)INF = $(!STF_WINDOWSSYSPATH)"\"$($R1)
  139.             set $($)SrcDir = $($($)DisketteSrc)
  140.             goto skip_setinstall
  141.         endif
  142.         shell "" GetOptionFile $($($)Option) $($($)OurINFOptions)
  143.         ifstr(i) $($R0) == "STATUS_SUCCESSFUL"
  144.             set $($)INF = $($R1)
  145.             set $($)SrcDir = $(!STF_SRCDIR)
  146.             goto skip_setinstall
  147.         endif
  148. skip_setinstall = +
  149.     EndForListDo
  150.     ForListDo $(OptionTypeList)
  151.         ifstr(i) $($($)Install) == "YES"
  152.             ifstr(i)  $($($)INF) != ""
  153.                 shell $($($)INF) InstallOption $(!STF_LANGUAGE) $($($)Option) $($($)SrcDir) "YES" "NO" "NO"
  154.                 set ConfigureOptions = >($(ConfigureOptions), {$($), $($($)INF), $($($)Option), $($($)SrcDir)})
  155.             endif
  156.         endif
  157.     EndForListDo
  158.     ifstr(i) $(LanguageInstall) != "YES"
  159.         set !STF_LANGUAGE_HACK = YES
  160.         shell "language.inf" InstallOption $(!STF_LANGUAGE) $(LanguageOption) $(!STF_SRCDIR) "YES" "NO" "NO"
  161.     endif
  162.     set Status = STATUS_SUCCESSFUL
  163. finish_system = +
  164.     Return $(Status) $(ConfigureOptions)
  165. [ConfigureHardwareOptions]
  166.     set Status = STATUS_SUCCESSFUL
  167.     shell "registry.inf" MakeSetupKey
  168.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  169.         Debug-Output "Shell to MakeSetupKey failed"
  170.         set Status = STATUS_FAILED
  171.         goto finish_ConfigureHardware
  172.     endif
  173.     ifstr(i) $($R0) != STATUS_SUCCESSFUL
  174.         Debug-Output "MakeSetupKey failed"
  175.         set Status = STATUS_FAILED
  176.         goto finish_ConfigureHardware
  177.     endif
  178.     ForListDo $($0)
  179.         shell *($($), 2) InstallOption $(!STF_LANGUAGE) *($($), 3) *($($), 4) "NO" "NO" "YES"
  180.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  181.             Debug-Output "Shell to Configure Hardware Option Type "*($($), 3)" failed"
  182.             set Status = STATUS_FAILED
  183.         else-ifstr(i) $($R0) != STATUS_SUCCESSFUL
  184.             Debug-Output "Configure Hardware Option Type "*($($), 3)" failed"
  185.             set Status = STATUS_FAILED
  186.         else
  187.             shell "registry.inf" MakeSetupOptionEntry *($($), 1) *($($), 3)
  188.             ifint $($ShellCode) != $(!SHELL_CODE_OK)
  189.                 Debug-Output "shelling MakeSetupOptionEntry failed"
  190.                 set Status = STATUS_FAILED
  191.             endif
  192.             ifstr(i) $($R0) != STATUS_SUCCESSFUL
  193.                 Debug-Output "Making setup entry for "*($($), 1)" = "*($($), 3)" failed."
  194.                 set Status = STATUS_FAILED
  195.             endif
  196.         endif
  197.     EndForListDo
  198.     ifstr(i) $(!STF_LANGUAGE_HACK) == "YES"
  199.         read-syms LanguageVars
  200.         LibraryProcedure STATUS, $(!LIBHANDLE), SetCurrentLocale $(LanguageSystemSet) "YES"
  201.         ifstr(i) $(STATUS) != "SUCCESS"
  202.             set Status = STATUS_FAILED
  203.             Debug-Output "REGISTRY.INF: Failed in SetCurrentLocale function"
  204.             goto finish_ConfigureHardware
  205.         endif
  206.     endif
  207. finish_ConfigureHardware = +
  208.     Return $(Status)
  209. [InitOptionVars]
  210.     set Status           = STATUS_FAILED
  211.     set OurINFOptions    = {}
  212.     set OemINFOptions    = {}
  213.     set MergedINFOptions = {}
  214.     set SpecialOption    = {}
  215.     set CurrentOption    = {}
  216.     set OurINFFile = $($1)".inf"
  217.     shell "other.inf", GetOptionsFromINF $($0) $($1) $(OurINFFile)
  218.     ifstr(i) $($R0) == STATUS_SUCCESSFUL
  219.         set OurINFOptions = {{$(OurINFFile), $($R1), $($R2)}}
  220.     else
  221.         EndWait
  222.         read-syms Strings$(!STF_LANGUAGE)
  223.         shell "subroutn.inf" SetupMessage $(!STF_LANGUAGE) "FATAL" $(Error7)
  224.         StartWait
  225.         goto finish_InitOptionVars
  226.     endif
  227.     shell "other.inf" ReturnOemOptions $($0) $($1)
  228.     ifstr(i) $($R0) == "STATUS_SUCCESSFUL"
  229.         set OemINFOptions = $($R1)
  230.     endif
  231.     shell "" MergeOptions $(OurINFOptions) $(OemINFOptions)
  232.     ifstr(i) $($R0) == STATUS_SUCCESSFUL
  233.         set MergedINFOptionList     = $($R1)
  234.         set MergedINFOptionTextList = $($R2)
  235.         set MergedINFOptions        = {$($R1), $($R2)}
  236.     else
  237.         goto finish_InitOptionVars
  238.     endif
  239.     set SubOptionList = {Video, Pointer, Keyboard}
  240.     set Detected      = $($2)
  241.     ifcontains(i) $($1) in $(SubOptionList)
  242.         ifcontains(i) $(Detected) in $(MergedINFOptionList)
  243.         else
  244.             shell $(OurINFFile) MapToSupportedOption $(Detected)
  245.             ifint $($ShellCode) != $(!SHELL_CODE_OK)
  246.                 Debug-Output "Shelling MapToSupportedOption in "$(OurINFFile)" failed"
  247.             else-ifstr(i) $($R0) == STATUS_SUCCESSFUL
  248.                 set Detected = $($R1)
  249.             endif
  250.         endif
  251.     endif
  252.     ifstr(i) $(!STF_UPGRADE) == "YES"
  253.         set Option = ""
  254.         ifstr(i) $($3) != ""
  255.             set Option = $($3)
  256.         else
  257.             ifstr(i) $(Detected) != ""
  258.                 set Option = $(Detected)
  259.             else
  260.                 set Option = $($4)
  261.             endif
  262.         endif
  263.     else
  264.         set Option = ""
  265.         ifstr(i) $(Detected) != ""
  266.             set Option = $(Detected)
  267.         else-ifstr(i) $($3) != ""
  268.             set Option = $($3)
  269.         else
  270.             set Option = $($4)
  271.         endif
  272.     endif
  273.     ifcontains(i) $(Option) in $(MergedINFOptionList)
  274.         set OptionText = *($(MergedINFOptionTextList), ~($(MergedINFOptionList), $(Option)))
  275.     else
  276.         set OptionText    = "Oem Installed Option"
  277.         set Option        = $(Option)
  278.         set SpecialOption = {$(Option), $(OptionText)}
  279.     endif
  280.     set CurrentOption = {$(Option), $(OptionText)}
  281.     set Status = STATUS_SUCCESSFUL
  282. finish_InitOptionVars = +
  283.     Return $(Status) $(OurINFOptions) $(OemINFOptions) $(MergedINFOptions) $(SpecialOption) $(CurrentOption)
  284. [InitListBoxVars]
  285.     set Status         = STATUS_FAILED
  286.     set OptionList     = {}
  287.     set OptionTextList = {}
  288.     ifstr(i) $($1) != {}
  289.         set OptionList     = *($($1), 1)
  290.         set OptionTextList = *($($1), 2)
  291.     endif
  292.     ifstr(i) $($2) != {}
  293.         set OptionList     = >($(OptionList),     *($($2), 1))
  294.         set OptionTextList = >($(OptionTextList), *($($2), 2))
  295.     endif
  296.     set OptionTextList = >($(OptionTextList), $($3))
  297.     set Status = STATUS_SUCCESSFUL
  298.     Return $(Status) $(OptionList) $(OptionTextList)
  299. [MergeOptions]
  300.     set Status               = STATUS_FAILED
  301.     set MergedOptionList     = {}
  302.     set MergedOptionTextList = {}
  303.     ForListDo $($0)
  304.         set OptionList     = *($($), 2)
  305.         set OptionTextList = *($($), 3)
  306.         ForListDo $(OptionList)
  307.             Ifcontains $($) in $(MergedOptionList)
  308.             else
  309.                 set MergedOptionList     = >($(MergedOptionList), $($))
  310.                 set MergedOptionTextList = >($(MergedOptionTextList), *($(OptionTextList), $(#)))
  311.             endif
  312.         EndForListDo
  313.     EndForListDo
  314.     ForListDo $($1)
  315.         set OptionList     = *($($), 2)
  316.         set OptionTextList = *($($), 3)
  317.         ForListDo $(OptionList)
  318.             Ifcontains $($) in $(MergedOptionList)
  319.             else
  320.                 set MergedOptionList     = >($(MergedOptionList), $($))
  321.                 set MergedOptionTextList = >($(MergedOptionTextList), *($(OptionTextList), $(#)))
  322.             endif
  323.         EndForListDo
  324.     EndForListDo
  325.     set Status = STATUS_SUCCESSFUL
  326.     Return $(Status) $(MergedOptionList) $(MergedOptionTextList)
  327. [GetOptionFile]
  328.     set Status      = STATUS_FILENOTFOUND
  329.     set FileName = ""
  330.     ForListDo $($1)
  331.         set OptionFile = *($($), 1)
  332.         set OptionList = *($($), 2)
  333.         ForListDo $(OptionList)
  334.             ifstr(i) $($) == $($0)
  335.                 set Status = STATUS_SUCCESSFUL
  336.                 set FileName = $(OptionFile)
  337.             endif
  338.         EndForListDo
  339.     EndForListDo
  340. finish_GetOptionFile = +
  341.     Return $(Status) $(FileName)
  342. [LanguageVars]
  343.     LanguageHardwareDetected    = ""
  344.     LanguageSystemSet           = "00000409"
  345.     LanguageDefault             = "00000409"
  346.     LanguageOurINFOptions       = {}
  347.     LanguageOemINFOptions       = {}
  348.     LanguageMergedOptions       = {}
  349.     LanguageSpecialOption       = {}
  350.     LanguageCurrentOption       = {}
  351.     LanguageOptionList          = {}
  352.     LanguageOptionTextList      = {}
  353.     LanguageOption              = {}
  354.     LanguageINF                 = ""
  355.     LanguageInstall             = "NO"
  356.     LanguageSrcDir              = ""
  357.     LanguageDstDir              = ""
  358. [OemOptionDiskettesENG]
  359.     VideoDisketteSrc    = "A:\"
  360.     PointerDisketteSrc  = "A:\"
  361.     KeyboardDisketteSrc = "A:\"
  362.     LayoutDisketteSrc   = "A:\"
  363.     LanguageDisketteSrc = "A:\"
  364. [StringsENG]
  365.     Other  = "Other (Requires a disk from a hardware manufacturer)"
  366.     Error1 = "Failed to initialize hardware options."
  367.     Error2 = "Failed to initialize hardware option variables."
  368.     Error3 = "Failed to obtain new options.  Ignoring the error."
  369.     Error4 = "Internal Setup error: failed to merge Microsoft options with the OEM options."
  370.     Error5 = ""
  371.     Error6 = "Please wait while Setup examines your hardware configuration..."
  372.     Error7 = "Setup was unable to locate or load an INF file."
  373. [SystemDlgENG]
  374.     Caption     = "Language (Locale)"
  375.     DlgText     = "Setup will install the language (locale) listed below."+
  376.                   " The language (locale) determines how date, currency,"+
  377.                   " and time values are displayed, and controls other"+
  378.                   " international settings.  Click on the down arrow for"+
  379.                   " other choices.  When the language (locale) is correct,"+
  380.                   " choose continue or press ENTER."
  381.     Continue    = "Continue"
  382.     ComboHeader = ""
  383.     Combo1Label = "&Language:"
  384.     Combo1Footer = "(Locale)"
  385.     DlgType     = "MultiCombo"
  386.     DlgTemplate = "SYSTEM"
  387.     Help        = "&Help"
  388.     Exit        = "E&xit Setup"
  389.     HelpContext = $(!IDH_DB_SYSTEM_INS)
  390.     Combo1List  = $(LanguageOptionTextList)
  391.     Combo1Out   = *($(Combo1List), ~($(LanguageOptionList), $(LanguageOption)))
  392.     ComboListItemsIn  = { Combo1List }
  393.     ComboListItemsOut = { Combo1Out }
  394.     NotifyFields      = {YES}
  395.  
  396.  
  397.  
  398.