Mercurial > urweb

annotate src/http.sml @ 1739:c414850f206f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add support for -boot flag, which allows in-tree execution of Ur/Web The boot flag rewrites most hardcoded paths to point to the build directory, and also forces static compilation. This is convenient for developing Ur/Web, or if you cannot 'sudo make install' Ur/Web. The following changes were made: * Header files were moved to include/urweb instead of include; this lets FFI users point their C_INCLUDE_PATH at this directory at write <urweb/urweb.h>. For internal Ur/Web executables, we simply pass -I$PATH/include/urweb as normal. * Differentiate between LIB and SRCLIB; SRCLIB is Ur and JavaScript source files, while LIB is compiled products from libtool. For in-tree compilation these live in different places. * No longer reference Config for paths; instead use Settings; these settings can be changed dynamically by Compiler.enableBoot () (TODO: add a disableBoot function.) * config.h is now generated directly in include/urweb/config.h, for consistency's sake (especially since it gets installed along with the rest of the headers!) * All of the autotools build products got updated. * The linkStatic field in protocols now only contains the name of the build product, and not the absolute path. Future users have to be careful not to reference the Settings files to early, lest they get an old version (this was the source of two bugs during development of this patch.)
author Edward Z. Yang <ezyang@mit.edu>
date Wed, 02 May 2012 17:17:57 -0400
parents d2ad997ca157
children
rev   line source
adamc@1132 1 (* Copyright (c) 2008-2010, Adam Chlipala
adamc@865 2 * All rights reserved.
adamc@865 3 *
adamc@865 4 * Redistribution and use in source and binary forms, with or without
adamc@865 5 * modification, are permitted provided that the following conditions are met:
adamc@865 6 *
adamc@865 7 * - Redistributions of source code must retain the above copyright notice,
adamc@865 8 * this list of conditions and the following disclaimer.
adamc@865 9 * - Redistributions in binary form must reproduce the above copyright notice,
adamc@865 10 * this list of conditions and the following disclaimer in the documentation
adamc@865 11 * and/or other materials provided with the distribution.
adamc@865 12 * - The names of contributors may not be used to endorse or promote products
adamc@865 13 * derived from this software without specific prior written permission.
adamc@865 14 *
adamc@865 15 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
adamc@865 16 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
adamc@865 17 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
adamc@865 18 * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
adamc@865 19 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
adamc@865 20 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
adamc@865 21 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
adamc@865 22 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
adamc@865 23 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
adamc@865 24 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
adamc@865 25 * POSSIBILITY OF SUCH DAMAGE.
adamc@865 26 *)
adamc@865 27
adamc@865 28 structure Http :> HTTP = struct
adamc@865 29
adamc@865 30 open Settings
adamc@1164 31 open Print.PD Print
adamc@865 32
adamc@865 33 val () = addProtocol {name = "http",
adamc@1096 34 compile = "",
ezyang@1739 35 linkStatic = "liburweb_http.a",
adamc@1095 36 linkDynamic = "-lurweb_http",
adamc@1164 37 persistent = true,
adamc@1164 38 code = fn () => box [string "void uw_global_custom() {",
adamc@1164 39 newline,
adamc@1164 40 case getSigFile () of
adamc@1164 41 NONE => box []
adamc@1164 42 | SOME sf => box [string "extern char *uw_sig_file;",
adamc@1164 43 newline,
adamc@1164 44 string "uw_sig_file = \"",
adamc@1164 45 string sf,
adamc@1164 46 string "\";",
adamc@1164 47 newline],
adam@1307 48 string "uw_setup_limits();",
adam@1307 49 newline,
adamc@1164 50 string "}",
adamc@1164 51 newline]}
adamc@1164 52
adamc@865 53 val () = setProtocol "http"
adamc@865 54
adamc@865 55 end