WebSVN – HomeAutomation – Diff – /trunk/PcSoftware/scripts/makeCanId/makeCanId.pl


#!/usr/bin/perl
 
# Written by Mattias Runge 2008
 
use XML::Twig;
use Getopt::Long;
 
$binaryname = "makeCanId.pl";
if (@ARGV > 0)
{
    GetOptions( "xmlfile=s"     => \$xmlfile,
            "cfile=s"   => \$cfile);
}
else
{
    $help = 1;
}
 
if ($help)
{
    print "Usage ./$binaryname [options]\n";
    print "Options:\n";
    print "  -x <xmlfile>           Choose xmlfile to parse\n";
    print "  -c <headerfile>        Choose header file to write\n";
    print "  -h                 Shows this usage\n";
    print "\n";
    print "example: ./$binaryname -x data.xml -c moduleid.h\n";
 
    exit 0;
}
 
my $now = localtime time;
my $twig = XML::Twig->new();
 
$twig->parsefile($xmlfile);
 
my $root = $twig->root;
 
open (MYFILE, '>' . $cfile);
 
print MYFILE "// Built on $now by $binaryname\n";
print MYFILE "// DO NOT CHANGE MANUALLY\n\n";
 
print MYFILE "//------------------ //\n";
print MYFILE "// Class definitions //\n";
print MYFILE "//------------------ //\n";
print MYFILE "\n";
 
foreach my $class ($root->first_child('classes')->children('class'))
{
    my $className = $class->att('name');
    $className =~ tr/a-z/A-Z/;
    print MYFILE "#define CAN_MODULE_CLASS_$className " . $class->att('id') . "\n";
}
 
print MYFILE "\n";
print MYFILE "//-------------------- //\n";
print MYFILE "// Command definitions //\n";
print MYFILE "//-------------------- //\n";
print MYFILE "\n";
 
foreach my $command ($root->first_child('commands')->children('command'))
{
    my $commandName = $command->att('name');
    $commandName =~ tr/a-z/A-Z/;
    my $commandType = $command->att('type');
    $commandType =~ tr/a-z/A-Z/;
   
    if ($commandType eq "SPECIFIC")
    {
        $commandType = $command->att('module');
        $commandType =~ tr/a-z/A-Z/;
    }
   
    print MYFILE "#define CAN_MODULE_CMD_" . $commandType . "_" . $commandName . " " . $command->att('id') . "\n";
}
 
print MYFILE "\n";
print MYFILE "//------------------- //\n";
print MYFILE "// Module definitions //\n";
print MYFILE "//------------------- //\n";
print MYFILE "\n";
 
foreach my $module ($root->first_child('modules')->children('module'))
{
    my $className = $module->att('class');
    $className =~ tr/a-z/A-Z/;
    my $moduleName = $module->att('name');
    $moduleName =~ tr/a-z/A-Z/;
    print MYFILE "#define CAN_MODULE_TYPE_" . $className . "_" . $moduleName . " " . $module->att('id') . "\n";
}
 
print MYFILE "\n";
print MYFILE "//----------------- //\n";
print MYFILE "// Misc definitions //\n";
print MYFILE "//----------------- //\n";
print MYFILE "\n";
 
foreach my $define ($root->first_child('defines')->children('define'))
{
    my $groupName = $define->att('group');
    $groupName =~ tr/a-z/A-Z/;
    my $defineName = $define->att('name');
    $defineName =~ tr/a-z/A-Z/;
    print MYFILE "#define " . $groupName . "_" . $defineName . " " . $define->att('id') . "\n";
}
 
print MYFILE "\n";
 
close (MYFILE);
 
print "Successfully wrote " . $cfile . "\n";
 
 

