johnson 1.1.0
Sign up to get free protection for your applications and to get access to all the features.
- data/.autotest +14 -0
- data/CHANGELOG.rdoc +11 -0
- data/Manifest.txt +370 -0
- data/README.rdoc +60 -0
- data/Rakefile +42 -0
- data/bin/johnson +108 -0
- data/docs/MINGW32.mk +124 -0
- data/docs/cross-compile.txt +38 -0
- data/ext/spidermonkey/context.c +115 -0
- data/ext/spidermonkey/context.h +19 -0
- data/ext/spidermonkey/conversions.c +320 -0
- data/ext/spidermonkey/conversions.h +18 -0
- data/ext/spidermonkey/debugger.c +226 -0
- data/ext/spidermonkey/debugger.h +9 -0
- data/ext/spidermonkey/extconf.rb +30 -0
- data/ext/spidermonkey/extensions.c +37 -0
- data/ext/spidermonkey/extensions.h +12 -0
- data/ext/spidermonkey/global.c +40 -0
- data/ext/spidermonkey/global.h +11 -0
- data/ext/spidermonkey/idhash.c +16 -0
- data/ext/spidermonkey/idhash.h +8 -0
- data/ext/spidermonkey/immutable_node.c +1153 -0
- data/ext/spidermonkey/immutable_node.c.erb +523 -0
- data/ext/spidermonkey/immutable_node.h +22 -0
- data/ext/spidermonkey/jroot.h +187 -0
- data/ext/spidermonkey/js_land_proxy.c +610 -0
- data/ext/spidermonkey/js_land_proxy.h +20 -0
- data/ext/spidermonkey/ruby_land_proxy.c +543 -0
- data/ext/spidermonkey/ruby_land_proxy.h +17 -0
- data/ext/spidermonkey/runtime.c +330 -0
- data/ext/spidermonkey/runtime.h +25 -0
- data/ext/spidermonkey/spidermonkey.c +20 -0
- data/ext/spidermonkey/spidermonkey.h +29 -0
- data/johnson.gemspec +44 -0
- data/js/johnson/cli.js +30 -0
- data/js/johnson/prelude.js +80 -0
- data/lib/johnson.rb +55 -0
- data/lib/johnson/cli.rb +7 -0
- data/lib/johnson/cli/options.rb +67 -0
- data/lib/johnson/error.rb +4 -0
- data/lib/johnson/nodes.rb +7 -0
- data/lib/johnson/nodes/binary_node.rb +65 -0
- data/lib/johnson/nodes/for.rb +14 -0
- data/lib/johnson/nodes/for_in.rb +12 -0
- data/lib/johnson/nodes/function.rb +13 -0
- data/lib/johnson/nodes/list.rb +28 -0
- data/lib/johnson/nodes/node.rb +68 -0
- data/lib/johnson/nodes/ternary_node.rb +20 -0
- data/lib/johnson/parser.rb +21 -0
- data/lib/johnson/parser/syntax_error.rb +13 -0
- data/lib/johnson/runtime.rb +63 -0
- data/lib/johnson/spidermonkey/context.rb +10 -0
- data/lib/johnson/spidermonkey/debugger.rb +67 -0
- data/lib/johnson/spidermonkey/immutable_node.rb +282 -0
- data/lib/johnson/spidermonkey/js_land_proxy.rb +62 -0
- data/lib/johnson/spidermonkey/mutable_tree_visitor.rb +242 -0
- data/lib/johnson/spidermonkey/ruby_land_proxy.rb +54 -0
- data/lib/johnson/spidermonkey/runtime.rb +103 -0
- data/lib/johnson/version.rb +3 -0
- data/lib/johnson/visitable.rb +16 -0
- data/lib/johnson/visitors.rb +5 -0
- data/lib/johnson/visitors/dot_visitor.rb +169 -0
- data/lib/johnson/visitors/ecma_visitor.rb +323 -0
- data/lib/johnson/visitors/enumerating_visitor.rb +15 -0
- data/lib/johnson/visitors/sexp_visitor.rb +174 -0
- data/lib/johnson/visitors/visitor.rb +91 -0
- data/lib/rails/init.rb +37 -0
- data/lib/tasks/gem.rake +9 -0
- data/lib/tasks/parsing.rake +37 -0
- data/lib/tasks/testing.rake +36 -0
- data/lib/tasks/vendor.rake +20 -0
- data/test/helper.rb +55 -0
- data/test/johnson/browser_test.rb +43 -0
- data/test/johnson/conversions/array_test.rb +32 -0
- data/test/johnson/conversions/boolean_test.rb +17 -0
- data/test/johnson/conversions/callable_test.rb +34 -0
- data/test/johnson/conversions/file_test.rb +15 -0
- data/test/johnson/conversions/nil_test.rb +20 -0
- data/test/johnson/conversions/number_test.rb +34 -0
- data/test/johnson/conversions/regexp_test.rb +24 -0
- data/test/johnson/conversions/string_test.rb +26 -0
- data/test/johnson/conversions/struct_test.rb +15 -0
- data/test/johnson/conversions/symbol_test.rb +19 -0
- data/test/johnson/conversions/thread_test.rb +24 -0
- data/test/johnson/error_test.rb +9 -0
- data/test/johnson/extensions_test.rb +56 -0
- data/test/johnson/nodes/array_literal_test.rb +57 -0
- data/test/johnson/nodes/array_node_test.rb +26 -0
- data/test/johnson/nodes/binary_node_test.rb +61 -0
- data/test/johnson/nodes/bracket_access_test.rb +16 -0
- data/test/johnson/nodes/delete_test.rb +11 -0
- data/test/johnson/nodes/do_while_test.rb +12 -0
- data/test/johnson/nodes/dot_accessor_test.rb +15 -0
- data/test/johnson/nodes/export_test.rb +9 -0
- data/test/johnson/nodes/for_test.rb +54 -0
- data/test/johnson/nodes/function_test.rb +71 -0
- data/test/johnson/nodes/if_test.rb +41 -0
- data/test/johnson/nodes/import_test.rb +13 -0
- data/test/johnson/nodes/label_test.rb +19 -0
- data/test/johnson/nodes/let_test.rb +31 -0
- data/test/johnson/nodes/object_literal_test.rb +110 -0
- data/test/johnson/nodes/return_test.rb +16 -0
- data/test/johnson/nodes/semi_test.rb +8 -0
- data/test/johnson/nodes/switch_test.rb +55 -0
- data/test/johnson/nodes/ternary_test.rb +25 -0
- data/test/johnson/nodes/throw_test.rb +9 -0
- data/test/johnson/nodes/try_node_test.rb +59 -0
- data/test/johnson/nodes/typeof_test.rb +11 -0
- data/test/johnson/nodes/unary_node_test.rb +23 -0
- data/test/johnson/nodes/void_test.rb +11 -0
- data/test/johnson/nodes/while_test.rb +26 -0
- data/test/johnson/nodes/with_test.rb +10 -0
- data/test/johnson/prelude_test.rb +56 -0
- data/test/johnson/runtime_test.rb +64 -0
- data/test/johnson/spidermonkey/context_test.rb +21 -0
- data/test/johnson/spidermonkey/immutable_node_test.rb +34 -0
- data/test/johnson/spidermonkey/js_land_proxy_test.rb +236 -0
- data/test/johnson/spidermonkey/ruby_land_proxy_test.rb +240 -0
- data/test/johnson/spidermonkey/runtime_test.rb +17 -0
- data/test/johnson/version_test.rb +13 -0
- data/test/johnson/visitors/dot_visitor_test.rb +39 -0
- data/test/johnson/visitors/enumerating_visitor_test.rb +12 -0
- data/test/johnson_test.rb +16 -0
- data/test/parser_test.rb +276 -0
- data/vendor/spidermonkey/.cvsignore +9 -0
- data/vendor/spidermonkey/Makefile.in +449 -0
- data/vendor/spidermonkey/Makefile.ref +365 -0
- data/vendor/spidermonkey/README.html +820 -0
- data/vendor/spidermonkey/SpiderMonkey.rsp +12 -0
- data/vendor/spidermonkey/Y.js +19 -0
- data/vendor/spidermonkey/build.mk +43 -0
- data/vendor/spidermonkey/config.mk +192 -0
- data/vendor/spidermonkey/config/AIX4.1.mk +65 -0
- data/vendor/spidermonkey/config/AIX4.2.mk +64 -0
- data/vendor/spidermonkey/config/AIX4.3.mk +65 -0
- data/vendor/spidermonkey/config/Darwin.mk +83 -0
- data/vendor/spidermonkey/config/Darwin1.3.mk +81 -0
- data/vendor/spidermonkey/config/Darwin1.4.mk +41 -0
- data/vendor/spidermonkey/config/Darwin5.2.mk +81 -0
- data/vendor/spidermonkey/config/Darwin5.3.mk +81 -0
- data/vendor/spidermonkey/config/HP-UXB.10.10.mk +77 -0
- data/vendor/spidermonkey/config/HP-UXB.10.20.mk +77 -0
- data/vendor/spidermonkey/config/HP-UXB.11.00.mk +80 -0
- data/vendor/spidermonkey/config/IRIX.mk +87 -0
- data/vendor/spidermonkey/config/IRIX5.3.mk +44 -0
- data/vendor/spidermonkey/config/IRIX6.1.mk +44 -0
- data/vendor/spidermonkey/config/IRIX6.2.mk +44 -0
- data/vendor/spidermonkey/config/IRIX6.3.mk +44 -0
- data/vendor/spidermonkey/config/IRIX6.5.mk +44 -0
- data/vendor/spidermonkey/config/Linux_All.mk +103 -0
- data/vendor/spidermonkey/config/Mac_OS10.0.mk +82 -0
- data/vendor/spidermonkey/config/OSF1V4.0.mk +72 -0
- data/vendor/spidermonkey/config/OSF1V5.0.mk +69 -0
- data/vendor/spidermonkey/config/SunOS4.1.4.mk +101 -0
- data/vendor/spidermonkey/config/SunOS5.10.mk +50 -0
- data/vendor/spidermonkey/config/SunOS5.3.mk +91 -0
- data/vendor/spidermonkey/config/SunOS5.4.mk +92 -0
- data/vendor/spidermonkey/config/SunOS5.5.1.mk +44 -0
- data/vendor/spidermonkey/config/SunOS5.5.mk +87 -0
- data/vendor/spidermonkey/config/SunOS5.6.mk +89 -0
- data/vendor/spidermonkey/config/SunOS5.7.mk +44 -0
- data/vendor/spidermonkey/config/SunOS5.8.mk +44 -0
- data/vendor/spidermonkey/config/SunOS5.9.mk +44 -0
- data/vendor/spidermonkey/config/WINNT4.0.mk +117 -0
- data/vendor/spidermonkey/config/WINNT5.0.mk +117 -0
- data/vendor/spidermonkey/config/WINNT5.1.mk +117 -0
- data/vendor/spidermonkey/config/WINNT5.2.mk +117 -0
- data/vendor/spidermonkey/config/WINNT6.0.mk +117 -0
- data/vendor/spidermonkey/config/dgux.mk +64 -0
- data/vendor/spidermonkey/editline/Makefile.ref +144 -0
- data/vendor/spidermonkey/editline/README +83 -0
- data/vendor/spidermonkey/editline/editline.3 +175 -0
- data/vendor/spidermonkey/editline/editline.c +1369 -0
- data/vendor/spidermonkey/editline/editline.h +135 -0
- data/vendor/spidermonkey/editline/sysunix.c +182 -0
- data/vendor/spidermonkey/editline/unix.h +82 -0
- data/vendor/spidermonkey/fdlibm/.cvsignore +7 -0
- data/vendor/spidermonkey/fdlibm/Makefile.in +127 -0
- data/vendor/spidermonkey/fdlibm/Makefile.ref +192 -0
- data/vendor/spidermonkey/fdlibm/e_acos.c +147 -0
- data/vendor/spidermonkey/fdlibm/e_acosh.c +105 -0
- data/vendor/spidermonkey/fdlibm/e_asin.c +156 -0
- data/vendor/spidermonkey/fdlibm/e_atan2.c +165 -0
- data/vendor/spidermonkey/fdlibm/e_atanh.c +110 -0
- data/vendor/spidermonkey/fdlibm/e_cosh.c +133 -0
- data/vendor/spidermonkey/fdlibm/e_exp.c +202 -0
- data/vendor/spidermonkey/fdlibm/e_fmod.c +184 -0
- data/vendor/spidermonkey/fdlibm/e_gamma.c +71 -0
- data/vendor/spidermonkey/fdlibm/e_gamma_r.c +70 -0
- data/vendor/spidermonkey/fdlibm/e_hypot.c +173 -0
- data/vendor/spidermonkey/fdlibm/e_j0.c +524 -0
- data/vendor/spidermonkey/fdlibm/e_j1.c +523 -0
- data/vendor/spidermonkey/fdlibm/e_jn.c +315 -0
- data/vendor/spidermonkey/fdlibm/e_lgamma.c +71 -0
- data/vendor/spidermonkey/fdlibm/e_lgamma_r.c +347 -0
- data/vendor/spidermonkey/fdlibm/e_log.c +184 -0
- data/vendor/spidermonkey/fdlibm/e_log10.c +134 -0
- data/vendor/spidermonkey/fdlibm/e_pow.c +386 -0
- data/vendor/spidermonkey/fdlibm/e_rem_pio2.c +222 -0
- data/vendor/spidermonkey/fdlibm/e_remainder.c +120 -0
- data/vendor/spidermonkey/fdlibm/e_scalb.c +89 -0
- data/vendor/spidermonkey/fdlibm/e_sinh.c +122 -0
- data/vendor/spidermonkey/fdlibm/e_sqrt.c +497 -0
- data/vendor/spidermonkey/fdlibm/fdlibm.h +273 -0
- data/vendor/spidermonkey/fdlibm/fdlibm.mak +1453 -0
- data/vendor/spidermonkey/fdlibm/fdlibm.mdp +0 -0
- data/vendor/spidermonkey/fdlibm/k_cos.c +135 -0
- data/vendor/spidermonkey/fdlibm/k_rem_pio2.c +354 -0
- data/vendor/spidermonkey/fdlibm/k_sin.c +114 -0
- data/vendor/spidermonkey/fdlibm/k_standard.c +785 -0
- data/vendor/spidermonkey/fdlibm/k_tan.c +170 -0
- data/vendor/spidermonkey/fdlibm/s_asinh.c +101 -0
- data/vendor/spidermonkey/fdlibm/s_atan.c +175 -0
- data/vendor/spidermonkey/fdlibm/s_cbrt.c +133 -0
- data/vendor/spidermonkey/fdlibm/s_ceil.c +120 -0
- data/vendor/spidermonkey/fdlibm/s_copysign.c +72 -0
- data/vendor/spidermonkey/fdlibm/s_cos.c +118 -0
- data/vendor/spidermonkey/fdlibm/s_erf.c +356 -0
- data/vendor/spidermonkey/fdlibm/s_expm1.c +267 -0
- data/vendor/spidermonkey/fdlibm/s_fabs.c +70 -0
- data/vendor/spidermonkey/fdlibm/s_finite.c +71 -0
- data/vendor/spidermonkey/fdlibm/s_floor.c +121 -0
- data/vendor/spidermonkey/fdlibm/s_frexp.c +99 -0
- data/vendor/spidermonkey/fdlibm/s_ilogb.c +85 -0
- data/vendor/spidermonkey/fdlibm/s_isnan.c +74 -0
- data/vendor/spidermonkey/fdlibm/s_ldexp.c +66 -0
- data/vendor/spidermonkey/fdlibm/s_lib_version.c +73 -0
- data/vendor/spidermonkey/fdlibm/s_log1p.c +211 -0
- data/vendor/spidermonkey/fdlibm/s_logb.c +79 -0
- data/vendor/spidermonkey/fdlibm/s_matherr.c +64 -0
- data/vendor/spidermonkey/fdlibm/s_modf.c +132 -0
- data/vendor/spidermonkey/fdlibm/s_nextafter.c +124 -0
- data/vendor/spidermonkey/fdlibm/s_rint.c +131 -0
- data/vendor/spidermonkey/fdlibm/s_scalbn.c +107 -0
- data/vendor/spidermonkey/fdlibm/s_signgam.c +40 -0
- data/vendor/spidermonkey/fdlibm/s_significand.c +68 -0
- data/vendor/spidermonkey/fdlibm/s_sin.c +118 -0
- data/vendor/spidermonkey/fdlibm/s_tan.c +112 -0
- data/vendor/spidermonkey/fdlibm/s_tanh.c +122 -0
- data/vendor/spidermonkey/fdlibm/w_acos.c +78 -0
- data/vendor/spidermonkey/fdlibm/w_acosh.c +78 -0
- data/vendor/spidermonkey/fdlibm/w_asin.c +80 -0
- data/vendor/spidermonkey/fdlibm/w_atan2.c +79 -0
- data/vendor/spidermonkey/fdlibm/w_atanh.c +81 -0
- data/vendor/spidermonkey/fdlibm/w_cosh.c +77 -0
- data/vendor/spidermonkey/fdlibm/w_exp.c +88 -0
- data/vendor/spidermonkey/fdlibm/w_fmod.c +78 -0
- data/vendor/spidermonkey/fdlibm/w_gamma.c +85 -0
- data/vendor/spidermonkey/fdlibm/w_gamma_r.c +81 -0
- data/vendor/spidermonkey/fdlibm/w_hypot.c +78 -0
- data/vendor/spidermonkey/fdlibm/w_j0.c +105 -0
- data/vendor/spidermonkey/fdlibm/w_j1.c +106 -0
- data/vendor/spidermonkey/fdlibm/w_jn.c +128 -0
- data/vendor/spidermonkey/fdlibm/w_lgamma.c +85 -0
- data/vendor/spidermonkey/fdlibm/w_lgamma_r.c +81 -0
- data/vendor/spidermonkey/fdlibm/w_log.c +78 -0
- data/vendor/spidermonkey/fdlibm/w_log10.c +81 -0
- data/vendor/spidermonkey/fdlibm/w_pow.c +99 -0
- data/vendor/spidermonkey/fdlibm/w_remainder.c +77 -0
- data/vendor/spidermonkey/fdlibm/w_scalb.c +95 -0
- data/vendor/spidermonkey/fdlibm/w_sinh.c +77 -0
- data/vendor/spidermonkey/fdlibm/w_sqrt.c +77 -0
- data/vendor/spidermonkey/javascript-trace.d +73 -0
- data/vendor/spidermonkey/js.c +3951 -0
- data/vendor/spidermonkey/js.mdp +0 -0
- data/vendor/spidermonkey/js.msg +308 -0
- data/vendor/spidermonkey/js3240.rc +79 -0
- data/vendor/spidermonkey/jsOS240.def +654 -0
- data/vendor/spidermonkey/jsapi.c +5836 -0
- data/vendor/spidermonkey/jsapi.h +2624 -0
- data/vendor/spidermonkey/jsarena.c +450 -0
- data/vendor/spidermonkey/jsarena.h +318 -0
- data/vendor/spidermonkey/jsarray.c +2996 -0
- data/vendor/spidermonkey/jsarray.h +127 -0
- data/vendor/spidermonkey/jsatom.c +1045 -0
- data/vendor/spidermonkey/jsatom.h +442 -0
- data/vendor/spidermonkey/jsbit.h +253 -0
- data/vendor/spidermonkey/jsbool.c +176 -0
- data/vendor/spidermonkey/jsbool.h +73 -0
- data/vendor/spidermonkey/jsclist.h +139 -0
- data/vendor/spidermonkey/jscntxt.c +1348 -0
- data/vendor/spidermonkey/jscntxt.h +1120 -0
- data/vendor/spidermonkey/jscompat.h +57 -0
- data/vendor/spidermonkey/jsconfig.h +248 -0
- data/vendor/spidermonkey/jsconfig.mk +181 -0
- data/vendor/spidermonkey/jscpucfg.c +396 -0
- data/vendor/spidermonkey/jscpucfg.h +212 -0
- data/vendor/spidermonkey/jsdate.c +2390 -0
- data/vendor/spidermonkey/jsdate.h +124 -0
- data/vendor/spidermonkey/jsdbgapi.c +1802 -0
- data/vendor/spidermonkey/jsdbgapi.h +464 -0
- data/vendor/spidermonkey/jsdhash.c +868 -0
- data/vendor/spidermonkey/jsdhash.h +592 -0
- data/vendor/spidermonkey/jsdtoa.c +3167 -0
- data/vendor/spidermonkey/jsdtoa.h +130 -0
- data/vendor/spidermonkey/jsdtracef.c +317 -0
- data/vendor/spidermonkey/jsdtracef.h +77 -0
- data/vendor/spidermonkey/jsemit.c +6909 -0
- data/vendor/spidermonkey/jsemit.h +741 -0
- data/vendor/spidermonkey/jsexn.c +1371 -0
- data/vendor/spidermonkey/jsexn.h +96 -0
- data/vendor/spidermonkey/jsfile.c +2736 -0
- data/vendor/spidermonkey/jsfile.h +56 -0
- data/vendor/spidermonkey/jsfile.msg +90 -0
- data/vendor/spidermonkey/jsfun.c +2634 -0
- data/vendor/spidermonkey/jsfun.h +254 -0
- data/vendor/spidermonkey/jsgc.c +3562 -0
- data/vendor/spidermonkey/jsgc.h +403 -0
- data/vendor/spidermonkey/jshash.c +476 -0
- data/vendor/spidermonkey/jshash.h +151 -0
- data/vendor/spidermonkey/jsify.pl +485 -0
- data/vendor/spidermonkey/jsinterp.c +7007 -0
- data/vendor/spidermonkey/jsinterp.h +525 -0
- data/vendor/spidermonkey/jsinvoke.c +43 -0
- data/vendor/spidermonkey/jsiter.c +1067 -0
- data/vendor/spidermonkey/jsiter.h +122 -0
- data/vendor/spidermonkey/jskeyword.tbl +124 -0
- data/vendor/spidermonkey/jskwgen.c +460 -0
- data/vendor/spidermonkey/jslibmath.h +266 -0
- data/vendor/spidermonkey/jslock.c +1309 -0
- data/vendor/spidermonkey/jslock.h +313 -0
- data/vendor/spidermonkey/jslocko.asm +60 -0
- data/vendor/spidermonkey/jslog2.c +94 -0
- data/vendor/spidermonkey/jslong.c +264 -0
- data/vendor/spidermonkey/jslong.h +412 -0
- data/vendor/spidermonkey/jsmath.c +567 -0
- data/vendor/spidermonkey/jsmath.h +57 -0
- data/vendor/spidermonkey/jsnum.c +1239 -0
- data/vendor/spidermonkey/jsnum.h +283 -0
- data/vendor/spidermonkey/jsobj.c +5282 -0
- data/vendor/spidermonkey/jsobj.h +709 -0
- data/vendor/spidermonkey/jsopcode.c +5245 -0
- data/vendor/spidermonkey/jsopcode.h +394 -0
- data/vendor/spidermonkey/jsopcode.tbl +523 -0
- data/vendor/spidermonkey/jsotypes.h +202 -0
- data/vendor/spidermonkey/jsparse.c +6704 -0
- data/vendor/spidermonkey/jsparse.h +511 -0
- data/vendor/spidermonkey/jsprf.c +1262 -0
- data/vendor/spidermonkey/jsprf.h +150 -0
- data/vendor/spidermonkey/jsproto.tbl +128 -0
- data/vendor/spidermonkey/jsprvtd.h +267 -0
- data/vendor/spidermonkey/jspubtd.h +744 -0
- data/vendor/spidermonkey/jsregexp.c +4364 -0
- data/vendor/spidermonkey/jsregexp.h +183 -0
- data/vendor/spidermonkey/jsreops.tbl +145 -0
- data/vendor/spidermonkey/jsscan.c +2012 -0
- data/vendor/spidermonkey/jsscan.h +387 -0
- data/vendor/spidermonkey/jsscope.c +1957 -0
- data/vendor/spidermonkey/jsscope.h +418 -0
- data/vendor/spidermonkey/jsscript.c +1832 -0
- data/vendor/spidermonkey/jsscript.h +287 -0
- data/vendor/spidermonkey/jsshell.msg +50 -0
- data/vendor/spidermonkey/jsstddef.h +83 -0
- data/vendor/spidermonkey/jsstr.c +5005 -0
- data/vendor/spidermonkey/jsstr.h +641 -0
- data/vendor/spidermonkey/jstypes.h +475 -0
- data/vendor/spidermonkey/jsutil.c +345 -0
- data/vendor/spidermonkey/jsutil.h +157 -0
- data/vendor/spidermonkey/jsxdrapi.c +800 -0
- data/vendor/spidermonkey/jsxdrapi.h +218 -0
- data/vendor/spidermonkey/jsxml.c +8476 -0
- data/vendor/spidermonkey/jsxml.h +349 -0
- data/vendor/spidermonkey/lock_SunOS.s +119 -0
- data/vendor/spidermonkey/perfect.js +39 -0
- data/vendor/spidermonkey/plify_jsdhash.sed +36 -0
- data/vendor/spidermonkey/prmjtime.c +846 -0
- data/vendor/spidermonkey/prmjtime.h +103 -0
- data/vendor/spidermonkey/resource.h +15 -0
- data/vendor/spidermonkey/rules.mk +197 -0
- data/vendor/spidermonkey/win32.order +384 -0
- metadata +513 -0
@@ -0,0 +1,99 @@
|
|
1
|
+
/* -*- Mode: C; tab-width: 8; indent-tabs-mode: nil; c-basic-offset: 4 -*-
|
2
|
+
*
|
3
|
+
* ***** BEGIN LICENSE BLOCK *****
|
4
|
+
* Version: MPL 1.1/GPL 2.0/LGPL 2.1
|
5
|
+
*
|
6
|
+
* The contents of this file are subject to the Mozilla Public License Version
|
7
|
+
* 1.1 (the "License"); you may not use this file except in compliance with
|
8
|
+
* the License. You may obtain a copy of the License at
|
9
|
+
* http://www.mozilla.org/MPL/
|
10
|
+
*
|
11
|
+
* Software distributed under the License is distributed on an "AS IS" basis,
|
12
|
+
* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
|
13
|
+
* for the specific language governing rights and limitations under the
|
14
|
+
* License.
|
15
|
+
*
|
16
|
+
* The Original Code is Mozilla Communicator client code, released
|
17
|
+
* March 31, 1998.
|
18
|
+
*
|
19
|
+
* The Initial Developer of the Original Code is
|
20
|
+
* Sun Microsystems, Inc.
|
21
|
+
* Portions created by the Initial Developer are Copyright (C) 1998
|
22
|
+
* the Initial Developer. All Rights Reserved.
|
23
|
+
*
|
24
|
+
* Contributor(s):
|
25
|
+
*
|
26
|
+
* Alternatively, the contents of this file may be used under the terms of
|
27
|
+
* either of the GNU General Public License Version 2 or later (the "GPL"),
|
28
|
+
* or the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
|
29
|
+
* in which case the provisions of the GPL or the LGPL are applicable instead
|
30
|
+
* of those above. If you wish to allow use of your version of this file only
|
31
|
+
* under the terms of either the GPL or the LGPL, and not to allow others to
|
32
|
+
* use your version of this file under the terms of the MPL, indicate your
|
33
|
+
* decision by deleting the provisions above and replace them with the notice
|
34
|
+
* and other provisions required by the GPL or the LGPL. If you do not delete
|
35
|
+
* the provisions above, a recipient may use your version of this file under
|
36
|
+
* the terms of any one of the MPL, the GPL or the LGPL.
|
37
|
+
*
|
38
|
+
* ***** END LICENSE BLOCK ***** */
|
39
|
+
|
40
|
+
/* @(#)s_frexp.c 1.4 95/01/18 */
|
41
|
+
/*
|
42
|
+
* ====================================================
|
43
|
+
* Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
|
44
|
+
*
|
45
|
+
* Developed at SunSoft, a Sun Microsystems, Inc. business.
|
46
|
+
* Permission to use, copy, modify, and distribute this
|
47
|
+
* software is freely granted, provided that this notice
|
48
|
+
* is preserved.
|
49
|
+
* ====================================================
|
50
|
+
*/
|
51
|
+
|
52
|
+
/*
|
53
|
+
* for non-zero x
|
54
|
+
* x = frexp(arg,&exp);
|
55
|
+
* return a double fp quantity x such that 0.5 <= |x| <1.0
|
56
|
+
* and the corresponding binary exponent "exp". That is
|
57
|
+
* arg = x*2^exp.
|
58
|
+
* If arg is inf, 0.0, or NaN, then frexp(arg,&exp) returns arg
|
59
|
+
* with *exp=0.
|
60
|
+
*/
|
61
|
+
|
62
|
+
#include "fdlibm.h"
|
63
|
+
|
64
|
+
#ifdef __STDC__
|
65
|
+
static const double
|
66
|
+
#else
|
67
|
+
static double
|
68
|
+
#endif
|
69
|
+
two54 = 1.80143985094819840000e+16; /* 0x43500000, 0x00000000 */
|
70
|
+
|
71
|
+
#ifdef __STDC__
|
72
|
+
double fd_frexp(double x, int *eptr)
|
73
|
+
#else
|
74
|
+
double fd_frexp(x, eptr)
|
75
|
+
double x; int *eptr;
|
76
|
+
#endif
|
77
|
+
{
|
78
|
+
int hx, ix, lx;
|
79
|
+
fd_twoints u;
|
80
|
+
u.d = x;
|
81
|
+
hx = __HI(u);
|
82
|
+
ix = 0x7fffffff&hx;
|
83
|
+
lx = __LO(u);
|
84
|
+
*eptr = 0;
|
85
|
+
if(ix>=0x7ff00000||((ix|lx)==0)) return x; /* 0,inf,nan */
|
86
|
+
if (ix<0x00100000) { /* subnormal */
|
87
|
+
x *= two54;
|
88
|
+
u.d = x;
|
89
|
+
hx = __HI(u);
|
90
|
+
ix = hx&0x7fffffff;
|
91
|
+
*eptr = -54;
|
92
|
+
}
|
93
|
+
*eptr += (ix>>20)-1022;
|
94
|
+
hx = (hx&0x800fffff)|0x3fe00000;
|
95
|
+
u.d = x;
|
96
|
+
__HI(u) = hx;
|
97
|
+
x = u.d;
|
98
|
+
return x;
|
99
|
+
}
|
@@ -0,0 +1,85 @@
|
|
1
|
+
/* -*- Mode: C; tab-width: 8; indent-tabs-mode: nil; c-basic-offset: 4 -*-
|
2
|
+
*
|
3
|
+
* ***** BEGIN LICENSE BLOCK *****
|
4
|
+
* Version: MPL 1.1/GPL 2.0/LGPL 2.1
|
5
|
+
*
|
6
|
+
* The contents of this file are subject to the Mozilla Public License Version
|
7
|
+
* 1.1 (the "License"); you may not use this file except in compliance with
|
8
|
+
* the License. You may obtain a copy of the License at
|
9
|
+
* http://www.mozilla.org/MPL/
|
10
|
+
*
|
11
|
+
* Software distributed under the License is distributed on an "AS IS" basis,
|
12
|
+
* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
|
13
|
+
* for the specific language governing rights and limitations under the
|
14
|
+
* License.
|
15
|
+
*
|
16
|
+
* The Original Code is Mozilla Communicator client code, released
|
17
|
+
* March 31, 1998.
|
18
|
+
*
|
19
|
+
* The Initial Developer of the Original Code is
|
20
|
+
* Sun Microsystems, Inc.
|
21
|
+
* Portions created by the Initial Developer are Copyright (C) 1998
|
22
|
+
* the Initial Developer. All Rights Reserved.
|
23
|
+
*
|
24
|
+
* Contributor(s):
|
25
|
+
*
|
26
|
+
* Alternatively, the contents of this file may be used under the terms of
|
27
|
+
* either of the GNU General Public License Version 2 or later (the "GPL"),
|
28
|
+
* or the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
|
29
|
+
* in which case the provisions of the GPL or the LGPL are applicable instead
|
30
|
+
* of those above. If you wish to allow use of your version of this file only
|
31
|
+
* under the terms of either the GPL or the LGPL, and not to allow others to
|
32
|
+
* use your version of this file under the terms of the MPL, indicate your
|
33
|
+
* decision by deleting the provisions above and replace them with the notice
|
34
|
+
* and other provisions required by the GPL or the LGPL. If you do not delete
|
35
|
+
* the provisions above, a recipient may use your version of this file under
|
36
|
+
* the terms of any one of the MPL, the GPL or the LGPL.
|
37
|
+
*
|
38
|
+
* ***** END LICENSE BLOCK ***** */
|
39
|
+
|
40
|
+
/* @(#)s_ilogb.c 1.3 95/01/18 */
|
41
|
+
/*
|
42
|
+
* ====================================================
|
43
|
+
* Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
|
44
|
+
*
|
45
|
+
* Developed at SunSoft, a Sun Microsystems, Inc. business.
|
46
|
+
* Permission to use, copy, modify, and distribute this
|
47
|
+
* software is freely granted, provided that this notice
|
48
|
+
* is preserved.
|
49
|
+
* ====================================================
|
50
|
+
*/
|
51
|
+
|
52
|
+
/* ilogb(double x)
|
53
|
+
* return the binary exponent of non-zero x
|
54
|
+
* ilogb(0) = 0x80000001
|
55
|
+
* ilogb(inf/NaN) = 0x7fffffff (no signal is raised)
|
56
|
+
*/
|
57
|
+
|
58
|
+
#include "fdlibm.h"
|
59
|
+
|
60
|
+
#ifdef __STDC__
|
61
|
+
int fd_ilogb(double x)
|
62
|
+
#else
|
63
|
+
int fd_ilogb(x)
|
64
|
+
double x;
|
65
|
+
#endif
|
66
|
+
{
|
67
|
+
int hx,lx,ix;
|
68
|
+
fd_twoints u;
|
69
|
+
u.d = x;
|
70
|
+
hx = (__HI(u))&0x7fffffff; /* high word of x */
|
71
|
+
if(hx<0x00100000) {
|
72
|
+
lx = __LO(u);
|
73
|
+
if((hx|lx)==0)
|
74
|
+
return 0x80000001; /* ilogb(0) = 0x80000001 */
|
75
|
+
else /* subnormal x */
|
76
|
+
if(hx==0) {
|
77
|
+
for (ix = -1043; lx>0; lx<<=1) ix -=1;
|
78
|
+
} else {
|
79
|
+
for (ix = -1022,hx<<=11; hx>0; hx<<=1) ix -=1;
|
80
|
+
}
|
81
|
+
return ix;
|
82
|
+
}
|
83
|
+
else if (hx<0x7ff00000) return (hx>>20)-1023;
|
84
|
+
else return 0x7fffffff;
|
85
|
+
}
|
@@ -0,0 +1,74 @@
|
|
1
|
+
/* -*- Mode: C; tab-width: 8; indent-tabs-mode: nil; c-basic-offset: 4 -*-
|
2
|
+
*
|
3
|
+
* ***** BEGIN LICENSE BLOCK *****
|
4
|
+
* Version: MPL 1.1/GPL 2.0/LGPL 2.1
|
5
|
+
*
|
6
|
+
* The contents of this file are subject to the Mozilla Public License Version
|
7
|
+
* 1.1 (the "License"); you may not use this file except in compliance with
|
8
|
+
* the License. You may obtain a copy of the License at
|
9
|
+
* http://www.mozilla.org/MPL/
|
10
|
+
*
|
11
|
+
* Software distributed under the License is distributed on an "AS IS" basis,
|
12
|
+
* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
|
13
|
+
* for the specific language governing rights and limitations under the
|
14
|
+
* License.
|
15
|
+
*
|
16
|
+
* The Original Code is Mozilla Communicator client code, released
|
17
|
+
* March 31, 1998.
|
18
|
+
*
|
19
|
+
* The Initial Developer of the Original Code is
|
20
|
+
* Sun Microsystems, Inc.
|
21
|
+
* Portions created by the Initial Developer are Copyright (C) 1998
|
22
|
+
* the Initial Developer. All Rights Reserved.
|
23
|
+
*
|
24
|
+
* Contributor(s):
|
25
|
+
*
|
26
|
+
* Alternatively, the contents of this file may be used under the terms of
|
27
|
+
* either of the GNU General Public License Version 2 or later (the "GPL"),
|
28
|
+
* or the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
|
29
|
+
* in which case the provisions of the GPL or the LGPL are applicable instead
|
30
|
+
* of those above. If you wish to allow use of your version of this file only
|
31
|
+
* under the terms of either the GPL or the LGPL, and not to allow others to
|
32
|
+
* use your version of this file under the terms of the MPL, indicate your
|
33
|
+
* decision by deleting the provisions above and replace them with the notice
|
34
|
+
* and other provisions required by the GPL or the LGPL. If you do not delete
|
35
|
+
* the provisions above, a recipient may use your version of this file under
|
36
|
+
* the terms of any one of the MPL, the GPL or the LGPL.
|
37
|
+
*
|
38
|
+
* ***** END LICENSE BLOCK ***** */
|
39
|
+
|
40
|
+
/* @(#)s_isnan.c 1.3 95/01/18 */
|
41
|
+
/*
|
42
|
+
* ====================================================
|
43
|
+
* Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
|
44
|
+
*
|
45
|
+
* Developed at SunSoft, a Sun Microsystems, Inc. business.
|
46
|
+
* Permission to use, copy, modify, and distribute this
|
47
|
+
* software is freely granted, provided that this notice
|
48
|
+
* is preserved.
|
49
|
+
* ====================================================
|
50
|
+
*/
|
51
|
+
|
52
|
+
/*
|
53
|
+
* isnan(x) returns 1 is x is nan, else 0;
|
54
|
+
* no branching!
|
55
|
+
*/
|
56
|
+
|
57
|
+
#include "fdlibm.h"
|
58
|
+
|
59
|
+
#ifdef __STDC__
|
60
|
+
int fd_isnan(double x)
|
61
|
+
#else
|
62
|
+
int fd_isnan(x)
|
63
|
+
double x;
|
64
|
+
#endif
|
65
|
+
{
|
66
|
+
fd_twoints u;
|
67
|
+
int hx,lx;
|
68
|
+
u.d = x;
|
69
|
+
hx = (__HI(u)&0x7fffffff);
|
70
|
+
lx = __LO(u);
|
71
|
+
hx |= (unsigned)(lx|(-lx))>>31;
|
72
|
+
hx = 0x7ff00000 - hx;
|
73
|
+
return ((unsigned)(hx))>>31;
|
74
|
+
}
|
@@ -0,0 +1,66 @@
|
|
1
|
+
/* -*- Mode: C; tab-width: 8; indent-tabs-mode: nil; c-basic-offset: 4 -*-
|
2
|
+
*
|
3
|
+
* ***** BEGIN LICENSE BLOCK *****
|
4
|
+
* Version: MPL 1.1/GPL 2.0/LGPL 2.1
|
5
|
+
*
|
6
|
+
* The contents of this file are subject to the Mozilla Public License Version
|
7
|
+
* 1.1 (the "License"); you may not use this file except in compliance with
|
8
|
+
* the License. You may obtain a copy of the License at
|
9
|
+
* http://www.mozilla.org/MPL/
|
10
|
+
*
|
11
|
+
* Software distributed under the License is distributed on an "AS IS" basis,
|
12
|
+
* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
|
13
|
+
* for the specific language governing rights and limitations under the
|
14
|
+
* License.
|
15
|
+
*
|
16
|
+
* The Original Code is Mozilla Communicator client code, released
|
17
|
+
* March 31, 1998.
|
18
|
+
*
|
19
|
+
* The Initial Developer of the Original Code is
|
20
|
+
* Sun Microsystems, Inc.
|
21
|
+
* Portions created by the Initial Developer are Copyright (C) 1998
|
22
|
+
* the Initial Developer. All Rights Reserved.
|
23
|
+
*
|
24
|
+
* Contributor(s):
|
25
|
+
*
|
26
|
+
* Alternatively, the contents of this file may be used under the terms of
|
27
|
+
* either of the GNU General Public License Version 2 or later (the "GPL"),
|
28
|
+
* or the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
|
29
|
+
* in which case the provisions of the GPL or the LGPL are applicable instead
|
30
|
+
* of those above. If you wish to allow use of your version of this file only
|
31
|
+
* under the terms of either the GPL or the LGPL, and not to allow others to
|
32
|
+
* use your version of this file under the terms of the MPL, indicate your
|
33
|
+
* decision by deleting the provisions above and replace them with the notice
|
34
|
+
* and other provisions required by the GPL or the LGPL. If you do not delete
|
35
|
+
* the provisions above, a recipient may use your version of this file under
|
36
|
+
* the terms of any one of the MPL, the GPL or the LGPL.
|
37
|
+
*
|
38
|
+
* ***** END LICENSE BLOCK ***** */
|
39
|
+
|
40
|
+
/* @(#)s_ldexp.c 1.3 95/01/18 */
|
41
|
+
/*
|
42
|
+
* ====================================================
|
43
|
+
* Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
|
44
|
+
*
|
45
|
+
* Developed at SunSoft, a Sun Microsystems, Inc. business.
|
46
|
+
* Permission to use, copy, modify, and distribute this
|
47
|
+
* software is freely granted, provided that this notice
|
48
|
+
* is preserved.
|
49
|
+
* ====================================================
|
50
|
+
*/
|
51
|
+
|
52
|
+
#include "fdlibm.h"
|
53
|
+
#include <errno.h>
|
54
|
+
|
55
|
+
#ifdef __STDC__
|
56
|
+
double fd_ldexp(double value, int exp)
|
57
|
+
#else
|
58
|
+
double fd_ldexp(value, exp)
|
59
|
+
double value; int exp;
|
60
|
+
#endif
|
61
|
+
{
|
62
|
+
if(!fd_finite(value)||value==0.0) return value;
|
63
|
+
value = fd_scalbn(value,exp);
|
64
|
+
if(!fd_finite(value)||value==0.0) errno = ERANGE;
|
65
|
+
return value;
|
66
|
+
}
|
@@ -0,0 +1,73 @@
|
|
1
|
+
/* -*- Mode: C; tab-width: 8; indent-tabs-mode: nil; c-basic-offset: 4 -*-
|
2
|
+
*
|
3
|
+
* ***** BEGIN LICENSE BLOCK *****
|
4
|
+
* Version: MPL 1.1/GPL 2.0/LGPL 2.1
|
5
|
+
*
|
6
|
+
* The contents of this file are subject to the Mozilla Public License Version
|
7
|
+
* 1.1 (the "License"); you may not use this file except in compliance with
|
8
|
+
* the License. You may obtain a copy of the License at
|
9
|
+
* http://www.mozilla.org/MPL/
|
10
|
+
*
|
11
|
+
* Software distributed under the License is distributed on an "AS IS" basis,
|
12
|
+
* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
|
13
|
+
* for the specific language governing rights and limitations under the
|
14
|
+
* License.
|
15
|
+
*
|
16
|
+
* The Original Code is Mozilla Communicator client code, released
|
17
|
+
* March 31, 1998.
|
18
|
+
*
|
19
|
+
* The Initial Developer of the Original Code is
|
20
|
+
* Sun Microsystems, Inc.
|
21
|
+
* Portions created by the Initial Developer are Copyright (C) 1998
|
22
|
+
* the Initial Developer. All Rights Reserved.
|
23
|
+
*
|
24
|
+
* Contributor(s):
|
25
|
+
*
|
26
|
+
* Alternatively, the contents of this file may be used under the terms of
|
27
|
+
* either of the GNU General Public License Version 2 or later (the "GPL"),
|
28
|
+
* or the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
|
29
|
+
* in which case the provisions of the GPL or the LGPL are applicable instead
|
30
|
+
* of those above. If you wish to allow use of your version of this file only
|
31
|
+
* under the terms of either the GPL or the LGPL, and not to allow others to
|
32
|
+
* use your version of this file under the terms of the MPL, indicate your
|
33
|
+
* decision by deleting the provisions above and replace them with the notice
|
34
|
+
* and other provisions required by the GPL or the LGPL. If you do not delete
|
35
|
+
* the provisions above, a recipient may use your version of this file under
|
36
|
+
* the terms of any one of the MPL, the GPL or the LGPL.
|
37
|
+
*
|
38
|
+
* ***** END LICENSE BLOCK ***** */
|
39
|
+
|
40
|
+
/* @(#)s_lib_version.c 1.3 95/01/18 */
|
41
|
+
/*
|
42
|
+
* ====================================================
|
43
|
+
* Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
|
44
|
+
*
|
45
|
+
* Developed at SunSoft, a Sun Microsystems, Inc. business.
|
46
|
+
* Permission to use, copy, modify, and distribute this
|
47
|
+
* software is freely granted, provided that this notice
|
48
|
+
* is preserved.
|
49
|
+
* ====================================================
|
50
|
+
*/
|
51
|
+
|
52
|
+
/*
|
53
|
+
* MACRO for standards
|
54
|
+
*/
|
55
|
+
|
56
|
+
#include "fdlibm.h"
|
57
|
+
|
58
|
+
/*
|
59
|
+
* define and initialize _LIB_VERSION
|
60
|
+
*/
|
61
|
+
#ifdef _POSIX_MODE
|
62
|
+
_LIB_VERSION_TYPE _LIB_VERSION = _POSIX_;
|
63
|
+
#else
|
64
|
+
#ifdef _XOPEN_MODE
|
65
|
+
_LIB_VERSION_TYPE _LIB_VERSION = _XOPEN_;
|
66
|
+
#else
|
67
|
+
#ifdef _SVID3_MODE
|
68
|
+
_LIB_VERSION_TYPE _LIB_VERSION = _SVID_;
|
69
|
+
#else /* default _IEEE_MODE */
|
70
|
+
_LIB_VERSION_TYPE _LIB_VERSION = _IEEE_;
|
71
|
+
#endif
|
72
|
+
#endif
|
73
|
+
#endif
|
@@ -0,0 +1,211 @@
|
|
1
|
+
/* -*- Mode: C; tab-width: 8; indent-tabs-mode: nil; c-basic-offset: 4 -*-
|
2
|
+
*
|
3
|
+
* ***** BEGIN LICENSE BLOCK *****
|
4
|
+
* Version: MPL 1.1/GPL 2.0/LGPL 2.1
|
5
|
+
*
|
6
|
+
* The contents of this file are subject to the Mozilla Public License Version
|
7
|
+
* 1.1 (the "License"); you may not use this file except in compliance with
|
8
|
+
* the License. You may obtain a copy of the License at
|
9
|
+
* http://www.mozilla.org/MPL/
|
10
|
+
*
|
11
|
+
* Software distributed under the License is distributed on an "AS IS" basis,
|
12
|
+
* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
|
13
|
+
* for the specific language governing rights and limitations under the
|
14
|
+
* License.
|
15
|
+
*
|
16
|
+
* The Original Code is Mozilla Communicator client code, released
|
17
|
+
* March 31, 1998.
|
18
|
+
*
|
19
|
+
* The Initial Developer of the Original Code is
|
20
|
+
* Sun Microsystems, Inc.
|
21
|
+
* Portions created by the Initial Developer are Copyright (C) 1998
|
22
|
+
* the Initial Developer. All Rights Reserved.
|
23
|
+
*
|
24
|
+
* Contributor(s):
|
25
|
+
*
|
26
|
+
* Alternatively, the contents of this file may be used under the terms of
|
27
|
+
* either of the GNU General Public License Version 2 or later (the "GPL"),
|
28
|
+
* or the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
|
29
|
+
* in which case the provisions of the GPL or the LGPL are applicable instead
|
30
|
+
* of those above. If you wish to allow use of your version of this file only
|
31
|
+
* under the terms of either the GPL or the LGPL, and not to allow others to
|
32
|
+
* use your version of this file under the terms of the MPL, indicate your
|
33
|
+
* decision by deleting the provisions above and replace them with the notice
|
34
|
+
* and other provisions required by the GPL or the LGPL. If you do not delete
|
35
|
+
* the provisions above, a recipient may use your version of this file under
|
36
|
+
* the terms of any one of the MPL, the GPL or the LGPL.
|
37
|
+
*
|
38
|
+
* ***** END LICENSE BLOCK ***** */
|
39
|
+
|
40
|
+
/* @(#)s_log1p.c 1.3 95/01/18 */
|
41
|
+
/*
|
42
|
+
* ====================================================
|
43
|
+
* Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
|
44
|
+
*
|
45
|
+
* Developed at SunSoft, a Sun Microsystems, Inc. business.
|
46
|
+
* Permission to use, copy, modify, and distribute this
|
47
|
+
* software is freely granted, provided that this notice
|
48
|
+
* is preserved.
|
49
|
+
* ====================================================
|
50
|
+
*/
|
51
|
+
|
52
|
+
/* double log1p(double x)
|
53
|
+
*
|
54
|
+
* Method :
|
55
|
+
* 1. Argument Reduction: find k and f such that
|
56
|
+
* 1+x = 2^k * (1+f),
|
57
|
+
* where sqrt(2)/2 < 1+f < sqrt(2) .
|
58
|
+
*
|
59
|
+
* Note. If k=0, then f=x is exact. However, if k!=0, then f
|
60
|
+
* may not be representable exactly. In that case, a correction
|
61
|
+
* term is need. Let u=1+x rounded. Let c = (1+x)-u, then
|
62
|
+
* log(1+x) - log(u) ~ c/u. Thus, we proceed to compute log(u),
|
63
|
+
* and add back the correction term c/u.
|
64
|
+
* (Note: when x > 2**53, one can simply return log(x))
|
65
|
+
*
|
66
|
+
* 2. Approximation of log1p(f).
|
67
|
+
* Let s = f/(2+f) ; based on log(1+f) = log(1+s) - log(1-s)
|
68
|
+
* = 2s + 2/3 s**3 + 2/5 s**5 + .....,
|
69
|
+
* = 2s + s*R
|
70
|
+
* We use a special Reme algorithm on [0,0.1716] to generate
|
71
|
+
* a polynomial of degree 14 to approximate R The maximum error
|
72
|
+
* of this polynomial approximation is bounded by 2**-58.45. In
|
73
|
+
* other words,
|
74
|
+
* 2 4 6 8 10 12 14
|
75
|
+
* R(z) ~ Lp1*s +Lp2*s +Lp3*s +Lp4*s +Lp5*s +Lp6*s +Lp7*s
|
76
|
+
* (the values of Lp1 to Lp7 are listed in the program)
|
77
|
+
* and
|
78
|
+
* | 2 14 | -58.45
|
79
|
+
* | Lp1*s +...+Lp7*s - R(z) | <= 2
|
80
|
+
* | |
|
81
|
+
* Note that 2s = f - s*f = f - hfsq + s*hfsq, where hfsq = f*f/2.
|
82
|
+
* In order to guarantee error in log below 1ulp, we compute log
|
83
|
+
* by
|
84
|
+
* log1p(f) = f - (hfsq - s*(hfsq+R)).
|
85
|
+
*
|
86
|
+
* 3. Finally, log1p(x) = k*ln2 + log1p(f).
|
87
|
+
* = k*ln2_hi+(f-(hfsq-(s*(hfsq+R)+k*ln2_lo)))
|
88
|
+
* Here ln2 is split into two floating point number:
|
89
|
+
* ln2_hi + ln2_lo,
|
90
|
+
* where n*ln2_hi is always exact for |n| < 2000.
|
91
|
+
*
|
92
|
+
* Special cases:
|
93
|
+
* log1p(x) is NaN with signal if x < -1 (including -INF) ;
|
94
|
+
* log1p(+INF) is +INF; log1p(-1) is -INF with signal;
|
95
|
+
* log1p(NaN) is that NaN with no signal.
|
96
|
+
*
|
97
|
+
* Accuracy:
|
98
|
+
* according to an error analysis, the error is always less than
|
99
|
+
* 1 ulp (unit in the last place).
|
100
|
+
*
|
101
|
+
* Constants:
|
102
|
+
* The hexadecimal values are the intended ones for the following
|
103
|
+
* constants. The decimal values may be used, provided that the
|
104
|
+
* compiler will convert from decimal to binary accurately enough
|
105
|
+
* to produce the hexadecimal values shown.
|
106
|
+
*
|
107
|
+
* Note: Assuming log() return accurate answer, the following
|
108
|
+
* algorithm can be used to compute log1p(x) to within a few ULP:
|
109
|
+
*
|
110
|
+
* u = 1+x;
|
111
|
+
* if(u==1.0) return x ; else
|
112
|
+
* return log(u)*(x/(u-1.0));
|
113
|
+
*
|
114
|
+
* See HP-15C Advanced Functions Handbook, p.193.
|
115
|
+
*/
|
116
|
+
|
117
|
+
#include "fdlibm.h"
|
118
|
+
|
119
|
+
#ifdef __STDC__
|
120
|
+
static const double
|
121
|
+
#else
|
122
|
+
static double
|
123
|
+
#endif
|
124
|
+
ln2_hi = 6.93147180369123816490e-01, /* 3fe62e42 fee00000 */
|
125
|
+
ln2_lo = 1.90821492927058770002e-10, /* 3dea39ef 35793c76 */
|
126
|
+
two54 = 1.80143985094819840000e+16, /* 43500000 00000000 */
|
127
|
+
Lp1 = 6.666666666666735130e-01, /* 3FE55555 55555593 */
|
128
|
+
Lp2 = 3.999999999940941908e-01, /* 3FD99999 9997FA04 */
|
129
|
+
Lp3 = 2.857142874366239149e-01, /* 3FD24924 94229359 */
|
130
|
+
Lp4 = 2.222219843214978396e-01, /* 3FCC71C5 1D8E78AF */
|
131
|
+
Lp5 = 1.818357216161805012e-01, /* 3FC74664 96CB03DE */
|
132
|
+
Lp6 = 1.531383769920937332e-01, /* 3FC39A09 D078C69F */
|
133
|
+
Lp7 = 1.479819860511658591e-01; /* 3FC2F112 DF3E5244 */
|
134
|
+
|
135
|
+
static double zero = 0.0;
|
136
|
+
|
137
|
+
#ifdef __STDC__
|
138
|
+
double fd_log1p(double x)
|
139
|
+
#else
|
140
|
+
double fd_log1p(x)
|
141
|
+
double x;
|
142
|
+
#endif
|
143
|
+
{
|
144
|
+
double hfsq,f,c,s,z,R,u;
|
145
|
+
int k,hx,hu,ax;
|
146
|
+
fd_twoints un;
|
147
|
+
|
148
|
+
un.d = x;
|
149
|
+
hx = __HI(un); /* high word of x */
|
150
|
+
ax = hx&0x7fffffff;
|
151
|
+
|
152
|
+
k = 1;
|
153
|
+
if (hx < 0x3FDA827A) { /* x < 0.41422 */
|
154
|
+
if(ax>=0x3ff00000) { /* x <= -1.0 */
|
155
|
+
if(x==-1.0) return -two54/zero; /* log1p(-1)=+inf */
|
156
|
+
else return (x-x)/(x-x); /* log1p(x<-1)=NaN */
|
157
|
+
}
|
158
|
+
if(ax<0x3e200000) { /* |x| < 2**-29 */
|
159
|
+
if(two54+x>zero /* raise inexact */
|
160
|
+
&&ax<0x3c900000) /* |x| < 2**-54 */
|
161
|
+
return x;
|
162
|
+
else
|
163
|
+
return x - x*x*0.5;
|
164
|
+
}
|
165
|
+
if(hx>0||hx<=((int)0xbfd2bec3)) {
|
166
|
+
k=0;f=x;hu=1;} /* -0.2929<x<0.41422 */
|
167
|
+
}
|
168
|
+
if (hx >= 0x7ff00000) return x+x;
|
169
|
+
if(k!=0) {
|
170
|
+
if(hx<0x43400000) {
|
171
|
+
u = 1.0+x;
|
172
|
+
un.d = u;
|
173
|
+
hu = __HI(un); /* high word of u */
|
174
|
+
k = (hu>>20)-1023;
|
175
|
+
c = (k>0)? 1.0-(u-x):x-(u-1.0);/* correction term */
|
176
|
+
c /= u;
|
177
|
+
} else {
|
178
|
+
u = x;
|
179
|
+
un.d = u;
|
180
|
+
hu = __HI(un); /* high word of u */
|
181
|
+
k = (hu>>20)-1023;
|
182
|
+
c = 0;
|
183
|
+
}
|
184
|
+
hu &= 0x000fffff;
|
185
|
+
if(hu<0x6a09e) {
|
186
|
+
un.d = u;
|
187
|
+
__HI(un) = hu|0x3ff00000; /* normalize u */
|
188
|
+
u = un.d;
|
189
|
+
} else {
|
190
|
+
k += 1;
|
191
|
+
un.d = u;
|
192
|
+
__HI(un) = hu|0x3fe00000; /* normalize u/2 */
|
193
|
+
u = un.d;
|
194
|
+
hu = (0x00100000-hu)>>2;
|
195
|
+
}
|
196
|
+
f = u-1.0;
|
197
|
+
}
|
198
|
+
hfsq=0.5*f*f;
|
199
|
+
if(hu==0) { /* |f| < 2**-20 */
|
200
|
+
if(f==zero) if(k==0) return zero;
|
201
|
+
else {c += k*ln2_lo; return k*ln2_hi+c;}
|
202
|
+
R = hfsq*(1.0-0.66666666666666666*f);
|
203
|
+
if(k==0) return f-R; else
|
204
|
+
return k*ln2_hi-((R-(k*ln2_lo+c))-f);
|
205
|
+
}
|
206
|
+
s = f/(2.0+f);
|
207
|
+
z = s*s;
|
208
|
+
R = z*(Lp1+z*(Lp2+z*(Lp3+z*(Lp4+z*(Lp5+z*(Lp6+z*Lp7))))));
|
209
|
+
if(k==0) return f-(hfsq-s*(hfsq+R)); else
|
210
|
+
return k*ln2_hi-((hfsq-(s*(hfsq+R)+(k*ln2_lo+c)))-f);
|
211
|
+
}
|