;************************************************************************
;
; Name:      ANDWTDLC.INF
;
;	Andrew 3xTwin Twinax Link Service and Device Driver INF file
;
; Notes:     This file is based on TEMPLATE.INF distributed to IHV's.
;
; History:   iang		Jan 6 95	Initial Write
;
;
; Debug Note:	The following command is a useful debugging aid.
;
;	shell "C:\WINDOWS\SYSTEM32\SUBROUTN.INF" SetupMessage $(!STF_LANGUAGE) +
;	"WARNING" +
;	"debug message"
;
;************************************************************************

;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
;
; INITIALIZATION SECTION
; ----------------------
; This section is responsible for defining the product variables.  It is the
; highest level of definition.  Installation programs will use this section
; to figure out available options etc.
;
;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

;========================================================================
;
; SOURCE MEDIA DESCRIPTIONS
; -------------------------
; The IHV should list all the diskette labels here.  The source media
; description is used during copy to prompt the user for a diskette
; if the source is diskettes.  The TAGFILE field is used to confirm that
; the proper disk is being used.
;
; FORMAT:
; The format includes an enumeration constant and a name for the disk,
; as well as a number of possible flags (including the TAGFILE flag).
; NOTE: TAGFILE and other flags must be all caps (bogus!) and the white
; space must be exactly as shown.
;
; 	1 = "Diskette 1 Label", TAGFILE = "Disk1.Tag"
; 	2 = "Diskette 2 Label", TAGFILE = "Disk2.Tag"
; 	...
;
;========================================================================

[Source Media Descriptions]
1 = "SNA Link Service Diskette"


;========================================================================
;
; OPTION TYPE
; -----------
; This identifies the Option type we are dealing with.  Most SNA link
; services should have "NetService" as the option type.  The list of
; option types for networking:
;
;     NetAdapter 	A netcard/adapter combination or just a netcard
;     NetDriver		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 = NetService


;========================================================================
;
; LANGUAGES SUPPORTED
; -------------------
; The human languages supported by this script.  Each dialog to be presented
; to the user must have a separate text section for each language supported.
; These sections will be indexed by the three-letter code for the language
; in use.
;
;========================================================================

[LanguagesSupported]
	ENG


;========================================================================
;
; OPTION LIST
; -----------
; This section lists the IHV Option key names.  These keys are locale
; independent and used to represent the option in a locale independent
; manner.
;
; You should go through this script and do a global search/replace on
; IHVLINK (ANDWTDLCLS) and IHVDDRV (ANDWTDLCDD) so that they reflect the
; true names of the IHV components.
;
;========================================================================

[Options]
	ANDWTDLCDD			;Andrew 3xTwin TDLC Link Service
	ANDWTDLCLS			;Andrew 3xTwin TDLC Device Driver


;========================================================================
;
; OPTION TEXT SECTION
; -------------------
; These are text strings used to identify the option to the user.  There
; are separate sections for each language supported.
;
; You should set these strings to describe the IHV link service you're
; writing the setup script for.
;
; FORMAT:
; The format of the section name is "OptionsText" concatenated with the
; Language represented by the section.
;	[OptionsTextLNG1]
;		...
;	[OptionsTextLNG2]
;		...
;
;========================================================================

[OptionsTextENG]
	ANDWTDLCLS	= "Andrew Twinax Link Service"
	ANDWTDLCDD	= "Andrew 3xTwin Data Link Device Driver"


;========================================================================
;
; SNA OPTION LIST
; ---------------
; This is the list of options available to the SNA Services user.  This list
; is presented to the user in a list box in the SNA Services Setup program.
;
;========================================================================

[SNAOptions]
	ANDWTDLCLS


;========================================================================
;
; SNA OPTION ADDITIONALS
; ----------------------
; This section specifies the additional options that should be installed for
; each of the main options.  The SNA Services setup will invoke this INF
; file with each of these additional options in order followed by the main
; option.
;
; FORMAT:
; The format for the section name is "SNAOptionAdds" concatenated with the
; option name.
;	[SNAOptionAddsSNAOPT1]
;		...
;	[SNAOptionAddsSNAOPT2]
;		...
;
;========================================================================

[SNAOptionAddsANDWTDLCLS]
	ANDWTDLCDD


;========================================================================
;
; INSTALLATION STEPS SECTION
; --------------------------
; In this section, you define which steps will be taken in the installation
; procedure.
;
; FORMAT:
; The format is "InstallSteps" concatenated with the option name
;	[InstallStepsOPT1]
; 		...
;
;========================================================================

[InstallStepsANDWTDLCLS]
	AddFilesToCopyList    = YES
	CopyFilesInCopyList   = YES

[InstallStepsANDWTDLCDD]
	AddFilesToCopyList    = YES
	CopyFilesInCopyList   = NO


;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
;
; DIALOG CONSTANTS SECTION
; ------------------------
; This section is responsible for defining dialog constants.  It is meant
; to be used to simplify programming this INF file as well as reading it.
;
;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

[DialogConstants]
	Radio1 = "1"
	Radio2 = "2"
	Radio3 = "3"
	Radio4 = "4"
	Radio5 = "5"


;++++++++++++++++++++++++++++++++++++
;
; ProgressCopyVars:
; These variables specify the look of the gauge that comes up
; when copying files.
;
;++++++++++++++++++++++++++++++++++++

[ProgressCopyVars]
	ProCaption   = "File copy in progress"
	ProCancel    = "&Cancel"
	ProCancelMsg = $(ProductTitle)$(!LF)"is not fully installed."$(!LF)+
			"Are you sure you want to cancel before all"$(!LF)+
			"the files are copied?"
	ProCancelCap = $(SetupTitle)" Warning"
	ProText1     = "Copying "
	ProText2     = "        to"


;++++++++++++++++++++++++++++++++++++
;
; HelpContextIDs:
; These variables specify which help topic to bring up when the
; user clicks the Help button.  There should be one of these for
; each dialog box with a Help button.  Look in the main SNA Setup
; .INF files for lots of examples.
;
;++++++++++++++++++++++++++++++++++++

[HelpContextIDs]
	IDD_ANDWTDLCLSCONFIG = 101


;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
;
; FILE CONSTANTS SECTION
; ----------------------
; This section is responsible for defining some general product information
; that will be used mostly for the registry.
;
;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

;++++++++++++++++++++++++++++++++++++
;
; File Names Subsection:
; This subsection contains useful filenames as macros.
; HlpMin and HlpMax should be set to one less and one more than
; the least and greatest HelpContextID.
;
;++++++++++++++++++++++++++++++++++++

[FileConstants]
!UtilityInf	= $(!SNARootDir)"\SETUPUTL.INF"
!SubroutineInf	= $(!STF_WINDOWSSYSPATH)"\SUBROUTN.INF"
DialogLibrary	= $(!SNARootDir)"\SETUP.SRL"
ThisFile	= "ANDWTDLC"
ThisInf		= $(ThisFile)".INF"
ThisSrl		= $(ThisFile)".SRL"
ThisHlp		= $(ThisFile)".HLP"
HlpMin		= "100"
HlpMax		= "102"
$ShellCode	= 0


;++++++++++++++++++++++++++++++++++++
;
; Product Information Subsection:
; This subsection contains lots of product information that will be used
; in the registry.
;
; For the SNAServiceType value, please refer to the "SNAServiceTypes" section
; in the SETUPUTL.INF file.  Also, only Link Supports have this value, all
; others should have a NULL string ("") for this value.  Again, look at the
; existing link support setup .INF files for examples.
;
;++++++++++++++++++++++++++++++++++++

[FileConstantsANDWTDLCLS]
;
; Product Info
;
ProductVersion       = "2.0"
ProductName          = "ANDWTDLCLS"
ProductFullName      = $(ProductName)"_"$(ProductVersion)"_"$(Instance)
ProductRegBase       = $(!NTN_SoftwareBase)"\Microsoft"
ProductType          = "Link"
ProductImagePath     = "SNALINK.EXE"
ProductDepends       = {}
ProductParams        = {}
ProductExtraParams   = {}
;ProductExclusive     = $(!False)
ProductExclusive     = $(NOTIFY)
ProductDLL           = "SNATDLC.DLL"
ProductServicePrefix = "SnaTdlc"
ProductServiceQuery  = $(!True)
;
; Registry Key Information
;
; SNAServiceType should be: CESDFT for a DFT link, CESX25 for an X.25 link,
;                           CESTR for Token Ring,  CESLINK for a SDLC link.
;
SNAServiceType       = "CESTWINAX"
;
; NetRules Stuff
;
NetRulesClass        = "snatdlclink snalink"
NetRulesTitle        = "Andrew TDLC Link Service"
NetRulesUse          = "service yes yes"
NetRulesBindable     = "snatdlclink snatdlcdriver non non 100"
NetRulesType         = "andwtdlc_"$(Instance)" snatdlclink"
FullInfName          = $(!SNARootDir)"\system\hwsetup\"$(ThisInf)
SoftwareType         = "service"


[FileConstantsANDWTDLCDD]
;
; Product Info
;
ProductVersion       = "2.0"
ProductName          = "ANDWTDLCDD"
ProductFullName      = $(ProductName)"_"$(ProductVersion)"_"$(Instance)
ProductRegBase       = $(!NTN_SoftwareBase)"\Microsoft"
ProductType          = "Driver"
ProductImagePath     = "ANDWTDLC.SYS"
ProductDepends       = {}
ProductParams        = {}
ProductExtraParams   = {}
ProductExclusive     = $(!True)
ProductDLL           = ""
ProductServicePrefix = "andwtdlc"
ProductServiceQuery  = $(!False)
;
; Registry Key Information
;
SNAServiceType       = "DRIVER"
;
; NetRules Stuff
;
NetRulesClass        = "snatdlcdriver basic yes"
NetRulesTitle        = "Andrew TDLC Device Driver"
NetRulesUse          = "driver yes yes"
NetRulesBindable     = ""
NetRulesType         = "andwtdlcdd snatdlcdriver"
FullInfName          = $(!SNARootDir)"\system\hwsetup\"$(ThisInf)
SoftwareType         = "driver"


