home *** CD-ROM | disk | FTP | other *** search
- set $discmd "TRUE"
- write-message "[Initializing...]"
- 4 handle-tab
- bind-to-key set-mark ^@
- bind-to-key hunt-forward ^X^A
- bind-to-key hunt-backward ^X^H
- unbind-key
- bind-to-key delete-next-character
- unbind-key FNP
- unbind-key FNQ
- unbind-key FNR
- unbind-key FNS
- unbind-key FNT
- unbind-key FNU
- unbind-key FNV
- unbind-key FNW
- unbind-key FNX
- unbind-key FNY
- bind-to-key execute-macro-1 ^X^D
- 1 store-macro
- beginning-of-line
- kill-to-end-of-line
- kill-to-end-of-line
- !endm
- bind-to-key execute-macro-2 ^XI
- 2 store-macro
- insert-string "if( )"
- newline-and-indent
- insert-string " {"
- 3 newline-and-indent
- insert-string "}"
- newline
- 5 previous-line
- end-of-line
- 2 backward-character
- !endm
- bind-to-key execute-macro-3 ^XL
- 3 store-macro
- insert-string "while( )"
- newline-and-indent
- insert-string " {"
- 3 newline-and-indent
- insert-string "}"
- newline
- 5 previous-line
- end-of-line
- 2 backward-character
- !endm
- bind-to-key execute-macro-4 FN0
- 4 store-macro
- 79 insert-string "*"
- beginning-of-line
- !endm
- bind-to-key execute-macro-5 FN1
- 5 store-macro
- beginning-of-line
- set-mark
- next-line
- copy-region
- yank
- !endm
- bind-to-key execute-macro-6 FN2
- 6 store-macro
- insert-string "~n/*~n"
- 1 insert-string " *~n"
- insert-string " */"
- 2 previous-line
- end-of-line
- !endm
- bind-to-key execute-macro-7 FN3
- 7 store-macro
- insert-string "/"
- 76 insert-string "*"
- 5 insert-string "~n*"
- insert-string "~n"
- 76 insert-string "*"
- insert-string "/"
- 5 previous-line
- end-of-line
- !endm
- write-message "[Ready.]"
- set $discmd "TRUE"
-