mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-11-22 20:34:07 +00:00
307 lines
20 KiB
Plaintext
307 lines
20 KiB
Plaintext
Screen 0 not modified
|
|
0 \\ Install Editor cas 10nov05
|
|
1
|
|
2 This file contains the Installer for the Forth Editor
|
|
3
|
|
4 The Installer will query for keystrokes that should invoke
|
|
5 the Editor commands.
|
|
6
|
|
7 This allows custom keybinding for the individual requirements
|
|
8
|
|
9
|
|
10
|
|
11
|
|
12
|
|
13
|
|
14
|
|
15
|
|
Screen 1 not modified
|
|
0 \ install Editor cas 10nov05
|
|
1
|
|
2 Onlyforth Editor also save warning on
|
|
3
|
|
4 : tab &20 col &20 mod - spaces ;
|
|
5 : .key ( c -- )
|
|
6 dup $7E > IF ." $" u. exit THEN
|
|
7 dup bl < IF ." ^" [ Ascii A 1- ] Literal + THEN emit ;
|
|
8
|
|
9 : install \ install editor's keyboard
|
|
10 page ." Press keys requested (Spacebar to confirm)"
|
|
11 #keys 0 ?DO cr I 2* actiontable + @ >name .name
|
|
12 tab ." : " I 2* keytable + dup @ .key tab ." -> "
|
|
13 key dup bl = IF drop dup @ THEN dup .key swap !
|
|
14 LOOP ;
|
|
15 -->
|
|
Screen 2 not modified
|
|
0 \ define action-names UH 11mai88
|
|
1 : :a ( addr -- adr' ) dup @ Alias 2+ ;
|
|
2 actiontable
|
|
3 :a up :a left :a down :a right
|
|
4 :a push-line :a push-char :a pull-line :a pull-char
|
|
5 :a fix-word :a screen# :a copy-line :a copy-char
|
|
6 :a backspace :a backspace :a backspace :a delete-char
|
|
7 ( :a insert-char ) :a delete-line :a insert-line
|
|
8 :a flipimode ( :a erase-line :a clear-to-right)
|
|
9 :a new-line :a +tab :a -tab
|
|
10 :a home :a to-end :a search :a undo
|
|
11 :a update-exit :a flushed-exit :a showload :a shadow-screen
|
|
12 :a next-Screen :a back-Screen :a alter-Screen :a mark-screen
|
|
13 drop
|
|
14
|
|
15 warning off install empty
|
|
Screen 3 not modified
|
|
0
|
|
1
|
|
2
|
|
3
|
|
4
|
|
5
|
|
6
|
|
7
|
|
8
|
|
9
|
|
10
|
|
11
|
|
12
|
|
13
|
|
14
|
|
15
|
|
Screen 4 not modified
|
|
0
|
|
1
|
|
2
|
|
3
|
|
4
|
|
5
|
|
6
|
|
7
|
|
8
|
|
9
|
|
10
|
|
11
|
|
12
|
|
13
|
|
14
|
|
15
|
|
Screen 5 not modified
|
|
0
|
|
1
|
|
2
|
|
3
|
|
4
|
|
5
|
|
6
|
|
7
|
|
8
|
|
9
|
|
10
|
|
11
|
|
12
|
|
13
|
|
14
|
|
15
|
|
Screen 6 not modified
|
|
0
|
|
1
|
|
2
|
|
3
|
|
4
|
|
5
|
|
6
|
|
7
|
|
8
|
|
9
|
|
10
|
|
11
|
|
12
|
|
13
|
|
14
|
|
15
|
|
Screen 7 not modified
|
|
0
|
|
1
|
|
2
|
|
3
|
|
4
|
|
5
|
|
6
|
|
7
|
|
8
|
|
9
|
|
10
|
|
11
|
|
12
|
|
13
|
|
14
|
|
15
|
|
Screen 8 not modified
|
|
0
|
|
1
|
|
2
|
|
3
|
|
4
|
|
5
|
|
6
|
|
7
|
|
8
|
|
9
|
|
10
|
|
11
|
|
12
|
|
13
|
|
14
|
|
15
|
|
Screen 9 not modified
|
|
0
|
|
1
|
|
2
|
|
3
|
|
4
|
|
5
|
|
6
|
|
7
|
|
8
|
|
9
|
|
10
|
|
11
|
|
12
|
|
13
|
|
14
|
|
15
|
|
Screen 10 not modified
|
|
0
|
|
1
|
|
2
|
|
3
|
|
4
|
|
5
|
|
6
|
|
7
|
|
8
|
|
9
|
|
10
|
|
11
|
|
12
|
|
13
|
|
14
|
|
15
|
|
Screen 11 not modified
|
|
0
|
|
1
|
|
2
|
|
3
|
|
4
|
|
5
|
|
6
|
|
7
|
|
8
|
|
9
|
|
10
|
|
11
|
|
12
|
|
13
|
|
14
|
|
15
|
|
Screen 12 not modified
|
|
0
|
|
1
|
|
2
|
|
3
|
|
4
|
|
5
|
|
6
|
|
7
|
|
8
|
|
9
|
|
10
|
|
11
|
|
12
|
|
13
|
|
14
|
|
15
|
|
Screen 13 not modified
|
|
0
|
|
1
|
|
2
|
|
3
|
|
4
|
|
5
|
|
6
|
|
7
|
|
8
|
|
9
|
|
10
|
|
11
|
|
12
|
|
13
|
|
14
|
|
15
|
|
Screen 14 not modified
|
|
0
|
|
1
|
|
2
|
|
3
|
|
4
|
|
5
|
|
6
|
|
7
|
|
8
|
|
9
|
|
10
|
|
11
|
|
12
|
|
13
|
|
14
|
|
15
|
|
Screen 15 not modified
|
|
0
|
|
1
|
|
2
|
|
3
|
|
4
|
|
5
|
|
6
|
|
7
|
|
8
|
|
9
|
|
10
|
|
11
|
|
12
|
|
13
|
|
14
|
|
15
|
|
Screen 16 not modified
|
|
0
|
|
1
|
|
2
|
|
3
|
|
4
|
|
5
|
|
6
|
|
7
|
|
8
|
|
9
|
|
10
|
|
11
|
|
12
|
|
13
|
|
14
|
|
15
|
|
Screen 17 not modified
|
|
0
|
|
1
|
|
2
|
|
3
|
|
4
|
|
5
|
|
6
|
|
7
|
|
8
|
|
9
|
|
10
|
|
11
|
|
12
|
|
13
|
|
14
|
|
15
|