blob: 604a20f6425bbb24149af69b185065cf27a10012 (
plain)
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
|
;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
(declaim (optimize (speed 0) (safety 3) (debug 3)))
(in-package #:music-dispensary)
;; ========================================================================== ;;
(defun mkdir (path)
(uffi:run-shell-command (format nil "mkdir -p ~a" path)))
(defun file-exists-p (file-path)
(equal (car (shell-wrapper (format nil "if test -f '~a'; then echo 0; else echo 1; fi" file-path))) "0"))
(defun directory-p (absolute-path)
(if (car (shell-wrapper (format nil "file '~a' |grep 'directory'" absolute-path))) t nil))
(defun symlink-p (absolute-path)
(if (car (shell-wrapper (format nil "file '~a' |grep 'symbolic link'" absolute-path))) t nil))
(defun file-p (absolute-path)
(if (or (directory-p absolute-path) (symlink-p absolute-path)) nil t))
(defun find-files (working-dir base-dir pattern)
(shell-wrapper (format nil
"pushd ~a >/dev/null 2>&1 ; find ~a -iname '~a' ; popd >/dev/null 2>&1"
working-dir
base-dir
pattern)))
|
