<?php

//
// Maplegen
// Copyright (C) 2006 James Wilson, drakewilson@gmail.com
// Released under GPL
// http://www.gnu.org/copyleft/gpl.html
// 
// PDF from:
// http://burghduff.org
//

/*
Listened to:

Saosin- Saosin
Matchbook Romance - Voices
Amber Pacific - The Possibility and the Promise
Silverstein - Discovering the Waterfront
Senses Fail - Let It Enfold You w/ the bonus tracks
Cute Is What We Aim For - The Same Old Blood Rush With A New Touch
Settings - Illuminati (ex Cute Is What We Aim For) 
Sherwood - Sing, But Keep Going
Weird Al Yankovic - Straight Outta Lynwood
Jay Z - Kingdom Come
Incubus - Light Grenades
Gnarls Barkley - St. Elsewhere
The Used - In Love And Death
Taking Back Sunday - Louder Now

*/


// DB Config
$dbhost = 'localhost';
$dbuser = 'root';
$dbpass = '';
$dbname = 'maple';

// SQL
// `name` is the name used for the query
// `english` is the name shown in the option box
// `syntax` is the main function that will be called
// `syntax2` is any subroutines, like with(student), that it needs
// `syntax3` is any post function calls that would be needed
/*

-- phpMyAdmin SQL Dump
-- version 2.8.1
-- http://www.phpmyadmin.net
-- 
-- Host: localhost
-- Generation Time: Nov 22, 2006 at 02:56 PM
-- Server version: 5.0.21
-- PHP Version: 5.1.4
-- 
-- Database: `maple`
-- 

-- --------------------------------------------------------

-- 
-- Table structure for table `commands`
-- 

DROP TABLE IF EXISTS `commands`;
CREATE TABLE `commands` (
  `id` int(11) NOT NULL auto_increment,
  `name` varchar(30) collate latin1_general_ci default NULL,
  `english` varchar(30) collate latin1_general_ci default NULL,
  `syntax` varchar(200) collate latin1_general_ci default NULL,
  `syntax2` varchar(100) collate latin1_general_ci default NULL,
  `syntax3` varchar(100) collate latin1_general_ci default NULL,
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci AUTO_INCREMENT=38 ;

-- 
-- Dumping data for table `commands`
-- 

INSERT INTO `commands` VALUES (1, 'plot', '2D Graph', 'plot([function],[xvary])', NULL, NULL);
INSERT INTO `commands` VALUES (2, 'implicitplot', '2D Implicit Plot', 'implicitplot([function],[xvary],[yvary])', 'with(plots):', NULL);
INSERT INTO `commands` VALUES (3, 'factor', 'Factor', 'factor([function])', NULL, NULL);
INSERT INTO `commands` VALUES (4, 'factorcomplex', 'Factor Complex', 'factor([function],complex)', NULL, NULL);
INSERT INTO `commands` VALUES (5, 'solve', 'Solve', 'solve([function])', NULL, NULL);
INSERT INTO `commands` VALUES (6, 'limit', 'Limit', 'limit([function],[value])', NULL, NULL);
INSERT INTO `commands` VALUES (7, 'derivative', 'Derivative', 'diff([function])', NULL, NULL);
INSERT INTO `commands` VALUES (8, 'derivativeeval', 'Derivative Evalute', 'diff([function])', NULL, 'eval(%,[value])');
INSERT INTO `commands` VALUES (9, 'derivativesolve', 'Derivative Solve', 'diff([function])', NULL, 'solve(%=[valuenox])');
INSERT INTO `commands` VALUES (10, 'integral', 'Integral', 'int([function],[variable])', NULL, NULL);
INSERT INTO `commands` VALUES (11, 'integraldefinite', 'Definite Integral', 'int([function],[xvary])', NULL, NULL);
INSERT INTO `commands` VALUES (12, 'showtangent', 'Graph Tangent Line', 'showtangent([function],[value])', 'with(student):', NULL);
INSERT INTO `commands` VALUES (13, 'rightbox', 'Right Box', 'rightbox([function],[xvary],[num])', 'with(student):', 'value(%)');
INSERT INTO `commands` VALUES (14, 'volofrevolution', 'Volume of Revolution', 'VolumeOfRevolution([function],[xvary],[voloptions])', 'with(Student[Calculus1]):', NULL);
INSERT INTO `commands` VALUES (15, 'polarplot', 'Polar Graph', 'plots[polarplot]([function],[xvary])', 'with(plots):', NULL);
INSERT INTO `commands` VALUES (16, 'vectorgraph', 'Vector Graph', 'plots[arrow]([function],shape=arrow)', 'with(plots):', NULL);
INSERT INTO `commands` VALUES (17, 'dotproduct', 'Dot Product', 'LinearAlgebra[DotProduct]([function],[function2])', NULL, NULL);
INSERT INTO `commands` VALUES (18, 'crossproduct', 'Cross Product', 'LinearAlgebra[CrossProduct]([function],[function2])', NULL, NULL);
INSERT INTO `commands` VALUES (19, 'vectormagnitude', 'Magnitude', 'VectorCalculus[Norm]([function])', NULL, NULL);
INSERT INTO `commands` VALUES (20, 'graphvector', 'Graph Vector Function', 'plot([[function],[function2],[xvary]])', NULL, NULL);
INSERT INTO `commands` VALUES (21, 'graphvector3d', 'Graph 3D Vector Function', 'plots[spacecurve]([[function],[function2],[function3]],[xvary])', 'with(plots):', NULL);
INSERT INTO `commands` VALUES (22, 'vectorlimit', 'Vector Limit', 'limit([function],[value])', 'with(VectorCalculus):', NULL);
INSERT INTO `commands` VALUES (23, 'vectorderivative', 'Vector Derivative', 'diff([function],[variable])', 'with(VectorCalculus):', 'eval(%,[value])');
INSERT INTO `commands` VALUES (24, 'vectorint', 'Vector Integral', 'int([function],[variable])', 'with(VectorCalculus):', NULL);
INSERT INTO `commands` VALUES (25, 'vectordefint', 'Vector Definite Integral', 'int([function],[xvary])', 'with(VectorCalculus):', NULL);
INSERT INTO `commands` VALUES (26, 'arclength', 'Arc Length', 'ArcLength([function],[xvary])', 'with(VectorCalculus):', NULL);
INSERT INTO `commands` VALUES (27, 'plot3d', '3D Graph', 'plot3d([function],[xvary],[yvary])', NULL, NULL);
INSERT INTO `commands` VALUES (28, 'implicitplot3d', '3D Implicit Graph', 'implicitplot([function],[xvary],[yvary],[zvary])', 'with(plots):', NULL);
INSERT INTO `commands` VALUES (29, 'doubleint', 'Double Integral', 'Doubleint([function],[xvary],[yvary])', 'with(student):', 'value(%)');
INSERT INTO `commands` VALUES (30, 'tripleint', 'Triple Integral', 'Tripleint([function],[xvary],[yvary],[zvary])', 'with(student):', 'value(%)');
INSERT INTO `commands` VALUES (31, 'vectorfield', '2D Graph Vector Field', 'SetCoordinates(cartesian[[xname],[yname]])[n]VectorField([function],output=plot,view=[[xvarynox],[yvarynox]],fieldoptions=[grid=[[xgrid],[ygrid]]])', 'with(Student[VectorCalculus]):', NULL);
INSERT INTO `commands` VALUES (32, 'vectorfield3d', '3D Graph Vector Field', 'SetCoordinates(cartesian[[xname],[yname],[zname]])[n]VectorField([function],output=plot,view=[[xvarynox],[yvarynox],[zvarynox]],fieldoptions=[grid=[[xgrid],[ygrid],[zgrid]]])', 'with(Student[VectorCalculus]):', NULL);
INSERT INTO `commands` VALUES (33, 'partderiv', 'Partial Derivative', 'diff([function],[xname])', NULL, NULL);
INSERT INTO `commands` VALUES (34, 'partderiv2', 'Partial Derivative x 2', 'diff([function],[xname],[yname])', NULL, NULL);
INSERT INTO `commands` VALUES (35, 'partderiv3', 'Partial Derivative x 3', 'diff([function],[xname],[yname],[zname])', NULL, NULL);
INSERT INTO `commands` VALUES (36, 'gradient', 'Gradient 2D', 'Gradient([function],[[xname],[yname]])', 'with(Student[VectorCalculus]):', NULL);
INSERT INTO `commands` VALUES (37, 'gradient3d', 'Gradient 3D', 'Gradient([function],[[xname],[yname],[zname]])', 'with(Student[VectorCalculus]):', NULL);


*/
$time = explode(" ", microtime());
$start = $time[1] + $time[0];

