![[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 / tape|
Return to oemsetup.inf CVS log | Up to [WindowsNT SDKs] / ntddk / src / setup / inf / tape |
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 = TAPE
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: ; OPTION LIST
28: ; -----------
29: ; This section lists the Option key names. These keys are locale
30: ; independent and used to represent the option in a locale independent
31: ; manner.
32: ;
33: ;-----------------------------------------------------------------------
34:
35: [Options]
36: OEMTAPE = oemtape
37:
38: ;-----------------------------------------------------------------------
39: ; OPTION TEXT SECTION
40: ; -------------------
41: ; These are text strings used to identify the option to the user. There
42: ; are separate sections for each language supported. The format of the
43: ; section name is "OptionsText" concatenated with the Language represented
44: ; by the section.
45: ;
46: ;-----------------------------------------------------------------------
47:
48: [OptionsTextENG]
49: OEMTAPE = "Oem Version of 4 millimeter DAT drive"
50:
51: ;-----------------------------------------------------------------------------------------
52: ; TAPE CLASS DRIVERS:
53: ;
54: ; Order of the information:
55: ;
56: ; Class driver = Type, Group, ErrorControl, Dependencies, EventMessageFile, TypesSupported
57: ;
58: ; NOTE: \ in the dependency list means that the dependency is on a group.
59: ;-----------------------------------------------------------------------------------------
60:
61: [ClassDrivers]
62: oemtape = !SERVICE_KERNEL_DRIVER, "SCSI Class" , !SERVICE_ERROR_NORMAL, "\SCSI Miniport", "%SystemRoot%\System32\IoLogMsg.dll;%SystemRoot%\System32\drivers\oemtape.sys" , 7
63:
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: ; Check if NONE or UNKNOWN
169: ;
170: ifstr(i) $($1) == NONE
171: set Status = STATUS_SUCCESSFUL
172: goto finish_InstallOption
173: else-ifstr(i) $($1) == UNKNOWN
174: set Status = STATUS_SUCCESSFUL
175: goto finish_InstallOption
176: endif
177:
178: ;
179: ; extract parameters
180: ;
181: set Option = $($1)
182: set SrcDir = $($2)
183: set AddCopy = $($3)
184: set DoCopy = $($4)
185: set DoConfig = $($5)
186:
187: ;
188: ; Check if the language requested is supported
189: ;
190: set LanguageList = ^(LanguagesSupported, 1)
191: Ifcontains(i) $($0) in $(LanguageList)
192: else
193: set Status = STATUS_NOLANGUAGE
194: goto finish_InstallOption
195: endif
196: read-syms Strings$($0)
197:
198: ;
199: ; check to see if Option is supported.
200: ;
201:
202: set OptionList = ^(Options, 0)
203: ifcontains $(Option) in $(OptionList)
204: else
205: goto finish_InstallOption
206: endif
207: set OptionList = ""
208:
209: ;
210: ; Option has been defined already
211: ;
212:
213: set ClassDriver = #(Options, $(Option), 1)
214: set Type = $(#(ClassDrivers, $(ClassDriver), 1))
215: set Group = #(ClassDrivers, $(ClassDriver), 2)
216: set ErrorControl = $(#(ClassDrivers, $(ClassDriver), 3))
217: set Dependencies = #(ClassDrivers, $(ClassDriver), 4)
218: set EventMessageFile = #(ClassDrivers, $(ClassDriver), 5)
219: set TypesSupported = #(ClassDrivers, $(ClassDriver), 6)
220:
221: installtheoption = +
222:
223: ;
224: ; Code to add files to copy list
225: ;
226:
227: ifstr(i) $(AddCopy) == "YES"
228: set DoActualCopy = NO
229: set FileToCheck = #(Files-TapeClassDrivers, $(ClassDriver), 2)
230: LibraryProcedure STATUS,$(!LIBHANDLE),CheckFileExistance $(!STF_WINDOWSSYSPATH)"\drivers\"$(FileToCheck)
231: ifstr(i) $(STATUS) == NO
232: set DoActualCopy = YES
233: endif
234:
235: ifstr(i) $(DoActualCopy) == NO
236: shell "subroutn.inf" DriversExist $($0) $(String1)
237: ifint $($ShellCode) != $(!SHELL_CODE_OK)
238: Debug-Output "TAPE.INF: shelling DriversExist failed"
239: goto finish_InstallOption
240: endif
241:
242: ifstr(i) $($R0) == STATUS_CURRENT
243: else-ifstr(i) $($R0) == STATUS_NEW
244: set DoActualCopy = YES
245: else-ifstr(i) $($R0) == STATUS_USERCANCEL
246: Debug-Output "TAPE.INF: User cancelled Tape installation"
247: goto finish_InstallOption
248: else
249: Debug-Output "TAPE.INF: Error reported in DriversExist routine in SUBROUTN.INF"
250: goto finish_InstallOption
251: endif
252: endif
253:
254: ifstr(i) $(DoActualCopy) == YES
255:
256: shell "subroutn.inf" DoAskSourceEx $(SrcDir) $(String2)
257: ifint $($ShellCode) != $(!SHELL_CODE_OK)
258: Debug-Output "TAPE.INF: shelling DoAskSource failed"
259: goto finish_InstallOption
260: endif
261:
262: ifstr(i) $($R0) == STATUS_SUCCESSFUL
263: set SrcDir = $($R1)
264: ifstr(i) $($R2) != ""
265: set DrivesToFree = >($(DrivesToFree), $($R2))
266: endif
267: else
268: Debug-Output "TAPE.INF: User cancelled asking source."
269: goto finish_InstallOption
270: endif
271:
272: install Install-AddCopyOption
273: ifstr(i) $(STF_INSTALL_OUTCOME) != "STF_SUCCESS"
274: Debug-Output "Adding mouse files to copy list failed"
275: goto finish_InstallOption
276: endif
277: else
278: set DoCopy = NO
279: endif
280:
281: endif
282:
283: ifstr(i) $(DoCopy) == "YES"
284: read-syms ProgressCopy$($0)
285: install Install-DoCopyOption
286: ifstr(i) $(STF_INSTALL_OUTCOME) == "STF_FAILURE"
287: Debug-Output "Copying files failed"
288: goto finish_InstallOption
289: else-ifstr(i) $(STF_INSTALL_OUTCOME) == "STF_USERQUIT"
290: set Status = STATUS_USERCANCEL
291: goto finish_InstallOption
292: endif
293: endif
294:
295: ifstr(i) $(DoConfig) == "YES"
296: ;
297: ; first run a privilege check on modifying the setup node
298: ;
299:
300: shell "registry.inf" CheckSetupModify
301: ifint $($ShellCode) != $(!SHELL_CODE_OK)
302: goto finish_InstallOption
303: endif
304:
305: ifstr(i) $($R0) != STATUS_SUCCESSFUL
306: goto finish_InstallOption
307: endif
308:
309: ;
310: ; then make a new tape entry, the entry is created automatically
311: ; enabled
312: ;
313:
314: set ServiceNode = $(ClassDriver)
315: set ServiceBinary = %SystemRoot%\System32\drivers\#(Files-TapeClassDrivers, $(ClassDriver), 2)
316:
317: set ServicesValues = { +
318: {Type, 0, $(!REG_VT_DWORD), $(Type) }, +
319: {Start, 0, $(!REG_VT_DWORD), $(!SERVICE_SYSTEM_START) }, +
320: {Group, 0, $(!REG_VT_SZ), $(Group) }, +
321: {ErrorControl, 0, $(!REG_VT_DWORD), $(ErrorControl) }, +
322: {Dependencies, 0, $(!REG_VT_MULTI_SZ), {$(Dependencies)} }, +
323: {BinaryPathName, 0, $(!REG_VT_EXPAND_SZ), $(ServiceBinary) } +
324: }
325: set ParametersValues = ""
326: set DeviceValues = {}
327: set EventLogValues = { +
328: {EventMessageFile, 0, $(!REG_VT_EXPAND_SZ), $(EventMessageFile) }, +
329: {TypesSupported, 0, $(!REG_VT_DWORD), $(TypesSupported) } +
330: }
331:
332:
333: shell "registry.inf" MakeServicesEntry $(ServiceNode) +
334: $(ServicesValues) +
335: $(ParametersValues) +
336: $(DeviceValues) +
337: $(EventLogValues) +
338: Parameters
339:
340: ifint $($ShellCode) != $(!SHELL_CODE_OK)
341: Debug-Output "Couldn't execute MakeServicesEntry in registry.inf"
342: goto finish_InstallOption
343: endif
344:
345: ifstr(i) $($R0) != STATUS_SUCCESSFUL
346: Debug-Output "MakeServicesEntry failed for tape"
347: goto finish_InstallOption
348: endif
349:
350: endif
351:
352: set Status = STATUS_SUCCESSFUL
353: finish_InstallOption = +
354: ForListDo $(DrivesToFree)
355: LibraryProcedure STATUS,$(!LIBHANDLE), DeleteNetConnection $($) "TRUE"
356: EndForListDo
357:
358: Return $(Status)
359:
360:
361: [Install-AddCopyOption]
362:
363: ;
364: ; Add the files to the copy list
365: ;
366: AddSectionKeyFileToCopyList Files-TapeClassDrivers +
367: $(ClassDriver) +
368: $(SrcDir) +
369: $(!STF_WINDOWSSYSPATH)\drivers
370:
371: exit
372:
373:
374: [Install-DoCopyOption]
375:
376: ;
377: ; Copy files in the copy list
378: ;
379: CopyFilesInCopyList
380: exit
381:
382:
383: ;-------------------------------------------------------------------------
384: ; 4. DeInstallOption:
385: ;
386: ; FUNCTION: To remove files representing Option
387: ; To remove the registry entry corresponding to the Option
388: ;
389: ; INPUT: $($0): Language to use
390: ; $($1): OptionID to install
391: ;
392: ; OUTPUT: $($R0): STATUS: STATUS_SUCCESSFUL |
393: ; STATUS_NOLANGUAGE |
394: ; STATUS_USERCANCEL |
395: ; STATUS_FAILED
396: ;-------------------------------------------------------------------------
397: [DeInstallOption]
398: ;
399: ; Set default values for
400: ;
401: set Status = STATUS_FAILED
402:
403: ;
404: ; extract parameters
405: ;
406: set Option = $($1)
407:
408: ;
409: ; Check if the language requested is supported
410: ;
411: set LanguageList = ^(LanguagesSupported, 1)
412: Ifcontains(i) $($0) in $(LanguageList)
413: else
414: set Status = STATUS_NOLANGUAGE
415: goto finish_DeInstallOption
416: endif
417: read-syms Strings$($0)
418:
419: ;
420: ; check to see if Option is supported.
421: ;
422:
423: set OptionList = ^(Options, 0)
424: ifcontains $(Option) in $(OptionList)
425: else
426: goto finish_DeInstallOption
427: endif
428: set OptionList = ""
429:
430: ;
431: ; fetch details about option
432: ;
433:
434: set ClassDriver = #(Options, $(Option), 1)
435: set ClassFile = #(Files-TapeClassDrivers, $(ClassDriver), 2)
436: set FilePath = $(!STF_WINDOWSSYSPATH)"\drivers\"$(ClassFile)
437:
438: ;
439: ; disable the registry entry
440: ;
441:
442: shell "registry.inf" RemoveServicesEntry $(ClassDriver)
443: ifint $($ShellCode) != $(!SHELL_CODE_OK)
444: Debug-Output "TAPE.INF: Failed to shell RemoveServicesEntry"
445: goto finish_DeInstallOption
446: endif
447:
448: ifstr(i) $($R0) != STATUS_SUCCESSFUL
449: Debug-Output "TAPE.INF: Failed to disable services entry"
450: goto finish_DeInstallOption
451: endif
452:
453: ;
454: ; we won't remove the file because we can only do so during the next boot.
455: ; if the user chooses to reinstall the same driver during this boot
456: ; he will still end up deleting the driver on next boot. if the file
457: ; should be deleted a warning should be put up saying that the user should
458: ; not try to reinstall the driver during this boot
459: ;
460: ; AddFileToDeleteList $(FilePath)
461:
462:
463: set Status = STATUS_SUCCESSFUL
464:
465: finish_DeInstallOption =+
466: return $(Status)
467:
468:
469: ;-------------------------------------------------------------------------
470: ; 5. GetInstalledOptions:
471: ;
472: ; FUNCTION: To find out the list of options which are installed
473: ;
474: ; INPUT: $($0): Language to Use
475: ;
476: ; OUTPUT: $($R0): STATUS: STATUS_SUCCESSFUL |
477: ; STATUS_FAILED
478: ;
479: ; $($R1): List of options installed
480: ; $($R2): Option installed Text List
481: ;-------------------------------------------------------------------------
482: [GetInstalledOptions]
483: set Status = STATUS_FAILED
484: set InstalledOptions = {}
485: set InstalledOptionsText = {}
486:
487: ;
488: ; Check if the language requested is supported
489: ;
490: set LanguageList = ^(LanguagesSupported, 1)
491: Ifcontains(i) $($0) in $(LanguageList)
492: else
493: set Status = STATUS_NOLANGUAGE
494: goto finish_GetInstalledOptions
495: endif
496:
497: set OptionList = ^(Options, 0)
498: ForListDo $(OptionList)
499: set ClassDriver = #(Options, $($), 1)
500: set ClassFile = #(Files-TapeClassDrivers, $(ClassDriver), 2)
501: set FilePath = $(!STF_WINDOWSSYSPATH)"\drivers\"$(ClassFile)
502: LibraryProcedure STATUS,$(!LIBHANDLE),CheckFileExistance $(FilePath)
503: ifstr(i) $(STATUS) == "YES"
504: shell "registry.inf" GetServicesEntryStart $(ClassDriver)
505: ifint $($ShellCode) == $(!SHELL_CODE_OK)
506: ifstr(i) $($R0) == STATUS_SUCCESSFUL
507: ifstr(i) $($R1) != $(!SERVICE_DISABLED)
508: set OptionText = #(OptionsText$($0), $($), 1)
509: set InstalledOptions = >($(InstalledOptions), $($))
510: set InstalledOptionsText = >($(InstalledOptionsText), $(OptionText))
511: endif
512: endif
513: endif
514: endif
515: EndForListDo
516: set Status = STATUS_SUCCESSFUL
517: finish_GetInstalledOptions =+
518: Return $(Status) $(InstalledOptions) $(InstalledOptionsText)
519:
520: ;**************************************************************************
521: ; PROGRESS GUAGE VARIABLES
522: ;**************************************************************************
523:
524: [ProgressCopyENG]
525: ProCaption = "Windows NT Setup"
526: ProCancel = "Cancel"
527: ProCancelMsg = "Windows NT is not correcly installed. Are you sure you want "+
528: "to cancel copying files?"
529: ProCancelCap = "Setup Message"
530: ProText1 = "Copying:"
531: ProText2 = "To:"
532:
533: [StringsENG]
534: String1 = "Tape Device"
535: String2 = "Please enter the full path to the OEM Tape Device "+
536: "files. Then choose Continue."
537:
538: [Source Media Descriptions]
539: 1 = "OEM DISK (TAPE)" , TAGFILE = disk1
540:
541: [Files-TapeClassDrivers]
542: oemtape = 1,oemtape.sys , SIZE=999
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.