#!/usr/bin/perl

# Jukkaletti: _private_ tai _protected attribuuttien perusteella generoitavat
# settirivit, gettirivit, konstruktori ja toString metodi
# korvaa aina olemassaolevat
# KÄYTTÖ: lopeta ohjelman kirjoittaminen viimeisen attribuutin jälkeen
# ja aja sille jukkaletti seuraavasti:
#
# For the impatient:
#
# jukkaletti Puhelin.java
#
# Tuloksena Puhelin.java-tiedostossa metodeilla täydennetty versio.
#
# Copyright Jukka Juslin 2005 -
#
#

$filename = @ARGV[0];
#print $filename;
open(JAVAPROG, "$filename") or die ("Couldn't open the specified file\n");
while(<JAVAPROG>) {
    if(/private|protected/) {
        ($eka, $toka, $kolmas, $neljas) = split(/\s{1,}/, $_);
        push(@words, $kolmas);
        $_ = $neljas;
        s/\;//;
        $neljas = $_;
        push(@words, $neljas);
        push @lines, [@words];
        @words = ();
    }
}
close JAVAPROG;


open(JAVAPROG, ">>$filename") or die ("Couldn't open the specified file\n");
print JAVAPROG "\n";
print JAVAPROG "    // oletuskonstruktori\n";
$_ = $filename;
s/\.java//;
$classname = $_;
print JAVAPROG "    public " . $classname . "() \{\n";
print JAVAPROG "    }";
print JAVAPROG "\n";
print JAVAPROG "\n";
for $i (0 .. $#lines) {
    print JAVAPROG "    public ";
    for $j (0 .. $#{$lines[$i]}) {
        if($j%2==0) {
            print JAVAPROG " $lines[$i][$j]";
            $k = $j+1;
            $alku = uc(substr($lines[$i][$k],0,1));
            $loppu = substr($lines[$i][$k],1,);
            print JAVAPROG " get" . $alku . $loppu;
        }
    }
        }
    }
    print JAVAPROG "() {\n";
    print JAVAPROG "       return(this.$lines[$i][$k]);\n";
    print JAVAPROG "    }\n";
}
for $i (0 .. $#lines) {
    print JAVAPROG "    public void ";
    for $j (0 .. $#{$lines[$i]}) {
        if($j%2==0) {
            #print JAVAPROG " $lines[$i][$j]";
            $k = $j+1;
            $alku = uc(substr($lines[$i][$k],0,1));
            $loppu = substr($lines[$i][$k],1,);
            print JAVAPROG " set" . $alku . $loppu;
        }
    }
    print JAVAPROG "($lines[$i][$j] $lines[$i][$k]) {\n";
    print JAVAPROG "       this.$lines[$i][$k] = $lines[$i][$k];\n";
    print JAVAPROG "    }\n";
}
print JAVAPROG "\n    public String toString() {";
print JAVAPROG "\n       String paluu = ";
for $i (0 .. $#lines) {
    for $j (0 .. $#{$lines[$i]}) {
        if($j%2==0 && $j!=0) {
            $k = $j+1;
            print JAVAPROG " \+ \" \" + $lines[$i][$k] ";
        } elsif($j==0) {
            print JAVAPROG "$lines[$i][$k]";
        }

    }
    if($i != $#lines) {
        print JAVAPROG " + \"  \" + ";
    }
}
print JAVAPROG ";";
print JAVAPROG "\n       return(paluu);\n";
print JAVAPROG "    }\n";
print JAVAPROG "}\n";

close JAVAPROG;