mysql_connect($dbhost,$dbuser,$dbpass);
@mysql_select_db($dbname) or die( "Unable to select database");


function genheader($title) {
	return "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\">\n
	<html>
	<head>
	<title>".$title."</title>
	<script type=\"text/javascript\">
		function changePage() {
			var spans = document.getElementsByTagName('span');
			for(var i=0;i < spans.length;i++) {
				if(spans[i].id != 'info')
				spans[i].style.display ='none';
			}
			var options = document.getElementsByTagName('option');
			for(var i=0;i < options.length;i++) {
				if(options[i].selected) {
					var id = options[i].id;
					document.getElementById('info').innerHTML = id;
					if(id.indexOf('[function]') != -1) {
						document.getElementById('function').style.display = 'inline';
						document.getElementById('xname').style.display = 'inline';
					}
					if(id.indexOf('[function2]') != -1) {
						document.getElementById('function2').style.display = 'inline';
						document.getElementById('xname').style.display = 'inline';
					}
					if(id.indexOf('[function3]') != -1) {
						document.getElementById('function3').style.display = 'inline';
						document.getElementById('xname').style.display = 'inline';
					}	
					if(id.indexOf('[value]') != -1 || id.indexOf('[valuenox]') != -1) {
						document.getElementById('x').style.display = 'inline';
					}
					if(id.indexOf('[xvary]') != -1) {
						document.getElementById('xvary').style.display = 'inline';
					}
					if(id.indexOf('[yvary]') != -1) {
						document.getElementById('yvary').style.display = 'inline';
						document.getElementById('yname').style.display = 'inline';
					}
					if(id.indexOf('[zvary]') != -1) {
						document.getElementById('zvary').style.display = 'inline';
						document.getElementById('zname').style.display = 'inline';
					}
					if(id.indexOf('[xgrid]') != -1) {
						document.getElementById('xgrid').style.display = 'inline';
					}
					if(id.indexOf('[ygrid]') != -1) {
						document.getElementById('ygrid').style.display = 'inline';
						document.getElementById('yname').style.display = 'inline';
					}
					if(id.indexOf('[zgrid]') != -1) {
						document.getElementById('zgrid').style.display = 'inline';
						document.getElementById('zname').style.display = 'inline';
					}
					if(id.indexOf('[xvarynox]') != -1) {
						document.getElementById('xvary').style.display = 'inline';
					}
					if(id.indexOf('[yvarynox]') != -1) {
						document.getElementById('yvary').style.display = 'inline';
						document.getElementById('yname').style.display = 'inline';
					}
					if(id.indexOf('[zvarynox]') != -1) {
						document.getElementById('zvary').style.display = 'inline';
						document.getElementById('zname').style.display = 'inline';
					}
					if(id.indexOf('[xname]') != -1) {
						document.getElementById('xname').style.display = 'inline';
					}
					if(id.indexOf('[yname]') != -1) {
						document.getElementById('yname').style.display = 'inline';
					}
					if(id.indexOf('[zname]') != -1) {
						document.getElementById('zname').style.display = 'inline';
					}
					if(id.indexOf('[voloptions]') != -1) {
						document.getElementById('voloptions').style.display = 'inline';
					}
					
				}
			}
		}
		function highlight(field) 
		{
			field.focus();
			field.select();
		}
	</script>
	</head>
	<body onload=\"changePage()\">\n";
}
function genfooter() {
	return "</body>\n</html>";
}

