.#* 5 Compile_Output_Buffer+. *shell-output*°5 Compile_Output_Bufferý1 get_process_inputþ * is_defined.) *compile*°5 Compile_Output_Buffer/c* 1 Compile_Line_Mark+! 0°1 Compile_Line_Mark& / Compile_Src_Dir+ + Null_String°/ Compile_Src_Dir& , Error_Regexp+,* $ file $ line # col+! 1ý $ fileþ + file_statusB. / Compile_Src_Dir $ file9°$ file.! 1ý $ fileþ + file_statusB/.ý8 Find this file's errors:þ 3 read_file_from_mini°$ file/f/cý $ fileþ , path_dirname°/ Compile_Src_Dirý $ fileþ ) find_fileP , widen_bufferý $ lineþ ) goto_line # col! 0?.ý # colþ 4 goto_column_best_try/. . bol_skip_white/d‚1 compile_find_file,* . next_error_fun - next_line_fun+* $ cbuf $ obuf+ 5 Compile_Output_Buffer°$ obuf* $ line $ file # col+! 0 °1 Compile_Line_Marký $ obufþ ' bufferp.ý0 Did you compile?þ % flushw/b 1 MINIBUFFER_ACTIVE.w/cý $ obufþ / pop2buf_whatbuf°$ cbufý}$ file}$ line}# colþ . next_error_funM.ý $ lineþ & strlen.w/bý # colþ & strlen.! 0°# col/b # bolý! 3þ 0 create_line_mark °1 Compile_Line_Mark - next_line_funMý $ line# 0þ + strtrim_beg°$ lineý # col# 0þ + strtrim_beg°# colý $ fileý $ lineþ ' integerý # colþ ' integerþ 1 compile_find_file ' whatbuf°$ cbufý $ obufþ & sw2buf/cý $ cbufþ ' pop2buf ‚8 compile_parse_errors_dir,* % filep % linep $ colp+ # eol $ eobp.ý/ No more errors!þ ' message! 0w/cý , Error_Regexpþ & typeof ( Ref_TypeA.ý! 1 % filep % linep $ colpþ , Error_RegexpMw/c # bolý , Error_Regexpþ * re_fsearch. # eob! 0w/bý! 1þ 0 regexp_nth_matchÀ% filepý! 2þ 0 regexp_nth_matchÀ% linepý! 3þ 0 regexp_nth_matchÀ$ colp! 1‚; compile_find_next_error_fun,* % filep % linep $ colp+ # bol $ bobp.ý/ No more errors!þ ' message! 0/cý , Error_Regexpþ & typeof ( Ref_TypeA.ý" -1 % filep % linep $ colpþ , Error_RegexpMw/cý , Error_Regexpþ * re_bsearch. # bob! 0w/bý! 1þ 0 regexp_nth_matchÀ% filepý! 2þ 0 regexp_nth_matchÀ% linepý! 3þ 0 regexp_nth_matchÀ$ colp! 1‚; compile_find_prev_error_fun,ý}; compile_find_next_error_fun }) go_down_1þ 8 compile_parse_errors_dir†4 compile_parse_errors,ý}; compile_find_prev_error_fun}# bolþ 8 compile_parse_errors_dir†6 compile_previous_error,* ! b ! n+* # cmd+ $ NULL°# cmd & _NARGS! 0B.°# cmd/c ' whatbuf°! bý1 save_some_buffersþ $ call # cmd $ NULLA. , do_shell_cmd/.ý # cmd! 0þ 1 shell_perform_cmd/d # bobý ! bþ ' pop2buf 4 compile_parse_errors†' compile, ' whatbuf°5 Compile_Output_Buffer # bob 4 compile_parse_errors†1 compile_parse_buf+ acompile.sl°" $1ý1 get_process_inputþ * is_defined.ý " $1þ ( evalfileP/c& 1 Compiler_Database+ý ( Any_Type $ NULL * Assoc_Type!°1 Compiler_Database,* $ name+* ! c+ý $ name 1 Compiler_Database!°! c ! c $ NULLA.ýb Compiler %s is not supported. See compile.sl for more information $ nameþ & verror/c ! c°, Error_Regexp†7 compile_select_compiler,* $ name & regexp+ & regexpý $ name 1 Compiler_Database †4 compile_add_compilerý# bccF ^[EW][a-r]+ \\(.+\\) \\(\\d+\\):\\(\\)þ 4 compile_add_compilerý# tcc F ^[EW][a-r]+ \\(.+\\) \\(\\d+\\):\\(\\)þ 4 compile_add_compilerý) ultrix_ccZ [WE][ar][r][no][ir]n?g?: +\\(.+\\), line \\(\\d+\\):\\(\\)þ 4 compile_add_compilerý% hp_ccL ^cc: +\\"\\(.+\\)\\", line \\(\\d+\\):\\(\\)þ 4 compile_add_compilerý' sun_acc G ^\\"\\(.+\\)\\", line \\(\\d+\\):\\(\\)þ 4 compile_add_compilerý# aixM ^\\"\\(.+\\)\\", line \\(\\d+\\)\\.\\(\\d+\\)þ 4 compile_add_compilerý# xlcM ^\\"\\(.+\\)\\", line \\(\\d+\\)\\.\\(\\d+\\)þ 4 compile_add_compilerý# xlf M ^\\"\\(.+\\)\\", line \\(\\d+\\)\\.\\(\\d+\\)þ 4 compile_add_compilerý# gccH ^\\([^ :]+\\):\\(\\d+\\)[^:]*:\\(\\d*\\)þ 4 compile_add_compilerý# wccR ^\\(.+\\)(\\(\\d+\\)): [EW].+[rg]! [EW]\\d+:\\(\\)þ 4 compile_add_compilerý% javac ; ^\\(.+\\):\\(\\d+\\):\\(\\)þ 4 compile_add_compilerý" vc? ^[ ]*\\(.+\\)(\\(\\d+\\)) : .*þ 4 compile_add_compilerý% rgbdsF ^\\*ERROR\\*.*[ ]\\(.+\\)(\\(\\d+\\))þ 4 compile_add_compilerý8 Compile_Default_Compiler# gccþ / custom_variableý 8 Compile_Default_Compilerþ 7 compile_select_compiler