#!/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:',
	'only-questions:',
	'inverse-filter',
	'csv:',
	'sample:',
	'external:',
	'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)]

Calculates stats on AMC export files (with 'AB' ticked boxes).

Parameters:

\tHelp:                      --help [-h]
\tData selection:            --csv profname1/filename1/points1[,profname2/filename2/points2] OR --current-dir points
\tSamples to consider:       --sample global[,profs,sections]
\tStats to calculate:        --type average[,dist,dist_percentage,discrimination,marks]
\tQuestion filtering:        [--only-questions filename [--inverse-filter]]
\tUse external calculation:  --external execname

EXAMPLES:
";

echo "\n* Help:\n";
	echo basename(__FILE__)." -h\n";
	echo basename(__FILE__)." --help\n";

echo "\n* Basic usage:\n";
	echo basename(__FILE__)." --current-dir 30\n";
	echo basename(__FILE__)." --current-dir 30 --sample global --type average\n";
	echo basename(__FILE__)." --csv tournesol/tournesol.csv/30,favre/favre.csv/29 --sample global --type average\n";
	echo basename(__FILE__)." --csv tournesol/tournesol.csv/30,favre/favre.csv/29 --sample global --type average --only-questions common-questions.txt\n";

echo "\n* Questions filtering: (common-questions.txt format: one question id per line)\n";
	echo basename(__FILE__)." (...) --only-question common-question.txt\n";
	echo basename(__FILE__)." (...) --only-question common-question.txt --inverse-filters\n";

echo "\n* Points to mark conversion with an external script/exec:\n";
	echo basename(__FILE__)." (...) --external convertor.php

Sample PHP script for custom point to mark conversion:

#!/bin/env php
<?php

# Exam is on 30 points, no negative points
#   8pt is 1
#  21pt is 4
#  30pt is 6

\$points = (float)\$argv[1];

if (\$points<21) {
        \$mark = (float)(3/13*\$points-11/13);
} else {
        \$mark = (float)(2/9*\$points-2/3);
}
echo \$mark;
?>

Notes:
- Script has be be executable (chmod +x).
- INPUT: total points for the student as first parameter (can be negative if negative marking has been used)
- OUTPUT: non-rounded mark, with '.' as decimal separator
";
	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;
	}
}

$only_questions = null;
if (!empty($options['only-questions'])) {
	$filename = $options['only-questions'];
	if(!is_file($filename)) {
		echo "File not found: $filename\n";
		exit;
	}
	$only_questions = file($filename, FILE_IGNORE_NEW_LINES|FILE_SKIP_EMPTY_LINES);
}

$external = null;
if (!empty($options['external'])) {
	$external = $options['external'];
	if(!is_file($external)) {
		echo "External script/exec not found: $external\n";
		exit;
	}
}

$inverse_filter = false;
if (array_key_exists('inverse-filter', $options)) {
	$inverse_filter = true;
}


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, $only_questions, $inverse_filter, $external);
	$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
		$is_first = true;
		foreach ($Samples as $name => $S) {
			if (!$is_first) echo "\n"; else $is_first = false;
			$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 'discrimination':
					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;
				case 'questions':
					$questions = $S->getQuestions();
					foreach ($questions as $student) {
						echo implode(';', $student)."\n";
					}
					break;
			}

		}
	}
}

exit;
?>