Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Sorted directories in the manifest maker, fixed a typo in a property name, and moved to using "mtime" rather than "dc:modified", to reflect that it is just a POSIX filesystem attribute rather than anything relating to the actual content, and keeping compatability as such with existing Ugarit conventions. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
6caa1bd9ecc26cf5bbbdf38ce5eb6d97 |
| User & Date: | alaric 2015-06-12 19:50:54 |
Context
|
2015-06-12
| ||
| 21:47 | Preparation for release; tidying up and writing stub documentation. check-in: a9f8b21bcc user: alaric tags: trunk, 0.1 | |
| 19:50 | Sorted directories in the manifest maker, fixed a typo in a property name, and moved to using "mtime" rather than "dc:modified", to reflect that it is just a POSIX filesystem attribute rather than anything relating to the actual content, and keeping compatability as such with existing Ugarit conventions. check-in: 6caa1bd9ec user: alaric tags: trunk | |
|
2015-05-28
| ||
| 11:23 | OGG metadata parsing, and -Dfoo="bar" for defaults. check-in: 65f90322e5 user: alaric tags: trunk | |
Changes
Changes to ugarit-manifest-maker.scm.
| ︙ | ︙ | |||
263 264 265 266 267 268 269 |
(define (get-mp3-metadata path)
;; http://id3.org/id3v2-00 / http://id3.org/id3v2.3.0
(with-input-from-file path
(lambda ()
(let/cc
abort*
(let* ((metadata
| | | | | | | | | | 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 |
(define (get-mp3-metadata path)
;; http://id3.org/id3v2-00 / http://id3.org/id3v2.3.0
(with-input-from-file path
(lambda ()
(let/cc
abort*
(let* ((metadata
'((dc:creator . #f)
(dc:created . #f)
(dc:contributor . #f)
(set:title . #f)
(set:index . #f)
(set:size . #f)
(superset:index . #f)
(superset:size . #f)))
(abort
(lambda ()
(printf " ;; Could not read metadata\n")
(abort* metadata)))
(read-id3v22
(lambda ()
(debug "Reading v2.2\n")
|
| ︙ | ︙ | |||
664 665 666 667 668 669 670 |
;; http://xiph.org/vorbis/doc/framing.html
;; http://xiph.org/vorbis/doc/v-comment.html
(with-input-from-file path
(lambda ()
(let/cc
abort*
(let* ((metadata
| | | | | | | | | | | 664 665 666 667 668 669 670 671 672 673 674 675 676 677 678 679 680 681 682 683 684 685 686 687 688 689 690 691 692 693 694 695 696 697 698 699 700 701 702 703 704 705 |
;; http://xiph.org/vorbis/doc/framing.html
;; http://xiph.org/vorbis/doc/v-comment.html
(with-input-from-file path
(lambda ()
(let/cc
abort*
(let* ((metadata
'((dc:creator . #f)
(dc:created . #f)
(dc:contributor . #f)
(set:title . #f)
(set:index . #f)
(set:size . #f)
(superset:index . #f)
(superset:size . #f)))
(abort
(lambda ()
(printf " ;; Could not read metadata\n")
(abort* metadata))))
;; Skip header
(read-ogg-page abort)
;; Read comment header
(let* ((comments-page (read-ogg-page abort))
(comments-packet (first comments-page))
(comments (parse-ogg-comments comments-packet abort)))
;; Process comments
(let loop ((md (alist-copy metadata))
(comments comments))
(if (null? comments)
md
(let ((key (car (car comments)))
(value (cdr (car comments))))
(cond
((string-ci= key "artist")
(loop (alist-update! md 'dc:creator value)
(cdr comments)))
((string-ci= key "performer")
(loop (alist-update! md 'dc:contributor value)
(cdr comments)))
((string-ci= key "producer")
(loop (alist-update! md 'dc:contributor value)
(cdr comments)))
|
| ︙ | ︙ | |||
752 753 754 755 756 757 758 |
(dc:source . #f)))
(define (generate-manifest path)
(if (directory? path)
;; Recurse therein
(for-each (lambda (relname)
(generate-manifest (make-pathname path relname)))
| | | 752 753 754 755 756 757 758 759 760 761 762 763 764 765 766 |
(dc:source . #f)))
(define (generate-manifest path)
(if (directory? path)
;; Recurse therein
(for-each (lambda (relname)
(generate-manifest (make-pathname path relname)))
(sort! (directory path) string<))
;; Not a directory
(when (included-file? path)
(let* ((name (pathname-file path))
(*got-name* #f)
(print-item
(lambda (item)
|
| ︙ | ︙ | |||
808 809 810 811 812 813 814 |
(printf " #;(description = \"\")\n")
(printf " ;; No metadata extraction available for ~S files"
(pathname-extension path))))
(newline)
(let ((stat (file-stat path)))
| | | 808 809 810 811 812 813 814 815 816 817 818 819 820 821 822 |
(printf " #;(description = \"\")\n")
(printf " ;; No metadata extraction available for ~S files"
(pathname-extension path))))
(newline)
(let ((stat (file-stat path)))
(printf " (mtime = ~S)\n" (vector-ref stat 8))
(printf " (ctime = ~S)\n" (vector-ref stat 7)))
(let ((size (path-size path)))
(printf " (file-size = ~S))\n" size)
(set! *total-bytes*
(+ *total-bytes* size))
(set! *total-objects*
|
| ︙ | ︙ |