Difference between revisions of "C.php"

From Organic Design wiki
m (get the sign right)
({{legacy}})
 
(14 intermediate revisions by 3 users not shown)
Line 1: Line 1:
<?
+
{{legacy}}
 +
<php><?
 
# C compiler for XmlWiki Environment
 
# C compiler for XmlWiki Environment
 +
# Licensed under LGPL: www.gnu.org/copyleft/lesser.html
 
if ($GLOBALS['xwIsAdmin']) {
 
if ($GLOBALS['xwIsAdmin']) {
 
xwSetProperty($properties,'language','TEXT');
 
xwSetProperty($properties,'language','TEXT');
Line 6: Line 8:
 
$htdocs = $_SERVER['DOCUMENT_ROOT'];
 
$htdocs = $_SERVER['DOCUMENT_ROOT'];
 
if (!ereg( "\\/$", $htdocs)) $htdocs .= '/';
 
if (!ereg( "\\/$", $htdocs)) $htdocs .= '/';
 
+
$args = $_REQUEST['args'];
 
$src = $htdocs.'wiki/source.c';
 
$src = $htdocs.'wiki/source.c';
$gcc = '/usr/bin/gcc';  // diagnostics please
+
$gcc = '/usr/bin/gcc';
if ($switches = $_REQUEST['switches']) $gcc .= " $switches";
 
 
$out = $htdocs.'wiki/a.out';
 
$out = $htdocs.'wiki/a.out';
 
$stdout = $htdocs.'wiki/a.stdout';
 
$stdout = $htdocs.'wiki/a.stdout';
 
$stderr = $htdocs.'wiki/a.stderr';
 
$stderr = $htdocs.'wiki/a.stderr';
  
// Write the source to tmp file source.c
+
# Write the source to tmp file source
 
if ($handle = fopen($src, 'w+')) {
 
if ($handle = fopen($src, 'w+')) {
 
fwrite($handle, "$article\n");
 
fwrite($handle, "$article\n");
Line 20: Line 21:
 
}
 
}
  
// Compile & excecute
+
# Compile & excecute
 
$article = "Compiling using $gcc\n";
 
$article = "Compiling using $gcc\n";
 
$now = microtime();
 
$now = microtime();
Line 28: Line 29:
 
$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 $args 2>&1");
 
$article .= "Execution took " . (microtime() - $now) . " usec\n";
 
$article .= "Execution took " . (microtime() - $now) . " usec\n";
 
}
 
}
else xwMessage('Sorry, only admin can compile and execute C articles', 'red');
+
else xwMessage('Permission denied: Only admin can compile and execute C articles', 'red');
?>
+
?></php>

Latest revision as of 09:39, 14 March 2009

Legacy.svg Legacy: This article describes a concept that has been superseded in the course of ongoing development on the Organic Design wiki. Please do not develop this any further or base work on this concept, this is only useful for a historic record of work done. You may find a link to the currently used concept or function in this article, if not you can contact the author to find out what has taken the place of this legacy item.

<php><?

  1. C compiler for XmlWiki Environment
  2. Licensed under LGPL: www.gnu.org/copyleft/lesser.html

if ($GLOBALS['xwIsAdmin']) { xwSetProperty($properties,'language','TEXT'); $server = $_SERVER['HTTP_HOST']; $htdocs = $_SERVER['DOCUMENT_ROOT']; if (!ereg( "\\/$", $htdocs)) $htdocs .= '/'; $args = $_REQUEST['args']; $src = $htdocs.'wiki/source.c'; $gcc = '/usr/bin/gcc'; $out = $htdocs.'wiki/a.out'; $stdout = $htdocs.'wiki/a.stdout'; $stderr = $htdocs.'wiki/a.stderr';

# Write the source to tmp file source 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 $args 2>&1"); $article .= "Execution took " . (microtime() - $now) . " usec\n"; } else xwMessage('Permission denied: Only admin can compile and execute C articles', 'red'); ?></php>