CydandClaude Fable 5
db7745fcd0
Un-ignored: the dev drive is the ground truth the restoration and emulator work constantly reference (DPL3/LIBDPL + VRENDER i860 renderer source, BT/RP live+dev game trees, VGL_LABS pod boot, scene/audio content). Kept in-repo for the pod-owner community. Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
158 lines
2.5 KiB
Objective-C
158 lines
2.5 KiB
Objective-C
;** _init macro.
|
|
;** Do not change this macro (always overwritten by Setup).
|
|
(macro _init
|
|
(
|
|
(extern autosave ;** External macro declarations
|
|
toggle_re
|
|
)
|
|
(color 0 10 15 11 15 0x80) ;** Set the screen colors
|
|
(search_case 1) ;** Case insensitive search
|
|
(autosave) ;** Automatic file save when idle
|
|
(set_mouse_type 3 0) ;** Set number of mouse buttons, button one location
|
|
(set_ctrl_state 0 1) ;** Enable close button
|
|
(set_ctrl_state 1 1) ;** Enable zoom button
|
|
(set_ctrl_state 2 1) ;** Enable vertical scroll bar
|
|
(set_ctrl_state 3 1) ;** Enable horizontal scroll bar
|
|
(set_mouse_action "_mouse_action") ;** Set mouse action macro
|
|
(set_btn2_action 1) ;** Set default action for mouse button two
|
|
)
|
|
)
|
|
|
|
;** Initials macro.
|
|
;** Use this macro for additional customization.
|
|
(macro GC
|
|
(
|
|
(return)
|
|
)
|
|
)
|
|
|
|
|
|
;** File Extension Macros, etc.
|
|
;** Macros marked "Overwritable" may be overwritten by SETUP.
|
|
|
|
|
|
;** Overwritable by Setup
|
|
(macro default
|
|
(
|
|
(tabs 9 17)
|
|
)
|
|
)
|
|
|
|
;** Overwritable by Setup
|
|
(macro .doc
|
|
(
|
|
(tabs 9 17)
|
|
)
|
|
)
|
|
|
|
;** Overwritable by Setup
|
|
(macro .txt
|
|
(
|
|
(tabs 9 17)
|
|
)
|
|
)
|
|
|
|
;** Overwritable by Setup
|
|
(macro .odl
|
|
(
|
|
(tabs 9 17)
|
|
)
|
|
)
|
|
|
|
;** Overwritable by Setup
|
|
(macro .asm
|
|
(
|
|
(tabs 15 23 40 44)
|
|
)
|
|
)
|
|
|
|
;** Overwritable by Setup
|
|
(macro .658
|
|
(
|
|
(tabs 15 23 40 44)
|
|
)
|
|
)
|
|
|
|
;** Overwritable by Setup
|
|
(macro .pas
|
|
(
|
|
(tabs 4 8)
|
|
)
|
|
)
|
|
|
|
;** Overwritable by Setup
|
|
(macro .68k
|
|
(
|
|
(tabs 15 23 40 44)
|
|
)
|
|
)
|
|
|
|
(macro .34
|
|
(
|
|
(tabs 15 23 40 44)
|
|
)
|
|
)
|
|
|
|
(macro .34h
|
|
(
|
|
(tabs 15 23 40 44)
|
|
)
|
|
)
|
|
|
|
(macro .hdr
|
|
(
|
|
(tabs 15 23 40 44)
|
|
)
|
|
)
|
|
|
|
;** Overwritable by Setup
|
|
(macro .h
|
|
(
|
|
(tabs 15 23 40 44)
|
|
)
|
|
)
|
|
|
|
;** Overwritable by Setup
|
|
(macro .z80
|
|
(
|
|
(tabs 15 23 40 44)
|
|
)
|
|
)
|
|
|
|
|
|
;** Overwritable by Setup
|
|
(macro .pas_next_error
|
|
(returns (search_fwd "<*.[a-zA-Z]+(\\c[0-9]+): Error" 1 1))
|
|
)
|
|
|
|
;** Overwritable by Setup
|
|
(macro .pas_prev_error
|
|
(returns (search_back "<*.[a-zA-Z]+(\\c[0-9]+): Error" 1 1))
|
|
)
|
|
|
|
;** Overwritable by Setup
|
|
(macro .pas_error_info
|
|
(
|
|
(string error_text)
|
|
|
|
(int line
|
|
ret_val
|
|
)
|
|
(string buf_name
|
|
error_msg
|
|
file_name
|
|
base_name
|
|
)
|
|
(extern _error_info)
|
|
|
|
(get_parm 0 buf_name)
|
|
(get_parm 5 base_name)
|
|
(= ret_val (_error_info buf_name line NULL error_msg file_name base_name))
|
|
(put_parm 1 line)
|
|
(put_parm 4 file_name)
|
|
(put_parm 3 error_msg)
|
|
(put_parm 2 0)
|
|
(returns ret_val)
|
|
)
|
|
)
|
|
|