1 // This file is prepended to the result of compile jscl.lisp, and
2 // contain runtime code that jscl assumes to exist.
7 globalEval = eval; // Just an indirect eval
9 function pv (x) { return x==undefined? nil: x; }
12 var r = [].slice.call(arguments);
13 r['multiple-value'] = true;
17 function forcemv (x) {
18 return typeof x == 'object' && 'multiple-value' in x? x: mv(x);
21 // NOTE: Define VALUES to be MV for toplevel forms. It is because
22 // `eval' compiles the forms and execute the Javascript code at
23 // toplevel with `js-eval', so it is necessary to return multiple
24 // values from the eval function.
27 function checkArgsAtLeast(args, n){
28 if (args < n) throw 'too few arguments';
31 function checkArgsAtMost(args, n){
32 if (args > n) throw 'too many arguments';
35 function checkArgs(args, n){
36 checkArgsAtLeast(args, n);
37 checkArgsAtMost(args, n);
40 // Improper list constructor (like LIST*)
42 if (arguments.length == 1)
45 var i = arguments.length-1;
46 var r = arguments[i--];
48 r = {car: arguments[i], cdr: r};
54 // Return a new Array of strings, each either length-1, or length-2 (a UTF-16 surrogate pair).
55 function codepoints(string) {
56 return string.split(/(?![\udc00-\udfff])/);
59 // Create and return a lisp string for the Javascript string STRING.
60 function make_lisp_string (string){
61 var array = codepoints(string);
66 function char_to_codepoint(ch) {
68 return ch.charCodeAt(0);
70 var xh = ch.charCodeAt(0) - 0xD800;
71 var xl = ch.charCodeAt(1) - 0xDC00;
72 return 0x10000 + (xh << 10) + (xl);
76 function char_from_codepoint(x) {
78 return String.fromCharCode(x);
83 return String.fromCharCode(0xD800 + xh) + String.fromCharCode(0xDC00 + xl);
87 // if a char (JS string) has the same number of codepoints after .toUpperCase(), return that, else the original.
88 function safe_char_upcase(x) {
89 var xu = x.toUpperCase();
90 if (codepoints(xu).length == 1) {
96 function safe_char_downcase(x) {
97 var xl = x.toLowerCase();
98 if (codepoints(xl).length == 1) {
105 function xstring(x){ return x.join(''); }
108 function Symbol(name, package_name){
111 this['package'] = package_name;
114 function lisp_to_js (x) {
115 if (typeof x == 'object' && 'length' in x && x.stringp == 1)
117 else if (typeof x == 'function'){
118 // Trampoline calling the Lisp function
120 var args = Array.prototype.slice.call(arguments);
122 args[i] = js_to_lisp(args[i]);
123 return lisp_to_js(x.apply(this, [pv, arguments.length].concat(args)));
129 function js_to_lisp (x) {
130 if (typeof x == 'string')
131 return make_lisp_string(x);
132 else if (typeof x == 'function'){
133 // Trampoline calling the JS function
134 return (function(values, nargs){
135 var args = Array.prototype.slice.call(arguments, 2);
137 args[i] = lisp_to_js(args[i]);
138 return values(js_to_lisp(x.apply(this, args)));