You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
76 lines
1.7 KiB
76 lines
1.7 KiB
3 years ago
|
<!doctype html>
|
||
|
|
|
||
|
|
<title>CodeMirror: Forth mode</title>
|
||
|
|
<meta charset="utf-8"/>
|
||
|
|
<link rel=stylesheet href="../../doc/docs.css">
|
||
|
|
|
||
|
|
<link href='http://fonts.googleapis.com/css?family=Droid+Sans+Mono' rel='stylesheet' type='text/css'>
|
||
|
|
<link rel="stylesheet" href="../../lib/codemirror.css">
|
||
|
|
<link rel=stylesheet href="../../theme/colorforth.css">
|
||
|
|
<script src="../../lib/codemirror.js"></script>
|
||
|
|
<script src="forth.js"></script>
|
||
|
|
<style>
|
||
|
|
.CodeMirror {
|
||
|
|
font-family: 'Droid Sans Mono', monospace;
|
||
|
|
font-size: 14px;
|
||
|
|
}
|
||
|
|
</style>
|
||
|
|
<div id=nav>
|
||
|
|
<a href="http://codemirror.net"><h1>CodeMirror</h1><img id=logo src="../../doc/logo.png"></a>
|
||
|
|
|
||
|
|
<ul>
|
||
|
|
<li><a href="../../index.html">Home</a>
|
||
|
|
<li><a href="../../doc/manual.html">Manual</a>
|
||
|
|
<li><a href="https://github.com/codemirror/codemirror">Code</a>
|
||
|
|
</ul>
|
||
|
|
<ul>
|
||
|
|
<li><a href="../index.html">Language modes</a>
|
||
|
|
<li><a class=active href="#">Forth</a>
|
||
|
|
</ul>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<article>
|
||
|
|
|
||
|
|
<h2>Forth mode</h2>
|
||
|
|
|
||
|
|
<form><textarea id="code" name="code">
|
||
|
|
\ Insertion sort
|
||
|
|
|
||
|
|
: cell- 1 cells - ;
|
||
|
|
|
||
|
|
: insert ( start end -- start )
|
||
|
|
dup @ >r ( r: v )
|
||
|
|
begin
|
||
|
|
2dup <
|
||
|
|
while
|
||
|
|
r@ over cell- @ <
|
||
|
|
while
|
||
|
|
cell-
|
||
|
|
dup @ over cell+ !
|
||
|
|
repeat then
|
||
|
|
r> swap ! ;
|
||
|
|
|
||
|
|
: sort ( array len -- )
|
||
|
|
1 ?do
|
||
|
|
dup i cells + insert
|
||
|
|
loop drop ;</textarea>
|
||
|
|
</form>
|
||
|
|
|
||
|
|
<script>
|
||
|
|
var editor = CodeMirror.fromTextArea(document.getElementById("code"), {
|
||
|
|
lineNumbers: true,
|
||
|
|
lineWrapping: true,
|
||
|
|
indentUnit: 2,
|
||
|
|
tabSize: 2,
|
||
|
|
autofocus: true,
|
||
|
|
theme: "colorforth",
|
||
|
|
mode: "text/x-forth"
|
||
|
|
});
|
||
|
|
</script>
|
||
|
|
|
||
|
|
<p>Simple mode that handle Forth-Syntax (<a href="http://en.wikipedia.org/wiki/Forth_%28programming_language%29">Forth on WikiPedia</a>).</p>
|
||
|
|
|
||
|
|
<p><strong>MIME types defined:</strong> <code>text/x-forth</code>.</p>
|
||
|
|
|
||
|
|
</article>
|