#!/usr/bin/perl

########################
# $Id: flashcard 113 2004-03-26 15:11:10Z steve $
########################
# $Log$
# Revision 1.3  2004/03/26 15:11:10  steve
# faster, better, stronger
#
# Revision 1.2  2003/01/16 00:23:11  steve
# engine should work better now. added GPL info
#
########################

use strict;
use utf8;
use Getopt::Std;

getopts("abh");

usage() unless @ARGV;

my @langs;
my @review;

foreach my $file ( @ARGV ){

    open FLASH, "<$file" or die "cannot open $file for reading: $!";
    
    foreach my $line (<FLASH>){
	$line =~ s/#.+$//;

	if( my ($worda, $wordb) = $line =~ /^(.+?)\t+(.+?)$/ ){
	    
	    push @langs, [$worda, $wordb];
	}
    }
}

while(1){

    my $langsel = int rand 2;
    my $word    = int rand @langs;
    my $doreview = ((int rand 5) == 1) if @review;
    my $reviewnum = rand @review;

    my $word_pair = $langs[$word];
    $word_pair    = $review[$reviewnum] if $doreview;

    print $word_pair->[$langsel], "\n";


    my $foo = <STDIN>;
    print $word_pair->[($langsel + 1) % 2], "\n";
    my $bar = <STDIN>;
    $foo = $bar if $bar =~ /\S/;

    if( $foo =~ /n/i ){
	push @review, $word_pair;
    }elsif( $doreview && $foo =~ /y/i ){
	splice @review, $reviewnum, 1;
	
    }elsif( $foo =~ /p/i ){
	use Data::Dumper;
	print Dumper \@review;
	$foo = <STDIN>;
    }

    print "\e[2J";
}
    

sub usage{
die <<USAGE;
usage: $0 word_list [word_list2 [...]]

A simple flash card program designed for learning written languages. 

word_list and word_list2 are text files with one set of words per line.
each set of words is seperated by one or more tabs. One of the words
from either side of the tabs are randomly shown, the user presses enter
and then the other word is shown. This repeats until the quits with a
break.

Copyright (C) 2002 Steve Pomeroy <steve\@staticfree.info>

    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

USAGE
}