regex/defsys.lisp at master · dbmcclain/regex · GitHub

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

(defpackage charsets
  (:use useful-macros common-lisp)
  (:export
   #:charset
   #:make-charset
   #:charset-add-chars
   #:charset-remove-chars
   #:charset-p
   #:charset-contains-char-p
   #:charset-empty-p
   #:charset-printform
   #:concatenate-strings))

(defpackage nregex
  (:use useful-macros common-lisp charsets)
  (:export
   #:defregex
   #:regex
   #:match-regex
   #:simple-regex
   #:*regex-dictionary*))

(defpackage csv
  (:use common-lisp useful-macros)
  (:import-from nregex
   #:defregex
   #:regex
   #:match-regex)
  (:export
   #:read-file
   #:get-group
   #:get-column))

(defpackage fast-csv
  (:use common-lisp)
  (:nicknames fcsv)
  (:export
   #:read-file
   #:get-column
   #:get-numeric-column
   #:get-field
   #:get-numeric-field))

;; -----------------------------------------------------------------
;;
(defsystem regex
  (:package CL-USER
   :default-pathname (translate-logical-pathname "PROJECTS:LISP;regex;"))
  :members (("useful-macros" :type :system)
            "charsets"
            "nregex")
  :rules
  ((:in-order-to :compile :all
    (:caused-by (:compile :previous))
    (:requires (:load :previous)))))

(defsystem csv
  (:package CL-USER
   :default-pathname (translate-logical-pathname "PROJECTS:LISP;regex;"))
  :members (("regex" :type :system)
            "csv"
            "fast-csv")
  :rules
  ((:in-order-to :compile :all
    (:caused-by (:compile :previous))
    (:requires (:load :previous)))))