From 623e16718bb6d19f95aea7b6f6720823cd5d65c6 Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@cs.wpi.edu>
Date: Sun, 14 Aug 2011 18:58:24 -0400
Subject: [PATCH] oops, js implmeentaiton missing

---
 resource/js-impl.js | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 resource/js-impl.js

diff --git a/resource/js-impl.js b/resource/js-impl.js
new file mode 100644
index 0000000..1d38740
--- /dev/null
+++ b/resource/js-impl.js
@@ -0,0 +1,20 @@
+var resourceType = MACHINE.modules['whalesong/resource/structs.rkt'].getNamespace()['struct:resource'];
+
+var makePrimitiveProcedure = plt.baselib.functions.makePrimitiveProcedure;
+
+var checkResource = plt.baselib.check.makeCheckArgumentType(
+    resourceType.predicate,
+    "resource");
+
+var getResourcePath = function(r) { return resourceType.accessor(r, 0); };
+var getResourceKey = function(r) { return resourceType.accessor(r, 1); };
+
+
+
+EXPORTS['resource->url'] = makePrimitiveProcedure(
+    'resource->url',
+    1,
+    function(MACHINE) {
+        var resource = checkResource(MACHINE, 'resource->url', 0);
+        return "res/" + String(getResourceKey(resource));
+    });