#! /usr/bin/env zsh

# $Id$

# Copyright (c) 1998-2001 Robert Woodcock <rcw@debian.org>
# Copyright (c) 2003-2004 Jesus Climent <jesus.climent@hispalinux.es>
# Copyright (c) 2004 Eric Gillespie <epg@pretzelnet.org>
# This code is hereby licensed for public consumption under either the
# GNU GPL v2 or greater, or Larry Wall's Artistic license - your choice.

set -e

if [[ -z ${CDDBURL} ]]; then
    CDDBURL="http://freedb.freedb.org/~cddb/cddb.cgi"
fi

get_cddb_protocol () {
    for CDDBPROTO in 5 4 3; do
        if [[ \
            $(cddb-tool stat $CDDBURL $USER $HOST $CDDBPROTO \
            | sed 's/^\([0-9][0-9]*\).*/\1/;q') = '210' ]]; then
            return 0
        fi
    done

    echo "${CDDBURL} does not work"
    exit 2
}

handle_read=$(<<EOF
function rstrip_print(_s) {
    sub(/[[:space:]]*\$/, "", _s)
    print(_s)
}

BEGIN {
    FS="="
}

/^DTITLE=/ {
    split(\$2, a, /[[:blank:]]*\/[[:blank:]]*/)
    rstrip_print("ARTIST=" a[1])
    rstrip_print("ALBUM=" a[2])
}

/^DYEAR=/ {
    rstrip_print("DATE=" \$2)
}

/^TTITLE[[:digit:]]+/ {
    rstrip_print("TITLE=" \$2)
}
EOF
)

perl_handle_read=$(<<EOF
(\$tag, \$value) = split(/=/, \$_, 2);

if (/^DTITLE=/) {
    (\$artist, \$album) = split(/\\s*\\/\\s*/, \$value);
    print("ARTIST=\$artist\\n");
    print("ALBUM=\$album\\n");

} elsif (/^DYEAR=/) {
    print("DATE=\$value\\n");

} elsif (/^TTITLE\\d+/) {
    print("TITLE=\$value\\n");
}
EOF
)

handle_queries () {
    local F
    local i=1

    # First eat the status line.
    read F

    while read -A F; do
        [[ $F = '.' ]] && break
        cddb-tool read $CDDBURL $CDDBPROTO $USER $HOST $F[1] $F[2] \
            | nawk $handle_read > candidate-tags-$i
# XXX The awk script has at least one problem; since we can't split to
# exactly two components, we break on track names with equal signs.
# Use Perl instead:
#        cddb-tool read $CDDBURL $CDDBPROTO $USER $HOST $F[1] $F[2] \
#            | perl -lne $handle_read > candidate-tags-$i
        i=$(( $i + 1 ))
    done
}

get_cddb_protocol
(cddb-tool query $CDDBURL $CDDBPROTO $USER $HOST "$@" | handle_queries) &

cat > candidate-tags-0 <<EOF
ARTIST=
ALBUM=
DATE=
EOF
for i in $(jot $2 1); do
    echo 'TITLE=' >> candidate-tags-0
done