Mercurial > urweb
view tests/specialize.ur @ 1909:659d1f4e95bf
make dist: Use fewer wildcards
The remaining ones only work by accident:
http://www.gnu.org/software/automake/manual/html_node/Wildcards.html
and they have some practical problems too (we don?t really want to
distribute include/urweb/config.h or src/config.sml), but this is
enough for now to pass ?make distcheck? as long as we don?t run it
from a separate build directory.
Signed-off-by: Anders Kaseorg <andersk@mit.edu>
---
Makefile.am | 6 +++---
src/c/Makefile.am | 2 +-
2 files changed, 4 insertions(+), 4 deletions(-)
| author | Anders Kaseorg <andersk@mit.edu> |
|---|---|
| date | Fri, 22 Nov 2013 09:36:14 -0500 |
| parents | 60907c06b4c4 |
| children |
line wrap: on
line source
datatype list a = Nil | Cons of a * list a fun isNil (t ::: Type) (ls : list t) : bool = case ls of Nil => True | Cons _ => False fun append (t ::: Type) (ls1 : list t) (ls2 : list t) : list t = case ls1 of Nil => ls2 | Cons (x, ls1') => Cons (x, append ls1' ls2) fun pairAppend (t1 ::: Type) (t2 ::: Type) (ls1 : list (t1 * t2)) (ls2 : list (t1 * t2)) : list (t1 * t2) = case ls1 of Nil => ls2 | Cons (x, ls1') => Cons (x, pairAppend ls1' ls2) fun delist (ls : list string) : xml body [] [] = case ls of Nil => <body>Nil</body> | Cons (h, t) => <body>{cdata h} :: {delist t}</body> fun pairDelist (ls : list (string * int)) : xml body [] [] = case ls of Nil => <body>Nil</body> | Cons ((s, n), t) => <body>({cdata s}, {cdata (show _ n)}) :: {pairDelist t}</body> val ls = Cons ("X", Cons ("Y", Cons ("Z", Nil))) val ls' = Cons ("A", Cons ("B", Nil)) val pls = Cons (("X", 1), Cons (("Y", 2), Cons (("Z", 3), Nil))) val pls' = Cons (("A", 1), Cons (("B", 2), Nil)) fun main () : transaction page = return <html><body> {if isNil ls then <body>It's Nil.</body> else <body>It's not Nil.</body>} <p>{delist (append ls' ls)}</p> <p>{pairDelist (pairAppend pls' pls)}</p> </body></html>