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