58 lines
1.5 KiB
Plaintext
58 lines
1.5 KiB
Plaintext
|
#!/usr/pkg/bin/perl
|
||
|
|
||
|
use CGI;
|
||
|
|
||
|
$GFORTH = '/arpa/ns/p/papa/bin/gforth-0.7.0';
|
||
|
$CORA = '/arpa/ns/p/papa/share/gforth/site-forth/cora.fs';
|
||
|
|
||
|
$query = CGI->new;
|
||
|
|
||
|
$command = $query->param('command');
|
||
|
|
||
|
print <<END1 ;
|
||
|
Content-type: text/html
|
||
|
|
||
|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
|
||
|
<html>
|
||
|
<head>
|
||
|
<title>Gforth Calculator</title>
|
||
|
<meta http-equiv="Content-type" content="text/html;charset=UTF-8">
|
||
|
<!-- <link rel="stylesheet" type="text/css" href="../tir/tir.css"> -->
|
||
|
<style type="text/css">
|
||
|
</style>
|
||
|
</head>
|
||
|
<body>
|
||
|
<h1>Gforth Calculator</h1>
|
||
|
<form action="gforth.cgi" method="post">
|
||
|
Command <input type="text" name="command" size=80 />
|
||
|
<input type="submit" value="Submit" />
|
||
|
</form>
|
||
|
<hr />
|
||
|
END1
|
||
|
|
||
|
if ($command) {
|
||
|
|
||
|
open(RESULT, '-|', "$GFORTH $CORA -e '$command CR BYE'") or die "Can't start gforth: $!";
|
||
|
|
||
|
print "<table><tr><td>$command</td><td>==></td><td>";
|
||
|
|
||
|
while (<RESULT>) {
|
||
|
chop $_;
|
||
|
print "$_<br />";
|
||
|
}
|
||
|
|
||
|
print "</td></tr></table>\n";
|
||
|
}
|
||
|
|
||
|
print <<END3 ;
|
||
|
<a href="http://www.complang.tuwien.ac.at/forth/gforth/Docs-html/">Gforth Manual</a><br />
|
||
|
<a href="http://www.forth.com/starting-forth/">Starting Forth</a><br />
|
||
|
<a href="http://prdownloads.sourceforge.net/thinking-forth/thinking-forth-color.pdf?download">Thinking Forth</a><br />
|
||
|
<a href="http://www.complang.tuwien.ac.at/projects/forth.html">Forth Research</a><br />
|
||
|
<a href="http://www.forth.org/">Forth Interest Group</a><br />
|
||
|
<a href="http://www.colorforth.com/">Chuck Moore</a><br />
|
||
|
</body>
|
||
|
</html>
|
||
|
END3
|
||
|
|