View file File name : dcl.slc Content :.#�! 4,* $ goal+! 3W $ goal�! 6 ) push_spot�! 7. $ up_1/�! 8.�! 9 ( eol_trim�" 10 . bol_skip_white�" 11" 36 / looking_at_char�" 12. # $ * skip_chars�" 13" 33 / looking_at_char. + what_columnW $ goalv/b�" 14/�" 15.�" 16" 33 / looking_at_char�" 17.�" 20 ) push_spot�" 21 $ up_1 # eol $ bolpNC�" 22. $ trim ) go_left_1�" 23" 45 / looking_at_char�" 24. ( pop_spot + what_columnW $ goalv/b�" 25/c�" 26 ( pop_spot�" 27/b�" 28/d�" 29/�" 30f�" 32. $ then * looking_at.! 2X $ goal! 1/.! 0/d/�" 33. $ else * lo oking_at.! 2X $ goal! 1/.! 0/d/�" 34mP�" 35 ( pop_spot�" 37 # bol # $ * skip_chars�" 38. $ else * looking_at.! 2Y $ goal! 1/.! 0/d/�" 39. % endif * looking_at.! 2Y $ goal! 1/.! 0/d/�" 40mP�" 41 $ goal! 1?. $ goal/.! 3/d�" 42- + dcl_get_ind�" 45,�" 46* $ goal+�" 47 ) push_spot�" 48 + dcl_get_indW $ goal�" 50 ) push_spot�" 51 $ up_1. ( eol_trim $ bolp.! 1 ' go_left" 45 / looking_at_char.! 2X $ goal/c/b/c�" 52 ( pop_spot�" 54 # bol # $ * skip_chars�" 55" 33 / looking_at_char�" 56. " + b skip_chars $ trim $ goal + what_column: * whitespace/�" 57b�" 58 ( pop_spot�" 59 * skip_white�" 60- * dcl_indent�" 63,* $ cont ! p+! 0W $ cont�" 64 $ bobp $ bolp" 36 / looking_at_charCD.$$ $ \n & insert! 1 $ leftPw/c�" 65 $ trim�" 66 ) push_spot�" 69 ) push_spot # bol�" 70" 36 / looking_at_charN $ up_1C�" 71.�" 72 $ bolp ( eol_trim�" 73! 1 ' go_left�" 74 ) what_char" 45BW $ cont�" 75/�" 76c�" 77 ( pop_spot�" 79 $ cont.�" 80 * _get_pointW ! p ) sys$input % bfind�" 81.! 9 % rightP�" 82" 58 ) what_ch arA.! 1 % rightP/c�" 83 * _get_point ! pAW $ cont�" 84/c�" 85 ! p * _set_point�" 86/b�" 88 $ bolp.! 1 $ leftP�" 89" 45 / looking_at_char.! 1W $ cont/c�" 90/�" 91b�" 92 ( pop_spot�" 93 ' newline�" 94 $ cont." 36 + insert_char/b�" 95 * dcl_indent�" 96- + dcl_newline��" 99 # dcl� 3 create_syntax_table,*�# 103 $ name+��# 105 $ !.*$ ' comment $ name� 9 dfa_define_highlight_rule��# 106 ' "[^"]*" & string $ name� 9 dfa_define_highlight_rule��# 107$9 /[a-zA-Z][_a-zA-Z0-9\\-]* ( keyword2 $ name� 9 dfa_define _highlight_rule��# 108$? \\.([gG]|[lL]|[nN])[eE][sS]?\\. * preprocess $ name� 9 dfa_define_highlight_rule��# 109$: \\.([gG]|[lL])[tT][sS]?\\. * preprocess $ name� 9 dfa_define_highlight_rule��# 110$3 \\.[eE][qQ][sS]?\\. * preprocess $ name� 9 dfa_define_h ighlight_rule��# 111$2 \\.[nN][oO][tT]\\. * preprocess $ name� 9 dfa_define_highlight_rule��# 112$2 \\.[aA][nN][tT]\\. * preprocess $ name� 9 dfa_define_highlight_rule��# 113$. \\.[oO][rR]\\. * preprocess $ name� 9 dfa_define_highlight_rule��# 114$; [a-zA -Z][\\$a-zA-Z0-9_\\-]* ' Knormal $ name� 9 dfa_define_highlight_rule��# 115 ! @ ' keyword $ name� 9 dfa_define_highlight_rule��# 116 & [0-9]+ & number $ name� 9 dfa_define_highlight_rule��# 117 $ name� 9 dfa_build_highlight_table�# 103�2 setup_dfa_callbac k��# 119}2 setup_dfa_callback # dcl� 5 dfa_set_init_callback��# 123 ( keyword2 $ blue % black� ) set_color��# 125 # dcl $ ifon! 2! 0� 1 define_keywords_nP��# 126 # dcl , eodmcrrunset! 3! 0� 1 define_keywords_nP��# 127 # dcl D callelseexitgotoopenreads howthenwait! 4! 0� 1 define_keywords_nP��# 128 # dcl 9 closeendifgosubspawnwrite! 5! 0� 1 define_keywords_nP��# 129 # dcl 2 assigndefinereturn! 6! 0� 1 define_keywords_nP��# 130 # dcl ( deassign! 8! 0� 1 define_keywords_nP��# 131 # dcl * subroutin e" 10! 0� 1 define_keywords_nP��# 132 # dcl - endsubroutine" 13! 0� 1 define_keywords_nP��# 134 # dcl * f$faof$pid! 5! 1� 1 define_keywords_nP��# 135 # dcl V f$csidf$cvsif$cvuif$editf$filef$modef$timef$typef$user! 6! 1� 1 define_keywords_nP��# 136 # dcl ' f$parse! 7! 1� 1 define_keywords_nP��# 137 # dcl � f$cvtimef$devicef$getdvif$getenvf$getjpif$getquif$getsyif$lengthf$locatef$searchf$setprvf$stringf$trnlnmf$verify! 8! 1� 1 define_keywords_nP��# 138 # dcl V f$contextf$elementf$extractf$intege rf$messagef$process! 9! 1� 1 define_keywords_nP��# 139 # dcl 6 f$directoryf$privilege" 11! 1� 1 define_keywords_nP��# 140 # dcl , f$identifier" 12! 1� 1 define_keywords_nP��# 141 # dcl - f$environment" 13! 1� 1 define_keywords_nP��# 142 # dcl 1 f$ file_attributes" 17! 1� 1 define_keywords_nP��# 144 # DCL� ( keymap_p.��# 146 # DCL� + make_keymap��# 147 + dcl_newline " ^M # DCL� ) definekey��# 148 2 newline_and_indent # ^M # DCL� ) definekey��# 149 * dcl_indent " ^I # DCL� ) definekey��# 150 / sel f_insert_cmd ! " # DCL� ) definekey��# 151 / self_insert_cmd ! ' # DCL� ) definekey/b,��# 156 # dcl# 129� 0 set_syntax_flags��# 157 # dcl� 0 use_syntax_table��# 158! 1� . use_dfa_syntax��# 160 # DCL� * use_keymap��# 161 # dcl! 4� ( set_mode��# 162 - d cl_mode_hook� . run_mode_hooks�# 154y( dcl_mode