@ECHO OFF

REM Enable Command Extensions, needed for FOR command below
SETLOCAL ENABLEEXTENSIONS
IF ERRORLEVEL 1 (
  ECHO Error: Unable to enable command extensions >&2
  EXIT /B 1
)

REM Validate argument
IF "%1" == "tcl" GOTO goodarg
IF "%1" == "python" GOTO goodarg
IF "%1" == "perl" GOTO goodarg
IF "%1" == "ruby" GOTO goodarg
IF "%1" == "guile" GOTO goodarg
IF "%1" == "mzscheme" GOTO goodarg
IF "%1" == "php4" GOTO goodarg
IF "%1" == "ocaml" GOTO goodarg
IF "%1" == "pike" GOTO goodarg
IF "%1" == "chicken" GOTO goodarg
ECHO Usage: %0 language >&2
EXIT /B 1
:goodarg

REM Determine swig library directory
SET swiglib=
FOR /F "usebackq delims==" %%i IN (`swig -swiglib`) DO SET swiglib="%%i"
IF DEFINED swiglib (
  ECHO SWIG library directory is %swiglib% >&2
) ELSE (
  ECHO Error: Can't determine SWIG library directory >&2
  EXIT /B 1
)

REM Send SWIG runtime code to standard output
REM The sections below are based on SWIG's Runtime\Makefile.in targets
GOTO %1

:tcl
TYPE %swiglib%\common.swg
TYPE %swiglib%\tcl\swigtcl8.swg
EXIT /B 0

:python
ECHO #include "Python.h"
TYPE %swiglib%\common.swg
TYPE %swiglib%\python\pyrun.swg
EXIT /B 0

:perl
TYPE %swiglib%\common.swg
TYPE %swiglib%\perl5\perlrun.swg
EXIT /B 0

:ruby
TYPE %swiglib%\common.swg
TYPE %swiglib%\ruby\rubyhead.swg
TYPE %swiglib%\ruby\rubydef.swg
EXIT /B 0

:guile
TYPE %swiglib%\guile\guiledec.swg
TYPE %swiglib%\guile\guile.swg
EXIT /B 0

:mzscheme
TYPE %swiglib%\mzscheme\mzschemedec.swg
TYPE %swiglib%\mzscheme\mzscheme.swg
EXIT /B 0

:php4
TYPE %swiglib%\common.swg
TYPE %swiglib%\php4\php4run.swg
EXIT /B 0

:ocaml
TYPE %swiglib%\ocaml\libswigocaml.swg
EXIT /B 0

:pike
TYPE %swiglib%\common.swg
TYPE %swiglib%\pike\pikerun.swg
EXIT /B 0

:chicken
ECHO #include "chicken.h"
TYPE %swiglib%\common.swg
TYPE %swiglib%\chicken\chickenrun.swg
EXIT /B 0