File: ToggleD2.bat

package info (click to toggle)
perl 5.8.8-7etch6
  • links: PTS
  • area: main
  • in suites: etch
  • size: 60,396 kB
  • ctags: 33,629
  • sloc: perl: 199,713; ansic: 160,511; sh: 33,095; pascal: 8,270; lisp: 6,121; makefile: 2,373; cpp: 2,035; yacc: 1,047; java: 23
file content (40 lines) | stat: -rw-r--r-- 837 bytes parent folder | download | duplicates (11)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
@echo off
@rem AUTHOR: sgp
@rem CREATED: 23rd August 1999
@rem LAST REVISED: 6th April 2001
@rem Batch file to toggle D2 flag for debugging in case of debug build 
@rem and remove in case of release build.
@rem This file is called from BuildType.bat

if "%1" == "" goto Usage

if "%1" == "/now" goto now
if "%1" == "on" goto yes
if "%1" == "off" goto no
if "%1" == "/?" goto usage
if "%1" == "/h" goto usage

Rem Invalid input and so display the help message
goto Usage

:now
if "%USE_D2%" == "" echo USE_D2 is removed, uses /d1
if not "%USE_D2%"  == "" echo USE_D2 is set, uses /d2
goto exit

:yes
Set USE_D2=1
echo ....USE_D2 is set, uses /d2
goto exit

:no
Set USE_D2=
echo ....USE_D2 is removed. uses /d1
goto exit

:Usage
 @echo on
 @echo "Usage: ToggleD2 [on|off]"
 @echo "Usage: ToggleD2 /now" - To display current setting

:exit