標籤：
Mac OS X TextMate 運行 OCaml代碼提示出錯 Uncaught exception: Invalid_argument("Fl_package_base.query")
解決辦法，修改 ~/Library/Application\ Support/TextMate/Managed/Bundles/OCaml.tmbundle/Support/OCamlMate/run_script.rb 檔案
@ocamlc = ARGV[0]#修改為：@ocamlc = File.basename(ARGV[0])
搞定。
順便美化一下輸出，最終修改檔案：
#!/usr/bin/env ruby18require "#{ENV["TM_SUPPORT_PATH"]}/lib/escape"require ‘open3‘require ‘cgi‘require ‘fcntl‘def esc(str) CGI.escapeHTML(str).gsub(/\n/, ‘<br/>‘)endclass UserScript def initialize @ocamlc = File.basename(ARGV[0]) @srcfile = ARGV[1] @dstfile = ARGV[2] if ENV.has_key? ‘TM_FILEPATH‘ then @path = ENV[‘TM_FILEPATH‘] @display_name = File.basename(@path) else @path = ‘-‘ @display_name = ‘untitled‘ end @findlibpackages = (ENV[‘TM_OCAML_FINDLIB_PACKAGES‘] || ‘‘).strip() @findlib = "ocamlfind" end # looks for the location of the threads library def find_threads() possibilities = [ ‘/opt/local/godi/lib/ocaml/std-lib/threads‘, ‘/usr/local/godi/lib/ocaml/std-lib/threads‘, ‘/godi/lib/ocaml/std-lib/threads‘, ‘/opt/local/lib/ocaml/threads‘, ‘/usr/local/lib/ocaml/threads‘, ‘/usr/lib/ocaml/threads‘ ] possibilities.each() do |p| if File.exists?(p) return p end end return "" end def compile threadsincludedir = find_threads() # compile it if threadsincludedir != "" command = "#{e_sh @findlib} #{e_sh @ocamlc} -o #{e_sh @dstfile} -I #{e_sh(threadsincludedir)} -package #{e_sh @findlibpackages} -linkpkg str.cma unix.cma threads.cma #{e_sh @srcfile} 2>&1" else command = "#{e_sh @findlib} #{e_sh @ocamlc} -o #{e_sh @dstfile} -package #{e_sh @findlibpackages} -linkpkg str.cma unix.cma #{e_sh @srcfile} 2>&1" end puts "<div style=\"color: #999; border-bottom: 1px solid #CCC;\">#{command}</div>" output = `#{command}` onlywarnings = true if output != "" output.each_line() do |line| if line =~ /^File "(?:.*?)", (line ([0-9]+), characters [0-9]+-[0-9]+):/ location, line = $1, $2 print "<span>File \"#{@path}\", <a style=\"color: blue;\" href=\"txmt://open?url=file://#{e_url(@path)}&line=#{line}\">#{location}</a>:</span><br/>" else print esc(line) if line !~ /^Warning/ onlywarnings = false end end end if !onlywarnings exit 1 end end end def run # run it if the compile suceeded stdin, stdout, stderr = Open3.popen3(@dstfile) Thread.new { stdin.write @content; stdin.close } unless ENV.has_key? ‘TM_FILEPATH‘ [stdout, stderr] end attr_reader :display_name, :path enderror = ""STDOUT.sync = truescript = UserScript.newmap = { ‘SCRIPT_NAME‘ => script.display_name, ‘BUNDLE_SUPPORT‘ => "file://#{ENV[‘TM_BUNDLE_SUPPORT‘].gsub(/ /, ‘%20‘)}",}puts DATA.read.gsub(/\$\{([^}]+)\}/) { |m| map[$1] }script.compilestdout, stderr = script.rundescriptors = [ stdout, stderr ]descriptors.each { |fd| fd.fcntl(Fcntl::F_SETFL, Fcntl::O_NONBLOCK) }until descriptors.empty? select(descriptors).shift.each do |io| str = io.read if str.to_s.empty? then descriptors.delete io io.close elsif io == stdout then print esc(str) elsif io == stderr then print "<span style=‘color: red‘>#{esc str}</span>" elsif io == stack_dump then error << str end endendputs ‘</div></pre></div>‘puts errorputs ‘<div id="exception_report" class="framed">Program exited.</div>‘puts ‘</body></html>‘__END__<html> <head> <title>OCamlMate</title> <link rel="stylesheet" href="${BUNDLE_SUPPORT}/pastel.css" type="text/css"> </head><body> <div id="script_output" class="framed"> <pre><strong>OCamlMate</strong><strong>${SCRIPT_NAME}</strong><div id="actual_output" style="word-wrap: break-word; border-top: 1px solid #CCC;">
TextMate的PATH變數裡，需要有 ~/.opam/system/bin/ 路徑
Mac OS X TextMate 運行 OCaml代碼提示出錯
Start building with 50+ products and up to 12 months usage for Elastic Compute Service
1 on 1 presale consultation
24/7 Technical Support 6 Free Tickets per Quarter Faster Response
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.
A comprehensive suite of global cloud computing services to power your business
Payment Methods We Support
