![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to rpcsdk.mst CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [WindowsNT SDKs] / mstools / rpc_dos / disk1|
Return to rpcsdk.mst CVS log | Up to [WindowsNT SDKs] / mstools / rpc_dos / disk1 |
1.1 ! root 1: '*********************************************************************** ! 2: '* RPC SDK Install ! 3: '* Copyright (C) - 1992 by Microsoft ! 4: '* ! 5: '* Written By - Steven Zeck ! 6: '************************************************************************** ! 7: ! 8: '$DEFINE NODEBUG ''Define for script development/debugging ! 9: ! 10: '$INCLUDE 'setupapi.inc' ! 11: '$INCLUDE 'msdetect.inc' ! 12: ! 13: CONST TRUE = -1 ! 14: CONST FALSE = 0 ! 15: ! 16: ''Dialog ID's ! 17: CONST ASKQUIT = 200 ! 18: CONST DlgGetPath = 310 ! 19: CONST HlpGetPath = 311 ! 20: CONST DlgRegPath = 1700 ! 21: CONST HlpRegPath = 1701 ! 22: CONST DlgDosPath = 2000 ! 23: CONST HlpDosPath = 2001 ! 24: CONST EXITFAILURE = 400 ! 25: CONST EXITQUIT = 600 ! 26: ! 27: ' Conditionaly set the dialogs for full SDK versus runtime only. ! 28: ! 29: '$ifndef RUNTIMEINSTALL ! 30: ! 31: CONST DlgWelcome = 100 ! 32: CONST DlgInstallOptions = 800 ! 33: CONST HlpInstallOptions = 801 ! 34: CONST EXITSUCCESS = 700 ! 35: '$else ! 36: CONST DlgWelcome = 2600 ! 37: CONST DlgInstallOptions = 2400 ! 38: CONST HlpInstallOptions = 2401 ! 39: CONST EXITSUCCESS = 2800 ! 40: ! 41: '$endif ! 42: ! 43: CONST DlgSdkOption = 1200 ! 44: CONST HlpSdkOption = 1201 ! 45: CONST DlgRuntimeOption = 1400 ! 46: CONST HlpRuntimeOption = 1401 ! 47: CONST DlgTransport = 1600 ! 48: CONST HlpTransport = 1601 ! 49: CONST DlgNetBiosOptions = 2200 ! 50: CONST HlpNetBiosOptions = 2201 ! 51: CONST DlgNetBiosProtocols = 2300 ! 52: CONST HlpNetBiosProtocols = 2301 ! 53: CONST DlgNewProtocol = 2100 ! 54: CONST HlpNewProtocol = 2101 ! 55: CONST DlgAutoPath = 2400 ! 56: CONST HlpAutoPath = 2401 ! 57: CONST BADPATH = 6400 ! 58: ! 59: ''Bitmap ID ! 60: CONST LOGO = 1 ! 61: ! 62: CONST LanType_LANMAN = 6 ! 63: ! 64: Type LAN_DETECT ! 65: iType As Integer ! 66: iMajor As Integer ! 67: iMinor As Integer ! 68: iRev As Integer ! 69: fEnhance As Integer ! 70: End Type ! 71: ! 72: ! 73: GLOBAL BasePath$ ''Default destination directory. ! 74: GLOBAL RegPath$ ''Default destination directory. ! 75: GLOBAL DosPath$ ''Default destination directory. ! 76: Global CustomInstall ''Custom install option ! 77: Global SrcDir$ ! 78: Global AllTransports ! 79: Global MSDOSRuntime ! 80: Global MSDOSSDK ! 81: Global WindowsRuntime ! 82: Global WindowsSDK ! 83: Global NetBiosTransport ! 84: Global SamplesSDK ! 85: Global HelpFiles ! 86: GLOBAL CUIDLL$ ! 87: GLOBAL HELPPROC$ ! 88: ! 89: DECLARE FUNCTION GetNetConfiguration LIB "mscuistf.dll" (Detect as LAN_DETECT) AS INTEGER ! 90: ! 91: DECLARE Function GetPath(Dialog%, Path$) AS INTEGER ! 92: DECLARE FUNCTION GetTransport() As INTEGER ! 93: DECLARE Sub CopyList(ListIn$, ListOut$, Truncate%) ! 94: DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING ! 95: DECLARE FUNCTION GetCheck (index%) AS INTEGER ! 96: DECLARE FUNCTION BoolToOnOff (Bool%) AS String ! 97: DECLARE FUNCTION GetWinRunSize () AS String ! 98: DECLARE FUNCTION GetWinSize () AS String ! 99: DECLARE FUNCTION GetDosSize () AS String ! 100: DECLARE FUNCTION GetDosRunSize () AS String ! 101: DECLARE FUNCTION GetHlpSize () AS String ! 102: DECLARE FUNCTION GetSampleSize () AS String ! 103: DECLARE FUNCTION GetTransportSize () AS String ! 104: DECLARE FUNCTION FormatSize ()AS String ! 105: ! 106: ! 107: INIT: ! 108: CUIDLL$ = "mscuistf.dll" ''Custom user interface dll ! 109: HELPPROC$ = "FHelpDlgProc" ''Help dialog procedure ! 110: ! 111: SetBitmap CUIDLL$, LOGO ! 112: SetTitle "Microsft RPC SDK Install" ! 113: ! 114: szInf$ = GetSymbolValue("STF_SRCINFPATH") ! 115: if szInf$ = "" THEN ! 116: szInf$ = GetSymbolValue("STF_CWDDIR") + "RPCSDK.INF" ! 117: end if ! 118: ReadInfFile szInf$ ! 119: SetAbout "RPC SDK Install", "By stevez - Version 0.08" ! 120: ! 121: CustomInstall = FALSE ! 122: AllTransports = TRUE ! 123: MSDOSRuntime = TRUE ! 124: ! 125: '$ifndef WINDOWS_ONLY ! 126: MSDOSSDK = TRUE ! 127: '$endif ! 128: ! 129: '$ifndef MSDOS_ONLY ! 130: WindowsRuntime = TRUE ! 131: '$endif ! 132: ! 133: WindowsSDK = TRUE ! 134: NetBiosTransport = TRUE ! 135: SamplesSDK = TRUE ! 136: HelpFiles = TRUE ! 137: ! 138: Dim Detect As LAN_DETECT ! 139: ! 140: if GetNetConfiguration(Detect) then ! 141: ! 142: '$ifdef DEBUG ! 143: mess$ = "Type "+str$(Detect.iType)+" Version: "+str$(Detect.iMajor)+"."+str$(Detect.iMinor)+"."+str$(Detect.iRev) ! 144: if Detect.fEnhance then ! 145: mess$ = mess$ + " Enhanced" ! 146: end if ! 147: ! 148: i% = DoMsgBox(mess$, "NetWork Type Detected", MB_OK+MB_TASKMODAL+MB_ICONHAND) ! 149: '$endif ! 150: if Detect.iType = LanType_LANMAN then ! 151: if Detect.iMajor < 2 or Detect.iMinor < 10 then ! 152: i% = DoMsgBox("You need at least Lanman 2.10 to use RPC", "Lanman Version", MB_OK+MB_TASKMODAL+MB_ICONHAND) ! 153: else ! 154: fLanmanPresent = TRUE ! 155: end if ! 156: end if ! 157: else ! 158: i% = DoMsgBox("Setup didn't detect a supported network on this machine. RPC may not function correctly.", "Network Installation", MB_OK+MB_TASKMODAL+MB_ICONHAND) ! 159: end if ! 160: ! 161: ! 162: AddListItem "NetBiosMap", "nb=0" ! 163: AddListItem "NetBiosMap", "tcpip=0" ! 164: AddListItem "NetBiosMap", "xns=0" ! 165: ! 166: BasePath$ = "C:\c700" ! 167: RegPath$="C:\" ! 168: DosPath$="C:\DOS" ! 169: WinPath$=GetWindowsDir ! 170: SrcDir$ = GetSymbolValue("STF_SRCDIR") ! 171: ! 172: ' If the path contains lanman, make that the default DOS DLL directory. ! 173: ! 174: path$ = Ucase$(GetEnvVariableValue ("PATH"))+";" ! 175: ! 176: i% = 1 ! 177: while i% < len(path$) ! 178: ! 179: iEnd = instr(i%, path$, ";") ! 180: cPath$ = mid$(path, i%, iEnd - i%) ! 181: ! 182: if instr (cPath$, "LANMAN") or instr(cPath$, "\NETPROG") then ! 183: DosPath$ = cPath$ ! 184: end if ! 185: ! 186: if instr (cPath$, "\C700\") then ! 187: BasePath$ = mid$(cPath$, 1, 1)+":\C700" ! 188: end if ! 189: ! 190: i% = iEnd + 1 ! 191: wend ! 192: ! 193: ! 194: '$ifdef DEBUG ! 195: ! 196: SrcDir$ = "U:\install\sdk.new\nsetup" ! 197: ' DosPath$="C:\c700\DOS" ! 198: WinPath$="C:\c700\WIN" ! 199: ! 200: '$endif ''DEBUG ! 201: ! 202: WELCOME: ! 203: sz$ = UIStartDlg(CUIDLL$, DlgWelcome, "FInfoDlgProc", 0, "") ! 204: if sz$ = "CONTINUE" THEN ! 205: UIPop 1 ! 206: else ! 207: GOSUB ASKQUIT ! 208: GOTO WELCOME ! 209: end if ! 210: ! 211: ! 212: OPTION: ! 213: if not CustomInstall then ! 214: SetSymbolValue "RadioDefault", "1" ! 215: else ! 216: SetSymbolValue "RadioDefault", "2" ! 217: end if ! 218: ! 219: RESTART_OPTION: ! 220: sz$ = UIStartDlg(CUIDLL$, DlgInstallOptions, "FRadioDlgProc", HlpInstallOptions, HELPPROC$) ! 221: Index$ = GetSymbolValue("ButtonChecked") ! 222: ! 223: if sz$ = "CONTINUE" THEN ! 224: UIPop(1) ! 225: elseif sz$ = "REACTIVATE" THEN ! 226: GOTO RESTART_OPTION ! 227: else ! 228: GOSUB ASKQUIT ! 229: GOTO OPTION ! 230: end if ! 231: ! 232: if Index$ = "2" then ! 233: CustomInstall = TRUE ! 234: else ! 235: CustomInstall = FALSE ! 236: ! 237: '$ifndef RUNTIMEINSTALL ! 238: i% = GetPath(DlgGetPath, BasePath$) ! 239: '$else ! 240: i% = GetPath(DlgDosPath, DosPath$) ! 241: '$endif ! 242: ! 243: if i% then ! 244: goto FullInstall ! 245: else ! 246: goto OPTION ! 247: end if ! 248: end if ! 249: ! 250: ! 251: '$ifndef RUNTIMEINSTALL ! 252: ! 253: SDK_OPTION: ! 254: ! 255: RemoveSymbol "CheckItemsState" ! 256: RemoveSymbol "DriveStatusText" ! 257: ! 258: AddListItem "CheckItemsState", BoolToOnOff(SamplesSDK ) ! 259: AddListItem "CheckItemsState", BoolToOnOff(MSDOSSDK) ! 260: AddListItem "CheckItemsState", BoolToOnOff(WindowsSDK ) ! 261: AddListItem "CheckItemsState", BoolToOnOff(HelpFiles) ! 262: ! 263: AddListItem "DriveStatusText", BasePath$ ! 264: ! 265: RESTART_SDK_OPTION: ! 266: ! 267: RemoveSymbol "StatusItemsText" ! 268: AddListItem "StatusItemsText", GetDosSize() ! 269: AddListItem "StatusItemsText", GetWinSize() ! 270: AddListItem "StatusItemsText", GetSampleSize() ! 271: AddListItem "StatusItemsText", GetHlpSize() ! 272: ! 273: sz$ = UIStartDlg(CUIDLL$, DlgSdkOption, "FCustInstDlgProc", HlpSdkOption, HELPPROC$) ! 274: ! 275: if sz$ = "CONTINUE" THEN ! 276: UIPop(1) ! 277: ! 278: elseif sz$ = "BACK" THEN ! 279: UIPop(1) ! 280: GOTO OPTION ! 281: ! 282: elseif sz$ = "REACTIVATE" THEN ! 283: GOTO RESTART_SDK_OPTION ! 284: ! 285: elseif sz$ = "PATH" THEN ! 286: ! 287: i% = GetPath(DlgGetPath ,BasePath$) ! 288: ReplaceListItem "DriveStatusText", 1, BasePath$ ! 289: GOTO RESTART_SDK_OPTION ! 290: ! 291: elseif sz$ = "CHK1" THEN ! 292: ! 293: SamplesSDK = GetCheck(1) ! 294: GOTO RESTART_SDK_OPTION ! 295: ! 296: elseif sz$ = "CHK2" THEN ! 297: ! 298: MSDOSSDK = GetCheck(2) ! 299: GOTO RESTART_SDK_OPTION ! 300: ! 301: elseif sz$ = "CHK3" THEN ! 302: ! 303: WindowsSDK = GetCheck(3) ! 304: GOTO RESTART_SDK_OPTION ! 305: ! 306: elseif sz$ = "CHK4" THEN ! 307: ! 308: HelpFiles = GetCheck(4) ! 309: GOTO RESTART_SDK_OPTION ! 310: ! 311: else ! 312: GOSUB ASKQUIT ! 313: GOTO RESTART_SDK_OPTION ! 314: end if ! 315: ! 316: MSDOSRuntime = MSDOSSDK ! 317: WindowsRuntime = WindowsSDK ! 318: ! 319: if MSDOSSDK = FALSE and WindowsSDK = FALSE then ! 320: i% = DoMsgBox("You must chose either MS-DOS or Windows.", "Include and Library Support", MB_OK+MB_TASKMODAL+MB_ICONHAND) ! 321: goto SDK_OPTION ! 322: ! 323: end if ! 324: '$endif ! 325: ! 326: RUNTIME_OPTION: ! 327: ! 328: RemoveSymbol "CheckItemsState" ! 329: ! 330: AddListItem "CheckItemsState", BoolToOnOff(MSDOSRuntime) ! 331: AddListItem "CheckItemsState", BoolToOnOff(WindowsRuntime) ! 332: AddListItem "CheckItemsState", BoolToOnOff(AllTransports) ! 333: ! 334: RESTART_RUNTIME_OPTION: ! 335: ! 336: RemoveSymbol "StatusItemsText" ! 337: ! 338: AddListItem "StatusItemsText", RegPath$ ! 339: AddListItem "StatusItemsText", DosPath$ ! 340: AddListItem "StatusItemsText", GetDosRunSize() ! 341: AddListItem "StatusItemsText", GetWinRunSize() ! 342: AddListItem "StatusItemsText", GetTransportSize() ! 343: ! 344: sz$ = UIStartDlg(CUIDLL$, DlgRuntimeOption, "FCustInstDlgProc", HlpRuntimeOption, HELPPROC$) ! 345: ! 346: if sz$ = "CONTINUE" THEN ! 347: UIPop(1) ! 348: ! 349: elseif sz$ = "BACK" THEN ! 350: UIPop(1) ! 351: ! 352: '$ifndef RUNTIMEINSTALL ! 353: ! 354: GOTO SDK_OPTION ! 355: '$else ! 356: GOTO OPTION ! 357: '$endif ! 358: ! 359: elseif sz$ = "REACTIVATE" THEN ! 360: GOTO RESTART_RUNTIME_OPTION ! 361: ! 362: elseif sz$ = "CHK1" THEN ! 363: MSDOSRuntime = GetCheck(1) ! 364: GOTO RESTART_RUNTIME_OPTION ! 365: ! 366: elseif sz$ = "CHK2" THEN ! 367: WindowsRuntime = GetCheck(2) ! 368: GOTO RESTART_RUNTIME_OPTION ! 369: ! 370: elseif sz$ = "CHK3" THEN ! 371: ! 372: if GetListItem("CheckItemsState", 3) = "ON" then ! 373: AllTransports = TRUE ! 374: else ! 375: AllTransports = FALSE ! 376: RemoveSymbol "SelectedTransports" ! 377: end if ! 378: ! 379: GOTO RESTART_RUNTIME_OPTION ! 380: ! 381: elseif sz$ = "BTN1" THEN ! 382: ! 383: i% = GetPath(DlgRegPath ,RegPath$) ! 384: ReplaceListItem "StatusItemsText", 1, RegPath$ ! 385: ! 386: GOTO RESTART_RUNTIME_OPTION ! 387: ! 388: elseif sz$ = "BTN2" THEN ! 389: ! 390: i% = GetPath(DlgDosPath ,DosPath$) ! 391: ReplaceListItem "StatusItemsText", 2, DosPath$ ! 392: ! 393: GOTO RESTART_RUNTIME_OPTION ! 394: ! 395: elseif sz$ = "BTN3" THEN ! 396: ! 397: ! 398: if GetTransport() and AllTransports then ! 399: Alltransports = FALSE ! 400: ReplaceListItem "CheckItemsState", 3, "OFF" ! 401: end if ! 402: ! 403: GOTO RESTART_RUNTIME_OPTION ! 404: ! 405: else ! 406: GOSUB ASKQUIT ! 407: GOTO RESTART_RUNTIME_OPTION ! 408: ! 409: end if ! 410: ! 411: NetBiosTransport = AllTransports ! 412: ! 413: ' Scan the selected transport for a NetBios name ! 414: ! 415: for i% = 1 to GetListLength("SelectedTransports") step 1 ! 416: ! 417: if instr(GetListItem("SelectedTransports", i%), "NetBios") then ! 418: NetBiosTransport = TRUE ! 419: end if ! 420: next ! 421: ! 422: ! 423: if not NetBiosTransport then ! 424: goto FullInstall ! 425: end if ! 426: ! 427: NETBIOS: ! 428: SetSymbolValue "RadioDefault", "1" ! 429: ! 430: RESTART_NETBIOS_OPTION: ! 431: sz$ = UIStartDlg(CUIDLL$, DlgNetBiosOptions, "FRadioDlgProc", HlpNetBiosOptions, HELPPROC$) ! 432: Index$ = GetSymbolValue("ButtonChecked") ! 433: ! 434: if sz$ = "CONTINUE" THEN ! 435: UIPop(1) ! 436: elseif sz$ = "REACTIVATE" THEN ! 437: GOTO RESTART_NETBIOS_OPTION ! 438: ! 439: elseif sz$ = "BACK" THEN ! 440: GOTO RUNTIME_OPTION ! 441: ! 442: else ! 443: GOSUB ASKQUIT ! 444: GOTO NETBIOS ! 445: end if ! 446: ! 447: if Index$ = "1" then ! 448: goto FullInstall ! 449: end if ! 450: ! 451: ! 452: NETBIOS_PROTOCOL: ! 453: ! 454: RemoveSymbol "ListItemsIn" ! 455: ! 456: RESTART_NETBIOS_PROTOCOL: ! 457: sz$ = UIStartDlg(CUIDLL$, DlgNetBiosProtocols, "FListDlgProc", HlpNetBiosProtocols, HELPPROC$) ! 458: ! 459: if sz$ = "CONTINUE" THEN ! 460: UIPop 1 ! 461: ! 462: elseif sz$ = "REACTIVATE" THEN ! 463: GOTO RESTART_NETBIOS_OPTION ! 464: ! 465: elseif sz$ = "BACK" THEN ! 466: ! 467: GET_LANA: ! 468: sz$ = UIStartDlg(CUIDLL$, DlgNewProtocol, "FNameOrgDlgProc", HlpNewProtocol, HELPPROC$) ! 469: ! 470: if sz$ = "CONTINUE" then ! 471: ! 472: t$ = GetSymbolValue("OrgOut") ! 473: ! 474: if len(t$) <> 1 or mid$(t$, 1) < "0" or mid$(t$, 1) > "9" then ! 475: i% = DoMsgBox("Bad value for Lana #, use 0 to 9", "NetBios Protocol", MB_OK+MB_TASKMODAL+MB_ICONHAND) ! 476: goto GET_LANA ! 477: else ! 478: NewProto$ = GetSymbolValue("NameOut") + "=" + t$ ! 479: AddListItem "ListItemsIn", NewProto$ ! 480: ! 481: end if ! 482: end if ! 483: ! 484: UIPop (2) ! 485: GOTO RESTART_NETBIOS_PROTOCOL ! 486: ! 487: elseif sz$ = "CANCEL" THEN ! 488: UIPop (1) ! 489: GOTO RESTART_NETBIOS_OPTION ! 490: ! 491: elseif sz$ = "EXIT" THEN ! 492: ! 493: OldProto$ = GetSymbolValue("ListItemsOut") ! 494: RemoveSymbol "ListTmp" ! 495: ! 496: for i% = 1 to GetListLength("ListItemsIn") step 1 ! 497: if OldProto$ <> GetListItem("ListItemsIn", i%) then ! 498: ! 499: AddListItem "ListTmp", GetListItem("ListItemsIn", i%) ! 500: end if ! 501: next ! 502: ! 503: CopyList "ListItemsIn", "ListTmp", TRUE ! 504: ! 505: UIPop (2) ! 506: GOTO RESTART_NETBIOS_PROTOCOL ! 507: end if ! 508: ! 509: CopyList "NetBiosMap", "ListItemsOut", TRUE ! 510: ! 511: ! 512: FullInstall: ! 513: ! 514: group$ = "Microsoft C/C++ 7.0" ! 515: ! 516: '$ifndef RUNTIMEINSTALL ! 517: ! 518: CreateDir BasePath$, cmoNone ! 519: CreateDir MakePath(BasePath$, "rpc"), cmoNone ! 520: ! 521: AddSectionFilesToCopyList "Base", SrcDir$, MakePath(BasePath$, "rpc") ! 522: ! 523: ! 524: ' Install the SDK files first. ! 525: ! 526: CreateDir MakePath(BasePath$, "include"), cmoNone ! 527: ! 528: AddSectionFilesToCopyList "include", SrcDir$, MakePath(BasePath$, "include") ! 529: AddSectionFilesToCopyList "bin", SrcDir$, MakePath(BasePath$, "bin") ! 530: ! 531: if WindowsSDK then ! 532: AddSectionFilesToCopyList "winclude", SrcDir$, MakePath(BasePath$, "include\win") ! 533: AddSectionFilesToCopyList "wlib", SrcDir$, MakePath(BasePath$, "lib") ! 534: ! 535: CreateProgmanGroup group$, "", cmoNone ! 536: ShowProgmanGroup group$, 1, cmoNone ! 537: CreateProgmanItem group$, "RPC ReadMe", "notepad "+MakePath(BasePath$, "rpc\readme.txt"), "", cmoOverWrite ! 538: ! 539: end if ! 540: ! 541: if MSDOSSDK then ! 542: AddSectionFilesToCopyList "dinclude", SrcDir$, MakePath(BasePath$, "include\dos") ! 543: AddSectionFilesToCopyList "dlib", SrcDir$, MakePath(BasePath$, "lib") ! 544: end if ! 545: ! 546: if SamplesSDK then ! 547: ! 548: if MSDOSSDK and HelpFiles then ! 549: AddSectionFilesToCopyList "dHelp", SrcDir$, MakePath(BasePath$, "help") ! 550: end if ! 551: ! 552: if WindowsSDK and HelpFiles then ! 553: AddSectionFilesToCopyList "wHelp", SrcDir$, MakePath(BasePath$, "help") ! 554: ! 555: CreateProgmanItem group$, "RPC API Reference", "winhelp "+MakePath(BasePath$, "help\rpc10wh.hlp"), "", cmoOverWrite ! 556: CreateProgmanItem group$, "RPC MIDL Reference", "winhelp "+MakePath(BasePath$, "help\midl10wh.hlp"), "", cmoOverWrite ! 557: end if ! 558: ! 559: CreateDir MakePath(BasePath$, "rpc\samples"), cmoNone ! 560: ! 561: Open MakePath(BasePath$, "rpc\samples\makefile.dos") for Output As 1 ! 562: print #1, "# Nmake include file for MS-DOS sample applications" ! 563: print #1, ! 564: print #1, "OSINCLUDE="+MakePath(BasePath$, "include\dos") ! 565: close #1 ! 566: ! 567: Open MakePath(BasePath$, "rpc\samples\makefile.win") for Output As 1 ! 568: print #1, "# Nmake include file for Windows sample applications" ! 569: print #1, ! 570: print #1, "OSINCLUDE="+MakePath(BasePath$, "include\win") ! 571: close #1 ! 572: ! 573: ! 574: if WindowsSDK then ! 575: AddSectionFilesToCopyList "wsample2", SrcDir$, MakePath(BasePath$, "rpc\samples\whello") ! 576: AddSectionFilesToCopyList "wsample11", SrcDir$, MakePath(BasePath$, "rpc\samples\mandel") ! 577: end if ! 578: ! 579: if MSDOSSDK then ! 580: CreateDir MakePath(BasePath$, "rpc\samples\data"), cmoNone ! 581: CreateDir MakePath(BasePath$, "rpc\samples\handles"), cmoNone ! 582: ! 583: AddSectionFilesToCopyList "sample1", SrcDir$, MakePath(BasePath$, "rpc\samples\hello") ! 584: AddSectionFilesToCopyList "sample3", SrcDir$, MakePath(BasePath$, "rpc\samples\data\dunion") ! 585: AddSectionFilesToCopyList "sample4", SrcDir$, MakePath(BasePath$, "rpc\samples\data\inout") ! 586: AddSectionFilesToCopyList "sample5", SrcDir$, MakePath(BasePath$, "rpc\samples\data\xmit") ! 587: AddSectionFilesToCopyList "sample6", SrcDir$, MakePath(BasePath$, "rpc\samples\doctor") ! 588: AddSectionFilesToCopyList "sample7", SrcDir$, MakePath(BasePath$, "rpc\samples\handles\auto") ! 589: AddSectionFilesToCopyList "sample8", SrcDir$, MakePath(BasePath$, "rpc\samples\handles\cxhndl") ! 590: AddSectionFilesToCopyList "sample9", SrcDir$, MakePath(BasePath$, "rpc\samples\handles\usrdef") ! 591: AddSectionFilesToCopyList "sample10",SrcDir$, MakePath(BasePath$, "rpc\samples\dict") ! 592: ! 593: end if ! 594: ! 595: end if ! 596: ! 597: '$endif ! 598: ! 599: ! 600: ' Update the list of transports to install. ! 601: ! 602: if AllTransports then ! 603: RemoveSymbol "SelectedTransports" ! 604: end if ! 605: ! 606: if WindowsRuntime then ! 607: AddSectionFilesToCopyList "wruntime", SrcDir$, MakePath(WinPath$, "system") ! 608: ! 609: if fLanmanPresent and Detect.fEnhance then ! 610: ! 611: NetapiPath$ = FindTargetOnEnvVar("netapi.dll", "PATH") ! 612: ! 613: if NetapiPath$ <> "" then ! 614: AddSectionFilesToCopyList "wnetapi", SrcDir$, mid$(NetapiPath$, 1, len(NetapiPath$) - len("\netapi.dll")) ! 615: end if ! 616: else ! 617: AddSectionFilesToCopyList "dummynetapi", SrcDir$, MakePath(WinPath$, "system") ! 618: end if ! 619: ! 620: ! 621: if AllTransports then ! 622: MakeListFromSectionKeys "SelectedTransports", "wtrans" ! 623: end if ! 624: end if ! 625: ! 626: if MSDOSRuntime then ! 627: ! 628: CreateDir DosPath$, cmoNone ! 629: AddSectionFilesToCopyList "druntime", SrcDir$, DosPath$ ! 630: ! 631: if AllTransports then ! 632: MakeListFromSectionKeys "ListTmp", "dtrans" ! 633: CopyList "SelectedTransports", "ListTmp", FALSE ! 634: end if ! 635: ! 636: end if ! 637: ! 638: ! 639: ' For each transport selected, add to the DOS or Windows copylist. ! 640: ! 641: for i% = 1 to GetListLength("SelectedTransports") step 1 ! 642: ! 643: tran$ = GetListItem("SelectedTransports", i%) ! 644: ! 645: if instr (tran$, "DOS") then ! 646: AddSectionKeyFileToCopyList "dtrans", tran$, SrcDir$, DosPath$ ! 647: else ! 648: AddSectionKeyFileToCopyList "wtrans", tran$, SrcDir$, MakePath(WinPath$, "system") ! 649: ! 650: end if ! 651: next ! 652: ! 653: ! 654: ' Now write the registry file with the NSI values and the ! 655: ' transport to protocol mappings. ! 656: ! 657: KeyPrefix$ = "\Root\Software\Microsoft\Rpc" ! 658: ! 659: CreateDir RegPath$, cmoNone ! 660: Open MakePath(RegPath$, "rpcreg.dat") for Output As 1 ! 661: ! 662: print #1, KeyPrefix$+"\NameService\Protocol=ncacn_np" ! 663: print #1, KeyPrefix$+"\NameService\NetworkAddress=\\." ! 664: print #1, KeyPrefix$+"\NameService\Endpoint=\pipe\locator" ! 665: print #1, KeyPrefix$+"\NameService\DefaultSyntax=1" ! 666: ! 667: ' For each transport add the mapping for the protocols. ! 668: ! 669: for i% = 1 to GetListLength("SelectedTransports") step 1 ! 670: ! 671: tran$ = GetListItem("SelectedTransports", i%) ! 672: ! 673: Start = instr(tran$, "(")+1 ! 674: mapping$ = mid$(tran$, Start, len(tran$) - Start) ! 675: ! 676: 'Since we have DOS and windows mappings, there can be duplicates ! 677: 'make sure the mapping is only added once. ! 678: ! 679: for n% = 1 to GetListLength("MappedProtocols") step 1 ! 680: if mapping$ = GetListItem("MappedProtocols", n%) then ! 681: goto NextMapping ! 682: end if ! 683: next ! 684: ! 685: AddListItem "MappedProtocols", mapping$ ! 686: ! 687: ' NetBios protocols get special mappings for each protocol ! 688: ! 689: if instr(mapping$, "rpcltc5") then ! 690: for n% = 1 to GetListLength("NetBiosMap") step 1 ! 691: ! 692: NbMap$ = GetListItem("NetBiosMap", n%) ! 693: prot$ = mid$(NbMap$, 1, instr(NbMap$, "=")-1) ! 694: dll$ = mid$(mapping$, instr(mapping$, "=")) ! 695: ! 696: print #1, KeyPrefix$+"\ClientProtocols\ncacn_nb_"+prot$+dll$ ! 697: next ! 698: else ! 699: print #1, KeyPrefix$+"\ClientProtocols\ncacn_"+mapping$ ! 700: end if ! 701: ! 702: NextMapping: ! 703: next ! 704: ! 705: ! 706: 'For NetBios, build the protocol to lan adapter mappings. ! 707: ! 708: if NetBiosTransport then ! 709: for n% = 1 to GetListLength("NetBiosMap") step 1 ! 710: ! 711: NbMap$ = GetListItem("NetBiosMap", n%) ! 712: prot$ = mid$(NbMap$, 1, instr(NbMap$, "=")-1) + "0" ! 713: lana$ = mid$(NbMap$, instr(NbMap$, "=")) ! 714: ! 715: print #1, KeyPrefix$+"\NetBios\ncacn_nb_"+prot$+lana$ ! 716: next ! 717: end if ! 718: ! 719: Close #1 ! 720: ! 721: ! 722: ' Update the users autoexec file if needed. ! 723: ! 724: AutoExec$ = "C:\" ! 725: ! 726: if UCase$(RegPath$) <> "C:\" and GetEnvVariableValue ("RPC_REG_DATA_FILE") <> UCase$(RegPath$) then ! 727: UpdateReg = TRUE ! 728: else ! 729: UpdateReg = FALSE ! 730: end if ! 731: ! 732: UpdatePath = FALSE ! 733: ! 734: if MSDOSRuntime then ! 735: ! 736: ' i% = DoMsgBox("Path: "+path$, "DOS path: "+DosPath$, MB_OK+MB_TASKMODAL+MB_ICONHAND) ! 737: ! 738: if instr(path$, Ucase$(DosPath$)) = 0 then ! 739: UpdatePath = TRUE ! 740: end if ! 741: end if ! 742: ! 743: if UpdateReg or UpdatePath then ! 744: ! 745: ' Get the path to the autoexec file if not in "C:\" ! 746: ! 747: AutoExec$ = AutoExec$+"Autoexec.bat" ! 748: ! 749: while DoesFileExist(AutoExec$, femExists) = 0 ! 750: ! 751: if not GetPath(DlgAutoPath, AutoExec$) then ! 752: goto noAutoExec ! 753: end if ! 754: wend ! 755: ! 756: newPath$ = "SET PATH=%PATH%;"+DosPath$ ! 757: ! 758: ' Insert the new information by merging the new info while ! 759: ' copying the autoexec file. ! 760: ! 761: AutoExecRpc$ = mid$(AutoExec$, 1, len(AutoExec$)-3)+"rpc" ! 762: ! 763: Open AutoExec$ for Input As 1 ! 764: Open AutoExecRpc$ for Output As 2 ! 765: ! 766: while not eof(1) ! 767: line input #1, Buffer$ ! 768: ! 769: if len(Buffer$) = 0 then ! 770: print #2, Buffer$ ! 771: ! 772: elseif UpdatePath and instr (Ucase$(Buffer$), Ucase$(Newpath$)) then ! 773: UpdatePath = FALSE ! 774: ! 775: elseif UpdateReg and instr(Ucase$(Buffer$), "RPC_REG_DATA_FILE") then ! 776: UpdateReg = FALSE ! 777: ! 778: else ! 779: print #2, Buffer$ ! 780: ! 781: end if ! 782: ! 783: wend ! 784: ! 785: ! 786: ' Append any needed values to the autoexe file ! 787: ! 788: if UpdateReg then ! 789: print #2, "set RPC_REG_DATA_FILE="+RegPath$ ! 790: end if ! 791: ! 792: if UpdatePath then ! 793: print #2, NewPath$ ! 794: end if ! 795: ! 796: Close #1, #2 ! 797: ! 798: if UpdateReg = FALSE and UpdatePath = FALSE then ! 799: RemoveFile AutoExecRpc$, cmoNone ! 800: goto NoAutoExec ! 801: end if ! 802: ! 803: i% = DoMsgBox("In order for the runtime to function, setup needs to change your autoexec.bat file. Do you want setup to update this file?", "Update Autoexec.bat", 4+MB_TASKMODAL+32) ! 804: ! 805: if i% = 6 then ! 806: BackupFile AutoExec$, "Autoexec.bak" ! 807: CopyFile AutoExecRpc$, AutoExec$, cmoOverwrite, FALSE ! 808: RemoveFile AutoExecRpc$, cmoNone ! 809: else ! 810: i% = DoMsgBox("An updated auotexec.bat file is in the file "+AutoExecRpc$, "New Autoexec.bat", MB_OK+MB_TASKMODAL) ! 811: end if ! 812: ! 813: endif ! 814: ! 815: NoAutoExec: ! 816: ! 817: ' DumpCopyList "c:\tmp\t" ! 818: CopyFilesInCopyList ! 819: ! 820: ! 821: '$ifdef SystemNetApi ! 822: ! 823: if ReStartListEmpty() = 0 then ! 824: ! 825: SetRestartDir BasePath$ ! 826: i% = DoMsgBox("Setup will now restart Windows to complete installation. Close any MS-DOS applications before continuing.", "Restart Windows", MB_OK+MB_TASKMODAL) ! 827: ! 828: i% = ExitExecRestart() ! 829: i% = DoMsgBox("Restart failed. Run _mssetup.bat from the "+BasePath$+" directory from MS-DOS prompt.", "Restart Windows", MB_OK+MB_TASKMODAL+MB_ICONHAND) ! 830: end if ! 831: ! 832: '$endif ! 833: ! 834: ! 835: QUIT: ! 836: ON ERROR GOTO ERRQUIT ! 837: ! 838: if ERR = 0 THEN ! 839: dlg% = EXITSUCCESS ! 840: ! 841: elseif ERR = STFQUIT THEN ! 842: dlg% = EXITQUIT ! 843: ! 844: else ! 845: dlg% = EXITFAILURE ! 846: end if ! 847: ! 848: QUITL1: ! 849: while UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "") = "REACTIVATE" ! 850: wend ! 851: ! 852: UIPop 1 ! 853: ! 854: END ! 855: ! 856: ERRQUIT: ! 857: i% = DoMsgBox("Setup sources were corrupted, email stevez!", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND) ! 858: END ! 859: ! 860: ! 861: ASKQUIT: ! 862: sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "") ! 863: ! 864: if sz$ = "EXIT" THEN ! 865: UIPopAll ! 866: ERROR STFQUIT ! 867: elseif sz$ = "REACTIVATE" THEN ! 868: GOTO ASKQUIT ! 869: else ! 870: UIPop 1 ! 871: end if ! 872: RETURN ! 873: ! 874: Function GetPath(Dialog%, Path$) Static AS INTEGER ! 875: ! 876: SetSymbolValue "EditTextIn", Path$ ! 877: SetSymbolValue "EditFocus", "END" ! 878: ! 879: sz$ = UIStartDlg(CUIDLL$, Dialog%, "FEditDlgProc", Dialog% + 1, HELPPROC$) ! 880: NewPath$ = GetSymbolValue("EditTextOut") ! 881: ! 882: GetPath = FALSE ! 883: ! 884: if sz$ = "CONTINUE" THEN ! 885: Path$ = NewPath$ ! 886: GetPath = TRUE ! 887: end if ! 888: ! 889: UIPop (1) ! 890: ! 891: end function ! 892: ! 893: ! 894: function GetTransport() Static as INTEGER ! 895: ! 896: RemoveSymbol "ListItemsIn" ! 897: ! 898: if WindowsRuntime then ! 899: MakeListFromSectionKeys "ListItemsIn", "wtrans" ! 900: end if ! 901: ! 902: if MSDOSRuntime then ! 903: ! 904: MakeListFromSectionKeys "ListTmp", "dtrans" ! 905: CopyList "ListItemsIn", "ListTmp", FALSE ! 906: end if ! 907: ! 908: GetTransport = FALSE ! 909: ! 910: RESTART_RUNTIME_OPTION: ! 911: sz$ = UIStartDlg(CUIDLL$, DlgTransport, "FMultiDlgProc", HlpTransport, HELPPROC$) ! 912: ! 913: if sz$ = "CONTINUE" THEN ! 914: GetTransport = TRUE ! 915: ! 916: elseif sz$ = "REACTIVATE" THEN ! 917: GOTO RESTART_RUNTIME_OPTION ! 918: ! 919: end if ! 920: ! 921: CopyList "SelectedTransports" , "ListItemsOut", TRUE ! 922: ! 923: UIPop(1) ! 924: ! 925: end function ! 926: ! 927: ! 928: '** ! 929: '** Purpose: ! 930: '** Appends a file name to the end of a directory path, ! 931: '** inserting a backslash character as needed. ! 932: '** Arguments: ! 933: '** szDir$ - full directory path (with optional ending "\") ! 934: '** szFile$ - filename to append to directory ! 935: '** Returns: ! 936: '** Resulting fully qualified path name. ! 937: '************************************************************************* ! 938: ! 939: FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING ! 940: if szDir$ = "" THEN ! 941: MakePath = szFile$ ! 942: elseif szFile$ = "" THEN ! 943: MakePath = szDir$ ! 944: elseif MID$(szDir$, LEN(szDir$), 1) = "\" THEN ! 945: MakePath = szDir$ + szFile$ ! 946: else ! 947: MakePath = szDir$ + "\" + szFile$ ! 948: end if ! 949: END FUNCTION ! 950: ! 951: FUNCTION GetCheck (index%) STATIC AS INTEGER ! 952: ! 953: if GetListItem("CheckItemsState", index%) = "ON" then ! 954: GetCheck = TRUE ! 955: else ! 956: GetCheck = FALSE ! 957: end if ! 958: ! 959: END FUNCTION ! 960: ! 961: ! 962: Sub CopyList(ListOut$, ListIn$, Truncate%) static ! 963: ! 964: if Truncate% <> 0 then ! 965: RemoveSymbol ListOut$ ! 966: end if ! 967: ! 968: for i% = 1 to GetListLength(ListIn$) step 1 ! 969: AddListItem ListOut$, GetListItem(ListIn$, i%) ! 970: next ! 971: ! 972: end sub ! 973: ! 974: function BoolToOnOff (Bool%) static AS String ! 975: ! 976: if Bool% then ! 977: BoolToOnOff$ = "ON" ! 978: else ! 979: BoolToOnOff$ = "OFF" ! 980: end if ! 981: ! 982: end function ! 983: ! 984: function FormatSize () static AS String ! 985: ! 986: cbMore& = GetCopyListCost ("", "Cost", "") ! 987: cbSize = val(GetListItem("Cost", asc(BasePath$) - asc("A") + 1)) / 1024 ! 988: ! 989: if cbSize then ! 990: FormatSize = str$(cbSize)+"K" ! 991: else ! 992: FormatSize = "" ! 993: end if ! 994: ! 995: ClearCopyList ! 996: ! 997: end function ! 998: ! 999: ! 1000: function GetSampleSize () static AS String ! 1001: ! 1002: ! 1003: if SamplesSDK and MSDOSSDK then ! 1004: AddSectionFilesToCopyList "sample1", SrcDir$, BasePath$ ! 1005: AddSectionFilesToCopyList "sample3", SrcDir$, BasePath$ ! 1006: AddSectionFilesToCopyList "sample4", SrcDir$, BasePath$ ! 1007: AddSectionFilesToCopyList "sample5", SrcDir$, BasePath$ ! 1008: AddSectionFilesToCopyList "sample6", SrcDir$, BasePath$ ! 1009: AddSectionFilesToCopyList "sample7", SrcDir$, BasePath$ ! 1010: AddSectionFilesToCopyList "sample8", SrcDir$, BasePath$ ! 1011: AddSectionFilesToCopyList "sample9", SrcDir$, BasePath$ ! 1012: AddSectionFilesToCopyList "sample10",SrcDir$, BasePath$ ! 1013: end if ! 1014: ! 1015: if SamplesSDK and WindowsSDK then ! 1016: AddSectionFilesToCopyList "wsample2", SrcDir$, BasePath$ ! 1017: AddSectionFilesToCopyList "wsample11",SrcDir$, BasePath$ ! 1018: end if ! 1019: ! 1020: GetSampleSize = FormatSize() ! 1021: ! 1022: end function ! 1023: ! 1024: function GetDosSize () static AS String ! 1025: ! 1026: if MSDOSSDK then ! 1027: AddSectionFilesToCopyList "include", SrcDir$, BasePath$ ! 1028: AddSectionFilesToCopyList "dinclude", SrcDir$, BasePath$ ! 1029: AddSectionFilesToCopyList "dlib", SrcDir$, BasePath$ ! 1030: end if ! 1031: ! 1032: GetDosSize = FormatSize() ! 1033: ! 1034: end function ! 1035: ! 1036: function GetDosRunSize () static AS String ! 1037: ! 1038: if MSDOSRuntime then ! 1039: AddSectionFilesToCopyList "druntime", SrcDir$, BasePath$ ! 1040: end if ! 1041: ! 1042: GetDosRunSize = FormatSize() ! 1043: ! 1044: end function ! 1045: ! 1046: function GetWinSize () static AS String ! 1047: ! 1048: if WindowsSDK then ! 1049: AddSectionFilesToCopyList "include", SrcDir$, BasePath$ ! 1050: AddSectionFilesToCopyList "winclude", SrcDir$, BasePath$ ! 1051: AddSectionFilesToCopyList "wlib", SrcDir$, BasePath$ ! 1052: end if ! 1053: ! 1054: GetWinSize = FormatSize() ! 1055: ! 1056: end function ! 1057: ! 1058: function GetWinRunSize () static AS String ! 1059: ! 1060: if WindowsRuntime then ! 1061: AddSectionFilesToCopyList "wruntime", SrcDir$, BasePath$ ! 1062: end if ! 1063: ! 1064: GetWinRunSize = FormatSize() ! 1065: ! 1066: end function ! 1067: ! 1068: ! 1069: function GetTransportSize () static AS String ! 1070: ! 1071: if AllTransports then ! 1072: RemoveSymbol "SelectedTransports" ! 1073: end if ! 1074: ! 1075: if WindowsRuntime and AllTransports then ! 1076: MakeListFromSectionKeys "SelectedTransports", "wtrans" ! 1077: end if ! 1078: ! 1079: if MSDOSRuntime and AllTransports then ! 1080: ! 1081: MakeListFromSectionKeys "ListTmp", "dtrans" ! 1082: CopyList "SelectedTransports", "ListTmp", FALSE ! 1083: end if ! 1084: ! 1085: for i% = 1 to GetListLength("SelectedTransports") step 1 ! 1086: ! 1087: tran$ = GetListItem("SelectedTransports", i%) ! 1088: ! 1089: if instr (tran$, "DOS") then ! 1090: AddSectionKeyFileToCopyList "dtrans", tran$, SrcDir$, BasePath$ ! 1091: else ! 1092: AddSectionKeyFileToCopyList "wtrans", tran$, SrcDir$, BasePath$ ! 1093: ! 1094: end if ! 1095: next ! 1096: ! 1097: GetTransportSize = FormatSize() ! 1098: ! 1099: end function ! 1100: ! 1101: ! 1102: function GetHlpSize () static AS String ! 1103: ! 1104: if HelpFiles then ! 1105: ! 1106: if MSDOSSDK then ! 1107: AddSectionFilesToCopyList "dHelp", SrcDir$, BasePath$ ! 1108: end if ! 1109: ! 1110: if WindowsSDK then ! 1111: AddSectionFilesToCopyList "wHelp", SrcDir$, BasePath$ ! 1112: end if ! 1113: ! 1114: end if ! 1115: ! 1116: GetHlpSize = FormatSize() ! 1117: ! 1118: end function
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.