;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
;
; GENERAL CONSTANTS SECTION
; -------------------------
; This section is responsible for defining some general constants that
; are used in this INF script.  These constants include flow control
; variables, exit codes, and registry reference numbers.
;
;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

[GeneralConstants]

;++++++++++++++++++++++++++++++++++++
;
; Flow Control Variables:
; "From" will generally represents the label we just came from, while "To"
; represents the label we are headed toward.
;
;++++++++++++++++++++++++++++++++++++

from = ""
to   = ""

;++++++++++++++++++++++++++++++++++++
;
; Booleans:
;
;++++++++++++++++++++++++++++++++++++

!False = 0
!True  = 1

;++++++++++++++++++++++++++++++++++++
;
; Other values
;
;++++++++++++++++++++++++++++++++++++

NOTIFY = 2

;++++++++++++++++++++++++++++++++++++
;
; Registry Initialization Parameters:
;
;++++++++++++++++++++++++++++++++++++

NoTitle       = 0
KeyNull       = ""
KeyProduct    = ""
KeyParameters = ""

;++++++++++++++++++++++++++++++++++++
;
; Other Initialization Parameters:
;
;++++++++++++++++++++++++++++++++++++

ExitState         = "Active"
OldVersionExisted = $(!False)


;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
;
; LANGUAGE-DEPENDENT DIALOG CONSTANTS SECTION
; -------------------------------------------
; This section is responsible for defining dialog constants that are
; language dependent.
;
;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

;++++++++++++++++++++++++++++++++++++
;
; Common Button Names:
;
;++++++++++++++++++++++++++++++++++++

[DialogConstantsENG]
Help 		= "&Help"
Exit		= "C&ancel"
Continue	= "&Continue"
Cancel		= "C&ancel"
OK		= "&OK"
HelpContext	= ""


;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
;
; LANGUAGE-DEPENDENT FILE CONSTANTS SECTION
; -----------------------------------------
; This section is responsible for defining language dependent information.
;
;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

;
; The following name should include the name of the IHV as per the example
;
[FileConstantsENG]
SetupTitle   = "Andrew Twinax Data Link Service Setup"

[FileConstantsANDWTDLCLS_ENG]
ProductTitle = "Andrew Twinax Link Service"
ProductDesc  = "Andrew Twinax Data Link Service for "$(!SNA_ProductName)

[FileConstantsANDWTDLCDD_ENG]
ProductTitle = "Andrew Twinax Device Driver"
ProductDesc  = "Andrew Twinax Device Driver for "$(!SNA_ProductName)


;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
;
; DATE SECTION
; ------------
; This section is responsible for establishing the value of the "Now"
; variable.  This variable is a list of the following format:
;	{ Seconds from 1-1-1970, Year, Month, Day, Hour, Minute, Second }
;
;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

[LoadSetupLibrary]
  set !LIBHANDLE = ""
  LoadLibrary "x" $(!STF_WINDOWSSYSPATH)"\setupdll.dll" !LIBHANDLE
  exit

[FreeSetupLibrary]
  FreeLibrary $(!LIBHANDLE)
  set !LIBHANDLE = ""
  exit

[Date]
  Now = {} ? $(!LIBHANDLE) GetSystemDate


;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
;
; INPUT DIALOGS SECTION
; ---------------------
; This section should contain all the information about the input dialogs.
;
; FORMAT:
; The format of the section name is the string name concatenated with the
; Language represented by the section.
;	[InputDialog1LNG1]
;		...
;	[InputDialog2LNG1]
;		...
;
;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

[DoTDLCLSConfigENG]
DlgTemplate = IDD_ANDWTDLCLSCONFIG
DlgType     = Combination                                 ;    "MultiCombo"
Caption     = $(!P:SetupTitle)
DlgText1    = "Service Name:    "$(ServiceName)
EditLabel1  = "&Title:"
EditTextIn  = $(ServiceTitle)
EditTextLim = 40

ComboLabel1 = "&Interrupt:"
ComboLabel2 = "I/&O Address:"
ComboLabel3 = "&Work Station Address:"

Continue    = "&Continue"
Help        = "&Help"
Exit        = "Cance&l"
HelpContext = #( HelpContextIDs, IDD_ANDWTDLCLSCONFIG, 1 )


;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
;
; INPUT DIALOGS SCRIPTS
; ---------------------
; This section should contain all the scripts for doing input dialogs.
; Each script may return as many parameters as it wants, so long as the
; first parameter is the status and is one of the following:
;
;     STATUS_SUCCESSFUL
;     STATUS_FAILED
;     STATUS_USERCANCEL
;     STATUS_USERBACK
;
;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

;()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()
;
; DoTDLCLSConfig
;
; DESCRIPTION:  This shell script pops up a dialog to get the configuration
;               of this product.
;
; INPUT:   $($0) : Service Name
;          $($1) : Current Title
;          $($2) : Current Driver Index
;          $($3) : Current Work Station Address
;
; OUTPUT:  $($R0): STATUS: One of the above
;          $($R1): Changes Flag
;          $($R2): New Title
;          $($R3): New Driver Index
;          $($R4): New Work Station Address
;
;
;()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()

[DoTDLCLSConfig]				;not used
	set ServiceName		= $($0)
	set ServiceTitle	= $($1)
	set DriverIndex		= $($2)
	set WorkStationAddr	= $($3)

	set EntryServiceTitle		= $($1)
	set EntryDriverIndex		= $($2)
	set EntryWorkStationAddr	= $($3)

	set Status = STATUS_SUCCESSFUL
	set Changes = 0

	;
	; Read in all registry entries for device andwtdlc
	;
	OpenRegKey $(!REG_H_LOCAL), "", +
		"SYSTEM\CurrentControlSet\Services\"+
		"andwtdlc\Parameters\ExtraParameters",+
		$(!REG_KEY_READ), KeyDriverParams

	set TwinIOAddr1		= 0
	set TwinIRQLevel1	= 0
	set TwinLS1		= ""

	set TwinIOAddr2		= 0
	set TwinIRQLevel2	= 0
	set TwinLS2		= ""

	ifstr(i) $(KeyDriverParams) != $(KeyNull)
;
		GetRegValue $(KeyDriverParams) "LinkService1"	TwinLS1

      		ifstr(i) $(TwinLS1) != ""
			GetRegValue $(KeyDriverParams) "IOAddress1"	TwinIOAddr1
			GetRegValue $(KeyDriverParams) "IRQLevel1"	TwinIRQLevel1

			set TwinIOAddr1		= *( $(TwinIOAddr1),	4)
			set TwinIRQLevel1	= *( $(TwinIRQLevel1),	4)
			set TwinLS1		= *( $(TwinLS1),	4)
		endif

		GetRegValue $(KeyDriverParams) "LinkService2"	TwinLS2

      		ifstr(i) $(TwinLS2) != ""
			GetRegValue $(KeyDriverParams) "IOAddress2"	TwinIOAddr2
			GetRegValue $(KeyDriverParams) "IRQLevel2"	TwinIRQLevel2

			set TwinIOAddr2		= *( $(TwinIOAddr2),	4)
			set TwinIRQLevel2	= *( $(TwinIRQLevel2),	4)
			set TwinLS2		= *( $(TwinLS2),	4)
		endif

		CloseRegKey $(KeyDriverParams)
	endif

	;
	; If this is a new link service, check if we can hold it
	;
	ifstr(i) $(ServiceName) == $(TwinLS1)
		set TwinIOAddr		= $(TwinIOAddr1)
		set TwinIRQLevel	= $(TwinIRQLevel1)
		goto LSConfig_20
	endif
	ifstr(i) $(ServiceName) == $(TwinLS2)
		set TwinIOAddr		= $(TwinIOAddr2)
		set TwinIRQLevel	= $(TwinIRQLevel2)
		goto LSConfig_20
	endif
	ifstr(i) $(TwinLS1) == ""
		goto LSConfig_10
	endif
	ifstr(i) $(TwinLS2) == ""
		goto LSConfig_10
	endif

	shell $(!SubroutineInf) SetupMessage $(!STF_LANGUAGE) "NONFATAL" +
		"The Maximum of 2 Twinax boards are already configured"

;
	Return $(Status), $(Changes), $(ServiceTitle), $(DriverIndex), $(WorkStationAddr)

LSConfig_10 =+
	set TwinIOAddr		= "768"		; 0x300
	set TwinIRQLevel	= "5"

LSConfig_20 =+
	read-syms DialogConstants
	read-syms DialogConstants$(!STF_LANGUAGE)
	read-syms DoTDLCLSConfig$(!STF_LANGUAGE)

	set ComboListIn3 = { "0", "1", "2", "3", "4", "5", "6" }
	set ComboListOut3 = $(WorkStationAddr)

	set ComboListIn2 =	{ +
				"200", "220", "240", "260", "280", "2A0", "2C0", "2E0", +
				"300", "320", "340", "360", "380", "3A0", "3C0", "3E0", +
				}
	set-dectohex ComboListOut2 = $(TwinIOAddr)
	Split-String $(ComboListOut2) "x" TempAddressSplit
	set ComboListOut2 = *( $(TempAddressSplit), 3 )

	set ComboListIn1 = { "2", "3", "4", "5" }
	set ComboListOut1 = $(TwinIRQLevel)

	set ComboListItemsIn	= { ComboListIn1,  ComboListIn2,  ComboListIn3  }
	set ComboListItemsOut	= { ComboListOut1, ComboListOut2, ComboListOut3 }

	ui start $(DlgTemplate) $(!IHVDLGHANDLE)

;
	ifstr(i) $(DLGEVENT) == "Exit"
		set Status = STATUS_USERCANCEL
	else
		set Status = STATUS_SUCCESSFUL

		set		ServiceTitle	= *( $(EditTextOut), 1 )

		set		TwinIRQLevel	= $(ComboListOut1)
		set-hextodec	TwinIOAddr	= $(ComboListOut2)
		set		WorkStationAddr	= $(ComboListOut3)
