view tests/reduce.ur @ 1892:907a82a44f01

Add missing inter-library dependencies This is needed, at least on recent Ubuntu, to fix these linker errors when compiling any Ur/Web application: liburweb.so: undefined reference to `lround' liburweb.so: undefined reference to `ceil' liburweb.so: undefined reference to `RAND_bytes' liburweb.so: undefined reference to `DES_fcrypt' liburweb.so: undefined reference to `SHA256_Init' liburweb.so: undefined reference to `SHA256_Final' liburweb.so: undefined reference to `SHA256_Update' Signed-off-by: Anders Kaseorg <andersk@mit.edu> --- src/c/Makefile.am | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-)
author Anders Kaseorg <andersk@mit.edu>
date Thu, 21 Nov 2013 14:32:11 -0500
parents 71bafe66dbe1
children
line wrap: on
line source
con c1 = int
con c2 = (fn t :: Type => t) int

con id = fn t :: Type => t
con c3 = id int

con fst = fn t1 :: Type => fn t2 :: Type => t1
con c4 = fst int string

con snd = fn t1 :: Type => fn t2 :: Type => t2
con c5 = snd int string

con apply = fn f :: Type -> Type => fn t :: Type => f t
con c6 = apply id int
con c7 = apply (fst int) string

val tickle = fn n :: Name => fn t :: Type => fn fs :: {Type} =>
        fn x : $([n = t] ++ fs) => x
val tickleA = tickle[#A][int][[B = string]]
val test_tickleA = tickleA {A = 6, B = "13"}

val grab = fn n :: Name => fn t ::: Type => fn fs ::: {Type} =>
        fn x : $([n = t] ++ fs) => x.n
val test_grab1 = grab[#A] {A = 6, B = "13"}
val test_grab2 = grab[#B] {A = 6, B = "13"}

val main = {A = test_grab1, B = test_grab2}