home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 February / PCWK0296.iso / lwp95en / lotus008.dsk / DOCSCRIP / DOCBUILD.LSS next >
Text File  |  1995-05-17  |  2KB  |  98 lines
  1. '----------------------- LOTUS DEVELOPMENT CORPORATION -----------------------
  2. OPTION DECLARE
  3. '=============================== VERSION CONTROL =============================
  4. '$Log:run.lss
  5. ' Rev 1.0 7 November 1994 10:49 Mark Wallace
  6. ' Created
  7. '============================ END OF VERSION CONTROL =========================
  8.  
  9.  
  10. '--------- INCLUDE FILES, FORWARD DECLARES, PUBLIC VARIABLES/CONSTANTS -------
  11. USE "drvlib.lso"
  12. dim ResDir as string
  13. dim LocDir as string
  14. dim msgtext as string
  15. dim msgtitle as string
  16. dim msgstyle as integer
  17. dim CurrentDir as string
  18. dim oldsam as string
  19.  
  20. declare public function APIMsgBox lib "user" alias "MessageBox" (byval hwnd as integer,byval msgtext as string,byval msgtitle as string, byval style as integer) as integer
  21.  
  22.  
  23. '----- END OF INCLUDE FILES, FORWARD DECLARES, PUBLIC VARIABLES/CONSTANTS ----
  24.  
  25.  
  26. '----------------------- LOCAL SUBROUTINES AND FUNCTIONS ---------------------
  27.  
  28. SUB Initialize
  29.  
  30.  
  31. ' Setup the error handler
  32. ON ERROR GOTO ErrorHandler
  33.  
  34.  
  35. ' prepare the LWPUSER.INI file:
  36. if not FixLWPUSER() then
  37.   messagebox("Cannot initialize test")
  38. end if
  39.  
  40.   
  41.  
  42. '' Create the driver class
  43. 'if right$(trim$(CurDir$),1)<>"\" then 
  44.  ' CurrentDir$=CurDir$+"\"
  45. 'else 
  46.   CurrentDir$=CurDir$
  47. 'end if
  48.  
  49. ResDir$=CurrentDir$
  50. LocDir$=CurrentDir$
  51.  
  52. DIM driver AS NEW CDriver (locDir$, LocDir$, resDir$, LocDir$, LocDir$, LocDir$, "%S{ENTER}", "", "")
  53.  
  54. ' kill all old working files: 
  55. on error resume next
  56. call KillFiles(locDir$,"*.ILX",False)
  57. call KillFiles(locDir$,"*.TMP",False)
  58. call KillFiles(locDir$,"*.LOG",False)
  59. call KillFiles(locDir$,"*.RPT",False)
  60. call KillFiles(locDir$,"*.ILG",False)
  61. on error goto 0
  62.  
  63.  
  64. ' copy the list:
  65. filecopy LocDir$+"\"+"scripts.bak",LocDir$+"\"+"scripts.lst"
  66.  
  67. on error resume next
  68. kill CurrentDir$+"\results.bak"
  69. kill CurrentDir$+"\results.txt"
  70. on error goto 0
  71.  
  72.  
  73. ' collect windows data:
  74. call CollectWinData()
  75.  
  76. ' Execute the list
  77. driver.ExecuteList (CurrentDir$+"\"+"scripts.lst")
  78.  
  79.  
  80. msgtext$="Tests are complete, results are in file: "+CurrentDir$+"\results.txt"
  81. msgtitle$="Smoke test complete"
  82. msgstyle=0
  83.  
  84. call APImsgBox(getactivewindow(),msgtext$,msgtitle$,msgstyle)
  85.  
  86. '' Done
  87. EXIT SUB
  88.  
  89. ErrorHandler:
  90. ' LotusScript defined errors
  91. RESUME NEXT
  92.  
  93. Terminate:
  94. END SUB
  95.  
  96. '-------------------- END OF LOCAL SUBROUTINES AND FUNCTIONS -----------------
  97.  
  98.