From 70da3b384695acc628c31922d1ed2d14da2a3eed Mon Sep 17 00:00:00 2001 From: Kartik Agaram Date: Thu, 15 Oct 2020 20:46:01 -0700 Subject: 7035 ctrl-f and ctrl-b working right. Now ctrl-u is segfaulting. Also expanding words. --- apps/tile/environment.mu | 2 -- apps/tile/main.mu | 8 ++++++-- 2 files changed, 6 insertions(+), 4 deletions(-) (limited to 'apps/tile') 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 } -- cgit 1.4.1-2-gfad0