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.
83 lines
2.0 KiB
83 lines
2.0 KiB
@REM -----------------------------------------------------------------
|
|
@REM
|
|
@REM startthread.cmd - BPerkins
|
|
@REM helper script called by startcompress
|
|
@REM
|
|
@REM Copyright (c) Microsoft Corporation. All rights reserved.
|
|
@REM
|
|
@REM -----------------------------------------------------------------
|
|
@if defined _CPCMAGIC goto CPCBegin
|
|
@perl -x "%~f0" %*
|
|
@goto :EOF
|
|
#!perl
|
|
use strict;
|
|
use lib $ENV{RAZZLETOOLPATH} . "\\PostBuildScripts";
|
|
use lib $ENV{RAZZLETOOLPATH};
|
|
use PbuildEnv;
|
|
use ParseArgs;
|
|
|
|
sub Usage { print<<USAGE; exit(1) }
|
|
startthread -e <event prefix> -c <complist> [-l <language>]
|
|
|
|
USAGE
|
|
|
|
parseargs('?' => \&Usage,
|
|
'e:'=> \$ENV{EVENTPREFIX},
|
|
'c:'=> \$ENV{COMPLIST});
|
|
|
|
|
|
# *** TEMPLATE CODE ***
|
|
$ENV{"_CPCMAGIC"}++;exit(system($0)>>8);
|
|
__END__
|
|
@:CPCBegin
|
|
@set _CPCMAGIC=
|
|
@setlocal ENABLEDELAYEDEXPANSION ENABLEEXTENSIONS
|
|
@if not defined DEBUG echo off
|
|
@REM *** CMD SCRIPT BELOW ***
|
|
|
|
|
|
set EventName=
|
|
|
|
for %%a in (%CompList%) do (
|
|
for %%b in (%%~xa) do set CompListNumber=%%b
|
|
)
|
|
|
|
for %%i in (%CompList%) do set CompListName=%%~nxi
|
|
if not exist %tmp%\compression md %tmp%\compression
|
|
echotime /t "Compress files in %CompList%">%tmp%\compression\%CompListName%.tmp
|
|
|
|
set EventName=!EventPrefix!comp!CompListNumber!
|
|
call logmsg.cmd "Event name is !EventName! ..."
|
|
|
|
echo about to compress ...
|
|
call ExecuteCmd.cmd "compress -d -zx21 -s @%CompList%"
|
|
|
|
echo done with compression.
|
|
|
|
del /f %tmp%\compression\%CompListName%.tmp
|
|
if "%errorlevel%" == "1" goto end
|
|
goto end
|
|
|
|
|
|
|
|
|
|
|
|
REM
|
|
REM Send an event to the parent script
|
|
REM
|
|
|
|
:SendEvent
|
|
if defined EventName (
|
|
echo Holding for !EventName! ...
|
|
perl %RazzleToolPath%\PostBuildScripts\cmdevt.pl -ivh !EventName!
|
|
echo Sending !EventName! ...
|
|
perl %RazzleToolPath%\PostBuildScripts\cmdevt.pl -ivs !EventName!
|
|
echo Event !EventName! is cleared.
|
|
set EventName=
|
|
)
|
|
goto :EOF
|
|
|
|
|
|
:end
|
|
call :SendEvent
|
|
seterror.exe "%errors%"& goto :EOF
|