mirror of
https://github.com/clearlinux/uwsgi.git
synced 2026-08-28 17:55:39 +00:00
Roberto De Ioris
85 lines
2.0 KiB
C
85 lines
2.0 KiB
C
#undef __USE_GNU
|
|
#include <uwsgi.h>
|
|
|
|
#ifdef __APPLE__
|
|
#define HAS_BOOL 1
|
|
#endif
|
|
#include <EXTERN.h>
|
|
#include <perl.h>
|
|
#include "XSUB.h"
|
|
|
|
#define uwsgi_pl_check_write_errors if (wsgi_req->write_errors > 0 && uwsgi.write_errors_exception_only) {\
|
|
croak("error writing to client");\
|
|
}\
|
|
else if (wsgi_req->write_errors > uwsgi.write_errors_tolerance)\
|
|
|
|
|
|
struct uwsgi_perl {
|
|
|
|
// path of the statically loaded main app
|
|
char *psgi;
|
|
// locallib path
|
|
char *locallib;
|
|
|
|
// perl argv for initialization
|
|
char *embedding[3];
|
|
|
|
// check for Devel::StackTrace
|
|
int no_die_catch;
|
|
int stacktrace_available;
|
|
|
|
char *argv_items;
|
|
struct uwsgi_string_list *argv_item;
|
|
|
|
// this is a pointer to the main list of interpreters (required for signals, rpc....);
|
|
PerlInterpreter **main;
|
|
|
|
// a lock for dynamic apps
|
|
pthread_mutex_t lock_loader;
|
|
|
|
// this fields must be heavy protected in threaded modes
|
|
int tmp_current_i;
|
|
HV **tmp_streaming_stash;
|
|
HV **tmp_input_stash;
|
|
HV **tmp_error_stash;
|
|
|
|
CV **tmp_psgix_logger;
|
|
CV **tmp_stream_responder;
|
|
|
|
SV *postfork;
|
|
SV *atexit;
|
|
|
|
int loaded;
|
|
|
|
struct uwsgi_string_list *exec;
|
|
struct uwsgi_string_list *exec_post_fork;
|
|
|
|
int auto_reload;
|
|
time_t last_auto_reload;
|
|
struct uwsgi_string_list *auto_reload_ignore;
|
|
HV *auto_reload_hash;
|
|
|
|
int enable_psgix_io;
|
|
|
|
char *shell;
|
|
int shell_oneshot;
|
|
};
|
|
|
|
void init_perl_embedded_module(void);
|
|
void uwsgi_psgi_app(void);
|
|
int psgi_response(struct wsgi_request *, AV*);
|
|
|
|
#define psgi_xs(func) newXS("uwsgi::" #func, XS_##func, "uwsgi")
|
|
#define psgi_check_args(x) if (items < x) Perl_croak(aTHX_ "Usage: uwsgi::%s takes %d arguments", __FUNCTION__ + 3, x)
|
|
|
|
SV *uwsgi_perl_obj_call(SV *, char *);
|
|
int uwsgi_perl_obj_can(SV *, char *, size_t);
|
|
int uwsgi_perl_obj_isa(SV *, char *);
|
|
int init_psgi_app(struct wsgi_request *, char *, uint16_t, PerlInterpreter **);
|
|
PerlInterpreter *uwsgi_perl_new_interpreter(void);
|
|
int uwsgi_perl_mule(char *);
|
|
void uwsgi_perl_run_hook(SV *);
|
|
void uwsgi_perl_exec(char *);
|
|
|
|
void uwsgi_perl_check_auto_reload(void);
|