![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to other.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|
Return to other.inf CVS log | Up to [WindowsNT SDKs] / ntddk / src / setup / inf |
1.1 root 1: ;--------------------------------------
2: ; HARDWARE OPTION CLASSES WE UNDERSTAND
3: ;--------------------------------------
4:
5: [Options]
6: ;
7: Computer = cpt
8: Video = vio
9: Pointer = ptr
10: Keyboard = kbd
11: Layout = lay
12: Language = lng
13: Printer = prn
14: Scsi = scs
15: Tape = tap
16: Sound = snd
17: Driver = drv
18: NetAdapter = nad
19: NetDriver = ndr
20: NetTransport = nxp
21: NetService = nsv
22: Network = nwk
23: NetProvider = npr
24:
25:
26: [OemOptionFiles]
27: OemFiles = {} ? $(!LIBHANDLE) FindFileInstances $(!STF_WINDOWSSYSPATH)"\oem"$(Abb)"*.inf"
28:
29: ;-----------------------------------------------------------------------
30: ;
31: ; ROUTINE: ReturnOemOptions
32: ;
33: ; DESCRIPTION: This routine finds out if an OEM file representing
34: ; the option exists in the windows sytem directory
35: ; and returns the options represented in the INF.
36: ;
37: ; INPUTS: $0: Language to use
38: ; $1: Option Type (Computer|Video|...)
39: ;
40: ; OUTPUTS: $R0: STATUS: STATUS_SUCCESSFUL |
41: ; STATUS_FAILED
42: ;
43: ; $R1: OemOptionList: This is of form:
44: ; { {Oemfile1, Option1List, Option1TextList},
45: ; {Oemfile2, Option2List, Option2TextList},
46: ; ...
47: ; }
48: ;
49: ;
50: ;------------------------------------------------------------------------
51:
52: [ReturnOemOptions]
53: ;
54: ; Initialize
55: ;
56: set Status = STATUS_FAILED
57: set OemOptionList = {}
58:
59: set Abb = #(Options, $($1), 1)
60: read-syms OemOptionFiles
61: detect OemOptionFiles
62:
63: ForListDo $(OemFiles)
64: set OemFileName = $(!STF_WINDOWSSYSPATH)"\"$($)
65: set Found = FALSE
66: shell "", GetOptionsFromINF $($0) $($1) $(OemFileName)
67: ifstr(i) $($R0) == STATUS_SUCCESSFUL
68: ForListDo $(OemOptionList)
69: ifstr(i) *($($), 2) == $($R1)
70: set Found = TRUE
71: endif
72: EndForListDo
73: ifstr(i) $(Found) == FALSE
74: set OemOptionList = >($(OemOptionList), {$($), $($R1), $($R2)})
75: endif
76: endif
77: EndForListDo
78: set Status = STATUS_SUCCESSFUL
79:
80: finish_GetCurrentOemOptions = +
81: Return $(Status) $(OemOptionList)
82:
83:
84:
85: ;-----------------------------------------------------------------------
86: ;
87: ; ROUTINE: GetOptionsFromINF
88: ;
89: ; DESCRIPTION: This routine checks to see if the specified file exists
90: ; and if it is of the right type and gets option info from
91: ; the INF.
92: ;
93: ; INPUTS: $0: Language To use
94: ; $1: OptionType
95: ; $2: OptionFileName
96: ;
97: ; OUTPUTS: $R0: STATUS: STATUS_SUCCESSFUL |
98: ; STATUS_INFNOTFOUND |
99: ; STATUS_FAILED
100: ;
101: ; $R1: OptionList
102: ; $R2: OPtionTextList
103: ;
104: ;------------------------------------------------------------------------
105:
106: [GetOptionsFromINF]
107:
108: ;
109: ; Initialize
110: ;
111:
112: set Status = STATUS_FAILED
113: set OptionList = {}
114: set OptionTextList = {}
115:
116:
117: set FileToCheck = $($2)
118: install Install-SeeIfFileIsPresent
119: ifstr(i) $(STATUS) != "YES"
120: set Status = STATUS_INFNOTFOUND
121: goto finish_GetOptionsFromINF
122: endif
123:
124: ;
125: ; Check that the INF represents the option we are looking for
126: ;
127: shell $($2) Identify
128: ifstr(i) $($R0) == "STATUS_SUCCESSFUL"
129: ifstr(i) $($R1) == $($1)
130: shell $($2) ReturnOptions $($0) $(!STF_BUSTYPE)
131: ifstr(i) $($R0) == STATUS_SUCCESSFUL
132: set OptionList = $($R1)
133: set OptionTextList = $($R2)
134: set Status = STATUS_SUCCESSFUL
135: goto finish_GetOptionsFromINF
136: endif
137: endif
138: endif
139:
140: finish_GetOptionsFromINF = +
141: Return $(Status) $(OptionList) $(OptionTextList)
142:
143:
144: ;-----------------------------------------------------------------------
145: ;
146: ; ROUTINE: GetNewOEMOption
147: ;
148: ; DESCRIPTION: This routine prompts the user for a new OEM file, presents
149: ; the options supported and if the user chooses one of these
150: ; copies over the INF to the windows system directory.
151: ;
152: ; INPUTS: $0: Language to use
153: ; $1: OemOptionList
154: ; $2: OptionType
155: ; $3: OptDisketteSource
156: ;
157: ; OUTPUTS: $R0: STATUS: STATUS_SUCCESSFUL |
158: ; STATUS_USERCANCEL |
159: ; STATUS_FAILED |
160: ;
161: ; $R1: NewOemOptionList
162: ; $R2: OemOptionChosen
163: ; $R3: OemOptionChosenText
164: ; $R4: OEMINFSource
165: ;
166: ;------------------------------------------------------------------------
167:
168: [GetNewOEMOption]
169: ;
170: set Status = STATUS_FAILED
171:
172: set Option = $($2)
173: set OptDisketteSrc = $($3)
174: set OptDiskette = #(OptionDiskettes$($0), $($2), 1)
175: set InfName1 = "OEMSETUP.INF"
176: set InfName2 = "OEMSETNT.INF"
177:
178: set Abb = #(Options, $(Option), 1)
179:
180: set NewOemOptionList = $($1)
181: set OptionChosen = ""
182: set OptionChosenText = ""
183:
184: ;
185: ; Prompt the user for the diskette containing the INF
186: ;
187:
188: ask_dodiskette = +
189: ;
190: ; Reset the INF name to the standard default
191: ;
192: set InfName = $(InfName1)
193:
194: shell "" DoDiskette $($0) $(OptDiskette) $(OptDisketteSrc)
195: set Status = STATUS_FAILED
196:
197: ifstr(i) $($R0) == STATUS_USERCANCEL
198: set Status = STATUS_USERCANCEL
199: goto finish_GetOEMOption
200: else-ifstr(i) $($R0) == STATUS_FAILED
201: goto finish_GetOEMOption
202: endif
203:
204: set OptDisketteSrc = $($R1)
205:
206: ;
207: ; Check that the Diskette contains an INF we are looking for
208: ;
209: ask_inf_retry = +
210: FlushInf $(InfName)
211: LibraryProcedure FileToCheck, $(!LIBHANDLE), AppendBackSlash $(OptDisketteSrc)
212: set FileToCheck = $(FileToCheck)$(InfName)
213: install Install-SeeIfFileIsPresent
214: set OemSetupFilePath = $(FileToCheck)
215: set NfError = 1
216:
217: ifstr(i) $(STATUS) == YES
218: set NfError = 2
219: ;
220: ; Check that the INF represents the option we are looking for
221: ;
222: shell $(OemSetupFilePath) Identify
223: ifstr(i) $($R0) == "STATUS_SUCCESSFUL"
224: ifstr(i) $($R1) == $(Option)
225: shell $(OemSetupFilePath) ReturnOptions $($0) $(!STF_BUSTYPE)
226: ifstr(i) $($R0) == STATUS_SUCCESSFUL
227: set OemList = $($R1)
228: set OemTextList = $($R2)
229: goto asksingleselection
230: endif
231: endif
232: endif
233: endif
234: ;
235: ; The file isn't in NT format; try the alternate name.
236: ;
237: ifstr(i) $(InfName) == $(InfName1)
238: Set InfName = $(InfName2)
239: goto ask_inf_retry
240: endif
241:
242: read-syms NonFatalError$(NfError)$($0)
243: shell "subroutn.inf" SetupMessage $($0) "NONFATAL" $(NonFatal)
244: goto ask_dodiskette
245:
246: ;
247: ; Present the OEM options to the user. Let the user select. If
248: ; the user selects to cancel, don't change anything, just return
249: ;
250:
251: asksingleselection = +
252: shell "" DoSingleOption $(OemList) $(OemTextList) $(OptDiskette)
253: ifstr(i) $($R0) == STATUS_FAILED
254: set Status = STATUS_FAILED
255: goto finish_GetOEMOption
256: else-ifstr(i) $($R0) == STATUS_USERCANCEL
257: set Status = STATUS_USERCANCEL
258: goto finish_GetOEMOption
259: endif
260:
261: set OptionChosen = $($R1)
262: set OptionChosenText = $($R2)
263:
264: ;
265: ; Determine the file name to use to copy over. First see if the INF
266: ; is a duplicate
267: ;
268:
269: set Duplicate = FALSE
270: ForListDo $($1)
271: ifstr(i) *($($), 2) == $(OemList)
272: set OemFileName = *($($), 1)
273: set Duplicate = TRUE
274: FlushInf $(OemFileName)
275: goto copyinf
276: endif
277: EndForListDo
278:
279: ;
280: ; Not a duplicate, we need to copy it under a unique name.
281: ;
282:
283: set Num = 0
284: nextinf = +
285: ifint $(Num) < 99
286: set OemFileName = "oem"$(Abb)$(Num)".inf"
287: set FileToCheck = $(!STF_WINDOWSSYSPATH)"\"$(OemFileName)
288: install Install-SeeIfFileIsPresent
289: ifstr(i) $(STATUS) == "YES"
290: set-add Num = $(Num) 1
291: goto nextinf
292: else
293: goto copyinf
294: endif
295: endif
296: goto finish_GetOEMOption
297:
298: copyinf = +
299: ;
300: ; copy the INF over to the windows system directory
301: ;
302: set OemSrc = $(OemSetupFilePath)
303: set OemDst = $(!STF_WINDOWSSYSPATH)"\"$(OemFileName)
304: install Install-OemINF
305:
306:
307: ;
308: ; form the new oem option list
309: ;
310: ifstr(i) $(Duplicate) == TRUE
311: else
312: set NewOemOptionList = >($(NewOemOptionList), {$(OemFileName), $(OemList), $(OemTextList)})
313: endif
314: set Status = STATUS_SUCCESSFUL
315:
316: finish_GetOEMOption = +
317: FlushInf $(InfName)
318: Return $(Status) $(NewOemOptionList) $(OptionChosen) $(OptionChosenText) $(OptDisketteSrc)
319:
320: ;-----------------------------------------------------------------------
321: ;
322: ; ROUTINE: GetNewOEMMultiOption
323: ;
324: ; DESCRIPTION: This routine prompts the user for a new OEM file, presents
325: ; the options supported and if the user chooses one of these
326: ; copies over the INF to the windows system directory.
327: ;
328: ; INPUTS: $0: Language to use
329: ; $1: OemOptionList
330: ; $2: OptionTypeList; e.g., { NetService, NetTransport }
331: ; $3: OptDisketteSource
332: ;
333: ; OUTPUTS: $R0: STATUS: STATUS_SUCCESSFUL |
334: ; STATUS_USERCANCEL |
335: ; STATUS_FAILED |
336: ;
337: ; $R1: NewOemOptionList
338: ; $R2: OemOptionChosen
339: ; $R3: OemOptionChosenText
340: ; $R4: OEMINFSource
341: ;
342: ;------------------------------------------------------------------------
343:
344: [GetNewOEMMultiOption]
345:
346: Debug-Output $(STF_CONTEXTINFNAME)": GetNewOEMMultiOption called"
347:
348: set Status = STATUS_FAILED
349:
350: set OptionType = ""
351: set OptionTypeList = $($2)
352: set OptDisketteSrc = $($3)
353: set InfName1 = "OEMSETUP.INF"
354: set InfName2 = "OEMSETNT.INF"
355:
356: read-syms OptionDisketteMulti$($0)
357:
358: Set TypeNames = ^(Options,0)
359: Set TypeAbbs = ^(Options,1)
360:
361: set NewOemOptionList = $($1)
362: set OptionChosen = ""
363: set OptionChosenText = ""
364:
365: ;
366: ; Prompt the user for the diskette containing the INF
367: ;
368:
369: m_ask_dodiskette = +
370: Debug-Output $(STF_CONTEXTINFNAME)": GetNewOEMMultiOption shelling DoDiskette"
371:
372: ;
373: ; Reset the INF name to the standard default
374: ;
375: set InfName = $(InfName1)
376:
377: shell "" DoDiskette $($0) $(OptDiskette) $(OptDisketteSrc)
378: set Status = STATUS_FAILED
379:
380: ifstr(i) $($R0) == STATUS_USERCANCEL
381: set Status = STATUS_USERCANCEL
382: goto m_finish_GetOEMOption
383: else-ifstr(i) $($R0) == STATUS_FAILED
384: goto m_finish_GetOEMOption
385: endif
386:
387: set OptDisketteSrc = $($R1)
388:
389: ;
390: ; Check that the Diskette contains an INF we are looking for
391: ;
392:
393: m_ask_inf_retry = +
394: FlushInf $(InfName)
395: LibraryProcedure FileToCheck, $(!LIBHANDLE), AppendBackSlash $(OptDisketteSrc)
396: set FileToCheck = $(FileToCheck)$(InfName)
397: install Install-SeeIfFileIsPresent
398: set OemSetupFilePath = $(FileToCheck)
399: set NfError = 1
400:
401: ifstr(i) $(STATUS) == YES
402: set NfError = 2
403: ;
404: ; Check that the INF represents the option we are looking for
405: ;
406: shell $(OemSetupFilePath) Identify
407: ifstr(i) $($R0) == "STATUS_SUCCESSFUL"
408: ifcontains(i) $($R1) in $(OptionTypeList)
409: Set OptionType = $($R1)
410: shell $(OemSetupFilePath) ReturnOptions $($0) $(!STF_BUSTYPE)
411: ifstr(i) $($R0) == STATUS_SUCCESSFUL
412: set OemList = $($R1)
413: set OemTextList = $($R2)
414: goto m_asksingleselection
415: endif
416: endif
417: endif
418: endif
419: ;
420: ; The file wasn't found or isn't in NT format; try the alternate name.
421: ;
422: ifstr(i) $(InfName) == $(InfName1)
423: Set InfName = $(InfName2)
424: goto m_ask_inf_retry
425: endif
426:
427: read-syms NonFatalError$(NfError)$($0)
428: shell "subroutn.inf" SetupMessage $($0) "NONFATAL" $(NonFatal)
429: goto m_ask_dodiskette
430:
431: ;
432: ; Present the OEM options to the user. Let the user select. If
433: ; the user selects to cancel, don't change anything, just return
434: ;
435:
436: m_asksingleselection = +
437: shell "" DoSingleOption $(OemList) $(OemTextList) $(OptDiskette)
438: ifstr(i) $($R0) == STATUS_FAILED
439: set Status = STATUS_FAILED
440: goto m_finish_GetOEMOption
441: else-ifstr(i) $($R0) == STATUS_USERCANCEL
442: set Status = STATUS_USERCANCEL
443: goto m_finish_GetOEMOption
444: endif
445:
446: set OptionChosen = $($R1)
447: set OptionChosenText = $($R2)
448:
449: ;
450: ; Determine the file name to use to copy over. First see if the INF
451: ; is a duplicate
452: ;
453:
454: set Duplicate = FALSE
455: ForListDo $($1)
456: ifstr(i) *($($), 2) == $(OemList)
457: set OemFileName = *($($), 1)
458: set Duplicate = TRUE
459: FlushInf $(OemFileName)
460: goto m_copyinf
461: endif
462: EndForListDo
463:
464: ;
465: ; Not a duplicate, we need to copy it under a unique name.
466: ;
467:
468: set Num = 0
469: Set Abb = *($(TypeAbbs),~($(TypeNames),$(OptionType)))
470:
471: m_nextinf = +
472: ifint $(Num) < 99
473: set OemFileName = "oem"$(Abb)$(Num)".inf"
474: Debug-Output "OTHER.INF: Checking winsyspath for "$(OemFileName)
475:
476: set FileToCheck = $(!STF_WINDOWSSYSPATH)"\"$(OemFileName)
477: install Install-SeeIfFileIsPresent
478: ifstr(i) $(STATUS) == "YES"
479: set-add Num = $(Num) 1
480: goto m_nextinf
481: else
482: goto m_copyinf
483: endif
484: endif
485: goto m_finish_GetOEMOption
486:
487: m_copyinf = +
488: ;
489: ; copy the INF over to the windows system directory
490: ;
491: set OemSrc = $(OemSetupFilePath)
492: set OemDst = $(!STF_WINDOWSSYSPATH)"\"$(OemFileName)
493: install Install-OemINF
494: ;
495: ; form the new oem option list
496: ;
497: ifstr(i) $(Duplicate) == TRUE
498: else
499: set NewOemOptionList = >($(NewOemOptionList), {$(OemFileName), $(OemList), $(OemTextList)})
500: endif
501: set Status = STATUS_SUCCESSFUL
502:
503: m_finish_GetOEMOption = +
504: FlushInf $(InfName)
505: Return $(Status) $(NewOemOptionList) $(OptionChosen) $(OptionChosenText) $(OptDisketteSrc)
506:
507: ;-----------------------------------------------------------------------
508: ;
509: ; ROUTINE: DoDiskette
510: ;
511: ; DESCRIPTION: This routine prompts the OEM for the source of the OEM
512: ; Diskette
513: ;
514: ; INPUTS: $0: Language
515: ; $1: OemDiskette
516: ; $2: OemDisketteSrc
517: ;
518: ; OUTPUTS: $R0: STATUS: STATUS_SUCCESSFUL |
519: ; STATUS_USERCANCEL |
520: ; STATUS_FAILED
521: ;
522: ; $R1: Diskette Src
523: ;
524: ;------------------------------------------------------------------------
525:
526:
527: [DoDiskette]
528: ;
529: ;
530: set Status = STATUS_FAILED
531: set OemDiskette = $($1)
532: set OemDisketteSrc = $($2)
533:
534: Debug-Output $(STF_CONTEXTINFNAME)": DoDiskette called"
535:
536: read-syms DisketteDlg$($0)
537: ui start "Diskette"
538: ifstr(i) $(DLGEVENT) == "CONTINUE"
539: set OemDisketteSrc = $(EditTextOut)
540: ui pop 1
541: set Status = STATUS_SUCCESSFUL
542: goto finish_dodiskette
543: else-ifstr(i) $(DLGEVENT) == "BACK"
544: ui pop 1
545: set Status = STATUS_USERCANCEL
546: goto finish_dodiskette
547: else
548: ui pop 1
549: goto finish_dodiskette
550: endif
551:
552: finish_dodiskette = +
553: Return $(Status) $(OemDisketteSrc)
554:
555: ;-----------------------------------------------------------------------
556: ;
557: ; ROUTINE: DoSingleOption
558: ;
559: ; DESCRIPTION: This routine presents the OEM Options to the user to
560: ; get a selectiom
561: ;
562: ; INPUTS: $0: OptionList
563: ; $1: OptionTextList
564: ; $2: OptionTypeText
565: ;
566: ; OUTPUTS: $R0: STATUS: STATUS_SUCCESSFUL |
567: ; STATUS_USERCANCEL |
568: ; STATUS_FAILED
569: ;
570: ; $R1: OptionChosen
571: ; $R2: OptionChosenText
572: ;
573: ;------------------------------------------------------------------------
574:
575:
576: [DoSingleOption]
577:
578: set Status = STATUS_FAILED
579: set OemOptionChosen = ""
580: set OemOptionChosenText = ""
581: set OemOptionList = $($0)
582: set OemOptionTextList = $($1)
583: set OemOptionTypeText = $($2)
584:
585: read-syms OemSingleOptionDlg$(!STF_LANGUAGE)
586: ui start "Diskette"
587: ifstr(i) $(DLGEVENT) == "CONTINUE"
588:
589: ui pop 1
590: ifstr(i) $(ListItemsOut) == ""
591: set Status = STATUS_USERCANCEL
592: else
593: set OemOptionChosenText = $(ListItemsOut)
594: set OemOptionChosen = *($($0), ~($(ListItemsIn), $(ListItemsOut)))
595: set Status = STATUS_SUCCESSFUL
596: endif
597:
598: goto finish_dosingleoption
599:
600: else-ifstr(i) $(DLGEVENT) == "BACK"
601: ui pop 1
602: set Status = STATUS_USERCANCEL
603: goto finish_dosingleoption
604: else
605: ui pop 1
606: set Status = STATUS_FAILED
607: goto finish_dosingleoption
608:
609: endif
610:
611: finish_dosingleoption = +
612: Return $(Status) $(OemOptionChosen) $(OemOptionChosenText)
613:
614:
615:
616:
617:
618: [Install-SeeIfFileIsPresent]
619: LibraryProcedure STATUS,$(!LIBHANDLE), CheckFileExistance $(FileToCheck)
620: exit
621:
622:
623:
624:
625: [Install-OemINF]
626: LibraryProcedure STATUS,$(!LIBHANDLE), CopySingleFile $(OemSrc) $(OemDst)
627: exit
628:
629:
630:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.