about summary refs log tree commit diff stats
path: root/src/teliva.h
blob: bb8964abd750a49043c91550277b3b2f19a6fb0f (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
#ifndef __TELIVA_H__
#define __TELIVA_H__

// Some names for hotkeys beyond those provided by ncurses.

enum KEY_ACTION {
  KEY_NULL = 0,
  CTRL_A = 1,
  CTRL_B = 2,
  CTRL_C = 3,
  CTRL_D = 4,
  CTRL_E = 5,
  CTRL_F = 6,
  CTRL_G = 7,
  CTRL_H = 8,
  TAB = 9,
  ENTER = 10,
  CTRL_K = 11,
  CTRL_L = 12,
  CTRL_Q = 17,
  CTRL_R = 18,
  CTRL_S = 19,
  CTRL_U = 21,
  CTRL_X = 24,
  CTRL_SLASH = 31,
  CTRL_UNDERSCORE = 31,
  DELETE = 127,
};


// Colors (experimental)
// Primary goal here: Keep text readable regardless of OS, terminal emulator
// and color scheme. Unfortunately I don't yet have a good answer, so this
// approach may yet change. Current approach:
//  - Hardcode colors so that we can be sure we use legible combinations of
//    foreground and background.
//  - Use only the terminal palette in the range 16-255.
//    - Not all terminals may support more than 256 colors. (I'm not yet sure
//      everyone has even 256 colors. If you don't, please let me know:
//      http://akkartik.name/contact)
//    - Many terminals provide color schemes which give the ability to tweak
//      colors 0-15. This makes it hard to assume specific combinations are
//      legible. I'm hoping most terminal emulators don't tend to encourage
//      messing with colors 16-255. (Please let me know if you know of
//      counter-examples.)
//
// For now, you have to edit these values if you want to adjust colors in the
// editing environment. Check out https://www.robmeerman.co.uk/unix/256colours
// for a map of available colors.

// Toggle between a few color schemes
#define COLOR_SCHEME 0
#if COLOR_SCHEME == 0
// Light color scheme.
enum color {
  COLOR_FOREGROUND = 238,                     // almost black
  COLOR_BACKGROUND = 253,                     // almost white
  COLOR_FADE = 244,                           // closer to background
  COLOR_MENU_ALTERNATE = 248,
  COLOR_SELECTABLE_FOREGROUND = 238,
  COLOR_SELECTABLE_BACKGROUND = 250,
  COLOR_ERROR_FOREGROUND = COLOR_BACKGROUND,
  COLOR_ERROR_BACKGROUND = 124,               // deep red
  COLOR_LUA_COMMENT = 27,                     // blue
  COLOR_LUA_KEYWORD = 172,                    // orange
  COLOR_LUA_CONSTANT = 31,                    // cyan
  COLOR_MATCH_FOREGROUND = COLOR_BACKGROUND,
  COLOR_MATCH_BACKGROUND = 28,                // green
};
#elif COLOR_SCHEME == 1
// Dark color scheme.
enum color {
  COLOR_FOREGROUND = 253,                     // almost white
  COLOR_BACKGROUND = 238,                     // almost black
  COLOR_FADE = 244,                           // closer to background
  COLOR_MENU_ALTERNATE = 244,
  COLOR_SELECTABLE_FOREGROUND = 238,
  COLOR_SELECTABLE_BACKGROUND = 250,
  COLOR_ERROR_FOREGROUND = COLOR_FOREGROUND,
  COLOR_ERROR_BACKGROUND = 124,               // deep red
  COLOR_LUA_COMMENT = 39,                     // blue
  COLOR_LUA_KEYWORD = 172,                    // orange
  COLOR_LUA_CONSTANT = 37,                    // cyan
  COLOR_MATCH_FOREGROUND = COLOR_BACKGROUND,
  COLOR_MATCH_BACKGROUND = 28,                // green
};
#elif COLOR_SCHEME == 2
// Solarized dark.
enum color {
  COLOR_FOREGROUND = 250,                     // almost white
  COLOR_BACKGROUND = 24,                      // dark blue-green
  COLOR_FADE = 246,                           // closer to background
  COLOR_MENU_ALTERNATE = 244,
  COLOR_SELECTABLE_FOREGROUND = 250,
  COLOR_SELECTABLE_BACKGROUND = 31,
  COLOR_ERROR_FOREGROUND = 250,
  COLOR_ERROR_BACKGROUND = 124,               // deep red
  COLOR_LUA_COMMENT = 45,                     // light blue
  COLOR_LUA_KEYWORD = 172,                    // orange
  COLOR_LUA_CONSTANT = 37,                    // cyan
  COLOR_MATCH_FOREGROUND = COLOR_FOREGROUND,
  COLOR_MATCH_BACKGROUND = 125,               // magenta
};
#endif

enum color_pair {
  COLOR_PAIR_NORMAL = 0,
  COLOR_PAIR_SELECTABLE = 1,
  COLOR_PAIR_FADE = 2,
  COLOR_PAIR_MENU_ALTERNATE = 3,
  COLOR_PAIR_LUA_COMMENT = 4,
  COLOR_PAIR_LUA_KEYWORD = 5,
  COLOR_PAIR_LUA_CONSTANT = 6,
  COLOR_PAIR_MATCH = 7,
  COLOR_PAIR_MENU = 254,  // reserved for teliva; apps shouldn't use it
  COLOR_PAIR_ERROR = 255,  // reserved for teliva; apps shouldn't use it
};

#endif
n class="w"> #005faf; text-decoration: underline; } --> </style> <script type='text/javascript'> <!-- /* function to open any folds containing a jumped-to line before jumping to it */ function JumpToLine() { var lineNum; lineNum = window.location.hash; lineNum = lineNum.substr(1); /* strip off '#' */ if (lineNum.indexOf('L') == -1) { lineNum = 'L'+lineNum; } var lineElem = document.getElementById(lineNum); /* Always jump to new location even if the line was hidden inside a fold, or * we corrected the raw number to a line ID. */ if (lineElem) { lineElem.scrollIntoView(true); } return true; } if ('onhashchange' in window) { window.onhashchange = JumpToLine; } --> </script> </head> <body onload='JumpToLine();'> <a href='https://github.com/akkartik/mu/blob/master/apps/factorial4.subx'>https://github.com/akkartik/mu/blob/master/apps/factorial4.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment">## compute the factorial of 5, and return the result in the exit code</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="subxComment"># Uses syntax sugar for:</span> <span id="L4" class="LineNr"> 4 </span><span class="subxComment"># rm32 operands</span> <span id="L5" class="LineNr"> 5 </span><span class="subxComment"># function calls</span> <span id="L6" class="LineNr"> 6 </span><span class="subxComment"># control flow</span> <span id="L7" class="LineNr"> 7 </span><span class="subxComment">#</span> <span id="L8" class="LineNr"> 8 </span><span class="subxComment"># To run:</span> <span id="L9" class="LineNr"> 9 </span><span class="subxComment"># $ ./translate_subx init.linux 0*.subx apps/factorial.subx -o apps/factorial</span> <span id="L10" class="LineNr">10 </span><span class="subxComment"># $ ./subx run apps/factorial</span> <span id="L11" class="LineNr">11 </span><span class="subxComment"># Expected result:</span> <span id="L12" class="LineNr">12 </span><span class="subxComment"># $ echo $?</span> <span id="L13" class="LineNr">13 </span><span class="subxComment"># 120</span> <span id="L14" class="LineNr">14 </span><span class="subxComment">#</span> <span id="L15" class="LineNr">15 </span><span class="subxComment"># You can also run the automated test suite:</span> <span id="L16" class="LineNr">16 </span><span class="subxComment"># $ ./subx run apps/factorial test</span> <span id="L17" class="LineNr">17 </span><span class="subxComment"># Expected output:</span> <span id="L18" class="LineNr">18 </span><span class="subxComment"># ........</span> <span id="L19" class="LineNr">19 </span><span class="subxComment"># Every '.' indicates a passing test. Failing tests get a 'F'.</span> <span id="L20" class="LineNr">20 </span> <span id="L21" class="LineNr">21 </span>== code <span id="L22" class="LineNr">22 </span> <span id="L23" class="LineNr">23 </span><span class="SpecialChar">Entry</span>: <span class="subxComment"># run tests if necessary, compute `factorial(5)` if not</span> <span id="L24" class="LineNr">24 </span> <span class="subxS1Comment"># . prologue</span> <span id="L25" class="LineNr">25 </span> 89/&lt;- %ebp 4/r32/esp <span id="L26" class="LineNr">26 </span> <span id="L27" class="LineNr">27 </span> <span class="subxComment"># initialize heap</span> <span id="L28" class="LineNr">28 </span> (<a href='../053new-segment.subx.html#L41'>new-segment</a> *<span class="SpecialChar"><a href='../069allocate.subx.html#L29'>Heap-size</a></span> <span class="SpecialChar"><a href='../069allocate.subx.html#L22'>Heap</a></span>) <span id="L29" class="LineNr">29 </span> <span id="L30" class="LineNr">30 </span> <span class="subxH1Comment"># - if argc &gt; 1, then return run_tests()</span> <span id="L31" class="LineNr">31 </span> { <span id="L32" class="LineNr">32 </span> <span class="subxComment"># if (argc &lt;= 1) break</span> <span id="L33" class="LineNr">33 </span> 81 7/subop/compare *ebp 1/imm32 <span id="L34" class="LineNr">34 </span> 7e/jump-if-lesser-or-equal <span class="Constant">break</span>/disp8 <span id="L35" class="LineNr">35 </span> <span class="subxComment"># if (!kernel-string-equal?(argv[1], &quot;test&quot;)) break</span> <span id="L36" class="LineNr">36 </span> (<a href='../052kernel-string-equal.subx.html#L33'>kernel-string-equal?</a> *(ebp+8) <span class="Constant">&quot;test&quot;</span>) <span class="subxComment"># =&gt; eax</span> <span id="L37" class="LineNr">37 </span> 3d/compare-eax-and 0/imm32/false <span id="L38" class="LineNr">38 </span> 74/jump-if-equal <span class="Constant">break</span>/disp8 <span id="L39" class="LineNr">39 </span> <span class="subxComment">#</span> <span id="L40" class="LineNr">40 </span> (run-tests) <span id="L41" class="LineNr">41 </span> <span class="subxComment"># eax = *Num-test-failures</span> <span id="L42" class="LineNr">42 </span> 8b/-&gt; *<span class="SpecialChar"><a href='../051test.subx.html#L90'>Num-test-failures</a></span> 3/r32/ebx <span id="L43" class="LineNr">43 </span> } <span id="L44" class="LineNr">44 </span> <span class="subxComment"># if (argc &lt;= 1) factorial(5)</span> <span id="L45" class="LineNr">45 </span> { <span id="L46" class="LineNr">46 </span> <span class="subxComment"># if (argc &gt; 1) break</span> <span id="L47" class="LineNr">47 </span> 81 7/subop/compare *ebp 1/imm32 <span id="L48" class="LineNr">48 </span> 7f/jump-if-greater <span class="Constant">break</span>/disp8 <span id="L49" class="LineNr">49 </span> <span class="subxComment"># eax = factorial(5)</span> <span id="L50" class="LineNr">50 </span> (<a href='factorial4.subx.html#L58'>factorial</a> 5) <span id="L51" class="LineNr">51 </span> <span class="subxComment"># syscall(exit, eax)</span> <span id="L52" class="LineNr">52 </span> 89/&lt;- %ebx 0/r32/eax <span id="L53" class="LineNr">53 </span> } <span id="L54" class="LineNr">54 </span> <span id="L55" class="LineNr">55 </span> b8/copy-to-eax 1/imm32/exit <span id="L56" class="LineNr">56 </span> cd/syscall 0x80/imm8 <span id="L57" class="LineNr">57 </span> <span id="L58" class="LineNr">58 </span><span class="subxFunction">factorial</span>: <span class="subxComment"># n : int -&gt; int/eax</span> <span id="L59" class="LineNr">59 </span> <span class="subxS1Comment"># . prologue</span> <span id="L60" class="LineNr">60 </span> 55/push-ebp <span id="L61" class="LineNr">61 </span> 89/&lt;- %ebp 4/r32/esp <span id="L62" class="LineNr">62 </span> <span class="subxComment"># save registers</span> <span id="L63" class="LineNr">63 </span> 53/push-ebx <span id="L64" class="LineNr">64 </span> <span class="subxComment"># if (n &lt;= 1) return 1</span> <span id="L65" class="LineNr">65 </span> 81 7/subop/compare *(ebp+8) 1/imm32 <span id="L66" class="LineNr">66 </span> { <span id="L67" class="LineNr">67 </span> 7f/jump-if-greater <span class="Constant">break</span>/disp8 <span id="L68" class="LineNr">68 </span> b8/copy-to-eax 1/imm32 <span id="L69" class="LineNr">69 </span> } <span id="L70" class="LineNr">70 </span> <span class="subxComment"># if (n &gt; 1) return n * factorial(n-1)</span> <span id="L71" class="LineNr">71 </span> { <span id="L72" class="LineNr">72 </span> 7e/jump-if-lesser-or-equal <span class="Constant">break</span>/disp8 <span id="L73" class="LineNr">73 </span> <span class="subxComment"># var ebx : int = n-1</span> <span id="L74" class="LineNr">74 </span> 8b/-&gt; *(ebp+8) 3/r32/ebx <span id="L75" class="LineNr">75 </span> 4b/decrement-ebx <span id="L76" class="LineNr">76 </span> (<a href='factorial4.subx.html#L58'>factorial</a> %ebx) <span class="subxComment"># =&gt; eax</span> <span id="L77" class="LineNr">77 </span> f7 4/subop/multiply-into-eax *(ebp+8) <span id="L78" class="LineNr">78 </span> } <span id="L79" class="LineNr">79 </span> <span class="subxComment"># restore registers</span> <span id="L80" class="LineNr">80 </span> 5b/pop-to-ebx <span id="L81" class="LineNr">81 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L82" class="LineNr">82 </span> 89/&lt;- %esp 5/r32/ebp <span id="L83" class="LineNr">83 </span> 5d/pop-to-ebp <span id="L84" class="LineNr">84 </span> c3/return <span id="L85" class="LineNr">85 </span> <span id="L86" class="LineNr">86 </span><span class="subxTest">test-factorial</span>: <span id="L87" class="LineNr">87 </span> (<a href='factorial4.subx.html#L58'>factorial</a> 5) <span id="L88" class="LineNr">88 </span> (<a href='../051test.subx.html#L24'>check-ints-equal</a> %eax 0x78 <span class="Constant">&quot;F - test-factorial&quot;</span>) <span id="L89" class="LineNr">89 </span> c3/return </pre> </body> </html> <!-- vim: set foldmethod=manual : -->