.#ý3 VHDL_Comment_String" --þ / custom_variableý2 VHDL_Indent_Amount! 2þ / custom_variable,* $ goal+! 1°$ goal* " cs+ + CASE_SEARCH°" cs* " ch+ ) push_spot ) push_spot! 0°+ CASE_SEARCH. $ up_1/. . bol_skip_white $ eolp.u/c + what_column°$ goal $ goal! 1A.u/cý# do þ * looking_atý& elsif þ * looking_atDý& elsif(þ * looking_atDý$ elseþ * looking_atD. 2 VHDL_Indent_Amount±$ goal/.ý# if þ * looking_atý# if(þ * looking_atD.ý$ thenþ % ffind. 2 VHDL_Indent_Amount±$ goal/c/.ý# forþ * looking_atý$ for(þ * looking_atD.ý$ loopþ % ffind. 2 VHDL_Indent_Amount±$ goal/c/.ý$ whenþ * looking_at.ý" =>þ % ffind. 2 VHDL_Indent_Amount±$ goal/c/.ý$ caseþ * looking_at.ý" isþ % ffind. 2 VHDL_Indent_Amount±$ goal/c/.ý% beginþ * looking_at. 2 VHDL_Indent_Amount±$ goal/c/d/d/d/d/dv/f ( pop_spot . bol_skip_whiteý% elsifþ * looking_atý$ elseþ * looking_atDý# endþ * looking_atDý$ whenþ * looking_atD. 2 VHDL_Indent_Amount²$ goal/c " cs°+ CASE_SEARCH . bol_skip_whiteý ) what_charþ $ char °" ch " ch. $ bolpN $ eolpD3 ( bol_trimý¹$ goal $ goalþ - insert_spaces/j ( pop_spot * skip_whitey+ vhdl_indent,* ! p $ cont+ $ bolp. ' newlinew/c + vhdl_indent ) push_spot + bskip_white $ trim ( pop_spot ' newline 3 insert_single_space + vhdl_indent y, vhdl_newline,* " cs+ + CASE_SEARCH°" cs! 0°+ CASE_SEARCH. . bol_skip_white * _get_point.ý' processþ * looking_atý& switchþ * looking_atD.v/c/c/. $ up_1/k " cs°+ CASE_SEARCHy6 vhdl_beg_of_subprogram,* " cs+ + CASE_SEARCH°" cs! 0°+ CASE_SEARCH. . bol_skip_whiteý$ end;þ * looking_atý+ end processþ * looking_atD.v/c/. & down_1/k " cs°+ CASE_SEARCHy6 vhdl_end_of_subprogram, 6 vhdl_end_of_subprogram ) go_down_1 , set_mark_cmd 6 vhdl_beg_of_subprogram # boly4 vhdl_mark_subprogram$ VHDL°" $1ý " $1þ 3 create_syntax_tableý" -- " 37 " $1þ - define_syntaxý# ([{# )]}" 40 " $1þ - define_syntaxý" 34" 34 " $1þ - define_syntaxý" 39" 92 " $1þ - define_syntaxý* 0-9a-zA-Z_# 119 " $1þ - define_syntaxý/ -+0-9a-FA-F.xXL" 48 " $1þ - define_syntaxý( ,;.?:=<>" 44 " $1þ - define_syntaxý" 35" 35 " $1þ - define_syntaxý, %-+/&*<>|!~^" 43 " $1þ - define_syntaxý " $1! 8þ 0 set_syntax_flagsý " $18 IFINISOFORTOifinisoforto! 2þ / define_keywordsPý " $1 \ ANDENDFORMAXMINNOTOUTRUNUSEXORandendformaxminnotoutrunusexor! 3þ / define_keywordsPý " $1p CASEELSELOOPPORTTHENTYPEWAITWHENWITHXNORcaseelseloopportthentypewaitwhenwithxnor! 4þ / define_keywordsPý " $1 f AFTERALIASBEGINELSIFRANGETRACEUNTILafteraliasbeginelsifrangetraceuntil! 5þ / define_keywordsPý " $1€ ASSIGNBUFFERDOWNTOENTITYOTHERSRETURNSELECTSIGNALassignbufferdowntoentityothersreturnselectsignal! 6þ / define_keywordsPý " $1 t GENERICINTEGERLIBRARYPACKAGEPROCESSSUBTYPEgenericintegerlibrarypackageprocesssubtype! 7þ / define_keywordsPý " $1` CONSTANTFUNCTIONGENERATEVARIABLEconstantfunctiongeneratevariable! 8þ / define_keywordsPý " $1D COMPONENTTRANSPORTcomponenttransport ! 9þ / define_keywordsPý " $18 ARCHITECTUREarchitecture" 12þ / define_keywordsPý " $1: CONFIGURATIONconfiguration" 13þ / define_keywordsPý " $1. eqgegtleltneor! 2! 1þ 1 define_keywords_nPý " $1& andnot! 3! 1þ 1 define_keywords_nPý " $1 6 RISING_EDGErising_edge" 11! 1þ 1 define_keywords_nPý " $18 FALLING_EDGEfalling_edge" 12! 1þ 1 define_keywords_nP$ VHDL°" $1ý " $1þ ( keymap_p.ý " $1þ + make_keymap/bý6 vhdl_beg_of_subprogram# ^A " $1þ ) definekeyý6 vhdl_end_of_subprogram # ^E " $1þ ) definekeyý4 vhdl_mark_subprogram# ^H " $1þ ) definekey,* $ mode+$ VHDL°$ modeý $ mode! 4" 16Jþ ( set_modeý $ modeþ * use_keymapý $ modeþ 0 use_syntax_tableý+ indent_hook+ vhdl_indentþ / set_buffer_hooký3 newline_indent_hook , vhdl_newlineþ / set_buffer_hooký $ mode) fold_info0 --{{{\r--}}}\r\rþ 2 mode_set_mode_infoý. vhdl_mode_hookþ . run_mode_hooksy) vhdl_mode