197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
|
write-bundle
read-bundle
;; new artifacts db
with-todays-adb
get-all-artifacts
refresh-artifacts-db
)
(import (chicken base) scheme (chicken process) (chicken time posix)
(chicken io) (chicken file) (chicken pathname)
chicken.process-context.posix (chicken string)
(chicken time) (chicken sort) (chicken file posix) (chicken condition) srfi-1
regex srfi-13 srfi-69 (chicken port) (chicken process-context)
crypt sha1 matchable message-digest sqlite3 typed-records
directory-utils
scsh-process)
;;======================================================================
;; DATA MANIPULATION UTILS
;;======================================================================
(define-inline (unescape-data data)
(string-translate* data '(("\\n" . "\n") ("\\\\" . "\\"))))
|
|
|
>
>
>
|
>
|
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
|
|
|
|
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
|
write-bundle
read-bundle
;; new artifacts db
with-todays-adb
get-all-artifacts
refresh-artifacts-db
)
(import scheme)
(cond-expand
(chicken-5
(import (chicken base)
(chicken process) (chicken time posix)
(chicken io) (chicken file) (chicken pathname)
chicken.process-context.posix (chicken string)
(chicken time) (chicken sort) (chicken file posix) (chicken condition)
(chicken port) (chicken process-context)
))
(chicken-4
(import chicken
posix
data-structures
extras
ports
files
setup-api
)
(define file-executable? file-execute-access?))
(else))
(import srfi-69 srfi-1
regex srfi-13 srfi-69
crypt sha1 matchable message-digest sqlite3 typed-records
directory-utils
scsh-process)
;;======================================================================
;; DATA MANIPULATION UTILS
;;======================================================================
(define-inline (unescape-data data)
(string-translate* data '(("\\n" . "\n") ("\\\\" . "\\"))))
|