/[eiffelstudio]/trunk/Delivery/scripts/windows/set_aliases.btm
ViewVC logotype

Contents of /trunk/Delivery/scripts/windows/set_aliases.btm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 56002 - (show annotations)
Sun Dec 4 22:32:09 2005 UTC (14 years, 1 month ago) by manus
File size: 3645 byte(s)
Updated to use svn instead of cvs.

1 REM Define some user parameters here
2
3 REM The file where all output is stored
4 set INSTALL_LOG=c:\work\57dev_deliv\install.log
5 REM NB: The following directory is where a new version of ec.exe will be finalized.
6 set FINALIZATION_DIR=c:\work\57dev_deliv
7 REM NB: The following directory must contain document.exe
8 set DOCUMENT_DIR=c:\work\Deliv_57
9 REM Tag to export files in CVS
10 set DEFAULT_CVS_TAG=svn://%USERNAME%@svn.ise/ise_svn/trunk
11 REM NB: The following directory will be erased!
12 set TMP_EIFFEL_SRC=c:\work\tmpdev
13 REM Where the new delivery is set up. Warning: if it exists, the directory will be erased!
14 set INSTALL_DIR=c:\work\InstalledEiffel57
15
16 REM Check for Windows 64 bits.
17 iff "%ISE_PLATFORM%" == "win64" then
18 set WIN64=true
19 endiff
20
21 REM OK The rest is private, no need for you to see it :)
22
23 REM File management
24 REM Copy also hidden files, keep attributes, overwrite automatically
25 alias copy *copy /hkz
26 REM Remove completely a directory
27 alias fullrd del /syeqxz >>& %INSTALL_LOG
28 REM Remove a file
29 alias fullrf del /yqze
30 REM Retrieve a file from the old delivery and put it in the new one
31 alias quick_move `iff "%2" == "" then & copy %ISE_EIFFEL\%1 %INSTALL_DIR\%1 >>& %INSTALL_LOG & else & copy %1 %ISE_EIFFEL\%2 %INSTALL_DIR\%2 >>& %INSTALL_LOG & endiff`
32 REM Create a directory if it doesn't exist already
33 alias safe_md `iff not isdir %1 then & iff exist %1 then & fullrf %1 & endiff & md %1 & endiff`
34 REM Save current path into TMP_PATH
35 alias save_path `set TMP_PATH=%@EXECSTR[cd]`
36
37 REM Helpers for the script
38 REM Give some info on what's happening, both in the log and on the screen
39 alias remtrace `echo %$ & echo -------------------------------- >>& %INSTALL_LOG & echo %$ >>& %INSTALL_LOG`
40 REM Give info concerning the elapsed time
41 alias give_time_to `remtrace time used to %$: & remtrace %@TIMER[1] & TIMER ON /1 >> NUL`
42 REM Clean exit
43 alias cancel `echo Exiting... & echo Total time used: & echo %@TIMER[2] & set PATH=%OLD_PATH & cdd %INIT_DIR & set EIFFEL_SRC=%OLD_EIFFEL_SRC & iff defined TMP_ISE_EIFFEL then & set ISE_EIFFEL=%TMP_ISE_EIFFEL & set TMP_ISE_EIFFEL= & endiff & *cancel`
44
45 REM CVS Commands: checkout, export
46 alias co `call svn co %$ >>& %INSTALL_LOG`
47 alias exprt `call svn export %$ >>& %INSTALL_LOG`
48 alias exprtfile `call svn cat %$`
49
50 REM C Compilation
51 alias default_make `if exist make_msc.bat (save_path & call make_msc.bat >>& %INSTALL_LOG & cd %TMP_PATH)`
52 alias all_makes `save_path & iff exist make_msc.bat then & call make_msc.bat >>& %INSTALL_LOG & endiff & iff exist make_bcb.bat then & cd %TMP_PATH & call make_bcb.bat >>& %INSTALL_LOG & endiff & cd %TMP_PATH`
53
54 REM Eiffel Compilation
55 REM Remove a project from the current directory, if any
56 alias clean_project `iff exist EIFGEN .or. isdir EIFGEN then & fullrd EIFGEN & endiff &^
57 iff exist *.epr then & fullrf *.epr & endiff`
58 REM Finish to freeze a finalized version
59 alias fff `iff isdir EIFGEN\F_code then & cd EIFGEN\F_code & finish_freezing -silent >>& %INSTALL_LOG & cd ..\.. & endiff`
60 REM Finish to freeze a workbench version
61 alias wff `iff isdir EIFGEN\W_code then & cd EIFGEN\W_code & finish_freezing -silent >>& %INSTALL_LOG & cd ..\.. & endiff`
62 REM Finalize at the Eiffel level only
63 alias finalize `ec -finalize -ace %$ >>& %INSTALL_LOG`
64 REM Melt at the Eiffel level only
65 alias melt `ec -ace %$ >>& %INSTALL_LOG`
66 alias freeze `ec -freeze -ace %$ >>& %INSTALL_LOG`
67 REM Move up the generated finalized exe (its name is the parameter) and delete the compiled files
68 alias cleanup_eiffel `iff exist EIFGEN\F_code\%1 then & move EIFGEN\F_code\%1 . & clean_project & endiff`
69
70 REM Tests....
71 alias testpar `if %@INDEX[%$,no_compile] ge 0 echo true`
72

Properties

Name Value
svn:eol-style native
svn:keywords Author Date Id Revision

  ViewVC Help
Powered by ViewVC 1.1.23