From d777d7da78fccb8f15eccff680deca36ae57314b Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Sat, 2 Jan 2010 14:54:15 -0500
Subject: JavaScript urlification; more lenient export pattern in Corify; only
 include scripts in pages that use JavaScript

---
 src/jscomp.sml | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

(limited to 'src/jscomp.sml')

diff --git a/src/jscomp.sml b/src/jscomp.sml
index ca20e71d..11d75a3a 100644
--- a/src/jscomp.sml
+++ b/src/jscomp.sml
@@ -869,10 +869,21 @@ fun process file =
                           | EDml _ => unsupported "DML"
                           | ENextval _ => unsupported "Nextval"
                           | ESetval _ => unsupported "Nextval"
-                          | EUnurlify _ => unsupported "EUnurlify"
                           | EReturnBlob _ => unsupported "EUnurlify"
                           | ERedirect _ => unsupported "ERedirect"
 
+                          | EUnurlify (e, t) =>
+                            let
+                                val (e, st) = jsE inner (e, st)
+                                val (e', st) = unurlifyExp loc (t, st)
+                            in
+                                (strcat [str ("{c:\"f\",f:\"unurlify\",a:cons({c:\"c\",v:function(s){var t=s.split(\"/\");var i=0;return "
+                                              ^ e' ^ "}},cons("),
+                                         e,
+                                         str ",null))}"],
+                                 st)
+                            end
+
                           | ESignalReturn e =>
                             let
                                 val (e, st) = jsE inner (e, st)
-- 
cgit v1.2.3