diff -u -P -r usr-orig/src/sys/i386/conf/files.i386 usr/src/sys/i386/conf/files.i386 --- usr-orig/src/sys/i386/conf/files.i386 Sat Oct 24 12:15:30 1998 +++ usr/src/sys/i386/conf/files.i386 Sat Oct 24 12:17:22 1998 @@ -215,6 +215,7 @@ i386/isa/wd.c optional wdc device-driver i386/isa/wd.c optional wd device-driver i386/isa/atapi.c optional atapi device-driver +i386/isa/atapi-cd.c optional acd device-driver i386/isa/wcd.c optional wcd device-driver i386/isa/wd7000.c optional wds device-driver i386/isa/wt.c optional wt device-driver diff -u -P -r usr-orig/src/sys/i386/isa/atapi-cd.c usr/src/sys/i386/isa/atapi-cd.c --- usr-orig/src/sys/i386/isa/atapi-cd.c Wed Dec 31 16:00:00 1969 +++ usr/src/sys/i386/isa/atapi-cd.c Sat Oct 24 13:28:14 1998 @@ -0,0 +1,1771 @@ +/*- + * Copyright (c) 1998 Søren Schmidt + * 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, + * without modification, immediately at the beginning of the file. + * 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. 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. + * + * $Id: atapi-cd.c,v 1.1 1998/09/08 20:57:47 sos Exp $ + */ + +#include "wdc.h" +#include "acd.h" +#include "opt_atapi.h" +#include "opt_devfs.h" + +#if NACD > 0 && NWDC > 0 && defined(ATAPI) + +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#ifdef DEVFS +#include +#endif +#include +#include + +static d_open_t acdopen; +static d_close_t acdclose; +static d_write_t acdwrite; +static d_read_t acdread; +static d_ioctl_t acdioctl; +static d_strategy_t acdstrategy; + +#define CDEV_MAJOR 69 +#define BDEV_MAJOR 19 +extern struct cdevsw acd_cdevsw ; +static struct bdevsw acd_bdevsw = + { acdopen, acdclose, acdstrategy, acdioctl, + nodump, nopsize, 0, "acd", &acd_cdevsw, -1 }; +static struct cdevsw acd_cdevsw = { + acdopen, acdclose, acdread, acdwrite, + acdioctl, nostop, nullreset, nodevtotty, + seltrue, nommap, acdstrategy, "acd", + &acd_bdevsw, -1 }; + +#define NUNIT 16 /* Max # of devices */ + +#define F_BOPEN 0x0001 /* The block device is opened */ +#define F_MEDIA_CHANGED 0x0002 /* The media have changed since open */ +#define F_DEBUG 0x0004 /* Print debug info */ +#define F_LOCKED 0x0008 /* This unit is locked (or should be) */ +#define F_TRACK_PREP 0x0010 /* Track should be prep'ed */ +#define F_TRACK_PREPED 0x0020 /* Track has been prep'ed */ +#define F_DISK_PREPED 0x0040 /* Disk has been prep'ed */ +#define F_WRITTEN 0x0080 /* The medium has been written to */ + +static struct acd *acdtab[NUNIT]; +static int acdnlun = 0; /* Number of configured drives */ +static u_int next_writeable_lba = 0; + +#ifndef ATAPI_STATIC +static +#endif +int acdattach(struct atapi *, int, struct atapi_params *, int); +static struct acd *acd_init_lun(struct atapi *, int, struct atapi_params *,int); +static void acd_start(struct acd *); +static void acd_done(struct acd *, struct buf *, int, struct atapires); +static int acd_read_toc(struct acd *); +static int acd_request_wait(struct acd *, u_char, u_char, u_char, u_char, u_char, u_char, u_char, u_char, u_char, u_char, char *, int); +static void acd_describe(struct acd *); +static int acd_open(dev_t, int, int); +static int acd_setchan(struct acd *, u_char, u_char, u_char, u_char); +static int acd_eject(struct acd *, int); +static void acd_select_slot(struct acd *); +static int acd_rezero_unit(struct acd *); +static int acd_open_disk(struct acd *, int); +static int acd_open_track(struct acd *, struct wormio_prepare_track *); +static int acd_close_track(struct acd *); +static int acd_close_disk(struct acd *); +static int acd_read_track_info(struct acd *cdp, int lba, struct acd_track_info *info); +static int acd_blank_disk(struct acd *); +static void atapi_dump(int ctrlr, int lun, char *label, void *data, int len); +static void atapi_error(struct atapi *ata, int unit, struct atapires result); + +struct acd * +acd_init_lun(struct atapi *ata, int unit, struct atapi_params *ap, int lun) +{ + struct acd *ptr; + + if (!(ptr = malloc(sizeof(struct acd), M_TEMP, M_NOWAIT))) + return NULL; + bzero(ptr, sizeof(struct acd)); + bufq_init(&ptr->buf_queue); /* XXX init to NULL ? */ + ptr->ata = ata; + ptr->unit = unit; + ptr->lun = lun; + ptr->param = ap; + ptr->flags = F_MEDIA_CHANGED; + ptr->flags &= ~(F_WRITTEN|F_TRACK_PREP|F_TRACK_PREPED); + ptr->block_size = 2048; + ptr->starting_lba = 0 ; + ptr->refcnt = 0; + ptr->slot = -1; + ptr->changer_info = NULL; +#ifdef DEVFS + ptr->ra_devfs_token = + devfs_add_devswf(&acd_cdevsw, dkmakeminor(lun, 0, 0), + DV_CHR, UID_ROOT, GID_OPERATOR, 0640, + "racd%da", lun); + ptr->rc_devfs_token = + devfs_add_devswf(&acd_cdevsw, dkmakeminor(lun, 0, RAW_PART), + DV_CHR, UID_ROOT, GID_OPERATOR, 0640, + "racd%dc", lun); + ptr->a_devfs_token = + devfs_add_devswf(&acd_cdevsw, dkmakeminor(lun, 0, 0), + DV_BLK, UID_ROOT, GID_OPERATOR, 0640, + "acd%da", lun); + ptr->c_devfs_token = + devfs_add_devswf(&acd_cdevsw, dkmakeminor(lun, 0, RAW_PART), + DV_BLK, UID_ROOT, GID_OPERATOR, 0640, + "acd%dc", lun); +#endif + return ptr; +} + +#ifndef ATAPI_STATIC +static +#endif +int +acdattach(struct atapi *ata, int unit, struct atapi_params *ap, int debug) +{ + struct acd *cdp; + struct atapires result; + struct changer *chp; + int i, count; + + if (acdnlun >= NUNIT) { + printf("acd: too many units\n"); + return 0; + } + if (!atapi_request_immediate) { + printf("acd: configuration error, ATAPI code not present!\n"); + return 0; + } + if ((cdp = acd_init_lun(ata, unit, ap, acdnlun)) == NULL) { + printf("acd: out of memory\n"); + return 0; + } + acdtab[acdnlun] = cdp; + + if (debug) { + cdp->flags |= F_DEBUG; + atapi_dump(cdp->ata->ctrlr, cdp->lun, "info", ap, sizeof(*ap)); + } + + /* Get drive capabilities, some drives needs this repeated */ + for (count = 0 ; count < 5 ; count++) { + result = atapi_request_immediate(ata, unit, + ATAPI_MODE_SENSE, + 0, ATAPI_CDROM_CAP_PAGE, + 0, 0, 0, 0, + sizeof(cdp->cap)>>8, sizeof(cdp->cap), + 0, 0, 0, 0, 0, 0, 0, + (char *)&cdp->cap, sizeof(cdp->cap)); + if (result.code == 0 || result.code == RES_UNDERRUN) + break; + } + + /* Some drives have shorter capabilities page. */ + if (result.code == RES_UNDERRUN) + result.code = 0; + + if (result.code == 0) { + cdp->cap.max_speed = ntohs(cdp->cap.max_speed); + cdp->cap.max_vol_levels = ntohs(cdp->cap.max_vol_levels); + cdp->cap.buf_size = ntohs(cdp->cap.buf_size); + cdp->cap.cur_speed = ntohs(cdp->cap.cur_speed); + acd_describe(cdp); + if (cdp->flags & F_DEBUG) + atapi_dump(cdp->ata->ctrlr, cdp->lun, "cap", &cdp->cap, + sizeof(cdp->cap)); + } + /* If this is a changer device, allocate the neeeded lun's */ + if (cdp->cap.mech == MST_MECH_CHANGER) { + chp = malloc(sizeof(struct changer), M_TEMP, M_NOWAIT); + if (chp == NULL) { + printf("acd: out of memory\n"); + return 0; + } + bzero(chp, sizeof(struct changer)); + result = atapi_request_immediate(ata, unit, ATAPI_MECH_STATUS, + 0, 0, 0, 0, 0, 0, 0, + sizeof(struct changer)>>8, + sizeof(struct changer), + 0, 0, 0, 0, 0, 0, + (char *)chp, sizeof(struct changer)); + if (cdp->flags & F_DEBUG) { + printf("result.code=%d curr=%02x slots=%d len=%d\n", + result.code, chp->current_slot, chp->slots, + htons(chp->table_length)); + } + if (result.code == RES_UNDERRUN) + result.code = 0; + + if (result.code == 0) { + chp->table_length = htons(chp->table_length); + for (i = 0; i < chp->slots && acdnlun < NUNIT; i++) { + if (i > 0) { + cdp = acd_init_lun(ata, unit, ap, acdnlun); + if (cdp == NULL) { + printf("acd: out of memory\n"); + return 0; + } + } + cdp->slot = i; + cdp->changer_info = chp; + printf("acd%d: changer slot %d %s\n", acdnlun, i, + (chp->slot[i].present ? "disk present" : "no disk")); + acdtab[acdnlun++] = cdp; + } + if (acdnlun >= NUNIT) { + printf("acd: too many units\n"); + return 0; + } + } + } else + acdnlun++; + return 1; +} + +void +acd_describe(struct acd *cdp) +{ + int comma; + char *mechanism; + + printf("acd%d: drive speed ", cdp->lun); + if (cdp->cap.cur_speed != cdp->cap.max_speed) + printf("%d - ", cdp->cap.cur_speed * 1000 / 1024); + printf("%dKb/sec", cdp->cap.max_speed * 1000 / 1024); + if (cdp->cap.buf_size) + printf(", %dKb cache\n", cdp->cap.buf_size); + + printf("acd%d: supported read types:", cdp->lun); + comma = 0; + if (cdp->cap.read_cdr) { + printf(" CD-R"); comma = 1; + } + if (cdp->cap.read_cdrw) { + printf("%s CD-RW", comma ? "," : ""); comma = 1; + } + if (cdp->cap.cd_da) { + printf("%s CD-DA", comma ? "," : ""); comma = 1; + } + if (cdp->cap.method2) + printf("%s packet track", comma ? "," : ""); + if (cdp->cap.write_cdr || cdp->cap.write_cdrw) { + printf("\nacd%d: supported write types:", cdp->lun); + comma = 0; + if (cdp->cap.write_cdr) { + printf(" CD-R" ); comma = 1; + } + if (cdp->cap.write_cdrw) { + printf("%s CD-RW", comma ? "," : ""); comma = 1; + } + if (cdp->cap.test_write) { + printf("%s test write", comma ? "," : ""); comma = 1; + } + } + if (cdp->cap.audio_play) { + printf("\nacd%d: Audio: ", cdp->lun); + if (cdp->cap.audio_play) + printf("play"); + if (cdp->cap.max_vol_levels) + printf(", %d volume levels", cdp->cap.max_vol_levels); + } + printf("\nacd%d: Mechanism: ", cdp->lun); + switch (cdp->cap.mech) { + case MST_MECH_CADDY: + mechanism = "caddy"; break; + case MST_MECH_TRAY: + mechanism = "tray"; break; + case MST_MECH_POPUP: + mechanism = "popup"; break; + case MST_MECH_CHANGER: + mechanism = "changer"; break; + case MST_MECH_CARTRIDGE: + mechanism = "cartridge"; break; + default: + mechanism = 0; break; + } + if (mechanism) + printf("%s%s", cdp->cap.eject ? "ejectable " : "", mechanism); + else if (cdp->cap.eject) + printf("ejectable"); + + if (cdp->cap.mech != MST_MECH_CHANGER) { + printf("\nacd%d: Medium: ", cdp->lun); + switch (cdp->cap.medium_type & MST_TYPE_MASK_HIGH) { + case MST_CDROM: + printf("CD-ROM "); break; + case MST_CDR: + printf("CD-R "); break; + case MST_CDRW: + printf("CD-RW "); break; + case MST_DOOR_OPEN: + printf("door open"); break; + case MST_NO_DISC: + printf("no/blank disc inside"); break; + case MST_FMT_ERROR: + printf("medium format error"); break; + } + if ((cdp->cap.medium_type & MST_TYPE_MASK_HIGH) < MST_TYPE_MASK_HIGH) { + switch (cdp->cap.medium_type & MST_TYPE_MASK_LOW) { + case MST_DATA_120: + printf("120mm data disc loaded"); break; + case MST_AUDIO_120: + printf("120mm audio disc loaded"); break; + case MST_COMB_120: + printf("120mm data/audio disc loaded"); break; + case MST_PHOTO_120: + printf("120mm photo disc loaded"); break; + case MST_DATA_80: + printf("80mm data disc loaded"); break; + case MST_AUDIO_80: + printf("80mm audio disc loaded"); break; + case MST_COMB_80: + printf("80mm data/audio disc loaded"); break; + case MST_PHOTO_80: + printf("80mm photo disc loaded"); break; + case MST_FMT_NONE: + switch (cdp->cap.medium_type & MST_TYPE_MASK_HIGH) { + case MST_CDROM: + printf("unknown medium"); break; + case MST_CDR: + case MST_CDRW: + printf("blank medium"); break; + } + break; + default: + printf("unknown type=0x%x", cdp->cap.medium_type); break; + } + } + } + if (cdp->cap.lock) + printf(cdp->cap.locked ? ", locked" : ", unlocked"); + if (cdp->cap.prevent) + printf(", lock protected"); + printf("\n"); +} + +static int +acdopen(dev_t dev, int flags, int fmt, struct proc *p) +{ + int lun = dkunit(dev); + int track = dkslice(dev); /* XXX */ + struct acd *cdp; + + if (lun >= acdnlun || !atapi_request_immediate) + return ENXIO; + cdp = acdtab[lun]; + + if (!(cdp->flags & F_BOPEN) && !cdp->refcnt) { + /* Prevent user eject */ + acd_request_wait(cdp, ATAPI_PREVENT_ALLOW, + 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0); + cdp->flags |= F_LOCKED; + } + if (fmt == S_IFBLK) { + cdp->flags |= F_BOPEN; + } else { + ++cdp->refcnt; + } + + if ((flags & O_NONBLOCK) == 0) { + if ((flags & FWRITE) != 0) { + /* read/write */ + if (acd_rezero_unit(cdp)) { + printf("acd%d: rezero failed\n", lun); + return EIO; + } + } else { + /* read only */ + if (acd_read_toc(cdp) < 0) { + printf("acd%d: read_toc failed\n", lun); + /* return EIO; */ + } + } + } + cdp->starting_lba = ntohl(cdp->toc.tab[track].addr.lba) ; + if (track != 0) { + printf("Warning, opening track %d at %d\n", + track, cdp->starting_lba); + } + return 0; +} + +int +acdclose(dev_t dev, int flags, int fmt, struct proc *p) +{ + struct acd *cdp = acdtab[dkunit(dev)]; + + if (fmt == S_IFBLK) + cdp->flags &= ~F_BOPEN; + else + cdp->refcnt = 0; /* only one goes through, right ? */ + + /* Are we the last open ?? */ + if (!(cdp->flags & F_BOPEN) && !cdp->refcnt) { + /* Yup, do we need to close any written tracks */ + if ((flags & FWRITE) != 0) { + if ((cdp->flags & F_TRACK_PREPED) != 0) { + acd_close_track(cdp); + cdp->flags &= ~(F_TRACK_PREPED | F_TRACK_PREP); + } + } + /* Allow the user eject */ + acd_request_wait(cdp, ATAPI_PREVENT_ALLOW, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0); + } + cdp->flags &= ~F_LOCKED; + return 0; +} + +static int +acdread(dev_t dev, struct uio *uio, int ioflag) +{ + struct acd *cdp = acdtab[dkunit(dev)]; + + return physio(acdstrategy, NULL, dev, 1, minphys, uio); +} + +static int +acdwrite(dev_t dev, struct uio *uio, int ioflag) +{ + struct acd *cdp = acdtab[dkunit(dev)]; + + return physio(acdstrategy, NULL, dev, 0, minphys, uio); +} + +static void ar_done(struct acd *, struct buf *, int, struct atapires); + +static void +ar_done(struct acd *t, struct buf *bp, int resid, struct atapires result) +{ + struct atapireq *ar = bp->b_driver2; + if (result.code) { + atapi_error(t->ata, t->unit, result); + bp->b_error = EIO ; + bp->b_flags |= B_ERROR; + } else { + bp->b_resid = resid; + ar->datalen -= resid; + ar->result = result; + if ((bp->b_flags & B_READ) == B_WRITE) + t->flags |= F_WRITTEN; + } + biodone(bp); +} + +static void +acdr_strategy(struct buf *bp) +{ + int lun = dkunit(bp->b_dev); + struct acd *cdp = acdtab[lun]; + struct atapireq *ar = bp->b_driver2; + int count ; + if (cdp == NULL || ar == NULL) { + bp->b_error = EINVAL; + bp->b_flags |= B_ERROR; + biodone(bp); + return; + } + if (ar->cmd[0] == ATAPI_WRITE_BIG) + count = -bp->b_bcount ; + else + count = bp->b_bcount ; + + atapi_request_callback(cdp->ata, cdp->unit, + ar->cmd[0], ar->cmd[1], ar->cmd[2], ar->cmd[3], + ar->cmd[4], ar->cmd[5], ar->cmd[6], ar->cmd[7], + ar->cmd[8], ar->cmd[9], ar->cmd[10], ar->cmd[11], + ar->cmd[12], ar->cmd[13], ar->cmd[14], ar->cmd[15], + bp->b_un.b_addr, count, + (atapi_callback_t *)ar_done, cdp, bp); +} + +void +acdstrategy(struct buf *bp) +{ + int lun = dkunit(bp->b_dev); /* info here... */ + struct acd *cdp = acdtab[lun]; + int x; + +#ifdef NOTYET + /* allow write only on CD-R/RW media */ /* all for now SOS */ + if (!(bp->b_flags & B_READ) && !(writeable_media)) { + bp->b_error = EROFS; + bp->b_flags |= B_ERROR; + biodone(bp); + return; + } +#endif + + if (bp->b_bcount == 0) { + bp->b_resid = 0; + biodone(bp); + return; + } + + bp->b_pblkno = bp->b_blkno + cdp->starting_lba ; + bp->b_resid = bp->b_bcount; + + x = splbio(); + bufqdisksort(&cdp->buf_queue, bp); + acd_start(cdp); + splx(x); +} + +static void +acd_start(struct acd *cdp) +{ + struct buf *bp = bufq_first(&cdp->buf_queue); + u_long lba, blocks; + int cmd; + int count; + + if (!bp) + return; + + bufq_remove(&cdp->buf_queue, bp); /* XXX */ + + /* Should reject all queued entries if media have changed. */ + if (cdp->flags & F_MEDIA_CHANGED) { + bp->b_error = EIO; + bp->b_flags |= B_ERROR; + biodone(bp); + return; + } + acd_select_slot(cdp); + + if ((bp->b_flags & B_READ) == B_WRITE) { + if ((cdp->flags & F_TRACK_PREPED) == 0) { + if ((cdp->flags & F_TRACK_PREP) == 0) { + printf("acd%d: sequence error\n", cdp->lun); + bp->b_error = EIO; + bp->b_flags |= B_ERROR; + biodone(bp); + return; + } else { + if (acd_open_track(cdp, &cdp->preptrack) != 0) { + biodone(bp); + return; + } + cdp->flags |= F_TRACK_PREPED; + } + } + } + + if (bp->b_flags & B_READ) +#ifdef NOTYET + lba = bp->b_offset / cdp->block_size; +#else + lba = bp->b_blkno / (cdp->block_size / DEV_BSIZE) + + cdp->starting_lba ; +#endif + else +#if 1 + lba = next_writeable_lba + (bp->b_blkno / cdp->block_size); +#else + lba = next_writeable_lba + (bp->b_offset / cdp->block_size); +#endif + blocks = (bp->b_bcount + (cdp->block_size - 1)) / cdp->block_size; + + if ((bp->b_flags & B_READ) == B_WRITE) { + cmd = ATAPI_WRITE_BIG; + count = -bp->b_bcount; + } else { + cmd = ATAPI_READ_BIG; + count = bp->b_bcount; + } + + atapi_request_callback(cdp->ata, cdp->unit, cmd, 0, + lba>>24, lba>>16, lba>>8, lba, 0, + blocks>>8, blocks, 0, 0, 0, 0, 0, 0, 0, + (u_char *)bp->b_data, count, + (atapi_callback_t *)acd_done, cdp, bp); +} + +static void +acd_done(struct acd *cdp, struct buf *bp, int resid, struct atapires result) +{ + if (result.code) { + atapi_error(cdp->ata, cdp->unit, result); + bp->b_error = EIO; + bp->b_flags |= B_ERROR; + } else { + bp->b_resid = resid; + if ((bp->b_flags & B_READ) == B_WRITE) + cdp->flags |= F_WRITTEN; + } + biodone(bp); + acd_start(cdp); +} + +static int +acd_request_wait(struct acd *cdp, u_char cmd, u_char a1, u_char a2, + u_char a3, u_char a4, u_char a5, u_char a6, u_char a7, u_char a8, + u_char a9, char *addr, int count) +{ + struct atapires result; + + result = atapi_request_wait(cdp->ata, cdp->unit, cmd, a1, a2, a3, a4, a5, + a6, a7, a8, a9, 0, 0, 0, 0, 0, 0, addr, count); + if (result.code) { + atapi_error(cdp->ata, cdp->unit, result); + return EIO; + } + return 0; +} + +static __inline void +lba2msf(int lba, u_char *m, u_char *s, u_char *f) +{ + lba += 150; + lba &= 0xffffff; + *m = lba / (60 * 75); + lba %= (60 * 75); + *s = lba / 75; + *f = lba % 75; +} + +static __inline int +msf2lba(u_char m, u_char s, u_char f) +{ + return (m * 60 + s) * 75 + f - 150; +} + +int +acdioctl(dev_t dev, int cmd, caddr_t addr, int flag, struct proc *p) +{ + int lun = dkunit(dev); + struct acd *cdp = acdtab[lun]; + int error = 0; + + if (cdp->flags & F_MEDIA_CHANGED) + switch (cmd) { + case CDIOCRESET: + break; + default: + acd_read_toc(cdp); + acd_request_wait(cdp, ATAPI_PREVENT_ALLOW, + 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0); + cdp->flags |= F_LOCKED; + break; + } + switch (cmd) { +/* + case CDIOCRESUME: + bzero(cdb); + cdb->cmd = ATAPI_PAUSE; + cdb->b8 = 0x01; + return atapi_cmd_wait(cdp->ata, cdp->unit, cdb, 0, 0, timout, 0); +*/ + case CDIOCRESUME: + return acd_request_wait(cdp, ATAPI_PAUSE, + 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0); + + case CDIOCPAUSE: + return acd_request_wait(cdp, ATAPI_PAUSE, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0); + + case CDIOCSTART: + return acd_request_wait(cdp, ATAPI_START_STOP, + 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0); + + case CDIOCSTOP: + return acd_request_wait(cdp, ATAPI_START_STOP, + 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0); + + case CDIOCALLOW: + acd_select_slot(cdp); + cdp->flags &= ~F_LOCKED; + return acd_request_wait(cdp, ATAPI_PREVENT_ALLOW, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0); + + case CDIOCPREVENT: + acd_select_slot(cdp); + cdp->flags |= F_LOCKED; + return acd_request_wait(cdp, ATAPI_PREVENT_ALLOW, + 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0); + + case CDIOCRESET: + if (p->p_cred->pc_ucred->cr_uid) + return EPERM; + return acd_request_wait(cdp, ATAPI_TEST_UNIT_READY, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0); + + case CDIOCEJECT: + if ((cdp->flags & F_BOPEN) && cdp->refcnt) + return EBUSY; + return acd_eject(cdp, 0); + + case CDIOCCLOSE: + if ((cdp->flags & F_BOPEN) && cdp->refcnt) + return 0; + return acd_eject(cdp, 1); + + case CDIOREADTOCHEADER: + if (!cdp->toc.hdr.ending_track) + return EIO; + bcopy(&cdp->toc.hdr, addr, sizeof(cdp->toc.hdr)); + break; + + case CDIOREADTOCENTRYS: + { + struct ioc_read_toc_entry *te = (struct ioc_read_toc_entry *)addr; + struct toc *toc = &cdp->toc; + struct toc buf; + u_long len; + u_char starting_track = te->starting_track; + + if (!cdp->toc.hdr.ending_track) + return EIO; + + if (te->data_len < sizeof(toc->tab[0]) || + (te->data_len % sizeof(toc->tab[0])) != 0 || + te->address_format != CD_MSF_FORMAT && + te->address_format != CD_LBA_FORMAT) + return EINVAL; + + if (!starting_track) + starting_track = toc->hdr.starting_track; + else if (starting_track == 170) + starting_track = toc->hdr.ending_track + 1; + else if (starting_track < toc->hdr.starting_track || + starting_track > toc->hdr.ending_track + 1) + return EINVAL; + + len = ((toc->hdr.ending_track + 1 - starting_track) + 1) * + sizeof(toc->tab[0]); + if (te->data_len < len) + len = te->data_len; + if (len > sizeof(toc->tab)) + return EINVAL; + + if (te->address_format == CD_MSF_FORMAT) { + struct cd_toc_entry *entry; + + buf = cdp->toc; + toc = &buf; + entry = toc->tab + (toc->hdr.ending_track + 1 - + toc->hdr.starting_track) + 1; + while (--entry >= toc->tab) + lba2msf(ntohl(entry->addr.lba), &entry->addr.msf.minute, + &entry->addr.msf.second, &entry->addr.msf.frame); + } + return copyout(toc->tab + starting_track - toc->hdr.starting_track, + te->data, len); + } + + case CDIOREADTOCENTRY: + { + struct ioc_read_toc_single_entry *te = + (struct ioc_read_toc_single_entry *)addr; + struct toc *toc = &cdp->toc; + struct toc buf; + u_char track = te->track; + + if (!cdp->toc.hdr.ending_track) + return EIO; + + if (te->address_format != CD_MSF_FORMAT && + te->address_format != CD_LBA_FORMAT) + return EINVAL; + + if (!track) + track = toc->hdr.starting_track; + else if (track == 170) + track = toc->hdr.ending_track + 1; + else if (track < toc->hdr.starting_track || + track > toc->hdr.ending_track + 1) + return EINVAL; + + if (te->address_format == CD_MSF_FORMAT) { + struct cd_toc_entry *entry; + + buf = cdp->toc; + toc = &buf; + entry = toc->tab + (track - toc->hdr.starting_track); + lba2msf(ntohl(entry->addr.lba), &entry->addr.msf.minute, + &entry->addr.msf.second, &entry->addr.msf.frame); + } + bcopy(toc->tab + track - toc->hdr.starting_track, + &te->entry, sizeof(struct cd_toc_entry)); + } + break; + + case CDIOCREADSUBCHANNEL: + { + struct ioc_read_subchannel *args = + (struct ioc_read_subchannel *)addr; + struct cd_sub_channel_info data; + u_long len = args->data_len; + int abslba, rellba; + + if (len > sizeof(data) || + len < sizeof(struct cd_sub_channel_header)) + return EINVAL; + + if (acd_request_wait(cdp, ATAPI_READ_SUBCHANNEL, + 0, 0x40, 1, 0, 0, 0, + sizeof(cdp->subchan)>>8, sizeof(cdp->subchan), + 0, + (char *)&cdp->subchan, + sizeof(cdp->subchan)) != 0) + return EIO; + if (cdp->flags & F_DEBUG) + atapi_dump(cdp->ata->ctrlr, cdp->lun, "subchan", &cdp->subchan, + sizeof(cdp->subchan)); + + abslba = cdp->subchan.abslba; + rellba = cdp->subchan.rellba; + if (args->address_format == CD_MSF_FORMAT) { + lba2msf(ntohl(abslba), + &data.what.position.absaddr.msf.minute, + &data.what.position.absaddr.msf.second, + &data.what.position.absaddr.msf.frame); + lba2msf(ntohl(rellba), + &data.what.position.reladdr.msf.minute, + &data.what.position.reladdr.msf.second, + &data.what.position.reladdr.msf.frame); + } else { + data.what.position.absaddr.lba = abslba; + data.what.position.reladdr.lba = rellba; + } + data.header.audio_status = cdp->subchan.audio_status; + data.what.position.control = cdp->subchan.control & 0xf; + data.what.position.addr_type = cdp->subchan.control >> 4; + data.what.position.track_number = cdp->subchan.track; + data.what.position.index_number = cdp->subchan.indx; + return copyout(&data, args->data, len); + } + + case CDIOCPLAYMSF: + { + struct ioc_play_msf *args = (struct ioc_play_msf *)addr; + + return acd_request_wait(cdp, ATAPI_PLAY_MSF, 0, 0, + args->start_m, args->start_s, args->start_f, + args->end_m, args->end_s, args->end_f, + 0, 0, 0); + } + + case CDIOCPLAYBLOCKS: + { + struct ioc_play_blocks *args = (struct ioc_play_blocks *)addr; + + return acd_request_wait(cdp, ATAPI_PLAY_BIG, 0, + args->blk>>24 & 0xff, args->blk>>16 & 0xff, + args->blk>>8 & 0xff, args->blk & 0xff, + args->len>>24 & 0xff, args->len>>16 & 0xff, + args->len>>8 & 0xff, args->len & 0xff, + 0, 0); + } + + case CDIOCPLAYTRACKS: + { + struct ioc_play_track *args = (struct ioc_play_track *)addr; + u_long start, len; + int t1, t2; + + if (!cdp->toc.hdr.ending_track) + return EIO; + + if (args->end_track < cdp->toc.hdr.ending_track + 1) + ++args->end_track; + if (args->end_track > cdp->toc.hdr.ending_track + 1) + args->end_track = cdp->toc.hdr.ending_track + 1; + t1 = args->start_track - cdp->toc.hdr.starting_track; + t2 = args->end_track - cdp->toc.hdr.starting_track; + if (t1 < 0 || t2 < 0) + return EINVAL; + start = ntohl(cdp->toc.tab[t1].addr.lba); + len = ntohl(cdp->toc.tab[t2].addr.lba) - start; + + return acd_request_wait(cdp, ATAPI_PLAY_BIG, 0, + start>>24 & 0xff, start>>16 & 0xff, + start>>8 & 0xff, start & 0xff, + len>>24 & 0xff, len>>16 & 0xff, + len>>8 & 0xff, len & 0xff, 0, 0); + } + + case CDIOCREADAUDIO: + { + struct ioc_read_audio* args = (struct ioc_read_audio*) addr; + int lba, frames, result = 0; + u_char *buffer, *ubuf = args->buffer; + + if (!cdp->toc.hdr.ending_track) + return EIO; + + if ((frames = args->nframes) < 0) + return EINVAL; + + if (args->address_format == CD_LBA_FORMAT) + lba = args->address.lba; + else if (args->address_format == CD_MSF_FORMAT) + lba = msf2lba(args->address.msf.minute, + args->address.msf.second, + args->address.msf.frame); + else + return EINVAL; +#ifndef CD_BUFFER_BLOCKS +#define CD_BUFFER_BLOCKS 8 +#endif + if (!(buffer = malloc(CD_BUFFER_BLOCKS * 2352, M_TEMP, M_NOWAIT))) + return ENOMEM; + + while (frames > 0) { + u_char blocks; + int size; + + blocks = (frames>CD_BUFFER_BLOCKS) ? CD_BUFFER_BLOCKS : frames; + size = blocks * 2352; + + result = acd_request_wait(cdp, ATAPI_READ_CD, 4, + lba>>24, (lba>>16)&0xff, + (lba>>8)&0xff, lba&0xff, 0, 0, + blocks, 0xf0, buffer, size); + if (result != 0) + break; + + result = copyout(buffer, ubuf, size); + if (result != 0) + break; + + ubuf += size; + frames -= blocks; + lba += blocks; + } + + free(buffer, M_TEMP); + return result; + } + +#if 1 + case CDRIOCATAPIREQ: { + struct atapireq *ar, *oar = (struct atapireq *)addr; + struct buf *bp; + + if (oar->datalen < 0) + return (EINVAL); + + MALLOC(ar, struct atapireq *, sizeof *ar, M_TEMP, M_WAITOK); + MALLOC(bp, struct buf *, sizeof *bp, M_TEMP, M_WAITOK); + + bcopy(oar, ar, sizeof *ar); + bzero(bp, sizeof *bp); + + bp->b_proc = p; + bp->b_dev = dev; + bp->b_driver1 = cdp; + bp->b_driver2 = ar; + + if (ar->datalen) { + struct uio auio; + struct iovec aiov; + + aiov.iov_base = ar->databuf; + aiov.iov_len = ar->datalen; + auio.uio_iov = &aiov; + auio.uio_iovcnt = 1; + + auio.uio_offset = 0; + auio.uio_resid = ar->datalen; + + if (ar->cmd[0] == ATAPI_WRITE_BIG ) { + if ((cdp->flags & F_TRACK_PREPED) == 0) { + if ((cdp->flags & F_TRACK_PREP) == 0) { + printf("acd%d: sequence error\n", cdp->lun); + error = EIO; + goto done; + } else { + printf("opening track...\n"); + error= acd_open_track(cdp, &cdp->preptrack); + if (error != 0) { + printf("open_track failed\n"); + goto done; + } + cdp->flags |= F_TRACK_PREPED; + } + } + auio.uio_rw = UIO_WRITE; + bp->b_bcount = - ar->datalen; + } else { + auio.uio_rw = UIO_READ; + bp->b_bcount = ar->datalen; + } + auio.uio_segflg = UIO_USERSPACE; + auio.uio_procp = p; + + error = physio(acdr_strategy, bp, dev, + auio.uio_rw == UIO_READ ? 1 : 0, minphys, &auio); + } else { + bp->b_flags = B_READ | B_BUSY; + acdr_strategy(bp); + error = bp->b_error; + } + +done: + bcopy(ar, oar, sizeof *ar); + FREE(ar, M_TEMP); + FREE(bp, M_TEMP); + break; + } +#endif + + + case CDIOCGETVOL: + { + struct ioc_vol *arg = (struct ioc_vol *)addr; + + error = acd_request_wait(cdp, ATAPI_MODE_SENSE, 0, CDROM_AUDIO_PAGE, + 0, 0, 0, 0, + sizeof(cdp->au)>>8, sizeof(cdp->au), 0, + (char *)&cdp->au, sizeof(cdp->au)); + if (error) + return error; + if (cdp->flags & F_DEBUG) + atapi_dump(cdp->ata->ctrlr, cdp->lun, "au", &cdp->au, + sizeof(cdp->au)); + if (cdp->au.page_code != CDROM_AUDIO_PAGE) + return EIO; + arg->vol[0] = cdp->au.port[0].volume; + arg->vol[1] = cdp->au.port[1].volume; + arg->vol[2] = cdp->au.port[2].volume; + arg->vol[3] = cdp->au.port[3].volume; + } + break; + + case CDIOCSETVOL: + { + struct ioc_vol *arg = (struct ioc_vol *)addr; + + error = acd_request_wait(cdp, ATAPI_MODE_SENSE, 0, CDROM_AUDIO_PAGE, + 0, 0, 0, 0, + sizeof(cdp->au)>>8, sizeof(cdp->au), 0, + (char *)&cdp->au, sizeof(cdp->au)); + if (error) + return error; + if (cdp->flags & F_DEBUG) + atapi_dump(cdp->ata->ctrlr, cdp->lun, "au", &cdp->au, + sizeof(cdp->au)); + if (cdp->au.page_code != CDROM_AUDIO_PAGE) + return EIO; + + error = acd_request_wait(cdp, ATAPI_MODE_SENSE, 0, + CDROM_AUDIO_PAGE_MASK, 0, 0, 0, 0, + sizeof(cdp->aumask)>>8,sizeof(cdp->aumask), + 0, + (char *)&cdp->aumask, sizeof(cdp->aumask)); + if (error) + return error; + if (cdp->flags & F_DEBUG) + atapi_dump(cdp->ata->ctrlr, cdp->lun, "mask", &cdp->aumask, + sizeof(cdp->aumask)); + + cdp->au.data_length = 0; + cdp->au.port[0].channels = CHANNEL_0; + cdp->au.port[1].channels = CHANNEL_1; + cdp->au.port[0].volume = arg->vol[0] & cdp->aumask.port[0].volume; + cdp->au.port[1].volume = arg->vol[1] & cdp->aumask.port[1].volume; + cdp->au.port[2].volume = arg->vol[2] & cdp->aumask.port[2].volume; + cdp->au.port[3].volume = arg->vol[3] & cdp->aumask.port[3].volume; + return acd_request_wait(cdp, ATAPI_MODE_SELECT, 0x10, + 0, 0, 0, 0, 0, + sizeof(cdp->au)>>8, sizeof(cdp->au), + 0, (char *)&cdp->au, -sizeof(cdp->au)); + } + + case CDIOCSETPATCH: + { + struct ioc_patch *arg = (struct ioc_patch *)addr; + + return acd_setchan(cdp, arg->patch[0], arg->patch[1], + arg->patch[2], arg->patch[3]); + } + + case CDIOCSETMONO: + return acd_setchan(cdp, CHANNEL_0|CHANNEL_1, CHANNEL_0|CHANNEL_1, 0, 0); + + case CDIOCSETSTEREO: + return acd_setchan(cdp, CHANNEL_0, CHANNEL_1, 0, 0); + + case CDIOCSETMUTE: + return acd_setchan(cdp, 0, 0, 0, 0); + + case CDIOCSETLEFT: + return acd_setchan(cdp, CHANNEL_0, CHANNEL_0, 0, 0); + + case CDIOCSETRIGHT: + return acd_setchan(cdp, CHANNEL_1, CHANNEL_1, 0, 0); + + case CDRIOCNEXTWRITEABLEADDR: + { + struct acd_track_info *track_info; + track_info = malloc(sizeof(*track_info), M_TEMP, M_NOWAIT); + if (track_info == NULL) + return ENOMEM ; + + if ((error = acd_read_track_info(cdp, 0xff, track_info))) { + printf("acd_rd_trk_info returns error %d\n", error); + *(int*)addr = next_writeable_lba = 0 ; /* XXX */ + break; + } + if (track_info->nwa_valid == 0) { + printf("acd_rd_trk_info returns invalid info (maybe blank)\n"); + *(int*)addr = next_writeable_lba = 0 ; /* XXX */ + free(track_info, M_TEMP); + return EINVAL; + } + *(int*)addr = next_writeable_lba = track_info->next_writeable_addr; + free(track_info, M_TEMP); + } + break; + + case WORMIOCPREPDISK: + { + struct wormio_prepare_disk *w = (struct wormio_prepare_disk *)addr; + + if (w->dummy != 0 && w->dummy != 1) + error = EINVAL; + else { + error = acd_open_disk(cdp, w->dummy); + if (error == 0) { + cdp->flags |= F_DISK_PREPED; + cdp->dummy = w->dummy; + cdp->speed = w->speed; + } + } + } + break; + + case WORMIOCPREPTRACK: + { + struct wormio_prepare_track *w =(struct wormio_prepare_track *)addr; + + if (w->audio != 0 && w->audio != 1) + error = EINVAL; + else if (w->audio == 0 && w->preemp) + error = EINVAL; + else if ((cdp->flags & F_DISK_PREPED) == 0) { + error = EINVAL; + printf("acd%d: sequence error (PREP_TRACK)\n", cdp->lun); + } else { + /* + * if something has changed, synchronize track. + */ + if (cdp->flags & F_TRACK_PREPED && + (cdp->preptrack.audio != w->audio || + cdp->preptrack.preemp != w->preemp) ) { + error = acd_close_track(cdp); + cdp->flags &= ~(F_TRACK_PREPED | F_TRACK_PREP); + } + cdp->flags |= F_TRACK_PREP; + cdp->preptrack = *w; + } + } + break; + + case WORMIOCFINISHTRACK: + if ((cdp->flags & F_TRACK_PREPED) != 0) + error = acd_close_track(cdp); + cdp->flags &= ~(F_TRACK_PREPED | F_TRACK_PREP); + break; + + case WORMIOCFIXATION: + { + struct wormio_fixation *w = + (struct wormio_fixation *)addr; + + if ((cdp->flags & F_WRITTEN) == 0) + error = EINVAL; + else if (w->toc_type < 0 /* WORM_TOC_TYPE_AUDIO */ || + w->toc_type > 4 /* WORM_TOC_TYPE_CDI */ ) + error = EINVAL; + else if (w->onp != 0 && w->onp != 1) + error = EINVAL; + else { + /* no fixation needed if dummy write */ + if (cdp->dummy == 0) + error = acd_close_disk(cdp); + cdp->flags &= + ~(F_WRITTEN|F_DISK_PREPED|F_TRACK_PREP|F_TRACK_PREPED); + } + } + break; + + case CDRIOCBLANK: + return acd_blank_disk(cdp); + + default: + return ENOTTY; + } + return error; +} + +static int +acd_read_toc(struct acd *cdp) +{ + int ntracks, len; + struct atapires result; + + bzero(&cdp->toc, sizeof(cdp->toc)); + bzero(&cdp->info, sizeof(cdp->info)); + + acd_select_slot(cdp); + + result = atapi_request_wait(cdp->ata, cdp->unit, ATAPI_TEST_UNIT_READY, + 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0); + + if (result.code == RES_ERR && + (result.error & AER_SKEY) == AER_SK_UNIT_ATTENTION) { + cdp->flags |= F_MEDIA_CHANGED; + cdp->flags &= ~(F_WRITTEN|F_TRACK_PREP|F_TRACK_PREPED); + result = atapi_request_wait(cdp->ata, cdp->unit, ATAPI_TEST_UNIT_READY, + 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0); + } + + if (result.code) { + atapi_error(cdp->ata, cdp->unit, result); + return EIO; + } + + cdp->flags &= ~F_MEDIA_CHANGED; + + len = sizeof(struct ioc_toc_header) + sizeof(struct cd_toc_entry); + if (acd_request_wait(cdp, ATAPI_READ_TOC, 0, 0, 0, 0, 0, 0, + len>>8, len & 0xff, 0, (char *)&cdp->toc, len) != 0) { + bzero(&cdp->toc, sizeof(cdp->toc)); + return 0; + } + ntracks = cdp->toc.hdr.ending_track - cdp->toc.hdr.starting_track + 1; + if (ntracks <= 0 || ntracks > MAXTRK) { + bzero(&cdp->toc, sizeof(cdp->toc)); + return 0; + } + + len = sizeof(struct ioc_toc_header) + ntracks * sizeof(struct cd_toc_entry); + if (acd_request_wait(cdp, ATAPI_READ_TOC, 0, 0, 0, 0, 0, 0, + len>>8, len & 0xff, 0, (char *)&cdp->toc, len) & 0xff){ + bzero(&cdp->toc, sizeof(cdp->toc)); + return 0; + } + + cdp->toc.hdr.len = ntohs(cdp->toc.hdr.len); + + if (acd_request_wait(cdp, ATAPI_READ_CAPACITY, 0, 0, 0, 0, 0, 0, 0, 0, 0, + (char *)&cdp->info, sizeof(cdp->info)) != 0) + bzero(&cdp->info, sizeof(cdp->info)); + + cdp->toc.tab[ntracks].control = cdp->toc.tab[ntracks - 1].control; + cdp->toc.tab[ntracks].addr_type = cdp->toc.tab[ntracks - 1].addr_type; + cdp->toc.tab[ntracks].track = 170; + cdp->toc.tab[ntracks].addr.lba = cdp->info.volsize; + + cdp->info.volsize = ntohl(cdp->info.volsize); + cdp->info.blksize = ntohl(cdp->info.blksize); + + if (cdp->info.volsize && cdp->toc.hdr.ending_track + /* && (cdp->flags & F_DEBUG) */) { + printf("acd%d: ", cdp->lun); + if (cdp->toc.tab[0].control & 4) + printf("%ldMB ", cdp->info.volsize / 512); + else + printf("%ld:%ld audio ", cdp->info.volsize / 75 / 60, + cdp->info.volsize / 75 % 60); + printf("(%ld sectors (%d bytes)), %d tracks\n", + cdp->info.volsize, cdp->info.blksize, + cdp->toc.hdr.ending_track - cdp->toc.hdr.starting_track + 1); + } + return 0; +} + +/* + * Set up the audio channel masks. + */ +static int +acd_setchan(struct acd *cdp, u_char c0, u_char c1, u_char c2, u_char c3) +{ + int error; + + error = acd_request_wait(cdp, ATAPI_MODE_SENSE, 0, CDROM_AUDIO_PAGE, + 0, 0, 0, 0, + sizeof(cdp->au)>>8, sizeof(cdp->au), 0, + (char *)&cdp->au, sizeof(cdp->au)); + if (error) + return error; + if (cdp->flags & F_DEBUG) + atapi_dump(cdp->ata->ctrlr, cdp->lun, "au", &cdp->au, sizeof(cdp->au)); + if (cdp->au.page_code != CDROM_AUDIO_PAGE) + return EIO; + + cdp->au.data_length = 0; + cdp->au.port[0].channels = c0; + cdp->au.port[1].channels = c1; + cdp->au.port[2].channels = c2; + cdp->au.port[3].channels = c3; + return acd_request_wait(cdp, ATAPI_MODE_SELECT, 0x10, + 0, 0, 0, 0, 0, + sizeof(cdp->au)>>8, sizeof(cdp->au), 0, + (char *)&cdp->au, -sizeof(cdp->au)); +} + +static int +acd_eject(struct acd *cdp, int close) +{ + struct atapires result; + + acd_select_slot(cdp); + + result = atapi_request_wait(cdp->ata, cdp->unit, ATAPI_START_STOP, 1, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0); + + if (result.code == RES_ERR && + ((result.error & AER_SKEY) == AER_SK_NOT_READY || + (result.error & AER_SKEY) == AER_SK_UNIT_ATTENTION)) { + int err; + + if (!close) + return 0; + err = acd_request_wait(cdp, ATAPI_START_STOP, 0, 0, 0, 3, + 0, 0, 0, 0, 0, 0, 0); + if (err) + return err; + + acd_read_toc(cdp); + + acd_request_wait(cdp, ATAPI_PREVENT_ALLOW, 0, 0, 0, 1, + 0, 0, 0, 0, 0, 0, 0); + cdp->flags |= F_LOCKED; + return 0; + } + if (result.code) { + atapi_error(cdp->ata, cdp->unit, result); + return EIO; + } + if (close) + return 0; + + tsleep((caddr_t) &lbolt, PRIBIO, "acdej1", 0); + tsleep((caddr_t) &lbolt, PRIBIO, "acdej2", 0); + + acd_request_wait(cdp, ATAPI_PREVENT_ALLOW, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0); + cdp->flags &= ~F_LOCKED; + + cdp->flags |= F_MEDIA_CHANGED; + cdp->flags &= ~(F_WRITTEN|F_TRACK_PREP|F_TRACK_PREPED); + return acd_request_wait(cdp, ATAPI_START_STOP, 0, 0, 0, 2, + 0, 0, 0, 0, 0, 0, 0); +} + +static void +acd_select_slot(struct acd *cdp) +{ + if (cdp->slot < 0 || cdp->changer_info->current_slot == cdp->slot) + return; + + /* Unlock (might not be needed but its cheaper than asking) */ + acd_request_wait(cdp, ATAPI_PREVENT_ALLOW, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0); + + /* Unload the current media from player */ + acd_request_wait(cdp, ATAPI_LOAD_UNLOAD, 0, 0, 0, 2, + 0, 0, 0, cdp->changer_info->current_slot, 0, 0, 0); + + /* load the wanted slot */ + acd_request_wait(cdp, ATAPI_LOAD_UNLOAD, 0, 0, 0, 3, + 0, 0, 0, cdp->slot, 0, 0, 0); + + cdp->changer_info->current_slot = cdp->slot; + + /* Lock the media if needed */ + if (cdp->flags & F_LOCKED) { + acd_request_wait(cdp, ATAPI_PREVENT_ALLOW, 0, 0, 0, 1, + 0, 0, 0, 0, 0, 0, 0); + } +} + +static int +acd_rezero_unit(struct acd *cdp) +{ + return acd_request_wait(cdp, ATAPI_REZERO_UNIT, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0); +} + +static int +acd_open_disk(struct acd *cdp, int test) +{ + next_writeable_lba = 0; + return 0; +} + +static int +acd_close_disk(struct acd *cdp) +{ + return acd_request_wait(cdp, ATAPI_CLOSE_TRACK, 0x00, + 0x02, 0, 0, 0/*track*/, 0, 0, 0, 0, 0, 0); +} + +static int +acd_open_track(struct acd *cdp, struct wormio_prepare_track *ptp) +{ + struct write_param *param; /* cannot be in stack */ + struct atapires result; + int error; + + if (!(param = malloc(sizeof(struct write_param), M_TEMP, M_WAITOK))) + return ENOMEM ; + bzero(param, sizeof(*param)); + + /* XXX this was wait */ + result = atapi_request_wait(cdp->ata, cdp->unit, ATAPI_MODE_SENSE, + 0, 0x05, 0, 0, 0, 0, + sizeof(*param)>>8, sizeof(*param), + 0, 0, 0, 0, 0, 0, 0, + (char *)param, sizeof(*param)); + + if (cdp->flags & F_DEBUG) + atapi_dump(cdp->ata->ctrlr, cdp->lun, "0x05", param, sizeof(*param)); + if (result.code) + printf("result: code 0x%x status 0x%x err 0x%x\n", + result.code, result.status, result.error); + + if (result.code == RES_UNDERRUN) + result.code = 0; + + if (result.code) { + atapi_error(cdp->ata, cdp->unit, result); + return EIO; + } + bzero(param, sizeof(*param)); /* XXX */ + param->page_code = 0x05; + param->page_length = 0x32; + param->test_write = cdp->dummy ? 1 : 0; + param->write_type = CDR_WTYPE_TRACK; /* 01 */ + + switch (ptp->audio) { + + case 0: /* CDR_DATA */ + cdp->block_size = 2048; + param->track_mode = CDR_TMODE_DATA; + param->data_block_type = CDR_DB_ROM_MODE1; + param->session_format = CDR_SESS_CDROM; + break; + + default: /* CDR_AUDIO */ + cdp->block_size = 2352; + if (ptp->preemp) + param->track_mode = CDR_TMODE_AUDIO; + else + param->track_mode = CDR_TMODE_AUDIO /* XXX 0 */; + param->data_block_type = CDR_DB_RAW; + param->session_format = CDR_SESS_CDROM; + break; + +#if 0 + case CDR_MODE2: + param->track_mode = CDR_TMODE_DATA; + param->data_block_type = CDR_DB_ROM_MODE2; + param->session_format = CDR_SESS_CDROM; + break; + + case CDR_XA1: + param->track_mode = CDR_TMODE_DATA; + param->data_block_type = CDR_DB_XA_MODE1; + param->session_format = CDR_SESS_CDROM_XA; + break; + + case CDR_XA2: + param->track_mode = CDR_TMODE_DATA; + param->data_block_type = CDR_DB_XA_MODE2_F1; + param->session_format = CDR_SESS_CDROM_XA; + break; + + case CDR_CDI: + param->track_mode = CDR_TMODE_DATA; + param->data_block_type = CDR_DB_XA_MODE2_F1; + param->session_format = CDR_SESS_CDI; + break; +#endif + } + + param->multi_session = CDR_MSES_NONE; + param->fp = 0; + + param->packet_size = htonl(0); + param->audio_pause_length = htons(150); /* default value */ + + if (cdp->flags & F_DEBUG) + atapi_dump(cdp->ata->ctrlr, cdp->lun, "0x05", param, sizeof(*param)); + + /* XXX this was wait! */ + result = atapi_request_wait(cdp->ata, cdp->unit, ATAPI_MODE_SELECT, + 0x10, 0, 0, 0, 0, 0, + sizeof(*param)>>8, sizeof(*param), + 0, 0, 0, 0, 0, 0, 0, + (char *)param, -sizeof(*param)); + + free(param, M_TEMP); + if (result.code == RES_UNDERRUN) + result.code = 0; + + if (result.code) { + atapi_error(cdp->ata, cdp->unit, result); + return EIO; + } + return 0; +} + +static int +acd_close_track(struct acd *cdp) +{ + return acd_request_wait(cdp, ATAPI_SYNCHRONIZE_CACHE, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0); +} + +static int +acd_read_track_info(struct acd *cdp, int lba, struct acd_track_info *info) +{ +#if 0 + struct atapires result; + + result = atapi_request_immediate(cdp->ata, cdp->unit, ATAPI_READ_TRACK_INFO, + 0x01, lba>>24, (lba>>16)&0xff, + (lba>>8)&0xff, lba&0xff, + 0, + sizeof(*info)>>8, sizeof(*info), 0, + 0, 0, 0, 0, 0, 0, + (char *)info, sizeof(*info)); + + if (result.code) { + atapi_error(cdp->ata, cdp->unit, result); + return EIO; + } +#else + int error = 0; + error = acd_request_wait(cdp, ATAPI_READ_TRACK_INFO, 0x01, + lba>>24, (lba>>16)&0xff, + (lba>>8)&0xff, lba&0xff, + 0, + sizeof(*info)>>8, sizeof(*info), 0, + (char *)info, sizeof(*info)); + if (error) + return error; +#endif + info->track_start_addr = ntohl(info->track_start_addr); + info->next_writeable_addr = ntohl(info->next_writeable_addr); + info->free_blocks = ntohl(info->free_blocks); + info->fixed_packet_size = ntohl(info->fixed_packet_size); + info->track_length = ntohl(info->track_length); + return 0; +} + +static int +acd_blank_disk(struct acd *cdp) +{ + int error; + + error = acd_request_wait(cdp, 0xa1, 0x01, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0); + cdp->flags |= F_MEDIA_CHANGED; + cdp->flags &= ~(F_WRITTEN|F_TRACK_PREP|F_TRACK_PREPED); + return error; +} + +static void +atapi_error(struct atapi *ata, int unit, struct atapires result) +{ + if (result.code != RES_ERR) { + printf("atapi%d:%d: ERROR %d, status=%b, error=%b\n", + ata->ctrlr, unit, result.code, result.status, + ARS_BITS, result.error, AER_BITS); + return; + } + switch (result.error & AER_SKEY) { + case AER_SK_NOT_READY: + if (ata->debug) + printf("atapi%d:%d: not ready\n", ata->ctrlr, unit); + break; + + case AER_SK_BLANK_CHECK: + if (ata->debug) + printf("atapi%d:%d: blank check\n", ata->ctrlr, unit); + break; + + case AER_SK_MEDIUM_ERROR: + if (ata->debug) + printf("atapi%d:%d: medium error\n", ata->ctrlr, unit); + break; + + case AER_SK_HARDWARE_ERROR: + if (ata->debug) + printf("atapi%d:%d: hardware error\n", ata->ctrlr, unit); + break; + + case AER_SK_ILLEGAL_REQUEST: + if (ata->debug) + printf("atapi%d:%d: illegal request\n", ata->ctrlr, unit); + break; + + case AER_SK_UNIT_ATTENTION: + if (ata->debug) + printf("atapi%d:%d: unit attention\n", ata->ctrlr, unit); + break; + + case AER_SK_DATA_PROTECT: + if (ata->debug) + printf("atapi%d:%d: reading protected data\n", ata->ctrlr, unit); + break; + + case AER_SK_ABORTED_COMMAND: + if (ata->debug) + printf("atapi%d:%d: command aborted\n", ata->ctrlr, unit); + break; + + case AER_SK_MISCOMPARE: + if (ata->debug) + printf("atapi%d:%d: data don't match medium\n", ata->ctrlr, unit); + break; + + default: + if (ata->debug) + printf("atapi%d:%d: unknown error, status=%b, error=%b\n", + ata->ctrlr, unit, result.status, ARS_BITS, + result.error, AER_BITS); + } +} + +static void +atapi_dump(int ctrlr, int lun, char *label, void *data, int len) +{ + u_char *p = data; + + printf ("atapi%d%d: %s %x", ctrlr, lun, label, *p++); + while (--len > 0) printf ("-%x", *p++); + printf ("\n"); +} + +#ifdef ACD_MODULE +#include +#include +#include + +MOD_DEV(acd, LM_DT_BLOCK, BDEV_MAJOR, &acd_bdevsw); +MOD_DEV(racd, LM_DT_CHAR, CDEV_MAJOR, &acd_cdevsw); + +int +acd_load(struct lkm_table *lkmtp, int cmd) +{ + struct atapi *ata; + int n, u; + + if (!atapi_start) + return EPROTONOSUPPORT; + n = 0; + for (ata = atapi_tab; ata < atapi_tab + 2; ++ata) + if (ata->port) + for (u = 0; u < 2; ++u) + if (ata->params[u] && !ata->attached[u] && + acdattach(ata, u, ata->params[u], + ata->debug) >= 0) { + ata->attached[u] = 1; + ++n; + } + if (!n) + return ENXIO; + return 0; +} + +int +acd_unload(struct lkm_table *lkmtp, int cmd) +{ + struct acd **cdpp; + + for (cdpp = acdtab; cdpp < acdtab + acdnlun; ++cdpp) + if (((*cdpp)->flags & F_BOPEN) || (*cdpp)->refcnt) + return EBUSY; + for (cdpp = acdtab; cdpp < acdtab + acdnlun; ++t) { + (*cdpp)->ata->attached[(*cdpp)->unit] = 0; + free(*cdpp, M_TEMP); + } + acdnlun = 0; + bzero(acdtab, sizeof(acdtab)); + return 0; +} + +int +acd_mod(struct lkm_table *lkmtp, int cmd, int ver) +{ + int err = 0; + + if (ver != LKM_VERSION) + return EINVAL; + + if (cmd == LKM_E_LOAD) + err = acd_load(lkmtp, cmd); + else if (cmd == LKM_E_UNLOAD) + err = acd_unload(lkmtp, cmd); + if (err) + return err; + + lkmtp->private.lkm_dev = &MOD_PRIVATE(racd); + err = lkmdispatch(lkmtp, cmd); + if (err) + return err; + + lkmtp->private.lkm_dev = &MOD_PRIVATE(acd); + return lkmdispatch(lkmtp, cmd); +} + +#endif /* ACD_MODULE */ + +static acd_devsw_installed = 0; + +static void +acd_drvinit(void *unused) +{ + dev_t dev; + + if (!acd_devsw_installed) { + dev = makedev(CDEV_MAJOR, 0); + cdevsw_add(&dev,&acd_cdevsw, NULL); + dev = makedev(BDEV_MAJOR, 0); + bdevsw_add(&dev,&acd_bdevsw, NULL); + acd_devsw_installed = 1; + } +} + +SYSINIT(acddev, SI_SUB_DRIVERS, SI_ORDER_MIDDLE + CDEV_MAJOR, acd_drvinit, NULL) +#endif /* NACD && NWDC && ATAPI */ diff -u -P -r usr-orig/src/sys/i386/isa/atapi-cd.h usr/src/sys/i386/isa/atapi-cd.h --- usr-orig/src/sys/i386/isa/atapi-cd.h Wed Dec 31 16:00:00 1969 +++ usr/src/sys/i386/isa/atapi-cd.h Sat Oct 24 13:28:14 1998 @@ -0,0 +1,366 @@ +/*- + * Copyright (c) 1998 Søren Schmidt + * 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, + * without modification, immediately at the beginning of the file. + * 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. 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. + * + * $Id: atapi-cd.h,v 1.1 1998/09/08 20:57:47 sos Exp $ + */ + +/* + * CDROM Table Of Contents + */ +#define MAXTRK 99 +struct toc { + struct ioc_toc_header hdr; + struct cd_toc_entry tab[MAXTRK + 1]; +}; + +/* + * CDROM Audio Control Parameters Page + */ +struct audiopage { + /* Mode Page data header */ + u_short data_length; + u_char medium_type; + u_char dev_spec; + u_char unused[2]; + u_short blk_desc_len; + + /* Audio control page */ + u_char page_code; +#define CDROM_AUDIO_PAGE 0x0e +#define CDROM_AUDIO_PAGE_MASK 0x4e + + u_char param_len; + u_char flags; +#define CD_PA_SOTC 0x02 +#define CD_PA_IMMED 0x04 + + u_char reserved3; + u_char reserved4; + u_char reserved5; + u_short lb_per_sec; + struct port_control { + u_char channels:4; +#define CHANNEL_0 1 +#define CHANNEL_1 2 +#define CHANNEL_2 4 +#define CHANNEL_3 8 + u_char volume; + } port[4]; +}; + +/* + * CDROM Capabilities and Mechanical Status Page + */ +struct cappage { + /* Mode data header */ + u_short data_length; + u_char medium_type; /* Present media type */ +#define MST_TYPE_MASK_LOW 0x0f +#define MST_FMT_NONE 0x00 +#define MST_DATA_120 0x01 +#define MST_AUDIO_120 0x02 +#define MST_COMB_120 0x03 +#define MST_PHOTO_120 0x04 +#define MST_DATA_80 0x05 +#define MST_AUDIO_80 0x06 +#define MST_COMB_80 0x07 +#define MST_PHOTO_80 0x08 + +#define MST_TYPE_MASK_HIGH 0x70 +#define MST_CDROM 0x00 +#define MST_CDR 0x10 +#define MST_CDRW 0x20 + +#define MST_NO_DISC 0x70 +#define MST_DOOR_OPEN 0x71 +#define MST_FMT_ERROR 0x72 + + u_char dev_spec; + u_char unused[2]; + u_short blk_desc_len; + + /* Capabilities page */ + u_char page_code; +#define ATAPI_CDROM_CAP_PAGE 0x2a + + u_char param_len; + u_char read_cdr:1; /* Supports CD-R read */ + u_char read_cdrw:1; /* Supports CD-RW read */ + u_char method2:1; /* Supports reading packet tracks */ + u_char byte2_37:5; + u_char write_cdr:1; /* Supports CD-R write */ + u_char write_cdrw:1; /* Supports CD-RW write */ + u_char test_write:1; /* Supports test writing */ + u_char byte3_37:5; + u_char audio_play:1; /* Audio play supported */ + u_char composite:1; /* Composite audio/video supported */ + u_char dport1:1; /* Digital audio on port 1 */ + u_char dport2:1; /* Digital audio on port 2 */ + u_char mode2_form1:1; /* Mode 2 form 1 (XA) read */ + u_char mode2_form2:1; /* Mode 2 form 2 format */ + u_char multisession:1; /* Multi-session photo-CD */ + u_char:1; + u_char cd_da:1; /* Audio-CD read supported */ + u_char cd_da_stream:1; /* CD-DA streaming */ + u_char rw:1; /* Combined R-W subchannels */ + u_char rw_corr:1; /* R-W subchannel data corrected */ + u_char c2:1; /* C2 error pointers supported */ + u_char isrc:1; /* Can return the ISRC info */ + u_char upc:1; /* Can return the catalog number UPC */ + u_char:1; + u_char lock:1; /* Can be locked */ + u_char locked:1; /* Current lock state */ + u_char prevent:1; /* Prevent jumper installed */ + u_char eject:1; /* Can eject */ + u_char:1; + u_char mech:3; /* Loading mechanism type */ +#define MST_MECH_CADDY 0 +#define MST_MECH_TRAY 1 +#define MST_MECH_POPUP 2 +#define MST_MECH_CHANGER 4 +#define MST_MECH_CARTRIDGE 5 + + u_char sep_vol:1; /* Independent volume of channels */ + u_char sep_mute:1; /* Independent mute of channels */ + u_char:6; + + u_short max_speed; /* Max raw data rate in bytes/1000 */ + u_short max_vol_levels; /* Number of discrete volume levels */ + u_short buf_size; /* Internal buffer size in bytes/1024 */ + u_short cur_speed; /* Current data rate in bytes/1000 */ + + u_char reserved3; + u_char bckf:1; /* Data valid on failing edge of BCK */ + u_char rch:1; /* High LRCK indicates left channel */ + u_char lsbf:1; /* Set if LSB first */ + u_char dlen:2; +#define MST_DLEN_32 0 +#define MST_DLEN_16 1 +#define MST_DLEN_24 2 +#define MST_DLEN_24_I2S 3 + + u_char:3; + u_char reserved4[2]; +}; + +/* + * CDROM Changer mechanism status structure + */ +struct changer { + u_char current_slot:5; /* Active changer slot */ + u_char mech_state:2; /* Current changer state */ +#define CH_READY 0 +#define CH_LOADING 1 +#define CH_UNLOADING 2 +#define CH_INITIALIZING 3 + + u_char fault:1; /* Fault in last operation */ + u_char reserved0:5; + u_char cd_state:3; /* Current mechanism state */ +#define CD_IDLE 0 +#define CD_AUDIO_ACTIVE 1 +#define CD_AUDIO_SCAN 2 +#define CD_HOST_ACTIVE 3 +#define CD_NO_STATE 7 + + u_char current_lba[3]; /* Current LBA */ + u_char slots; /* Number of available slots */ + u_short table_length; /* Slot table length */ + struct { + u_char changed:1; /* Media has changed in this slot */ + u_char unused:6; + u_char present:1; /* Slot has a CD present */ + u_char reserved0; + u_char reserved1; + u_char reserved2; + } slot[32]; +}; + +/* + * CDROM Write Parameters Mode Page (Burners ONLY) + */ +struct write_param { + /* Mode Page data header */ + u_short data_length; + u_char medium_type; + u_char dev_spec; + u_char unused[2]; + u_short blk_desc_len; + + /* Write Parameters mode page */ + u_char page_code; /* 0x05 */ + u_char page_length; /* 0x32 */ + u_char write_type:4; /* Write stream type */ +#define CDR_WTYPE_PACKET 0x00 +#define CDR_WTYPE_TRACK 0x01 +#define CDR_WTYPE_SESSION 0x02 +#define CDR_WTYPE_RAW 0x03 + + u_char test_write:1; /* Test write enable */ + u_char reserved2_567:3; + u_char track_mode:4; /* Track mode */ +#define CDR_TMODE_AUDIO 0x01 +#define CDR_TMODE_INCR_DATA 0x01 +#define CDR_TMODE_ALLOW_COPY 0x02 +#define CDR_TMODE_DATA 0x04 +#define CDR_TMODE_QUAD_AUDIO 0x08 + + u_char copy:1; /* Generation stamp */ + u_char fp:1; /* Fixed packet type */ + u_char multi_session:2; /* Multi-session type */ +#define CDR_MSES_NONE 0x00 +#define CDR_MSES_FINAL 0x01 +#define CDR_MSES_RESERVED 0x02 +#define CDR_MSES_NULTI 0x03 + + u_char data_block_type:4; /* Data block type code */ +#define CDR_DB_RAW 0x0 /* 2352 bytes of raw data */ +#define CDR_DB_RAW_PQ 0x1 /* 2368 bytes raw data + P/Q subchan */ +#define CDR_DB_RAW_PW 0x2 /* 2448 bytes raw data + P-W subchan */ +#define CDR_DB_RAW_PW_R 0x3 /* 2448 bytes raw data + P-W raw sub */ +#define CDR_DB_RES_4 0x4 /* Reserved */ +#define CDR_DB_RES_5 0x5 /* Reserved */ +#define CDR_DB_RES_6 0x6 /* Reserved */ +#define CDR_DB_VS_7 0x7 /* Vendor specific */ +#define CDR_DB_ROM_MODE1 0x8 /* 2048 bytes Mode 1 (ISO/IEC 10149) */ +#define CDR_DB_ROM_MODE2 0x9 /* 2336 bytes Mode 2 (ISO/IEC 10149) */ +#define CDR_DB_XA_MODE1 0x10 /* 2048 bytes Mode 1 (CD-ROM XA 1) */ +#define CDR_DB_XA_MODE2_F1 0x11 /* 2056 bytes Mode 2 (CD-ROM XA 1) */ +#define CDR_DB_XA_MODE2_F2 0x12 /* 2324 bytes Mode 2 (CD-ROM XA 2) */ +#define CDR_DB_XA_MODE2_MIX 0x13 /* 2332 bytes Mode 2 (CD-ROM XA 1/2) */ +#define CDR_DB_RES_14 0x14 /* Reserved */ +#define CDR_DB_VS_15 0x15 /* Vendor specific */ + + u_char reserved4_4567:4; + u_char reserved5; + u_char reserved6; + u_char host_app_code:6; /* Host application code */ + u_char reserved7_67:2; + u_char session_format; /* Session format */ +#define CDR_SESS_CDROM 0x00 +#define CDR_SESS_CDI 0x10 +#define CDR_SESS_CDROM_XA 0x20 + + u_char reserved9; + u_int packet_size; /* Packet size in bytes */ + u_short audio_pause_length; /* Audio pause length in secs */ + u_char media_catalog_number[16]; + u_char isr_code[16]; + u_char sub_hdr_byte0; + u_char sub_hdr_byte1; + u_char sub_hdr_byte2; + u_char sub_hdr_byte3; +#if 0 /* these are reserved bytes, should not be read */ + u_char vendor_specific_byte0; + u_char vendor_specific_byte1; + u_char vendor_specific_byte2; + u_char vendor_specific_byte3; +#endif + +} __attribute__((packed)); +/* + * CDROM Read Track Information structure + */ +struct acd_track_info { + u_short data_length; + u_char track_number; /* Current track number */ + u_char session_number; /* Current session number */ + u_char reserved4; + u_char track_mode:4; /* Mode of this track */ + u_char copy:1; /* Generation stamp */ + u_char damage:1; /* Damaged track */ + u_char reserved5_67:2; + u_char data_mode:4; /* Data mode of this disc */ + u_char fp:1; /* Fixed packet */ + u_char packet:1; /* Packet track */ + u_char blank:1; /* Blank (empty) track */ + u_char rt:1; /* Reserved track */ + u_char nwa_valid:1; /* next_writeable_addr field valid */ + u_char reserved7_17:7; + u_int track_start_addr; /* Start of this track */ + u_int next_writeable_addr; /* Next writeable addr on this disc */ + u_int free_blocks; /* Free block on this disc */ + u_int fixed_packet_size; /* Size of packets on this track */ + u_int track_length; /* Length of this track */ +}; + +/* + * Structure describing an ATAPI CDROM device + */ +struct acd { + int unit; /* IDE bus drive unit */ + int lun; /* Logical device unit */ + int flags; /* Device state flags */ + int refcnt; /* The number of raw opens */ + struct atapi *ata; /* Controller structure */ + struct buf_queue_head buf_queue; /* Queue of i/o requests */ + struct atapi_params *param; /* Drive parameters table */ + struct toc toc; /* Table of disc contents */ + struct { + u_long volsize; /* Volume size in blocks */ + u_long blksize; /* Block size in bytes */ + } info; + struct audiopage au; /* Audio page info */ + struct cappage cap; /* Capabilities page info */ + struct audiopage aumask; /* Audio page mask */ + struct { /* Subchannel info */ + u_char void0; + u_char audio_status; + u_short data_length; + u_char data_format; + u_char control; + u_char track; + u_char indx; + u_long abslba; + u_long rellba; + } subchan; + struct changer *changer_info; /* Changer info */ + int slot; /* This lun's slot number */ + u_int block_size; /* Blocksize currently used */ + u_char dummy; /* Use dummy writes */ + u_char speed; /* Select drive speed */ + struct wormio_prepare_track preptrack; /* Scratch region */ + + u_long starting_lba ; /* for multitrack */ +#ifdef DEVFS + void *ra_devfs_token; + void *rc_devfs_token; + void *a_devfs_token; + void *c_devfs_token; +#endif +}; + +struct atapireq { + u_char cmd[16]; + caddr_t databuf; + int datalen; + struct atapires result; +}; + +#define CDRIOCBLANK _IO('c',100) /* Blank a CDRW disc */ +#define CDRIOCNEXTWRITEABLEADDR _IOR('c',101,int) +#define CDRIOCATAPIREQ _IOWR('c',102,struct atapireq) diff -u -P -r usr-orig/src/sys/i386/isa/atapi.c usr/src/sys/i386/isa/atapi.c --- usr-orig/src/sys/i386/isa/atapi.c Sat Oct 24 12:15:30 1998 +++ usr/src/sys/i386/isa/atapi.c Sat Oct 24 13:28:14 1998 @@ -103,6 +103,7 @@ #include "opt_atapi.h" #ifndef ATAPI_MODULE +# include "acd.h" # include "wcd.h" # include "wfd.h" /* # include "wmt.h" -- add your driver here */ @@ -172,6 +173,7 @@ static int atapi_wait_cmd (struct atapi *ata, struct atapicmd *ac); extern int wdstart (int ctrlr); +extern int acdattach(struct atapi*, int, struct atapi_params*, int); extern int wfdattach(struct atapi*, int, struct atapi_params*, int); extern int wcdattach(struct atapi*, int, struct atapi_params*, int); @@ -295,17 +297,24 @@ } #endif case AT_TYPE_CDROM: /* CD-ROM device */ +#if NACD > 0 + /* ATAPI CD-ROM & CD-R/RW drives */ + if (acdattach (ata, unit, ap, ata->debug) < 0) + break; + ata->attached[unit] = 1; + return (1); +#else #if NWCD > 0 - /* ATAPI CD-ROM */ + /* ATAPI CD-ROM drives */ if (wcdattach (ata, unit, ap, ata->debug) < 0) break; - /* Device attached successfully. */ ata->attached[unit] = 1; return (1); #else printf ("wdc%d: ATAPI CD-ROMs not configured\n", ctlr); break; #endif +#endif case AT_TYPE_TAPE: /* streaming tape (QIC-121 model) */ #if NWMT > 0 @@ -335,21 +344,34 @@ switch (cmd) { case 0x00: return ("TEST_UNIT_READY"); + case 0x01: return ("REZERO_UNIT"); case 0x03: return ("REQUEST_SENSE"); + case 0x04: return ("FORMAT_UNIT"); case 0x1b: return ("START_STOP"); case 0x1e: return ("PREVENT_ALLOW"); case 0x25: return ("READ_CAPACITY"); case 0x28: return ("READ_BIG"); case 0x2a: return ("WRITE_BIG"); - case 0x43: return ("READ_TOC"); + case 0x35: return ("SYNCHRONIZE_CACHE"); case 0x42: return ("READ_SUBCHANNEL"); + case 0x43: return ("READ_TOC"); + case 0x51: return ("READ_DISC_INFO"); + case 0x52: return ("READ_TRACK_INFO"); + case 0x53: return ("RESERVE_TRACK"); + case 0x54: return ("SEND_OPC_INFO"); case 0x55: return ("MODE_SELECT_BIG"); case 0x5a: return ("MODE_SENSE"); - case 0xb4: return ("PLAY_CD"); + case 0x5b: return ("CLOSE_TRACK/SESSION"); + case 0x5c: return ("READ_BUFFER_CAPACITY"); + case 0x5d: return ("SEND_CUE_SHEET"); case 0x47: return ("PLAY_MSF"); case 0x4b: return ("PAUSE"); case 0x48: return ("PLAY_TRACK"); + case 0xa1: return ("BLANK_CMD"); case 0xa5: return ("PLAY_BIG"); + case 0xb4: return ("PLAY_CD"); + case 0xbd: return ("ATAPI_MECH_STATUS"); + case 0xbe: return ("READ_CD"); } sprintf (buf, "[0x%x]", cmd); return (buf); @@ -697,6 +719,27 @@ return (0); } +static void +atapi_io_error(struct atapi *ata, struct atapicmd *ac) +{ + switch(ac->cmd[0]) { + default: + break ; + + case ATAPI_READ_BIG: + printf( + "atapi%d.%d: %s res.code 0x%x st 0x%x err 0x%x LBA %d cnt %d\n", + ata->ctrlr, ac->unit, + cmdname(ac->cmd[0]), + ac->result.code, ac->result.status, + ac->result.error, + ntohl(*( (int *)&(ac->cmd[2]) )), + ntohs(*( (int *)&(ac->cmd[7]) )) + ); + break; + } +} + /* * Process the i/o phase, transferring the command/data to/from the device. * Return 1 if op continues, and we are waiting for new interrupt. @@ -781,27 +824,72 @@ print (("atapi%d.%d: recv data overrun, %d bytes left\n", ata->ctrlr, ac->unit, ac->count)); ac->result.code = RES_OVERRUN; + if (ac->count != 0) insw (ata->port + AR_DATA, ac->addr, ac->count / sizeof(short)); for (i=ac->count; iport + AR_DATA); + len = ac->count ; /* XXX or count would become negative */ } else insw (ata->port + AR_DATA, ac->addr, len / sizeof(short)); ac->addr += len; ac->count -= len; +#if 0 + /* + * some drives appear not to assert BSY after a + * CDDA transfer, and then do not generate the intrq + * to complete the transfer. Among these: + * Sony CDU331, Goldstar GCD580 + * Obviate by testing BSY and going on anyways. + */ + for (i = 0 ; i < 2 ; i++) { + int j = inb (ata->port + AR_STATUS); + if ( (j & (ARS_DRQ | ARS_BSY)) == ARS_BSY ) + break; + } + if (i == 2 ) { + if (atapi_wait (ata->port, 0) < 0) { + ac->result.status = inb (ata->port + AR_STATUS); + ac->result.error = inb (ata->port + AR_ERROR); + ac->result.code = RES_NOTRDY; + printf ("atapi%d.%d: controller not ready, status=%b, error=%b\n", + ata->ctrlr, ac->unit, ac->result.status, ARS_BITS, + ac->result.error, AER_BITS); + return (0); + } + + ac->result.status = inb (ata->port + AR_STATUS); + ac->result.error = inb (ata->port + AR_ERROR); + len = inb (ata->port + AR_CNTLO); + len |= inb (ata->port + AR_CNTHI) << 8; + ireason = inb (ata->port + AR_IREASON); + + goto complete; + /* + * unfortunately, my Sony CDU-55E does assert BSY + * but then forgets to generate the intrq at times... + * Maybe I should check that len is a multiple of + * the CDDA size (2352) and return anyways if + * count == 0 ? + */ + } +#endif + return (1); case PHASE_ABORTED: case PHASE_COMPLETED: - if (ac->result.status & (ARS_CHECK | ARS_DF)) +complete: + if (ac->result.status & (ARS_CHECK | ARS_DF)) { + atapi_io_error(ata, ac); ac->result.code = RES_ERR; - else if (ac->count < 0) { - print (("atapi%d.%d: send data overrun, %d bytes left\n", + } else if (ac->count < 0) { + print(("atapi%d.%d: send data overrun, %d bytes left\n", ata->ctrlr, ac->unit, -ac->count)); ac->result.code = RES_OVERRUN; } else if (ac->count > 0) { - print (("atapi%d.%d: recv data underrun, %d bytes left\n", + print(("atapi%d.%d: recv data underrun, %d bytes left\n", ata->ctrlr, ac->unit, ac->count)); ac->result.code = RES_UNDERRUN; bzero (ac->addr, ac->count); diff -u -P -r usr-orig/src/sys/i386/isa/atapi.h usr/src/sys/i386/isa/atapi.h --- usr-orig/src/sys/i386/isa/atapi.h Sat Oct 24 13:24:23 1998 +++ usr/src/sys/i386/isa/atapi.h Sat Oct 24 13:30:04 1998 @@ -73,8 +73,14 @@ #define AER_SK_ILLEGAL_REQUEST 0x50 /* invalid command parameter(s) */ #define AER_SK_UNIT_ATTENTION 0x60 /* media changed */ #define AER_SK_DATA_PROTECT 0x70 /* reading read-protected sector */ +#define AER_SK_BLANK_CHECK 0x80 /* blank check */ +#define AER_SK_VENDOR_SPECIFIC 0x90 /* vendor specific skey */ +#define AER_SK_COPY_ABORTED 0xa0 /* copy aborted */ #define AER_SK_ABORTED_COMMAND 0xb0 /* command aborted, try again */ -#define AER_SK_MISCOMPARE 0xe0 /* data did not match the medium */ +#define AER_SK_EQUAL 0xc0 /* equal */ +#define AER_SK_VOLUME_OVERFLOW 0xd0 /* volume overflow */ +#define AER_SK_MISCOMPARE 0xe0 /* data did not match the medium */ +#define AER_SK_RESERVED 0xf0 #define AER_BITS "\20\4mchg\3abort\2eom\1ili" /* @@ -106,18 +112,24 @@ * Mandatory packet commands */ #define ATAPI_TEST_UNIT_READY 0x00 /* check if the device is ready */ +#define ATAPI_REZERO_UNIT 0x01 /* reinit device */ #define ATAPI_REQUEST_SENSE 0x03 /* get sense data */ #define ATAPI_START_STOP 0x1b /* start/stop the media */ #define ATAPI_PREVENT_ALLOW 0x1e /* prevent/allow media removal */ #define ATAPI_READ_CAPACITY 0x25 /* get volume capacity */ #define ATAPI_READ_BIG 0x28 /* read data */ #define ATAPI_WRITE_BIG 0x2a /* write data */ -#define ATAPI_READ_TOC 0x43 /* get table of contents */ +#define ATAPI_SYNCHRONIZE_CACHE 0x35 /* flush write buf, close write chan */ #define ATAPI_READ_SUBCHANNEL 0x42 /* get subchannel info */ -#define ATAPI_MODE_SELECT_BIG 0x55 /* set device parameters */ +#define ATAPI_READ_TOC 0x43 /* get table of contents */ +#define ATAPI_READ_TRACK_INFO 0x52 /* get track information structure */ +#define ATAPI_MODE_SELECT 0x55 /* set device parameters */ #define ATAPI_MODE_SENSE 0x5a /* get device parameters */ +#define ATAPI_CLOSE_TRACK 0x5b /* close track/session */ +#define ATAPI_LOAD_UNLOAD 0xa6 /* changer control command */ #define ATAPI_PLAY_CD 0xb4 /* universal play command */ - +#define ATAPI_MECH_STATUS 0xbd /* get changer mechanism status */ +#define ATAPI_READ_CD 0xbe /* read data */ /* * Optional packet commands */ @@ -130,6 +142,8 @@ #define ATAPI_PLAY_TRACK 0x48 /* play by track number */ #define ATAPI_PLAY_BIG 0xa5 /* play by logical block address */ +#define DSC_POLL_INTERVAL 10 + /* * Drive parameter information */ @@ -211,6 +225,7 @@ int attached; /* the drive is attached */ }; +struct buf; struct wcd; typedef void atapi_callback_t(struct wcd *, struct buf *, int, struct atapires); @@ -234,7 +249,10 @@ u_char cmd16 : 1; /* 16-byte command flag */ u_char intrcmd : 1; /* interrupt before cmd flag */ u_char slow : 1; /* slow reaction device */ - u_char accel : 1; /* accelerated device */ + u_char accel : 1; /* accelerated reaction device */ + u_char use_dsc : 1; /* use DSC completition handeling */ + u_char wait_for_dsc : 1; + u_int dsc_timeout; u_char attached[2]; /* units are attached to subdrivers */ struct atapi_params *params[2]; /* params for units 0,1 */ struct atapicmd *queue; /* queue of commands to perform */ @@ -286,3 +304,5 @@ u_char a10, u_char a11, u_char a12, u_char a13, u_char a14, u_char a15, char *addr, int count); #endif + +#define ATAPI_MODE_SELECT_BIG 0x55 /* set device parameters */ diff -u -P -r usr-orig/src/sys/i386/isa/wcd.c usr/src/sys/i386/isa/wcd.c --- usr-orig/src/sys/i386/isa/wcd.c Sat Oct 24 12:15:30 1998 +++ usr/src/sys/i386/isa/wcd.c Sat Oct 24 13:28:14 1998 @@ -225,6 +225,7 @@ struct audiopage aumask; /* Audio page mask */ struct subchan subchan; /* Subchannel info */ char description[80]; /* Device description */ + int starting_lba ; #ifdef DEVFS void *ra_devfs_token; void *rc_devfs_token; @@ -295,6 +296,7 @@ lun = t->lun = wcdnlun++; t->param = ap; t->flags = F_MEDIA_CHANGED; + t->starting_lba = 0; t->refcnt = 0; if (debug) { t->flags |= F_DEBUG; @@ -409,6 +411,7 @@ wcd_open (dev_t dev, int rawflag) { int lun = UNIT(dev); + int track = dkslice(dev); /* XXX */ struct wcd *t; /* Check that the device number is legal @@ -431,6 +434,11 @@ ++t->refcnt; else t->flags |= F_BOPEN; + t->starting_lba = ntohl(t->toc.tab[track].addr.lba) ; + if (track != 0) { + printf("Warning, opening track %d at %d\n", + track, t->starting_lba); + } return (0); } @@ -547,7 +555,7 @@ * First, translate the block to absolute and put it in terms of the * logical blocksize of the device. * What if something asks for 512 bytes not on a 2k boundary? */ - blkno = bp->b_blkno / (SECSIZE / 512); + blkno = t->starting_lba + bp->b_blkno / (SECSIZE / 512); nblk = (bp->b_bcount + (SECSIZE - 1)) / SECSIZE; atapi_request_callback (t->ata, t->unit, ATAPI_READ_BIG, 0, diff -u -P -r usr-orig/src/sys/sys/cdio.h usr/src/sys/sys/cdio.h --- usr-orig/src/sys/sys/cdio.h Sat Oct 24 12:15:30 1998 +++ usr/src/sys/sys/cdio.h Sat Oct 24 12:17:22 1998 @@ -273,4 +273,13 @@ #define CDIOCCAPABILITY _IOR('c',30,struct ioc_capability) /*<2>*/ +struct ioc_read_audio +{ + u_char address_format; + union msf_lba address; + int nframes; + u_char* buffer; +}; + +#define CDIOCREADAUDIO _IOWR('c',31,struct ioc_read_audio) #endif /* !_SYS_CDIO_H_ */ diff -u -P -r usr-orig/src/sys/sys/wormio.h usr/src/sys/sys/wormio.h --- usr-orig/src/sys/sys/wormio.h Sat Oct 24 12:15:30 1998 +++ usr/src/sys/sys/wormio.h Sat Oct 24 12:17:22 1998 @@ -59,5 +59,6 @@ }; #define WORMIOCFIXATION _IOW('W', 22, struct wormio_fixation) +#define WORMIOCFINISHTRACK _IO('W', 23) #endif /* !_SYS_WORMIO_H_ */ diff -u -P -r usr-orig/src/usr.sbin/wormcontrol/wormcontrol.8 usr/src/usr.sbin/wormcontrol/wormcontrol.8 --- usr-orig/src/usr.sbin/wormcontrol/wormcontrol.8 Sat Oct 24 12:15:30 1998 +++ usr/src/usr.sbin/wormcontrol/wormcontrol.8 Sat Oct 24 12:17:22 1998 @@ -43,6 +43,9 @@ .Nd control the CD-R driver .Sh SYNOPSIS .Nm wormcontrol +.Op Ar options +.Ar file +.Nm wormcontrol .Op Fl f Ar device .Ar command .Op Ar params... @@ -53,6 +56,75 @@ .Xr worm 4 driver in order to adjust various parameters of a recordable CD .Pq CD-R . +The command has two forms. The first one (compact form) is +used to quickly peform the common task of dumping data or audio +tracks to a disk, doing all the handling involved. The second form +is the traditional form and allows the user to control the various +phase of CD-R operation. +.Sh USAGE (compact form) +The following options are available: +.Bl -tag -width argument +.It Fl f Ar device +Use +.Ar device +instead of the one specified by the environment variable +.Pa WORMDEVICE , +or the default device +.Pa /dev/rworm0 . +.It Fl d , Fl a +Write a data or audio track. One of +.Fl d +or +.Fl a +is compulsory. +.It Fl p Ar arg +Select preemphasis indication (only for audio tracks). Valid +arguments are +.Pa 1, on +or +.Pa 0, off +.It Fl s Ar speed +Select write speed (accepted values are +.Pa 1 , +.Pa single , +.Pa 2 , +.Pa double , +.Pa 4 , +.Pa quad +). +.It Fl t +Perform a test (or dummy) write, not activating the laser. This is +useful for testing. +.It Fl e +Execute the fixate phase after writing this track, which is the +.Pa ending +track. This is necessary for writing the TOC on the disk +and make it readable on a regular reader. +.It Fl n Ar 1|0 +Select or not opening of next partition for writing (multisession +disks only). +.El +The typical command for writing a data track will then be +.Bd -literal +wormcontrol -f /dev/rwcd0a -d image.cd0 +.Ed +which performs the quirk selection, prepdisk, preptrack, data write, +and fixate phases. +.Pp +The typical command for writing audio tracks will be +.Bd -literal +wormcontrol -f /dev/rwcd0a -a track01.cda +wormcontrol -f /dev/rwcd0a -a track01.cda +... +wormcontrol -f /dev/rwcd0a -a -e trackNN.cda +.Ed +where the +.Fl e +flags on the last command specifies that this is the ending track of +the disk thus the fixate operation must be performed. + + +.Sh USAGE (traditional form) .Pp Unlike many other devices, CD-R's require a very strict handling order. Prior to writing data, the speed of the drive must be selected, and diff -u -P -r usr-orig/src/usr.sbin/wormcontrol/wormcontrol.c usr/src/usr.sbin/wormcontrol/wormcontrol.c --- usr-orig/src/usr.sbin/wormcontrol/wormcontrol.c Sat Oct 24 12:15:30 1998 +++ usr/src/usr.sbin/wormcontrol/wormcontrol.c Sat Oct 24 12:17:22 1998 @@ -8,7 +8,7 @@ * All rights reserved. * * Written by Joerg Wunsch - * + * Modified by Luigi Rizzo * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions @@ -46,32 +46,371 @@ #include #include +#include +#include + #include +#include #include +/* + * these two are in /sys/i386/isa/atapi-cd.h + */ +#define CDRIOCBLANK _IO('c',100) /* Blank a CDRW disc */ +#define CDRIOCNEXTWRITEABLEADDR _IOR('c',101,int) + +int nextwriteable = 0 ; + +char +usage_string[] = +"usage: wormcontrol [options] file (compact form)\n" +"usage: wormcontrol [-f device] command [args] (traditional form)\n" +"-f device specify input file\n" +"-d | -a data or audio track (one required, unless doing -i)\n" +"-i print disk info (tracks)\n" +"-e do the final fixate\n" +"-n open next session doing fixate\n" +"-s speed select speed (single, double, quad, or 1,2,4; default double)\n" +"-p preemphasis (only for audio)\n" +"-t test mode\n" +"-v | -q verbose or quiet mode\n" +; + static void usage() { - fprintf(stderr,"usage: wormcontrol [-f device] command [args]\n"); + fprintf(stderr,"%s", usage_string); exit(EX_USAGE); } #define eq(a, b) (strcmp(a, b) == 0) +struct atapires { + u_char code; + u_char status; + u_char error; +}; + +#define ATAPI_WRITE_BIG 0x2a /* write data */ + +#define CDRIOCATAPIREQ _IOWR('c',102,struct atapireq) + +struct atapireq { + u_char cmd[16]; + caddr_t databuf; + int datalen; + struct atapires result; +} ; + + +int +info(int fd) +{ + struct ioc_toc_header h; + struct ioc_read_toc_entry t; + struct cd_toc_entry toc_buffer[100]; + int ntocentries, i; + + bzero(&h, sizeof(h)); + if (ioctl(fd, CDIOREADTOCHEADER, &h) == -1) { + perror("CDIOREADTOCHEADER"); + return -1; + } + + ntocentries = h.ending_track - h.starting_track + 1; + fprintf(stderr, "%d tracks, start %d, len %d\n", + ntocentries, + h.starting_track, h.ending_track); + if (ntocentries > 100) { + /* unreasonable, only 100 allowed */ + return -1; + } + t.address_format = CD_LBA_FORMAT; + t.starting_track = 0; + t.data_len = (1+ntocentries) * sizeof(struct cd_toc_entry); + t.data = toc_buffer; + bzero(toc_buffer, sizeof(toc_buffer)); + + if (ioctl(fd, CDIOREADTOCENTRYS, (char *) &t) == -1) { + perror("CDIOREADTOCENTRYS"); + return -1; + } + fprintf(stderr, +"track block length type\n" +"-------------------------------\n"); + for (i = 0 ; i < ntocentries ; i++) { + fprintf(stderr, "%5d %6d %6d %5s\n", + toc_buffer[i].track, + ntohl(toc_buffer[i].addr.lba), + ntohl(toc_buffer[i+1].addr.lba)-ntohl(toc_buffer[i].addr.lba), + toc_buffer[i].control & 4 ? "data" : "audio" + ); + } +#if 0 + for (i = ntocentries - 1; i >= 0; i--) + if ((toc_buffer[i].control & 4) != 0) + /* found a data track */ + break; + if (i < 0) + return -1; + return ntohl(toc_buffer[i].addr.lba); +#endif +} + +int +do_nextwriteable(int fd) +{ + int addr = 0; + int err ; + if (ioctl(fd, CDRIOCNEXTWRITEABLEADDR, &addr) == -1) { + fprintf(stderr, "nextwriteable error\n", errno); + nextwriteable = 0 ; + } else + nextwriteable = addr ; + fprintf(stderr, "Next writeable at LBA %d (0x%x)\n", addr , addr); + return 0 ; +} + +int +do_prepdisk(int fd, int dummy, int speed) +{ + struct wormio_prepare_disk d; + + fprintf(stderr, "--- prepdisk %s %s ---\n", + speed == 1 ? "single" : "double", + dummy ? "dummy" : "real "); + + d.dummy = dummy; + d.speed = speed; + if (ioctl(fd, WORMIOCPREPDISK, &d) == -1) + err(EX_IOERR, "ioctl(WORMIOCPREPDISK)"); + return 0 ; +} + +int +do_fixate(int fd, int type, int onp) +{ + struct wormio_fixation f; + + f.toc_type = type ; + f.onp = onp ; + + fprintf(stderr, "--- fixate %d%s ---\n", type, onp ? " onp":""); + if (ioctl(fd, WORMIOCFIXATION, &f) == -1) + err(EX_IOERR, "ioctl(WORMIOFIXATION)"); +} + +int +write_data(int fd, char *fn, int audio) +{ + int src; + char buf[8*2352]; + int l ; + u_long tot = 0 ; + int sz, bsz ; + int startlba ; + int retry = 1 ; + + struct timeval beg, old, end ; + + fprintf(stderr, "--- Writing <%s> %s ---\n", fn, audio ? "AUDIO":"DATA"); + +retry : + if (eq (fn, "-") ) + src = 0 ; + else + src = open(fn, O_RDONLY); + if (src < 0) { + fprintf(stderr, "Can't open %s\n", fn); + return ; + } + bsz = (audio) ? 2352 : 2048 ; + sz = 8*bsz ; + startlba = nextwriteable ; /* the device should know... */ + gettimeofday(&beg, NULL); + old = beg ; + end = beg ; + + while ( ( l = read(src, buf, sz) ) > 0 ) { + int l1 = l % bsz ; + if ( l1 != 0 ) { + printf("Warning, file size not multiple of %d, trimming %d\n", + bsz, l1); + l -= l1 ; + } + tot += l ; + + if (l) { + /* ioctl to write... */ + + int nblocks = l / bsz ; + struct atapireq ar; + + bzero(&ar, sizeof ar); + ar.cmd[0] = ATAPI_WRITE_BIG; + ar.cmd[1] = 0; /* was 0 */ + ar.cmd[2] = startlba >> 24; + ar.cmd[3] = startlba >> 16; + ar.cmd[4] = startlba >> 8; + ar.cmd[5] = startlba; + ar.cmd[6] = 0; + ar.cmd[7] = nblocks >> 8; + ar.cmd[8] = nblocks ; + /* others are zero */ + ar.databuf = buf; + ar.datalen = l ; + if (ioctl(fd, CDRIOCATAPIREQ, &ar) < 0) { + /* + * the first write might fail when changing from + * data to audio tracks and vice-versa. + * This is non-fatal if we are at the beginning and + * we are not reading from stdin, so we retry once. + * + * The driver ought to be fixed of course... + */ + tot -= l ; + if (retry-- > 0 && tot == 0 && src != 0) { + fprintf(stderr, + "--- non fatal error on first write, retry...\n"); + do_nextwriteable(fd); + close(src); + goto retry ; + } + fprintf(stderr, + "\n--- FATAL: Failure writing %d blocks at %d\n", + nblocks, tot); + perror("CDRIOATAPIREQ"); + goto done ; + } + gettimeofday(&end, NULL); + if (startlba == 0) { + /* the first write is slow so we do not count it... */ + beg = end ; + old = end ; + } + startlba += nblocks ; + l1 = end.tv_sec - old.tv_sec ; + l = end.tv_sec - beg.tv_sec ; + if (l1) { + old = end ; + fprintf(stderr, "%d KB (%d KB/s) \r", + tot/1024, tot/ (1024*l ) ); + } + } + } +done: + l = end.tv_sec - beg.tv_sec ; + fprintf(stderr, "\n\nWritten %d KB in %d s (%d KB/s)\n", + tot/1024, l, tot/(1024* (l ? l : 1 ) ) ) ; +} + +int +do_track(int fd, char *fn, int audio, int preemp) +{ + struct wormio_prepare_track t; + + if (audio == 0 && preemp == 1) + errx(EX_USAGE, "\"preemp\" attempted on data track"); + t.audio = audio ; + t.preemp = preemp ; + + if (ioctl(fd, WORMIOCPREPTRACK, &t) == -1) + err(EX_IOERR, "ioctl(WORMIOCPREPTRACK)"); + do_nextwriteable(fd); + if (fn) + write_data(fd, fn, t.audio); +} + + +/*** Parameter default value */ +char *fn = NULL ; +int idx = 0 ; /* normal operation, use -i to list content */ +int fixate = 0 ; /* do not fixate, use -e to force it */ +int compact = 0 ; /* standard command format */ +int audio = -1 ; /* unknown data format, need -d or -a */ +int verbose = 1 ; /* standard verbosity level */ +int onp = 0 ; /* don't open next session, use -n to force it */ +int dummy = 0 ; /* regular write, use -d to do a dummy write */ +int speed = 2 ; /* default: double speed */ +int preemp = 0 ; /* default: no preemphasis, use -p to enable it */ + int main(int argc, char **argv) { int fd, c, i; int errs = 0; - const char *devname = "/dev/rworm0"; + char *devname ; + + devname = getenv("WORMDEVICE"); + + if (devname == NULL) + devname = "/dev/rworm0" ; - while ((c = getopt(argc, argv, "f:")) != -1) + while ((c = getopt(argc, argv, "f:qvadntps:ei")) != -1) switch(c) { + case 'i': + idx = 1 ; + compact = 1 ; + break ; + case 'f': devname = optarg; break; - case '?': + case 'q': + compact = 1 ; + verbose = 0 ; + break ; + + case 'v': + compact = 1 ; + verbose = 2 ; + break ; + + case 'a' : + compact = 1 ; + audio = 1 ; + preemp = 1 ; + break ; + + case 'd' : + compact = 1 ; + audio = 0 ; + preemp = 0 ; + break ; + + case 'p' : + compact = 1 ; + preemp = 1 ; + break ; + + case 's' : + compact = 1 ; + if (eq(optarg,"single") || eq(optarg,"1")) + speed = 1 ; + else if (eq(optarg,"double") || eq(optarg,"2")) + speed = 2 ; + else if (eq(optarg,"quad") || eq(optarg,"4")) + speed = 4 ; + else + usage(); + break ; + + case 'e' : + compact = 1 ; + fixate = 1 ; + break ; + + case 'n' : + compact = 1 ; + onp = 1; + break ; + + case 't' : + dummy = 1 ; + compact = 1 ; + break ; + default: errs++; } @@ -79,12 +418,26 @@ argc -= optind; argv += optind; - if (errs || argc < 1) + if ((fd = open(devname, O_RDONLY /* | O_NONBLOCK */, 0)) == -1) + err(EX_NOINPUT, "open(%s)", devname); + if (idx) { + info(fd); + exit(0); + } + if (compact && audio < 0) /* bad for compact format */ + usage() ; + if (errs || argc < 1) /* bad for traditional format */ usage(); - if ((fd = open(devname, O_RDONLY | O_NONBLOCK, 0)) == -1) - err(EX_NOINPUT, "open(%s)", devname); + if (compact) { + fn = argv[0]; + do_prepdisk(fd, dummy, speed); + do_track(fd, fn, audio, preemp); + if (fixate) + do_fixate(fd, audio ? 0 : 1 , onp ? 1 : 0); + return 0 ; + } else { if (eq(argv[0], "select")) { struct wormio_quirk_select q; if (argc != 3) @@ -93,73 +446,75 @@ q.model = argv[2]; if (ioctl(fd, WORMIOCQUIRKSELECT, &q) == -1) err(EX_IOERR, "ioctl(WORMIOCQUIRKSELECT)"); - } - else if (eq(argv[0], "prepdisk")) { - struct wormio_prepare_disk d; - d.dummy = 0; - d.speed = -1; + } else if (eq(argv[0], "prepdisk")) { + speed = -1 ; for (i = 1; i < argc; i++) { if (eq(argv[i], "dummy")) - d.dummy = 1; + dummy = 1; else if (eq(argv[i], "single")) - d.speed = 1; + speed = 1; else if (eq(argv[i], "double")) - d.speed = 2; + speed = 2; else - errx(EX_USAGE, - "wrong param for \"prepdisk\": %s", - argv[i]); + errx(EX_USAGE, "wrong param for \"prepdisk\": %s", argv[i]); } - if (d.speed == -1) + if (speed == -1) errx(EX_USAGE, "missing speed parameter"); - if (ioctl(fd, WORMIOCPREPDISK, &d) == -1) - err(EX_IOERR, "ioctl(WORMIOCPREPDISK)"); - } - else if (eq(argv[0], "track")) { + do_prepdisk(fd, dummy, speed); + } else if (eq(argv[0], "endtrack")) { + if (ioctl(fd, WORMIOCFINISHTRACK, NULL) == -1) + err(EX_IOERR, "ioctl(WORMIOCFINISHTRACK)"); + } else if (eq(argv[0], "track")) { struct wormio_prepare_track t; - t.audio = -1; - t.preemp = 0; + fn = NULL ; + audio = -1; + preemp = 0; for (i = 1; i < argc; i++) { if (eq(argv[i], "audio")) - t.audio = 1; + audio = 1; else if (eq(argv[i], "data")) - t.audio = 0; + audio = 0; else if (eq(argv[i], "preemp")) - t.preemp = 1; + preemp = 1; + else if (i == argc-1) + fn = argv[i]; else - errx(EX_USAGE, - "wrong param for \"track\": %s", - argv[i]); + errx(EX_USAGE, "wrong param for \"track\": %s", argv[i]); } - if (t.audio == -1) + if (audio == -1) errx(EX_USAGE, "missing track type parameter"); - if (t.audio == 0 && t.preemp == 1) - errx(EX_USAGE, "\"preemp\" attempted on data track"); - if (ioctl(fd, WORMIOCPREPTRACK, &t) == -1) - err(EX_IOERR, "ioctl(WORMIOCPREPTRACK)"); - } - else if (eq(argv[0], "fixate")) { - struct wormio_fixation f; - f.toc_type = -1; - f.onp = 0; + do_track(fd, fn, audio, preemp); + } else if (eq(argv[0], "fixate")) { + int type = -1 ; + onp = 0; for (i = 1; i < argc; i++) { if (eq(argv[i], "onp")) - f.onp = 1; + onp = 1; + else if (eq(argv[i], "audio") ) + type = 0 ; + else if (eq(argv[i], "cdda") ) + type = 0 ; + else if (eq(argv[i], "data") ) + type = 1 ; + else if (eq(argv[i], "cdrom") ) + type = 1 ; else if (argv[i][0] >= '0' && argv[i][0] <= '4' && argv[i][1] == '\0') - f.toc_type = argv[i][0] - '0'; + type = argv[i][0] - '0'; else - errx(EX_USAGE, - "wrong param for \"fixate\": %s", - argv[i]); + errx(EX_USAGE, "wrong param for \"fixate\": %s", argv[i]); } - if (f.toc_type == -1) + if (type == -1) errx(EX_USAGE, "missing TOC type parameter"); - if (ioctl(fd, WORMIOCFIXATION, &f) == -1) - err(EX_IOERR, "ioctl(WORMIOFIXATION)"); - } - else + do_fixate(fd, type, onp); + } else if (eq(argv[0], "blank")) { + if (ioctl(fd, CDRIOCBLANK) == -1) + err(EX_IOERR, "ioctl(CDRIOCBLANK)"); + } else if (eq(argv[0], "nextwriteable")) { + do_nextwriteable(fd); + } else errx(EX_USAGE, "unknown command: %s", argv[0]); return EX_OK; + } }