diff options
| author | Thomas Huth <thuth@redhat.com> | 2021-08-30 14:13:20 +0200 |
|---|---|---|
| committer | Alexey Kardashevskiy <aik@ozlabs.ru> | 2021-10-01 14:09:29 +1000 |
| commit | 749e6157b3844f074b30f6f9482127545ad3d518 (patch) | |
| tree | f2865b1c00c881d8249441defea77cad23779775 | |
| parent | e00f75675d4696f1de8aebc1d2801eed06368f44 (diff) | |
| download | qemu-SLOF-749e6157b3844f074b30f6f9482127545ad3d518.tar.gz | |
slof/fs/accept: Replace TABs with spaces
SLOF coding style is to use spaces in Forth code, not TABs, and the TAB
in the (accept) function breaks the right indentation in my editor, so
let's replace the TABs in this file with spaces now.
Signed-off-by: Thomas Huth <thuth@redhat.com>
Reviewed-by: Greg Kurz <groug@kaod.org>
Signed-off-by: Alexey Kardashevskiy <aik@ozlabs.ru>
| -rw-r--r-- | slof/fs/accept.fs | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/slof/fs/accept.fs b/slof/fs/accept.fs index cb6f2fa..22bfb1b 100644 --- a/slof/fs/accept.fs +++ b/slof/fs/accept.fs @@ -140,8 +140,8 @@ CONSTANT /his repeat 2drop - #sift-count 0 to #sift-count \ how many words were found? - r> to sift-compl-only \ restore sifting completion mode + #sift-count 0 to #sift-count \ how many words were found? + r> to sift-compl-only \ restore sifting completion mode ; \ 8< node sifting for tab completion on device tree nodes below this line 8< @@ -206,7 +206,7 @@ create sift-node-buffer 1000 allot THEN REPEAT 2drop drop - #sift-count 0 to #sift-count \ how many words were found? + #sift-count 0 to #sift-count \ how many words were found? reset-stack ; @@ -215,14 +215,14 @@ create sift-node-buffer 1000 allot dup IF bl rsplit dup IF 2swap THEN ELSE 0 0 THEN >r >r - 0 dup to tab-last-len to tab-last-adr \ reset last possible match - current-node @ IF \ if we are in a node? - 2dup 2>r \ save text - $tab-sift-words to #sift-count \ search in current node first - 2r> \ fetch text to complete, again + 0 dup to tab-last-len to tab-last-adr \ reset last possible match + current-node @ IF \ if we are in a node? + 2dup 2>r \ save text + $tab-sift-words to #sift-count \ search in current node first + 2r> \ fetch text to complete, again THEN 2dup 2>r - current-node @ >r 0 set-node \ now search in global words + current-node @ >r 0 set-node \ now search in global words $tab-sift-words to #sift-count r> set-node 2r> $tab-sift-nodes @@ -256,8 +256,8 @@ create sift-node-buffer 1000 allot ELSE tab-last-adr accept-adr tab-last-len move \ copy matching substring tab-last-len dup to accept-len to accept-cur \ len and cursor position - full-redraw-line \ redraw new string - true to ?tab-pressed \ second tab will print possible matches + full-redraw-line \ redraw new string + true to ?tab-pressed \ second tab will print possible matches THEN THEN ; @@ -400,7 +400,7 @@ TABLE-EXECUTE handle-control dup a0 < IF 7f and handle-meta ELSE drop beep THEN ELSE insert-char - THEN + THEN THEN REPEAT drop add-history |