Subversion-Projekte lars-tiefland.cienc

Revision

Details | Letzte Änderung | Log anzeigen | RSS feed

Revision Autor Zeilennr. Zeile
5 lars 1
<!doctype html>
2
<title>CodeMirror: Erlang mode</title>
3
<meta charset="utf-8" />
4
<link rel=stylesheet href="../../doc/docs.css">
5
<link rel="stylesheet" href="../../lib/codemirror.css">
6
<link rel="stylesheet" href="../../theme/erlang-dark.css">
7
<script src="../../lib/codemirror.js"></script>
8
<script src="../../addon/edit/matchbrackets.js"></script>
9
<script src="erlang.js"></script>
10
<style type="text/css">
11
    .CodeMirror {
12
        border-top: 1px solid black;
13
        border-bottom: 1px solid black;
14
    }
15
</style>
16
<div id=nav>
17
    <a href="http://codemirror.net">
18
        <h1>CodeMirror</h1>
19
        <img id=logo src="../../doc/logo.png">
20
    </a>
21
    <ul>
22
        <li>
23
            <a href="../../index.html">Home</a>
24
            <li>
25
                <a href="../../doc/manual.html">Manual</a>
26
                <li>
27
                    <a href="https://github.com/codemirror/codemirror">Code</a>
28
    </ul>
29
    <ul>
30
        <li>
31
            <a href="../index.html">Language modes</a>
32
            <li>
33
                <a class=active href="#">Erlang</a>
34
    </ul>
35
</div>
36
<article>
37
    <h2>Erlang mode</h2>
38
    <form>
39
        <textarea id="code" name="code"> %% -*- mode: erlang; erlang-indent-level: 2 -*- %%% Created : 7 May 2012 by mats cronqvist
40
            <masse@klarna.com> %% @doc %% Demonstrates how to print a record. %% @end -module('ex'). -author('mats cronqvist'). -export([demo/0, rec_info/1]). -record(demo,{a="One",b="Two",c="Three",d="Four"}). rec_info(demo) -> record_info(fields,demo). demo() -> expand_recs(?MODULE,#demo{a="A",b="BB"}).
41
                expand_recs(M,List) when is_list(List) -> [expand_recs(M,L)||L
42
                <-List]; expand_recs(M,Tup) when is_tuple(Tup) -> case tuple_size(Tup) of L when L
43
                    < 1 -> Tup; L -> try Fields = M:rec_info(element(1,Tup)), L = length(Fields)+1, lists:zip(Fields,expand_recs(M,tl(tuple_to_list(Tup)))) catch _:_ -> list_to_tuple(expand_recs(M,tuple_to_list(Tup))) end end; expand_recs(_,Term) -> Term. </textarea>
44
    </form>
45
    <script>
46
        var editor = CodeMirror.fromTextArea(document.getElementById("code"),
47
        {
48
            lineNumbers: true,
49
            matchBrackets: true,
50
            extraKeys:
51
            {
52
                "Tab": "indentAuto"
53
            },
54
            theme: "erlang-dark"
55
        });
56
    </script>
57
    <p>
58
        <strong>MIME types defined:</strong> <code>text/x-erlang</code>.</p>
59
</article>