comparison lib/basis.urs @ 436:024478c34f4d

time type
author Adam Chlipala <adamc@hcoop.net>
date Thu, 30 Oct 2008 14:36:48 -0400
parents 0ce90d4d9ae7
children 1a4c1b5f4d8f
comparison
equal deleted inserted replaced
435:f7b25375c0cf 436:024478c34f4d
1 type int 1 type int
2 type float 2 type float
3 type string 3 type string
4 type time
4 5
5 type unit = {} 6 type unit = {}
6 7
7 datatype bool = False | True 8 datatype bool = False | True
8 9
50 val show : t ::: Type -> show t -> t -> string 51 val show : t ::: Type -> show t -> t -> string
51 val show_int : show int 52 val show_int : show int
52 val show_float : show float 53 val show_float : show float
53 val show_string : show string 54 val show_string : show string
54 val show_bool : show bool 55 val show_bool : show bool
56 val show_time : show time
55 57
56 class read 58 class read
57 val read : t ::: Type -> read t -> string -> option t 59 val read : t ::: Type -> read t -> string -> option t
58 val readError : t ::: Type -> read t -> string -> t 60 val readError : t ::: Type -> read t -> string -> t
59 (* [readError] calls [error] if the input is malformed. *) 61 (* [readError] calls [error] if the input is malformed. *)
60 val read_int : read int 62 val read_int : read int
61 val read_float : read float 63 val read_float : read float
62 val read_string : read string 64 val read_string : read string
63 val read_bool : read bool 65 val read_bool : read bool
66 val read_time : read time
64 67
65 68
66 (** SQL *) 69 (** SQL *)
67 70
68 con sql_table :: {Type} -> Type 71 con sql_table :: {Type} -> Type