393 lines
8.5 KiB
Plaintext
393 lines
8.5 KiB
Plaintext
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 <IDE configuration file><.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;
|
||
|