Megatest

Diff
Login

Differences From Artifact [9e9f2a4e8b]:

To Artifact [9f49aa94f0]:


12
13
14
15
16
17
18

19
20
21
22










23
24

25
26
27
28
29
30
31
12
13
14
15
16
17
18
19




20
21
22
23
24
25
26
27
28
29
30

31
32
33
34
35
36
37
38







+
-
-
-
-
+
+
+
+
+
+
+
+
+
+

-
+







;;     but WITHOUT ANY WARRANTY; without even the implied warranty of
;;     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;     GNU General Public License for more details.
;; 
;;     You should have received a copy of the GNU General Public License
;;     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.

(import
(require-extension (srfi 18) extras tcp s11n)


(use  srfi-1 posix regex regex-case srfi-69 hostinfo md5 message-digest posix-extras)
 (srfi 18)
 ;; extras
 chicken.tcp
 s11n
 srfi-1
 ;; posix
 regex regex-case srfi-69
 ;; hostinfo
 md5 message-digest
 ;;posix-extras

(use spiffy uri-common intarweb http-client spiffy-request-vars intarweb spiffy-directory-listing)
 spiffy uri-common intarweb http-client spiffy-request-vars intarweb spiffy-directory-listing)

;; Configurations for server
(tcp-buffer-size 2048)
(max-connections 2048) 

(declare (unit http-transport))