Artifact a81b4237cd2a51a8f999b78f70c69b6032fb4f21:
- File redis.sls — part of check-in [1eaafa95a1] at 2018-12-09 15:21:26 on branch trunk — added redis (user: aldo size: 417)
0000: 23 7c 20 43 72 65 61 74 65 64 20 61 6e 64 20 4d #| Created and M 0010: 61 69 6e 74 61 69 6e 65 64 20 62 79 20 4a 61 63 aintained by Jac 0020: 6b 20 4c 75 63 61 73 20 3c 73 69 6c 76 65 72 62 k Lucas <silverb 0030: 65 61 72 64 40 70 72 6f 74 6f 6e 6d 61 69 6c 2e eard@protonmail. 0040: 63 6f 6d 3e 0a 73 65 65 20 73 74 61 6e 64 61 6c com>.see standal 0050: 6f 6e 65 20 72 65 70 6f 20 61 74 20 68 74 74 70 one repo at http 0060: 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 73 s://github.com/s 0070: 69 6c 76 65 72 62 65 61 72 64 30 30 2f 73 69 72 ilverbeard00/sir 0080: 65 64 69 73 20 66 6f 72 20 6c 69 63 65 6e 73 65 edis for license 0090: 0a 7c 23 0a 0a 28 6c 69 62 72 61 72 79 0a 20 20 .|#..(library. 00a0: 20 20 28 72 65 64 69 73 29 0a 20 20 28 65 78 70 (redis). (exp 00b0: 6f 72 74 20 72 65 74 75 72 6e 2d 72 65 64 69 73 ort return-redis 00c0: 2d 63 6c 6f 73 75 72 65 20 72 65 64 69 73 2d 69 -closure redis-i 00d0: 6e 69 74 29 0a 0a 20 20 28 69 6d 70 6f 72 74 20 nit).. (import 00e0: 28 63 68 65 7a 73 63 68 65 6d 65 29 0a 20 20 20 (chezscheme). 00f0: 20 20 20 20 20 20 20 28 6f 6e 6c 79 20 28 73 72 (only (sr 0100: 66 69 20 73 31 20 6c 69 73 74 73 29 20 74 61 6b fi s1 lists) tak 0110: 65 20 64 72 6f 70 20 66 69 72 73 74 29 0a 20 20 e drop first). 0120: 20 20 20 20 20 20 20 20 28 70 6f 73 69 78 29 0a (posix). 0130: 20 20 20 20 20 20 20 20 20 20 28 73 6f 63 6b 65 (socke 0140: 74 29 29 0a 0a 20 20 28 69 6e 63 6c 75 64 65 20 t)).. (include 0150: 22 72 65 64 69 73 2f 6d 61 69 6e 2e 73 63 6d 22 "redis/main.scm" 0160: 29 0a 0a 20 20 28 64 65 66 69 6e 65 20 28 72 65 ).. (define (re 0170: 64 69 73 2d 69 6e 69 74 29 0a 20 20 20 20 28 6c dis-init). (l 0180: 6f 61 64 2d 73 68 61 72 65 64 2d 6f 62 6a 65 63 oad-shared-objec 0190: 74 20 22 6c 69 62 63 2e 73 6f 2e 36 22 29 29 29 t "libc.so.6"))) 01a0: 0a .