Difference between revisions of "C.php"

From Organic Design wiki
m
({{legacy}})
 
(82 intermediate revisions by 3 users not shown)
Line 1: Line 1:
<?
+
{{legacy}}
# SWF Compiler for XmlWiki Environment
+
<php><?
 +
# C compiler for XmlWiki Environment
 +
# 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';
  
$server = $_SERVER['HTTP_HOST'];
+
# Write the source to tmp file source
$htdocs = $_SERVER['DOCUMENT_ROOT'];
+
if ($handle = fopen($src, 'w+')) {
if ( !ereg( "\\/$", $htdocs ) ) $htdocs .= '/';
+
fwrite($handle, "$article\n");
 +
fclose($handle);
 +
}
  
$article = "<object classid=\"clsid:D27CDB6E-AE6D-11cf-96B8-444553540000\"
+
# Compile & excecute
codebase=\"http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=$version,0,0,0\"
+
$article = "Compiling using $gcc\n";
width=$width height=$height id=\"$src\" align=\"\"
+
$now = microtime();
type=\"application/x-shockwave-flash\" data=\"$src\">
+
shell_exec("$gcc $src 1>$stdout 2>$stderr");
<param name=flashvars value=\"$flashvars\">
+
$article .= "Compilation took " . (microtime() - $now) . " usec\n";
<param name=movie value=\"$src\">
+
$article .= file_get_contents($stdout).file_get_contents($stderr);
<param name=quality value=\"$quality\">
+
$article .= "\n\nExecuting compiled result:\n";
<param name=bgcolor value=\"$background\">
+
$now = microtime();
<embed src=\"$src\" quality=\"$quality\" bgcolor=\"$background\"
+
$article .= shell_exec("$out $args 2>&1");
width=$width height=$height align=\"\" flashvars=\"$flashvars\"
+
$article .= "Execution took " . (microtime() - $now) . " usec\n";
name=\"$src\" type=\"application/x-shockwave-flash\"
+
}
pluginspage=\"http://www.macromedia.com/go/getflashplayer\" />
+
else xwMessage('Permission denied: Only admin can compile and execute C articles', 'red');
</object>";
+
?></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, now this page is for historic record only.

<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>