C++ (Cpp) CHICKEN_run 예제들

예제 #1

파일: main.c 프로젝트: Mathieu-Desrochers/Scheme-Experimentations

int main()
{
  CHICKEN_run(C_toplevel);

  FCGX_Request* request = malloc(sizeof(FCGX_Request));

  FCGX_Init();
  FCGX_InitRequest(request, 0, 0);

  while (FCGX_Accept_r(request) == 0)
  {
    http_handle_request(request);
    FCGX_Finish_r(request);
  }

  FCGX_Free(request, 1);

  free(request);
}

예제 #2

파일: mod_scheme.c 프로젝트: klutometis/mod_scheme

static void scheme_register_hooks(apr_pool_t *p) {
  void C_toplevel(C_word x, C_word y, C_word z);
  /* C_word chicken = CHICKEN_run(CHICKEN_default_toplevel); */
  C_word chicken = CHICKEN_run(C_toplevel);
  ap_hook_handler(scheme_handler, NULL, NULL, APR_HOOK_MIDDLE);
}