distil 0.7.0

data/vendor/jsl-0.3.0/src/perlconnect/jsperl.h

@@ -0,0 +1,52 @@
+/* -*- Mode: C; tab-width: 8; indent-tabs-mode: nil; c-basic-offset: 4 -*-
+ *
+ * ***** BEGIN LICENSE BLOCK *****
+ * Version: MPL 1.1/GPL 2.0/LGPL 2.1
+ *
+ * The contents of this file are subject to the Mozilla Public License Version
+ * 1.1 (the "License"); you may not use this file except in compliance with
+ * the License. You may obtain a copy of the License at
+ * http://www.mozilla.org/MPL/
+ *
+ * Software distributed under the License is distributed on an "AS IS" basis,
+ * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
+ * for the specific language governing rights and limitations under the
+ * License.
+ *
+ * The Original Code is Mozilla Communicator client code, released
+ * March 31, 1998.
+ *
+ * The Initial Developer of the Original Code is
+ * Netscape Communications Corporation.
+ * Portions created by the Initial Developer are Copyright (C) 1998
+ * the Initial Developer. All Rights Reserved.
+ *
+ * Contributor(s):
+ *
+ * Alternatively, the contents of this file may be used under the terms of
+ * either the GNU General Public License Version 2 or later (the "GPL"), or
+ * the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
+ * in which case the provisions of the GPL or the LGPL are applicable instead
+ * of those above. If you wish to allow use of your version of this file only
+ * under the terms of either the GPL or the LGPL, and not to allow others to
+ * use your version of this file under the terms of the MPL, indicate your
+ * decision by deleting the provisions above and replace them with the notice
+ * and other provisions required by the GPL or the LGPL. If you do not delete
+ * the provisions above, a recipient may use your version of this file under
+ * the terms of any one of the MPL, the GPL or the LGPL.
+ *
+ * ***** END LICENSE BLOCK ***** */
+
+/* This is the public header, which means that this is the only thing one    */
+/* needs to include to enable the Perl object. See README.html for more      */
+/* documentation                                                             */
+
+#include <jsapi.h>
+
+/*
+    This is the only function that must be called by an
+    application that wants to use PerlConnect.
+*/
+JS_EXTERN_API(JSObject*)
+JS_InitPerlClass(JSContext *cx, JSObject *obj);
+

data/vendor/jsl-0.3.0/src/perlconnect/jsperlbuild.pl

@@ -0,0 +1,81 @@
+#
+# ***** BEGIN LICENSE BLOCK *****
+# Version: MPL 1.1/GPL 2.0/LGPL 2.1
+#
+# The contents of this file are subject to the Mozilla Public License Version
+# 1.1 (the "License"); you may not use this file except in compliance with
+# the License. You may obtain a copy of the License at
+# http://www.mozilla.org/MPL/
+#
+# Software distributed under the License is distributed on an "AS IS" basis,
+# WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
+# for the specific language governing rights and limitations under the
+# License.
+#
+# The Original Code is Mozilla Communicator client code, released
+# March 31, 1998.
+#
+# The Initial Developer of the Original Code is
+# Netscape Communications Corporation.
+# Portions created by the Initial Developer are Copyright (C) 1999
+# the Initial Developer. All Rights Reserved.
+#
+# Contributor(s):
+#
+# Alternatively, the contents of this file may be used under the terms of
+# either the GNU General Public License Version 2 or later (the "GPL"), or
+# the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
+# in which case the provisions of the GPL or the LGPL are applicable instead
+# of those above. If you wish to allow use of your version of this file only
+# under the terms of either the GPL or the LGPL, and not to allow others to
+# use your version of this file under the terms of the MPL, indicate your
+# decision by deleting the provisions above and replace them with the notice
+# and other provisions required by the GPL or the LGPL. If you do not delete
+# the provisions above, a recipient may use your version of this file under
+# the terms of any one of the MPL, the GPL or the LGPL.
+#
+# ***** END LICENSE BLOCK *****
+
+#
+# Helper perl script to abstract the location of xsubpp
+#
+
+# Thanks to Dave Neuer <dneuer@futuristics.net> for the original
+# version of this file.  Entered as NPL with his permission.
+
+use File::Find;
+use Cwd;
+
+$notfound = 1;
+
+foreach(@INC){
+	next if /^\.$/;
+	if(-e $_){
+		find(\&find_ExtUtils, $_);
+	}
+}
+
+if(-e $xsubpp && -e $typemap){
+	$res = `perl $xsubpp -typemap $typemap -typemap typemap JS.xs > JS.c`;
+	if(-e "JS.c"){
+	        print "Successfuly built JS.c\n";
+		exit(0);
+	}
+	else{
+		die("Couldn't build JS.c: $res");
+	}
+}
+else{
+	die("Couldn't locate files neccessary for building JS.c");
+}
+
+sub find_ExtUtils{
+	if($notfound){
+		if($File::Find::dir =~ /ExtUtils/){	
+			my $path = cwd;
+			$xsubpp = $path . "/xsubpp";
+			$typemap = $path . "/typemap";
+			undef $notfound;
+		}
+	}
+}

