This repository has been archived by the owner on Jun 17, 2023. It is now read-only.
-
Notifications
You must be signed in to change notification settings - Fork 2
/
git-api.asd
71 lines (67 loc) · 2.72 KB
/
git-api.asd
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
#|
This file is a part of git-api project.
Copyright (c) 2016 Alexey Veretennikov ([email protected])
|#
#|
Library for accessing git repository
Author: Alexey Veretennikov ([email protected])
|#
(in-package :cl-user)
(defpackage git-api-asd
(:use :cl :asdf))
(in-package :git-api-asd)
(defsystem #:git-api
:version "0.1"
:author "Alexey Veretennikov"
:license "BSD" ;; https://opensource.org/licenses/bsd-license.php
:depends-on (#:alexandria ; general utilities - Public domain
#:cl-fad ; files manipulation - BSD
#:cl-ppcre ; portable regular expressions - BSD
#:babel ; bytes to string - MIT
#:zlib ; zlib to deal with git objects - LLGPL
#:split-sequence ; general split - public domain
#:nibbles ; to parse binary data - BSD
#:flexi-streams ; to create in-memory streams - BSD
#:ironclad ; sha1 checksum - X11/MIT-like license
#:cffi ; to access dlls (libz) - MIT
#:static-vectors) ; to use common arrays between C and Lisp code - MIT
:components ((:module "src"
:components
((:file "utils")
(:module "zlib"
:depends-on ("utils")
:serial t
:components
((:file "cffi")
(:file "wrapper")))
(:file "pack" :depends-on ("utils" "zlib"))
(:file "object" :depends-on ("utils" "zlib"))
(:file "repo" :depends-on ("utils" "pack" "object"))
(:module "plumbing"
:depends-on ("repo")
:serial t
:components
((:module "details"
:serial t
:components
((:file "filemasks")
(:file "attributes")))
(:file "helpers")
(:file "info")
(:file "manip")
(:file "sync")))
(:file "package"))))
:description "Library for accessing git repository"
:long-description
#.(with-open-file (stream (merge-pathnames
#p"README.md"
(or *load-pathname* *compile-file-pathname*))
:if-does-not-exist nil
:direction :input)
(when stream
(let ((seq (make-array (file-length stream)
:element-type 'character
:fill-pointer t)))
(setf (fill-pointer seq) (read-sequence seq stream))
seq)))
:in-order-to ((test-op (test-op git-api-test))))