1 # Copyright (C) 2003-2004 Kouichirou Eto, All rights reserved.
2 # This is free software with ABSOLUTELY NO WARRANTY.
3 # You can redistribute it and/or modify it under the terms of the GNU GPL2.
7 file, linenum, msg = ca.first.split(/:([0-9]+):/)
8 msg = $1 if msg =~ /^in `(.+)'$/
9 File.basename(file)+":"+linenum+":"+msg.to_s
13 "["+ar.map {|arg| arg.inspect }.join(", ")+"]"
17 $__qp_t__ = Time.now unless defined? $__qp_t__
18 sprintf("%.1f", Time.now - $__qp_t__)
22 QP.caller_msg(ca)+"\t"+QP.ar_inspect(args)
26 QP.runtime()+":"+QP.qp(ca, *args)
29 module_function :caller_msg, :ar_inspect, :runtime, :qp, :tp
33 print QP.qp(caller(1), *args)+"\n"
37 print QP.tp(caller(1), *args)+"\n"