;
		ifstr(i) $(ServiceTitle) != $(EntryServiceTitle)
			set Changes = 1
		endif

		ifstr(i) $(WorkStationAddr) != $(EntryWorkStationAddr)
			set Changes = 1
		endif

		;
		; Write the new driver parameters to the Registry
		;
		OpenRegKey $(!REG_H_LOCAL), "", +
			"SYSTEM\CurrentControlSet\Services\"+
			"andwtdlc\Parameters\ExtraParameters",+
			$(!REG_KEY_READWRITE), KeyDriverParams

		ifstr(i) $(KeyDriverParams) == $(KeyNull)
			set ErrMesg = "Can't Find Device Driver Entry."
			set ErrProc = "DoTDLCLSConfig"
			set ErrFunc = "OpenRegKey"
			goto fatal_registry
			
		endif

		ifstr(i) $(ServiceName) == $(TwinLS1)
			set DriverIndex = "1"
			SetRegValue $(KeyDriverParams) { "IOAddress1",   $(Notitle), $(!REG_VT_DWORD), $(TwinIOAddr)   }
			SetRegValue $(KeyDriverParams) { "IRQLevel1",    $(Notitle), $(!REG_VT_DWORD), $(TwinIRQLevel) }
			goto LSConfig_80
		endif

		ifstr(i) $(ServiceName) == $(TwinLS2)
			set DriverIndex = "2"
			SetRegValue $(KeyDriverParams) { "IOAddress2",   $(Notitle), $(!REG_VT_DWORD), $(TwinIOAddr)   }
			SetRegValue $(KeyDriverParams) { "IRQLevel2",    $(Notitle), $(!REG_VT_DWORD), $(TwinIRQLevel) }
			goto LSConfig_80
		endif

		ifstr(i) $(TwinLS1) == ""
			set DriverIndex = "1"
			SetRegValue $(KeyDriverParams) { "LinkService1", $(Notitle), $(!REG_VT_SZ),    $(ServiceName)  }
			SetRegValue $(KeyDriverParams) { "IOAddress1",   $(Notitle), $(!REG_VT_DWORD), $(TwinIOAddr)   }
			SetRegValue $(KeyDriverParams) { "IRQLevel1",    $(Notitle), $(!REG_VT_DWORD), $(TwinIRQLevel) }
			goto LSConfig_80
		endif

		ifstr(i) $(TwinLS2) == ""
			set DriverIndex = "2"
			SetRegValue $(KeyDriverParams) { "LinkService2", $(Notitle), $(!REG_VT_SZ),    $(ServiceName)  }
			SetRegValue $(KeyDriverParams) { "IOAddress2",   $(Notitle), $(!REG_VT_DWORD), $(TwinIOAddr)   }
			SetRegValue $(KeyDriverParams) { "IRQLevel2",    $(Notitle), $(!REG_VT_DWORD), $(TwinIRQLevel) }
			goto LSConfig_80
		endif

LSConfig_80 =+
		CloseRegKey $(KeyDriverParams)
	endif

	ui pop 1

	Return  $(Status), $(Changes), $(ServiceTitle), $(DriverIndex), $(WorkStationAddr)




;()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()
;
; Identify
;
; DESCRIPTION:   To verify that this INF deals with the same type of options
;                as we are about to use.
;
; INPUT:         None
;
; OUTPUT:        $($R0): STATUS: STATUS_SUCCESSFUL
;                $($R1): Option Type (NetService...)
;                $($R2): Diskette description
;
;()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()

[Identify]
	read-syms Identification

	set Status     = STATUS_SUCCESSFUL
	set Identifier = $(OptionType)
	set Media      = #(Source Media Descriptions, 1, 1)

	Return $(Status) $(Identifier) $(Media)


;()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()
;
; ReturnOptions
;
; DESCRIPTION:   To return the option list supported by this INF and the
;                localized text list representing the options.
;
;
; INPUT:         $($0):  Language used. ( ENG | FRN | ... )
;
; OUTPUT:        $($R0): STATUS: STATUS_SUCCESSFUL |
;                                STATUS_NOLANGUAGE
;                                STATUS_FAILED
;
;                $($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)
	    goto returnoptions
	else
	    set Status = STATUS_NOLANGUAGE
	    goto finish_ReturnOptions
	endif

;++++++++++++++++++++++++++++++++++++
;
; returnoptions:
; get the options from the Options and OptionsText sections and set an
; appropriate return value.
;
;++++++++++++++++++++++++++++++++++++
returnoptions =+
	set OptionList     = ^(Options, 1)
	set OptionTextList = ^(OptionsText$($0), 1)
	set Status         = STATUS_SUCCESSFUL

;++++++++++++++++++++++++++++++++++++
;
; finish_ReturnOptions:
;
;++++++++++++++++++++++++++++++++++++
finish_ReturnOptions =+
	Return $(Status) $(OptionList) $(OptionTextList)


;()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()
;
; ReturnSNAOptions
;
; DESCRIPTION:   To return the option list supported by this INF and
;                recognized by SNA Services.  This script also returns
;                the localized text list representing those options.
;
; INPUT:         None
;
; OUTPUT:        $($R0): STATUS: STATUS_SUCCESSFUL |
;                                STATUS_NOLANGUAGE
;                                STATUS_FAILED
;
;                $($R1): Option List
;                $($R2): Option Text List
;
;()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()

[ReturnSNAOptions]
	set Status            = STATUS_FAILED
	set SNAOptionList     = {}
	set SNAOptionTextList = {}
	set LANG              = $(!STF_LANGUAGE)

	;
	; Check if the language requested is supported
	;
	set LanguageList = ^(LanguagesSupported, 1)
	ifcontains(i) $(LANG) in $(LanguageList)
	    goto returnSNAoptions
	else
	    set Status = STATUS_NOLANGUAGE
	    goto finish_ReturnSNAOptions
	endif

;++++++++++++++++++++++++++++++++++++
;
; returnSNAoptions:
; get the options from the Options and OptionsText sections and set appropriate
; return values.
;
;++++++++++++++++++++++++++++++++++++
returnSNAoptions =+
	set SNAOptionList     = ^(SNAOptions, 1)
	set OptionList        = ^(Options, 1)
	set SNAOptionTextList = {}
	set Status            = STATUS_SUCCESSFUL

