Mercurial > urweb
annotate demo/buffer.ur @ 871:3ae6b655ced0
Switch to Information Schema from Postgres catalog
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Tue, 30 Jun 2009 15:59:41 -0400 |
parents | 755a71c99be5 |
children |
rev | line source |
---|---|
adamc@697 | 1 datatype lines = End | Line of string * source lines |
adamc@697 | 2 |
adamc@697 | 3 type t = { Head : source lines, Tail : source (source lines) } |
adamc@697 | 4 |
adamc@697 | 5 val create = |
adamc@697 | 6 head <- source End; |
adamc@697 | 7 tail <- source head; |
adamc@697 | 8 return {Head = head, Tail = tail} |
adamc@697 | 9 |
adamc@697 | 10 fun renderL lines = |
adamc@697 | 11 case lines of |
adamc@697 | 12 End => <xml/> |
adamc@697 | 13 | Line (line, linesS) => <xml>{[line]}<br/><dyn signal={renderS linesS}/></xml> |
adamc@697 | 14 |
adamc@697 | 15 and renderS linesS = |
adamc@697 | 16 lines <- signal linesS; |
adamc@697 | 17 return (renderL lines) |
adamc@697 | 18 |
adamc@697 | 19 fun render t = renderS t.Head |
adamc@697 | 20 |
adamc@697 | 21 fun write t s = |
adamc@697 | 22 oldTail <- get t.Tail; |
adamc@697 | 23 newTail <- source End; |
adamc@697 | 24 set oldTail (Line (s, newTail)); |
adamc@697 | 25 set t.Tail newTail |