passenger 4.0.59 → 4.0.60

data/packaging/debian/debian_specs/nginx/modules/nginx-lua/dtrace/ngx_lua_provider.d

@@ -0,0 +1,61 @@
+provider nginx_lua {
+    probe http__lua__info(char *s);
+
+    /* lua_State *L */
+    probe http__lua__register__preload__package(void *L, u_char *pkg);
+
+    probe http__lua__req__socket__consume__preread(ngx_http_request_t *r,
+            u_char *data, size_t len);
+
+    /* lua_State *parent, lua_State *child */
+    probe http__lua__user__coroutine__create(ngx_http_request_t *r,
+            void *parent, void *child);
+
+    /* lua_State *parent, lua_State *child */
+    probe http__lua__user__coroutine__resume(ngx_http_request_t *r,
+                                             void *parent, void *child);
+
+    /* lua_State *parent, lua_State *child */
+    probe http__lua__user__coroutine__yield(ngx_http_request_t *r,
+                                            void *parent, void *child);
+
+    /* lua_State *L */
+    probe http__lua__thread__yield(ngx_http_request_t *r, void *L);
+
+    /* ngx_http_lua_socket_tcp_upstream_t *u */
+    probe http__lua__socket__tcp__send__start(ngx_http_request_t *r,
+            void *u, u_char *data, size_t len);
+
+    /* ngx_http_lua_socket_tcp_upstream_t *u */
+    probe http__lua__socket__tcp__receive__done(ngx_http_request_t *r,
+            void *u, u_char *data, size_t len);
+
+    /* ngx_http_lua_socket_tcp_upstream_t *u */
+    probe http__lua__socket__tcp__setkeepalive__buf__unread(
+            ngx_http_request_t *r, void *u, u_char *data, size_t len);
+
+    /* lua_State *creator, lua_State *newthread */
+    probe http__lua__user__thread__spawn(ngx_http_request_t *r,
+            void *creator, void *newthread);
+
+    /* lua_State *thread, ngx_http_lua_ctx_t *ctx */
+    probe http__lua__thread__delete(ngx_http_request_t *r, void *thread, void *ctx);
+
+    /* lua_State *thread */
+    probe http__lua__run__posted__thread(ngx_http_request_t *r, void *thread,
+            int status);
+
+    probe http__lua__coroutine__done(ngx_http_request_t *r, void *co,
+            int success);
+
+    /* lua_State *parent, lua_State *child */
+    probe http__lua__user__thread__wait(void *parent, void *child);
+};
+
+
+#pragma D attributes Evolving/Evolving/Common      provider nginx_lua provider
+#pragma D attributes Private/Private/Unknown       provider nginx_lua module
+#pragma D attributes Private/Private/Unknown       provider nginx_lua function
+#pragma D attributes Private/Private/Common        provider nginx_lua name
+#pragma D attributes Evolving/Evolving/Common      provider nginx_lua args
+

data/packaging/debian/debian_specs/nginx/modules/nginx-lua/misc/recv-until-pm/Makefile

@@ -0,0 +1,3 @@
+test:
+	prove -Ilib -r t
+

data/packaging/debian/debian_specs/nginx/modules/nginx-lua/misc/recv-until-pm/lib/RecvUntil.pm