data/vendor/jsl-0.3.0/src/perlconnect/jsperlpvt.h

@@ -0,0 +1,57 @@
+/* -*- Mode: C; tab-width: 8; indent-tabs-mode: nil; c-basic-offset: 4 -*-
+ *
+ * ***** BEGIN LICENSE BLOCK *****
+ * Version: MPL 1.1/GPL 2.0/LGPL 2.1
+ *
+ * The contents of this file are subject to the Mozilla Public License Version
+ * 1.1 (the "License"); you may not use this file except in compliance with
+ * the License. You may obtain a copy of the License at
+ * http://www.mozilla.org/MPL/
+ *
+ * Software distributed under the License is distributed on an "AS IS" basis,
+ * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
+ * for the specific language governing rights and limitations under the
+ * License.
+ *
+ * The Original Code is Mozilla Communicator client code, released
+ * March 31, 1998.
+ *
+ * The Initial Developer of the Original Code is
+ * Netscape Communications Corporation.
+ * Portions created by the Initial Developer are Copyright (C) 1998
+ * the Initial Developer. All Rights Reserved.
+ *
+ * Contributor(s):
+ *
+ * Alternatively, the contents of this file may be used under the terms of
+ * either the GNU General Public License Version 2 or later (the "GPL"), or
+ * the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
+ * in which case the provisions of the GPL or the LGPL are applicable instead
+ * of those above. If you wish to allow use of your version of this file only
+ * under the terms of either the GPL or the LGPL, and not to allow others to
+ * use your version of this file under the terms of the MPL, indicate your
+ * decision by deleting the provisions above and replace them with the notice
+ * and other provisions required by the GPL or the LGPL. If you do not delete
+ * the provisions above, a recipient may use your version of this file under
+ * the terms of any one of the MPL, the GPL or the LGPL.
+ *
+ * ***** END LICENSE BLOCK ***** */
+
+#include "EXTERN.h"
+#include "perl.h"
+#include "jsperl.h"
+/* Copyright � 1998 Netscape Communications Corporation, All Rights Reserved.*/
+/* This is the private header, which means that it shouldn't be included     */
+/* unless you need to use some of the jsval<->SV* conversion functions       */
+/* provided by PerlConnect needs to include to enable the Perl object. See   */
+/* README.html for more documentation                                        */
+
+/*
+    This and the following function are used to convert
+    between Perl's "SV*" and JS's "jsval" types.
+*/
+JS_EXTERN_API(SV*)
+JSVALToSV(JSContext *cx, JSObject *obj, jsval v, SV** sv);
+
+JS_EXTERN_API(JSBool)
+SVToJSVAL(JSContext *cx, JSObject *obj, SV *ref, jsval *rval);

data/vendor/jsl-0.3.0/src/perlconnect/test.js