function stoptimer($start) {
	$time = microtime();
	$time = explode(" ", $time);
	$time = $time[1] + $time[0];
	$finish = $time;
	$totaltime = ($finish - $start);
	printf ("Page loaded in %.3f seconds", $totaltime);
}

function genoption($name, $value, $syntax) {
	return "\t<option value=\"".$name."\" id=\"".$syntax."\" >".$value."</option>\n";
}

function checksql($string) {
	return preg_match("/^[a-z0-9]{1,30}$/ix", $string);
	//return preg_match("/^[a-z0-9!#$%&*+-=?^ @_(){|}~]{1,30}$/ix", $string);
}

function clean($data) {
	$data = str_replace("&","&amp;",$data);
	$data = str_replace('"',"&quot;",$data);
	$data = str_replace("<","&lt;",$data);
	$data = str_replace(">","&gt;",$data);
	return $data;
}

function template($title,$content,$start) {
	echo genheader($title);
	echo $content;
	echo "<br /><br /><br />";
	stoptimer($start);
	echo "<br />\n<a href=\"source.txt\">Source</a>\n";
	echo genfooter();
}


function process($syntax) {
	// clean($_GET[''])
	if(strpos($syntax,"[n]")) {
		$exploded = explode("[n]",$syntax);
		return $exploded;
		/*echo "bah";
		$syntaxtemp = "";
		foreach($exploded as $value) {
			$syntaxtemp .= process($value);
		}
		return $syntaxtemp;*/
	}
	
	$syntax = str_replace("[function]",clean($_GET['function']),$syntax);
	$syntax = str_replace("[function2]",clean($_GET['function2']),$syntax);
	$syntax = str_replace("[function3]",clean($_GET['function3']),$syntax);
	
	$syntax = str_replace("[xvary]",clean($_GET['xname'])."=".clean($_GET['xlow'])."..".clean($_GET['xhigh']),$syntax);
	$syntax = str_replace("[yvary]",clean($_GET['yname'])."=".clean($_GET['ylow'])."..".clean($_GET['yhigh']),$syntax);
	$syntax = str_replace("[zvary]",clean($_GET['zname'])."=".clean($_GET['zlow'])."..".clean($_GET['zhigh']),$syntax);
	
	$syntax = str_replace("[xname]",clean($_GET['xname']),$syntax);
	$syntax = str_replace("[yname]",clean($_GET['yname']),$syntax);
	$syntax = str_replace("[zname]",clean($_GET['zname']),$syntax);
	
	$syntax = str_replace("[xgrid]",clean($_GET['xgrid']),$syntax);
	$syntax = str_replace("[ygrid]",clean($_GET['ygrid']),$syntax);
	$syntax = str_replace("[zgrid]",clean($_GET['zgrid']),$syntax);
	
	$syntax = str_replace("[xvarynox]",clean($_GET['xlow'])."..".clean($_GET['xhigh']),$syntax);
	$syntax = str_replace("[yvarynox]",clean($_GET['ylow'])."..".clean($_GET['yhigh']),$syntax);
	$syntax = str_replace("[zvarynox]",clean($_GET['zlow'])."..".clean($_GET['zhigh']),$syntax);
	
	$syntax = str_replace("[variable]",clean($_GET['xname']),$syntax);
	$syntax = str_replace("[num]",clean($_GET['num']),$syntax);
	
	$syntax = str_replace("[xname]",clean($_GET['xname']),$syntax);
	$syntax = str_replace("[yname]",clean($_GET['yname']),$syntax);
	$syntax = str_replace("[zname]",clean($_GET['zname']),$syntax);
	
	$syntax = str_replace("[value]",clean($_GET['xname'])."=".clean($_GET['x']),$syntax);
	$syntax = str_replace("[valuenox]",clean($_GET['x']),$syntax);
	
	$syntax = str_replace("[voloptions]","axis=".clean($_GET['volaxis']).",output=".clean($_GET['voloutput']),$syntax);
	
	$syntax .= ";";
	return $syntax;
}




