.#ýü! 2- Maple_Program% mapleþ / custom_variableýü! 33 Maple_Prompt_Regexp+ ^[a-zA-Z]*>þ / custom_variable*ü! 5 ) Maple_Pid+" -1°) Maple_Pid,*ü! 9 # buf+*ü" 10 ) this_line ) mark_line+*ü" 11 ! m # len+ýü" 13 ) Maple_Pidþ , process_mark°! mü" 15 ) wh
at_line°) this_lineü" 16 ) push_markýü" 17 ! mþ . goto_user_markü" 18 ) what_line°) mark_lineü" 20 ) this_line ) mark_line@.ü" 24 * pop_mark_0ü" 25 - push_mark_eobü" 26 ) bufsubstr°# buf/.ü" 31 * pop_mark_1ü" 32 # eolü" 33 ) push_markýü" 34 3 Maple_Prompt
_Regexpþ * re_bsearch°# lenü" 35 # len.ü" 37 * pop_mark_0w/býü" 40 # len! 1:þ ( go_rightü" 41 ) bufsubstr°# bufü" 42 # eobýü" 43 # bufþ & insert/dü" 45 ' newlineýü" 46 ! mþ . move_user_markýü" 47 ) Maple_Pidý # buf$" \nþ & strcatþ , send_processü! 7y0 ma
ple_send_inputü" 50( MapleMap°" $1ýü" 51 " $1þ ( keymap_p.ý " $1þ + make_keymap/býü" 520 maple_send_input" ^M " $1þ ) definekey,*ü" 54 # pid % flags & status+*ü" 56 # msg+ü" 57 # eobýü" 58 # pid % flags & statusþ 9 aprocess_stringify_status°# msgýü" 5
9$7 \n\n----- %s ------\n\n # msgþ ' vinsertü" 60 % flags! 2B.ü" 61" -1°) Maple_Pid/cü" 54y4 maple_signal_handler,*ü" 64 # pid # str+ü" 66 # eobü" 67 ) push_spotýü" 68 # strþ & insertü" 69 ( pop_spotü" 70 # bolýü" 71$" \r + Null_Stringþ ' replaceü" 72 
# eobýýü" 73 # pidþ , process_markþ . move_user_markü" 64y3 maple_insert_output,*ü" 78 # buf+' *maple*°# buf*ü" 79 # arg % nargs+! 0°% nargsü" 81 ) Maple_Pid" -1Bý # bufþ ' bufferpC.ýü" 83O Currently, only one maple process is supported.þ % error/cýü
" 86 # bufþ ' pop2bufýü" 87( MapleMapþ * use_keymapýü" 88/ maple_mode_hookþ . run_mode_hooksü" 89 , erase_buffer.ýü" 94 - Maple_Program % nargs" 32þ / extract_element°# argü" 95 # arg $ NULLA.v/cü" 98·% nargsü" 99 # arg/eü# 102 % nargs! 1:ü# 103 , op
en_process°) Maple_Pidýü# 104 ) Maple_Pid& signal4 maple_signal_handlerþ + set_processýü# 105 ) Maple_Pid& output3 maple_insert_outputþ + set_processü" 76y% maple