diff options
| author | Kartik Agaram <vc@akkartik.com> | 2020-10-15 20:46:01 -0700 |
|---|---|---|
| committer | Kartik Agaram <vc@akkartik.com> | 2020-10-15 20:46:01 -0700 |
| commit | 70da3b384695acc628c31922d1ed2d14da2a3eed (patch) | |
| tree | adaec94e2a409e283ea704fbfa023efcf3514d59 /apps | |
| parent | 6fdfd5607bc28e04f5c122ef9585489c2d8c9cfe (diff) | |
| download | mu-70da3b384695acc628c31922d1ed2d14da2a3eed.tar.gz | |
7035
ctrl-f and ctrl-b working right. Now ctrl-u is segfaulting. Also expanding words.
Diffstat (limited to 'apps')
| -rw-r--r-- | apps/tile/environment.mu | 2 | ||||
| -rw-r--r-- | apps/tile/main.mu | 8 |
2 files changed, 6 insertions, 4 deletions
diff --git a/apps/tile/environment.mu b/apps/tile/environment.mu index 641f3166..56a35b0f 100644 --- a/apps/tile/environment.mu +++ b/apps/tile/environment.mu @@ -221,7 +221,6 @@ $process:body: { { compare prev-word, 0 break-if-= - copy-object prev-word-ah, cursor-word-ah cursor-to-end prev-word var cursor-call-path/eax: (addr handle call-path-element) <- get sandbox, cursor-call-path decrement-final-element cursor-call-path @@ -259,7 +258,6 @@ $process:body: { compare next-word, 0 break-if-= #? print-string 0, "BB\n" - copy-object next-word-ah, cursor-word-ah cursor-to-end next-word var cursor-call-path/eax: (addr handle call-path-element) <- get sandbox, cursor-call-path increment-final-element cursor-call-path diff --git a/apps/tile/main.mu b/apps/tile/main.mu index 57def626..24d82fbf 100644 --- a/apps/tile/main.mu +++ b/apps/tile/main.mu @@ -79,9 +79,13 @@ fn test { process env, g g <- copy 0x20 # space process env, g - g <- copy 1 # 'ctrl-a' + g <- copy 0x62 # 'b' process env, g - g <- copy 5 # 'ctrl-e' + g <- copy 0x20 # space + process env, g + g <- copy 0x63 # 'c' + process env, g + g <- copy 2 # 'ctrl-b' process env, g render env } |