Mercurial > urweb
view src/config.sml.in @ 2142:3288e3c9948b
Fix XML indentation in Emacs mode
The return value of MATCH-STRING is a string. At least on Emacs 25,
the comparisons between string and character with EQUAL could never
succeed, and so the cases for matching braces were never triggered.
GET-TEXT-PROPERTY may return a list rather than an atom (for example,
on long lines with whitespace-mode turned on), and this broke the
heuristic of looking for the tag face in previous text.
author | Julian Squires <julian@cipht.net> |
---|---|
date | Mon, 04 May 2015 14:35:07 -0400 |
parents | c414850f206f |
children |
line wrap: on
line source
structure Config :> CONFIG = struct val builddir = "@abs_top_builddir@" val bin = "@BIN@" val srclib = "@SRCLIB@" val lib = "@LIB@" val includ = "@INCLUDE@" val sitelisp = "@SITELISP@" val ccompiler = "@CC@" val ccArgs = "@CCARGS@" val openssl = "@OPENSSL_LDFLAGS@ @OPENSSL_LIBS@" (* Something is rotten in the state of Ubuntu 11.10, so here's a manual fix that I hope doesn't break other platforms. *) val openssl = let val tokens = String.tokens Char.isSpace openssl in if List.exists (fn s => s = "-lssl") tokens then String.concatWith " " (List.filter (fn s => s <> "-lssl") tokens @ ["-lssl"]) else openssl end val pgheader = "@PGHEADER@" val msheader = "@MSHEADER@" val sqheader = "@SQHEADER@" val versionNumber = "@VERSION@" val versionString = "The Ur/Web compiler, version " ^ versionNumber val pthreadCflags = "@PTHREAD_CFLAGS@" val pthreadLibs = "@PTHREAD_LIBS@" end