add musicbrainz
parent
ea4f32d57f
commit
5bafa0257b
|
|
@ -0,0 +1 @@
|
|||
|
||||
|
|
@ -0,0 +1,131 @@
|
|||
USING: strings calendar sequences kernel math ;
|
||||
IN: musicbrainz.entities
|
||||
|
||||
SINGLETONS:
|
||||
person group orchestra choir character other
|
||||
album single ep broadcast
|
||||
compilation soundtrack spokenword interview audiobook audio-drama live remix dj-mix mixtape/street
|
||||
male female
|
||||
country subdivision county municipality city district island
|
||||
search-hint artist-name
|
||||
official promotional bootleg pseudo-release
|
||||
normal high low
|
||||
;
|
||||
|
||||
UNION: primary-release-group-type
|
||||
album single ep broadcast other ;
|
||||
|
||||
UNION: secondary-release-group-type
|
||||
compilation soundtrack spokenword interview audiobook audio-drama live remix dj-mix mixtape/street ;
|
||||
|
||||
UNION: artist-type
|
||||
person group orchestra choir character other ;
|
||||
|
||||
UNION: area-type
|
||||
country subdivision county municipality city district island ;
|
||||
|
||||
UNION: alias-type search-hint artist-name ;
|
||||
|
||||
UNION: artist-gender
|
||||
male female ;
|
||||
|
||||
UNION: release-status
|
||||
official promotional bootleg pseudo-release ;
|
||||
|
||||
UNION: release-quality
|
||||
normal high low ;
|
||||
|
||||
TUPLE: entity
|
||||
{ mbid string } ;
|
||||
|
||||
TUPLE: alias
|
||||
{ name string }
|
||||
{ sort-name string }
|
||||
{ type maybe{ alias-type } }
|
||||
{ locale maybe{ string } } ;
|
||||
|
||||
TUPLE: life-span
|
||||
{ begin timestamp }
|
||||
{ end maybe{ timestamp } }
|
||||
{ ended? maybe{ boolean } } ;
|
||||
|
||||
TUPLE: area < entity
|
||||
{ name string }
|
||||
{ type maybe{ area-type } }
|
||||
{ sort-name maybe{ string } }
|
||||
{ iso-codes maybe{ sequence } }
|
||||
{ begin-date maybe{ timestamp } } ;
|
||||
|
||||
TUPLE: artist < entity
|
||||
{ name string }
|
||||
{ sort-name string }
|
||||
{ disambiguation maybe{ string } }
|
||||
{ life-span maybe{ life-span } }
|
||||
{ country maybe{ string } }
|
||||
{ isnis maybe{ sequence } }
|
||||
{ type maybe{ artist-type } }
|
||||
{ gender maybe{ artist-gender } }
|
||||
{ area maybe{ area } }
|
||||
{ aliases maybe{ sequence } }
|
||||
{ begin-area maybe{ area } } ;
|
||||
|
||||
TUPLE: text-representation
|
||||
{ language string }
|
||||
{ script string } ;
|
||||
|
||||
TUPLE: cover-art-archive
|
||||
{ artwork? boolean }
|
||||
{ count number }
|
||||
{ front? boolean }
|
||||
{ back? boolean } ;
|
||||
|
||||
TUPLE: release-event
|
||||
{ date timestamp }
|
||||
{ area maybe{ area } } ;
|
||||
|
||||
TUPLE: release < entity
|
||||
{ title string }
|
||||
{ status maybe{ release-status } }
|
||||
{ quality maybe{ release-quality } }
|
||||
{ disambiguation maybe{ string } }
|
||||
{ date maybe{ timestamp } }
|
||||
{ country maybe{ string } }
|
||||
{ text-representation maybe{ text-representation } }
|
||||
{ barcode maybe{ string } }
|
||||
{ asin maybe{ string } }
|
||||
{ release-events maybe{ sequence } }
|
||||
{ packaging maybe{ string } }
|
||||
{ mediums maybe{ sequence } }
|
||||
{ artist maybe{ artist } }
|
||||
{ label-info maybe{ sequence } }
|
||||
{ cover-art-archive maybe{ cover-art-archive } } ;
|
||||
|
||||
TUPLE: collection < entity
|
||||
{ name string }
|
||||
{ editor string }
|
||||
{ releases maybe{ sequence } } ;
|
||||
|
||||
TUPLE: recording < entity
|
||||
{ title string }
|
||||
{ length integer }
|
||||
{ artist artist } ;
|
||||
|
||||
TUPLE: track < entity
|
||||
{ position integer }
|
||||
{ number integer }
|
||||
{ length integer }
|
||||
{ recording recording } ;
|
||||
|
||||
TUPLE: medium
|
||||
{ position integer }
|
||||
{ number integer }
|
||||
{ format string }
|
||||
{ dics sequence }
|
||||
{ tracks sequence } ;
|
||||
|
||||
TUPLE: label < entity
|
||||
{ type string }
|
||||
{ name string }
|
||||
{ sort-name maybe{ string } }
|
||||
{ disambiguation maybe{ string } }
|
||||
{ aliases maybe{ sequence } } ;
|
||||
|
|
@ -0,0 +1,10 @@
|
|||
! Copyright (C) 2020 .
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: help.markup help.syntax ;
|
||||
IN: musicbrainz
|
||||
|
||||
ARTICLE: "musicbrainz" "musicbrainz"
|
||||
{ $vocab-link "musicbrainz" }
|
||||
;
|
||||
|
||||
ABOUT: "musicbrainz"
|
||||
|
|
@ -0,0 +1,4 @@
|
|||
! Copyright (C) 2020 .
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: tools.test musicbrainz ;
|
||||
IN: musicbrainz.tests
|
||||
|
|
@ -0,0 +1,61 @@
|
|||
! Copyright (C) 2020 .
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: kernel io.sockets.secure http http.client urls strings alien.syntax accessors arrays sequences xml.syntax xml.traversal assocs slots calendar words calendar.parser combinators io.streams.string furnace.utilities splitting qw hashtables ;
|
||||
USING: io prettyprint ;
|
||||
USING: musicbrainz.entities musicbrainz.parser ;
|
||||
IN: musicbrainz
|
||||
|
||||
CONSTANT: mb-base-url URL" https://musicbrainz.org/ws/2/"
|
||||
CONSTANT: user-agent-header { "factor-musicbrainz/0.1.0 (steve@ayerh.art)" "user-agent" }
|
||||
CONSTANT: accept-header { "application/xml" "accept" }
|
||||
CONSTANT: collection-links qw{ releases }
|
||||
|
||||
: mb-entity>string ( entity -- str )
|
||||
word>string ":" split last ;
|
||||
|
||||
: <mb-entity-url> ( mbid entity inc -- url )
|
||||
[
|
||||
word>string ":" split last swap 2array "/" join
|
||||
mb-base-url clone swap >url derive-url
|
||||
] dip "+" join "inc" set-query-param ;
|
||||
|
||||
: <mb-release-url> ( mbid -- url )
|
||||
release qw{ artist-credits recordings labels aliases } <mb-entity-url> ;
|
||||
|
||||
: <mb-artist-url> ( mbid -- url )
|
||||
artist qw{ aliases } <mb-entity-url> ;
|
||||
|
||||
: <mb-collection-url> ( mbid -- url )
|
||||
"/releases" append collection qw{ artist-credits releases } <mb-entity-url> ;
|
||||
|
||||
: <mb-get-request> ( url -- request )
|
||||
<get-request>
|
||||
user-agent-header first2 set-header
|
||||
accept-header first2 set-header
|
||||
http-request nip parse-mb-response ;
|
||||
|
||||
: add-mb-headers ( url -- url )
|
||||
user-agent-header first2 set-header
|
||||
accept-header first2 set-header ;
|
||||
|
||||
: <mb-release-lookup> ( mbid -- release )
|
||||
<mb-release-url> <mb-get-request> ;
|
||||
|
||||
: <mb-artist-lookup> ( mbid -- artist )
|
||||
<mb-artist-url> <mb-get-request> ;
|
||||
|
||||
: <mb-collection-lookup> ( mbid -- collection )
|
||||
<mb-collection-url> <mb-get-request> ;
|
||||
|
||||
: <mb-collection-release-url> ( mbid -- url )
|
||||
[ mb-base-url clone "release" >url derive-url ] dip
|
||||
"collection" set-query-param
|
||||
"100" "limit" set-query-param ;
|
||||
|
||||
: <mb-collection-release-request> ( mbid -- releases )
|
||||
<mb-collection-release-url> <mb-get-request> ;
|
||||
|
||||
: <mb-collections-lookup> ( user -- collections )
|
||||
[ mb-base-url clone "collection" >url derive-url ] dip
|
||||
"editor" set-query-param
|
||||
<get-request> add-mb-headers http-request nip parse-mb-response ;
|
||||
|
|
@ -0,0 +1,195 @@
|
|||
USING: kernel xml.syntax xml.traversal accessors words sequences calendar calendar.parser combinators io.streams.string assocs xml unicode arrays splitting html.components math.parser ;
|
||||
USING: musicbrainz.entities ;
|
||||
|
||||
USING: prettyprint ;
|
||||
IN: musicbrainz.parser
|
||||
|
||||
XML-NS: mb http://musicbrainz.org/ns/mmd-2.0#
|
||||
|
||||
ERROR: invalid-timestamp ;
|
||||
|
||||
: string>word ( str -- word )
|
||||
"musicbrainz.entities" lookup-word ;
|
||||
|
||||
: string>timestamp ( str -- timestamp )
|
||||
[ length ] keep
|
||||
[
|
||||
{
|
||||
{ 4 [ read-0000 1 1 <date-gmt> ] }
|
||||
{ 7 [ read-0000 "-" expect read-00 1 <date-gmt> ] }
|
||||
{ 10 [ read-ymd <date-gmt> ] }
|
||||
[ drop invalid-timestamp ]
|
||||
} case
|
||||
] with-string-reader ;
|
||||
|
||||
TAGS: mb-entity ( tag -- entity )
|
||||
TAGS: entity-property ( entity tag -- entity )
|
||||
|
||||
TAG: name entity-property
|
||||
children>string >>name ;
|
||||
|
||||
TAG: sort-name entity-property
|
||||
children>string >>sort-name ;
|
||||
|
||||
TAG: disambiguation entity-property
|
||||
children>string >>disambiguation ;
|
||||
|
||||
TAG: country entity-property
|
||||
children>string >>country ;
|
||||
|
||||
TAG: packaging entity-property
|
||||
children>string >>packaging ;
|
||||
|
||||
TAG: gender entity-property
|
||||
children>string >lower string>word >>gender ;
|
||||
|
||||
TAG: iso-3166-2-code-list entity-property
|
||||
children-tags [ children>string ] map >array >>iso-codes ;
|
||||
|
||||
TAG: iso-3166-1-code-list entity-property
|
||||
children-tags [ children>string ] map >array >>iso-codes ;
|
||||
|
||||
TAG: isni-list entity-property
|
||||
children-tags [ children>string ] map >array >>isnis ;
|
||||
|
||||
TAG: begin entity-property
|
||||
children>string string>timestamp >>begin ;
|
||||
TAG: end entity-property
|
||||
children>string string>timestamp >>end ;
|
||||
|
||||
TAG: title entity-property
|
||||
children>string >>title ;
|
||||
TAG: language entity-property
|
||||
children>string >>language ;
|
||||
TAG: script entity-property
|
||||
children>string >>script ;
|
||||
|
||||
TAG: status entity-property
|
||||
children>string string>word >>status ;
|
||||
TAG: quality entity-property
|
||||
children>string string>word >>quality ;
|
||||
TAG: text-representation entity-property
|
||||
children-tags text-representation new [ entity-property ] reduce
|
||||
>>text-representation ;
|
||||
TAG: barcode entity-property
|
||||
children>string >>barcode ;
|
||||
|
||||
TAG: artwork entity-property
|
||||
children>string string>boolean >>artwork? ;
|
||||
TAG: count entity-property
|
||||
children>string string>number >>count ;
|
||||
TAG: front entity-property
|
||||
children>string string>boolean >>front? ;
|
||||
TAG: back entity-property
|
||||
children>string string>boolean >>back? ;
|
||||
TAG: cover-art-archive entity-property
|
||||
children-tags cover-art-archive new [ entity-property ] reduce
|
||||
>>cover-art-archive ;
|
||||
|
||||
TAG: release-event-list entity-property
|
||||
children-tags [ mb-entity ] map >array >>release-events ;
|
||||
|
||||
TAG: date entity-property
|
||||
children>string string>timestamp >>date ;
|
||||
|
||||
TAG: life-span entity-property
|
||||
children-tags life-span new [ entity-property ] reduce
|
||||
>>life-span ;
|
||||
|
||||
TAG: ended entity-property
|
||||
children>string string>boolean >>ended? ;
|
||||
|
||||
TAG: position entity-property
|
||||
children>string string>number >>position ;
|
||||
TAG: length entity-property
|
||||
children>string string>number >>length ;
|
||||
TAG: number entity-property
|
||||
children>string string>number >>number ;
|
||||
TAG: format entity-property
|
||||
children>string >>format ;
|
||||
TAG: editor entity-property
|
||||
children>string >>editor ;
|
||||
|
||||
TAG: track mb-entity
|
||||
[ children-tags track new [ entity-property ] reduce ]
|
||||
[ attrs>> "id" of ] bi
|
||||
>>mbid ;
|
||||
|
||||
! TODO: turn this into an mb-entity
|
||||
TAG: alias-list entity-property
|
||||
children-tags
|
||||
[
|
||||
[ children>string ]
|
||||
[
|
||||
attrs>>
|
||||
[ "sort-name" of ]
|
||||
[ "type" of >lower " " split "-" join string>word ]
|
||||
[ "locale" of ] tri
|
||||
] bi
|
||||
alias boa
|
||||
] map >array >>aliases ;
|
||||
|
||||
TAG: area entity-property
|
||||
[ children-tags area new [ entity-property ] reduce ]
|
||||
[ attrs>> [ "id" of ] [ "type" of string>word ] bi ] bi
|
||||
[ >>mbid ] dip >>type >>area ;
|
||||
|
||||
TAG: begin-area entity-property
|
||||
[ children-tags area new [ entity-property ] reduce ]
|
||||
[ attrs>> [ "id" of ] [ "type" of string>word ] bi ] bi
|
||||
[ >>mbid ] dip >>type >>begin-area ;
|
||||
|
||||
TAG: release-list mb-entity
|
||||
children-tags [ mb-entity ] map >array ;
|
||||
TAG: release-list entity-property
|
||||
children-tags [ mb-entity ] map >array >>releases ;
|
||||
|
||||
TAG: asin entity-property
|
||||
children>string >>asin ;
|
||||
|
||||
TAG: artist mb-entity
|
||||
[ children-tags artist new [ entity-property ] reduce ]
|
||||
[ attrs>> [ "id" of ] [ "type" of string>word ] bi ] bi
|
||||
[ >>mbid ] dip >>type ;
|
||||
|
||||
TAG: release-event mb-entity
|
||||
children-tags release-event new [ entity-property ] reduce ;
|
||||
|
||||
TAG: release mb-entity
|
||||
[ children-tags release new [ entity-property ] reduce ]
|
||||
[ attrs>> "id" of ] bi >>mbid ;
|
||||
|
||||
TAG: collection mb-entity
|
||||
[ children-tags collection new [ entity-property ] reduce ]
|
||||
[ attrs>> "id" of ] bi >>mbid ;
|
||||
|
||||
TAG: collection-list mb-entity
|
||||
children-tags [ mb-entity ] map >array ;
|
||||
|
||||
TAG: medium-list entity-property
|
||||
children-tags [ mb-entity ] map >array >>mediums ;
|
||||
|
||||
TAG: track-list entity-property
|
||||
children-tags [ mb-entity ] map >array >>tracks ;
|
||||
|
||||
TAG: medium mb-entity
|
||||
children-tags medium new [ entity-property ] reduce ;
|
||||
|
||||
TAG: artist-credit entity-property
|
||||
"artist" deep-tag-named mb-entity >>artist ;
|
||||
|
||||
TAG: label-info-list entity-property
|
||||
children-tags [ mb-entity ] map >array >>label-info ;
|
||||
|
||||
TAG: label-info mb-entity
|
||||
first-child-tag
|
||||
[ children-tags label new [ entity-property ] reduce ]
|
||||
[ attrs>> [ "id" of ] [ "type" of ] bi ] bi
|
||||
[ >>mbid ] dip >>type ;
|
||||
|
||||
TAG: recording entity-property
|
||||
[ children-tags recording new [ entity-property ] reduce ]
|
||||
[ attrs>> "id" of ] bi >>mbid >>recording ;
|
||||
|
||||
: parse-mb-response ( str -- entity )
|
||||
string>xml first-child-tag mb-entity ;
|
||||
|
|
@ -0,0 +1 @@
|
|||
musicbrainz api
|
||||
|
|
@ -0,0 +1 @@
|
|||
musicbrainz music metadata
|
||||
Loading…
Reference in New Issue