home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 March / CHIPCD_3_98.iso / software / testsoft / exchange / connect / msmcon / bin / ecsdlc.inf < prev    next >
INI File  |  1997-08-25  |  68KB  |  2,372 lines
  1. ;************************************************************************
  2. ;************************************************************************
  3. ;
  4. ; ECSDLC.INF
  5. ;
  6. ;       Eicon SDLC Link Support and Device Driver INF file
  7. ;
  8. ; History:
  9. ;
  10. ; Notes:
  11. ;   1) This file is based on the template.inf file that is distributed
  12. ;      to IHV/ISV's.
  13. ;
  14. ;************************************************************************
  15. ;************************************************************************
  16.  
  17. ;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  18. ;
  19. ; INITIALIZATION SECTION
  20. ; ----------------------
  21. ; This section is responsible for defining the product variables.  It is the
  22. ; highest level of definition.  Installation programs will use this section
  23. ; to figure out available options etc.
  24. ;
  25. ;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  26.  
  27. ;========================================================================
  28. ;
  29. ; SOURCE MEDIA DESCRIPTIONS
  30. ; -------------------------
  31. ; The IHV should list all the diskette labels here.  The source media
  32. ; description is used during copy to prompt the user for a diskette
  33. ; if the source is diskettes.  The TAGFILE field is used to confirm that
  34. ; the proper disk is being used.
  35. ;
  36. ; FORMAT:
  37. ; The format includes an enumeration constant and a name for the disk, as well
  38. ; as a number of possible flags (including the TAGFILE flag.)
  39. ;       1 = "Diskette 1 Label", TAGFILE = "Disk1.Tag"
  40. ;       2 = "Diskette 2 Label", TAGFILE = "Disk2.Tag"
  41. ;       ...
  42. ;
  43. ; REFERENCES:
  44. ; TODO - Add a reference to somewhere
  45. ;
  46. ;========================================================================
  47.  
  48. [Source Media Descriptions]
  49. 1 = "SNA Link Support diskette"
  50.  
  51. ;========================================================================
  52. ;
  53. ; OPTION TYPE
  54. ; -----------
  55. ; This identifies the Option type we are dealing with.  The different
  56. ; possible types are:
  57. ;
  58. ; COMPUTER, DISPLAY, MOUSE, KEYBOARD, LAYOUT, SCSI, PRINTER, ...
  59. ;
  60. ;   Types specific to networking:
  61. ;     NetAdapter,       A netcard/adapter combination or just a netcard
  62. ;     NetDriver,        A netcard driver
  63. ;     NetTransport,     A complete NDIS-compliant TDI transport stack
  64. ;     NetService,       An NT networking service
  65. ;     NetWork,          A complete network ensemble
  66. ;     NetProvider,      A complete network which supports NT MPR protocol
  67. ;
  68. ; TODO - do we want to mention all those types or just the ones relevant to us?
  69. ; 
  70. ; REFERENCES:
  71. ; TODO - Add a reference to somewhere
  72. ; 
  73. ;========================================================================
  74.  
  75. [Identification]
  76.     OptionType = NetService
  77.  
  78. ;========================================================================
  79. ;
  80. ; LANGUAGES SUPPORTED
  81. ; -------------------
  82. ; The languages supported by the IHV INF, For every language supported
  83. ; we need to have a separate text section for every displayable text
  84. ; section.
  85. ;
  86. ; REFERENCES:
  87. ; TODO - Add a reference to somewhere
  88. ;
  89. ;========================================================================
  90.  
  91. [LanguagesSupported]
  92.     ENG
  93.  
  94. ;========================================================================
  95. ;
  96. ; OPTION LIST
  97. ; -----------
  98. ; This section lists the IHV Option key names.  These keys are locale
  99. ; independent and used to represent the option in a locale independent
  100. ; manner.
  101. ;
  102. ; REFERENCES:
  103. ; TODO - Add a reference to somewhere
  104. ;
  105. ;========================================================================
  106.  
  107. [Options]
  108.     ECSDLCLS
  109. ;       ECSDLCDD
  110.     
  111. ;========================================================================
  112. ;
  113. ; OPTION TEXT SECTION
  114. ; -------------------
  115. ; These are text strings used to identify the option to the user.  There
  116. ; are separate sections for each language supported.  
  117. ;
  118. ; FORMAT:
  119. ; The format of the section name is "OptionsText" concatenated with the 
  120. ; Language represented by the section.
  121. ;       [OptionsTextLNG1]
  122. ;               ...
  123. ;       [OptionsTextLNG2]
  124. ;               ...
  125. ;
  126. ; REFERENCES:
  127. ; TODO - Add a reference to somewhere
  128. ;
  129. ;========================================================================
  130.  
  131. [OptionsTextENG]
  132.     ECSDLCLS        = "SNA Eicon SDLC Link Service"
  133. ;       ECSDLCDD        = "SNA Eicon SDLC/X.25 Device Driver"
  134.  
  135. ;========================================================================
  136. ;
  137. ; SNA OPTION LIST
  138. ; ---------------
  139. ; This is the list of options available to the SNA Server user.  This is 
  140. ; the list presented to the user from the SNA Server setup as the 
  141. ; available options.  Like the normal options list, it is locale independent.
  142. ; 
  143. ; REFERENCES:
  144. ; TODO - Add a reference to somewhere
  145. ;
  146. ;========================================================================
  147.  
  148. [SNAOptions]
  149.     ECSDLCLS
  150.  
  151. ;========================================================================
  152. ;
  153. ; SNA OPTION ADDITIONALS
  154. ; ----------------------
  155. ; This section specifies the additional installations that should be performed
  156. ; for each of the main options.  The SNA Server setup will invoke this INF
  157. ; file with each of these additional options in order followed by the main
  158. ; option.
  159. ; 
  160. ; FORMAT:
  161. ; The format for the section name is "SNAOptionAdds" concatenated with the
  162. ; option name.
  163. ;       [SNAOptionAddsSNAOPT1]
  164. ;               ...
  165. ;       [SNAOptionAddsSNAOPT2]
  166. ;               ...
  167. ;
  168. ; REFERENCES:
  169. ; TODO - Add a reference to somewhere
  170. ;
  171. ;========================================================================
  172.  
  173. [SNAOptionAddsECSDLCLS]
  174. ;       ECSDLCDD
  175.  
  176. ;========================================================================
  177. ;
  178. ; INSTALLATION STEPS SECTION
  179. ; --------------------------
  180. ; In this section, the IHV gets to define which steps will be taken in the
  181. ; installation procedure.  There are three variables and they all must be 
  182. ; defined.
  183. ; 
  184. ; FORMAT:
  185. ; The format is "InstallSteps" concatenated with the option name
  186. ;       [InstallStepsOPT1]
  187. ;               ...
  188. ;
  189. ;========================================================================
  190.  
  191. [InstallStepsECSDLCLS]
  192.     AddFilesToCopyList      = YES
  193.     CopyFilesInCopyList     = YES
  194.  
  195. ;[InstallStepsECSDLCDD]
  196. ;       AddFilesToCopyList      = YES
  197. ;       CopyFilesInCopyList     = NO
  198.  
  199. ;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  200. ; 
  201. ; DIALOG CONSTANTS SECTION
  202. ; ------------------------
  203. ; This section is responsible for defining dialog constants.  It is 
  204. ; meant to be used to simplify programming this INF file as well as reading
  205. ; it.
  206. ;
  207. ;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  208.  
  209. [DialogConstants]
  210.     Radio1  = "1"
  211.     Radio2  = "2"
  212.     Radio3  = "3"
  213.     Radio4  = "4"
  214.     Radio5  = "5"
  215.  
  216. ;++++++++++++++++++++++++++++++++++++                                           
  217. ;                                                                               
  218. ; ProgressCopyVars:                                                             
  219. ; These variables specify the look of the gauge that comes up                   
  220. ; when copying files.                                                           
  221. ;                                                                               
  222. ;++++++++++++++++++++++++++++++++++++                                           
  223. [ProgressCopyVars]                                                              
  224. ProCaption      = "File copy in progress"                                       
  225. ProCancel       = "&Cancel"                                                     
  226. ProCancelMsg    = $(ProductTitle)$(!LF)"is not fully installed."$(!LF)+         
  227.           "Are you sure you want to cancel before all"$(!LF)+           
  228.                     "the files are copied?"                                       
  229. ProCancelCap    = $(SetupTitle)" Warning"                                       
  230. ProText1        = "Copying "                                                    
  231. ProText2        = "        to"                                                  
  232.  
  233. [HelpContextIDs]
  234.     IDD_SDLCSETUP = 101
  235.  
  236. ;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  237. ;
  238. ; FILE CONSTANTS SECTION
  239. ; ----------------------
  240. ; This section is responsible for defining some general product information
  241. ; that will be used mostly for the registry
  242. ;
  243. ;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  244.  
  245. ;++++++++++++++++++++++++++++++++++++
  246. ;
  247. ; File Names Subsection:
  248. ; This subsection contains useful filenames for use as macros.
  249. ;
  250. ;++++++++++++++++++++++++++++++++++++
  251.  
  252. [FileConstants]
  253.  
  254. UtilityInf      = $(!SNARootDir)"\SETUPUTL.INF"
  255. SubroutineInf   = $(!STF_WINDOWSSYSPATH)"\SUBROUTN.INF"
  256. DialogLibrary   = $(!SNARootDir)"\SETUP.SRL"
  257. ThisFile        = "ECSDLC"
  258. ThisInf         = $(ThisFile)".INF"
  259. ThisSrl         = $(ThisFile)".SRL"
  260. ThisHlp         = $(ThisFile)".HLP"
  261. HlpMin          = "80"
  262. HlpMax          = "80"
  263. $ShellCode      = 0
  264.  
  265. ;++++++++++++++++++++++++++++++++++++
  266. ;
  267. ; Product Information Subsection:
  268. ; This subsection contains lots of product information that will be used 
  269. ; mostly in the registry.
  270. ;
  271. ; For the SNAServiceType value, please refer to the "SNAServiceTypes" section
  272. ; in the SETUPUTL.INF file.  Also, only Link Supports have this value, all
  273. ; others should have a NULL string ("") for this value.
  274. ;
  275. ;++++++++++++++++++++++++++++++++++++
  276.  
  277. [FileConstantsECSDLCLS]
  278. ;
  279. ; Product Info
  280. ;
  281. ProductVersion                  = "1.0"
  282. ProductName                     = "ECSDLCLS"
  283. ProductFullName                 = $(ProductName)"_"$(ProductVersion)"_"$(Instance)
  284. ProductRegBase                  = $(!NTN_SoftwareBase)"\Eicon"
  285. ProductType                     = "Link"
  286. ProductImagePath                = "SNALINK.EXE"
  287. ProductDepends                  = {}
  288. ProductParams                   = {}
  289. ProductExtraParams              = {}
  290. ProductExclusive                = $(FALSE)
  291. ProductDLL                      = "ECSDLC.DLL"
  292. ProductServicePrefix            = "SnaSdlc"
  293. ProductServiceQuery             = $(TRUE)
  294. ;
  295. ; Registry Key Information
  296. ;
  297. SNAServiceType                  = "CESLINK"
  298. ;
  299. ; NetRules Stuff
  300. ;
  301. NetRulesClass                   = "snasdlclink snalink"
  302. NetRulesTitle                   = "SNA SDLC Link Service"
  303. NetRulesUse                     = "service yes yes"
  304. NetRulesBindable                = "snasdlclink snasyncdriver non non 100"
  305. NetRulesType                    = "snasdlc snasdlclink"
  306. FullInfName                     = $(!SNARootDir)"\system\hwsetup\"$(ThisInf)
  307. SoftwareType                    = "service"
  308.  
  309. ;[FileConstantsECSDLCDD]
  310. ;
  311. ; Product Info
  312. ;
  313. ;ProductVersion                 = "1.0"
  314. ;ProductName                    = "ECSYNCDD"
  315. ;ProductFullName                        = $(ProductName)"_"$(ProductVersion)"_"$(Instance)
  316. ;ProductRegBase                 = $(!NTN_SoftwareBase)"\Microsoft"
  317. ;ProductType                    = "Driver"
  318. ;ProductImagePath               = "ECSYNC.SYS"
  319. ;ProductDepends                 = {}
  320. ;ProductParams                  = {}
  321. ;ProductExtraParams             = {}
  322. ;ProductExclusive               = $(TRUE)
  323. ;ProductDLL                     = ""
  324. ;ProductServicePrefix           = "ECSYNC"
  325. ;ProductServiceQuery            = $(FALSE)
  326. ;
  327. ; Registry Key Information
  328. ;
  329. ;SNAServiceType                 = "DRIVER"
  330. ;
  331. ; NetRules Stuff
  332. ;
  333. ;NetRulesClass                  = "snasyncdriver basic yes"
  334. ;NetRulesTitle                  = "Eicon SDLC/X.25 Device Driver"
  335. ;NetRulesUse                    = "driver yes yes"
  336. ;NetRulesBindable               = ""
  337. ;NetRulesType                   = "snasyncdd snasyncdriver"
  338. ;FullInfName                    = $(!SNARootDir)"\system\hwsetup\"$(ThisInf)
  339. ;SoftwareType                   = "driver"
  340.  
  341. ;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  342. ;
  343. ; GENERAL CONSTANTS SECTION
  344. ; -------------------------
  345. ; This section is responsible for defining some general constants that
  346. ; are used in this INF script.  These constants include flow control 
  347. ; variables, exit codes, and registry reference numbers.
  348. ;
  349. ;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  350.  
  351. [GeneralConstants]
  352.  
  353. ;++++++++++++++++++++++++++++++++++++
  354. ;
  355. ; Flow Control Variables:
  356. ; From will generally represents the label we just came from while To 
  357. ; represents the label we are headed to.
  358. ;
  359. ;++++++++++++++++++++++++++++++++++++
  360.  
  361. from    = ""
  362. to      = ""
  363.  
  364. ;++++++++++++++++++++++++++++++++++++
  365. ;
  366. ; Booleans:
  367. ;
  368. ;++++++++++++++++++++++++++++++++++++
  369.  
  370. TRUE    = 1
  371. FALSE   = 0
  372.  
  373. ;++++++++++++++++++++++++++++++++++++
  374. ;
  375. ; Other values
  376. ;
  377. ;++++++++++++++++++++++++++++++++++++
  378. NOTIFY = 2
  379.  
  380. ;++++++++++++++++++++++++++++++++++++
  381. ;
  382. ; Registry Initialization Parameters:
  383. ;
  384. ;++++++++++++++++++++++++++++++++++++
  385.  
  386. NoTitle         = 0
  387. KeyNull         = ""
  388. KeyProduct      = ""
  389. KeyParameters   = ""
  390.  
  391. ;++++++++++++++++++++++++++++++++++++
  392. ;
  393. ; Other Initialization Parameters:
  394. ;
  395. ;++++++++++++++++++++++++++++++++++++
  396.  
  397. ExitState               = "Active"
  398. OldVersionExisted       = $(FALSE)
  399.  
  400. ;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  401. ; 
  402. ; LANGUAGE-DEPENDENT DIALOG CONSTANTS SECTION
  403. ; -------------------------------------------
  404. ; This section is responsible for defining dialog constants that are 
  405. ; language dependent.  
  406. ;
  407. ;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  408.  
  409. ;++++++++++++++++++++++++++++++++++++
  410. ;
  411. ; Common Button Names:
  412. ;
  413. ;++++++++++++++++++++++++++++++++++++
  414.  
  415. [DialogConstantsENG]
  416. Help                    = "&Help"
  417. Exit                    = "C&ancel"
  418. Continue                = "&Continue"
  419. Cancel                  = "C&ancel"
  420. OK                      = "&OK"
  421. HelpContext             = ""
  422.  
  423. ;++++++++++++++++++++++++++++++++++++
  424. ;
  425. ; SDLC Card Types:
  426. ;
  427. ;++++++++++++++++++++++++++++++++++++
  428. [SDLCDriverNumbers_ENG]
  429. ; quite stupid, I know ...
  430. "01"                = 01
  431. "02"                = 02
  432. "03"                = 03
  433. "04"                = 04
  434. "05"                = 05
  435. "06"                = 06
  436. "07"                = 07
  437. "08"                = 08
  438.  
  439.  
  440. ;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  441. ;
  442. ; LANGUAGE-DEPENDENT FILE CONSTANTS SECTION
  443. ; -----------------------------------------
  444. ; This section is responsible for defining language dependent information.
  445. ;
  446. ;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  447.  
  448. [FileConstantsENG]
  449.  
  450. ;
  451. ; The following name should include the name of the IHV as per the example
  452. ;
  453. SetupTitle      = "Eicon SDLC Link Service Setup"
  454.  
  455. [FileConstantsECSDLCLS_ENG]
  456. ProductTitle    = "Eicon SDLC Link Service"
  457. ProductDesc     = "Eicon SDLC Link Support for SNA Server"
  458.  
  459. ;[FileConstantsECSDLCDD_ENG]
  460. ;ProductTitle   = "Eicon SDLC/X.25 Device Driver"
  461. ;ProductDesc    = "Eicon SDLC/X.25 Device Driver for SNA Server"
  462.  
  463. ;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  464. ;
  465. ; DATE SECTION
  466. ; ------------
  467. ; This section is responsible for establishing the value of the "Now"
  468. ; variable.  This variable is a list of the following format:
  469. ;       { Seconds from 1-1-1970, Year, Month, Day, Hour, Minute, Second }
  470. ;       
  471. ;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  472.  
  473. [LoadSetupLibrary]
  474.   LoadLibrary "x" $(!STF_WINDOWSSYSPATH)\setupdll.dll !LIBHANDLE 
  475.   exit
  476.  
  477. [date]
  478.   Now = {} ? $(!LIBHANDLE) GetSystemDate
  479.  
  480. [FreeSetupLibrary]
  481.   FreeLibrary $(!LIBHANDLE)
  482.   exit
  483.  
  484.  
  485. ;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  486. ;
  487. ; INPUT DIALOGS SECTION
  488. ; ---------------------
  489. ; This section should contain all the information about the input dialogs.
  490. ;
  491. ; FORMAT:
  492. ; The format of the section name is the string name concatenated with the 
  493. ; Language represented by the section.
  494. ;       [InputDialog1LNG1]
  495. ;               ...
  496. ;       [InputDialog2LNG1]
  497. ;               ...
  498. ;       
  499. ;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  500.  
  501. [DoSDLCLSConfigENG]
  502. DlgTemplate             = IDD_SDLCSETUP
  503. ;DlgType                        = "MultiEdit"
  504. DlgType                 = "RadioCombination"
  505. Caption                 = $(!P:SetupTitle)
  506. DlgText1                = "Service Name: "$(ServiceName)
  507. EditLabel1              = "&Title:"
  508. EditTextIn              = { $(ServiceTitle) }
  509. EditTextLim             = { 40 }
  510. ComboLabel1             = "Car&d Port:"
  511. NotifyFields            = { "NO" }
  512. RadioGroup              = "Line T&ype"
  513. RadioText1              = "&Leased"
  514. RadioText2              = "Switched: SNA &Server-Stored Number"
  515. RadioText3              = "Switched: &Modem-Stored Number"
  516. RadioText4              = "Switched: Ma&nual Dial"
  517. RadioOptionsGreyed      = {}
  518. CheckText1              = "Constant Ca&rrier"
  519. CBOptionsGreyed         = {}
  520. ;HelpContext            = #( HelpContextIDs, $(DlgTemplate), 1 )
  521. HelpContext            = 80
  522. Advanced                = "Ad&vanced"
  523. Other1                  = "Ad&vanced"
  524. ;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  525. ;
  526. ; INPUT DIALOGS SCRIPTS
  527. ; ---------------------
  528. ; This section should contain all the scripts for doing input dialogs.
  529. ; Each script may return as many parameters as it wants, so long as the 
  530. ; first parameter is the status and is one of the following:
  531. ;
  532. ;               STATUS_SUCCESSFUL
  533. ;               STATUS_FAILED
  534. ;               STATUS_USERCANCEL
  535. ;               STATUS_USERBACK
  536. ;
  537. ;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  538.  
  539. ;()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()
  540. ;
  541. ; DoSDLCLSConfig:
  542. ;
  543. ; DESCRIPTION:  This shell script pops up a dialog to get the configuration
  544. ;                               of this product.
  545. ;
  546. ; INPUT:        $($0) : Service Name
  547. ;                               $($1) : Current Title
  548. ;                               $($2) : Current Card Type
  549. ;                               $($3) : Current Line Type
  550. ;                               $($4) : Current Carrier
  551. ;
  552. ; OUTPUT:       $($R0): STATUS: One of the above
  553. ;                               $($R1): New Title
  554. ;                               $($R2): New Card Type (01 - 06)
  555. ;                               $($R3): New Line Type
  556. ;                               $($R4): New Carrier
  557. ;
  558. ;()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()
  559.  
  560. [DoSDLCLSConfig]
  561.  
  562. more_ui = +
  563.     set ServiceName         = $($0)
  564.     set ServiceTitle        = $($1)
  565.     set DriverNumber        = $($2)
  566.     set LineType            = $($3)
  567.     set Carrier             = $($4)
  568.  
  569.     set SvDriverNumber      = $($2)
  570.     set SvLineType          = $($3)
  571.     set SvCarrier           = $($4)
  572.  
  573.     set Changes = 0
  574.  
  575.     read-syms DialogConstants
  576.     read-syms DialogConstants$(!STF_LANGUAGE)
  577.     read-syms DoSDLCLSConfig$(!STF_LANGUAGE)
  578.  
  579.     
  580.     ;
  581.     ; set the default values
  582.     ;
  583.     set Status = STATUS_SUCCESSFUL
  584.  
  585. ;       set-sub Temp            = $(DriverNumber), 1
  586.     set Temp                = $(DriverNumber)
  587.     set ComboListIn1        = ^( SDLCDriverNumbers"_"$(!STF_LANGUAGE), 0 )
  588.     set ComboListOut1       = *( $(ComboListIn1), $(Temp) )
  589.     set ComboListItemsIn    = { ComboListIn1 }
  590.     set ComboListItemsOut   = { ComboListOut1 }
  591.  
  592.     set-add Temp            = $(LineType), 1
  593.     set RadioIn             = { *( {1,3,2}, $(Temp)) }
  594.  
  595.  
  596.     ifint $(Carrier) == 0
  597.         set CheckItemsIn = { "OFF" }
  598.     else
  599.         set CheckItemsIn = { "ON" }
  600.     endif
  601.  
  602.  
  603.     ui start $(DlgTemplate) $(!IHVDLGHANDLE)
  604.  
  605.     ifstr(i) $(DLGEVENT) == "DLGBUTTON1"
  606.         ui pop 1
  607.             OpenRegKey $(!REG_H_LOCAL), "", +
  608.               "Software\Eicon\Ecnb\CurrentVersion", +
  609.               $(!REG_KEY_READ), KeyWANServices
  610.             ifstr(i) $(KeyWANServices) != {}
  611.                 GetRegValue $(KeyWANServices) "RootPath" RootPathValue
  612.                 ifstr(i) $(RootPathValue) != ""
  613.                     set !WANRootDir = *( $(RootPathValue), 4 )
  614.                 endif
  615.             endif
  616.  
  617.             RunProgram ExitCode "" "" $(!WANRootDir)\eccfgwnt.exe $(!WANRootDir)\eccfg.eic /DD /DA
  618.         goto more_ui
  619.     endif
  620.     
  621.     ifstr(i) $(DLGEVENT) == "Exit"
  622.         set Status = STATUS_USERCANCEL
  623.     else
  624.         set Status = STATUS_SUCCESSFUL
  625.  
  626.         set ServiceTitle = *( $(EditTextOut), 1 )
  627.         set DriverNumber = #( SDLCDriverNumbers"_"$(!STF_LANGUAGE), +
  628.                     $(ComboListOut1), 1 )
  629. ;               set DriverNumber                = *( $(EditTextOut), 2 )
  630.         
  631.  
  632.         set LineType     = *( {0,2,1,1}, *( $(RadioOut), 1 ) )
  633.  
  634.         ifstr(i) *( $(CheckItemsOut), 1 ) == "OFF"
  635.             set Carrier = 0
  636.         else
  637.             set Carrier = 1
  638.         endif
  639.  
  640.         ifstr(i) $(DriverNumber) != $(SvDriverNumber)
  641.           set Changes = 1
  642.         endif
  643.  
  644.         ifstr(i) $(LineType) != $(SvLineType)
  645.           set Changes = 1
  646.         endif
  647.  
  648.         ifstr(i) $(Carrier) != $(SvCarrier)
  649.           set Changes = 1
  650.         endif
  651.     endif
  652.  
  653.     ui pop 1
  654.  
  655.     Return $(Status), $(Changes), $(ServiceTitle), +
  656.            $(DriverNumber), $(LineType), $(Carrier)
  657.  
  658. ;()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()
  659. ;
  660. ; Identify
  661. ;
  662. ; DESCRIPTION:   To verify that this INF deals with the same type of options
  663. ;                as we are choosing currently.
  664. ;
  665. ; INPUT:         None
  666. ;
  667. ; OUTPUT:        $($R0): STATUS: STATUS_SUCCESSFUL
  668. ;                $($R1): Option Type (COMPUTER ...)
  669. ;                $($R2): Diskette description
  670. ;
  671. ;()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()
  672.  
  673. [Identify]
  674.  
  675.     read-syms Identification
  676.  
  677.     set Status     = STATUS_SUCCESSFUL
  678.     set Identifier = $(OptionType)
  679.     set Media      = #(Source Media Descriptions, 1, 1)
  680.  
  681.     Return $(Status) $(Identifier) $(Media)
  682.  
  683. ;()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()
  684. ;
  685. ; ReturnOptions
  686. ;
  687. ; DESCRIPTION:   To return the option list supported by this INF and the
  688. ;                localised text list representing the options.
  689. ;
  690. ;
  691. ; INPUT:         $($0):  Language used. ( ENG | FRN | ... )
  692. ;
  693. ; OUTPUT:        $($R0): STATUS: STATUS_SUCCESSFUL |
  694. ;                                STATUS_NOLANGUAGE
  695. ;                                STATUS_FAILED
  696. ;
  697. ;                $($R1): Option List
  698. ;                $($R2): Option Text List
  699. ;
  700. ;()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()
  701.  
  702. [ReturnOptions]
  703.  
  704.     set Status          = STATUS_FAILED
  705.     set OptionList      = {}
  706.     set OptionTextList  = {}
  707.  
  708.     ;
  709.     ; Check if the language requested is supported
  710.     ;
  711.     set LanguageList = ^(LanguagesSupported, 1)
  712.     ifcontains(i) $($0) in $(LanguageList)
  713.     goto returnoptions
  714.     else
  715.     set Status = STATUS_NOLANGUAGE
  716.     goto finish_ReturnOptions
  717.     endif
  718.  
  719. ;++++++++++++++++++++++++++++++++++++
  720. ;
  721. ; returnoptions:
  722. ; get the options from the Options and OptionsText sections and set appropriate
  723. ; return values.
  724. ; 
  725. ;++++++++++++++++++++++++++++++++++++
  726. returnoptions = +
  727.     set OptionList     = ^(Options, 1)
  728.     set OptionTextList = ^(OptionsText$($0), 1)
  729.     set Status         = STATUS_SUCCESSFUL
  730.  
  731. ;++++++++++++++++++++++++++++++++++++
  732. ;
  733. ; finish_ReturnOptions:
  734. ; 
  735. ;++++++++++++++++++++++++++++++++++++
  736. finish_ReturnOptions = +
  737.     Return $(Status) $(OptionList) $(OptionTextList)
  738.  
  739. ;()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()
  740. ;
  741. ; ReturnSNAOptions
  742. ;
  743. ; DESCRIPTION:   To return the option list supported by this INF and 
  744. ;                recognized by SNA Server.  This script also returns
  745. ;                the localized text list representing those options.
  746. ;
  747. ;
  748. ; INPUT:         None
  749. ;
  750. ; OUTPUT:        $($R0): STATUS: STATUS_SUCCESSFUL |
  751. ;                                STATUS_NOLANGUAGE
  752. ;                                STATUS_FAILED
  753. ;
  754. ;                $($R1): Option List
  755. ;                $($R2): Option Text List
  756. ;
  757. ;()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()
  758.  
  759. [ReturnSNAOptions]
  760.  
  761.     set Status                          = STATUS_FAILED
  762.     set SNAOptionList           = {}
  763.     set SNAOptionTextList       = {}
  764.  
  765.     set LANG                                = $(!STF_LANGUAGE)
  766.     ;
  767.     ; Check if the language requested is supported
  768.     ;
  769.     set LanguageList = ^(LanguagesSupported, 1)
  770.     ifcontains(i) $(LANG) in $(LanguageList)
  771.     goto returnSNAoptions
  772.     else
  773.     set Status = STATUS_NOLANGUAGE
  774.     goto finish_ReturnSNAOptions
  775.     endif
  776.  
  777. ;++++++++++++++++++++++++++++++++++++
  778. ;
  779. ; returnSNAoptions:
  780. ; get the options from the Options and OptionsText sections and set appropriate
  781. ; return values.
  782. ; 
  783. ;++++++++++++++++++++++++++++++++++++
  784. returnSNAoptions = +
  785.     set SNAOptionList           = ^(SNAOptions, 1)
  786.     set OptionList                      = ^(Options, 1)
  787.     set SNAOptionTextList       = {}
  788.     set Status                          = STATUS_SUCCESSFUL
  789.  
  790.     ;
  791.     ; Check that each of the SNA Options is a valid option and compile
  792.     ; the list of text descriptions
  793.     ;
  794.     ForListDo $(SNAOptionList)
  795.         ifcontains $($) in $(OptionList)
  796.             set SNAOptionTextList = >( $(SNAOptionTextList), +
  797.                                        #(OptionsText$(LANG), $($), 1) )
  798.         else
  799.             set Status = STATUS_FAILED
  800.             goto finish_ReturnSNAOptions
  801.         endif
  802.         ; TODO: whenever language gets checked, they use an (i) check.
  803.         ;       the question is: are section names case sensitive or case
  804.         ;       insensitive.  if they are case insensitive, might as well
  805.         ;       make this a case insensitive check.  if they are case 
  806.         ;       sensitive, report this as a bug.
  807.         ;       CODENAME: CASECHECK
  808.     EndForListDo
  809.  
  810. ;++++++++++++++++++++++++++++++++++++
  811. ;
  812. ; finish_ReturnSNAOptions:
  813. ; 
  814. ;++++++++++++++++++++++++++++++++++++
  815. finish_ReturnSNAOptions = +
  816.     Return $(Status) $(SNAOptionList) $(SNAOptionTextList)
  817.  
  818. ;()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()
  819. ;
  820. ; ReturnSNAAdds
  821. ;
  822. ; DESCRIPTION:   To return the list of dependencies and their text 
  823. ;                descriptions for a particular option. 
  824. ;
  825. ;
  826. ; INPUT:         $($0):  Option used.
  827. ;
  828. ; OUTPUT:        $($R0): STATUS: STATUS_SUCCESSFUL |
  829. ;                                STATUS_NOLANGUAGE
  830. ;                                STATUS_FAILED
  831. ;
  832. ;                $($R1): Dependency List
  833. ;                $($R2): Dependency Text List
  834. ;
  835. ;()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()
  836.  
  837. [ReturnSNAAdds]
  838.  
  839.     set Status                          = STATUS_FAILED
  840.     set SNAAddList              = {}
  841.     set SNAAddTextList          = {}
  842.  
  843.     set LANG                                = $(!STF_LANGUAGE)
  844.     ;
  845.     ; Check if the language requested is supported
  846.     ;
  847.     set LanguageList = ^(LanguagesSupported, 1)
  848.     ifcontains(i) $(LANG) in $(LanguageList)
  849.     goto returnSNAadds
  850.     else
  851.     set Status = STATUS_NOLANGUAGE
  852.     goto finish_ReturnSNAAdds
  853.     endif
  854.  
  855. ;++++++++++++++++++++++++++++++++++++
  856. ;
  857. ; returnSNAadds:
  858. ; get the additional options for an option and compile their text list
  859. ; 
  860. ;++++++++++++++++++++++++++++++++++++
  861. returnSNAadds = +
  862.     set SNAAddList                  = ^(SNAOptionAdds$($0), 1)
  863.     set OptionList                      = ^(Options, 1)
  864.     set Status                          = STATUS_SUCCESSFUL
  865.  
  866.     ;
  867.     ; Check that each of the SNA Dependencies is a valid option and compile
  868.     ; the list of text descriptions
  869.     ;
  870.     ForListDo $(SNAAddList)
  871.         ifcontains $($) in $(OptionList)
  872.             set   SNAAddTextList  = >( $(SNAAddTextList), +
  873.                                        #(OptionsText$(LANG), $($), 1) )
  874.         else
  875.             set Status = STATUS_FAILED
  876.             goto finish_ReturnSNAAdds
  877.         endif
  878.         ; TODO: Check CODENAME: CASECHECK
  879.     EndForListDo
  880.  
  881. ;++++++++++++++++++++++++++++++++++++
  882. ;
  883. ; finish_ReturnSNAAdds:
  884. ; 
  885. ;++++++++++++++++++++++++++++++++++++
  886. finish_ReturnSNAAdds = +
  887.     Return $(Status) $(SNAAddList) $(SNAAddTextList)
  888.  
  889. ;************************************************************************
  890. ;************************************************************************
  891. ;                    SNA INVOCATION SECTION
  892. ;************************************************************************
  893. ;************************************************************************
  894.  
  895. ;()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()
  896. ;
  897. ; SnaInvocation 
  898. ;
  899. ; DESCRIPTION:   To perform operations requested by the SNA Setup
  900. ;
  901. ; INPUT:         NTN_XXXXX  and STF_XXXXX  variables defined
  902. ;
  903. ; OUTPUT:        $($R0): STATUS: STATUS_SUCCESSFUL |
  904. ;                                STATUS_NOLANGUAGE |
  905. ;                                STATUS_USERCANCEL |
  906. ;                                STATUS_FAILED
  907. ;
  908. ;()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()
  909.  
  910. [SnaInvocation]
  911.     set LongOption = $(!NTN_InfOption)
  912.     set Changes    = 0
  913.     set Instance   = "xx"
  914.  
  915.     Split-String $(LongOption) "_" OptionList
  916.     QueryListSize OptionSize $(OptionList)
  917.  
  918.     ifint $(OptionSize) == 3
  919.         set Option   = *( $(OptionList), 1 )
  920.         set Instance = *( $(OptionList), 3 )
  921.     else
  922.         set Option = $(LongOption)
  923.     endif
  924.  
  925.     ;
  926.     ; These three variables describe the execution of the installation.
  927.     ;   AddCopy adds the files in the file list to the copy list
  928.     ;   DoCopy actually copies the files on the spot
  929.     ;
  930.     ifstr(i) $(!NTN_InstallMode) == install
  931.     read-syms InstallSteps$(Option)
  932.     set !AddCopy  = $(AddFilesToCopyList)
  933.     set !DoCopy   = $(CopyFilesInCopyList)
  934.  
  935.     ifstr(i) $(!NTN_InfType) == "LOCAL"
  936.       set !AddCopy = NO
  937.       set !DoCopy  = NO
  938.     endif
  939.     Else
  940.     set !AddCopy  = NO
  941.     set !DoCopy   = NO
  942.     Endif
  943.  
  944.     shell "" CommonSection $(Option) $(Instance)
  945.  
  946.     set Status     = $($R0)
  947.     set ReturnData = $($R1)
  948.     set Changes    = $($R2)
  949.  
  950.     Return $(Status) $(ReturnData) $(Changes)
  951.  
  952. ;************************************************************************
  953. ;************************************************************************
  954. ;                    NCPA INVOCATION SECTION
  955. ;************************************************************************
  956. ;************************************************************************
  957.  
  958. ;()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()
  959. ;
  960. ; InstallOption 
  961. ;
  962. ; DESCRIPTION:   To perform operations requested by the NCPA
  963. ;
  964. ; INPUT:         NTN_XXXXX  and STF_XXXXX  variables defined
  965. ;
  966. ; OUTPUT:        $($R0): STATUS: STATUS_SUCCESSFUL |
  967. ;                                STATUS_NOLANGUAGE |
  968. ;                                STATUS_USERCANCEL |
  969. ;                                STATUS_FAILED
  970. ;
  971. ;()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()
  972.  
  973. [InstallOption]
  974.     set LongOption = $(!NTN_InfOption)
  975.     set Changes    = 0
  976.     set Instance   = "xx"
  977.  
  978.     Split-String $(LongOption) "_" OptionList
  979.     QueryListSize OptionSize $(OptionList)
  980.  
  981.     ifint $(OptionSize) == 3
  982.     set Option   = *( $(OptionList), 1 )
  983.     set Instance = *( $(OptionList), 3 )
  984.     else
  985.     set Option = $(LongOption)
  986.     endif
  987.  
  988.     ;
  989.     ; These three variables describe the execution of the installation.
  990.     ;   AddCopy adds the files in the file list to the copy list
  991.     ;   DoCopy actually copies the files on the spot
  992.     ;
  993.     ifstr(i) $(!NTN_InstallMode) == "install"
  994.     read-syms InstallSteps$(Option)
  995.     set !AddCopy  = YES
  996.     set !DoCopy   = YES
  997.     Else
  998.     set !AddCopy  = NO
  999.     set !DoCopy   = NO
  1000.     Endif
  1001.  
  1002.     ;
  1003.     ; Set SNA Root Directory before reading File Constants
  1004.     ;
  1005.     OpenRegKey $(!REG_H_LOCAL), "", +
  1006.     "Software\Microsoft\SNA Server\2.0\Setup", +
  1007.     $(!REG_KEY_READ), KeySNAServices
  1008.     ifstr(i) $(KeySNAServices) != {}
  1009.       GetRegValue $(KeySNAServices) "RootDir" RootDirValue
  1010.       ifstr(i) $(RootDirValue) != ""
  1011.     set !SNARootDir = *( $(RootDirValue), 4 )
  1012.       endif
  1013.     endif
  1014.  
  1015.     shell $(!UtilityInf) GetBusType
  1016.     ifstr(i) $($R0) == STATUS_SUCCESSFUL
  1017.       set !STF_BUSTYPE = $($R1)
  1018.     else
  1019.       set !STF_BUSTYPE = "ISA"
  1020.     endif
  1021.  
  1022.     ifstr(i) $(!NTN_InstallMode) != "install"
  1023.         read-syms FileConstants
  1024.         read-syms FileConstants$(Option)
  1025.  
  1026.         OpenRegKey $(!REG_H_LOCAL), "", +
  1027.                    $(ProductRegBase)"\"$(ProductFullName)"\CurrentVersion", +
  1028.                    $(!REG_KEY_READWRITE), KeyServiceIndex
  1029.         ifstr(i) $(KeyServiceIndex) == ""
  1030.             set ErrMesg = "Can't Find This Product Instance."
  1031.             set ErrProc = "InstallOption"
  1032.             set ErrFunc = "OpenRegKey (1)"
  1033.             goto fatal_registry
  1034.         endif
  1035.         GetRegValue $(KeyServiceIndex), "SNAVersion", SNAVersionInfo
  1036.         set !SNAVersion = *( $(SNAVersionInfo), 4 )
  1037.         CloseRegKey $(KeyServiceIndex)
  1038.  
  1039.         ;
  1040.         ; This is a Hack.
  1041.         ; Since the NCPA can (now) only configure and remove components, we'll
  1042.         ; assume that it's going to access them inside the SNA Server 
  1043.         ; root directory and not in floppy like install would.  Therefore,
  1044.         ; DriverDir = SNARootDir.
  1045.         ; At some future point in time, we might consider putting a path in the
  1046.         ; registry.
  1047.         ;
  1048.         set !DriverDir = $(!SNARootDir)"\system\hwsetup\"
  1049.  
  1050.     else
  1051.         ;
  1052.         ; This case shouldn't happen, but I honestly don't know how to deal
  1053.         ; with it when it does.  I guess I can check if SNA Server is
  1054.         ; installed, and if it's not, tell the user that it must be installed
  1055.         ; before link support can be installed
  1056.         ;
  1057.         set Hosed = "Probably"
  1058.     endif
  1059.  
  1060.     LoadLibrary "" $(DialogLibrary) !DLGHANDLE
  1061.         
  1062.     shell "" CommonSection $(Option) $(Instance)
  1063.     set Status = $($R0)
  1064.  
  1065.     ifstr(i) $($R2) == 1
  1066.       shell $(!SubroutineInf) SetupMessage $(!STF_LANGUAGE) "STATUS" +
  1067.         "For the changed parameters to be noticed, you must stop and"$(!LF)+
  1068.         "restart this link service with the SNA Server Admin program."
  1069.  
  1070.     else-ifstr(i) $($R2) == 2
  1071.       shell $(!SubroutineInf) SetupMessage $(!STF_LANGUAGE) "STATUS" +
  1072.         "You must reboot for the changed parameters to be noticed."
  1073.     endif
  1074.  
  1075.     FreeLibrary $(!DLGHANDLE)
  1076.  
  1077.     Return $(Status) {} $(Changes)
  1078.  
  1079. fatal_registry = +
  1080.  
  1081.     set Error = +
  1082.         "Fatal Registry Error:"$(!LF)+
  1083.         $(ErrMesg)$(!LF)+
  1084.         "File: "$(ThisInf)$(!LF)+
  1085.         "Procedure: "$(ErrProc)$(!LF)+
  1086.         "Function: "$(ErrFunc)
  1087.  
  1088.     shell $(SubroutineInf) SetupMessage $(!STF_LANGUAGE) "FATAL" $(Error)
  1089.  
  1090.     Return STATUS_FAILED
  1091.  
  1092. ;************************************************************************
  1093. ;************************************************************************
  1094. ;                   COMMON SECTION
  1095. ;************************************************************************
  1096. ;************************************************************************
  1097.  
  1098. ;()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()
  1099. ;
  1100. ; CommonSection
  1101. ;
  1102. ; DESCRIPTION:   To carry out the install/config/etc. operations
  1103. ;
  1104. ; INPUT:         NTN_XXXXX  and STF_XXXXX  variables defined
  1105. ;                $($0):  Option to be used
  1106. ;                $($1):  Instance to be used
  1107. ;
  1108. ; OUTPUT:        $($R0): STATUS: STATUS_SUCCESSFUL |
  1109. ;                                STATUS_NOLANGUAGE |
  1110. ;                                STATUS_EXISTS     |
  1111. ;                                STATUS_USERCANCEL |
  1112. ;                                STATUS_FAILED
  1113. ;
  1114. ;()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()
  1115.  
  1116. [CommonSection]
  1117.  
  1118.     StartWait
  1119.  
  1120.     set Option   = $($0)
  1121.     set Instance = $($1)
  1122.     set Index    = "CurrentVersion"
  1123.     set RetData  = {}
  1124.     set Changes  = 0
  1125.  
  1126.     ;
  1127.     ; Check if the language requested is supported
  1128.     ;
  1129.     set LanguageList = ^(LanguagesSupported, 1)
  1130.     ifcontains(i) $(!STF_LANGUAGE) in $(LanguageList)
  1131.     goto languageexists
  1132.     else
  1133.     set Status = STATUS_NOLANGUAGE
  1134.     goto end
  1135.     endif
  1136.  
  1137.     
  1138. ;++++++++++++++++++++++++++++++++++++
  1139. ;
  1140. ; languageexists:
  1141. ;
  1142. ;++++++++++++++++++++++++++++++++++++
  1143. languageexists = +
  1144.  
  1145.     ;
  1146.     ; Define some constants, read some variable sections, and set the date
  1147.     ;
  1148.  
  1149.     StartWait
  1150.  
  1151.     read-syms GeneralConstants
  1152.  
  1153.     read-syms FileConstants
  1154.     read-syms FileConstants$(!STF_LANGUAGE)
  1155.     read-syms FileConstants$(Option)
  1156.     read-syms FileConstants$(Option)_$(!STF_LANGUAGE)
  1157.  
  1158.     install LoadSetupLibrary
  1159.     detect date
  1160.     install FreeSetupLibrary
  1161.  
  1162.     SetHelpFile $(!DriverDir)$(ThisHlp) $(HlpMin) $(HlpMax)
  1163.  
  1164.     LoadLibrary "" $(!DriverDir)$(ThisSrl) !IHVDLGHANDLE
  1165.     ifstr(i) $(!IHVDLGHANDLE) == ""
  1166.     goto set_status_failed
  1167.     endif
  1168.     
  1169.     set to   = Begin
  1170.     set from = Begin
  1171.  
  1172.     ;
  1173.     ; Assume that all is well as we begin
  1174.     ;
  1175.     set CommonStatus = STATUS_SUCCESSFUL
  1176.  
  1177.     EndWait
  1178.  
  1179.  
  1180. ;++++++++++++++++++++++++++++++++++++
  1181. ;
  1182. ; Begin:
  1183. ; Set up the operation-mode-based variables and gaily welcome
  1184. ; the user.  if the "install mode" variable is improperly set,
  1185. ; assume this is a new installation.
  1186. ;
  1187. ;++++++++++++++++++++++++++++++++++++
  1188. Begin = +
  1189.     ifstr(i)      $(!NTN_InstallMode)   == deinstall
  1190.     set StartLabel = remove_component
  1191.     else-ifstr(i) $(!NTN_InstallMode)   == fullremove
  1192.     set StartLabel = remove_component
  1193.     else-ifstr(i) $(!NTN_InstallMode)   == snaremove
  1194.     set StartLabel = remove_component
  1195.     else-ifstr(i) $(!NTN_InstallMode)   == getbindings
  1196.     set StartLabel = getbind_component
  1197.     else-ifstr(i) $(!NTN_InstallMode)   == bind
  1198.     set StartLabel = bind_component
  1199.     else-ifstr(i) $(!NTN_InstallMode)   == configure
  1200.     set StartLabel = config_component
  1201.     else                                ;; install
  1202.     set StartLabel = install_component
  1203.     endif
  1204.  
  1205.     goto set_defaults_$(Option)
  1206.  
  1207.     ;++++++++++++++++++++++++++++++++++++
  1208.     ;
  1209.     ; set_defaults_ECSDLCLS
  1210.     ;
  1211.     ;++++++++++++++++++++++++++++++++++++
  1212.     set_defaults_ECSDLCLS = +
  1213.     set ServiceName   = $(Option)
  1214.     set ServiceTitle  = $(ProductTitle)
  1215.     set ServiceDesc   = $(ProductDesc)
  1216.     set DriverNumber  = "1" ; Eicon SDLC 1
  1217.     set LineType      = "0" ; Leased
  1218.     set Carrier       = "0" ; Not constant
  1219.     goto finish_defaults
  1220.  
  1221.     ;++++++++++++++++++++++++++++++++++++
  1222.     ;
  1223.     ; set_defaults_ECSDLCDD
  1224.     ;
  1225.     ;++++++++++++++++++++++++++++++++++++
  1226. ;    set_defaults_ECSDLCDD = +
  1227. ;       set ServiceName   = $(Option)
  1228. ;       set ServiceTitle  = $(ProductTitle)
  1229. ;       set ServiceDesc   = $(ProductDesc)
  1230. ;       goto finish_defaults
  1231.  
  1232. ;++++++++++++++++++++++++++++++++++++
  1233. ;
  1234. ; finish_defaults:
  1235. ;
  1236. ;++++++++++++++++++++++++++++++++++++
  1237. finish_defaults = +
  1238.     set from = end
  1239.     set to   = end
  1240.     goto $(StartLabel)
  1241.  
  1242. ;++++++++++++++++++++++++++++++++++++
  1243. ;
  1244. ; install_component:
  1245. ;
  1246. ;++++++++++++++++++++++++++++++++++++
  1247. install_component = +
  1248.     ;
  1249.     ; First, check if there are any existing services of this product
  1250.     ; already in the registry.
  1251.     ;
  1252.     shell $(UtilityInf) FindSNAProductServices, +
  1253.                   $(ProductRegBase), $(ProductFullName)
  1254.     ifint $($ShellCode) != 0
  1255.         goto ShellCodeError
  1256.     endif
  1257.  
  1258.     set Status              = $($R0)
  1259.     set SvcIndexList        = $($R1)
  1260.     set SvcNameList         = $($R2)
  1261.     set SvcTitleList        = $($R3)
  1262.     set SvcDescList         = $($R4)
  1263.  
  1264.     ifstr(i) $(Status) == STATUS_FAILED
  1265.         set ErrMesg = "Can't Find This Product."
  1266.         set ErrProc = "install_component"
  1267.         set ErrFunc = "FindSNAProductServices"
  1268.         goto fatal_registry
  1269.     endif
  1270.  
  1271.     ;
  1272.     ; if there are no services of this product installed, it could mean
  1273.     ; that the product doesn't exist.  Either way, we are installing service
  1274.     ; index "01" and on to modify params.
  1275.     ;
  1276.  
  1277.     QueryListSize SvcIndexListSize $(SvcIndexList)
  1278.  
  1279.     set ProductExists = $(TRUE)
  1280.  
  1281.     ifint $(SvcIndexListSize) == 0
  1282.         ifstr(i) $(Status) == STATUS_NOSUCHPRODUCT
  1283.           set ProductExists = $(FALSE)
  1284.         endif
  1285.         set Instance = "01"
  1286.         goto install_nextstep
  1287.     endif
  1288.  
  1289.     ;
  1290.     ; If there is one instance of this service and this product is an
  1291.     ; exclusive install, return with the appropriate status.
  1292.     ;
  1293.     ifint $(ProductExclusive) != $(FALSE)
  1294.       ifint $(SvcIndexListSize) == 1
  1295.         set Status = STATUS_EXISTS
  1296.         ifint $(ProductExclusive) == $(NOTIFY)
  1297.           shell $(SubroutineInf) SetupMessage $(!STF_LANGUAGE) NONFATAL +
  1298.               "This product is already installed and"$(!LF)+
  1299.               "can only be installed once."
  1300.         endif
  1301.         goto end
  1302.       endif
  1303.     endif
  1304.  
  1305.     shell $(UtilityInf) FindNextAvailableIndex $(SvcIndexList)
  1306.     ifint $($ShellCode) != 0
  1307.         goto ShellCodeError
  1308.     endif
  1309.  
  1310.     set Status   = $($R0)
  1311.     set Instance = $($R1)
  1312.  
  1313.     ifstr(i) $(Status) != STATUS_SUCCESSFUL
  1314.         goto end
  1315.     endif
  1316.  
  1317. ;++++++++++++++++++++++++++++++++++++
  1318. ;
  1319. ; install_nextstep:
  1320. ; we have a service index and are ready to start the
  1321. ; process of installing an instance.
  1322. ;
  1323. ;++++++++++++++++++++++++++++++++++++
  1324. install_nextstep = +
  1325.     read-syms FileConstants$(Option)
  1326.  
  1327.     ifint $(ProductServiceQuery) == $(TRUE)
  1328.         shell $(UtilityInf) EnterServiceName, +
  1329.                     $(ProductTitle), +
  1330.                     $(ProductServicePrefix), +
  1331.                     $(Instance)
  1332.         ifint $($ShellCode) != 0
  1333.             goto ShellCodeError
  1334.         endif
  1335.     
  1336.         set Status      = $($R0)
  1337.         set ServiceName = $($R1)
  1338.  
  1339.         ifstr(i) $(Status) != STATUS_SUCCESSFUL
  1340.             goto end
  1341.         endif
  1342.     else
  1343.         set ServiceName  = $(ProductServicePrefix)
  1344.     endif
  1345.  
  1346.     goto modify_params
  1347.  
  1348. ;++++++++++++++++++++++++++++++++++++
  1349. ;
  1350. ; config_component:
  1351. ; get the current values for all the parameters and prepare them for
  1352. ; modify_params.
  1353. ;
  1354. ;++++++++++++++++++++++++++++++++++++
  1355. config_component = +
  1356.     read-syms FileConstants$(Option)
  1357.  
  1358.     ;
  1359.     ; Try and open this product and see if it's even installed.
  1360.     ;
  1361.  
  1362.     shell $(UtilityInf) FindSNAProductServices $(ProductRegBase), +
  1363.                            $(ProductFullName)
  1364.     ifint $($ShellCode) != 0
  1365.         goto ShellCodeError
  1366.     endif
  1367.  
  1368.     set Status       = $($R0)
  1369.     set SvcIndexList = $($R1)
  1370.     set SvcNameList  = $($R2)
  1371.     set SvcTitleList = $($R3)
  1372.     set SvcDescList  = $($R4)
  1373.  
  1374.     ifstr(i) $(Status) != STATUS_SUCCESSFUL
  1375.         set ErrMesg = "Can't Find This Product."
  1376.         set ErrProc = "config_component"
  1377.         set ErrFunc = "FindSNAProductServices"
  1378.         goto fatal_registry
  1379.     endif
  1380.  
  1381.     shell $(UtilityInf) GrepUniqueServiceInfo "Index", +
  1382.                            $(Instance), +
  1383.                            $(SvcIndexList), +
  1384.                            $(SvcNameList),+
  1385.                            $(SvcTitleList),+
  1386.                            $(SvcDescList)
  1387.     ifint $($ShellCode) != 0
  1388.         goto ShellCodeError
  1389.     endif
  1390.  
  1391.     set Status       = $($R0)
  1392.     set ServiceIndex = $($R1)       
  1393.     set ServiceName  = $($R2)
  1394.     set ServiceTitle = $($R3)
  1395.     set ServiceDesc  = $($R4)
  1396.  
  1397.     ifstr(i) $(Status) != STATUS_SUCCESSFUL
  1398.         goto end
  1399.     endif
  1400.  
  1401. ;++++++++++++++++++++++++++++++++++++
  1402. ;
  1403. ; read_params:
  1404. ; read the parameters from the SCA and assign them to the appropriate
  1405. ; variables.
  1406. ;
  1407. ;++++++++++++++++++++++++++++++++++++
  1408. read_params = +
  1409.  
  1410.     ;
  1411.     ; Find the entry in the Service Control Architecture and get a handle
  1412.     ; to the Parameters Key and to the ExtraParameters key if one exists.
  1413.     ;
  1414.  
  1415.     shell $(UtilityInf) FindSNAService, $(ServiceName)
  1416.     ifint $($ShellCode) != 0
  1417.         goto ShellCodeError
  1418.     endif
  1419.  
  1420.     set Status                      = $($R0)
  1421.     set KeyService          = $($R1)
  1422.     set KeyParameters       = $($R2)
  1423.     set KeyExtraParams      = $($R3)
  1424.  
  1425.     ifstr(i) $(Status) != STATUS_SUCCESSFUL
  1426.         CloseRegKey $(KeyService)
  1427.         CloseRegKey $(KeyParameters)
  1428.         CloseRegKey $(KeyExtraParams)
  1429.         set ErrMesg = "Can't Find Service Entry For Instance"$(ServiceName)
  1430.         set ErrProc = "read_params"
  1431.         set ErrFunc = "FindSNAService"
  1432.         goto fatal_registry
  1433.     endif
  1434.  
  1435.     set OldVersionExisted = $(TRUE)
  1436.  
  1437.     set ValueName = ""
  1438.     set ValueData = ""
  1439.     set ValueStr  = ""
  1440.     set ValueList = {}
  1441.  
  1442.     ;
  1443.     ; Get the old values from the parameters key
  1444.     ;
  1445.     EnumRegValue $(KeyParameters) ValueList
  1446.  
  1447.     ;
  1448.     ; if there's an ExtraParameters subkey, add those values to the list
  1449.     ;
  1450.     ifstr(i) $(KeyExtraParams) != $(KeyNull)
  1451.         EnumRegValue $(KeyExtraParams) ExtraValueList
  1452.         ForListDo $(ExtraValueList)
  1453.             set ValueList = >( $(ValueList), $($) )
  1454.         EndForListDo
  1455.     endif
  1456.  
  1457.     ForListDo $(ValueList)
  1458.         set ValueItem = $($)
  1459.         set ValueName = *($(ValueItem), 1)
  1460.         set ValueData = *($(ValueItem), 4)
  1461.  
  1462.         goto assign_value_$(Option)
  1463.  
  1464.         ;++++++++++++++++++++++++++++++++++++
  1465.         ; 
  1466.         ; assign_value_ECSDLCLS:
  1467.         ;
  1468.         ;++++++++++++++++++++++++++++++++++++
  1469.         assign_value_ECSDLCLS = +
  1470.             
  1471. ;                       ifstr(i)      $(ValueName) == "DriverNumber"
  1472.             ifstr(i)      $(ValueName) == "EcPort"
  1473.                 set DriverNumber = $(ValueData)
  1474.             else-ifstr(i) $(ValueName) == "LineType"
  1475.                 set LineType = $(ValueData)
  1476.             else-ifstr(i) $(ValueName) == "Carrier"
  1477.                 set Carrier = $(ValueData)
  1478.             endif
  1479.             goto finish_assign_value
  1480.  
  1481.         ;++++++++++++++++++++++++++++++++++++
  1482.         ; 
  1483.         ; assign_value_ECSDLCDD:
  1484.         ;
  1485.         ;++++++++++++++++++++++++++++++++++++
  1486. ;               assign_value_ECSDLCDD = +
  1487. ;                       goto finish_assign_value
  1488.  
  1489.         ;++++++++++++++++++++++++++++++++++++
  1490.         ;
  1491.         ; finish_assign_value:
  1492.         ;
  1493.         ;++++++++++++++++++++++++++++++++++++
  1494.         finish_assign_value = +
  1495.     
  1496.     EndForListDo
  1497.  
  1498.     goto assign_extra_$(Option)
  1499.  
  1500.     ;++++++++++++++++++++++++++++++++++++
  1501.     ;
  1502.     ; assign_extra_ECSDLCLS:
  1503.     ;
  1504.     ;++++++++++++++++++++++++++++++++++++
  1505.     assign_extra_ECSDLCLS = +
  1506.         goto finish_assign_extra
  1507.     
  1508.     ;++++++++++++++++++++++++++++++++++++
  1509.     ;
  1510.     ; assign_extra_ECSDLCDD:
  1511.     ;
  1512.     ;++++++++++++++++++++++++++++++++++++
  1513. ;       assign_extra_ECSDLCDD = +
  1514. ;               goto finish_assign_extra
  1515.     
  1516.     ;++++++++++++++++++++++++++++++++++++
  1517.     ;
  1518.     ; finish_assign_extra:
  1519.     ;
  1520.     ;++++++++++++++++++++++++++++++++++++
  1521.     finish_assign_extra = +
  1522.  
  1523.     goto modify_params
  1524.  
  1525. ;++++++++++++++++++++++++++++++++++++
  1526. ;
  1527. ; modify_params:
  1528. ; allow the user to bang away at the parameters until they are happy
  1529. ;
  1530. ;++++++++++++++++++++++++++++++++++++
  1531. modify_params = +
  1532.     
  1533.     set from = modify_params
  1534.  
  1535.     goto modify_params_$(Option)
  1536.  
  1537.     ;++++++++++++++++++++++++++++++++++++
  1538.     ;
  1539.     ; modify_params_ECSDLCLS:
  1540.     ;
  1541.     ;++++++++++++++++++++++++++++++++++++
  1542.     modify_params_ECSDLCLS = +
  1543.  
  1544.         shell "" DoSDLCLSConfig $(ServiceName), +
  1545.                     $(ServiceTitle), +
  1546.                     $(DriverNumber), +
  1547.                     $(LineType), +
  1548.                     $(Carrier)
  1549.         ifint $($ShellCode) != 0
  1550.             goto ShellCodeError
  1551.         endif
  1552.  
  1553.         set Status = $($R0)
  1554.         ifstr(i) $(Status) != STATUS_SUCCESSFUL
  1555.             goto end
  1556.         else
  1557.             set Changes       = $($R1)
  1558.             set ServiceTitle  = $($R2)
  1559.             set DriverNumber  = $($R3)
  1560.             set LineType      = $($R4)
  1561.             set Carrier       = $($R5)
  1562.         endif
  1563.         
  1564.         goto finish_modify_params
  1565.  
  1566.     ;++++++++++++++++++++++++++++++++++++
  1567.     ;
  1568.     ; modify_params_ECSDLCDD:
  1569.     ;
  1570.     ;++++++++++++++++++++++++++++++++++++
  1571. ;       modify_params_ECSDLCDD = +
  1572. ;               goto finish_modify_params
  1573.  
  1574.     ;++++++++++++++++++++++++++++++++++++
  1575.     ;
  1576.     ; finish_modify_params:
  1577.     ;
  1578.     ;++++++++++++++++++++++++++++++++++++
  1579.     finish_modify_params = +
  1580.         goto adjust_params
  1581.  
  1582. ;++++++++++++++++++++++++++++++++++++
  1583. ;
  1584. ; adjust_params:
  1585. ; if there is an old version, the registry keys and values exist and all we
  1586. ; have to do is modify them.  otherwise, if we're installing from scratch,
  1587. ; we have to create those keys and values.
  1588. ;
  1589. ;++++++++++++++++++++++++++++++++++++
  1590. adjust_params = +
  1591.  
  1592.     ifint $(OldVersionExisted) == $(TRUE)
  1593.         ifstr(i) $(!NTN_InstallMode) == "configure"
  1594.             goto write_params
  1595.         endif
  1596.     endif
  1597.  
  1598. ;++++++++++++++++++++++++++++++++++++
  1599. ;
  1600. ; create_regvals:
  1601. ; create the necessary parts of the registry
  1602. ;
  1603. ;++++++++++++++++++++++++++++++++++++
  1604. create_regvals = +
  1605.  
  1606.     Shell $(UtilityInf) +
  1607.           CreateSNAService, +
  1608.         $(ServiceName), +
  1609.         $(SNAServiceType), +
  1610.         $(ProductImagePath), +
  1611.         $(ProductDepends), +
  1612.         $(ProductParams), +
  1613.         $(ProductExtraParams), +
  1614.         $(!SNARootDir)"\System\"$(ProductImagePath), +
  1615.         7
  1616.  
  1617.     ifint $($ShellCode) != 0
  1618.         goto ShellCodeError
  1619.     endif
  1620.  
  1621.     set Status              = $($R0)
  1622.     set KeyService          = $($R1)
  1623.     set KeyParameters       = $($R2)
  1624.     set KeyExtraParams      = $($R3)
  1625.  
  1626.     ifstr(i) $(Status) != STATUS_SUCCESSFUL
  1627.         CloseRegKey $(KeyService)
  1628.         CloseRegKey $(KeyParameters)
  1629.         CloseRegKey $(KeyExtraParams)
  1630.         set ErrMesg = "Can't Create Service Entry For Instance."
  1631.         set ErrProc = "create_regvals"
  1632.         set ErrFunc = "CreateSNAService"
  1633.         goto fatal_registry
  1634.     endif
  1635.  
  1636.     Shell $(UtilityInf) CreateSNARegEntry, $(ProductRegBase), +
  1637.                            $(ProductFullName)
  1638.     ifint $($ShellCode) != 0
  1639.         goto ShellCodeError
  1640.     endif
  1641.  
  1642.     set Status              = $($R0)
  1643.     set KeyProductBase      = $($R1)
  1644.     set KeyProduct          = $($R2)
  1645.     set KeyServiceIndex     = $($R3)
  1646.     set KeyNetRules         = $($R4)
  1647.  
  1648.     ifstr(i) $(Status) != STATUS_SUCCESSFUL
  1649.         CloseRegKey $(KeyProductBase)
  1650.         CloseRegKey $(KeyProduct)
  1651.         CloseRegKey $(KeyServiceIndex)
  1652.         CloseRegKey $(KeyNetRules)
  1653.         set ErrMesg = "Can't Create Product Entry For Instance."
  1654.         set ErrProc = "create_regvals"
  1655.         set ErrFunc = "CreateSNARegEntry"
  1656.         goto fatal_registry
  1657.     endif
  1658.  
  1659.     shell $(UtilityInf) AddValueList, $(KeyServiceIndex), +
  1660.         {   { ServiceName , $(NoTitle), $(!REG_VT_SZ), $(ServiceName)  }, +
  1661.         { InfName     , $(NoTitle), $(!REG_VT_SZ), $(FullInfName)  }, +
  1662.         { SoftwareType, $(NoTitle), $(!REG_VT_SZ), $(SoftwareType) }, +
  1663.         { SNAVersion  , $(NoTitle), $(!REG_VT_SZ), $(!SNAVersion)  } }
  1664.  
  1665.     set NROption    = $(Option)"_"$(Instance)
  1666.     set NRTitle     = $(NetRulesTitle)
  1667.     set NRClass     = { $(NetRulesClass) }
  1668.     set NRBindForm  = $(ServiceName)" yes yes container"
  1669.     set NRUse       = $(NetRulesUse)
  1670.     set NRBindable  = { $(NetRulesBindable) }
  1671.     set NetRulesValues = { +
  1672.         { InfName    , $(NoTitle), $(!REG_VT_SZ),       $(FullInfName)  }, +
  1673.         { InfOption  , $(NoTitle), $(!REG_VT_SZ),       $(NROption)     }, +
  1674.         { title      , $(NoTitle), $(!REG_VT_SZ),       $(NRTitle)      }, +
  1675.         { use        , $(NoTitle), $(!REG_VT_SZ),       $(NRuse)        }, +
  1676.         { bindform   , $(NoTitle), $(!REG_VT_SZ),       $(NRBindForm)   }, +
  1677.         { class      , $(NoTitle), $(!REG_VT_MULTI_SZ), $(NRClass)      }, +
  1678.         { type       , $(NoTitle), $(!REG_VT_SZ),       $(NetRulesType) }, +
  1679.         { bindable   , $(NoTitle), $(!REG_VT_MULTI_SZ), $(NRBindable)   }  +
  1680.                  }
  1681.  
  1682.     shell $(UtilityInf) AddValueList $(KeyNetRules) $(NetRulesValues)
  1683.  
  1684.     ifint $(ProductExists) == $(FALSE)
  1685.         read-syms ProgressCopyVars
  1686.         install InstallRemove
  1687.     endif
  1688.  
  1689.     goto write_params
  1690.  
  1691. ;++++++++++++++++++++++++++++++++++++
  1692. ;
  1693. ; write_params:
  1694. ;
  1695. ;++++++++++++++++++++++++++++++++++++
  1696. write_params = +
  1697.  
  1698.     ifstr $(KeyProductBase) == $(KeyNull)
  1699.         shell $(UtilityInf) FindSNARegEntry, +
  1700.                     $(ProductRegBase), +
  1701.                     $(ProductFullName)
  1702.  
  1703.         ifint $($ShellCode) != 0
  1704.             goto ShellCodeError
  1705.         endif
  1706.  
  1707.         set Status          = $($R0)
  1708.         set KeyProductBase  = $($R1)
  1709.         set KeyProduct      = $($R2)
  1710.         set KeyServiceIndex = $($R3)
  1711.         set KeyNetRules     = $($R4)
  1712.  
  1713.         ifstr(i) $(Status) != STATUS_SUCCESSFUL
  1714.             CloseRegKey $(KeyProductBase)
  1715.             CloseRegKey $(KeyProduct)
  1716.             CloseRegKey $(KeyServiceIndex)
  1717.             CloseRegKey $(KeyNetRules)
  1718.             set ErrMesg = "Can't Find Product Entry For Instance."
  1719.             set ErrProc = "write_params"
  1720.             set ErrFunc = "FindSNARegEntry"
  1721.             goto fatal_registry
  1722.         endif
  1723.     endif
  1724.  
  1725.     ifstr $(KeyService) == $(KeyNull)
  1726.         shell $(UtilityInf) FindSNAService, $(ServiceName)
  1727.         ifint $($ShellCode) != 0
  1728.             goto ShellCodeError
  1729.         endif
  1730.  
  1731.         set Status              = $($R0)
  1732.         set KeyService          = $($R1)
  1733.         set KeyParameters       = $($R2)
  1734.         set KeyExtraParams      = $($R3)
  1735.  
  1736.         ifstr(i) $(Status) != STATUS_SUCCESSFUL
  1737.             CloseRegKey $(KeyService)
  1738.             CloseRegKey $(KeyParameters)
  1739.             CloseRegKey $(KeyExtraParams)
  1740.             set ErrMesg = "Can't Find Service Entry For Instance."
  1741.             set ErrProc = "write_params"
  1742.             set ErrFunc = "FindSNAService"
  1743.             goto fatal_registry
  1744.         endif
  1745.     endif
  1746.  
  1747.     goto write_params_$(Option)
  1748.  
  1749.     ;++++++++++++++++++++++++++++++++++++
  1750.     ;
  1751.     ; write_params_ECSDLCLS:
  1752.     ;
  1753.     ;++++++++++++++++++++++++++++++++++++
  1754.     write_params_ECSDLCLS = +
  1755.         set FullOption = $(Option)"_"$(Instance)
  1756.         set ProductParams = { +
  1757.             { IHVDLL       , $(NoTitle), $(!REG_VT_SZ), $(ProductDLL)  },+
  1758.             { InfName      , $(NoTitle), $(!REG_VT_SZ), $(FullInfName) },+
  1759.             { InfOption    , $(NoTitle), $(!REG_VT_SZ), $(FullOption)  },+
  1760.             { DriverName   , $(NoTitle), $(!REG_VT_SZ), ""      } +
  1761.             }
  1762.         set ProductExtraParams = { +    
  1763. ;;                      { DriverNumber, $(NoTitle), $(!REG_VT_DWORD), $(DriverNumber) }, +
  1764.             { EcPort      , $(NoTitle), $(!REG_VT_DWORD), $(DriverNumber) }, +
  1765.             { LineType    , $(NoTitle), $(!REG_VT_DWORD), $(LineType) }, +
  1766.             { Carrier     , $(NoTitle), $(!REG_VT_DWORD), $(Carrier)  }  +
  1767.             }
  1768.  
  1769.         goto finish_write_params
  1770.  
  1771.     ;++++++++++++++++++++++++++++++++++++
  1772.     ;
  1773.     ; write_params_ECSDLCDD:
  1774.     ;
  1775.     ;++++++++++++++++++++++++++++++++++++
  1776. ;       write_params_ECSDLCDD = +
  1777. ;               set FullOption    = $(Option)"_"$(Instance)
  1778. ;               set ProductParams = { +
  1779. ;                       { InfName      , $(NoTitle), $(!REG_VT_SZ)   , $(FullInfName)   },+
  1780. ;                       { InfOption    , $(NoTitle), $(!REG_VT_SZ)   , $(FullOption)    } +
  1781. ;                       }
  1782. ;               set ProductExtraParams = {}
  1783. ;               goto finish_write_params
  1784.  
  1785.     ;++++++++++++++++++++++++++++++++++++
  1786.     ;
  1787.     ; finish_write_params:
  1788.     ;
  1789.     ;++++++++++++++++++++++++++++++++++++
  1790.     finish_write_params = +
  1791.  
  1792.         shell $(UtilityInf) AddValueList, $(KeyServiceIndex), +
  1793.             { +
  1794.             { Title      , $(NoTitle), $(!REG_VT_SZ), $(ServiceTitle) }, +
  1795.             { Description, $(NoTitle), $(!REG_VT_SZ), $(ServiceDesc)  } +
  1796.             }
  1797.         ifint $($ShellCode) != 0
  1798.             goto ShellCodeError
  1799.         endif
  1800.  
  1801.         shell $(UtilityInf) AddValueList, $(KeyParameters), +
  1802.             { +
  1803.             { Title      , $(NoTitle), $(!REG_VT_SZ), $(ServiceTitle) }, +
  1804.             { Description, $(NoTitle), $(!REG_VT_SZ), $(ServiceDesc)  } +
  1805.             }
  1806.         ifint $($ShellCode) != 0
  1807.             goto ShellCodeError
  1808.         endif
  1809.  
  1810.         ifstr(i) $(ProductParams) != {}
  1811.             shell $(UtilityInf) AddValueList, $(KeyParameters), +
  1812.                               $(ProductParams)
  1813.             ifint $($ShellCode) != 0
  1814.                 goto ShellCodeError
  1815.             endif
  1816.         endif
  1817.  
  1818.         ifstr(i) $(ProductExtraParams) != {}    
  1819.             shell $(UtilityInf) AddValueList, $(KeyExtraParams), +
  1820.                               $(ProductExtraParams)
  1821.             ifint $($ShellCode) != 0
  1822.                 goto ShellCodeError
  1823.             endif
  1824.         endif
  1825.     
  1826.         set RetData = >( $(RetData), { $(Instance), +
  1827.                            $(ServiceName), +
  1828.                            $(ServiceTitle), +
  1829.                            $(ServiceDesc), +
  1830.                            $(!NTN_InstallMode), +
  1831.                          } )
  1832.  
  1833.         CloseRegKey $(KeyProductBase)
  1834.         CloseRegKey $(KeyProduct)
  1835.         CloseRegKey $(KeyServiceIndex)
  1836.         CloseRegKey $(KeyNetRules)
  1837.         CloseRegKey $(KeyService)
  1838.         CloseRegKey $(KeyParameters)
  1839.         CloseRegKey $(KeyExtraParams)
  1840.  
  1841.         goto successful
  1842.  
  1843. ;++++++++++++++++++++++++++++++++++++
  1844. ;
  1845. ; getbind_component:
  1846. ;
  1847. ;++++++++++++++++++++++++++++++++++++
  1848. getbind_component = +
  1849.     goto getbind_$(Option)
  1850.  
  1851.     ;++++++++++++++++++++++++++++++++++++
  1852.     ;
  1853.     ; getbind_ECSDLCLS:
  1854.     ;
  1855.     ;++++++++++++++++++++++++++++++++++++
  1856.     getbind_ECSDLCLS = +
  1857. ;               set RetData = { {"01", "ECSDLCDD", "", "", "getbindings"} }
  1858.         goto finish_getbind_component
  1859.  
  1860.     ;++++++++++++++++++++++++++++++++++++
  1861.     ;
  1862.     ; getbind_ECSDLCDD:
  1863.     ;
  1864.     ;++++++++++++++++++++++++++++++++++++
  1865. ;       getbind_ECSDLCDD = +
  1866. ;               goto finish_getbind_component
  1867.  
  1868.     ;++++++++++++++++++++++++++++++++++++
  1869.     ;
  1870.     ; finish_getbind_component:
  1871.     ;
  1872.     ;++++++++++++++++++++++++++++++++++++
  1873.     finish_getbind_component = +
  1874.         goto successful
  1875.  
  1876. ;++++++++++++++++++++++++++++++++++++
  1877. ;
  1878. ; bind_component:
  1879. ;
  1880. ;++++++++++++++++++++++++++++++++++++
  1881. bind_component = +
  1882.  
  1883.     set Error = "Sorry.  No Bindings Feature Yet."  
  1884.     goto fatal_msg
  1885.  
  1886. ;++++++++++++++++++++++++++++++++++++
  1887. ;
  1888. ; remove_component:
  1889. ;
  1890. ;++++++++++++++++++++++++++++++++++++
  1891. remove_component = +
  1892.     read-syms FileConstants$(Option)
  1893.  
  1894.     ;
  1895.     ; we need to set ourselved up with these variables for later use
  1896.     ;
  1897.     shell $(UtilityInf) FindSNAProductServices +
  1898.                 $(ProductRegBase), +
  1899.                 $(ProductFullName)
  1900.     ifint $($ShellCode) != 0
  1901.         goto ShellCodeError
  1902.     endif
  1903.  
  1904.     set Status               = $($R0)
  1905.     set SvcIndexList = $($R1)
  1906.     set SvcNameList  = $($R2)
  1907.     set SvcTitleList = $($R3)
  1908.     set SvcDescList  = $($R4)
  1909.  
  1910.     ifstr(i) $(Status) == STATUS_NOSUCHPRODUCT
  1911.         goto successful
  1912.     endif
  1913.  
  1914.     ifstr(i) $(Status) == STATUS_FAILED
  1915.         set ErrMesg = "Can't Open Product Entry In Registry."
  1916.         set ErrProc = "remove_component"
  1917.         set ErrFunc = "FindSNAProductServices"
  1918.         goto fatal_registry
  1919.     endif
  1920.  
  1921.     ;
  1922.     ; This will be a counter that will be used to decide whether or not
  1923.     ; the product key should be removed at the end
  1924.     ;
  1925.     QueryListSize SvcIndexListSize $(SvcIndexList)
  1926.  
  1927.     ifstr(i) $(!NTN_InstallMode) == "fullremove"
  1928.         set RemoveMode = "Full"
  1929.         goto remove_all_pieces
  1930.     endif
  1931.  
  1932.     set RemoveMode = "Partial"
  1933.  
  1934.     ifstr(i) $(!NTN_InstallMode) == "snaremove"
  1935.         ; Hack.  Here we search for bindings and remove only if nothing
  1936.         ; else needs this piece.
  1937. ;               ifstr(i) $(Option) == "ECSDLCDD"
  1938. ;                       set PN = #( FileConstantsECSDLCLS, ProductName, 1)
  1939. ;                       set PV = #( FileConstantsECSDLCLS, ProductVersion, 1)
  1940. ;                       shell $(UtilityInf) FindSNAProductServices $(ProductRegBase) +
  1941. ;                                                                  $(PN)"_"$(PV)
  1942. ;                       set _Status = $($R0)
  1943. ;                       set _List   = $($R1)
  1944. ;
  1945. ;                       ifstr(i) $(_List) != {}
  1946. ;                               goto successful
  1947. ;                       endif
  1948. ;                       shell $(UtilityInf) FindSNAProductServices $(ProductRegBase) +
  1949. ;                                                                  "ECX25LS_1.0"
  1950. ;                       set _Status = $($R0)
  1951. ;                       set _List   = $($R1)
  1952. ;                       ifstr(i) $(_Status) == STATUS_FAILED
  1953. ;                               goto set_status_failed
  1954. ;                       endif
  1955. ;                       ifstr(i) $(_List) != {}
  1956. ;                               goto successful
  1957. ;                       endif
  1958. ;               endif
  1959.     endif
  1960.  
  1961.     shell $(UtilityInf) GrepUniqueServiceInfo "Index", +
  1962.                            $(Instance), +
  1963.                            $(SvcIndexList), +
  1964.                            $(SvcNameList), +
  1965.                            $(SvcTitleList), +
  1966.                            $(SvcDescList)
  1967.     ifint $($ShellCode) != 0
  1968.         goto ShellCodeError
  1969.     endif
  1970.  
  1971.     set Status      = $($R0)
  1972.     set RemoveIndex = $($R1)
  1973.     set RemoveName  = $($R2)
  1974.     set RemoveTitle = $($R3)
  1975.     set RemoveDesc  = $($R4)
  1976.  
  1977.     goto remove_one_piece
  1978.  
  1979. ;++++++++++++++++++++++++++++++++++++
  1980. ;
  1981. ; remove_all_pieces:
  1982. ;
  1983. ;++++++++++++++++++++++++++++++++++++
  1984. remove_all_pieces = +
  1985.  
  1986.     ForListDo $(SvcIndexList)
  1987.  
  1988.         ifstr(i) $(KeyProductBase) != $(KeyNull)
  1989.             CloseRegKey $(KeyProductBase)
  1990.         endif
  1991.  
  1992.         set RemoveIndex = $($)
  1993.  
  1994.         shell $(UtilityInf) GrepUniqueServiceInfo "Index", +
  1995.                         $(RemoveIndex), +
  1996.                         $(SvcIndexList), +
  1997.                         $(SvcNameList), +
  1998.                         $(SvcTitleList), +
  1999.                         $(SvcDescList)
  2000.         ifint $($ShellCode) != 0
  2001.             goto ShellCodeError
  2002.         endif
  2003.  
  2004.         set Status          = $($R0)
  2005.         set RemoveIndex = $($R1)
  2006.         set RemoveName  = $($R2)
  2007.         set RemoveTitle = $($R3)
  2008.         set RemoveDesc  = $($R4)
  2009.         
  2010.         ifstr(i) $(Status) != STATUS_SUCCESSFUL
  2011.             goto end
  2012.         endif
  2013.  
  2014.         set TInstance = $(Instance)
  2015.         set Instance  = $(RemoveIndex)
  2016.         read-syms FileConstants$(Option)
  2017.         set Instance  = $(TInstance)
  2018.  
  2019.         goto remove_one_piece
  2020.         
  2021.         ;++++++++++++++++++++++++++++++++++++
  2022.         ; 
  2023.         ; remove_next_piece:
  2024.         ;
  2025.         ;++++++++++++++++++++++++++++++++++++
  2026.         remove_next_piece = +
  2027.  
  2028.     EndForListDo
  2029.  
  2030.     goto remove_product
  2031.  
  2032. ;++++++++++++++++++++++++++++++++++++
  2033. ;
  2034. ; remove_one_piece:
  2035. ;
  2036. ;++++++++++++++++++++++++++++++++++++
  2037. remove_one_piece = +
  2038.  
  2039.     shell $(UtilityInf) FindSNARegEntry, $(ProductRegBase), +
  2040.                          $(ProductFullName)
  2041.     ifint $($ShellCode) != 0
  2042.         goto ShellCodeError
  2043.     endif
  2044.  
  2045.     set Status              = $($R0)
  2046.     set KeyProductBase      = $($R1)
  2047.     set KeyProduct          = $($R2)
  2048.     set KeyServiceIndex     = $($R3)
  2049.     set KeyNetRules         = $($R4)
  2050.  
  2051.     ifstr(i) $(Status) != STATUS_SUCCESSFUL
  2052.         CloseRegKey $(KeyProductBase)
  2053.         CloseRegKey $(KeyProduct)
  2054.         CloseRegKey $(KeyProductVer)
  2055.         CloseRegKey $(KeyNetRules)
  2056.         set ErrMesg = "Can't Find Product Entry For Instance."
  2057.         set ErrProc = "remove_one_piece"
  2058.         set ErrFunc = "FindSNARegEntry"
  2059.         goto fatal_registry
  2060.     endif
  2061.  
  2062.     ;
  2063.     ; Get rid of this service instance in the product keys
  2064.     ;
  2065.     CloseRegKey $(KeyServiceIndex)
  2066.     CloseRegKey $(KeyNetRules)
  2067.     DeleteRegTree $(KeyProduct) $(RemoveIndex)
  2068.     CloseRegKey $(KeyProduct)
  2069.  
  2070.     shell $(UtilityInf) DeleteSNAService $(RemoveName)
  2071.  
  2072.     set-sub SvcIndexListSize = $(SvcIndexListSize), 1
  2073.  
  2074.     OpenRegKey $(!REG_H_LOCAL), "", $(ProductRegBase), +
  2075.            $(!REG_KEY_READWRITE), KeyProductTemp
  2076.     ifstr(i) $(KeyProductTemp) != ""
  2077.       DeleteRegTree $(KeyProductTemp) $(ProductFullName)
  2078.       CloseRegKey $(KeyProductTemp)
  2079.     endif
  2080.  
  2081.     ;
  2082.     ; Delete the EventLog entry for the device driver.
  2083.     ;
  2084. ;       OpenRegKey $(!REG_H_LOCAL), "", +
  2085. ;                  "System\CurrentControlSet\Services\EventLog\System", +
  2086. ;                  $(!REG_KEY_READWRITE), KeyProduct
  2087.  
  2088. ;       ifstr(i) $(!NTN_InstallMode) == "fullremove"
  2089. ;         ifstr(i) $(KeyProduct) != $(KeyNull)
  2090. ;           DeleteRegTree $(KeyProduct), "ECSYNC"
  2091. ;         endif
  2092. ;       endif
  2093.  
  2094. ;       CloseRegKey $(KeyProduct)
  2095.  
  2096.     ifstr(i) $(!NTN_InstallMode) == "fullremove"
  2097.       install InstallRemove
  2098.     endif
  2099.  
  2100.     set RetData = >( $(RetData), { $(RemoveIndex), +
  2101.                     $(RemoveName), +
  2102.                     $(RemoveTitle), +
  2103.                     $(RemoveDesc), +
  2104.                     $(!NTN_InstallMode), +
  2105.                     } )
  2106.  
  2107.     ifstr(i) $(RemoveMode) == "Full"
  2108.         goto remove_next_piece
  2109.     endif
  2110.  
  2111. ;++++++++++++++++++++++++++++++++++++
  2112. ;
  2113. ; remove_product:
  2114. ;
  2115. ;++++++++++++++++++++++++++++++++++++
  2116. remove_product = +
  2117.     goto finish_remove_component
  2118.  
  2119. ;++++++++++++++++++++++++++++++++++++
  2120. ;
  2121. ; finish_remove_component:
  2122. ;
  2123. ;++++++++++++++++++++++++++++++++++++
  2124. finish_remove_component = +
  2125.     goto successful
  2126.  
  2127.  
  2128. ;++++++++++++++++++++++++++++++++++++
  2129. ;++++++++++++++++++++++++++++++++++++
  2130. ;
  2131. ; Escape Hatches:
  2132. ;
  2133. ;++++++++++++++++++++++++++++++++++++
  2134. ;++++++++++++++++++++++++++++++++++++
  2135.  
  2136. ;++++++++++++++++++++++++++++++++++++
  2137. ;
  2138. ; successful:
  2139. ; this part actually copies the files if the DoCopy variable is on
  2140. ;
  2141. ;++++++++++++++++++++++++++++++++++++
  2142. successful = +
  2143.     set Status = STATUS_SUCCESSFUL
  2144.     goto end
  2145.  
  2146. ;++++++++++++++++++++++++++++++++++++
  2147. ;
  2148. ; warning_msg:
  2149. ; a warning display
  2150. ;
  2151. ;++++++++++++++++++++++++++++++++++++
  2152. warning_msg = +
  2153.  
  2154.     ; TODO: This is how the template does warnings.  Do we have a better way?
  2155.     ;       Do we want to do it differently?
  2156.     ;       CODENAME: WARNINGS
  2157.     
  2158.     Shell $(SubroutineInf) SetupMessage, $(!STF_LANGUAGE), "WARNING", $(Error)
  2159.     ifint $($ShellCode) != 0
  2160.         goto ShellCodeError
  2161.     endif
  2162.     
  2163.     set DLGEVENT = $($R1)
  2164.  
  2165.     ifstr(i) $(DLGEVENT) == "OK"
  2166.         goto $(to)
  2167.     else-ifstr(i) $(DLGEVENT) == "CANCEL"
  2168.         goto $(from)
  2169.     else
  2170.     set Status = STATUS_FAILED
  2171.         goto end
  2172.     endif
  2173.  
  2174. ;++++++++++++++++++++++++++++++++++++
  2175. ;
  2176. ; nonfatal_msg:
  2177. ; a non-fatal display
  2178. ;
  2179. ;++++++++++++++++++++++++++++++++++++
  2180. nonfatal_msg = +
  2181.  
  2182.     ; TODO: See CODENAME: WARNINGS
  2183.  
  2184.     Shell $(SubroutineInf) SetupMessage, $(!STF_LANGUAGE), "NONFATAL", $(Error)
  2185.     ifint $($ShellCode) != 0
  2186.         goto ShellCodeError
  2187.     endif
  2188.  
  2189.     set DLGEVENT = $($R1)
  2190.  
  2191.     ifstr(i) $(DLGEVENT) == "OK"
  2192.     goto $(from)
  2193.     else
  2194.     goto "end"
  2195.     endif
  2196.  
  2197. ;++++++++++++++++++++++++++++++++++++
  2198. ;
  2199. ; fatal_registry:
  2200. ; something failed in the registry access
  2201. ;
  2202. ;++++++++++++++++++++++++++++++++++++
  2203. fatal_registry = +
  2204.  
  2205.     set Error = +
  2206.         "Fatal Registry Error:"$(!LF)+
  2207.         $(ErrMesg)$(!LF)+
  2208.         "File: "$(ThisInf)$(!LF)+
  2209.         "Procedure: "$(ErrProc)$(!LF)+
  2210.         "Function: "$(ErrFunc)
  2211.  
  2212.     goto fatal_msg
  2213.  
  2214. ;++++++++++++++++++++++++++++++++++++
  2215. ;
  2216. ; fatal_msg:
  2217. ; a fatal error display
  2218. ;
  2219. ;++++++++++++++++++++++++++++++++++++
  2220. fatal_msg =     +
  2221.  
  2222.     ; TODO: See CODENAME: WARNINGS
  2223.  
  2224.     Shell $(SubroutineInf) SetupMessage, $(!STF_LANGUAGE), "FATAL", $(Error)
  2225.     ifint $($ShellCode) != 0
  2226.         goto ShellCodeError
  2227.     endif
  2228.  
  2229.     goto set_status_failed
  2230.  
  2231. ;++++++++++++++++++++++++++++++++++++
  2232. ;
  2233. ; ShellCodeError:
  2234. ; a shell error to be displayed
  2235. ; 
  2236. ;++++++++++++++++++++++++++++++++++++
  2237. ShellCodeError = +
  2238.  
  2239.     ; TODO: See CODENAME: WARNINGS
  2240.  
  2241.     set DlgType      = "MessageBox"
  2242.     set STF_MB_TITLE = "Error: "$(SetupTitle)
  2243.     set STF_MB_TEXT  = "Shell Code Error"
  2244.     set STF_MB_TYPE  = 1
  2245.     set STF_MB_ICON  = 3
  2246.     set STF_MB_DEF   = 1
  2247.     ui start "Error Message"
  2248.     goto set_status_failed
  2249.  
  2250. ;++++++++++++++++++++++++++++++++++++
  2251. ;
  2252. ; set_status_failed:
  2253. ; last step before exiting
  2254. ;
  2255. ;++++++++++++++++++++++++++++++++++++
  2256. set_status_failed = +
  2257.  
  2258.     set Status = STATUS_FAILED
  2259.     goto end
  2260.  
  2261. ;++++++++++++++++++++++++++++++++++++
  2262. ;
  2263. ; end:
  2264. ; this exit point sets the CommonStatus to the current status 
  2265. ; then returns the status and return data
  2266. ;
  2267. ;++++++++++++++++++++++++++++++++++++
  2268. end = +
  2269.     ifstr(i) $(!IHVDLGHANDLE) != ""
  2270.         FreeLibrary $(!IHVDLGHANDLE)
  2271.         set !IHVDLGHANDLE = ""
  2272.     endif
  2273.     set CommonStatus = $(Status)
  2274.     Return $(CommonStatus) $(RetData) $(Changes)
  2275.  
  2276. ;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  2277. ;
  2278. ; INSTALLATION AND FILE SECTION
  2279. ; -----------------------------
  2280. ; This section is responsible for installing the component and listing all
  2281. ; the necessary files etc.
  2282. ;
  2283. ;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  2284.  
  2285. ;========================================================================
  2286. ;
  2287. ; INSTALL
  2288. ; -------
  2289. ; The IHV should follow the following template for this section.  It is
  2290. ; responsible for file copying and registry initialization.
  2291. ;
  2292. ;========================================================================
  2293.  
  2294. [InstallRemove]
  2295.  
  2296.     set SNADirList  = { "hwsetup", "system" }
  2297.     set SNAToList   = { "system\hwsetup", "system" }
  2298.  
  2299.     ifstr(i) $(!NTN_InstallMode) == "install"
  2300.         ifstr(i) $(!AddCopy) == "YES"
  2301.             ForListDo $(SNADirList)
  2302.                 ifstr(i) $($) != "hwsetup"
  2303.                     set Ext = $(ThisFile)
  2304.                 else
  2305.                     set Ext = ""
  2306.                 endif
  2307.                 set To = *( $(SNAToList), $(#) )
  2308.                 AddSectionFilesToCopyList "FilesFor_"$($)"_"$(Option) +
  2309.                                           $(!DriverDir)$(Ext), +
  2310.                                           $(!SNARootDir)"\"$(To)
  2311.             EndForListDo
  2312.             CreateDir $(!SNARootDir)"\system\hwsetup\ecsdlc"
  2313.             AddSectionFilesToCopyList "FilesFor_system_"$(Option) +
  2314.                           $(!DriverDir)$(Ext), +
  2315.                           $(!SNARootDir)"\system\hwsetup\ecsdlc"
  2316.         else
  2317.             AddSectionFilesToCopyList "FilesFor_system_"$(Option) +
  2318.                           $(!DriverDir)"ecsdlc\"$(Ext), +
  2319.                           $(!SNARootDir)"\system"
  2320.             CopyFilesInCopyList
  2321.         endif
  2322.     
  2323.         ifstr(i) $(!DoCopy) == "YES"
  2324.             CopyFilesInCopyList
  2325.         endif
  2326.     else
  2327.         set !_FileRemoveList = {}
  2328.         ForListDo $(SNADirList)
  2329.             set SNADir   = *( $(SNAToList), $(#) )
  2330.             set FullPath = $(!SNARootDir)"\"$(SNADir)
  2331.             set FileList = ^( "FilesFor_"$($)"_"$(Option), 2 )
  2332.             ForListDo $(FileList)
  2333.                 set !_FileRemoveList = >( $(!_FileRemoveList), +
  2334.                                            $(FullPath)"\"$($) ) 
  2335.             EndForListDo
  2336.         EndForListDo
  2337.     endif
  2338.         
  2339.     exit
  2340.  
  2341. ;========================================================================
  2342. ;
  2343. ; FILES
  2344. ; -----
  2345. ; These should list the files to be installed for each particular option.
  2346. ;
  2347. ; FORMAT:
  2348. ; The format is "FilesFor_" concatenated with the directory where they will
  2349. ;   end up, another underscore, and the option whose files these are.
  2350. ;   Currently, directories that can take files are:
  2351. ;     hwsetup - the inf file, its help and libraries
  2352. ;     ntbin  - executables
  2353. ;     ntsys  - system files
  2354. ; The format includes an enumeration constant and a name for each file, as well
  2355. ; as a number of possible flags
  2356. ;       1,              file1.spu
  2357. ;       1,              file2.spu
  2358. ;       ...
  2359. ;
  2360. ;========================================================================
  2361.  
  2362. [FilesFor_hwsetup_ECSDLCLS]
  2363. 1,      ecsdlc.inf
  2364. 1,      ecsdlc.hlp
  2365. 1,      ecsdlc.srl
  2366.  
  2367. [FilesFor_system_ECSDLCLS]
  2368. 1,      ecsdlc.dll
  2369.  
  2370. ;[FilesFor_system_ECSDLCDD]
  2371. ;1,     ecsync.sys
  2372.