diff options
| author |  Benjamin Barenblat <bbaren@mit.edu> | 2020-05-30 19:49:56 -0400 |
|---|---|---|
| committer | Benjamin Barenblat <bbaren@mit.edu> | 2020-05-30 19:49:56 -0400 |
| commit | c2f1e1096f602b1cbd4531352f3e1ea6d656a186 (patch) | |
| tree | ae102982878bb0c31bdfe07209e60bfc14030490 /tests/trgm.ur | |
| parent | 095c2640aa2070ed4e2765875238d5e6e6673856 (diff) | |
| parent | 5a0b639dfbd7db9d16c6995f72ba17152a1f362d (diff) | |
Merge branch 'upstream' into dfsg_clean20200209+dfsgdfsg_clean
Diffstat (limited to 'tests/trgm.ur')
| -rw-r--r-- | tests/trgm.ur | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/tests/trgm.ur b/tests/trgm.ur new file mode 100644 index 00000000..45783366 --- /dev/null +++ b/tests/trgm.ur @@ -0,0 +1,25 @@ +table turtles : { Nam : string } + +fun add name = + dml (INSERT INTO turtles(Nam) + VALUES ({[name]})) + +fun closest name = + List.mapQuery (SELECT * + FROM turtles + ORDER BY similarity(turtles.Nam, {[name]}) DESC + LIMIT 5) + (fn r => r.Turtles.Nam) + +val main = + name <- source ""; + results <- source []; + return <xml><body> + Name: <ctextbox source={name}/><br/> + <button value="Add" onclick={fn _ => n <- get name; rpc (add n)}/><br/> + <button value="Search" onclick={fn _ => n <- get name; ls <- rpc (closest n); set results ls}/><br/> + <dyn signal={rs <- signal results; + return <xml><ol> + {List.mapX (fn n => <xml><li>{[n]}</li></xml>) rs} + </ol></xml>}/> + </body></xml> |