Mercurial > urweb
view include/types.h @ 564:803b2f3bb86b
Monad type class seems to be working
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Fri, 19 Dec 2008 10:27:58 -0500 |
parents | 024478c34f4d |
children | b0c1a46b1f15 |
line wrap: on
line source
#include <time.h> typedef long long uw_Basis_int; typedef double uw_Basis_float; typedef char* uw_Basis_string; typedef time_t uw_Basis_time; struct __uws_0 { }; typedef struct __uws_0 uw_unit; typedef uw_unit uw_Basis_unit; typedef enum uw_Basis_bool { uw_Basis_False, uw_Basis_True } uw_Basis_bool; typedef struct uw_context *uw_context; typedef uw_Basis_string uw_Basis_xhtml; typedef uw_Basis_string uw_Basis_page; typedef enum { SUCCESS, FATAL, BOUNDED_RETRY, UNLIMITED_RETRY } failure_kind; #define INTS_MAX 50 #define FLOATS_MAX 100 #define TIMES_MAX 100