Mercurial > urweb
view src/c/static.c @ 1989:210fb3dfc483
Some more nested functor bug-fixing, including generating fresh internal names at applications; still need to debug issues with datatype constructors
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Thu, 20 Feb 2014 10:27:15 -0500 |
parents | 2d9f831d45c9 |
children | c93fbd139732 |
line wrap: on
line source
#include "config.h" #include <stdio.h> #include <stdarg.h> #include "urweb.h" extern uw_app uw_application; static void log_debug(void *data, const char *fmt, ...) { va_list ap; va_start(ap, fmt); vprintf(fmt, ap); } int main(int argc, char *argv[]) { uw_context ctx; failure_kind fk; if (argc != 2) { fprintf(stderr, "Pass exactly one argument: the URI to run\n"); return 1; } ctx = uw_init(0, NULL, log_debug); uw_set_app(ctx, &uw_application); uw_initialize(ctx); while (1) { fk = uw_begin(ctx, argv[1]); if (fk == SUCCESS) { uw_print(ctx, 1); puts(""); return 0; } else if (fk != UNLIMITED_RETRY) { fprintf(stderr, "Error: %s\n", uw_error_message(ctx)); return 1; } uw_reset(ctx); } } void *uw_init_client_data() { return NULL; } void uw_free_client_data(void *data) { } void uw_copy_client_data(void *dst, void *src) { } void uw_do_expunge(uw_context ctx, uw_Basis_client cli, void *data) { } void uw_post_expunge(uw_context ctx, void *data) { } int uw_supports_direct_status = 0;