[OpenBIOS] r457 - forth/lib
svn at openbios.org
svn at openbios.org
Thu Jul 5 19:12:04 CEST 2007
Author: wmb
Date: 2007-07-05 19:12:04 +0200 (Thu, 05 Jul 2007)
New Revision: 457
Modified:
forth/lib/cmdcpl.fth
Log:
Command completion - don't erase back to longest possible match.
This helps when you try to complete a filename. Filename completion
isn't implemented (and would be very hard to implement), but it
isn't nice when someone tries to complete a filename and thus
loses most of what they have already typed.
Modified: forth/lib/cmdcpl.fth
===================================================================
--- forth/lib/cmdcpl.fth 2007-07-05 17:09:48 UTC (rev 456)
+++ forth/lib/cmdcpl.fth 2007-07-05 17:12:04 UTC (rev 457)
@@ -153,6 +153,7 @@
/n +loop ( flag )
;
+0 [if]
: do-erase ( -- ) \ Side effect: span and bufcursor may be reduced
begin
word-to-string ( addr )
@@ -163,6 +164,7 @@
cerase
repeat
;
+[then]
: do-expand ( -- )
expand-initial-substring
@@ -173,7 +175,9 @@
: expand-word ( -- )
collect-string find-candidates ( )
- #candidates @ if do-expand else do-erase then
+ #candidates @ if do-expand else
+[ifdef] do-erase do-erase [else] beep [then]
+ then
;
: show-candidates ( -- )
More information about the OpenBIOS
mailing list