Edit File by line

<!doctype html>

[0] Fix | Delete

[1] Fix | Delete

<title>CodeMirror: Forth mode</title>

[2] Fix | Delete

[3] Fix | Delete

[4] Fix | Delete

[5] Fix | Delete

[6] Fix | Delete

[7] Fix | Delete

[8] Fix | Delete

[9] Fix | Delete

[10] Fix | Delete

<style>

[11] Fix | Delete

.CodeMirror {

[12] Fix | Delete

font-family: 'Droid Sans Mono', monospace;

[13] Fix | Delete

font-size: 14px;

[14] Fix | Delete

}

[15] Fix | Delete

</style>

[16] Fix | Delete

[17] Fix | Delete

<a href="http://codemirror.net"><h1>CodeMirror</h1><img id=logo src="../../doc/logo.png"></a>

[18] Fix | Delete

[19] Fix | Delete

<ul>

[20] Fix | Delete

[21] Fix | Delete

<li><a href="../../doc/manual.html">Manual</a>

[22] Fix | Delete

[23] Fix | Delete

</ul>

[24] Fix | Delete

<ul>

[25] Fix | Delete

<li><a href="../index.html">Language modes</a>

[26] Fix | Delete

<li><a class=active href="#">Forth</a>

[27] Fix | Delete

</ul>

[28] Fix | Delete

</div>

[29] Fix | Delete

[30] Fix | Delete

[31] Fix | Delete

[32] Fix | Delete

<h2>Forth mode</h2>

[33] Fix | Delete

[34] Fix | Delete

[35] Fix | Delete

\ Insertion sort

[36] Fix | Delete

[37] Fix | Delete

: cell- 1 cells - ;

[38] Fix | Delete

[39] Fix | Delete

: insert ( start end -- start )

[40] Fix | Delete

dup @ >r ( r: v )

[41] Fix | Delete

begin

[42] Fix | Delete

2dup <

[43] Fix | Delete

while

[44] Fix | Delete

r@ over cell- @ <

[45] Fix | Delete

while

[46] Fix | Delete

cell-

[47] Fix | Delete

dup @ over cell+ !

[48] Fix | Delete

repeat then

[49] Fix | Delete

r> swap ! ;

[50] Fix | Delete

[51] Fix | Delete

: sort ( array len -- )

[52] Fix | Delete

1 ?do

[53] Fix | Delete

dup i cells + insert

[54] Fix | Delete

loop drop ;</textarea>

[55] Fix | Delete

</form>

[56] Fix | Delete

[57] Fix | Delete

[58] Fix | Delete

var editor = CodeMirror.fromTextArea(document.getElementById("code"), {

[59] Fix | Delete

lineNumbers: true,

[60] Fix | Delete

lineWrapping: true,

[61] Fix | Delete

indentUnit: 2,

[62] Fix | Delete

tabSize: 2,

[63] Fix | Delete

autofocus: true,

[64] Fix | Delete

theme: "colorforth",

[65] Fix | Delete

mode: "text/x-forth"

[66] Fix | Delete

});

[67] Fix | Delete

</script>

[68] Fix | Delete

[69] Fix | Delete

<p>Simple mode that handle Forth-Syntax (<a href="http://en.wikipedia.org/wiki/Forth_%28programming_language%29">Forth on WikiPedia</a>).</p>

[70] Fix | Delete

[71] Fix | Delete

<p><strong>MIME types defined:</strong> <code>text/x-forth</code>.</p>

[72] Fix | Delete

[73] Fix | Delete

</article>

[74] Fix | Delete

[75] Fix | Delete