Mercurial > urweb
view tests/caseFfi.ur @ 1893:9a1097954188
compileC: Link libraries in the right order
This is needed, at least on recent Ubuntu, to fix this linker error
when compiling any Ur/Web application:
ld: /tmp/webapp.o: undefined reference to symbol 'uw_write'
Signed-off-by: Anders Kaseorg <andersk@mit.edu>
---
src/compiler.sml | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
author | Anders Kaseorg <andersk@mit.edu> |
---|---|
date | Thu, 21 Nov 2013 14:32:11 -0500 |
parents | 71bafe66dbe1 |
children |
line wrap: on
line source
extern structure M : sig datatype t = A | B datatype u = C of t | D end val f = fn x => case x of M.A => M.B | M.B => M.A val t2s = fn x => case x of M.A => "A" | M.B => "B" val g = fn x => case x of M.C a => M.C (f a) | M.D => M.C M.A val u2s = fn x => case x of M.C a => t2s a | M.D => "D" val page = fn x => <html><body> {cdata (t2s x)} </body></html> val page2 = fn x => <html><body> {cdata (u2s x)} </body></html> val main : unit -> page = fn () => <html><body> <li><a link={page M.A}>A</a></li> <li><a link={page M.B}>B</a></li> <li><a link={page2 (M.C M.A)}>C A</a></li> <li><a link={page2 (M.C M.B)}>C B</a></li> <li><a link={page2 M.D}>D</a></li> </body></html>