mirror of https://github.com/lianthony/NT4.0
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1475 lines
44 KiB
1475 lines
44 KiB
;***********************************************************************
|
|
;
|
|
; OEMSETUP.INF
|
|
;
|
|
;
|
|
; IRMINI serial infrared reference driver INF.
|
|
;
|
|
; History:
|
|
;
|
|
; Author(s) Geeky Euro-date Action
|
|
; --------- --------------- ------
|
|
; davidhov 00-Feb-1992 Created
|
|
; terryk 27-Feb-1992 Reorganize section location
|
|
; added comment
|
|
; terryk 03-Mar-1992 Changed to Elink II setup
|
|
; terryk 02-Apr-1992 Code review changed
|
|
; davidhov 03-Apr-1992 Enhanced to use new INF section
|
|
; structure from SunilP, et al.
|
|
; davidhov 06-Dec-1992 Netcard Detection
|
|
; robertn 02-Jul-1993 Changed for Xircom PE3 without detect
|
|
; davidlao 28-jun-1995 Added help file.
|
|
; aarono,ervinp 18-jun-1996 Modified for IRMINI
|
|
;
|
|
;
|
|
;***********************************************************************
|
|
|
|
;-----------------------------------------------------------------------
|
|
; OPTION TYPE
|
|
; -----------
|
|
; This identifies the Option type we are dealing with. The different
|
|
; possible types are:
|
|
;
|
|
; COMPUTER, DISPLAY, MOUSE, KEYBOARD, LAYOUT, SCSI, PRINTER, ...
|
|
;
|
|
; Types specific to networking:
|
|
;
|
|
; NetAdapter, a netcard / adapter combination or just a netcard
|
|
; NetDriver, just a netcard driver
|
|
; NetTransport, a complete NDIS-compliant TDI transport stack
|
|
; NetService, an NT networking service
|
|
; NetWork, a complete network ensemble.
|
|
; NetProvider a complete network which supports NT MPR protocol
|
|
;-----------------------------------------------------------------------
|
|
|
|
[Identification]
|
|
OptionType = NetAdapter
|
|
|
|
;-----------------------------------------------------------------------
|
|
; PlatformsSupported
|
|
; ------------------
|
|
; This identifies the platforms supported by the adapter card.
|
|
; Possible types are:
|
|
;
|
|
; ISA
|
|
;-----------------------------------------------------------------------
|
|
|
|
[PlatformsSupported]
|
|
ISA
|
|
|
|
;-----------------------------------------------------------------------
|
|
; LANGUAGES SUPPORTED
|
|
; -------------------
|
|
;
|
|
; The languages supported by the OEM INF, For every language supported
|
|
; we need to have a separate text section for every displayable text
|
|
; section.
|
|
;
|
|
;-----------------------------------------------------------------------
|
|
|
|
[LanguagesSupported]
|
|
ENG
|
|
|
|
;-----------------------------------------------------------------------
|
|
; OPTION LIST
|
|
; -----------
|
|
; This section lists the OEM Option key names. These keys are locale
|
|
; independent and used to represent the option in a locale independent
|
|
; manner.
|
|
;
|
|
;-----------------------------------------------------------------------
|
|
|
|
[Options]
|
|
IRMINI
|
|
|
|
;-----------------------------------------------------------------------
|
|
; OPTION TEXT SECTION
|
|
; -------------------
|
|
; These are text strings used to identify the option to the user. There
|
|
; are separate sections for each language supported. The format of the
|
|
; section name is "OptionsText" concatenated with the Language represented
|
|
; by the section.
|
|
;
|
|
;-----------------------------------------------------------------------
|
|
|
|
[OptionsTextENG]
|
|
IRMINI = "IRMINI Serial Infrared Port"
|
|
|
|
;***********************************************************************
|
|
; CONSTANTS FOR USING DIALOGS
|
|
;***********************************************************************
|
|
|
|
[FileConstants]
|
|
|
|
;
|
|
; File names, etc.
|
|
;
|
|
UtilityInf = "UTILITY.INF"
|
|
ParamInf = "NCPARAM.INF"
|
|
subroutineinf = "SUBROUTN.INF"
|
|
SoftwareType = "driver"
|
|
Exit_Code = 0
|
|
|
|
;
|
|
; EventLog Message File
|
|
;
|
|
NetEventDLL = "%SystemRoot%\System32\netevent.dll;%SystemRoot%\System32\Drivers\irmini.sys"
|
|
IoLogMsgDLL = "%SystemRoot%\System32\IoLogMsg.dll"
|
|
|
|
; Product Info
|
|
;
|
|
Manufacturer = "Microsoft"
|
|
ProductMajorVersion = "4"
|
|
ProductMinorVersion = "0"
|
|
ProductVersion = $(ProductMajorVersion)"."$(ProductMinorVersion)
|
|
;
|
|
; Software
|
|
;
|
|
ProductSoftwareName = "IRMINI"
|
|
ProductSoftwareTitle = "IRMINI Serial Infrared Port Driver"
|
|
ProductSoftwareImagePath = "\SystemRoot\System32\drivers\irmini.sys"
|
|
NetRuleSoftwareType = "IrminiSys ndisDriver irminiDriver"
|
|
NetRuleSoftwareUse = $(SoftwareType)
|
|
NetRuleSoftwareBindForm = """IrminiSys"" yes no container"
|
|
NetRuleSoftwareClass = {"irminiDriver basic"}
|
|
NetRuleSoftwareBindable = {"irminiDriver irminiAdapter non exclusive 100"}
|
|
;
|
|
; Hardware
|
|
;
|
|
ProductHardwareName = "Irmini"
|
|
ProductHardwareIRMINITitle = "IRMINI Serial Infrared Port Driver"
|
|
NetRuleHardwareType = "irmini irminiAdapter"
|
|
NetRuleHardwareBindForm = " yes yes container"
|
|
NetRuleHardwareClass = {"irminiAdapter basic"}
|
|
;
|
|
; Registry Key
|
|
;
|
|
ProductKeyName = $(!NTN_SoftwareBase)"\"$(Manufacturer)"\"$(ProductSoftwareName)"\CurrentVersion"
|
|
ParamKeyName = $(!NTN_ServiceBase)"\"$(ProductHardwareName)"\Parameters"
|
|
|
|
|
|
[GeneralConstants]
|
|
;
|
|
; Program flow control variables.
|
|
;
|
|
from = ""
|
|
to = ""
|
|
;
|
|
; Return codes; Exit_Code is set to one of these
|
|
;
|
|
ExitCodeOk = 0
|
|
ExitCodeCancel = 1
|
|
ExitCodeFatal = 2
|
|
|
|
;BUGBUG: don't know what MAXIMUM_ALLOWED means
|
|
KeyNull = ""
|
|
MAXIMUM_ALLOWED = 33554432
|
|
RegistryErrorIndex = NO_ERROR
|
|
KeyProduct = ""
|
|
KeyParameters = ""
|
|
|
|
TRUE = 1
|
|
FALSE = 0
|
|
NoTitle = 0
|
|
|
|
ExitState = "Active"
|
|
OldVersionExisted = $(FALSE)
|
|
|
|
DriverPath = $(!STF_NTPATH)\drivers
|
|
|
|
;***********************************************************************
|
|
; Language-Dependent Dialog Constants
|
|
;***********************************************************************
|
|
|
|
[FileConstantsENG]
|
|
;
|
|
; Variables to support thermometer gauge and error dialogs
|
|
;
|
|
ProCaption = "Windows NT Setup"
|
|
ProCancel = "Cancel"
|
|
ProCancelMsg = "Windows NT Networking is not correctly installed. "+
|
|
"Are you sure you want to cancel copying files?"
|
|
|
|
ProCancelCap = "Network Setup Message"
|
|
ProText1 = "Copying:"
|
|
ProText2 = "To:"
|
|
|
|
;
|
|
; Product Info
|
|
;
|
|
FunctionTitle = "IRMINI Serial Infrared Port Setup"
|
|
;
|
|
; Software
|
|
;
|
|
ProductSoftwareDescription = "IRMINI Serial Infrared Port Driver"
|
|
;
|
|
; Hardware
|
|
;
|
|
ProductHardwareIRMINIDescription = "IRMINI Serial Infrared Port Adapter"
|
|
|
|
[DialogConstantsENG]
|
|
;
|
|
; Common button names, etc.
|
|
;
|
|
;BUGBUG: remove or resolve help issues.
|
|
Help = "&Help"
|
|
Exit = "Cancel"
|
|
OK = "OK"
|
|
HelpContext = ""
|
|
Continue = "Continue"
|
|
Cancel = "Cancel"
|
|
|
|
[date]
|
|
; Now is a list which contains { Sec from 1-1-1970, Year, Month, Day, Hour,
|
|
; Minute, Second }
|
|
Now = {} ? $(!LIBHANDLE) GetSystemDate
|
|
|
|
|
|
;-----------------------------------------------
|
|
; Input DIALOGS
|
|
;-----------------------------------------------
|
|
|
|
[FileDependentDlgENG]
|
|
|
|
DlgType = "MultiCombo"
|
|
|
|
; BUGBUG ??? DlgTemplate = "NE2000"
|
|
DlgTemplate = "UBNDIS"
|
|
|
|
Caption = $(FunctionTitle)
|
|
|
|
DlgText = "Please select values for the following fields:"
|
|
|
|
Label1 = "&IRQ Level:"
|
|
Label2 = "I/&O Port Address:"
|
|
Label3 = "&Transceiver Type:"
|
|
|
|
Combo1List = $(IRQ_List)
|
|
Combo1Out = $(IRQ_Level)
|
|
Combo2List = $(IOADDR_Hex_List)
|
|
Combo2Out = $(IOADDR_Hex_Value)
|
|
Combo3List = $(TRANSCEIVER_TYPE_List)
|
|
Combo3Out = $(TRANSCEIVER_TYPE_Str)
|
|
|
|
|
|
ComboListItemsIn = {Combo1List, Combo2List, Combo3List}
|
|
ComboListItemsOut = {Combo1Out, Combo2Out, Combo3Out}
|
|
|
|
EditTextIn = ""
|
|
EditTextLim = ""
|
|
CBOptionsGreyed = {}
|
|
NotifyFields = {NO, NO, NO}
|
|
|
|
HelpContext = 100
|
|
|
|
;---------------------------------------------------------------------------
|
|
; 1. Identify
|
|
;
|
|
; DESCRIPTION: To verify that this INF deals with the same type of options
|
|
; as we are choosing currently.
|
|
;
|
|
; INPUT: None
|
|
;
|
|
; OUTPUT: $($R0): STATUS: STATUS_SUCCESSFUL
|
|
; $($R1): Option Type (COMPUTER ...)
|
|
; $($R2): Diskette description
|
|
;---------------------------------------------------------------------------
|
|
|
|
[Identify]
|
|
Set !G:DebugOutputControl = 1
|
|
Set !DebugOutputControl = 1
|
|
Set !STF_DISPLAYDEBUGOUTPUT = 1
|
|
Debug-Output $(STF_CONTEXTINFNAME)": Calling Identification"
|
|
;
|
|
;
|
|
read-syms Identification
|
|
Debug-Output $(STF_CONTEXTINFNAME)": Identification set OptionType = "$(OptionType)
|
|
|
|
set Status = STATUS_SUCCESSFUL
|
|
set Identifier = $(OptionType)
|
|
set Media = #("Source Media Descriptions", 1, 1)
|
|
|
|
Debug-Output $(STF_CONTEXTINFNAME)": Identify returning Status = "$(Status)", Identifier = "$(Identifier)", Media = "$(Media)
|
|
|
|
Return $(Status) $(Identifier) $(Media)
|
|
|
|
;------------------------------------------------------------------------
|
|
; 2. ReturnOptions:
|
|
;
|
|
; DESCRIPTION: To return the option list supported by this INF and the
|
|
; localised text list representing the options.
|
|
;
|
|
;
|
|
; INPUT: $($0): Language used. ( ENG | FRN | ... )
|
|
;
|
|
; OUTPUT: $($R0): STATUS: STATUS_SUCCESSFUL |
|
|
; STATUS_NOLANGUAGE
|
|
; STATUS_FAILED
|
|
; STATUS_NOTSUPPORTED
|
|
;
|
|
; $($R1): Option List
|
|
; $($R2): Option Text List
|
|
;------------------------------------------------------------------------
|
|
|
|
[ReturnOptions]
|
|
;
|
|
;
|
|
set Status = STATUS_FAILED
|
|
set OptionList = {}
|
|
set OptionTextList = {}
|
|
|
|
;
|
|
; Check if the language requested is supported
|
|
;
|
|
set LanguageList = ^(LanguagesSupported, 1)
|
|
Ifcontains(i) $($0) in $(LanguageList)
|
|
;
|
|
; Check if the platforms requested is supported
|
|
;
|
|
ifstr(i) $($1) == ""
|
|
goto returnoptions
|
|
endif
|
|
|
|
set PlatformList = ^(PlatformsSupported, 1)
|
|
Ifcontains(i) $($1) in $(PlatformList)
|
|
goto returnoptions
|
|
else
|
|
set Status = STATUS_NOTSUPPORTED
|
|
goto finish_ReturnOptions
|
|
endif
|
|
else
|
|
set Status = STATUS_NOLANGUAGE
|
|
goto finish_ReturnOptions
|
|
endif
|
|
|
|
;
|
|
; form a list of all the options and another of the text representing
|
|
;
|
|
|
|
returnoptions = +
|
|
set OptionList = ^(Options, 1)
|
|
set OptionTextList = ^(OptionsText$($0), 1)
|
|
set Status = STATUS_SUCCESSFUL
|
|
|
|
finish_ReturnOptions = +
|
|
Return $(Status) $(OptionList) $(OptionTextList)
|
|
|
|
;------------------------------------------------------------------------
|
|
;
|
|
; InstallOption:
|
|
;
|
|
; This section is shelled to by main installation processing
|
|
; or by NCPASHEL.INF during reconfig, removal, update, etc.
|
|
;
|
|
;
|
|
; FUNCTION: To copy files representing Options
|
|
; To configure the installed option
|
|
; To update the registry for the installed option
|
|
;
|
|
; INPUT: $($0): Language to use
|
|
; $($1): OptionID to install
|
|
; $($2): SourceDirectory
|
|
; $($3): AddCopy (YES | NO)
|
|
; $($4): DoCopy (YES | NO)
|
|
; $($5): DoConfig (YES | NO)
|
|
;
|
|
; OUTPUT: $($R0): STATUS: STATUS_SUCCESSFUL |
|
|
; STATUS_NOLANGUAGE |
|
|
; STATUS_USERCANCEL |
|
|
; STATUS_FAILED
|
|
;
|
|
;------------------------------------------------------------------------
|
|
[InstallOption]
|
|
;
|
|
; Set default values for
|
|
;
|
|
set Status = STATUS_FAILED
|
|
;
|
|
; extract parameters
|
|
;
|
|
set Option = $($1)
|
|
set SrcDir = $($2)
|
|
set AddCopy = $($3)
|
|
set DoCopy = $($4)
|
|
set DoConfig = $($5)
|
|
|
|
;
|
|
; Check if the language requested is supported
|
|
;
|
|
set LanguageList = ^(LanguagesSupported, 1)
|
|
Ifcontains(i) $($0) NOT-IN $(LanguageList)
|
|
Return STATUS_NOLANGUAGE
|
|
endif
|
|
|
|
set-subst LF = "\n"
|
|
|
|
read-syms GeneralConstants
|
|
read-syms FileConstants
|
|
|
|
; BUGBUG: What is NCPA??
|
|
|
|
read-syms DialogConstants$(!STF_LANGUAGE)
|
|
ifstr(i) $(!NTN_Origination) == "NCPA"
|
|
set Continue = "OK"
|
|
endif
|
|
read-syms FileConstants$(!STF_LANGUAGE)
|
|
|
|
detect date
|
|
|
|
set-title $(FunctionTitle)
|
|
|
|
set to = Begin
|
|
set from = Begin
|
|
;
|
|
; Assume all is well.
|
|
;
|
|
set CommonStatus = STATUS_SUCCESSFUL
|
|
|
|
EndWait
|
|
|
|
;
|
|
; Set up the operation-mode-based variables and gaily welcome
|
|
; the user. If the "install mode" variable is improperly set,
|
|
; assume this is a new installation.
|
|
;
|
|
;BUGBUG: calls out to shell, what is it doing?
|
|
Begin = +
|
|
Set ActivateDetection = FALSE
|
|
|
|
Ifstr(i) $(!NTN_InstallMode) == deinstall
|
|
set StartLabel = removeadapter
|
|
else-Ifstr(i) $(!NTN_InstallMode) == Update
|
|
set StartLabel = UpgradeSoftware
|
|
else-Ifstr(i) $(!NTN_InstallMode) == bind
|
|
set StartLabel = bindingadapter
|
|
else-Ifstr(i) $(!NTN_InstallMode) == configure
|
|
set ActivateDetection = TRUE
|
|
set StartLabel = configureadapter
|
|
;
|
|
; You cannot config the software component
|
|
;
|
|
Ifstr(i) $(ProductKeyName) == $(!NTN_RegBase)
|
|
Debug-Output "Cannot configure the NI6510 driver software."
|
|
Shell $(UtilityInf),RegistryErrorString,CANNOT_CONFIGURE_SOFTWARE
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
Debug-Output "ShellCode error: cannot get an error string."
|
|
goto ShellCodeError
|
|
endif
|
|
set Error = $($R0)
|
|
set from = end
|
|
set to = end
|
|
goto nonfatalinfo
|
|
endif
|
|
else
|
|
set ActivateDetection = TRUE
|
|
set StartLabel = installadapter
|
|
set OEM_ABANDON_OPTIONS = {}
|
|
set OEM_ABANDON_SOFTWARE = FALSE
|
|
set OEM_ABANDON_ON = TRUE
|
|
endif
|
|
|
|
|
|
;===================================================
|
|
; Netcard Detection logic
|
|
;
|
|
; Initialize use of netcard detection;
|
|
; Construct require global parameter variables
|
|
;
|
|
Debug-Output "OEMSETUP.INF: =================================================="
|
|
Debug-Output "OEMSETUP.INF: STF_CWDIR is: "$(!STF_CWDIR)
|
|
Debug-Output "OEMSETUP.INF: STF_LANGUAGE is: "$(!STF_LANGUAGE)
|
|
Debug-Output "OEMSETUP.INF: Option is: "$(Option)
|
|
Debug-Output "OEMSETUP.INF: !STF_NCDETECT is: "$(!STF_NCDETECT)
|
|
Debug-Output "OEMSETUP.INF: !STF_NCOPTION is: "$(!STF_NCOPTION)
|
|
Debug-Output "OEMSETUP.INF: !STF_NCDETCARD is: "$(!STF_NCDETCARD)
|
|
Debug-Output "OEMSETUP.INF: !STF_NCDETINFO is: "$(!STF_NCDETINFO)
|
|
Debug-Output "OEMSETUP.INF: =================================================="
|
|
|
|
Set DetectedCard = FALSE
|
|
|
|
Ifstr(i) $(ActivateDetection) != TRUE
|
|
Goto $(StartLabel)
|
|
Endif
|
|
;
|
|
; Set !STF_NC_PARAMS and !STF_NC_PNAMES by calling
|
|
; PARAM.INF!Param_BuildTypeLists.
|
|
; Pass it a list of the form:
|
|
;
|
|
; { { <param name>,
|
|
; <name of choice list var>,
|
|
; <name of default var> },
|
|
; ...
|
|
; }
|
|
;
|
|
Set TypeList = {{IRQ, IRQ_List, IRQ_Level},+
|
|
{IOADDR, IOADDR_Addr_List, IOBaseAddrValue},+
|
|
{TRANSCEIVER_TYPE, TRANSCEIVER_TYPE_List, TRANSCEIVER_TYPE_Value}}
|
|
|
|
Debug-Output "OEMSETUP.INF: Calling Param_BuildTypeLists"
|
|
; Shell $(ParamInf) Param_BuildTypeLists $(Option) $(TypeList)
|
|
; Set Status = $($R0)
|
|
; ifstr(i) $(Status) != STATUS_SUCCESSFUL
|
|
; Goto fataldetect
|
|
; Endif
|
|
;
|
|
; The following code performs the same as above Param_BuildTypeLists
|
|
;
|
|
Set IRQ_List = { 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15 }
|
|
Set IOADDR_Addr_List = { 744, 760, 1000, 1016 }
|
|
|
|
|
|
Set TRANSCEIVER_TYPE_List = { "Standard UART",+
|
|
"ESI-9680 JetEye",+
|
|
"ActiSys 220L",+
|
|
"Crystal",+
|
|
"Adaptec AIRport2000",+
|
|
"PARALLAX",+
|
|
"NSC PC87108 demo bd" }
|
|
|
|
Set !STF_NC_PARAMS = { { "IRQ", 1, 0, { 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15 } },+
|
|
{ "IOADDR", 1, 0, { 744, 760, 1000, 1016 } },+
|
|
{ "TRANSCEIVER_TYPE", 1, 0, {"Standard UART",+
|
|
"ESI-9680 JetEye",+
|
|
"ActiSys 220L",+
|
|
"Crystal",+
|
|
"Adaptec AIRport2000",+
|
|
"PARALLAX",+
|
|
"NSC PC87108 demo bd" } } }
|
|
Set !STF_NC_PNAMES = { { "IRQ", "IRQ_Level", 4 },+
|
|
{ "IOADDR", "IOBaseAddrValue", 1016 },+
|
|
{ "TRANSCEIVER_TYPE", "TRANSCEIVER_TYPE_Value", 0 } }
|
|
Set !p:IRQ = { 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15 }
|
|
Set !p:IOADDR = { 744, 760, 1000, 1016 }
|
|
|
|
Set !p:TRANSCEIVER_TYPE = { "Standard UART",+
|
|
"ESI-9680 JetEye",+
|
|
"ActiSys 220L",+
|
|
"Crystal",+
|
|
"Adaptec AIRport2000",+
|
|
"PARALLAX",+
|
|
"NSC PC87108 demo bd" }
|
|
|
|
|
|
;
|
|
; End of additional code
|
|
;
|
|
Debug-Output "OEMSETUP.INF: Calling Param_SetDefaults"
|
|
Shell $(ParamInf) Param_SetDefaults {}
|
|
|
|
; Establish presentation versions of choice lists.
|
|
|
|
Shell $(ParamInf) HexListFromDecList $(IOADDR_Addr_List)
|
|
Set IOADDR_Hex_List = $($R0)
|
|
|
|
; If this is a detected card, set the flag.
|
|
|
|
Ifstr(i) $(!STF_NCDETECT) == YES
|
|
Ifstr(i) $(!STF_NCOPTION) == $(Option)
|
|
Set DetectedCard = TRUE
|
|
Debug-Output "OEMSETUP.INF: Setting DetectedCard to TRUE"
|
|
Endif
|
|
Endif
|
|
;
|
|
; End Netcard Detection logic
|
|
;===================================================
|
|
|
|
Shell "" DebugConfiguration "After parameter querying"
|
|
|
|
Set from = $(fatal)
|
|
Set to = $(fatal)
|
|
Goto $(StartLabel)
|
|
|
|
;-----------------------------------------------
|
|
; Installation Section
|
|
;-----------------------------------------------
|
|
|
|
installadapter = +
|
|
;
|
|
; First, check whether the same version of the software exists
|
|
;
|
|
OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyName) $(MAXIMUM_ALLOWED) KeyProduct
|
|
|
|
Ifstr $(KeyProduct) != $(KeyNull)
|
|
;
|
|
; Same version already existed in the local machine
|
|
; Popup the dialog and ask the user whether he wants to continue
|
|
;
|
|
CloseRegKey $(KeyProduct)
|
|
|
|
ifstr(i) !(NTN_RegBase) == $(ProductKeyName)
|
|
;
|
|
; Cannot Install the same software again
|
|
;
|
|
Shell $(UtilityInf), VerExistedDlg, $(ProductSoftwareTitle),+
|
|
$(ProductVersion)
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
Debug-Output "ShellCode error: cannot get an error string."
|
|
goto ShellCodeError
|
|
endif
|
|
|
|
goto end
|
|
else
|
|
;
|
|
; Add a new adapter card?
|
|
;
|
|
Shell $(UtilityInf), CardExistedDlg
|
|
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
Debug-Output "ShellCode error: cannot get an error string."
|
|
goto ShellCodeError
|
|
endif
|
|
|
|
ifstr(i) $($R1) != "OK"
|
|
goto end
|
|
endif
|
|
set OldVersionExisted = $(TRUE)
|
|
endif
|
|
endif
|
|
|
|
Install "Install-Option"
|
|
;===================================================
|
|
; Netcard Detection logic
|
|
;
|
|
; If this is a detected card, query its parameters
|
|
; and merge them into the default list.
|
|
;
|
|
;BUGBUG: detecting PCMCIA card ranges, probably needs to be removed.
|
|
Ifstr(i) $(DetectedCard) != TRUE
|
|
Goto adaptersetup
|
|
Endif
|
|
;
|
|
; Get the detected parameters
|
|
;
|
|
StartWait
|
|
Shell $(ParamInf) Param_QueryCard $(!STF_NCDETCARD)
|
|
EndWait
|
|
Ifstr(i) $($R0) != STATUS_SUCCESSFUL
|
|
Goto adaptersetup
|
|
Endif
|
|
;
|
|
; Merge the detected values in.
|
|
;
|
|
Set DetectedParams = $($R1)
|
|
Debug-Output "OEMSETUP.INF: Calling Param_SetDefaults to merge detected params"
|
|
Shell $(ParamInf) Param_SetDefaults $(DetectedParams)
|
|
;
|
|
; End Netcard Detection logic
|
|
;===================================================
|
|
|
|
goto adaptersetup
|
|
|
|
;-----------------------------------------------
|
|
; Configuration Section
|
|
;-----------------------------------------------
|
|
;
|
|
; Get the current values of all the parameters
|
|
;
|
|
configureadapter = +
|
|
Ifstr $(KeyProduct) == $(KeyNull)
|
|
OpenRegKey $(!REG_H_LOCAL) "" $(!NTN_RegBase) $(MAXIMUM_ALLOWED) KeyProduct
|
|
Ifstr $(KeyProduct) == $(KeyNull)
|
|
set RegistryErrorIndex = CANNOT_FIND_COMPONENT_SERVICE
|
|
Debug-Output "Cannot find component product key"
|
|
goto fatalregistry
|
|
Endif
|
|
Endif
|
|
|
|
;
|
|
; Get the other parameters; they're attached to the service parameters key
|
|
;
|
|
Debug-Output "INF: Shelling to FindService"
|
|
Shell $(UtilityInf) FindService, $(KeyProduct)
|
|
Ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
Debug-Output "INF: FindService shell failure"
|
|
Goto ShellCodeError
|
|
Endif
|
|
Ifstr(i) $($R0) != NO_ERROR
|
|
Debug-Output "INF: FindService Shell error: "$($R0)
|
|
Goto fatalregistry
|
|
endif
|
|
|
|
Set KeyParameters = $($R2)
|
|
|
|
;
|
|
; We don't need the services key, so close it.
|
|
;
|
|
CloseRegKey $($R1)
|
|
|
|
Ifstr $(KeyParameters) == $(KeyNull)
|
|
set RegistryErrorIndex = CANNOT_FIND_COMPONENT_SERVICE
|
|
Debug-Output "Cannot find component service"
|
|
goto fatalregistry
|
|
endif
|
|
|
|
set OldVersionExisted = $(TRUE)
|
|
|
|
set ValueName = ""
|
|
set ValueData = ""
|
|
set ValueStr = ""
|
|
set ValueList = {}
|
|
|
|
;
|
|
; Get the old values
|
|
;
|
|
EnumRegValue $(KeyParameters) ValueList
|
|
|
|
ForListDo $(ValueList)
|
|
set ValueItem = $($)
|
|
set ValueName = *($(ValueItem),1)
|
|
set ValueData = *($(ValueItem),4)
|
|
|
|
Ifstr(i) $(ValueName) == "INTERRUPT"
|
|
set IRQ_Level = $(ValueData)
|
|
else-Ifstr(i) $(ValueName) == "IOADDRESS"
|
|
set IOBaseAddrValue = $(ValueData)
|
|
else-Ifstr(i) $(ValueName) == "InfraredTransceiverType"
|
|
set TRANSCEIVER_TYPE_Value = $(ValueData)
|
|
endif
|
|
|
|
EndForListDo
|
|
;
|
|
; Put up the adapter configuration dialog if necessary.
|
|
;
|
|
adaptersetup = +
|
|
|
|
Shell "" DebugConfiguration "before displaying dialog"
|
|
|
|
Set from = adapteroptions
|
|
|
|
Set IOADDR_Hex_Value = *($(IOADDR_Hex_List), ~($(IOADDR_Addr_List),$(IOBaseAddrValue)))
|
|
|
|
;
|
|
; Lists are indexed from one, so add one to our zero-based index.
|
|
; Then select the current entry in the list we're about to display.
|
|
;
|
|
set-add TRANSCEIVER_TYPE_Value = $(TRANSCEIVER_TYPE_Value), 1
|
|
set TRANSCEIVER_TYPE_Str = *($(TRANSCEIVER_TYPE_List), $(TRANSCEIVER_TYPE_Value))
|
|
|
|
;===================================================
|
|
; Netcard Detection logic
|
|
;
|
|
; Check that this card's parameters can be
|
|
; fully detected.
|
|
;
|
|
; BUGBUG: network detection logic.
|
|
Shell $(ParamInf) Param_ParameterConfidence
|
|
Ifstr(i) $($R0) != STATUS_SUCCESSFUL
|
|
Debug-Output "OEMSETUP.INF: parameter confidence too low to bypass configuration"
|
|
Goto adapteroptions
|
|
Endif
|
|
;
|
|
; If this is a detected card and we're in EXPRESS mode,
|
|
; see if the parameters as they currently exist are
|
|
; verifiably correct.
|
|
;
|
|
Ifstr(i) $(DetectedCard) == TRUE
|
|
Ifstr(i) $(!STF_INSTALL_MODE) != CUSTOM
|
|
Goto adapterverify
|
|
Endif
|
|
Endif
|
|
;
|
|
; End Netcard Detection logic
|
|
;===================================================
|
|
|
|
adapteroptions = +
|
|
|
|
;BUGBUG: write a help file
|
|
;sethelpfile "xpe3.hlp" 100 100
|
|
|
|
read-syms FileDependentDlg$(!STF_LANGUAGE)
|
|
|
|
ui start "InputDlg"
|
|
|
|
ifstr(i) $(DLGEVENT) == "CONTINUE"
|
|
set IRQ_Level = $(Combo1Out)
|
|
set IOADDR_Hex_Value = $(Combo2Out)
|
|
|
|
; Lists are indexed starting from 1, so subtract 1 to get our index
|
|
set TRANSCEIVER_TYPE_Value = ~($(TRANSCEIVER_TYPE_List),$(Combo3Out))
|
|
set-sub TRANSCEIVER_TYPE_Value = $(TRANSCEIVER_TYPE_Value),1
|
|
|
|
Set IOBaseAddrValue = *($(IOADDR_Addr_List), ~($(IOADDR_Hex_List),$(IOADDR_Hex_Value)))
|
|
|
|
ui pop 1
|
|
else-ifstr(i) $(DLGEVENT) == "BACK"
|
|
set CommonStatus = STATUS_USERCANCEL
|
|
Debug-Output "Action: exit. Bye."
|
|
ui pop 1
|
|
goto end
|
|
else
|
|
Debug-Output "Action: unknown. Bye."
|
|
ui pop 1
|
|
goto end
|
|
endif
|
|
|
|
adapterverify = +
|
|
|
|
Shell "" DebugConfiguration "after running dialog"
|
|
|
|
;===================================================
|
|
; Netcard Detection logic
|
|
;
|
|
; If this is a detected card, attempt to validate the options
|
|
;
|
|
;BUGBUG: no detection?
|
|
Ifstr(i) $(DetectedCard) != TRUE
|
|
Goto skipoptions
|
|
Endif
|
|
|
|
Debug-Output "OEMSETUP.INF: Calling Param_VerifyCard"
|
|
Shell $(ParamInf) Param_VerifyCard $(!STF_NCDETCARD)
|
|
Ifstr(i) $($R0) == STATUS_SUCCESSFUL
|
|
Debug-Output "OEMSETUP.INF: Param_VerifyCard succeeded"
|
|
Goto skipoptions
|
|
Endif
|
|
;
|
|
; Give the user a chance to retry or force the options given.
|
|
;
|
|
Set from = adapteroptions
|
|
Set to = skipoptions
|
|
Shell $(UtilityInf),RegistryErrorString,VERIFY_WARNING
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
Debug-Output "ShellCode error: cannot get an error string."
|
|
goto ShellCodeError
|
|
endif
|
|
set Error = $($R0)
|
|
Goto Warning
|
|
;
|
|
; End Netcard Detection logic
|
|
;===================================================
|
|
|
|
;
|
|
; If installing, go create the necessary keys;
|
|
; if configuring, they're already open.
|
|
;
|
|
skipoptions =+
|
|
|
|
ifint $(OldVersionExisted) == $(TRUE)
|
|
ifstr(i) $(!NTN_InstallMode) == configure
|
|
goto writeparameters
|
|
endif
|
|
endif
|
|
StartWait
|
|
;
|
|
; Add Software Component
|
|
;
|
|
ifint $(OldVersionExisted) == $(FALSE)
|
|
ifstr(i) $(!NTN_InstallMode) == "install"
|
|
Ifstr(i) $(DoCopy) == "YES"
|
|
|
|
Shell $(UtilityInf), DoAskSource, $(!STF_CWDDIR), $(SrcDir) YES
|
|
|
|
Ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
Goto ShellCodeError
|
|
Else-Ifstr(i) $($R0) == STATUS_FAILED
|
|
Shell $(UtilityInf) RegistryErrorString "ASK_SOURCE_FAIL"
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
goto ShellCodeError
|
|
endif
|
|
set Error = $($R0)
|
|
Goto fatal
|
|
Else-Ifstr(i) $($R0) == STATUS_USERCANCEL
|
|
Goto successful
|
|
Endif
|
|
|
|
Set SrcDir = $($R1)
|
|
|
|
Endif
|
|
|
|
ifstr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS
|
|
Shell $(UtilityInf) RegistryErrorString "UNABLE_COPY_FILE"
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
goto ShellCodeError
|
|
endif
|
|
set Error = $($R0)
|
|
goto fatal
|
|
endif
|
|
endif
|
|
|
|
Shell $(UtilityInf), AddSoftwareComponent, $(Manufacturer), +
|
|
$(ProductSoftwareName), +
|
|
$(ProductSoftwareName), +
|
|
$(ProductSoftwareTitle), $(STF_CONTEXTINFNAME), +
|
|
$(ProductSoftwareImagePath), "kernel", "NDIS", {}, "",+
|
|
$(NetEventDLL)
|
|
|
|
Set OEM_ABANDON_SOFTWARE = TRUE
|
|
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
Debug-Output "ShellCode error"
|
|
goto ShellCodeError
|
|
endif
|
|
;
|
|
; At this point:
|
|
; $R1 contains the product version key handle;
|
|
; $R2 contains the NetRules subkey handle;
|
|
; $R3 contains the new Services key handle; and
|
|
; $R4 contains the Parameters key
|
|
; $R5 contains the Linkage Key
|
|
;
|
|
set RegistryErrorIndex = $($R0)
|
|
set KeyProduct = $($R1)
|
|
Set SoftNetRulesKey = $($R2)
|
|
CloseRegKey $($R3)
|
|
CloseRegKey $($R4)
|
|
CloseRegKey $($R5)
|
|
|
|
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
|
|
EndWait
|
|
Debug-Output "Registry error: add software components"
|
|
CloseRegKey $(KeyProduct)
|
|
CloseRegKey $(SoftNetRulesKey)
|
|
goto fatalregistry
|
|
endif
|
|
|
|
set NewValueList = {{SoftwareType,$(NoTitle),$(!REG_VT_SZ),$(SoftwareType)},+
|
|
{MajorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMajorVersion)},+
|
|
{MinorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMinorVersion)},+
|
|
{Title,$(NoTitle),$(!REG_VT_SZ),$(ProductSoftwareTitle)},+
|
|
{Description,$(NoTitle),$(!REG_VT_SZ),$(ProductSoftwareDescription)},+
|
|
{ServiceName,$(NoTitle),$(!REG_VT_SZ),$(ProductSoftwareName)},+
|
|
{InstallDate,$(NoTitle),$(!REG_VT_DWORD),*($(Now),1)}}
|
|
|
|
Shell $(UtilityInf), AddValueList, $(KeyProduct), $(NewValueList)
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
Debug-Output "ShellCode error."
|
|
goto ShellCodeError
|
|
endif
|
|
|
|
set RegistryErrorIndex = $($R0)
|
|
|
|
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
|
|
EndWait
|
|
Debug-Output "Registry error: add value list."
|
|
CloseRegKey $(KeyProduct)
|
|
CloseRegKey $(SoftNetRulesKey)
|
|
goto fatalregistry
|
|
endif
|
|
|
|
set NewValueList = {{type,$(NoTitle),$(!REG_VT_SZ),$(NetRuleSoftwareType)},+
|
|
{use,$(NoTitle),$(!REG_VT_SZ),$(NetRuleSoftwareUse)}, +
|
|
{bindform,$(NoTitle),$(!REG_VT_SZ),$(NetRuleSoftwareBindForm)}, +
|
|
{class,$(NoTitle),$(!REG_VT_MULTI_SZ),$(NetRuleSoftwareClass)}, +
|
|
{bindable,$(NoTitle),$(!REG_VT_MULTI_SZ),$(NetRuleSoftwareBindable)}, +
|
|
{InfOption,$(NoTitle),$(!REG_VT_SZ),$(Option)}}
|
|
|
|
Shell $(UtilityInf), AddValueList, $(SoftNetRulesKey), $(NewValueList)
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
Debug-Output "ShellCode error."
|
|
goto ShellCodeError
|
|
endif
|
|
|
|
set RegistryErrorIndex = $($R0)
|
|
|
|
CloseRegKey $(KeyProduct)
|
|
CloseRegKey $(SoftNetRulesKey)
|
|
|
|
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
|
|
EndWait
|
|
Debug-Output "Registry error: add value list."
|
|
goto fatalregistry
|
|
endif
|
|
endif
|
|
;
|
|
; Create the HARDWARE\Netcard region and its corresponding service
|
|
;
|
|
Shell $(UtilityInf), AddHardwareComponent, $(ProductHardwareName),$(STF_CONTEXTINFNAME),$(ProductKeyName)
|
|
|
|
ifint $($R4) != -1
|
|
Set OEM_ABANDON_OPTIONS = >($(OEM_ABANDON_OPTIONS), $(!NTN_SoftwareBase)"\Microsoft\Windows NT\CurrentVersion\NetworkCards\"$($R4))
|
|
endif
|
|
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
Debug-Output "Cannot add hardware component"
|
|
goto ShellCodeError
|
|
endif
|
|
|
|
set RegistryErrorIndex = $($R0)
|
|
|
|
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
|
|
EndWait
|
|
Debug-Output "Registry error: add hardware component"
|
|
CloseRegKey $($R1)
|
|
CloseRegKey $($R2)
|
|
CloseRegKey $($R3)
|
|
goto fatalregistry
|
|
endif
|
|
|
|
;
|
|
; At this point:
|
|
; $R1 Registry key variable for HARDWARE\Netcard\(n)
|
|
; $R2 Registry key variable for HARDWARE\Netcard\(n)\\NetRules
|
|
; $R3 Registry key handle for <service>\Parameters key
|
|
; $R4 Adapter number assigned to adapter
|
|
; $R5 Service name generated by combining svc name with adapter number
|
|
;
|
|
set KeyParameters = $($R3)
|
|
set KeyAdapterRules = $($R2)
|
|
set AdapterNumber = $($R4)
|
|
|
|
set NewValueList = {{Manufacturer,$(NoTitle),$(!REG_VT_SZ),$(Manufacturer)},+
|
|
{Title,$(NoTitle),$(!REG_VT_SZ),"["$($R4)"] "$(ProductHardware$(Option)Title)},+
|
|
{Description,$(NoTitle),$(!REG_VT_SZ),$(ProductHardware$(Option)Description)},+
|
|
{ProductName,$(NoTitle),$(!REG_VT_SZ),$(ProductHardwareName)},+
|
|
{ServiceName,$(NoTitle),$(!REG_VT_SZ),$($R5)},+
|
|
{InstallDate,$(NoTitle),$(!REG_VT_DWORD),*($(Now),1)}}
|
|
|
|
Shell $(UtilityInf), AddValueList, $($R1), $(NewValueList)
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
Debug-Output "ShellCode error"
|
|
goto ShellCodeError
|
|
endif
|
|
|
|
CloseRegKey $($R1)
|
|
|
|
set TempProdName = """"$(ProductHardwareName)$(AdapterNumber)""""
|
|
set TempBindForm = $(TempProdName)$(NetRuleHardwareBindForm)
|
|
|
|
set NewValueList = {{type,$(NoTitle),$(!REG_VT_SZ),$(NetRuleHardwareType)},+
|
|
{bindform,$(NoTitle),$(!REG_VT_SZ),$(TempBindForm)}, +
|
|
{class,$(NoTitle),$(!REG_VT_MULTI_SZ),$(NetRuleHardwareClass)}, +
|
|
{InfOption,$(NoTitle),$(!REG_VT_SZ),$(Option)}}
|
|
|
|
Shell $(UtilityInf), AddValueList, $(KeyAdapterRules), $(NewValueList)
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
Debug-Output "ShellCode error."
|
|
goto ShellCodeError
|
|
endif
|
|
|
|
set RegistryErrorIndex = $($R0)
|
|
|
|
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
|
|
EndWait
|
|
Debug-Output "Registry error: add value list."
|
|
CloseRegKey $(KeyParameters)
|
|
CloseRegKey $(KeyAdapterRules)
|
|
goto fatalregistry
|
|
endif
|
|
|
|
CloseRegKey $(KeyAdapterRules)
|
|
|
|
goto writeparameters
|
|
;
|
|
; REQUIRED: $(KeyParameters) contains service Parameters key handle
|
|
;
|
|
writeparameters = +
|
|
Shell $(UtilityInf), GetBusTypeNum
|
|
set BusTypeNum = $($R1)
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
Debug-Output "ShellCode error."
|
|
goto ShellCodeError
|
|
endif
|
|
;
|
|
; Add the rest of the parameters to the Services area
|
|
;
|
|
Set NewValueList = {{BusType,$(NoTitle),$(!REG_VT_DWORD),$(BusTypeNum)},+
|
|
{BusNumber,$(NoTitle),$(!REG_VT_DWORD),0},+
|
|
{MediaType,$(NoTitle),$(!REG_VT_DWORD),1},+
|
|
{INTERRUPT,$(NoTitle),$(!REG_VT_DWORD),$(IRQ_Level)},+
|
|
{IOADDRESS,$(NoTitle),$(!REG_VT_DWORD),$(IOBaseAddrValue)},+
|
|
{InfraredTransceiverType,$(NoTitle),$(!REG_VT_DWORD),$(TRANSCEIVER_TYPE_Value)},+
|
|
{VerboseStatus,$(NoTitle),$(!REG_VT_DWORD),1}}
|
|
|
|
|
|
|
|
Shell $(UtilityInf), AddValueList, $(KeyParameters), $(NewValueList)
|
|
|
|
CloseRegKey $(KeyParameters)
|
|
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
Debug-Output "ShellCode error."
|
|
goto ShellCodeError
|
|
endif
|
|
|
|
set RegistryErrorIndex = $($R0)
|
|
|
|
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
|
|
Debug-Output "Registry error: Add value list"
|
|
goto fatalregistry
|
|
endif
|
|
|
|
EndWait
|
|
|
|
goto successful
|
|
|
|
;-----------------------------------------------
|
|
; Binding section
|
|
;-----------------------------------------------
|
|
bindingadapter =+
|
|
set Error = "Binding: Sorry, not yet implemented."
|
|
goto fatal
|
|
|
|
;-----------------------------------------------
|
|
; Removeadapter section
|
|
;-----------------------------------------------
|
|
|
|
removeadapter = +
|
|
Ifstr(i) $(ProductKeyName) == $(!NTN_RegBase)
|
|
; Remove Software Component
|
|
Shell $(UtilityInf), RemoveSoftwareComponent, $(Manufacturer), +
|
|
$(ProductSoftwareName)
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
Debug-Output "ShellCode error"
|
|
goto ShellCodeError
|
|
endif
|
|
|
|
set RegistryErrorIndex = $($R0)
|
|
|
|
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
|
|
goto fatalregistry
|
|
endif
|
|
else
|
|
Shell $(UtilityInf), RemoveHardwareComponent, $(Manufacturer), +
|
|
$(ProductSoftwareName), $(!NTN_RegBase)
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
Debug-Output "ShellCode error"
|
|
goto ShellCodeError
|
|
endif
|
|
|
|
set RegistryErrorIndex = $($R0)
|
|
|
|
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
|
|
goto fatalregistry
|
|
endif
|
|
endif
|
|
|
|
goto end
|
|
|
|
;-----------------------------------------------
|
|
; Upgrade Software section
|
|
;-----------------------------------------------
|
|
|
|
UpgradeSoftware = +
|
|
;
|
|
; First determine whether we want to do upgrade or update for software
|
|
; or hardware component. Then we will determine whether the Mode is
|
|
; update or upgrade.
|
|
;
|
|
; If the same version of the product existed in the registry, we do
|
|
; update. Otherwise, we will do a upgrade
|
|
;
|
|
ifstr(i) $(ProductKeyName) == $(!NTN_RegBase)
|
|
; Upgrade software component
|
|
;
|
|
; see whether the same version exist or not
|
|
;
|
|
OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyName) $(MAXIMUM_ALLOWED) KeyProduct
|
|
|
|
Ifstr $(KeyProduct) != $(KeyNull)
|
|
GetRegValue $(KeyProduct),"MajorVersion", VersionInfo
|
|
set Version = *($(VersionInfo), 4)
|
|
|
|
;
|
|
; Update the binaries
|
|
;
|
|
Split-String $(!NTN_Infname), "\", FilenameList
|
|
QueryListSize ListSize $(FilenameList)
|
|
set !UG_Filename = *($(FilenameList), $(ListSize))
|
|
|
|
install "Install-Update"
|
|
ifstr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS
|
|
goto fatal
|
|
endif
|
|
|
|
; Upgrade the version number
|
|
;
|
|
SetRegValue $(KeyProduct) {MajorVersion,$(NoTitle),$(!REG_VT_SZ),$(ProductMajorVersion)}
|
|
SetRegValue $(KeyProduct) {MinorVersion,$(NoTitle),$(!REG_VT_SZ),$(ProductMinorVersion)}
|
|
|
|
;
|
|
; do nothing for update
|
|
;
|
|
ifint $(Version) != $(ProductVersion)
|
|
;
|
|
; If the major version number is not the same,
|
|
; it is major upgrade. So let Upgrade the product
|
|
;
|
|
;
|
|
; make other upgrade change if necessary
|
|
;
|
|
endif
|
|
CloseRegKey $(KeyProduct)
|
|
else
|
|
;
|
|
; Cannot Open software key, goto ERROR
|
|
;
|
|
goto fatalregistry
|
|
endif
|
|
else
|
|
;
|
|
; upgrade/update hardware component
|
|
; There is no different between upgrade and update for hardware
|
|
; component
|
|
;
|
|
; 1. Get the Service Name
|
|
; 2. Change the NetRule section if necessary
|
|
;
|
|
OpenRegKey $(!REG_H_LOCAL) "" $(!NTN_RegBase) +
|
|
$(MAXIMUM_ALLOWED) NetworkCardKey
|
|
Ifstr(i) $(NetworkCardKey) != $(KeyNull)
|
|
;
|
|
; Get Service name
|
|
;
|
|
GetRegValue $(NetworkCardKey),"ServiceName", ServiceNameInfo
|
|
set ServiceName = *($(ServiceNameInfo), 4)
|
|
|
|
;
|
|
; Change the NetRule if necessary
|
|
;
|
|
OpenRegKey $(NetworkCardKey) "" "NetRules" +
|
|
$(MAXIMUM_ALLOWED) NetRuleKey
|
|
Ifstr(i) $(NetRuleKey) != $(KeyNull)
|
|
;
|
|
; Make the change....
|
|
;
|
|
else
|
|
;
|
|
; Error, cannot open net rules key
|
|
;
|
|
goto fatalregistry
|
|
endif
|
|
|
|
CloseRegKey $(NetRules)
|
|
CloseRegKey $(NetworkCardKey)
|
|
else
|
|
;
|
|
; Error, cannot open network card key
|
|
;
|
|
goto fatalregistry
|
|
endif
|
|
;
|
|
; 3. Change the service section of the hardware. i.e.,
|
|
; ParameterName change, value change, etc.
|
|
;
|
|
OpenRegKey $(!REG_H_LOCAL) "" +
|
|
$(!NTN_ServiceBase)"\"$(ServiceName) +
|
|
$(MAXIMUM_ALLOWED) ServiceKey
|
|
|
|
Ifstr(i) $(ServiceKey) != $(KeyNull)
|
|
;
|
|
; Get the ServiceKey to change the Start value
|
|
; or Type value. Or open Parameters key to
|
|
; change the hardware parameters if necessary.
|
|
;
|
|
CloseRegKey $(ServiceKey)
|
|
else
|
|
;
|
|
; Error, cannot open network card key
|
|
;
|
|
goto fatalregistry
|
|
endif
|
|
endif
|
|
|
|
goto end
|
|
;
|
|
; End of Upgrade Software
|
|
;
|
|
|
|
;
|
|
; Escape hatches
|
|
;
|
|
successful = +
|
|
goto end
|
|
|
|
abandon = +
|
|
ForListDo $(OEM_ABANDON_OPTIONS)
|
|
Shell $(UtilityInf), RemoveHardwareComponent, $(Manufacturer), +
|
|
$(ProductSoftwareName), $($)
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
Debug-Output "ShellCode error"
|
|
goto ShellCodeError
|
|
endif
|
|
|
|
set RegistryErrorIndex = $($R0)
|
|
|
|
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
|
|
goto fatalregistry
|
|
endif
|
|
EndForListDo
|
|
|
|
Ifstr(i) $(OEM_ABANDON_SOFTWARE) == TRUE
|
|
; Remove Software Component
|
|
Shell $(UtilityInf), RemoveSoftwareComponent, $(Manufacturer), +
|
|
$(ProductSoftwareName), FALSE
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
Debug-Output "ShellCode error"
|
|
goto ShellCodeError
|
|
endif
|
|
|
|
set RegistryErrorIndex = $($R0)
|
|
|
|
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
|
|
goto fatalregistry
|
|
endif
|
|
endif
|
|
|
|
goto end
|
|
|
|
;
|
|
; warning display
|
|
;
|
|
warning = +
|
|
Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), "WARNING", $(Error)
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
goto ShellCodeError
|
|
endif
|
|
ifstr(i) $($R1) == "OK"
|
|
goto $(to)
|
|
else-ifstr(i) $($R1) == "CANCEL"
|
|
goto $(from)
|
|
else
|
|
goto "end"
|
|
endif
|
|
;
|
|
; non fatal error display
|
|
;
|
|
nonfatalinfo = +
|
|
Set Severity = STATUS
|
|
Set CommonStatus = STATUS_USERCANCEL
|
|
goto nonfatalmsg
|
|
nonfatal = +
|
|
Set Severity = NONFATAL
|
|
goto nonfatalmsg
|
|
nonfatalmsg = +
|
|
ifstr(i) $(Error) == ""
|
|
Set Severity = NONFATAL
|
|
Shell $(UtilityInf) RegistryErrorString "SETUP_FAIL"
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
goto ShellCodeError
|
|
endif
|
|
set Error = $($R0)
|
|
endif
|
|
Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), $(Severity), $(Error)
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
goto ShellCodeError
|
|
endif
|
|
ifstr(i) $($R1) == "OK"
|
|
goto $(from)
|
|
else
|
|
goto "end"
|
|
endif
|
|
|
|
;
|
|
; Registry is broken
|
|
;
|
|
fatalregistry = +
|
|
Shell $(UtilityInf) RegistryErrorString $(RegistryErrorIndex)
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
goto ShellCodeError
|
|
endif
|
|
set Error = $($R0)
|
|
goto fatal
|
|
;
|
|
; Netcard detection failure
|
|
;
|
|
fataldetect = +
|
|
Shell $(UtilityInf),RegistryErrorString,CANNOT_DETECT
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
Debug-Output "ShellCode error: cannot get an error string."
|
|
goto ShellCodeError
|
|
endif
|
|
set Error = $($R0)
|
|
Goto fatal
|
|
;
|
|
; fatal error display
|
|
;
|
|
fatal = +
|
|
ifstr(i) $(Error) == ""
|
|
Shell $(UtilityInf) RegistryErrorString "SETUP_FAIL"
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
goto ShellCodeError
|
|
endif
|
|
set Error = $($R0)
|
|
endif
|
|
Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), "FATAL", $(Error)
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
goto ShellCodeError
|
|
endif
|
|
|
|
goto setfailed
|
|
|
|
;
|
|
; Shelling error
|
|
;
|
|
ShellCodeError = +
|
|
set DlgType = "MessageBox"
|
|
set STF_MB_TITLE = "Error: "$(FunctionTitle)
|
|
set STF_MB_TEXT = "Shell Code Error"
|
|
set STF_MB_TYPE = 1
|
|
set STF_MB_ICON = 3
|
|
set STF_MB_DEF = 1
|
|
ui start "Error Message"
|
|
goto setfailed
|
|
|
|
setfailed = +
|
|
set CommonStatus = STATUS_FAILED
|
|
;
|
|
; if OEM_ABANDON_ON == TRUE, then remove the registry entries
|
|
;
|
|
ifstr(i) $(OEM_ABANDON_ON) == TRUE
|
|
set OEM_ABANDON_ON = FALSE
|
|
goto abandon
|
|
endif
|
|
goto end
|
|
|
|
end = +
|
|
goto term
|
|
|
|
term = +
|
|
|
|
Return $(CommonStatus)
|
|
|
|
[DebugConfiguration]
|
|
|
|
Set InfName = "OEMSETUP.INF"
|
|
Debug-Output $(InfName)" **CONFIGURATION STATE: "$($0)
|
|
Debug-Output $(InfName)" IRQ_Level is "$(!p:IRQ_Level)
|
|
Debug-Output $(InfName)" IOBaseAddrValue is "$(!p:IOBaseAddrValue)
|
|
Debug-Output $(InfName)" TRANSCEIVER_TYPE_Value is "$(!p:TRANSCEIVER_TYPE_Value)
|
|
|
|
return
|
|
|
|
|
|
;***************************************************************
|
|
; INSTALL SECTIONS
|
|
;***************************************************************
|
|
[Install-Option]
|
|
set STF_VITAL = ""
|
|
|
|
ifstr(i) $(AddCopy) == "YES"
|
|
AddSectionFilesToCopyList Files-$(Option) $(SrcDir) $(!STF_WINDOWSSYSPATH)\drivers
|
|
AddSectionFilesToCopyList Files-Help $(SrcDir) $(!STF_WINDOWSSYSPATH)
|
|
endif
|
|
|
|
ifstr(i) $(DoCopy) == "YES"
|
|
set !STF_NCPA_FLUSH_COPYLIST = TRUE
|
|
CopyFilesInCopyList
|
|
|
|
endif
|
|
|
|
Exit
|
|
|
|
[Install-Update]
|
|
set STF_VITAL = ""
|
|
set STF_OVERWRITE = "VERIFYSOURCEOLDER"
|
|
;set STF_VERSION = "YES"
|
|
|
|
AddSectionFilesToCopyList Files-$(Option) $(SrcDir) $(!STF_WINDOWSSYSPATH)\drivers
|
|
AddSectionFilesToCopyList Files-Inf $(SrcDir) $(!STF_WINDOWSSYSPATH)
|
|
|
|
set !STF_NCPA_FLUSH_COPYLIST = TRUE
|
|
CopyFilesInCopyList
|
|
|
|
exit
|
|
|
|
[Source Media Descriptions]
|
|
1 = "Fast Infrared setup disk"
|
|
|
|
[Files-Inf]
|
|
1, oemsetup.inf, SIZE=999, RENAME=$(!UG_Filename)
|
|
|
|
[Files-IRMINI]
|
|
1, IRMINI.SYS, SIZE=999
|
|
|
|
[Files-Help]
|
|
|