adam@1800: (* Copyright (c) 2012, Adam Chlipala adam@1800: * All rights reserved. adam@1800: * adam@1800: * Redistribution and use in source and binary forms, with or without adam@1800: * modification, are permitted provided that the following conditions are met: adam@1800: * adam@1800: * - Redistributions of source code must retain the above copyright notice, adam@1800: * this list of conditions and the following disclaimer. adam@1800: * - Redistributions in binary form must reproduce the above copyright notice, adam@1800: * this list of conditions and the following disclaimer in the documentation adam@1800: * and/or other materials provided with the distribution. adam@1800: * - The names of contributors may not be used to endorse or promote products adam@1800: * derived from this software without specific prior written permission. adam@1800: * adam@1800: * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" adam@1800: * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE adam@1800: * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE adam@1800: * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE adam@1800: * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR adam@1800: * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF adam@1800: * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS adam@1800: * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN adam@1800: * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) adam@1800: * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE adam@1800: * POSSIBILITY OF SUCH DAMAGE. adam@1800: *) adam@1800: adam@1800: (* Phase that introduces names for fragments of JavaScript code, so that they adam@1800: * may be moved to app.js and not repeated in each generated page *) adam@1800: adam@1800: signature NAME_JS = sig adam@1800: adam@1800: val rewrite : Mono.file -> Mono.file adam@1800: adam@1800: end