Mercurial > urweb

annotate lib/top.urs @ 411:06fcddcd20d3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Sum demo, minus inference of {Unit}s
author Adam Chlipala <adamc@hcoop.net>
date Tue, 21 Oct 2008 19:24:39 -0400
parents fa2d25fe75ce
children ad7e854a518c
rev   line source
adamc@329 1 con idT = fn t :: Type => t
adamc@329 2 con record = fn t :: {Type} => $t
adamc@339 3 con fstTT = fn t :: (Type * Type) => t.1
adamc@339 4 con sndTT = fn t :: (Type * Type) => t.2
adamc@329 5
adamc@355 6 con mapTT = fn f :: Type -> Type => fold (fn nm t acc [[nm] ~ acc] =>
adamc@355 7 [nm = f t] ++ acc) []
adamc@325 8
adamc@411 9 con mapUT = fn f :: Type => fold (fn nm t acc [[nm] ~ acc] =>
adamc@411 10 [nm = f] ++ acc) []
adamc@411 11
adamc@355 12 con mapT2T = fn f :: (Type * Type) -> Type => fold (fn nm t acc [[nm] ~ acc] =>
adamc@355 13 [nm = f t] ++ acc) []
adamc@339 14
adamc@339 15 con ex = fn tf :: (Type -> Type) =>
adamc@355 16 res ::: Type -> (choice :: Type -> tf choice -> res) -> res
adamc@339 17
adamc@339 18 val ex : tf :: (Type -> Type) -> choice :: Type -> tf choice -> ex tf
adamc@339 19
adamc@325 20 val compose : t1 ::: Type -> t2 ::: Type -> t3 ::: Type
adamc@355 21 -> (t2 -> t3) -> (t1 -> t2) -> (t1 -> t3)
adamc@325 22
adamc@325 23 val txt : t ::: Type -> ctx ::: {Unit} -> use ::: {Type} -> show t -> t
adamc@355 24 -> xml ctx use []
adamc@329 25
adamc@411 26 val foldUR : tf :: Type -> tr :: ({Unit} -> Type)
adamc@411 27 -> (nm :: Name -> rest :: {Unit}
adamc@411 28 -> fn [[nm] ~ rest] =>
adamc@411 29 tf -> tr rest -> tr ([nm] ++ rest))
adamc@411 30 -> tr [] -> r :: {Unit} -> $(mapUT tf r) -> tr r
adamc@411 31
adamc@336 32 val foldTR : tf :: (Type -> Type) -> tr :: ({Type} -> Type)
adamc@355 33 -> (nm :: Name -> t :: Type -> rest :: {Type}
adamc@355 34 -> fn [[nm] ~ rest] =>
adamc@355 35 tf t -> tr rest -> tr ([nm = t] ++ rest))
adamc@355 36 -> tr [] -> r :: {Type} -> $(mapTT tf r) -> tr r
adamc@336 37
adamc@339 38 val foldT2R : tf :: ((Type * Type) -> Type) -> tr :: ({(Type * Type)} -> Type)
adamc@355 39 -> (nm :: Name -> t :: (Type * Type) -> rest :: {(Type * Type)}
adamc@355 40 -> fn [[nm] ~ rest] =>
adamc@355 41 tf t -> tr rest -> tr ([nm = t] ++ rest))
adamc@355 42 -> tr [] -> r :: {(Type * Type)} -> $(mapT2T tf r) -> tr r
adamc@339 43
adamc@355 44 val foldTR2 : tf1 :: (Type -> Type) -> tf2 :: (Type -> Type)
adamc@355 45 -> tr :: ({Type} -> Type)
adamc@355 46 -> (nm :: Name -> t :: Type -> rest :: {Type}
adamc@355 47 -> fn [[nm] ~ rest] =>
adamc@355 48 tf1 t -> tf2 t -> tr rest -> tr ([nm = t] ++ rest))
adamc@355 49 -> tr []
adamc@355 50 -> r :: {Type} -> $(mapTT tf1 r) -> $(mapTT tf2 r) -> tr r
adamc@355 51
adamc@339 52 val foldT2R2 : tf1 :: ((Type * Type) -> Type) -> tf2 :: ((Type * Type) -> Type)
adamc@355 53 -> tr :: ({(Type * Type)} -> Type)
adamc@355 54 -> (nm :: Name -> t :: (Type * Type) -> rest :: {(Type * Type)}
adamc@355 55 -> fn [[nm] ~ rest] =>
adamc@355 56 tf1 t -> tf2 t -> tr rest -> tr ([nm = t] ++ rest))
adamc@355 57 -> tr [] -> r :: {(Type * Type)}
adamc@355 58 -> $(mapT2T tf1 r) -> $(mapT2T tf2 r) -> tr r
adamc@339 59
adamc@336 60 val foldTRX : tf :: (Type -> Type) -> ctx :: {Unit}
adamc@355 61 -> (nm :: Name -> t :: Type -> rest :: {Type}
adamc@355 62 -> fn [[nm] ~ rest] =>
adamc@355 63 tf t -> xml ctx [] [])
adamc@355 64 -> r :: {Type} -> $(mapTT tf r) -> xml ctx [] []
adamc@336 65
adamc@339 66 val foldT2RX : tf :: ((Type * Type) -> Type) -> ctx :: {Unit}
adamc@355 67 -> (nm :: Name -> t :: (Type * Type) -> rest :: {(Type * Type)}
adamc@355 68 -> fn [[nm] ~ rest] =>
adamc@355 69 tf t -> xml ctx [] [])
adamc@355 70 -> r :: {(Type * Type)} -> $(mapT2T tf r) -> xml ctx [] []
adamc@339 71
adamc@332 72 val foldTRX2 : tf1 :: (Type -> Type) -> tf2 :: (Type -> Type) -> ctx :: {Unit}
adamc@355 73 -> (nm :: Name -> t :: Type -> rest :: {Type}
adamc@355 74 -> fn [[nm] ~ rest] =>
adamc@355 75 tf1 t -> tf2 t -> xml ctx [] [])
adamc@355 76 -> r :: {Type}
adamc@355 77 -> $(mapTT tf1 r) -> $(mapTT tf2 r) -> xml ctx [] []
adamc@334 78
adamc@355 79 val foldT2RX2 : tf1 :: ((Type * Type) -> Type) -> tf2 :: ((Type * Type) -> Type)
adamc@355 80 -> ctx :: {Unit}
adamc@355 81 -> (nm :: Name -> t :: (Type * Type) -> rest :: {(Type * Type)}
adamc@355 82 -> fn [[nm] ~ rest] =>
adamc@355 83 tf1 t -> tf2 t -> xml ctx [] [])
adamc@355 84 -> r :: {(Type * Type)}
adamc@355 85 -> $(mapT2T tf1 r) -> $(mapT2T tf2 r) -> xml ctx [] []
adamc@339 86
adamc@334 87 val queryX : tables ::: {{Type}} -> exps ::: {Type} -> ctx ::: {Unit}
adamc@355 88 -> sql_query tables exps
adamc@355 89 -> fn [tables ~ exps] =>
adamc@355 90 ($(exps ++ fold (fn nm (fields :: {Type}) acc [[nm] ~ acc] =>
adamc@355 91 [nm = $fields] ++ acc) [] tables)
adamc@355 92 -> xml ctx [] [])
adamc@355 93 -> transaction (xml ctx [] [])
adamc@341 94
adamc@355 95 val oneOrNoRows : tables ::: {{Type}} -> exps ::: {Type}
adamc@355 96 -> sql_query tables exps
adamc@355 97 -> fn [tables ~ exps] =>
adamc@355 98 transaction
adamc@355 99 (option
adamc@355 100 $(exps
adamc@355 101 ++ fold (fn nm (fields :: {Type}) acc
adamc@355 102 [[nm] ~ acc] =>
adamc@355 103 [nm = $fields] ++ acc)
adamc@355 104 [] tables))