Source code of Windows XP (NT5)
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

27 lines
625 B

setlocal ENABLEDELAYEDEXPANSION
set asms_dir=%_nttree%\asms
if not "%1"=="" set asms_dir=%1
if /i "%Comp%" NEQ "Yes" goto :NoCompress
set sxstmpfile=%temp%\sxs-compress-%random%
dir /s /b /a-d %asms_dir% | findstr /v .man | findstr /v /r "_$" > %sxstmpfile%
echo Compressing files (with update and rename) in %asms_dir%
for /f %%f in (%sxstmpfile%) do (
call :DoWork %%f
)
set sxstmpfile=
goto :EOF
:DoWork
set mytemp=%1
set mytemp2=!mytemp:~0,-1!_
if exist %mytemp2% del %mytemp2%
compress -s -zx21 %1 %mytemp2%
del %1
goto :EOF
:NoCompress
echo Not compressing files in %asms_dir% - Env. var "COMP" not set.
goto :EOF