home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1996 February / VPR9602A.ISO / pc98 / hardware.in_ / hardware.inf
INI File  |  1995-10-25  |  16KB  |  397 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) ""
  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.     ifstr(i) $($3) != ""
  297.         set OptionTextList = >($(OptionTextList), $($3))
  298.     endif
  299.     set Status = STATUS_SUCCESSFUL
  300.     Return $(Status) $(OptionList) $(OptionTextList)
  301. [MergeOptions]
  302.     set Status               = STATUS_FAILED
  303.     set MergedOptionList     = {}
  304.     set MergedOptionTextList = {}
  305.     ForListDo $($0)
  306.         set OptionList     = *($($), 2)
  307.         set OptionTextList = *($($), 3)
  308.         ForListDo $(OptionList)
  309.             Ifcontains $($) in $(MergedOptionList)
  310.             else
  311.                 set MergedOptionList     = >($(MergedOptionList), $($))
  312.                 set MergedOptionTextList = >($(MergedOptionTextList), *($(OptionTextList), $(#)))
  313.             endif
  314.         EndForListDo
  315.     EndForListDo
  316.     ForListDo $($1)
  317.         set OptionList     = *($($), 2)
  318.         set OptionTextList = *($($), 3)
  319.         ForListDo $(OptionList)
  320.             Ifcontains $($) in $(MergedOptionList)
  321.             else
  322.                 set MergedOptionList     = >($(MergedOptionList), $($))
  323.                 set MergedOptionTextList = >($(MergedOptionTextList), *($(OptionTextList), $(#)))
  324.             endif
  325.         EndForListDo
  326.     EndForListDo
  327.     set Status = STATUS_SUCCESSFUL
  328.     Return $(Status) $(MergedOptionList) $(MergedOptionTextList)
  329. [GetOptionFile]
  330.     set Status      = STATUS_FILENOTFOUND
  331.     set FileName = ""
  332.     ForListDo $($1)
  333.         set OptionFile = *($($), 1)
  334.         set OptionList = *($($), 2)
  335.         ForListDo $(OptionList)
  336.             ifstr(i) $($) == $($0)
  337.                 set Status = STATUS_SUCCESSFUL
  338.                 set FileName = $(OptionFile)
  339.             endif
  340.         EndForListDo
  341.     EndForListDo
  342. finish_GetOptionFile = +
  343.     Return $(Status) $(FileName)
  344. [LanguageVars]
  345.     LanguageHardwareDetected    = ""
  346.     LanguageSystemSet           = "00000411"
  347.     LanguageDefault             = "00000411"
  348.     LanguageOurINFOptions       = {}
  349.     LanguageOemINFOptions       = {}
  350.     LanguageMergedOptions       = {}
  351.     LanguageSpecialOption       = {}
  352.     LanguageCurrentOption       = {}
  353.     LanguageOptionList          = {}
  354.     LanguageOptionTextList      = {}
  355.     LanguageOption              = {}
  356.     LanguageINF                 = ""
  357.     LanguageInstall             = "NO"
  358.     LanguageSrcDir              = ""
  359.     LanguageDstDir              = ""
  360. [OemOptionDiskettesENG]
  361.     VideoDisketteSrc    = "A:\"
  362.     PointerDisketteSrc  = "A:\"
  363.     KeyboardDisketteSrc = "A:\"
  364.     LayoutDisketteSrc   = "A:\"
  365.     LanguageDisketteSrc = "A:\"
  366. [StringsENG]
  367.     Other  = "その他 (ハードウェア メーカーのディスクが必要です。)"
  368.     Error1 = "ハードウェア オプションの初期化に失敗しました。"
  369.     Error2 = "ハードウェア オプションの変数の初期化に失敗しました。"
  370.     Error3 = "新しいオプションの取得に失敗しました。エラーを無視します。"
  371.     Error4 = "セットアップの内部エラー: Microsoft オプションと OEM オプションのマージに失敗しました。"
  372.     Error5 = ""
  373.     Error6 = "ハードウェア構成を確認しています。しばらくお待ちください..."
  374.     Error7 = "INF ファイルが見つからなかったか、ロードに失敗しました。"
  375. [SystemDlgENG]
  376.     Caption     = "各国対応"
  377.     DlgText     = "セットアップは、次の言語 (Locale) に対応した各国情報を組み込みます。"+
  378.                   "これにより、日付、通貨、時刻の表示のしかた、およびその他の"+
  379.                   "各国に対応した設定が制御されます。"+
  380.                   "下向きの矢印をクリックすると、利用できるほかの選択肢が表示されます。"+
  381.                   "表示されている言語でよい場合は、[続行]ボタンをクリックするか、"+
  382.                   " Enter キーを押してください。"
  383.     Continue    = "続行"
  384.     ComboHeader = ""
  385.     Combo1Label = "言語(&L):"
  386.     Combo1Footer = "(Locale)"
  387.     DlgType     = "MultiCombo"
  388.     DlgTemplate = "SYSTEM"
  389.     Help        = "ﾍﾙﾌﾟ(&H)"
  390.     Exit        = "ｾｯﾄｱｯﾌﾟ中止(&X)"
  391.     HelpContext = $(!IDH_DB_SYSTEM_INS)
  392.     Combo1List  = $(LanguageOptionTextList)
  393.     Combo1Out   = *($(Combo1List), ~($(LanguageOptionList), $(LanguageOption)))
  394.     ComboListItemsIn  = { Combo1List }
  395.     ComboListItemsOut = { Combo1Out }
  396.     NotifyFields      = {YES}
  397.