$type = $_GET['type'];

if(isset($_GET['type']) AND checksql($type)) {

$content = "";
$result = mysql_query("SELECT * FROM `commands` WHERE name = '".$type."' LIMIT 0, 1") or die("DB Error: ".mysql_error());

$syntax = mysql_result($result,0,"syntax");

if(mysql_result($result,0,"syntax2") != NULL) {
	$content .= "Needs:<br />\n<input type=\"text\"value=\"".mysql_result($result,0,"syntax2")."\" onclick=\"highlight(this)\" /><br /><br />\n";
}
$processedsyntax = process($syntax);
if(is_array($processedsyntax)) {
	foreach($processedsyntax as $value) {
		$content .= "<input type=\"text\"value=\"".process($value)."\" onclick=\"highlight(this)\" style=\"width: 50%;\" /><br />";
	}
}
else {
	$content .= "<input type=\"text\"value=\"".$processedsyntax."\" onclick=\"highlight(this)\" style=\"width: 50%;\" />";
}

if(mysql_result($result,0,"syntax3") != NULL) {
	$content .= "<br /><br />Then call:<br />\n<input type=\"text\"value=\"".process(mysql_result($result,0,"syntax3"))."\" onclick=\"highlight(this)\" /><br />\n";
}


//echo $content;
template(mysql_result($result,0,"english"),$content,$start);

}
else {

	$content = "";
	
	$content .= "<form action=\"index.php\" method=\"get\">\n";
	
	$result = mysql_query("SELECT * FROM `commands`") or die("DB error: ".mysql_error());
	$num = mysql_numrows($result);
	
	$content .= "<select name=\"type\" id=\"type\" onchange=\"changePage()\">\n";
	for($i=0;$i<$num;$i++) {
		$temp = mysql_result($result,$i,"syntax");
		if(mysql_result($result,$i,"syntax3") != NULL){
			$temp .= " | ".mysql_result($result,$i,"syntax3");
		}
		$content .= genoption(mysql_result($result,$i, "name"),mysql_result($result,$i, "english"),$temp);
		
	}
	$content .= "</select><br />\n<br />\n";
	$content .= "<span id=\"info\"></span><br />For more info about commands, read <a href=\"06Fa2415Maple1.pdf\">this</a>.<br /><br />";
	
	// Functions
	$content .= '<span id="function">Function: <input type="text" name="function" /> Note: This can also be a vector in certain occasions. Parenthesis are your friend. <br /></span>'."\n";
	$content .= '<span id="function2">Function 2: <input type="text" name="function2" /><br /></span>'."\n";
	$content .= '<span id="function3">Function 3: <input type="text" name="function3" /><br /></span>'."\n";
	
	// X varies
	$content .= '<span id="xvary">X varies from: <input type="text" name="xlow" id="xlow" />&nbsp;<input type="text" name="xhigh" id="xhigh" /><br /></span>'."\n";
	// Y varies
	$content .= '<span id="yvary">Y varies from: <input type="text" name="ylow" id="ylow" />&nbsp;<input type="text" name="yhigh" id="yhigh" /><br /></span>'."\n";
	// Z varies
	$content .= '<span id="zvary">Z varies from: <input type="text" name="zlow" id="zlow" />&nbsp;<input type="text" name="zhigh" id="zhigh" /><br /></span>'."\n";
	
	// Variables
	$content .= '<span id="x">X= <input type="text" name="x" /><br /></span>'."\n";
	$content .= '<span id="xname" >X named: <input type="text" name="xname" value="x" /><br /></span>'."\n";
	
	$content .= '<span id="y">Y= <input type="text" name="y" /><br /></span>'."\n";
	$content .= '<span id="yname">Y named: <input type="text" name="yname" value="y" /><br /></span>'."\n";
	
	$content .= '<span id="z">Z= <input type="text" name="z" /><br /></span>'."\n";
	$content .= '<span id="zname">Z named: <input type="text" name="zname" value="z" /><br /></span>'."\n";
	
	$content .= '<span id="xgrid" >X grid: <input type="text" name="xgrid" /><br /></span>'."\n";
	$content .= '<span id="ygrid" >Y grid: <input type="text" name="ygrid" /><br /></span>'."\n";
	$content .= '<span id="zgrid" >Z grid: <input type="text" name="zgrid" /><br /></span>'."\n";

	
	// Num
	$content .= '<span id="num">Num of boxes: <input type="text" name="num" value="" /><br /></span>'."\n";
	
	$content .= '<span id="voloptions">Axis: <input type="radio" name="volaxis" value="horizontal" /> Horizontal  <input type="radio" name="volaxis" value="vertical" /> Vertical <br />
	Output: <input type="radio" name="voloutput" value="plot" /> Plot <input type="radio" name="voloutput" value="integral" /> Integral <input type="radio" name="voloutput" value="value" /> Value <br /></span>'."\n";
	
	$content .= "<br /><input type=\"submit\" value=\"Submit\" />";
	$content .= "</form><br /><br />";
	
	
	template("Maple Command Generator",$content,$start);
	

}


// H4X!!


?>