Rev 947	Rev 950
1	#!/usr/bin/perl	1	#!/usr/bin/perl
2		2
3	# Written by Mattias Runge 2008	3	# Written by Mattias Runge 2008
4		4
5	use XML::Twig;	5	use XML::Twig;
6	use Getopt::Long;	6	use Getopt::Long;
7		7
8	$binaryname = "makeCanId.pl";	8	$binaryname = "makeCanId.pl";
9	if (@ARGV > 0)	9	if (@ARGV > 0)
10	{	10	{
11	GetOptions( "xmlfile=s" => \$xmlfile,	11	GetOptions( "xmlfile=s" => \$xmlfile,
12	"cfile=s" => \$cfile);	12	"cfile=s" => \$cfile);
13	}	13	}
14	else	14	else
15	{	15	{
16	$help = 1;	16	$help = 1;
17	}	17	}
18		18
19	if ($help)	19	if ($help)
20	{	20	{
21	print "Usage ./$binaryname [options]\n";	21	print "Usage ./$binaryname [options]\n";
22	print "Options:\n";	22	print "Options:\n";
23	print " -x <xmlfile> Choose xmlfile to parse\n";	23	print " -x <xmlfile> Choose xmlfile to parse\n";
24	print " -c <headerfile> Choose header file to write\n";	24	print " -c <headerfile> Choose header file to write\n";
25	print " -h Shows this usage\n";	25	print " -h Shows this usage\n";
26	print "\n";	26	print "\n";
27	print "example: ./$binaryname -x data.xml -c moduleid.h\n";	27	print "example: ./$binaryname -x data.xml -c moduleid.h\n";
28		28
29	exit 0;	29	exit 0;
30	}	30	}
31		31
32	my $now = localtime time;	32	my $now = localtime time;
33	my $twig = XML::Twig->new();	33	my $twig = XML::Twig->new();
34		34
35	$twig->parsefile($xmlfile);	35	$twig->parsefile($xmlfile);
36		36
37	my $root = $twig->root;	37	my $root = $twig->root;
38		38
39	open (MYFILE, '>' . $cfile);	39	open (MYFILE, '>' . $cfile);
40		40
41	print MYFILE "// Built on $now by $binaryname\n";	41	print MYFILE "// Built on $now by $binaryname\n";
42	print MYFILE "// DO NOT CHANGE MANUALLY\n\n";	42	print MYFILE "// DO NOT CHANGE MANUALLY\n\n";
43		43
44	print MYFILE "//------------------ //\n";	44	print MYFILE "//------------------ //\n";
45	print MYFILE "// Class definitions //\n";	45	print MYFILE "// Class definitions //\n";
46	print MYFILE "//------------------ //\n";	46	print MYFILE "//------------------ //\n";
47	print MYFILE "\n";	47	print MYFILE "\n";
48		48
49	foreach my $class ($root->first_child('classes')->children('class'))	49	foreach my $class ($root->first_child('classes')->children('class'))
50	{	50	{
51	my $className = "\U" . $class->att('name');	51	my $className = $class->att('name');
52	$className =~ tr/a-z/A-Z/;	52	$className =~ tr/a-z/A-Z/;
53	print MYFILE "#define CAN_MODULE_CLASS_$className " . $class->att('id') . "\n";	53	print MYFILE "#define CAN_MODULE_CLASS_$className " . $class->att('id') . "\n";
54	}	54	}
55		55
56	print MYFILE "\n";	56	print MYFILE "\n";
57	print MYFILE "//-------------------- //\n";	57	print MYFILE "//-------------------- //\n";
58	print MYFILE "// Command definitions //\n";	58	print MYFILE "// Command definitions //\n";
59	print MYFILE "//-------------------- //\n";	59	print MYFILE "//-------------------- //\n";
60	print MYFILE "\n";	60	print MYFILE "\n";
61		61
62	foreach my $command ($root->first_child('commands')->children('command'))	62	foreach my $command ($root->first_child('commands')->children('command'))
63	{	63	{
64	my $commandName = "\U" . $command->att('name');	64	my $commandName = $command->att('name');
65	$commandName =~ tr/a-z/A-Z/;	65	$commandName =~ tr/a-z/A-Z/;
66	my $commandType = "\U" . $command->att('type');	66	my $commandType = $command->att('type');
67	$commandType =~ tr/a-z/A-Z/;	67	$commandType =~ tr/a-z/A-Z/;
-		68
-		69	if ($commandType eq "SPECIFIC")
-		70	{
-		71	$commandType = $command->att('module');
-		72	$commandType =~ tr/a-z/A-Z/;
-		73	}
-		74
68	print MYFILE "#define CAN_MODULE_CMD_" . $commandType . "_" . $commandName . " " . $command->att('id') . "\n";	75	print MYFILE "#define CAN_MODULE_CMD_" . $commandType . "_" . $commandName . " " . $command->att('id') . "\n";
69	}	76	}
70		77
71	print MYFILE "\n";	78	print MYFILE "\n";
72	print MYFILE "//------------------- //\n";	79	print MYFILE "//------------------- //\n";
73	print MYFILE "// Module definitions //\n";	80	print MYFILE "// Module definitions //\n";
74	print MYFILE "//------------------- //\n";	81	print MYFILE "//------------------- //\n";
75	print MYFILE "\n";	82	print MYFILE "\n";
76		83
77	foreach my $module ($root->first_child('modules')->children('module'))	84	foreach my $module ($root->first_child('modules')->children('module'))
78	{	85	{
79	my $className = "\U" . $module->att('class');	86	my $className = $module->att('class');
80	$className =~ tr/a-z/A-Z/;	87	$className =~ tr/a-z/A-Z/;
81	my $moduleName = "\U" . $module->att('name');	88	my $moduleName = $module->att('name');
82	$moduleName =~ tr/a-z/A-Z/;	89	$moduleName =~ tr/a-z/A-Z/;
83	print MYFILE "#define CAN_MODULE_TYPE_" . $className . "_" . $moduleName . " " . $module->att('id') . "\n";	90	print MYFILE "#define CAN_MODULE_TYPE_" . $className . "_" . $moduleName . " " . $module->att('id') . "\n";
84	}	91	}
85		92
86	print MYFILE "\n";	93	print MYFILE "\n";
87	print MYFILE "//----------------- //\n";	94	print MYFILE "//----------------- //\n";
88	print MYFILE "// Misc definitions //\n";	95	print MYFILE "// Misc definitions //\n";
89	print MYFILE "//----------------- //\n";	96	print MYFILE "//----------------- //\n";
90	print MYFILE "\n";	97	print MYFILE "\n";
91		98
92	foreach my $define ($root->first_child('defines')->children('define'))	99	foreach my $define ($root->first_child('defines')->children('define'))
93	{	100	{
94	my $groupName = "\U" . $define->att('group');	101	my $groupName = $define->att('group');
95	$groupName =~ tr/a-z/A-Z/;	102	$groupName =~ tr/a-z/A-Z/;
96	my $defineName = "\U" . $define->att('name');	103	my $defineName = $define->att('name');
97	$defineName =~ tr/a-z/A-Z/;	104	$defineName =~ tr/a-z/A-Z/;
98	print MYFILE "#define " . $groupName . "_" . $defineName . " " . $define->att('id') . "\n";	105	print MYFILE "#define " . $groupName . "_" . $defineName . " " . $define->att('id') . "\n";
99	}	106	}
100		107
101	print MYFILE "\n";	108	print MYFILE "\n";
102		109
103	close (MYFILE);	110	close (MYFILE);
104		111
105	print "Successfully wrote " . $cfile . "\n";	112	print "Successfully wrote " . $cfile . "\n";
106		113
107		114

Subversion Repositories HomeAutomation

(root)/trunk/PcSoftware/scripts/makeCanId/makeCanId.pl – Rev 947 → 950