summaryrefslogtreecommitdiff
path: root/libsi/gendescr.pl
diff options
context:
space:
mode:
Diffstat (limited to 'libsi/gendescr.pl')
-rwxr-xr-xlibsi/gendescr.pl7
1 files changed, 4 insertions, 3 deletions
diff --git a/libsi/gendescr.pl b/libsi/gendescr.pl
index 901bb834..8273f640 100755
--- a/libsi/gendescr.pl
+++ b/libsi/gendescr.pl
@@ -1,5 +1,7 @@
#!/usr/bin/perl
+# $Id: gendescr.pl 1.2 2003/12/13 10:42:05 kls Exp $
+
print "Name (ohne ...Descriptor):";
$name=<STDIN>;
$name =~ s/\n$//;
@@ -10,7 +12,6 @@ print "Struct:";
$struct=<STDIN>;
$struct =~ s/\n$//;
-
mm:
$index=0;
$which=1;
@@ -44,7 +45,7 @@ sub schreib {
print "Danke.\n";
open(OUTPUT_H, ">>".$filename_h) or die "Could not open file!!";
open(OUTPUT_C, ">>".$filename_c) or die "Could not open file!!";
-
+
if ($inner) {
$offset=" ";
} else {
@@ -63,7 +64,7 @@ sub schreib {
print (OUTPUT_H "\n".$offset." int get".$members[$i]."() const;");
}
print(OUTPUT_H "\n".$offset."virtual int getLength() { return sizeof(".$struct."); }") if ($inner);
-
+
print(OUTPUT_H "\n".$offset."protected:\n".$offset." virtual void Parse();");
print(OUTPUT_H "\n".$offset."private:\n".$offset." const ".$struct." *s;") if ($struct ne "");
print(OUTPUT_H "\n".$offset."};\n\n");