![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to ncpashel.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 / ndis|
Return to ncpashel.inf CVS log | Up to [WindowsNT SDKs] / ntddk / src / setup / inf / ndis |
1.1 ! root 1: ;********************************************************************** ! 2: ; ! 3: ; NAME: NCPASHEL.INF ! 4: ; ! 5: ; PURPOSE: ! 6: ; ! 7: ; This INF script is invoked by the Network Control ! 8: ; Panel Applet (NCPA). ! 9: ; ! 10: ; ! 11: ; COMMENTARY: ! 12: ; ! 13: ; The NCPA builds a command line to invoke SETUP, instructing ! 14: ; it to run this file. The other settings on the command line ! 15: ; tell NCPASHEL.INF what to invoke and in what mode. ! 16: ; ! 17: ; The primary function of this file is to hide the distinction ! 18: ; between invocation by the main install SETUP and later invocation ! 19: ; by the NCPA. This involves restoring the STF_XXXXX global ! 20: ; variables to their earlier settings, along with defining some ! 21: ; new ones to "fine-tune" the functions of the product-level ! 22: ; INF scripts. ! 23: ; ! 24: ; ! 25: ; HISTORY: ! 26: ; ! 27: ; DavidHov Created 4/4/92 ! 28: ; ! 29: ;*********************************************************************** ! 30: ; ! 31: ; ! 32: ;*********************************************************************** ! 33: ; ! 34: ; ! 35: ; ! 36: ;*********************************************************************** ! 37: ! 38: ;*********************************************************************** ! 39: ; ! 40: ; Variables declared by SETUP.INF, the main INF for GUI Setup. ! 41: ; ! 42: ; Those marked with ** are established by the SETUP.EXE; the others ! 43: ; are obtained from detection or established programmatically by ! 44: ; SETUP.INF. ! 45: ; ! 46: ; The STF_* variables documented below are the globals which can be used ! 47: ; by shelled INFs: ! 48: ; ! 49: ;************************************************************************* ! 50: ; ! 51: ; ** 0. STF_HWND: Handle to setup window (hex string) ! 52: ; ! 53: ; ** 1. STF_SRCTYPE: DOS | ARC | UNC ! 54: ; ! 55: ; ** 2. STF_SRCDIR: NT Sources, e.g. f:\i386i\ ! 56: ; ! 57: ; ** 3. STF_SRCBASE: Defined only for UNC srctype, the unc share, e.g., ! 58: ; \\Orville\razzle. ! 59: ; ! 60: ; 4. STF_NTDRIVE: Destination NT Drive, e.g. d: ! 61: ; ! 62: ; 5. STF_NTPATH: Path to nt, e.g. d:\nt ! 63: ; ! 64: ; 6. STF_WINDOWSPATH: Path to windows, e.g. d:\nt\windows ! 65: ; ! 66: ; 7. STF_WINDOWSSYSPATH: Path to windows system, e.g. d:\nt\windows\System32 ! 67: ; ! 68: ; ** 8. STF_CWDDIR: Path to place where setup is run from., ! 69: ; e.g. d:\setup\ ! 70: ; ! 71: ; 9. STF_LANGUAGE: Language to use (ENG | ...) ! 72: ; ! 73: ; 10. STF_INSTALL_MODE: EXPRESS | CUSTOM ! 74: ; ! 75: ; ** 11. STF_INSTALL_TYPE: SETUPRUN | SETUPBOOTED | NETDUMP | MAINTENANCE ! 76: ; (SETUPRUN: Setup is run off any source (network, cdrom, ! 77: ; ... from a running NT system) ! 78: ; ! 79: ; (SETUPBOOTED: Setupprep runs and then copies setup on the ! 80: ; system and runs GUI Setup..) ! 81: ; ! 82: ; (SETUPTOSHARE: Copy sources to destination STF_DSTDIR) ! 83: ; ! 84: ; (MAINTENANCE: MAINTENACE mode setup) ! 85: ; ! 86: ; (used to be FRESH | UPGRADE | NETDUMP) ! 87: ; ! 88: ; 12. STF_UPGRADE: YES | NO ! 89: ; ! 90: ; 13. STF_PLATFORM: I386 | MIPS | Alpha ! 91: ; ! 92: ; 14. STF_PROCESSOR: I386 | I486 | I586 or R2000 | R3000 | R4000 | Alpha_AXP. ! 93: ; ! 94: ; 15. STF_USERNAME: Username for account. "string" (no whitespaces, < 15) ! 95: ; ! 96: ; 16. STF_COMPUTERNAME: Computername to identify machine (no whitespaces, < 15) ! 97: ; ! 98: ; 17. STF_PRODUCT: WINNT | LANMANNT ! 99: ; ! 100: ; 18. STF_UNUSEDDRIVES: List of drives currently unused and available for ! 101: ; assignment. {E:, F:, ...., Z:}. Use routine in ! 102: ; subroutn.inf to allocate unused. ! 103: ; ! 104: ; nn. STF_NCDETECT: YES | NO determines if netcard detection is enabled ! 105: ; ! 106: ; Conditionally defined: ! 107: ; ! 108: ; ** 19. STF_DSTDIR: Only defined in SETUPTOSHARE. e.g., f:\beta\nt\i386\ ! 109: ; ! 110: ; ** 20. STF_DSTTYPE as STF_SRCTYPE ! 111: ; ! 112: ; ** 21. STF_DSTBASE as STF_SRCBASE ! 113: ; ! 114: ; Others Sunil didn't mention: ! 115: ; ! 116: ; ** 22. STF_SRCINFPATH path to invoked (outermost) INF ! 117: ; ! 118: ; ** 23. STF_CONTEXTINFNAME path to currently executing INF ! 119: ; ! 120: ; ** 24. STF_SYS_INIT NO ! 121: ; ! 122: ;*********************************************************************** ! 123: ; ! 124: ;*********************************************************************** ! 125: ; Variables required for NCPA support ! 126: ;*********************************************************************** ! 127: ; ! 128: ; 1) NTN_RegBase Universal Registry key name prefix. ! 129: ; BUGBUG: Archaic? ! 130: ; ! 131: ; 2) NTN_ServiceBase Top of Services Tree ! 132: ; 3) NTN_ServiceKeyName Name of service; no spaces/delimiters ! 133: ; allowed; may be NULL for new installations ! 134: ; 4) NTN_RegProduct name of HARDWARE or SOFTWARE Registry ! 135: ; key for component; will be null ("") for ! 136: ; new installations. ! 137: ; ! 138: ; 5) NTN_InstallMode "install", "deinstall", "configure", ! 139: ; "bind" ! 140: ; ! 141: ; 6) NTN_Origination "ncpa", "install" ! 142: ; ! 143: ; 7) NTN_Infname name (pathless) of INF file to execute ! 144: ; There are two special "name tokens": ! 145: ; ! 146: ; "NTLANMAN_Adapter" and ! 147: ; "NTLANMAN_Software" ! 148: ; ! 149: ; If the INF name is equal to one of these, ! 150: ; then the appropriate section of ! 151: ; NTLANMAN.INF is shelled to. ! 152: ; ! 153: ; 8) NTN_InstallPhase "primary","secondary". ! 154: ; "primary" implies main installation; ! 155: ; "secondary" implies product add-on installation. ! 156: ; ! 157: ; ! 158: ; ! 159: ; ! 160: ;*********************************************************************** ! 161: ! 162: ! 163: [StfVariableDetect] ! 164: ! 165: STF_PROCESSOR = "" ? $(!LIBHANDLE) GetProcessor ! 166: STF_PLATFORM = "I386" ; BUGBUG-- How to establish? ! 167: ; ! 168: ; ! 169: ; Language to Use For interaction with user ! 170: ; ! 171: ! 172: STF_LANGUAGE = "" ? $(!LIBHANDLE) GetLanguage ! 173: LanguageList = ^(LanguageID, 1) ! 174: ; ! 175: ; Destination NT Directory relative to root of NT Drive ! 176: ; ! 177: STF_WINDOWSPATH = "" ? $(!LIBHANDLE) GetWindowsNtDir ! 178: STF_WINDOWSSYSPATH = "" ? $(!LIBHANDLE) GetWindowsNtSysDir ! 179: STF_NTPATH = $(!STF_WINDOWSPATH) ! 180: STF_COMPUTERNAME = "" ? $(!LIBHANDLE) GetMyComputerName ! 181: STF_BUSTYPE = "" ? $(!LIBHANDLE) GetMyBusType ! 182: ! 183: [StfVariableSyms] ! 184: ! 185: ProcessorID_I386 = I386 ! 186: ProcessorID_I486 = I486 ! 187: ProcessorID_I586 = I586 ! 188: ProcessorID_R4000 = R4000 ! 189: ProcessorID_Alpha = Alpha_AXP ! 190: PlatformID_I386 = I386 ! 191: PlatformID_Mips = Mips ! 192: PlatformID_Alpha = Alpha ! 193: ! 194: ; ! 195: ; Version Information ! 196: ; ! 197: ! 198: STF_PRODUCT = WINNT ; BUGBUG-- Determine from Registry ! 199: ! 200: STF_USERNAME = "" ; BUGBUG-- Determine from API calls ! 201: ! 202: STF_INSTALL_MODE = "CUSTOM" ; It's always CUSTOM from the NCPA ! 203: ! 204: STF_UPDGRADE = NO ; BUGBUG-- TBI ! 205: ! 206: STF_NCDETECT = NO ; disable netcard detection ! 207: STF_NCOPTION = "" ; set defaults for other ! 208: STF_NCDETCARD = 99999 ; global netcard variables ! 209: STF_NCDETINFO = {} ; No detect information ! 210: STF_NC_PARAMS = {} ; ! 211: STF_NC_PNAMES = {} ; ! 212: STF_SRCDIR_KEYED = "" ; source dir as entered ! 213: STF_SRCDIR_USED = "" ; source dir as used ! 214: STF_SRCDIR_OVERRIDE = "" ; source dir override (see UTILITY.INF) ! 215: STF_SRCDIR_WINNT = "" ; WINNT override source path ! 216: ! 217: ; Establish the error dialog template overrides. ! 218: ! 219: STF_TEMPLATE_CRITERR = "CRITERR2" ! 220: STF_TEMPLATE_NONCRITERR = "NONCRITERR2" ! 221: ! 222: ; ! 223: ; DOS VDM Setup / OS2 Subsystem Setup ! 224: ; ! 225: STF_INSTALLED_OS = {} ? $(!LIBHANDLE) GetInstalledOSNames ! 226: ! 227: FatalErrorIndex = 1 ! 228: ! 229: !Exit_Code = 0 ! 230: ! 231: [DoAskOemsetupSource] ! 232: ! 233: read-syms DoAskUpgradeSrcDlgText$(!STF_LANGUAGE) ! 234: shell "subroutn.inf" DoAskSourceEx $($0) $(DlgText) ! 235: Return $($R0) $($R1) $($R2) $($R3) ! 236: ! 237: ! 238: ;*********************************************************************** ! 239: ; ! 240: ; Primary control section. ! 241: ; ! 242: ;*********************************************************************** ! 243: ! 244: [Shell Commands] ! 245: ; ! 246: ; Initialization code borrowed from SETUP.INF. Establish all the ! 247: ; STF_ variables not already created by initialization (in INIT.C). ! 248: ; ! 249: set-title "Windows NT Setup" ! 250: ; ! 251: ; Changing the literal 0 to a 1 will turn Debug-Output on. ! 252: ; ! 253: Set !G:DebugOutputControl = 0 ! 254: ! 255: LoadLibrary "x" $(!STF_CWDDIR)setupdll.dll !LIBHANDLE ! 256: LoadLibrary "y" $(!STF_CWDDIR)ncpa.cpl !NCPA_HANDLE ! 257: ; ! 258: ; Establish the help IDs and help file. ! 259: ; ! 260: Shell "subroutn.inf" ReadSetupHelpIds ! 261: SetHelpFile "setupnt.hlp" $(!MinimumID) $(!MaximumID) ! 262: ! 263: set-subst LF = "\n" ! 264: StartWait ! 265: ; ! 266: ; Reestablish the SETUP STF_ variables as best we can. ! 267: ; ! 268: read-syms StfVariableSyms ! 269: read-syms StfVariableDetect ! 270: detect StfVariableDetect ! 271: Set !STF_NTPATH = $(!STF_WINDOWSSYSPATH) ! 272: ; ! 273: ; Get the product type from the registry ! 274: ; ! 275: OpenRegKey $(!REG_H_LOCAL) "" "System\CurrentControlSet\Control\ProductOptions" 33554432 KeyProductOption ! 276: ifstr(i) $(KeyProductOption) != "" ! 277: GetRegValue $(KeyProductOption) "ProductType" ProductTypeList ! 278: set TempProductType = *($(ProductTypeList),4) ! 279: ifstr(i) $(TempProductType) == "winnt" ! 280: set !STF_PRODUCT = WINNT ! 281: else-ifstr(i) $(TempProductType) == "lanmannt" ! 282: set !STF_PRODUCT = LANMANNT ! 283: endif ! 284: CloseRegKey $(KeyProductOptions) ! 285: endif ! 286: ! 287: ; ! 288: ; Determine the source location. If STF_SRCDIR is already set, use it. ! 289: ; Otherwise, try to extract it from the NCPA's home location in the Registry. ! 290: ; ! 291: ; Also check to see if this is an IDW installation. If so, all file copies ! 292: ; are suppressed on the theory that the tree copy operation has placed all ! 293: ; the binaries into %SystemRoot% already. ! 294: ; ! 295: Debug-Output "NCPASHEL.INF: STF_SRCDIR is "$(!STF_SRCDIR) ! 296: ! 297: OpenRegKey $(!REG_H_LOCAL) "" "SOFTWARE\Microsoft\Ncpa\CurrentVersion" 33554432 KeyNcpa ! 298: ! 299: Set !STF_SRCDIR = "" ! 300: Set !STF_IDW = FALSE ! 301: ! 302: Ifstr(i) $(KeyNcpa) != "" ! 303: GetRegValue $(KeyNcpa) "IDW" IdwValueList ! 304: Set IdwValue = *($(IdwValueList),4) ! 305: Ifint $(IdwValue) > 0 ! 306: Debug-Output "NCPASHEL.INF: IDW Installation" ! 307: Set !STF_IDW = TRUE ! 308: Endif ! 309: CloseRegKey $(KeyNcpa) ! 310: Else ! 311: Debug-Output "NCPASHEL.INF: COULDN'T OPEN NCPA KEY!" ! 312: Endif ! 313: ! 314: OpenRegKey $(!REG_H_LOCAL) "" "SOFTWARE\Microsoft\Windows Nt\CurrentVersion" $(!REG_KEY_READ) KeyNt ! 315: Ifstr(i) $(KeyNt) != "" ! 316: GetRegValue $(KeyNt) "SourcePath" SourcePathValue ! 317: Set !STF_SRCDIR = *($(SourcePathValue),4) ! 318: Debug-Output "NCPASHEL.INF: SourcePath retrieved is "$(!STF_SRCDIR) ! 319: CloseRegKey $(KeyNt) ! 320: Endif ! 321: ! 322: Ifstr(i) $(!STF_SRCDIR) == "" ! 323: Set !STF_SRCDIR = "A:\" ! 324: Endif ! 325: ; ! 326: ; Extract the "setup in progress" variable from the Registry; ! 327: ; set global variables accordingly. If "setup in progress" flag is ! 328: ; on, set !NTN_InstallPhase to "primary", then look for the ! 329: ; "winnt source path" value; if found, set !STF_SRCDIR_WINNT. ! 330: ; ! 331: Set SetupInp = 0 ! 332: Set !NTN_InstallPhase = secondary ! 333: ! 334: OpenRegKey $(!REG_H_LOCAL) "" "SYSTEM\Setup" $(!REG_KEY_READ) KeySetup ! 335: Ifstr(i) $(KeySetup) != "" ! 336: GetRegValue $(KeySetup) "SystemSetupInProgress" SetupInpValue ! 337: Ifint $(RegLastError) == $(!REG_ERROR_SUCCESS) ! 338: Set SetupInp = *($(SetupInpValue),4) ! 339: Debug-Output "NCPASHEL.INF: SetupInp = "$(SetupInp) ! 340: Endif ! 341: Ifint $(SetupInp) == 1 ! 342: Set !NTN_InstallPhase = primary ! 343: GetRegValue $(KeySetup) "WinntPath" SetupPathValue ! 344: Ifint $(RegLastError) == $(!REG_ERROR_SUCCESS) ! 345: Set !STF_SRCDIR_WINNT = *($(SetupPathValue),4) ! 346: Debug-Output "NCPASHEL.INF: STF_SRCDIR_WINNT = "$(!STF_SRCDIR_WINNT) ! 347: Endif ! 348: Endif ! 349: CloseRegKey $(KeySetup) ! 350: Endif ! 351: ! 352: Debug-Output "NCPASHEL.INF: Setup phase = "$(!NTN_InstallPhase) ! 353: ; ! 354: ; Enable the netcard detection functions if necessary. ! 355: ; Don't check for errors, since each INF will report ! 356: ; the error if it really needs to use detection. ! 357: ; ! 358: ; We start detection for installations and configurations ! 359: ; exceptfor final review INFs, which are marked as installations. ! 360: ; ! 361: Ifstr(i) $(NTN_InfSection) == BindingsReview ! 362: Goto skipdetection ! 363: Endif ! 364: Ifstr(i) $(NTN_InstallMode) == install ! 365: Goto startdetection ! 366: Endif ! 367: Ifstr(i) $(NTN_InstallMode) == configure ! 368: Goto startdetection ! 369: Endif ! 370: ! 371: Goto skipdetection ! 372: ! 373: startdetection = + ! 374: ! 375: Debug-Output "NCPASHEL.INF: Enable netcard detection from NCPA.CPL" ! 376: Shell "NCPARAM.INF" Param_ControlDetection DTSTART ! 377: ! 378: skipdetection = + ! 379: ; ! 380: ; BUGBUG The processor type is currently not detected properly. ! 381: ; So temporarily forcibly set the processor type ! 382: ; ! 383: set STF_PROCESSOR = $(ProcessorID_I386) ! 384: ! 385: ; ! 386: ; Check processor type, see if it is supported, if so what platform does it ! 387: ; belong to. Set also the SYS variable to denote which set of sources we ! 388: ; are installing from ! 389: ; ! 390: ifstr(i) $(STF_PROCESSOR) == $(ProcessorID_I386) ! 391: set STF_PLATFORM = $(PlatformID_I386) ! 392: set SYS = $(ProcessorID_I386) ! 393: else-ifstr(i) $(STF_PROCESSOR) == $(ProcessorID_I486) ! 394: set STF_PLATFORM = $(PlatformID_I386) ! 395: set SYS = $(ProcessorID_I386) ! 396: else-ifstr(i) $(STF_PROCESSOR) == $(ProcessorID_I586) ! 397: set STF_PLATFORM = $(PlatformID_I386) ! 398: set SYS = $(ProcessorID_I386) ! 399: else-ifstr(i) $(STF_PROCESSOR) == $(ProcessorID_R4000) ! 400: set STF_PLATFORM = $(PlatformID_Mips) ! 401: set SYS = $(ProcessorID_R4000) ! 402: else-ifstr(i) $(STF_PROCESSOR) == $(ProcessorID_Alpha) ! 403: set STF_PLATFORM = $(PlatformID_Alpha) ! 404: set SYS = $(ProcessorID_Alpha) ! 405: else ! 406: set STF_PLATFORM = $(PlatformID_I386) ! 407: set SYS = $(ProcessorID_I386) ! 408: endif ! 409: ! 410: Ifstr(i) $(!STF_LANGUAGE) != "ENG" ; BUGBUG: temporary ! 411: Debug-Output "NCPASHEL: Language not set to English; resetting" ! 412: !STF_LANGUAGE = "ENG" ! 413: Endif ! 414: ! 415: read-syms ProgressCopy$(!STF_LANGUAGE) ! 416: ! 417: ;---------------------------------------------------------------------- ! 418: ; ! 419: ; STF_ variables are now established. ! 420: ; ! 421: ; Establish by default the NCPA variables which the NCPA didn't. ! 422: ; ! 423: ;---------------------------------------------------------------------- ! 424: ! 425: Ifstr(i) $(!NTN_RegBase) == "" ! 426: set !NTN_RegBase = "" ! 427: Endif ! 428: ! 429: set !NTN_ServiceBase = "SYSTEM\CurrentControlSet\SERVICES" ! 430: ; ! 431: ; Default the InstallMode to "configure" ! 432: ; ! 433: Ifstr(i) $(!NTN_InstallMode) == "" ! 434: Debug-Output "NCPASHEL:!NTN_InstallMode was not defined!" ! 435: set !NTN_InstallMode = "configure" ! 436: Endif ! 437: ! 438: Ifstr(i) $(!NTN_SoftwareBase) == "" ! 439: ; BUGBUG ! 440: ; set !NTN_SoftwareBase = "SOFTWARE\Description" ! 441: set !NTN_SoftwareBase = "SOFTWARE" ! 442: Endif ! 443: ! 444: set !NTN_Origination = "ncpa" ! 445: ! 446: ;---------------------------------------------------------------------- ! 447: ; ! 448: ; NTN_ variables are now established. ! 449: ; ! 450: ; Prepare to Shell to target INF ! 451: ; ! 452: ;---------------------------------------------------------------------- ! 453: ! 454: Ifstr(i) $(!NTN_Infname) == "" ! 455: goto fatalnoinfname ! 456: Endif ! 457: ! 458: Ifstr(i) $(!NTN_InfSection) == "" ! 459: Set !NTN_InfSection = "InstallOption" ! 460: Endif ! 461: ! 462: ;------------------------------------------------------------------------ ! 463: ; ! 464: ; Shell to the given section of the component INF. If this is an ! 465: ; update/upgrade, ask the user for the location of the file. ! 466: ; ! 467: ;------------------------------------------------------------------------ ! 468: ifstr(i) $(!NTN_InstallMode) == "Update" ! 469: Debug-Output "NCPASHEL.INF: Upgrade mode" ! 470: ; ! 471: ; First, ask for oemsetup.inf location ! 472: ; Then, pass the information to the inf file ! 473: ; ! 474: Shell "" DoAskOemsetupSource $(!STF_SRCDIR) ! 475: ! 476: Ifstr(i) $($ShellCode) != $(!SHELL_CODE_OK) ! 477: goto shellerror ! 478: Endif ! 479: ! 480: ifstr(i) $($R0) == STATUS_SUCCESSFUL ! 481: set !STF_SRCDIR = $($R1) ! 482: else-ifstr(i) $($R0) == STATUS_USERCANCEL ! 483: set Exit_Code = 1 ! 484: goto end ! 485: else ! 486: set Exit_Code = 2 ! 487: goto end ! 488: endif ! 489: ! 490: ; ! 491: ; Change NTN_Infname to refer to the OEMSETUP.INF file ! 492: ; pointed to by the user. ! 493: ; ! 494: Set !NTN_Infname = $(!STF_SRCDIR)oemsetup.inf ! 495: endif ! 496: ! 497: Ifstr(i) $(!NTN_InstallMode) == install ! 498: set AddCopy = YES ! 499: set DoCopy = YES ! 500: set DoConfig = YES ! 501: Else ! 502: set AddCopy = NO ! 503: set DoCopy = NO ! 504: set DoConfig = NO ! 505: Endif ! 506: ! 507: Debug-Output "NCPASHEL.INF: Shell to "$(!NTN_Infname) ! 508: ! 509: Shell $(!NTN_Infname) $(!NTN_InfSection) + ! 510: $(!STF_LANGUAGE) $(!NTN_InfOption) + ! 511: $(!STF_SRCDIR) $(AddCopy) $(DoCopy) $(DoConfig) ! 512: ! 513: Ifstr(i) $($ShellCode) != $(!SHELL_CODE_OK) ! 514: Debug-Output "NCPASHEL.INF: SHELL ERROR: "$($ShellCode) ! 515: goto shellerror ! 516: Endif ! 517: ! 518: Debug-Output "NCPASHEL: INF return: "$($R0) ! 519: ! 520: Ifstr(i) $($R0) == STATUS_SUCCESSFUL ! 521: set Exit_Code = 0 ! 522: else-ifstr(i) $($R0) == STATUS_USERCANCEL ! 523: set Exit_Code = 1 ! 524: else-ifstr(i) $($R0) == STATUS_NO_EFFECT ! 525: set Exit_Code = 3 ! 526: else-ifstr(i) $($R0) == STATUS_REBIND ! 527: set Exit_Code = 4 ! 528: else-ifstr(i) $($R0) == STATUS_REBOOT ! 529: set Exit_Code = 5 ! 530: else ! 531: set Exit_Code = 2 ! 532: Endif ! 533: ! 534: EndWait ! 535: ! 536: goto end ! 537: ! 538: ;------------------------------------------------------------------ ! 539: ; Fatal error display functions ! 540: ;------------------------------------------------------------------ ! 541: shellerror = + ! 542: read-syms ShellError$(!$ShellCode)$(!STF_LANGUAGE) ! 543: Debug-Output "NCPASHEL: SHELL ERROR: "$(Error) ! 544: goto fatal ! 545: ! 546: fatalnoinfname = + ! 547: set FatalErrorIndex = 2 ! 548: goto fatalmsg ! 549: ! 550: fatalmsg = + ! 551: read-syms FatalError$(FatalErrorIndex)$(!STF_LANGUAGE) ! 552: Debug-Output "NCPASHEL: FATAL ERROR: "$(Error) ! 553: goto fatal ! 554: ! 555: fatal = + ! 556: read-syms FatalDlg$(!STF_LANGUAGE) ! 557: ui start "FatalError" ! 558: goto end ! 559: ! 560: ;------------------------------------------------------------------ ! 561: ; Exit NCPASHEL.INF; return to NCPA ! 562: ;------------------------------------------------------------------ ! 563: end = + ! 564: Ifstr(i) $(!LIBHANDLE) != "" ! 565: LibraryProcedure DontCare, $(!LIBHANDLE), DeleteAllConnections ! 566: Endif ! 567: ! 568: Debug-Output "NCPASHEL: NCPASHEL: returning to NCPA" ! 569: goto term ! 570: ; ! 571: ; Immediate exit ! 572: ; ! 573: term = + ! 574: Debug-Output "NCPASHEL: Bye." ! 575: exit ! 576: ! 577: ;*********************************************************************** ! 578: ; ! 579: ; End of NCPASHEL.INF ! 580: ; ! 581: ;***********************************************************************
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.