.#* , tpas_objname+2 *UnDef ObjectName*°, tpas_objname* + tpas_indent+! 2°+ tpas_indent* - tpas_tab_save+! 0°- tpas_tab_save,! 0wy/ tpas_is_comment,* * tellstring+* % gname+ý * tellstring + Null_String + Null_Stringþ ) read_mini°% gname % gnamew
y, tpas_getname,* # pos # str+ý # strþ & insertý" \nþ & insert # pos! 0?. # pos. 3 insert_single_space/i/cy( ins_snlp, + what_column! 1:wy( tpas_pos,* ! p $ name+ý ! p# (* þ ( ins_snlpý ! p#  * þ ( ins_snlpý ! p#  *)þ ( ins_snlpý ! p% BEGINþ
 ( ins_snlpý( END; (* þ & insertý $ nameþ & insertý ! p#  *)þ ( ins_snlpy* tpas_paspf,R --------------------------------------------------wy1 tpas_delim_string,* ! s+ 1 tpas_delim_string°! sý' (* %s\n ! sþ ' vinsertý
G  * Author : Carsten Tinggaard Nielsen\nþ & insertý.  * Project: \nþ & insertý3  * Module : \n * \nþ & insertý6  * $Revision$ $Date$\nþ & insertý6  * $Locker$ $Source$\nþ & insertý*  * %s *)\n ! sþ ' vinsertý/ (*$I-,V-,B+*)\nþ & insert
y4 tpas_prog_unit_start,ý6 \n  USES\n    DOS;\n\nþ & insertý' BEGIN\nþ & insertý& END.\nþ & insertýI (* History:\n * --------\n * $Log$\n *)\nþ & inserty2 tpas_prog_unit_end,* ( progname+ý0 Name of program:þ , tpas_getname°( progname # bobý
- PROGRAM %s;\n ( prognameþ ' vinsert 4 tpas_prog_unit_startý? (*$M 16000, 128000, 512000 *)\nþ & insert 2 tpas_prog_unit_end # boby) tpas_main,* ( unitname+ý- Name of unit:þ , tpas_getname°( unitname # bobý* UNIT %s;\n ( unitnameþ ' vinsertý
A INTERFACE\n\n  USES\n    DOS;\n\nþ & insertý0 IMPLEMENTATION\nþ & insert 4 tpas_prog_unit_start 2 tpas_prog_unit_end # boby) tpas_unit,* ! p+ ( tpas_pos°! p* $ name+ý* Procedure:þ , tpas_getname°$ nameý ! pý/ PROCEDURE %s(); $ nameþ ' sprintfþ
 ( ins_snlpý ! p $ nameþ * tpas_paspfý" );þ ' bsearchy) tpas_proc,* ! p+ ( tpas_pos°! p* $ name+ý) Function:þ , tpas_getname°$ nameý ! pý1 FUNCTION %s() : ; $ nameþ ' sprintfþ ( ins_snlpý ! p $ nameþ * tpas_paspfý# ) :þ ' bsearchy) tpas_func,* ! p+
 ) push_spot ' go_up_1 . bol_skip_white * _get_point°! pý% BEGINþ * looking_at. ) go_down_1 * skip_white + what_column°! p ( bol_trimý ! p + tpas_indent9þ * whitespace/c ( pop_spoty. tpas_wrap_hooký$ TPasþ ( keymap_p.ý$ TPasþ + make_keymapý
) tpas_main! m$ TPasþ 2 definekey_reservedý) tpas_unit! u$ TPasþ 2 definekey_reservedý) tpas_proc! p$ TPasþ 2 definekey_reservedý) tpas_func! f$ TPasþ 2 definekey_reservedý/ self_insert_cmd! 	$ TPasþ ) definekey/bý$ TPasþ
 3 create_syntax_tableý" (*" *)" 37$ TPasþ - define_syntaxý" ([" )]" 40$ TPasþ - define_syntaxý" 39" 39$ TPasþ - define_syntaxý* 0-9a-zA-Z_# 119$ TPasþ - define_syntaxý, -+0-9a-FA-F." 48$ TPasþ - define_syntaxý% ,;.?:" 44$ TPasþ
 - define_syntaxý/ @$()[]%-+/*=<>^" 43$ TPasþ - define_syntaxý$ TPas! 5þ 0 set_syntax_flags,* $ name+ý+ tpascal.dfa $ nameþ : dfa_enable_highlight_cacheý. \\(\\*.*\\*\\)( Qcomment $ nameþ 9 dfa_define_highlight_ruleý: ^([^\\(]|\\([^\\*])*\\*\\)
( Qcomment $ nameþ 9 dfa_define_highlight_ruleý( \\(\\*.*' comment $ nameþ 9 dfa_define_highlight_ruleý$ {.*}( Qcomment $ nameþ 9 dfa_define_highlight_ruleý' ^[^{]*}( Qcomment $ nameþ 9 dfa_define_highlight_ruleý# {.*' comment $ nameþ
 9 dfa_define_highlight_ruleý4 ^[ 	]*\\*+([ 	].*)?$' comment $ nameþ 9 dfa_define_highlight_ruleý6 [A-Za-z_][A-Za-z_0-9]*' Knormal $ nameþ 9 dfa_define_highlight_ruleýH [0-9]+(\\.[0-9]+)?([Ee][\\+\\-]?[0-9]*)?& number $ nameþ
 9 dfa_define_highlight_ruleý/ \\$[0-9A-Fa-f]*& number $ nameþ 9 dfa_define_highlight_ruleý' '[^']*'& string $ nameþ 9 dfa_define_highlight_ruleý' '[^']*$& string $ nameþ 9 dfa_define_highlight_ruleý7 #($[0-9A-Fa-f]+|[0-9]+)& string $ nameþ
 9 dfa_define_highlight_ruleý% [ 	]+& normal $ nameþ 9 dfa_define_highlight_ruleý7 [\\(\\[\\]\\),;\\.\\?:]) delimiter $ nameþ 9 dfa_define_highlight_ruleý3 [@\\-\\+/\\*=<>\\^]( operator $ nameþ 9 dfa_define_highlight_ruleý $ nameþ
 9 dfa_build_highlight_table‚2 setup_dfa_callbacký}2 setup_dfa_callback$ TPasþ 5 dfa_set_init_callbacký$ TPas( doifofto! 2þ / define_keywordsPý$ TPas2 endfornewnilsetvar! 3þ / define_keywordsPý$ TPas
\ bytecasecharelseexitfilehaltrealtextthentypeunituseswithword! 4þ / define_keywordsPý$ TPas9 arraybeginconstuntilwhile! 5þ / define_keywordsPý$ TPasD downtoinlineobjectrecordrepeatstring! 6þ / define_keywordsPý$ TPas
C booleanintegerlongintpointerprogram! 7þ / define_keywordsPý$ TPas0 functionshortint! 8þ / define_keywordsPý$ TPas; interfaceotherwiseprocedure! 9þ / define_keywordsPý$ TPas. implementation" 14þ / define_keywordsP,* ! p+ ) push_spot
 ( pop_spoty1 tpas_par_sep_hook,ý$ TPas! 2þ ( set_modeý$ TPasþ * use_keymapý$ TPasþ 0 use_syntax_tableý) wrap_hook. tpas_wrap_hookþ / set_buffer_hooký' par_sep1 tpas_par_sep_hookþ / set_buffer_hooký. tpas_mode_hookþ . run_mode_hooksy) tpas_mode