d/freebsd-dev
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
f247324df7
freebsd-dev/usr.sbin/cdcontrol/cdcontrol.c
Kris Kennaway 4dbed42f75 Add the 'next' and 'prev' commands (aliased to '+' and '-') which skip 
forward or backward by a specified number of tracks (defaulting to 1).
Use strvisx() to display the media catalog in case it contains unprintable
characters.  Sort includes.  Based on two patches submitted by PR, plus
style fixes and other changes of my own.

Submitted by:   Seth Kingsley <sethk@osd.bsdi.com>, Maxime Henrion <mux@qualys.com>
PR:             bin/22672, bin/26962
MFC After:      1 week
2001-05-25 09:24:50 +00:00

1239 lines
27 KiB
C
Raw Blame History

/*
* 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.
*/
#ifndef lint
static const char rcsid[] =
"$FreeBSD$";
#endif /* not lint */
#include <sys/cdio.h>
#include <sys/file.h>
#include <sys/ioctl.h>
#include <sys/param.h>
#include <ctype.h>
#include <err.h>
#include <errno.h>
#include <histedit.h>
#include <paths.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include <vis.h>
#define VERSION "2.0"
#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 "/dev/cd0c"
#endif
#ifndef DEFAULT_CD_PARTITION
# define DEFAULT_CD_PARTITION "c"
#endif
#define CMD_DEBUG 1
#define CMD_EJECT 2
#define CMD_HELP 3
#define CMD_INFO 4
#define CMD_PAUSE 5
#define CMD_PLAY 6
#define CMD_QUIT 7
#define CMD_RESUME 8
#define CMD_STOP 9
#define CMD_VOLUME 10
#define CMD_CLOSE 11
#define CMD_RESET 12
#define CMD_SET 13
#define CMD_STATUS 14
#define CMD_CDID 15
#define CMD_NEXT 16
#define CMD_PREVIOUS 17
#define STATUS_AUDIO 0x1
#define STATUS_MEDIA 0x2
#define STATUS_VOLUME 0x4
struct cmdtab {
int command;
char *name;
unsigned min;
char *args;
} cmdtab[] = {
{ CMD_CLOSE, "close", 1, "" },
{ CMD_DEBUG, "debug", 1, "on | off" },
{ 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_PREVIOUS, "previous", 2, "" },
{ CMD_QUIT, "quit", 1, "" },
{ CMD_RESET, "reset", 4, "" },
{ CMD_RESUME, "resume", 1, "" },
{ CMD_SET, "set", 2, "msf | lba" },
{ CMD_STATUS, "status", 1, "[audio | media | volume]" },
{ CMD_STOP, "stop", 3, "" },
{ CMD_VOLUME, "volume", 1, "<l> <r> | left | right | mute | mono | stereo" },
{ CMD_CDID, "cdid", 2, "" },
{ 0, }
};
struct cd_toc_entry toc_buffer[100];
const char *cdname;
int fd = -1;
int verbose = 1;
int msf = 1;
int setvol __P((int, int));
int read_toc_entrys __P((int));
int play_msf __P((int, int, int, int, int, int));
int play_track __P((int, int, int, int));
int get_vol __P((int *, int *));
int status __P((int *, int *, int *, int *));
int open_cd __P((void));
int next_prev __P((char *arg, int));
int play __P((char *arg));
int info __P((char *arg));
int cdid __P((void));
int pstatus __P((char *arg));
char *input __P((int *));
void prtrack __P((struct cd_toc_entry *e, int lastflag));
void lba2msf __P((unsigned long lba,
u_char *m, u_char *s, u_char *f));
unsigned int msf2lba __P((u_char m, u_char s, u_char f));
int play_blocks __P((int blk, int len));
int run __P((int cmd, char *arg));
char *parse __P((char *buf, int *cmd));
void help ()
{
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 ()
{
fprintf (stderr, "usage: cdcontrol [-sv] [-f device] [command ...]\n");
exit (1);
}
char *use_cdrom_instead(char *old_envvar)
{
char *device;
device = getenv(old_envvar);
if (device)
warnx("%s environment variable deprecated, "
"please use CDROM in the future.", old_envvar);
return device;
}
int main (int argc, char **argv)
{
int cmd;
char *arg;
for (;;) {
switch (getopt (argc, argv, "svhf:")) {
case EOF:
break;
case 's':
verbose = 0;
continue;
case 'v':
verbose = 2;
continue;
case 'f':
cdname = optarg;
continue;
case 'h':
default:
usage ();
}
break;
}
argc -= optind;
argv += optind;
if (argc > 0 && ! strcasecmp (*argv, "help"))
usage ();
if (! cdname) {
cdname = getenv("CDROM");
}
if (! cdname)
cdname = use_cdrom_instead("MUSIC_CD");
if (! cdname)
cdname = use_cdrom_instead("CD_DRIVE");
if (! cdname)
cdname = use_cdrom_instead("DISC");
if (! cdname)
cdname = use_cdrom_instead("CDPLAY");
if (! cdname) {
cdname = DEFAULT_CD_DRIVE;
warnx("no CD device name specified, defaulting to %s", cdname);
}
if (argc > 0) {
char buf[80], *p;
int len;
for (p=buf; argc-->0; ++argv) {
len = strlen (*argv);
if (p + len >= buf + sizeof (buf) - 1)
usage ();
if (p > buf)
*p++ = ' ';
strcpy (p, *argv);
p += len;
}
*p = 0;
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");
}
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;
switch (cmd) {
case CMD_QUIT:
exit (0);
case CMD_INFO:
if (fd < 0 && ! open_cd ())
return (0);
return info (arg);
case CMD_CDID:
if (fd < 0 && ! open_cd ())
return (0);
return cdid ();
case CMD_STATUS:
if (fd < 0 && ! open_cd ())
return (0);
return pstatus (arg);
case CMD_NEXT:
case CMD_PREVIOUS:
if (fd < 0 && ! open_cd ())
return (0);
while (isspace (*arg))
arg++;
return next_prev (arg, cmd);
case CMD_PAUSE:
if (fd < 0 && ! open_cd ())
return (0);
return ioctl (fd, CDIOCPAUSE);
case CMD_RESUME:
if (fd < 0 && ! open_cd ())
return (0);
return ioctl (fd, CDIOCRESUME);
case CMD_STOP:
if (fd < 0 && ! open_cd ())
return (0);
rc = ioctl (fd, CDIOCSTOP);
(void) ioctl (fd, CDIOCALLOW);
return (rc);
case CMD_RESET:
if (fd < 0 && ! open_cd ())
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 ())
return (0);
if (! strcasecmp (arg, "on"))
return ioctl (fd, CDIOCSETDEBUG);
if (! strcasecmp (arg, "off"))
return ioctl (fd, CDIOCCLRDEBUG);
warnx("invalid command arguments");
return (0);
case CMD_EJECT:
if (fd < 0 && ! open_cd ())
return (0);
(void) ioctl (fd, CDIOCALLOW);
rc = ioctl (fd, CDIOCEJECT);
if (rc < 0)
return (rc);
return (0);
case CMD_CLOSE:
if (fd < 0 && ! open_cd ())
return (0);
(void) ioctl (fd, CDIOCALLOW);
rc = ioctl (fd, CDIOCCLOSE);
if (rc < 0)
return (rc);
close(fd);
fd = -1;
return (0);
case CMD_PLAY:
if (fd < 0 && ! open_cd ())
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
warnx("invalid command arguments");
return (0);
case CMD_VOLUME:
if (fd < 0 && !open_cd ())
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, CDIOCSETSTERIO);
if (! strncasecmp (arg, "mute", strlen(arg)))
return ioctl (fd, CDIOCSETMUTE);
if (2 != sscanf (arg, "%d %d", &l, &r)) {
warnx("invalid command arguments");
return (0);
}
return setvol (l, r);
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 */
if (msf)
return play_blocks (0, msf2lba (toc_buffer[n].addr.msf.minute,
toc_buffer[n].addr.msf.second,
toc_buffer[n].addr.msf.frame));
else
return play_blocks (0, ntohl(toc_buffer[n].addr.lba));
}
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 = ntohl(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]]]
*/
unsigned tr1, tr2;
unsigned m1, m2, s1, s2, f1, f2;
unsigned char tm, ts, tf;
tr2 = m2 = s2 = f2 = f1 = 0;
if (8 == sscanf (arg, "%d %d:%d.%d %d %d:%d.%d",
&tr1, &m1, &s1, &f1, &tr2, &m2, &s2, &f2))
goto Play_Relative_Addresses;
tr2 = m2 = s2 = f2 = f1 = 0;
if (7 == sscanf (arg, "%d %d:%d %d %d:%d.%d",
&tr1, &m1, &s1, &tr2, &m2, &s2, &f2))
goto Play_Relative_Addresses;
tr2 = m2 = s2 = f2 = f1 = 0;
if (7 == sscanf (arg, "%d %d:%d.%d %d %d:%d",
&tr1, &m1, &s1, &f1, &tr2, &m2, &s2))
goto Play_Relative_Addresses;
tr2 = m2 = s2 = f2 = f1 = 0;
if (7 == sscanf (arg, "%d %d:%d.%d %d:%d.%d",
&tr1, &m1, &s1, &f1, &m2, &s2, &f2))
goto Play_Relative_Addresses;
tr2 = m2 = s2 = f2 = f1 = 0;
if (6 == sscanf (arg, "%d %d:%d.%d %d:%d",
&tr1, &m1, &s1, &f1, &m2, &s2))
goto Play_Relative_Addresses;
tr2 = m2 = s2 = f2 = f1 = 0;
if (6 == sscanf (arg, "%d %d:%d %d:%d.%d",
&tr1, &m1, &s1, &m2, &s2, &f2))
goto Play_Relative_Addresses;
tr2 = m2 = s2 = f2 = f1 = 0;
if (6 == sscanf (arg, "%d %d:%d.%d %d %d",
&tr1, &m1, &s1, &f1, &tr2, &m2))
goto Play_Relative_Addresses;
tr2 = m2 = s2 = f2 = f1 = 0;
if (5 == sscanf (arg, "%d %d:%d %d:%d", &tr1, &m1, &s1, &m2, &s2))
goto Play_Relative_Addresses;
tr2 = m2 = s2 = f2 = f1 = 0;
if (5 == sscanf (arg, "%d %d:%d %d %d",
&tr1, &m1, &s1, &tr2, &m2))
goto Play_Relative_Addresses;
tr2 = m2 = s2 = f2 = f1 = 0;
if (5 == sscanf (arg, "%d %d:%d.%d %d",
&tr1, &m1, &s1, &f1, &tr2))
goto Play_Relative_Addresses;
tr2 = m2 = s2 = f2 = f1 = 0;
if (4 == sscanf (arg, "%d %d:%d %d", &tr1, &m1, &s1, &tr2))
goto Play_Relative_Addresses;
tr2 = m2 = s2 = f2 = f1 = 0;
if (4 == sscanf (arg, "%d %d:%d.%d", &tr1, &m1, &s1, &f1))
goto Play_Relative_Addresses;
tr2 = m2 = s2 = f2 = f1 = 0;
if (3 == sscanf (arg, "%d %d:%d", &tr1, &m1, &s1))
goto Play_Relative_Addresses;
tr2 = m2 = s2 = f2 = f1 = 0;
goto Try_Absolute_Timed_Addresses;
Play_Relative_Addresses:
if (! tr1)
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(ntohl(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) {
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(ntohl(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(ntohl(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(ntohl(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, "%d:%d.%d%d:%d.%d",
&m1, &s1, &f1, &m2, &s2, &f2) &&
5 != sscanf (arg, "%d:%d.%d%d:%d", &m1, &s1, &f1, &m2, &s2) &&
5 != sscanf (arg, "%d:%d%d:%d.%d", &m1, &s1, &m2, &s2, &f2) &&
3 != sscanf (arg, "%d:%d.%d", &m1, &s1, &f1) &&
4 != sscanf (arg, "%d:%d%d:%d", &m1, &s1, &m2, &s2) &&
2 != sscanf (arg, "%d:%d", &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(ntohl(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 = n;
return (play_track (start, istart, end, iend));
Clean_up:
warnx("invalid command arguments");
return (0);
}
int next_prev (char *arg, int cmd)
{
struct ioc_toc_header h;
int dir, junk, n, off, rc, trk;
dir = (cmd == CMD_NEXT) ? 1 : -1;
rc = ioctl (fd, CDIOREADTOCHEADER, &h);
if (rc < 0)
return (rc);
n = h.ending_track - h.starting_track + 1;
rc = status (&trk, &junk, &junk, &junk);
if (rc < 0)
return (-1);
if (arg && *arg) {
if (sscanf (arg, "%u", &off) != 1) {
warnx("invalid command argument");
return (0);
} else
trk += off * dir;
} else
trk += dir;
if (trk > h.ending_track)
trk = 1;
return (play_track (trk, 1, n, 1));
}
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 ("??");
}
}
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;
int what = 0;
char *p, vmcn[(4 * 15) + 1];
while ((p = strtok(arg, " \t"))) {
arg = 0;
if (!strncasecmp(p, "audio", strlen(p)))
what |= STATUS_AUDIO;
else if (!strncasecmp(p, "media", strlen(p)))
what |= STATUS_MEDIA;
else if (!strncasecmp(p, "volume", strlen(p)))
what |= STATUS_VOLUME;
else {
warnx("invalid command arguments");
return 0;
}
}
if (!what)
what = STATUS_AUDIO|STATUS_MEDIA|STATUS_VOLUME;
if (what & STATUS_AUDIO) {
rc = status (&trk, &m, &s, &f);
if (rc >= 0)
if (verbose)
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");
}
if (what & STATUS_MEDIA) {
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 (vmcn, ss.data->what.media_catalog.mc_number,
(sizeof (vmcn) - 1) / 4, VIS_OCTAL | VIS_NL);
printf(", number \"%.*s\"", (int)sizeof (vmcn), vmcn);
}
putchar('\n');
} else
printf("No media catalog info available\n");
}
if (what & STATUS_VOLUME) {
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);
}
/*
* dbprog_sum
* Convert an integer to its text string representation, and
* compute its checksum. Used by dbprog_discid to derive the
* disc ID.
*
* Args:
* n - The integer value.
*
* Return:
* The integer checksum.
*/
static int
dbprog_sum(int n)
{
char buf[12],
*p;
int ret = 0;
/* For backward compatibility this algorithm must not change */
sprintf(buf, "%u", n);
for (p = buf; *p != '\0'; p++)
ret += (*p - '0');
return(ret);
}
/*
* dbprog_discid
* Compute a magic disc ID based on the number of tracks,
* the length of each track, and a checksum of the string
* that represents the offset of each track.
*
* Args:
* s - Pointer to the curstat_t structure.
*
* Return:
* The integer disc ID.
*/
static u_int
dbprog_discid()
{
struct ioc_toc_header h;
int rc;
int i, ntr,
t = 0,
n = 0;
rc = ioctl (fd, CDIOREADTOCHEADER, &h);
if (rc < 0)
return 0;
ntr = h.ending_track - h.starting_track + 1;
i = msf;
msf = 1;
rc = read_toc_entrys ((ntr + 1) * sizeof (struct cd_toc_entry));
msf = i;
if (rc < 0)
return 0;
/* For backward compatibility this algorithm must not change */
for (i = 0; i < ntr; i++) {
#define TC_MM(a) toc_buffer[a].addr.msf.minute
#define TC_SS(a) toc_buffer[a].addr.msf.second
n += dbprog_sum((TC_MM(i) * 60) + TC_SS(i));
t += ((TC_MM(i+1) * 60) + TC_SS(i+1)) -
((TC_MM(i) * 60) + TC_SS(i));
}
return((n % 0xff) << 24 | t << 8 | ntr);
}
int cdid ()
{
u_int id;
id = dbprog_discid();
if (id)
{
if (verbose)
printf ("CDID=");
printf ("%08x\n",id);
}
return id ? 0 : 1;
}
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);
}
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;
}
void prtrack (struct cd_toc_entry *e, int lastflag)
{
int block, next, len;
u_char m, s, f;
if (msf) {
/* 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 = ntohl(e->addr.lba);
lba2msf(block, &m, &s, &f);
/* Print track start */
printf ("%2d:%02d.%02d ", m, s, f);
}
if (lastflag) {
/* Last track -- print block */
printf (" - %6d - -\n", block);
return;
}
if (msf)
next = msf2lba (e[1].addr.msf.minute, e[1].addr.msf.second,
e[1].addr.msf.frame);
else
next = ntohl(e[1].addr.lba);
len = next - block;
lba2msf (len, &m, &s, &f);
/* Print duration, block, length, type */
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;
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 {
lba2msf(ntohl(s.data->what.position.reladdr.lba),
&mm, &ss, &ff);
*min = mm;
*sec = ss;
*frame = ff;
}
return s.data->header.audio_status;
}
const char *
cdcontrol_prompt()
{
return ("cdcontrol> ");
}
char *
input (int *cmd)
{
#define MAXLINE 80
static EditLine *el = NULL;
static History *hist = NULL;
static char buf[MAXLINE];
int num = 0;
int len;
const char *bp = NULL;
char *p;
do {
if (verbose) {
if (!el) {
el = el_init("cdcontrol", stdin, stdout);
hist = history_init();
history(hist, H_EVENT, 100);
el_set(el, EL_HIST, history, hist);
el_set(el, EL_EDITOR, "emacs");
el_set(el, EL_PROMPT, cdcontrol_prompt);
el_set(el, EL_SIGNAL, 1);
el_source(el, NULL);
}
if ((bp = el_gets(el, &num)) == NULL || num == 0) {
*cmd = CMD_QUIT;
fprintf (stderr, "\r\n");
return (0);
}
len = (num > MAXLINE) ? MAXLINE : num;
memcpy(buf, bp, len);
buf[len] = 0;
history(hist, H_ENTER, bp);
#undef MAXLINE
} else {
if (! fgets (buf, sizeof (buf), stdin)) {
*cmd = CMD_QUIT;
fprintf (stderr, "\r\n");
return (0);
}
}
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);
} else if (*p == '+') {
*cmd = CMD_NEXT;
return (p + 1);
} else if (*p == '-') {
*cmd = CMD_PREVIOUS;
return (p + 1);
}
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) {
warnx("ambiguous command");
return (0);
}
*cmd = c->command;
}
}
if (*cmd == -1) {
warnx("invalid command, enter ``help'' for commands");
return (0);
}
while (isspace (*p))
p++;
return p;
}
int open_cd ()
{
char devbuf[MAXPATHLEN];
if (fd > -1)
return (1);
if (*cdname == '/') {
snprintf (devbuf, MAXPATHLEN, "%s", cdname);
} else {
snprintf (devbuf, MAXPATHLEN, "%s%s", _PATH_DEV, cdname);
}
fd = open (devbuf, O_RDONLY);
if (fd < 0 && errno == ENOENT) {
strcat (devbuf, DEFAULT_CD_PARTITION);
fd = open (devbuf, O_RDONLY);
}
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", devbuf);
return (0);
}
err(1, "%s", devbuf);
}
return (1);
}
Reference in New Issue View Git Blame Copy Permalink