File: [local] / src / usr.bin / cdio / cdio.c (download)
Revision 1.41, Sat Dec 31 19:51:15 2005 UTC (18 years, 5 months ago) by krw
Branch: MAIN
Changes since 1.40: +19 -18 lines
CDIOCREADTOCENTRYS adjusts lba information into host order, so there
is no need to to ntohl() on it again. CDIOCREADSUBCHANNEL does not
put lba info into host order so just change that to a betoh32().
Noted by Juha Erkkila in PR #4957.
ok pedro@
|
/* $OpenBSD: cdio.c,v 1.41 2005/12/31 19:51:15 krw Exp $ */
/* Copyright (c) 1995 Serge V. Vakulenko
* All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
*
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
* 3. All advertising materials mentioning features or use of this software
* must display the following acknowledgement:
* This product includes software developed by Serge V. Vakulenko.
* 4. The name of the author may not be used to endorse or promote products
* derived from this software without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
* IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
* OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
* IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
* INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
* NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
* DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
* THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
* THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*/
/*
* Compact Disc Control Utility by Serge V. Vakulenko <vak@cronyx.ru>.
* Based on the non-X based CD player by Jean-Marc Zucconi and
* Andrey A. Chernov.
*
* Fixed and further modified on 5-Sep-1995 by Jukka Ukkonen <jau@funet.fi>.
*
* 11-Sep-1995: Jukka A. Ukkonen <jau@funet.fi>
* A couple of further fixes to my own earlier "fixes".
*
* 18-Sep-1995: Jukka A. Ukkonen <jau@funet.fi>
* Added an ability to specify addresses relative to the
* beginning of a track. This is in fact a variation of
* doing the simple play_msf() call.
*
* 11-Oct-1995: Serge V.Vakulenko <vak@cronyx.ru>
* New eject algorithm.
* Some code style reformatting.
*
* $FreeBSD: cdcontrol.c,v 1.13 1996/06/25 21:01:27 ache Exp $
*/
#include <sys/param.h>
#include <sys/file.h>
#include <sys/cdio.h>
#include <sys/ioctl.h>
#include <ctype.h>
#include <err.h>
#include <errno.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include <histedit.h>
#include <util.h>
#include <vis.h>
#include "extern.h"
#define ASTS_INVALID 0x00 /* Audio status byte not valid */
#define ASTS_PLAYING 0x11 /* Audio play operation in progress */
#define ASTS_PAUSED 0x12 /* Audio play operation paused */
#define ASTS_COMPLETED 0x13 /* Audio play operation successfully completed */
#define ASTS_ERROR 0x14 /* Audio play operation stopped due to error */
#define ASTS_VOID 0x15 /* No current audio status to return */
#ifndef DEFAULT_CD_DRIVE
# define DEFAULT_CD_DRIVE "cd0"
#endif
#define CMD_DEBUG 1
#define CMD_DEVICE 2
#define CMD_EJECT 3
#define CMD_HELP 4
#define CMD_INFO 5
#define CMD_PAUSE 6
#define CMD_PLAY 7
#define CMD_QUIT 8
#define CMD_RESUME 9
#define CMD_STOP 10
#define CMD_VOLUME 11
#define CMD_CLOSE 12
#define CMD_RESET 13
#define CMD_SET 14
#define CMD_STATUS 15
#define CMD_NEXT 16
#define CMD_PREV 17
#define CMD_REPLAY 18
#define CMD_CDDB 19
#define CMD_CDID 20
struct cmdtab {
int command;
char *name;
unsigned int min;
char *args;
} cmdtab[] = {
{ CMD_CLOSE, "close", 1, "" },
{ CMD_DEBUG, "debug", 3, "on | off" },
{ CMD_DEVICE, "device", 1, "devname" },
{ CMD_EJECT, "eject", 1, "" },
{ CMD_HELP, "?", 1, 0 },
{ CMD_HELP, "help", 1, "" },
{ CMD_INFO, "info", 1, "" },
{ CMD_NEXT, "next", 1, "" },
{ CMD_PAUSE, "pause", 2, "" },
{ CMD_PLAY, "play", 1, "min1:sec1[.fram1] [min2:sec2[.fram2]]" },
{ CMD_PLAY, "play", 1, "track1[.index1] [track2[.index2]]" },
{ CMD_PLAY, "play", 1, "tr1 m1:s1[.f1] [[tr2] [m2:s2[.f2]]]" },
{ CMD_PLAY, "play", 1, "[#block [len]]" },
{ CMD_PREV, "previous", 2, "" },
{ CMD_QUIT, "quit", 1, "" },
{ CMD_RESET, "reset", 4, "" },
{ CMD_RESUME, "resume", 1, "" },
{ CMD_REPLAY, "replay", 3, "" },
{ CMD_SET, "set", 2, "msf | lba" },
{ CMD_STATUS, "status", 1, "" },
{ CMD_STOP, "stop", 3, "" },
{ CMD_VOLUME, "volume", 1, "<l> <r> | left | right | mute | mono | stereo" },
{ CMD_CDDB, "cddbinfo", 2, "[n]" },
{ CMD_CDID, "cdid", 3, "" },
{ CMD_QUIT, "exit", 2, "" },
{ 0, 0, 0, 0}
};
struct cd_toc_entry *toc_buffer;
char *cdname;
int fd = -1;
int verbose = 1;
int msf = 1;
const char *cddb_host;
char **track_names;
EditLine *el = NULL; /* line-editing structure */
History *hist = NULL; /* line-editing history */
void switch_el(void);
extern char *__progname;
int setvol(int, int);
int read_toc_entrys(int);
int play_msf(int, int, int, int, int, int);
int play_track(int, int, int, int);
int get_vol(int *, int *);
int status(int *, int *, int *, int *);
int open_cd(char *);
int play(char *arg);
int info(char *arg);
int cddbinfo(char *arg);
int pstatus(char *arg);
int play_next(char *arg);
int play_prev(char *arg);
int play_same(char *arg);
char *input(int *);
char *prompt(void);
void prtrack(struct cd_toc_entry *e, int lastflag, char *name);
void lba2msf(unsigned long lba, u_char *m, u_char *s, u_char *f);
unsigned int msf2lba(u_char m, u_char s, u_char f);
int play_blocks(int blk, int len);
int run(int cmd, char *arg);
char *parse(char *buf, int *cmd);
void help(void);
void usage(void);
char *strstatus(int);
int cdid(void);
void
help(void)
{
struct cmdtab *c;
char *s, n;
int i;
for (c=cmdtab; c->name; ++c) {
if (! c->args)
continue;
printf("\t");
for (i = c->min, s = c->name; *s; s++, i--) {
if (i > 0)
n = toupper(*s);
else
n = *s;
putchar(n);
}
if (*c->args)
printf(" %s", c->args);
printf("\n");
}
printf("\n\tThe word \"play\" is not required for the play commands.\n");
printf("\tThe plain target address is taken as a synonym for play.\n");
}
void
usage(void)
{
fprintf(stderr, "usage: %s [-sv] [-d host:port] [-f device] [command args ...]\n",
__progname);
exit(1);
}
int
main(int argc, char **argv)
{
int ch, cmd;
char *arg;
cdname = getenv("DISC");
if (! cdname)
cdname = getenv("CDROM");
cddb_host = getenv("CDDB");
if (!cddb_host)
cddb_host = "freedb.freedb.org";
while ((ch = getopt(argc, argv, "svd:f:")) != -1)
switch (ch) {
case 's':
verbose = 0;
break;
case 'v':
verbose = 2;
break;
case 'f':
cdname = optarg;
break;
case 'd':
cddb_host = optarg;
break;
default:
usage();
}
argc -= optind;
argv += optind;
if (argc > 0 && ! strcasecmp(*argv, "help"))
usage();
if (! cdname) {
cdname = DEFAULT_CD_DRIVE;
fprintf(stderr,
"No CD device name specified. Defaulting to %s.\n", cdname);
}
if (argc > 0) {
char buf[80], *p;
int len;
for (p=buf; argc-->0; ++argv) {
len = snprintf(p, buf + sizeof buf - p,
"%s%s", (p > buf) ? " " : "", *argv);
if (len == -1 || len >= buf + sizeof buf - p)
errx(1, "argument list too long.");
p += len;
}
arg = parse(buf, &cmd);
return (run(cmd, arg));
}
if (verbose == 1)
verbose = isatty(0);
if (verbose) {
printf("Compact Disc Control utility, version %s\n", VERSION);
printf("Type `?' for command list\n\n");
}
switch_el();
for (;;) {
arg = input(&cmd);
if (run(cmd, arg) < 0) {
if (verbose)
warn(NULL);
close(fd);
fd = -1;
}
fflush(stdout);
}
}
int
run(int cmd, char *arg)
{
int l, r, rc;
static char newcdname[MAXPATHLEN];
switch (cmd) {
case CMD_QUIT:
switch_el();
exit(0);
case CMD_INFO:
if (fd < 0 && ! open_cd(cdname))
return (0);
return info(arg);
case CMD_CDDB:
if (fd < 0 && ! open_cd(cdname))
return (0);
return cddbinfo(arg);
case CMD_CDID:
if (fd < 0 && ! open_cd(cdname))
return (0);
return cdid();
case CMD_STATUS:
if (fd < 0 && ! open_cd(cdname))
return (0);
return pstatus(arg);
case CMD_PAUSE:
if (fd < 0 && ! open_cd(cdname))
return (0);
return ioctl(fd, CDIOCPAUSE);
case CMD_RESUME:
if (fd < 0 && ! open_cd(cdname))
return (0);
return ioctl(fd, CDIOCRESUME);
case CMD_STOP:
if (fd < 0 && ! open_cd(cdname))
return (0);
rc = ioctl(fd, CDIOCSTOP);
(void) ioctl(fd, CDIOCALLOW);
return (rc);
case CMD_RESET:
if (fd < 0 && ! open_cd(cdname))
return (0);
rc = ioctl(fd, CDIOCRESET);
if (rc < 0)
return rc;
close(fd);
fd = -1;
return (0);
case CMD_DEBUG:
if (fd < 0 && ! open_cd(cdname))
return (0);
if (! strcasecmp(arg, "on"))
return ioctl(fd, CDIOCSETDEBUG);
if (! strcasecmp(arg, "off"))
return ioctl(fd, CDIOCCLRDEBUG);
printf("%s: Invalid command arguments\n", __progname);
return (0);
case CMD_DEVICE:
/* close old device */
if (fd > -1) {
(void) ioctl(fd, CDIOCALLOW);
close(fd);
fd = -1;
}
if (strlen(arg) == 0) {
printf("%s: Invalid parameter\n", __progname);
return (0);
}
/* open new device */
if (!open_cd(arg))
return (0);
(void) strlcpy(newcdname, arg, sizeof(newcdname));
cdname = newcdname;
return (1);
case CMD_EJECT:
if (fd < 0 && ! open_cd(cdname))
return (0);
(void) ioctl(fd, CDIOCALLOW);
rc = ioctl(fd, CDIOCEJECT);
if (rc < 0)
return (rc);
#if defined(__OpenBSD__)
close(fd);
fd = -1;
#endif
if (track_names)
free_names(track_names);
track_names = NULL;
return (0);
case CMD_CLOSE:
#if defined(CDIOCCLOSE)
if (fd < 0 && ! open_cd(cdname))
return (0);
(void) ioctl(fd, CDIOCALLOW);
rc = ioctl(fd, CDIOCCLOSE);
if (rc < 0)
return (rc);
close(fd);
fd = -1;
return (0);
#else
printf("%s: Command not yet supported\n", __progname);
return (0);
#endif
case CMD_PLAY:
if (fd < 0 && ! open_cd(cdname))
return (0);
while (isspace(*arg))
arg++;
return play(arg);
case CMD_SET:
if (!strcasecmp(arg, "msf"))
msf = 1;
else if (!strcasecmp(arg, "lba"))
msf = 0;
else
printf("%s: Invalid command arguments\n", __progname);
return (0);
case CMD_VOLUME:
if (fd < 0 && !open_cd(cdname))
return (0);
if (!strncasecmp(arg, "left", strlen(arg)))
return ioctl(fd, CDIOCSETLEFT);
if (!strncasecmp(arg, "right", strlen(arg)))
return ioctl(fd, CDIOCSETRIGHT);
if (!strncasecmp(arg, "mono", strlen(arg)))
return ioctl(fd, CDIOCSETMONO);
if (!strncasecmp(arg, "stereo", strlen(arg)))
return ioctl(fd, CDIOCSETSTEREO);
if (!strncasecmp(arg, "mute", strlen(arg)))
return ioctl(fd, CDIOCSETMUTE);
if (2 != sscanf(arg, "%d %d", &l, &r)) {
printf("%s: Invalid command arguments\n", __progname);
return (0);
}
return setvol(l, r);
case CMD_NEXT:
if (fd < 0 && ! open_cd(cdname))
return (0);
return play_next(arg);
case CMD_PREV:
if (fd < 0 && ! open_cd(cdname))
return (0);
return play_prev(arg);
case CMD_REPLAY:
if (fd < 0 && ! open_cd(cdname))
return 0;
return play_same(arg);
default:
case CMD_HELP:
help();
return (0);
}
}
int
play(char *arg)
{
struct ioc_toc_header h;
int rc, n, start, end = 0, istart = 1, iend = 1;
rc = ioctl(fd, CDIOREADTOCHEADER, &h);
if (rc < 0)
return (rc);
n = h.ending_track - h.starting_track + 1;
rc = read_toc_entrys((n + 1) * sizeof (struct cd_toc_entry));
if (rc < 0)
return (rc);
if (! arg || ! *arg) {
/* Play the whole disc */
return (play_track(h.starting_track, 1,
h.ending_track, 1));
}
if (strchr(arg, '#')) {
/* Play block #blk [ len ] */
int blk, len = 0;
if (2 != sscanf(arg, "#%d%d", &blk, &len) &&
1 != sscanf(arg, "#%d", &blk))
goto Clean_up;
if (len == 0) {
if (msf)
len = msf2lba(toc_buffer[n].addr.msf.minute,
toc_buffer[n].addr.msf.second,
toc_buffer[n].addr.msf.frame) - blk;
else
len = toc_buffer[n].addr.lba - blk;
}
return play_blocks(blk, len);
}
if (strchr(arg, ':')) {
/*
* Play MSF m1:s1 [ .f1 ] [ m2:s2 [ .f2 ] ]
*
* Will now also undestand timed addresses relative
* to the beginning of a track in the form...
*
* tr1 m1:s1[.f1] [[tr2] [m2:s2[.f2]]]
*/
int tr1, tr2;
unsigned int m1, m2, s1, s2, f1, f2;
unsigned char tm, ts, tf;
tr2 = m2 = s2 = f2 = f1 = 0;
if (8 == sscanf(arg, "%d %u:%u.%u %d %u:%u.%u",
&tr1, &m1, &s1, &f1, &tr2, &m2, &s2, &f2))
goto Play_Relative_Addresses;
tr2 = m2 = s2 = f2 = f1 = 0;
if (7 == sscanf(arg, "%d %u:%u %d %u:%u.%u",
&tr1, &m1, &s1, &tr2, &m2, &s2, &f2))
goto Play_Relative_Addresses;
tr2 = m2 = s2 = f2 = f1 = 0;
if (7 == sscanf(arg, "%d %u:%u.%u %d %u:%u",
&tr1, &m1, &s1, &f1, &tr2, &m2, &s2))
goto Play_Relative_Addresses;
tr2 = m2 = s2 = f2 = f1 = 0;
if (7 == sscanf(arg, "%d %u:%u.%u %u:%u.%u",
&tr1, &m1, &s1, &f1, &m2, &s2, &f2))
goto Play_Relative_Addresses;
tr2 = m2 = s2 = f2 = f1 = 0;
if (6 == sscanf(arg, "%d %u:%u.%u %u:%u",
&tr1, &m1, &s1, &f1, &m2, &s2))
goto Play_Relative_Addresses;
tr2 = m2 = s2 = f2 = f1 = 0;
if (6 == sscanf(arg, "%d %u:%u %u:%u.%u",
&tr1, &m1, &s1, &m2, &s2, &f2))
goto Play_Relative_Addresses;
tr2 = m2 = s2 = f2 = f1 = 0;
if (6 == sscanf(arg, "%d %u:%u.%u %d %u",
&tr1, &m1, &s1, &f1, &tr2, &m2))
goto Play_Relative_Addresses;
tr2 = m2 = s2 = f2 = f1 = 0;
if (5 == sscanf(arg, "%d %u:%u %u:%u", &tr1, &m1, &s1, &m2, &s2))
goto Play_Relative_Addresses;
tr2 = m2 = s2 = f2 = f1 = 0;
if (5 == sscanf(arg, "%d %u:%u %d %u",
&tr1, &m1, &s1, &tr2, &m2))
goto Play_Relative_Addresses;
tr2 = m2 = s2 = f2 = f1 = 0;
if (5 == sscanf(arg, "%d %u:%u.%u %d",
&tr1, &m1, &s1, &f1, &tr2))
goto Play_Relative_Addresses;
tr2 = m2 = s2 = f2 = f1 = 0;
if (4 == sscanf(arg, "%d %u:%u %u", &tr1, &m1, &s1, &tr2))
goto Play_Relative_Addresses;
tr2 = m2 = s2 = f2 = f1 = 0;
if (4 == sscanf(arg, "%d %u:%u.%u", &tr1, &m1, &s1, &f1))
goto Play_Relative_Addresses;
tr2 = m2 = s2 = f2 = f1 = 0;
if (3 == sscanf(arg, "%d %u:%u", &tr1, &m1, &s1))
goto Play_Relative_Addresses;
tr2 = m2 = s2 = f2 = f1 = 0;
goto Try_Absolute_Timed_Addresses;
Play_Relative_Addresses:
if (tr1 <= 0)
tr1 = 1;
else if (tr1 > n)
tr1 = n;
if (msf) {
tm = toc_buffer[tr1].addr.msf.minute;
ts = toc_buffer[tr1].addr.msf.second;
tf = toc_buffer[tr1].addr.msf.frame;
} else
lba2msf(toc_buffer[tr1].addr.lba, &tm, &ts, &tf);
if ((m1 > tm)
|| ((m1 == tm)
&& ((s1 > ts)
|| ((s1 == ts)
&& (f1 > tf))))) {
printf("Track %d is not that long.\n", tr1);
return (0);
}
tr1--;
f1 += tf;
if (f1 >= 75) {
s1 += f1 / 75;
f1 %= 75;
}
s1 += ts;
if (s1 >= 60) {
m1 += s1 / 60;
s1 %= 60;
}
m1 += tm;
if (tr2 <= 0) {
if (m2 || s2 || f2) {
tr2 = tr1;
f2 += f1;
if (f2 >= 75) {
s2 += f2 / 75;
f2 %= 75;
}
s2 += s1;
if (s2 > 60) {
m2 += s2 / 60;
s2 %= 60;
}
m2 += m1;
} else {
tr2 = n;
if (msf) {
m2 = toc_buffer[n].addr.msf.minute;
s2 = toc_buffer[n].addr.msf.second;
f2 = toc_buffer[n].addr.msf.frame;
} else {
lba2msf(toc_buffer[n].addr.lba, &tm,
&ts, &tf);
m2 = tm;
s2 = ts;
f2 = tf;
}
}
} else if (tr2 > n) {
tr2 = n;
m2 = s2 = f2 = 0;
} else {
if (m2 || s2 || f2)
tr2--;
if (msf) {
tm = toc_buffer[tr2].addr.msf.minute;
ts = toc_buffer[tr2].addr.msf.second;
tf = toc_buffer[tr2].addr.msf.frame;
} else
lba2msf(toc_buffer[tr2].addr.lba, &tm, &ts,
&tf);
f2 += tf;
if (f2 >= 75) {
s2 += f2 / 75;
f2 %= 75;
}
s2 += ts;
if (s2 > 60) {
m2 += s2 / 60;
s2 %= 60;
}
m2 += tm;
}
if (msf) {
tm = toc_buffer[n].addr.msf.minute;
ts = toc_buffer[n].addr.msf.second;
tf = toc_buffer[n].addr.msf.frame;
} else
lba2msf(toc_buffer[n].addr.lba, &tm, &ts, &tf);
if ((tr2 < n)
&& ((m2 > tm)
|| ((m2 == tm)
&& ((s2 > ts)
|| ((s2 == ts)
&& (f2 > tf)))))) {
printf("The playing time of the disc is not that long.\n");
return (0);
}
return (play_msf(m1, s1, f1, m2, s2, f2));
Try_Absolute_Timed_Addresses:
if (6 != sscanf(arg, "%u:%u.%u%u:%u.%u",
&m1, &s1, &f1, &m2, &s2, &f2) &&
5 != sscanf(arg, "%u:%u.%u%u:%u", &m1, &s1, &f1, &m2, &s2) &&
5 != sscanf(arg, "%u:%u%u:%u.%u", &m1, &s1, &m2, &s2, &f2) &&
3 != sscanf(arg, "%u:%u.%u", &m1, &s1, &f1) &&
4 != sscanf(arg, "%u:%u%u:%u", &m1, &s1, &m2, &s2) &&
2 != sscanf(arg, "%u:%u", &m1, &s1))
goto Clean_up;
if (m2 == 0) {
if (msf) {
m2 = toc_buffer[n].addr.msf.minute;
s2 = toc_buffer[n].addr.msf.second;
f2 = toc_buffer[n].addr.msf.frame;
} else {
lba2msf(toc_buffer[n].addr.lba, &tm, &ts, &tf);
m2 = tm;
s2 = ts;
f2 = tf;
}
}
return play_msf(m1, s1, f1, m2, s2, f2);
}
/*
* Play track trk1 [ .idx1 ] [ trk2 [ .idx2 ] ]
*/
if (4 != sscanf(arg, "%d.%d%d.%d", &start, &istart, &end, &iend) &&
3 != sscanf(arg, "%d.%d%d", &start, &istart, &end) &&
3 != sscanf(arg, "%d%d.%d", &start, &end, &iend) &&
2 != sscanf(arg, "%d.%d", &start, &istart) &&
2 != sscanf(arg, "%d%d", &start, &end) &&
1 != sscanf(arg, "%d", &start))
goto Clean_up;
if (end == 0)
end = h.ending_track;
return (play_track(start, istart, end, iend));
Clean_up:
printf("%s: Invalid command arguments\n", __progname);
return (0);
}
/* ARGSUSED */
int
play_prev(char *arg)
{
int trk, min, sec, frm, rc;
struct ioc_toc_header h;
if (status(&trk, &min, &sec, &frm) >= 0) {
trk--;
rc = ioctl(fd, CDIOREADTOCHEADER, &h);
if (rc < 0) {
warn("getting toc header");
return (rc);
}
if (trk < h.starting_track)
return play_track(h.starting_track, 1,
h.ending_track + 1, 1);
return play_track(trk, 1, h.ending_track, 1);
}
return (0);
}
/* ARGSUSED */
int
play_same(char *arg)
{
int trk, min, sec, frm, rc;
struct ioc_toc_header h;
if (status (&trk, &min, &sec, &frm) >= 0) {
rc = ioctl(fd, CDIOREADTOCHEADER, &h);
if (rc < 0) {
warn("getting toc header");
return (rc);
}
return play_track(trk, 1, h.ending_track, 1);
}
return (0);
}
/* ARGSUSED */
int
play_next(char *arg)
{
int trk, min, sec, frm, rc;
struct ioc_toc_header h;
if (status(&trk, &min, &sec, &frm) >= 0) {
trk++;
rc = ioctl(fd, CDIOREADTOCHEADER, &h);
if (rc < 0) {
warn("getting toc header");
return (rc);
}
if (trk > h.ending_track) {
printf("%s: end of CD\n", __progname);
rc = ioctl(fd, CDIOCSTOP);
(void) ioctl(fd, CDIOCALLOW);
return (rc);
}
return play_track(trk, 1, h.ending_track, 1);
}
return (0);
}
char *
strstatus(int sts)
{
switch (sts) {
case ASTS_INVALID:
return ("invalid");
case ASTS_PLAYING:
return ("playing");
case ASTS_PAUSED:
return ("paused");
case ASTS_COMPLETED:
return ("completed");
case ASTS_ERROR:
return ("error");
case ASTS_VOID:
return ("void");
default:
return ("??");
}
}
/* ARGSUSED */
int
pstatus(char *arg)
{
struct ioc_vol v;
struct ioc_read_subchannel ss;
struct cd_sub_channel_info data;
int rc, trk, m, s, f;
char vis_catalog[1 + 4 * 15];
rc = status(&trk, &m, &s, &f);
if (rc >= 0) {
if (verbose) {
if (track_names)
printf("Audio status = %d<%s>, "
"current track = %d (%s)\n"
"\tcurrent position = %d:%02d.%02d\n",
rc, strstatus(rc), trk,
trk ? track_names[trk-1] : "", m, s, f);
else
printf("Audio status = %d<%s>, "
"current track = %d, "
"current position = %d:%02d.%02d\n",
rc, strstatus(rc), trk, m, s, f);
} else
printf("%d %d %d:%02d.%02d\n", rc, trk, m, s, f);
} else
printf("No current status info available\n");
bzero(&ss, sizeof (ss));
ss.data = &data;
ss.data_len = sizeof (data);
ss.address_format = msf ? CD_MSF_FORMAT : CD_LBA_FORMAT;
ss.data_format = CD_MEDIA_CATALOG;
rc = ioctl(fd, CDIOCREADSUBCHANNEL, (char *) &ss);
if (rc >= 0) {
printf("Media catalog is %sactive",
ss.data->what.media_catalog.mc_valid ? "": "in");
if (ss.data->what.media_catalog.mc_valid &&
ss.data->what.media_catalog.mc_number[0]) {
strvisx(vis_catalog,
(char *)ss.data->what.media_catalog.mc_number,
15, VIS_SAFE);
printf(", number \"%.15s\"", vis_catalog);
}
putchar('\n');
} else
printf("No media catalog info available\n");
rc = ioctl(fd, CDIOCGETVOL, &v);
if (rc >= 0) {
if (verbose)
printf("Left volume = %d, right volume = %d\n",
v.vol[0], v.vol[1]);
else
printf("%d %d\n", v.vol[0], v.vol[1]);
} else
printf("No volume level info available\n");
return(0);
}
int
cdid(void)
{
unsigned long id;
struct ioc_toc_header h;
int rc, n;
rc = ioctl(fd, CDIOREADTOCHEADER, &h);
if (rc == -1) {
warn("getting toc header");
return (rc);
}
n = h.ending_track - h.starting_track + 1;
rc = read_toc_entrys((n + 1) * sizeof (struct cd_toc_entry));
if (rc < 0)
return (rc);
id = cddb_discid(n, toc_buffer);
if (id) {
if (verbose)
printf("CDID=");
printf("%08lx\n", id);
}
return id ? 0 : 1;
}
/* ARGSUSED */
int
info(char *arg)
{
struct ioc_toc_header h;
int rc, i, n;
rc = ioctl(fd, CDIOREADTOCHEADER, &h);
if (rc >= 0) {
if (verbose)
printf("Starting track = %d, ending track = %d, TOC size = %d bytes\n",
h.starting_track, h.ending_track, h.len);
else
printf("%d %d %d\n", h.starting_track,
h.ending_track, h.len);
} else {
warn("getting toc header");
return (rc);
}
n = h.ending_track - h.starting_track + 1;
rc = read_toc_entrys((n + 1) * sizeof (struct cd_toc_entry));
if (rc < 0)
return (rc);
if (verbose) {
printf("track start duration block length type\n");
printf("-------------------------------------------------\n");
}
for (i = 0; i < n; i++) {
printf("%5d ", toc_buffer[i].track);
prtrack(toc_buffer + i, 0, NULL);
}
printf("%5d ", toc_buffer[n].track);
prtrack(toc_buffer + n, 1, NULL);
return (0);
}
int
cddbinfo(char *arg)
{
struct ioc_toc_header h;
int rc, i, n;
rc = ioctl(fd, CDIOREADTOCHEADER, &h);
if (rc == -1) {
warn("getting toc header");
return (rc);
}
n = h.ending_track - h.starting_track + 1;
rc = read_toc_entrys((n + 1) * sizeof (struct cd_toc_entry));
if (rc < 0)
return (rc);
if (track_names)
free_names(track_names);
track_names = NULL;
track_names = cddb(cddb_host, n, toc_buffer, arg);
if (!track_names)
return(0);
printf("-------------------------------------------------\n");
for (i = 0; i < n; i++) {
printf("%5d ", toc_buffer[i].track);
prtrack(toc_buffer + i, 0, track_names[i]);
}
printf("%5d ", toc_buffer[n].track);
prtrack(toc_buffer + n, 1, "");
return (0);
}
void
lba2msf(unsigned long lba, u_char *m, u_char *s, u_char *f)
{
lba += 150; /* block start offset */
lba &= 0xffffff; /* negative lbas use only 24 bits */
*m = lba / (60 * 75);
lba %= (60 * 75);
*s = lba / 75;
*f = lba % 75;
}
unsigned int
msf2lba(u_char m, u_char s, u_char f)
{
return (((m * 60) + s) * 75 + f) - 150;
}
unsigned long
entry2time(struct cd_toc_entry *e)
{
int block;
u_char m, s, f;
if (msf) {
return (e->addr.msf.minute * 60 + e->addr.msf.second);
} else {
block = e->addr.lba;
lba2msf(block, &m, &s, &f);
return (m*60+s);
}
}
unsigned long
entry2frames(struct cd_toc_entry *e)
{
int block;
unsigned char m, s, f;
if (msf) {
return e->addr.msf.frame + e->addr.msf.second * 75 +
e->addr.msf.minute * 60 * 75;
} else {
block = e->addr.lba;
lba2msf(block, &m, &s, &f);
return f + s * 75 + m * 60 * 75;
}
}
void
prtrack(struct cd_toc_entry *e, int lastflag, char *name)
{
int block, next, len;
u_char m, s, f;
if (msf) {
if (!name || lastflag)
/* Print track start */
printf("%2d:%02d.%02d ", e->addr.msf.minute,
e->addr.msf.second, e->addr.msf.frame);
block = msf2lba(e->addr.msf.minute, e->addr.msf.second,
e->addr.msf.frame);
} else {
block = e->addr.lba;
if (!name || lastflag) {
lba2msf(block, &m, &s, &f);
/* Print track start */
printf("%2d:%02d.%02d ", m, s, f);
}
}
if (lastflag) {
if (!name)
/* Last track -- print block */
printf(" - %6d - -\n", block);
else
printf("\n");
return;
}
if (msf)
next = msf2lba(e[1].addr.msf.minute, e[1].addr.msf.second,
e[1].addr.msf.frame);
else
next = e[1].addr.lba;
len = next - block;
lba2msf(len, &m, &s, &f);
if (name)
printf("%2d:%02d.%02d %s\n", m, s, f, name);
/* Print duration, block, length, type */
else
printf("%2d:%02d.%02d %6d %6d %5s\n", m, s, f, block, len,
(e->control & 4) ? "data" : "audio");
}
int
play_track(int tstart, int istart, int tend, int iend)
{
struct ioc_play_track t;
t.start_track = tstart;
t.start_index = istart;
t.end_track = tend;
t.end_index = iend;
return ioctl(fd, CDIOCPLAYTRACKS, &t);
}
int
play_blocks(int blk, int len)
{
struct ioc_play_blocks t;
t.blk = blk;
t.len = len;
return ioctl(fd, CDIOCPLAYBLOCKS, &t);
}
int
setvol(int left, int right)
{
struct ioc_vol v;
v.vol[0] = left;
v.vol[1] = right;
v.vol[2] = 0;
v.vol[3] = 0;
return ioctl(fd, CDIOCSETVOL, &v);
}
int
read_toc_entrys(int len)
{
struct ioc_read_toc_entry t;
if (toc_buffer) {
free(toc_buffer);
toc_buffer = 0;
}
toc_buffer = malloc(len);
if (!toc_buffer) {
errno = ENOMEM;
return (-1);
}
t.address_format = msf ? CD_MSF_FORMAT : CD_LBA_FORMAT;
t.starting_track = 0;
t.data_len = len;
t.data = toc_buffer;
return (ioctl(fd, CDIOREADTOCENTRYS, (char *) &t));
}
int
play_msf(int start_m, int start_s, int start_f, int end_m, int end_s, int end_f)
{
struct ioc_play_msf a;
a.start_m = start_m;
a.start_s = start_s;
a.start_f = start_f;
a.end_m = end_m;
a.end_s = end_s;
a.end_f = end_f;
return ioctl(fd, CDIOCPLAYMSF, (char *) &a);
}
int
status(int *trk, int *min, int *sec, int *frame)
{
struct ioc_read_subchannel s;
struct cd_sub_channel_info data;
u_char mm, ss, ff;
bzero(&s, sizeof (s));
s.data = &data;
s.data_len = sizeof (data);
s.address_format = msf ? CD_MSF_FORMAT : CD_LBA_FORMAT;
s.data_format = CD_CURRENT_POSITION;
if (ioctl(fd, CDIOCREADSUBCHANNEL, (char *) &s) < 0)
return -1;
*trk = s.data->what.position.track_number;
if (msf) {
*min = s.data->what.position.reladdr.msf.minute;
*sec = s.data->what.position.reladdr.msf.second;
*frame = s.data->what.position.reladdr.msf.frame;
} else {
/*
* NOTE: CDIOCREADSUBCHANNEL does not put the lba info into
* host order like CDIOREADTOCENTRYS does.
*/
lba2msf(betoh32(s.data->what.position.reladdr.lba), &mm, &ss,
&ff);
*min = mm;
*sec = ss;
*frame = ff;
}
return s.data->header.audio_status;
}
char *
input(int *cmd)
{
char *buf;
int siz = 0;
char *p;
HistEvent hev;
do {
if ((buf = (char *) el_gets(el, &siz)) == NULL || !siz) {
*cmd = CMD_QUIT;
fprintf(stderr, "\r\n");
return (0);
}
if (strlen(buf) > 1)
history(hist, &hev, H_ENTER, buf);
p = parse(buf, cmd);
} while (!p);
return (p);
}
char *
parse(char *buf, int *cmd)
{
struct cmdtab *c;
char *p;
int len;
for (p=buf; isspace(*p); p++)
continue;
if (isdigit(*p) || (p[0] == '#' && isdigit(p[1]))) {
*cmd = CMD_PLAY;
return (p);
}
for (buf = p; *p && ! isspace(*p); p++)
continue;
len = p - buf;
if (! len)
return (0);
if (*p) { /* It must be a spacing character! */
char *q;
*p++ = 0;
for (q=p; *q && *q != '\n' && *q != '\r'; q++)
continue;
*q = 0;
}
*cmd = -1;
for (c=cmdtab; c->name; ++c) {
/* Is it an exact match? */
if (! strcasecmp(buf, c->name)) {
*cmd = c->command;
break;
}
/* Try short hand forms then... */
if (len >= c->min && ! strncasecmp(buf, c->name, len)) {
if (*cmd != -1 && *cmd != c->command) {
fprintf(stderr, "Ambiguous command\n");
return (0);
}
*cmd = c->command;
}
}
if (*cmd == -1) {
fprintf(stderr, "%s: Invalid command, enter ``help'' for commands.\n",
__progname);
return (0);
}
while (isspace(*p))
p++;
return p;
}
int
open_cd(char *dev)
{
char *realdev;
int tries;
if (fd > -1)
return (1);
for (tries = 0; fd < 0 && tries < 10; tries++) {
fd = opendev(dev, O_RDONLY, OPENDEV_PART, &realdev);
if (fd < 0) {
if (errno == ENXIO) {
/* ENXIO has an overloaded meaning here.
* The original "Device not configured" should
* be interpreted as "No disc in drive %s". */
warnx("No disc in drive %s.", realdev);
return (0);
} else if (errno != EIO) {
/* EIO may simply mean the device is not ready
* yet which is common with CD changers. */
warn("Can't open %s", realdev);
return (0);
}
}
sleep(1);
}
if (fd < 0) {
warn("Can't open %s", realdev);
return (0);
}
return (1);
}
char *
prompt(void)
{
return (verbose ? "cdio> " : "");
}
void
switch_el(void)
{
HistEvent hev;
if (el == NULL && hist == NULL) {
el = el_init(__progname, stdin, stdout, stderr);
hist = history_init();
history(hist, &hev, H_SETSIZE, 100);
el_set(el, EL_HIST, history, hist);
el_set(el, EL_EDITOR, "emacs");
el_set(el, EL_PROMPT, prompt);
el_set(el, EL_SIGNAL, 1);
el_source(el, NULL);
} else {
if (hist != NULL) {
history_end(hist);
hist = NULL;
}
if (el != NULL) {
el_end(el);
el = NULL;
}
}
}
![[BACK]](/icons/back.gif){kind=icon}
Return to cdio.c CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [local] / src / usr.bin / cdio