Removed superfluous white space; added RCS Id

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");