This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Integrate mainline
[perl5.git] / NetWare / bat / ToggleD2.bat
1 @echo off
2 @rem AUTHOR: sgp
3 @rem CREATED: 23rd August 1999
4 @rem LAST REVISED: 6th April 2001
5 @rem Batch file to toggle D2 flag for debugging in case of debug build 
6 @rem and remove in case of release build.
7 @rem This file is called from BuildType.bat
8
9 if "%1" == "" goto Usage
10
11 if "%1" == "/now" goto now
12 if "%1" == "on" goto yes
13 if "%1" == "off" goto no
14 if "%1" == "/?" goto usage
15 if "%1" == "/h" goto usage
16
17 Rem Invalid input and so display the help message
18 goto Usage
19
20 :now
21 if "%USE_D2%" == "" echo USE_D2 is removed, uses /d1
22 if not "%USE_D2%"  == "" echo USE_D2 is set, uses /d2
23 goto exit
24
25 :yes
26 Set USE_D2=1
27 echo ....USE_D2 is set, uses /d2
28 goto exit
29
30 :no
31 Set USE_D2=
32 echo ....USE_D2 is removed. uses /d1
33 goto exit
34
35 :Usage
36  @echo on
37  @echo "Usage: ToggleD2 [on|off]"
38  @echo "Usage: ToggleD2 /now" - To display current setting
39
40 :exit