Script DEFAULTS; /*********************************************************************** Default editor bindings for Borland/Turbo Pascal IDE. This file contains a Turbo Editor Macro Language (TEML) script which is the default editor bindings for the Borland/Turbo Pascal IDEs as shipped. A complete description of the TEML language and the Turbo Editor Macro Compiler (TEMC) can be found in the file "TEMC.DOC". The TEMC compiler can be invoked from the DOS command line at follows: temc [-c] defaults.tem <.CMD><.TP> The optional -c switch can also be specified as /c, and can appear in any argument position on the command line. If you use this option, any existing command table in your configuration file is thrown away before the script file is merged with those already defined. The configuration file extension must be specified as TEMC will modify both DOS and Windows IDEs config files. Specify .CMD or .TP extentions for Windows or DOS IDE, respectively. If the .CMD file does not exist, it will be created. The .TP file must exist, or an error is displayed. /* macro definitions for anything which isn't an editor primitive */ MACRO MacScrollUp ScrollScreenUp;FixCursorPos; END; MACRO MacScrollDown ScrollScreenDown;FixCursorPos; END; MACRO MacPageUp SetPrevPos;FixScreenPos;PageUp;FixCursorPos; END; MACRO MacPageDown SetPrevPos;FixScreenPos;PageDown;FixCursorPos; END; MACRO MacWordLeft SetPrevPos;WordLeft; END; MACRO MacWordRight SetPrevPos;WordRight; END; MACRO MacDeleteLine DeleteLine;LeftOfLine; END; MACRO MacLeftOfLine SetPrevPos;LeftOfLine; END; MACRO MacRightOfLine SetPrevPos;RightOfLine; END; MACRO MacTopOfScreen SetPrevPos;TopOfScreen; END; MACRO MacBottomOfScreen SetPrevPos;BottomOfScreen; END; MACRO MacHomeCursor SetPrevPos;HomeCursor; END; MACRO MacEndCursor SetPrevPos;EndCursor; END; MACRO MacOpenLine SetPrevPos;RightOfLine;LiteralChar(13); END; MACRO MacInsertStar InsertText("*"); END; MACRO MacInsertMinus InsertText("-"); END; MACRO MacInsertPlus InsertText("+"); END; MACRO MacMarkCursorSwitchedRight ExtendBlockBeg;CursorSwitchedRight;ExtendBlockEnd;HighlightBlock; END; MACRO MacMarkCursorSwitchedLeft ExtendBlockBeg;CursorSwitchedLeft;ExtendBlockEnd;HighlightBlock; END; MACRO MacMarkCursorUp ExtendBlockBeg;CursorUp;ExtendBlockEnd;HighlightBlock; END; MACRO MacMarkCursorDown ExtendBlockBeg;CursorDown;ExtendBlockEnd;HighlightBlock; END; MACRO MacMarkPageUp ExtendBlockBeg;PageUp;FixCursorPos;ExtendBlockEnd;HighlightBlock; END; MACRO MacMarkPageDown ExtendBlockBeg;PageDown;FixCursorPos;ExtendBlockEnd;HighlightBlock; END; MACRO MacMarkWordLeft ExtendBlockBeg;WordLeft;ExtendBlockEnd;HighlightBlock; END; MACRO MacMarkWordRight ExtendBlockBeg;WordRight;ExtendBlockEnd;HighlightBlock; END; MACRO MacMarkLeftOfLine ExtendBlockBeg;LeftOfLine;ExtendBlockEnd;HighlightBlock; END; MACRO MacMarkRightOfLine ExtendBlockBeg;RightOfLine;ExtendBlockEnd;HighlightBlock; END; MACRO MacMarkTopOfScreen ExtendBlockBeg;TopOfScreen;ExtendBlockEnd;HighlightBlock; END; MACRO MacMarkBottomOfScreen ExtendBlockBeg;BottomOfScreen;ExtendBlockEnd;HighlightBlock; END; MACRO MacMarkHomeCursor ExtendBlockBeg;HomeCursor;ExtendBlockEnd;HighlightBlock; END; MACRO MacMarkEndCursor ExtendBlockBeg;EndCursor;ExtendBlockEnd;HighlightBlock; END; MACRO MacSetBlockBeg HideBlock;SetBlockBeg;HighlightBlock; END; MACRO MacSetBlockEnd HideBlock;SetBlockEnd;HighlightBlock; END; MACRO MacMarkLine HideBlock;SetTempPos;RightOfLine; CursorCharRight;SetBlockEnd; CursorCharLeft;LeftOfLine;SetBlockBeg; HighlightBlock;MoveToTempPos; END; MACRO MacMarkWord HideBlock;SetTempPos;CursorRight;WordLeft; RightOfWord;SetBlockEnd;WordLeft; SetBlockBeg;HighlightBlock;MoveToTempPos; END; MACRO MacMoveToBlockBeg SetPrevPos;MoveToBlockBeg;CenterFixScreenPos; END; MACRO MacMoveToBlockEnd SetPrevPos;MoveToBlockEnd;CenterFixScreenPos; END; MACRO MacMoveToPrevPos SwapPrevPos;CenterFixScreenPos; END; MACRO MacCopyBlock CopyBlock;HighlightBlock;CenterFixScreenPos; END; MACRO MacMoveBlock MoveBlock;HighlightBlock;CenterFixScreenPos; END; MACRO MacDeleteBlock DeleteBlock;CenterFixScreenPos;HideBlock; END; MACRO MacBreakLine LiteralChar(13);CursorCharLeft; END; MACRO MacGoto0 SetPrevPos;MoveToMark(0); CenterFixScreenPos; END; MACRO MacGoto1 SetPrevPos;MoveToMark(1); CenterFixScreenPos; END; MACRO MacGoto2 SetPrevPos;MoveToMark(2); CenterFixScreenPos; END; MACRO MacGoto3 SetPrevPos;MoveToMark(3); CenterFixScreenPos; END; MACRO MacGoto4 SetPrevPos;MoveToMark(4); CenterFixScreenPos; END; MACRO MacGoto5 SetPrevPos;MoveToMark(5); CenterFixScreenPos; END; MACRO MacGoto6 SetPrevPos;MoveToMark(6); CenterFixScreenPos; END; MACRO MacGoto7 SetPrevPos;MoveToMark(7); CenterFixScreenPos; END; MACRO MacGoto8 SetPrevPos;MoveToMark(8); CenterFixScreenPos; END; MACRO MacGoto9 SetPrevPos;MoveToMark(9); CenterFixScreenPos; END; MACRO MacMatchPairForward SetPrevPos;MatchPairForward; END; MACRO MacMatchPairBackward SetPrevPos;MatchPairBackward; END; MACRO MacGetFindString SetPrevPos;GetFindString; END; MACRO MacRepeatSearch SetPrevPos;RepeatSearch; END; MACRO MacReplace SetPrevPos;Replace; END; /**** key bindings ******/ Esc : NullCmd; ctrl-A : MacWordLeft; ctrl-C : MacPageDown; ctrl-D : CursorSwitchedRight; ctrl-E : CursorUp; ctrl-F : MacWordRight; ctrl-G : DeleteChar; ctrl-H : BackspaceDelete; ctrl-I : SmartTab; ctrl-L : MacRepeatSearch; ctrl-N : MacBreakLine; ctrl-P : LiteralChar; ctrl-R : MacPageUp; ctrl-S : CursorSwitchedLeft; ctrl-T : DeleteWord; ctrl-V : ToggleInsert; ctrl-W : MacScrollDown; ctrl-X : CursorDown; ctrl-Y : MacDeleteLine; ctrl-Z : MacScrollUp; /* ---- Function and special keys */ /* the following three keys refer to the ones on the numeric keypad */ star: MacInsertStar; minus: MacInsertMinus; plus: MacInsertPlus; bksp : BackspaceDelete; shift-bksp : BackspaceDelete; lfar : CursorSwitchedLeft; rgar : CursorSwitchedRight; upar : CursorUp; dnar : CursorDown; pgup : MacPageUp; pgdn : MacPageDown; end : MacRightOfLine; home : MacLeftOfLine; ins : ToggleInsert; del : DeleteChar; ctrl-lfar : WordLeft; ctrl-rgar : WordRight; ctrl-end : MacBottomOfScreen; ctrl-home : MacTopOfScreen; ctrl-pgdn : MacEndCursor; ctrl-pgup : MacHomeCursor; shift-tab : BackSpaceDelete; tab : SmartTab; ctrl-enter : OpenFileAtCursor; shift-lfar : MacMarkCursorSwitchedLeft; shift-rgar : MacMarkCursorSwitchedRight; shift-upar : MacMarkCursorUp; shift-dnar : MacMarkCursorDown; shift-pgup : MacMarkPageUp; shift-pgdn : MacMarkPageDown; shift-end : MacMarkRightOfLine; shift-home : MacMarkLeftOfLine; /* ---- Control K sequences ------------------ */ ctrl-K+^B : MacSetBlockBeg; ctrl-K+^C : MacCopyBlock; ctrl-K+^D : Menu; ctrl-K+^H : ToggleHideBlock; ctrl-K+^I : IndentBlock; ctrl-K+^K : MacSetBlockEnd; ctrl-K+^L : MacMarkLine; ctrl-K+^P : PrintBlock; ctrl-K+^Q : Menu; ctrl-K+^R : ReadBlock; ctrl-K+^S : SaveFile; ctrl-K+^T : MacMarkWord; ctrl-K+^U : OutdentBlock; ctrl-K+^V : MacMoveBlock; ctrl-K+^W : WriteBlock; ctrl-K+^Y : MacDeleteBlock; ctrl-K+0 : SetMark(0); ctrl-K+1 : SetMark(1); ctrl-K+2 : SetMark(2); ctrl-K+3 : SetMark(3); ctrl-K+4 : SetMark(4); ctrl-K+5 : SetMark(5); ctrl-K+6 : SetMark(6); ctrl-K+7 : SetMark(7); ctrl-K+8 : SetMark(8); ctrl-K+9 : SetMark(9); /* ---- Control Q sequences ------------------ */ ctrl-Q+^A : MacReplace; ctrl-Q+^B : MacMoveToBlockBeg; ctrl-Q+^C : MacEndCursor; ctrl-Q+^D : RightOfLine; ctrl-Q+^E : MacTopOfScreen; ctrl-Q+^F : MacGetFindString; ctrl-Q+^K : MacMoveToBlockEnd; ctrl-Q+^P : MacMoveToPrevPos; ctrl-Q+^R : MacHomeCursor; ctrl-Q+^S : LeftOfLine; ctrl-Q+^W : LastError; ctrl-Q+^X : MacBottomOfScreen; ctrl-Q+^Y : DeleteToEol; ctrl-Q+0 : MacGoto0; ctrl-Q+1 : MacGoto1; ctrl-Q+2 : MacGoto2; ctrl-Q+3 : MacGoto3; ctrl-Q+4 : MacGoto4; ctrl-Q+5 : MacGoto5; ctrl-Q+6 : MacGoto6; ctrl-Q+7 : MacGoto7; ctrl-Q+8 : MacGoto8; ctrl-Q+9 : MacGoto9; ctrl-Q+[ : MacMatchPairForward; ctrl-Q+] : MacMatchPairBackward; /* ---- Control O sequences ------------------ */ ctrl-O+^F : ToggleOptimalFillMode; ctrl-O+^I : ToggleAutoIndent; ctrl-O+^O : AddOptions; ctrl-O+^R : ToggleCursorThroughTabMode; ctrl-O+^T : ToggleTabbingMode; ctrl-O+^U : ToggleAutoOutdent;