smparkes-johnson 1.1.2.3

Sign up to get free protection for your applications and to get access to all the features.
Files changed (1078) hide show
  1. data/.autotest +14 -0
  2. data/CHANGELOG.rdoc +21 -0
  3. data/Manifest.txt +1077 -0
  4. data/README.rdoc +51 -0
  5. data/Rakefile +140 -0
  6. data/bin/johnson +106 -0
  7. data/ext/spidermonkey/context.c +116 -0
  8. data/ext/spidermonkey/context.h +19 -0
  9. data/ext/spidermonkey/conversions.c +354 -0
  10. data/ext/spidermonkey/conversions.h +31 -0
  11. data/ext/spidermonkey/debugger.c +234 -0
  12. data/ext/spidermonkey/debugger.h +10 -0
  13. data/ext/spidermonkey/extconf.rb +32 -0
  14. data/ext/spidermonkey/extensions.c +37 -0
  15. data/ext/spidermonkey/extensions.h +12 -0
  16. data/ext/spidermonkey/global.c +40 -0
  17. data/ext/spidermonkey/global.h +11 -0
  18. data/ext/spidermonkey/idhash.c +16 -0
  19. data/ext/spidermonkey/idhash.h +8 -0
  20. data/ext/spidermonkey/immutable_node.c +1153 -0
  21. data/ext/spidermonkey/immutable_node.c.erb +523 -0
  22. data/ext/spidermonkey/immutable_node.h +22 -0
  23. data/ext/spidermonkey/jroot.h +197 -0
  24. data/ext/spidermonkey/js_land_proxy.c +610 -0
  25. data/ext/spidermonkey/js_land_proxy.h +20 -0
  26. data/ext/spidermonkey/ruby_land_proxy.c +611 -0
  27. data/ext/spidermonkey/ruby_land_proxy.h +38 -0
  28. data/ext/spidermonkey/runtime.c +396 -0
  29. data/ext/spidermonkey/runtime.h +27 -0
  30. data/ext/spidermonkey/spidermonkey.c +22 -0
  31. data/ext/spidermonkey/spidermonkey.h +29 -0
  32. data/ext/tracemonkey/context.cc +125 -0
  33. data/ext/tracemonkey/context.h +19 -0
  34. data/ext/tracemonkey/conversions.cc +355 -0
  35. data/ext/tracemonkey/conversions.h +32 -0
  36. data/ext/tracemonkey/debugger.cc +234 -0
  37. data/ext/tracemonkey/debugger.h +10 -0
  38. data/ext/tracemonkey/extconf.rb +37 -0
  39. data/ext/tracemonkey/extensions.cc +37 -0
  40. data/ext/tracemonkey/extensions.h +12 -0
  41. data/ext/tracemonkey/global.cc +40 -0
  42. data/ext/tracemonkey/global.h +11 -0
  43. data/ext/tracemonkey/idhash.cc +16 -0
  44. data/ext/tracemonkey/idhash.h +8 -0
  45. data/ext/tracemonkey/immutable_node.cc +1199 -0
  46. data/ext/tracemonkey/immutable_node.cc.erb +559 -0
  47. data/ext/tracemonkey/immutable_node.h +22 -0
  48. data/ext/tracemonkey/jroot.h +215 -0
  49. data/ext/tracemonkey/js_land_proxy.cc +610 -0
  50. data/ext/tracemonkey/js_land_proxy.h +20 -0
  51. data/ext/tracemonkey/ruby_land_proxy.cc +611 -0
  52. data/ext/tracemonkey/ruby_land_proxy.h +38 -0
  53. data/ext/tracemonkey/runtime.cc +454 -0
  54. data/ext/tracemonkey/runtime.h +27 -0
  55. data/ext/tracemonkey/split_global.cc +392 -0
  56. data/ext/tracemonkey/split_global.h +11 -0
  57. data/ext/tracemonkey/tracemonkey.cc +23 -0
  58. data/ext/tracemonkey/tracemonkey.h +32 -0
  59. data/lib/johnson/cli/options.rb +67 -0
  60. data/lib/johnson/cli.rb +8 -0
  61. data/lib/johnson/error.rb +4 -0
  62. data/lib/johnson/js/cli.js +30 -0
  63. data/lib/johnson/js/prelude.js +118 -0
  64. data/lib/johnson/nodes/binary_node.rb +65 -0
  65. data/lib/johnson/nodes/for.rb +14 -0
  66. data/lib/johnson/nodes/for_in.rb +12 -0
  67. data/lib/johnson/nodes/function.rb +13 -0
  68. data/lib/johnson/nodes/list.rb +28 -0
  69. data/lib/johnson/nodes/node.rb +68 -0
  70. data/lib/johnson/nodes/ternary_node.rb +20 -0
  71. data/lib/johnson/nodes.rb +7 -0
  72. data/lib/johnson/parser/syntax_error.rb +13 -0
  73. data/lib/johnson/parser.rb +22 -0
  74. data/lib/johnson/ruby_land_proxy.rb +81 -0
  75. data/lib/johnson/runtime.rb +141 -0
  76. data/lib/johnson/spidermonkey/context.rb +10 -0
  77. data/lib/johnson/spidermonkey/debugger.rb +67 -0
  78. data/lib/johnson/spidermonkey/immutable_node.rb +282 -0
  79. data/lib/johnson/spidermonkey/js_land_proxy.rb +64 -0
  80. data/lib/johnson/spidermonkey/mutable_tree_visitor.rb +242 -0
  81. data/lib/johnson/spidermonkey/ruby_land_proxy.rb +17 -0
  82. data/lib/johnson/spidermonkey/runtime.rb +92 -0
  83. data/lib/johnson/spidermonkey.rb +12 -0
  84. data/lib/johnson/tracemonkey/context.rb +10 -0
  85. data/lib/johnson/tracemonkey/debugger.rb +67 -0
  86. data/lib/johnson/tracemonkey/immutable_node.rb +282 -0
  87. data/lib/johnson/tracemonkey/js_land_proxy.rb +64 -0
  88. data/lib/johnson/tracemonkey/mutable_tree_visitor.rb +242 -0
  89. data/lib/johnson/tracemonkey/ruby_land_proxy.rb +17 -0
  90. data/lib/johnson/tracemonkey/runtime.rb +98 -0
  91. data/lib/johnson/tracemonkey.rb +13 -0
  92. data/lib/johnson/visitable.rb +16 -0
  93. data/lib/johnson/visitors/dot_visitor.rb +169 -0
  94. data/lib/johnson/visitors/ecma_visitor.rb +323 -0
  95. data/lib/johnson/visitors/enumerating_visitor.rb +15 -0
  96. data/lib/johnson/visitors/sexp_visitor.rb +174 -0
  97. data/lib/johnson/visitors/visitor.rb +91 -0
  98. data/lib/johnson/visitors.rb +5 -0
  99. data/lib/johnson.rb +53 -0
  100. data/test/generic/johnson_test.rb +16 -0
  101. data/test/generic/parser_test.rb +276 -0
  102. data/test/helper.rb +82 -0
  103. data/test/johnson/generic/browser_test.rb +43 -0
  104. data/test/johnson/generic/conversions/array_test.rb +70 -0
  105. data/test/johnson/generic/conversions/boolean_test.rb +17 -0
  106. data/test/johnson/generic/conversions/callable_test.rb +34 -0
  107. data/test/johnson/generic/conversions/file_test.rb +15 -0
  108. data/test/johnson/generic/conversions/helper.rb +1 -0
  109. data/test/johnson/generic/conversions/nil_test.rb +20 -0
  110. data/test/johnson/generic/conversions/number_test.rb +34 -0
  111. data/test/johnson/generic/conversions/regexp_test.rb +24 -0
  112. data/test/johnson/generic/conversions/string_test.rb +38 -0
  113. data/test/johnson/generic/conversions/struct_test.rb +15 -0
  114. data/test/johnson/generic/conversions/symbol_test.rb +19 -0
  115. data/test/johnson/generic/conversions/thread_test.rb +24 -0
  116. data/test/johnson/generic/default_test.rb +12 -0
  117. data/test/johnson/generic/error_test.rb +9 -0
  118. data/test/johnson/generic/extensions_test.rb +56 -0
  119. data/test/johnson/generic/helper.rb +1 -0
  120. data/test/johnson/generic/nodes/array_literal_test.rb +57 -0
  121. data/test/johnson/generic/nodes/array_node_test.rb +26 -0
  122. data/test/johnson/generic/nodes/binary_node_test.rb +61 -0
  123. data/test/johnson/generic/nodes/bracket_access_test.rb +16 -0
  124. data/test/johnson/generic/nodes/delete_test.rb +11 -0
  125. data/test/johnson/generic/nodes/do_while_test.rb +12 -0
  126. data/test/johnson/generic/nodes/dot_accessor_test.rb +15 -0
  127. data/test/johnson/generic/nodes/export_test.rb +11 -0
  128. data/test/johnson/generic/nodes/for_test.rb +54 -0
  129. data/test/johnson/generic/nodes/function_test.rb +71 -0
  130. data/test/johnson/generic/nodes/helper.rb +1 -0
  131. data/test/johnson/generic/nodes/if_test.rb +51 -0
  132. data/test/johnson/generic/nodes/import_test.rb +15 -0
  133. data/test/johnson/generic/nodes/label_test.rb +19 -0
  134. data/test/johnson/generic/nodes/let_test.rb +31 -0
  135. data/test/johnson/generic/nodes/object_literal_test.rb +110 -0
  136. data/test/johnson/generic/nodes/return_test.rb +16 -0
  137. data/test/johnson/generic/nodes/semi_test.rb +8 -0
  138. data/test/johnson/generic/nodes/switch_test.rb +55 -0
  139. data/test/johnson/generic/nodes/ternary_test.rb +25 -0
  140. data/test/johnson/generic/nodes/throw_test.rb +9 -0
  141. data/test/johnson/generic/nodes/try_node_test.rb +89 -0
  142. data/test/johnson/generic/nodes/typeof_test.rb +11 -0
  143. data/test/johnson/generic/nodes/unary_node_test.rb +23 -0
  144. data/test/johnson/generic/nodes/void_test.rb +11 -0
  145. data/test/johnson/generic/nodes/while_test.rb +26 -0
  146. data/test/johnson/generic/nodes/with_test.rb +10 -0
  147. data/test/johnson/generic/prelude_test.rb +79 -0
  148. data/test/johnson/generic/runtime_test.rb +140 -0
  149. data/test/johnson/generic/version_test.rb +13 -0
  150. data/test/johnson/generic/visitors/dot_visitor_test.rb +39 -0
  151. data/test/johnson/generic/visitors/enumerating_visitor_test.rb +12 -0
  152. data/test/johnson/generic/visitors/helper.rb +1 -0
  153. data/test/johnson/spidermonkey/context_test.rb +21 -0
  154. data/test/johnson/spidermonkey/immutable_node_test.rb +34 -0
  155. data/test/johnson/spidermonkey/js_land_proxy_test.rb +277 -0
  156. data/test/johnson/spidermonkey/ruby_land_proxy_test.rb +270 -0
  157. data/test/johnson/spidermonkey/runtime_test.rb +41 -0
  158. data/test/johnson/tracemonkey/context_test.rb +21 -0
  159. data/test/johnson/tracemonkey/immutable_node_test.rb +34 -0
  160. data/test/johnson/tracemonkey/js_land_proxy_test.rb +277 -0
  161. data/test/johnson/tracemonkey/ruby_land_proxy_test.rb +270 -0
  162. data/test/johnson/tracemonkey/runtime_test.rb +41 -0
  163. data/test/johnson/tracemonkey/split_global_test.rb +32 -0
  164. data/vendor/spidermonkey/.cvsignore +9 -0
  165. data/vendor/spidermonkey/Makefile.in +449 -0
  166. data/vendor/spidermonkey/Makefile.ref +365 -0
  167. data/vendor/spidermonkey/README.html +820 -0
  168. data/vendor/spidermonkey/SpiderMonkey.rsp +12 -0
  169. data/vendor/spidermonkey/Y.js +19 -0
  170. data/vendor/spidermonkey/build.mk +43 -0
  171. data/vendor/spidermonkey/config/AIX4.1.mk +65 -0
  172. data/vendor/spidermonkey/config/AIX4.2.mk +64 -0
  173. data/vendor/spidermonkey/config/AIX4.3.mk +65 -0
  174. data/vendor/spidermonkey/config/Darwin.mk +83 -0
  175. data/vendor/spidermonkey/config/Darwin1.3.mk +81 -0
  176. data/vendor/spidermonkey/config/Darwin1.4.mk +41 -0
  177. data/vendor/spidermonkey/config/Darwin5.2.mk +81 -0
  178. data/vendor/spidermonkey/config/Darwin5.3.mk +81 -0
  179. data/vendor/spidermonkey/config/HP-UXB.10.10.mk +77 -0
  180. data/vendor/spidermonkey/config/HP-UXB.10.20.mk +77 -0
  181. data/vendor/spidermonkey/config/HP-UXB.11.00.mk +80 -0
  182. data/vendor/spidermonkey/config/IRIX.mk +87 -0
  183. data/vendor/spidermonkey/config/IRIX5.3.mk +44 -0
  184. data/vendor/spidermonkey/config/IRIX6.1.mk +44 -0
  185. data/vendor/spidermonkey/config/IRIX6.2.mk +44 -0
  186. data/vendor/spidermonkey/config/IRIX6.3.mk +44 -0
  187. data/vendor/spidermonkey/config/IRIX6.5.mk +44 -0
  188. data/vendor/spidermonkey/config/Linux_All.mk +103 -0
  189. data/vendor/spidermonkey/config/Mac_OS10.0.mk +82 -0
  190. data/vendor/spidermonkey/config/OSF1V4.0.mk +72 -0
  191. data/vendor/spidermonkey/config/OSF1V5.0.mk +69 -0
  192. data/vendor/spidermonkey/config/SunOS4.1.4.mk +101 -0
  193. data/vendor/spidermonkey/config/SunOS5.10.mk +50 -0
  194. data/vendor/spidermonkey/config/SunOS5.3.mk +91 -0
  195. data/vendor/spidermonkey/config/SunOS5.4.mk +92 -0
  196. data/vendor/spidermonkey/config/SunOS5.5.1.mk +44 -0
  197. data/vendor/spidermonkey/config/SunOS5.5.mk +87 -0
  198. data/vendor/spidermonkey/config/SunOS5.6.mk +89 -0
  199. data/vendor/spidermonkey/config/SunOS5.7.mk +44 -0
  200. data/vendor/spidermonkey/config/SunOS5.8.mk +44 -0
  201. data/vendor/spidermonkey/config/SunOS5.9.mk +44 -0
  202. data/vendor/spidermonkey/config/WINNT4.0.mk +117 -0
  203. data/vendor/spidermonkey/config/WINNT5.0.mk +117 -0
  204. data/vendor/spidermonkey/config/WINNT5.1.mk +117 -0
  205. data/vendor/spidermonkey/config/WINNT5.2.mk +117 -0
  206. data/vendor/spidermonkey/config/WINNT6.0.mk +117 -0
  207. data/vendor/spidermonkey/config/dgux.mk +64 -0
  208. data/vendor/spidermonkey/config.mk +192 -0
  209. data/vendor/spidermonkey/editline/Makefile.ref +144 -0
  210. data/vendor/spidermonkey/editline/README +83 -0
  211. data/vendor/spidermonkey/editline/editline.3 +175 -0
  212. data/vendor/spidermonkey/editline/editline.c +1369 -0
  213. data/vendor/spidermonkey/editline/editline.h +135 -0
  214. data/vendor/spidermonkey/editline/sysunix.c +182 -0
  215. data/vendor/spidermonkey/editline/unix.h +82 -0
  216. data/vendor/spidermonkey/fdlibm/.cvsignore +7 -0
  217. data/vendor/spidermonkey/fdlibm/Makefile.in +127 -0
  218. data/vendor/spidermonkey/fdlibm/Makefile.ref +192 -0
  219. data/vendor/spidermonkey/fdlibm/e_acos.c +147 -0
  220. data/vendor/spidermonkey/fdlibm/e_acosh.c +105 -0
  221. data/vendor/spidermonkey/fdlibm/e_asin.c +156 -0
  222. data/vendor/spidermonkey/fdlibm/e_atan2.c +165 -0
  223. data/vendor/spidermonkey/fdlibm/e_atanh.c +110 -0
  224. data/vendor/spidermonkey/fdlibm/e_cosh.c +133 -0
  225. data/vendor/spidermonkey/fdlibm/e_exp.c +202 -0
  226. data/vendor/spidermonkey/fdlibm/e_fmod.c +184 -0
  227. data/vendor/spidermonkey/fdlibm/e_gamma.c +71 -0
  228. data/vendor/spidermonkey/fdlibm/e_gamma_r.c +70 -0
  229. data/vendor/spidermonkey/fdlibm/e_hypot.c +173 -0
  230. data/vendor/spidermonkey/fdlibm/e_j0.c +524 -0
  231. data/vendor/spidermonkey/fdlibm/e_j1.c +523 -0
  232. data/vendor/spidermonkey/fdlibm/e_jn.c +315 -0
  233. data/vendor/spidermonkey/fdlibm/e_lgamma.c +71 -0
  234. data/vendor/spidermonkey/fdlibm/e_lgamma_r.c +347 -0
  235. data/vendor/spidermonkey/fdlibm/e_log.c +184 -0
  236. data/vendor/spidermonkey/fdlibm/e_log10.c +134 -0
  237. data/vendor/spidermonkey/fdlibm/e_pow.c +386 -0
  238. data/vendor/spidermonkey/fdlibm/e_rem_pio2.c +222 -0
  239. data/vendor/spidermonkey/fdlibm/e_remainder.c +120 -0
  240. data/vendor/spidermonkey/fdlibm/e_scalb.c +89 -0
  241. data/vendor/spidermonkey/fdlibm/e_sinh.c +122 -0
  242. data/vendor/spidermonkey/fdlibm/e_sqrt.c +497 -0
  243. data/vendor/spidermonkey/fdlibm/fdlibm.h +273 -0
  244. data/vendor/spidermonkey/fdlibm/fdlibm.mak +1453 -0
  245. data/vendor/spidermonkey/fdlibm/fdlibm.mdp +0 -0
  246. data/vendor/spidermonkey/fdlibm/k_cos.c +135 -0
  247. data/vendor/spidermonkey/fdlibm/k_rem_pio2.c +354 -0
  248. data/vendor/spidermonkey/fdlibm/k_sin.c +114 -0
  249. data/vendor/spidermonkey/fdlibm/k_standard.c +785 -0
  250. data/vendor/spidermonkey/fdlibm/k_tan.c +170 -0
  251. data/vendor/spidermonkey/fdlibm/s_asinh.c +101 -0
  252. data/vendor/spidermonkey/fdlibm/s_atan.c +175 -0
  253. data/vendor/spidermonkey/fdlibm/s_cbrt.c +133 -0
  254. data/vendor/spidermonkey/fdlibm/s_ceil.c +120 -0
  255. data/vendor/spidermonkey/fdlibm/s_copysign.c +72 -0
  256. data/vendor/spidermonkey/fdlibm/s_cos.c +118 -0
  257. data/vendor/spidermonkey/fdlibm/s_erf.c +356 -0
  258. data/vendor/spidermonkey/fdlibm/s_expm1.c +267 -0
  259. data/vendor/spidermonkey/fdlibm/s_fabs.c +70 -0
  260. data/vendor/spidermonkey/fdlibm/s_finite.c +71 -0
  261. data/vendor/spidermonkey/fdlibm/s_floor.c +121 -0
  262. data/vendor/spidermonkey/fdlibm/s_frexp.c +99 -0
  263. data/vendor/spidermonkey/fdlibm/s_ilogb.c +85 -0
  264. data/vendor/spidermonkey/fdlibm/s_isnan.c +74 -0
  265. data/vendor/spidermonkey/fdlibm/s_ldexp.c +66 -0
  266. data/vendor/spidermonkey/fdlibm/s_lib_version.c +73 -0
  267. data/vendor/spidermonkey/fdlibm/s_log1p.c +211 -0
  268. data/vendor/spidermonkey/fdlibm/s_logb.c +79 -0
  269. data/vendor/spidermonkey/fdlibm/s_matherr.c +64 -0
  270. data/vendor/spidermonkey/fdlibm/s_modf.c +132 -0
  271. data/vendor/spidermonkey/fdlibm/s_nextafter.c +124 -0
  272. data/vendor/spidermonkey/fdlibm/s_rint.c +131 -0
  273. data/vendor/spidermonkey/fdlibm/s_scalbn.c +107 -0
  274. data/vendor/spidermonkey/fdlibm/s_signgam.c +40 -0
  275. data/vendor/spidermonkey/fdlibm/s_significand.c +68 -0
  276. data/vendor/spidermonkey/fdlibm/s_sin.c +118 -0
  277. data/vendor/spidermonkey/fdlibm/s_tan.c +112 -0
  278. data/vendor/spidermonkey/fdlibm/s_tanh.c +122 -0
  279. data/vendor/spidermonkey/fdlibm/w_acos.c +78 -0
  280. data/vendor/spidermonkey/fdlibm/w_acosh.c +78 -0
  281. data/vendor/spidermonkey/fdlibm/w_asin.c +80 -0
  282. data/vendor/spidermonkey/fdlibm/w_atan2.c +79 -0
  283. data/vendor/spidermonkey/fdlibm/w_atanh.c +81 -0
  284. data/vendor/spidermonkey/fdlibm/w_cosh.c +77 -0
  285. data/vendor/spidermonkey/fdlibm/w_exp.c +88 -0
  286. data/vendor/spidermonkey/fdlibm/w_fmod.c +78 -0
  287. data/vendor/spidermonkey/fdlibm/w_gamma.c +85 -0
  288. data/vendor/spidermonkey/fdlibm/w_gamma_r.c +81 -0
  289. data/vendor/spidermonkey/fdlibm/w_hypot.c +78 -0
  290. data/vendor/spidermonkey/fdlibm/w_j0.c +105 -0
  291. data/vendor/spidermonkey/fdlibm/w_j1.c +106 -0
  292. data/vendor/spidermonkey/fdlibm/w_jn.c +128 -0
  293. data/vendor/spidermonkey/fdlibm/w_lgamma.c +85 -0
  294. data/vendor/spidermonkey/fdlibm/w_lgamma_r.c +81 -0
  295. data/vendor/spidermonkey/fdlibm/w_log.c +78 -0
  296. data/vendor/spidermonkey/fdlibm/w_log10.c +81 -0
  297. data/vendor/spidermonkey/fdlibm/w_pow.c +99 -0
  298. data/vendor/spidermonkey/fdlibm/w_remainder.c +77 -0
  299. data/vendor/spidermonkey/fdlibm/w_scalb.c +95 -0
  300. data/vendor/spidermonkey/fdlibm/w_sinh.c +77 -0
  301. data/vendor/spidermonkey/fdlibm/w_sqrt.c +77 -0
  302. data/vendor/spidermonkey/javascript-trace.d +73 -0
  303. data/vendor/spidermonkey/js.c +3951 -0
  304. data/vendor/spidermonkey/js.mdp +0 -0
  305. data/vendor/spidermonkey/js.msg +308 -0
  306. data/vendor/spidermonkey/js.pkg +2 -0
  307. data/vendor/spidermonkey/js3240.rc +79 -0
  308. data/vendor/spidermonkey/jsOS240.def +654 -0
  309. data/vendor/spidermonkey/jsapi.c +5836 -0
  310. data/vendor/spidermonkey/jsapi.h +2624 -0
  311. data/vendor/spidermonkey/jsarena.c +450 -0
  312. data/vendor/spidermonkey/jsarena.h +318 -0
  313. data/vendor/spidermonkey/jsarray.c +2996 -0
  314. data/vendor/spidermonkey/jsarray.h +127 -0
  315. data/vendor/spidermonkey/jsatom.c +1045 -0
  316. data/vendor/spidermonkey/jsatom.h +442 -0
  317. data/vendor/spidermonkey/jsbit.h +253 -0
  318. data/vendor/spidermonkey/jsbool.c +176 -0
  319. data/vendor/spidermonkey/jsbool.h +73 -0
  320. data/vendor/spidermonkey/jsclist.h +139 -0
  321. data/vendor/spidermonkey/jscntxt.c +1348 -0
  322. data/vendor/spidermonkey/jscntxt.h +1120 -0
  323. data/vendor/spidermonkey/jscompat.h +57 -0
  324. data/vendor/spidermonkey/jsconfig.h +248 -0
  325. data/vendor/spidermonkey/jsconfig.mk +181 -0
  326. data/vendor/spidermonkey/jscpucfg.c +396 -0
  327. data/vendor/spidermonkey/jscpucfg.h +212 -0
  328. data/vendor/spidermonkey/jsdate.c +2390 -0
  329. data/vendor/spidermonkey/jsdate.h +124 -0
  330. data/vendor/spidermonkey/jsdbgapi.c +1802 -0
  331. data/vendor/spidermonkey/jsdbgapi.h +464 -0
  332. data/vendor/spidermonkey/jsdhash.c +868 -0
  333. data/vendor/spidermonkey/jsdhash.h +592 -0
  334. data/vendor/spidermonkey/jsdtoa.c +3167 -0
  335. data/vendor/spidermonkey/jsdtoa.h +130 -0
  336. data/vendor/spidermonkey/jsdtracef.c +317 -0
  337. data/vendor/spidermonkey/jsdtracef.h +77 -0
  338. data/vendor/spidermonkey/jsemit.c +6909 -0
  339. data/vendor/spidermonkey/jsemit.h +741 -0
  340. data/vendor/spidermonkey/jsexn.c +1371 -0
  341. data/vendor/spidermonkey/jsexn.h +96 -0
  342. data/vendor/spidermonkey/jsfile.c +2736 -0
  343. data/vendor/spidermonkey/jsfile.h +56 -0
  344. data/vendor/spidermonkey/jsfile.msg +90 -0
  345. data/vendor/spidermonkey/jsfun.c +2634 -0
  346. data/vendor/spidermonkey/jsfun.h +254 -0
  347. data/vendor/spidermonkey/jsgc.c +3562 -0
  348. data/vendor/spidermonkey/jsgc.h +403 -0
  349. data/vendor/spidermonkey/jshash.c +476 -0
  350. data/vendor/spidermonkey/jshash.h +151 -0
  351. data/vendor/spidermonkey/jsify.pl +485 -0
  352. data/vendor/spidermonkey/jsinterp.c +7007 -0
  353. data/vendor/spidermonkey/jsinterp.h +525 -0
  354. data/vendor/spidermonkey/jsinvoke.c +43 -0
  355. data/vendor/spidermonkey/jsiter.c +1067 -0
  356. data/vendor/spidermonkey/jsiter.h +122 -0
  357. data/vendor/spidermonkey/jskeyword.tbl +124 -0
  358. data/vendor/spidermonkey/jskwgen.c +460 -0
  359. data/vendor/spidermonkey/jslibmath.h +266 -0
  360. data/vendor/spidermonkey/jslock.c +1309 -0
  361. data/vendor/spidermonkey/jslock.h +313 -0
  362. data/vendor/spidermonkey/jslocko.asm +60 -0
  363. data/vendor/spidermonkey/jslog2.c +94 -0
  364. data/vendor/spidermonkey/jslong.c +264 -0
  365. data/vendor/spidermonkey/jslong.h +412 -0
  366. data/vendor/spidermonkey/jsmath.c +567 -0
  367. data/vendor/spidermonkey/jsmath.h +57 -0
  368. data/vendor/spidermonkey/jsnum.c +1239 -0
  369. data/vendor/spidermonkey/jsnum.h +283 -0
  370. data/vendor/spidermonkey/jsobj.c +5282 -0
  371. data/vendor/spidermonkey/jsobj.h +709 -0
  372. data/vendor/spidermonkey/jsopcode.c +5245 -0
  373. data/vendor/spidermonkey/jsopcode.h +394 -0
  374. data/vendor/spidermonkey/jsopcode.tbl +523 -0
  375. data/vendor/spidermonkey/jsotypes.h +202 -0
  376. data/vendor/spidermonkey/jsparse.c +6704 -0
  377. data/vendor/spidermonkey/jsparse.h +511 -0
  378. data/vendor/spidermonkey/jsprf.c +1264 -0
  379. data/vendor/spidermonkey/jsprf.h +150 -0
  380. data/vendor/spidermonkey/jsproto.tbl +128 -0
  381. data/vendor/spidermonkey/jsprvtd.h +267 -0
  382. data/vendor/spidermonkey/jspubtd.h +744 -0
  383. data/vendor/spidermonkey/jsregexp.c +4364 -0
  384. data/vendor/spidermonkey/jsregexp.h +183 -0
  385. data/vendor/spidermonkey/jsreops.tbl +145 -0
  386. data/vendor/spidermonkey/jsscan.c +2012 -0
  387. data/vendor/spidermonkey/jsscan.h +387 -0
  388. data/vendor/spidermonkey/jsscope.c +1957 -0
  389. data/vendor/spidermonkey/jsscope.h +418 -0
  390. data/vendor/spidermonkey/jsscript.c +1832 -0
  391. data/vendor/spidermonkey/jsscript.h +287 -0
  392. data/vendor/spidermonkey/jsshell.msg +50 -0
  393. data/vendor/spidermonkey/jsstddef.h +83 -0
  394. data/vendor/spidermonkey/jsstr.c +5005 -0
  395. data/vendor/spidermonkey/jsstr.h +641 -0
  396. data/vendor/spidermonkey/jstypes.h +475 -0
  397. data/vendor/spidermonkey/jsutil.c +345 -0
  398. data/vendor/spidermonkey/jsutil.h +157 -0
  399. data/vendor/spidermonkey/jsxdrapi.c +800 -0
  400. data/vendor/spidermonkey/jsxdrapi.h +218 -0
  401. data/vendor/spidermonkey/jsxml.c +8476 -0
  402. data/vendor/spidermonkey/jsxml.h +349 -0
  403. data/vendor/spidermonkey/lock_SunOS.s +119 -0
  404. data/vendor/spidermonkey/perfect.js +39 -0
  405. data/vendor/spidermonkey/plify_jsdhash.sed +36 -0
  406. data/vendor/spidermonkey/prmjtime.c +846 -0
  407. data/vendor/spidermonkey/prmjtime.h +103 -0
  408. data/vendor/spidermonkey/resource.h +15 -0
  409. data/vendor/spidermonkey/rules.mk +197 -0
  410. data/vendor/spidermonkey/win32.order +384 -0
  411. data/vendor/tracemonkey/Makefile.in +668 -0
  412. data/vendor/tracemonkey/Makefile.ref +483 -0
  413. data/vendor/tracemonkey/README.html +54 -0
  414. data/vendor/tracemonkey/SpiderMonkey.rsp +11 -0
  415. data/vendor/tracemonkey/Y.js +19 -0
  416. data/vendor/tracemonkey/aclocal.m4 +9 -0
  417. data/vendor/tracemonkey/bench.sh +5 -0
  418. data/vendor/tracemonkey/build/autoconf/acoutput-fast.pl +202 -0
  419. data/vendor/tracemonkey/build/autoconf/altoptions.m4 +154 -0
  420. data/vendor/tracemonkey/build/autoconf/config.guess +1537 -0
  421. data/vendor/tracemonkey/build/autoconf/config.sub +1595 -0
  422. data/vendor/tracemonkey/build/autoconf/install-sh +119 -0
  423. data/vendor/tracemonkey/build/autoconf/make-makefile +315 -0
  424. data/vendor/tracemonkey/build/autoconf/match-dir.sh +101 -0
  425. data/vendor/tracemonkey/build/autoconf/moznbytetype.m4 +136 -0
  426. data/vendor/tracemonkey/build/autoconf/nspr.m4 +82 -0
  427. data/vendor/tracemonkey/build/autoconf/pkg.m4 +59 -0
  428. data/vendor/tracemonkey/build/autoconf/update-makefile.sh +118 -0
  429. data/vendor/tracemonkey/build/cygwin-wrapper +75 -0
  430. data/vendor/tracemonkey/build/hcc +111 -0
  431. data/vendor/tracemonkey/build/hcpp +155 -0
  432. data/vendor/tracemonkey/build/unix/mddepend.pl +165 -0
  433. data/vendor/tracemonkey/build/unix/uniq.pl +63 -0
  434. data/vendor/tracemonkey/build/win32/pgomerge.py +40 -0
  435. data/vendor/tracemonkey/builtins.tbl +91 -0
  436. data/vendor/tracemonkey/call.js +13 -0
  437. data/vendor/tracemonkey/config/Makefile.in +106 -0
  438. data/vendor/tracemonkey/config/Moz/Milestone.pm +232 -0
  439. data/vendor/tracemonkey/config/autoconf.mk.in +362 -0
  440. data/vendor/tracemonkey/config/check-sync-dirs.py +103 -0
  441. data/vendor/tracemonkey/config/check-sync-exceptions +7 -0
  442. data/vendor/tracemonkey/config/config.mk +881 -0
  443. data/vendor/tracemonkey/config/fastcwd.pl +66 -0
  444. data/vendor/tracemonkey/config/gcc_hidden.h +2 -0
  445. data/vendor/tracemonkey/config/insure.mk +53 -0
  446. data/vendor/tracemonkey/config/make-system-wrappers.pl +59 -0
  447. data/vendor/tracemonkey/config/milestone.pl +112 -0
  448. data/vendor/tracemonkey/config/milestone.txt +13 -0
  449. data/vendor/tracemonkey/config/mkdepend/Makefile.in +84 -0
  450. data/vendor/tracemonkey/config/mkdepend/cppsetup.c +233 -0
  451. data/vendor/tracemonkey/config/mkdepend/def.h +184 -0
  452. data/vendor/tracemonkey/config/mkdepend/ifparser.c +551 -0
  453. data/vendor/tracemonkey/config/mkdepend/ifparser.h +83 -0
  454. data/vendor/tracemonkey/config/mkdepend/imakemdep.h +733 -0
  455. data/vendor/tracemonkey/config/mkdepend/include.c +337 -0
  456. data/vendor/tracemonkey/config/mkdepend/main.c +860 -0
  457. data/vendor/tracemonkey/config/mkdepend/mkdepend.man +382 -0
  458. data/vendor/tracemonkey/config/mkdepend/parse.c +686 -0
  459. data/vendor/tracemonkey/config/mkdepend/pr.c +124 -0
  460. data/vendor/tracemonkey/config/nfspwd.pl +50 -0
  461. data/vendor/tracemonkey/config/nsinstall.c +481 -0
  462. data/vendor/tracemonkey/config/nsinstall.py +155 -0
  463. data/vendor/tracemonkey/config/pathsub.c +247 -0
  464. data/vendor/tracemonkey/config/pathsub.h +74 -0
  465. data/vendor/tracemonkey/config/preprocessor.pl +671 -0
  466. data/vendor/tracemonkey/config/revdepth-nt.pl +48 -0
  467. data/vendor/tracemonkey/config/revdepth.pl +51 -0
  468. data/vendor/tracemonkey/config/rules.mk +2310 -0
  469. data/vendor/tracemonkey/config/static-checking-config.mk +21 -0
  470. data/vendor/tracemonkey/config/static-checking.js +92 -0
  471. data/vendor/tracemonkey/config/string-format.js +61 -0
  472. data/vendor/tracemonkey/config/system-headers +1035 -0
  473. data/vendor/tracemonkey/config/version.mk +85 -0
  474. data/vendor/tracemonkey/config/version_win.pl +442 -0
  475. data/vendor/tracemonkey/config.mk +206 -0
  476. data/vendor/tracemonkey/configure +14183 -0
  477. data/vendor/tracemonkey/configure.in +5363 -0
  478. data/vendor/tracemonkey/correct/check-3d-morph.js +55 -0
  479. data/vendor/tracemonkey/correct/check-3d-raytrace.js +445 -0
  480. data/vendor/tracemonkey/correct/check-access-binary-trees.js +52 -0
  481. data/vendor/tracemonkey/correct/check-access-fannkuch.js +66 -0
  482. data/vendor/tracemonkey/correct/check-access-nbody.js +171 -0
  483. data/vendor/tracemonkey/correct/check-access-nsieve.js +40 -0
  484. data/vendor/tracemonkey/correct/check-bitops-3bit-bits-in-byte.js +35 -0
  485. data/vendor/tracemonkey/correct/check-bitops-bits-in-byte.js +24 -0
  486. data/vendor/tracemonkey/correct/check-bitops-bitwise-and.js +29 -0
  487. data/vendor/tracemonkey/correct/check-bitops-nsieve-bits.js +40 -0
  488. data/vendor/tracemonkey/correct/check-controlflow-recursive.js +27 -0
  489. data/vendor/tracemonkey/correct/check-date-format-tofte.js +302 -0
  490. data/vendor/tracemonkey/correct/check-date-format-xparb.js +421 -0
  491. data/vendor/tracemonkey/correct/check-mont.js +119 -0
  492. data/vendor/tracemonkey/correct.sh +23 -0
  493. data/vendor/tracemonkey/dtoa.c +3335 -0
  494. data/vendor/tracemonkey/editline/Makefile.in +55 -0
  495. data/vendor/tracemonkey/editline/Makefile.ref +143 -0
  496. data/vendor/tracemonkey/editline/README +83 -0
  497. data/vendor/tracemonkey/editline/editline.3 +175 -0
  498. data/vendor/tracemonkey/editline/editline.c +1371 -0
  499. data/vendor/tracemonkey/editline/editline.h +135 -0
  500. data/vendor/tracemonkey/editline/sysunix.c +182 -0
  501. data/vendor/tracemonkey/editline/unix.h +82 -0
  502. data/vendor/tracemonkey/if.js +13 -0
  503. data/vendor/tracemonkey/imacro_asm.js.in +396 -0
  504. data/vendor/tracemonkey/imacros.c.out +1034 -0
  505. data/vendor/tracemonkey/imacros.jsasm +770 -0
  506. data/vendor/tracemonkey/javascript-trace.d +73 -0
  507. data/vendor/tracemonkey/jitstats.tbl +55 -0
  508. data/vendor/tracemonkey/js-config.h.in +82 -0
  509. data/vendor/tracemonkey/js-config.in +111 -0
  510. data/vendor/tracemonkey/js.mdp +0 -0
  511. data/vendor/tracemonkey/js.msg +312 -0
  512. data/vendor/tracemonkey/js3240.rc +79 -0
  513. data/vendor/tracemonkey/jsOS240.def +654 -0
  514. data/vendor/tracemonkey/jsapi.cpp +6005 -0
  515. data/vendor/tracemonkey/jsapi.h +2727 -0
  516. data/vendor/tracemonkey/jsarena.cpp +450 -0
  517. data/vendor/tracemonkey/jsarena.h +318 -0
  518. data/vendor/tracemonkey/jsarray.cpp +3664 -0
  519. data/vendor/tracemonkey/jsarray.h +238 -0
  520. data/vendor/tracemonkey/jsatom.cpp +1244 -0
  521. data/vendor/tracemonkey/jsatom.h +493 -0
  522. data/vendor/tracemonkey/jsbit.h +249 -0
  523. data/vendor/tracemonkey/jsbool.cpp +184 -0
  524. data/vendor/tracemonkey/jsbool.h +88 -0
  525. data/vendor/tracemonkey/jsbuiltins.cpp +415 -0
  526. data/vendor/tracemonkey/jsbuiltins.h +456 -0
  527. data/vendor/tracemonkey/jsclist.h +139 -0
  528. data/vendor/tracemonkey/jscntxt.cpp +1816 -0
  529. data/vendor/tracemonkey/jscntxt.h +1541 -0
  530. data/vendor/tracemonkey/jscompat.h +57 -0
  531. data/vendor/tracemonkey/jsconfig.mk +181 -0
  532. data/vendor/tracemonkey/jscpucfg.cpp +194 -0
  533. data/vendor/tracemonkey/jscpucfg.h +91 -0
  534. data/vendor/tracemonkey/jsdate.cpp +2465 -0
  535. data/vendor/tracemonkey/jsdate.h +129 -0
  536. data/vendor/tracemonkey/jsdbgapi.cpp +2017 -0
  537. data/vendor/tracemonkey/jsdbgapi.h +500 -0
  538. data/vendor/tracemonkey/jsdhash.cpp +876 -0
  539. data/vendor/tracemonkey/jsdhash.h +588 -0
  540. data/vendor/tracemonkey/jsdtoa.cpp +572 -0
  541. data/vendor/tracemonkey/jsdtoa.h +131 -0
  542. data/vendor/tracemonkey/jsdtracef.c +318 -0
  543. data/vendor/tracemonkey/jsdtracef.h +81 -0
  544. data/vendor/tracemonkey/jsemit.cpp +7292 -0
  545. data/vendor/tracemonkey/jsemit.h +802 -0
  546. data/vendor/tracemonkey/jsexn.cpp +1337 -0
  547. data/vendor/tracemonkey/jsexn.h +96 -0
  548. data/vendor/tracemonkey/jsfile.cpp +2747 -0
  549. data/vendor/tracemonkey/jsfile.h +56 -0
  550. data/vendor/tracemonkey/jsfile.msg +90 -0
  551. data/vendor/tracemonkey/jsfun.cpp +3089 -0
  552. data/vendor/tracemonkey/jsfun.h +366 -0
  553. data/vendor/tracemonkey/jsgc.cpp +3816 -0
  554. data/vendor/tracemonkey/jsgc.h +429 -0
  555. data/vendor/tracemonkey/jshash.cpp +477 -0
  556. data/vendor/tracemonkey/jshash.h +151 -0
  557. data/vendor/tracemonkey/jsify.pl +483 -0
  558. data/vendor/tracemonkey/jsinterp.cpp +7441 -0
  559. data/vendor/tracemonkey/jsinterp.h +666 -0
  560. data/vendor/tracemonkey/jsinvoke.cpp +42 -0
  561. data/vendor/tracemonkey/jsiter.cpp +1040 -0
  562. data/vendor/tracemonkey/jsiter.h +140 -0
  563. data/vendor/tracemonkey/jskeyword.tbl +124 -0
  564. data/vendor/tracemonkey/jskwgen.cpp +460 -0
  565. data/vendor/tracemonkey/jslibmath.h +69 -0
  566. data/vendor/tracemonkey/jslock.cpp +1512 -0
  567. data/vendor/tracemonkey/jslock.h +325 -0
  568. data/vendor/tracemonkey/jslocko.asm +60 -0
  569. data/vendor/tracemonkey/jslog2.cpp +111 -0
  570. data/vendor/tracemonkey/jslong.h +167 -0
  571. data/vendor/tracemonkey/jsmath.cpp +806 -0
  572. data/vendor/tracemonkey/jsmath.h +63 -0
  573. data/vendor/tracemonkey/jsnum.cpp +1374 -0
  574. data/vendor/tracemonkey/jsnum.h +280 -0
  575. data/vendor/tracemonkey/jsobj.cpp +6165 -0
  576. data/vendor/tracemonkey/jsobj.h +873 -0
  577. data/vendor/tracemonkey/json.cpp +1338 -0
  578. data/vendor/tracemonkey/json.h +108 -0
  579. data/vendor/tracemonkey/jsopcode.cpp +5484 -0
  580. data/vendor/tracemonkey/jsopcode.h +434 -0
  581. data/vendor/tracemonkey/jsopcode.tbl +591 -0
  582. data/vendor/tracemonkey/jsoplengen.cpp +121 -0
  583. data/vendor/tracemonkey/jsotypes.h +202 -0
  584. data/vendor/tracemonkey/jsparse.cpp +9272 -0
  585. data/vendor/tracemonkey/jsparse.h +900 -0
  586. data/vendor/tracemonkey/jsprf.cpp +1262 -0
  587. data/vendor/tracemonkey/jsprf.h +150 -0
  588. data/vendor/tracemonkey/jsproto.tbl +117 -0
  589. data/vendor/tracemonkey/jsprvtd.h +366 -0
  590. data/vendor/tracemonkey/jspubtd.h +585 -0
  591. data/vendor/tracemonkey/jsregexp.cpp +5051 -0
  592. data/vendor/tracemonkey/jsregexp.h +199 -0
  593. data/vendor/tracemonkey/jsreops.tbl +145 -0
  594. data/vendor/tracemonkey/jsscan.cpp +2040 -0
  595. data/vendor/tracemonkey/jsscan.h +467 -0
  596. data/vendor/tracemonkey/jsscope.cpp +1966 -0
  597. data/vendor/tracemonkey/jsscope.h +487 -0
  598. data/vendor/tracemonkey/jsscript.cpp +1932 -0
  599. data/vendor/tracemonkey/jsscript.h +345 -0
  600. data/vendor/tracemonkey/jsshell.msg +54 -0
  601. data/vendor/tracemonkey/jsstack.js +167 -0
  602. data/vendor/tracemonkey/jsstaticcheck.h +69 -0
  603. data/vendor/tracemonkey/jsstddef.h +87 -0
  604. data/vendor/tracemonkey/jsstdint.h +96 -0
  605. data/vendor/tracemonkey/jsstr.cpp +5277 -0
  606. data/vendor/tracemonkey/jsstr.h +702 -0
  607. data/vendor/tracemonkey/jstracer.cpp +10991 -0
  608. data/vendor/tracemonkey/jstracer.h +794 -0
  609. data/vendor/tracemonkey/jstypes.h +481 -0
  610. data/vendor/tracemonkey/jsutil.cpp +361 -0
  611. data/vendor/tracemonkey/jsutil.h +178 -0
  612. data/vendor/tracemonkey/jsversion.h +243 -0
  613. data/vendor/tracemonkey/jswince.asm +44 -0
  614. data/vendor/tracemonkey/jsxdrapi.cpp +800 -0
  615. data/vendor/tracemonkey/jsxdrapi.h +220 -0
  616. data/vendor/tracemonkey/jsxml.cpp +8327 -0
  617. data/vendor/tracemonkey/jsxml.h +305 -0
  618. data/vendor/tracemonkey/liveconnect/LiveConnect.dsp +157 -0
  619. data/vendor/tracemonkey/liveconnect/LiveConnectShell.dsp +120 -0
  620. data/vendor/tracemonkey/liveconnect/LiveConnectShell.dsw +44 -0
  621. data/vendor/tracemonkey/liveconnect/Makefile.in +105 -0
  622. data/vendor/tracemonkey/liveconnect/Makefile.ref +169 -0
  623. data/vendor/tracemonkey/liveconnect/README.html +712 -0
  624. data/vendor/tracemonkey/liveconnect/_jni/netscape_javascript_JSException.h +14 -0
  625. data/vendor/tracemonkey/liveconnect/_jni/netscape_javascript_JSObject.h +155 -0
  626. data/vendor/tracemonkey/liveconnect/classes/Makefile.in +89 -0
  627. data/vendor/tracemonkey/liveconnect/classes/Makefile.ref +57 -0
  628. data/vendor/tracemonkey/liveconnect/classes/netscape/Makefile.ref +47 -0
  629. data/vendor/tracemonkey/liveconnect/classes/netscape/javascript/JSException.java +140 -0
  630. data/vendor/tracemonkey/liveconnect/classes/netscape/javascript/JSObject.java +183 -0
  631. data/vendor/tracemonkey/liveconnect/classes/netscape/javascript/JSProxy.java +58 -0
  632. data/vendor/tracemonkey/liveconnect/classes/netscape/javascript/JSRunnable.java +70 -0
  633. data/vendor/tracemonkey/liveconnect/classes/netscape/javascript/JSUtil.java +59 -0
  634. data/vendor/tracemonkey/liveconnect/classes/netscape/javascript/Makefile.ref +53 -0
  635. data/vendor/tracemonkey/liveconnect/config/AIX4.1.mk +45 -0
  636. data/vendor/tracemonkey/liveconnect/config/AIX4.2.mk +45 -0
  637. data/vendor/tracemonkey/liveconnect/config/AIX4.3.mk +50 -0
  638. data/vendor/tracemonkey/liveconnect/config/HP-UXB.10.10.mk +43 -0
  639. data/vendor/tracemonkey/liveconnect/config/HP-UXB.10.20.mk +43 -0
  640. data/vendor/tracemonkey/liveconnect/config/HP-UXB.11.00.mk +43 -0
  641. data/vendor/tracemonkey/liveconnect/config/IRIX6.2.mk +43 -0
  642. data/vendor/tracemonkey/liveconnect/config/IRIX6.3.mk +43 -0
  643. data/vendor/tracemonkey/liveconnect/config/IRIX6.5.mk +43 -0
  644. data/vendor/tracemonkey/liveconnect/config/Linux_All.mk +73 -0
  645. data/vendor/tracemonkey/liveconnect/config/OSF1V4.0.mk +65 -0
  646. data/vendor/tracemonkey/liveconnect/config/OSF1V5.0.mk +62 -0
  647. data/vendor/tracemonkey/liveconnect/config/SunOS5.5.1.mk +55 -0
  648. data/vendor/tracemonkey/liveconnect/config/SunOS5.6.mk +39 -0
  649. data/vendor/tracemonkey/liveconnect/config/SunOS5.7.mk +39 -0
  650. data/vendor/tracemonkey/liveconnect/config/SunOS5.8.mk +39 -0
  651. data/vendor/tracemonkey/liveconnect/config/WINNT4.0.mk +53 -0
  652. data/vendor/tracemonkey/liveconnect/jsj.c +886 -0
  653. data/vendor/tracemonkey/liveconnect/jsj.msg +98 -0
  654. data/vendor/tracemonkey/liveconnect/jsj_JSObject.c +1377 -0
  655. data/vendor/tracemonkey/liveconnect/jsj_JavaArray.c +474 -0
  656. data/vendor/tracemonkey/liveconnect/jsj_JavaClass.c +737 -0
  657. data/vendor/tracemonkey/liveconnect/jsj_JavaMember.c +191 -0
  658. data/vendor/tracemonkey/liveconnect/jsj_JavaObject.c +1079 -0
  659. data/vendor/tracemonkey/liveconnect/jsj_JavaPackage.c +569 -0
  660. data/vendor/tracemonkey/liveconnect/jsj_array.c +207 -0
  661. data/vendor/tracemonkey/liveconnect/jsj_class.c +770 -0
  662. data/vendor/tracemonkey/liveconnect/jsj_convert.c +902 -0
  663. data/vendor/tracemonkey/liveconnect/jsj_field.c +421 -0
  664. data/vendor/tracemonkey/liveconnect/jsj_hash.c +488 -0
  665. data/vendor/tracemonkey/liveconnect/jsj_hash.h +161 -0
  666. data/vendor/tracemonkey/liveconnect/jsj_method.c +1825 -0
  667. data/vendor/tracemonkey/liveconnect/jsj_nodl.c +1 -0
  668. data/vendor/tracemonkey/liveconnect/jsj_private.h +677 -0
  669. data/vendor/tracemonkey/liveconnect/jsj_simpleapi.c +219 -0
  670. data/vendor/tracemonkey/liveconnect/jsj_utils.c +513 -0
  671. data/vendor/tracemonkey/liveconnect/jsjava.h +316 -0
  672. data/vendor/tracemonkey/liveconnect/netscape_javascript_JSObject.h +155 -0
  673. data/vendor/tracemonkey/liveconnect/nsCLiveconnect.cpp +785 -0
  674. data/vendor/tracemonkey/liveconnect/nsCLiveconnect.h +197 -0
  675. data/vendor/tracemonkey/liveconnect/nsCLiveconnectFactory.cpp +118 -0
  676. data/vendor/tracemonkey/liveconnect/nsCLiveconnectFactory.h +76 -0
  677. data/vendor/tracemonkey/liveconnect/nsILiveconnect.h +197 -0
  678. data/vendor/tracemonkey/liveconnect/nsISecureLiveconnect.h +94 -0
  679. data/vendor/tracemonkey/liveconnect/nsISecurityContext.h +136 -0
  680. data/vendor/tracemonkey/lock_SunOS.s +119 -0
  681. data/vendor/tracemonkey/mandelbrot-results.js +3 -0
  682. data/vendor/tracemonkey/math-partial-sums.js +32 -0
  683. data/vendor/tracemonkey/math-trace-tests.js +507 -0
  684. data/vendor/tracemonkey/md5.js +289 -0
  685. data/vendor/tracemonkey/nanojit/Assembler.cpp +1984 -0
  686. data/vendor/tracemonkey/nanojit/Assembler.h +375 -0
  687. data/vendor/tracemonkey/nanojit/Fragmento.cpp +651 -0
  688. data/vendor/tracemonkey/nanojit/Fragmento.h +237 -0
  689. data/vendor/tracemonkey/nanojit/LIR.cpp +2314 -0
  690. data/vendor/tracemonkey/nanojit/LIR.h +879 -0
  691. data/vendor/tracemonkey/nanojit/LIRopcode.tbl +252 -0
  692. data/vendor/tracemonkey/nanojit/Native.h +127 -0
  693. data/vendor/tracemonkey/nanojit/NativeARM.cpp +1742 -0
  694. data/vendor/tracemonkey/nanojit/NativeARM.h +844 -0
  695. data/vendor/tracemonkey/nanojit/NativeSparc.cpp +1130 -0
  696. data/vendor/tracemonkey/nanojit/NativeSparc.h +948 -0
  697. data/vendor/tracemonkey/nanojit/NativeThumb.cpp +1322 -0
  698. data/vendor/tracemonkey/nanojit/NativeThumb.h +525 -0
  699. data/vendor/tracemonkey/nanojit/Nativei386.cpp +1748 -0
  700. data/vendor/tracemonkey/nanojit/Nativei386.h +857 -0
  701. data/vendor/tracemonkey/nanojit/RegAlloc.cpp +183 -0
  702. data/vendor/tracemonkey/nanojit/RegAlloc.h +95 -0
  703. data/vendor/tracemonkey/nanojit/TraceTreeDrawer.cpp +306 -0
  704. data/vendor/tracemonkey/nanojit/TraceTreeDrawer.h +88 -0
  705. data/vendor/tracemonkey/nanojit/avmplus.cpp +56 -0
  706. data/vendor/tracemonkey/nanojit/avmplus.h +1016 -0
  707. data/vendor/tracemonkey/nanojit/nanojit.h +253 -0
  708. data/vendor/tracemonkey/perfect.js +39 -0
  709. data/vendor/tracemonkey/plify_jsdhash.sed +35 -0
  710. data/vendor/tracemonkey/prmjtime.cpp +869 -0
  711. data/vendor/tracemonkey/prmjtime.h +103 -0
  712. data/vendor/tracemonkey/ref-config/AIX4.1.mk +65 -0
  713. data/vendor/tracemonkey/ref-config/AIX4.2.mk +64 -0
  714. data/vendor/tracemonkey/ref-config/AIX4.3.mk +65 -0
  715. data/vendor/tracemonkey/ref-config/Darwin.mk +85 -0
  716. data/vendor/tracemonkey/ref-config/Darwin1.3.mk +81 -0
  717. data/vendor/tracemonkey/ref-config/Darwin1.4.mk +41 -0
  718. data/vendor/tracemonkey/ref-config/Darwin5.2.mk +81 -0
  719. data/vendor/tracemonkey/ref-config/Darwin5.3.mk +81 -0
  720. data/vendor/tracemonkey/ref-config/Darwin64.mk +72 -0
  721. data/vendor/tracemonkey/ref-config/HP-UXB.10.10.mk +77 -0
  722. data/vendor/tracemonkey/ref-config/HP-UXB.10.20.mk +77 -0
  723. data/vendor/tracemonkey/ref-config/HP-UXB.11.00.mk +80 -0
  724. data/vendor/tracemonkey/ref-config/IRIX.mk +87 -0
  725. data/vendor/tracemonkey/ref-config/IRIX5.3.mk +44 -0
  726. data/vendor/tracemonkey/ref-config/IRIX6.1.mk +44 -0
  727. data/vendor/tracemonkey/ref-config/IRIX6.2.mk +44 -0
  728. data/vendor/tracemonkey/ref-config/IRIX6.3.mk +44 -0
  729. data/vendor/tracemonkey/ref-config/IRIX6.5.mk +44 -0
  730. data/vendor/tracemonkey/ref-config/Linux_All.mk +105 -0
  731. data/vendor/tracemonkey/ref-config/Mac_OS10.0.mk +82 -0
  732. data/vendor/tracemonkey/ref-config/OSF1V4.0.mk +72 -0
  733. data/vendor/tracemonkey/ref-config/OSF1V5.0.mk +69 -0
  734. data/vendor/tracemonkey/ref-config/SunOS4.1.4.mk +101 -0
  735. data/vendor/tracemonkey/ref-config/SunOS5.10.mk +50 -0
  736. data/vendor/tracemonkey/ref-config/SunOS5.3.mk +91 -0
  737. data/vendor/tracemonkey/ref-config/SunOS5.4.mk +92 -0
  738. data/vendor/tracemonkey/ref-config/SunOS5.5.1.mk +44 -0
  739. data/vendor/tracemonkey/ref-config/SunOS5.5.mk +87 -0
  740. data/vendor/tracemonkey/ref-config/SunOS5.6.mk +89 -0
  741. data/vendor/tracemonkey/ref-config/SunOS5.7.mk +44 -0
  742. data/vendor/tracemonkey/ref-config/SunOS5.8.mk +44 -0
  743. data/vendor/tracemonkey/ref-config/SunOS5.9.mk +44 -0
  744. data/vendor/tracemonkey/ref-config/WINNT4.0.mk +118 -0
  745. data/vendor/tracemonkey/ref-config/WINNT5.0.mk +118 -0
  746. data/vendor/tracemonkey/ref-config/WINNT5.1.mk +118 -0
  747. data/vendor/tracemonkey/ref-config/WINNT5.2.mk +118 -0
  748. data/vendor/tracemonkey/ref-config/WINNT6.0.mk +118 -0
  749. data/vendor/tracemonkey/ref-config/dgux.mk +64 -0
  750. data/vendor/tracemonkey/resource.h +15 -0
  751. data/vendor/tracemonkey/rules.mk +206 -0
  752. data/vendor/tracemonkey/shell/Makefile.in +72 -0
  753. data/vendor/tracemonkey/shell/js.cpp +4719 -0
  754. data/vendor/tracemonkey/t/3d-cube.js +337 -0
  755. data/vendor/tracemonkey/t/3d-morph.js +54 -0
  756. data/vendor/tracemonkey/t/3d-raytrace.js +441 -0
  757. data/vendor/tracemonkey/t/access-binary-trees.js +50 -0
  758. data/vendor/tracemonkey/t/access-fannkuch.js +66 -0
  759. data/vendor/tracemonkey/t/access-nbody.js +169 -0
  760. data/vendor/tracemonkey/t/access-nsieve.js +38 -0
  761. data/vendor/tracemonkey/t/bitops-3bit-bits-in-byte.js +32 -0
  762. data/vendor/tracemonkey/t/bitops-bits-in-byte.js +21 -0
  763. data/vendor/tracemonkey/t/bitops-bitwise-and.js +28 -0
  764. data/vendor/tracemonkey/t/bitops-nsieve-bits.js +32 -0
  765. data/vendor/tracemonkey/t/controlflow-recursive.js +25 -0
  766. data/vendor/tracemonkey/t/crypto-aes.js +422 -0
  767. data/vendor/tracemonkey/t/crypto-md5.js +286 -0
  768. data/vendor/tracemonkey/t/crypto-sha1.js +224 -0
  769. data/vendor/tracemonkey/t/date-format-tofte.js +299 -0
  770. data/vendor/tracemonkey/t/date-format-xparb.js +417 -0
  771. data/vendor/tracemonkey/t/math-cordic.js +95 -0
  772. data/vendor/tracemonkey/t/math-partial-sums.js +33 -0
  773. data/vendor/tracemonkey/t/math-spectral-norm.js +51 -0
  774. data/vendor/tracemonkey/t/regexp-dna.js +1712 -0
  775. data/vendor/tracemonkey/t/string-base64.js +135 -0
  776. data/vendor/tracemonkey/t/string-fasta.js +85 -0
  777. data/vendor/tracemonkey/t/string-tagcloud.js +265 -0
  778. data/vendor/tracemonkey/t/string-unpack-code.js +68 -0
  779. data/vendor/tracemonkey/t/string-validate-input.js +89 -0
  780. data/vendor/tracemonkey/time.sh +13 -0
  781. data/vendor/tracemonkey/trace-test.js +5564 -0
  782. data/vendor/tracemonkey/v8/base.js +187 -0
  783. data/vendor/tracemonkey/v8/crypto.js +1689 -0
  784. data/vendor/tracemonkey/v8/deltablue.js +880 -0
  785. data/vendor/tracemonkey/v8/earley-boyer.js +4682 -0
  786. data/vendor/tracemonkey/v8/raytrace.js +3418 -0
  787. data/vendor/tracemonkey/v8/richards.js +539 -0
  788. data/vendor/tracemonkey/v8/run-crypto.js +44 -0
  789. data/vendor/tracemonkey/v8/run-deltablue.js +44 -0
  790. data/vendor/tracemonkey/v8/run-earley-boyer.js +44 -0
  791. data/vendor/tracemonkey/v8/run-raytrace.js +44 -0
  792. data/vendor/tracemonkey/v8/run-richards.js +44 -0
  793. data/vendor/tracemonkey/v8/run.js +49 -0
  794. data/vendor/tracemonkey/vprof/readme.txt +93 -0
  795. data/vendor/tracemonkey/vprof/vprof.cpp +360 -0
  796. data/vendor/tracemonkey/vprof/vprof.h +245 -0
  797. data/vendor/tracemonkey/xpconnect/Makefile.in +67 -0
  798. data/vendor/tracemonkey/xpconnect/crashtests/117307-1.html +20 -0
  799. data/vendor/tracemonkey/xpconnect/crashtests/193710.html +11 -0
  800. data/vendor/tracemonkey/xpconnect/crashtests/290162-1.html +5 -0
  801. data/vendor/tracemonkey/xpconnect/crashtests/326615-1.html +16 -0
  802. data/vendor/tracemonkey/xpconnect/crashtests/328553-1.html +13 -0
  803. data/vendor/tracemonkey/xpconnect/crashtests/346258-1.html +12 -0
  804. data/vendor/tracemonkey/xpconnect/crashtests/346512-1-frame1.xhtml +16 -0
  805. data/vendor/tracemonkey/xpconnect/crashtests/346512-1-frame2.xhtml +15 -0
  806. data/vendor/tracemonkey/xpconnect/crashtests/346512-1.xhtml +30 -0
  807. data/vendor/tracemonkey/xpconnect/crashtests/382133-1.html +3 -0
  808. data/vendor/tracemonkey/xpconnect/crashtests/386680-1.html +22 -0
  809. data/vendor/tracemonkey/xpconnect/crashtests/394810-1.html +4 -0
  810. data/vendor/tracemonkey/xpconnect/crashtests/400349-1.html +20 -0
  811. data/vendor/tracemonkey/xpconnect/crashtests/403356-1.html +13 -0
  812. data/vendor/tracemonkey/xpconnect/crashtests/418139-1.svg +22 -0
  813. data/vendor/tracemonkey/xpconnect/crashtests/420513-1.html +11 -0
  814. data/vendor/tracemonkey/xpconnect/crashtests/453935-1.html +37 -0
  815. data/vendor/tracemonkey/xpconnect/crashtests/462926.html +12 -0
  816. data/vendor/tracemonkey/xpconnect/crashtests/468552-1.html +18 -0
  817. data/vendor/tracemonkey/xpconnect/crashtests/471366-1.html +12 -0
  818. data/vendor/tracemonkey/xpconnect/crashtests/475185-1.html +13 -0
  819. data/vendor/tracemonkey/xpconnect/crashtests/475291-1.html +14 -0
  820. data/vendor/tracemonkey/xpconnect/crashtests/503286-1.html +23 -0
  821. data/vendor/tracemonkey/xpconnect/crashtests/crashtests.list +21 -0
  822. data/vendor/tracemonkey/xpconnect/idl/Makefile.in +78 -0
  823. data/vendor/tracemonkey/xpconnect/idl/XPCIDispatch.idl +51 -0
  824. data/vendor/tracemonkey/xpconnect/idl/mozIJSSubScriptLoader.idl +64 -0
  825. data/vendor/tracemonkey/xpconnect/idl/nsIActiveXSecurityPolicy.idl +67 -0
  826. data/vendor/tracemonkey/xpconnect/idl/nsIDispatchSupport.idl +119 -0
  827. data/vendor/tracemonkey/xpconnect/idl/nsIJSContextStack.idl +85 -0
  828. data/vendor/tracemonkey/xpconnect/idl/nsIJSRuntimeService.idl +51 -0
  829. data/vendor/tracemonkey/xpconnect/idl/nsIScriptError.idl +102 -0
  830. data/vendor/tracemonkey/xpconnect/idl/nsIScriptableInterfaces.idl +67 -0
  831. data/vendor/tracemonkey/xpconnect/idl/nsIXPCScriptNotify.idl +66 -0
  832. data/vendor/tracemonkey/xpconnect/idl/nsIXPCScriptable.idl +183 -0
  833. data/vendor/tracemonkey/xpconnect/idl/nsIXPCSecurityManager.idl +114 -0
  834. data/vendor/tracemonkey/xpconnect/idl/nsIXPConnect.idl +819 -0
  835. data/vendor/tracemonkey/xpconnect/idl/xpcIJSModuleLoader.idl +95 -0
  836. data/vendor/tracemonkey/xpconnect/idl/xpcIJSWeakReference.idl +49 -0
  837. data/vendor/tracemonkey/xpconnect/idl/xpccomponents.idl +254 -0
  838. data/vendor/tracemonkey/xpconnect/idl/xpcexception.idl +66 -0
  839. data/vendor/tracemonkey/xpconnect/idl/xpcjsid.idl +83 -0
  840. data/vendor/tracemonkey/xpconnect/loader/ISO8601DateUtils.jsm +176 -0
  841. data/vendor/tracemonkey/xpconnect/loader/Makefile.in +63 -0
  842. data/vendor/tracemonkey/xpconnect/loader/XPCOMUtils.jsm +267 -0
  843. data/vendor/tracemonkey/xpconnect/loader/mozJSComponentLoader.cpp +1717 -0
  844. data/vendor/tracemonkey/xpconnect/loader/mozJSComponentLoader.h +172 -0
  845. data/vendor/tracemonkey/xpconnect/loader/mozJSLoaderConstructors.h +101 -0
  846. data/vendor/tracemonkey/xpconnect/loader/mozJSSubScriptLoader.cpp +360 -0
  847. data/vendor/tracemonkey/xpconnect/loader/mozJSSubScriptLoader.h +66 -0
  848. data/vendor/tracemonkey/xpconnect/public/Makefile.in +54 -0
  849. data/vendor/tracemonkey/xpconnect/public/nsAXPCNativeCallContext.h +89 -0
  850. data/vendor/tracemonkey/xpconnect/public/nsAutoJSValHolder.h +168 -0
  851. data/vendor/tracemonkey/xpconnect/public/xpc_map_end.h +327 -0
  852. data/vendor/tracemonkey/xpconnect/sample/Makefile.in +71 -0
  853. data/vendor/tracemonkey/xpconnect/sample/README +39 -0
  854. data/vendor/tracemonkey/xpconnect/sample/xpcsample1.cpp +337 -0
  855. data/vendor/tracemonkey/xpconnect/sample/xpcsample1.idl +82 -0
  856. data/vendor/tracemonkey/xpconnect/sample/xpcsample1.js +21 -0
  857. data/vendor/tracemonkey/xpconnect/shell/Makefile.in +106 -0
  858. data/vendor/tracemonkey/xpconnect/shell/jsshell.msg +50 -0
  859. data/vendor/tracemonkey/xpconnect/shell/xpcshell.cpp +1817 -0
  860. data/vendor/tracemonkey/xpconnect/shell/xpcshellMacUtils.h +43 -0
  861. data/vendor/tracemonkey/xpconnect/shell/xpcshellMacUtils.mm +54 -0
  862. data/vendor/tracemonkey/xpconnect/src/Makefile.in +228 -0
  863. data/vendor/tracemonkey/xpconnect/src/README +3 -0
  864. data/vendor/tracemonkey/xpconnect/src/XPCCrossOriginWrapper.cpp +1186 -0
  865. data/vendor/tracemonkey/xpconnect/src/XPCDispConvert.cpp +593 -0
  866. data/vendor/tracemonkey/xpconnect/src/XPCDispInlines.h +667 -0
  867. data/vendor/tracemonkey/xpconnect/src/XPCDispInterface.cpp +383 -0
  868. data/vendor/tracemonkey/xpconnect/src/XPCDispObject.cpp +516 -0
  869. data/vendor/tracemonkey/xpconnect/src/XPCDispParamPropJSClass.cpp +223 -0
  870. data/vendor/tracemonkey/xpconnect/src/XPCDispParams.cpp +103 -0
  871. data/vendor/tracemonkey/xpconnect/src/XPCDispPrivate.h +1401 -0
  872. data/vendor/tracemonkey/xpconnect/src/XPCDispTearOff.cpp +547 -0
  873. data/vendor/tracemonkey/xpconnect/src/XPCDispTypeInfo.cpp +471 -0
  874. data/vendor/tracemonkey/xpconnect/src/XPCIDispatchClassInfo.cpp +139 -0
  875. data/vendor/tracemonkey/xpconnect/src/XPCIDispatchExtension.cpp +362 -0
  876. data/vendor/tracemonkey/xpconnect/src/XPCNativeWrapper.cpp +1350 -0
  877. data/vendor/tracemonkey/xpconnect/src/XPCNativeWrapper.h +88 -0
  878. data/vendor/tracemonkey/xpconnect/src/XPCSafeJSObjectWrapper.cpp +1148 -0
  879. data/vendor/tracemonkey/xpconnect/src/XPCSystemOnlyWrapper.cpp +718 -0
  880. data/vendor/tracemonkey/xpconnect/src/XPCWrapper.cpp +850 -0
  881. data/vendor/tracemonkey/xpconnect/src/XPCWrapper.h +394 -0
  882. data/vendor/tracemonkey/xpconnect/src/dom_quickstubs.qsconf +568 -0
  883. data/vendor/tracemonkey/xpconnect/src/nsDispatchSupport.cpp +348 -0
  884. data/vendor/tracemonkey/xpconnect/src/nsScriptError.cpp +201 -0
  885. data/vendor/tracemonkey/xpconnect/src/nsXPConnect.cpp +2609 -0
  886. data/vendor/tracemonkey/xpconnect/src/qsgen.py +1487 -0
  887. data/vendor/tracemonkey/xpconnect/src/xpc.msg +217 -0
  888. data/vendor/tracemonkey/xpconnect/src/xpcJSWeakReference.cpp +148 -0
  889. data/vendor/tracemonkey/xpconnect/src/xpcJSWeakReference.h +56 -0
  890. data/vendor/tracemonkey/xpconnect/src/xpccallcontext.cpp +579 -0
  891. data/vendor/tracemonkey/xpconnect/src/xpccomponents.cpp +4144 -0
  892. data/vendor/tracemonkey/xpconnect/src/xpccontext.cpp +115 -0
  893. data/vendor/tracemonkey/xpconnect/src/xpcconvert.cpp +2298 -0
  894. data/vendor/tracemonkey/xpconnect/src/xpcdebug.cpp +481 -0
  895. data/vendor/tracemonkey/xpconnect/src/xpcexception.cpp +502 -0
  896. data/vendor/tracemonkey/xpconnect/src/xpcforwards.h +114 -0
  897. data/vendor/tracemonkey/xpconnect/src/xpcinlines.h +772 -0
  898. data/vendor/tracemonkey/xpconnect/src/xpcjsid.cpp +1025 -0
  899. data/vendor/tracemonkey/xpconnect/src/xpcjsruntime.cpp +1342 -0
  900. data/vendor/tracemonkey/xpconnect/src/xpclog.cpp +128 -0
  901. data/vendor/tracemonkey/xpconnect/src/xpclog.h +101 -0
  902. data/vendor/tracemonkey/xpconnect/src/xpcmaps.cpp +761 -0
  903. data/vendor/tracemonkey/xpconnect/src/xpcmaps.h +713 -0
  904. data/vendor/tracemonkey/xpconnect/src/xpcmodule.cpp +136 -0
  905. data/vendor/tracemonkey/xpconnect/src/xpcprivate.h +4138 -0
  906. data/vendor/tracemonkey/xpconnect/src/xpcquickstubs.cpp +1128 -0
  907. data/vendor/tracemonkey/xpconnect/src/xpcquickstubs.h +480 -0
  908. data/vendor/tracemonkey/xpconnect/src/xpcruntimesvc.cpp +179 -0
  909. data/vendor/tracemonkey/xpconnect/src/xpcstack.cpp +342 -0
  910. data/vendor/tracemonkey/xpconnect/src/xpcstring.cpp +139 -0
  911. data/vendor/tracemonkey/xpconnect/src/xpcthreadcontext.cpp +599 -0
  912. data/vendor/tracemonkey/xpconnect/src/xpcthrower.cpp +399 -0
  913. data/vendor/tracemonkey/xpconnect/src/xpcvariant.cpp +850 -0
  914. data/vendor/tracemonkey/xpconnect/src/xpcwrappedjs.cpp +670 -0
  915. data/vendor/tracemonkey/xpconnect/src/xpcwrappedjsclass.cpp +2015 -0
  916. data/vendor/tracemonkey/xpconnect/src/xpcwrappednative.cpp +3482 -0
  917. data/vendor/tracemonkey/xpconnect/src/xpcwrappednativeinfo.cpp +945 -0
  918. data/vendor/tracemonkey/xpconnect/src/xpcwrappednativejsops.cpp +2003 -0
  919. data/vendor/tracemonkey/xpconnect/src/xpcwrappednativeproto.cpp +302 -0
  920. data/vendor/tracemonkey/xpconnect/src/xpcwrappednativescope.cpp +991 -0
  921. data/vendor/tracemonkey/xpconnect/tests/Makefile.in +75 -0
  922. data/vendor/tracemonkey/xpconnect/tests/TestXPC.cpp +785 -0
  923. data/vendor/tracemonkey/xpconnect/tests/chrome/Makefile.in +51 -0
  924. data/vendor/tracemonkey/xpconnect/tests/chrome/test_bug500931.xul +43 -0
  925. data/vendor/tracemonkey/xpconnect/tests/components/Makefile.in +85 -0
  926. data/vendor/tracemonkey/xpconnect/tests/components/xpctest_array.cpp +388 -0
  927. data/vendor/tracemonkey/xpconnect/tests/components/xpctest_attributes.cpp +305 -0
  928. data/vendor/tracemonkey/xpconnect/tests/components/xpctest_calljs.cpp +135 -0
  929. data/vendor/tracemonkey/xpconnect/tests/components/xpctest_child.cpp +225 -0
  930. data/vendor/tracemonkey/xpconnect/tests/components/xpctest_const.cpp +76 -0
  931. data/vendor/tracemonkey/xpconnect/tests/components/xpctest_domstring.cpp +118 -0
  932. data/vendor/tracemonkey/xpconnect/tests/components/xpctest_echo.cpp +616 -0
  933. data/vendor/tracemonkey/xpconnect/tests/components/xpctest_in.cpp +204 -0
  934. data/vendor/tracemonkey/xpconnect/tests/components/xpctest_inout.cpp +171 -0
  935. data/vendor/tracemonkey/xpconnect/tests/components/xpctest_module.cpp +77 -0
  936. data/vendor/tracemonkey/xpconnect/tests/components/xpctest_multiple.cpp +554 -0
  937. data/vendor/tracemonkey/xpconnect/tests/components/xpctest_noisy.cpp +154 -0
  938. data/vendor/tracemonkey/xpconnect/tests/components/xpctest_out.cpp +335 -0
  939. data/vendor/tracemonkey/xpconnect/tests/components/xpctest_overloaded.cpp +250 -0
  940. data/vendor/tracemonkey/xpconnect/tests/components/xpctest_private.h +192 -0
  941. data/vendor/tracemonkey/xpconnect/tests/components/xpctest_string.cpp +185 -0
  942. data/vendor/tracemonkey/xpconnect/tests/components/xpctest_variant.cpp +355 -0
  943. data/vendor/tracemonkey/xpconnect/tests/idispatch/COM/StdAfx.cpp +12 -0
  944. data/vendor/tracemonkey/xpconnect/tests/idispatch/COM/StdAfx.h +28 -0
  945. data/vendor/tracemonkey/xpconnect/tests/idispatch/COM/XPCDispUtilities.h +28 -0
  946. data/vendor/tracemonkey/xpconnect/tests/idispatch/COM/XPCIDispatchTest.cpp +86 -0
  947. data/vendor/tracemonkey/xpconnect/tests/idispatch/COM/XPCIDispatchTest.def +9 -0
  948. data/vendor/tracemonkey/xpconnect/tests/idispatch/COM/XPCIDispatchTest.dsp +318 -0
  949. data/vendor/tracemonkey/xpconnect/tests/idispatch/COM/XPCIDispatchTest.dsw +29 -0
  950. data/vendor/tracemonkey/xpconnect/tests/idispatch/COM/XPCIDispatchTest.idl +454 -0
  951. data/vendor/tracemonkey/xpconnect/tests/idispatch/COM/XPCIDispatchTest.rc +145 -0
  952. data/vendor/tracemonkey/xpconnect/tests/idispatch/COM/nsXPCDispSimple.cpp +44 -0
  953. data/vendor/tracemonkey/xpconnect/tests/idispatch/COM/nsXPCDispSimple.h +56 -0
  954. data/vendor/tracemonkey/xpconnect/tests/idispatch/COM/nsXPCDispSimple.rgs +23 -0
  955. data/vendor/tracemonkey/xpconnect/tests/idispatch/COM/nsXPCDispTestArrays.cpp +221 -0
  956. data/vendor/tracemonkey/xpconnect/tests/idispatch/COM/nsXPCDispTestArrays.h +53 -0
  957. data/vendor/tracemonkey/xpconnect/tests/idispatch/COM/nsXPCDispTestArrays.rgs +23 -0
  958. data/vendor/tracemonkey/xpconnect/tests/idispatch/COM/nsXPCDispTestMethods.cpp +699 -0
  959. data/vendor/tracemonkey/xpconnect/tests/idispatch/COM/nsXPCDispTestMethods.h +138 -0
  960. data/vendor/tracemonkey/xpconnect/tests/idispatch/COM/nsXPCDispTestMethods.rgs +23 -0
  961. data/vendor/tracemonkey/xpconnect/tests/idispatch/COM/nsXPCDispTestNoIDispatch.cpp +23 -0
  962. data/vendor/tracemonkey/xpconnect/tests/idispatch/COM/nsXPCDispTestNoIDispatch.h +41 -0
  963. data/vendor/tracemonkey/xpconnect/tests/idispatch/COM/nsXPCDispTestNoIDispatch.rgs +23 -0
  964. data/vendor/tracemonkey/xpconnect/tests/idispatch/COM/nsXPCDispTestProperties.cpp +256 -0
  965. data/vendor/tracemonkey/xpconnect/tests/idispatch/COM/nsXPCDispTestProperties.h +88 -0
  966. data/vendor/tracemonkey/xpconnect/tests/idispatch/COM/nsXPCDispTestProperties.rgs +23 -0
  967. data/vendor/tracemonkey/xpconnect/tests/idispatch/COM/nsXPCDispTestScriptOff.cpp +23 -0
  968. data/vendor/tracemonkey/xpconnect/tests/idispatch/COM/nsXPCDispTestScriptOff.h +43 -0
  969. data/vendor/tracemonkey/xpconnect/tests/idispatch/COM/nsXPCDispTestScriptOff.rgs +23 -0
  970. data/vendor/tracemonkey/xpconnect/tests/idispatch/COM/nsXPCDispTestScriptOn.cpp +29 -0
  971. data/vendor/tracemonkey/xpconnect/tests/idispatch/COM/nsXPCDispTestScriptOn.h +45 -0
  972. data/vendor/tracemonkey/xpconnect/tests/idispatch/COM/nsXPCDispTestScriptOn.rgs +23 -0
  973. data/vendor/tracemonkey/xpconnect/tests/idispatch/COM/nsXPCDispTestWrappedJS.cpp +177 -0
  974. data/vendor/tracemonkey/xpconnect/tests/idispatch/COM/nsXPCDispTestWrappedJS.h +50 -0
  975. data/vendor/tracemonkey/xpconnect/tests/idispatch/COM/nsXPCDispTestWrappedJS.rgs +23 -0
  976. data/vendor/tracemonkey/xpconnect/tests/idispatch/COM/resource.h +36 -0
  977. data/vendor/tracemonkey/xpconnect/tests/idispatch/Tests/WrappedCOM/Arrays/XPCIDispatchArrayTests.js +54 -0
  978. data/vendor/tracemonkey/xpconnect/tests/idispatch/Tests/WrappedCOM/Attributes/XPCIDispatchAttributeTests.js +150 -0
  979. data/vendor/tracemonkey/xpconnect/tests/idispatch/Tests/WrappedCOM/General/XPCIDispatchInstantiations.js +122 -0
  980. data/vendor/tracemonkey/xpconnect/tests/idispatch/Tests/WrappedCOM/General/XPCStress.js +58 -0
  981. data/vendor/tracemonkey/xpconnect/tests/idispatch/Tests/WrappedCOM/Methods/XPCIDispatchMethodTests.js +376 -0
  982. data/vendor/tracemonkey/xpconnect/tests/idispatch/Tests/WrappedCOM/shell.js +377 -0
  983. data/vendor/tracemonkey/xpconnect/tests/idispatch/Tests/WrappedJS/General/XPCIDispatchTestWrappedJS.js +76 -0
  984. data/vendor/tracemonkey/xpconnect/tests/idispatch/Tests/WrappedJS/shell.js +377 -0
  985. data/vendor/tracemonkey/xpconnect/tests/idispatch/Tests/exectests.cmd +1 -0
  986. data/vendor/tracemonkey/xpconnect/tests/idispatch/Tests/jsDriver.pl +1288 -0
  987. data/vendor/tracemonkey/xpconnect/tests/idl/Makefile.in +61 -0
  988. data/vendor/tracemonkey/xpconnect/tests/idl/xpctest.idl +312 -0
  989. data/vendor/tracemonkey/xpconnect/tests/idl/xpctest2.idl +51 -0
  990. data/vendor/tracemonkey/xpconnect/tests/idl/xpctest_attributes.idl +67 -0
  991. data/vendor/tracemonkey/xpconnect/tests/idl/xpctest_calljs.idl +59 -0
  992. data/vendor/tracemonkey/xpconnect/tests/idl/xpctest_const.idl +61 -0
  993. data/vendor/tracemonkey/xpconnect/tests/idl/xpctest_domstring.idl +59 -0
  994. data/vendor/tracemonkey/xpconnect/tests/idl/xpctest_in.idl +88 -0
  995. data/vendor/tracemonkey/xpconnect/tests/idl/xpctest_inout.idl +86 -0
  996. data/vendor/tracemonkey/xpconnect/tests/idl/xpctest_multiple.idl +77 -0
  997. data/vendor/tracemonkey/xpconnect/tests/idl/xpctest_out.idl +142 -0
  998. data/vendor/tracemonkey/xpconnect/tests/js/checkid.js +82 -0
  999. data/vendor/tracemonkey/xpconnect/tests/js/evaluate.js +311 -0
  1000. data/vendor/tracemonkey/xpconnect/tests/js/exceptions-2.js +153 -0
  1001. data/vendor/tracemonkey/xpconnect/tests/js/exceptions-3.js +194 -0
  1002. data/vendor/tracemonkey/xpconnect/tests/js/exceptions-4.js +297 -0
  1003. data/vendor/tracemonkey/xpconnect/tests/js/exceptions-5.js +343 -0
  1004. data/vendor/tracemonkey/xpconnect/tests/js/exceptions.js +230 -0
  1005. data/vendor/tracemonkey/xpconnect/tests/js/javascript.js +96 -0
  1006. data/vendor/tracemonkey/xpconnect/tests/js/multiple-2.js +151 -0
  1007. data/vendor/tracemonkey/xpconnect/tests/js/multiple-3.js +148 -0
  1008. data/vendor/tracemonkey/xpconnect/tests/js/multiple-4.js +152 -0
  1009. data/vendor/tracemonkey/xpconnect/tests/js/multiple.js +137 -0
  1010. data/vendor/tracemonkey/xpconnect/tests/js/notscriptable.js +104 -0
  1011. data/vendor/tracemonkey/xpconnect/tests/js/old/simpletest.js +36 -0
  1012. data/vendor/tracemonkey/xpconnect/tests/js/old/speed.js +60 -0
  1013. data/vendor/tracemonkey/xpconnect/tests/js/old/testxpc.js +464 -0
  1014. data/vendor/tracemonkey/xpconnect/tests/js/old/threads.js +74 -0
  1015. data/vendor/tracemonkey/xpconnect/tests/js/old/try.js +27 -0
  1016. data/vendor/tracemonkey/xpconnect/tests/js/old/xpctest_array.js +308 -0
  1017. data/vendor/tracemonkey/xpconnect/tests/js/old/xpctest_callcontext.js +68 -0
  1018. data/vendor/tracemonkey/xpconnect/tests/js/old/xpctest_echo.js +636 -0
  1019. data/vendor/tracemonkey/xpconnect/tests/js/old/xpctest_enum_and_sort.js +28 -0
  1020. data/vendor/tracemonkey/xpconnect/tests/js/old/xpctest_enum_constants.js +15 -0
  1021. data/vendor/tracemonkey/xpconnect/tests/js/old/xpctest_enum_create.js +200 -0
  1022. data/vendor/tracemonkey/xpconnect/tests/js/old/xpctest_exceptions.js +167 -0
  1023. data/vendor/tracemonkey/xpconnect/tests/js/old/xpctest_ids.js +135 -0
  1024. data/vendor/tracemonkey/xpconnect/tests/js/old/xpctest_observer.js +36 -0
  1025. data/vendor/tracemonkey/xpconnect/tests/js/old/xpctest_overloaded.js +14 -0
  1026. data/vendor/tracemonkey/xpconnect/tests/js/old/xpctest_primitives.js +141 -0
  1027. data/vendor/tracemonkey/xpconnect/tests/js/old/xpctest_propertybag.js +36 -0
  1028. data/vendor/tracemonkey/xpconnect/tests/js/old/xpctest_variant.js +339 -0
  1029. data/vendor/tracemonkey/xpconnect/tests/js/old/xpctest_variant_array.js +30 -0
  1030. data/vendor/tracemonkey/xpconnect/tests/js/readonlyattributes.js +74 -0
  1031. data/vendor/tracemonkey/xpconnect/tests/js/readwriteattributes.js +101 -0
  1032. data/vendor/tracemonkey/xpconnect/tests/js/scriptable.js +120 -0
  1033. data/vendor/tracemonkey/xpconnect/tests/js/testin.js +203 -0
  1034. data/vendor/tracemonkey/xpconnect/tests/js/xpcfun.js +234 -0
  1035. data/vendor/tracemonkey/xpconnect/tests/js/xpctest_primitives.js +200 -0
  1036. data/vendor/tracemonkey/xpconnect/tests/mochitest/Makefile.in +66 -0
  1037. data/vendor/tracemonkey/xpconnect/tests/mochitest/bug500931_helper.html +7 -0
  1038. data/vendor/tracemonkey/xpconnect/tests/mochitest/inner.html +7 -0
  1039. data/vendor/tracemonkey/xpconnect/tests/mochitest/test_bug361111.xul +29 -0
  1040. data/vendor/tracemonkey/xpconnect/tests/mochitest/test_bug384632.html +32 -0
  1041. data/vendor/tracemonkey/xpconnect/tests/mochitest/test_bug390488.html +65 -0
  1042. data/vendor/tracemonkey/xpconnect/tests/mochitest/test_bug393269.html +46 -0
  1043. data/vendor/tracemonkey/xpconnect/tests/mochitest/test_bug396851.html +43 -0
  1044. data/vendor/tracemonkey/xpconnect/tests/mochitest/test_bug428021.html +41 -0
  1045. data/vendor/tracemonkey/xpconnect/tests/mochitest/test_bug446584.html +49 -0
  1046. data/vendor/tracemonkey/xpconnect/tests/mochitest/test_bug448587.html +31 -0
  1047. data/vendor/tracemonkey/xpconnect/tests/mochitest/test_bug462428.html +42 -0
  1048. data/vendor/tracemonkey/xpconnect/tests/mochitest/test_bug478438.html +66 -0
  1049. data/vendor/tracemonkey/xpconnect/tests/mochitest/test_bug484107.html +100 -0
  1050. data/vendor/tracemonkey/xpconnect/tests/mochitest/test_bug484459.html +36 -0
  1051. data/vendor/tracemonkey/xpconnect/tests/mochitest/test_bug500691.html +28 -0
  1052. data/vendor/tracemonkey/xpconnect/tests/mochitest/test_wrappers.html +116 -0
  1053. data/vendor/tracemonkey/xpconnect/tests/unit/bogus_element_type.jsm +1 -0
  1054. data/vendor/tracemonkey/xpconnect/tests/unit/bogus_exports_type.jsm +1 -0
  1055. data/vendor/tracemonkey/xpconnect/tests/unit/bug451678_subscript.js +2 -0
  1056. data/vendor/tracemonkey/xpconnect/tests/unit/component_import.js +144 -0
  1057. data/vendor/tracemonkey/xpconnect/tests/unit/recursive_importA.jsm +44 -0
  1058. data/vendor/tracemonkey/xpconnect/tests/unit/recursive_importB.jsm +45 -0
  1059. data/vendor/tracemonkey/xpconnect/tests/unit/syntax_error.jsm +1 -0
  1060. data/vendor/tracemonkey/xpconnect/tests/unit/test_bogus_files.js +88 -0
  1061. data/vendor/tracemonkey/xpconnect/tests/unit/test_bug408412.js +51 -0
  1062. data/vendor/tracemonkey/xpconnect/tests/unit/test_bug451678.js +52 -0
  1063. data/vendor/tracemonkey/xpconnect/tests/unit/test_bug_442086.js +68 -0
  1064. data/vendor/tracemonkey/xpconnect/tests/unit/test_import.js +127 -0
  1065. data/vendor/tracemonkey/xpconnect/tests/unit/test_js_weak_references.js +63 -0
  1066. data/vendor/tracemonkey/xpconnect/tests/unit/test_recursive_import.js +62 -0
  1067. data/vendor/tracemonkey/xpconnect/tools/Makefile.in +49 -0
  1068. data/vendor/tracemonkey/xpconnect/tools/idl/Makefile.in +53 -0
  1069. data/vendor/tracemonkey/xpconnect/tools/idl/nsIXPCToolsCompiler.idl +60 -0
  1070. data/vendor/tracemonkey/xpconnect/tools/idl/nsIXPCToolsProfiler.idl +57 -0
  1071. data/vendor/tracemonkey/xpconnect/tools/js/CompileJSFiles.js +28 -0
  1072. data/vendor/tracemonkey/xpconnect/tools/js/ListJSFiles.js +18 -0
  1073. data/vendor/tracemonkey/xpconnect/tools/src/Makefile.in +76 -0
  1074. data/vendor/tracemonkey/xpconnect/tools/src/nsXPCToolsCompiler.cpp +161 -0
  1075. data/vendor/tracemonkey/xpconnect/tools/src/nsXPCToolsModule.cpp +65 -0
  1076. data/vendor/tracemonkey/xpconnect/tools/src/nsXPCToolsProfiler.cpp +370 -0
  1077. data/vendor/tracemonkey/xpconnect/tools/src/xpctools_private.h +236 -0
  1078. metadata +1164 -0
@@ -0,0 +1,4682 @@
1
+ // This file is automatically generated by scheme2js, except for the
2
+ // benchmark harness code at the beginning and end of the file.
3
+
4
+ var EarleyBoyer = new BenchmarkSuite('EarleyBoyer', 765819, [
5
+ new Benchmark("Earley", function () { BgL_earleyzd2benchmarkzd2(); }),
6
+ new Benchmark("Boyer", function () { BgL_nboyerzd2benchmarkzd2(); })
7
+ ]);
8
+
9
+
10
+ /************* GENERATED FILE - DO NOT EDIT *************/
11
+ /************* GENERATED FILE - DO NOT EDIT *************/
12
+ /************* GENERATED FILE - DO NOT EDIT *************/
13
+ /************* GENERATED FILE - DO NOT EDIT *************/
14
+ /************* GENERATED FILE - DO NOT EDIT *************/
15
+ /************* GENERATED FILE - DO NOT EDIT *************/
16
+ /************* GENERATED FILE - DO NOT EDIT *************/
17
+ /************* GENERATED FILE - DO NOT EDIT *************/
18
+ /*
19
+ * To use write/prints/... the default-output port has to be set first.
20
+ * Simply setting SC_DEFAULT_OUT and SC_ERROR_OUT to the desired values
21
+ * should do the trick.
22
+ * In the following example the std-out and error-port are redirected to
23
+ * a DIV.
24
+ function initRuntime() {
25
+ function escapeHTML(s) {
26
+ var tmp = s;
27
+ tmp = tmp.replace(/&/g, "&");
28
+ tmp = tmp.replace(/</g, "&lt;");
29
+ tmp = tmp.replace(/>/g, "&gt;");
30
+ tmp = tmp.replace(/ /g, "&nbsp;");
31
+ tmp = tmp.replace(/\n/g, "<br />");
32
+ tmp = tmp.replace(/\t/g, "&nbsp;&nbsp;&nbsp;&nbsp");
33
+ return tmp;
34
+
35
+ }
36
+
37
+ document.write("<div id='stdout'></div>");
38
+ SC_DEFAULT_OUT = new sc_GenericOutputPort(
39
+ function(s) {
40
+ var stdout = document.getElementById('stdout');
41
+ stdout.innerHTML = stdout.innerHTML + escapeHTML(s);
42
+ });
43
+ SC_ERROR_OUT = SC_DEFAULT_OUT;
44
+ }
45
+ */
46
+
47
+
48
+ function sc_print_debug() {
49
+ sc_print.apply(null, arguments);
50
+ }
51
+ /*** META ((export *js*)) */
52
+ var sc_JS_GLOBALS = this;
53
+
54
+ var __sc_LINE=-1;
55
+ var __sc_FILE="";
56
+
57
+ /*** META ((export #t)) */
58
+ function sc_alert() {
59
+ var len = arguments.length;
60
+ var s = "";
61
+ var i;
62
+
63
+ for( i = 0; i < len; i++ ) {
64
+ s += sc_toDisplayString(arguments[ i ]);
65
+ }
66
+
67
+ return alert( s );
68
+ }
69
+
70
+ /*** META ((export #t)) */
71
+ function sc_typeof( x ) {
72
+ return typeof x;
73
+ }
74
+
75
+ /*** META ((export #t)) */
76
+ function sc_error() {
77
+ var a = [sc_jsstring2symbol("*error*")];
78
+ for (var i = 0; i < arguments.length; i++) {
79
+ a[i+1] = arguments[i];
80
+ }
81
+ throw a;
82
+ }
83
+
84
+ /*** META ((export #t)
85
+ (peephole (prefix "throw ")))
86
+ */
87
+ function sc_raise(obj) {
88
+ throw obj;
89
+ }
90
+
91
+ /*** META ((export with-handler-lambda)) */
92
+ function sc_withHandlerLambda(handler, body) {
93
+ try {
94
+ return body();
95
+ } catch(e) {
96
+ if (!e._internalException)
97
+ return handler(e);
98
+ else
99
+ throw e;
100
+ }
101
+ }
102
+
103
+ var sc_properties = new Object();
104
+
105
+ /*** META ((export #t)) */
106
+ function sc_putpropBang(sym, key, val) {
107
+ var ht = sc_properties[sym];
108
+ if (!ht) {
109
+ ht = new Object();
110
+ sc_properties[sym] = ht;
111
+ }
112
+ ht[key] = val;
113
+ }
114
+
115
+ /*** META ((export #t)) */
116
+ function sc_getprop(sym, key) {
117
+ var ht = sc_properties[sym];
118
+ if (ht) {
119
+ if (key in ht)
120
+ return ht[key];
121
+ else
122
+ return false;
123
+ } else
124
+ return false;
125
+ }
126
+
127
+ /*** META ((export #t)) */
128
+ function sc_rempropBang(sym, key) {
129
+ var ht = sc_properties[sym];
130
+ if (ht)
131
+ delete ht[key];
132
+ }
133
+
134
+ /*** META ((export #t)) */
135
+ function sc_any2String(o) {
136
+ return jsstring2string(sc_toDisplayString(o));
137
+ }
138
+
139
+ /*** META ((export #t)
140
+ (peephole (infix 2 2 "==="))
141
+ (type bool))
142
+ */
143
+ function sc_isEqv(o1, o2) {
144
+ return (o1 === o2);
145
+ }
146
+
147
+ /*** META ((export #t)
148
+ (peephole (infix 2 2 "==="))
149
+ (type bool))
150
+ */
151
+ function sc_isEq(o1, o2) {
152
+ return (o1 === o2);
153
+ }
154
+
155
+ /*** META ((export #t)
156
+ (type bool))
157
+ */
158
+ function sc_isNumber(n) {
159
+ return (typeof n === "number");
160
+ }
161
+
162
+ /*** META ((export #t)
163
+ (type bool))
164
+ */
165
+ function sc_isComplex(n) {
166
+ return sc_isNumber(n);
167
+ }
168
+
169
+ /*** META ((export #t)
170
+ (type bool))
171
+ */
172
+ function sc_isReal(n) {
173
+ return sc_isNumber(n);
174
+ }
175
+
176
+ /*** META ((export #t)
177
+ (type bool))
178
+ */
179
+ function sc_isRational(n) {
180
+ return sc_isReal(n);
181
+ }
182
+
183
+ /*** META ((export #t)
184
+ (type bool))
185
+ */
186
+ function sc_isInteger(n) {
187
+ return (parseInt(n) === n);
188
+ }
189
+
190
+ /*** META ((export #t)
191
+ (type bool)
192
+ (peephole (postfix ", false")))
193
+ */
194
+ // we don't have exact numbers...
195
+ function sc_isExact(n) {
196
+ return false;
197
+ }
198
+
199
+ /*** META ((export #t)
200
+ (peephole (postfix ", true"))
201
+ (type bool))
202
+ */
203
+ function sc_isInexact(n) {
204
+ return true;
205
+ }
206
+
207
+ /*** META ((export = =fx =fl)
208
+ (type bool)
209
+ (peephole (infix 2 2 "===")))
210
+ */
211
+ function sc_equal(x) {
212
+ for (var i = 1; i < arguments.length; i++)
213
+ if (x !== arguments[i])
214
+ return false;
215
+ return true;
216
+ }
217
+
218
+ /*** META ((export < <fx <fl)
219
+ (type bool)
220
+ (peephole (infix 2 2 "<")))
221
+ */
222
+ function sc_less(x) {
223
+ for (var i = 1; i < arguments.length; i++) {
224
+ if (x >= arguments[i])
225
+ return false;
226
+ x = arguments[i];
227
+ }
228
+ return true;
229
+ }
230
+
231
+ /*** META ((export > >fx >fl)
232
+ (type bool)
233
+ (peephole (infix 2 2 ">")))
234
+ */
235
+ function sc_greater(x, y) {
236
+ for (var i = 1; i < arguments.length; i++) {
237
+ if (x <= arguments[i])
238
+ return false;
239
+ x = arguments[i];
240
+ }
241
+ return true;
242
+ }
243
+
244
+ /*** META ((export <= <=fx <=fl)
245
+ (type bool)
246
+ (peephole (infix 2 2 "<=")))
247
+ */
248
+ function sc_lessEqual(x, y) {
249
+ for (var i = 1; i < arguments.length; i++) {
250
+ if (x > arguments[i])
251
+ return false;
252
+ x = arguments[i];
253
+ }
254
+ return true;
255
+ }
256
+
257
+ /*** META ((export >= >=fl >=fx)
258
+ (type bool)
259
+ (peephole (infix 2 2 ">=")))
260
+ */
261
+ function sc_greaterEqual(x, y) {
262
+ for (var i = 1; i < arguments.length; i++) {
263
+ if (x < arguments[i])
264
+ return false;
265
+ x = arguments[i];
266
+ }
267
+ return true;
268
+ }
269
+
270
+ /*** META ((export #t)
271
+ (type bool)
272
+ (peephole (postfix "=== 0")))
273
+ */
274
+ function sc_isZero(x) {
275
+ return (x === 0);
276
+ }
277
+
278
+ /*** META ((export #t)
279
+ (type bool)
280
+ (peephole (postfix "> 0")))
281
+ */
282
+ function sc_isPositive(x) {
283
+ return (x > 0);
284
+ }
285
+
286
+ /*** META ((export #t)
287
+ (type bool)
288
+ (peephole (postfix "< 0")))
289
+ */
290
+ function sc_isNegative(x) {
291
+ return (x < 0);
292
+ }
293
+
294
+ /*** META ((export #t)
295
+ (type bool)
296
+ (peephole (postfix "%2===1")))
297
+ */
298
+ function sc_isOdd(x) {
299
+ return (x % 2 === 1);
300
+ }
301
+
302
+ /*** META ((export #t)
303
+ (type bool)
304
+ (peephole (postfix "%2===0")))
305
+ */
306
+ function sc_isEven(x) {
307
+ return (x % 2 === 0);
308
+ }
309
+
310
+ /*** META ((export #t)) */
311
+ var sc_max = Math.max;
312
+ /*** META ((export #t)) */
313
+ var sc_min = Math.min;
314
+
315
+ /*** META ((export + +fx +fl)
316
+ (peephole (infix 0 #f "+" "0")))
317
+ */
318
+ function sc_plus() {
319
+ var sum = 0;
320
+ for (var i = 0; i < arguments.length; i++)
321
+ sum += arguments[i];
322
+ return sum;
323
+ }
324
+
325
+ /*** META ((export * *fx *fl)
326
+ (peephole (infix 0 #f "*" "1")))
327
+ */
328
+ function sc_multi() {
329
+ var product = 1;
330
+ for (var i = 0; i < arguments.length; i++)
331
+ product *= arguments[i];
332
+ return product;
333
+ }
334
+
335
+ /*** META ((export - -fx -fl)
336
+ (peephole (minus)))
337
+ */
338
+ function sc_minus(x) {
339
+ if (arguments.length === 1)
340
+ return -x;
341
+ else {
342
+ var res = x;
343
+ for (var i = 1; i < arguments.length; i++)
344
+ res -= arguments[i];
345
+ return res;
346
+ }
347
+ }
348
+
349
+ /*** META ((export / /fl)
350
+ (peephole (div)))
351
+ */
352
+ function sc_div(x) {
353
+ if (arguments.length === 1)
354
+ return 1/x;
355
+ else {
356
+ var res = x;
357
+ for (var i = 1; i < arguments.length; i++)
358
+ res /= arguments[i];
359
+ return res;
360
+ }
361
+ }
362
+
363
+ /*** META ((export #t)) */
364
+ var sc_abs = Math.abs;
365
+
366
+ /*** META ((export quotient /fx)
367
+ (peephole (hole 2 "parseInt(" x "/" y ")")))
368
+ */
369
+ function sc_quotient(x, y) {
370
+ return parseInt(x / y);
371
+ }
372
+
373
+ /*** META ((export #t)
374
+ (peephole (infix 2 2 "%")))
375
+ */
376
+ function sc_remainder(x, y) {
377
+ return x % y;
378
+ }
379
+
380
+ /*** META ((export #t)
381
+ (peephole (modulo)))
382
+ */
383
+ function sc_modulo(x, y) {
384
+ var remainder = x % y;
385
+ // if they don't have the same sign
386
+ if ((remainder * y) < 0)
387
+ return remainder + y;
388
+ else
389
+ return remainder;
390
+ }
391
+
392
+ function sc_euclid_gcd(a, b) {
393
+ var temp;
394
+ if (a === 0) return b;
395
+ if (b === 0) return a;
396
+ if (a < 0) {a = -a;};
397
+ if (b < 0) {b = -b;};
398
+ if (b > a) {temp = a; a = b; b = temp;};
399
+ while (true) {
400
+ a %= b;
401
+ if(a === 0) {return b;};
402
+ b %= a;
403
+ if(b === 0) {return a;};
404
+ };
405
+ return b;
406
+ }
407
+
408
+ /*** META ((export #t)) */
409
+ function sc_gcd() {
410
+ var gcd = 0;
411
+ for (var i = 0; i < arguments.length; i++)
412
+ gcd = sc_euclid_gcd(gcd, arguments[i]);
413
+ return gcd;
414
+ }
415
+
416
+ /*** META ((export #t)) */
417
+ function sc_lcm() {
418
+ var lcm = 1;
419
+ for (var i = 0; i < arguments.length; i++) {
420
+ var f = Math.round(arguments[i] / sc_euclid_gcd(arguments[i], lcm));
421
+ lcm *= Math.abs(f);
422
+ }
423
+ return lcm;
424
+ }
425
+
426
+ // LIMITATION: numerator and denominator don't make sense in floating point world.
427
+ //var SC_MAX_DECIMALS = 1000000
428
+ //
429
+ // function sc_numerator(x) {
430
+ // var rounded = Math.round(x * SC_MAX_DECIMALS);
431
+ // return Math.round(rounded / sc_euclid_gcd(rounded, SC_MAX_DECIMALS));
432
+ // }
433
+
434
+ // function sc_denominator(x) {
435
+ // var rounded = Math.round(x * SC_MAX_DECIMALS);
436
+ // return Math.round(SC_MAX_DECIMALS / sc_euclid_gcd(rounded, SC_MAX_DECIMALS));
437
+ // }
438
+
439
+ /*** META ((export #t)) */
440
+ var sc_floor = Math.floor;
441
+ /*** META ((export #t)) */
442
+ var sc_ceiling = Math.ceil;
443
+ /*** META ((export #t)) */
444
+ var sc_truncate = parseInt;
445
+ /*** META ((export #t)) */
446
+ var sc_round = Math.round;
447
+
448
+ // LIMITATION: sc_rationalize doesn't make sense in a floating point world.
449
+
450
+ /*** META ((export #t)) */
451
+ var sc_exp = Math.exp;
452
+ /*** META ((export #t)) */
453
+ var sc_log = Math.log;
454
+ /*** META ((export #t)) */
455
+ var sc_sin = Math.sin;
456
+ /*** META ((export #t)) */
457
+ var sc_cos = Math.cos;
458
+ /*** META ((export #t)) */
459
+ var sc_tan = Math.tan;
460
+ /*** META ((export #t)) */
461
+ var sc_asin = Math.asin;
462
+ /*** META ((export #t)) */
463
+ var sc_acos = Math.acos;
464
+ /*** META ((export #t)) */
465
+ var sc_atan = Math.atan;
466
+
467
+ /*** META ((export #t)) */
468
+ var sc_sqrt = Math.sqrt;
469
+ /*** META ((export #t)) */
470
+ var sc_expt = Math.pow;
471
+
472
+ // LIMITATION: we don't have complex numbers.
473
+ // LIMITATION: the following functions are hence not implemented.
474
+ // LIMITATION: make-rectangular, make-polar, real-part, imag-part, magnitude, angle
475
+ // LIMITATION: 2 argument atan
476
+
477
+ /*** META ((export #t)
478
+ (peephole (id)))
479
+ */
480
+ function sc_exact2inexact(x) {
481
+ return x;
482
+ }
483
+
484
+ /*** META ((export #t)
485
+ (peephole (id)))
486
+ */
487
+ function sc_inexact2exact(x) {
488
+ return x;
489
+ }
490
+
491
+ function sc_number2jsstring(x, radix) {
492
+ if (radix)
493
+ return x.toString(radix);
494
+ else
495
+ return x.toString();
496
+ }
497
+
498
+ function sc_jsstring2number(s, radix) {
499
+ if (s === "") return false;
500
+
501
+ if (radix) {
502
+ var t = parseInt(s, radix);
503
+ if (!t && t !== 0) return false;
504
+ // verify that each char is in range. (parseInt ignores leading
505
+ // white and trailing chars)
506
+ var allowedChars = "01234567890abcdefghijklmnopqrstuvwxyz".substring(0, radix+1);
507
+ if ((new RegExp("^["+allowedChars+"]*$", "i")).test(s))
508
+ return t;
509
+ else return false;
510
+ } else {
511
+ var t = +s; // does not ignore trailing chars.
512
+ if (!t && t !== 0) return false;
513
+ // simply verify that first char is not whitespace.
514
+ var c = s.charAt(0);
515
+ // if +c is 0, but the char is not "0", then we have a whitespace.
516
+ if (+c === 0 && c !== "0") return false;
517
+ return t;
518
+ }
519
+ }
520
+
521
+ /*** META ((export #t)
522
+ (type bool)
523
+ (peephole (not)))
524
+ */
525
+ function sc_not(b) {
526
+ return b === false;
527
+ }
528
+
529
+ /*** META ((export #t)
530
+ (type bool))
531
+ */
532
+ function sc_isBoolean(b) {
533
+ return (b === true) || (b === false);
534
+ }
535
+
536
+ function sc_Pair(car, cdr) {
537
+ this.car = car;
538
+ this.cdr = cdr;
539
+ }
540
+
541
+ sc_Pair.prototype.toString = function() {
542
+ return sc_toDisplayString(this);
543
+ };
544
+ sc_Pair.prototype.sc_toWriteOrDisplayString = function(writeOrDisplay) {
545
+ var current = this;
546
+
547
+ var res = "(";
548
+
549
+ while(true) {
550
+ res += writeOrDisplay(current.car);
551
+ if (sc_isPair(current.cdr)) {
552
+ res += " ";
553
+ current = current.cdr;
554
+ } else if (current.cdr !== null) {
555
+ res += " . " + writeOrDisplay(current.cdr);
556
+ break;
557
+ } else // current.cdr == null
558
+ break;
559
+ }
560
+
561
+ res += ")";
562
+
563
+ return res;
564
+ };
565
+ sc_Pair.prototype.sc_toDisplayString = function() {
566
+ return this.sc_toWriteOrDisplayString(sc_toDisplayString);
567
+ };
568
+ sc_Pair.prototype.sc_toWriteString = function() {
569
+ return this.sc_toWriteOrDisplayString(sc_toWriteString);
570
+ };
571
+ // sc_Pair.prototype.sc_toWriteCircleString in IO.js
572
+
573
+ /*** META ((export #t)
574
+ (type bool)
575
+ (peephole (postfix " instanceof sc_Pair")))
576
+ */
577
+ function sc_isPair(p) {
578
+ return (p instanceof sc_Pair);
579
+ }
580
+
581
+ function sc_isPairEqual(p1, p2, comp) {
582
+ return (comp(p1.car, p2.car) && comp(p1.cdr, p2.cdr));
583
+ }
584
+
585
+ /*** META ((export #t)
586
+ (peephole (hole 2 "new sc_Pair(" car ", " cdr ")")))
587
+ */
588
+ function sc_cons(car, cdr) {
589
+ return new sc_Pair(car, cdr);
590
+ }
591
+
592
+ /*** META ((export cons*)) */
593
+ function sc_consStar() {
594
+ var res = arguments[arguments.length - 1];
595
+ for (var i = arguments.length-2; i >= 0; i--)
596
+ res = new sc_Pair(arguments[i], res);
597
+ return res;
598
+ }
599
+
600
+ /*** META ((export #t)
601
+ (peephole (postfix ".car")))
602
+ */
603
+ function sc_car(p) {
604
+ return p.car;
605
+ }
606
+
607
+ /*** META ((export #t)
608
+ (peephole (postfix ".cdr")))
609
+ */
610
+ function sc_cdr(p) {
611
+ return p.cdr;
612
+ }
613
+
614
+ /*** META ((export #t)
615
+ (peephole (hole 2 p ".car = " val)))
616
+ */
617
+ function sc_setCarBang(p, val) {
618
+ p.car = val;
619
+ }
620
+
621
+ /*** META ((export #t)
622
+ (peephole (hole 2 p ".cdr = " val)))
623
+ */
624
+ function sc_setCdrBang(p, val) {
625
+ p.cdr = val;
626
+ }
627
+
628
+ /*** META ((export #t)
629
+ (peephole (postfix ".car.car")))
630
+ */
631
+ function sc_caar(p) { return p.car.car; }
632
+ /*** META ((export #t)
633
+ (peephole (postfix ".cdr.car")))
634
+ */
635
+ function sc_cadr(p) { return p.cdr.car; }
636
+ /*** META ((export #t)
637
+ (peephole (postfix ".car.cdr")))
638
+ */
639
+ function sc_cdar(p) { return p.car.cdr; }
640
+ /*** META ((export #t)
641
+ (peephole (postfix ".cdr.cdr")))
642
+ */
643
+ function sc_cddr(p) { return p.cdr.cdr; }
644
+ /*** META ((export #t)
645
+ (peephole (postfix ".car.car.car")))
646
+ */
647
+ function sc_caaar(p) { return p.car.car.car; }
648
+ /*** META ((export #t)
649
+ (peephole (postfix ".car.cdr.car")))
650
+ */
651
+ function sc_cadar(p) { return p.car.cdr.car; }
652
+ /*** META ((export #t)
653
+ (peephole (postfix ".cdr.car.car")))
654
+ */
655
+ function sc_caadr(p) { return p.cdr.car.car; }
656
+ /*** META ((export #t)
657
+ (peephole (postfix ".cdr.cdr.car")))
658
+ */
659
+ function sc_caddr(p) { return p.cdr.cdr.car; }
660
+ /*** META ((export #t)
661
+ (peephole (postfix ".car.car.cdr")))
662
+ */
663
+ function sc_cdaar(p) { return p.car.car.cdr; }
664
+ /*** META ((export #t)
665
+ (peephole (postfix ".cdr.car.cdr")))
666
+ */
667
+ function sc_cdadr(p) { return p.cdr.car.cdr; }
668
+ /*** META ((export #t)
669
+ (peephole (postfix ".car.cdr.cdr")))
670
+ */
671
+ function sc_cddar(p) { return p.car.cdr.cdr; }
672
+ /*** META ((export #t)
673
+ (peephole (postfix ".cdr.cdr.cdr")))
674
+ */
675
+ function sc_cdddr(p) { return p.cdr.cdr.cdr; }
676
+ /*** META ((export #t)
677
+ (peephole (postfix ".car.car.car.car")))
678
+ */
679
+ function sc_caaaar(p) { return p.car.car.car.car; }
680
+ /*** META ((export #t)
681
+ (peephole (postfix ".car.cdr.car.car")))
682
+ */
683
+ function sc_caadar(p) { return p.car.cdr.car.car; }
684
+ /*** META ((export #t)
685
+ (peephole (postfix ".cdr.car.car.car")))
686
+ */
687
+ function sc_caaadr(p) { return p.cdr.car.car.car; }
688
+ /*** META ((export #t)
689
+ (peephole (postfix ".cdr.cdr.car.car")))
690
+ */
691
+ function sc_caaddr(p) { return p.cdr.cdr.car.car; }
692
+ /*** META ((export #t)
693
+ (peephole (postfix ".car.car.car.cdr")))
694
+ */
695
+ function sc_cdaaar(p) { return p.car.car.car.cdr; }
696
+ /*** META ((export #t)
697
+ (peephole (postfix ".car.cdr.car.cdr")))
698
+ */
699
+ function sc_cdadar(p) { return p.car.cdr.car.cdr; }
700
+ /*** META ((export #t)
701
+ (peephole (postfix ".cdr.car.car.cdr")))
702
+ */
703
+ function sc_cdaadr(p) { return p.cdr.car.car.cdr; }
704
+ /*** META ((export #t)
705
+ (peephole (postfix ".cdr.cdr.car.cdr")))
706
+ */
707
+ function sc_cdaddr(p) { return p.cdr.cdr.car.cdr; }
708
+ /*** META ((export #t)
709
+ (peephole (postfix ".car.car.cdr.car")))
710
+ */
711
+ function sc_cadaar(p) { return p.car.car.cdr.car; }
712
+ /*** META ((export #t)
713
+ (peephole (postfix ".car.cdr.cdr.car")))
714
+ */
715
+ function sc_caddar(p) { return p.car.cdr.cdr.car; }
716
+ /*** META ((export #t)
717
+ (peephole (postfix ".cdr.car.cdr.car")))
718
+ */
719
+ function sc_cadadr(p) { return p.cdr.car.cdr.car; }
720
+ /*** META ((export #t)
721
+ (peephole (postfix ".cdr.cdr.cdr.car")))
722
+ */
723
+ function sc_cadddr(p) { return p.cdr.cdr.cdr.car; }
724
+ /*** META ((export #t)
725
+ (peephole (postfix ".car.car.cdr.cdr")))
726
+ */
727
+ function sc_cddaar(p) { return p.car.car.cdr.cdr; }
728
+ /*** META ((export #t)
729
+ (peephole (postfix ".car.cdr.cdr.cdr")))
730
+ */
731
+ function sc_cdddar(p) { return p.car.cdr.cdr.cdr; }
732
+ /*** META ((export #t)
733
+ (peephole (postfix ".cdr.car.cdr.cdr")))
734
+ */
735
+ function sc_cddadr(p) { return p.cdr.car.cdr.cdr; }
736
+ /*** META ((export #t)
737
+ (peephole (postfix ".cdr.cdr.cdr.cdr")))
738
+ */
739
+ function sc_cddddr(p) { return p.cdr.cdr.cdr.cdr; }
740
+
741
+ /*** META ((export #t)) */
742
+ function sc_lastPair(l) {
743
+ if (!sc_isPair(l)) sc_error("sc_lastPair: pair expected");
744
+ var res = l;
745
+ var cdr = l.cdr;
746
+ while (sc_isPair(cdr)) {
747
+ res = cdr;
748
+ cdr = res.cdr;
749
+ }
750
+ return res;
751
+ }
752
+
753
+ /*** META ((export #t)
754
+ (type bool)
755
+ (peephole (postfix " === null")))
756
+ */
757
+ function sc_isNull(o) {
758
+ return (o === null);
759
+ }
760
+
761
+ /*** META ((export #t)
762
+ (type bool))
763
+ */
764
+ function sc_isList(o) {
765
+ var rabbit;
766
+ var turtle;
767
+
768
+ var rabbit = o;
769
+ var turtle = o;
770
+ while (true) {
771
+ if (rabbit === null ||
772
+ (rabbit instanceof sc_Pair && rabbit.cdr === null))
773
+ return true; // end of list
774
+ else if ((rabbit instanceof sc_Pair) &&
775
+ (rabbit.cdr instanceof sc_Pair)) {
776
+ rabbit = rabbit.cdr.cdr;
777
+ turtle = turtle.cdr;
778
+ if (rabbit === turtle) return false; // cycle
779
+ } else
780
+ return false; // not pair
781
+ }
782
+ }
783
+
784
+ /*** META ((export #t)) */
785
+ function sc_list() {
786
+ var res = null;
787
+ var a = arguments;
788
+ for (var i = a.length-1; i >= 0; i--)
789
+ res = new sc_Pair(a[i], res);
790
+ return res;
791
+ }
792
+
793
+ /*** META ((export #t)) */
794
+ function sc_iota(num, init) {
795
+ var res = null;
796
+ if (!init) init = 0;
797
+ for (var i = num - 1; i >= 0; i--)
798
+ res = new sc_Pair(i + init, res);
799
+ return res;
800
+ }
801
+
802
+ /*** META ((export #t)) */
803
+ function sc_makeList(nbEls, fill) {
804
+ var res = null;
805
+ for (var i = 0; i < nbEls; i++)
806
+ res = new sc_Pair(fill, res);
807
+ return res;
808
+ }
809
+
810
+ /*** META ((export #t)) */
811
+ function sc_length(l) {
812
+ var res = 0;
813
+ while (l !== null) {
814
+ res++;
815
+ l = l.cdr;
816
+ }
817
+ return res;
818
+ }
819
+
820
+ /*** META ((export #t)) */
821
+ function sc_remq(o, l) {
822
+ var dummy = { cdr : null };
823
+ var tail = dummy;
824
+ while (l !== null) {
825
+ if (l.car !== o) {
826
+ tail.cdr = sc_cons(l.car, null);
827
+ tail = tail.cdr;
828
+ }
829
+ l = l.cdr;
830
+ }
831
+ return dummy.cdr;
832
+ }
833
+
834
+ /*** META ((export #t)) */
835
+ function sc_remqBang(o, l) {
836
+ var dummy = { cdr : null };
837
+ var tail = dummy;
838
+ var needsAssig = true;
839
+ while (l !== null) {
840
+ if (l.car === o) {
841
+ needsAssig = true;
842
+ } else {
843
+ if (needsAssig) {
844
+ tail.cdr = l;
845
+ needsAssig = false;
846
+ }
847
+ tail = l;
848
+ }
849
+ l = l.cdr;
850
+ }
851
+ tail.cdr = null;
852
+ return dummy.cdr;
853
+ }
854
+
855
+ /*** META ((export #t)) */
856
+ function sc_delete(o, l) {
857
+ var dummy = { cdr : null };
858
+ var tail = dummy;
859
+ while (l !== null) {
860
+ if (!sc_isEqual(l.car, o)) {
861
+ tail.cdr = sc_cons(l.car, null);
862
+ tail = tail.cdr;
863
+ }
864
+ l = l.cdr;
865
+ }
866
+ return dummy.cdr;
867
+ }
868
+
869
+ /*** META ((export #t)) */
870
+ function sc_deleteBang(o, l) {
871
+ var dummy = { cdr : null };
872
+ var tail = dummy;
873
+ var needsAssig = true;
874
+ while (l !== null) {
875
+ if (sc_isEqual(l.car, o)) {
876
+ needsAssig = true;
877
+ } else {
878
+ if (needsAssig) {
879
+ tail.cdr = l;
880
+ needsAssig = false;
881
+ }
882
+ tail = l;
883
+ }
884
+ l = l.cdr;
885
+ }
886
+ tail.cdr = null;
887
+ return dummy.cdr;
888
+ }
889
+
890
+ function sc_reverseAppendBang(l1, l2) {
891
+ var res = l2;
892
+ while (l1 !== null) {
893
+ var tmp = res;
894
+ res = l1;
895
+ l1 = l1.cdr;
896
+ res.cdr = tmp;
897
+ }
898
+ return res;
899
+ }
900
+
901
+ function sc_dualAppend(l1, l2) {
902
+ if (l1 === null) return l2;
903
+ if (l2 === null) return l1;
904
+ var rev = sc_reverse(l1);
905
+ return sc_reverseAppendBang(rev, l2);
906
+ }
907
+
908
+ /*** META ((export #t)) */
909
+ function sc_append() {
910
+ if (arguments.length === 0)
911
+ return null;
912
+ var res = arguments[arguments.length - 1];
913
+ for (var i = arguments.length - 2; i >= 0; i--)
914
+ res = sc_dualAppend(arguments[i], res);
915
+ return res;
916
+ }
917
+
918
+ function sc_dualAppendBang(l1, l2) {
919
+ if (l1 === null) return l2;
920
+ if (l2 === null) return l1;
921
+ var tmp = l1;
922
+ while (tmp.cdr !== null) tmp=tmp.cdr;
923
+ tmp.cdr = l2;
924
+ return l1;
925
+ }
926
+
927
+ /*** META ((export #t)) */
928
+ function sc_appendBang() {
929
+ var res = null;
930
+ for (var i = 0; i < arguments.length; i++)
931
+ res = sc_dualAppendBang(res, arguments[i]);
932
+ return res;
933
+ }
934
+
935
+ /*** META ((export #t)) */
936
+ function sc_reverse(l1) {
937
+ var res = null;
938
+ while (l1 !== null) {
939
+ res = sc_cons(l1.car, res);
940
+ l1 = l1.cdr;
941
+ }
942
+ return res;
943
+ }
944
+
945
+ /*** META ((export #t)) */
946
+ function sc_reverseBang(l) {
947
+ return sc_reverseAppendBang(l, null);
948
+ }
949
+
950
+ /*** META ((export #t)) */
951
+ function sc_listTail(l, k) {
952
+ var res = l;
953
+ for (var i = 0; i < k; i++) {
954
+ res = res.cdr;
955
+ }
956
+ return res;
957
+ }
958
+
959
+ /*** META ((export #t)) */
960
+ function sc_listRef(l, k) {
961
+ return sc_listTail(l, k).car;
962
+ }
963
+
964
+ /* // unoptimized generic versions
965
+ function sc_memX(o, l, comp) {
966
+ while (l != null) {
967
+ if (comp(l.car, o))
968
+ return l;
969
+ l = l.cdr;
970
+ }
971
+ return false;
972
+ }
973
+ function sc_memq(o, l) { return sc_memX(o, l, sc_isEq); }
974
+ function sc_memv(o, l) { return sc_memX(o, l, sc_isEqv); }
975
+ function sc_member(o, l) { return sc_memX(o, l, sc_isEqual); }
976
+ */
977
+
978
+ /* optimized versions */
979
+ /*** META ((export #t)) */
980
+ function sc_memq(o, l) {
981
+ while (l !== null) {
982
+ if (l.car === o)
983
+ return l;
984
+ l = l.cdr;
985
+ }
986
+ return false;
987
+ }
988
+ /*** META ((export #t)) */
989
+ function sc_memv(o, l) {
990
+ while (l !== null) {
991
+ if (l.car === o)
992
+ return l;
993
+ l = l.cdr;
994
+ }
995
+ return false;
996
+ }
997
+ /*** META ((export #t)) */
998
+ function sc_member(o, l) {
999
+ while (l !== null) {
1000
+ if (sc_isEqual(l.car,o))
1001
+ return l;
1002
+ l = l.cdr;
1003
+ }
1004
+ return false;
1005
+ }
1006
+
1007
+ /* // generic unoptimized versions
1008
+ function sc_assX(o, al, comp) {
1009
+ while (al != null) {
1010
+ if (comp(al.car.car, o))
1011
+ return al.car;
1012
+ al = al.cdr;
1013
+ }
1014
+ return false;
1015
+ }
1016
+ function sc_assq(o, al) { return sc_assX(o, al, sc_isEq); }
1017
+ function sc_assv(o, al) { return sc_assX(o, al, sc_isEqv); }
1018
+ function sc_assoc(o, al) { return sc_assX(o, al, sc_isEqual); }
1019
+ */
1020
+ // optimized versions
1021
+ /*** META ((export #t)) */
1022
+ function sc_assq(o, al) {
1023
+ while (al !== null) {
1024
+ if (al.car.car === o)
1025
+ return al.car;
1026
+ al = al.cdr;
1027
+ }
1028
+ return false;
1029
+ }
1030
+ /*** META ((export #t)) */
1031
+ function sc_assv(o, al) {
1032
+ while (al !== null) {
1033
+ if (al.car.car === o)
1034
+ return al.car;
1035
+ al = al.cdr;
1036
+ }
1037
+ return false;
1038
+ }
1039
+ /*** META ((export #t)) */
1040
+ function sc_assoc(o, al) {
1041
+ while (al !== null) {
1042
+ if (sc_isEqual(al.car.car, o))
1043
+ return al.car;
1044
+ al = al.cdr;
1045
+ }
1046
+ return false;
1047
+ }
1048
+
1049
+ /* can be used for mutable strings and characters */
1050
+ function sc_isCharStringEqual(cs1, cs2) { return cs1.val === cs2.val; }
1051
+ function sc_isCharStringLess(cs1, cs2) { return cs1.val < cs2.val; }
1052
+ function sc_isCharStringGreater(cs1, cs2) { return cs1.val > cs2.val; }
1053
+ function sc_isCharStringLessEqual(cs1, cs2) { return cs1.val <= cs2.val; }
1054
+ function sc_isCharStringGreaterEqual(cs1, cs2) { return cs1.val >= cs2.val; }
1055
+ function sc_isCharStringCIEqual(cs1, cs2)
1056
+ { return cs1.val.toLowerCase() === cs2.val.toLowerCase(); }
1057
+ function sc_isCharStringCILess(cs1, cs2)
1058
+ { return cs1.val.toLowerCase() < cs2.val.toLowerCase(); }
1059
+ function sc_isCharStringCIGreater(cs1, cs2)
1060
+ { return cs1.val.toLowerCase() > cs2.val.toLowerCase(); }
1061
+ function sc_isCharStringCILessEqual(cs1, cs2)
1062
+ { return cs1.val.toLowerCase() <= cs2.val.toLowerCase(); }
1063
+ function sc_isCharStringCIGreaterEqual(cs1, cs2)
1064
+ { return cs1.val.toLowerCase() >= cs2.val.toLowerCase(); }
1065
+
1066
+
1067
+
1068
+
1069
+ function sc_Char(c) {
1070
+ var cached = sc_Char.lazy[c];
1071
+ if (cached)
1072
+ return cached;
1073
+ this.val = c;
1074
+ sc_Char.lazy[c] = this;
1075
+ // add return, so FF does not complain.
1076
+ return undefined;
1077
+ }
1078
+ sc_Char.lazy = new Object();
1079
+ // thanks to Eric
1080
+ sc_Char.char2readable = {
1081
+ "\000": "#\\null",
1082
+ "\007": "#\\bell",
1083
+ "\010": "#\\backspace",
1084
+ "\011": "#\\tab",
1085
+ "\012": "#\\newline",
1086
+ "\014": "#\\page",
1087
+ "\015": "#\\return",
1088
+ "\033": "#\\escape",
1089
+ "\040": "#\\space",
1090
+ "\177": "#\\delete",
1091
+
1092
+ /* poeticless names */
1093
+ "\001": "#\\soh",
1094
+ "\002": "#\\stx",
1095
+ "\003": "#\\etx",
1096
+ "\004": "#\\eot",
1097
+ "\005": "#\\enq",
1098
+ "\006": "#\\ack",
1099
+
1100
+ "\013": "#\\vt",
1101
+ "\016": "#\\so",
1102
+ "\017": "#\\si",
1103
+
1104
+ "\020": "#\\dle",
1105
+ "\021": "#\\dc1",
1106
+ "\022": "#\\dc2",
1107
+ "\023": "#\\dc3",
1108
+ "\024": "#\\dc4",
1109
+ "\025": "#\\nak",
1110
+ "\026": "#\\syn",
1111
+ "\027": "#\\etb",
1112
+
1113
+ "\030": "#\\can",
1114
+ "\031": "#\\em",
1115
+ "\032": "#\\sub",
1116
+ "\033": "#\\esc",
1117
+ "\034": "#\\fs",
1118
+ "\035": "#\\gs",
1119
+ "\036": "#\\rs",
1120
+ "\037": "#\\us"};
1121
+
1122
+ sc_Char.readable2char = {
1123
+ "null": "\000",
1124
+ "bell": "\007",
1125
+ "backspace": "\010",
1126
+ "tab": "\011",
1127
+ "newline": "\012",
1128
+ "page": "\014",
1129
+ "return": "\015",
1130
+ "escape": "\033",
1131
+ "space": "\040",
1132
+ "delete": "\000",
1133
+ "soh": "\001",
1134
+ "stx": "\002",
1135
+ "etx": "\003",
1136
+ "eot": "\004",
1137
+ "enq": "\005",
1138
+ "ack": "\006",
1139
+ "bel": "\007",
1140
+ "bs": "\010",
1141
+ "ht": "\011",
1142
+ "nl": "\012",
1143
+ "vt": "\013",
1144
+ "np": "\014",
1145
+ "cr": "\015",
1146
+ "so": "\016",
1147
+ "si": "\017",
1148
+ "dle": "\020",
1149
+ "dc1": "\021",
1150
+ "dc2": "\022",
1151
+ "dc3": "\023",
1152
+ "dc4": "\024",
1153
+ "nak": "\025",
1154
+ "syn": "\026",
1155
+ "etb": "\027",
1156
+ "can": "\030",
1157
+ "em": "\031",
1158
+ "sub": "\032",
1159
+ "esc": "\033",
1160
+ "fs": "\034",
1161
+ "gs": "\035",
1162
+ "rs": "\036",
1163
+ "us": "\037",
1164
+ "sp": "\040",
1165
+ "del": "\177"};
1166
+
1167
+ sc_Char.prototype.toString = function() {
1168
+ return this.val;
1169
+ };
1170
+ // sc_toDisplayString == toString
1171
+ sc_Char.prototype.sc_toWriteString = function() {
1172
+ var entry = sc_Char.char2readable[this.val];
1173
+ if (entry)
1174
+ return entry;
1175
+ else
1176
+ return "#\\" + this.val;
1177
+ };
1178
+
1179
+ /*** META ((export #t)
1180
+ (type bool)
1181
+ (peephole (postfix "instanceof sc_Char")))
1182
+ */
1183
+ function sc_isChar(c) {
1184
+ return (c instanceof sc_Char);
1185
+ }
1186
+
1187
+ /*** META ((export char=?)
1188
+ (type bool)
1189
+ (peephole (hole 2 c1 ".val === " c2 ".val")))
1190
+ */
1191
+ var sc_isCharEqual = sc_isCharStringEqual;
1192
+ /*** META ((export char<?)
1193
+ (type bool)
1194
+ (peephole (hole 2 c1 ".val < " c2 ".val")))
1195
+ */
1196
+ var sc_isCharLess = sc_isCharStringLess;
1197
+ /*** META ((export char>?)
1198
+ (type bool)
1199
+ (peephole (hole 2 c1 ".val > " c2 ".val")))
1200
+ */
1201
+ var sc_isCharGreater = sc_isCharStringGreater;
1202
+ /*** META ((export char<=?)
1203
+ (type bool)
1204
+ (peephole (hole 2 c1 ".val <= " c2 ".val")))
1205
+ */
1206
+ var sc_isCharLessEqual = sc_isCharStringLessEqual;
1207
+ /*** META ((export char>=?)
1208
+ (type bool)
1209
+ (peephole (hole 2 c1 ".val >= " c2 ".val")))
1210
+ */
1211
+ var sc_isCharGreaterEqual = sc_isCharStringGreaterEqual;
1212
+ /*** META ((export char-ci=?)
1213
+ (type bool)
1214
+ (peephole (hole 2 c1 ".val.toLowerCase() === " c2 ".val.toLowerCase()")))
1215
+ */
1216
+ var sc_isCharCIEqual = sc_isCharStringCIEqual;
1217
+ /*** META ((export char-ci<?)
1218
+ (type bool)
1219
+ (peephole (hole 2 c1 ".val.toLowerCase() < " c2 ".val.toLowerCase()")))
1220
+ */
1221
+ var sc_isCharCILess = sc_isCharStringCILess;
1222
+ /*** META ((export char-ci>?)
1223
+ (type bool)
1224
+ (peephole (hole 2 c1 ".val.toLowerCase() > " c2 ".val.toLowerCase()")))
1225
+ */
1226
+ var sc_isCharCIGreater = sc_isCharStringCIGreater;
1227
+ /*** META ((export char-ci<=?)
1228
+ (type bool)
1229
+ (peephole (hole 2 c1 ".val.toLowerCase() <= " c2 ".val.toLowerCase()")))
1230
+ */
1231
+ var sc_isCharCILessEqual = sc_isCharStringCILessEqual;
1232
+ /*** META ((export char-ci>=?)
1233
+ (type bool)
1234
+ (peephole (hole 2 c1 ".val.toLowerCase() >= " c2 ".val.toLowerCase()")))
1235
+ */
1236
+ var sc_isCharCIGreaterEqual = sc_isCharStringCIGreaterEqual;
1237
+
1238
+ var SC_NUMBER_CLASS = "0123456789";
1239
+ var SC_WHITESPACE_CLASS = ' \r\n\t\f';
1240
+ var SC_LOWER_CLASS = 'abcdefghijklmnopqrstuvwxyz';
1241
+ var SC_UPPER_CLASS = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
1242
+
1243
+ function sc_isCharOfClass(c, cl) { return (cl.indexOf(c) != -1); }
1244
+ /*** META ((export #t)
1245
+ (type bool))
1246
+ */
1247
+ function sc_isCharAlphabetic(c)
1248
+ { return sc_isCharOfClass(c.val, SC_LOWER_CLASS) ||
1249
+ sc_isCharOfClass(c.val, SC_UPPER_CLASS); }
1250
+ /*** META ((export #t)
1251
+ (type bool)
1252
+ (peephole (hole 1 "SC_NUMBER_CLASS.indexOf(" c ".val) != -1")))
1253
+ */
1254
+ function sc_isCharNumeric(c)
1255
+ { return sc_isCharOfClass(c.val, SC_NUMBER_CLASS); }
1256
+ /*** META ((export #t)
1257
+ (type bool))
1258
+ */
1259
+ function sc_isCharWhitespace(c) {
1260
+ var tmp = c.val;
1261
+ return tmp === " " || tmp === "\r" || tmp === "\n" || tmp === "\t" || tmp === "\f";
1262
+ }
1263
+ /*** META ((export #t)
1264
+ (type bool)
1265
+ (peephole (hole 1 "SC_UPPER_CLASS.indexOf(" c ".val) != -1")))
1266
+ */
1267
+ function sc_isCharUpperCase(c)
1268
+ { return sc_isCharOfClass(c.val, SC_UPPER_CLASS); }
1269
+ /*** META ((export #t)
1270
+ (type bool)
1271
+ (peephole (hole 1 "SC_LOWER_CLASS.indexOf(" c ".val) != -1")))
1272
+ */
1273
+ function sc_isCharLowerCase(c)
1274
+ { return sc_isCharOfClass(c.val, SC_LOWER_CLASS); }
1275
+
1276
+ /*** META ((export #t)
1277
+ (peephole (postfix ".val.charCodeAt(0)")))
1278
+ */
1279
+ function sc_char2integer(c)
1280
+ { return c.val.charCodeAt(0); }
1281
+ /*** META ((export #t)
1282
+ (peephole (hole 1 "new sc_Char(String.fromCharCode(" n "))")))
1283
+ */
1284
+ function sc_integer2char(n)
1285
+ { return new sc_Char(String.fromCharCode(n)); }
1286
+
1287
+ /*** META ((export #t)
1288
+ (peephole (hole 1 "new sc_Char(" c ".val.toUpperCase())")))
1289
+ */
1290
+ function sc_charUpcase(c)
1291
+ { return new sc_Char(c.val.toUpperCase()); }
1292
+ /*** META ((export #t)
1293
+ (peephole (hole 1 "new sc_Char(" c ".val.toLowerCase())")))
1294
+ */
1295
+ function sc_charDowncase(c)
1296
+ { return new sc_Char(c.val.toLowerCase()); }
1297
+
1298
+ function sc_makeJSStringOfLength(k, c) {
1299
+ var fill;
1300
+ if (c === undefined)
1301
+ fill = " ";
1302
+ else
1303
+ fill = c;
1304
+ var res = "";
1305
+ var len = 1;
1306
+ // every round doubles the size of fill.
1307
+ while (k >= len) {
1308
+ if (k & len)
1309
+ res = res.concat(fill);
1310
+ fill = fill.concat(fill);
1311
+ len *= 2;
1312
+ }
1313
+ return res;
1314
+ }
1315
+
1316
+ function sc_makejsString(k, c) {
1317
+ var fill;
1318
+ if (c)
1319
+ fill = c.val;
1320
+ else
1321
+ fill = " ";
1322
+ return sc_makeJSStringOfLength(k, fill);
1323
+ }
1324
+
1325
+ function sc_jsstring2list(s) {
1326
+ var res = null;
1327
+ for (var i = s.length - 1; i >= 0; i--)
1328
+ res = sc_cons(new sc_Char(s.charAt(i)), res);
1329
+ return res;
1330
+ }
1331
+
1332
+ function sc_list2jsstring(l) {
1333
+ var a = new Array();
1334
+ while(l !== null) {
1335
+ a.push(l.car.val);
1336
+ l = l.cdr;
1337
+ }
1338
+ return "".concat.apply("", a);
1339
+ }
1340
+
1341
+ var sc_Vector = Array;
1342
+
1343
+ sc_Vector.prototype.sc_toWriteOrDisplayString = function(writeOrDisplay) {
1344
+ if (this.length === 0) return "#()";
1345
+
1346
+ var res = "#(" + writeOrDisplay(this[0]);
1347
+ for (var i = 1; i < this.length; i++)
1348
+ res += " " + writeOrDisplay(this[i]);
1349
+ res += ")";
1350
+ return res;
1351
+ };
1352
+ sc_Vector.prototype.sc_toDisplayString = function() {
1353
+ return this.sc_toWriteOrDisplayString(sc_toDisplayString);
1354
+ };
1355
+ sc_Vector.prototype.sc_toWriteString = function() {
1356
+ return this.sc_toWriteOrDisplayString(sc_toWriteString);
1357
+ };
1358
+
1359
+ /*** META ((export vector? array?)
1360
+ (type bool)
1361
+ (peephole (postfix " instanceof sc_Vector")))
1362
+ */
1363
+ function sc_isVector(v) {
1364
+ return (v instanceof sc_Vector);
1365
+ }
1366
+
1367
+ // only applies to vectors
1368
+ function sc_isVectorEqual(v1, v2, comp) {
1369
+ if (v1.length !== v2.length) return false;
1370
+ for (var i = 0; i < v1.length; i++)
1371
+ if (!comp(v1[i], v2[i])) return false;
1372
+ return true;
1373
+ }
1374
+
1375
+ /*** META ((export make-vector make-array)) */
1376
+ function sc_makeVector(size, fill) {
1377
+ var a = new sc_Vector(size);
1378
+ if (fill !== undefined)
1379
+ sc_vectorFillBang(a, fill);
1380
+ return a;
1381
+ }
1382
+
1383
+ /*** META ((export vector array)
1384
+ (peephole (vector)))
1385
+ */
1386
+ function sc_vector() {
1387
+ var a = new sc_Vector();
1388
+ for (var i = 0; i < arguments.length; i++)
1389
+ a.push(arguments[i]);
1390
+ return a;
1391
+ }
1392
+
1393
+ /*** META ((export vector-length array-length)
1394
+ (peephole (postfix ".length")))
1395
+ */
1396
+ function sc_vectorLength(v) {
1397
+ return v.length;
1398
+ }
1399
+
1400
+ /*** META ((export vector-ref array-ref)
1401
+ (peephole (hole 2 v "[" pos "]")))
1402
+ */
1403
+ function sc_vectorRef(v, pos) {
1404
+ return v[pos];
1405
+ }
1406
+
1407
+ /*** META ((export vector-set! array-set!)
1408
+ (peephole (hole 3 v "[" pos "] = " val)))
1409
+ */
1410
+ function sc_vectorSetBang(v, pos, val) {
1411
+ v[pos] = val;
1412
+ }
1413
+
1414
+ /*** META ((export vector->list array->list)) */
1415
+ function sc_vector2list(a) {
1416
+ var res = null;
1417
+ for (var i = a.length-1; i >= 0; i--)
1418
+ res = sc_cons(a[i], res);
1419
+ return res;
1420
+ }
1421
+
1422
+ /*** META ((export list->vector list->array)) */
1423
+ function sc_list2vector(l) {
1424
+ var a = new sc_Vector();
1425
+ while(l !== null) {
1426
+ a.push(l.car);
1427
+ l = l.cdr;
1428
+ }
1429
+ return a;
1430
+ }
1431
+
1432
+ /*** META ((export vector-fill! array-fill!)) */
1433
+ function sc_vectorFillBang(a, fill) {
1434
+ for (var i = 0; i < a.length; i++)
1435
+ a[i] = fill;
1436
+ }
1437
+
1438
+
1439
+ /*** META ((export #t)) */
1440
+ function sc_copyVector(a, len) {
1441
+ if (len <= a.length)
1442
+ return a.slice(0, len);
1443
+ else {
1444
+ var tmp = a.concat();
1445
+ tmp.length = len;
1446
+ return tmp;
1447
+ }
1448
+ }
1449
+
1450
+ /*** META ((export #t)
1451
+ (peephole (hole 3 a ".slice(" start "," end ")")))
1452
+ */
1453
+ function sc_vectorCopy(a, start, end) {
1454
+ return a.slice(start, end);
1455
+ }
1456
+
1457
+ /*** META ((export #t)) */
1458
+ function sc_vectorCopyBang(target, tstart, source, sstart, send) {
1459
+ if (!sstart) sstart = 0;
1460
+ if (!send) send = source.length;
1461
+
1462
+ // if target == source we don't want to overwrite not yet copied elements.
1463
+ if (tstart <= sstart) {
1464
+ for (var i = tstart, j = sstart; j < send; i++, j++) {
1465
+ target[i] = source[j];
1466
+ }
1467
+ } else {
1468
+ var diff = send - sstart;
1469
+ for (var i = tstart + diff - 1, j = send - 1;
1470
+ j >= sstart;
1471
+ i--, j--) {
1472
+ target[i] = source[j];
1473
+ }
1474
+ }
1475
+ return target;
1476
+ }
1477
+
1478
+ /*** META ((export #t)
1479
+ (type bool)
1480
+ (peephole (hole 1 "typeof " o " === 'function'")))
1481
+ */
1482
+ function sc_isProcedure(o) {
1483
+ return (typeof o === "function");
1484
+ }
1485
+
1486
+ /*** META ((export #t)) */
1487
+ function sc_apply(proc) {
1488
+ var args = new Array();
1489
+ // first part of arguments are not in list-form.
1490
+ for (var i = 1; i < arguments.length - 1; i++)
1491
+ args.push(arguments[i]);
1492
+ var l = arguments[arguments.length - 1];
1493
+ while (l !== null) {
1494
+ args.push(l.car);
1495
+ l = l.cdr;
1496
+ }
1497
+ return proc.apply(null, args);
1498
+ }
1499
+
1500
+ /*** META ((export #t)) */
1501
+ function sc_map(proc, l1) {
1502
+ if (l1 === undefined)
1503
+ return null;
1504
+ // else
1505
+ var nbApplyArgs = arguments.length - 1;
1506
+ var applyArgs = new Array(nbApplyArgs);
1507
+ var revres = null;
1508
+ while (l1 !== null) {
1509
+ for (var i = 0; i < nbApplyArgs; i++) {
1510
+ applyArgs[i] = arguments[i + 1].car;
1511
+ arguments[i + 1] = arguments[i + 1].cdr;
1512
+ }
1513
+ revres = sc_cons(proc.apply(null, applyArgs), revres);
1514
+ }
1515
+ return sc_reverseAppendBang(revres, null);
1516
+ }
1517
+
1518
+ /*** META ((export #t)) */
1519
+ function sc_mapBang(proc, l1) {
1520
+ if (l1 === undefined)
1521
+ return null;
1522
+ // else
1523
+ var l1_orig = l1;
1524
+ var nbApplyArgs = arguments.length - 1;
1525
+ var applyArgs = new Array(nbApplyArgs);
1526
+ while (l1 !== null) {
1527
+ var tmp = l1;
1528
+ for (var i = 0; i < nbApplyArgs; i++) {
1529
+ applyArgs[i] = arguments[i + 1].car;
1530
+ arguments[i + 1] = arguments[i + 1].cdr;
1531
+ }
1532
+ tmp.car = proc.apply(null, applyArgs);
1533
+ }
1534
+ return l1_orig;
1535
+ }
1536
+
1537
+ /*** META ((export #t)) */
1538
+ function sc_forEach(proc, l1) {
1539
+ if (l1 === undefined)
1540
+ return undefined;
1541
+ // else
1542
+ var nbApplyArgs = arguments.length - 1;
1543
+ var applyArgs = new Array(nbApplyArgs);
1544
+ while (l1 !== null) {
1545
+ for (var i = 0; i < nbApplyArgs; i++) {
1546
+ applyArgs[i] = arguments[i + 1].car;
1547
+ arguments[i + 1] = arguments[i + 1].cdr;
1548
+ }
1549
+ proc.apply(null, applyArgs);
1550
+ }
1551
+ // add return so FF does not complain.
1552
+ return undefined;
1553
+ }
1554
+
1555
+ /*** META ((export #t)) */
1556
+ function sc_filter(proc, l1) {
1557
+ var dummy = { cdr : null };
1558
+ var tail = dummy;
1559
+ while (l1 !== null) {
1560
+ if (proc(l1.car) !== false) {
1561
+ tail.cdr = sc_cons(l1.car, null);
1562
+ tail = tail.cdr;
1563
+ }
1564
+ l1 = l1.cdr;
1565
+ }
1566
+ return dummy.cdr;
1567
+ }
1568
+
1569
+ /*** META ((export #t)) */
1570
+ function sc_filterBang(proc, l1) {
1571
+ var head = sc_cons("dummy", l1);
1572
+ var it = head;
1573
+ var next = l1;
1574
+ while (next !== null) {
1575
+ if (proc(next.car) !== false) {
1576
+ it.cdr = next
1577
+ it = next;
1578
+ }
1579
+ next = next.cdr;
1580
+ }
1581
+ it.cdr = null;
1582
+ return head.cdr;
1583
+ }
1584
+
1585
+ function sc_filterMap1(proc, l1) {
1586
+ var revres = null;
1587
+ while (l1 !== null) {
1588
+ var tmp = proc(l1.car)
1589
+ if (tmp !== false) revres = sc_cons(tmp, revres);
1590
+ l1 = l1.cdr;
1591
+ }
1592
+ return sc_reverseAppendBang(revres, null);
1593
+ }
1594
+ function sc_filterMap2(proc, l1, l2) {
1595
+ var revres = null;
1596
+ while (l1 !== null) {
1597
+ var tmp = proc(l1.car, l2.car);
1598
+ if(tmp !== false) revres = sc_cons(tmp, revres);
1599
+ l1 = l1.cdr;
1600
+ l2 = l2.cdr
1601
+ }
1602
+ return sc_reverseAppendBang(revres, null);
1603
+ }
1604
+
1605
+ /*** META ((export #t)) */
1606
+ function sc_filterMap(proc, l1, l2, l3) {
1607
+ if (l2 === undefined)
1608
+ return sc_filterMap1(proc, l1);
1609
+ else if (l3 === undefined)
1610
+ return sc_filterMap2(proc, l1, l2);
1611
+ // else
1612
+ var nbApplyArgs = arguments.length - 1;
1613
+ var applyArgs = new Array(nbApplyArgs);
1614
+ var revres = null;
1615
+ while (l1 !== null) {
1616
+ for (var i = 0; i < nbApplyArgs; i++) {
1617
+ applyArgs[i] = arguments[i + 1].car;
1618
+ arguments[i + 1] = arguments[i + 1].cdr;
1619
+ }
1620
+ var tmp = proc.apply(null, applyArgs);
1621
+ if(tmp !== false) revres = sc_cons(tmp, revres);
1622
+ }
1623
+ return sc_reverseAppendBang(revres, null);
1624
+ }
1625
+
1626
+ /*** META ((export #t)) */
1627
+ function sc_any(proc, l) {
1628
+ var revres = null;
1629
+ while (l !== null) {
1630
+ var tmp = proc(l.car);
1631
+ if(tmp !== false) return tmp;
1632
+ l = l.cdr;
1633
+ }
1634
+ return false;
1635
+ }
1636
+
1637
+ /*** META ((export any?)
1638
+ (peephole (hole 2 "sc_any(" proc "," l ") !== false")))
1639
+ */
1640
+ function sc_anyPred(proc, l) {
1641
+ return sc_any(proc, l)!== false;
1642
+ }
1643
+
1644
+ /*** META ((export #t)) */
1645
+ function sc_every(proc, l) {
1646
+ var revres = null;
1647
+ var tmp = true;
1648
+ while (l !== null) {
1649
+ tmp = proc(l.car);
1650
+ if (tmp === false) return false;
1651
+ l = l.cdr;
1652
+ }
1653
+ return tmp;
1654
+ }
1655
+
1656
+ /*** META ((export every?)
1657
+ (peephole (hole 2 "sc_every(" proc "," l ") !== false")))
1658
+ */
1659
+ function sc_everyPred(proc, l) {
1660
+ var tmp = sc_every(proc, l);
1661
+ if (tmp !== false) return true;
1662
+ return false;
1663
+ }
1664
+
1665
+ /*** META ((export #t)
1666
+ (peephole (postfix "()")))
1667
+ */
1668
+ function sc_force(o) {
1669
+ return o();
1670
+ }
1671
+
1672
+ /*** META ((export #t)) */
1673
+ function sc_makePromise(proc) {
1674
+ var isResultReady = false;
1675
+ var result = undefined;
1676
+ return function() {
1677
+ if (!isResultReady) {
1678
+ var tmp = proc();
1679
+ if (!isResultReady) {
1680
+ isResultReady = true;
1681
+ result = tmp;
1682
+ }
1683
+ }
1684
+ return result;
1685
+ };
1686
+ }
1687
+
1688
+ function sc_Values(values) {
1689
+ this.values = values;
1690
+ }
1691
+
1692
+ /*** META ((export #t)
1693
+ (peephole (values)))
1694
+ */
1695
+ function sc_values() {
1696
+ if (arguments.length === 1)
1697
+ return arguments[0];
1698
+ else
1699
+ return new sc_Values(arguments);
1700
+ }
1701
+
1702
+ /*** META ((export #t)) */
1703
+ function sc_callWithValues(producer, consumer) {
1704
+ var produced = producer();
1705
+ if (produced instanceof sc_Values)
1706
+ return consumer.apply(null, produced.values);
1707
+ else
1708
+ return consumer(produced);
1709
+ }
1710
+
1711
+ /*** META ((export #t)) */
1712
+ function sc_dynamicWind(before, thunk, after) {
1713
+ before();
1714
+ try {
1715
+ var res = thunk();
1716
+ return res;
1717
+ } finally {
1718
+ after();
1719
+ }
1720
+ }
1721
+
1722
+
1723
+ // TODO: eval/scheme-report-environment/null-environment/interaction-environment
1724
+
1725
+ // LIMITATION: 'load' doesn't exist without files.
1726
+ // LIMITATION: transcript-on/transcript-off doesn't exist without files.
1727
+
1728
+
1729
+ function sc_Struct(name) {
1730
+ this.name = name;
1731
+ }
1732
+ sc_Struct.prototype.sc_toDisplayString = function() {
1733
+ return "#<struct" + sc_hash(this) + ">";
1734
+ };
1735
+ sc_Struct.prototype.sc_toWriteString = sc_Struct.prototype.sc_toDisplayString;
1736
+
1737
+ /*** META ((export #t)
1738
+ (peephole (hole 1 "new sc_Struct(" name ")")))
1739
+ */
1740
+ function sc_makeStruct(name) {
1741
+ return new sc_Struct(name);
1742
+ }
1743
+
1744
+ /*** META ((export #t)
1745
+ (type bool)
1746
+ (peephole (postfix " instanceof sc_Struct")))
1747
+ */
1748
+ function sc_isStruct(o) {
1749
+ return (o instanceof sc_Struct);
1750
+ }
1751
+
1752
+ /*** META ((export #t)
1753
+ (type bool)
1754
+ (peephole (hole 2 "(" 1 " instanceof sc_Struct) && ( " 1 ".name === " 0 ")")))
1755
+ */
1756
+ function sc_isStructNamed(name, s) {
1757
+ return ((s instanceof sc_Struct) && (s.name === name));
1758
+ }
1759
+
1760
+ /*** META ((export struct-field)
1761
+ (peephole (hole 3 0 "[" 2 "]")))
1762
+ */
1763
+ function sc_getStructField(s, name, field) {
1764
+ return s[field];
1765
+ }
1766
+
1767
+ /*** META ((export struct-field-set!)
1768
+ (peephole (hole 4 0 "[" 2 "] = " 3)))
1769
+ */
1770
+ function sc_setStructFieldBang(s, name, field, val) {
1771
+ s[field] = val;
1772
+ }
1773
+
1774
+ /*** META ((export #t)
1775
+ (peephole (prefix "~")))
1776
+ */
1777
+ function sc_bitNot(x) {
1778
+ return ~x;
1779
+ }
1780
+
1781
+ /*** META ((export #t)
1782
+ (peephole (infix 2 2 "&")))
1783
+ */
1784
+ function sc_bitAnd(x, y) {
1785
+ return x & y;
1786
+ }
1787
+
1788
+ /*** META ((export #t)
1789
+ (peephole (infix 2 2 "|")))
1790
+ */
1791
+ function sc_bitOr(x, y) {
1792
+ return x | y;
1793
+ }
1794
+
1795
+ /*** META ((export #t)
1796
+ (peephole (infix 2 2 "^")))
1797
+ */
1798
+ function sc_bitXor(x, y) {
1799
+ return x ^ y;
1800
+ }
1801
+
1802
+ /*** META ((export #t)
1803
+ (peephole (infix 2 2 "<<")))
1804
+ */
1805
+ function sc_bitLsh(x, y) {
1806
+ return x << y;
1807
+ }
1808
+
1809
+ /*** META ((export #t)
1810
+ (peephole (infix 2 2 ">>")))
1811
+ */
1812
+ function sc_bitRsh(x, y) {
1813
+ return x >> y;
1814
+ }
1815
+
1816
+ /*** META ((export #t)
1817
+ (peephole (infix 2 2 ">>>")))
1818
+ */
1819
+ function sc_bitUrsh(x, y) {
1820
+ return x >>> y;
1821
+ }
1822
+
1823
+ /*** META ((export js-field js-property)
1824
+ (peephole (hole 2 o "[" field "]")))
1825
+ */
1826
+ function sc_jsField(o, field) {
1827
+ return o[field];
1828
+ }
1829
+
1830
+ /*** META ((export js-field-set! js-property-set!)
1831
+ (peephole (hole 3 o "[" field "] = " val)))
1832
+ */
1833
+ function sc_setJsFieldBang(o, field, val) {
1834
+ return o[field] = val;
1835
+ }
1836
+
1837
+ /*** META ((export js-field-delete! js-property-delete!)
1838
+ (peephole (hole 2 "delete" o "[" field "]")))
1839
+ */
1840
+ function sc_deleteJsFieldBang(o, field) {
1841
+ delete o[field];
1842
+ }
1843
+
1844
+ /*** META ((export #t)
1845
+ (peephole (jsCall)))
1846
+ */
1847
+ function sc_jsCall(o, fun) {
1848
+ var args = new Array();
1849
+ for (var i = 2; i < arguments.length; i++)
1850
+ args[i-2] = arguments[i];
1851
+ return fun.apply(o, args);
1852
+ }
1853
+
1854
+ /*** META ((export #t)
1855
+ (peephole (jsMethodCall)))
1856
+ */
1857
+ function sc_jsMethodCall(o, field) {
1858
+ var args = new Array();
1859
+ for (var i = 2; i < arguments.length; i++)
1860
+ args[i-2] = arguments[i];
1861
+ return o[field].apply(o, args);
1862
+ }
1863
+
1864
+ /*** META ((export new js-new)
1865
+ (peephole (jsNew)))
1866
+ */
1867
+ function sc_jsNew(c) {
1868
+ var evalStr = "new c(";
1869
+ evalStr +=arguments.length > 1? "arguments[1]": "";
1870
+ for (var i = 2; i < arguments.length; i++)
1871
+ evalStr += ", arguments[" + i + "]";
1872
+ evalStr +=")";
1873
+ return eval(evalStr);
1874
+ }
1875
+
1876
+ // ======================== RegExp ====================
1877
+ /*** META ((export #t)) */
1878
+ function sc_pregexp(re) {
1879
+ return new RegExp(sc_string2jsstring(re));
1880
+ }
1881
+
1882
+ /*** META ((export #t)) */
1883
+ function sc_pregexpMatch(re, s) {
1884
+ var reg = (re instanceof RegExp) ? re : sc_pregexp(re);
1885
+ var tmp = reg.exec(sc_string2jsstring(s));
1886
+
1887
+ if (tmp == null) return false;
1888
+
1889
+ var res = null;
1890
+ for (var i = tmp.length-1; i >= 0; i--) {
1891
+ if (tmp[i] !== null) {
1892
+ res = sc_cons(sc_jsstring2string(tmp[i]), res);
1893
+ } else {
1894
+ res = sc_cons(false, res);
1895
+ }
1896
+ }
1897
+ return res;
1898
+ }
1899
+
1900
+ /*** META ((export #t)) */
1901
+ function sc_pregexpReplace(re, s1, s2) {
1902
+ var reg;
1903
+ var jss1 = sc_string2jsstring(s1);
1904
+ var jss2 = sc_string2jsstring(s2);
1905
+
1906
+ if (re instanceof RegExp) {
1907
+ if (re.global)
1908
+ reg = re;
1909
+ else
1910
+ reg = new RegExp(re.source);
1911
+ } else {
1912
+ reg = new RegExp(sc_string2jsstring(re));
1913
+ }
1914
+
1915
+ return jss1.replace(reg, jss2);
1916
+ }
1917
+
1918
+ /*** META ((export pregexp-replace*)) */
1919
+ function sc_pregexpReplaceAll(re, s1, s2) {
1920
+ var reg;
1921
+ var jss1 = sc_string2jsstring(s1);
1922
+ var jss2 = sc_string2jsstring(s2);
1923
+
1924
+ if (re instanceof RegExp) {
1925
+ if (re.global)
1926
+ reg = re;
1927
+ else
1928
+ reg = new RegExp(re.source, "g");
1929
+ } else {
1930
+ reg = new RegExp(sc_string2jsstring(re), "g");
1931
+ }
1932
+
1933
+ return jss1.replace(reg, jss2);
1934
+ }
1935
+
1936
+ /*** META ((export #t)) */
1937
+ function sc_pregexpSplit(re, s) {
1938
+ var reg = ((re instanceof RegExp) ?
1939
+ re :
1940
+ new RegExp(sc_string2jsstring(re)));
1941
+ var jss = sc_string2jsstring(s);
1942
+ var tmp = jss.split(reg);
1943
+
1944
+ if (tmp == null) return false;
1945
+
1946
+ return sc_vector2list(tmp);
1947
+ }
1948
+
1949
+
1950
+ /* =========================================================================== */
1951
+ /* Other library stuff */
1952
+ /* =========================================================================== */
1953
+
1954
+ /*** META ((export #t)
1955
+ (peephole (hole 1 "Math.floor(Math.random()*" 'n ")")))
1956
+ */
1957
+ function sc_random(n) {
1958
+ return Math.floor(Math.random()*n);
1959
+ }
1960
+
1961
+ /*** META ((export current-date)
1962
+ (peephole (hole 0 "new Date()")))
1963
+ */
1964
+ function sc_currentDate() {
1965
+ return new Date();
1966
+ }
1967
+
1968
+ function sc_Hashtable() {
1969
+ }
1970
+ sc_Hashtable.prototype.toString = function() {
1971
+ return "#{%hashtable}";
1972
+ };
1973
+ // sc_toWriteString == sc_toDisplayString == toString
1974
+
1975
+ function sc_HashtableElement(key, val) {
1976
+ this.key = key;
1977
+ this.val = val;
1978
+ }
1979
+
1980
+ /*** META ((export #t)
1981
+ (peephole (hole 0 "new sc_Hashtable()")))
1982
+ */
1983
+ function sc_makeHashtable() {
1984
+ return new sc_Hashtable();
1985
+ }
1986
+
1987
+ /*** META ((export #t)) */
1988
+ function sc_hashtablePutBang(ht, key, val) {
1989
+ var hash = sc_hash(key);
1990
+ ht[hash] = new sc_HashtableElement(key, val);
1991
+ }
1992
+
1993
+ /*** META ((export #t)) */
1994
+ function sc_hashtableGet(ht, key) {
1995
+ var hash = sc_hash(key);
1996
+ if (hash in ht)
1997
+ return ht[hash].val;
1998
+ else
1999
+ return false;
2000
+ }
2001
+
2002
+ /*** META ((export #t)) */
2003
+ function sc_hashtableForEach(ht, f) {
2004
+ for (var v in ht) {
2005
+ if (ht[v] instanceof sc_HashtableElement)
2006
+ f(ht[v].key, ht[v].val);
2007
+ }
2008
+ }
2009
+
2010
+ /*** META ((export hashtable-contains?)
2011
+ (peephole (hole 2 "sc_hash(" 1 ") in " 0)))
2012
+ */
2013
+ function sc_hashtableContains(ht, key) {
2014
+ var hash = sc_hash(key);
2015
+ if (hash in ht)
2016
+ return true;
2017
+ else
2018
+ return false;
2019
+ }
2020
+
2021
+ var SC_HASH_COUNTER = 0;
2022
+
2023
+ function sc_hash(o) {
2024
+ if (o === null)
2025
+ return "null";
2026
+ else if (o === undefined)
2027
+ return "undefined";
2028
+ else if (o === true)
2029
+ return "true";
2030
+ else if (o === false)
2031
+ return "false";
2032
+ else if (typeof o === "number")
2033
+ return "num-" + o;
2034
+ else if (typeof o === "string")
2035
+ return "jsstr-" + o;
2036
+ else if (o.sc_getHash)
2037
+ return o.sc_getHash();
2038
+ else
2039
+ return sc_counterHash.call(o);
2040
+ }
2041
+ function sc_counterHash() {
2042
+ if (!this.sc_hash) {
2043
+ this.sc_hash = "hash-" + SC_HASH_COUNTER;
2044
+ SC_HASH_COUNTER++;
2045
+ }
2046
+ return this.sc_hash;
2047
+ }
2048
+
2049
+ function sc_Trampoline(args, maxTailCalls) {
2050
+ this['__trampoline return__'] = true;
2051
+ this.args = args;
2052
+ this.MAX_TAIL_CALLs = maxTailCalls;
2053
+ }
2054
+ // TODO: call/cc stuff
2055
+ sc_Trampoline.prototype.restart = function() {
2056
+ var o = this;
2057
+ while (true) {
2058
+ // set both globals.
2059
+ SC_TAIL_OBJECT.calls = o.MAX_TAIL_CALLs-1;
2060
+ var fun = o.args.callee;
2061
+ var res = fun.apply(SC_TAIL_OBJECT, o.args);
2062
+ if (res instanceof sc_Trampoline)
2063
+ o = res;
2064
+ else
2065
+ return res;
2066
+ }
2067
+ }
2068
+
2069
+ /*** META ((export bind-exit-lambda)) */
2070
+ function sc_bindExitLambda(proc) {
2071
+ var escape_obj = new sc_BindExitException();
2072
+ var escape = function(res) {
2073
+ escape_obj.res = res;
2074
+ throw escape_obj;
2075
+ };
2076
+ try {
2077
+ return proc(escape);
2078
+ } catch(e) {
2079
+ if (e === escape_obj) {
2080
+ return e.res;
2081
+ }
2082
+ throw e;
2083
+ }
2084
+ }
2085
+ function sc_BindExitException() {
2086
+ this._internalException = true;
2087
+ }
2088
+
2089
+ var SC_SCM2JS_GLOBALS = new Object();
2090
+
2091
+ // default tail-call depth.
2092
+ // normally the program should set it again. but just in case...
2093
+ var SC_TAIL_OBJECT = new Object();
2094
+ SC_SCM2JS_GLOBALS.TAIL_OBJECT = SC_TAIL_OBJECT;
2095
+ // ======================== I/O =======================
2096
+
2097
+ /*------------------------------------------------------------------*/
2098
+
2099
+ function sc_EOF() {
2100
+ }
2101
+ var SC_EOF_OBJECT = new sc_EOF();
2102
+
2103
+ function sc_Port() {
2104
+ }
2105
+
2106
+ /* --------------- Input ports -------------------------------------*/
2107
+
2108
+ function sc_InputPort() {
2109
+ }
2110
+ sc_InputPort.prototype = new sc_Port();
2111
+
2112
+ sc_InputPort.prototype.peekChar = function() {
2113
+ if (!("peeked" in this))
2114
+ this.peeked = this.getNextChar();
2115
+ return this.peeked;
2116
+ }
2117
+ sc_InputPort.prototype.readChar = function() {
2118
+ var tmp = this.peekChar();
2119
+ delete this.peeked;
2120
+ return tmp;
2121
+ }
2122
+ sc_InputPort.prototype.isCharReady = function() {
2123
+ return true;
2124
+ }
2125
+ sc_InputPort.prototype.close = function() {
2126
+ // do nothing
2127
+ }
2128
+
2129
+ /* .............. String port ..........................*/
2130
+ function sc_ErrorInputPort() {
2131
+ };
2132
+ sc_ErrorInputPort.prototype = new sc_InputPort();
2133
+ sc_ErrorInputPort.prototype.getNextChar = function() {
2134
+ throw "can't read from error-port.";
2135
+ };
2136
+ sc_ErrorInputPort.prototype.isCharReady = function() {
2137
+ return false;
2138
+ };
2139
+
2140
+
2141
+ /* .............. String port ..........................*/
2142
+
2143
+ function sc_StringInputPort(jsStr) {
2144
+ // we are going to do some charAts on the str.
2145
+ // instead of recreating all the time a String-object, we
2146
+ // create one in the beginning. (not sure, if this is really an optim)
2147
+ this.str = new String(jsStr);
2148
+ this.pos = 0;
2149
+ }
2150
+ sc_StringInputPort.prototype = new sc_InputPort();
2151
+ sc_StringInputPort.prototype.getNextChar = function() {
2152
+ if (this.pos >= this.str.length)
2153
+ return SC_EOF_OBJECT;
2154
+ return this.str.charAt(this.pos++);
2155
+ };
2156
+
2157
+ /* ------------- Read and other lib-funs -------------------------------*/
2158
+ function sc_Token(type, val, pos) {
2159
+ this.type = type;
2160
+ this.val = val;
2161
+ this.pos = pos;
2162
+ }
2163
+ sc_Token.EOF = 0/*EOF*/;
2164
+ sc_Token.OPEN_PAR = 1/*OPEN_PAR*/;
2165
+ sc_Token.CLOSE_PAR = 2/*CLOSE_PAR*/;
2166
+ sc_Token.OPEN_BRACE = 3/*OPEN_BRACE*/;
2167
+ sc_Token.CLOSE_BRACE = 4/*CLOSE_BRACE*/;
2168
+ sc_Token.OPEN_BRACKET = 5/*OPEN_BRACKET*/;
2169
+ sc_Token.CLOSE_BRACKET = 6/*CLOSE_BRACKET*/;
2170
+ sc_Token.WHITESPACE = 7/*WHITESPACE*/;
2171
+ sc_Token.QUOTE = 8/*QUOTE*/;
2172
+ sc_Token.ID = 9/*ID*/;
2173
+ sc_Token.DOT = 10/*DOT*/;
2174
+ sc_Token.STRING = 11/*STRING*/;
2175
+ sc_Token.NUMBER = 12/*NUMBER*/;
2176
+ sc_Token.ERROR = 13/*ERROR*/;
2177
+ sc_Token.VECTOR_BEGIN = 14/*VECTOR_BEGIN*/;
2178
+ sc_Token.TRUE = 15/*TRUE*/;
2179
+ sc_Token.FALSE = 16/*FALSE*/;
2180
+ sc_Token.UNSPECIFIED = 17/*UNSPECIFIED*/;
2181
+ sc_Token.REFERENCE = 18/*REFERENCE*/;
2182
+ sc_Token.STORE = 19/*STORE*/;
2183
+ sc_Token.CHAR = 20/*CHAR*/;
2184
+
2185
+ var SC_ID_CLASS = SC_LOWER_CLASS + SC_UPPER_CLASS + "!$%*+-./:<=>?@^_~";
2186
+ function sc_Tokenizer(port) {
2187
+ this.port = port;
2188
+ }
2189
+ sc_Tokenizer.prototype.peekToken = function() {
2190
+ if (this.peeked)
2191
+ return this.peeked;
2192
+ var newToken = this.nextToken();
2193
+ this.peeked = newToken;
2194
+ return newToken;
2195
+ };
2196
+ sc_Tokenizer.prototype.readToken = function() {
2197
+ var tmp = this.peekToken();
2198
+ delete this.peeked;
2199
+ return tmp;
2200
+ };
2201
+ sc_Tokenizer.prototype.nextToken = function() {
2202
+ var port = this.port;
2203
+
2204
+ function isNumberChar(c) {
2205
+ return (c >= "0" && c <= "9");
2206
+ };
2207
+ function isIdOrNumberChar(c) {
2208
+ return SC_ID_CLASS.indexOf(c) != -1 || // ID-char
2209
+ (c >= "0" && c <= "9");
2210
+ }
2211
+ function isWhitespace(c) {
2212
+ return c === " " || c === "\r" || c === "\n" || c === "\t" || c === "\f";
2213
+ };
2214
+ function isWhitespaceOrEOF(c) {
2215
+ return isWhitespace(c) || c === SC_EOF_OBJECT;
2216
+ };
2217
+
2218
+ function readString() {
2219
+ res = "";
2220
+ while (true) {
2221
+ var c = port.readChar();
2222
+ switch (c) {
2223
+ case '"':
2224
+ return new sc_Token(11/*STRING*/, res);
2225
+ case "\\":
2226
+ var tmp = port.readChar();
2227
+ switch (tmp) {
2228
+ case '0': res += "\0"; break;
2229
+ case 'a': res += "\a"; break;
2230
+ case 'b': res += "\b"; break;
2231
+ case 'f': res += "\f"; break;
2232
+ case 'n': res += "\n"; break;
2233
+ case 'r': res += "\r"; break;
2234
+ case 't': res += "\t"; break;
2235
+ case 'v': res += "\v"; break;
2236
+ case '"': res += '"'; break;
2237
+ case '\\': res += '\\'; break;
2238
+ case 'x':
2239
+ /* hexa-number */
2240
+ var nb = 0;
2241
+ while (true) {
2242
+ var hexC = port.peekChar();
2243
+ if (hexC >= '0' && hexC <= '9') {
2244
+ port.readChar();
2245
+ nb = nb * 16 + hexC.charCodeAt(0) - '0'.charCodeAt(0);
2246
+ } else if (hexC >= 'a' && hexC <= 'f') {
2247
+ port.readChar();
2248
+ nb = nb * 16 + hexC.charCodeAt(0) - 'a'.charCodeAt(0);
2249
+ } else if (hexC >= 'A' && hexC <= 'F') {
2250
+ port.readChar();
2251
+ nb = nb * 16 + hexC.charCodeAt(0) - 'A'.charCodeAt(0);
2252
+ } else {
2253
+ // next char isn't part of hex.
2254
+ res += String.fromCharCode(nb);
2255
+ break;
2256
+ }
2257
+ }
2258
+ break;
2259
+ default:
2260
+ if (tmp === SC_EOF_OBJECT) {
2261
+ return new sc_Token(13/*ERROR*/, "unclosed string-literal" + res);
2262
+ }
2263
+ res += tmp;
2264
+ }
2265
+ break;
2266
+ default:
2267
+ if (c === SC_EOF_OBJECT) {
2268
+ return new sc_Token(13/*ERROR*/, "unclosed string-literal" + res);
2269
+ }
2270
+ res += c;
2271
+ }
2272
+ }
2273
+ };
2274
+ function readIdOrNumber(firstChar) {
2275
+ var res = firstChar;
2276
+ while (isIdOrNumberChar(port.peekChar()))
2277
+ res += port.readChar();
2278
+ if (isNaN(res))
2279
+ return new sc_Token(9/*ID*/, res);
2280
+ else
2281
+ return new sc_Token(12/*NUMBER*/, res - 0);
2282
+ };
2283
+
2284
+ function skipWhitespaceAndComments() {
2285
+ var done = false;
2286
+ while (!done) {
2287
+ done = true;
2288
+ while (isWhitespace(port.peekChar()))
2289
+ port.readChar();
2290
+ if (port.peekChar() === ';') {
2291
+ port.readChar();
2292
+ done = false;
2293
+ while (true) {
2294
+ curChar = port.readChar();
2295
+ if (curChar === SC_EOF_OBJECT ||
2296
+ curChar === '\n')
2297
+ break;
2298
+ }
2299
+ }
2300
+ }
2301
+ };
2302
+
2303
+ function readDot() {
2304
+ if (isWhitespace(port.peekChar()))
2305
+ return new sc_Token(10/*DOT*/);
2306
+ else
2307
+ return readIdOrNumber(".");
2308
+ };
2309
+
2310
+ function readSharp() {
2311
+ var c = port.readChar();
2312
+ if (isWhitespace(c))
2313
+ return new sc_Token(13/*ERROR*/, "bad #-pattern0.");
2314
+
2315
+ // reference
2316
+ if (isNumberChar(c)) {
2317
+ var nb = c - 0;
2318
+ while (isNumberChar(port.peekChar()))
2319
+ nb = nb*10 + (port.readChar() - 0);
2320
+ switch (port.readChar()) {
2321
+ case '#':
2322
+ return new sc_Token(18/*REFERENCE*/, nb);
2323
+ case '=':
2324
+ return new sc_Token(19/*STORE*/, nb);
2325
+ default:
2326
+ return new sc_Token(13/*ERROR*/, "bad #-pattern1." + nb);
2327
+ }
2328
+ }
2329
+
2330
+ if (c === "(")
2331
+ return new sc_Token(14/*VECTOR_BEGIN*/);
2332
+
2333
+ if (c === "\\") { // character
2334
+ var tmp = ""
2335
+ while (!isWhitespaceOrEOF(port.peekChar()))
2336
+ tmp += port.readChar();
2337
+ switch (tmp.length) {
2338
+ case 0: // it's escaping a whitespace char:
2339
+ if (sc_isEOFObject(port.peekChar))
2340
+ return new sc_Token(13/*ERROR*/, "bad #-pattern2.");
2341
+ else
2342
+ return new sc_Token(20/*CHAR*/, port.readChar());
2343
+ case 1:
2344
+ return new sc_Token(20/*CHAR*/, tmp);
2345
+ default:
2346
+ var entry = sc_Char.readable2char[tmp.toLowerCase()];
2347
+ if (entry)
2348
+ return new sc_Token(20/*CHAR*/, entry);
2349
+ else
2350
+ return new sc_Token(13/*ERROR*/, "unknown character description: #\\" + tmp);
2351
+ }
2352
+ }
2353
+
2354
+ // some constants (#t, #f, #unspecified)
2355
+ var res;
2356
+ var needing;
2357
+ switch (c) {
2358
+ case 't': res = new sc_Token(15/*TRUE*/, true); needing = ""; break;
2359
+ case 'f': res = new sc_Token(16/*FALSE*/, false); needing = ""; break;
2360
+ case 'u': res = new sc_Token(17/*UNSPECIFIED*/, undefined); needing = "nspecified"; break;
2361
+ default:
2362
+ return new sc_Token(13/*ERROR*/, "bad #-pattern3: " + c);
2363
+ }
2364
+ while(true) {
2365
+ c = port.peekChar();
2366
+ if ((isWhitespaceOrEOF(c) || c === ')') &&
2367
+ needing == "")
2368
+ return res;
2369
+ else if (isWhitespace(c) || needing == "")
2370
+ return new sc_Token(13/*ERROR*/, "bad #-pattern4 " + c + " " + needing);
2371
+ else if (needing.charAt(0) == c) {
2372
+ port.readChar(); // consume
2373
+ needing = needing.slice(1);
2374
+ } else
2375
+ return new sc_Token(13/*ERROR*/, "bad #-pattern5");
2376
+ }
2377
+
2378
+ };
2379
+
2380
+ skipWhitespaceAndComments();
2381
+ var curChar = port.readChar();
2382
+ if (curChar === SC_EOF_OBJECT)
2383
+ return new sc_Token(0/*EOF*/, curChar);
2384
+ switch (curChar)
2385
+ {
2386
+ case " ":
2387
+ case "\n":
2388
+ case "\t":
2389
+ return readWhitespace();
2390
+ case "(":
2391
+ return new sc_Token(1/*OPEN_PAR*/);
2392
+ case ")":
2393
+ return new sc_Token(2/*CLOSE_PAR*/);
2394
+ case "{":
2395
+ return new sc_Token(3/*OPEN_BRACE*/);
2396
+ case "}":
2397
+ return new sc_Token(4/*CLOSE_BRACE*/);
2398
+ case "[":
2399
+ return new sc_Token(5/*OPEN_BRACKET*/);
2400
+ case "]":
2401
+ return new sc_Token(6/*CLOSE_BRACKET*/);
2402
+ case "'":
2403
+ return new sc_Token(8/*QUOTE*/);
2404
+ case "#":
2405
+ return readSharp();
2406
+ case ".":
2407
+ return readDot();
2408
+ case '"':
2409
+ return readString();
2410
+ default:
2411
+ if (isIdOrNumberChar(curChar))
2412
+ return readIdOrNumber(curChar);
2413
+ throw "unexpected character: " + curChar;
2414
+ }
2415
+ };
2416
+
2417
+ function sc_Reader(tokenizer) {
2418
+ this.tokenizer = tokenizer;
2419
+ this.backref = new Array();
2420
+ }
2421
+ sc_Reader.prototype.read = function() {
2422
+ function readList(listBeginType) {
2423
+ function matchesPeer(open, close) {
2424
+ return open === 1/*OPEN_PAR*/ && close === 2/*CLOSE_PAR*/
2425
+ || open === 3/*OPEN_BRACE*/ && close === 4/*CLOSE_BRACE*/
2426
+ || open === 5/*OPEN_BRACKET*/ && close === 6/*CLOSE_BRACKET*/;
2427
+ };
2428
+ var res = null;
2429
+
2430
+ while (true) {
2431
+ var token = tokenizer.peekToken();
2432
+
2433
+ switch (token.type) {
2434
+ case 2/*CLOSE_PAR*/:
2435
+ case 4/*CLOSE_BRACE*/:
2436
+ case 6/*CLOSE_BRACKET*/:
2437
+ if (matchesPeer(listBeginType, token.type)) {
2438
+ tokenizer.readToken(); // consume token
2439
+ return sc_reverseBang(res);
2440
+ } else
2441
+ throw "closing par doesn't match: " + listBeginType
2442
+ + " " + listEndType;
2443
+
2444
+ case 0/*EOF*/:
2445
+ throw "unexpected end of file";
2446
+
2447
+ case 10/*DOT*/:
2448
+ tokenizer.readToken(); // consume token
2449
+ var cdr = this.read();
2450
+ var par = tokenizer.readToken();
2451
+ if (!matchesPeer(listBeginType, par.type))
2452
+ throw "closing par doesn't match: " + listBeginType
2453
+ + " " + par.type;
2454
+ else
2455
+ return sc_reverseAppendBang(res, cdr);
2456
+
2457
+
2458
+ default:
2459
+ res = sc_cons(this.read(), res);
2460
+ }
2461
+ }
2462
+ };
2463
+ function readQuote() {
2464
+ return sc_cons("quote", sc_cons(this.read(), null));
2465
+ };
2466
+ function readVector() {
2467
+ // opening-parenthesis is already consumed
2468
+ var a = new Array();
2469
+ while (true) {
2470
+ var token = tokenizer.peekToken();
2471
+ switch (token.type) {
2472
+ case 2/*CLOSE_PAR*/:
2473
+ tokenizer.readToken();
2474
+ return a;
2475
+
2476
+ default:
2477
+ a.push(this.read());
2478
+ }
2479
+ }
2480
+ };
2481
+
2482
+ function storeRefence(nb) {
2483
+ var tmp = this.read();
2484
+ this.backref[nb] = tmp;
2485
+ return tmp;
2486
+ };
2487
+
2488
+ function readReference(nb) {
2489
+ if (nb in this.backref)
2490
+ return this.backref[nb];
2491
+ else
2492
+ throw "bad reference: " + nb;
2493
+ };
2494
+
2495
+ var tokenizer = this.tokenizer;
2496
+
2497
+ var token = tokenizer.readToken();
2498
+
2499
+ // handle error
2500
+ if (token.type === 13/*ERROR*/)
2501
+ throw token.val;
2502
+
2503
+ switch (token.type) {
2504
+ case 1/*OPEN_PAR*/:
2505
+ case 3/*OPEN_BRACE*/:
2506
+ case 5/*OPEN_BRACKET*/:
2507
+ return readList.call(this, token.type);
2508
+ case 8/*QUOTE*/:
2509
+ return readQuote.call(this);
2510
+ case 11/*STRING*/:
2511
+ return sc_jsstring2string(token.val);
2512
+ case 20/*CHAR*/:
2513
+ return new sc_Char(token.val);
2514
+ case 14/*VECTOR_BEGIN*/:
2515
+ return readVector.call(this);
2516
+ case 18/*REFERENCE*/:
2517
+ return readReference.call(this, token.val);
2518
+ case 19/*STORE*/:
2519
+ return storeRefence.call(this, token.val);
2520
+ case 9/*ID*/:
2521
+ return sc_jsstring2symbol(token.val);
2522
+ case 0/*EOF*/:
2523
+ case 12/*NUMBER*/:
2524
+ case 15/*TRUE*/:
2525
+ case 16/*FALSE*/:
2526
+ case 17/*UNSPECIFIED*/:
2527
+ return token.val;
2528
+ default:
2529
+ throw "unexpected token " + token.type + " " + token.val;
2530
+ }
2531
+ };
2532
+
2533
+ /*** META ((export #t)) */
2534
+ function sc_read(port) {
2535
+ if (port === undefined) // we assume the port hasn't been given.
2536
+ port = SC_DEFAULT_IN; // THREAD: shared var...
2537
+ var reader = new sc_Reader(new sc_Tokenizer(port));
2538
+ return reader.read();
2539
+ }
2540
+ /*** META ((export #t)) */
2541
+ function sc_readChar(port) {
2542
+ if (port === undefined) // we assume the port hasn't been given.
2543
+ port = SC_DEFAULT_IN; // THREAD: shared var...
2544
+ var t = port.readChar();
2545
+ return t === SC_EOF_OBJECT? t: new sc_Char(t);
2546
+ }
2547
+ /*** META ((export #t)) */
2548
+ function sc_peekChar(port) {
2549
+ if (port === undefined) // we assume the port hasn't been given.
2550
+ port = SC_DEFAULT_IN; // THREAD: shared var...
2551
+ var t = port.peekChar();
2552
+ return t === SC_EOF_OBJECT? t: new sc_Char(t);
2553
+ }
2554
+ /*** META ((export #t)
2555
+ (type bool))
2556
+ */
2557
+ function sc_isCharReady(port) {
2558
+ if (port === undefined) // we assume the port hasn't been given.
2559
+ port = SC_DEFAULT_IN; // THREAD: shared var...
2560
+ return port.isCharReady();
2561
+ }
2562
+ /*** META ((export #t)
2563
+ (peephole (postfix ".close()")))
2564
+ */
2565
+ function sc_closeInputPort(p) {
2566
+ return p.close();
2567
+ }
2568
+
2569
+ /*** META ((export #t)
2570
+ (type bool)
2571
+ (peephole (postfix " instanceof sc_InputPort")))
2572
+ */
2573
+ function sc_isInputPort(o) {
2574
+ return (o instanceof sc_InputPort);
2575
+ }
2576
+
2577
+ /*** META ((export eof-object?)
2578
+ (type bool)
2579
+ (peephole (postfix " === SC_EOF_OBJECT")))
2580
+ */
2581
+ function sc_isEOFObject(o) {
2582
+ return o === SC_EOF_OBJECT;
2583
+ }
2584
+
2585
+ /*** META ((export #t)
2586
+ (peephole (hole 0 "SC_DEFAULT_IN")))
2587
+ */
2588
+ function sc_currentInputPort() {
2589
+ return SC_DEFAULT_IN;
2590
+ }
2591
+
2592
+ /* ------------ file operations are not supported -----------*/
2593
+ /*** META ((export #t)) */
2594
+ function sc_callWithInputFile(s, proc) {
2595
+ throw "can't open " + s;
2596
+ }
2597
+
2598
+ /*** META ((export #t)) */
2599
+ function sc_callWithOutputFile(s, proc) {
2600
+ throw "can't open " + s;
2601
+ }
2602
+
2603
+ /*** META ((export #t)) */
2604
+ function sc_withInputFromFile(s, thunk) {
2605
+ throw "can't open " + s;
2606
+ }
2607
+
2608
+ /*** META ((export #t)) */
2609
+ function sc_withOutputToFile(s, thunk) {
2610
+ throw "can't open " + s;
2611
+ }
2612
+
2613
+ /*** META ((export #t)) */
2614
+ function sc_openInputFile(s) {
2615
+ throw "can't open " + s;
2616
+ }
2617
+
2618
+ /*** META ((export #t)) */
2619
+ function sc_openOutputFile(s) {
2620
+ throw "can't open " + s;
2621
+ }
2622
+
2623
+ /* ----------------------------------------------------------------------------*/
2624
+ /*** META ((export #t)) */
2625
+ function sc_basename(p) {
2626
+ var i = p.lastIndexOf('/');
2627
+
2628
+ if(i >= 0)
2629
+ return p.substring(i + 1, p.length);
2630
+ else
2631
+ return '';
2632
+ }
2633
+
2634
+ /*** META ((export #t)) */
2635
+ function sc_dirname(p) {
2636
+ var i = p.lastIndexOf('/');
2637
+
2638
+ if(i >= 0)
2639
+ return p.substring(0, i);
2640
+ else
2641
+ return '';
2642
+ }
2643
+
2644
+ /* ----------------------------------------------------------------------------*/
2645
+
2646
+ /*** META ((export #t)) */
2647
+ function sc_withInputFromPort(p, thunk) {
2648
+ try {
2649
+ var tmp = SC_DEFAULT_IN; // THREAD: shared var.
2650
+ SC_DEFAULT_IN = p;
2651
+ return thunk();
2652
+ } finally {
2653
+ SC_DEFAULT_IN = tmp;
2654
+ }
2655
+ }
2656
+
2657
+ /*** META ((export #t)) */
2658
+ function sc_withInputFromString(s, thunk) {
2659
+ return sc_withInputFromPort(new sc_StringInputPort(sc_string2jsstring(s)), thunk);
2660
+ }
2661
+
2662
+ /*** META ((export #t)) */
2663
+ function sc_withOutputToPort(p, thunk) {
2664
+ try {
2665
+ var tmp = SC_DEFAULT_OUT; // THREAD: shared var.
2666
+ SC_DEFAULT_OUT = p;
2667
+ return thunk();
2668
+ } finally {
2669
+ SC_DEFAULT_OUT = tmp;
2670
+ }
2671
+ }
2672
+
2673
+ /*** META ((export #t)) */
2674
+ function sc_withOutputToString(thunk) {
2675
+ var p = new sc_StringOutputPort();
2676
+ sc_withOutputToPort(p, thunk);
2677
+ return p.close();
2678
+ }
2679
+
2680
+ /*** META ((export #t)) */
2681
+ function sc_withOutputToProcedure(proc, thunk) {
2682
+ var t = function(s) { proc(sc_jsstring2string(s)); };
2683
+ return sc_withOutputToPort(new sc_GenericOutputPort(t), thunk);
2684
+ }
2685
+
2686
+ /*** META ((export #t)
2687
+ (peephole (hole 0 "new sc_StringOutputPort()")))
2688
+ */
2689
+ function sc_openOutputString() {
2690
+ return new sc_StringOutputPort();
2691
+ }
2692
+
2693
+ /*** META ((export #t)) */
2694
+ function sc_openInputString(str) {
2695
+ return new sc_StringInputPort(sc_string2jsstring(str));
2696
+ }
2697
+
2698
+ /* ----------------------------------------------------------------------------*/
2699
+
2700
+ function sc_OutputPort() {
2701
+ }
2702
+ sc_OutputPort.prototype = new sc_Port();
2703
+ sc_OutputPort.prototype.appendJSString = function(obj) {
2704
+ /* do nothing */
2705
+ }
2706
+ sc_OutputPort.prototype.close = function() {
2707
+ /* do nothing */
2708
+ }
2709
+
2710
+ function sc_StringOutputPort() {
2711
+ this.res = "";
2712
+ }
2713
+ sc_StringOutputPort.prototype = new sc_OutputPort();
2714
+ sc_StringOutputPort.prototype.appendJSString = function(s) {
2715
+ this.res += s;
2716
+ }
2717
+ sc_StringOutputPort.prototype.close = function() {
2718
+ return sc_jsstring2string(this.res);
2719
+ }
2720
+
2721
+ /*** META ((export #t)) */
2722
+ function sc_getOutputString(sp) {
2723
+ return sc_jsstring2string(sp.res);
2724
+ }
2725
+
2726
+
2727
+ function sc_ErrorOutputPort() {
2728
+ }
2729
+ sc_ErrorOutputPort.prototype = new sc_OutputPort();
2730
+ sc_ErrorOutputPort.prototype.appendJSString = function(s) {
2731
+ throw "don't write on ErrorPort!";
2732
+ }
2733
+ sc_ErrorOutputPort.prototype.close = function() {
2734
+ /* do nothing */
2735
+ }
2736
+
2737
+ function sc_GenericOutputPort(appendJSString, close) {
2738
+ this.appendJSString = appendJSString;
2739
+ if (close)
2740
+ this.close = close;
2741
+ }
2742
+ sc_GenericOutputPort.prototype = new sc_OutputPort();
2743
+
2744
+ /*** META ((export #t)
2745
+ (type bool)
2746
+ (peephole (postfix " instanceof sc_OutputPort")))
2747
+ */
2748
+ function sc_isOutputPort(o) {
2749
+ return (o instanceof sc_OutputPort);
2750
+ }
2751
+
2752
+ /*** META ((export #t)
2753
+ (peephole (postfix ".close()")))
2754
+ */
2755
+ function sc_closeOutputPort(p) {
2756
+ return p.close();
2757
+ }
2758
+
2759
+ /* ------------------ write ---------------------------------------------------*/
2760
+
2761
+ /*** META ((export #t)) */
2762
+ function sc_write(o, p) {
2763
+ if (p === undefined) // we assume not given
2764
+ p = SC_DEFAULT_OUT;
2765
+ p.appendJSString(sc_toWriteString(o));
2766
+ }
2767
+
2768
+ function sc_toWriteString(o) {
2769
+ if (o === null)
2770
+ return "()";
2771
+ else if (o === true)
2772
+ return "#t";
2773
+ else if (o === false)
2774
+ return "#f";
2775
+ else if (o === undefined)
2776
+ return "#unspecified";
2777
+ else if (typeof o === 'function')
2778
+ return "#<procedure " + sc_hash(o) + ">";
2779
+ else if (o.sc_toWriteString)
2780
+ return o.sc_toWriteString();
2781
+ else
2782
+ return o.toString();
2783
+ }
2784
+
2785
+ function sc_escapeWriteString(s) {
2786
+ var res = "";
2787
+ var j = 0;
2788
+ for (i = 0; i < s.length; i++) {
2789
+ switch (s.charAt(i)) {
2790
+ case "\0": res += s.substring(j, i) + "\\0"; j = i + 1; break;
2791
+ case "\b": res += s.substring(j, i) + "\\b"; j = i + 1; break;
2792
+ case "\f": res += s.substring(j, i) + "\\f"; j = i + 1; break;
2793
+ case "\n": res += s.substring(j, i) + "\\n"; j = i + 1; break;
2794
+ case "\r": res += s.substring(j, i) + "\\r"; j = i + 1; break;
2795
+ case "\t": res += s.substring(j, i) + "\\t"; j = i + 1; break;
2796
+ case "\v": res += s.substring(j, i) + "\\v"; j = i + 1; break;
2797
+ case '"': res += s.substring(j, i) + '\\"'; j = i + 1; break;
2798
+ case "\\": res += s.substring(j, i) + "\\\\"; j = i + 1; break;
2799
+ default:
2800
+ var c = s.charAt(i);
2801
+ if ("\a" !== "a" && c == "\a") {
2802
+ res += s.substring(j, i) + "\\a"; j = i + 1; continue;
2803
+ }
2804
+ if ("\v" !== "v" && c == "\v") {
2805
+ res += s.substring(j, i) + "\\v"; j = i + 1; continue;
2806
+ }
2807
+ //if (s.charAt(i) < ' ' || s.charCodeAt(i) > 127) {
2808
+ // CARE: Manuel is this OK with HOP?
2809
+ if (s.charAt(i) < ' ') {
2810
+ /* non printable character and special chars */
2811
+ res += s.substring(j, i) + "\\x" + s.charCodeAt(i).toString(16);
2812
+ j = i + 1;
2813
+ }
2814
+ // else just let i increase...
2815
+ }
2816
+ }
2817
+ res += s.substring(j, i);
2818
+ return res;
2819
+ }
2820
+
2821
+ /* ------------------ display ---------------------------------------------------*/
2822
+
2823
+ /*** META ((export #t)) */
2824
+ function sc_display(o, p) {
2825
+ if (p === undefined) // we assume not given
2826
+ p = SC_DEFAULT_OUT;
2827
+ p.appendJSString(sc_toDisplayString(o));
2828
+ }
2829
+
2830
+ function sc_toDisplayString(o) {
2831
+ if (o === null)
2832
+ return "()";
2833
+ else if (o === true)
2834
+ return "#t";
2835
+ else if (o === false)
2836
+ return "#f";
2837
+ else if (o === undefined)
2838
+ return "#unspecified";
2839
+ else if (typeof o === 'function')
2840
+ return "#<procedure " + sc_hash(o) + ">";
2841
+ else if (o.sc_toDisplayString)
2842
+ return o.sc_toDisplayString();
2843
+ else
2844
+ return o.toString();
2845
+ }
2846
+
2847
+ /* ------------------ newline ---------------------------------------------------*/
2848
+
2849
+ /*** META ((export #t)) */
2850
+ function sc_newline(p) {
2851
+ if (p === undefined) // we assume not given
2852
+ p = SC_DEFAULT_OUT;
2853
+ p.appendJSString("\n");
2854
+ }
2855
+
2856
+ /* ------------------ write-char ---------------------------------------------------*/
2857
+
2858
+ /*** META ((export #t)) */
2859
+ function sc_writeChar(c, p) {
2860
+ if (p === undefined) // we assume not given
2861
+ p = SC_DEFAULT_OUT;
2862
+ p.appendJSString(c.val);
2863
+ }
2864
+
2865
+ /* ------------------ write-circle ---------------------------------------------------*/
2866
+
2867
+ /*** META ((export #t)) */
2868
+ function sc_writeCircle(o, p) {
2869
+ if (p === undefined) // we assume not given
2870
+ p = SC_DEFAULT_OUT;
2871
+ p.appendJSString(sc_toWriteCircleString(o));
2872
+ }
2873
+
2874
+ function sc_toWriteCircleString(o) {
2875
+ var symb = sc_gensym("writeCircle");
2876
+ var nbPointer = new Object();
2877
+ nbPointer.nb = 0;
2878
+ sc_prepWriteCircle(o, symb, nbPointer);
2879
+ return sc_genToWriteCircleString(o, symb);
2880
+ }
2881
+
2882
+ function sc_prepWriteCircle(o, symb, nbPointer) {
2883
+ // TODO sc_Struct
2884
+ if (o instanceof sc_Pair ||
2885
+ o instanceof sc_Vector) {
2886
+ if (o[symb] !== undefined) {
2887
+ // not the first visit.
2888
+ o[symb]++;
2889
+ // unless there is already a number, assign one.
2890
+ if (!o[symb + "nb"]) o[symb + "nb"] = nbPointer.nb++;
2891
+ return;
2892
+ }
2893
+ o[symb] = 0;
2894
+ if (o instanceof sc_Pair) {
2895
+ sc_prepWriteCircle(o.car, symb, nbPointer);
2896
+ sc_prepWriteCircle(o.cdr, symb, nbPointer);
2897
+ } else {
2898
+ for (var i = 0; i < o.length; i++)
2899
+ sc_prepWriteCircle(o[i], symb, nbPointer);
2900
+ }
2901
+ }
2902
+ }
2903
+
2904
+ function sc_genToWriteCircleString(o, symb) {
2905
+ if (!(o instanceof sc_Pair ||
2906
+ o instanceof sc_Vector))
2907
+ return sc_toWriteString(o);
2908
+ return o.sc_toWriteCircleString(symb);
2909
+ }
2910
+ sc_Pair.prototype.sc_toWriteCircleString = function(symb, inList) {
2911
+ if (this[symb + "use"]) { // use-flag is set. Just use it.
2912
+ var nb = this[symb + "nb"];
2913
+ if (this[symb]-- === 0) { // if we are the last use. remove all fields.
2914
+ delete this[symb];
2915
+ delete this[symb + "nb"];
2916
+ delete this[symb + "use"];
2917
+ }
2918
+ if (inList)
2919
+ return '. #' + nb + '#';
2920
+ else
2921
+ return '#' + nb + '#';
2922
+ }
2923
+ if (this[symb]-- === 0) { // if we are the last use. remove all fields.
2924
+ delete this[symb];
2925
+ delete this[symb + "nb"];
2926
+ delete this[symb + "use"];
2927
+ }
2928
+
2929
+ var res = "";
2930
+
2931
+ if (this[symb] !== undefined) { // implies > 0
2932
+ this[symb + "use"] = true;
2933
+ if (inList)
2934
+ res += '. #' + this[symb + "nb"] + '=';
2935
+ else
2936
+ res += '#' + this[symb + "nb"] + '=';
2937
+ inList = false;
2938
+ }
2939
+
2940
+ if (!inList)
2941
+ res += "(";
2942
+
2943
+ // print car
2944
+ res += sc_genToWriteCircleString(this.car, symb);
2945
+
2946
+ if (sc_isPair(this.cdr)) {
2947
+ res += " " + this.cdr.sc_toWriteCircleString(symb, true);
2948
+ } else if (this.cdr !== null) {
2949
+ res += " . " + sc_genToWriteCircleString(this.cdr, symb);
2950
+ }
2951
+ if (!inList)
2952
+ res += ")";
2953
+ return res;
2954
+ };
2955
+ sc_Vector.prototype.sc_toWriteCircleString = function(symb) {
2956
+ if (this[symb + "use"]) { // use-flag is set. Just use it.
2957
+ var nb = this[symb + "nb"];
2958
+ if (this[symb]-- === 0) { // if we are the last use. remove all fields.
2959
+ delete this[symb];
2960
+ delete this[symb + "nb"];
2961
+ delete this[symb + "use"];
2962
+ }
2963
+ return '#' + nb + '#';
2964
+ }
2965
+ if (this[symb]-- === 0) { // if we are the last use. remove all fields.
2966
+ delete this[symb];
2967
+ delete this[symb + "nb"];
2968
+ delete this[symb + "use"];
2969
+ }
2970
+
2971
+ var res = "";
2972
+ if (this[symb] !== undefined) { // implies > 0
2973
+ this[symb + "use"] = true;
2974
+ res += '#' + this[symb + "nb"] + '=';
2975
+ }
2976
+ res += "#(";
2977
+ for (var i = 0; i < this.length; i++) {
2978
+ res += sc_genToWriteCircleString(this[i], symb);
2979
+ if (i < this.length - 1) res += " ";
2980
+ }
2981
+ res += ")";
2982
+ return res;
2983
+ };
2984
+
2985
+
2986
+ /* ------------------ print ---------------------------------------------------*/
2987
+
2988
+ /*** META ((export #t)) */
2989
+ function sc_print(s) {
2990
+ if (arguments.length === 1) {
2991
+ sc_display(s);
2992
+ sc_newline();
2993
+ }
2994
+ else {
2995
+ for (var i = 0; i < arguments.length; i++)
2996
+ sc_display(arguments[i]);
2997
+ sc_newline();
2998
+ }
2999
+ }
3000
+
3001
+ /* ------------------ format ---------------------------------------------------*/
3002
+ /*** META ((export #t)) */
3003
+ function sc_format(s, args) {
3004
+ var len = s.length;
3005
+ var p = new sc_StringOutputPort();
3006
+ var i = 0, j = 1;
3007
+
3008
+ while( i < len ) {
3009
+ var i2 = s.indexOf("~", i);
3010
+
3011
+ if (i2 == -1) {
3012
+ p.appendJSString( s.substring( i, len ) );
3013
+ return p.close();
3014
+ } else {
3015
+ if (i2 > i) {
3016
+ if (i2 == (len - 1)) {
3017
+ p.appendJSString(s.substring(i, len));
3018
+ return p.close();
3019
+ } else {
3020
+ p.appendJSString(s.substring(i, i2));
3021
+ i = i2;
3022
+ }
3023
+ }
3024
+
3025
+ switch(s.charCodeAt(i2 + 1)) {
3026
+ case 65:
3027
+ case 97:
3028
+ // a
3029
+ sc_display(arguments[j], p);
3030
+ i += 2; j++;
3031
+ break;
3032
+
3033
+ case 83:
3034
+ case 115:
3035
+ // s
3036
+ sc_write(arguments[j], p);
3037
+ i += 2; j++;
3038
+ break;
3039
+
3040
+ case 86:
3041
+ case 118:
3042
+ // v
3043
+ sc_display(arguments[j], p);
3044
+ p.appendJSString("\n");
3045
+ i += 2; j++;
3046
+ break;
3047
+
3048
+ case 67:
3049
+ case 99:
3050
+ // c
3051
+ p.appendJSString(String.fromCharCode(arguments[j]));
3052
+ i += 2; j++;
3053
+ break;
3054
+
3055
+ case 88:
3056
+ case 120:
3057
+ // x
3058
+ p.appendJSString(arguments[j].toString(6));
3059
+ i += 2; j++;
3060
+ break;
3061
+
3062
+ case 79:
3063
+ case 111:
3064
+ // o
3065
+ p.appendJSString(arguments[j].toString(8));
3066
+ i += 2; j++;
3067
+ break;
3068
+
3069
+ case 66:
3070
+ case 98:
3071
+ // b
3072
+ p.appendJSString(arguments[j].toString(2));
3073
+ i += 2; j++;
3074
+ break;
3075
+
3076
+ case 37:
3077
+ case 110:
3078
+ // %, n
3079
+ p.appendJSString("\n");
3080
+ i += 2; break;
3081
+
3082
+ case 114:
3083
+ // r
3084
+ p.appendJSString("\r");
3085
+ i += 2; break;
3086
+
3087
+ case 126:
3088
+ // ~
3089
+ p.appendJSString("~");
3090
+ i += 2; break;
3091
+
3092
+ default:
3093
+ sc_error( "format: illegal ~"
3094
+ + String.fromCharCode(s.charCodeAt(i2 + 1))
3095
+ + " sequence" );
3096
+ return "";
3097
+ }
3098
+ }
3099
+ }
3100
+
3101
+ return p.close();
3102
+ }
3103
+
3104
+ /* ------------------ global ports ---------------------------------------------------*/
3105
+
3106
+ var SC_DEFAULT_IN = new sc_ErrorInputPort();
3107
+ var SC_DEFAULT_OUT = new sc_ErrorOutputPort();
3108
+ var SC_ERROR_OUT = new sc_ErrorOutputPort();
3109
+
3110
+ var sc_SYMBOL_PREFIX = "\u1E9C";
3111
+ var sc_KEYWORD_PREFIX = "\u1E9D";
3112
+
3113
+ /*** META ((export #t)
3114
+ (peephole (id))) */
3115
+ function sc_jsstring2string(s) {
3116
+ return s;
3117
+ }
3118
+
3119
+ /*** META ((export #t)
3120
+ (peephole (prefix "'\\u1E9C' +")))
3121
+ */
3122
+ function sc_jsstring2symbol(s) {
3123
+ return sc_SYMBOL_PREFIX + s;
3124
+ }
3125
+
3126
+ /*** META ((export #t)
3127
+ (peephole (id)))
3128
+ */
3129
+ function sc_string2jsstring(s) {
3130
+ return s;
3131
+ }
3132
+
3133
+ /*** META ((export #t)
3134
+ (peephole (symbol2jsstring_immutable)))
3135
+ */
3136
+ function sc_symbol2jsstring(s) {
3137
+ return s.slice(1);
3138
+ }
3139
+
3140
+ /*** META ((export #t)
3141
+ (peephole (postfix ".slice(1)")))
3142
+ */
3143
+ function sc_keyword2jsstring(k) {
3144
+ return k.slice(1);
3145
+ }
3146
+
3147
+ /*** META ((export #t)
3148
+ (peephole (prefix "'\\u1E9D' +")))
3149
+ */
3150
+ function sc_jsstring2keyword(s) {
3151
+ return sc_KEYWORD_PREFIX + s;
3152
+ }
3153
+
3154
+ /*** META ((export #t)
3155
+ (type bool))
3156
+ */
3157
+ function sc_isKeyword(s) {
3158
+ return (typeof s === "string") &&
3159
+ (s.charAt(0) === sc_KEYWORD_PREFIX);
3160
+ }
3161
+
3162
+
3163
+ /*** META ((export #t)) */
3164
+ var sc_gensym = function() {
3165
+ var counter = 1000;
3166
+ return function(sym) {
3167
+ counter++;
3168
+ if (!sym) sym = sc_SYMBOL_PREFIX;
3169
+ return sym + "s" + counter + "~" + "^sC-GeNsYm ";
3170
+ };
3171
+ }();
3172
+
3173
+
3174
+ /*** META ((export #t)
3175
+ (type bool))
3176
+ */
3177
+ function sc_isEqual(o1, o2) {
3178
+ return ((o1 === o2) ||
3179
+ (sc_isPair(o1) && sc_isPair(o2)
3180
+ && sc_isPairEqual(o1, o2, sc_isEqual)) ||
3181
+ (sc_isVector(o1) && sc_isVector(o2)
3182
+ && sc_isVectorEqual(o1, o2, sc_isEqual)));
3183
+ }
3184
+
3185
+ /*** META ((export number->symbol integer->symbol)) */
3186
+ function sc_number2symbol(x, radix) {
3187
+ return sc_SYMBOL_PREFIX + sc_number2jsstring(x, radix);
3188
+ }
3189
+
3190
+ /*** META ((export number->string integer->string)) */
3191
+ var sc_number2string = sc_number2jsstring;
3192
+
3193
+ /*** META ((export #t)) */
3194
+ function sc_symbol2number(s, radix) {
3195
+ return sc_jsstring2number(s.slice(1), radix);
3196
+ }
3197
+
3198
+ /*** META ((export #t)) */
3199
+ var sc_string2number = sc_jsstring2number;
3200
+
3201
+ /*** META ((export #t)
3202
+ (peephole (prefix "+" s)))
3203
+ ;; peephole will only apply if no radix is given.
3204
+ */
3205
+ function sc_string2integer(s, radix) {
3206
+ if (!radix) return +s;
3207
+ return parseInt(s, radix);
3208
+ }
3209
+
3210
+ /*** META ((export #t)
3211
+ (peephole (prefix "+")))
3212
+ */
3213
+ function sc_string2real(s) {
3214
+ return +s;
3215
+ }
3216
+
3217
+
3218
+ /*** META ((export #t)
3219
+ (type bool))
3220
+ */
3221
+ function sc_isSymbol(s) {
3222
+ return (typeof s === "string") &&
3223
+ (s.charAt(0) === sc_SYMBOL_PREFIX);
3224
+ }
3225
+
3226
+ /*** META ((export #t)
3227
+ (peephole (symbol2string_immutable)))
3228
+ */
3229
+ function sc_symbol2string(s) {
3230
+ return s.slice(1);
3231
+ }
3232
+
3233
+ /*** META ((export #t)
3234
+ (peephole (prefix "'\\u1E9C' +")))
3235
+ */
3236
+ function sc_string2symbol(s) {
3237
+ return sc_SYMBOL_PREFIX + s;
3238
+ }
3239
+
3240
+ /*** META ((export symbol-append)
3241
+ (peephole (symbolAppend_immutable)))
3242
+ */
3243
+ function sc_symbolAppend() {
3244
+ var res = sc_SYMBOL_PREFIX;
3245
+ for (var i = 0; i < arguments.length; i++)
3246
+ res += arguments[i].slice(1);
3247
+ return res;
3248
+ }
3249
+
3250
+ /*** META ((export #t)
3251
+ (peephole (postfix ".val")))
3252
+ */
3253
+ function sc_char2string(c) { return c.val; }
3254
+
3255
+ /*** META ((export #t)
3256
+ (peephole (hole 1 "'\\u1E9C' + " c ".val")))
3257
+ */
3258
+ function sc_char2symbol(c) { return sc_SYMBOL_PREFIX + c.val; }
3259
+
3260
+ /*** META ((export #t)
3261
+ (type bool))
3262
+ */
3263
+ function sc_isString(s) {
3264
+ return (typeof s === "string") &&
3265
+ (s.charAt(0) !== sc_SYMBOL_PREFIX);
3266
+ }
3267
+
3268
+ /*** META ((export #t)) */
3269
+ var sc_makeString = sc_makejsString;
3270
+
3271
+
3272
+ /*** META ((export #t)) */
3273
+ function sc_string() {
3274
+ for (var i = 0; i < arguments.length; i++)
3275
+ arguments[i] = arguments[i].val;
3276
+ return "".concat.apply("", arguments);
3277
+ }
3278
+
3279
+ /*** META ((export #t)
3280
+ (peephole (postfix ".length")))
3281
+ */
3282
+ function sc_stringLength(s) { return s.length; }
3283
+
3284
+ /*** META ((export #t)) */
3285
+ function sc_stringRef(s, k) {
3286
+ return new sc_Char(s.charAt(k));
3287
+ }
3288
+
3289
+ /* there's no stringSet in the immutable version
3290
+ function sc_stringSet(s, k, c)
3291
+ */
3292
+
3293
+
3294
+ /*** META ((export string=?)
3295
+ (type bool)
3296
+ (peephole (hole 2 str1 " === " str2)))
3297
+ */
3298
+ function sc_isStringEqual(s1, s2) {
3299
+ return s1 === s2;
3300
+ }
3301
+ /*** META ((export string<?)
3302
+ (type bool)
3303
+ (peephole (hole 2 str1 " < " str2)))
3304
+ */
3305
+ function sc_isStringLess(s1, s2) {
3306
+ return s1 < s2;
3307
+ }
3308
+ /*** META ((export string>?)
3309
+ (type bool)
3310
+ (peephole (hole 2 str1 " > " str2)))
3311
+ */
3312
+ function sc_isStringGreater(s1, s2) {
3313
+ return s1 > s2;
3314
+ }
3315
+ /*** META ((export string<=?)
3316
+ (type bool)
3317
+ (peephole (hole 2 str1 " <= " str2)))
3318
+ */
3319
+ function sc_isStringLessEqual(s1, s2) {
3320
+ return s1 <= s2;
3321
+ }
3322
+ /*** META ((export string>=?)
3323
+ (type bool)
3324
+ (peephole (hole 2 str1 " >= " str2)))
3325
+ */
3326
+ function sc_isStringGreaterEqual(s1, s2) {
3327
+ return s1 >= s2;
3328
+ }
3329
+ /*** META ((export string-ci=?)
3330
+ (type bool)
3331
+ (peephole (hole 2 str1 ".toLowerCase() === " str2 ".toLowerCase()")))
3332
+ */
3333
+ function sc_isStringCIEqual(s1, s2) {
3334
+ return s1.toLowerCase() === s2.toLowerCase();
3335
+ }
3336
+ /*** META ((export string-ci<?)
3337
+ (type bool)
3338
+ (peephole (hole 2 str1 ".toLowerCase() < " str2 ".toLowerCase()")))
3339
+ */
3340
+ function sc_isStringCILess(s1, s2) {
3341
+ return s1.toLowerCase() < s2.toLowerCase();
3342
+ }
3343
+ /*** META ((export string-ci>?)
3344
+ (type bool)
3345
+ (peephole (hole 2 str1 ".toLowerCase() > " str2 ".toLowerCase()")))
3346
+ */
3347
+ function sc_isStringCIGreater(s1, s2) {
3348
+ return s1.toLowerCase() > s2.toLowerCase();
3349
+ }
3350
+ /*** META ((export string-ci<=?)
3351
+ (type bool)
3352
+ (peephole (hole 2 str1 ".toLowerCase() <= " str2 ".toLowerCase()")))
3353
+ */
3354
+ function sc_isStringCILessEqual(s1, s2) {
3355
+ return s1.toLowerCase() <= s2.toLowerCase();
3356
+ }
3357
+ /*** META ((export string-ci>=?)
3358
+ (type bool)
3359
+ (peephole (hole 2 str1 ".toLowerCase() >= " str2 ".toLowerCase()")))
3360
+ */
3361
+ function sc_isStringCIGreaterEqual(s1, s2) {
3362
+ return s1.toLowerCase() >= s2.toLowerCase();
3363
+ }
3364
+
3365
+ /*** META ((export #t)
3366
+ (peephole (hole 3 s ".substring(" start ", " end ")")))
3367
+ */
3368
+ function sc_substring(s, start, end) {
3369
+ return s.substring(start, end);
3370
+ }
3371
+
3372
+ /*** META ((export #t))
3373
+ */
3374
+ function sc_isSubstring_at(s1, s2, i) {
3375
+ return s2 == s1.substring(i, i+ s2.length);
3376
+ }
3377
+
3378
+ /*** META ((export #t)
3379
+ (peephole (infix 0 #f "+" "''")))
3380
+ */
3381
+ function sc_stringAppend() {
3382
+ return "".concat.apply("", arguments);
3383
+ }
3384
+
3385
+ /*** META ((export #t)) */
3386
+ var sc_string2list = sc_jsstring2list;
3387
+
3388
+ /*** META ((export #t)) */
3389
+ var sc_list2string = sc_list2jsstring;
3390
+
3391
+ /*** META ((export #t)
3392
+ (peephole (id)))
3393
+ */
3394
+ function sc_stringCopy(s) {
3395
+ return s;
3396
+ }
3397
+
3398
+ /* there's no string-fill in the immutable version
3399
+ function sc_stringFill(s, c)
3400
+ */
3401
+
3402
+ /*** META ((export #t)
3403
+ (peephole (postfix ".slice(1)")))
3404
+ */
3405
+ function sc_keyword2string(o) {
3406
+ return o.slice(1);
3407
+ }
3408
+
3409
+ /*** META ((export #t)
3410
+ (peephole (prefix "'\\u1E9D' +")))
3411
+ */
3412
+ function sc_string2keyword(o) {
3413
+ return sc_KEYWORD_PREFIX + o;
3414
+ }
3415
+
3416
+ String.prototype.sc_toDisplayString = function() {
3417
+ if (this.charAt(0) === sc_SYMBOL_PREFIX)
3418
+ // TODO: care for symbols with spaces (escape-chars symbols).
3419
+ return this.slice(1);
3420
+ else if (this.charAt(0) === sc_KEYWORD_PREFIX)
3421
+ return ":" + this.slice(1);
3422
+ else
3423
+ return this.toString();
3424
+ };
3425
+
3426
+ String.prototype.sc_toWriteString = function() {
3427
+ if (this.charAt(0) === sc_SYMBOL_PREFIX)
3428
+ // TODO: care for symbols with spaces (escape-chars symbols).
3429
+ return this.slice(1);
3430
+ else if (this.charAt(0) === sc_KEYWORD_PREFIX)
3431
+ return ":" + this.slice(1);
3432
+ else
3433
+ return '"' + sc_escapeWriteString(this) + '"';
3434
+ };
3435
+ /* Exported Variables */
3436
+ var BgL_testzd2boyerzd2;
3437
+ var BgL_nboyerzd2benchmarkzd2;
3438
+ var BgL_setupzd2boyerzd2;
3439
+ /* End Exports */
3440
+
3441
+ var translate_term_nboyer;
3442
+ var translate_args_nboyer;
3443
+ var untranslate_term_nboyer;
3444
+ var BgL_sc_symbolzd2ze3symbolzd2record_1ze3_nboyer;
3445
+ var BgL_sc_za2symbolzd2recordszd2alistza2_2z00_nboyer;
3446
+ var translate_alist_nboyer;
3447
+ var apply_subst_nboyer;
3448
+ var apply_subst_lst_nboyer;
3449
+ var tautologyp_nboyer;
3450
+ var if_constructor_nboyer;
3451
+ var rewrite_count_nboyer;
3452
+ var rewrite_nboyer;
3453
+ var rewrite_args_nboyer;
3454
+ var unify_subst_nboyer;
3455
+ var one_way_unify1_nboyer;
3456
+ var false_term_nboyer;
3457
+ var true_term_nboyer;
3458
+ var trans_of_implies1_nboyer;
3459
+ var is_term_equal_nboyer;
3460
+ var is_term_member_nboyer;
3461
+ var const_nboyer;
3462
+ var sc_const_3_nboyer;
3463
+ var sc_const_4_nboyer;
3464
+ {
3465
+ (sc_const_4_nboyer = (new sc_Pair("\u1E9Cimplies",(new sc_Pair((new sc_Pair("\u1E9Cand",(new sc_Pair((new sc_Pair("\u1E9Cimplies",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cand",(new sc_Pair((new sc_Pair("\u1E9Cimplies",(new sc_Pair("\u1E9Cy",(new sc_Pair("\u1E9Cz",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cand",(new sc_Pair((new sc_Pair("\u1E9Cimplies",(new sc_Pair("\u1E9Cz",(new sc_Pair("\u1E9Cu",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cimplies",(new sc_Pair("\u1E9Cu",(new sc_Pair("\u1E9Cw",null)))))),null)))))),null)))))),null)))))),(new sc_Pair((new sc_Pair("\u1E9Cimplies",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cw",null)))))),null)))))));
3466
+ (sc_const_3_nboyer = sc_list((new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Ccompile",(new sc_Pair("\u1E9Cform",null)))),(new sc_Pair((new sc_Pair("\u1E9Creverse",(new sc_Pair((new sc_Pair("\u1E9Ccodegen",(new sc_Pair((new sc_Pair("\u1E9Coptimize",(new sc_Pair("\u1E9Cform",null)))),(new sc_Pair((new sc_Pair("\u1E9Cnil",null)),null)))))),null)))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Ceqp",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cfix",(new sc_Pair("\u1E9Cx",null)))),(new sc_Pair((new sc_Pair("\u1E9Cfix",(new sc_Pair("\u1E9Cy",null)))),null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cgreaterp",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),(new sc_Pair((new sc_Pair("\u1E9Clessp",(new sc_Pair("\u1E9Cy",(new sc_Pair("\u1E9Cx",null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Clesseqp",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cnot",(new sc_Pair((new sc_Pair("\u1E9Clessp",(new sc_Pair("\u1E9Cy",(new sc_Pair("\u1E9Cx",null)))))),null)))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cgreatereqp",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cnot",(new sc_Pair((new sc_Pair("\u1E9Clessp",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),null)))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cboolean",(new sc_Pair("\u1E9Cx",null)))),(new sc_Pair((new sc_Pair("\u1E9Cor",(new sc_Pair((new sc_Pair("\u1E9Cequal",(new sc_Pair("\u1E9Cx",(new sc_Pair((new sc_Pair("\u1E9Ct",null)),null)))))),(new sc_Pair((new sc_Pair("\u1E9Cequal",(new sc_Pair("\u1E9Cx",(new sc_Pair((new sc_Pair("\u1E9Cf",null)),null)))))),null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Ciff",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cand",(new sc_Pair((new sc_Pair("\u1E9Cimplies",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cimplies",(new sc_Pair("\u1E9Cy",(new sc_Pair("\u1E9Cx",null)))))),null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Ceven1",(new sc_Pair("\u1E9Cx",null)))),(new sc_Pair((new sc_Pair("\u1E9Cif",(new sc_Pair((new sc_Pair("\u1E9Czerop",(new sc_Pair("\u1E9Cx",null)))),(new sc_Pair((new sc_Pair("\u1E9Ct",null)),(new sc_Pair((new sc_Pair("\u1E9Codd",(new sc_Pair((new sc_Pair("\u1E9Csub1",(new sc_Pair("\u1E9Cx",null)))),null)))),null)))))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Ccountps-",(new sc_Pair("\u1E9Cl",(new sc_Pair("\u1E9Cpred",null)))))),(new sc_Pair((new sc_Pair("\u1E9Ccountps-loop",(new sc_Pair("\u1E9Cl",(new sc_Pair("\u1E9Cpred",(new sc_Pair((new sc_Pair("\u1E9Czero",null)),null)))))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cfact-",(new sc_Pair("\u1E9Ci",null)))),(new sc_Pair((new sc_Pair("\u1E9Cfact-loop",(new sc_Pair("\u1E9Ci",(new sc_Pair((1),null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Creverse-",(new sc_Pair("\u1E9Cx",null)))),(new sc_Pair((new sc_Pair("\u1E9Creverse-loop",(new sc_Pair("\u1E9Cx",(new sc_Pair((new sc_Pair("\u1E9Cnil",null)),null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cdivides",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),(new sc_Pair((new sc_Pair("\u1E9Czerop",(new sc_Pair((new sc_Pair("\u1E9Cremainder",(new sc_Pair("\u1E9Cy",(new sc_Pair("\u1E9Cx",null)))))),null)))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cassume-true",(new sc_Pair("\u1E9Cvar",(new sc_Pair("\u1E9Calist",null)))))),(new sc_Pair((new sc_Pair("\u1E9Ccons",(new sc_Pair((new sc_Pair("\u1E9Ccons",(new sc_Pair("\u1E9Cvar",(new sc_Pair((new sc_Pair("\u1E9Ct",null)),null)))))),(new sc_Pair("\u1E9Calist",null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cassume-false",(new sc_Pair("\u1E9Cvar",(new sc_Pair("\u1E9Calist",null)))))),(new sc_Pair((new sc_Pair("\u1E9Ccons",(new sc_Pair((new sc_Pair("\u1E9Ccons",(new sc_Pair("\u1E9Cvar",(new sc_Pair((new sc_Pair("\u1E9Cf",null)),null)))))),(new sc_Pair("\u1E9Calist",null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Ctautology-checker",(new sc_Pair("\u1E9Cx",null)))),(new sc_Pair((new sc_Pair("\u1E9Ctautologyp",(new sc_Pair((new sc_Pair("\u1E9Cnormalize",(new sc_Pair("\u1E9Cx",null)))),(new sc_Pair((new sc_Pair("\u1E9Cnil",null)),null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cfalsify",(new sc_Pair("\u1E9Cx",null)))),(new sc_Pair((new sc_Pair("\u1E9Cfalsify1",(new sc_Pair((new sc_Pair("\u1E9Cnormalize",(new sc_Pair("\u1E9Cx",null)))),(new sc_Pair((new sc_Pair("\u1E9Cnil",null)),null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cprime",(new sc_Pair("\u1E9Cx",null)))),(new sc_Pair((new sc_Pair("\u1E9Cand",(new sc_Pair((new sc_Pair("\u1E9Cnot",(new sc_Pair((new sc_Pair("\u1E9Czerop",(new sc_Pair("\u1E9Cx",null)))),null)))),(new sc_Pair((new sc_Pair("\u1E9Cnot",(new sc_Pair((new sc_Pair("\u1E9Cequal",(new sc_Pair("\u1E9Cx",(new sc_Pair((new sc_Pair("\u1E9Cadd1",(new sc_Pair((new sc_Pair("\u1E9Czero",null)),null)))),null)))))),null)))),(new sc_Pair((new sc_Pair("\u1E9Cprime1",(new sc_Pair("\u1E9Cx",(new sc_Pair((new sc_Pair("\u1E9Csub1",(new sc_Pair("\u1E9Cx",null)))),null)))))),null)))))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cand",(new sc_Pair("\u1E9Cp",(new sc_Pair("\u1E9Cq",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cif",(new sc_Pair("\u1E9Cp",(new sc_Pair((new sc_Pair("\u1E9Cif",(new sc_Pair("\u1E9Cq",(new sc_Pair((new sc_Pair("\u1E9Ct",null)),(new sc_Pair((new sc_Pair("\u1E9Cf",null)),null)))))))),(new sc_Pair((new sc_Pair("\u1E9Cf",null)),null)))))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cor",(new sc_Pair("\u1E9Cp",(new sc_Pair("\u1E9Cq",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cif",(new sc_Pair("\u1E9Cp",(new sc_Pair((new sc_Pair("\u1E9Ct",null)),(new sc_Pair((new sc_Pair("\u1E9Cif",(new sc_Pair("\u1E9Cq",(new sc_Pair((new sc_Pair("\u1E9Ct",null)),(new sc_Pair((new sc_Pair("\u1E9Cf",null)),null)))))))),null)))))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cnot",(new sc_Pair("\u1E9Cp",null)))),(new sc_Pair((new sc_Pair("\u1E9Cif",(new sc_Pair("\u1E9Cp",(new sc_Pair((new sc_Pair("\u1E9Cf",null)),(new sc_Pair((new sc_Pair("\u1E9Ct",null)),null)))))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cimplies",(new sc_Pair("\u1E9Cp",(new sc_Pair("\u1E9Cq",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cif",(new sc_Pair("\u1E9Cp",(new sc_Pair((new sc_Pair("\u1E9Cif",(new sc_Pair("\u1E9Cq",(new sc_Pair((new sc_Pair("\u1E9Ct",null)),(new sc_Pair((new sc_Pair("\u1E9Cf",null)),null)))))))),(new sc_Pair((new sc_Pair("\u1E9Ct",null)),null)))))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cfix",(new sc_Pair("\u1E9Cx",null)))),(new sc_Pair((new sc_Pair("\u1E9Cif",(new sc_Pair((new sc_Pair("\u1E9Cnumberp",(new sc_Pair("\u1E9Cx",null)))),(new sc_Pair("\u1E9Cx",(new sc_Pair((new sc_Pair("\u1E9Czero",null)),null)))))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cif",(new sc_Pair((new sc_Pair("\u1E9Cif",(new sc_Pair("\u1E9Ca",(new sc_Pair("\u1E9Cb",(new sc_Pair("\u1E9Cc",null)))))))),(new sc_Pair("\u1E9Cd",(new sc_Pair("\u1E9Ce",null)))))))),(new sc_Pair((new sc_Pair("\u1E9Cif",(new sc_Pair("\u1E9Ca",(new sc_Pair((new sc_Pair("\u1E9Cif",(new sc_Pair("\u1E9Cb",(new sc_Pair("\u1E9Cd",(new sc_Pair("\u1E9Ce",null)))))))),(new sc_Pair((new sc_Pair("\u1E9Cif",(new sc_Pair("\u1E9Cc",(new sc_Pair("\u1E9Cd",(new sc_Pair("\u1E9Ce",null)))))))),null)))))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Czerop",(new sc_Pair("\u1E9Cx",null)))),(new sc_Pair((new sc_Pair("\u1E9Cor",(new sc_Pair((new sc_Pair("\u1E9Cequal",(new sc_Pair("\u1E9Cx",(new sc_Pair((new sc_Pair("\u1E9Czero",null)),null)))))),(new sc_Pair((new sc_Pair("\u1E9Cnot",(new sc_Pair((new sc_Pair("\u1E9Cnumberp",(new sc_Pair("\u1E9Cx",null)))),null)))),null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cplus",(new sc_Pair((new sc_Pair("\u1E9Cplus",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),(new sc_Pair("\u1E9Cz",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cplus",(new sc_Pair("\u1E9Cx",(new sc_Pair((new sc_Pair("\u1E9Cplus",(new sc_Pair("\u1E9Cy",(new sc_Pair("\u1E9Cz",null)))))),null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cplus",(new sc_Pair("\u1E9Ca",(new sc_Pair("\u1E9Cb",null)))))),(new sc_Pair((new sc_Pair("\u1E9Czero",null)),null)))))),(new sc_Pair((new sc_Pair("\u1E9Cand",(new sc_Pair((new sc_Pair("\u1E9Czerop",(new sc_Pair("\u1E9Ca",null)))),(new sc_Pair((new sc_Pair("\u1E9Czerop",(new sc_Pair("\u1E9Cb",null)))),null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cdifference",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cx",null)))))),(new sc_Pair((new sc_Pair("\u1E9Czero",null)),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cplus",(new sc_Pair("\u1E9Ca",(new sc_Pair("\u1E9Cb",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cplus",(new sc_Pair("\u1E9Ca",(new sc_Pair("\u1E9Cc",null)))))),null)))))),(new sc_Pair((new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cfix",(new sc_Pair("\u1E9Cb",null)))),(new sc_Pair((new sc_Pair("\u1E9Cfix",(new sc_Pair("\u1E9Cc",null)))),null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Czero",null)),(new sc_Pair((new sc_Pair("\u1E9Cdifference",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),null)))))),(new sc_Pair((new sc_Pair("\u1E9Cnot",(new sc_Pair((new sc_Pair("\u1E9Clessp",(new sc_Pair("\u1E9Cy",(new sc_Pair("\u1E9Cx",null)))))),null)))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cequal",(new sc_Pair("\u1E9Cx",(new sc_Pair((new sc_Pair("\u1E9Cdifference",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),null)))))),(new sc_Pair((new sc_Pair("\u1E9Cand",(new sc_Pair((new sc_Pair("\u1E9Cnumberp",(new sc_Pair("\u1E9Cx",null)))),(new sc_Pair((new sc_Pair("\u1E9Cor",(new sc_Pair((new sc_Pair("\u1E9Cequal",(new sc_Pair("\u1E9Cx",(new sc_Pair((new sc_Pair("\u1E9Czero",null)),null)))))),(new sc_Pair((new sc_Pair("\u1E9Czerop",(new sc_Pair("\u1E9Cy",null)))),null)))))),null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cmeaning",(new sc_Pair((new sc_Pair("\u1E9Cplus-tree",(new sc_Pair((new sc_Pair("\u1E9Cappend",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),null)))),(new sc_Pair("\u1E9Ca",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cplus",(new sc_Pair((new sc_Pair("\u1E9Cmeaning",(new sc_Pair((new sc_Pair("\u1E9Cplus-tree",(new sc_Pair("\u1E9Cx",null)))),(new sc_Pair("\u1E9Ca",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cmeaning",(new sc_Pair((new sc_Pair("\u1E9Cplus-tree",(new sc_Pair("\u1E9Cy",null)))),(new sc_Pair("\u1E9Ca",null)))))),null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cmeaning",(new sc_Pair((new sc_Pair("\u1E9Cplus-tree",(new sc_Pair((new sc_Pair("\u1E9Cplus-fringe",(new sc_Pair("\u1E9Cx",null)))),null)))),(new sc_Pair("\u1E9Ca",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cfix",(new sc_Pair((new sc_Pair("\u1E9Cmeaning",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Ca",null)))))),null)))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cappend",(new sc_Pair((new sc_Pair("\u1E9Cappend",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),(new sc_Pair("\u1E9Cz",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cappend",(new sc_Pair("\u1E9Cx",(new sc_Pair((new sc_Pair("\u1E9Cappend",(new sc_Pair("\u1E9Cy",(new sc_Pair("\u1E9Cz",null)))))),null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Creverse",(new sc_Pair((new sc_Pair("\u1E9Cappend",(new sc_Pair("\u1E9Ca",(new sc_Pair("\u1E9Cb",null)))))),null)))),(new sc_Pair((new sc_Pair("\u1E9Cappend",(new sc_Pair((new sc_Pair("\u1E9Creverse",(new sc_Pair("\u1E9Cb",null)))),(new sc_Pair((new sc_Pair("\u1E9Creverse",(new sc_Pair("\u1E9Ca",null)))),null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Ctimes",(new sc_Pair("\u1E9Cx",(new sc_Pair((new sc_Pair("\u1E9Cplus",(new sc_Pair("\u1E9Cy",(new sc_Pair("\u1E9Cz",null)))))),null)))))),(new sc_Pair((new sc_Pair("\u1E9Cplus",(new sc_Pair((new sc_Pair("\u1E9Ctimes",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),(new sc_Pair((new sc_Pair("\u1E9Ctimes",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cz",null)))))),null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Ctimes",(new sc_Pair((new sc_Pair("\u1E9Ctimes",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),(new sc_Pair("\u1E9Cz",null)))))),(new sc_Pair((new sc_Pair("\u1E9Ctimes",(new sc_Pair("\u1E9Cx",(new sc_Pair((new sc_Pair("\u1E9Ctimes",(new sc_Pair("\u1E9Cy",(new sc_Pair("\u1E9Cz",null)))))),null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Ctimes",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),(new sc_Pair((new sc_Pair("\u1E9Czero",null)),null)))))),(new sc_Pair((new sc_Pair("\u1E9Cor",(new sc_Pair((new sc_Pair("\u1E9Czerop",(new sc_Pair("\u1E9Cx",null)))),(new sc_Pair((new sc_Pair("\u1E9Czerop",(new sc_Pair("\u1E9Cy",null)))),null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cexec",(new sc_Pair((new sc_Pair("\u1E9Cappend",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),(new sc_Pair("\u1E9Cpds",(new sc_Pair("\u1E9Cenvrn",null)))))))),(new sc_Pair((new sc_Pair("\u1E9Cexec",(new sc_Pair("\u1E9Cy",(new sc_Pair((new sc_Pair("\u1E9Cexec",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cpds",(new sc_Pair("\u1E9Cenvrn",null)))))))),(new sc_Pair("\u1E9Cenvrn",null)))))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cmc-flatten",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cappend",(new sc_Pair((new sc_Pair("\u1E9Cflatten",(new sc_Pair("\u1E9Cx",null)))),(new sc_Pair("\u1E9Cy",null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cmember",(new sc_Pair("\u1E9Cx",(new sc_Pair((new sc_Pair("\u1E9Cappend",(new sc_Pair("\u1E9Ca",(new sc_Pair("\u1E9Cb",null)))))),null)))))),(new sc_Pair((new sc_Pair("\u1E9Cor",(new sc_Pair((new sc_Pair("\u1E9Cmember",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Ca",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cmember",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cb",null)))))),null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cmember",(new sc_Pair("\u1E9Cx",(new sc_Pair((new sc_Pair("\u1E9Creverse",(new sc_Pair("\u1E9Cy",null)))),null)))))),(new sc_Pair((new sc_Pair("\u1E9Cmember",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Clength",(new sc_Pair((new sc_Pair("\u1E9Creverse",(new sc_Pair("\u1E9Cx",null)))),null)))),(new sc_Pair((new sc_Pair("\u1E9Clength",(new sc_Pair("\u1E9Cx",null)))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cmember",(new sc_Pair("\u1E9Ca",(new sc_Pair((new sc_Pair("\u1E9Cintersect",(new sc_Pair("\u1E9Cb",(new sc_Pair("\u1E9Cc",null)))))),null)))))),(new sc_Pair((new sc_Pair("\u1E9Cand",(new sc_Pair((new sc_Pair("\u1E9Cmember",(new sc_Pair("\u1E9Ca",(new sc_Pair("\u1E9Cb",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cmember",(new sc_Pair("\u1E9Ca",(new sc_Pair("\u1E9Cc",null)))))),null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cnth",(new sc_Pair((new sc_Pair("\u1E9Czero",null)),(new sc_Pair("\u1E9Ci",null)))))),(new sc_Pair((new sc_Pair("\u1E9Czero",null)),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cexp",(new sc_Pair("\u1E9Ci",(new sc_Pair((new sc_Pair("\u1E9Cplus",(new sc_Pair("\u1E9Cj",(new sc_Pair("\u1E9Ck",null)))))),null)))))),(new sc_Pair((new sc_Pair("\u1E9Ctimes",(new sc_Pair((new sc_Pair("\u1E9Cexp",(new sc_Pair("\u1E9Ci",(new sc_Pair("\u1E9Cj",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cexp",(new sc_Pair("\u1E9Ci",(new sc_Pair("\u1E9Ck",null)))))),null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cexp",(new sc_Pair("\u1E9Ci",(new sc_Pair((new sc_Pair("\u1E9Ctimes",(new sc_Pair("\u1E9Cj",(new sc_Pair("\u1E9Ck",null)))))),null)))))),(new sc_Pair((new sc_Pair("\u1E9Cexp",(new sc_Pair((new sc_Pair("\u1E9Cexp",(new sc_Pair("\u1E9Ci",(new sc_Pair("\u1E9Cj",null)))))),(new sc_Pair("\u1E9Ck",null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Creverse-loop",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cappend",(new sc_Pair((new sc_Pair("\u1E9Creverse",(new sc_Pair("\u1E9Cx",null)))),(new sc_Pair("\u1E9Cy",null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Creverse-loop",(new sc_Pair("\u1E9Cx",(new sc_Pair((new sc_Pair("\u1E9Cnil",null)),null)))))),(new sc_Pair((new sc_Pair("\u1E9Creverse",(new sc_Pair("\u1E9Cx",null)))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Ccount-list",(new sc_Pair("\u1E9Cz",(new sc_Pair((new sc_Pair("\u1E9Csort-lp",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),null)))))),(new sc_Pair((new sc_Pair("\u1E9Cplus",(new sc_Pair((new sc_Pair("\u1E9Ccount-list",(new sc_Pair("\u1E9Cz",(new sc_Pair("\u1E9Cx",null)))))),(new sc_Pair((new sc_Pair("\u1E9Ccount-list",(new sc_Pair("\u1E9Cz",(new sc_Pair("\u1E9Cy",null)))))),null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cappend",(new sc_Pair("\u1E9Ca",(new sc_Pair("\u1E9Cb",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cappend",(new sc_Pair("\u1E9Ca",(new sc_Pair("\u1E9Cc",null)))))),null)))))),(new sc_Pair((new sc_Pair("\u1E9Cequal",(new sc_Pair("\u1E9Cb",(new sc_Pair("\u1E9Cc",null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cplus",(new sc_Pair((new sc_Pair("\u1E9Cremainder",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),(new sc_Pair((new sc_Pair("\u1E9Ctimes",(new sc_Pair("\u1E9Cy",(new sc_Pair((new sc_Pair("\u1E9Cquotient",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),null)))))),null)))))),(new sc_Pair((new sc_Pair("\u1E9Cfix",(new sc_Pair("\u1E9Cx",null)))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cpower-eval",(new sc_Pair((new sc_Pair("\u1E9Cbig-plus1",(new sc_Pair("\u1E9Cl",(new sc_Pair("\u1E9Ci",(new sc_Pair("\u1E9Cbase",null)))))))),(new sc_Pair("\u1E9Cbase",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cplus",(new sc_Pair((new sc_Pair("\u1E9Cpower-eval",(new sc_Pair("\u1E9Cl",(new sc_Pair("\u1E9Cbase",null)))))),(new sc_Pair("\u1E9Ci",null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cpower-eval",(new sc_Pair((new sc_Pair("\u1E9Cbig-plus",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",(new sc_Pair("\u1E9Ci",(new sc_Pair("\u1E9Cbase",null)))))))))),(new sc_Pair("\u1E9Cbase",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cplus",(new sc_Pair("\u1E9Ci",(new sc_Pair((new sc_Pair("\u1E9Cplus",(new sc_Pair((new sc_Pair("\u1E9Cpower-eval",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cbase",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cpower-eval",(new sc_Pair("\u1E9Cy",(new sc_Pair("\u1E9Cbase",null)))))),null)))))),null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cremainder",(new sc_Pair("\u1E9Cy",(new sc_Pair((1),null)))))),(new sc_Pair((new sc_Pair("\u1E9Czero",null)),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Clessp",(new sc_Pair((new sc_Pair("\u1E9Cremainder",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),(new sc_Pair("\u1E9Cy",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cnot",(new sc_Pair((new sc_Pair("\u1E9Czerop",(new sc_Pair("\u1E9Cy",null)))),null)))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cremainder",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cx",null)))))),(new sc_Pair((new sc_Pair("\u1E9Czero",null)),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Clessp",(new sc_Pair((new sc_Pair("\u1E9Cquotient",(new sc_Pair("\u1E9Ci",(new sc_Pair("\u1E9Cj",null)))))),(new sc_Pair("\u1E9Ci",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cand",(new sc_Pair((new sc_Pair("\u1E9Cnot",(new sc_Pair((new sc_Pair("\u1E9Czerop",(new sc_Pair("\u1E9Ci",null)))),null)))),(new sc_Pair((new sc_Pair("\u1E9Cor",(new sc_Pair((new sc_Pair("\u1E9Czerop",(new sc_Pair("\u1E9Cj",null)))),(new sc_Pair((new sc_Pair("\u1E9Cnot",(new sc_Pair((new sc_Pair("\u1E9Cequal",(new sc_Pair("\u1E9Cj",(new sc_Pair((1),null)))))),null)))),null)))))),null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Clessp",(new sc_Pair((new sc_Pair("\u1E9Cremainder",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),(new sc_Pair("\u1E9Cx",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cand",(new sc_Pair((new sc_Pair("\u1E9Cnot",(new sc_Pair((new sc_Pair("\u1E9Czerop",(new sc_Pair("\u1E9Cy",null)))),null)))),(new sc_Pair((new sc_Pair("\u1E9Cnot",(new sc_Pair((new sc_Pair("\u1E9Czerop",(new sc_Pair("\u1E9Cx",null)))),null)))),(new sc_Pair((new sc_Pair("\u1E9Cnot",(new sc_Pair((new sc_Pair("\u1E9Clessp",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),null)))),null)))))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cpower-eval",(new sc_Pair((new sc_Pair("\u1E9Cpower-rep",(new sc_Pair("\u1E9Ci",(new sc_Pair("\u1E9Cbase",null)))))),(new sc_Pair("\u1E9Cbase",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cfix",(new sc_Pair("\u1E9Ci",null)))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cpower-eval",(new sc_Pair((new sc_Pair("\u1E9Cbig-plus",(new sc_Pair((new sc_Pair("\u1E9Cpower-rep",(new sc_Pair("\u1E9Ci",(new sc_Pair("\u1E9Cbase",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cpower-rep",(new sc_Pair("\u1E9Cj",(new sc_Pair("\u1E9Cbase",null)))))),(new sc_Pair((new sc_Pair("\u1E9Czero",null)),(new sc_Pair("\u1E9Cbase",null)))))))))),(new sc_Pair("\u1E9Cbase",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cplus",(new sc_Pair("\u1E9Ci",(new sc_Pair("\u1E9Cj",null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cgcd",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cgcd",(new sc_Pair("\u1E9Cy",(new sc_Pair("\u1E9Cx",null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cnth",(new sc_Pair((new sc_Pair("\u1E9Cappend",(new sc_Pair("\u1E9Ca",(new sc_Pair("\u1E9Cb",null)))))),(new sc_Pair("\u1E9Ci",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cappend",(new sc_Pair((new sc_Pair("\u1E9Cnth",(new sc_Pair("\u1E9Ca",(new sc_Pair("\u1E9Ci",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cnth",(new sc_Pair("\u1E9Cb",(new sc_Pair((new sc_Pair("\u1E9Cdifference",(new sc_Pair("\u1E9Ci",(new sc_Pair((new sc_Pair("\u1E9Clength",(new sc_Pair("\u1E9Ca",null)))),null)))))),null)))))),null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cdifference",(new sc_Pair((new sc_Pair("\u1E9Cplus",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),(new sc_Pair("\u1E9Cx",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cfix",(new sc_Pair("\u1E9Cy",null)))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cdifference",(new sc_Pair((new sc_Pair("\u1E9Cplus",(new sc_Pair("\u1E9Cy",(new sc_Pair("\u1E9Cx",null)))))),(new sc_Pair("\u1E9Cx",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cfix",(new sc_Pair("\u1E9Cy",null)))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cdifference",(new sc_Pair((new sc_Pair("\u1E9Cplus",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cplus",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cz",null)))))),null)))))),(new sc_Pair((new sc_Pair("\u1E9Cdifference",(new sc_Pair("\u1E9Cy",(new sc_Pair("\u1E9Cz",null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Ctimes",(new sc_Pair("\u1E9Cx",(new sc_Pair((new sc_Pair("\u1E9Cdifference",(new sc_Pair("\u1E9Cc",(new sc_Pair("\u1E9Cw",null)))))),null)))))),(new sc_Pair((new sc_Pair("\u1E9Cdifference",(new sc_Pair((new sc_Pair("\u1E9Ctimes",(new sc_Pair("\u1E9Cc",(new sc_Pair("\u1E9Cx",null)))))),(new sc_Pair((new sc_Pair("\u1E9Ctimes",(new sc_Pair("\u1E9Cw",(new sc_Pair("\u1E9Cx",null)))))),null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cremainder",(new sc_Pair((new sc_Pair("\u1E9Ctimes",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cz",null)))))),(new sc_Pair("\u1E9Cz",null)))))),(new sc_Pair((new sc_Pair("\u1E9Czero",null)),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cdifference",(new sc_Pair((new sc_Pair("\u1E9Cplus",(new sc_Pair("\u1E9Cb",(new sc_Pair((new sc_Pair("\u1E9Cplus",(new sc_Pair("\u1E9Ca",(new sc_Pair("\u1E9Cc",null)))))),null)))))),(new sc_Pair("\u1E9Ca",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cplus",(new sc_Pair("\u1E9Cb",(new sc_Pair("\u1E9Cc",null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cdifference",(new sc_Pair((new sc_Pair("\u1E9Cadd1",(new sc_Pair((new sc_Pair("\u1E9Cplus",(new sc_Pair("\u1E9Cy",(new sc_Pair("\u1E9Cz",null)))))),null)))),(new sc_Pair("\u1E9Cz",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cadd1",(new sc_Pair("\u1E9Cy",null)))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Clessp",(new sc_Pair((new sc_Pair("\u1E9Cplus",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cplus",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cz",null)))))),null)))))),(new sc_Pair((new sc_Pair("\u1E9Clessp",(new sc_Pair("\u1E9Cy",(new sc_Pair("\u1E9Cz",null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Clessp",(new sc_Pair((new sc_Pair("\u1E9Ctimes",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cz",null)))))),(new sc_Pair((new sc_Pair("\u1E9Ctimes",(new sc_Pair("\u1E9Cy",(new sc_Pair("\u1E9Cz",null)))))),null)))))),(new sc_Pair((new sc_Pair("\u1E9Cand",(new sc_Pair((new sc_Pair("\u1E9Cnot",(new sc_Pair((new sc_Pair("\u1E9Czerop",(new sc_Pair("\u1E9Cz",null)))),null)))),(new sc_Pair((new sc_Pair("\u1E9Clessp",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Clessp",(new sc_Pair("\u1E9Cy",(new sc_Pair((new sc_Pair("\u1E9Cplus",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),null)))))),(new sc_Pair((new sc_Pair("\u1E9Cnot",(new sc_Pair((new sc_Pair("\u1E9Czerop",(new sc_Pair("\u1E9Cx",null)))),null)))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cgcd",(new sc_Pair((new sc_Pair("\u1E9Ctimes",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cz",null)))))),(new sc_Pair((new sc_Pair("\u1E9Ctimes",(new sc_Pair("\u1E9Cy",(new sc_Pair("\u1E9Cz",null)))))),null)))))),(new sc_Pair((new sc_Pair("\u1E9Ctimes",(new sc_Pair("\u1E9Cz",(new sc_Pair((new sc_Pair("\u1E9Cgcd",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cvalue",(new sc_Pair((new sc_Pair("\u1E9Cnormalize",(new sc_Pair("\u1E9Cx",null)))),(new sc_Pair("\u1E9Ca",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cvalue",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Ca",null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cflatten",(new sc_Pair("\u1E9Cx",null)))),(new sc_Pair((new sc_Pair("\u1E9Ccons",(new sc_Pair("\u1E9Cy",(new sc_Pair((new sc_Pair("\u1E9Cnil",null)),null)))))),null)))))),(new sc_Pair((new sc_Pair("\u1E9Cand",(new sc_Pair((new sc_Pair("\u1E9Cnlistp",(new sc_Pair("\u1E9Cx",null)))),(new sc_Pair((new sc_Pair("\u1E9Cequal",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Clistp",(new sc_Pair((new sc_Pair("\u1E9Cgopher",(new sc_Pair("\u1E9Cx",null)))),null)))),(new sc_Pair((new sc_Pair("\u1E9Clistp",(new sc_Pair("\u1E9Cx",null)))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Csamefringe",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cflatten",(new sc_Pair("\u1E9Cx",null)))),(new sc_Pair((new sc_Pair("\u1E9Cflatten",(new sc_Pair("\u1E9Cy",null)))),null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cgreatest-factor",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),(new sc_Pair((new sc_Pair("\u1E9Czero",null)),null)))))),(new sc_Pair((new sc_Pair("\u1E9Cand",(new sc_Pair((new sc_Pair("\u1E9Cor",(new sc_Pair((new sc_Pair("\u1E9Czerop",(new sc_Pair("\u1E9Cy",null)))),(new sc_Pair((new sc_Pair("\u1E9Cequal",(new sc_Pair("\u1E9Cy",(new sc_Pair((1),null)))))),null)))))),(new sc_Pair((new sc_Pair("\u1E9Cequal",(new sc_Pair("\u1E9Cx",(new sc_Pair((new sc_Pair("\u1E9Czero",null)),null)))))),null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cgreatest-factor",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),(new sc_Pair((1),null)))))),(new sc_Pair((new sc_Pair("\u1E9Cequal",(new sc_Pair("\u1E9Cx",(new sc_Pair((1),null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cnumberp",(new sc_Pair((new sc_Pair("\u1E9Cgreatest-factor",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),null)))),(new sc_Pair((new sc_Pair("\u1E9Cnot",(new sc_Pair((new sc_Pair("\u1E9Cand",(new sc_Pair((new sc_Pair("\u1E9Cor",(new sc_Pair((new sc_Pair("\u1E9Czerop",(new sc_Pair("\u1E9Cy",null)))),(new sc_Pair((new sc_Pair("\u1E9Cequal",(new sc_Pair("\u1E9Cy",(new sc_Pair((1),null)))))),null)))))),(new sc_Pair((new sc_Pair("\u1E9Cnot",(new sc_Pair((new sc_Pair("\u1E9Cnumberp",(new sc_Pair("\u1E9Cx",null)))),null)))),null)))))),null)))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Ctimes-list",(new sc_Pair((new sc_Pair("\u1E9Cappend",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),null)))),(new sc_Pair((new sc_Pair("\u1E9Ctimes",(new sc_Pair((new sc_Pair("\u1E9Ctimes-list",(new sc_Pair("\u1E9Cx",null)))),(new sc_Pair((new sc_Pair("\u1E9Ctimes-list",(new sc_Pair("\u1E9Cy",null)))),null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cprime-list",(new sc_Pair((new sc_Pair("\u1E9Cappend",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),null)))),(new sc_Pair((new sc_Pair("\u1E9Cand",(new sc_Pair((new sc_Pair("\u1E9Cprime-list",(new sc_Pair("\u1E9Cx",null)))),(new sc_Pair((new sc_Pair("\u1E9Cprime-list",(new sc_Pair("\u1E9Cy",null)))),null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cequal",(new sc_Pair("\u1E9Cz",(new sc_Pair((new sc_Pair("\u1E9Ctimes",(new sc_Pair("\u1E9Cw",(new sc_Pair("\u1E9Cz",null)))))),null)))))),(new sc_Pair((new sc_Pair("\u1E9Cand",(new sc_Pair((new sc_Pair("\u1E9Cnumberp",(new sc_Pair("\u1E9Cz",null)))),(new sc_Pair((new sc_Pair("\u1E9Cor",(new sc_Pair((new sc_Pair("\u1E9Cequal",(new sc_Pair("\u1E9Cz",(new sc_Pair((new sc_Pair("\u1E9Czero",null)),null)))))),(new sc_Pair((new sc_Pair("\u1E9Cequal",(new sc_Pair("\u1E9Cw",(new sc_Pair((1),null)))))),null)))))),null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cgreatereqp",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cnot",(new sc_Pair((new sc_Pair("\u1E9Clessp",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),null)))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cequal",(new sc_Pair("\u1E9Cx",(new sc_Pair((new sc_Pair("\u1E9Ctimes",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),null)))))),(new sc_Pair((new sc_Pair("\u1E9Cor",(new sc_Pair((new sc_Pair("\u1E9Cequal",(new sc_Pair("\u1E9Cx",(new sc_Pair((new sc_Pair("\u1E9Czero",null)),null)))))),(new sc_Pair((new sc_Pair("\u1E9Cand",(new sc_Pair((new sc_Pair("\u1E9Cnumberp",(new sc_Pair("\u1E9Cx",null)))),(new sc_Pair((new sc_Pair("\u1E9Cequal",(new sc_Pair("\u1E9Cy",(new sc_Pair((1),null)))))),null)))))),null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cremainder",(new sc_Pair((new sc_Pair("\u1E9Ctimes",(new sc_Pair("\u1E9Cy",(new sc_Pair("\u1E9Cx",null)))))),(new sc_Pair("\u1E9Cy",null)))))),(new sc_Pair((new sc_Pair("\u1E9Czero",null)),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Ctimes",(new sc_Pair("\u1E9Ca",(new sc_Pair("\u1E9Cb",null)))))),(new sc_Pair((1),null)))))),(new sc_Pair(sc_list("\u1E9Cand", (new sc_Pair("\u1E9Cnot",(new sc_Pair((new sc_Pair("\u1E9Cequal",(new sc_Pair("\u1E9Ca",(new sc_Pair((new sc_Pair("\u1E9Czero",null)),null)))))),null)))), (new sc_Pair("\u1E9Cnot",(new sc_Pair((new sc_Pair("\u1E9Cequal",(new sc_Pair("\u1E9Cb",(new sc_Pair((new sc_Pair("\u1E9Czero",null)),null)))))),null)))), (new sc_Pair("\u1E9Cnumberp",(new sc_Pair("\u1E9Ca",null)))), (new sc_Pair("\u1E9Cnumberp",(new sc_Pair("\u1E9Cb",null)))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Csub1",(new sc_Pair("\u1E9Ca",null)))),(new sc_Pair((new sc_Pair("\u1E9Czero",null)),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Csub1",(new sc_Pair("\u1E9Cb",null)))),(new sc_Pair((new sc_Pair("\u1E9Czero",null)),null))))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Clessp",(new sc_Pair((new sc_Pair("\u1E9Clength",(new sc_Pair((new sc_Pair("\u1E9Cdelete",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cl",null)))))),null)))),(new sc_Pair((new sc_Pair("\u1E9Clength",(new sc_Pair("\u1E9Cl",null)))),null)))))),(new sc_Pair((new sc_Pair("\u1E9Cmember",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cl",null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Csort2",(new sc_Pair((new sc_Pair("\u1E9Cdelete",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cl",null)))))),null)))),(new sc_Pair((new sc_Pair("\u1E9Cdelete",(new sc_Pair("\u1E9Cx",(new sc_Pair((new sc_Pair("\u1E9Csort2",(new sc_Pair("\u1E9Cl",null)))),null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cdsort",(new sc_Pair("\u1E9Cx",null)))),(new sc_Pair((new sc_Pair("\u1E9Csort2",(new sc_Pair("\u1E9Cx",null)))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Clength",(new sc_Pair((new sc_Pair("\u1E9Ccons",(new sc_Pair("\u1E9Cx1",(new sc_Pair((new sc_Pair("\u1E9Ccons",(new sc_Pair("\u1E9Cx2",(new sc_Pair((new sc_Pair("\u1E9Ccons",(new sc_Pair("\u1E9Cx3",(new sc_Pair((new sc_Pair("\u1E9Ccons",(new sc_Pair("\u1E9Cx4",(new sc_Pair((new sc_Pair("\u1E9Ccons",(new sc_Pair("\u1E9Cx5",(new sc_Pair((new sc_Pair("\u1E9Ccons",(new sc_Pair("\u1E9Cx6",(new sc_Pair("\u1E9Cx7",null)))))),null)))))),null)))))),null)))))),null)))))),null)))))),null)))),(new sc_Pair((new sc_Pair("\u1E9Cplus",(new sc_Pair((6),(new sc_Pair((new sc_Pair("\u1E9Clength",(new sc_Pair("\u1E9Cx7",null)))),null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cdifference",(new sc_Pair((new sc_Pair("\u1E9Cadd1",(new sc_Pair((new sc_Pair("\u1E9Cadd1",(new sc_Pair("\u1E9Cx",null)))),null)))),(new sc_Pair((2),null)))))),(new sc_Pair((new sc_Pair("\u1E9Cfix",(new sc_Pair("\u1E9Cx",null)))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cquotient",(new sc_Pair((new sc_Pair("\u1E9Cplus",(new sc_Pair("\u1E9Cx",(new sc_Pair((new sc_Pair("\u1E9Cplus",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),null)))))),(new sc_Pair((2),null)))))),(new sc_Pair((new sc_Pair("\u1E9Cplus",(new sc_Pair("\u1E9Cx",(new sc_Pair((new sc_Pair("\u1E9Cquotient",(new sc_Pair("\u1E9Cy",(new sc_Pair((2),null)))))),null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Csigma",(new sc_Pair((new sc_Pair("\u1E9Czero",null)),(new sc_Pair("\u1E9Ci",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cquotient",(new sc_Pair((new sc_Pair("\u1E9Ctimes",(new sc_Pair("\u1E9Ci",(new sc_Pair((new sc_Pair("\u1E9Cadd1",(new sc_Pair("\u1E9Ci",null)))),null)))))),(new sc_Pair((2),null)))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cplus",(new sc_Pair("\u1E9Cx",(new sc_Pair((new sc_Pair("\u1E9Cadd1",(new sc_Pair("\u1E9Cy",null)))),null)))))),(new sc_Pair((new sc_Pair("\u1E9Cif",(new sc_Pair((new sc_Pair("\u1E9Cnumberp",(new sc_Pair("\u1E9Cy",null)))),(new sc_Pair((new sc_Pair("\u1E9Cadd1",(new sc_Pair((new sc_Pair("\u1E9Cplus",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),null)))),(new sc_Pair((new sc_Pair("\u1E9Cadd1",(new sc_Pair("\u1E9Cx",null)))),null)))))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cdifference",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cdifference",(new sc_Pair("\u1E9Cz",(new sc_Pair("\u1E9Cy",null)))))),null)))))),(new sc_Pair((new sc_Pair("\u1E9Cif",(new sc_Pair((new sc_Pair("\u1E9Clessp",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cnot",(new sc_Pair((new sc_Pair("\u1E9Clessp",(new sc_Pair("\u1E9Cy",(new sc_Pair("\u1E9Cz",null)))))),null)))),(new sc_Pair((new sc_Pair("\u1E9Cif",(new sc_Pair((new sc_Pair("\u1E9Clessp",(new sc_Pair("\u1E9Cz",(new sc_Pair("\u1E9Cy",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cnot",(new sc_Pair((new sc_Pair("\u1E9Clessp",(new sc_Pair("\u1E9Cy",(new sc_Pair("\u1E9Cx",null)))))),null)))),(new sc_Pair((new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cfix",(new sc_Pair("\u1E9Cx",null)))),(new sc_Pair((new sc_Pair("\u1E9Cfix",(new sc_Pair("\u1E9Cz",null)))),null)))))),null)))))))),null)))))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cmeaning",(new sc_Pair((new sc_Pair("\u1E9Cplus-tree",(new sc_Pair((new sc_Pair("\u1E9Cdelete",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),null)))),(new sc_Pair("\u1E9Ca",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cif",(new sc_Pair((new sc_Pair("\u1E9Cmember",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cdifference",(new sc_Pair((new sc_Pair("\u1E9Cmeaning",(new sc_Pair((new sc_Pair("\u1E9Cplus-tree",(new sc_Pair("\u1E9Cy",null)))),(new sc_Pair("\u1E9Ca",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cmeaning",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Ca",null)))))),null)))))),(new sc_Pair((new sc_Pair("\u1E9Cmeaning",(new sc_Pair((new sc_Pair("\u1E9Cplus-tree",(new sc_Pair("\u1E9Cy",null)))),(new sc_Pair("\u1E9Ca",null)))))),null)))))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Ctimes",(new sc_Pair("\u1E9Cx",(new sc_Pair((new sc_Pair("\u1E9Cadd1",(new sc_Pair("\u1E9Cy",null)))),null)))))),(new sc_Pair((new sc_Pair("\u1E9Cif",(new sc_Pair((new sc_Pair("\u1E9Cnumberp",(new sc_Pair("\u1E9Cy",null)))),(new sc_Pair((new sc_Pair("\u1E9Cplus",(new sc_Pair("\u1E9Cx",(new sc_Pair((new sc_Pair("\u1E9Ctimes",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),null)))))),(new sc_Pair((new sc_Pair("\u1E9Cfix",(new sc_Pair("\u1E9Cx",null)))),null)))))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cnth",(new sc_Pair((new sc_Pair("\u1E9Cnil",null)),(new sc_Pair("\u1E9Ci",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cif",(new sc_Pair((new sc_Pair("\u1E9Czerop",(new sc_Pair("\u1E9Ci",null)))),(new sc_Pair((new sc_Pair("\u1E9Cnil",null)),(new sc_Pair((new sc_Pair("\u1E9Czero",null)),null)))))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Clast",(new sc_Pair((new sc_Pair("\u1E9Cappend",(new sc_Pair("\u1E9Ca",(new sc_Pair("\u1E9Cb",null)))))),null)))),(new sc_Pair((new sc_Pair("\u1E9Cif",(new sc_Pair((new sc_Pair("\u1E9Clistp",(new sc_Pair("\u1E9Cb",null)))),(new sc_Pair((new sc_Pair("\u1E9Clast",(new sc_Pair("\u1E9Cb",null)))),(new sc_Pair((new sc_Pair("\u1E9Cif",(new sc_Pair((new sc_Pair("\u1E9Clistp",(new sc_Pair("\u1E9Ca",null)))),(new sc_Pair((new sc_Pair("\u1E9Ccons",(new sc_Pair((new sc_Pair("\u1E9Ccar",(new sc_Pair((new sc_Pair("\u1E9Clast",(new sc_Pair("\u1E9Ca",null)))),null)))),(new sc_Pair("\u1E9Cb",null)))))),(new sc_Pair("\u1E9Cb",null)))))))),null)))))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Clessp",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),(new sc_Pair("\u1E9Cz",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cif",(new sc_Pair((new sc_Pair("\u1E9Clessp",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Ct",null)),(new sc_Pair("\u1E9Cz",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cf",null)),(new sc_Pair("\u1E9Cz",null)))))),null)))))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cassignment",(new sc_Pair("\u1E9Cx",(new sc_Pair((new sc_Pair("\u1E9Cappend",(new sc_Pair("\u1E9Ca",(new sc_Pair("\u1E9Cb",null)))))),null)))))),(new sc_Pair((new sc_Pair("\u1E9Cif",(new sc_Pair((new sc_Pair("\u1E9Cassignedp",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Ca",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cassignment",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Ca",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cassignment",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cb",null)))))),null)))))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Ccar",(new sc_Pair((new sc_Pair("\u1E9Cgopher",(new sc_Pair("\u1E9Cx",null)))),null)))),(new sc_Pair((new sc_Pair("\u1E9Cif",(new sc_Pair((new sc_Pair("\u1E9Clistp",(new sc_Pair("\u1E9Cx",null)))),(new sc_Pair((new sc_Pair("\u1E9Ccar",(new sc_Pair((new sc_Pair("\u1E9Cflatten",(new sc_Pair("\u1E9Cx",null)))),null)))),(new sc_Pair((new sc_Pair("\u1E9Czero",null)),null)))))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cflatten",(new sc_Pair((new sc_Pair("\u1E9Ccdr",(new sc_Pair((new sc_Pair("\u1E9Cgopher",(new sc_Pair("\u1E9Cx",null)))),null)))),null)))),(new sc_Pair((new sc_Pair("\u1E9Cif",(new sc_Pair((new sc_Pair("\u1E9Clistp",(new sc_Pair("\u1E9Cx",null)))),(new sc_Pair((new sc_Pair("\u1E9Ccdr",(new sc_Pair((new sc_Pair("\u1E9Cflatten",(new sc_Pair("\u1E9Cx",null)))),null)))),(new sc_Pair((new sc_Pair("\u1E9Ccons",(new sc_Pair((new sc_Pair("\u1E9Czero",null)),(new sc_Pair((new sc_Pair("\u1E9Cnil",null)),null)))))),null)))))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cquotient",(new sc_Pair((new sc_Pair("\u1E9Ctimes",(new sc_Pair("\u1E9Cy",(new sc_Pair("\u1E9Cx",null)))))),(new sc_Pair("\u1E9Cy",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cif",(new sc_Pair((new sc_Pair("\u1E9Czerop",(new sc_Pair("\u1E9Cy",null)))),(new sc_Pair((new sc_Pair("\u1E9Czero",null)),(new sc_Pair((new sc_Pair("\u1E9Cfix",(new sc_Pair("\u1E9Cx",null)))),null)))))))),null)))))), (new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cget",(new sc_Pair("\u1E9Cj",(new sc_Pair((new sc_Pair("\u1E9Cset",(new sc_Pair("\u1E9Ci",(new sc_Pair("\u1E9Cval",(new sc_Pair("\u1E9Cmem",null)))))))),null)))))),(new sc_Pair((new sc_Pair("\u1E9Cif",(new sc_Pair((new sc_Pair("\u1E9Ceqp",(new sc_Pair("\u1E9Cj",(new sc_Pair("\u1E9Ci",null)))))),(new sc_Pair("\u1E9Cval",(new sc_Pair((new sc_Pair("\u1E9Cget",(new sc_Pair("\u1E9Cj",(new sc_Pair("\u1E9Cmem",null)))))),null)))))))),null))))))));
3467
+ (const_nboyer = (new sc_Pair((new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cf",(new sc_Pair((new sc_Pair("\u1E9Cplus",(new sc_Pair((new sc_Pair("\u1E9Cplus",(new sc_Pair("\u1E9Ca",(new sc_Pair("\u1E9Cb",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cplus",(new sc_Pair("\u1E9Cc",(new sc_Pair((new sc_Pair("\u1E9Czero",null)),null)))))),null)))))),null)))))),(new sc_Pair((new sc_Pair("\u1E9Cy",(new sc_Pair("\u1E9Cf",(new sc_Pair((new sc_Pair("\u1E9Ctimes",(new sc_Pair((new sc_Pair("\u1E9Ctimes",(new sc_Pair("\u1E9Ca",(new sc_Pair("\u1E9Cb",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cplus",(new sc_Pair("\u1E9Cc",(new sc_Pair("\u1E9Cd",null)))))),null)))))),null)))))),(new sc_Pair((new sc_Pair("\u1E9Cz",(new sc_Pair("\u1E9Cf",(new sc_Pair((new sc_Pair("\u1E9Creverse",(new sc_Pair((new sc_Pair("\u1E9Cappend",(new sc_Pair((new sc_Pair("\u1E9Cappend",(new sc_Pair("\u1E9Ca",(new sc_Pair("\u1E9Cb",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cnil",null)),null)))))),null)))),null)))))),(new sc_Pair((new sc_Pair("\u1E9Cu",(new sc_Pair("\u1E9Cequal",(new sc_Pair((new sc_Pair("\u1E9Cplus",(new sc_Pair("\u1E9Ca",(new sc_Pair("\u1E9Cb",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cdifference",(new sc_Pair("\u1E9Cx",(new sc_Pair("\u1E9Cy",null)))))),null)))))))),(new sc_Pair((new sc_Pair("\u1E9Cw",(new sc_Pair("\u1E9Clessp",(new sc_Pair((new sc_Pair("\u1E9Cremainder",(new sc_Pair("\u1E9Ca",(new sc_Pair("\u1E9Cb",null)))))),(new sc_Pair((new sc_Pair("\u1E9Cmember",(new sc_Pair("\u1E9Ca",(new sc_Pair((new sc_Pair("\u1E9Clength",(new sc_Pair("\u1E9Cb",null)))),null)))))),null)))))))),null)))))))))));
3468
+ BgL_nboyerzd2benchmarkzd2 = function() {
3469
+ var args = null;
3470
+ for (var sc_tmp = arguments.length - 1; sc_tmp >= 0; sc_tmp--) {
3471
+ args = sc_cons(arguments[sc_tmp], args);
3472
+ }
3473
+ var n;
3474
+ return ((n = ((args === null)?(0):(args.car))), (BgL_setupzd2boyerzd2()), (BgL_runzd2benchmarkzd2(("nboyer"+(sc_number2string(n))), (1), function() {
3475
+ return (BgL_testzd2boyerzd2(n));
3476
+ }, function(rewrites) {
3477
+ if ((sc_isNumber(rewrites)))
3478
+ switch (n) {
3479
+ case (0):
3480
+ return (rewrites===(95024));
3481
+ break;
3482
+ case (1):
3483
+ return (rewrites===(591777));
3484
+ break;
3485
+ case (2):
3486
+ return (rewrites===(1813975));
3487
+ break;
3488
+ case (3):
3489
+ return (rewrites===(5375678));
3490
+ break;
3491
+ case (4):
3492
+ return (rewrites===(16445406));
3493
+ break;
3494
+ case (5):
3495
+ return (rewrites===(51507739));
3496
+ break;
3497
+ default:
3498
+ return true;
3499
+ break;
3500
+ }
3501
+ else
3502
+ return false;
3503
+ })));
3504
+ };
3505
+ BgL_setupzd2boyerzd2 = function() {
3506
+ return true;
3507
+ };
3508
+ BgL_testzd2boyerzd2 = function() {
3509
+ return true;
3510
+ };
3511
+ translate_term_nboyer = function(term) {
3512
+ var lst;
3513
+ return (!(term instanceof sc_Pair)?term:(new sc_Pair((BgL_sc_symbolzd2ze3symbolzd2record_1ze3_nboyer((term.car))), ((lst = (term.cdr)), ((lst === null)?null:(new sc_Pair((translate_term_nboyer((lst.car))), (translate_args_nboyer((lst.cdr))))))))));
3514
+ };
3515
+ translate_args_nboyer = function(lst) {
3516
+ var sc_lst_5;
3517
+ var term;
3518
+ return ((lst === null)?null:(new sc_Pair(((term = (lst.car)), (!(term instanceof sc_Pair)?term:(new sc_Pair((BgL_sc_symbolzd2ze3symbolzd2record_1ze3_nboyer((term.car))), (translate_args_nboyer((term.cdr))))))), ((sc_lst_5 = (lst.cdr)), ((sc_lst_5 === null)?null:(new sc_Pair((translate_term_nboyer((sc_lst_5.car))), (translate_args_nboyer((sc_lst_5.cdr))))))))));
3519
+ };
3520
+ untranslate_term_nboyer = function(term) {
3521
+ var optrOpnd;
3522
+ var tail1131;
3523
+ var L1127;
3524
+ var falseHead1130;
3525
+ var symbol_record;
3526
+ if (!(term instanceof sc_Pair))
3527
+ return term;
3528
+ else
3529
+ {
3530
+ (falseHead1130 = (new sc_Pair(null, null)));
3531
+ (L1127 = (term.cdr));
3532
+ (tail1131 = falseHead1130);
3533
+ while (!(L1127 === null)) {
3534
+ {
3535
+ (tail1131.cdr = (new sc_Pair((untranslate_term_nboyer((L1127.car))), null)));
3536
+ (tail1131 = (tail1131.cdr));
3537
+ (L1127 = (L1127.cdr));
3538
+ }
3539
+ }
3540
+ (optrOpnd = (falseHead1130.cdr));
3541
+ return (new sc_Pair(((symbol_record = (term.car)), (symbol_record[(0)])), optrOpnd));
3542
+ }
3543
+ };
3544
+ BgL_sc_symbolzd2ze3symbolzd2record_1ze3_nboyer = function(sym) {
3545
+ var r;
3546
+ var x;
3547
+ return ((x = (sc_assq(sym, BgL_sc_za2symbolzd2recordszd2alistza2_2z00_nboyer))), ((x!== false)?(x.cdr):((r = [sym, null]), (BgL_sc_za2symbolzd2recordszd2alistza2_2z00_nboyer = (new sc_Pair((new sc_Pair(sym, r)), BgL_sc_za2symbolzd2recordszd2alistza2_2z00_nboyer))), r)));
3548
+ };
3549
+ (BgL_sc_za2symbolzd2recordszd2alistza2_2z00_nboyer = null);
3550
+ translate_alist_nboyer = function(alist) {
3551
+ var sc_alist_6;
3552
+ var term;
3553
+ return ((alist === null)?null:(new sc_Pair((new sc_Pair((alist.car.car), ((term = (alist.car.cdr)), (!(term instanceof sc_Pair)?term:(new sc_Pair((BgL_sc_symbolzd2ze3symbolzd2record_1ze3_nboyer((term.car))), (translate_args_nboyer((term.cdr))))))))), ((sc_alist_6 = (alist.cdr)), ((sc_alist_6 === null)?null:(new sc_Pair((new sc_Pair((sc_alist_6.car.car), (translate_term_nboyer((sc_alist_6.car.cdr))))), (translate_alist_nboyer((sc_alist_6.cdr))))))))));
3554
+ };
3555
+ apply_subst_nboyer = function(alist, term) {
3556
+ var lst;
3557
+ var temp_temp;
3558
+ return (!(term instanceof sc_Pair)?((temp_temp = (sc_assq(term, alist))), ((temp_temp!== false)?(temp_temp.cdr):term)):(new sc_Pair((term.car), ((lst = (term.cdr)), ((lst === null)?null:(new sc_Pair((apply_subst_nboyer(alist, (lst.car))), (apply_subst_lst_nboyer(alist, (lst.cdr))))))))));
3559
+ };
3560
+ apply_subst_lst_nboyer = function(alist, lst) {
3561
+ var sc_lst_7;
3562
+ return ((lst === null)?null:(new sc_Pair((apply_subst_nboyer(alist, (lst.car))), ((sc_lst_7 = (lst.cdr)), ((sc_lst_7 === null)?null:(new sc_Pair((apply_subst_nboyer(alist, (sc_lst_7.car))), (apply_subst_lst_nboyer(alist, (sc_lst_7.cdr))))))))));
3563
+ };
3564
+ tautologyp_nboyer = function(sc_x_11, true_lst, false_lst) {
3565
+ var tmp1125;
3566
+ var x;
3567
+ var tmp1126;
3568
+ var sc_x_8;
3569
+ var sc_tmp1125_9;
3570
+ var sc_tmp1126_10;
3571
+ var sc_x_11;
3572
+ var true_lst;
3573
+ var false_lst;
3574
+ while (true) {
3575
+ if ((((sc_tmp1126_10 = (is_term_equal_nboyer(sc_x_11, true_term_nboyer))), ((sc_tmp1126_10!== false)?sc_tmp1126_10:(is_term_member_nboyer(sc_x_11, true_lst))))!== false))
3576
+ return true;
3577
+ else
3578
+ if ((((sc_tmp1125_9 = (is_term_equal_nboyer(sc_x_11, false_term_nboyer))), ((sc_tmp1125_9!== false)?sc_tmp1125_9:(is_term_member_nboyer(sc_x_11, false_lst))))!== false))
3579
+ return false;
3580
+ else
3581
+ if (!(sc_x_11 instanceof sc_Pair))
3582
+ return false;
3583
+ else
3584
+ if (((sc_x_11.car)===if_constructor_nboyer))
3585
+ if ((((sc_x_8 = (sc_x_11.cdr.car)), (tmp1126 = (is_term_equal_nboyer(sc_x_8, true_term_nboyer))), ((tmp1126!== false)?tmp1126:(is_term_member_nboyer(sc_x_8, true_lst))))!== false))
3586
+ (sc_x_11 = (sc_x_11.cdr.cdr.car));
3587
+ else
3588
+ if ((((x = (sc_x_11.cdr.car)), (tmp1125 = (is_term_equal_nboyer(x, false_term_nboyer))), ((tmp1125!== false)?tmp1125:(is_term_member_nboyer(x, false_lst))))!== false))
3589
+ (sc_x_11 = (sc_x_11.cdr.cdr.cdr.car));
3590
+ else
3591
+ if (((tautologyp_nboyer((sc_x_11.cdr.cdr.car), (new sc_Pair((sc_x_11.cdr.car), true_lst)), false_lst))!== false))
3592
+ {
3593
+ (false_lst = (new sc_Pair((sc_x_11.cdr.car), false_lst)));
3594
+ (sc_x_11 = (sc_x_11.cdr.cdr.cdr.car));
3595
+ }
3596
+ else
3597
+ return false;
3598
+ else
3599
+ return false;
3600
+ }
3601
+ };
3602
+ (if_constructor_nboyer = "\u1E9C*");
3603
+ (rewrite_count_nboyer = (0));
3604
+ rewrite_nboyer = function(term) {
3605
+ var term2;
3606
+ var sc_term_12;
3607
+ var lst;
3608
+ var symbol_record;
3609
+ var sc_lst_13;
3610
+ {
3611
+ (++rewrite_count_nboyer);
3612
+ if (!(term instanceof sc_Pair))
3613
+ return term;
3614
+ else
3615
+ {
3616
+ (sc_term_12 = (new sc_Pair((term.car), ((sc_lst_13 = (term.cdr)), ((sc_lst_13 === null)?null:(new sc_Pair((rewrite_nboyer((sc_lst_13.car))), (rewrite_args_nboyer((sc_lst_13.cdr))))))))));
3617
+ (lst = ((symbol_record = (term.car)), (symbol_record[(1)])));
3618
+ while (true) {
3619
+ if ((lst === null))
3620
+ return sc_term_12;
3621
+ else
3622
+ if ((((term2 = ((lst.car).cdr.car)), (unify_subst_nboyer = null), (one_way_unify1_nboyer(sc_term_12, term2)))!== false))
3623
+ return (rewrite_nboyer((apply_subst_nboyer(unify_subst_nboyer, ((lst.car).cdr.cdr.car)))));
3624
+ else
3625
+ (lst = (lst.cdr));
3626
+ }
3627
+ }
3628
+ }
3629
+ };
3630
+ rewrite_args_nboyer = function(lst) {
3631
+ var sc_lst_14;
3632
+ return ((lst === null)?null:(new sc_Pair((rewrite_nboyer((lst.car))), ((sc_lst_14 = (lst.cdr)), ((sc_lst_14 === null)?null:(new sc_Pair((rewrite_nboyer((sc_lst_14.car))), (rewrite_args_nboyer((sc_lst_14.cdr))))))))));
3633
+ };
3634
+ (unify_subst_nboyer = "\u1E9C*");
3635
+ one_way_unify1_nboyer = function(term1, term2) {
3636
+ var lst1;
3637
+ var lst2;
3638
+ var temp_temp;
3639
+ if (!(term2 instanceof sc_Pair))
3640
+ {
3641
+ (temp_temp = (sc_assq(term2, unify_subst_nboyer)));
3642
+ if ((temp_temp!== false))
3643
+ return (is_term_equal_nboyer(term1, (temp_temp.cdr)));
3644
+ else
3645
+ if ((sc_isNumber(term2)))
3646
+ return (sc_isEqual(term1, term2));
3647
+ else
3648
+ {
3649
+ (unify_subst_nboyer = (new sc_Pair((new sc_Pair(term2, term1)), unify_subst_nboyer)));
3650
+ return true;
3651
+ }
3652
+ }
3653
+ else
3654
+ if (!(term1 instanceof sc_Pair))
3655
+ return false;
3656
+ else
3657
+ if (((term1.car)===(term2.car)))
3658
+ {
3659
+ (lst1 = (term1.cdr));
3660
+ (lst2 = (term2.cdr));
3661
+ while (true) {
3662
+ if ((lst1 === null))
3663
+ return (lst2 === null);
3664
+ else
3665
+ if ((lst2 === null))
3666
+ return false;
3667
+ else
3668
+ if (((one_way_unify1_nboyer((lst1.car), (lst2.car)))!== false))
3669
+ {
3670
+ (lst1 = (lst1.cdr));
3671
+ (lst2 = (lst2.cdr));
3672
+ }
3673
+ else
3674
+ return false;
3675
+ }
3676
+ }
3677
+ else
3678
+ return false;
3679
+ };
3680
+ (false_term_nboyer = "\u1E9C*");
3681
+ (true_term_nboyer = "\u1E9C*");
3682
+ trans_of_implies1_nboyer = function(n) {
3683
+ var sc_n_15;
3684
+ return ((sc_isEqual(n, (1)))?(sc_list("\u1E9Cimplies", (0), (1))):(sc_list("\u1E9Cand", (sc_list("\u1E9Cimplies", (n-(1)), n)), ((sc_n_15 = (n-(1))), ((sc_isEqual(sc_n_15, (1)))?(sc_list("\u1E9Cimplies", (0), (1))):(sc_list("\u1E9Cand", (sc_list("\u1E9Cimplies", (sc_n_15-(1)), sc_n_15)), (trans_of_implies1_nboyer((sc_n_15-(1)))))))))));
3685
+ };
3686
+ is_term_equal_nboyer = function(x, y) {
3687
+ var lst1;
3688
+ var lst2;
3689
+ var r2;
3690
+ var r1;
3691
+ if ((x instanceof sc_Pair))
3692
+ if ((y instanceof sc_Pair))
3693
+ if ((((r1 = (x.car)), (r2 = (y.car)), (r1===r2))!== false))
3694
+ {
3695
+ (lst1 = (x.cdr));
3696
+ (lst2 = (y.cdr));
3697
+ while (true) {
3698
+ if ((lst1 === null))
3699
+ return (lst2 === null);
3700
+ else
3701
+ if ((lst2 === null))
3702
+ return false;
3703
+ else
3704
+ if (((is_term_equal_nboyer((lst1.car), (lst2.car)))!== false))
3705
+ {
3706
+ (lst1 = (lst1.cdr));
3707
+ (lst2 = (lst2.cdr));
3708
+ }
3709
+ else
3710
+ return false;
3711
+ }
3712
+ }
3713
+ else
3714
+ return false;
3715
+ else
3716
+ return false;
3717
+ else
3718
+ return (sc_isEqual(x, y));
3719
+ };
3720
+ is_term_member_nboyer = function(x, lst) {
3721
+ var x;
3722
+ var lst;
3723
+ while (true) {
3724
+ if ((lst === null))
3725
+ return false;
3726
+ else
3727
+ if (((is_term_equal_nboyer(x, (lst.car)))!== false))
3728
+ return true;
3729
+ else
3730
+ (lst = (lst.cdr));
3731
+ }
3732
+ };
3733
+ BgL_setupzd2boyerzd2 = function() {
3734
+ var symbol_record;
3735
+ var value;
3736
+ var BgL_sc_symbolzd2record_16zd2;
3737
+ var sym;
3738
+ var sc_sym_17;
3739
+ var term;
3740
+ var lst;
3741
+ var sc_term_18;
3742
+ var sc_term_19;
3743
+ {
3744
+ (BgL_sc_za2symbolzd2recordszd2alistza2_2z00_nboyer = null);
3745
+ (if_constructor_nboyer = (BgL_sc_symbolzd2ze3symbolzd2record_1ze3_nboyer("\u1E9Cif")));
3746
+ (false_term_nboyer = ((sc_term_19 = (new sc_Pair("\u1E9Cf",null))), (!(sc_term_19 instanceof sc_Pair)?sc_term_19:(new sc_Pair((BgL_sc_symbolzd2ze3symbolzd2record_1ze3_nboyer((sc_term_19.car))), (translate_args_nboyer((sc_term_19.cdr))))))));
3747
+ (true_term_nboyer = ((sc_term_18 = (new sc_Pair("\u1E9Ct",null))), (!(sc_term_18 instanceof sc_Pair)?sc_term_18:(new sc_Pair((BgL_sc_symbolzd2ze3symbolzd2record_1ze3_nboyer((sc_term_18.car))), (translate_args_nboyer((sc_term_18.cdr))))))));
3748
+ (lst = sc_const_3_nboyer);
3749
+ while (!(lst === null)) {
3750
+ {
3751
+ (term = (lst.car));
3752
+ if (((term instanceof sc_Pair)&&(((term.car)==="\u1E9Cequal")&&((term.cdr.car) instanceof sc_Pair))))
3753
+ {
3754
+ (sc_sym_17 = ((term.cdr.car).car));
3755
+ (value = (new sc_Pair((!(term instanceof sc_Pair)?term:(new sc_Pair((BgL_sc_symbolzd2ze3symbolzd2record_1ze3_nboyer((term.car))), (translate_args_nboyer((term.cdr)))))), ((sym = ((term.cdr.car).car)), (BgL_sc_symbolzd2record_16zd2 = (BgL_sc_symbolzd2ze3symbolzd2record_1ze3_nboyer(sym))), (BgL_sc_symbolzd2record_16zd2[(1)])))));
3756
+ (symbol_record = (BgL_sc_symbolzd2ze3symbolzd2record_1ze3_nboyer(sc_sym_17)));
3757
+ (symbol_record[(1)] = value);
3758
+ }
3759
+ else
3760
+ (sc_error("ADD-LEMMA did not like term: ", term));
3761
+ (lst = (lst.cdr));
3762
+ }
3763
+ }
3764
+ return true;
3765
+ }
3766
+ };
3767
+ BgL_testzd2boyerzd2 = function(n) {
3768
+ var optrOpnd;
3769
+ var term;
3770
+ var sc_n_20;
3771
+ var answer;
3772
+ var sc_term_21;
3773
+ var sc_term_22;
3774
+ {
3775
+ (rewrite_count_nboyer = (0));
3776
+ (term = sc_const_4_nboyer);
3777
+ (sc_n_20 = n);
3778
+ while (!(sc_n_20=== 0)) {
3779
+ {
3780
+ (term = (sc_list("\u1E9Cor", term, (new sc_Pair("\u1E9Cf",null)))));
3781
+ (--sc_n_20);
3782
+ }
3783
+ }
3784
+ (sc_term_22 = term);
3785
+ if (!(sc_term_22 instanceof sc_Pair))
3786
+ (optrOpnd = sc_term_22);
3787
+ else
3788
+ (optrOpnd = (new sc_Pair((BgL_sc_symbolzd2ze3symbolzd2record_1ze3_nboyer((sc_term_22.car))), (translate_args_nboyer((sc_term_22.cdr))))));
3789
+ (sc_term_21 = (apply_subst_nboyer(((const_nboyer === null)?null:(new sc_Pair((new sc_Pair((const_nboyer.car.car), (translate_term_nboyer((const_nboyer.car.cdr))))), (translate_alist_nboyer((const_nboyer.cdr)))))), optrOpnd)));
3790
+ (answer = (tautologyp_nboyer((rewrite_nboyer(sc_term_21)), null, null)));
3791
+ (sc_write(rewrite_count_nboyer));
3792
+ (sc_display(" rewrites"));
3793
+ (sc_newline());
3794
+ if ((answer!== false))
3795
+ return rewrite_count_nboyer;
3796
+ else
3797
+ return false;
3798
+ }
3799
+ };
3800
+ }
3801
+ /* Exported Variables */
3802
+ var BgL_parsezd2ze3nbzd2treesze3;
3803
+ var BgL_earleyzd2benchmarkzd2;
3804
+ var BgL_parsezd2ze3parsedzf3zc2;
3805
+ var test;
3806
+ var BgL_parsezd2ze3treesz31;
3807
+ var BgL_makezd2parserzd2;
3808
+ /* End Exports */
3809
+
3810
+ var const_earley;
3811
+ {
3812
+ (const_earley = (new sc_Pair((new sc_Pair("\u1E9Cs",(new sc_Pair((new sc_Pair("\u1E9Ca",null)),(new sc_Pair((new sc_Pair("\u1E9Cs",(new sc_Pair("\u1E9Cs",null)))),null)))))),null)));
3813
+ BgL_makezd2parserzd2 = function(grammar, lexer) {
3814
+ var i;
3815
+ var parser_descr;
3816
+ var def_loop;
3817
+ var nb_nts;
3818
+ var names;
3819
+ var steps;
3820
+ var predictors;
3821
+ var enders;
3822
+ var starters;
3823
+ var nts;
3824
+ var sc_names_1;
3825
+ var sc_steps_2;
3826
+ var sc_predictors_3;
3827
+ var sc_enders_4;
3828
+ var sc_starters_5;
3829
+ var nb_confs;
3830
+ var BgL_sc_defzd2loop_6zd2;
3831
+ var BgL_sc_nbzd2nts_7zd2;
3832
+ var sc_nts_8;
3833
+ var BgL_sc_defzd2loop_9zd2;
3834
+ var ind;
3835
+ {
3836
+ ind = function(nt, sc_nts_10) {
3837
+ var i;
3838
+ {
3839
+ (i = ((sc_nts_10.length)-(1)));
3840
+ while (true) {
3841
+ if ((i>=(0)))
3842
+ if ((sc_isEqual((sc_nts_10[i]), nt)))
3843
+ return i;
3844
+ else
3845
+ (--i);
3846
+ else
3847
+ return false;
3848
+ }
3849
+ }
3850
+ };
3851
+ (sc_nts_8 = ((BgL_sc_defzd2loop_9zd2 = function(defs, sc_nts_11) {
3852
+ var rule_loop;
3853
+ var head;
3854
+ var def;
3855
+ return ((defs instanceof sc_Pair)?((def = (defs.car)), (head = (def.car)), (rule_loop = function(rules, sc_nts_12) {
3856
+ var nt;
3857
+ var l;
3858
+ var sc_nts_13;
3859
+ var rule;
3860
+ if ((rules instanceof sc_Pair))
3861
+ {
3862
+ (rule = (rules.car));
3863
+ (l = rule);
3864
+ (sc_nts_13 = sc_nts_12);
3865
+ while ((l instanceof sc_Pair)) {
3866
+ {
3867
+ (nt = (l.car));
3868
+ (l = (l.cdr));
3869
+ (sc_nts_13 = (((sc_member(nt, sc_nts_13))!== false)?sc_nts_13:(new sc_Pair(nt, sc_nts_13))));
3870
+ }
3871
+ }
3872
+ return (rule_loop((rules.cdr), sc_nts_13));
3873
+ }
3874
+ else
3875
+ return (BgL_sc_defzd2loop_9zd2((defs.cdr), sc_nts_12));
3876
+ }), (rule_loop((def.cdr), (((sc_member(head, sc_nts_11))!== false)?sc_nts_11:(new sc_Pair(head, sc_nts_11)))))):(sc_list2vector((sc_reverse(sc_nts_11)))));
3877
+ }), (BgL_sc_defzd2loop_9zd2(grammar, null))));
3878
+ (BgL_sc_nbzd2nts_7zd2 = (sc_nts_8.length));
3879
+ (nb_confs = (((BgL_sc_defzd2loop_6zd2 = function(defs, BgL_sc_nbzd2confs_14zd2) {
3880
+ var rule_loop;
3881
+ var def;
3882
+ return ((defs instanceof sc_Pair)?((def = (defs.car)), (rule_loop = function(rules, BgL_sc_nbzd2confs_15zd2) {
3883
+ var l;
3884
+ var BgL_sc_nbzd2confs_16zd2;
3885
+ var rule;
3886
+ if ((rules instanceof sc_Pair))
3887
+ {
3888
+ (rule = (rules.car));
3889
+ (l = rule);
3890
+ (BgL_sc_nbzd2confs_16zd2 = BgL_sc_nbzd2confs_15zd2);
3891
+ while ((l instanceof sc_Pair)) {
3892
+ {
3893
+ (l = (l.cdr));
3894
+ (++BgL_sc_nbzd2confs_16zd2);
3895
+ }
3896
+ }
3897
+ return (rule_loop((rules.cdr), (BgL_sc_nbzd2confs_16zd2+(1))));
3898
+ }
3899
+ else
3900
+ return (BgL_sc_defzd2loop_6zd2((defs.cdr), BgL_sc_nbzd2confs_15zd2));
3901
+ }), (rule_loop((def.cdr), BgL_sc_nbzd2confs_14zd2))):BgL_sc_nbzd2confs_14zd2);
3902
+ }), (BgL_sc_defzd2loop_6zd2(grammar, (0))))+BgL_sc_nbzd2nts_7zd2));
3903
+ (sc_starters_5 = (sc_makeVector(BgL_sc_nbzd2nts_7zd2, null)));
3904
+ (sc_enders_4 = (sc_makeVector(BgL_sc_nbzd2nts_7zd2, null)));
3905
+ (sc_predictors_3 = (sc_makeVector(BgL_sc_nbzd2nts_7zd2, null)));
3906
+ (sc_steps_2 = (sc_makeVector(nb_confs, false)));
3907
+ (sc_names_1 = (sc_makeVector(nb_confs, false)));
3908
+ (nts = sc_nts_8);
3909
+ (starters = sc_starters_5);
3910
+ (enders = sc_enders_4);
3911
+ (predictors = sc_predictors_3);
3912
+ (steps = sc_steps_2);
3913
+ (names = sc_names_1);
3914
+ (nb_nts = (sc_nts_8.length));
3915
+ (i = (nb_nts-(1)));
3916
+ while ((i>=(0))) {
3917
+ {
3918
+ (sc_steps_2[i] = (i-nb_nts));
3919
+ (sc_names_1[i] = (sc_list((sc_nts_8[i]), (0))));
3920
+ (sc_enders_4[i] = (sc_list(i)));
3921
+ (--i);
3922
+ }
3923
+ }
3924
+ def_loop = function(defs, conf) {
3925
+ var rule_loop;
3926
+ var head;
3927
+ var def;
3928
+ return ((defs instanceof sc_Pair)?((def = (defs.car)), (head = (def.car)), (rule_loop = function(rules, conf, rule_num) {
3929
+ var i;
3930
+ var sc_i_17;
3931
+ var nt;
3932
+ var l;
3933
+ var sc_conf_18;
3934
+ var sc_i_19;
3935
+ var rule;
3936
+ if ((rules instanceof sc_Pair))
3937
+ {
3938
+ (rule = (rules.car));
3939
+ (names[conf] = (sc_list(head, rule_num)));
3940
+ (sc_i_19 = (ind(head, nts)));
3941
+ (starters[sc_i_19] = (new sc_Pair(conf, (starters[sc_i_19]))));
3942
+ (l = rule);
3943
+ (sc_conf_18 = conf);
3944
+ while ((l instanceof sc_Pair)) {
3945
+ {
3946
+ (nt = (l.car));
3947
+ (steps[sc_conf_18] = (ind(nt, nts)));
3948
+ (sc_i_17 = (ind(nt, nts)));
3949
+ (predictors[sc_i_17] = (new sc_Pair(sc_conf_18, (predictors[sc_i_17]))));
3950
+ (l = (l.cdr));
3951
+ (++sc_conf_18);
3952
+ }
3953
+ }
3954
+ (steps[sc_conf_18] = ((ind(head, nts))-nb_nts));
3955
+ (i = (ind(head, nts)));
3956
+ (enders[i] = (new sc_Pair(sc_conf_18, (enders[i]))));
3957
+ return (rule_loop((rules.cdr), (sc_conf_18+(1)), (rule_num+(1))));
3958
+ }
3959
+ else
3960
+ return (def_loop((defs.cdr), conf));
3961
+ }), (rule_loop((def.cdr), conf, (1)))):undefined);
3962
+ };
3963
+ (def_loop(grammar, (sc_nts_8.length)));
3964
+ (parser_descr = [lexer, sc_nts_8, sc_starters_5, sc_enders_4, sc_predictors_3, sc_steps_2, sc_names_1]);
3965
+ return function(input) {
3966
+ var optrOpnd;
3967
+ var sc_optrOpnd_20;
3968
+ var sc_optrOpnd_21;
3969
+ var sc_optrOpnd_22;
3970
+ var loop1;
3971
+ var BgL_sc_stateza2_23za2;
3972
+ var toks;
3973
+ var BgL_sc_nbzd2nts_24zd2;
3974
+ var sc_steps_25;
3975
+ var sc_enders_26;
3976
+ var state_num;
3977
+ var BgL_sc_statesza2_27za2;
3978
+ var states;
3979
+ var i;
3980
+ var conf;
3981
+ var l;
3982
+ var tok_nts;
3983
+ var sc_i_28;
3984
+ var sc_i_29;
3985
+ var l1;
3986
+ var l2;
3987
+ var tok;
3988
+ var tail1129;
3989
+ var L1125;
3990
+ var goal_enders;
3991
+ var BgL_sc_statesza2_30za2;
3992
+ var BgL_sc_nbzd2nts_31zd2;
3993
+ var BgL_sc_nbzd2confs_32zd2;
3994
+ var nb_toks;
3995
+ var goal_starters;
3996
+ var sc_states_33;
3997
+ var BgL_sc_nbzd2confs_34zd2;
3998
+ var BgL_sc_nbzd2toks_35zd2;
3999
+ var sc_toks_36;
4000
+ var falseHead1128;
4001
+ var sc_names_37;
4002
+ var sc_steps_38;
4003
+ var sc_predictors_39;
4004
+ var sc_enders_40;
4005
+ var sc_starters_41;
4006
+ var sc_nts_42;
4007
+ var lexer;
4008
+ var sc_ind_43;
4009
+ var make_states;
4010
+ var BgL_sc_confzd2setzd2getza2_44za2;
4011
+ var conf_set_merge_new_bang;
4012
+ var conf_set_adjoin;
4013
+ var BgL_sc_confzd2setzd2adjoinza2_45za2;
4014
+ var BgL_sc_confzd2setzd2adjoinza2za2_46z00;
4015
+ var conf_set_union;
4016
+ var forw;
4017
+ var is_parsed;
4018
+ var deriv_trees;
4019
+ var BgL_sc_derivzd2treesza2_47z70;
4020
+ var nb_deriv_trees;
4021
+ var BgL_sc_nbzd2derivzd2treesza2_48za2;
4022
+ {
4023
+ sc_ind_43 = function(nt, sc_nts_49) {
4024
+ var i;
4025
+ {
4026
+ (i = ((sc_nts_49.length)-(1)));
4027
+ while (true) {
4028
+ if ((i>=(0)))
4029
+ if ((sc_isEqual((sc_nts_49[i]), nt)))
4030
+ return i;
4031
+ else
4032
+ (--i);
4033
+ else
4034
+ return false;
4035
+ }
4036
+ }
4037
+ };
4038
+ make_states = function(BgL_sc_nbzd2toks_50zd2, BgL_sc_nbzd2confs_51zd2) {
4039
+ var v;
4040
+ var i;
4041
+ var sc_states_52;
4042
+ {
4043
+ (sc_states_52 = (sc_makeVector((BgL_sc_nbzd2toks_50zd2+(1)), false)));
4044
+ (i = BgL_sc_nbzd2toks_50zd2);
4045
+ while ((i>=(0))) {
4046
+ {
4047
+ (v = (sc_makeVector((BgL_sc_nbzd2confs_51zd2+(1)), false)));
4048
+ (v[(0)] = (-1));
4049
+ (sc_states_52[i] = v);
4050
+ (--i);
4051
+ }
4052
+ }
4053
+ return sc_states_52;
4054
+ }
4055
+ };
4056
+ BgL_sc_confzd2setzd2getza2_44za2 = function(state, BgL_sc_statezd2num_53zd2, sc_conf_54) {
4057
+ var conf_set;
4058
+ var BgL_sc_confzd2set_55zd2;
4059
+ return ((BgL_sc_confzd2set_55zd2 = (state[(sc_conf_54+(1))])), ((BgL_sc_confzd2set_55zd2!== false)?BgL_sc_confzd2set_55zd2:((conf_set = (sc_makeVector((BgL_sc_statezd2num_53zd2+(6)), false))), (conf_set[(1)] = (-3)), (conf_set[(2)] = (-1)), (conf_set[(3)] = (-1)), (conf_set[(4)] = (-1)), (state[(sc_conf_54+(1))] = conf_set), conf_set)));
4060
+ };
4061
+ conf_set_merge_new_bang = function(conf_set) {
4062
+ return ((conf_set[((conf_set[(1)])+(5))] = (conf_set[(4)])), (conf_set[(1)] = (conf_set[(3)])), (conf_set[(3)] = (-1)), (conf_set[(4)] = (-1)));
4063
+ };
4064
+ conf_set_adjoin = function(state, conf_set, sc_conf_56, i) {
4065
+ var tail;
4066
+ return ((tail = (conf_set[(3)])), (conf_set[(i+(5))] = (-1)), (conf_set[(tail+(5))] = i), (conf_set[(3)] = i), ((tail<(0))?((conf_set[(0)] = (state[(0)])), (state[(0)] = sc_conf_56)):undefined));
4067
+ };
4068
+ BgL_sc_confzd2setzd2adjoinza2_45za2 = function(sc_states_57, BgL_sc_statezd2num_58zd2, l, i) {
4069
+ var conf_set;
4070
+ var sc_conf_59;
4071
+ var l1;
4072
+ var state;
4073
+ {
4074
+ (state = (sc_states_57[BgL_sc_statezd2num_58zd2]));
4075
+ (l1 = l);
4076
+ while ((l1 instanceof sc_Pair)) {
4077
+ {
4078
+ (sc_conf_59 = (l1.car));
4079
+ (conf_set = (BgL_sc_confzd2setzd2getza2_44za2(state, BgL_sc_statezd2num_58zd2, sc_conf_59)));
4080
+ if (((conf_set[(i+(5))])=== false))
4081
+ {
4082
+ (conf_set_adjoin(state, conf_set, sc_conf_59, i));
4083
+ (l1 = (l1.cdr));
4084
+ }
4085
+ else
4086
+ (l1 = (l1.cdr));
4087
+ }
4088
+ }
4089
+ return undefined;
4090
+ }
4091
+ };
4092
+ BgL_sc_confzd2setzd2adjoinza2za2_46z00 = function(sc_states_60, BgL_sc_statesza2_61za2, BgL_sc_statezd2num_62zd2, sc_conf_63, i) {
4093
+ var BgL_sc_confzd2setza2_64z70;
4094
+ var BgL_sc_stateza2_65za2;
4095
+ var conf_set;
4096
+ var state;
4097
+ return ((state = (sc_states_60[BgL_sc_statezd2num_62zd2])), ((((conf_set = (state[(sc_conf_63+(1))])), ((conf_set!== false)?(conf_set[(i+(5))]):false))!== false)?((BgL_sc_stateza2_65za2 = (BgL_sc_statesza2_61za2[BgL_sc_statezd2num_62zd2])), (BgL_sc_confzd2setza2_64z70 = (BgL_sc_confzd2setzd2getza2_44za2(BgL_sc_stateza2_65za2, BgL_sc_statezd2num_62zd2, sc_conf_63))), (((BgL_sc_confzd2setza2_64z70[(i+(5))])=== false)?(conf_set_adjoin(BgL_sc_stateza2_65za2, BgL_sc_confzd2setza2_64z70, sc_conf_63, i)):undefined), true):false));
4098
+ };
4099
+ conf_set_union = function(state, conf_set, sc_conf_66, other_set) {
4100
+ var i;
4101
+ {
4102
+ (i = (other_set[(2)]));
4103
+ while ((i>=(0))) {
4104
+ if (((conf_set[(i+(5))])=== false))
4105
+ {
4106
+ (conf_set_adjoin(state, conf_set, sc_conf_66, i));
4107
+ (i = (other_set[(i+(5))]));
4108
+ }
4109
+ else
4110
+ (i = (other_set[(i+(5))]));
4111
+ }
4112
+ return undefined;
4113
+ }
4114
+ };
4115
+ forw = function(sc_states_67, BgL_sc_statezd2num_68zd2, sc_starters_69, sc_enders_70, sc_predictors_71, sc_steps_72, sc_nts_73) {
4116
+ var next_set;
4117
+ var next;
4118
+ var conf_set;
4119
+ var ender;
4120
+ var l;
4121
+ var starter_set;
4122
+ var starter;
4123
+ var sc_l_74;
4124
+ var sc_loop1_75;
4125
+ var head;
4126
+ var BgL_sc_confzd2set_76zd2;
4127
+ var BgL_sc_statezd2num_77zd2;
4128
+ var state;
4129
+ var sc_states_78;
4130
+ var preds;
4131
+ var BgL_sc_confzd2set_79zd2;
4132
+ var step;
4133
+ var sc_conf_80;
4134
+ var BgL_sc_nbzd2nts_81zd2;
4135
+ var sc_state_82;
4136
+ {
4137
+ (sc_state_82 = (sc_states_67[BgL_sc_statezd2num_68zd2]));
4138
+ (BgL_sc_nbzd2nts_81zd2 = (sc_nts_73.length));
4139
+ while (true) {
4140
+ {
4141
+ (sc_conf_80 = (sc_state_82[(0)]));
4142
+ if ((sc_conf_80>=(0)))
4143
+ {
4144
+ (step = (sc_steps_72[sc_conf_80]));
4145
+ (BgL_sc_confzd2set_79zd2 = (sc_state_82[(sc_conf_80+(1))]));
4146
+ (head = (BgL_sc_confzd2set_79zd2[(4)]));
4147
+ (sc_state_82[(0)] = (BgL_sc_confzd2set_79zd2[(0)]));
4148
+ (conf_set_merge_new_bang(BgL_sc_confzd2set_79zd2));
4149
+ if ((step>=(0)))
4150
+ {
4151
+ (sc_l_74 = (sc_starters_69[step]));
4152
+ while ((sc_l_74 instanceof sc_Pair)) {
4153
+ {
4154
+ (starter = (sc_l_74.car));
4155
+ (starter_set = (BgL_sc_confzd2setzd2getza2_44za2(sc_state_82, BgL_sc_statezd2num_68zd2, starter)));
4156
+ if (((starter_set[(BgL_sc_statezd2num_68zd2+(5))])=== false))
4157
+ {
4158
+ (conf_set_adjoin(sc_state_82, starter_set, starter, BgL_sc_statezd2num_68zd2));
4159
+ (sc_l_74 = (sc_l_74.cdr));
4160
+ }
4161
+ else
4162
+ (sc_l_74 = (sc_l_74.cdr));
4163
+ }
4164
+ }
4165
+ (l = (sc_enders_70[step]));
4166
+ while ((l instanceof sc_Pair)) {
4167
+ {
4168
+ (ender = (l.car));
4169
+ if ((((conf_set = (sc_state_82[(ender+(1))])), ((conf_set!== false)?(conf_set[(BgL_sc_statezd2num_68zd2+(5))]):false))!== false))
4170
+ {
4171
+ (next = (sc_conf_80+(1)));
4172
+ (next_set = (BgL_sc_confzd2setzd2getza2_44za2(sc_state_82, BgL_sc_statezd2num_68zd2, next)));
4173
+ (conf_set_union(sc_state_82, next_set, next, BgL_sc_confzd2set_79zd2));
4174
+ (l = (l.cdr));
4175
+ }
4176
+ else
4177
+ (l = (l.cdr));
4178
+ }
4179
+ }
4180
+ }
4181
+ else
4182
+ {
4183
+ (preds = (sc_predictors_71[(step+BgL_sc_nbzd2nts_81zd2)]));
4184
+ (sc_states_78 = sc_states_67);
4185
+ (state = sc_state_82);
4186
+ (BgL_sc_statezd2num_77zd2 = BgL_sc_statezd2num_68zd2);
4187
+ (BgL_sc_confzd2set_76zd2 = BgL_sc_confzd2set_79zd2);
4188
+ sc_loop1_75 = function(l) {
4189
+ var sc_state_83;
4190
+ var BgL_sc_nextzd2set_84zd2;
4191
+ var sc_next_85;
4192
+ var pred_set;
4193
+ var i;
4194
+ var pred;
4195
+ if ((l instanceof sc_Pair))
4196
+ {
4197
+ (pred = (l.car));
4198
+ (i = head);
4199
+ while ((i>=(0))) {
4200
+ {
4201
+ (pred_set = ((sc_state_83 = (sc_states_78[i])), (sc_state_83[(pred+(1))])));
4202
+ if ((pred_set!== false))
4203
+ {
4204
+ (sc_next_85 = (pred+(1)));
4205
+ (BgL_sc_nextzd2set_84zd2 = (BgL_sc_confzd2setzd2getza2_44za2(state, BgL_sc_statezd2num_77zd2, sc_next_85)));
4206
+ (conf_set_union(state, BgL_sc_nextzd2set_84zd2, sc_next_85, pred_set));
4207
+ }
4208
+ (i = (BgL_sc_confzd2set_76zd2[(i+(5))]));
4209
+ }
4210
+ }
4211
+ return (sc_loop1_75((l.cdr)));
4212
+ }
4213
+ else
4214
+ return undefined;
4215
+ };
4216
+ (sc_loop1_75(preds));
4217
+ }
4218
+ }
4219
+ else
4220
+ return undefined;
4221
+ }
4222
+ }
4223
+ }
4224
+ };
4225
+ is_parsed = function(nt, i, j, sc_nts_86, sc_enders_87, sc_states_88) {
4226
+ var conf_set;
4227
+ var state;
4228
+ var sc_conf_89;
4229
+ var l;
4230
+ var BgL_sc_ntza2_90za2;
4231
+ {
4232
+ (BgL_sc_ntza2_90za2 = (sc_ind_43(nt, sc_nts_86)));
4233
+ if ((BgL_sc_ntza2_90za2!== false))
4234
+ {
4235
+ (sc_nts_86.length);
4236
+ (l = (sc_enders_87[BgL_sc_ntza2_90za2]));
4237
+ while (true) {
4238
+ if ((l instanceof sc_Pair))
4239
+ {
4240
+ (sc_conf_89 = (l.car));
4241
+ if ((((state = (sc_states_88[j])), (conf_set = (state[(sc_conf_89+(1))])), ((conf_set!== false)?(conf_set[(i+(5))]):false))!== false))
4242
+ return true;
4243
+ else
4244
+ (l = (l.cdr));
4245
+ }
4246
+ else
4247
+ return false;
4248
+ }
4249
+ }
4250
+ else
4251
+ return false;
4252
+ }
4253
+ };
4254
+ deriv_trees = function(sc_conf_91, i, j, sc_enders_92, sc_steps_93, sc_names_94, sc_toks_95, sc_states_96, BgL_sc_nbzd2nts_97zd2) {
4255
+ var sc_loop1_98;
4256
+ var prev;
4257
+ var name;
4258
+ return ((name = (sc_names_94[sc_conf_91])), ((name!== false)?((sc_conf_91<BgL_sc_nbzd2nts_97zd2)?(sc_list((sc_list(name, ((sc_toks_95[i]).car))))):(sc_list((sc_list(name))))):((prev = (sc_conf_91-(1))), (sc_loop1_98 = function(l1, l2) {
4259
+ var loop2;
4260
+ var ender_set;
4261
+ var state;
4262
+ var ender;
4263
+ var l1;
4264
+ var l2;
4265
+ while (true) {
4266
+ if ((l1 instanceof sc_Pair))
4267
+ {
4268
+ (ender = (l1.car));
4269
+ (ender_set = ((state = (sc_states_96[j])), (state[(ender+(1))])));
4270
+ if ((ender_set!== false))
4271
+ {
4272
+ loop2 = function(k, l2) {
4273
+ var loop3;
4274
+ var ender_trees;
4275
+ var prev_trees;
4276
+ var conf_set;
4277
+ var sc_state_99;
4278
+ var k;
4279
+ var l2;
4280
+ while (true) {
4281
+ if ((k>=(0)))
4282
+ if (((k>=i)&&(((sc_state_99 = (sc_states_96[k])), (conf_set = (sc_state_99[(prev+(1))])), ((conf_set!== false)?(conf_set[(i+(5))]):false))!== false)))
4283
+ {
4284
+ (prev_trees = (deriv_trees(prev, i, k, sc_enders_92, sc_steps_93, sc_names_94, sc_toks_95, sc_states_96, BgL_sc_nbzd2nts_97zd2)));
4285
+ (ender_trees = (deriv_trees(ender, k, j, sc_enders_92, sc_steps_93, sc_names_94, sc_toks_95, sc_states_96, BgL_sc_nbzd2nts_97zd2)));
4286
+ loop3 = function(l3, l2) {
4287
+ var l4;
4288
+ var sc_l2_100;
4289
+ var ender_tree;
4290
+ if ((l3 instanceof sc_Pair))
4291
+ {
4292
+ (ender_tree = (sc_list((l3.car))));
4293
+ (l4 = prev_trees);
4294
+ (sc_l2_100 = l2);
4295
+ while ((l4 instanceof sc_Pair)) {
4296
+ {
4297
+ (sc_l2_100 = (new sc_Pair((sc_append((l4.car), ender_tree)), sc_l2_100)));
4298
+ (l4 = (l4.cdr));
4299
+ }
4300
+ }
4301
+ return (loop3((l3.cdr), sc_l2_100));
4302
+ }
4303
+ else
4304
+ return (loop2((ender_set[(k+(5))]), l2));
4305
+ };
4306
+ return (loop3(ender_trees, l2));
4307
+ }
4308
+ else
4309
+ (k = (ender_set[(k+(5))]));
4310
+ else
4311
+ return (sc_loop1_98((l1.cdr), l2));
4312
+ }
4313
+ };
4314
+ return (loop2((ender_set[(2)]), l2));
4315
+ }
4316
+ else
4317
+ (l1 = (l1.cdr));
4318
+ }
4319
+ else
4320
+ return l2;
4321
+ }
4322
+ }), (sc_loop1_98((sc_enders_92[(sc_steps_93[prev])]), null)))));
4323
+ };
4324
+ BgL_sc_derivzd2treesza2_47z70 = function(nt, i, j, sc_nts_101, sc_enders_102, sc_steps_103, sc_names_104, sc_toks_105, sc_states_106) {
4325
+ var conf_set;
4326
+ var state;
4327
+ var sc_conf_107;
4328
+ var l;
4329
+ var trees;
4330
+ var BgL_sc_nbzd2nts_108zd2;
4331
+ var BgL_sc_ntza2_109za2;
4332
+ {
4333
+ (BgL_sc_ntza2_109za2 = (sc_ind_43(nt, sc_nts_101)));
4334
+ if ((BgL_sc_ntza2_109za2!== false))
4335
+ {
4336
+ (BgL_sc_nbzd2nts_108zd2 = (sc_nts_101.length));
4337
+ (l = (sc_enders_102[BgL_sc_ntza2_109za2]));
4338
+ (trees = null);
4339
+ while ((l instanceof sc_Pair)) {
4340
+ {
4341
+ (sc_conf_107 = (l.car));
4342
+ if ((((state = (sc_states_106[j])), (conf_set = (state[(sc_conf_107+(1))])), ((conf_set!== false)?(conf_set[(i+(5))]):false))!== false))
4343
+ {
4344
+ (l = (l.cdr));
4345
+ (trees = (sc_append((deriv_trees(sc_conf_107, i, j, sc_enders_102, sc_steps_103, sc_names_104, sc_toks_105, sc_states_106, BgL_sc_nbzd2nts_108zd2)), trees)));
4346
+ }
4347
+ else
4348
+ (l = (l.cdr));
4349
+ }
4350
+ }
4351
+ return trees;
4352
+ }
4353
+ else
4354
+ return false;
4355
+ }
4356
+ };
4357
+ nb_deriv_trees = function(sc_conf_110, i, j, sc_enders_111, sc_steps_112, sc_toks_113, sc_states_114, BgL_sc_nbzd2nts_115zd2) {
4358
+ var sc_loop1_116;
4359
+ var tmp1124;
4360
+ var prev;
4361
+ return ((prev = (sc_conf_110-(1))), ((((tmp1124 = (sc_conf_110<BgL_sc_nbzd2nts_115zd2)), ((tmp1124!== false)?tmp1124:((sc_steps_112[prev])<(0))))!== false)?(1):((sc_loop1_116 = function(l, sc_n_118) {
4362
+ var nb_ender_trees;
4363
+ var nb_prev_trees;
4364
+ var conf_set;
4365
+ var state;
4366
+ var k;
4367
+ var n;
4368
+ var ender_set;
4369
+ var sc_state_117;
4370
+ var ender;
4371
+ var l;
4372
+ var sc_n_118;
4373
+ while (true) {
4374
+ if ((l instanceof sc_Pair))
4375
+ {
4376
+ (ender = (l.car));
4377
+ (ender_set = ((sc_state_117 = (sc_states_114[j])), (sc_state_117[(ender+(1))])));
4378
+ if ((ender_set!== false))
4379
+ {
4380
+ (k = (ender_set[(2)]));
4381
+ (n = sc_n_118);
4382
+ while ((k>=(0))) {
4383
+ if (((k>=i)&&(((state = (sc_states_114[k])), (conf_set = (state[(prev+(1))])), ((conf_set!== false)?(conf_set[(i+(5))]):false))!== false)))
4384
+ {
4385
+ (nb_prev_trees = (nb_deriv_trees(prev, i, k, sc_enders_111, sc_steps_112, sc_toks_113, sc_states_114, BgL_sc_nbzd2nts_115zd2)));
4386
+ (nb_ender_trees = (nb_deriv_trees(ender, k, j, sc_enders_111, sc_steps_112, sc_toks_113, sc_states_114, BgL_sc_nbzd2nts_115zd2)));
4387
+ (k = (ender_set[(k+(5))]));
4388
+ (n +=(nb_prev_trees*nb_ender_trees));
4389
+ }
4390
+ else
4391
+ (k = (ender_set[(k+(5))]));
4392
+ }
4393
+ return (sc_loop1_116((l.cdr), n));
4394
+ }
4395
+ else
4396
+ (l = (l.cdr));
4397
+ }
4398
+ else
4399
+ return sc_n_118;
4400
+ }
4401
+ }), (sc_loop1_116((sc_enders_111[(sc_steps_112[prev])]), (0))))));
4402
+ };
4403
+ BgL_sc_nbzd2derivzd2treesza2_48za2 = function(nt, i, j, sc_nts_119, sc_enders_120, sc_steps_121, sc_toks_122, sc_states_123) {
4404
+ var conf_set;
4405
+ var state;
4406
+ var sc_conf_124;
4407
+ var l;
4408
+ var nb_trees;
4409
+ var BgL_sc_nbzd2nts_125zd2;
4410
+ var BgL_sc_ntza2_126za2;
4411
+ {
4412
+ (BgL_sc_ntza2_126za2 = (sc_ind_43(nt, sc_nts_119)));
4413
+ if ((BgL_sc_ntza2_126za2!== false))
4414
+ {
4415
+ (BgL_sc_nbzd2nts_125zd2 = (sc_nts_119.length));
4416
+ (l = (sc_enders_120[BgL_sc_ntza2_126za2]));
4417
+ (nb_trees = (0));
4418
+ while ((l instanceof sc_Pair)) {
4419
+ {
4420
+ (sc_conf_124 = (l.car));
4421
+ if ((((state = (sc_states_123[j])), (conf_set = (state[(sc_conf_124+(1))])), ((conf_set!== false)?(conf_set[(i+(5))]):false))!== false))
4422
+ {
4423
+ (l = (l.cdr));
4424
+ (nb_trees = ((nb_deriv_trees(sc_conf_124, i, j, sc_enders_120, sc_steps_121, sc_toks_122, sc_states_123, BgL_sc_nbzd2nts_125zd2))+nb_trees));
4425
+ }
4426
+ else
4427
+ (l = (l.cdr));
4428
+ }
4429
+ }
4430
+ return nb_trees;
4431
+ }
4432
+ else
4433
+ return false;
4434
+ }
4435
+ };
4436
+ (lexer = (parser_descr[(0)]));
4437
+ (sc_nts_42 = (parser_descr[(1)]));
4438
+ (sc_starters_41 = (parser_descr[(2)]));
4439
+ (sc_enders_40 = (parser_descr[(3)]));
4440
+ (sc_predictors_39 = (parser_descr[(4)]));
4441
+ (sc_steps_38 = (parser_descr[(5)]));
4442
+ (sc_names_37 = (parser_descr[(6)]));
4443
+ (falseHead1128 = (new sc_Pair(null, null)));
4444
+ (L1125 = (lexer(input)));
4445
+ (tail1129 = falseHead1128);
4446
+ while (!(L1125 === null)) {
4447
+ {
4448
+ (tok = (L1125.car));
4449
+ (l1 = (tok.cdr));
4450
+ (l2 = null);
4451
+ while ((l1 instanceof sc_Pair)) {
4452
+ {
4453
+ (sc_i_29 = (sc_ind_43((l1.car), sc_nts_42)));
4454
+ if ((sc_i_29!== false))
4455
+ {
4456
+ (l1 = (l1.cdr));
4457
+ (l2 = (new sc_Pair(sc_i_29, l2)));
4458
+ }
4459
+ else
4460
+ (l1 = (l1.cdr));
4461
+ }
4462
+ }
4463
+ (sc_optrOpnd_22 = (new sc_Pair((tok.car), (sc_reverse(l2)))));
4464
+ (sc_optrOpnd_21 = (new sc_Pair(sc_optrOpnd_22, null)));
4465
+ (tail1129.cdr = sc_optrOpnd_21);
4466
+ (tail1129 = (tail1129.cdr));
4467
+ (L1125 = (L1125.cdr));
4468
+ }
4469
+ }
4470
+ (sc_optrOpnd_20 = (falseHead1128.cdr));
4471
+ (sc_toks_36 = (sc_list2vector(sc_optrOpnd_20)));
4472
+ (BgL_sc_nbzd2toks_35zd2 = (sc_toks_36.length));
4473
+ (BgL_sc_nbzd2confs_34zd2 = (sc_steps_38.length));
4474
+ (sc_states_33 = (make_states(BgL_sc_nbzd2toks_35zd2, BgL_sc_nbzd2confs_34zd2)));
4475
+ (goal_starters = (sc_starters_41[(0)]));
4476
+ (BgL_sc_confzd2setzd2adjoinza2_45za2(sc_states_33, (0), goal_starters, (0)));
4477
+ (forw(sc_states_33, (0), sc_starters_41, sc_enders_40, sc_predictors_39, sc_steps_38, sc_nts_42));
4478
+ (sc_i_28 = (0));
4479
+ while ((sc_i_28<BgL_sc_nbzd2toks_35zd2)) {
4480
+ {
4481
+ (tok_nts = ((sc_toks_36[sc_i_28]).cdr));
4482
+ (BgL_sc_confzd2setzd2adjoinza2_45za2(sc_states_33, (sc_i_28+(1)), tok_nts, sc_i_28));
4483
+ (forw(sc_states_33, (sc_i_28+(1)), sc_starters_41, sc_enders_40, sc_predictors_39, sc_steps_38, sc_nts_42));
4484
+ (++sc_i_28);
4485
+ }
4486
+ }
4487
+ (nb_toks = (sc_toks_36.length));
4488
+ (BgL_sc_nbzd2confs_32zd2 = (sc_steps_38.length));
4489
+ (BgL_sc_nbzd2nts_31zd2 = (sc_nts_42.length));
4490
+ (BgL_sc_statesza2_30za2 = (make_states(nb_toks, BgL_sc_nbzd2confs_32zd2)));
4491
+ (goal_enders = (sc_enders_40[(0)]));
4492
+ (l = goal_enders);
4493
+ while ((l instanceof sc_Pair)) {
4494
+ {
4495
+ (conf = (l.car));
4496
+ (BgL_sc_confzd2setzd2adjoinza2za2_46z00(sc_states_33, BgL_sc_statesza2_30za2, nb_toks, conf, (0)));
4497
+ (l = (l.cdr));
4498
+ }
4499
+ }
4500
+ (i = nb_toks);
4501
+ while ((i>=(0))) {
4502
+ {
4503
+ (states = sc_states_33);
4504
+ (BgL_sc_statesza2_27za2 = BgL_sc_statesza2_30za2);
4505
+ (state_num = i);
4506
+ (sc_enders_26 = sc_enders_40);
4507
+ (sc_steps_25 = sc_steps_38);
4508
+ (BgL_sc_nbzd2nts_24zd2 = BgL_sc_nbzd2nts_31zd2);
4509
+ (toks = sc_toks_36);
4510
+ (BgL_sc_stateza2_23za2 = (BgL_sc_statesza2_30za2[i]));
4511
+ loop1 = function() {
4512
+ var sc_loop1_127;
4513
+ var prev;
4514
+ var BgL_sc_statesza2_128za2;
4515
+ var sc_states_129;
4516
+ var j;
4517
+ var i;
4518
+ var sc_i_130;
4519
+ var head;
4520
+ var conf_set;
4521
+ var sc_conf_131;
4522
+ {
4523
+ (sc_conf_131 = (BgL_sc_stateza2_23za2[(0)]));
4524
+ if ((sc_conf_131>=(0)))
4525
+ {
4526
+ (conf_set = (BgL_sc_stateza2_23za2[(sc_conf_131+(1))]));
4527
+ (head = (conf_set[(4)]));
4528
+ (BgL_sc_stateza2_23za2[(0)] = (conf_set[(0)]));
4529
+ (conf_set_merge_new_bang(conf_set));
4530
+ (sc_i_130 = head);
4531
+ while ((sc_i_130>=(0))) {
4532
+ {
4533
+ (i = sc_i_130);
4534
+ (j = state_num);
4535
+ (sc_states_129 = states);
4536
+ (BgL_sc_statesza2_128za2 = BgL_sc_statesza2_27za2);
4537
+ (prev = (sc_conf_131-(1)));
4538
+ if (((sc_conf_131>=BgL_sc_nbzd2nts_24zd2)&&((sc_steps_25[prev])>=(0))))
4539
+ {
4540
+ sc_loop1_127 = function(l) {
4541
+ var k;
4542
+ var ender_set;
4543
+ var state;
4544
+ var ender;
4545
+ var l;
4546
+ while (true) {
4547
+ if ((l instanceof sc_Pair))
4548
+ {
4549
+ (ender = (l.car));
4550
+ (ender_set = ((state = (sc_states_129[j])), (state[(ender+(1))])));
4551
+ if ((ender_set!== false))
4552
+ {
4553
+ (k = (ender_set[(2)]));
4554
+ while ((k>=(0))) {
4555
+ {
4556
+ if ((k>=i))
4557
+ if (((BgL_sc_confzd2setzd2adjoinza2za2_46z00(sc_states_129, BgL_sc_statesza2_128za2, k, prev, i))!== false))
4558
+ (BgL_sc_confzd2setzd2adjoinza2za2_46z00(sc_states_129, BgL_sc_statesza2_128za2, j, ender, k));
4559
+ (k = (ender_set[(k+(5))]));
4560
+ }
4561
+ }
4562
+ return (sc_loop1_127((l.cdr)));
4563
+ }
4564
+ else
4565
+ (l = (l.cdr));
4566
+ }
4567
+ else
4568
+ return undefined;
4569
+ }
4570
+ };
4571
+ (sc_loop1_127((sc_enders_26[(sc_steps_25[prev])])));
4572
+ }
4573
+ (sc_i_130 = (conf_set[(sc_i_130+(5))]));
4574
+ }
4575
+ }
4576
+ return (loop1());
4577
+ }
4578
+ else
4579
+ return undefined;
4580
+ }
4581
+ };
4582
+ (loop1());
4583
+ (--i);
4584
+ }
4585
+ }
4586
+ (optrOpnd = BgL_sc_statesza2_30za2);
4587
+ return [sc_nts_42, sc_starters_41, sc_enders_40, sc_predictors_39, sc_steps_38, sc_names_37, sc_toks_36, optrOpnd, is_parsed, BgL_sc_derivzd2treesza2_47z70, BgL_sc_nbzd2derivzd2treesza2_48za2];
4588
+ }
4589
+ };
4590
+ }
4591
+ };
4592
+ BgL_parsezd2ze3parsedzf3zc2 = function(parse, nt, i, j) {
4593
+ var is_parsed;
4594
+ var states;
4595
+ var enders;
4596
+ var nts;
4597
+ return ((nts = (parse[(0)])), (enders = (parse[(2)])), (states = (parse[(7)])), (is_parsed = (parse[(8)])), (is_parsed(nt, i, j, nts, enders, states)));
4598
+ };
4599
+ BgL_parsezd2ze3treesz31 = function(parse, nt, i, j) {
4600
+ var BgL_sc_derivzd2treesza2_132z70;
4601
+ var states;
4602
+ var toks;
4603
+ var names;
4604
+ var steps;
4605
+ var enders;
4606
+ var nts;
4607
+ return ((nts = (parse[(0)])), (enders = (parse[(2)])), (steps = (parse[(4)])), (names = (parse[(5)])), (toks = (parse[(6)])), (states = (parse[(7)])), (BgL_sc_derivzd2treesza2_132z70 = (parse[(9)])), (BgL_sc_derivzd2treesza2_132z70(nt, i, j, nts, enders, steps, names, toks, states)));
4608
+ };
4609
+ BgL_parsezd2ze3nbzd2treesze3 = function(parse, nt, i, j) {
4610
+ var BgL_sc_nbzd2derivzd2treesza2_133za2;
4611
+ var states;
4612
+ var toks;
4613
+ var steps;
4614
+ var enders;
4615
+ var nts;
4616
+ return ((nts = (parse[(0)])), (enders = (parse[(2)])), (steps = (parse[(4)])), (toks = (parse[(6)])), (states = (parse[(7)])), (BgL_sc_nbzd2derivzd2treesza2_133za2 = (parse[(10)])), (BgL_sc_nbzd2derivzd2treesza2_133za2(nt, i, j, nts, enders, steps, toks, states)));
4617
+ };
4618
+ test = function(k) {
4619
+ var x;
4620
+ var p;
4621
+ return ((p = (BgL_makezd2parserzd2(const_earley, function(l) {
4622
+ var sc_x_134;
4623
+ var tail1134;
4624
+ var L1130;
4625
+ var falseHead1133;
4626
+ {
4627
+ (falseHead1133 = (new sc_Pair(null, null)));
4628
+ (tail1134 = falseHead1133);
4629
+ (L1130 = l);
4630
+ while (!(L1130 === null)) {
4631
+ {
4632
+ (tail1134.cdr = (new sc_Pair(((sc_x_134 = (L1130.car)), (sc_list(sc_x_134, sc_x_134))), null)));
4633
+ (tail1134 = (tail1134.cdr));
4634
+ (L1130 = (L1130.cdr));
4635
+ }
4636
+ }
4637
+ return (falseHead1133.cdr);
4638
+ }
4639
+ }))), (x = (p((sc_vector2list((sc_makeVector(k, "\u1E9Ca"))))))), (sc_length((BgL_parsezd2ze3treesz31(x, "\u1E9Cs", (0), k)))));
4640
+ };
4641
+ BgL_earleyzd2benchmarkzd2 = function() {
4642
+ var args = null;
4643
+ for (var sc_tmp = arguments.length - 1; sc_tmp >= 0; sc_tmp--) {
4644
+ args = sc_cons(arguments[sc_tmp], args);
4645
+ }
4646
+ var k;
4647
+ return ((k = ((args === null)?(7):(args.car))), (BgL_runzd2benchmarkzd2("earley", (1), function() {
4648
+ return (test(k));
4649
+ }, function(result) {
4650
+ return ((sc_display(result)), (sc_newline()), true);
4651
+ })));
4652
+ };
4653
+ }
4654
+
4655
+
4656
+ /************* END OF GENERATED CODE *************/
4657
+ // Invoke this function to run a benchmark.
4658
+ // The first argument is a string identifying the benchmark.
4659
+ // The second argument is the number of times to run the benchmark.
4660
+ // The third argument is a function that runs the benchmark.
4661
+ // The fourth argument is a unary function that warns if the result
4662
+ // returned by the benchmark is incorrect.
4663
+ //
4664
+ // Example:
4665
+ // RunBenchmark("new Array()",
4666
+ // 1,
4667
+ // function () { new Array(1000000); }
4668
+ // function (v) {
4669
+ // return (v instanceof Array) && (v.length == 1000000);
4670
+ // });
4671
+
4672
+ SC_DEFAULT_OUT = new sc_GenericOutputPort(function(s) {});
4673
+ SC_ERROR_OUT = SC_DEFAULT_OUT;
4674
+
4675
+ function RunBenchmark(name, count, run, warn) {
4676
+ for (var n = 0; n < count; ++n) {
4677
+ result = run();
4678
+ }
4679
+ }
4680
+
4681
+ var BgL_runzd2benchmarkzd2 = RunBenchmark;
4682
+