lib/tcl/xcircuit.bat.in

   1 @echo off
   2 rem
   3 rem This script starts xcircuit under the Tcl interpreter,
   4 rem reading commands from a special .wishrc script which
   5 rem launches magic and retains the Tcl interactive interpreter.
   6 rem
   7
   8 set XCIRCUIT_LIB_DIR=XCLIBDIR
   9 set XCIRCUIT_WISH=WISH_EXE
  10
  11 set loclibdir=%XCIRCUIT_LIB_DIR%
  12
  13 set TKCON=1
  14 for %%i in (%*) do (
  15         if "%%i" == "-noconsole" set TKCON=0
  16 )
  17
  18 if "%TKCON%" == "1" (
  19
  20    if not exist %loclibdir%/CONSOLE set loclibdir=%loclibdir%/tcl
  21
  22    start %XCIRCUIT_WISH% %loclibdir%/CONSOLE -eval "source %loclibdir%/CONSOLE_SCRIPT" -slave "package require Tk; set argv [list %*]; set argc [llength argv]; source %loclibdir%/WRAPPER_INIT"
  23
  24 ) else (
  25
  26
  27 rem Run the stand-in for wish (xcircexec), which acts exactly like "wish"
  28 rem except that it replaces ~/.wishrc with xcircuit.tcl.  This executable is
  29 rem *only* needed when running without the console; the console itself is
  30 rem capable of sourcing the startup script.
  31
  32    %loclibdir%/xcircexec -- %*
  33
  34 )