@@ -0,0 +1,138 @@
+package RecvUntil;
+
+use strict;
+use warnings;
+
+sub recv_until {
+    my ($pat) = @_;
+
+    my $len = length $pat;
+    my @backtracks;
+
+    for (my $i = 1; $i <= $len - 1; $i++) {
+        my $matched_prefix_len = 1;
+        while ($matched_prefix_len <= $len - $i - 1) {
+            #while (1) {
+            #my $left = $len - $i;
+            #warn "left: $i: $len: ", $len - 1 - $i, "\n";
+            #warn "matched_prefix_len: $matched_prefix_len\n";
+
+            #while (1) {
+            my $prefix = substr($pat, 0, $matched_prefix_len);
+            my $next = substr($pat, $matched_prefix_len, 1);
+
+            my $prefix2 = substr($pat, $i, $matched_prefix_len);
+            my $next2 = substr($pat, $i + $matched_prefix_len, 1);
+
+            #warn "$i: global prefix $prefix $next\n";
+            #warn "$i: local prefix $prefix2 $next2\n";
+
+            if ($prefix2 eq $prefix) {
+                if ($next2 eq $next) {
+                    $matched_prefix_len++;
+                    next;
+                }
+
+                #warn "$matched_prefix_len: $prefix: found match at $i (next $next, next2 $next2)\n";
+                my $cur_state = $i + $matched_prefix_len;
+                my $new_state = $matched_prefix_len + 1;
+
+                my $matched = substr($pat, 0, $cur_state);
+
+                my $chain = $backtracks[$cur_state - 2];
+                if (!$chain) {
+                    $chain = [];
+                    $backtracks[$cur_state - 2] = $chain;
+                }
+
+                my $found = 0;
+                for my $rec (@$chain) {
+                    if ($rec->{char} eq $next) {
+                        $found = 1;
+
+                        if ($rec->{new_state} < $new_state) {
+                            warn "overriding...\n";
+                            $rec->{new_state} = $new_state;
+                        }
+                    }
+                }
+
+                if (!$found) {
+                    warn "on state $cur_state ($matched), if next is '$next', ",
+                        "then backtrack to state $new_state ($prefix$next)\n";
+
+                    push @$chain, { char => $next, new_state => $new_state };
+                }
+
+                #if ($matched_prefix_len > 1) {
+                #$i += $matched_prefix_len - 1;
+                #}
+
+                last;
+            }
+
+            last;
+        }
+    }
+
+    return sub {
+        my ($txt) = @_;
+
+        my $max_state = length $pat;
+        my $len = length $txt;
+        my $state = 0;
+        my $ret = '';
+
+        for (my $i = 0; $i < $len; $i++) {
+            # read the char
+            my $c = substr($txt, $i, 1);
+
+            #warn "$state: read char at $i: $c\n";
+            #warn "matched: $ret\n";
+
+            my $expected = substr($pat, $state, 1);
+            if ($expected eq $c) {
+                #warn "matched the char in pattern.\n";
+                $state++;
+
+                if ($state == $max_state) {
+                    last;
+                }
+
+                next;
+            }
+
+            if ($state == 0) {
+                #warn "did not match the first char in pattern\n";
+                $ret .= $c;
+                next;
+            }
+
+            my $old_state;
+            my $matched;
+            my $chain = $backtracks[$state - 2];
+            for my $rec (@$chain) {
+                if ($rec->{char} eq $c) {
+                    $old_state = $state;
+                    $state = $rec->{new_state};
+                    #warn "matched the char for backtracking to state $state\n";
+                    $matched = 1;
+                    last;
+                }
+            }
+
+            if (!$matched) {
+                $ret .= substr($pat, 0, $state);
+                $state = 0;
+                redo;
+            }
+
+            $ret .= substr($pat, 0, $old_state + 1 - $state);
+            next;
+        }
+
+        return $ret;
+    };
+}
+
+1;

data/packaging/debian/debian_specs/nginx/modules/nginx-lua/misc/recv-until-pm/t/sanity.t

@@ -0,0 +1,140 @@
+# vi:ft=
+
+use 5.10.1;
+use Test::Base;
+use RecvUntil;
+
+plan tests => 1 * blocks();
+
+run {
+    my $block = shift;
+    my $name = $block->name;
+    my $pat = $block->pat // die "$name: No --- pat found";
+    my $txt = $block->txt // die "$name: No --- txt found";
+
+    my $expected = $block->out // die "$name: No --- out found";
+
+    my $it = RecvUntil::recv_until($pat);
+    is $it->($txt), $expected, "$name: output ok";
+};
+
+__DATA__
+
+=== TEST 1:
+--- pat: abcabd
+--- txt: abcabcabd
+--- out: abc
+
+
+
+=== TEST 2:
+--- pat: aa
+--- txt: abcabcaad
+--- out: abcabc
+
+
+
+=== TEST 3:
+--- pat: ab
+--- txt: bbcabcaad
+--- out: bbc
+
+
+
+=== TEST 4:
+--- pat: aaa
+--- txt: abaabcaaaef
+--- out: abaabc
+
+
+
+=== TEST 5:
+--- pat: aaaaad
+--- txt: baaaaaaaaeaaaaaaadf
+--- out: baaaaaaaaeaa
+
+
+
+=== TEST 6:
+--- pat: abacadae
+--- txt: a
+--- out:
+
+
+
+=== TEST 7:
+--- pat: abacadae
+--- txt: ababacadae
+--- out: ab
+
+
+
+=== TEST 8:
+--- pat: abacadae
+--- txt: abacabacadae
+--- out: abac
+
+
+
+=== TEST 9:
+--- pat: abacadae
+--- txt: abaabacadae
+--- out: aba
+
+
+
+=== TEST 10:
+--- pat: abacadae
+--- txt: abacadabacadae
+--- out: abacad
+
+
+
+=== TEST 11:
+--- pat: abcabdabcabe
+--- txt: abcabdabcabdabcabe
+--- out: abcabd
+
+
+
+=== TEST 12:
+--- pat: abcabdabcabe
+--- txt: abcabdabcabcabdabcabe
+--- out: abcabdabc
+
+
+
+=== TEST 13:
+--- pat: abcabdabcabe
+--- txt: abcabcabdabcabe
+--- out: abc
+
+
+
+=== TEST 14:
+--- pat: abcabdabcabe
+--- txt: ababcabdabcabe
+--- out: ab
+
+
+
+=== TEST 15:
+--- pat: abcdef
+--- txt: abcabcdef
+--- out: abc
+
+
+
+=== TEST 16:
+--- pat: -- abc
+--- txt: ---- abc
+--- out: --
+
+
+
+=== TEST 17:
+--- pat: yz--ababyz
+--- txt: 
+--- out: --
+--- SKIP
+

