![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to subroutn.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 subroutn.inf CVS log | Up to [WindowsNT SDKs] / ntddk / src / setup / inf |
1.1 root 1: ;=====================================================================
2: ; THIS INF CONTAINS ALL THE SUBROUTINES COMMONLY USED IN THE SETUP INF
3: ;=====================================================================
4: ;
5: ;
6: ;========================================
7: ; MESSAGE REPORTING SUBROUTINES:
8: ;========================================
9: ;
10: ; 1. SetupMessage: To display warnings, fatal errors, non fatal errors and
11: ; status messages.
12: ;
13: ; 2. QueryUserQuit: To ask if the user wants to quit setup.
14: ;
15:
16: ;========================================
17: ; ALLOCATION AND DEALLOCATION OF DRIVES
18: ;========================================
19: ;
20: ; 1. AllocateUnusedDrive: To allocate a drive letter to use for reassignment
21: ;
22: ; 2. FreeUnusedDrive: To free a drive to the unused drive list
23: ;
24:
25:
26:
27: ;========================================
28: ; MESSAGE REPORTING SUBROUTINES:
29: ;========================================
30:
31: ;-----------------------------------------------------------------------
32: ; ROUTINE: SetupMessage
33: ;
34: ; DESCRIPTION: This routine lets the user
35: ;
36: ; INPUTS: $0: Language To Use
37: ; $1: MessageType: WARNING | FATAL | NONFATAL | STATUS
38: ; $2: MessageText.
39: ;
40: ; OUTPUTS: $R0: STATUS: STATUS_SUCCESSFUL |
41: ; STATUS_NOLANGUAGE
42: ; STATUS_FAILED
43: ;
44: ; $R1: DLGEVENT: OK | CANCEL
45: ;
46: ;------------------------------------------------------------------------
47:
48: [SetupMessage]
49:
50: ;
51: ; Initialize
52: ;
53:
54: set Status = STATUS_FAILED
55: set UserAction = "CANCEL"
56:
57: ;
58: ; See if the language indicated is supported
59: ;
60: ;
61: ; Check if the language requested is supported
62: ;
63: set LanguageList = ^(LanguageID, 1)
64: Ifcontains(i) $($0) in $(LanguageList)
65: goto displaymessage
66: else
67: set Status = STATUS_NOLANGUAGE
68: goto finish_SetupMessage
69: endif
70:
71: ;
72: ; examine the message type and accordingly read in the right dialog
73: ; parameters
74: ;
75:
76: displaymessage = +
77: set DlgText = $($2)
78:
79: ifstr(i) $($1) == "WARNING"
80: read-syms WarningDlg$($0)
81:
82: else-ifstr(i) $($1) == "FATAL"
83: read-syms FatalDlg$($0)
84:
85: else-ifstr(i) $($1) == "NONFATAL"
86: read-syms NonfatalDlg$($0)
87:
88: else-ifstr(i) $($1) == "STATUS"
89: read-syms StatusDlg$($0)
90:
91: else
92: goto finish_SetupMessage
93:
94: endif
95:
96: ui start "SetupMessage"
97: ifstr(i) $(DLGEVENT) == "OK"
98: set Status = STATUS_SUCCESSFUL
99: set UserAction = $(DLGEVENT)
100:
101: else-ifstr(i) $(DLGEVENT) == "CANCEL"
102: set Status = STATUS_SUCCESSFUL
103: set UserAction = $(DLGEVENT)
104: else
105: endif
106:
107: finish_SetupMessage = +
108: Return $(Status) $(UserAction)
109: end
110:
111:
112:
113:
114: ;-----------------------------------------------------------------------
115: ; ROUTINE: QueryUserQuit
116: ;
117: ; DESCRIPTION: This routine queries whether the user wants to quit setup
118: ;
119: ; INPUTS: $0: Language To Use
120: ;
121: ; OUTPUTS: $R0: Status: STATUS_SUCCESSFUL |
122: ; STATUS_NOLANGUAGE |
123: ; STATUS_FAILED
124: ;
125: ; $R1: UserAction: OK | CANCEL
126: ;
127: ;------------------------------------------------------------------------
128:
129: [QueryUserQuit]
130:
131: set Status = STATUS_FAILED
132: set UserAction = CANCEL
133:
134: ;
135: ; See if the language indicated is supported
136: ;
137: ;
138: ; Check if the language requested is supported
139: ;
140: set LanguageList = ^(LanguageID, 1)
141: Ifcontains(i) $($0) in $(LanguageList)
142: else
143: set Status = STATUS_NOLANGUAGE
144: goto fin_QueryUserQuit
145: endif
146:
147: ;
148: ; read in quit message
149: ;
150: read-syms ExitWarningDlg$($0)
151: ui start "ExitWarning"
152: ifstr(i) $(DLGEVENT) == "YES"
153: set Status = STATUS_SUCCESSFUL
154: set UserAction = "OK"
155:
156: else-ifstr(i) $(DLGEVENT) == "NO"
157: set Status = STATUS_SUCCESSFUL
158: set UserAction = "CANCEL"
159: else
160: endif
161:
162: fin_QueryUserQuit = +
163: Return $(Status) $(UserAction)
164:
165:
166:
167: ;-----------------------------------------------------------------------
168: ;
169: ; ROUTINE: PushBillboard
170: ;
171: ; DESCRIPTION: Put up a billboard or update the text in the existing billboard
172: ;
173: ; INPUTS: $0: Billboard template
174: ; $1: Billboard message
175: ;
176: ; OUTPUTS: None
177: ;------------------------------------------------------------------------
178:
179: [PushBillboard]
180: read-syms BillboardDlg$(!STF_LANGUAGE)
181: ui start "Billboard"
182: Return
183:
184:
185: ;-----------------------------------------------------------------------
186: ;
187: ; ROUTINE: PopBillboard
188: ;
189: ; DESCRIPTION: Pop off a billboard
190: ;
191: ; INPUTS: None
192: ;
193: ; OUTPUTS: None
194: ;------------------------------------------------------------------------
195:
196: [PopBillboard]
197: ui pop 1
198: Return
199:
200:
201: ;========================================
202: ; ALLOCATION AND DEALLOCATION OF DRIVES
203: ;========================================
204:
205: ;-----------------------------------------------------------------------
206: ; ROUTINE: AllocateUnusedDrive
207: ;
208: ; DESCRIPTION: This routine lets the user allocate a drive from the unused
209: ; drive pool.
210: ;
211: ; INPUTS: None
212: ;
213: ; OUTPUTS: $R0: STATUS: STATUS_SUCCESSFUL |
214: ; STATUS_FAILED
215: ; $R1: Drive allocated.
216: ;
217: ;------------------------------------------------------------------------
218:
219: [AllocateUnusedDrive]
220: ;
221: ;
222: set Status = STATUS_FAILED
223: set Drive = ""
224: ;
225: ifstr(i) $(!STF_UNUSEDDRIVES) == {}
226: goto finish_allocate
227: else-ifstr(i) $(!STF_UNUSEDDRIVES) == ""
228: goto finish_allocate
229: else
230: set NewDriveList = {}
231: ForListDo $(!STF_UNUSEDDRIVES)
232: ifstr(i) $(#) != 1
233: set NewDriveList = >($(NewDriveList), $($))
234: else
235: set Drive = $($)
236: set Status = STATUS_SUCCESSFUL
237: endif
238: EndForListDo
239: set !STF_UNUSEDDRIVES = $(NewDriveList)
240: endif
241:
242: finish_allocate = +
243: Return $(Status) $(Drive)
244:
245:
246: ;-----------------------------------------------------------------------
247: ; ROUTINE: FreeUnusedDrive
248: ;
249: ; DESCRIPTION: This routine lets the user allocate a drive from the unused
250: ; drive pool.
251: ;
252: ; INPUTS: $0: Drive to free
253: ;
254: ; OUTPUTS: None
255: ;
256: ;
257: ;------------------------------------------------------------------------
258:
259: [FreeUnusedDrive]
260:
261: set !STF_UNUSEDDRIVES = >($(!STF_UNUSEDDRIVES), $($0))
262: Return
263:
264:
265: ;-----------------------------------------------------------------------
266: ; ROUTINE: DriversExist
267: ;
268: ; DESCRIPTION: This routine informs the user that the drivers for the
269: ; option he has selected exist on the destination and asks
270: ; whether they should be replaced.
271: ;
272: ; INPUTS: $0: Language To Use
273: ; $1: Dialog Text
274: ;
275: ; OUTPUTS: STATUS_CURRENT if the current files are to be used
276: ; STATUS_NEW if new files are to be copied over
277: ; STATUS_USERCANCEL if user chose to cancel installation
278: ; STATUS_NOLANGUAGE if the language requested is not supported
279: ; STATUS_FAILED if any other failure exists
280: ;
281: ;------------------------------------------------------------------------
282: [DriversExist]
283:
284: set Status = STATUS_FAILED
285:
286: ;
287: ; See if the language indicated is supported
288: ;
289:
290: set LanguageList = ^(LanguageID, 1)
291: Ifcontains(i) $($0) in $(LanguageList)
292: else
293: set Status = STATUS_NOLANGUAGE
294: goto finish_DriversExist
295: endif
296:
297: read-syms DriversExistDlg$($0)
298: ui start "DriversExist"
299: ifstr(i) $(DLGEVENT) == "DLGBUTTON0"
300: set Status = STATUS_CURRENT
301: else-ifstr(i) $(DLGEVENT) == "DLGBUTTON1"
302: set Status = STATUS_NEW
303: else-ifstr(i) $(DLGEVENT) == "BACK"
304: set Status = STATUS_USERCANCEL
305: endif
306: ui pop 1
307:
308: finish_DriversExist = +
309: Return $(Status)
310:
311: ;-----------------------------------------------------------------------
312: ;
313: ; ROUTINE: DoAskSource
314: ;
315: ; DESCRIPTION: This routine prompts the source of the windows nt files
316: ;
317: ; INPUTS: $0: Current Src
318: ;
319: ; OUTPUTS: $R0: STATUS: STATUS_SUCCESSFUL |
320: ; STATUS_USERCANCEL |
321: ; STATUS_FAILED
322: ;
323: ; $R1: Diskette Src
324: ;
325: ; $R2: Drive to Free or "" if none
326: ;
327: ; $R3: Actual string returned from dialog
328: ;
329: ;------------------------------------------------------------------------
330: [DoAskSource]
331: read-syms DoAskSourceDlgText$(!STF_LANGUAGE)
332: shell "" DoAskSourceEx $($0) $(DlgText)
333: Return $($R0) $($R1) $($R2) $($R3)
334:
335:
336: ;-----------------------------------------------------------------------
337: ;
338: ; ROUTINE: DoAskSourceEx
339: ;
340: ; DESCRIPTION: This routine prompts the source of the windows nt files
341: ;
342: ; INPUTS: $0: Current Src
343: ; $1: Dialog Text To Use
344: ;
345: ; OUTPUTS: $R0: STATUS: STATUS_SUCCESSFUL |
346: ; STATUS_USERCANCEL |
347: ; STATUS_FAILED
348: ;
349: ; $R1: Diskette Src
350: ;
351: ; $R2: Drive to Free or "" if none
352: ;
353: ; $R3: Actual string returned from dialog
354: ;
355: ;------------------------------------------------------------------------
356:
357:
358: [DoAskSourceEx]
359: ;
360: ;
361: set Status = STATUS_FAILED
362: set Src = $($0)
363: set DriveToFree = ""
364: read-syms AskSourceStrings$(!STF_LANGUAGE)
365:
366: asksource = +
367: read-syms DisketteDlg$(!STF_LANGUAGE)
368: ui start "Diskette"
369: ifstr(i) $(DLGEVENT) == "CONTINUE"
370: LibraryProcedure IsFullPath, $(!LIBHANDLE), CheckPathFullPathSpec $(EditTextOut)
371: ifstr(i) $(IsFullPath) == "NO"
372: StartWait
373: LibraryProcedure STATUS, $(!LIBHANDLE), ProcessForUNC $(EditTextOut)
374: EndWait
375: ifstr(i) $(STATUS) == "ERROR"
376: shell "" SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(String1)
377: goto asksource
378: else-ifstr(i) $(STATUS) == "NOT-UNC"
379: shell "" SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(String2)
380: goto asksource
381: else-ifstr(i) $(STATUS) == "UNC-FAILCONNECT"
382: shell "" SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(String4)
383: goto asksource
384: else
385: set Src = $(STATUS)
386: endif
387: else
388: set Src = $(EditTextOut)
389: endif
390:
391: ui pop 1
392: LibraryProcedure STATUS, $(!LIBHANDLE), AppendBackSlash $(Src)
393: ifstr(i) $(STATUS) == "ERROR"
394: goto finish_DoAskSource
395: else
396: set Src = $(STATUS)
397: set Status = STATUS_SUCCESSFUL
398: goto finish_DoAskSource
399: endif
400:
401: else-ifstr(i) $(DLGEVENT) == "BACK"
402: ui pop 1
403: set Status = STATUS_USERCANCEL
404: goto finish_DoAskSource
405: else
406: ui pop 1
407: goto finish_DoAskSource
408: endif
409:
410: finish_DoAskSource = +
411: Return $(Status) $(Src) $(DriveToFree) $(EditTextOut)
412:
413:
414: ;--------------------------------------------------------------------------
415: ; Setup.Hlp Context IDs
416: ; =====================
417: ;
418: ; The following are the help IDs used in the setup inf files. The help IDs
419: ; are in the following ranges:
420: ;
421: ; 0 - 999 : Main Setup
422: ; 1000 - 1999 : Network Setup
423: ; 2000 - 2999 : MaintenanceModeSetup
424: ;
425: ;---------------------------------------------------------------------------
426:
427: [SetupHelpIds]
428:
429: ;
430: ; NOTE: PLEASE UPDATE THE !MaximumID field whenever you add a new ID
431: ;
432:
433: !MinimumID = 0
434: !MaximumID = 5000
435: !InitialContentsID = 5
436:
437: ;
438: ; Main Setup IDs
439: ;
440:
441: !IDH_DB_COMPUTERNAMEQ_INS = 10
442: !IDH_DB_COMPUTERNAMEV_INS = 11
443: !IDH_DB_FULLNAMEQ_INS = 30
444: !IDH_DB_FULLNAMEV_INS = 31
445: !IDH_DB_ORGNAMEQ_INS = 32
446: !IDH_DB_ORGNAMEV_INS = 33
447: !IDH_DB_INSTALLMODE_INS = 50
448: !IDH_DB_OPTIONS_INS = 60
449: !IDH_DB_SYSTEM_INS = 70
450: !IDH_DB_VIRTUAL_INS = 80
451: !IDH_DB_REPAIR_INS = 90
452: !IDH_DB_PRNSETUP_INS = 100
453: !IDH_DB_OPTIONAL_INS = 110
454: !IDH_DB_CUSTOMISE_INS = 111
455: !IDH_DB_OEMSINGLESEL_INS = 120
456: !IDH_DB_OEMMULTISEL_INS = 121
457: !IDH_DB_ACCOUNTSETUP_INS = 130
458: !IDH_DB_ACCOUNTADMN_INS = 131
459: !IDH_DB_SEARCHDRIVE_INS = 150
460: !IDH_DB_APPCONFLICT_INS = 151
461:
462: ;
463: ; Maintenance mode setup IDs
464: ;
465:
466: !IDH_DB_MAINTAIN_INS = 1000
467: !IDH_DB_MOPTIONAL_INS = 1010
468: !IDH_DB_MCUSTOMISE_INS = 1011
469: !IDH_DB_MSYSTEM_INS = 1020
470: !IDH_DB_MPROFILE_INS = 1030
471: !IDH_DB_SCSI_DRIVER_INS = 1040
472: !IDH_DB_SCSI_SELECTDRIVER_INS = 1041
473: !IDH_DB_DRIVEREXIST_INS = 1042
474: !IDH_DB_TAPE_DRIVER_INS = 1043
475: !IDH_DB_TAPE_SELECTDRIVER_INS = 1044
476:
477:
478: ;
479: ; Network card inf Help ID
480: ;
481:
482: !IDH_DB_CARDSELECTION_INS = 3000 ; Net card selection dialog
483: !IDH_DB_SOFTSELECTION_INS = 3001 ; Software selection dialog
484: !IDH_DB_OEMNADD1_INS = 3500 ; Dec100
485: !IDH_DB_OEMNADD2_INS = 3510 ; Dec201
486: !IDH_DB_OEMNADDE_INS = 3520 ; Decstation
487: !IDH_UB_OEMNADDP_INS = 3521 ; DEC PC
488: !IDH_DB_OEMNADE1_INS = 3530 ; Elink 16
489: !IDH_DB_OEMNADE2_INS = 3540 ; Elink ii
490: !IDH_DB_OEMNADE3_INS = 3545 ; Elink 3
491: !IDH_DB_OEMNADLB_INS = 3546 ; MS Loop Back
492: !IDH_DB_OEMNADAM_INS = 3547 ; AMD
493: !IDH_DB_OEMNADEM_INS = 3550 ; Elink MC
494: !IDH_DB_OEMNADN2_INS = 3551 ; NE2000
495: !IDH_DB_OEMNADN1_INS = 3552 ; NE1000
496: !IDH_DB_OEMNADNE_INS = 3560 ; NE3200
497: !IDH_DB_OEMNADIN_INS = 3561 ; Intel EE16
498: !IDH_DB_OEMNADP3_INS = 3570 ; Proteon 1390
499: !IDH_DB_OEMNADP9_INS = 3580 ; Proteon 1990
500: !IDH_DB_OEMNADSO_INS = 3590 ; Sonic
501: !IDH_DB_OEMNADTK_INS = 3600 ; IBM Token
502: !IDH_DB_OEMNADTM_INS = 3605 ; IBM Token
503: !IDH_DB_OEMNADUB_INS = 3610 ; UB Card
504: !IDH_DB_OEMNADWD_INS = 3620 ; Western Digital
505: !IDH_DB_OEMNADWM_INS = 3630 ; Western Digital MicroChannel
506: !IDH_DB_OEMNSVNB_INS = 3640 ; Netbios
507: !IDH_DB_OEMNSVRD_INS = 3650 ; Redriector
508: !IDH_DB_OEMNSVRE_INS = 3660 ; Repl
509: !IDH_DB_OEMNSVSV_INS = 3670 ; Server
510: !IDH_DB_OEMNSVWK_INS = 3680 ; workstation
511: !IDH_DB_OEMNXPDL_INS = 3690 ; dlc
512: !IDH_DB_OEMNXPNB_INS = 3700 ; netbeui
513: !IDH_DB_OEMNXPSN_INS = 3710 ; snmp
514: !IDH_DB_OEMNXPSN_1 = 3711 ; snmp - 1st dialog
515: !IDH_DB_OEMNXPSN_2 = 3712 ; snmp - security dialog
516: !IDH_DB_OEMNXPTC_INS = 3720 ; tcpip
517: !IDH_DB_OEMNXPTC_1 = 3721 ; tcpip - 1st dialog
518: !IDH_DB_OEMNXPTC_2 = 3722 ; tcpip - 2nd dialog
519: !IDH_DB_OEMNXPTC_3 = 3723 ; tcpip - 3nd dialog
520: !IDH_DB_LMHOST_INS = 3730 ; LMHOST dialog
521: !IDH_DB_RPCLOCATE_INS = 3740 ; RPC Name Service dialog
522:
523: !IDH_DB_GET_PROTOCOL = 4000 ; Get Primary Protocol dialog
524: !IDH_DB_VER_EXISTED = 4010 ; software or netcard already existed
525: !IDH_DB_DETECT_BYPASS = 4020 ; Want to bypass netcard detection?
526: !IDH_DB_DETECT_FOUND = 4030 ; Detection found a netcard
527: !IDH_DB_DETECT_FAILED = 4040 ; Netcard detection failed
528: !IDH_DB_DETECT_CHKRAS = 4050 ; Detection failed-- want RAS?
529: !IDH_DB_OEMNADLT_INS = 4060 ; LocalTalk Card Config help
530:
531:
532: ;-----------------------------------------------------------------------
533: ; ROUTINE: ReadSetupHelpIds
534: ;
535: ; DESCRIPTION: This routine sets up the help context ids as globals
536: ;
537: ;
538: ; INPUTS: $0: Drive to free
539: ;
540: ; OUTPUTS: None
541: ;
542: ;
543: ;------------------------------------------------------------------------
544:
545: [ReadSetupHelpIds]
546: read-syms "SetupHelpIds"
547: Return
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.