Mercurial > urweb

comparison src/jscomp.sml @ 1620:43f22a8f76cc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Allow sources to be returned by RPCs
author Adam Chlipala <adam@chlipala.net>
date Sat, 03 Dec 2011 10:00:10 -0500
parents 15e0c935c91b
children 438561303d02
comparison
equal deleted inserted replaced
1619:15e0c935c91b 1620:43f22a8f76cc
307 | TFfi ("Basis", "time") => ("parseInt(t[i++])", st) 307 | TFfi ("Basis", "time") => ("parseInt(t[i++])", st)
308 | TFfi ("Basis", "float") => ("parseFloat(t[i++])", st) 308 | TFfi ("Basis", "float") => ("parseFloat(t[i++])", st)
309 | TFfi ("Basis", "channel") => ("(t[i++].length > 0 ? parseInt(t[i-1]) : null)", st) 309 | TFfi ("Basis", "channel") => ("(t[i++].length > 0 ? parseInt(t[i-1]) : null)", st)
310 310
311 | TFfi ("Basis", "bool") => ("t[i++] == \"1\"", st) 311 | TFfi ("Basis", "bool") => ("t[i++] == \"1\"", st)
312
313 | TSource => ("parseSource(t[i++], t[i++])", st)
312 314
313 | TOption t => 315 | TOption t =>
314 let 316 let
315 val (e, st) = unurlifyExp loc (t, st) 317 val (e, st) = unurlifyExp loc (t, st)
316 val e = if isNullable t then 318 val e = if isNullable t then