home *** CD-ROM | disk | FTP | other *** search
/ CICA 1995 May / cica_0595_4.zip / cica_0595_4 / UTIL / WINCMD78 / SETUPWCL.CBF < prev    next >
Text File  |  1995-02-12  |  3KB  |  96 lines
  1. @ECHO OFF
  2. ECHO -----------------
  3. ECHO SAMPLE WCL SCRIPT
  4. ECHO -----------------
  5.  
  6. REM - THIS IS A SAMPLE (COMPLEX) SCRIPT OR BATCH FILE WHICH ATTEMPTS
  7. REM - TO USE MANY OF THE SCRIPT COMMANDS OF WCL. WHAT IT DOES IS TO
  8. REM - COPY THE WCL FILES TO A DIRECTORY, CREATE A PROGRAM MANAGER ICON,
  9. REM - LOAD ANOTHER COPY OF WCL, AND THEN CLOSE ITSELF DOWN.
  10. REM - THIS SCRIPT WILL ONLY RUN FROM "BIGWCL".
  11. REM - BLANK LINES ARE IGNORED!
  12. REM - SEMI-COLONS SHOULD NOT APPEAR ON "IF" LINES, UNLESS THEY ARE
  13. REM - FOLLOWED BY A "REM"
  14.  
  15. REM - THE SCRIPT STARTS!!
  16.  
  17. REM - check whether we are running the BIG version or the SMALL version
  18. IF SMALLVERSION GOTO NOTVALID
  19.  
  20. SAY This is a sample BATCH FILE which uses many of the SCRIPTING features of WCL.
  21. IF CONFIRM "Should I start running the script?" GOTO START
  22. BEEP                         ; REM - make an annoying beep!
  23. SAY Script aborted by user .... quitting. ; REM - show message
  24. RETURN                       ; REM - close this batch file.
  25.  
  26.  
  27. REM - the installation begins here
  28. :START
  29. IF GETS "Install FROM directory $Sd1" CHGSTR @Sd1=$Sd1 $ELSE GOTO END
  30. IF ISDIR "$Sd1 $Src" CHGSTR @Src=$Src $ELSE GOTO ERR2
  31. IF GETS "Enter target Directory $Dest" CHGSTR @Dest=$Dest $ELSE GOTO END
  32. IF ISDIR "$Dest $i" REM $ELSE MD $Dest    
  33. IF ISDIR "$Dest $i" CD $Dest $ELSE GOTO ERR1 
  34.  
  35. REM - if we get here, its safe to copy the WCL files
  36. COPY $Src\*.EXE
  37. COPY $Src\WCL*.HLP
  38. COPY $Src\*.INI
  39. COPY $Src\WCL*.DLL
  40. COPY $Src\*.WXX
  41. If EXIST $Src\*.WCL COPY $Src\*.WCL
  42. If EXIST $Src\*.TXT COPY $Src\*.TXT
  43. If EXIST $Src\*.FAQ COPY $Src\*.FAQ
  44. If NOT EXIST $Src\BWCC.DLL GOTO SKIPBWCC
  45.  
  46. REM - next line is skipped if BWCC.DLL is not in the source directory
  47. IF ISDIR "SYSDIR $i" COPY $Src\BWCC.DLL $i $ELSE COPY $Src\BWCC.DLL
  48.  
  49.  
  50. :SKIPBWCC
  51. Say Installation completed
  52.  
  53. REM - the next line looks for Program Manager, or continues elsewhere
  54. IF ISWIN "Program Manager $pm" CHGSTR @pm=$pm $ELSE GOTO END2
  55.  
  56. REM - the next line sends keys to Progman to create a program icon for WCL
  57. SENDKEYS $pm @FN~WCL{tab}$Dest\BIGWCL.EXE{tab}$Dest~
  58. SENDMESSAGE $pm MIN                       ; REM minimize Program Manager
  59. SETFOCUS                                  ; REM return to WCL window
  60. IF CONFIRM "Use BIGWCL as Windows SHELL?" WINSHELL $Dest\BIGWCL.EXE
  61. IF CONFIRM "Run the WCL configuration? program?" CFG
  62. $Dest\BIGWCL.EXE                          ; REM try to run the new BIGWCL
  63. SENDMESSAGE $pm SHOW                      ; REM restore Program Manager
  64. WMCLOSE                   ; REM close down this copy of WCL
  65.  
  66.  
  67. REM - error 1 comes next
  68. :ERR1
  69. Say Could not create $Dest. Quitting ...
  70. RETURN
  71.  
  72. REM - error 2 comes next
  73. :ERR2
  74. BEEP
  75. Say The directory "$Sd1" does NOT exist! Quitting ...
  76. RETURN
  77.  
  78. REM - end 1 comes next
  79. :END
  80. Say Script discontinued by user. Quitting ...
  81. RETURN
  82.  
  83. REM - end 2 comes next
  84. :END2
  85. PROGMAN                                 ; REM try to run Program Manager 
  86. DELAY 4                                 ; REM delay for 4 seconds  
  87. IF ISWIN "Program Manager $i" SENDKEYS $i @FN~WCL{tab}$Dest\BIGWCL.EXE{tab}$Dest~
  88. $Dest\BIGWCL.EXE            ; REM try to run the new BIGWCL
  89. WMCLOSE                    ; REM close down this copy of WCL
  90.  
  91.  
  92. :NOTVALID
  93. BEEP
  94. Say SORRY! You should only run this script from BIGWCL.
  95. RETURN
  96.