.#ü! 3# IDL°" $1ýü! 4 " $1þ 3 create_syntax_tableýü! 6! ; " 37 " $1þ - define_syntaxýü! 7# ([{# )]}" 40 " $1þ - define_syntaxýü! 8" 34" 34 " $1þ - define_syntaxýü! 9" 39" 34 " $1þ - define_syntaxýü" 11+ $0-9a-zA-Z_# 119 " $1þ - define_syntax ýü" 12/ -+0-9a-fA-F.xXL" 48 " $1þ - define_syntaxýü" 13$ ,.?:" 44 " $1þ - define_syntaxýü" 14- %-+/&*=<>|!~^" 43 " $1þ - define_syntaxýü" 15" 64" 35 " $1þ - define_syntaxýü" 17 " $1! 1þ 0 set_syntax_flagsýü" 21 " $1! $! 1þ / define_keywordsPýü" 22 " $14 doeqgegtifleltneofor! 2þ / define_keywordsPýü" 23 " $15 andendformodnotproxor! 3þ / define_keywordsPýü" 24 " $10 caseelsegotothen! 4þ / define_keywordsPýü" 25 " $14 beginendifuntilwhile! 5þ / define_keywordsPýü" 26 " $1D commonendforend rependwhirepeatreturn! 6þ / define_keywordsPýü" 27 " $1. endcaseendelse! 7þ / define_keywordsPýü" 28 " $18 endwhilefunctionon_error! 8þ / define_keywordsPýü" 29 " $1) endrepeat! 9þ / define_keywordsPýü" 30 " $1* on_ioerror" 10þ / define_keywordsP ýü" 32 " $1> abscoseofexpfixhdrmaxminsintan! 3! 1þ 1 define_keywords_nPýü" 33 " $1D alogplotsavesizesortsqrtstopuniqwset! 4! 1þ 1 define_keywords_nPýü" 34 " $1p closefloatflooropenropenwplotsprintranksreadfreadsreadurebinspawntotalwherewshow! 5! 1þ 1 define_keywords_nPýü" 35 " $1† alog10dblarrdoublefinitefltarrindgenintarrlonarrprintfstrarrstringstrlenstrmidstrposstrputwriteuwindow! 6! 1þ 1 define_keywords_nPýü" 36 " $1m defsysvdindgenexecutefindgenget_lunintegerrandomnrandomustr_sepstretchst rtrim! 7! 1þ 1 define_keywords_nPýü" 37 " $18 findfilefree_lunn_params! 8! 1þ 1 define_keywords_nPýü" 38 " $1M histogramimaginaryreplicatestrupcasetranspose! 9! 1þ 1 define_keywords_nPýü" 39 " $1> n_elementsstrlowcasestrmessage" 10! 1þ 1 define _keywords_nPýü" 40 " $16 keyword_setstrcompress" 11! 1þ 1 define_keywords_nP,ü" 46 # bol.ýü" 47" 59þ * ffind_char/.ü" 49 * go_right_1ü" 50 . parse_to_point" -2A.ü" 52 ) go_left_1w/c/fü" 56 # eolü" 44y6 idl_find_effective_eol,*ü" 61 ! n+! 0°! nü" 62 . bol_skip_whiteýü" 64$ pro þ * looking_atý) function þ * looking_atD.ü" 66! 0w/c.ü" 69 $ up_1/.ü" 71 6 idl_find_effective_eol + bskip_whiteýü" 72! $þ + blooking_at.ü" 81 ) go_down_1v/bü" 84·! n/fü" 86 . bol_skip_whiteü" 87 ! nwü" 59y: idl_beginni ng_of_statement,*ü" 90 # col+ü" 92 ) push_spotü" 93 . bol_skip_whiteü" 94 # col + what_columnB.ü" 96¹# colü" 97 ( bol_trimýü" 98 # colþ * whitespace/cü# 100 ( pop_spotü" 90y- idl_indent_to,*ü# 103 $ word % begin+ýü# 105 $ wordþ * looking_at.! 0w/b.ü# 1 08 ( pop_spot/oü# 111 ) push_spotýýü# 112 $ wordþ & strlenþ ( go_rightýü# 113- [^a-z0-9A-Z_]þ - re_looking_at.ü# 114! 0w/býü# 116 % beginþ % ffind.! 1w/c.ü# 119 6 idl_find_effective_eolü# 120 + bskip_whiteýü# 121! $þ + blooking_at.v/b/.ýü# 123! 1þ $ down/kü# 124 # bolýü# 125 % beginþ % ffindwü# 103y4 idl_looking_at_block,ü# 130 ) push_spotü# 131 . bol_skip_white*ü# 132 # ret+ýü# 133" if& beginþ 4 idl_looking_at_block.ýü# 134% while& beginþ 4 idl_looking_at_block/.ýü# 135% else & beginþ 4 i dl_looking_at_block/.ýü# 136# for& beginþ 4 idl_looking_at_block/.ýü# 137$ case# ofþ 4 idl_looking_at_block/.ýü# 138* endif else& beginþ 4 idl_looking_at_block/.ýü# 139& repeat& beginþ 4 idl_looking_at_block/.ýü# 140) function þ * looking_at/ .ýü# 141$ pro þ * looking_at/7.ü# 142! 1°# ret/.ü# 145 6 idl_find_effective_eolýü# 146# $ þ + bskip_charsýü# 147% BEGINþ + blooking_at.ý! :þ % bfind/6°# ret/dü# 149 ( pop_spotü# 150 # retwü# 128y7 idl_is_block_beginnningýü# 1531 Idl_Indent_Amount! 2þ / custom_variable,*ü# 156 # len+! 0°# len* , extra_indent+! 0°, extra_indent*ü# 157 $ word+ü# 159 ) push_spot.ü# 162 ( pop_spotýü# 163 # len , extra_indent9þ - idl_indent_toü# 164 ) push_markü# 165 + bskip_whiteýü# 166 $ bolpN * skip_whiteþ ( pop_m ark/oü# 169 : idl_beginning_of_statement.ü# 171 ) push_markü# 172 ( pop_spotü# 173 ) push_spotü# 174 # bolü# 175! 1ý" 41þ 7 find_matching_delimiterA.ü# 177 + what_column°# lenü# 178 * pop_mark_0ü# 179·# lenw/cü# 182 * pop_mark_1ýü# 183$ pro þ * looking _atý) function þ * looking_atD.ýü# 185" 32þ * ffind_charPü# 186 * skip_white/cýü# 188) A-Za-z$_!þ * skip_charsü# 189 + what_column 1 Idl_Indent_Amount9°# lenw/cýü# 193" 64þ / looking_at_char.w/cýü# 195# endþ * looking_at. 1 Idl_Indent_AmountQ°, extra _indent/.ýü# 196$ elseþ * looking_at.ýü# 198! 4þ ( go_right * skip_whiteýü# 199" 58þ / looking_at_charN.ü# 201 1 Idl_Indent_AmountQ°, extra_indent/c/c/dü# 205 $ up_1.ü# 207! 0°# lenw/b.ü# 213 . bol_skip_whiteü# 214 $ eolpý" 59þ / looking_at_charDý" 64þ / looking_at_charD.v/b/.ü# 217 $ up_1/kü# 218 : idl_beginning_of_statementPü# 219 + what_column°# lenü# 221 7 idl_is_block_beginnning.ü# 223 1 Idl_Indent_Amount±# len/cü# 154y/ idl_indent_line,ü# 229 7 idl_is_block_beginnning. / idl_indent_line/cü# 230 + bskip_whiteýü# 231! ,þ + blooking_at.ý" $þ & insert/cü# 232 ' newlineü# 233 / idl_indent_lineü# 227y6 idl_newline_and_indentü# 236# IDL°" $1ýü# 237 " $1þ ( keymap_p.ýü# 239 " $1þ + make_keymapýü# 2402 newline_and_indent$" \r " $1þ ) definekeyýü # 241+ indent_line! " $1þ ) definekey/b,*ü# 246 # idl+# IDL°# idlýü# 247 # idl! 0þ ( set_modeýü# 248 # idlþ 0 use_syntax_tableýü# 249 # idlþ * use_keymapýü# 250+ indent_hook/ idl_indent_lineþ / set_buffer_hookýü# 2513 newline_indent_hook6 idl_n ewline_and_indentþ / set_buffer_hookýü# 252- idl_mode_hookþ . run_mode_hooksü# 244y( idl_mode