Mercurial > repos > tabletprog
comparison src/editor.tp @ 31:668f533e5284
Add initial version of C backend
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Sat, 07 Jul 2012 16:48:36 -0700 |
parents | 608eb70fe261 |
children | 648659961e0e |
comparison
equal
deleted
inserted
replaced
30:608eb70fe261 | 31:668f533e5284 |
---|---|
22 Object <- foreign: #{ | 22 Object <- foreign: #{ |
23 keys <- foreign: :object {} | 23 keys <- foreign: :object {} |
24 } | 24 } |
25 | 25 |
26 //kernel definitions | 26 //kernel definitions |
27 true <- #{ | 27 import: kernel |
28 if:else <- :self trueblock :elseblock { | |
29 trueblock: | |
30 } | |
31 } | |
32 | |
33 false <- #{ | |
34 if:else <- :self trueblock :elseblock { | |
35 elseblock: | |
36 } | |
37 } | |
38 | |
39 filter <- :arr pred { | |
40 output <- arr slice: 0 0 | |
41 each: arr :idx el { | |
42 if: (pred: el) { | |
43 output push: el | |
44 } else: {} | |
45 } | |
46 output | |
47 } | |
48 | 28 |
49 //editor code | 29 //editor code |
50 editFile <- :path { | 30 editFile <- :path { |
51 get: path :request { | 31 get: path :request { |
52 addClass: (q: "body") "editorMode" | 32 addClass: (q: "body") "editorMode" |