Leaked source code of windows server 2003
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.
 
 
 
 
 
 

32 lines
960 B

package Dispatch;
$total=((@_)?\@_:\@ARGV)->[0];
$total=16 if(!defined $total);
$chars=int(1+log($total)/log(10));
open(F, ">..\\MakeFile.mak");
printf F ("all : process\%0${chars}d\%0${chars}d\n", 1, 1);
for ($i=1; $i<=$total; $i++) {
for ($l=$j=1; $j <= $i; $j++) {
printf F ("process\%0${chars}d\%0${chars}d :\n\t\$(MAKE) /NOLOGO /F makefile ", $i, $j);
for ($k=1; $k <= $total / $i + ($j <= ($total % $i)); $k++) {
printf F ("process\%0${chars}d\%0${chars}d ", $total, $l++);
}
print F "\n";
}
}
# for ($i=1; $i<=$total; $i++) {
# printf F ("process\%0${chars}d\%0${chars}d : \n\t\$(MAKE) /NOLOGO /F makefile process\%0${chars}d\%0${chars}d\n\n", $total, $i, $total, $i);
# }
close(F);
# ## For Test
# open(F, ">MakeFile.Mak");
# for ($i=1; $i<=$total; $i++) {
# printf F ("process\%0${chars}d\%0${chars}d : \n\techo This is process\%0${chars}d\%0${chars}d\n\n", $total, $i, $total, $i);
# }
# close(F);