27 lines
472 B
Perl
27 lines
472 B
Perl
open(FILEPROP,"clsid.h");
|
|
while(<FILEPROP>){
|
|
if(/(.+)\t\{(.+)\}$/){
|
|
$Tmp=$1;
|
|
$Tmp=~tr/a-z/A-Z/;
|
|
$GUID{$Tmp}=$2;
|
|
};
|
|
};
|
|
close(FILEPROP);
|
|
|
|
open(TEMPLATE,"MModTbl\\Class.tpl");
|
|
open(TABLEOUT,"> MModTbl\\Class.idt");
|
|
while(<TEMPLATE>){
|
|
if(/\{(.+)\}\t.+/){
|
|
$Tmp=$_;
|
|
$Tmp1=$1;
|
|
$Tmp1=~tr/a-z/A-Z/;
|
|
# if(0 != $GUID{$Tmp1}){
|
|
$Tmp=~s/$Tmp1/$GUID{$Tmp1}/;
|
|
# }
|
|
print TABLEOUT $Tmp;
|
|
}else{
|
|
print TABLEOUT "$_";
|
|
};
|
|
};
|
|
close(TABLEOUT);
|