3c3
< <title>jsScheme - Scheme interpreter in JavaScript</title>
---
> <title>mf</title>
15,29d14
<   $("#exampleButton").bind("click", function() {
<     $.get('example.scm', function(result) { $('#txt').get(0).value=result })
<   })
<   $("#concurrencyButton").bind("click", function() {
<     $.get('concurrency.scm', function(result) { $('#txt').get(0).value=result })
<   })
<   $("#libraryButton").bind("click", function() {
<     $('#txt').get(0).value=$('#lib').get(0).innerHTML
<   })
<   $("#clearInputButton").bind("click", function() {
<     $("#txt").get(0).value = ""
<   })
<   $("#clearLogButton").bind("click", function() {
<     $("#log").get(0).value = ""
<   })
33,34c18,23
< <h1>jsScheme - Scheme in JavaScript</h1>
< <a href="#changelog">Changelog</a> (Last Update 4 May 2006)
---
> <embed src="mf-canvas.svg"
>             width="400"
>             height="300"
>             type="image/svg+xml"></embed>
> <noembed>Appropriate text fallback</noembed>
> 
36,89c25,28
< <table border="0" cellspacing="0">
< <tr>
< <td valign="top">
< <table width="100%" border="0" cellspacing="0" cellpadding="3">
< <tr>
< <td rowspan="6" colspan="2">
< <textarea id="txt" cols="70" rows="10" onkeydown="key1(this)"
< onkeyup="key2(this)">
< </textarea></td>
< <td><input id="evalButton" type="button" class="button" value="eval"></td>
< </tr>
< <tr>
< <td><input id="clearInputButton" type="button" class="button" value="clear input"></td>
< </tr>
< <tr><td><input id="exampleButton" type="button" class="button" value="example"></td></tr>
< <tr><td><input id="concurrencyButton" type="button" class="button" value="concurrency"></td></tr>
< <tr>
< <td><input id="libraryButton" type="button" class="button" value="library"></td>
< </tr>
< <tr>
< <td><input id="clearLogButton" type="button" class="button" value="clear log"></td>
< </tr>
< <tr>
< <td width="5%">
< <h3>Result:</h3>
< </td>
< <td colspan="2" align="center">
< <p id="time">&nbsp;</p>
< <!-- p>Click on '(' to change horizontal/vertical flow, on cell to edit it</p --></td>
< </tr>
< <tr>
< <td colspan="3">
< <table border="0" cellspacing="1" cellpadding="5">
< <tr>
< <td id="out">&nbsp;</td>
< </tr>
< </table>
< </td>
< </tr>
< <tr>
< <td>
< <h3>Log:</h3>
< </td>
< <td align="center" colspan="2">
< <p><input type="checkbox" id="echoInp" checked><label for=
< "echoInp">log input</label> &nbsp; <input type="checkbox" id=
< "echoRes" checked><label for="echoRes">log results</label> &nbsp;
< <input type="checkbox" id="jit"><label for=
< "jit">Just-in-time compilation</label></p>
< </td>
< </tr>
< <tr>
< <td colspan="3" valign="top">
< <textarea id="log" cols="90" rows="8">
---
> <textarea id="txt" cols="70" rows="10" onkeydown="key1(this)" onkeyup="key2(this)">
> </textarea>
> <br /> <input id="evalButton" type="button" class="button" value="eval"> <br />
> <textarea id="log" cols="70" rows="8">
91,214d29
<  <iframe id="hf" style="display:none"></iframe>
< <h3>Features:</h3>
< <ul>
< <li>Proper tail-recursion</li>
< <li>First-class continuations with even
< <code>dynamic-wind</code></li>
< <li>Boolean, string, number, char, and vector data types (no
< complex / rational numbers)</li>
< <li>Limited <code>syntax-rules</code> transformer (written in
< Scheme; no nested ellipsis ('...') and vectors support)</li>
< <li>Optional just-in-time compilation to javascript (does not
< support continuations; library can be pre-compiled with
< <code>(compile-lib)</code> and inserted in <code>init()</code> -
< this will speed up loading in price of ~200Kb; <a href=
< "javascript-scheme.tar.gz">download it</a>)</li>
< <li>Almost no error checking</li>
< <li>No I/O like <code>load</code>, <code>read-char</code>,
< <code>open-input-file</code>, etc.</li>
< <li>Limited <code>values</code> support (only first value is
< displayed; all continuations may receive multiple values, not only
< those created with <code>call-with-values</code>):
< <pre>
< (values 1 2 3)  =&gt;  1
< (+ (values 1 2 3))  =&gt;  6
< (list (values 1 2 3))  =&gt;  (1 2 3)
< (call-with-values (lambda () (values 1 2 3)) +)  =&gt;  6
< </pre></li>
< <li>Predicates like <code>=</code> and <code>string&gt;?</code>
< takes only 2 arguments, but can be extended in this way:
< <pre>
< (define &lt; ((lambda() (define old&lt; &lt;)
<   (lambda (x y . rest)
<     (if (old&lt; x y)
<         (if (null? rest)
<             #t
<             (apply &lt; y rest))
<         #f)))))
< (&lt; 1 2 3 4 5)  =&gt;  #t
< (&lt; 1 2 3 4 3)  =&gt;  #f
< </pre></li>
< <li><code>map</code> works on improper lists:
< <pre>
< (map + '(1 2 . 3) '(40 20 . 10))  =&gt;  (41 22 . 13)
< (map + 14 9)  =&gt;  23
< </pre></li>
< <li>Most of R<sup>5</sup>RS features / library is implemented</li>
< <li>Passes all <code>r5rs_pitfall.scm</code> tests (included in
< SISC)</li>
< <li>Strings are immutable; no <code>string-fill!</code> and
< <code>string-set!</code></li>
< <li><code>begin</code> is a primitive language expression (same as
< <code>lambda</code>, <code>if</code>, <code>define</code>,
< <code>set!</code> and <code>quote</code>) not derived/library as
< R<sup>5</sup>RS defines; moreover, <code>lambda</code> bodies with
< several statements are enclosed in <code>begin</code> in internal
< representation to emphasize that they express different concepts -
< the first is a function and the second is an operators
< sequencing</li>
< <li>Written 23 July - 8 August, 2003</li>
< <li>Copyright (c) 2003 by Alex Yakovlev. All rights reserved.</li>
< <li>Can be freely redisributed under <a href=
< "http://www.gnu.org/licenses/gpl.html">GPL</a> terms.</li>
< <li>Tested in IE6 and Opera7</li>
< </ul>
< <h3>Links:</h3>
< <ul>
< <li><a href="http://www.scheme.com/tspl2d/">R. Kent Dybvig, The
< Scheme Programming Language, Second Edition</a></li>
< <li><a href=
< "http://www.schemers.org/Documents/Standards/R5RS/">Revised<sup>5</sup>
< Report on the Algorithmic Language Scheme</a>
< (R<sup>5</sup>RS)</li>
< <li><a href="http://mitpress.mit.edu/sicp/sicp.html">Structure and
< Interpretation of Computer Programs</a></li>
< <li><a href="http://okmij.org/ftp/Scheme/">Oleg Kiselyov Scheme
< page</a></li>
< <li><a href="http://www.pair.com/lisovsky/scheme/">Kirill Lisovsky
< Scheme page</a></li>
< <li><a href="http://www.plt-scheme.org/">PLT Scheme</a></li>
< <li><a href="lisp.html">Alex's old Lisp interpreter in C</a></li>
< </ul>
< <p>other implementations in JS:</p>
< <ul>
< <li><a href="http://www.bluetail.com/~luke/jscm/repl.html">by Luke
< Gorrie</a></li>
< <li><a href="http://www.crockford.com/javascript/scheme.html">by
< Douglas Crockford</a></li>
< <li><a href="http://ganley.org/software/jslisp.html">by Joe
< Ganley</a> (Lisp, not Scheme)</li>
< </ul>
< <p>in Java:</p>
< <ul>
< <li><a href="http://www.gnu.org/software/kawa/">Kawa</a> (by Per
< Bothner), both interpreter and compiler to java bytecode</li>
< <li><a href="http://www.alphaworks.ibm.com/formula/skij/">Skij</a>
< - by IBM T.J. Watson Research Center, the same group who developed
< <a href=
< "http://www.ibm.com/developerworks/oss/jikes/">Jikes</a></li>
< <li><a href="http://sisc.sourceforge.net/">SISC - Second
< Interpreter of Scheme Code</a>, R5RS compliant</li>
< <li><a href="http://www-sop.inria.fr/mimosa/fp/Bigloo/">Bigloo
< compiler</a> (very efficient) - can produce java bytecode</li>
< </ul>
< </td>
< </tr>
< </table>
< </td>
< <td valign="top">
< 
< <h3>Symbols:</h3>
< <ul>
< <li><a href="javascript:ShowEnv=TopEnv;showSymbols();">work
< environment</a></li>
< <li><a href=
< "javascript:ShowEnv=TopEnv.parentEnv;showSymbols();">core
< environment</a></li>
< </ul>
< <table border="0" id="symbols" cellspacing="1" cellpadding="2">
< <tbody>
< </tbody>
< </table>
< </td>
< </tr>
< </table>
216a32,33
> <br />thanks to <a href="http://www.bluishcoder.co.nz/jsscheme/">jsscheme</a>
> 
1297a1115,1121
> // 
> // Graphics
> //
> 
> TopEnv['draw-circle'] = function(list) { window.Circle(10, 10, 100); }
> 
> 
1307,1310c1131
< 
<     if( document.getElementById('echoInp').checked )
<       printLog( o.Str() );
< 
---
>     printLog( o.Str() );
1312,1313c1133
<     if( document.getElementById('echoRes').checked )
<       printLog( '=> ' + Str(o) );
---
>     printLog( '=> ' + Str(o) );
1316,1319d1135
<   var time1 = new Date();
<   document.getElementById('time').innerHTML = 'Elapsed: ' + ((time1-time0)/1000) + ' s';
<   showRes(res);
<   showSymbols();
2642,2655d2457
< <a name="changelog">
< <h3>Changelog</h3>
< <dl>
< <dt>04 May 2006</dt>
< <dd>Added <a href="http://jquery.com/">jQuery</a> for Ajax support. Split 'example' source into a seperate file and load it via Ajax. Added Scheme Ajax function 'ajax-get'. Added a simple <a href="http://lambda-the-ultimate.org/node/841">termite-style</a> concurrency library. <a href="http://www.bluishcoder.co.nz/2006/05/lightweight-threads-in-browser.html">More details here</a>.</dd>
< <dt>03 May 2006</dt>
< <dd>Changes by <a href="http://www.bluishcoder.co.nz">Chris
< Double</a>. Added Firefox compatibility and set-timeout!. For more
< details see <a href="http://www.bluishcoder.co.nz/2006/05/scheme-implementation-in-javascript.html">my weblog entry</a>.</dd>
< <dt>Original</dt>
< <dd>Original by <a href=
< "javascript:m('alex','alexgraf.com')">Alex Yakovlev</a> from <a
< href="http://alex.ability.ru/scheme.html">http://alex.ability.ru/scheme.html</a>.</dd>
< </dl>