Commit 926012e912bf3dfb5bca2e933dc22e410296c9d3
1 parent
cdd05882
add socket pool
Showing
1 changed file
with
112 additions
and
0 deletions
Show diff stats
| 1 | +/* | |
| 2 | + * Created by PyramIDE. | |
| 3 | + * User: Totoro | |
| 4 | + * Date: 13/08/2013 | |
| 5 | + * Time: 00:11 | |
| 6 | + * | |
| 7 | + */ | |
| 8 | + | |
| 9 | +read tools/basis.anubis | |
| 10 | + | |
| 11 | +public type Socket_pool: | |
| 12 | + pool(String pk, Var(List(RWStream)) socket). | |
| 13 | + | |
| 14 | +public type Pool_list: | |
| 15 | + pool_list(Var(List(Socket_pool)) p_list). | |
| 16 | + | |
| 17 | + | |
| 18 | +define Maybe(Socket_pool) | |
| 19 | + get_pool | |
| 20 | + ( | |
| 21 | + List(Socket_pool) list, | |
| 22 | + String pk | |
| 23 | + )= | |
| 24 | + //if p_list is pool_list(list) then | |
| 25 | + if list is | |
| 26 | + { | |
| 27 | + [] then failure, | |
| 28 | + [ h . t ] then | |
| 29 | + if h is pool(_pk, _) then | |
| 30 | + if _pk = pk then //we found the pool | |
| 31 | + success(h) | |
| 32 | + else | |
| 33 | + get_pool(t, pk) | |
| 34 | + }. | |
| 35 | + | |
| 36 | + | |
| 37 | +define Socket_pool | |
| 38 | + get_or_create_pool | |
| 39 | + ( | |
| 40 | + Var(List(Socket_pool)) p_list, | |
| 41 | +// List(Socket_pool) p_list, | |
| 42 | + String pk, | |
| 43 | + List(Socket_pool) current | |
| 44 | + )= | |
| 45 | + if current is | |
| 46 | + { | |
| 47 | + [] then | |
| 48 | + with new_entry = pool(pk, var([])), | |
| 49 | + p_list <- [ new_entry . *p_list]; | |
| 50 | + new_entry, | |
| 51 | + [ h . t ] then | |
| 52 | + if h is pool(_pk, _) then | |
| 53 | + if _pk = pk then | |
| 54 | + h | |
| 55 | + else | |
| 56 | + get_or_create_pool(p_list, pk, t) | |
| 57 | + }. | |
| 58 | + | |
| 59 | + | |
| 60 | +public define One | |
| 61 | + add_socket_to_pool | |
| 62 | + ( | |
| 63 | + Pool_list pool_list, //list of pools | |
| 64 | + String pk, //primary key of the pool | |
| 65 | + RWStream new_socket //new socket to add to pool | |
| 66 | + )= | |
| 67 | + //println("Add socket to pool ["+pk+"]"); | |
| 68 | + with pool = get_or_create_pool(p_list(pool_list), pk,*p_list(pool_list)), | |
| 69 | + socket(pool) <- [ new_socket . *socket(pool)]; | |
| 70 | + println("add socket pool ["+pk+"] length "+length(*socket(pool))) | |
| 71 | + | |
| 72 | + . | |
| 73 | + | |
| 74 | +public define Maybe(RWStream) | |
| 75 | + get_socket_from_pool | |
| 76 | + ( | |
| 77 | + Pool_list pool_list, //list of pools | |
| 78 | + String pk //primary key of the pool | |
| 79 | + )= | |
| 80 | + if get_pool(*p_list(pool_list), pk) is | |
| 81 | + { | |
| 82 | + failure then failure, //the pool doesn't exists !!! | |
| 83 | + success(pool) then | |
| 84 | + if *socket(pool) is | |
| 85 | + { | |
| 86 | + [] then println("No more socket in pool "+pk);failure, // no more socket in queue | |
| 87 | + [h . t] then | |
| 88 | + socket(pool) <- t; | |
| 89 | + println("get socket pool ["+pk+"] length "+length(t)); | |
| 90 | + success(h) | |
| 91 | + } | |
| 92 | + }. | |
| 93 | + | |
| 94 | +public define Maybe(RWStream) | |
| 95 | + get_socket_from_pool | |
| 96 | + ( | |
| 97 | + Pool_list pool_list, //list of pools | |
| 98 | + String pk, //primary key of the pool | |
| 99 | + Int try | |
| 100 | + )= | |
| 101 | + if try > 0 then | |
| 102 | + if get_socket_from_pool(pool_list, pk) is | |
| 103 | + { | |
| 104 | + failure then | |
| 105 | + sleep(1000); | |
| 106 | + get_socket_from_pool(pool_list, pk, try-1), //the pool doesn't exists !!! | |
| 107 | + success(sock) then success(sock) | |
| 108 | + } | |
| 109 | + else | |
| 110 | + println("get_socket_from_pool No available socket"); | |
| 111 | + failure. | |
| 112 | + | ... | ... |