From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/18380
Path: main.gmane.org!not-for-mail
From: Matt Simmons <simmonmt@acm.org>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: all you MP3 people out there... a fix for lars!
Date: 04 Nov 1998 00:08:24 -800
Sender: owner-ding@hpc.uh.edu
Message-ID: <yfqk91bev7r.fsf@acm.org>
References: <86vhl48scz.fsf@kramer-fast.bp.aventail.com> <x7r9vsjpe1.fsf@des.castles.com> <87g1c7o795.fsf@perv.daft.com> <sdbtmvfdy1.fsf@oakdale.ucdavis.edu> <8iww5j3x6e.fsf@broca.biostr.washington.edu> <86d87a58uo.fsf@kramer-fast.bp.aventail.com> <86zpad53al.fsf@kramer-fast.bp.aventail.com>
Reply-To: simmonmt@acm.org
NNTP-Posting-Host: coloc-standby.netfonds.no
X-Trace: main.gmane.org 1035156914 5865 80.91.224.250 (20 Oct 2002 23:35:14 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 20 Oct 2002 23:35:14 +0000 (UTC)
Cc: simmonmt@eng.sun.com
Return-Path: <owner-ding@hpc.uh.edu>
Original-Received: from fisher.math.uh.edu (fisher.math.uh.edu [129.7.128.35])
	by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id DAA11134
	for <jason@mailhost.sclp.com>; Wed, 4 Nov 1998 03:09:42 -0500 (EST)
Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5])
	by fisher.math.uh.edu (8.9.1/8.9.1) with ESMTP id CAB29310;
	Wed, 4 Nov 1998 02:08:56 -0600 (CST)
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Wed, 04 Nov 1998 02:08:47 -0600 (CST)
Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [209.195.19.139]) by sina.hpc.uh.edu (8.7.3/8.7.3) with ESMTP id CAA15745 for <ding@hpc.uh.edu>; Wed, 4 Nov 1998 02:08:36 -0600 (CST)
Original-Received: from auckland.aotearoa.dom (ali-ca12-26.ix.netcom.com [209.110.226.218])
	by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id DAA11093
	for <ding@gnus.org>; Wed, 4 Nov 1998 03:08:32 -0500 (EST)
Original-Received: (from simmonmt@localhost)
	by auckland.aotearoa.dom (8.9.0/8.9.0) id AAA04897;
	Wed, 4 Nov 1998 00:08:25 -0800 (PST)
Original-To: ding@gnus.org
X-URL: http://www.netcom.com/~simmonmt
X-Face: %&o"uzz{MF+m`-UdwIgi{)#6b&xg,`)*1XK8S}sBj%PF]t>dPiYe5pNS{@%ju[rxPJv
        |U'R`Xj^1|I|s`,g4r/!HPiu2jX;T1<=~X5DoJVdaK&SV`#j9`#52ZZu<>+NBvBW4fJ
        jf,SiM[<AkCuc<u.)O_G#+`%iW]:pl#Zn!7&2;eSiV_?<
In-Reply-To: wmperry@aventail.com's message of "30 Oct 1998 13:10:26 -0500"
Original-Lines: 87
User-Agent: Gnus/5.07004 (Pterodactyl Gnus v0.40) XEmacs/21.0 (Norwegian)
Precedence: list
X-Majordomo: 1.94.jlt7
Xref: main.gmane.org gmane.emacs.gnus.general:18380
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:18380

Could you add this diff to cddb.el?  It adds support for galette, a
CDDA ripper for Solaris.

I've been trying to use socks.el, and I keep running into the
`Connection not allowed by ruleset' message.  What does it mean?  Is
it something on my end, or is it something in the proxy?

Matt

--- cddb/cddb.el	Tue Nov  3 23:48:36 1998
+++ cddb.el	Tue Nov  3 23:49:29 1998
@@ -34,6 +34,9 @@
 (defvar cddb-cdda2wav-program "cdda2wav"
   "*Where to find the cdda2wav program.")
 
+(defvar cddb-galette-program "galette"
+  "*where to find the galette program.")
+
 (defvar cddb-cdda2wav-arguments '("-N" "-t" "1" "-d" "1")
   "*Arguments to pass to cdda2wav to get CD track information.")
 
@@ -58,7 +61,8 @@
 
 (defvar cddb-possible-probe-programs
   '((cddb-cdparanoia-program . cddb-cdparanoia-get-info)
-    (cddb-cdda2wav-program . cddb-cdda2wav-get-info))
+    (cddb-cdda2wav-program . cddb-cdda2wav-get-info)
+    (cddb-galette-program . cddb-galette-get-info))
   "*Possible programs to probe for CD characteristics.
 This is used if you have not explicitly set `cddb-cd-query-function'.
 
@@ -118,6 +122,49 @@
 	    tracks
 	    length
 	    track-info))))
+
+(defun cddb-galette-get-info (&optional device)
+  "Extract information about a CD using galette.
+Returns a list (DISKCD TRACKS LENGTH TRACKINFO)
+
+DISCID - the CDDB discid of the cd
+TRACKS - the # of tracks on the cd
+LENGTH - the total running time of the cd (in seconds)
+TRACKINFO - a list of the frame offsets of each track
+"
+
+  (save-excursion
+    (set-buffer (get-buffer-create " *galette*"))
+    (erase-buffer)
+    (let ((exit-status (if device
+			   (call-process cddb-galette-program nil t nil "-d" device "-i")
+			 (call-process cddb-galette-program nil t nil "-i")))
+	  (track-info nil)
+	  (length 0)
+	  (num-tracks 0)
+	  (discid nil))
+      (if (/= exit-status 0)
+	  (error "Could not execute `%s'" cddb-galette-program))
+      (goto-char (point-min))
+      
+      ;; Get the frame offsets
+      (while (re-search-forward "^CDROM: |\\s *[0-9]+ | AUDIO |\\s *\\([0-9]+\\) |" nil t)
+	(push (string-to-int (match-string 1)) track-info)
+	(setq num-tracks (1+ num-tracks)))
+      (setq track-info (reverse track-info))
+      
+      ;; Get the disk length.  Easier to divide frames by 75 than to parse
+      ;; mm:ss, so grab the frames
+      (re-search-forward "^CDROM: | TOTAL |\\s +|\\s *\\([0-9]+\\) |" nil t)
+      (setq length (/ (string-to-int (match-string 1)) 75))
+
+      (message (match-string 1))
+      
+      ;; Get the disk ID
+      (re-search-forward "^CDROM: disk id = \\([a-f0-9]+\\)" nil t)
+      (setq discid (match-string 1))
+
+      (list discid num-tracks length track-info))))
 
 (defun cddb-cdda2wav-get-info (&optional device)
   "Extractinformation about a cd using cdda2wav.


-- 
     Matt Simmons  -  simmonmt@acm.org  -  http://www.netcom.com/~simmonmt
      Always take time to stop and smell the roses... and sooner or later,
			      you'll inhale a bee.