.#* * dcl_indent+! 4* dcl_indent* , dcl_continue+! 8, dcl_continue! 0+ CASE_SEARCH, $ bolp. ' newline! 1w/c! 0wy' dcl_bol, ) push_spot # bol" $! * looking_at. ( pop_spot ' newline# $! & insert! 1w/c ( pop_spot! 0wy+ dcl_comment,* ( up_lines+* $ lcol+ ) push_spot ( up_lines " up ( up_linesB $ bolpD. ( pop_spot! 1w/c # eol! 1 $ left! - * looking_at.! 1 % right! 0$ lcol ( pop_spot $ lcolw/c & down_1" $! * looking_at. # eol! 0$ lcol ( pop_spot $ lcolw/c! $ * looking_at.! 1 % right/c * skip_white + what_column$ lcol ( pop_spot $ lcolwy/ dcl_last_indent,* $ lcol+ $ bolp.! 1w/c ) push_spot # bol" $! * looking_at. ( pop_spot! 1w/c! $ * looking_at.! 1 % right/c * skip_white + what_column$ lcol ( pop_spot $ lcolwy/ dcl_this_indent,! 1 $ left! - * looking_at.* # col # ins+! 1 % right / dcl_this_indent# col # col! 3>.! 1# col/c # col! 1: , dcl_continue9# ins ) push_spot $ up_1 $ bolpNC! 1! 1 $ leftAC! - * looking_atC. # col! 1:# ins/c ( pop_spot ' newline # ins - insert_spaces! 1w/c! 1 % right! 0wy( dcl_cont, ) push_spot # bol! $ * looking_at.! 1 % right * skip_white$ then * looking_at! 4! 4 % rightAC $ eolp ) what_char! 9AD ) what_char" 32AD ) what_char" 33ADC.* # col+ / dcl_this_indent# col ( pop_spot ' newline" $ & insert # col! 3: * dcl_indent9 - insert_spaces! 1w/c/c ( pop_spot! 0wy( dcl_then, ) push_spot # bol! $ * looking_at.! 1 % right * skip_white$ else * looking_at! 4! 4 % rightAC $ eolp ) what_char! 9AD ) what_char" 32AD ) what_char" 33ADC.* # col ! i ! k+ / dcl_this_indent# col! 1! i ! i / dcl_last_indent! k. ! k! 0A ! k # col@D/.! i ! i / dcl_last_indent! k/f # bol! 2 % right. # col ! k:! 0?/. ) what_char" 32A.v/b # del! k/f ( pop_spot ' newline" $ & insert # col! 3: - insert_spaces! 1w/c/c ( pop_spot! 0wy( dcl_else, ) push_spot # bol! $ * looking_at.! 1 % right * skip_white% endif * looking_at! 5! 5 % rightAC $ eolp ) what_char! 9AD ) what_char" 32AD ) what_char" 33ADC.* # col ! i ! m+ / dcl_this_indent! m! 1! i ! i / dcl_last_indent# col. # col! 0A ! m # col>D/.! i ! i / dcl_last_indent# col/f # bol! 2 % right. ! m # col:! 0?/. ) what_char" 32A.v/b # del! m/f ( pop_spot ' newline" $ & insert # col! 3: - insert_spaces! 1w/c/c ( pop_spot! 0wy) dcl_endif,* # col ! i+ / dcl_this_indent# col ) push_spot! 1! i $ up_1 $ bolpNC! 1! 1 $ leftAC! - * looking_atC. & down_1 ! i / dcl_last_indent# col. # col! 0A/.! i ! i / dcl_last_indent# col/f/c ( pop_spot ' newline" $ & insert # col! 3: - insert_spacesy* dcl_normal, $ trim ' dcl_bol.w/c + dcl_comment.w/c ( dcl_cont.w/c ( dcl_then.w/c ( dcl_else.w /c ) dcl_endif.w/c * dcl_normaly+ dcl_newline# dcl 3 create_syntax_table,* $ name+' dcl.dfa $ name : dfa_enable_highlight_cache$ !.*$' comment $ name 9 dfa_define_highlight_rule' "[^"]*"& string $ name 9 dfa_define_highlight_rule 9 /[a-zA-Z][_a-zA-Z0-9\\-]*( keyword2 $ name 9 dfa_define_highlight_rule? \\.([gG]|[lL]|[nN])[eE][sS]?\\.* preprocess $ name 9 dfa_define_highlight_rule: \\.([gG]|[lL])[tT][sS]?\\.* preprocess $ name 9 dfa_define_highlight_rule 3 \\.[eE][qQ][sS]?\\.* preprocess $ name 9 dfa_define_highlight_rule2 \\.[nN][oO][tT]\\.* preprocess $ name 9 dfa_define_highlight_rule2 \\.[aA][nN][tT]\\.* preprocess $ name 9 dfa_define_highlight_rule. \\.[oO][rR]\\.* preprocess $ name 9 dfa_define_highlight_rule; [a-zA-Z][\\$a-zA-Z0-9_\\-]*' Knormal $ name 9 dfa_define_highlight_rule! @' keyword $ name 9 dfa_define_highlight_rule& [0-9]+& number $ name 9 dfa_define_highlight_rule $ name 9 dfa_build_highlight_table 2 setup_dfa_callback}2 setup_dfa_callback# dcl 5 dfa_set_init_callback( keyword2$ blue' default ) set_color# dcl$ ifon! 2! 0 1 define_keywords_nP# dcl, eodmcrrunset! 3! 0 1 define_keywords_nP# dcl D callelseexitgotoopenreadshowthenwait! 4! 0 1 define_keywords_nP# dcl9 closeendifgosubspawnwrite! 5! 0 1 define_keywords_nP# dcl2 assigndefinereturn! 6! 0 1 define_keywords_nP# dcl( deassign! 8! 0 1 define_keywords_nP# dcl * subroutine" 10! 0 1 define_keywords_nP# dcl- endsubroutine" 13! 0 1 define_keywords_nP# dcl* f$faof$pid! 5! 1 1 define_keywords_nP# dclV f$csidf$cvsif$cvuif$editf$filef$modef$timef$typef$user! 6! 1 1 define_keywords_nP# dcl ' f$parse! 7! 1 1 define_keywords_nP# dcl f$cvtimef$devicef$getdvif$getenvf$getjpif$getquif$getsyif$lengthf$locatef$searchf$setprvf$stringf$trnlnmf$verify! 8! 1 1 define_keywords_nP# dcl V f$contextf$elementf$extractf$integerf$messagef$process! 9! 1 1 define_keywords_nP# dcl6 f$directoryf$privilege" 11! 1 1 define_keywords_nP# dcl, f$identifier" 12! 1 1 define_keywords_nP# dcl- f$environment" 13! 1 1 define_keywords_nP# dcl1 f$file_attributes" 17! 1 1 define_keywords_nP# DCL ( keymap_p.# DCL + make_keymap+ dcl_newline" ^M# DCL ) definekey/ self_insert_cmd" ^I# DCL ) definekey/ self_insert_cmd! "# DCL ) definekey / self_insert_cmd! '# DCL ) definekey/b,# dcl# 129 0 set_syntax_flags# dcl 0 use_syntax_table! 1 . use_dfa_syntax# DCL * use_keymap# dcl! 4 ( set_mode- dcl_mode_hook . run_mode_hooksy( dcl_mode