41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
;; <ftp://ftp.isi.edu/in-notes/rfc2964.txt>
;; The parser also supports the old Netscape spec
;; <http://www.netscape.com/newsref/std/cookie_spec.html>
;; (declare (unit cookie))
(module cookie
*
(import chicken scheme data-structures extras srfi-13 ports posix)
(require-extension srfi-1 srfi-13 srfi-14 regex)
|
|
|
>
>
|
>
>
>
>
>
>
>
>
>
>
>
>
|
|
>
|
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
|
;; <ftp://ftp.isi.edu/in-notes/rfc2964.txt>
;; The parser also supports the old Netscape spec
;; <http://www.netscape.com/newsref/std/cookie_spec.html>
;; (declare (unit cookie))
(module cookie
*
(cond-expand
(chicken-4
(import chicken
scheme
data-structures
extras
ports
posix))
(chicken-5
(import scheme
chicken.base
chicken.time.posix
chicken.string
chicken.format
)))
(import srfi-1 srfi-13 srfi-14 regex)
;; (use srfi-1 srfi-13 srfi-14 regex)
;; (declare (export parse-cookie-string construct-cookie-string))
;; #>
;; #include <time.h>
;; <#
;;
|