data/packaging/debian/debian_specs/nginx/modules/nginx-lua/src/api/ngx_http_lua_api.h

@@ -0,0 +1,52 @@
+
+/*
+ * Copyright (C) Yichun Zhang (agentzh)
+ */
+
+
+#ifndef _NGX_HTTP_LUA_API_H_INCLUDED_
+#define _NGX_HTTP_LUA_API_H_INCLUDED_
+
+
+#include <nginx.h>
+#include <ngx_core.h>
+#include <ngx_http.h>
+
+#include <lua.h>
+#include <stdint.h>
+
+
+/* Public API for other Nginx modules */
+
+
+#define ngx_http_lua_version  9015
+
+
+typedef struct {
+    uint8_t         type;
+
+    union {
+        int         b; /* boolean */
+        lua_Number  n; /* number */
+        ngx_str_t   s; /* string */
+    } value;
+
+} ngx_http_lua_value_t;
+
+
+lua_State * ngx_http_lua_get_global_state(ngx_conf_t *cf);
+
+ngx_http_request_t * ngx_http_lua_get_request(lua_State *L);
+
+ngx_int_t ngx_http_lua_add_package_preload(ngx_conf_t *cf, const char *package,
+    lua_CFunction func);
+
+ngx_int_t ngx_http_lua_shared_dict_get(ngx_shm_zone_t *shm_zone,
+    u_char *key_data, size_t key_len, ngx_http_lua_value_t *value);
+
+ngx_shm_zone_t *ngx_http_lua_find_zone(u_char *name_data, size_t name_len);
+
+
+#endif /* _NGX_HTTP_LUA_API_H_INCLUDED_ */
+
+/* vi:set ft=c ts=4 sw=4 et fdm=marker: */

data/packaging/debian/debian_specs/nginx/modules/nginx-lua/src/ddebug.h

@@ -0,0 +1,82 @@
+
+/*
+ * Copyright (C) Yichun Zhang (agentzh)
+ */
+
+
+#ifndef _DDEBUG_H_INCLUDED_
+#define _DDEBUG_H_INCLUDED_
+
+
+#include <nginx.h>
+#include <ngx_core.h>
+
+
+#if defined(DDEBUG) && (DDEBUG)
+
+#   if (NGX_HAVE_VARIADIC_MACROS)
+
+#       define dd(...) fprintf(stderr, "lua *** %s: ", __func__); \
+            fprintf(stderr, __VA_ARGS__); \
+            fprintf(stderr, " at %s line %d.\n", __FILE__, __LINE__)
+
+#   else
+
+#include <stdarg.h>
+#include <stdio.h>
+
+#include <stdarg.h>
+
+static void dd(const char *fmt, ...) {
+}
+
+#    endif
+
+#else
+
+#   if (NGX_HAVE_VARIADIC_MACROS)
+
+#       define dd(...)
+
+#   else
+
+#include <stdarg.h>
+
+static void dd(const char *fmt, ...) {
+}
+
+#   endif
+
+#endif
+
+#if defined(DDEBUG) && (DDEBUG)
+
+#define dd_check_read_event_handler(r)   \
+    dd("r->read_event_handler = %s", \
+        r->read_event_handler == ngx_http_block_reading ? \
+            "ngx_http_block_reading" : \
+        r->read_event_handler == ngx_http_test_reading ? \
+            "ngx_http_test_reading" : \
+        r->read_event_handler == ngx_http_request_empty_handler ? \
+            "ngx_http_request_empty_handler" : "UNKNOWN")
+
+#define dd_check_write_event_handler(r)   \
+    dd("r->write_event_handler = %s", \
+        r->write_event_handler == ngx_http_handler ? \
+            "ngx_http_handler" : \
+        r->write_event_handler == ngx_http_core_run_phases ? \
+            "ngx_http_core_run_phases" : \
+        r->write_event_handler == ngx_http_request_empty_handler ? \
+            "ngx_http_request_empty_handler" : "UNKNOWN")
+
+#else
+
+#define dd_check_read_event_handler(r)
+#define dd_check_write_event_handler(r)
+
+#endif
+
+
+#endif /* _DDEBUG_H_INCLUDED_ */
+
+/* vi:set ft=c ts=4 sw=4 et fdm=marker: */