This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Integrate mainline
[perl5.git] / NetWare / bat / Buildtype.bat
CommitLineData
2986a63f
JH
1@echo off
2@rem AUTHOR: sgp
3@rem CREATED: 24th July 2000
4@rem LAST REVISED: 6th April 2001
5@rem Batch file to set debug/release build and toggle D2 flag for
6@rem debugging in case of debug build.
7@rem This file calls ToggleD2.bat which switches b/n d2 & d1 flags
8
9if "%1" == "" goto Usage
10if "%1" == "/now" goto now
11if "%1" == "/?" goto usage
12if "%1" == "/h" goto usage
13
14if "%1" == "r" goto set_type_rel
15if "%1" == "R" goto set_type_rel
16
17if "%1" == "d" goto set_type_dbg
18if "%1" == "D" goto set_type_dbg
19
91c54917 20Rem Invalid input and so display the help message
2986a63f
JH
21goto Usage
22
23:set_type_rel
24set MAKE_TYPE=Release
25echo ....Build set to %MAKE_TYPE%
26goto set_d2_off
27
28:set_type_dbg
29set MAKE_TYPE=Debug
30echo ....Build set to %MAKE_TYPE%
31if "%2" == "" goto set_d2_off
32call ToggleD2 %2
33
34goto exit
35
36:set_d2_off
37call ToggleD2 off
38goto exit
39
40:now
41if "%MAKE_TYPE%" == "" echo MAKE_TYPE is not set, hence it defaults to Release build
91c54917 42if not "%MAKE_TYPE%" == "" echo Current build type is - %MAKE_TYPE%
2986a63f
JH
43call ToggleD2 /now
44goto exit
45
46:Usage
47 @echo on
48 @echo "Usage: buildtype r/R|d/D [on/off]"
91c54917 49 @echo on/off - Toggling only for D2 flag during debug build
2986a63f
JH
50 @echo "Usage: buildtype /now" - To display current setting
51 @echo Ex. buildtype d on
52
53:exit