This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: [FAIL] Benchmark.t intermittent failure
[perl5.git] / NetWare / bat / ToggleXDC.bat
1 @echo off
2 @rem AUTHOR: sgp
3 @rem CREATED: 2nd November 1999
4 @rem LAST REVISED: 6th April 2001
5 @rem Batch file to toggle XDC flag setting, to link with XDC or not
6 @rem This file is called from MPKBuild.bat. 
7
8 if "%1" == "" goto Usage
9
10 if "%1" == "/now" goto now
11 if "%1" == "on" goto yes
12 if "%1" == "off" goto no
13 if "%1" == "/?" goto usage
14 goto dontknow
15
16 :now
17 if "%USE_XDC%" == "" echo USE_XDC is removed, doesn't link with XDCDATA
18 if not "%USE_XDC%"  == "" echo USE_XDC is set, links with XDCDATA, XDCFLAGS = %XDCFLAGS%
19 goto exit
20
21 :yes
22 Set USE_XDC=1
23 echo ....USE_XDC is set, links with XDCDATA
24 if "%2" == "" SET XDCFLAGS=-n
25 if not "%2" == "" SET XDCFLAGS=%2
26 if not "%3" == "" SET XDCFLAGS=%XDCFLAGS% %3
27 echo ....XDCFLAGS set to %XDCFLAGS%
28 goto exit
29
30 :no
31 Set USE_XDC=
32 SET XDCFLAGS=
33 echo ....USE_XDC is removed. doesn't link with XDCDATA
34 goto exit
35
36 :dontknow
37 goto Usage
38
39 :Usage
40  @echo on
41  @echo "Usage: ToggleXDC [on|off] [[flag1] [flag2]]"
42  @echo "Usage: ToggleD2 /now"  - To display current setting
43 :exit