@@ -0,0 +1,73 @@
+/* ***** BEGIN LICENSE BLOCK *****
+ * Version: MPL 1.1/GPL 2.0/LGPL 2.1
+ *
+ * The contents of this file are subject to the Mozilla Public License Version
+ * 1.1 (the "License"); you may not use this file except in compliance with
+ * the License. You may obtain a copy of the License at
+ * http://www.mozilla.org/MPL/
+ *
+ * Software distributed under the License is distributed on an "AS IS" basis,
+ * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
+ * for the specific language governing rights and limitations under the
+ * License.
+ *
+ * The Original Code is Mozilla Communicator client code, released
+ * March 31, 1998.
+ *
+ * The Initial Developer of the Original Code is
+ * Netscape Communications Corporation.
+ * Portions created by the Initial Developer are Copyright (C) 1998
+ * the Initial Developer. All Rights Reserved.
+ *
+ * Contributor(s):
+ *
+ * Alternatively, the contents of this file may be used under the terms of
+ * either the GNU General Public License Version 2 or later (the "GPL"), or
+ * the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
+ * in which case the provisions of the GPL or the LGPL are applicable instead
+ * of those above. If you wish to allow use of your version of this file only
+ * under the terms of either the GPL or the LGPL, and not to allow others to
+ * use your version of this file under the terms of the MPL, indicate your
+ * decision by deleting the provisions above and replace them with the notice
+ * and other provisions required by the GPL or the LGPL. If you do not delete
+ * the provisions above, a recipient may use your version of this file under
+ * the terms of any one of the MPL, the GPL or the LGPL.
+ *
+ * ***** END LICENSE BLOCK ***** */
+
+/*******************************************************************************
+* PerlConnect test file. Some primitive testing in "silent mode" -- that is,
+* you should be able to run
+*           perlconnectshell test.js
+* without any error messages. See README.html for more info.
+*******************************************************************************/
+
+// Init
+assert(p = new Perl('Sys::Hostname', 'Time::gmtime'), "Perl initialization failed");
+// Simple eval
+assert(p.eval("'-' x 3") == '---', "Wrong value returned from eval");
+
+assert(p.eval("undef()")==undefined, "Wrong value returned from eval");
+// Arrays
+assert(a=p.eval("(1, 2, 3);"), "eval failed, 1");
+assert(a[1]==2, "Wrong value");
+assert(a.length==3, "Wrong length");
+// Hashes
+assert(h=p.eval("{'one'=>1, 'two'=>2};"), "eval failed, 2");
+assert(h["two"]==2, "Wrong value");
+// Func. call
+assert(p.eval("&hostname()") == p.call("hostname"), "Wrong value returned from eval or call");
+// Complex call
+assert(b=p.Time.gmtime.gmtime(), "call failed");
+assert(b.length==9, "Wrong length")
+// Variables
+// Scalars
+assert(p.eval("$a = 100; $b = 'abc';"), "eval failed, 3");
+assert(p.$a ==100, "Wrong variable value, 1");
+assert(p["$b"] == 'abc', "Wrong variable value, 2");
+
+/* Auxilary function */
+function assert(cond, msg)
+{
+    cond || print("Error: " + msg+"\n");
+}  // assert

data/vendor/jsl-0.3.0/src/perlconnect/test.pl

