Discussion for Home page

Luis Alejandro Marquez Martinez — Mon, 11 Jun 2018 20:16:25 -0000

Nice software. I had a problem with the tex binary mode . The bug is in line 337 of yamwi.php
"\n\end{document}\n" ;}
should read
"\n\end{document}\n" ;}

As a comment, it is faster to use directly tex instead of latex. I am including a modified yamwi.php

// A simple php-web interface for Maxima.
// Basically, it creates a file with user input
// and calls Maxima in batch mode.

///////////////////
// USER SETTINGS //
///////////////////

$mode = 1; // 0 -> ASCII-Art output,
// 1 -> Binary TeX output,
// 2 -> Enhanced ASCII-Art output,
// 3 -> Syntactic output
// 4 -> Remote TeX + MathJax

$max_file_time = 1;

$max_process_time = 120;

$max_num_processes = 30;

//////////////
// MESSAGES //
//////////////

$message_dangerous = "Yamwi detected forbidden code: ";
$message_time_process = "Requested process aborted. It exceeded maximum execution time.";
$message_too_many_processes = "Too many users. Please, try later.";
$message_prog_error = "Programming error detected. Check your input.";
$submit_button = "Clic";
$clear_button = "Clear";

//////////////////////
// Global variables //
//////////////////////

$key = $_GET["c"];
$nproc = $_GET["n"];
$input = trim($_POST["max"]);
$apache_user_name = shell_exec('whoami');
$maxima_path = shell_exec('which maxima');

$yamwi_path = getcwd();
$dangerous_words =
array(':lisp',':lisp-quiet','to_lisp','to-maxima','system','eval_string',
'compfile','compile','translate','translate_file','compile_file',
'run_testsuite','bug_report','build_info','demo','appendfile',
'batch','batch','closefile','filename_merge','file_search',
'file_type','loadfile','save','stringout','with_stdout','writefile',
'room','status','setup_autoload','opena','openr','openw','read_matrix',
'read_lisp_array','read_maxima_array','read_hashed_array',
'read_nested_list','read_list','write_data','entermatrix',
'openplot_curves','xgraph_curves','plot2d_ps','psdraw_curve',
'pscom','plot2d','plot3d','concat','sconcat','?');

////////////////
// Debug info //
////////////////

$show_info = false;
if ($show_info)
echo 'Maximum time for files in tmp folder (min):

'.$max_file_time.'

'.
'Maximum time for running a process (sec):

'.$max_process_time.'

'.
'Maximum number of processes at a time:

'.$max_num_processes .'

/////////////////////////
// Auxiliary functions //
/////////////////////////

// create a key and store it in $key
function create_key() {
global $key;
$caracteres = "abcdefghijklmnopqrstuvwxyz0123456789";
$i = 0;
$cha = '' ;
while ($i <= 20) {
$num = rand() % 33;
$tmp = substr($caracteres, $num, 1);
$cha = $cha . $tmp;
$i++;}
$key = $cha;
return $cha; }

// removes old files
function remove_old_files () {
global $max_file_time, $yamwi_path;
shell_exec('find ' . $yamwi_path . '/tmp/* -amin +"' .
$max_file_time . '" -type f -exec rm -f {} \;'); }

//////////////////////
// Security section //
//////////////////////

// check for dangerous code
function dangerous ($code) {
global $dangerous_words;
$alert = false;
foreach ($dangerous_words as $word) {
if (! strstr($code, $word) === false) {
$alert = $word;
break; }}
return $alert;}

// checks if the number of Maxima processes opened by Yamwi exceeds $max_num_processes
function too_many_processes() {
global $max_num_processes, $apache_user_name, $show_info;
$cmd = 'ps -eo time,pid,user,pcpu,pmem,args ' .
' | grep ' . trim($apache_user_name) .
' | grep maxima | sort -rn';
$out = shell_exec($cmd);
$num = ceil((count(explode("\n", $out))-2)/2);
if ($show_info)
echo 'Current Yamwi activity: '.'

'.$out.'

'.
'Current number of Maxima processes:

'.$num .'

';
if ($num > $max_num_processes)
return true;
else
return false;}

////////////////////
// Output section //
////////////////////

// separates individual sentences from Maxima script
function input_sentences ($val) {
$anchor = 0;
$sentence_counter = 0;
$comment_level = 0;
for($i = 0 ; $i < strlen($val) ; $i++) {
if ($val[$i] == "/" && $val[$i+1] == "")
$comment_level = $comment_level + 1;
if ($val[$i] == "" && $val[$i+1] == "/")
$comment_level = $comment_level - 1;
if ($comment_level == 0 &&
($val[$i] == ";" || $val[$i] == "$")) {
$sentences[$sentence_counter]= substr($val, $anchor, $i - $anchor + 1);
$sentence_counter = $sentence_counter + 1;
$anchor = $i+1;} }
return $sentences; }

// Builds Maxima list of sentences
function list_of_sentences ($sentences) {
global $mode;
$sentence_counter = count($sentences);
$lista = "";
for($i = 1 ; $i < $sentence_counter ; $i++){
$lista = $lista .
"\"" .
str_replace("\"", "\\"" , $sentences[$i]) .
"\"";
if ($i < $sentence_counter-1)
$lista = $lista.",\n";}
if ($mode == 1 || $mode == 4)
$lista = $sentences[0]."\ntranslate_into_tex([".$lista."])$";
else
$lista = $sentences[0]."\ntranslate_into_print([".$lista."])$";
return $lista;}

// returns the necessary code to add all
// the requested graphics when working in ASCII mode.
function graphics() {
global $key, $nproc;
$result = "";
$file = 'tmp/' . $key . '.gr.' . $nproc . '.0.txt';
if (file_exists($file)) {
$fh = fopen($file, 'r');
$theData = trim(fread($fh, filesize($file)));
fclose($fh);
$out = explode("\n", $theData);
foreach ($out as $file_name)
$result = $result .
'
'; }
return $result; }

function write_form() {
global $key, $nproc, $input, $submit_button, $clear_button;
echo '<form method="post" action="'. $_SERVER<span>[" SCRIPT_NAME"]<="" span=""> .'?c=' . $key . '&n=' . $nproc. "\\">\n".
"<textarea name="\\"max\\"" rows="\\"10\\"">\n".
$input.
"</textarea>
\n".
"<input type="\\"submit\\"" value="\\""." $submit_button.="" "\\"="">\n".
"<input type="\\"button\\"" value="\\""." $clear_button.="" "\\"="" onClick="\\"this.form.max.value='';" return="" false\\"="">\n".
"</form>\n".
"

\n\n" ; }

function write_results ($val) {
echo $val;}

function gtlt ($str) {
return str_replace(">", ">", str_replace("<", "<", $str));}

function prepare_ascii_output($out) {
write_form();
write_results('

' .

                gtlt(substr($out, strpos($out, "(%i3)"))) .

                '

' .
graphics());}

function prepare_enhanced_ascii_output($out, $sentences) {
global $key, $nproc;
$out_counter = 0;

// read and clean Maxima output
$subout = trim($out);
$subout = substr($subout,31+strpos($subout,"start_maxima_output_print_code:"));

// scan Maxima output
while (strlen($subout) > 0) {
$text_code_ini = strpos($subout,"%%%");
$print_code[$out_counter] = substr($subout,0,$text_code_ini);
if ($print_code[$out_counter] != '')
$print_code[$out_counter] = '

' . gtlt($print_code[$out_counter]) . '

';
$image_code[$out_counter] = search_images($out_counter);
$text_code_end = strpos(substr($subout,$text_code_ini+3),"%%%");
$text_code[$out_counter] = trim(substr($subout, $text_code_ini, $text_code_end+6), "%");
$subout = substr($subout, $text_code_ini+$text_code_end+6);
$out_counter = $out_counter + 1; }

// write html code
write_form();
$result = "\n";
for($i = 1 ; $i <= $out_counter ; $i++) {
$this_result1 = ''; // the output label
$this_result2 = ''; // the mathematical result
if (substr($sentences[$i], -1) === ";") {
$this_result1 = '(%o' . $i . ')';
$this_result2 = '

' . $text_code[$i-1] . '

'; }
$result = $result .
'' .
'\n" .
'\n" .
"\n" .
'' .
'\n" .
'\n" .
"\n";}
$result = $result . "

' . '(%i' . $i . ')' . "	' . trim($sentences[$i]) . " \n". $print_code[$i-1] . "
' . $this_result1 . "	' . $image_code[$i-1] . $this_result2 . "

\n\n";
write_results($result); }

// search for images returned by sentence number $sn
// and write the corresponding html code
function search_images ($sn) {
global $key, $nproc;
$result = "";
$sen = $sn + 1;
$file = 'tmp/' . $key . '.gr.' . $nproc . '.' . $sen . '.txt';
if (file_exists($file)) {
$fh = fopen($file, 'r');
$theData = trim(fread($fh, filesize($file)));
fclose($fh);
$out = explode("\n", $theData);
foreach ($out as $file_name) {}
while (! file_exists($file_name)) {};
$result = $result . '
';}
return $result; }

function tex_template ($tex) {
return "\def\folio{} " .
$tex .
" \eject\end\n" ;}

function prepare_tex_output($out, $sentences) {
global $key, $nproc, $yamwi_path, $mode;
$out_counter = 0;

// read and clean Maxima output
$subout = trim($out);
$subout = substr($subout,31+strpos($subout,"start_maxima_output_tex_code:"));
$subout=str_replace("\begin{verbatim}", "$$", str_replace("\end{verbatim}", "$$", $subout));

// scan Maxima output
while (strlen($subout) > 0) {
$tex_code_ini = strpos($subout,"$$");
$print_code[$out_counter] = substr($subout,0,$tex_code_ini);
if ($print_code[$out_counter] != '')
$print_code[$out_counter] = '

' .

                                  gtlt($print_code[$out_counter]) .

                                  '

';
$image_code[$out_counter] = search_images($out_counter);
$tex_code_end = strpos(substr($subout,$tex_code_ini+2),"$$");
$tex_code[$out_counter] = substr($subout, $tex_code_ini, $tex_code_end+4);
$subout = substr($subout, $tex_code_ini+$tex_code_end+4);
$out_counter = $out_counter + 1; }

if ($mode == 1) {
// save LaTex files
for($i = 1 ; $i <= $out_counter ; $i++){
if (substr($sentences[$i], -1) === ";") {
// write latex file
$fich = fopen($yamwi_path . '/tmp/' . $key . '.tex', 'w');
fwrite($fich, tex_template($tex_code[$i-1]));
fclose($fich);
// compile latex source
shell_exec(
'cd ' . $yamwi_path . '/tmp/' . ';' .
'tex ' . $key . '.tex ;' .
'dvipng -D 150 -T tight ' . $key . '.dvi -o '.$key.'.'.$nproc.'.'.$i.'.png'); } }}

// write html code
if ($mode == 4) {
$result = '<script type="text/javascript" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>' . "\n\n";}
else {
$result = '';}
write_form();
$result = $result . "\n";
for($i = 1 ; $i <= $out_counter ; $i++) {
$this_result1 = ''; // the output label
$this_result2 = ''; // the mathematical result
if (substr($sentences[$i], -1) === ";") {
$this_result1 = '(%o' . $i . ')';
if ($mode == 1) {
$this_result2 = '';}
else {
$this_result2 = '(' . trim($tex_code[$i-1],"$") . ')';} }
$result = $result .
'' .
'\n" .
'\n" .
"\n" .
'' .
'\n" .
'\n" .
"\n"; }
$result = $result . "

' . '(%i' . $i . ')' . "	' . trim($sentences[$i]) . " \n" . $print_code[$i-1] . "
' . $this_result1 . "	' . $image_code[$i-1] . $this_result2 . "

\n\n";
write_results($result); }

// returns an alert message if something was wrong
function alert ($message) {
write_results('

' . $message . '

');}

function error_detected ($out) {
global $message_prog_error;
$yamwi1a_pos = strpos($out, "yamwi1a");
if (! $yamwi1a_pos === false)
return "Not enough information on some of: " .
substr($out,
$yamwi1a_pos + 7,
strpos($out, "yamwi1b") - $yamwi1a_pos - 7) .
".
You may try 'assume'." ;
elseif (! strpos($out, "Maxima encountered a Lisp error:") === false ||
! strpos($out, "incorrect syntax:") === false ||
! strpos($out, "-- an error. To debug this try: debugmode(true);") === false)
return $message_prog_error;
else
return false;}

function pre_process ($str) {
$tmp = str_replace("\", "" , $str);
$tmp = str_replace(array("wxdraw3d", "draw3d"), "Draw3d", $tmp);
$tmp = str_replace(array("wxdraw2d", "draw2d"), "Draw2d", $tmp);
$tmp = str_replace(array("wxdraw", "draw"), "Draw", $tmp);
return $tmp;}

// run Maxima and output results
function calculate () {
global $key, $nproc, $input, $max_process_time, $message_time_process, $show_info,
$mode, $yamwi_path;
$nproc = $nproc + 1;
$display2d = "";
if ($mode == 3) $display2d = "display2d: false,";

// build Maxima program
$val = '(maxima_tempdir: "'.$yamwi_path.'/tmp",' .
'%codigo_usuario%: "'.$key.'",' .
'%num_proceso%: "'.$nproc.'",' .
'%dir_sources%: "'.$yamwi_path.'/packages",' .
'load("'.$yamwi_path.'/yamwi.mac"),' .
'load("'.$yamwi_path.'/yamwi.lisp"),' .
$display2d .
"\"%%%\")\$\n" .
$input;
$val = pre_process ($val);

// in TeX or enhanced ASCII mode, isolate sentences.
if ($mode == 1 || $mode == 2 || $mode == 3 || $mode == 4) {
// 1. make array of input sentences
$sentences = input_sentences($val);
// 2. build the Maxima list with sentences as strings
$val = list_of_sentences($sentences); }

// create batch file
$fich = fopen($yamwi_path.'/tmp/'.$key.'.mac', 'w');
fwrite($fich, $val);
fclose($fich);

// call Maxima in batch mode
$out = shell_exec('timelimit -t '.
$max_process_time .
' -T 5 maxima -b "'.$yamwi_path.'/tmp/'.$key.'.mac"');
if ($show_info){
echo 'Complete Maxima input: '.'

'.$val.'

';
echo 'Complete Maxima output: '.'

'.$out.'

';}

// if process did not exceed maximum execution time
// generate html output.
if (strstr($out, 'Exiting on signal') === false) {
$out = substr($out,strpos($out, "%%%") + 4);
$out = rtrim(str_replace($yamwi_path.'/tmp/'.$key.'.mac','', $out));
$out = substr($out,0, strlen($out) - strlen(strrchr($out,"%")) - 1);
$input = str_replace("\", "" , $input);

// write results
$an_error = error_detected($out);
if (! $an_error === false) {
  write_form();
  alert ($an_error);}
elseif ($mode == 0)  // ASCII mode
  prepare_ascii_output($out);
elseif ($mode == 1 || $mode == 4) // TeX or MathJax mode
  prepare_tex_output($out, $sentences);
else  // Enhanced ASCII and syntactic modes
  prepare_enhanced_ascii_output($out, $sentences);

// cleaning old files
remove_old_files ();}

else {
write_form();
alert($message_time_process); }}

//////////////////
// Main program //
//////////////////

WikiPage Home modified by Mario Rodriguez Riotorto

Mario Rodriguez Riotorto — Sat, 15 Sep 2012 09:13:42 -0000

Welcome to your wiki! This is the default page, edit it as you see fit. To add a new page simply reference it within brackets, e.g.: [SamplePage]. The wiki uses [Markdown](/p/yamwi/wiki/markdown_syntax/) syntax. [[project_admins]] [[download_button]]

Recent changes to Home

Discussion for Home page

WikiPage Home modified by Mario Rodriguez Riotorto