home *** CD-ROM | disk | FTP | other *** search
- \ EDITSET.SEQ Set the editor key assignments by Tom Zimmer
-
- .comment:
- The file EDITSET.SEQ contains the command key definitions for the
- SED editor. You can change these assignments, to redefine how the
- editor works.
-
- See the end of EDITSET.SEQ for a description of the functions
- available in the editor.
-
- comment;
-
- only forth also editor also definitions
-
- : ctlset ( n1 | function --- )
- 0 max 31 min 2* ['] s^tbl >body @ + 2+ ' swap x! ;
-
- \ control key function table
-
- control @ ctlset kerr \ Null, can NOT be generated.
- control A ctlset lwrd \ Control A
- control B ctlset kerr \ Control B ** Not used **
- control C ctlset pdn \ Control C
- control D ctlset rchr \ Control D
- control E ctlset upln \ Control E
- control F ctlset rwrd \ Control F
- control G ctlset fdel \ Control G
- control H ctlset bdel \ Control H Back Space
- control I ctlset stab \ Control I TAB
- control J ctlset kerr \ Control J ** Not used **
- control K ctlset kerr \ Control K ** Not used **
- control L ctlset lmset \ Control L
- control M ctlset nln \ Control M
- control N ctlset spltln \ Control N
- control O ctlset kerr \ Control O ** Not used **
- control P ctlset kerr \ Control P ** Not used **
- control Q ctlset kerr \ Control Q ** Not used **
- control R ctlset pup \ Control R
- control S ctlset lchr \ Control S
- control T ctlset wdel \ Control T
- control U ctlset updt \ Control U
- control V ctlset itgl \ Control V
- control W ctlset sclup \ Control W
- control X ctlset dnln \ Control X
- control Y ctlset ldel \ Control Y
- control Z ctlset scldn \ Control Z
- control [ ctlset sesc \ ESCape
- control \ ctlset kerr \ Control \ ** Not used **
- control ] ctlset kerr \ Control ] ** Not used **
- control ^ ctlset kerr \ Control ^ ** Not used **
- control _ ctlset kerr \ Control _ ** Not used **
-
-
- : fnset ( n1 | function --- )
- 128 max 255 min 128 - 2* ['] sfuntbl >body @ + 2+ ' swap x! ;
-
- 143 fnset sbtab \ Back TAB
- 158 fnset kerr \ Alt-A ** Not used **
- 176 fnset kerr \ Alt-B ** Not used **
- 174 fnset exportx \ Alt-C
- 160 fnset kerr \ Alt-D ** Not used **
- 146 fnset kerr \ Alt-E ** Not used **
- 161 fnset kerr \ Alt-F ** Not used **
- 162 fnset kerr \ Alt-G ** Not used **
- 163 fnset kerr \ Alt-H ** Not used **
- 151 fnset kerr \ Alt-I ** Not used **
- 164 fnset kerr \ Alt-J ** Not used **
- 165 fnset tabxp \ Alt-K
- 166 fnset lmset \ Alt-L
- 178 fnset kerr \ Alt-M ** Not used **
- 177 fnset joinln \ Alt-N
- 152 fnset pmenux \ Alt-O
- 153 fnset pmenux \ Alt-P
- 144 fnset kerr \ Alt-Q ** Not used **
- 147 fnset kerr \ Alt-R ** Not used **
- 159 fnset kerr \ Alt-S ** Not used **
- 148 fnset tabset \ Alt-T
- 150 fnset wudel \ Alt-U
- 175 fnset importx \ Alt-V
- 145 fnset wr->fl \ Alt-W
- 173 fnset excutx \ Alt-X
- 149 fnset lundel \ Alt-Y
- 172 fnset kerr \ Alt-Z ** Not used **
-
- 248 fnset kerr \ Alt 1 ** Not used **
- 249 fnset kerr \ Alt 2 ** Not used **
- 250 fnset kerr \ Alt 3 ** Not used **
- 251 fnset kerr \ Alt 4 ** Not used **
- 252 fnset kerr \ Alt 5 ** Not used **
- 253 fnset kerr \ Alt 6 ** Not used **
- 254 fnset kerr \ Alt 7 ** Not used **
- 255 fnset kerr \ Alt 8 ** Not used **
- 128 fnset kerr \ Alt-9 ** Not used **
- 129 fnset kerr \ Alt-0 ** Not used **
-
- 130 fnset kerr \ Alt - ** Not used **
- 131 fnset kerr \ Alt = ** Not used **
-
- 199 fnset shoml \ HOME key
- 207 fnset sendl \ END key
-
- 200 fnset upln \ Up Arrow
- 208 fnset dnln \ Down Arrow
- 203 fnset lchr \ Left Arrow
- 205 fnset rchr \ Right Arrow
-
- 201 fnset pup \ PgUp
- 209 fnset pdn \ PgDn
-
- 210 fnset itgl \ Insert key
- 211 fnset fdel \ Delete key
-
- 243 fnset lwrd \ Control Left Arrow
- 244 fnset rwrd \ Control Right Arrow
- 247 fnset shom \ Control HOME
- 245 fnset send \ Control END
- 246 fnset kerr \ Control PgDn ** Not used **
- 132 fnset kerr \ Control PgUp ** Not used **
-
- 187 fnset shelp \ F1
- 187 =: helpkey \ Assign F1 as the HELPKEY value.
- \ If you set another key as HELP, then
- \ change the 187 to the new value of help.
-
- 188 fnset tscrn \ F2
- 189 fnset smrk \ F3
- 190 fnset bscrn \ F4
- 191 fnset sgetl \ F5
- 192 fnset sloon \ F6
- 193 fnset kerr \ F7 ** Not used **
- 194 fnset srepn \ F8
- 195 fnset kerr \ F9 ** Not used **
- 196 fnset ^cc \ F10 ** Not used **
-
- 212 fnset kerr \ Shift F1 ** Not used **
- 213 fnset kerr \ Shift F2 ** Not used **
- 214 fnset kerr \ Shift F3 ** Not used **
- 215 fnset kerr \ Shift F4 ** Not used **
- 216 fnset kerr \ Shift F5 ** Not used **
- 217 fnset sloob \ Shift F6
- 218 fnset kerr \ Shift F7 ** Not used **
- 219 fnset repall \ Shift F8
- 220 fnset kerr \ Shift F9 ** Not used **
- 221 fnset kerr \ Shift F10 ** Not used **
-
- 222 fnset kerr \ Control F1 ** Not used **
- 223 fnset kerr \ Control F2 ** Not used **
- 224 fnset kerr \ Control F3 ** Not used **
- 225 fnset kerr \ Control F4 ** Not used **
- 226 fnset kerr \ Control F5 ** Not used **
- 227 fnset kerr \ Control F6 ** Not used **
- 228 fnset kerr \ Control F7 ** Not used **
- 229 fnset kerr \ Control F8 ** Not used **
- 230 fnset kerr \ Control F9 ** Not used **
- 231 fnset kerr \ Control F10 ** Not used **
-
- 232 fnset kerr \ Alt F1 ** Not used **
- 233 fnset kerr \ Alt F2 ** Not used **
- 234 fnset kerr \ Alt F3 ** Not used **
- 235 fnset kerr \ Alt F4 ** Not used **
- 236 fnset kerr \ Alt F5 ** Not used **
- 237 fnset slooa \ Alt F6
- 238 fnset kerr \ Alt F7 ** Not used **
- 239 fnset srepa \ Alt F8
- 240 fnset kerr \ Alt F9 ** Not used **
- 241 fnset squt \ Alt F10
-
- \ At the moment I do not know of any keys that will generate the
- \ following values.
- \ Tom Zimmer
-
- 133 fnset kerr \ 133 ** Not used **
- 134 fnset kerr \ 134 ** Not used **
- 135 fnset kerr \ 135 ** Not used **
- 136 fnset kerr \ 136 ** Not used **
- 137 fnset kerr \ 137 ** Not used **
- 138 fnset kerr \ 138 ** Not used **
- 139 fnset kerr \ 139 ** Not used **
- 140 fnset kerr \ 140 ** Not used **
- 141 fnset kerr \ 141 ** Not used **
- 142 fnset kerr \ 142 ** Not used **
- 154 fnset kerr \ 154 ** Not used **
- 155 fnset kerr \ 155 ** Not used **
- 156 fnset kerr \ 156 ** Not used **
- 157 fnset kerr \ 157 ** Not used **
- 167 fnset kerr \ 167 ** Not used **
- 168 fnset kerr \ 168 ** Not used **
- 169 fnset kerr \ 169 ** Not used **
- 170 fnset kerr \ 170 ** Not used **
- 171 fnset kerr \ 171 ** Not used **
- 179 fnset kerr \ 179 ** Not used **
- 180 fnset kerr \ 180 ** Not used **
- 181 fnset kerr \ 181 ** Not used **
- 182 fnset kerr \ 182 ** Not used **
- 183 fnset kerr \ 183 ** Not used **
- 184 fnset kerr \ 184 ** Not used **
- 185 fnset kerr \ 185 ** Not used **
- 186 fnset kerr \ 186 ** Not used **
- 197 fnset kerr \ 197 ** Not used **
- 198 fnset kerr \ 198 ** Not used **
- 202 fnset kerr \ 202 ** Not used **
- 204 fnset kerr \ 204 ** Not used **
- 206 fnset kerr \ 206 ** Not used **
- 242 fnset kerr \ 242 ** Not used **
-
- only forth also definitions
-
- \S Don't compile the rest of this file.
-
-
- Function Descriptions for the above key definitions
-
- tscrn Move to top of screen.
- bscrn Move to bottom of screen.
- dnln Move down a line
- upln Move up a line
- lchr Move left a character
- rchr Move right a character
- lwrd Move left a word
- rwrd Move right a word
- pdn Move down one screen full
- pup Move up one screen full
- shoml Move to the beginning of the current line.
- sendl Move to the end of the current line.
- shom Move to the beginning of the file.
- send Move to the end of the file.
-
- fdel Delete current character under cursor
- bdel Delete character before cursor
- wdel Delete word forward starting at cursor
- ldel Delete all of current edit line
- excutx Delete all marked lines of text, MARK sets start.
- Cuts all lines to the file TEMP.SEQ
- Prompts for a filename if SHIFT is held down.
-
- shelp Display the first of two help screens.
-
- pmenux Enter print menu.
-
- exportx Copy the portion of the current file starting at the
- last MARK, until the cursor line to the file TEMP.SEQ.
- Prompts for a filename if Shift is held down.
- importx Insert the file TEMP.SEQ at the cursor, or allow
- selection of a file if Shift is held down.
- sgetl Get a line from MARK to current cursor position.
-
- stab Insert spaces up to next tab setting
- sbtab Move back to previous tab position.
- tabxp Expand tabs in entire file to spaces.
-
- ^cc Insert the value of any key following this command.
-
- joinln Join this line and next line.
- spltln Split current line at cursor into two lines
-
- kerr Key error, beeps
-
- sloon Search for name with prompt for text.
- slooa Search again for same text.
- sloob Search backwards for last text searched for.
-
- srepn Replace searched text with prompt for text.
- srepa Replace again with same text.
- repall Replace all occurances of found text with replace text,
- no prompting.
-
- nln Return, go down to next line.
-
- sclup Scroll the screen up, leaving cursor on same screen line.
- scldn Scroll the screen down, leaving cursor on same screen line.
-
- lmset Set left margin to current cursor position.
- lmset Set the left margin to current cursor position
- tabset Set the tab increment to multiples of the current column.
- smrk Set the MARK for copy lines, or export.
-
- updt Save changes to disk and continue editing
- sesc Terminate edit and save changes unless Shift is being held
- down, then terminate edit without saving changes.
- squt Terminate the edit, and discard all changes.
-
- itgl Toggle between insert and overwrite mode
-
- wudel Undelete the most recent word deleted.
- repeatable up to 256 bytes.
- lundel Undelete the last line deleted, upto 50 lines.
-
- wr->fl Write all of current file to a new file which will
- be prompted for.
-
-
