![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to oemsetup.inf CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [WindowsNT SDKs] / ntddk / src / setup / inf / scsi|
Return to oemsetup.inf CVS log | Up to [WindowsNT SDKs] / ntddk / src / setup / inf / scsi |
1.1 root 1: ;-----------------------------------------------------------------------
2: ; OPTION TYPE
3: ; -----------
4: ; This identifies the Option type we are dealing with. The different
5: ; possible types are:
6: ;
7: ; COMPUTER, VIDEO, POINTER, KEYBOARD, LAYOUT, SCSI, TAPE, PRINTER, ...
8: ;-----------------------------------------------------------------------
9:
10: [Identification]
11: OptionType = SCSI
12:
13: ;-----------------------------------------------------------------------
14: ; LANGUAGES SUPPORTED
15: ; -------------------
16: ;
17: ; The languages supported by the INF, For every language supported
18: ; we need to have a separate text section for every displayable text
19: ; section.
20: ;
21: ;-----------------------------------------------------------------------
22:
23: [LanguagesSupported]
24: ENG
25:
26:
27: ;-----------------------------------------------------------------------
28: ; OPTION LIST
29: ; -----------
30: ; This section lists the Option key names. These keys are locale
31: ; independent and used to represent the option in a locale independent
32: ; manner.
33: ;
34: ;-----------------------------------------------------------------------
35:
36: [Options]
37: "OEMSCSI" = oemscsi
38:
39: ;-----------------------------------------------------------------------
40: ; OPTION TEXT SECTION
41: ; -------------------
42: ; These are text strings used to identify the option to the user. There
43: ; are separate sections for each language supported. The format of the
44: ; section name is "OptionsText" concatenated with the Language represented
45: ; by the section.
46: ;
47: ;-----------------------------------------------------------------------
48:
49: [OptionsTextENG]
50: "OEMSCSI" = "OEM SCSI for Adaptec 154x/164x"
51:
52:
53: ;-----------------------------------------------------------------------------------------
54: ; SCSI MINIPORT DRIVERS:
55: ;
56: ; Order of the information:
57: ;
58: ; Class driver = Type, Group, ErrorControl, Tag, EventMessageFile, TypesSupported
59: ;
60: ;-----------------------------------------------------------------------------------------
61:
62: [MiniportDrivers]
63: oemscsi = !SERVICE_KERNEL_DRIVER, "SCSI Miniport", !SERVICE_ERROR_NORMAL, 17, %SystemRoot%\System32\IoLogMsg.dll , 7
64:
65: ;---------------------------------------------------------------------------
66: ; 1. Identify
67: ;
68: ; DESCRIPTION: To verify that this INF deals with the same type of options
69: ; as we are choosing currently.
70: ;
71: ; INPUT: None
72: ;
73: ; OUTPUT: $($R0): STATUS: STATUS_SUCCESSFUL
74: ; $($R1): Option Type (COMPUTER ...)
75: ; $($R2): Diskette description
76: ;---------------------------------------------------------------------------
77:
78: [Identify]
79: ;
80: ;
81: read-syms Identification
82:
83: set Status = STATUS_SUCCESSFUL
84: set Identifier = $(OptionType)
85: set Media = #("Source Media Descriptions", 1, 1)
86:
87: Return $(Status) $(Identifier) $(Media)
88:
89:
90:
91: ;------------------------------------------------------------------------
92: ; 2. ReturnOptions:
93: ;
94: ; DESCRIPTION: To return the option list supported by this INF and the
95: ; localised text list representing the options.
96: ;
97: ;
98: ; INPUT: $($0): Language used. ( ENG | FRN | ... )
99: ;
100: ; OUTPUT: $($R0): STATUS: STATUS_SUCCESSFUL |
101: ; STATUS_NOLANGUAGE
102: ; STATUS_FAILED
103: ;
104: ; $($R1): Option List
105: ; $($R2): Option Text List
106: ;------------------------------------------------------------------------
107:
108: [ReturnOptions]
109: ;
110: ;
111: set Status = STATUS_FAILED
112: set OptionList = {}
113: set OptionTextList = {}
114:
115: ;
116: ; Check if the language requested is supported
117: ;
118: set LanguageList = ^(LanguagesSupported, 1)
119: Ifcontains(i) $($0) in $(LanguageList)
120: goto returnoptions
121: else
122: set Status = STATUS_NOLANGUAGE
123: goto finish_ReturnOptions
124: endif
125:
126: ;
127: ; form a list of all the options and another of the text representing
128: ;
129:
130: returnoptions = +
131: set OptionList = ^(Options, 0)
132: set OptionTextList = ^(OptionsText$($0), 1)
133: set Status = STATUS_SUCCESSFUL
134:
135: finish_ReturnOptions = +
136: Return $(Status) $(OptionList) $(OptionTextList)
137:
138:
139: ;
140: ; 3. InstallOption:
141: ;
142: ; FUNCTION: To copy files representing Options
143: ; To configure the installed option
144: ; To update the registry for the installed option
145: ;
146: ; INPUT: $($0): Language to use
147: ; $($1): OptionID to install
148: ; $($2): SourceDirectory
149: ; $($3): AddCopy (YES | NO)
150: ; $($4): DoCopy (YES | NO)
151: ; $($5): DoConfig (YES | NO)
152: ;
153: ; OUTPUT: $($R0): STATUS: STATUS_SUCCESSFUL |
154: ; STATUS_NOLANGUAGE |
155: ; STATUS_USERCANCEL |
156: ; STATUS_FAILED
157: ;
158:
159: [InstallOption]
160:
161: ;
162: ; Set default values for
163: ;
164: set Status = STATUS_FAILED
165: set DrivesToFree = {}
166:
167: ;
168: ; extract parameters
169: ;
170: set Option = $($1)
171: set SrcDir = $($2)
172: set AddCopy = $($3)
173: set DoCopy = $($4)
174: set DoConfig = $($5)
175:
176: ;
177: ; Check if the language requested is supported
178: ;
179: set LanguageList = ^(LanguagesSupported, 1)
180: Ifcontains(i) $($0) in $(LanguageList)
181: else
182: set Status = STATUS_NOLANGUAGE
183: goto finish_InstallOption
184: endif
185: read-syms Strings$($0)
186:
187: ;
188: ; check to see if Option is supported.
189: ;
190:
191: set OptionList = ^(Options, 0)
192: ifcontains $(Option) in $(OptionList)
193: else
194: Debug-Output "SCSI.INF: SCSI option is not supported."
195: goto finish_InstallOption
196: endif
197: set OptionList = ""
198:
199: ;
200: ; Option has been defined already
201: ;
202:
203: set MiniportDriver = #(Options, $(Option), 1)
204: set Type = $(#(MiniportDrivers, $(MiniportDriver), 1))
205: set Group = #(MiniportDrivers, $(MiniportDriver), 2)
206: set ErrorControl = $(#(MiniportDrivers, $(MiniportDriver), 3))
207: set Tag = #(MiniportDrivers, $(MiniportDriver), 4)
208: set EventMessageFile = #(MiniportDrivers, $(MiniportDriver), 5)
209: set TypesSupported = #(MiniportDrivers, $(MiniportDriver), 6)
210:
211: set Start = $(!SERVICE_BOOT_START)
212:
213: installtheoption = +
214:
215: ;
216: ; Code to add files to copy list
217: ;
218:
219: ifstr(i) $(AddCopy) == "YES"
220: set DoActualCopy = NO
221: set FileToCheck = #(Files-ScsiMiniportDrivers, $(MiniportDriver), 2)
222: LibraryProcedure STATUS,$(!LIBHANDLE),CheckFileExistance $(!STF_WINDOWSSYSPATH)"\drivers\"$(FileToCheck)
223: ifstr(i) $(STATUS) == NO
224: set DoActualCopy = YES
225: endif
226:
227: ifstr(i) $(DoActualCopy) == NO
228: shell "subroutn.inf" DriversExist $($0) $(String1)
229: ifint $($ShellCode) != $(!SHELL_CODE_OK)
230: Debug-Output "SCSI.INF: shelling DriversExist failed"
231: goto finish_InstallOption
232: endif
233:
234: ifstr(i) $($R0) == STATUS_CURRENT
235: else-ifstr(i) $($R0) == STATUS_NEW
236: set DoActualCopy = YES
237: else-ifstr(i) $($R0) == STATUS_USERCANCEL
238: Debug-Output "SCSI.INF: User cancelled SCSI installation"
239: goto finish_InstallOption
240: else
241: Debug-Output "SCSI.INF: Error reported in DriversExist routine in SUBROUTN.INF"
242: goto finish_InstallOption
243: endif
244: endif
245:
246: ifstr(i) $(DoActualCopy) == YES
247:
248: shell "subroutn.inf" DoAskSourceEx $(SrcDir) $(String2)
249: ifint $($ShellCode) != $(!SHELL_CODE_OK)
250: Debug-Output "SCSI.INF: shelling DoAskSourceEx failed"
251: goto finish_InstallOption
252: endif
253:
254: ifstr(i) $($R0) == STATUS_SUCCESSFUL
255: set SrcDir = $($R1)
256: ifstr(i) $($R2) != ""
257: set DrivesToFree = >($(DrivesToFree), $($R2))
258: endif
259: else
260: Debug-Output "SCSI.INF: User cancelled asking source."
261: goto finish_InstallOption
262: endif
263:
264: install Install-AddCopyOption
265: ifstr(i) $(STF_INSTALL_OUTCOME) != "STF_SUCCESS"
266: Debug-Output "Adding SCSI files to copy list failed"
267: goto finish_InstallOption
268: endif
269: else
270: set DoCopy = NO
271: endif
272:
273: endif
274:
275: ifstr(i) $(DoCopy) == "YES"
276: read-syms ProgressCopy$($0)
277: install Install-DoCopyOption
278: ifstr(i) $(STF_INSTALL_OUTCOME) == "STF_FAILURE"
279: Debug-Output "Copying files failed"
280: goto finish_InstallOption
281: else-ifstr(i) $(STF_INSTALL_OUTCOME) == "STF_USERQUIT"
282: set Status = STATUS_USERCANCEL
283: goto finish_InstallOption
284: endif
285: endif
286:
287: ifstr(i) $(DoConfig) == "YES"
288: ;
289: ; first run a privilege check on modifying the setup node
290: ;
291:
292: shell "registry.inf" CheckSetupModify
293: ifint $($ShellCode) != $(!SHELL_CODE_OK)
294: goto finish_InstallOption
295: endif
296:
297: ifstr(i) $($R0) != STATUS_SUCCESSFUL
298: goto finish_InstallOption
299: endif
300:
301: ;
302: ; then make a new SCSI entry, the entry is created automatically
303: ; enabled
304: ;
305:
306: set ServiceNode = $(MiniportDriver)
307: set ServiceBinary = System32\drivers\#(Files-ScsiMiniportDrivers, $(MiniportDriver), 2)
308:
309: set ServicesValues = { +
310: {Type, 0, $(!REG_VT_DWORD), $(Type) }, +
311: {Start, 0, $(!REG_VT_DWORD), $(Start) }, +
312: {Group, 0, $(!REG_VT_SZ), $(Group) }, +
313: {ErrorControl, 0, $(!REG_VT_DWORD), $(ErrorControl) }, +
314: {Tag, 0, $(!REG_VT_DWORD), $(Tag) }, +
315: {BinaryPathName, 0, $(!REG_VT_EXPAND_SZ), $(ServiceBinary) } +
316: }
317: set ParametersValues = ""
318: set DeviceValues = {}
319: set EventLogValues = { +
320: {EventMessageFile, 0, $(!REG_VT_EXPAND_SZ), $(EventMessageFile) }, +
321: {TypesSupported, 0, $(!REG_VT_DWORD), $(TypesSupported) } +
322: }
323:
324: shell "registry.inf" MakeServicesEntry $(ServiceNode) +
325: $(ServicesValues) +
326: $(ParametersValues) +
327: $(DeviceValues) +
328: $(EventLogValues) +
329: Parameters
330:
331:
332:
333: ifint $($ShellCode) != $(!SHELL_CODE_OK)
334: Debug-Output "Couldn't execute MakeServicesEntry in registry.inf"
335: goto finish_InstallOption
336: endif
337:
338: ifstr(i) $($R0) != STATUS_SUCCESSFUL
339: Debug-Output "MakeServicesEntry failed for SCSI"
340: goto finish_InstallOption
341: endif
342:
343: endif
344:
345: set Status = STATUS_SUCCESSFUL
346: finish_InstallOption = +
347: ForListDo $(DrivesToFree)
348: LibraryProcedure STATUS,$(!LIBHANDLE), DeleteNetConnection $($) "TRUE"
349: EndForListDo
350:
351: Return $(Status)
352:
353:
354: [Install-AddCopyOption]
355:
356: ;
357: ; Add the files to the copy list
358: ;
359: AddSectionKeyFileToCopyList Files-ScsiMiniportDrivers +
360: $(MiniportDriver) +
361: $(SrcDir) +
362: $(!STF_WINDOWSSYSPATH)\drivers
363:
364: exit
365:
366:
367: [Install-DoCopyOption]
368:
369: ;
370: ; Copy files in the copy list
371: ;
372: CopyFilesInCopyList
373: exit
374:
375: ;-------------------------------------------------------------------------
376: ; 4. DeInstallOption:
377: ;
378: ; FUNCTION: To remove files representing Option
379: ; To remove the registry entry corresponding to the Option
380: ;
381: ; INPUT: $($0): Language to use
382: ; $($1): OptionID to install
383: ;
384: ; OUTPUT: $($R0): STATUS: STATUS_SUCCESSFUL |
385: ; STATUS_NOLANGUAGE |
386: ; STATUS_USERCANCEL |
387: ; STATUS_FAILED
388: ;-------------------------------------------------------------------------
389: [DeInstallOption]
390: ;
391: ; Set default values for
392: ;
393: set Status = STATUS_FAILED
394: ;
395: ; extract parameters
396: ;
397: set Option = $($1)
398:
399: ;
400: ; Check if the language requested is supported
401: ;
402: set LanguageList = ^(LanguagesSupported, 1)
403: Ifcontains(i) $($0) in $(LanguageList)
404: else
405: set Status = STATUS_NOLANGUAGE
406: goto finish_DeInstallOption
407: endif
408: read-syms Strings$($0)
409:
410: ;
411: ; check to see if Option is supported.
412: ;
413:
414: set OptionList = ^(Options, 0)
415: ifcontains $(Option) in $(OptionList)
416: else
417: goto finish_DeInstallOption
418: endif
419: set OptionList = ""
420:
421: ;
422: ; fetch details about option
423: ;
424:
425: set MiniportDriver = #(Options, $(Option), 1)
426: set MiniportFile = #(Files-ScsiMiniportDrivers, $(MiniportDriver), 2)
427: set FilePath = $(!STF_WINDOWSSYSPATH)"\drivers\"$(MiniportFile)
428:
429: ;
430: ; check to see if file is installed
431: ; if not give success
432: ;
433:
434: LibraryProcedure STATUS,$(!LIBHANDLE),CheckFileExistance $(FilePath)
435: ifstr(i) $(STATUS) == "NO"
436: set Status = STATUS_SUCCESSFUL
437: goto finish_DeInstallOption
438: endif
439:
440: shell "registry.inf" GetServicesEntryStart $(MiniportDriver)
441: ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
442: ; this could happen if there is no start value or there is no
443: ; key, in which case the option is not installed
444: set Status = STATUS_SUCCESSFUL
445: goto finish_DeInstallOption
446: endif
447:
448: ifstr(i) $($R1) == $(!SERVICE_BOOT_START)
449: shell "subroutn.inf" SetupMessage $(!STF_LANGUAGE) "WARNING" $(String3)
450: ifstr(i) $($R0) != STATUS_SUCCESSFUL
451: goto do_removal
452: endif
453: ifstr(i) $($R1) == "CANCEL"
454: goto finish_DeInstallOption
455: endif
456: endif
457:
458: do_removal =+
459: ;
460: ; disable the registry entry
461: ;
462:
463: shell "registry.inf" RemoveServicesEntry $(MiniportDriver)
464: ifint $($ShellCode) != $(!SHELL_CODE_OK)
465: Debug-Output "SCSI.INF: Failed to shell RemoveServicesEntry"
466: goto finish_DeInstallOption
467: endif
468:
469: ifstr(i) $($R0) != STATUS_SUCCESSFUL
470: Debug-Output "SCSI.INF: Failed to disable services entry"
471: goto finish_DeInstallOption
472: endif
473:
474: ;
475: ; we won't remove the file because we can only do so during the next boot.
476: ; if the user chooses to reinstall the same driver during this boot
477: ; he will still end up deleting the driver on next boot. if the file
478: ; should be deleted a warning should be put up saying that the user should
479: ; not try to reinstall the driver during this boot
480: ;
481: ; AddFileToDeleteList $(FilePath)
482:
483: set Status = STATUS_SUCCESSFUL
484:
485: finish_DeInstallOption =+
486: return $(Status)
487:
488:
489: ;-------------------------------------------------------------------------
490: ; 5. GetInstalledOptions:
491: ;
492: ; FUNCTION: To find out the list of options which are installed
493: ;
494: ; INPUT: $($0): Language to Use
495: ;
496: ; OUTPUT: $($R0): STATUS: STATUS_SUCCESSFUL |
497: ; STATUS_FAILED
498: ;
499: ; $($R1): List of options installed
500: ; $($R2): Option installed Text List
501: ;-------------------------------------------------------------------------
502: [GetInstalledOptions]
503: set Status = STATUS_FAILED
504: set InstalledOptions = {}
505: set InstalledOptionsText = {}
506:
507: ;
508: ; Check if the language requested is supported
509: ;
510: set LanguageList = ^(LanguagesSupported, 1)
511: Ifcontains(i) $($0) in $(LanguageList)
512: else
513: set Status = STATUS_NOLANGUAGE
514: goto finish_GetInstalledOptions
515: endif
516:
517: set OptionList = ^(Options, 0)
518: ForListDo $(OptionList)
519: set MiniportDriver = #(Options, $($), 1)
520: set MiniportFile = #(Files-ScsiMiniportDrivers, $(MiniportDriver), 2)
521: set FilePath = $(!STF_WINDOWSSYSPATH)"\drivers\"$(MiniportFile)
522: LibraryProcedure STATUS,$(!LIBHANDLE),CheckFileExistance $(FilePath)
523: ifstr(i) $(STATUS) == "YES"
524: shell "registry.inf" GetServicesEntryStart $(MiniportDriver)
525: ifint $($ShellCode) == $(!SHELL_CODE_OK)
526: ifstr(i) $($R0) == STATUS_SUCCESSFUL
527: ifstr(i) $($R1) != $(!SERVICE_DISABLED)
528:
529: set OptionText = #(OptionsText$($0), $($), 1)
530: set InstalledOptions = >($(InstalledOptions), $($))
531: set InstalledOptionsText = >($(InstalledOptionsText), $(OptionText))
532:
533: endif
534: endif
535: endif
536: endif
537: EndForListDo
538: set Status = STATUS_SUCCESSFUL
539: finish_GetInstalledOptions =+
540: Return $(Status) $(InstalledOptions) $(InstalledOptionsText)
541:
542:
543: ;**************************************************************************
544: ; PROGRESS GUAGE VARIABLES
545: ;**************************************************************************
546:
547: [ProgressCopyENG]
548: ProCaption = "Windows NT Setup"
549: ProCancel = "Cancel"
550: ProCancelMsg = "Windows NT is not correcly installed. Are you sure you want "+
551: "to cancel copying files?"
552: ProCancelCap = "Setup Message"
553: ProText1 = "Copying:"
554: ProText2 = "To:"
555:
556: [StringsENG]
557: String1 = "SCSI Adapter"
558: String2 = "Please enter the full path to the OEM SCSI "+
559: "Adapter files. Then choose Continue."
560: String3 = "The SCSI Adapter has been marked as a boot device. Removing "+
561: "it may cause the system not to boot."$(!LF)$(!LF)"Are you sure "+
562: "you want to remove the Adapter."
563:
564: [Source Media Descriptions]
565: 1 = "OEM DISK (SCSI)" , TAGFILE = disk1
566:
567: [Files-ScsiMiniportDrivers]
568: oemscsi = 1,oemscsi.sys , SIZE=999
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.