home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p036 / 15.ddi / WCSETUP.MST < prev    next >
Encoding:
Text File  |  1992-07-01  |  9.7 KB  |  372 lines
  1. '**************************************************************************
  2. '*             MicroStation Windows Connection Setup
  3. '**************************************************************************
  4.  
  5. '$DEFINE DEBUG  ''Define for script development/debugging
  6.  
  7. '$INCLUDE 'setupapi.inc'
  8. '$INCLUDE 'msdetect.inc'
  9.  
  10. GLOBAL  CUIDLL$, USTNCFG$, USTNBAT$, CFGDAT$, USCONFIG$, REVIEWFLAG%
  11.  
  12. '$INCLUDE 'wcsetup.inc'
  13.  
  14. ''Bitmap ID
  15. CONST NEXUSLOGO = 1
  16.  
  17. GLOBAL USTNDIR$        ''Default destination directory.
  18.  
  19. DECLARE SUB Install
  20. DECLARE SUB ModifyConfigSys
  21. DECLARE SUB ModifySystemIni
  22. DECLARE SUB CreateUstationIni
  23.  
  24. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  25.  
  26.  
  27.  
  28. INIT:
  29.     CUIDLL$ = "wcsetup.dll"            ''Custom user interface dll
  30.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  31.  
  32.     SetBitmap CUIDLL$, NEXUSLOGO
  33.     SetTitle "MicroStation Windows Connection Setup"
  34.  
  35.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  36.     IF szInf$ = "" THEN
  37.     szInf$ = GetSymbolValue("STF_CWDDIR") + "SETUP.INF"
  38.     END IF
  39.     ReadInfFile szInf$
  40.  
  41. '$IFDEF DEBUG
  42.     i% = SetSizeCheckMode(scmOnIgnore)    '' could use scmOff; def = scmOnFatal
  43.     WinDrive$ = MID$(GetWindowsDir, 1, 1)
  44.     IF IsDriveValid(WinDrive$) = 0 THEN
  45.     i% = DoMsgBox("Windows drive ('"+WinDrive$+"') is not a valid drive.", "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK)
  46.     GOTO QUIT
  47.     END IF
  48. '$ENDIF ''DEBUG
  49.  
  50.  
  51. WELCOME:
  52.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
  53.     IF sz$ = "CONTINUE" THEN
  54.     UIPop 1
  55.     ELSE
  56.     GOSUB ASKQUIT
  57.     GOTO WELCOME
  58.     END IF
  59.  
  60.     OPTLIST$ = "CheckItemsIn"
  61.     AddListItem OPTLIST$, "ON"
  62.     AddListItem OPTLIST$, "ON"
  63. OPTION:
  64.     sz$ = UIStartDlg(CUIDLL$, OPTIONS, "FCheckDlgProc", OPTIONHELP, HELPPROC$)
  65.  
  66.     IF sz$ = "CONTINUE" THEN
  67.     UIPop(1)
  68.     ELSE
  69.     GOTO OPTION
  70.     END IF
  71.  
  72.     OPTLIST$ = "CheckItemsOut"
  73.  
  74.     IF GetListItem(OPTLIST$, 1) = "OFF" THEN
  75.     IF GetListItem(OPTLIST$, 2) = "OFF" THEN
  76.         GOTO QUIT 
  77.     ENDIF
  78.     ENDIF
  79.     
  80.     USTNDIR$ = GetIniKeyString (GetWindowsDir()+"ustation.ini", "Windows Connection", "uStnDir")
  81.     if USTNDIR$ = "" then 
  82.         USTNDIR$ = "C:\USTATION"
  83.     endif
  84.  
  85. GETPATH:
  86.     SetSymbolValue "EditTextIn", USTNDIR$
  87.     SetSymbolValue "EditFocus", "END"
  88. GETPATHL1:
  89.     sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)
  90.     USTNDIR$ = GetSymbolValue("EditTextOut")
  91.  
  92.     IF sz$ = "CONTINUE" THEN
  93.     IF DoesDirExist(USTNDIR$) = 0 THEN
  94.         GOSUB BADPATH
  95.         GOTO GETPATHL1
  96.     END IF
  97.     IF IsDirWritable(USTNDIR$) = 0 THEN
  98.         GOSUB BADPATH
  99.         GOTO GETPATHL1
  100.     END IF
  101.     IF IsValidUstnDir (USTNDIR$) = 0 THEN
  102.         i% = DoMsgBox(USTNDIR$ + " is not a valid MicroStation or Review directory.", "Windows Connection Setup", MB_TASKMODAL+MB_OK)
  103.         GOTO GETPATHL1
  104.     END IF
  105.  
  106.     UIPop 1
  107.     ELSEIF sz$ = "REACTIVATE" THEN
  108.     GOTO GETPATHL1
  109.     ELSE
  110.     GOSUB ASKQUIT
  111.     GOTO GETPATH
  112.     END IF
  113.  
  114.     IF GetListItem(OPTLIST$, 1) = "ON" THEN
  115.     Install
  116.     CreateUstationIni
  117.     ModifyConfigSys
  118.     ModifySystemIni
  119.     IF CfgWinC (USTNDIR$) = 1 THEN
  120.        ERR = STFQUIT
  121.        GOTO QUIT
  122.     ENDIF
  123.     ENDIF
  124.     
  125.     IF GetListItem(OPTLIST$, 2) = "ON" THEN
  126. DOMORE:
  127.     sz$ = UIStartDlg(CUIDLL$, MORENEXUS, "FInfo0DlgProc", 0, "")
  128.     IF sz$ = "REACTIVATE" THEN
  129.         GOTO DOMORE
  130.     ENDIF
  131.     UIPop 1
  132.     Shell GetSymbolValue("STF_SRCDIR")+"USINSTAL.EXE"
  133.     ENDIF
  134.  
  135. QUIT:
  136.     ON ERROR GOTO ERRQUIT
  137.  
  138.     IF ERR = 0 THEN
  139.     dlg% = EXITSUCCESS
  140.     ELSEIF ERR = STFQUIT THEN
  141.     dlg% = EXITQUIT
  142.     ELSE
  143.     dlg% = EXITFAILURE
  144.     END IF
  145. QUITL1:
  146.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  147.     IF sz$ = "REACTIVATE" THEN
  148.     GOTO QUITL1
  149.     END IF
  150.     UIPop 1
  151.  
  152.     END
  153.  
  154. ERRQUIT:
  155.     i% = DoMsgBox("Setup source files have been corrupted!", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  156.     END
  157.  
  158.  
  159.  
  160. BADPATH:
  161.     sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  162.     IF sz$ = "REACTIVATE" THEN
  163.     GOTO BADPATH
  164.     END IF
  165.     UIPop 1
  166.     RETURN
  167.  
  168.  
  169.  
  170. ASKQUIT:
  171.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  172.  
  173.     IF sz$ = "EXIT" THEN
  174.     UIPopAll
  175.     ERROR STFQUIT
  176.     ELSEIF sz$ = "REACTIVATE" THEN
  177.     GOTO ASKQUIT
  178.     ELSE
  179.     UIPop 1
  180.     END IF
  181.     RETURN
  182.  
  183.  
  184.  
  185.  
  186. '**
  187. '** Purpose:
  188. '**     Builds the copy list and performs all installation operations.
  189. '** Arguments:
  190. '**     none.
  191. '** Returns:
  192. '**     none.
  193. '*************************************************************************
  194. SUB Install STATIC
  195.  
  196.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  197.  
  198.     MDLAPPS$ = USTNDIR$ + "\MDLAPPS"
  199.     WINCONN$ = USTNDIR$ + "\WINCONN"
  200.     DRIVERS$ = USTNDIR$ + "\DRIVERS"
  201.     DOCS$ = USTNDIR$ + "\DOCS"
  202.  
  203.     CreateDir MDLAPPS$, cmoNone
  204.     CreateDir WINCONN$, cmoNone
  205.     CreateDir DRIVERS$, cmoNone
  206.     CreateDir DOCS$, cmoNone
  207.  
  208.     OpenLogFile MakePath(USTNDIR$, "LOGFILE.OUT"), 0
  209.     WriteToLogFile ""
  210.     WriteToLogFile "  User chose as destination directory: '" + USTNDIR$ + "'"
  211.     WriteToLogFile ""
  212.     WriteToLogFile "May have had to create the directory: " + USTNDIR$
  213.     WriteToLogFile ""
  214.  
  215.     AddSectionFilesToCopyList "Mdlapps", SrcDir$, MDLAPPS$
  216.     AddSectionFilesToCopyList "Winconn", SrcDir$, WINCONN$
  217.     AddSectionFilesToCopyList "Drivers", SrcDir$, DRIVERS$
  218.     AddSectionFilesToCopyList "Docs", SrcDir$, DOCS$
  219.     
  220.     sz$ = GetDateOfFile (USTNDIR$+"\KEYTAB.EXE")
  221.     if GetYearFromDate(sz$) <= 1992 then
  222.         if GetMonthFromDate(sz$) <= 06 then
  223.         AddSectionFilesToCopyList "Keytab", SrcDir$, USTNDIR$
  224.     endif
  225.     endif
  226.         
  227.     sz$ = GetDateOfFile (DRIVERS$+"\BSITIGA2.MA")
  228.     if GetYearFromDate(sz$) <= 1992 then
  229.         if GetMonthFromDate(sz$) <= 06 then
  230.         AddSectionFilesToCopyList "Bsitiga2", SrcDir$, DRIVERS$
  231.     endif
  232.     endif
  233.     
  234.     CopyFilesInCopyList
  235.  
  236.     SetupPIF WINCONN$+"\USTNWIN.PIF", USTNDIR$+"\USTNWIN.BAT", USTNDIR$
  237.     if REVIEWFLAG% = 1 then
  238.     SetupPIF WINCONN$+"\USTATION.PIF", USTNDIR$+"\REVIEW.BAT", USTNDIR$
  239.     else
  240.     SetupPIF WINCONN$+"\USTATION.PIF", USTNDIR$+"\USTATION.BAT", USTNDIR$
  241.     endif
  242.     
  243.     Open WINCONN$+"\WINBAT.CMD" For Output As #1
  244.     Print #1, "Execmin "+WINCONN$+"\USTNWCB.EXE"
  245.     Print #1, "if WinExist ";chr$(34);"MicroStation";chr$(34);
  246.     Print #1, " goto end"
  247.     Print #1, "Execmin "+WINCONN$+"\USTNGRPH.EXE"
  248.     Print #1, "if WinExist ";chr$(34);"MicroStation Text";chr$(34);
  249.     Print #1, " goto end"
  250.     Print #1, "Execmin "+WINCONN$+"\USTNWIN.PIF %1"
  251.     Print #1, ":end";
  252.     Close #1
  253.  
  254.     Open WINCONN$+"\FULLSCRN.CMD" For Output As #1
  255.     Print #1, "Execmin "+WINCONN$+"\USTNWCB.EXE"
  256.     Print #1, "if WinExist ";chr$(34);"MicroStation Text";chr$(34);
  257.     Print #1, " goto end"
  258.     Print #1, "if WinExist ";chr$(34);"MicroStation";chr$(34);
  259.     Print #1, " goto end"
  260.     Print #1, "Exec "+WINCONN$+"\USTATION.PIF %1"
  261.     Print #1, ":end";
  262.     Close #1
  263.  
  264.     GROUP$ = "uStn Windows Connection"
  265.     CreateProgmanGroup GROUP$, "", cmoNone
  266.     ShowProgmanGroup  GROUP$, 1, cmoNone
  267.  
  268.     if REVIEWFLAG% = 1 then
  269.     ICONTITLE$ = "Review"
  270.     else
  271.     ICONTITLE$ = "MicroStation"
  272.     end if
  273.  
  274.     CreateProgmanItem GROUP$, ICONTITLE$, WINCONN$+"\WINBAT.EXE ", "", cmoOverwrite
  275.  
  276.     CreateProgmanItem GROUP$, "Read Me", "write.exe "+DOCS$+"\INTRO.WRI", "", cmoOverwrite
  277.  
  278.     CreateProgmanItem GROUP$, "Configuration Utility", WINCONN$+"\_MSTEST WCCONFIG","",cmoOverwrite
  279.  
  280.     CreateProgmanItem GROUP$, "DOS "+ICONTITLE$, WINCONN$+"\WINBAT.EXE -C"+WINCONN$+"\FULLSCRN.CMD", "", cmoOverwrite
  281.  
  282.  
  283.  
  284.     CloseLogFile
  285.  
  286. END SUB
  287.  
  288.  
  289. '**
  290. '** Purpose:
  291. '**     Adds driver line to config.sys
  292. '** Arguments:
  293. '**     none.
  294. '** Returns:
  295. '**     none.
  296. '*************************************************************************
  297. SUB ModifyConfigSys STATIC
  298.  
  299.     WINCDVRCMD$ = "device = " + USTNDIR$ + "\WINCONN\MSWINC.SYS"
  300.  
  301. ASKMODIFY:
  302.     sz$ = UIStartDlg (CUIDLL$, ASKCONFIGSYS, "FQuitDlgProc", 0, "")
  303.  
  304.     IF sz$ = "CONTINUE" THEN
  305.     UIPop 1
  306.     CreateNewConfigSys "MSWINC", WINCDVRCMD$
  307.     CopyFile "C:\CONFIG.SYS", "C:\CONFIG.OLD", cmoOverwrite, 0
  308.     CopyFile "C:\CONFIG.NEW", "C:\CONFIG.SYS", cmoOverwrite, 0
  309.     RemoveFile "C:\CONFIG.NEW", cmoNone
  310.     ELSEIF sz$ = "REACTIVATE" THEN
  311.     GOTO ASKMODIFY
  312.     ELSE
  313.     UIPop 1
  314.     END IF
  315.  
  316. END SUB
  317.  
  318. '**
  319. '** Purpose:
  320. '**     Modifys 386enh settings in Windows system.ini
  321. '** Arguments:
  322. '**     none.
  323. '** Returns:
  324. '**     none.
  325. '*************************************************************************
  326. SUB ModifySystemIni STATIC
  327.  
  328.     SYSINI$ = GetWindowsDir()+"system.ini"
  329.     CreateIniKeyValue SYSINI$, "386Enh", "MinTimeslice", "20", cmoOverwrite
  330.     CreateIniKeyValue SYSINI$, "386Enh", "WinTimeslice", "100,50", cmoOverwrite
  331.     CreateIniKeyValue SYSINI$, "386Enh", "WinExclusive", "0", cmoOverwrite
  332.  
  333. END SUB
  334.  
  335. '**
  336. '** Purpose:
  337. '**     Modifys 386enh settings in Windows system.ini
  338. '** Arguments:
  339. '**     none.
  340. '** Returns:
  341. '**     none.
  342. '*************************************************************************
  343. SUB CreateUstationIni STATIC
  344.     USTNINI$ = GetWindowsDir()+"ustation.ini"
  345.     CreateIniKeyValue USTNINI$, "Windows Connection", "uStnDir", USTNDIR$, cmoOverwrite
  346. END SUB
  347.  
  348.  
  349.  
  350. '**
  351. '** Purpose:
  352. '**     Appends a file name to the end of a directory path,
  353. '**     inserting a backslash character as needed.
  354. '** Arguments:
  355. '**     szDir$  - full directory path (with optional ending "\")
  356. '**     szFile$ - filename to append to directory
  357. '** Returns:
  358. '**     Resulting fully qualified path name.
  359. '*************************************************************************
  360. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  361.     IF szDir$ = "" THEN
  362.     MakePath = szFile$
  363.     ELSEIF szFile$ = "" THEN
  364.     MakePath = szDir$
  365.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  366.     MakePath = szDir$ + szFile$
  367.     ELSE
  368.     MakePath = szDir$ + "\" + szFile$
  369.     END IF
  370. END FUNCTION
  371.  
  372.