@@ -0,0 +1,244 @@
+#
+# ***** BEGIN LICENSE BLOCK *****
+# Version: MPL 1.1/GPL 2.0/LGPL 2.1
+#
+# The contents of this file are subject to the Mozilla Public License Version
+# 1.1 (the "License"); you may not use this file except in compliance with
+# the License. You may obtain a copy of the License at
+# http://www.mozilla.org/MPL/
+#
+# Software distributed under the License is distributed on an "AS IS" basis,
+# WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
+# for the specific language governing rights and limitations under the
+# License.
+#
+# The Original Code is Mozilla Communicator client code, released
+# March 31, 1998.
+#
+# The Initial Developer of the Original Code is
+# Netscape Communications Corporation.
+# Portions created by the Initial Developer are Copyright (C) 1998
+# the Initial Developer. All Rights Reserved.
+#
+# Contributor(s):
+#
+# Alternatively, the contents of this file may be used under the terms of
+# either the GNU General Public License Version 2 or later (the "GPL"), or
+# the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
+# in which case the provisions of the GPL or the LGPL are applicable instead
+# of those above. If you wish to allow use of your version of this file only
+# under the terms of either the GPL or the LGPL, and not to allow others to
+# use your version of this file under the terms of the MPL, indicate your
+# decision by deleting the provisions above and replace them with the notice
+# and other provisions required by the GPL or the LGPL. If you do not delete
+# the provisions above, a recipient may use your version of this file under
+# the terms of any one of the MPL, the GPL or the LGPL.
+#
+# ***** END LICENSE BLOCK *****
+
+#
+# Test file for JS.pm
+#
+
+############################################################
+# support packages for test script
+############################################################
+
+############################################################
+# Fotrik
+package Father;
+
+sub old_meth {
+    return "Father::old_meth";
+}
+
+
+############################################################
+# Synacek
+package Son;
+use vars qw( @ISA );
+@ISA = qw( Father );
+
+sub new {
+    my $class = shift;
+    $class = ref $class || $class;
+    my $self = {};
+    bless $self, $class;
+    return $self;
+}
+
+sub new_meth {
+    return "Son::new_meth";
+}
+
+############################################################
+# Proxy
+package Proxy;
+
+sub new {
+    my $class = shift;
+    $class = ref $class || $class;
+    my $self = { property => shift };
+    bless $self, $class;
+    return $self;    
+}
+
+sub getObj {
+    my $ret = new Son();
+    return $ret;
+}
+
+sub getValue {
+    my $self = shift;
+    return $self->{ property };
+}
+
+sub getArray {
+    my $self = shift;
+    return [34, 35, 36, 37, 38];
+}
+
+sub getHash {
+    my $self = shift;
+    return { testkey1 => 'testvalue1',
+	     testkey2 => 'testvalue2',
+	     testkey3 => 'testvalue3', };
+}
+
+############################################################
+# main part of the test script
+############################################################
+
+package main;
+use JS;
+
+BEGIN { 
+    $| = 1; print "1..12\n"; 
+}
+
+END 
+  { print "not ok 1\n" unless $loaded; }
+
+$loaded = 1;
+print "ok 1\n";
+
+use strict; #no typos, please
+
+my $rt = new JS(1_204 ** 2);
+my $cx = $rt->createContext(8 * 1_024);
+
+my $jsval;
+my $testc = 1; #testcounter
+############################################################
+# the simplest test
+$testc++;
+$jsval = $cx->eval('6;');
+print $jsval == 6 ? "ok $testc\n" : "not ok $testc\n"; #2
+
+############################################################
+#second very simple test
+$testc++;
+$jsval = $cx->eval('"hallo";');
+print $jsval eq "hallo" ? "ok $testc\n" : "not ok $testc\n"; #3
+
+############################################################
+# third very simple test
+$testc++;
+$jsval = $cx->eval("1.23");
+print $jsval == 1.23 ? "ok $testc\n" : "not ok $testc\n"; #4
+
+############################################################
+#undef is little bit tricky
+$testc++;
+$jsval = $cx->eval('undefined');
+print ! defined $jsval  ? "ok $testc\n" : "not ok $testc\n"; #5
+
+############################################################
+#can ve tie js objects? (generally to hash, Arrays to arrays too)
+$testc++;
+$jsval = $cx->eval('foo = new Object(); foo.prop = 11; foo;');
+my %hash;
+#read js property
+tie %hash, 'JS::Object', $jsval;
+print $hash{prop} == 11  ? "ok $testc\n" : "not ok $testc\n"; #6
+
+############################################################
+#set js propertry 
+$testc++;
+$hash{prop2} = 2;
+$jsval = $cx->eval('foo.prop2;');
+print $jsval == 2  ? "ok $testc\n" : "not ok $testc\n"; #7
+
+############################################################
+#tie array
+$testc++;
+my @arr;
+$jsval = $cx->eval('arr = new Array(); arr[0] = 0; arr[1] = 1; arr;');
+tie @arr, "JS::Object", $jsval;
+print ((($#arr == 1) && ($arr[1] == 1)) ? "ok $testc\n" : "not ok $testc\n");#8
+
+############################################################
+# object delegation test
+$testc++;
+$cx->createObject(new Proxy("init_value"), "perlobj", 
+		  { getObj   => \&Proxy::getObj,
+		    getValue => \&Proxy::getValue,
+		    getArray => \&Proxy::getArray,
+		    getHash  => \&Proxy::getHash,
+		  });
+$jsval = $cx->eval("perlobj.getValue()");
+print $jsval eq "init_value"  ? "ok $testc\n" : "not ok $testc\n"; #9
+
+############################################################
+# perl object returned to js
+$testc++;
+$jsval = $cx->eval("po = perlobj.getObj(); po.new_meth()");
+print $jsval eq "Son::new_meth" ? "ok $testc\n" : "not ok $testc\n"; #10
+
+############################################################
+# and what about inherited methods?
+$testc++;
+$jsval = $cx->eval("po.old_meth()");
+print $jsval eq "Father::old_meth" ? "ok $testc\n" : "not ok $testc\n"; #11
+
+############################################################
+# pass an array, check the element
+$testc++;
+$jsval = $cx->eval("parr = perlobj.getArray(); parr[2];");
+print $jsval == 36 ? "ok $testc\n" : "not ok $testc\n"; #12
+
+############################################################
+# check the array length
+$testc++;
+$jsval = $cx->eval("parr.length");
+print $jsval == 5 ? "ok $testc\n" : "not ok $testc\n"; #13
+
+############################################################
+# pass a hash, check the element
+$testc++;
+$jsval = $cx->eval("phash = perlobj.getHash(); phash.testkey1;");
+print $jsval eq 'testvalue1' ? "ok $testc\n" : "not ok $testc\n"; #14
+
+############################################################
+# error test
+$testc++;
+my $line;
+my $err;
+sub js_ErrorReporter {
+    my ($msg, $file, $line, $linebuf, $token) = @_;
+    $err =  "line $line $msg";
+}
+$cx->setErrorReporter( \&js_ErrorReporter );
+$cx->eval("x = 2 + 4;\nx.method()\n");
+print $err =~ /^line 1/ ? "ok $testc\n" : "not ok $testc\n"; #15
+
+############################################################
+# cleanup
+# so far we have to undef context value, to make sure,
+# it is disposed before runtime
+undef $cx;
+undef $rt;
+
+__END__
+
+

data/vendor/jsl-0.3.0/src/perlconnect/typemap

@@ -0,0 +1,121 @@
+#
+# ***** BEGIN LICENSE BLOCK *****
+# Version: MPL 1.1/GPL 2.0/LGPL 2.1
+#
+# The contents of this file are subject to the Mozilla Public License Version
+# 1.1 (the "License"); you may not use this file except in compliance with
+# the License. You may obtain a copy of the License at
+# http://www.mozilla.org/MPL/
+#
+# Software distributed under the License is distributed on an "AS IS" basis,
+# WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
+# for the specific language governing rights and limitations under the
+# License.
+#
+# The Original Code is Mozilla Communicator client code, released
+# March 31, 1998.
+#
+# The Initial Developer of the Original Code is
+# Netscape Communications Corporation.
+# Portions created by the Initial Developer are Copyright (C) 1998
+# the Initial Developer. All Rights Reserved.
+#
+# Contributor(s):
+#
+# Alternatively, the contents of this file may be used under the terms of
+# either the GNU General Public License Version 2 or later (the "GPL"), or
+# the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
+# in which case the provisions of the GPL or the LGPL are applicable instead
+# of those above. If you wish to allow use of your version of this file only
+# under the terms of either the GPL or the LGPL, and not to allow others to
+# use your version of this file under the terms of the MPL, indicate your
+# decision by deleting the provisions above and replace them with the notice
+# and other provisions required by the GPL or the LGPL. If you do not delete
+# the provisions above, a recipient may use your version of this file under
+# the terms of any one of the MPL, the GPL or the LGPL.
+#
+# ***** END LICENSE BLOCK *****
+
+#
+# Typemap for PerlConnect
+#
+
+TYPEMAP
+# These types have direct equivalents implemented as Perl packages
+JSRuntime *      RUNTIME
+JSContext *      CONTEXT
+JSScript  *      SCRIPT
+jsval            jsval
+# This is an auxilary type. Object serves as a wrapper for it
+JSObject *       OBJECT
+
+
+OUTPUT
+jsval
+    {
+	SV *foo = sv_newmortal();
+        JSVALToSV(cx, JS_GetGlobalObject(cx), $var, &foo);
+	sv_setsv($arg, foo);
+    }
+
+OBJECT
+    sv_setref_pv($arg, "JS::Object", (void*)$var);
+
+#CONTEXT
+#    sv_setref_pv($arg, "JS::Context", (void*)$var);
+
+SCRIPT
+    sv_setref_pv($arg, "JS::Script", (void*)$var);
+
+RUNTIME
+    sv_setref_pv($arg, "JS::Runtime", (void*)$var);
+
+#JS_OBJECT
+#    sv_setref_pv($arg, "JSObject", (void*)$var);
+
+INPUT
+jsval
+    {
+        /* JSContext *cx = getContext(); */
+        SVToJSVAL(cx, JS_GetGlobalObject(cx), newRV($arg), &$var);
+    }
+
+OBJECT
+    if(sv_isa($arg, \"JS::Object\"))
+        $var = ($type)SvIV((SV*)SvRV($arg));
+    else{
+        warn(\"${Package}::$func_name() -- $var is not a blessed JS::Object reference\");
+        XSRETURN_UNDEF;
+    }
+
+#CONTEXT
+#    if(sv_isa($arg, \"JS::Context\"))
+#        $var = ($type)SvIV((SV*)SvRV($arg));
+#    else{
+#        warn(\"${Package}::$func_name() -- $var is not a blessed JS::Context reference\");
+#        XSRETURN_UNDEF;
+#    }
+
+CONTEXT
+    if(sv_isa($arg, \"JS::Context\"))
+        $var = ($type)SvIV(*hv_fetch((HV*)SvRV($arg), \"_handle\", 7, 0));
+    else{
+        warn(\"${Package}::$func_name() -- $var is not a blessed JS::Context reference\");
+        XSRETURN_UNDEF;
+    }
+
+SCRIPT
+    if(sv_isa($arg, \"JS::Script\"))
+        $var = ($type)SvIV((SV*)SvRV($arg));
+    else{
+        warn(\"${Package}::$func_name() -- $var is not a blessed JS::Script reference\");
+        XSRETURN_UNDEF;
+    }
+
+RUNTIME
+    if(sv_isa($arg, \"JS::Runtime\"))
+        $var = ($type)SvIV((SV*)SvRV($arg));
+    else{
+        warn(\"${Package}::$func_name() -- $var is not a blessed JS::Runtime reference\");
+        XSRETURN_UNDEF;
+    }

data/vendor/jsl-0.3.0/src/plify_jsdhash.sed

@@ -0,0 +1,31 @@
+/ * Double hashing implementation./a\
+ * GENERATED BY js/src/plify_jsdhash.sed -- DO NOT EDIT!!!
+/ * Double hashing, a la Knuth 6./a\
+ * GENERATED BY js/src/plify_jsdhash.sed -- DO NOT EDIT!!!
+s/jsdhash_h___/pldhash_h___/
+s/jsdhash\.bigdump/pldhash.bigdump/
+s/jstypes\.h/prtypes.h/
+s/jsbit\.h/prbit.h/
+s/jsdhash\.h/pldhash.h/
+s/jsdhash\.c/pldhash.c/
+s/jsdhash:/pldhash:/
+s/jsutil\.h/prlog.h/
+s/JS_DHASH/PL_DHASH/g
+s/JS_DHash/PL_DHash/g
+s/JSDHash/PLDHash/g
+s/JSHash/PLHash/g
+s/uint32  /PRUint32/g
+s/\([^U]\)int32  /\1PRInt32/g
+s/uint16  /PRUint16/g
+s/\([^U]\)int16  /\1PRInt16/g
+s/uint32/PRUint32/g
+s/\([^U]\)int32/\1PRInt32/g
+s/uint16/PRUint16/g
+s/\([^U]\)int16/\1PRInt16/g
+s/JSBool/PRBool/g
+s/extern JS_PUBLIC_API/PR_EXTERN/
+s/JS_PUBLIC_API/PR_IMPLEMENT/
+s/JS_DLL_CALLBACK/PR_CALLBACK/
+s/JS_STATIC_DLL_CALLBACK/PR_STATIC_CALLBACK/
+s/JS_NewDHashTable/PL_NewDHashTable/
+s/JS_/PR_/g