#!/usr/bin/env php
<?php

require_once(dirname(__FILE__).'/lib/lib_amcstats.php');

// Printing functions

function printDistribution($line_id = null, $stats = null, $percentage = false) {
	if (is_null($line_id)) $line_id = "N/A";
	if (is_null($stats)) {
		echo "\"$line_id\",1,1.25,1.5,1.75,2,2.25,2.5,2.75,3,3.25,3.5,3.75,4,4.25,4.5,4.75,5,5.25,5.5,5.75,6\n";
	} else {
		echo "\"$line_id\"";
		if (!$percentage) {
			foreach ($stats['distribution'] as $n) echo ",$n";
		} else {
			foreach ($stats['distribution_percentage'] as $n) echo ",$n";
		}
		echo "\n";
	}
}


function printAverage($line_id = null, $stats = null) {
	if (is_null($line_id)) $line_id = "N/A";
	if (is_null($stats)) {
		echo "\"$line_id\",\"n\",\"tot\",\"average\",\"stddev\",\"median\"\n";
	} else {
		echo "\"$line_id\",\"{$stats['quarter_mark6']['n']}\",\"{$stats['quarter_mark6']['tot']}\",\"{$stats['quarter_mark6']['average']}\",\"{$stats['quarter_mark6']['stddev']}\",\"{$stats['quarter_mark6']['median']}\"\n";
	}
}

// End of printing functions

$shortopts = '';
$shortopts .= 'h';

$longopts = array(
	'help',
	'current-dir:',
	'csv:',
	'sample:',
	'type:',
	);

$options = getopt($shortopts, $longopts);

if (empty($options) or array_key_exists('h', $options) or array_key_exists('help', $options)) {
	echo "USAGE: ".basename(__FILE__)." [parameters (see below)]

\tStats on AMC export files:
\t\t-f|--csv filename[;filename] --sample global,profs,sections --type average,dist,dist_percentage,questions,marks\n\n";
echo "\tHelp:
\t\t-h|--help\n\n";
	echo "\n";
	echo "e.g.: ".basename(__FILE__)." -h\n";
	echo "e.g.: ".basename(__FILE__)." --help\n";
	echo "e.g.: ".basename(__FILE__)." --current-dir\n";
	echo "e.g.: ".basename(__FILE__)." --csv tournesol/tournesol.csv/30,favre/favre.csv/29 --sample global --type general\n";
	exit;
}


if (!empty($options['current-dir'])) {
	$total_points = $options['current-dir'];
	$filename = array();
	foreach(scandir('./') as $f) if (preg_match('/\.csv$/', $f)) $filename[] = $f;
	if (count($filename)) {
		$csv = "";
		$first = true;
		foreach($filename as $f) {
			if (!$first) $csv .= ',';
			$csv .= ucfirst(preg_replace('/\.csv$/', '', $f));
			$csv .= "/$f/$total_points";
			$first = false;
		}
	} else {
		echo "No AMC stat files found in this directory.\n";
		exit;
	}
}


if (!empty($options['csv'])) $csv = $options['csv'];
if (!empty($options['sample'])) $samples = explode(',', $options['sample']); else $samples = array( 'global');
if (!empty($options['type'])) $types = explode(',', $options['type']); else $types = array( 'average' );

// Create ExamCalcs object
$Global = new ExamCalcs();

// Load files
$loaded = array();
foreach(explode(',', $csv) as $file_info) {
	$details = explode('/', $file_info);
	if (count($details) < 3 ) {
		echo "CSV file list should look like: tournesol/tournesol.csv/30[,favre@favre.csv@29,...]\n";
		exit;
	}
	$name = $details[0];
	$filename = $details[1];
	$total = $details[2];

	if(!is_file($filename)) {
		echo "File not found: $filename\n";
		exit;
	}

	if (in_array($filename, $loaded)) {
		echo "Trying to load $filename a second time...\n";
		exit;
	}
	$Global->addFile($name, $filename, $total);
	$loaded[] = $filename;
}

foreach ($types as $type) {

	// Build samples
	foreach ($samples as $sample) {
		// Print header
		$sample_header = strtoupper($sample);
		switch ($type) {
			case 'average':
				printAverage($sample_header);
				break;
			case 'dist':
			case 'dist_percentage':
				printDistribution($sample_header);
				break;
			case 'marks':
				break;
		}

		// Build samples
		$Samples = array();
		switch ($sample) {
			case 'global':
				$Samples['global'] = new ExamCalcs($Global->getDataSet());
				break;
			case 'sections':
				foreach ($Global->getSections() as $section) {
					$tmpSample = new ExamCalcs($Global->getDataSet());
					$tmpSample->filterBySections($section);
					$Samples[$section] = $tmpSample;
				}
				break;
			case 'profs':
				foreach ($Global->getTeachers() as $prof) {
					$tmpSample = new ExamCalcs($Global->getDataSet());
					$tmpSample->filterByTeachers($prof);
					$Samples[$prof] = $tmpSample;
				}
				break;
		}

		// Print stats
		foreach ($Samples as $name => $S) {
			$stats = $S->getStats();
			switch ($type) {
				case 'average':
					printAverage($name, $stats);
					break;
				case 'dist_percentage':
					printDistribution($name, $stats, true);
					break;
				case 'dist':
					printDistribution($name, $stats);
					break;
				case 'questions':
					echo "\"STATS ON QUESTIONS: ".strtoupper($name)."\"\n";
					try {
						$S->printStatsOnCommonItems();
					} catch (Exception $e) {
						echo "\"Not enough data\"\n";
					}
					break;
				case 'marks':
					$marks = $S->getMarks();
					foreach ($marks as $student) {
						echo implode(';', $student)."\n";
					}
					break;
			}
		}
		echo "\n";
	}
}

exit;

exit;

?>