Initial commit

trashinfo.lisp

@@ -0,0 +1,74 @@
+(in-package :cl-xdg-trash/trashinfo)
+
+(define-condition trashinfo-format-error (error)
+  ((message :accessor trashinfo-format-error-message
+            :initarg :message
+            :type string
+            :documentation "A message describing the error.")
+   (line-number :accessor trashinfo-format-error-line-number
+                :initarg :line-number
+                :type (integer 1)
+                :documentation "The line number of the error. The first line is
+line 1.")
+   (context :accessor trashinfo-format-error-context
+            :initarg :context
+            :type string
+            :documentation "The text of the line causing the error.")
+   (source-file :accessor trashinfo-format-error-source-file
+                :initarg :source-file
+                :type pathname
+                :documentation "The path to the file the error happened in."))
+  (:report (lambda (condition stream)
+             (with-slots (message line-number source-file) condition
+               (format stream "Error parsing ~A on line ~A: ~A."
+                       source-file line-number message)))))
+
+(defclass trashinfo ()
+  ((trash-directory :reader trashinfo-trash-directory
+                    :initarg :trash-directory
+                    :type pathname
+                    :documentation "The path to the trash directory that this
+trashinfo file belongs to.")
+   (name :accessor trashinfo-name
+         :initarg :name
+         :type string
+         :documentation "The name of this trashinfo file without the extension.")
+   (path :accessor trashinfo-path
+         :initarg :path
+         :type pathname
+         :documentation "Path to the original location of the file.")
+   (deletion-date :accessor trashinfo-deletion-date
+                  :initarg :deletion-date
+                  :type local-time:timestamp
+                  :documentation "The time the corresponding file was
+trashed."))
+  (:documentation "Represents a .trashinfo file."))
+
+(declaim (ftype (function ((or pathname string) string) trashinfo)))
+(defun parse-trashinfo-from-string (trash-directory name)
+  "Parse the trashinfo file NAME (which should not have an extension) in
+TRASH-DIRECTORY."
+  (let ((source-file (merge-pathnames (make-pathname :name name
+                                                     :directory '(:relative "info"))
+                                      trash-directory)))
+    (with-open-file (in source-file :if-does-not-exist :error)
+      (let ((first-line (read-line in :eof-error-p nil)))
+        (unless first-line
+          (error 'trashinfo-format-error
+                 :line-number 1 :source-file source-file
+                 :context "" :message "Unexpected end-of-file"))
+        (unless (equal first-line "[Trash Info]")
+          (error 'trashinfo-format-error
+                 :line-number 1 :source-file source-file
+                 :context first-line
+                 :message "First line should be \"[Trash Info]\"")))
+      (loop for line = (read-line in :eof-error-p nil)
+            while line)
+      )))
+
+(defmethod trashinfo-trashed-file ())
+
+
+;; Local Variables:
+;; jinx-local-words: "trashinfo"
+;; End: