Difference between revisions of "C.php"
(usecs for build and exec) |
m (get the sign right) |
||
Line 24: | Line 24: | ||
$now = microtime(); | $now = microtime(); | ||
shell_exec("$gcc $src 1>$stdout 2>$stderr"); | shell_exec("$gcc $src 1>$stdout 2>$stderr"); | ||
− | $article .= "Compilation took " . ( | + | $article .= "Compilation took " . (microtime() - $now) . " usec\n"; |
$article .= file_get_contents($stdout).file_get_contents($stderr); | $article .= file_get_contents($stdout).file_get_contents($stderr); | ||
$article .= "\n\nExecuting compiled result:\n"; | $article .= "\n\nExecuting compiled result:\n"; | ||
$now = microtime(); | $now = microtime(); | ||
$article .= shell_exec("$out 2>&1"); | $article .= shell_exec("$out 2>&1"); | ||
− | $article .= "Execution took " . ( | + | $article .= "Execution took " . (microtime() - $now) . " usec\n"; |
} | } | ||
else xwMessage('Sorry, only admin can compile and execute C articles', 'red'); | else xwMessage('Sorry, only admin can compile and execute C articles', 'red'); | ||
?> | ?> |
Revision as of 10:21, 24 June 2006
<?
- C compiler for XmlWiki Environment
if ($GLOBALS['xwIsAdmin']) { xwSetProperty($properties,'language','TEXT'); $server = $_SERVER['HTTP_HOST']; $htdocs = $_SERVER['DOCUMENT_ROOT']; if (!ereg( "\\/$", $htdocs)) $htdocs .= '/';
$src = $htdocs.'wiki/source.c'; $gcc = '/usr/bin/gcc'; // diagnostics please if ($switches = $_REQUEST['switches']) $gcc .= " $switches"; $out = $htdocs.'wiki/a.out'; $stdout = $htdocs.'wiki/a.stdout'; $stderr = $htdocs.'wiki/a.stderr';
// Write the source to tmp file source.c if ($handle = fopen($src, 'w+')) { fwrite($handle, "$article\n"); fclose($handle); }
// Compile & excecute $article = "Compiling using $gcc\n"; $now = microtime(); shell_exec("$gcc $src 1>$stdout 2>$stderr"); $article .= "Compilation took " . (microtime() - $now) . " usec\n"; $article .= file_get_contents($stdout).file_get_contents($stderr); $article .= "\n\nExecuting compiled result:\n"; $now = microtime(); $article .= shell_exec("$out 2>&1"); $article .= "Execution took " . (microtime() - $now) . " usec\n"; } else xwMessage('Sorry, only admin can compile and execute C articles', 'red'); ?>