.#,* $ goal+! 3W $ goal ) push_spot. $ up_1/. ( eol_trim . bol_skip_white" 36 / looking_at_char.# $ * skip_chars" 33 / looking_at_char. + what_columnW $ goalv/b/." 33 / looking_at_char. ) push_spot $ up_1 # eol $ bolpNC. $ trim ) go_left_1" 45 / looking_at_char. ( pop_spot + what_columnW $ goalv/b/c ( pop_spot/b/d/f.$ then * looking_at.! 2X $ goal! 1/.! 0/d/.$ else * looking_at.! 2X $ goal! 1/.! 0/d/mP ( pop_spot # bol# $ * skip_chars.$ else * looking_at.! 2Y $ goal! 1/.! 0/d/. % endif * looking_at.! 2Y $ goal! 1/.! 0/d/mP $ goal! 1?. $ goal/.! 3/d- + dcl_get_ind,* $ goal+ ) push_spot + dcl_get_indW $ goal ) push_spot $ up_1. ( eol_trim $ bolp.! 1 ' go_left" 45 / looking_at_char.! 2X $ goal/c/b/c ( pop_spot # bol# $ * skip_chars" 33 / looking_at_char." + bskip_chars $ trim $ goal + what_column: * whitespace/b ( pop_spot * skip_white- * dcl_indent,* $ cont ! p+! 0W $ cont $ bobp $ bolp" 36 / looking_at_charCD.$ $ \n & insert! 1 $ leftPw/c $ trim ) push_spot ) push_spot # bol" 36 / looking_at_charN $ up_1C. $ bolp ( eol_trim! 1 ' go_left ) what_char" 45BW $ cont/c ( pop_spot $ cont. * _get_pointW ! p) sys$input % bfind.! 9 % rightP" 58 ) what_charA.! 1 % rightP/c * _get_point ! pAW $ cont/c ! p * _set_point/b $ bolp.! 1 $ leftP" 45 / looking_at_char.! 1W $ cont/c/b ( pop_spot ' newline $ cont." 36 + insert_char/b * dcl_indent- + dcl_newline# dcl 3 create_syntax_table,* $ name+$ !.*$' comment $ name 9 dfa_define_highlight_rule ' "[^"]*"& string $ name 9 dfa_define_highlight_rule9 /[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_rule3 \\.[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_table2 setup_dfa_callback}2 setup_dfa_callback# dcl 5 dfa_set_init_callback( keyword2$ blue% black ) set_color# dcl$ ifon! 2! 0 1 define_keywords_nP# dcl, eodmcrrunset! 3! 0 1 define_keywords_nP# dclD 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_Mode * is_defined.* ( DCL_Mode+# DCLW ( DCL_Mode ( DCL_Mode + make_keymap+ dcl_newline" ^M ( DCL_Mode ) definekey2 newline_and_indent$ ^[^M ( DCL_Mode ) definekey * dcl_indent" ^I ( DCL_Mode ) definekey/ self_insert_cmd! " ( DCL_Mode ) definekey/ self_insert_cmd! ' ( DCL_Mode ) 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