-
Notifications
You must be signed in to change notification settings - Fork 0
/
packages.scm
84 lines (70 loc) · 1.71 KB
/
packages.scm
1
2
3
4
5
6
7
8
9
10
11
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
39
40
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
75
76
77
78
79
80
81
82
83
84
;;; enum-sets
;;; #########
(define-interface enum-sets-interface
(export (define-enum-set-type :syntax)
enum-set->list
enum-set-member?
enum-set=?
enum-set-union
enum-set-intersection
enum-set-negation))
(define-interface enum-sets-internal-interface
(export enum-set-has-type?
enum-set?
enum-set-type
enum-set->integer
integer->enum-set))
(define-structures ((enum-sets enum-sets-interface)
(enum-sets-internal enum-sets-internal-interface))
(open scheme define-record-types
finite-types
bitwise
util
signals
external-calls)
(optimize auto-integrate)
(files enum-set))
;;; srfi-42-byte-vectors
;;; ####################
(define-structure srfi-42-byte-vectors
(export (byte-vector-ec :syntax)
(:byte-vector :syntax))
(open scheme srfi-42
byte-vectors)
(files bytevec-42))
;;; utils
;;; #####
(define-structure mysql-utils
(export string->byte-vector
byte-vector->string
mod2+ mod5+ mod2*
floor-int)
(open scheme
srfi-42 srfi-42-byte-vectors
ascii)
(files util))
;;; mysql-low
;;; #########
(define-structure mysql-low (export)
(open (modify scheme-with-scsh
(hide select format))
define-record-types
threads
finite-types enum-sets enum-sets-internal
ascii bitwise byte-vectors
sha1
rendezvous rendezvous-channels
srfi-11 srfi-23 srfi-28 srfi-42)
(files mysql))
;;; sha1
;;; ####
(define-interface sha1-interface
(export sha1-hash-string
sha1-hash-byte-vector
hash-value->byte-vector))
(define-structure sha1 sha1-interface
(open scheme
bitwise byte-vectors ascii
mysql-utils
srfi-28)
(files sha1))