From e1b5352cfba1d6f9b4e77a8d57527afd14331c6e Mon Sep 17 00:00:00 2001 From: Humza Shahid Date: Fri, 8 Nov 2024 22:31:19 +0000 Subject: [PATCH] add todo notes for 'parseDelete' function --- fcore/app-update.sml | 22 +++++++++++++++++++--- 1 file changed, 19 insertions(+), 3 deletions(-) diff --git a/fcore/app-update.sml b/fcore/app-update.sml index f590cfe..3537929 100644 --- a/fcore/app-update.sml +++ b/fcore/app-update.sml @@ -552,19 +552,35 @@ struct (* non-terminal commands which require appending chr *) | #"t" => appendChr (app, chr, str) | #"T" => appendChr (app, chr, str) - | #"y" => appendChr (app, chr, str) | #"d" => appendChr (app, chr, str) | #"f" => appendChr (app, chr, str) | #"F" => appendChr (app, chr, str) | #"g" => appendChr (app, chr, str) - | #"c" => appendChr (app, chr, str) (* invalid command: reset mode *) | _ => clearMode app) | KEY_ESC => clearMode app | RESIZE_EVENT (width, height) => resizeText (app, width, height) else (* have to continue parsing string *) - (print "app-update.sml line 527 temp\n"; clearMode app) + case String.sub (str, strPos + 1) of + #"t" => + (* todo: delete till chr, forwards *) + appendChr (app, chr, str) + | #"T" => + (* todo: delete till chr, backwards *) + appendChr (app, chr, str) + | #"d" => + (* todo: delete whole line *) + appendChr (app, chr, str) + | #"f" => + (* todo: delete to chr, forwards *) + appendChr (app, chr, str) + | #"F" => + (* todo: delete to chr, backwards *) + appendChr (app, chr, str) + | #"g" => + (* todo: same events as handleGo *) + appendChr (app, chr, str) (* useful reference as list of non-terminal commands *) fun parseAfterCount (strPos, str, count, app, newCmd) =