1@echo off
2
3rem Try temp directory in a RAM-disk; if not available, use normal temp dir
4set mytemp=R:\temp
5if not exist %mytemp%\nul set mytemp=%temp%
6
7set tempname=%mytemp%\$$temp$$
8
9if "%1"=="" goto fin
10
11echo ****** 1) Create BZip2 archive
12copy /B %1 %tempname%
13del %tempname%.bz2
14
15bzip2 %tempname%
16
17echo ****** 2) Decompression
18
19echo.
20echo *** bzip2 (C version from www.bzip.org)
21timeit bzip2 -k -d %tempname%.bz2
22
23echo.
24echo *** pasbzip (non crc check, detransform in asm)
25timeit pasbzip %tempname%.bz2
26
27echo.
28echo *** pasbzip (non crc check, all in freepascal)
29timeit pasbzip_pas %tempname%.bz2
30
31rem echo *** bunzip (no write)
32rem timeit bunzip_nowrite %tempname%.bz2
33
34echo.
35echo *** bunzip (pure Ada)
36timeit bunzip %tempname%.bz2
37
38echo ****** 3) Comparison
39echo n | comp outfile %tempname%
40echo.
41echo n | comp bunzip.out %tempname%
42echo.
43echo n | comp bunzip.out outfile
44echo.
45
46dir %1
47
48:fin