;
; Check that each of the SNA Options is a valid option and compile
; the list of text descriptions
;
	ForListDo $(SNAOptionList)
		ifcontains $($) in $(OptionList)
			set SNAOptionTextList = >( $(SNAOptionTextList), +
					#(OptionsText$(LANG), $($), 1) )
		else
			set Status = STATUS_FAILED
			goto finish_ReturnSNAOptions
		endif

	EndForListDo

;++++++++++++++++++++++++++++++++++++
;
; finish_ReturnSNAOptions:
;
;++++++++++++++++++++++++++++++++++++
finish_ReturnSNAOptions = +
;
	Return $(Status) $(SNAOptionList) $(SNAOptionTextList)


;()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()
;
; ReturnSNAAdds
;
; DESCRIPTION:   To return the list of dependencies and their text
;                descriptions for a particular option.
;
;
; INPUT:         $($0):  Option used.
;
; OUTPUT:        $($R0): STATUS: STATUS_SUCCESSFUL |
;                                STATUS_NOLANGUAGE
;                                STATUS_FAILED
;
;                $($R1): Dependency List
;                $($R2): Dependency Text List
;
;()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()

[ReturnSNAAdds]

	set Status         = STATUS_FAILED
	set SNAAddList     = {}
	set SNAAddTextList = {}
	set LANG           = $(!STF_LANGUAGE)

	;
	; Check if the language requested is supported
	;
	set LanguageList = ^(LanguagesSupported, 1)
	ifcontains(i) $(LANG) in $(LanguageList)
		goto returnSNAadds
	else
		set Status = STATUS_NOLANGUAGE
		goto finish_ReturnSNAAdds
	endif

;++++++++++++++++++++++++++++++++++++
;
; returnSNAadds:
; get the additional options for an option and compile their text list
;
;++++++++++++++++++++++++++++++++++++
returnSNAadds =+
	set SNAAddList = ^(SNAOptionAdds$($0), 1)
	set OptionList = ^(Options, 1)
	set Status     = STATUS_SUCCESSFUL

	;
	; Check that each of the SNA Dependencies is a valid option and compile
	; the list of text descriptions
	;
	ForListDo $(SNAAddList)
		ifcontains $($) in $(OptionList)
			set SNAAddTextList = >( $(SNAAddTextList), +
						#(OptionsText$(LANG), $($), 1) )
		else
			set Status = STATUS_FAILED
			goto finish_ReturnSNAAdds
		endif

	EndForListDo

;++++++++++++++++++++++++++++++++++++
;
; finish_ReturnSNAAdds:
;
;++++++++++++++++++++++++++++++++++++
finish_ReturnSNAAdds =+
	Return $(Status) $(SNAAddList) $(SNAAddTextList)


;************************************************************************
;************************************************************************
;                    SNA INVOCATION SECTION
;************************************************************************
;************************************************************************

;()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()
;
; SnaInvocation
;
; DESCRIPTION:   To perform operations requested by the SNA Setup
;
; INPUT:         NTN_XXXXX  and STF_XXXXX  variables defined
;
; OUTPUT:        $($R0): STATUS: STATUS_SUCCESSFUL |
;                                STATUS_NOLANGUAGE |
;                                STATUS_USERCANCEL |
;                                STATUS_FAILED
;
;()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()

[SnaInvocation]
	set LongOption = $(!NTN_InfOption)
	set Changes    = 0
	set Instance   = "xx"

	Split-String $(LongOption) "_" OptionList
	QueryListSize OptionSize $(OptionList)

	ifint $(OptionSize) == 3
		set Option   = *( $(OptionList), 1 )
		set Instance = *( $(OptionList), 3 )
	else
		set Option = $(LongOption)
	endif

	;
	; These three variables describe the execution of the installation.
	; AddCopy adds the files in the file list to the copy list, and
	; DoCopy actually copies the files on the spot.
	;
	ifstr(i) $(!NTN_InstallMode) == install
		read-syms InstallSteps$(Option)
		set !AddCopy  = $(AddFilesToCopyList)
		set !DoCopy   = $(CopyFilesInCopyList)

		ifstr(i) $(!NTN_InfType) == "LOCAL"
			set !AddCopy = NO
			set !DoCopy  = NO
		endif

	else
		set !AddCopy  = NO
		set !DoCopy   = NO

	endif

	shell "" CommonSection $(Option) $(Instance)

	set Status     = $($R0)
	set ReturnData = $($R1)
	set Changes    = $($R2)

	Return $(Status) $(ReturnData) $(Changes)

;************************************************************************
;************************************************************************
;                    NCPA INVOCATION SECTION
;************************************************************************
;************************************************************************

;()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()
;
; InstallOption
;
; DESCRIPTION:   To perform operations requested by the NCPA
;
; INPUT:     	 NTN_XXXXX  and STF_XXXXX  variables defined
;
; OUTPUT:    	 $($R0): STATUS: STATUS_SUCCESSFUL |
;                                STATUS_NOLANGUAGE |
;                                STATUS_USERCANCEL |
;                                STATUS_FAILED
;
;()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()

[NTVersion]
	!STF_WINDOWSVERSION = "" ? $(!LIBHANDLE) GetWindowsNtVersion

[InstallOption]
	set LongOption = $(!NTN_InfOption)
	set Changes    = 0
	set Instance   = "xx"

	set !SNA_ProductName = "SNA Server"

	Split-String $(LongOption) "_" OptionList
	QueryListSize OptionSize $(OptionList)

	ifint $(OptionSize) == 3
		set Option   = *( $(OptionList), 1 )
		set Instance = *( $(OptionList), 3 )
	else
		set Option = $(LongOption)
	endif

	;
	; We don't really have upgrade functionality yet, so for the
	; time being, we can just return successfully if we've been
	; invoked as part of Windows NT Upgrade.
	;
	ifstr(i) $(!NTN_InstallMode) == "upgrade"
		return STATUS_SUCCESSFUL
	endif

	;
	; These three variables describe the execution of the installation.
	;   AddCopy adds the files in the file list to the copy list
	;   DoCopy actually copies the files on the spot
	;
	ifstr(i) $(!NTN_InstallMode) == install
		read-syms InstallSteps$(Option)
		set !AddCopy  = YES
		set !DoCopy   = YES
	else
		set !AddCopy  = NO
		set !DoCopy   = NO
	endif

	;
	; Set SNA Root Directory before reading File Constants
	;
	OpenRegKey $(!REG_H_LOCAL), "", +
		"Software\Microsoft\SNA Server\CurrentVersion\Setup", +
		$(!REG_KEY_READ), KeySNAServices
	ifstr(i) $(KeySNAServices) != {}
		GetRegValue $(KeySNAServices) "RootDir" RootDirValue
		ifstr(i) $(RootDirValue) != ""
			set !SNARootDir = *( $(RootDirValue), 4 )
		endif
	endif

	read-syms FileConstants
	read-syms FileConstants$(Option)

	set !NT31Flag = "0"

	install LoadSetupLibrary
	ifstr(i) $(!LIBHANDLE) != ""
		detect NTVersion
		install FreeSetupLibrary

		split-string $(!STF_WINDOWSVERSION) "{" TmpVerStr1
		split-string *($(TmpVerStr1),2)     "}" TmpVerStr2
		split-string *($(TmpVerStr2),1)     "," TmpVerStr1

		ifint *($(TmpVerStr1),1) == 3
			ifint *($(TmpVerStr1),3) == 10
				set !NT31Flag = "1"
			endif
		endif
	endif

	ifstr(i) $(!NT31Flag) == "1"
		shell $(!SubroutineInf) SetupMessage $(!STF_LANGUAGE) STATUS +
		"Please use SNA Server Setup to configure SNA link services."
		return STATUS_SUCCESSFUL
	endif

	OpenRegKey $(!REG_H_LOCAL), "", +
		$(ProductRegBase)"\"$(ProductFullName)"\CurrentVersion", +
		$(!REG_KEY_READWRITE), KeyServiceIndex

	ifstr(i) $(KeyServiceIndex) == ""
		set ErrMesg = "Can't Find This Product Instance."
		set ErrProc = "NcpaInvocation"
		set ErrFunc = "OpenRegKey (1)"
		goto fatal_registry
	endif

	GetRegValue $(KeyServiceIndex), "SNAVersion", SNAVersionInfo
	set !SNAVersion = *( $(SNAVersionInfo), 4 )
	CloseRegKey $(KeyServiceIndex)

	set !DriverDir = $(!SNARootDir)"\system\hwsetup\"

	LoadLibrary "" $(DialogLibrary) !DLGHANDLE

	shell "" CommonSection $(Option) $(Instance)

	set Status = $($R0)

	ifint $($R2) == 1
		shell $(!SubroutineInf) SetupMessage $(!STF_LANGUAGE) STATUS +
			"For the changed parameters to be noticed, you must"+
			" stop and restart this link service with the SNA"+
			" Server Admin program."

	else-ifint $($R2) == 2
		shell $(!SubroutineInf) SetupMessage $(!STF_LANGUAGE) STATUS +
			"You must reboot for the changed parameters to be noticed."
	endif

	FreeLibrary $(!DLGHANDLE)

	Return $(Status)


fatal_registry =+

	set Error = +
			"Fatal Registry Error:"$(!LF)+
			$(ErrMesg)$(!LF)+
			"File: "$(ThisInf)$(!LF)+
			"Procedure: "$(ErrProc)$(!LF)+
			"Function: "$(ErrFunc)

	shell $(!SubroutineInf) SetupMessage $(!STF_LANGUAGE) "FATAL" $(Error)

	Return STATUS_FAILED

;************************************************************************
;************************************************************************
;                   COMMON SECTION
;************************************************************************
;************************************************************************

;()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()
;
; CommonSection
;
; DESCRIPTION:   To carry out the install/config/etc. operations
;
; INPUT:   NTN_XXXXX and STF_XXXXX variables defined
;          $($0):  Option to be used
;          $($1):  Instance to be used
;
; OUTPUT:  $($R0): STATUS: STATUS_SUCCESSFUL |
;                          STATUS_NOLANGUAGE |
;                          STATUS_EXISTS     |
;                          STATUS_USERCANCEL |
;                          STATUS_FAILED
;
;()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()

[CommonSection]

	StartWait

	set Option   = $($0)
	set Instance = $($1)
	set Index    = "CurrentVersion"
	set RetData  = {}
	set Changes  = 0

	;
	; Check if the language requested is supported
	;
	set LanguageList = ^(LanguagesSupported, 1)
	ifcontains(i) $(!STF_LANGUAGE) in $(LanguageList)
		goto languageexists
	else
		set Status = STATUS_NOLANGUAGE
		goto end
	endif


;++++++++++++++++++++++++++++++++++++
;
; languageexists:
;
;++++++++++++++++++++++++++++++++++++
languageexists =+

	;
	; Define some constants, read some variable sections, and set the date
	;
	StartWait

	read-syms GeneralConstants

	read-syms FileConstants
	read-syms FileConstants$(!STF_LANGUAGE)
	read-syms FileConstants$(Option)
	read-syms FileConstants$(Option)_$(!STF_LANGUAGE)

	install LoadSetupLibrary
	detect Date
	install FreeSetupLibrary

	SetHelpFile $(!DriverDir)$(ThisHlp) $(HlpMin) $(HlpMax)

	LoadLibrary "" $(!DriverDir)$(ThisSrl) !IHVDLGHANDLE
	ifstr(i) $(!IHVDLGHANDLE) == ""
		goto set_status_failed
	endif

	set to   = Begin
	set from = Begin

	;
	; Assume that all is well as we begin
	;
	set CommonStatus = STATUS_SUCCESSFUL

	EndWait


;++++++++++++++++++++++++++++++++++++
;
; Begin:
; 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.
;
;++++++++++++++++++++++++++++++++++++
Begin =+
	ifstr(i)      $(!NTN_InstallMode) == deinstall
		set StartLabel = remove_component

	else-ifstr(i) $(!NTN_InstallMode) == fullremove
		set StartLabel = remove_component

	else-ifstr(i) $(!NTN_InstallMode) == snaremove
		set StartLabel = remove_component

	else-ifstr(i) $(!NTN_InstallMode) == getbindings
		set StartLabel = getbind_component

	else-ifstr(i) $(!NTN_InstallMode) == bind
		set StartLabel = bind_component

	else-ifstr(i) $(!NTN_InstallMode) == configure
		set StartLabel = config_component

	else				 ;== install
		set StartLabel = install_component

	endif

	goto set_defaults_$(Option)

	;++++++++++++++++++++++++++++++++++++
	;
	; set_defaults_ANDWTDLCLS
	;
	;++++++++++++++++++++++++++++++++++++
	set_defaults_ANDWTDLCLS =+
		set ServiceName		= $(Option)
		set ServiceTitle	= $(ProductTitle)
		set ServiceDesc		= $(ProductDesc)
 
		set DriverIndex		= "1"
		set WorkStationAddr	= "0"
		goto finish_defaults

	;++++++++++++++++++++++++++++++++++++
	;
	; set_defaults_ANDWTDLCDD
	;
	;++++++++++++++++++++++++++++++++++++
	set_defaults_ANDWTDLCDD =+
		set ServiceName  = $(Option)
		set ServiceTitle = $(ProductTitle)
		set ServiceDesc  = $(ProductDesc)

		goto finish_defaults

;++++++++++++++++++++++++++++++++++++
;
; finish_defaults:
;
;++++++++++++++++++++++++++++++++++++
finish_defaults =+
	set from = end
	set to   = end

	goto $(StartLabel)


;++++++++++++++++++++++++++++++++++++
;
; install_component:
;
;++++++++++++++++++++++++++++++++++++
install_component =+
	;
	; First, check if there are any existing services of this product
	; already in the registry.
	;
	shell $(!UtilityInf) FindSNAProductServices, $(ProductRegBase), +
						$(ProductFullName)
	ifint $($ShellCode) != 0
		goto ShellCodeError
	endif

	set Status	 	= $($R0)
	set SvcIndexList	= $($R1)
	set SvcNameList		= $($R2)
	set SvcTitleList	= $($R3)
	set SvcDescList		= $($R4)

	ifstr(i) $(Status) == STATUS_FAILED
		set ErrMesg = "Can't Find This Product."
		set ErrProc = "install_component"
		set ErrFunc = "FindSNAProductServices"
		goto fatal_registry
	endif

	;
	; If there are no services of this product installed, it could mean
	; that the product doesn't exist.  Either way, we are installing service
	; index "01" and on to modify params.
	;

	QueryListSize SvcIndexListSize $(SvcIndexList)

	set ProductExists = $(!True)

	ifint $(SvcIndexListSize) == 0
		ifstr(i) $(Status) == STATUS_NOSUCHPRODUCT
			set ProductExists = $(!False)
		endif
		set Instance = "01"
		goto install_nextstep
	endif

	;
	; If there is one instance of this service and this product is an
	; exclusive install, return with the appropriate status.
	;
	ifint $(ProductExclusive) != $(!False)
		ifint $(SvcIndexListSize) == 1
			set Status = STATUS_EXISTS

			ifint $(ProductExclusive) == $(NOTIFY)
				shell $(!SubroutineInf) SetupMessage $(!STF_LANGUAGE), "NONFATAL", +
				"This product is already installed and "+
				"can only be installed once."
			endif
			goto end

		endif
	endif

	shell $(!UtilityInf) FindNextAvailableIndex $(SvcIndexList)
	ifint $($ShellCode) != 0
		goto ShellCodeError
	endif

	set Status   = $($R0)
	set Instance = $($R1)

	ifstr(i) $(Status) != STATUS_SUCCESSFUL
		goto end
	endif

;++++++++++++++++++++++++++++++++++++
;
; install_nextstep:
; we have a service index and are ready to start the
; process of installing an instance.
;
;++++++++++++++++++++++++++++++++++++
install_nextstep =+
	read-syms FileConstants$(Option)

	set TmpStr = ""
    ifint $(Instance) < 10
	  split-string $(Instance) "0" TmpList
	  QueryListSize TmpSize $(TmpList)
	  ifstr(i) *($(TmpList),1) != "0"
		  set TmpStr = $(TmpStr)*($(TmpList),1)
	  endif
	  ifint $(TmpSize) > 1
		  set TmpStr = $(TmpStr)*($(TmpList),2)
	  endif
    else
      set TmpStr = $(Instance)
    endif

	set ServiceTitle = $(ProductTitle)" #"$(TmpStr)

	ifint $(ProductServiceQuery) == $(!True)
		shell $(!UtilityInf) EnterServiceName, +
				$(ProductTitle), +
				$(ProductServicePrefix), +
				$(Instance)

		ifint $($ShellCode) != 0
			goto ShellCodeError
		endif

		set Status      = $($R0)
		set ServiceName = $($R1)

		ifstr(i) $(Status) != STATUS_SUCCESSFUL
			goto end
		endif

	else
		set ServiceName = $(ProductServicePrefix)
	endif

	goto modify_params

;++++++++++++++++++++++++++++++++++++
;
; config_component:
; get the current values for all the parameters and
; prepare them for modify_params.
;
;++++++++++++++++++++++++++++++++++++
config_component =+
	read-syms FileConstants$(Option)

	;
	; Try and open this product and see if it's even installed.
	;
	shell $(!UtilityInf) FindSNAProductServices $(ProductRegBase), +
							$(ProductFullName)
	ifint $($ShellCode) != 0
		goto ShellCodeError
	endif

	set Status       = $($R0)
	set SvcIndexList = $($R1)
	set SvcNameList  = $($R2)
	set SvcTitleList = $($R3)
	set SvcDescList  = $($R4)

	ifstr(i) $(Status) != STATUS_SUCCESSFUL
		set ErrMesg = "Can't Find This Product."
		set ErrProc = "config_component"
		set ErrFunc = "FindSNAProductServices"
		goto fatal_registry
	endif

	shell $(!UtilityInf) GrepUniqueServiceInfo "Index",	+
						$(Instance),	+
						$(SvcIndexList),+
						$(SvcNameList),	+
						$(SvcTitleList),+
						$(SvcDescList)

	ifint $($ShellCode) != 0
		goto ShellCodeError
	endif

	set Status       = $($R0)
	set ServiceIndex = $($R1)
	set ServiceName  = $($R2)
	set ServiceTitle = $($R3)
	set ServiceDesc  = $($R4)

	ifstr(i) $(Status) != STATUS_SUCCESSFUL
		goto end
	endif

;++++++++++++++++++++++++++++++++++++
;
; read_params:
; read the parameters from the SCA and assign them to the appropriate
; variables.
;
;++++++++++++++++++++++++++++++++++++
read_params =+
	;
	; Find the entry in the Service Control Architecture and get a handle
	; to the Parameters Key and to the ExtraParameters key if one exists.
	;
	shell $(!UtilityInf) FindSNAService, $(ServiceName)
	ifint $($ShellCode) != 0
		goto ShellCodeError
	endif

	set Status         = $($R0)
	set KeyService     = $($R1)
	set KeyParameters  = $($R2)
	set KeyExtraParams = $($R3)

	ifstr(i) $(Status) != STATUS_SUCCESSFUL
		CloseRegKey $(KeyService)
		CloseRegKey $(KeyParameters)
		CloseRegKey $(KeyExtraParams)
		set ErrMesg = "Can't Find Service Entry For Instance "$(ServiceName)
		set ErrProc = "read_params"
		set ErrFunc = "FindSNAService"
		goto fatal_registry
	endif

	set OldVersionExisted = $(!True)

	set ValueName = ""
	set ValueData = ""
	set ValueStr  = ""
	set ValueList = {}

	;
	; Get the old values from the parameters key
	;
	EnumRegValue $(KeyParameters) ValueList

	;
	; If there's an ExtraParameters subkey, add those values to the list
	;
	ifstr(i) $(KeyExtraParams) != $(KeyNull)
		EnumRegValue $(KeyExtraParams) ExtraValueList

		ForListDo $(ExtraValueList)
			set ValueList = >( $(ValueList), $($) )
		EndForListDo

	endif

	ForListDo $(ValueList)
		set ValueItem = $($)
		set ValueName = *($(ValueItem), 1)
		set ValueData = *($(ValueItem), 4)

		goto assign_value_$(Option)

		;++++++++++++++++++++++++++++++++++++
		;
		; assign_value_ANDWTDLCLS:
		;
		;++++++++++++++++++++++++++++++++++++
		assign_value_ANDWTDLCLS =+
			ifstr(i) $(ValueName) == "DeviceName"
				set DeviceName = $(ValueData)
				ifstr(i) $(DeviceName) == "COMTW$02"
					set DriverIndex = "2"
				else
					set DriverIndex = "1"
				endif
			else-ifstr(i) $(ValueName) == "WorkStationAddr"
				set WorkStationAddr = $(ValueData)
			endif
				
			goto finish_assign_value

		;++++++++++++++++++++++++++++++++++++
		;
		; assign_value_ANDWTDLCDD:
		;
		;++++++++++++++++++++++++++++++++++++
		assign_value_ANDWTDLCDD =+
			goto finish_assign_value

		;++++++++++++++++++++++++++++++++++++
		;
		; finish_assign_value:
		;
		;++++++++++++++++++++++++++++++++++++
		finish_assign_value =+
	EndForListDo

	goto assign_extra_$(Option)

	;++++++++++++++++++++++++++++++++++++
	;
	; assign_extra_ANDWTDLCLS:
	;
	;++++++++++++++++++++++++++++++++++++
	assign_extra_ANDWTDLCLS = +
		goto finish_assign_extra

	;++++++++++++++++++++++++++++++++++++
	;
	; assign_extra_ANDWTDLCDD:
	;
	;++++++++++++++++++++++++++++++++++++
	assign_extra_ANDWTDLCDD =+
		goto finish_assign_extra

	;++++++++++++++++++++++++++++++++++++
	;
	; finish_assign_extra:
	;
	;++++++++++++++++++++++++++++++++++++
	finish_assign_extra =+
		goto modify_params

;++++++++++++++++++++++++++++++++++++
;
; modify_params:
; allow the user to bang away at the parameters until they are happy
;
;++++++++++++++++++++++++++++++++++++
modify_params =+
	set from = modify_params

	goto modify_params_$(Option)

	;++++++++++++++++++++++++++++++++++++
	;
	; modify_params_ANDWTDLCLS:
	;
	;++++++++++++++++++++++++++++++++++++
	modify_params_ANDWTDLCLS = +

		shell "" DoTDLCLSConfig $(ServiceName), +
					$(ServiceTitle), +
					$(DriverIndex), +
					$(WorkStationAddr)

		ifint $($ShellCode) != 0
			goto ShellCodeError
		endif

		set Status = $($R0)

		ifstr(i) $(Status) != STATUS_SUCCESSFUL
			goto end

		else
			set Changes		= $($R1)
			set ServiceTitle	= $($R2)
			set DriverIndex		= $($R3)
			set WorkStationAddr	= $($R4)
			set DeviceName		= "COMTW$0"$(DriverIndex)

		endif

		goto finish_modify_params

	;++++++++++++++++++++++++++++++++++++
	;
	; modify_params_ANDWTDLCDD:
	;
	;++++++++++++++++++++++++++++++++++++
	modify_params_ANDWTDLCDD =+
		goto finish_modify_params

	;++++++++++++++++++++++++++++++++++++
	;
	; finish_modify_params:
	;
	;++++++++++++++++++++++++++++++++++++
	finish_modify_params =+
		goto adjust_params

;++++++++++++++++++++++++++++++++++++
;
; adjust_params:
; If there is an old version, the registry keys and values exist and all we
; have to do is modify them.  Otherwise, if we're installing from scratch,
; we have to create those keys and values.
;
;++++++++++++++++++++++++++++++++++++
adjust_params =+
	ifint $(OldVersionExisted) == $(!True)
		ifstr(i) $(!NTN_InstallMode) == "configure"
			goto write_params
		endif
	endif

;++++++++++++++++++++++++++++++++++++
;
; create_regvals:
; create the necessary parts of the registry
;
;++++++++++++++++++++++++++++++++++++
create_regvals =+
	Shell $(!UtilityInf) +
		CreateSNAService,		+
			$(ServiceName),		+
			$(SNAServiceType),	+
			$(ProductImagePath),	+
			$(ProductDepends),	+
			$(ProductParams),	+
			$(ProductExtraParams),	+
			$(!SNARootDir)"\System\"$(ProductImagePath), +
			7

	ifint $($ShellCode) != 0
		goto ShellCodeError
	endif

	set Status         = $($R0)
	set KeyService     = $($R1)
	set KeyParameters  = $($R2)
	set KeyExtraParams = $($R3)

	ifstr(i) $(Status) != STATUS_SUCCESSFUL
		CloseRegKey $(KeyService)
		CloseRegKey $(KeyParameters)
		CloseRegKey $(KeyExtraParams)
		set ErrMesg = "Can't Create Service Entry For Instance."
		set ErrProc = "create_regvals"
		set ErrFunc = "CreateSNAService"
		goto fatal_registry
	endif

	Shell $(!UtilityInf) CreateSNARegEntry, $(ProductRegBase), $(ProductFullName)

	ifint $($ShellCode) != 0
		goto ShellCodeError
	endif

	set Status          = $($R0)
	set KeyProductBase  = $($R1)
	set KeyProduct      = $($R2)
	set KeyServiceIndex = $($R3)
	set KeyNetRules     = $($R4)

	ifstr(i) $(Status) != STATUS_SUCCESSFUL
		CloseRegKey $(KeyProductBase)
		CloseRegKey $(KeyProduct)
		CloseRegKey $(KeyServiceIndex)
		CloseRegKey $(KeyNetRules)
		set ErrMesg = "Can't Create Product Entry For Instance."
		set ErrProc = "create_regvals"
		set ErrFunc = "CreateSNARegEntry"
		goto fatal_registry
	endif

	shell $(!UtilityInf) AddValueList, $(KeyServiceIndex), +
		{ +
		{ ServiceName,  $(NoTitle), $(!REG_VT_SZ), $(ServiceName)  }, +
		{ InfName    ,  $(NoTitle), $(!REG_VT_SZ), $(FullInfName)  }, +
		{ SoftwareType, $(NoTitle), $(!REG_VT_SZ), $(SoftwareType) }, +
		{ SNAVersion ,  $(NoTitle), $(!REG_VT_SZ), $(!SNAVersion)  }  +
		}

	set NROption	= $(Option)"_"$(Instance)
	set NRTitle	= $(NetRulesTitle)
	set NRClass	= { $(NetRulesClass) }
	set NRBindForm	= $(ServiceName)" yes yes container"
	set NRUse	= $(NetRulesUse)
	set NRBindable	= { $(NetRulesBindable) }
	set NetRulesValues = { +
		{ InfName   , $(NoTitle), $(!REG_VT_SZ), $(FullInfName)  }, +
		{ InfOption , $(NoTitle), $(!REG_VT_SZ), $(NROption)     }, +
		{ title     , $(NoTitle), $(!REG_VT_SZ), $(NRTitle)      }, +
		{ use       , $(NoTitle), $(!REG_VT_SZ), $(NRuse)        }, +
		{ bindform  , $(NoTitle), $(!REG_VT_SZ), $(NRBindForm)   }, +
		{ type      , $(NoTitle), $(!REG_VT_SZ), $(NetRulesType) }, +
			     }

	;
	; Here we enumerate all installed link services of this type, looking
	; for the "class" and "bindable" regvals.  We only write these values
	; if we have no other installed links of this type, or we don't find
	; these two values among the links we examine.
	;
	; Enum on KeyProductBase, SplitString each on "_", compare first string
	; with ProductName, if match look in CurrentVersion\NetRules for these
	; two values.
	;
	set Found = $(!False)
	EnumRegKey $(KeyProductBase) TmpList
	ForListDo $(TmpList)
		set TmpName = *( $($), 1 )
  
		Split-String $(TmpName) "_" TmpSplit
		ifstr(i) *( $(TmpSplit), 1 ) == $(ProductName)

			OpenRegKey $(KeyProductBase), "", +
				$(TmpName)"\CurrentVersion\NetRules", +
				$(!REG_KEY_READ), TmpNRKey
  
			ifstr(i) $(TmpNRKey) != $(KeyNull)
				EnumRegValue $(TmpNRKey) TmpNRList
  
				ForListDo $(TmpNRList)
					ifstr(i) *($($),1) == "class"
						set Found = $(!True)
					endif
				EndForListDo
  
				CloseRegKey $(TmpNRKey)
			endif
		endif
	EndForListDo
  
	set TmpList   = {}
	set TmpName   = {}
	set TmpSplit  = {}
	set TmpNRList = {}
  
	ifint $(Found) == $(!False)
		set NetRulesValues = >( $(NetRulesValues), +
			{ class, $(NoTitle), $(!REG_VT_MULTI_SZ), $(NRClass) } )
		set NetRulesValues = >( $(NetRulesValues), +
			{ bindable, $(NoTitle), $(!REG_VT_MULTI_SZ), $(NRBindable) } )
	endif

	shell $(!UtilityInf) AddValueList $(KeyNetRules) $(NetRulesValues)

	ifint $(ProductExists) == $(!False)
		read-syms ProgressCopyVars
		install InstallRemove
	endif

	goto write_params

;++++++++++++++++++++++++++++++++++++
;
; write_params:
;
;++++++++++++++++++++++++++++++++++++
write_params =+
	ifstr $(KeyProductBase) == $(KeyNull)

		shell $(!UtilityInf) 	FindSNARegEntry, +
					$(ProductRegBase), +
					$(ProductFullName)

		ifint $($ShellCode) != 0
			goto ShellCodeError
		endif

		set Status          = $($R0)
		set KeyProductBase  = $($R1)
		set KeyProduct      = $($R2)
		set KeyServiceIndex = $($R3)
		set KeyNetRules     = $($R4)

		ifstr(i) $(Status) != STATUS_SUCCESSFUL
			CloseRegKey $(KeyProductBase)
			CloseRegKey $(KeyProduct)
			CloseRegKey $(KeyServiceIndex)
			CloseRegKey $(KeyNetRules)
			set ErrMesg = "Can't Open Product Entry For Instance."
			set ErrProc = "write_params"
			set ErrFunc = "FindSNARegEntry"
			goto fatal_registry
		endif
	endif

	ifstr $(KeyService) == $(KeyNull)
		shell $(!UtilityInf) FindSNAService, $(ServiceName)

		ifint $($ShellCode) != 0
			goto ShellCodeError
		endif

		set Status         = $($R0)
		set KeyService     = $($R1)
		set KeyParameters  = $($R2)
		set KeyExtraParams = $($R3)

		ifstr(i) $(Status) != STATUS_SUCCESSFUL
			CloseRegKey $(KeyService)
			CloseRegKey $(KeyParameters)
			CloseRegKey $(KeyExtraParams)
			set ErrMesg = "Can't Find Service Entry For Instance."
			set ErrProc = "write_params"
			set ErrFunc = "FindSNAService"
			goto fatal_registry
		endif

	endif

	goto write_params_$(Option)

	;++++++++++++++++++++++++++++++++++++
	;
	; write_params_ANDWTDLCLS:
	;
	;++++++++++++++++++++++++++++++++++++
	write_params_ANDWTDLCLS =+
		set FullOption    = $(Option)"_"$(Instance)
		set ProductParams =	{ +
			{ IHVDLL       , $(NoTitle), $(!REG_VT_SZ)   , $(ProductDLL)    }, +
			{ InfName      , $(NoTitle), $(!REG_VT_SZ)   , $(FullInfName)   }, +
			{ InfOption    , $(NoTitle), $(!REG_VT_SZ)   , $(FullOption)    }, +
			{ DriverName   , $(NoTitle), $(!REG_VT_SZ)   , "andwtdlc"       }  +
					}

		 set ProductExtraParams = { +
			{ DeviceName,      $(NoTitle), $(!REG_VT_SZ)   , $(DeviceName)     }, +
			{ WorkStationAddr, $(NoTitle), $(!REG_VT_DWORD), $(WorkStationAddr)}  +
						}

		goto finish_write_params

	;++++++++++++++++++++++++++++++++++++
	;
	; write_params_ANDWTDLCDD:
	;
	;++++++++++++++++++++++++++++++++++++
	write_params_ANDWTDLCDD =+
		set FullOption    = $(Option)"_"$(Instance)
		set ProductParams =	{ +
			{ InfName  , $(NoTitle), $(!REG_VT_SZ), $(FullInfName) }, +
			{ InfOption, $(NoTitle), $(!REG_VT_SZ), $(FullOption)  }  +
					}
		set ProductExtraParams = {}

		goto finish_write_params

	;++++++++++++++++++++++++++++++++++++
	;
	; finish_write_params:
	;
	;++++++++++++++++++++++++++++++++++++
	finish_write_params =+
		shell $(!UtilityInf) AddValueList, $(KeyServiceIndex), +
			{ +
			{ Title      , $(NoTitle), $(!REG_VT_SZ), $(ServiceTitle) }, +
			{ Description, $(NoTitle), $(!REG_VT_SZ), $(ServiceDesc)  }  +
			}

		ifint $($ShellCode) != 0
			goto ShellCodeError
		endif

		shell $(!UtilityInf) AddValueList, $(KeyParameters), +
			{ +
			{ Title      , $(NoTitle), $(!REG_VT_SZ), $(ServiceTitle) }, +
			{ Description, $(NoTitle), $(!REG_VT_SZ), $(ServiceDesc)  }  +
			}

		ifint $($ShellCode) != 0
			goto ShellCodeError
		endif

		ifstr(i) $(ProductParams) != {}
			shell $(!UtilityInf) AddValueList, $(KeyParameters), +
				$(ProductParams)
			ifint $($ShellCode) != 0
				goto ShellCodeError
			endif
		endif

		ifstr(i) $(ProductExtraParams) != {}
			shell $(!UtilityInf) AddValueList, $(KeyExtraParams), +
				$(ProductExtraParams)
			ifint $($ShellCode) != 0
				goto ShellCodeError
			endif
		endif

		set RetData = >( $(RetData), { +
					$(Instance),	+
					$(ServiceName),	+
					$(ServiceTitle),+
					$(ServiceDesc),	+
					$(!NTN_InstallMode), +
						} )

		CloseRegKey $(KeyProductBase)
		CloseRegKey $(KeyProduct)
		CloseRegKey $(KeyServiceIndex)
		CloseRegKey $(KeyNetRules)
		CloseRegKey $(KeyService)
		CloseRegKey $(KeyParameters)
		CloseRegKey $(KeyExtraParams)

		goto successful


;++++++++++++++++++++++++++++++++++++
;
; getbind_component:
;
;++++++++++++++++++++++++++++++++++++
getbind_component =+
	goto getbind_$(Option)

	;++++++++++++++++++++++++++++++++++++
	;
	; getbind_ANDWTDLCLS:
	;
	;++++++++++++++++++++++++++++++++++++
	getbind_ANDWTDLCLS =+
		set RetData = { { "01", "ANDWTDLCDD", "", "", "getbindings" } }
		goto finish_getbind_component

	;++++++++++++++++++++++++++++++++++++
	;
	; getbind_ANDWTDLCDD:
	;
	;++++++++++++++++++++++++++++++++++++
	getbind_ANDWTDLCDD =+
		goto finish_getbind_component

	;++++++++++++++++++++++++++++++++++++
	;
	; finish_getbind_component:
	;
	;++++++++++++++++++++++++++++++++++++
	finish_getbind_component =+
		goto successful


;++++++++++++++++++++++++++++++++++++
;
; bind_component:
;
;++++++++++++++++++++++++++++++++++++
bind_component =+
	set Error = "Network bindings aren't implemented yet."
	goto fatal_msg


;++++++++++++++++++++++++++++++++++++
;
; remove_component:
;
;++++++++++++++++++++++++++++++++++++
remove_component =+
	read-syms FileConstants$(Option)

	;
	; We need to set ourselved up with these variables for later use.
	;
	shell $(!UtilityInf) FindSNAProductServices +
				$(ProductRegBase), +
				$(ProductFullName)
	ifint $($ShellCode) != 0
		goto ShellCodeError
	endif

	set Status       = $($R0)
	set SvcIndexList = $($R1)
	set SvcNameList	 = $($R2)
	set SvcTitleList = $($R3)
	set SvcDescList  = $($R4)

	ifstr(i) $(Status) == STATUS_NOSUCHPRODUCT
		goto successful
	endif

	ifstr(i) $(Status) == STATUS_FAILED
		set ErrMesg = "Can't Open Product Entry In Registry."
		set ErrProc = "remove_component"
		set ErrFunc = "FindSNAProductServices"
			goto fatal_registry
	endif

	;
	; This will be a counter that will be used to decide whether or not
	; the product key should be removed at the end
	;
	QueryListSize SvcIndexListSize $(SvcIndexList)

	ifstr(i) $(!NTN_InstallMode) == "fullremove"
		set RemoveMode = "Full"
		goto remove_all_pieces
	endif

	set RemoveMode = "Partial"

	ifstr(i) $(!NTN_InstallMode) == "snaremove"
		; Hack.  Here we search for bindings and remove only if nothing
		; else needs this piece.
		ifstr(i) $(Option) == "ANDWTDLCDD"
			set PN = #( FileConstantsANDWTDLCLS, ProductName, 1)
			set PV = #( FileConstantsANDWTDLCLS, ProductVersion, 1)
			shell $(!UtilityInf) FindSNAProductServices $(ProductRegBase) +
								$(PN)"_"$(PV)
			set _Status = $($R0)
			set _List   = $($R1)

			ifstr(i) $(_List) != {}
				goto successful
			endif
		endif
	endif		; InstallMode == snaremove

	shell $(!UtilityInf) GrepUniqueServiceInfo "Index", +
						$(Instance),     +
						$(SvcIndexList), +
						$(SvcNameList),  +
						$(SvcTitleList), +
						$(SvcDescList)

	ifint $($ShellCode) != 0
		goto ShellCodeError
	endif

	set Status      = $($R0)
	set RemoveIndex = $($R1)
	set RemoveName  = $($R2)
	set RemoveTitle = $($R3)
	set RemoveDesc  = $($R4)

	goto remove_one_piece

;++++++++++++++++++++++++++++++++++++
;
; remove_all_pieces:
;
;++++++++++++++++++++++++++++++++++++
remove_all_pieces =+
	ForListDo $(SvcIndexList)

		ifstr(i) $(KeyProductBase) != $(KeyNull)
			CloseRegKey $(KeyProductBase)
		endif

		set RemoveIndex = $($)

		shell $(!UtilityInf) GrepUniqueServiceInfo "Index", +
						$(RemoveIndex), +
						$(SvcIndexList), +
						$(SvcNameList), +
						$(SvcTitleList), +
						$(SvcDescList)

		ifint $($ShellCode) != 0
			goto ShellCodeError
		endif

		set Status 	    = $($R0)
		set RemoveIndex = $($R1)
		set RemoveName  = $($R2)
		set RemoveTitle = $($R3)
		set RemoveDesc  = $($R4)

		ifstr(i) $(Status) != STATUS_SUCCESSFUL
			goto end
		endif

		set TInstance = $(Instance)
		set Instance  = $(RemoveIndex)
		read-syms FileConstants$(Option)
		set Instance = $(TInstance)

		goto remove_one_piece

		;++++++++++++++++++++++++++++++++++++
		;
		; remove_next_piece:
		;
		;++++++++++++++++++++++++++++++++++++
		remove_next_piece =+

	EndForListDo

	goto remove_product

;++++++++++++++++++++++++++++++++++++
;
; remove_one_piece:
;
;++++++++++++++++++++++++++++++++++++
remove_one_piece =+

	shell $(!UtilityInf) FindSNARegEntry, $(ProductRegBase), $(ProductFullName)

	ifint $($ShellCode) != 0
		goto ShellCodeError
	endif

	set Status		= $($R0)
	set KeyProductBase	= $($R1)
	set KeyProduct		= $($R2)
	set KeyServiceIndex	= $($R3)
	set KeyNetRules		= $($R4)

	ifstr(i) $(Status) != STATUS_SUCCESSFUL
		CloseRegKey $(KeyProductBase)
		CloseRegKey $(KeyProduct)
		CloseRegKey $(KeyProductVer)
		CloseRegKey $(KeyNetRules)
		set ErrMesg = "Can't Find Product Entry For Instance."
		set ErrProc = "remove_one_piece"
		set ErrFunc = "FindSNARegEntry"
		goto fatal_registry
	endif

	;
	; If we're coming in as the device driver, check to see if
	; any other SNA components (i.e., other TDLC link services)
	; are bound to it -- if so, don't remove the driver!
	;
	ifstr(i) $(Option) == "ANDWTDLCDD"
		set Another = $(!False)

		set KeySM = $(KeyNull)
		OpenRegKey $(!REG_H_LOCAL) "" "Software\Microsoft" $(!REG_KEY_READ) KeySM
		ifstr(i) $(KeySM) != $(KeyNull)

		    EnumRegKey $(KeySM) TmpList
		    ForListDo $(TmpList)							; look at every key under Software\Microsoft

			ifint $(Another) == $(!False)					; skip the rest if we found one

			    set KeyCV = $(KeyNull)
			    OpenRegKey $(KeySM) "" *($($),1)"\CurrentVersion" $(!REG_KEY_READ) KeyCV
			    ifstr(i) $(KeyCV) != $(KeyNull)

				set SnaVerValue = ""
				GetRegValue $(KeyCV) "SNAVersion" SnaVerValue
				ifstr(i) $(SnaVerValue) != ""					; it's an SNA component

				    set SWTypeValue = ""
				    GetRegValue $(KeyCV) "SoftwareType" SWTypeValue
				    ifstr(i) $(SWTypeValue) != ""  ; it's an SNA component
					ifstr(i) *($(SWTypeValue),4) == "service"		; link service

					    set SvcNameValue = ""
					    GetRegValue $(KeyCV) "ServiceName" SvcNameValue
					    ifstr(i) $(SvcNameValue) != ""
						set LoopSvcName = *($(SvcNameValue),4)
						ifstr(i) $(LoopSvcName) != $(ServiceName)
						    ifstr(i) $(LoopSvcName) != "SnaServr"

							; Now we know we're a link service and we're not the
							; same one we're trying to remove.  Let's see what
							; we're bound to.

							set KeyLnk = $(KeyNull)
							OpenRegKey $(!REG_H_LOCAL) "" +
								"System\CurrentControlSet\Services\"$(LoopSvcName)"\Linkage" +
								$(!REG_KEY_READ) KeyLnk
							ifstr(i) $(KeyLnk) != $(KeyNull)

			  				    set BindValue = ""
			  				    GetRegValue $(KeyLnk) "Bind" BindValue
			  				    ifstr(i) $(BindValue) != ""

			    					set BindList = *($(BindValue),4)
			    					ForListDo $(BindList)

			      					    Split-String $($) "\" BindStr
			      					    QueryListSize BindSize $(BindStr)
			      					    set BindCmp = *($(BindStr),$(BindSize))

			      					    ; The Acid Test - Is it bound to us?
			      					    ifstr(i) $(BindCmp) == $(ProductServicePrefix)
									set Another = $(!True)
			      					    endif

			    					EndForListDo
			  				    endif

			  				    CloseRegKey $(KeyLnk)

							endif    ; KeyLnk
						    endif    ; SvcName != SNA Server
						endif    ; SvcName != this link SvcName
					    endif    ; SvcNameValue
					endif    ; SWType == service
				    endif    ; SWTypeValue
				endif    ; SNAVersion exists

				CloseRegKey $(KeyCV)

			    endif    ; KeyCV
			endif    ; Another == False

		    EndForListDo
		    CloseRegKey $(KeySM)

		endif  ; KeySM
	endif  ; DCASDLCDD

	ifint $(Another) == $(!True)
		goto successful				; Bail out, don't remove this component!
	endif

	;
	; Get rid of this service instance in the product keys
	;
	CloseRegKey $(KeyServiceIndex)
	CloseRegKey $(KeyNetRules)
	DeleteRegTree $(KeyProduct) $(RemoveIndex)
	CloseRegKey $(KeyProduct)

	shell $(!UtilityInf) DeleteSNAService $(RemoveName)

 	;
 	; Special Hack Alert:
 	;
 	; When we have multiple instances of the same type of link
 	; service installed, only ONE of those instances may have
 	; the "class" and "bindable" values present under their
 	; NetRules key.  If the link service we've just deleted
 	; was the one that had those values, we need to search the
 	; remaining instances (if any) for those values, and if not
 	; found, we must add them to the first instance we find.
 	; What a hassle.
 	;
 
 	set Found = $(!False)
 	set SaveName = ""
 
 	OpenRegKey $(!REG_H_LOCAL), "", "Software\Microsoft", +
 				$(!REG_KEY_READ), KeySM
 
 	ifstr(i) $(KeySM) != $(KeyNull)
		EnumRegKey $(KeySM) TmpList
 
 		ForListDo $(TmpList)
 			ifint $(Found) == $(!False)
 
 				set TmpName = *( $($), 1 )
 				Split-String $(TmpName) "_" TmpSplit

 				ifstr(i) *( $(TmpSplit), 1 ) == $(ProductName)
 					ifstr(i) $(TmpName) != $(ProductFullName)
 
						OpenRegKey $(KeySM), "", +
							$(TmpName)"\CurrentVersion\NetRules", +
							$(!REG_KEY_READ), TmpNRKey
						ifstr(i) $(TmpNRKey) != $(KeyNull)
 
							ifstr(i) $(SaveName) == ""
								set SaveName = $(TmpName)
							endif
 
							EnumRegValue $(TmpNRKey) TmpNRList
							ForListDo $(TmpNRList)
								ifstr(i) *( $($), 1 ) == "class"
									set Found = $(!True)
								endif
							EndForListDo
 
							CloseRegKey $(TmpNRKey)
						endif
					endif
				endif
			endif
		EndForListDo

		set TmpList   = {}
		set TmpName   = ""
		set TmpSplit  = ""
		set TmpNRList = {}
 
		ifint $(Found) == $(!False)
			ifstr(i) $(SaveName) != ""
				OpenRegKey $(KeySM), "", +
					$(SaveName)"\CurrentVersion\NetRules", +
					$(!REG_KEY_READWRITE), TmpNRKey
 
				ifstr(i) $(TmpNRKey) != $(KeyNull)
					shell $(!UtilityInf) AddValueList $(TmpNRKey), +
						{{ class,    $(NoTitle), $(!REG_VT_MULTI_SZ), {$(NetRulesClass)}}, +
						{ bindable, $(NoTitle), $(!REG_VT_MULTI_SZ), {$(NetRulesBindable)}}}
					CloseRegKey $(TmpNRKey)
				endif
			endif
		endif
 
		CloseRegKey $(KeySM)
	endif
 
 	;
 	; Done with that NetRules weirdness.  Let's get on with it:
 	;

	set-sub SvcIndexListSize = $(SvcIndexListSize), 1

	OpenRegKey $(!REG_H_LOCAL), "", $(ProductRegBase), +
			$(!REG_KEY_READWRITE), KeyProductTemp

	ifstr(i) $(KeyProductTemp) != ""
		DeleteRegTree $(KeyProductBase) $(ProductFullName)
		CloseRegKey $(KeyProductBase)
	endif

	ifstr(i) $(!NTN_InstallMode) == "fullremove"
		install InstallRemove
	endif


	set RetData = >( $(RetData), { $(RemoveIndex), +
				$(RemoveName), +
				$(RemoveTitle), +
				$(RemoveDesc), +
				$(!NTN_InstallMode), +
				} )

	ifstr(i) $(RemoveMode) == "Full"
		goto remove_next_piece
	endif

;++++++++++++++++++++++++++++++++++++
;
; remove_product:
;
;++++++++++++++++++++++++++++++++++++
remove_product =+
	goto finish_remove_component

;++++++++++++++++++++++++++++++++++++
;
; finish_remove_component:
;
;++++++++++++++++++++++++++++++++++++
finish_remove_component =+
	goto successful

;++++++++++++++++++++++++++++++++++++
;++++++++++++++++++++++++++++++++++++
;
; Escape Hatches:
;
;++++++++++++++++++++++++++++++++++++
;++++++++++++++++++++++++++++++++++++

;++++++++++++++++++++++++++++++++++++
;
; successful:
; this part actually copies the files if the DoCopy variable is on
;
;++++++++++++++++++++++++++++++++++++
successful =+
	set Status = STATUS_SUCCESSFUL
	goto end

;++++++++++++++++++++++++++++++++++++
;
; warning_msg:
; a warning display
;
;++++++++++++++++++++++++++++++++++++
warning_msg =+
	shell $(!SubroutineInf) SetupMessage, $(!STF_LANGUAGE), "WARNING", $(Error)
	ifint $($ShellCode) != 0
		goto ShellCodeError
	endif

	set DLGEVENT = $($R1)

	ifstr(i) $(DLGEVENT) == "OK"
		goto $(to)
	else-ifstr(i) $(DLGEVENT) == "CANCEL"
		goto $(from)
	else
		set Status = STATUS_FAILED
		goto end
	endif

;++++++++++++++++++++++++++++++++++++
;
; nonfatal_msg:
; a non-fatal display
;
;++++++++++++++++++++++++++++++++++++
nonfatal_msg =+
	shell $(!SubroutineInf) SetupMessage, $(!STF_LANGUAGE), "NONFATAL", $(Error)
	ifint $($ShellCode) != 0
		goto ShellCodeError
	endif

	set DLGEVENT = $($R1)

	ifstr(i) $(DLGEVENT) == "OK"
		goto $(from)
	else
		goto "end"
	endif

;++++++++++++++++++++++++++++++++++++
;
; fatal_registry:
; something failed in the registry access
;
;++++++++++++++++++++++++++++++++++++
fatal_registry =+
	set Error = "Fatal Registry Error:"$(!LF)+
			$(ErrMesg)$(!LF)+
			"File: "$(ThisInf)$(!LF)+
			"Procedure: "$(ErrProc)$(!LF)+
			"Function: "$(ErrFunc)

	goto fatal_msg

;++++++++++++++++++++++++++++++++++++
;
; fatal_msg:
; a fatal error display
;
;++++++++++++++++++++++++++++++++++++
fatal_msg =+
	shell $(!SubroutineInf) SetupMessage, $(!STF_LANGUAGE), "FATAL", $(Error)
	ifint $($ShellCode) != 0
		goto ShellCodeError
	endif

	goto set_status_failed

;++++++++++++++++++++++++++++++++++++
;
; ShellCodeError:
; a shell error to be displayed
;
;++++++++++++++++++++++++++++++++++++
ShellCodeError =+
	set DlgType      = "MessageBox"
	set STF_MB_TITLE = "Error: "$(SetupTitle)
	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 set_status_failed

;++++++++++++++++++++++++++++++++++++
;
; set_status_failed:
; last step before exiting
;
;++++++++++++++++++++++++++++++++++++
set_status_failed =+
	set Status = STATUS_FAILED
	goto end

;++++++++++++++++++++++++++++++++++++
;
; end:
; this exit point sets the CommonStatus to the current status
; then returns the status and return data
;
;++++++++++++++++++++++++++++++++++++
end =+
	ifstr(i) $(!IHVDLGHANDLE) != ""
		FreeLibrary $(!IHVDLGHANDLE)
		set !IHVDLGHANDLE = ""
	endif

	set CommonStatus = $(Status)
	Return $(CommonStatus) $(RetData)


;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
;
; INSTALLATION AND FILE SECTION
; -----------------------------
; This section is responsible for installing the component and listing all
; the necessary files etc.
;
;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

;========================================================================
;
; INSTALL
; -------
; The IHV should follow the following template for this section.  It is
; responsible for file copying and registry initialization.
;
;========================================================================

[InstallRemove]
	set SNADirList  = { "hwsetup", "system" }
	set SNAToList   = { "system\hwsetup", "system" }

	ifstr(i) $(!NTN_InstallMode) == "install"

		ifstr(i) $(!AddCopy) == "YES"

			ForListDo $(SNADirList)

				ifstr(i) $($) != "hwsetup"
					set Ext = $(ThisFile)
				else
					set Ext = ""
				endif

				set To = *( $(SNAToList), $(#) )

				AddSectionFilesToCopyList "FilesFor_"$($)"_"$(Option) +
						$(!DriverDir)$(Ext), +
						$(!SNARootDir)"\"$(To)
			EndForListDo

		else
			AddSectionFilesToCopyList "FilesFor_system_"$(Option) +
					$(!DriverDir)"andwtdlc\"$(Ext), +
					$(!SNARootDir)"\system"
			CopyFilesInCopyList

		endif

		ifstr(i) $(!DoCopy) == "YES"
			CopyFilesInCopyList
		endif

	else
		set !_FileRemoveList = {}

		ForListDo $(SNADirList)
			set SNADir   = *( $(SNAToList), $(#) )
			set FullPath = $(!SNARootDir)"\"$(SNADir)
			set FileList = ^( "FilesFor_"$($)"_"$(Option), 2 )

			ForListDo $(FileList)
				set !_FileRemoveList = >( $(!_FileRemoveList), +
						$(FullPath)"\"$($) )
			EndForListDo

		EndForListDo

	endif

	exit

;========================================================================
;
; FILES
; -----
; These should list the files to be installed for each particular option.
;
; FORMAT:
; The format is "FilesFor_" concatenated with the directory where they will
;   end up, another underscore, and the option whose files these are.
;   Currently, directories that can take files are:
;     hwsetup - the inf file, its help and libraries
;     ntbin  - executables
;     ntsys  - system files
;
; The format includes the disk number and a name for each file, as well
; as a number of possible flags.
;	1,		file1.foo
;	1,		file2.foo
;	...
;
;========================================================================

[FilesFor_hwsetup_ANDWTDLCLS]
1,	andwtdlc.inf
1,	andwtdlc.hlp
1,	andwtdlc.srl

[FilesFor_hwsetup_ANDWTDLCDD]

[FilesFor_system_ANDWTDLCLS]
1,	snatdlc.dll

[FilesFor_system_ANDWTDLCDD]
1,	andwtdlc.sys