mirror of
https://github.com/clearlinux/uwsgi.git
synced 2026-08-22 05:25:48 +00:00
James Raspass
a1e3015783
Commitff9bab4bfixed support for sending IO like handles or GLOBs via sendfile by first calling fileno on them. This was checked by calling Scalar::Util::reftype on the reference first, as per https://metacpan.org/pod/PSGI#Body . This may be sane in pure perl, but there are better methods in XS/C than string evalling some Perl, which will eventually also call some XS/C. This commit introduces more robust checking of whether we have a "real" filehandle, and also introduces a test that chucks a bunch of different scalars and references at uWSGI to make sure it doesn't choke. I wasn't sure how to hook this test up to travis, or wether that's even desireable, so just left the test in what I believe to be the right directories. Because this commit massively simplifies the code, it also had an effect on object size, on my machine (x64, GCC 4.9), psgi_plugin.o went from 63360 bytes to 62296 bytes. The indentation level of the ->getline for loop has been left at its original level, which is now incorrect, to make the diff easier to read. A whitespace cleanup commit could follow. In related news, does anyone know the purpose of the three other use lines in psgi_loader.c, two of them were added back in 2011 bycf08972e, but I can't work out what their inclusion has to do with memleak hunting. Basically I would love to remove these lines as I don't believe they're needed for uWSGI to function, and if apps running under uWSGI need them, they should load them themselves. Also related, would more PSGI refactorings be welcome? I get the impression that Perl is a bit of a second class citizen in uWSGI these days, and as both an avid user of uWSGI+PSGI and a hobby XS developer, I'd love to clean up more of the PSGI plugin.
96 lines
2.2 KiB
C
96 lines
2.2 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;
|
|
|
|
CV *spooler;
|
|
|
|
int no_plack;
|
|
|
|
SV **early_psgi_callable;
|
|
char *early_psgi_app_name;
|
|
|
|
PerlInterpreter *early_interpreter;
|
|
};
|
|
|
|
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 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);
|
|
void uwsgi_psgi_preinit_apps(void);
|
|
|
|
int uwsgi_perl_add_app(struct wsgi_request *, char *, PerlInterpreter **, SV **, time_t);
|