home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
clarion
/
brfcla2.zip
/
ABC.M
next >
Wrap
Text File
|
1989-06-07
|
4KB
|
193 lines
;;* Sample initials macro source file
;;* To find additions for CLARION support, search for comments that begin
;;* with ;;*
;** _init macro.
;** Do not change this macro (always overwritten by Setup).
(macro _init
(
(extern autosave ;** External macro declarations
toggle_re
)
(color 1 7 10 11 12 0x80) ;** Set the screen colors
(search_case 1) ;** Case insensitive search
(autosave) ;** Automatic file save when idle
)
)
;** Initials macro.
;** Use this macro for additional customization.
(macro ABC
(
(assign_to_key "<Backspace>" "bbkspace")
(assign_to_key "<Keypad-8>" "NewKeyPad 8")
(assign_to_key "<Keypad-4>" "NewKeyPad 4")
(assign_to_key "<Keypad-2>" "NewKeyPad 2")
(assign_to_key "<Keypad-6>" "NewKeyPad 6")
(assign_to_key "<Keypad-1>" "NewKeyPad 1")
(assign_to_key "<Keypad-7>" "NewKeyPad 7")
(int keyboardFlag)
(global keyboardFlag)
(autoload "extsrch" "search_fwd" "search_back" "search_again")
;;* Add this line to load CLARION language support
(autoload "ccompile" "compile_it" "cc")
;;* Macro Uppercases statements/inserts parens
(autoload "up_paren" "up_paren")
(return)
)
)
;** File Extension Macros, etc.
;** Macros marked "Overwritable" may be overwritten by SETUP.
(macro NewKeyPad
(
(int whatKey) ;** The number pressed
(string whatKeyString) ;** The number inserted
(get_parm 0 whatKey) ;** Get the parameter passed
(sprintf whatKeyString "%d" whatKey) ;** Turn whatKey into a string
(= keyboardFlag (inq_kbd_flags)) ;** Check the status of the keyboard
(if (> (& 0x20 keyboardFlag) 0) ;** Is the Num Lock on
(insert whatKeyString) ;** If so insert a number
;else
(
(if (|| (> (& 0x1 keyboardFlag) 0) (> (& 0x2 keyboardFlag) 0)) ;** Are one of the shift keys pressed
(
(switch whatKey ;** act on what key was pressed
8
(change_window 0) ;** up one window
4
(change_window 3) ;** right one window
2
(change_window 2) ;** down one window
6
(change_window 1) ;** left one window
1
(insert whatKeyString) ;** put in a one
7
(insert whatKeyString) ;** put in a seven
)
)
)
)
)
)
);** end of macro NewKeyPad
;** Overwritable by Setup
(macro default
(
(tabs 4 6 8 10)
)
)
;** Overwritable by Setup
(macro .h
(
(tabs 4 7)
)
)
;** Overwritable by Setup
(macro .m
(
(tabs 4 7)
)
)
;** Overwritable by Setup
(macro .bas
(
(tabs 2 4 6 8 10 12)
)
)
;** Overwritable by Setup
(macro .bas_next_error
(returns (search_fwd "^[ \\t\\n]+\\c[~ \\t\\n]" 1 1))
)
;** Overwritable by Setup
(macro .bas_prev_error
(returns (search_back "^[ \\t\\n]+\\c[~ \\t\\n]" 1 1))
)
;** Overwritable by Setup
(macro .bas_error_info
(
(string error_text)
(int error_buf
source_buf
line_found
)
(save_position)
(search_back "< [0-9A-F][0-9A-F][0-9A-F][0-9A-F] [~^]@>" 1 1)
(= error_text (substr (ltrim (substr (read) 17)) 1 80))
(if (== error_text "")
(= error_text "*")
)
(= error_buf (inq_buffer))
(get_parm 4 source_buf)
(set_buffer source_buf)
(if (! (search_fwd error_text 0 1))
(search_back error_text 0 1)
)
(inq_position line_found)
(set_buffer error_buf)
(restore_position)
(put_parm 1 line_found)
(put_parm 3 (trim (read)))
(put_parm 2 0)
(returns 2)
)
)
;** Overwritable by Setup
(macro .bat
(
(tabs 4 8 10 12)
)
)
;** Overwritable by Setup
(macro .c
(
(tabs 4 7)
)
)
;** Overwritable by Setup
(macro .txt
(
(tabs 2 4 6 8 10)
)
)
;** Overwritable by Setup
(macro .doc
(
(tabs 4 6 8 10)
)
)
;** Overwritable by Setup
(macro .asm
(
(tabs 9 17)
)
)
;;* Include macros to provide support for Clarion Compiler and error detection
#include "clainitl.inc"