68 lines
1.8 KiB
Perl
Executable File
68 lines
1.8 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
foreach $name (@ARGV) {
|
|
|
|
$ucname = ucfirst $name;
|
|
$classname = "C$ucname";
|
|
$filename = lc $name;
|
|
$NAME = uc $name;
|
|
|
|
|
|
print "Creating H file $filename.H for class $classname\n";
|
|
|
|
open(file, "> ../../include/$filename.H") or die "Can't open $filename.H\n";
|
|
print file "#ifndef _", $NAME,"_H\n";
|
|
print file "#define _", $NAME,"_H\n";
|
|
print file "\n";
|
|
print file "#include \"msgvarlength.H\"\n";
|
|
print file "\n";
|
|
|
|
print file "class $classname : public CMsgVarLength \{\n";
|
|
print file "\n";
|
|
print file " arg\n";
|
|
print file "\n";
|
|
print file "public:\n";
|
|
print file " $classname();\n";
|
|
print file " $classname( arg );\n";
|
|
print file " ~$classname();\n";
|
|
print file " virtual void send(CStream * stream);\n";
|
|
print file " virtual void recive(CStream * stream);\n";
|
|
print file " getArg() { return arg; }\n";
|
|
|
|
print file "}\;\n";
|
|
print file "\n";
|
|
|
|
print file "#endif // _",$NAME,"_H\n";
|
|
close(file);
|
|
|
|
print "Creating C file $filename.C for class $classname\n";
|
|
|
|
open(file, "> $filename.C") or die "Can't open $filename.C\n";
|
|
print file "#include \"pvvmud.H\"\n";
|
|
print file "#include \"$filename.H\"\n";
|
|
print file "\n";
|
|
print file "$classname","::","$classname","():CMsgVarLength('?'){\n";
|
|
print file "\n";
|
|
print file "}\n";
|
|
print file "\n";
|
|
print file "$classname","::","$classname","( arg ):CMsgVarLength('?'){\n";
|
|
print file " setBodyLength( ? );\n";
|
|
print file "}\n";
|
|
print file "\n";
|
|
print file "$classname","::~","$classname","(){\n";
|
|
print file "\n";
|
|
print file "}\n";
|
|
print file "\n";
|
|
print file "void $classname","::recive(CStream * stream){\n";
|
|
print file "}\n";
|
|
print file "\n";
|
|
print file "void $classname","::send(CStream * stream){\n";
|
|
print file " CMsgVarLength::send(stream);\n";
|
|
print file "}\n";
|
|
print file "\n";
|
|
|
|
close(file);
|
|
|
|
}
|
|
|